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