mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2024-11-27 02:10:55 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r7062]

Browse Source 
Purpose: Bug fix

Description: On Cray SV1 multi-driver test failed while closing
             access property list.
             This test creates a file using multi driver, writes
             dataset, closes the file; reopens the file and reads
             back data. At some point I commented out call to
             h5pget_access_plist_f, but forgot to comment out corresponding
             h5pclose_f.

Solution: removed comment on the  h5pget_access_plist_f subroutine.

Platforms tested: Cray SV1, copper with parallel, Winodws with VF, arabica.
                  There is some caveat left. I have a call to h5pget_fapl_multi_f
                  that follows h5pget_access_plist_f, it was also commented out.
                  This call works everywhere except Windows. Fortran part looks OK,
                  since my test program uses h5pget_fapl_multi_f before it closes the
                  file in the same test, and it works. Probably it is a library
                  bug that needs confirmation. For now I will leave second
                  h5pget_fapl_multi_f commented out.

Misc. update:
This commit is contained in:
Elena Pourmal 2003-06-18 16:21:51 -05:00
parent 7c1054856a
commit 2c924c0df1
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
fortran/test/tH5P.f90
View File

@ -272,9 +272,9 @@
CALL h5fopen_f (fix_filename, H5F_ACC_RDWR_F, file_id, error, access_prp = fapl)
CALL check("h5fopen_f", error, total_error)
!
!It looks like a bug in the C Library
!CALL h5fget_access_plist_f(file_id, fapl_1, error)
! CALL check("h5fget_access_plist_f", error, total_error)
CALL h5fget_access_plist_f(file_id, fapl_1, error)
CALL check("h5fget_access_plist_f", error, total_error)
!It doesn't work on Windows.
!CALL h5pget_fapl_multi_f(fapl_1, memb_map_out, memb_fapl_out, memb_name_out, &
! memb_addr_out, relax_out, error)
! write(*,*) memb_map_out