xref: /phasta/M2NFixBnd/include/new_interfaceM2NFixBnd.h (revision 595995161822a203c8467e0e4a253d7bd7d6df32) 
1*59599516SKenneth E. Jansen #ifndef __NEW_INTERFACEM2NFIXBND_H__
2*59599516SKenneth E. Jansen #define __NEW_INTERFACEM2NFIXBND_H__
3*59599516SKenneth E. Jansen 
4*59599516SKenneth E. Jansen #include <FCMangle.h>
5*59599516SKenneth E. Jansen #include <mpi.h>
6*59599516SKenneth E. Jansen 
7*59599516SKenneth E. Jansen #define Write_M2NFixBnd   FortranCInterface_GLOBAL_(write_m2nfixbnd,WRITE_M2NFIXBND)
8*59599516SKenneth E. Jansen #define Write_M2NFixBnd_SolOnly FortranCInterface_GLOBAL_(write_m2nfixbnd_solonly,WRITE_M2NFIXBND_SOLONLY)
9*59599516SKenneth E. Jansen #define Write_Restart FortranCInterface_GLOBAL_(write_restart,WRITE_RESTART)
10*59599516SKenneth E. Jansen #define Write_Error   FortranCInterface_GLOBAL_(write_error,WRITE_ERROR)
11*59599516SKenneth E. Jansen #define Write_Displ   FortranCInterface_GLOBAL_(write_displ,WRITE_DISPL)
12*59599516SKenneth E. Jansen #define Write_Field   FortranCInterface_GLOBAL_(write_field,WRITE_FIELD)
13*59599516SKenneth E. Jansen #define Write_PhAvg   FortranCInterface_GLOBAL_(write_phavg,WRITE_PHAVG)
14*59599516SKenneth E. Jansen #define Write_PhAvg2  FortranCInterface_GLOBAL_(write_phavg2,WRITE_PHAVG2)
15*59599516SKenneth E. Jansen #define Write_d2wall  FortranCInterface_GLOBAL_(write_d2wall,WRITE_D2WALL)
16*59599516SKenneth E. Jansen #define read_d2wall   FortranCInterface_GLOBAL_(read_d2wall,READ_D2WALL)
17*59599516SKenneth E. Jansen 
18*59599516SKenneth E. Jansen extern char phasta_iotype[80];
19*59599516SKenneth E. Jansen extern int field_flag;
20*59599516SKenneth E. Jansen extern int f_descriptor;
21*59599516SKenneth E. Jansen 
22*59599516SKenneth E. Jansen void
23*59599516SKenneth E. Jansen Write_M2NFixBnd(int* pid,
24*59599516SKenneth E. Jansen                 int* stepno,
25*59599516SKenneth E. Jansen                 int* nshg,
26*59599516SKenneth E. Jansen                 int* numVars,
27*59599516SKenneth E. Jansen                 int* ndofybar,
28*59599516SKenneth E. Jansen                 int* ndoferrors,
29*59599516SKenneth E. Jansen                 double* array1,
30*59599516SKenneth E. Jansen                 double* array2,
31*59599516SKenneth E. Jansen                 double* array3,
32*59599516SKenneth E. Jansen                 double* array4);
33*59599516SKenneth E. Jansen 
34*59599516SKenneth E. Jansen void
35*59599516SKenneth E. Jansen Write_M2NFixBnd_SolOnly( int* pid,
36*59599516SKenneth E. Jansen                        int* stepno,
37*59599516SKenneth E. Jansen                        int* nshg,
38*59599516SKenneth E. Jansen                        int* numVars,
39*59599516SKenneth E. Jansen                        double* array1 );
40*59599516SKenneth E. Jansen 
41*59599516SKenneth E. Jansen void
42*59599516SKenneth E. Jansen Write_Restart(  int* pid,
43*59599516SKenneth E. Jansen                 int* stepno,
44*59599516SKenneth E. Jansen                 int* nshg,
45*59599516SKenneth E. Jansen                 int* numVars,
46*59599516SKenneth E. Jansen                 double* array1,
47*59599516SKenneth E. Jansen                 double* array2 );
48*59599516SKenneth E. Jansen 
49*59599516SKenneth E. Jansen void
50*59599516SKenneth E. Jansen Write_Error(  int* pid,
51*59599516SKenneth E. Jansen               int* stepno,
52*59599516SKenneth E. Jansen               int* nshg,
53*59599516SKenneth E. Jansen               int* numVars,
54*59599516SKenneth E. Jansen               double* array1 );
55*59599516SKenneth E. Jansen 
56*59599516SKenneth E. Jansen void
57*59599516SKenneth E. Jansen Write_Displ(  int* pid,
58*59599516SKenneth E. Jansen               int* stepno,
59*59599516SKenneth E. Jansen               int* nshg,
60*59599516SKenneth E. Jansen               int* numVars,
61*59599516SKenneth E. Jansen               double* array1 );
62*59599516SKenneth E. Jansen 
63*59599516SKenneth E. Jansen void
64*59599516SKenneth E. Jansen Write_Field(  int *pid,
65*59599516SKenneth E. Jansen               char* filemode,
66*59599516SKenneth E. Jansen               char* fieldtag,
67*59599516SKenneth E. Jansen               int* tagsize,
68*59599516SKenneth E. Jansen               void* array,
69*59599516SKenneth E. Jansen               char* arraytype,
70*59599516SKenneth E. Jansen               int* nshg,
71*59599516SKenneth E. Jansen               int* numvars,
72*59599516SKenneth E. Jansen               int* stepno);
73*59599516SKenneth E. Jansen 
74*59599516SKenneth E. Jansen void
75*59599516SKenneth E. Jansen Write_PhAvg2( int* pid,
76*59599516SKenneth E. Jansen               char* filemode,
77*59599516SKenneth E. Jansen               char* fieldtag,
78*59599516SKenneth E. Jansen               int* tagsize,
79*59599516SKenneth E. Jansen               int* iphase,
80*59599516SKenneth E. Jansen               int* nphasesincycle,
81*59599516SKenneth E. Jansen               void* array,
82*59599516SKenneth E. Jansen               char* arraytype,
83*59599516SKenneth E. Jansen               int* nshg,
84*59599516SKenneth E. Jansen               int* numvars,
85*59599516SKenneth E. Jansen               int* stepno);
86*59599516SKenneth E. Jansen void
87*59599516SKenneth E. Jansen Write_d2wall(   int* pid,
88*59599516SKenneth E. Jansen                 int* numnp,
89*59599516SKenneth E. Jansen                 double* array1 );
90*59599516SKenneth E. Jansen 
91*59599516SKenneth E. Jansen void
92*59599516SKenneth E. Jansen read_d2wall(  int* pid,
93*59599516SKenneth E. Jansen               int* numnp,
94*59599516SKenneth E. Jansen               double* array1,
95*59599516SKenneth E. Jansen               int* foundd2wall );
96*59599516SKenneth E. Jansen 
97*59599516SKenneth E. Jansen 
98*59599516SKenneth E. Jansen #endif //header guard
99