1*59599516SKenneth E. Jansen #ifndef __NEW_INTERFACEACUSTAT_H__ 2*59599516SKenneth E. Jansen #define __NEW_INTERFACEACUSTAT_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_AcuStat FortranCInterface_GLOBAL_(write_acustat,WRITE_ACUSTAT) 8*59599516SKenneth E. Jansen #define Write_AcuStat2 FortranCInterface_GLOBAL_(write_acustat2,WRITE_ACUSTAT2) 9*59599516SKenneth E. Jansen #define Write_Ybar FortranCInterface_GLOBAL_(write_ybar,WRITE_YBAR) 10*59599516SKenneth E. Jansen #define Write_Restart FortranCInterface_GLOBAL_(write_restart,WRITE_RESTART) 11*59599516SKenneth E. Jansen #define Write_Error FortranCInterface_GLOBAL_(write_error,WRITE_ERROR) 12*59599516SKenneth E. Jansen #define Write_Displ FortranCInterface_GLOBAL_(write_displ,WRITE_DISPL) 13*59599516SKenneth E. Jansen #define Write_Field FortranCInterface_GLOBAL_(write_field,WRITE_FIELD) 14*59599516SKenneth E. Jansen #define Write_PhAvg FortranCInterface_GLOBAL_(write_phavg,WRITE_PHAVG) 15*59599516SKenneth E. Jansen #define Write_PhAvg2 FortranCInterface_GLOBAL_(write_phavg2,WRITE_PHAVG2) 16*59599516SKenneth E. Jansen #define Write_d2wall FortranCInterface_GLOBAL_(write_d2wall,WRITE_D2WALL) 17*59599516SKenneth E. Jansen #define read_d2wall FortranCInterface_GLOBAL_(read_d2wall,READ_D2WALL) 18*59599516SKenneth E. Jansen 19*59599516SKenneth E. Jansen extern char phasta_iotype[80]; 20*59599516SKenneth E. Jansen extern int field_flag; 21*59599516SKenneth E. Jansen extern int f_descriptor; 22*59599516SKenneth E. Jansen 23*59599516SKenneth E. Jansen void 24*59599516SKenneth E. Jansen Write_AcuStat( int* pid, 25*59599516SKenneth E. Jansen int* stepstart, 26*59599516SKenneth E. Jansen int* stepend, 27*59599516SKenneth E. Jansen int* steptot, 28*59599516SKenneth E. Jansen int* nshg, 29*59599516SKenneth E. Jansen int* numVars, 30*59599516SKenneth E. Jansen double* array1 ); 31*59599516SKenneth E. Jansen 32*59599516SKenneth E. Jansen void 33*59599516SKenneth E. Jansen Write_AcuStat2( int* pid, 34*59599516SKenneth E. Jansen int* stepstart, 35*59599516SKenneth E. Jansen int* stepend, 36*59599516SKenneth E. Jansen int* steptot, 37*59599516SKenneth E. Jansen int* nshg, 38*59599516SKenneth E. Jansen int* numVars, 39*59599516SKenneth E. Jansen int* ndoferrors, 40*59599516SKenneth E. Jansen int* ndofybar, 41*59599516SKenneth E. Jansen double* array1, 42*59599516SKenneth E. Jansen double* array2, 43*59599516SKenneth E. Jansen double* array3, 44*59599516SKenneth E. Jansen double* array4 ); 45*59599516SKenneth E. Jansen 46*59599516SKenneth E. Jansen void 47*59599516SKenneth E. Jansen Write_Ybar( int* pid, 48*59599516SKenneth E. Jansen int* stepstart, 49*59599516SKenneth E. Jansen int* stepend, 50*59599516SKenneth E. Jansen int* steptot, 51*59599516SKenneth E. Jansen int* nshg, 52*59599516SKenneth E. Jansen int* numVars, 53*59599516SKenneth E. Jansen double* array1); 54*59599516SKenneth E. Jansen 55*59599516SKenneth E. Jansen void 56*59599516SKenneth E. Jansen Write_Restart( int* pid, 57*59599516SKenneth E. Jansen int* stepno, 58*59599516SKenneth E. Jansen int* nshg, 59*59599516SKenneth E. Jansen int* numVars, 60*59599516SKenneth E. Jansen double* array1, 61*59599516SKenneth E. Jansen double* array2 ); 62*59599516SKenneth E. Jansen 63*59599516SKenneth E. Jansen void 64*59599516SKenneth E. Jansen Write_Error( int* pid, 65*59599516SKenneth E. Jansen int* stepno, 66*59599516SKenneth E. Jansen int* nshg, 67*59599516SKenneth E. Jansen int* numVars, 68*59599516SKenneth E. Jansen double* array1 ); 69*59599516SKenneth E. Jansen 70*59599516SKenneth E. Jansen void 71*59599516SKenneth E. Jansen Write_Displ( int* pid, 72*59599516SKenneth E. Jansen int* stepno, 73*59599516SKenneth E. Jansen int* nshg, 74*59599516SKenneth E. Jansen int* numVars, 75*59599516SKenneth E. Jansen double* array1 ); 76*59599516SKenneth E. Jansen 77*59599516SKenneth E. Jansen void 78*59599516SKenneth E. Jansen Write_Field( int *pid, 79*59599516SKenneth E. Jansen char* filemode, 80*59599516SKenneth E. Jansen char* fieldtag, 81*59599516SKenneth E. Jansen int* tagsize, 82*59599516SKenneth E. Jansen void* array, 83*59599516SKenneth E. Jansen char* arraytype, 84*59599516SKenneth E. Jansen int* nshg, 85*59599516SKenneth E. Jansen int* numvars, 86*59599516SKenneth E. Jansen int* stepno); 87*59599516SKenneth E. Jansen 88*59599516SKenneth E. Jansen void 89*59599516SKenneth E. Jansen Write_PhAvg2( int* pid, 90*59599516SKenneth E. Jansen char* filemode, 91*59599516SKenneth E. Jansen char* fieldtag, 92*59599516SKenneth E. Jansen int* tagsize, 93*59599516SKenneth E. Jansen int* iphase, 94*59599516SKenneth E. Jansen int* nphasesincycle, 95*59599516SKenneth E. Jansen void* array, 96*59599516SKenneth E. Jansen char* arraytype, 97*59599516SKenneth E. Jansen int* nshg, 98*59599516SKenneth E. Jansen int* numvars, 99*59599516SKenneth E. Jansen int* stepno); 100*59599516SKenneth E. Jansen void 101*59599516SKenneth E. Jansen Write_d2wall( int* pid, 102*59599516SKenneth E. Jansen int* numnp, 103*59599516SKenneth E. Jansen double* array1 ); 104*59599516SKenneth E. Jansen 105*59599516SKenneth E. Jansen void 106*59599516SKenneth E. Jansen read_d2wall( int* pid, 107*59599516SKenneth E. Jansen int* numnp, 108*59599516SKenneth E. Jansen double* array1, 109*59599516SKenneth E. Jansen int* foundd2wall ); 110*59599516SKenneth E. Jansen 111*59599516SKenneth E. Jansen 112*59599516SKenneth E. Jansen #endif //header guard 113