#ifdef LC_NOUNSC #define INFO info #elif LC_UNSC #define INFO info_ #endif /// Struct that gives C++ access to FORTRAN common block "info" defined in info.inc struct INFO { char old_run_name[2048]; char old_runinfo[2048]; char old_go[2048]; char old_rings[2048]; char old_sw[2048]; char old_const[2048]; char old_ion[2048]; char new_run_name[2048]; char new_runinfo[2048]; char new_go[2048]; char new_rings[2048]; char new_sw[2048]; char new_const[2048]; char new_ion[2048]; }; #define OLD_RUN_NAME INFO.old_run_name #define OLD_RUNINFO INFO.old_runinfo #define OLD_GO INFO.old_go #define OLD_RINGS INFO.old_rings #define OLD_SW INFO.old_sw #define OLD_CONST INFO.old_const #define OLD_ION INFO.old_ion #define NEW_RUN_NAME INFO.new_run_name #define NEW_RUNINFO INFO.new_runinfo #define NEW_GO INFO.new_go #define NEW_RINGS INFO.new_rings #define NEW_SW INFO.new_sw #define NEW_CONST INFO.new_const #define NEW_ION INFO.new_ion