[svn-r2977]

Purpose:
    Code maintenance
Description:
    Fixed the code to use h5open_f and h5close_f subroutines
Platforms tested:
    Solaris 2.6

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