diff options
author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-07-16 13:59:21 (GMT) |
---|---|---|
committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-07-16 13:59:21 (GMT) |
commit | 53b3d666e5069ff65db1f739b7f0eb3634032b58 (patch) | |
tree | 9ed01a92126832c2581bc143c34e7f6e2ed41ef0 /fortran | |
parent | 08244fb237c774129fe6b17e9021a8447fe8797b (diff) | |
download | hdf5-53b3d666e5069ff65db1f739b7f0eb3634032b58.zip hdf5-53b3d666e5069ff65db1f739b7f0eb3634032b58.tar.gz hdf5-53b3d666e5069ff65db1f739b7f0eb3634032b58.tar.bz2 |
[svn-r27399] code clean-up
Diffstat (limited to 'fortran')
-rw-r--r-- | fortran/src/H5_buildiface.F90 | 6 | ||||
-rw-r--r-- | fortran/src/H5_f.c | 4 | ||||
-rw-r--r-- | fortran/src/Makefile.am | 20 |
3 files changed, 7 insertions, 23 deletions
diff --git a/fortran/src/H5_buildiface.F90 b/fortran/src/H5_buildiface.F90 index 83d5009..9a42cbf 100644 --- a/fortran/src/H5_buildiface.F90 +++ b/fortran/src/H5_buildiface.F90 @@ -48,14 +48,14 @@ #include <H5config_f.inc> -PROGRAM test_kind +PROGRAM H5_buildiface USE, INTRINSIC :: ISO_C_BINDING IMPLICIT NONE ! These values are valid REAL KINDs (with corresponding C float) found during configure H5_H5CONFIG_F_NUM_RKIND H5_H5CONFIG_F_RKIND -! These values are valid INTEGER KINDs (with corresponding C float) found during configure +! These values are valid INTEGER KINDs (with corresponding C integer) found during configure H5_H5CONFIG_F_NUM_IKIND H5_H5CONFIG_F_IKIND @@ -1018,7 +1018,7 @@ PROGRAM test_kind CLOSE(11) -END PROGRAM test_kind +END PROGRAM H5_buildiface diff --git a/fortran/src/H5_f.c b/fortran/src/H5_f.c index 90edfa7..e527dce 100644 --- a/fortran/src/H5_f.c +++ b/fortran/src/H5_f.c @@ -284,8 +284,6 @@ h5init_types_c( hid_t_f * types, hid_t_f * floatingtypes, hid_t_f * integertypes if ( H5Tset_precision (types[17], 128) < 0) return ret_value; #endif - -/* #ifdef -MSB- */ /* * FIND H5T_NATIVE_FLOAT_128 */ @@ -758,7 +756,7 @@ h5init_flags_c( int_f *h5d_flags, size_t_f *h5d_size_flags, /* - * H5 Generic flags introduced in version 1.8 -MSB- + * H5 Generic flags introduced in version 1.8 */ /* H5_index_t enum struct */ diff --git a/fortran/src/Makefile.am b/fortran/src/Makefile.am index 3333ae6..734f46e 100644 --- a/fortran/src/Makefile.am +++ b/fortran/src/Makefile.am @@ -106,9 +106,8 @@ endif # programs. # It's a bit tricky to make sure that Automake builds things in the right # order (especially when using 'gmake -j ...') -# H5_buildiface is compiled and run to produce H5KIND***. -# H5fortran_detect is compiled and run to produce H5fort_type_defines.h. -# H5match_types.c then includes this file and can be compiled into +# H5_buildiface is compiled and run to produce H5_gen.F90. +# H5match_types.c then includes H5fort_type_defines.h and can be compiled into # H5match_types. When H5match_types is run, it creates H5f90i_gen.h # and H5fortran_types.F90, which are included in the Fortran library. @@ -126,17 +125,6 @@ BUILT_SOURCES = H5f90i_gen.h H5fortran_types.F90 H5f90i_gen.h: H5match_types$(EXEEXT) $(RUNSERIAL) ./H5match_types$(EXEEXT) -# H5fort_type_defines.h is created by running H5fortran_detect. -# Obviously, H5fortran_detect needs to be built first. -#H5fort_type_defines.h: H5fortran_detect$(EXEEXT) -# $(RUNSERIAL) ./H5fortran_detect$(EXEEXT) > H5fort_type_defines.h - -#H5match_types.$(OBJEXT): H5fort_type_defines.h - -# Automake knows how to build fortran programs if we tell it the source -# files. -#H5fortran_detect_SOURCES = H5fortran_detect.F90 - # H5_buildiface.F90 generates all the APIs that have a KIND type associated # with them. @@ -156,9 +144,7 @@ FORTRAN_API=yes # doing a parallel make, some modules could be made way before the # modules they depend upon are actually made. *sigh* H5f90global.lo: $(srcdir)/H5f90global.F90 H5fortran_types.lo -#H5fortran_types.lo: H5fortran_types.F90 -#H5fortran_detect.lo: H5fortran_detect.F90 -H5_buildiface.lo: $(srcdir)/H5_buildiface.F90 +H5_buildiface.lo: $(srcdir)/H5_buildiface.F90 H5_ff.lo: $(srcdir)/H5_ff.F90 H5f90global.lo H5Aff.lo: $(srcdir)/H5Aff.F90 H5f90global.lo H5Dff.lo: $(srcdir)/H5Dff.F90 H5f90global.lo |