summaryrefslogtreecommitdiffstats
path: root/fortran/testpar
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2000-11-29 23:44:37 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2000-11-29 23:44:37 (GMT)
commit55bc19a6d7f04822a949cb5c688cec66dc8c844a (patch)
treee78de6b262a1030316c95dab1f61efd15a65ee98 /fortran/testpar
parentfa61ea96dd2aad4404f5bd02efc67770e4efd09a (diff)
downloadhdf5-55bc19a6d7f04822a949cb5c688cec66dc8c844a.zip
hdf5-55bc19a6d7f04822a949cb5c688cec66dc8c844a.tar.gz
hdf5-55bc19a6d7f04822a949cb5c688cec66dc8c844a.tar.bz2
[svn-r3033]
Purpose: Bug fix Description: Test program was using h5init_types_f and h5close_type_f instead of h5open_f and h5close_f. Would not compile on modi4. Solution: Fixed the code to use new functions. Platforms tested: O2K (modi4)
Diffstat (limited to 'fortran/testpar')
-rw-r--r--fortran/testpar/ptesthdf5_fortran.f904
1 files changed, 2 insertions, 2 deletions
diff --git a/fortran/testpar/ptesthdf5_fortran.f90 b/fortran/testpar/ptesthdf5_fortran.f90
index 9c833ba..4a99e4c 100644
--- a/fortran/testpar/ptesthdf5_fortran.f90
+++ b/fortran/testpar/ptesthdf5_fortran.f90
@@ -35,7 +35,7 @@
!
! Initialize FORTRAN predefined datatypes
!
- CALL h5init_types_f(error)
+ CALL h5open_f(error)
if (mpi_rank .eq. 0) then
write(*,*) '==========================================='
write(*,*) ' Parallel Fortran Tests '
@@ -56,7 +56,7 @@
!
! Close FORTRAN predefined datatypes.
!
- CALL h5close_types_f(error)
+ CALL h5close_f(error)
1000 continue