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 //MR CHANGE END 20 #define read_d2wall FortranCInterface_GLOBAL_(read_d2wall,READ_D2WALL) 21 22 extern char phasta_iotype[80]; 23 extern int field_flag; 24 extern phio_fp f_descriptor; 25 26 void igetMinMaxAvg(int *ivalue, double *stats, int *statRanks); 27 void rgetMinMaxAvg(double *value, double *stats, int *statRanks); 28 void print_mesh_stats(void); 29 void print_mpi_stats(void); 30 void print_system_stats(double *tcorecp, double *tcorecpscal); 31 32 void countfieldstowriterestart(); 33 void 34 Write_Restart( int* pid, 35 int* stepno, 36 int* nshg, 37 int* numVars, 38 double* array1, 39 double* array2 ); 40 41 void 42 Write_Error( int* pid, 43 int* stepno, 44 int* nshg, 45 int* numVars, 46 double* array1 ); 47 48 void 49 Write_Displ( int* pid, 50 int* stepno, 51 int* nshg, 52 int* numVars, 53 double* array1 ); 54 void 55 Write_Field( int *pid, 56 char* filemode, 57 char* fieldtag, 58 int* tagsize, 59 void* array, 60 char* arraytype, 61 int* nshg, 62 int* numvars, 63 int* stepno); 64 65 void 66 Write_Field( int *pid, 67 char* filemode, 68 char* fieldtag, 69 int* tagsize, 70 void* array, 71 char* arraytype, 72 int* nshg, 73 int* numvars, 74 int* stepno); 75 76 void 77 Write_PhAvg2( int* pid, 78 char* filemode, 79 char* fieldtag, 80 int* tagsize, 81 int* iphase, 82 int* nphasesincycle, 83 void* array, 84 char* arraytype, 85 int* nshg, 86 int* numvars, 87 int* stepno); 88 void 89 Write_d2wall( int* pid, 90 int* numnp, 91 double* array1 ); 92 93 void 94 read_d2wall( int* pid, 95 int* numnp, 96 double* array1, 97 int* foundd2wall ); 98 99 100 #endif //header guard 101