3.52/src/photosFortranInterfaces/f_Init.h

Go to the documentation of this file.

#ifndef _f_Init_included_
#define _f_Init_included_

extern "C" {

extern struct {
  double alpha;
  double xphcut;
} phocop_;

extern struct {
  double fsec;
  double fint;
  double expeps;
  int interf;
  int isec;
  int itre;
  int iexp;
  int iftop;
  int ifw;
} phokey_;

extern struct {
  int status[10];
  int ifstop;
} phosta_;

extern struct {
  double pi;
  double twopi;
} phpico_;

extern struct {
  int phlun;
} pholun_;

// debug mode on if ipoin <  1 and ipoinm > 1
extern struct {
  int ipoin;
  int ipoinm;
} phlupy_;

void phcork_(int *modcor);

void photos_make_c_(int *id);

/* PHOINI subroutines */
int iphqrk_(int *i);
int iphekl_(int *i);

/* Printout of error messages */
void phoerr_(int *imes, char *text, double *data);
}

#endif