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_writeheader FortranCInterface_GLOBAL_(phio_writeheader, PHIO_WRITEHEADER) 8 #define phio_readdatablock FortranCInterface_GLOBAL_(phio_readdatablock, PHIO_READDATABLOCK) 9 #define phio_openfile_read FortranCInterface_GLOBAL_(phio_openfile_read, PHIO_OPENFILE_READ) 10 #define phio_openfile_write FortranCInterface_GLOBAL_(phio_openfile_write, PHIO_OPENFILE_WRITE) 11 #define phio_restartname FortranCInterface_GLOBAL_(phio_restartname, PHIO_RESTARTNAME) 12 #define phio_closefile_read FortranCInterface_GLOBAL_(phio_closefile_read, PHIO_CLOSEFILE_READ) 13 #define phio_closefile_write FortranCInterface_GLOBAL_(phio_closefile_write, PHIO_CLOSEFILE_WRITE) 14 15 #ifdef __cplusplus 16 extern "C" { 17 #endif 18 void phio_readheader( 19 int* fileDescriptor, 20 const char keyphrase[], 21 void* valueArray, 22 int* nItems, 23 const char datatype[], 24 const char iotype[] ); 25 void phio_writeheader( 26 const int* fileDescriptor, 27 const char keyphrase[], 28 const void* valueArray, 29 const int* nItems, 30 const int* ndataItems, 31 const char datatype[], 32 const char iotype[] ); 33 void phio_readdatablock( 34 int* fileDescriptor, 35 const char keyphrase[], 36 void* valueArray, 37 int* nItems, 38 const char datatype[], 39 const char iotype[] ); 40 void phio_openfile_read( 41 const char filename[], 42 int* numFiles, 43 int* fileDescriptor); 44 void phio_openfile_write( 45 const char filename[], 46 int* numFiles, 47 int* numFields, 48 int* numPPF, 49 int* fileDescriptor); 50 void phio_restartname(int* step, char* filename); 51 void phio_closefile_read(int* fileDescriptor); 52 void phio_closefile_write(int* fileDescriptor); 53 #ifdef __cplusplus 54 } 55 #endif 56 57 #endif 58 59