xref: /phasta/phSolver/common/phIO.h (revision 66a3fa2cf7e805954547589463a2a908fd97bfd3)
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_writedatablock FortranCInterface_GLOBAL_(phio_writedatablock, PHIO_WRITEDATABLOCK)
10 #define phio_openfile_read FortranCInterface_GLOBAL_(phio_openfile_read, PHIO_OPENFILE_READ)
11 #define phio_openfile_write FortranCInterface_GLOBAL_(phio_openfile_write, PHIO_OPENFILE_WRITE)
12 #define phio_restartname FortranCInterface_GLOBAL_(phio_restartname, PHIO_RESTARTNAME)
13 #define phio_closefile_read FortranCInterface_GLOBAL_(phio_closefile_read, PHIO_CLOSEFILE_READ)
14 #define phio_closefile_write FortranCInterface_GLOBAL_(phio_closefile_write, PHIO_CLOSEFILE_WRITE)
15 
16 #ifdef __cplusplus
17 extern "C" {
18 #endif
19   void phio_readheader(
20       int* fileDescriptor,
21       const  char keyphrase[],
22       void* valueArray,
23       int*  nItems,
24       const char  datatype[],
25       const char  iotype[] );
26   void phio_writeheader(
27       const int* fileDescriptor,
28       const char keyphrase[],
29       const void* valueArray,
30       const int* nItems,
31       const int* ndataItems,
32       const char datatype[],
33       const char iotype[] );
34   void phio_readdatablock(
35       int* fileDescriptor,
36       const  char keyphrase[],
37       void* valueArray,
38       int*  nItems,
39       const char  datatype[],
40       const char  iotype[] );
41   void phio_writedatablock(
42       const int* fileDescriptor,
43       const char keyphrase[],
44       const void* valueArray,
45       const int* nItems,
46       const char datatype[],
47       const char iotype[]);
48   void phio_openfile_read(
49       const char filename[],
50       int* numFiles,
51       int* fileDescriptor);
52   void phio_openfile_write(
53       const char filename[],
54       int* numFiles,
55       int* numFields,
56       int* numPPF,
57       int* fileDescriptor);
58   void phio_restartname(int* step, char* filename);
59   void phio_closefile_read(int* fileDescriptor);
60   void phio_closefile_write(int* fileDescriptor);
61 #ifdef __cplusplus
62 }
63 #endif
64 
65 #endif
66 
67