diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2000-11-29 23:44:37 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2000-11-29 23:44:37 (GMT) |
| commit | 55bc19a6d7f04822a949cb5c688cec66dc8c844a (patch) | |
| tree | e78de6b262a1030316c95dab1f61efd15a65ee98 | |
| parent | fa61ea96dd2aad4404f5bd02efc67770e4efd09a (diff) | |
| download | hdf5-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)
| -rw-r--r-- | fortran/testpar/ptesthdf5_fortran.f90 | 4 |
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 |