3.52/src/photosFortranInterfaces/f_Init.h

Go to the documentation of this file.

//****************************************************************************
//*                   This file is part of PandaRoot.                        *
//*                                                                          *
//*            PandaRoot is distributed under the terms of the               *
//*              GNU General Public License (GPL) version 3,                 *
//*                 copied verbatim in the file "LICENSE".                   *
//*                                                                          *
//*  Copyright (C) 2006 - 2024 FAIR GmbH and copyright holders of PandaRoot  *
//*     The copyright holders are listed in the file "COPYRIGHTHOLDERS".     *
//*               The authors are listed in the file "AUTHORS".              *
//****************************************************************************

//****************************************************************************
//*                   This file is part of PandaRoot.                        *
//*                                                                          *
//*            PandaRoot is distributed under the terms of the               *
//*              GNU General Public License (GPL) version 3,                 *
//*                 copied verbatim in the file "LICENSE".                   *
//*                                                                          *
//*  Copyright (C) 2006 - 2024 FAIR GmbH and copyright holders of PandaRoot  *
//*     The copyright holders are listed in the file "COPYRIGHTHOLDERS".     *
//*               The authors are listed in the file "AUTHORS".              *
//****************************************************************************

#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