From 320dfb1a03b50f932959ee595bc5b723f770d25c Mon Sep 17 00:00:00 2001 From: Elena Pourmal Date: Fri, 17 Nov 2000 17:45:34 -0500 Subject: [svn-r2977] Purpose: Code maintenance Description: Fixed the code to use h5open_f and h5close_f subroutines Platforms tested: Solaris 2.6 --- fortran/examples/attrexample.f90 | 4 ++-- fortran/examples/compound.f90 | 4 ++-- fortran/examples/dsetexample.f90 | 4 ++-- fortran/examples/fileexample.f90 | 4 ++-- fortran/examples/groupexample.f90 | 4 ++-- fortran/examples/grpdsetexample.f90 | 4 ++-- fortran/examples/grpit.f90 | 4 ++-- fortran/examples/grpsexample.f90 | 4 ++-- fortran/examples/hyperslab.f90 | 4 ++-- fortran/examples/mountexample.f90 | 4 ++-- fortran/examples/refobjexample.f90 | 4 ++-- fortran/examples/refregexample.f90 | 4 ++-- fortran/examples/rwdsetexample.f90 | 4 ++-- fortran/examples/selectele.f90 | 4 ++-- 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 -- cgit v0.12