1 #ifndef PHSOLVER_PHIO_H 2 #define PHSOLVER_PHIO_H 3 4 #include <FCMangle.h> 5 6 #define phio_readheader FortranCInterface_GLOBAL_(phio_readheader, PHIO_READHEADER) 7 #define phio_readdatablock FortranCInterface_GLOBAL_(phio_readdatablock, PHIO_READDATABLOCK) 8 #define phio_openfile_read FortranCInterface_GLOBAL_(phio_openfile_read, PHIO_OPENFILE_READ) 9 #define phio_openfile_write FortranCInterface_GLOBAL_(phio_openfile_write, PHIO_OPENFILE_WRITE) 10 #define phio_restartname FortranCInterface_GLOBAL_(phio_restartname, PHIO_RESTARTNAME) 11 #define phio_closefile_read FortranCInterface_GLOBAL_(phio_closefile_read, PHIO_CLOSEFILE_READ) 12 #define phio_closefile_write FortranCInterface_GLOBAL_(phio_closefile_write, PHIO_CLOSEFILE_WRITE) 13 14 #ifdef __cplusplus 15 extern "C" { 16 #endif 17 void phio_readheader( 18 int* fileDescriptor, 19 const char keyphrase[], 20 void* valueArray, 21 int* nItems, 22 const char datatype[], 23 const char iotype[] ); 24 void phio_readdatablock( 25 int* fileDescriptor, 26 const char keyphrase[], 27 void* valueArray, 28 int* nItems, 29 const char datatype[], 30 const char iotype[] ); 31 void phio_openfile_read( 32 const char filename[], 33 int* numFiles, 34 int* fileDescriptor); 35 void phio_openfile_write( 36 const char filename[], 37 int* numFiles, 38 int* numFields, 39 int* numPPF, 40 int* fileDescriptor); 41 void phio_restartname(int* step, char* filename); 42 void phio_closefile_read(int* fileDescriptor); 43 void phio_closefile_write(int* fileDescriptor); 44 #ifdef __cplusplus 45 } 46 #endif 47 48 #endif 49 50