summaryrefslogtreecommitdiffstats
path: root/fortran/examples/rwdsetexample.f90
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2000-11-17 22:45:34 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2000-11-17 22:45:34 (GMT)
commit320dfb1a03b50f932959ee595bc5b723f770d25c (patch)
tree88973b4dd27f2a94b5f2284905f88d51569fe358 /fortran/examples/rwdsetexample.f90
parent610ad05c1d18045b33a922e59a3f5fd34870c3fc (diff)
downloadhdf5-320dfb1a03b50f932959ee595bc5b723f770d25c.zip
hdf5-320dfb1a03b50f932959ee595bc5b723f770d25c.tar.gz
hdf5-320dfb1a03b50f932959ee595bc5b723f770d25c.tar.bz2
[svn-r2977]
Purpose: Code maintenance Description: Fixed the code to use h5open_f and h5close_f subroutines Platforms tested: Solaris 2.6
Diffstat (limited to 'fortran/examples/rwdsetexample.f90')
-rw-r--r--fortran/examples/rwdsetexample.f904
1 files changed, 2 insertions, 2 deletions
diff --git a/fortran/examples/rwdsetexample.f90 b/fortran/examples/rwdsetexample.f90
index 0fa299a..3bc0ecb 100644
--- a/fortran/examples/rwdsetexample.f90
+++ b/fortran/examples/rwdsetexample.f90
@@ -35,7 +35,7 @@
!
! Initialize FORTRAN interface.
!
- CALL h5init_fortran_f(error)
+ CALL h5open_f(error)
!
! Open an existing file.
@@ -70,7 +70,7 @@
!
! Close FORTRAN interface.
!
- CALL h5close_fortran_f(error)
+ CALL h5close_f(error)
END PROGRAM RWDSETEXAMPLE