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