diff options
Diffstat (limited to 'fortran/src/H5match_types.c')
-rw-r--r-- | fortran/src/H5match_types.c | 132 |
1 files changed, 6 insertions, 126 deletions
diff --git a/fortran/src/H5match_types.c b/fortran/src/H5match_types.c index 360f224..37509a0 100644 --- a/fortran/src/H5match_types.c +++ b/fortran/src/H5match_types.c @@ -244,18 +244,6 @@ int main(void) } # endif #endif -/* else { */ - /* /\* Did not find the real type, use the next smallest *\/ */ -/* sprintf(chrA, "%d", RealKinds[i]); */ -/* if(sizeof(float) > RealKinds_SizeOf[H5_FORTRAN_NUM_REAL_KINDS-2]) { */ -/* writeTypedef("float", "float", RealKinds[i]); */ -/* strcpy(Real_C_TYPES[i], chrA); */ -/* } else if(sizeof(double) > RealKinds_SizeOf[H5_FORTRAN_NUM_REAL_KINDS-2]) { */ -/* writeTypedef("float", "double", RealKinds[i]); */ -/* strcpy(Real_C_TYPES[i], chrA); */ -/* } else if(sizeof(long double) > RealKinds_SizeOf[H5_FORTRAN_NUM_REAL_KINDS-2]) { */ -/* writeTypedef("float", "long double", RealKinds[i]); */ -/* strcpy(Real_C_TYPES[i], "C_LONG_DOUBLE"); } */ else { printf("\n **** HDF5 WARNING ****\n"); printf("Fortran REAL(KIND=%d) is %d Bytes, but no corresponding C float type exists of that size\n",RealKinds[i],RealKinds_SizeOf[i]); @@ -263,8 +251,6 @@ int main(void) RealKinds_SizeOf[i] = -1; RealKinds[i] = -1; -/* writeTypedef("float", "long double", RealKinds[i]); */ -/* strcpy(Real_C_TYPES[i], "C_LONG_DOUBLE"); } */ } } @@ -328,8 +314,6 @@ int main(void) /* int */ writeToFiles("int","Fortran_INTEGER", "int_f", H5_FORTRAN_NATIVE_INTEGER_SIZEOF, H5_FORTRAN_NATIVE_INTEGER_KIND); - - /* int_1, int_2, int_4, int_8 */ @@ -409,62 +393,11 @@ int main(void) FoundRealSize[i] = (int)RealKinds[i]; FoundRealSizeKind[i] = (int)RealKinds_SizeOf[i]; sprintf(chrA, "Fortran_REAL_%s", Real_C_TYPES[i]); - /* sprintf(chrB, "real_%d_f", FoundRealSize[i]); */ sprintf(chrB, "real_%s_f", Real_C_TYPES[i]); writeToFiles("float",chrA, chrB, RealKinds[i], RealKinds_SizeOf[i]); } } -/* for(i=0;i<H5_FORTRAN_NUM_REAL_KINDS;i++) { */ -/* if( FoundRealSize[i] > 0) /\* Found the real type *\/ */ -/* { */ -/* sprintf(chrA, "Fortran_REAL_%d", Real_C_TYPES[i]); */ -/* sprintf(chrB, "real_%d_f", FoundRealSize[i]); */ -/* writeToFiles("float",chrA, chrB, FoundRealSize[i], FoundRealSizeKind[i]); */ -/* } */ -/* else /\* Did not find the real type *\/ */ -/* { */ -/* flag = 0; /\* flag indicating if found the next highest *\/ */ -/* for(j=i+1;j<3;j++) /\* search for next highest *\/ */ -/* { */ -/* if( FoundRealSize[j] > 0) /\* Found the next highest *\/ */ -/* { */ -/* sprintf(chrA, "Fortran_REAL_%d", (-1)*FoundRealSize[i]); */ -/* sprintf(chrB, "real_%d_f", (-1)*FoundRealSize[i]); */ -/* if(FoundRealSize[j]>4) { */ -/* writeToFiles("float",chrA, chrB, FoundRealSize[j], FoundRealSizeKind[j]); */ -/* flag = 1; */ -/* } */ -/* /\* else { *\/ */ -/* /\* writeToFiles("float", chrA, chrB, FoundRealSize[j]); *\/ */ -/* /\* } *\/ */ -/* flag = 1; */ -/* break; */ -/* } */ -/* } */ -/* if(flag == 0) /\* No higher one found, so find next lowest *\/ */ -/* { */ -/* for(j=1;j>-1;j--) /\* Search for next lowest *\/ */ -/* { */ -/* if( FoundRealSize[j] > 0) /\* Found the next lowest *\/ */ -/* { */ -/* sprintf(chrA, "Fortran_REAL_%d", (-1)*FoundRealSize[i]); */ -/* sprintf(chrB, "real_%d_f", (-1)*FoundRealSize[i]); */ -/* if(FoundRealSize[j]>4) */ -/* writeToFiles("float",chrA, chrB, FoundRealSize[j], FoundRealSizeKind[j]); */ -/* /\* else { *\/ */ -/* /\* writeToFiles("float", chrA, chrB, FoundRealSize[j]); *\/ */ -/* /\* } *\/ */ -/* flag = 1; */ -/* break; */ -/* } */ -/* } */ -/* } */ -/* if(flag == 0) /\* No higher or lower one found, indicating an error *\/ */ -/* return -1; */ -/* } */ -/* } */ - /* hid_t */ for(i=0;i< H5_FORTRAN_NUM_INTEGER_KINDS;i++) { if(IntKinds_SizeOf[i] == H5_SIZEOF_HID_T) { @@ -491,9 +424,11 @@ int main(void) writeToFilesChr("float","Fortran_REAL", "real_f", H5_FORTRAN_NATIVE_REAL_KIND, "C_DOUBLE"); else if(H5_FORTRAN_NATIVE_REAL_SIZEOF > sizeof(float)) writeToFilesChr("float","Fortran_REAL", "real_f", H5_FORTRAN_NATIVE_REAL_KIND, "C_FLOAT"); - else + else { /* Error: couldn't find a size for real_f */ + printf("Error: couldn't find a size for real_f \n"); return -1; + } } /* double_f */ @@ -514,66 +449,11 @@ int main(void) } #endif else { -/* /\* No exact match, choose the next highest *\/ */ -/* if(H5_FORTRAN_NATIVE_DOUBLE_SIZEOF > sizeof(long double)) */ -/* writeToFilesChr("float","Fortran_DOUBLE", "double_f", H5_FORTRAN_NATIVE_DOUBLE_KIND, "C_LONG_DOUBLE"); */ -/* else if(H5_FORTRAN_NATIVE_DOUBLE_SIZEOF > sizeof(double)) */ -/* writeToFilesChr("float","Fortran_DOUBLE", "double_f", sizeof(double), "C_DOUBLE"); */ -/* else if(H5_FORTRAN_NATIVE_DOUBLE_SIZEOF > sizeof(float)) */ -/* writeToFilesChr("float","Fortran_DOUBLE", "double_f", sizeof(float), "C_FLOAT"); */ -/* else */ - /* Error: couldn't find a size for double_f */ -/* printf("Error: couldn't find a size for double_f \n"); */ -/* return -1; */ + /* Error: couldn't find a size for double_f */ + printf("Error: couldn't find a size for double_f \n"); + return -1; } - - -/* /\* double_f *\/ */ -/* if(H5_FORTRAN_NATIVE_DOUBLE_SIZEOF == C_LONG_DOUBLE_SIZEOF) */ -/* writeToFilesChr("float","Fortran_DOUBLE", "double_f", H5_FORTRAN_NATIVE_DOUBLE_SIZEOF, "C_LONG_DOUBLE"); */ -/* else if(H5_FORTRAN_NATIVE_DOUBLE_SIZEOF == C_DOUBLE_SIZEOF) */ -/* writeToFilesChr("float","Fortran_DOUBLE", "double_f", H5_FORTRAN_NATIVE_DOUBLE_SIZEOF, "C_DOUBLE"); */ -/* else if(H5_FORTRAN_NATIVE_DOUBLE_SIZEOF == C_FLOAT_SIZEOF) */ -/* writeToFilesChr("float","Fortran_DOUBLE", "double_f", H5_FORTRAN_NATIVE_DOUBLE_SIZEOF, "C_FLOAT"); */ -/* else */ -/* /\* Error: couldn't find a size for double_f *\/ */ -/* return -1; */ - -/* writeToFiles("float","Fortran_DOUBLE", "double_f", H5_FORTRAN_NATIVE_DOUBLE_SIZEOF, H5_FORTRAN_NATIVE_DOUBLE_KIND); */ - -/* #elif defined H5_FORTRAN_HAS_DOUBLE_NATIVE_8_KIND */ -/* writeToFilesChr("float", "Fortran_DOUBLE", "double_f", 8, "C_DOUBLE"); */ -/* #else */ -/* /\* Error: couldn't find a size for real_f *\/ */ -/* return -1; */ -/* #endif */ - -/* /\* real_f *\/ */ -/* if(sizeof(float) == C_LONG_DOUBLE_SIZEOF) { */ -/* writeToFilesChr("float","Fortran_REAL", "real_f", (int)sizeof(float), "C_LONG_DOUBLE"); */ -/* } else if(sizeof(float) == C_DOUBLE_SIZEOF) { */ -/* writeToFilesChr("float","Fortran_REAL", "real_f", (int)sizeof(float), "C_DOUBLE"); */ -/* } else if(sizeof(float) == C_FLOAT_SIZEOF) { */ -/* writeToFilesChr("float","Fortran_REAL", "real_f", (int)sizeof(float), "C_FLOAT"); */ -/* } else { */ -/* /\* Error: couldn't find a size for real_f *\/ */ -/* return -1; */ -/* } */ - -/* /\* double_f *\/ */ -/* if(sizeof(double) == C_LONG_DOUBLE_SIZEOF) { */ -/* writeToFilesChr("float","Fortran_DOUBLE", "double_f", (int)sizeof(double), "C_LONG_DOUBLE"); */ -/* } else if(sizeof(double) == C_DOUBLE_SIZEOF) { */ -/* writeToFilesChr("float","Fortran_DOUBLE", "double_f", (int)sizeof(double), "C_DOUBLE"); */ -/* } else if(sizeof(double) == C_FLOAT_SIZEOF) { */ -/* writeToFilesChr("float","Fortran_DOUBLE", "double_f", (int)sizeof(double), "C_FLOAT"); */ -/* } else { */ -/* /\* Error: couldn't find a size for double_f *\/ */ -/* return -1; */ -/* } */ - - /* Need the buffer size for the fortran derive type 'hdset_reg_ref_t_f03' * in order to be interoperable with C's structure, the C buffer size * H5R_DSET_REG_REF_BUF_SIZE is (sizeof(haddr_t)+4) |