/* * 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_EFOMEGA_H #define FH2H_EFOMEGA_H #ifdef __cplusplus extern "C" { #endif #ifndef IMPLICIT #define IMPLICIT /* Only to point out implicit types */ #endif /*------ fortran header (without commons and data statements) ----------*/ #ifndef EFOMEGA_INCLUDED /*common omegaout was here*/ #define EFOMEGA_INCLUDED #endif /*------ common blocks -------------------------------------------------*/ extern struct omegaout_common { int nomegatl; int ipintomega[50]; float pintomega[50][3]; float xintomega[50][3]; int ipioriomega[50]; int loopomega; } omegaout_; #ifndef NO_EXTERN_COMMON_POINTERS extern struct omegaout_common *omegaout; #endif #ifdef STATIC_COMMON_POINTERS static struct omegaout_common *omegaout = &omegaout_; #endif /*------ data statements -----------------------------------------------*/ #ifndef NO_STATIC_DATA #endif /* #ifndef NO_STATIC_DATA */ /*------ end of fortran header -----------------------------------------*/ #ifdef __cplusplus } #endif #endif /* #ifndef FH2H_EFOMEGA_H */