summaryrefslogtreecommitdiffstats
path: root/fortran/examples
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
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')
-rw-r--r--fortran/examples/attrexample.f904
-rw-r--r--fortran/examples/compound.f904
-rw-r--r--fortran/examples/dsetexample.f904
-rw-r--r--fortran/examples/fileexample.f904
-rw-r--r--fortran/examples/groupexample.f904
-rw-r--r--fortran/examples/grpdsetexample.f904
-rw-r--r--fortran/examples/grpit.f904
-rw-r--r--fortran/examples/grpsexample.f904
-rw-r--r--fortran/examples/hyperslab.f904
-rw-r--r--fortran/examples/mountexample.f904
-rw-r--r--fortran/examples/refobjexample.f904
-rw-r--r--fortran/examples/refregexample.f904
-rw-r--r--fortran/examples/rwdsetexample.f904
-rw-r--r--fortran/examples/selectele.f904
14 files changed, 28 insertions, 28 deletions
diff --git a/fortran/examples/attrexample.f90 b/fortran/examples/attrexample.f90
index 62df1c0..82167aa 100644
--- a/fortran/examples/attrexample.f90
+++ b/fortran/examples/attrexample.f90
@@ -40,7 +40,7 @@
!
! Initialize FORTRAN interface.
!
- CALL h5init_fortran_f(error)
+ CALL h5open_f(error)
!
! Open an existing file.
@@ -96,7 +96,7 @@
!
! Close FORTRAN interface.
!
- CALL h5close_fortran_f(error)
+ CALL h5close_f(error)
END PROGRAM ATTREXAMPLE
diff --git a/fortran/examples/compound.f90 b/fortran/examples/compound.f90
index d7a9ac6..a2bd6b0 100644
--- a/fortran/examples/compound.f90
+++ b/fortran/examples/compound.f90
@@ -64,7 +64,7 @@
!
! Initialize FORTRAN interface.
!
- CALL h5init_fortran_f(error)
+ CALL h5open_f(error)
!
! Set dataset transfer property to preserve partially initialized fields
! during write/read to/from dataset with compound datatype.
@@ -208,7 +208,7 @@
!
! Close FORTRAN interface.
!
- CALL h5close_fortran_f(error)
+ CALL h5close_f(error)
END PROGRAM COMPOUNDEXAMPLE
diff --git a/fortran/examples/dsetexample.f90 b/fortran/examples/dsetexample.f90
index 2d8b96f..8164e38 100644
--- a/fortran/examples/dsetexample.f90
+++ b/fortran/examples/dsetexample.f90
@@ -27,7 +27,7 @@
!
! Initialize FORTRAN interface.
!
- CALL h5init_fortran_f(error)
+ CALL h5open_f(error)
!
! Create a new file using default properties.
@@ -63,7 +63,7 @@
!
! Close FORTRAN interface.
!
- CALL h5close_fortran_f(error)
+ CALL h5close_f(error)
END PROGRAM DSETEXAMPLE
diff --git a/fortran/examples/fileexample.f90 b/fortran/examples/fileexample.f90
index 23ba664..e11dcaa 100644
--- a/fortran/examples/fileexample.f90
+++ b/fortran/examples/fileexample.f90
@@ -17,7 +17,7 @@
!
! Initialize FORTRAN interface.
!
- CALL h5init_fortran_f (error)
+ CALL h5open_f (error)
!
! Create a new file using default properties.
!
@@ -30,5 +30,5 @@
!
! Close FORTRAN interface.
!
- CALL h5close_fortran_f(error)
+ CALL h5close_f(error)
END PROGRAM FILEEXAMPLE
diff --git a/fortran/examples/groupexample.f90 b/fortran/examples/groupexample.f90
index 3b0bb0e..d98d7cd 100644
--- a/fortran/examples/groupexample.f90
+++ b/fortran/examples/groupexample.f90
@@ -21,7 +21,7 @@
!
! Initialize FORTRAN interface.
!
- CALL h5init_fortran_f(error)
+ CALL h5open_f(error)
!
! Create a new file using default properties.
!
@@ -44,6 +44,6 @@
!
! Close FORTRAN interface.
!
- CALL h5close_fortran_f(error)
+ CALL h5close_f(error)
END PROGRAM GROUPEXAMPLE
diff --git a/fortran/examples/grpdsetexample.f90 b/fortran/examples/grpdsetexample.f90
index cbff722..1c2fe65 100644
--- a/fortran/examples/grpdsetexample.f90
+++ b/fortran/examples/grpdsetexample.f90
@@ -54,7 +54,7 @@
!
! Initialize FORTRAN interface.
!
- CALL h5init_fortran_f(error)
+ CALL h5open_f(error)
!
! Open an existing file.
@@ -131,6 +131,6 @@
!
! Close FORTRAN interface.
!
- CALL h5close_fortran_f(error)
+ CALL h5close_f(error)
END PROGRAM GRPDSETEXAMPLE
diff --git a/fortran/examples/grpit.f90 b/fortran/examples/grpit.f90
index bf3ddb3..3aff2ad 100644
--- a/fortran/examples/grpit.f90
+++ b/fortran/examples/grpit.f90
@@ -59,7 +59,7 @@
!
! Initialize FORTRAN interface.
!
- CALL h5init_fortran_f(error)
+ CALL h5open_f(error)
!
! Create a new file using default properties.
@@ -189,6 +189,6 @@
!
! Close FORTRAN interface.
!
- CALL h5close_fortran_f(error)
+ CALL h5close_f(error)
END PROGRAM GRPITEXAMPLE
diff --git a/fortran/examples/grpsexample.f90 b/fortran/examples/grpsexample.f90
index 2761732..4b53bf0 100644
--- a/fortran/examples/grpsexample.f90
+++ b/fortran/examples/grpsexample.f90
@@ -26,7 +26,7 @@
!
! Initialize FORTRAN interface.
!
- CALL h5init_fortran_f(error)
+ CALL h5open_f(error)
!
! Create a new file using default properties.
@@ -63,6 +63,6 @@
!
! Close FORTRAN interface.
!
- CALL h5close_fortran_f(error)
+ CALL h5close_f(error)
END PROGRAM GRPSEXAMPLE
diff --git a/fortran/examples/hyperslab.f90 b/fortran/examples/hyperslab.f90
index 45dd7a0..ec24d98 100644
--- a/fortran/examples/hyperslab.f90
+++ b/fortran/examples/hyperslab.f90
@@ -63,7 +63,7 @@
!
! Initialize FORTRAN interface.
!
- CALL h5init_fortran_f(error)
+ CALL h5open_f(error)
!
! Create a new file using default properties.
@@ -196,6 +196,6 @@
!
! Close FORTRAN interface.
!
- CALL h5close_fortran_f(error)
+ CALL h5close_f(error)
END PROGRAM SELECTEXAMPLE
diff --git a/fortran/examples/mountexample.f90 b/fortran/examples/mountexample.f90
index f59cd6a..f4341b2 100644
--- a/fortran/examples/mountexample.f90
+++ b/fortran/examples/mountexample.f90
@@ -72,7 +72,7 @@
!
! Initialize FORTRAN interface.
!
- CALL h5init_fortran_f(error)
+ CALL h5open_f(error)
!
! Initialize data_in buffer
@@ -181,7 +181,7 @@
!
! Close FORTRAN interface.
!
- CALL h5close_fortran_f(error)
+ CALL h5close_f(error)
END PROGRAM MOUNTEXAMPLE
diff --git a/fortran/examples/refobjexample.f90 b/fortran/examples/refobjexample.f90
index 2258246..fdbb26d 100644
--- a/fortran/examples/refobjexample.f90
+++ b/fortran/examples/refobjexample.f90
@@ -39,7 +39,7 @@
!
! Initialize FORTRAN interface.
!
- CALL h5init_fortran_f(error)
+ CALL h5open_f(error)
!
! Create a file
!
@@ -135,7 +135,7 @@
!
! Close FORTRAN interface.
!
- CALL h5close_fortran_f(error)
+ CALL h5close_f(error)
END PROGRAM OBJ_REFERENCES
diff --git a/fortran/examples/refregexample.f90 b/fortran/examples/refregexample.f90
index ba52a3a..05fcf3f 100644
--- a/fortran/examples/refregexample.f90
+++ b/fortran/examples/refregexample.f90
@@ -42,7 +42,7 @@
!
! Initialize FORTRAN interface.
!
- CALL h5init_fortran_f(error)
+ CALL h5open_f(error)
!
! Create a new file.
!
@@ -155,7 +155,7 @@
!
! Close FORTRAN interface.
!
- CALL h5close_fortran_f(error)
+ CALL h5close_f(error)
END PROGRAM REG_REFERENCE
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
diff --git a/fortran/examples/selectele.f90 b/fortran/examples/selectele.f90
index 6e99d1f..e0f25c8 100644
--- a/fortran/examples/selectele.f90
+++ b/fortran/examples/selectele.f90
@@ -75,7 +75,7 @@
!
! Initialize FORTRAN interface.
!
- CALL h5init_fortran_f(error)
+ CALL h5open_f(error)
!
! Create file1, file2 using default properties.
@@ -277,6 +277,6 @@
!
! Close FORTRAN interface.
!
- CALL h5close_fortran_f(error)
+ CALL h5close_f(error)
END PROGRAM SELECTEXAMPLE