From fee129b9c2ad2b841ebe26294cf1b27182d24d17 Mon Sep 17 00:00:00 2001 From: Scot Breitenfeld Date: Thu, 15 Apr 2010 09:49:08 -0500 Subject: [svn-r18557] Description: Merged Fortran changes from the trunk into the branch svn merge -r 18098:18556 https://svn.hdfgroup.uiuc.edu/hdf5/trunk/fortran Tested: jam (intel) --- fortran/src/H5Fff.f90 | 4 ++-- fortran/src/H5Tff.f90 | 17 +++++++++++------ fortran/src/Makefile.am | 4 ++++ fortran/src/Makefile.in | 4 ++++ fortran/test/tH5R.f90 | 2 ++ fortran/test/tH5Sselect.f90 | 1 + 6 files changed, 24 insertions(+), 8 deletions(-) diff --git a/fortran/src/H5Fff.f90 b/fortran/src/H5Fff.f90 index a1ebe58..dcd6ff6 100644 --- a/fortran/src/H5Fff.f90 +++ b/fortran/src/H5Fff.f90 @@ -89,8 +89,8 @@ creation_prp_default = H5P_DEFAULT_F access_prp_default = H5P_DEFAULT_F - IF (PRESENT(creation_prp)) creation_prp_default = creation_prp - IF (PRESENT(access_prp)) access_prp_default = access_prp + if (present(creation_prp)) creation_prp_default = creation_prp + if (present(access_prp)) access_prp_default = access_prp namelen = LEN_TRIM(name) hdferr = h5fcreate_c(name, namelen, access_flags, & diff --git a/fortran/src/H5Tff.f90 b/fortran/src/H5Tff.f90 index 82220c7..c6c96d0 100644 --- a/fortran/src/H5Tff.f90 +++ b/fortran/src/H5Tff.f90 @@ -1510,8 +1510,9 @@ CONTAINS ! type_id - datatype identifier ! Outputs: ! cset - character set type of a string datatype -! Possible values of padding type are: +! Possible values are: ! H5T_CSET_ASCII_F = 0 +! H5T_CSET_UTF8_F ! hdferr: - error code ! Success: 0 ! Failure: -1 @@ -1532,8 +1533,9 @@ CONTAINS IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier INTEGER, INTENT(OUT) :: cset ! character set type of a string datatype - ! Possible values of padding type are: - !H5T_CSET_ASCII_F = 0 + ! Possible values are: + ! H5T_CSET_ASCII_F = 0 + ! H5T_CSET_UTF8_F INTEGER, INTENT(OUT) :: hdferr ! Error code ! INTEGER, EXTERNAL :: h5tget_cset_c @@ -1561,8 +1563,9 @@ CONTAINS ! Inputs: ! type_id - datatype identifier ! cset - character set type of a string datatype -! Possible values of padding type are: +! Possible values are: ! H5T_CSET_ASCII_F = 0 +! H5T_CSET_UTF8_F ! Outputs: ! hdferr: - error code ! Success: 0 @@ -1584,8 +1587,10 @@ CONTAINS IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier INTEGER, INTENT(IN) :: cset !character set type of a string datatype - !Possible values of padding type are: - !H5T_CSET_ASCII_F = 0 + !Possible values are: + ! H5T_CSET_ASCII_F = 0 + ! H5T_CSET_UTF8_F + INTEGER, INTENT(OUT) :: hdferr ! Error code ! INTEGER, EXTERNAL :: h5tset_cset_c diff --git a/fortran/src/Makefile.am b/fortran/src/Makefile.am index d2644a1..f38e94f 100644 --- a/fortran/src/Makefile.am +++ b/fortran/src/Makefile.am @@ -90,11 +90,14 @@ clean-local: @if test -n "$(F9XMODEXT)" && test "X$(F9XMODEXT)" != "Xo"; then \ $(RM) *.$(F9XMODEXT); \ fi + $(RM) $(DESTDIR)$(includedir)/H5f90i*.h install-data-local: @if test -n "$(F9XMODEXT)" && test "X$(F9XMODEXT)" != "Xo"; then \ $(CP) $(top_builddir)/$(subdir)/*.$(F9XMODEXT) $(DESTDIR)$(includedir)/. ; \ fi + $(CP) $(top_builddir)/$(subdir)/H5f90i_gen.h $(DESTDIR)$(includedir)/. + $(CP) $(top_srcdir)/fortran/src/H5f90i.h $(DESTDIR)$(includedir)/. uninstall-local: @if test -n "$(F9XMODEXT)" -a "X$(F9XMODEXT)" != "Xo"; then \ @@ -103,6 +106,7 @@ uninstall-local: fi; \ fi; \ $(RM) $(DESTDIR)$(bindir)/$(H5FC_NAME) + $(RM) $(DESTDIR)$(includedir)/H5f90i*.h # Also install and uninstall (uninstall-local above) h5fc script install-exec-local: diff --git a/fortran/src/Makefile.in b/fortran/src/Makefile.in index ff4225d..922780f 100644 --- a/fortran/src/Makefile.in +++ b/fortran/src/Makefile.in @@ -916,11 +916,14 @@ clean-local: @if test -n "$(F9XMODEXT)" && test "X$(F9XMODEXT)" != "Xo"; then \ $(RM) *.$(F9XMODEXT); \ fi + $(RM) $(DESTDIR)$(includedir)/H5f90i*.h install-data-local: @if test -n "$(F9XMODEXT)" && test "X$(F9XMODEXT)" != "Xo"; then \ $(CP) $(top_builddir)/$(subdir)/*.$(F9XMODEXT) $(DESTDIR)$(includedir)/. ; \ fi + $(CP) $(top_builddir)/$(subdir)/H5f90i_gen.h $(DESTDIR)$(includedir)/. + $(CP) $(top_srcdir)/fortran/src/H5f90i.h $(DESTDIR)$(includedir)/. uninstall-local: @if test -n "$(F9XMODEXT)" -a "X$(F9XMODEXT)" != "Xo"; then \ @@ -929,6 +932,7 @@ uninstall-local: fi; \ fi; \ $(RM) $(DESTDIR)$(bindir)/$(H5FC_NAME) + $(RM) $(DESTDIR)$(includedir)/H5f90i*.h # Also install and uninstall (uninstall-local above) h5fc script install-exec-local: diff --git a/fortran/test/tH5R.f90 b/fortran/test/tH5R.f90 index 1e57eb3..0289465 100644 --- a/fortran/test/tH5R.f90 +++ b/fortran/test/tH5R.f90 @@ -147,6 +147,8 @@ SUBROUTINE refobjtest(cleanup, total_error) CALL H5Rget_name_f(dsetr_id, ref(1), buf, error, buf_size ) CALL check("H5Rget_name_f", error, total_error) + + CALL VERIFY("H5Rget_name_f", INT(buf_size),7, total_error) CALL VerifyString("H5Rget_name_f", buf, "/GROUP1", total_error) diff --git a/fortran/test/tH5Sselect.f90 b/fortran/test/tH5Sselect.f90 index 437c530..f7fd8af 100644 --- a/fortran/test/tH5Sselect.f90 +++ b/fortran/test/tH5Sselect.f90 @@ -921,6 +921,7 @@ ! write(*,*) (blocklist(i), i =1, num_blocks*RANK*2) !result of blocklist selected is: !1, 1, 2, 2, 4, 1, 5, 2, 1, 4, 2, 5, 4, 4, 5, 5 + ! !deallocate the blocklist array ! -- cgit v0.12