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