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