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 #define Write_PhAvg FortranCInterface_GLOBAL_(write_phavg,WRITE_PHAVG) 17 #define Write_PhAvg2 FortranCInterface_GLOBAL_(write_phavg2,WRITE_PHAVG2) 18 #define read_d2wall FortranCInterface_GLOBAL_(read_d2wall,READ_D2WALL) 19 20 extern char phasta_iotype[80]; 21 extern int field_flag; 22 extern phio_fp f_descriptor; 23 24 void igetMinMaxAvg(int *ivalue, double *stats, int *statRanks); 25 void rgetMinMaxAvg(double *value, double *stats, int *statRanks); 26 void print_mesh_stats(void); 27 void print_mpi_stats(void); 28 void print_system_stats(double *tcorecp, double *tcorecpscal); 29 30 void countfieldstowriterestart(); 31 void 32 Write_Restart( int* pid, 33 int* stepno, 34 int* nshg, 35 int* numVars, 36 double* array1, 37 double* array2 ); 38 39 void 40 Write_Error( int* pid, 41 int* stepno, 42 int* nshg, 43 int* numVars, 44 double* array1 ); 45 46 void 47 Write_Displ( int* pid, 48 int* stepno, 49 int* nshg, 50 int* numVars, 51 double* array1 ); 52 void 53 Write_Field( int *pid, 54 char* filemode, 55 char* fieldtag, 56 int* tagsize, 57 void* array, 58 char* arraytype, 59 int* nshg, 60 int* numvars, 61 int* stepno); 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 99