/* * Generated automatically by fh2h.pl * !!! DO NOT EDIT !!! * Edit the original fortran header file instead * or fix fh2h.pl if there is a translation bug. */ #ifndef FH2H_NEWORK_H #define FH2H_NEWORK_H #ifdef __cplusplus extern "C" { #endif #ifndef IMPLICIT #define IMPLICIT /* Only to point out implicit types */ #endif /*------ fortran header (without commons and data statements) ----------*/ /*-------------------------------------------------------*/ /**/ /* INCLUDE FILE FOR NEUTRINO INTERACTION ( nework.h )*/ /**/ /* WORK AREA OF NEUTRINO INTERACTION*/ /* */ /* CAUTION **** UNIT IS GEV *****/ /**/ /*-------------------------------------------------------*/ #define MAXNE (100) /**/ /* COMMON /NEWORK/ */ /* */ /* MODENE : MODE OF INTERACTION*/ /* NUMNE : # OF PARTICLE*/ /* IPNE(I) : PARTICLE CODE OF I-TH PARTICLE*/ /* PNE(3,I) : MOMENTUM OF I-TH PARTICLE ( GEV/C )*/ /* IORGNE(I) : ID OF ORIGIN PARTICLE*/ /* IFLGNE(I) : FLAG OF FINAL STATE */ /* -1 : initial particle*/ /* 0 : DETERMINED LATER PROCEDURE */ /* 1 : DECAY TO OTHER PARTICLE*/ /* 2 : ESCAPE FROM DETECTOR*/ /* 3 : ABSORPTION*/ /* 4 : CHARGE EXCHANGE*/ /* 5 : STOP AND NOT CONSIDER IN M.C. */ /* 6 : E.M. SHOWER*/ /* ICRNNE(I) : FLAG OF TO CHASE OR NOT*/ /* 0 : DO NOT CHASE*/ /* 1 : CHASE*/ /**/ /*common nework was here*/ /*-------------------------------------------------------------*/ /*------ common blocks -------------------------------------------------*/ extern struct nework_common { int modene; int numne; int ipne[MAXNE]; float pne[MAXNE][3]; int iorgne[MAXNE]; int iflgne[MAXNE]; int icrnne[MAXNE]; } nework_; #ifndef NO_EXTERN_COMMON_POINTERS extern struct nework_common *nework; #endif #ifdef STATIC_COMMON_POINTERS static struct nework_common *nework = &nework_; #endif /*------ data statements -----------------------------------------------*/ #ifndef NO_STATIC_DATA #endif /* #ifndef NO_STATIC_DATA */ /*------ end of fortran header -----------------------------------------*/ #ifdef __cplusplus } #endif #endif /* #ifndef FH2H_NEWORK_H */