#include <stdlib.h> #include "parlib.h" #include "FC.h" // ParLib v1.8 initialization // -------------------------------------------------------------------------- // #ifdef FORTRANUNDERSCORE void parlib_init_() #elif defined(FORTRANDOUBLEUNDERSCORE) void parlib_init__() #else void FC_GLOBAL(parlib_init,parlib_init)() //parlib_init() #endif { ParLib_init(); } #ifdef FORTRANUNDERSCORE void parlib_deinit_() #elif defined(FORTRANDOUBLEUNDERSCORE) void parlib_deinit__() #else void FC_GLOBAL(parlib_deinit,parlib_deinit)()//parlib_deinit() #endif { ParLib_deinit(); } // -------------------------------------------------------------------------- //