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-r2797]

Browse Source 
Purpose:
    Maintenance
Description:
    Updated examples to use new F90 programming model
Platforms tested:
    O2K and Solaris2.7
This commit is contained in:
Elena Pourmal 2000-11-03 14:49:59 -05:00
parent 39e47fe74d
commit ada3710bc7
14 changed files with 104 additions and 66 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
fortran/examples/attrexample.f90
View File

@ -38,9 +38,9 @@
! attrlen = 27
attrlen = 80
!
! Initialize FORTRAN predefined datatypes.
! Initialize FORTRAN interface.
!
CALL h5init_types_f(error)
CALL h5init_fortran_f(error)
!
! Open an existing file.
@ -94,9 +94,9 @@
CALL h5fclose_f(file_id, error)
!
! Close FORTRAN predefined datatypes.
! Close FORTRAN interface.
!
CALL h5close_types_f(error)
CALL h5close_fortran_f(error)
END PROGRAM ATTREXAMPLE

8
fortran/examples/compound.f90
View File

@ -62,9 +62,9 @@
enddo
!
! Initialize FORTRAN predefined datatypes.
! Initialize FORTRAN interface.
!
CALL h5init_types_f(error)
CALL h5init_fortran_f(error)
!
! Set dataset transfer property to preserve partially initialized fields
! during write/read to/from dataset with compound datatype.
@ -206,9 +206,9 @@
CALL h5tclose_f(dt2_id, error)
CALL h5fclose_f(file_id, error)
!
! Close FORTRAN predefined datatypes.
! Close FORTRAN interface.
!
CALL h5close_types_f(error)
CALL h5close_fortran_f(error)
END PROGRAM COMPOUNDEXAMPLE

8
fortran/examples/dsetexample.f90
View File

@ -25,9 +25,9 @@
INTEGER :: error ! Error flag
!
! Initialize FORTRAN predefined datatypes.
! Initialize FORTRAN interface.
!
CALL h5init_types_f(error)
CALL h5init_fortran_f(error)
!
! Create a new file using default properties.
@ -61,9 +61,9 @@
CALL h5fclose_f(file_id, error)
!
! Close FORTRAN predefined datatypes.
! Close FORTRAN interface.
!
CALL h5close_types_f(error)
CALL h5close_fortran_f(error)
END PROGRAM DSETEXAMPLE

11
fortran/examples/fileexample.f90
View File

@ -13,7 +13,11 @@
INTEGER(HID_T) :: file_id ! File identifier
INTEGER :: error ! Error flag
!
! Initialize FORTRAN interface.
!
CALL h5init_fortran_f (error)
!
! Create a new file using default properties.
!
@ -23,5 +27,8 @@
! Terminate access to the file.
!
CALL h5fclose_f(file_id, error)
!
! Close FORTRAN interface.
!
CALL h5close_fortran_f(error)
END PROGRAM FILEEXAMPLE

9
fortran/examples/groupexample.f90
View File

@ -18,7 +18,10 @@
INTEGER(HID_T) :: group_id ! Group identifier
INTEGER :: error ! Error flag
!
! Initialize FORTRAN interface.
!
CALL h5init_fortran_f(error)
!
! Create a new file using default properties.
!
@ -38,5 +41,9 @@
! Terminate access to the file.
!
CALL h5fclose_f(file_id, error)
!
! Close FORTRAN interface.
!
CALL h5close_fortran_f(error)
END PROGRAM GROUPEXAMPLE

8
fortran/examples/grpdsetexample.f90
View File

@ -52,9 +52,9 @@
end do
!
! Initialize FORTRAN predefined datatypes.
! Initialize FORTRAN interface.
!
CALL h5init_types_f(error)
CALL h5init_fortran_f(error)
!
! Open an existing file.
@ -129,8 +129,8 @@
CALL h5fclose_f(file_id, error)
!
! Close FORTRAN predefined datatypes.
! Close FORTRAN interface.
!
CALL h5close_types_f(error)
CALL h5close_fortran_f(error)
END PROGRAM GRPDSETEXAMPLE

9
fortran/examples/grpit.f90
View File

@ -57,9 +57,9 @@
end do
!
! Initialize FORTRAN predefined datatypes.
! Initialize FORTRAN interface.
!
CALL h5init_types_f(error)
CALL h5init_fortran_f(error)
!
! Create a new file using default properties.
@ -185,5 +185,10 @@
! Close the file.
!
CALL h5fclose_f(file_id, error)
!
! Close FORTRAN interface.
!
CALL h5close_fortran_f(error)
END PROGRAM GRPITEXAMPLE

9
fortran/examples/grpsexample.f90
View File

@ -23,6 +23,10 @@
INTEGER(HID_T) :: group1_id, group2_id, group3_id ! Group identifiers
INTEGER :: error ! Error flag
!
! Initialize FORTRAN interface.
!
CALL h5init_fortran_f(error)
!
! Create a new file using default properties.
@ -56,4 +60,9 @@
!
CALL h5fclose_f(file_id, error)
!
! Close FORTRAN interface.
!
CALL h5close_fortran_f(error)
END PROGRAM GRPSEXAMPLE

12
fortran/examples/hyperslab.f90
View File

@ -61,9 +61,9 @@
!
!
! Initialize FORTRAN predefined datatypes
! Initialize FORTRAN interface.
!
CALL h5init_types_f(error)
CALL h5init_fortran_f(error)
!
! Create a new file using default properties.
@ -120,7 +120,9 @@
!
! Open the file.
!
CALL h5fopen_f (filename, H5F_ACC_RDONLY_F, file_id, error)
! CALL h5fopen_f (filename, H5F_ACC_RDONLY_F, file_id, error)
CALL h5fopen_f (filename, H5F_ACC_RDWR_F, file_id, error)
write(*,*) error
!
! Open the dataset.
@ -192,8 +194,8 @@
CALL h5fclose_f(file_id, error)
!
! Close FORTRAN predefined datatypes.
! Close FORTRAN interface.
!
CALL h5close_types_f(error)
CALL h5close_fortran_f(error)
END PROGRAM SELECTEXAMPLE

56
fortran/examples/mountexample.f90
View File

@ -12,7 +12,7 @@
IMPLICIT NONE
!
!the respective filename is "mount1.h5" and "mount2.h5"
! Filenames are "mount1.h5" and "mount2.h5"
!
CHARACTER(LEN=9), PARAMETER :: filename1 = "mount1.h5"
CHARACTER(LEN=9), PARAMETER :: filename2 = "mount2.h5"
@ -35,47 +35,47 @@
INTEGER(HID_T) :: gid
!
! dataset identifier
! Dataset identifier
!
INTEGER(HID_T) :: dset_id
!
! data space identifier
! Data space identifier
!
INTEGER(HID_T) :: dataspace
!
! data type identifier
! Data type identifier
!
INTEGER(HID_T) :: dtype_id
!
!The dimensions for the dataset.
! The dimensions for the dataset.
!
INTEGER(HSIZE_T), DIMENSION(2) :: dims = (/NX,NY/)
!
!flag to check operation success
! Flag to check operation success
!
INTEGER :: error
!
!general purpose integer
! General purpose integer
!
INTEGER :: i, j
!
!data buffers
! Data buffers
!
INTEGER, DIMENSION(NX,NY) :: data_in, data_out
!
!Initialize FORTRAN predifined datatypes
! Initialize FORTRAN interface.
!
CALL h5init_types_f(error)
CALL h5init_fortran_f(error)
!
!Initialize data_in buffer
! Initialize data_in buffer
!
do i = 1, NX
do j = 1, NY
@ -84,33 +84,33 @@
end do
!
!Create first file "mount1.h5" using default properties.
! Create first file "mount1.h5" using default properties.
!
CALL h5fcreate_f(filename1, H5F_ACC_TRUNC_F, file1_id, error)
!
!Create group "/G" inside file "mount1.h5".
! Create group "/G" inside file "mount1.h5".
!
CALL h5gcreate_f(file1_id, "/G", gid, error)
!
!close file and group identifiers.
! Close file and group identifiers.
!
CALL h5gclose_f(gid, error)
CALL h5fclose_f(file1_id, error)
!
!Create second file "mount2.h5" using default properties.
! Create second file "mount2.h5" using default properties.
!
CALL h5fcreate_f(filename2, H5F_ACC_TRUNC_F, file2_id, error)
!
!Create data space for the dataset.
! Create data space for the dataset.
!
CALL h5screate_simple_f(RANK, dims, dataspace, error)
!
!Create dataset "/D" inside file "mount2.h5".
! Create dataset "/D" inside file "mount2.h5".
!
CALL h5dcreate_f(file2_id, "/D", H5T_NATIVE_INTEGER, dataspace, &
dset_id, error)
@ -121,41 +121,41 @@
CALL h5dwrite_f(dset_id, H5T_NATIVE_INTEGER, data_in, error)
!
!close file, dataset and dataspace identifiers.
! Close file, dataset and dataspace identifiers.
!
CALL h5sclose_f(dataspace, error)
CALL h5dclose_f(dset_id, error)
CALL h5fclose_f(file2_id, error)
!
!reopen both files.
! Reopen both files.
!
CALL h5fopen_f (filename1, H5F_ACC_RDWR_F, file1_id, error)
CALL h5fopen_f (filename2, H5F_ACC_RDWR_F, file2_id, error)
!
!mount the second file under the first file's "/G" group.
! Mount the second file under the first file's "/G" group.
!
CALL h5fmount_f (file1_id, "/G", file2_id, error)
!
!Access dataset D in the first file under /G/D name.
! Access dataset D in the first file under /G/D name.
!
CALL h5dopen_f(file1_id, "/G/D", dset_id, error)
!
!Get dataset's data type.
! Get dataset's data type.
!
CALL h5dget_type_f(dset_id, dtype_id, error)
!
!Read the dataset.
! Read the dataset.
!
CALL h5dread_f(dset_id, dtype_id, data_out, error)
!
!Print out the data.
! Print out the data.
!
do i = 1, NX
print *, (data_out(i,j), j = 1, NY)
@ -169,15 +169,19 @@
CALL h5tclose_f(dtype_id, error)
!
!unmount the second file.
! Unmount the second file.
!
CALL h5funmount_f(file1_id, "/G", error);
!
!Close both files.
! Close both files.
!
CALL h5fclose_f(file1_id, error)
CALL h5fclose_f(file2_id, error)
!
! Close FORTRAN interface.
!
CALL h5close_fortran_f(error)
END PROGRAM MOUNTEXAMPLE

8
fortran/examples/refobjexample.f90
View File

@ -37,9 +37,9 @@
INTEGER, DIMENSION(5) :: data = (/1, 2, 3, 4, 5/)
INTEGER :: class, ref_size
!
! Initialize FORTRAN predefined datatypes
! Initialize FORTRAN interface.
!
CALL h5init_types_f(error)
CALL h5init_fortran_f(error)
!
! Create a file
!
@ -132,6 +132,10 @@
CALL h5tclose_f(type_id, error)
CALL h5dclose_f(dsetr_id, error)
CALL h5fclose_f(file_id, error)
!
! Close FORTRAN interface.
!
CALL h5close_fortran_f(error)
END PROGRAM OBJ_REFERENCES

8
fortran/examples/refregexample.f90
View File

@ -40,9 +40,9 @@
coord = reshape((/1,1,2,7,1,9/), (/2,3/)) ! Coordinates of selected points
data = reshape ((/1,1,1,2,2,2,3,3,3,4,4,4,5,5,5,6,6,6/), (/2,9/))
!
! Initialize FORTRAN predefined datatypes.
! Initialize FORTRAN interface.
!
CALL h5init_types_f(error)
CALL h5init_fortran_f(error)
!
! Create a new file.
!
@ -153,9 +153,9 @@
CALL h5dclose_f(dsetv_id, error)
CALL h5dclose_f(dsetr_id, error)
!
! Close FORTRAN predefined datatypes.
! Close FORTRAN interface.
!
CALL h5close_types_f(error)
CALL h5close_fortran_f(error)
END PROGRAM REG_REFERENCE

8
fortran/examples/rwdsetexample.f90
View File

@ -33,9 +33,9 @@
end do
!
! Initialize FORTRAN predefined datatypes
! Initialize FORTRAN interface.
!
CALL h5init_types_f(error)
CALL h5init_fortran_f(error)
!
! Open an existing file.
@ -68,9 +68,9 @@
CALL h5fclose_f(file_id, error)
!
! Close FORTRAN predefined datatypes.
! Close FORTRAN interface.
!
CALL h5close_types_f(error)
CALL h5close_fortran_f(error)
END PROGRAM RWDSETEXAMPLE

8
fortran/examples/selectele.f90
View File

@ -73,9 +73,9 @@
end do
!
! Initialize FORTRAN predefined datatypes
! Initialize FORTRAN interface.
!
CALL h5init_types_f(error)
CALL h5init_fortran_f(error)
!
! Create file1, file2 using default properties.
@ -275,8 +275,8 @@
CALL h5fclose_f(file2_id, error)
!
! Close FORTRAN predefined datatypes.
! Close FORTRAN interface.
!
CALL h5close_types_f(error)
CALL h5close_fortran_f(error)
END PROGRAM SELECTEXAMPLE