diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-07-09 21:56:59 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-07-09 21:56:59 (GMT) |
| commit | b7dc32b0a0685fcd441a46a817b46621b194333d (patch) | |
| tree | 49bdc95d727c2e39056ad5c0884e424e85d18656 /fortran/src/H5_buildiface.F90 | |
| parent | f71a46a99ca6ab3e5115972b5479f21911c68b50 (diff) | |
| download | hdf5-b7dc32b0a0685fcd441a46a817b46621b194333d.zip hdf5-b7dc32b0a0685fcd441a46a817b46621b194333d.tar.gz hdf5-b7dc32b0a0685fcd441a46a817b46621b194333d.tar.bz2 | |
[svn-r27368] misc. code clean-up
Diffstat (limited to 'fortran/src/H5_buildiface.F90')
| -rw-r--r-- | fortran/src/H5_buildiface.F90 | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/fortran/src/H5_buildiface.F90 b/fortran/src/H5_buildiface.F90 index 4f7f965..7de9760 100644 --- a/fortran/src/H5_buildiface.F90 +++ b/fortran/src/H5_buildiface.F90 @@ -102,12 +102,12 @@ PROGRAM test_kind ! new APIs to handle those use cases. Handling rank 7 and less is for backward compatibility ! with the Fortran 90/95 APIs codes which could never handle rank 15 array sizes. - OPEN(11,FILE='H5_KINDff.F90') + OPEN(11,FILE='H5_gen.F90') WRITE(11,'(40(A,/))') & -'!****h* ROBODoc/H5_KINDff.F90',& +'!****h* ROBODoc/H5_gen.F90',& '!',& '! NAME',& -'! H5_KIND',& +'! H5_gen',& '! ',& '! PURPOSE',& '! This module is generated at build by H5_buildiface.F90 to handle all the',& @@ -134,7 +134,7 @@ PROGRAM test_kind '!',& '!*****' - WRITE(11,'(a)') "MODULE H5_KIND" + WRITE(11,'(a)') "MODULE H5_GEN" WRITE(11,'(A)') ' USE, INTRINSIC :: ISO_C_BINDING' WRITE(11,'(A)') ' USE H5GLOBAL' @@ -545,7 +545,7 @@ PROGRAM test_kind WRITE(11,'(A)') ' END SUBROUTINE h5pinsert_kind_'//TRIM(ADJUSTL(chr2)) ENDDO - WRITE(11,'(A)') 'END MODULE H5_KIND' + WRITE(11,'(A)') 'END MODULE H5_gen' CLOSE(11) |