/* * 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_VCVRTX_H #define FH2H_VCVRTX_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 VECTOR GENERATOR ( vcvrtx.h )*/ /**/ /* VERTEX INFORMATION*/ /**/ /*-------------------------------------------------------------*/ #define MAXVX (100) /**/ /* NVTXVC : # OF VERTEX */ /* PVTXVC(3,I) : POSITION OF VERTEX*/ /* IFLVVC(I) : KIND OF VERTEX*/ /* 0 : DETERMINED LATER PROCEDURE*/ /* 1 : PRIMARY POSITION*/ /* 2 : DECAY*/ /* 3 : STOP*/ /* IPARVC(I) : PARENT PARTICLE*/ /* TIMVVC(I) : TIME OF VERTEX*/ /**/ /*common vcvrtx was here*/ /*------ common blocks -------------------------------------------------*/ extern struct vcvrtx_common { int nvtxvc; float pvtxvc[MAXVX][3]; int iflvvc[MAXVX]; int iparvc[MAXVX]; float timvvc[MAXVX]; } vcvrtx_; #ifndef NO_EXTERN_COMMON_POINTERS extern struct vcvrtx_common *vcvrtx; #endif #ifdef STATIC_COMMON_POINTERS static struct vcvrtx_common *vcvrtx = &vcvrtx_; #endif /*------ data statements -----------------------------------------------*/ #ifndef NO_STATIC_DATA #endif /* #ifndef NO_STATIC_DATA */ /*------ end of fortran header -----------------------------------------*/ #ifdef __cplusplus } #endif #endif /* #ifndef FH2H_VCVRTX_H */