diff options
| -rw-r--r-- | fortran/src/H5match_types.c | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/fortran/src/H5match_types.c b/fortran/src/H5match_types.c index 1e0c5dc..034ff72 100644 --- a/fortran/src/H5match_types.c +++ b/fortran/src/H5match_types.c @@ -136,10 +136,6 @@ void writeFloatToFiles(const char* fortran_type, const char* c_type, unsigned in int main() { - /* Open target files */ - c_header = fopen(CFILE, "w"); - fort_header = fopen(FFILE, "w"); - int FoundIntSize[4]; int FoundRealSize[4]; int i,j,flag; @@ -147,6 +143,11 @@ int main() int H5_C_HAS_REAL_NATIVE_16; int H5_C_HAS_REAL_NATIVE_12; + /* Open target files */ + c_header = fopen(CFILE, "w"); + fort_header = fopen(FFILE, "w"); + + /* Default is C has 16 byte float */ H5_C_HAS_REAL_NATIVE_16 = 1; /* Default is C has 12 byte float */ |