mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-03-31 17:10:47 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r2977]

Browse Source 
Purpose:
    Code maintenance
Description:
    Fixed the code to use h5open_f and h5close_f subroutines
Platforms tested:
    Solaris 2.6
This commit is contained in:
Elena Pourmal 2000-11-17 17:45:34 -05:00
parent 610ad05c1d
commit 320dfb1a03
14 changed files with 28 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fortran/examples/attrexample.f90
View File

@ -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

4
fortran/examples/compound.f90
View File

@ -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

4
fortran/examples/dsetexample.f90
View File

@ -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

4
fortran/examples/fileexample.f90
View File

@ -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

4
fortran/examples/groupexample.f90
View File

@ -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

4
fortran/examples/grpdsetexample.f90
View File

@ -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

4
fortran/examples/grpit.f90
View File

@ -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

4
fortran/examples/grpsexample.f90
View File

@ -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

4
fortran/examples/hyperslab.f90
View File

@ -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

4
fortran/examples/mountexample.f90
View File

@ -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

4
fortran/examples/refobjexample.f90
View File

@ -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

4
fortran/examples/refregexample.f90
View File

@ -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

4
fortran/examples/rwdsetexample.f90
View File

@ -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

4
fortran/examples/selectele.f90
View File

@ -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