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