From 55bc19a6d7f04822a949cb5c688cec66dc8c844a Mon Sep 17 00:00:00 2001 From: Elena Pourmal Date: Wed, 29 Nov 2000 18:44:37 -0500 Subject: [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) --- fortran/testpar/ptesthdf5_fortran.f90 | 4 ++-- 1 file 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 -- cgit v0.12