mirror of
https://github.com/HDFGroup/hdf5.git
synced 2025-04-18 17:40:55 +08:00
[svn-r26895] Added missing interfaces for c_double_long.
Added DLLs.
This commit is contained in:
Scot Breitenfeld
parent
5b7398b41d
commit
00dfc443c6
@ -101,7 +101,6 @@ MODULE H5D
|
||||
END INTERFACE
|
||||
|
||||
INTERFACE h5dwrite_f
|
||||
|
||||
MODULE PROCEDURE h5dwrite_reference_obj
|
||||
MODULE PROCEDURE h5dwrite_reference_dsetreg
|
||||
MODULE PROCEDURE h5dwrite_integer_scalar
|
||||
@ -144,15 +143,12 @@ MODULE H5D
|
||||
MODULE PROCEDURE h5dwrite_c_long_double_5
|
||||
MODULE PROCEDURE h5dwrite_c_long_double_6
|
||||
MODULE PROCEDURE h5dwrite_c_long_double_7
|
||||
|
||||
! This is the preferred way to call h5dwrite
|
||||
! by passing an address
|
||||
MODULE PROCEDURE h5dwrite_ptr
|
||||
|
||||
END INTERFACE
|
||||
|
||||
INTERFACE h5dread_f
|
||||
|
||||
MODULE PROCEDURE h5dread_reference_obj
|
||||
MODULE PROCEDURE h5dread_reference_dsetreg
|
||||
MODULE PROCEDURE h5dread_integer_scalar
|
||||
@ -195,7 +191,6 @@ MODULE H5D
|
||||
MODULE PROCEDURE h5dread_c_long_double_5
|
||||
MODULE PROCEDURE h5dread_c_long_double_6
|
||||
MODULE PROCEDURE h5dread_c_long_double_7
|
||||
|
||||
! This is the preferred way to call h5dread
|
||||
! by passing an address
|
||||
MODULE PROCEDURE h5dread_ptr
|
||||
@ -247,6 +242,7 @@ MODULE H5D
|
||||
MODULE PROCEDURE h5dfill_integer
|
||||
MODULE PROCEDURE h5dfill_c_float
|
||||
MODULE PROCEDURE h5dfill_c_double
|
||||
MODULE PROCEDURE h5dfill_c_long_double
|
||||
MODULE PROCEDURE h5dfill_char
|
||||
END INTERFACE
|
||||
|
||||
@ -3947,6 +3943,39 @@ CONTAINS
|
||||
|
||||
END SUBROUTINE h5dwrite_c_double_7
|
||||
|
||||
SUBROUTINE h5dwrite_c_long_double_scalar(dset_id, mem_type_id, buf, dims, hdferr, &
|
||||
mem_space_id, file_space_id, xfer_prp)
|
||||
IMPLICIT NONE
|
||||
INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
|
||||
INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
|
||||
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
|
||||
REAL(KIND=C_LONG_DOUBLE), INTENT(IN), TARGET :: buf ! Data buffer
|
||||
INTEGER, INTENT(OUT) :: hdferr ! Error code
|
||||
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
|
||||
! Memory dataspace identfier
|
||||
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
|
||||
! File dataspace identfier
|
||||
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
|
||||
! Transfer property list identifier
|
||||
|
||||
INTEGER(HID_T) :: xfer_prp_default
|
||||
INTEGER(HID_T) :: mem_space_id_default
|
||||
INTEGER(HID_T) :: file_space_id_default
|
||||
TYPE(C_PTR) :: f_ptr
|
||||
|
||||
xfer_prp_default = H5P_DEFAULT_F
|
||||
mem_space_id_default = H5S_ALL_F
|
||||
file_space_id_default = H5S_ALL_F
|
||||
|
||||
if (present(xfer_prp)) xfer_prp_default = xfer_prp
|
||||
if (present(mem_space_id)) mem_space_id_default = mem_space_id
|
||||
if (present(file_space_id)) file_space_id_default = file_space_id
|
||||
f_ptr = C_LOC(buf)
|
||||
|
||||
hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, &
|
||||
file_space_id_default, xfer_prp_default, f_ptr)
|
||||
|
||||
END SUBROUTINE h5dwrite_c_long_double_scalar
|
||||
|
||||
SUBROUTINE h5dwrite_c_long_double_1(dset_id, mem_type_id, buf, dims, hdferr, &
|
||||
mem_space_id, file_space_id, xfer_prp)
|
||||
@ -3983,6 +4012,218 @@ CONTAINS
|
||||
|
||||
END SUBROUTINE h5dwrite_c_long_double_1
|
||||
|
||||
SUBROUTINE h5dwrite_c_long_double_2(dset_id, mem_type_id, buf, dims, hdferr, &
|
||||
mem_space_id, file_space_id, xfer_prp)
|
||||
IMPLICIT NONE
|
||||
INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
|
||||
INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
|
||||
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
|
||||
REAL(KIND=C_LONG_DOUBLE), INTENT(IN), &
|
||||
DIMENSION(dims(1),dims(2)), TARGET :: buf
|
||||
INTEGER, INTENT(OUT) :: hdferr ! Error code
|
||||
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
|
||||
! Memory dataspace identfier
|
||||
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
|
||||
! File dataspace identfier
|
||||
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
|
||||
! Transfer property list identifier
|
||||
|
||||
INTEGER(HID_T) :: xfer_prp_default
|
||||
INTEGER(HID_T) :: mem_space_id_default
|
||||
INTEGER(HID_T) :: file_space_id_default
|
||||
TYPE(C_PTR) :: f_ptr
|
||||
|
||||
xfer_prp_default = H5P_DEFAULT_F
|
||||
mem_space_id_default = H5S_ALL_F
|
||||
file_space_id_default = H5S_ALL_F
|
||||
|
||||
if (present(xfer_prp)) xfer_prp_default = xfer_prp
|
||||
if (present(mem_space_id)) mem_space_id_default = mem_space_id
|
||||
if (present(file_space_id)) file_space_id_default = file_space_id
|
||||
f_ptr = C_LOC(buf(1,1))
|
||||
|
||||
hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, &
|
||||
file_space_id_default, xfer_prp_default, f_ptr)
|
||||
|
||||
END SUBROUTINE h5dwrite_c_long_double_2
|
||||
|
||||
SUBROUTINE h5dwrite_c_long_double_3(dset_id, mem_type_id, buf, dims, hdferr, &
|
||||
mem_space_id, file_space_id, xfer_prp)
|
||||
IMPLICIT NONE
|
||||
INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
|
||||
INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
|
||||
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
|
||||
REAL(KIND=C_LONG_DOUBLE), INTENT(IN), &
|
||||
DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf
|
||||
INTEGER, INTENT(OUT) :: hdferr ! Error code
|
||||
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
|
||||
! Memory dataspace identfier
|
||||
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
|
||||
! File dataspace identfier
|
||||
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
|
||||
! Transfer property list identifier
|
||||
|
||||
INTEGER(HID_T) :: xfer_prp_default
|
||||
INTEGER(HID_T) :: mem_space_id_default
|
||||
INTEGER(HID_T) :: file_space_id_default
|
||||
TYPE(C_PTR) :: f_ptr
|
||||
|
||||
xfer_prp_default = H5P_DEFAULT_F
|
||||
mem_space_id_default = H5S_ALL_F
|
||||
file_space_id_default = H5S_ALL_F
|
||||
|
||||
if (present(xfer_prp)) xfer_prp_default = xfer_prp
|
||||
if (present(mem_space_id)) mem_space_id_default = mem_space_id
|
||||
if (present(file_space_id)) file_space_id_default = file_space_id
|
||||
f_ptr = C_LOC(buf(1,1,1))
|
||||
|
||||
hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, &
|
||||
file_space_id_default, xfer_prp_default, f_ptr)
|
||||
|
||||
END SUBROUTINE h5dwrite_c_long_double_3
|
||||
|
||||
SUBROUTINE h5dwrite_c_long_double_4(dset_id, mem_type_id, buf, dims, hdferr, &
|
||||
mem_space_id, file_space_id, xfer_prp)
|
||||
IMPLICIT NONE
|
||||
INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
|
||||
INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
|
||||
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
|
||||
REAL(KIND=C_LONG_DOUBLE), INTENT(IN), &
|
||||
DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf
|
||||
INTEGER, INTENT(OUT) :: hdferr ! Error code
|
||||
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
|
||||
! Memory dataspace identfier
|
||||
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
|
||||
! File dataspace identfier
|
||||
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
|
||||
! Transfer property list identifier
|
||||
|
||||
INTEGER(HID_T) :: xfer_prp_default
|
||||
INTEGER(HID_T) :: mem_space_id_default
|
||||
INTEGER(HID_T) :: file_space_id_default
|
||||
TYPE(C_PTR) :: f_ptr
|
||||
|
||||
xfer_prp_default = H5P_DEFAULT_F
|
||||
mem_space_id_default = H5S_ALL_F
|
||||
file_space_id_default = H5S_ALL_F
|
||||
|
||||
if (present(xfer_prp)) xfer_prp_default = xfer_prp
|
||||
if (present(mem_space_id)) mem_space_id_default = mem_space_id
|
||||
if (present(file_space_id)) file_space_id_default = file_space_id
|
||||
f_ptr = C_LOC(buf(1,1,1,1))
|
||||
|
||||
hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, &
|
||||
file_space_id_default, xfer_prp_default, f_ptr)
|
||||
|
||||
END SUBROUTINE h5dwrite_c_long_double_4
|
||||
|
||||
SUBROUTINE h5dwrite_c_long_double_5(dset_id, mem_type_id, buf, dims, hdferr, &
|
||||
mem_space_id, file_space_id, xfer_prp)
|
||||
IMPLICIT NONE
|
||||
INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
|
||||
INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
|
||||
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
|
||||
REAL(KIND=C_LONG_DOUBLE), INTENT(IN), &
|
||||
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf
|
||||
INTEGER, INTENT(OUT) :: hdferr ! Error code
|
||||
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
|
||||
! Memory dataspace identfier
|
||||
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
|
||||
! File dataspace identfier
|
||||
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
|
||||
! Transfer property list identifier
|
||||
|
||||
INTEGER(HID_T) :: xfer_prp_default
|
||||
INTEGER(HID_T) :: mem_space_id_default
|
||||
INTEGER(HID_T) :: file_space_id_default
|
||||
TYPE(C_PTR) :: f_ptr
|
||||
|
||||
xfer_prp_default = H5P_DEFAULT_F
|
||||
mem_space_id_default = H5S_ALL_F
|
||||
file_space_id_default = H5S_ALL_F
|
||||
|
||||
if (present(xfer_prp)) xfer_prp_default = xfer_prp
|
||||
if (present(mem_space_id)) mem_space_id_default = mem_space_id
|
||||
if (present(file_space_id)) file_space_id_default = file_space_id
|
||||
f_ptr = C_LOC(buf(1,1,1,1,1))
|
||||
|
||||
hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, &
|
||||
file_space_id_default, xfer_prp_default, f_ptr)
|
||||
|
||||
END SUBROUTINE h5dwrite_c_long_double_5
|
||||
|
||||
SUBROUTINE h5dwrite_c_long_double_6(dset_id, mem_type_id, buf, dims, hdferr, &
|
||||
mem_space_id, file_space_id, xfer_prp)
|
||||
IMPLICIT NONE
|
||||
INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
|
||||
INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
|
||||
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
|
||||
REAL(KIND=C_LONG_DOUBLE), INTENT(IN), &
|
||||
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf
|
||||
! Data buffer
|
||||
INTEGER, INTENT(OUT) :: hdferr ! Error code
|
||||
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
|
||||
! Memory dataspace identfier
|
||||
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
|
||||
! File dataspace identfier
|
||||
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
|
||||
! Transfer property list identifier
|
||||
|
||||
INTEGER(HID_T) :: xfer_prp_default
|
||||
INTEGER(HID_T) :: mem_space_id_default
|
||||
INTEGER(HID_T) :: file_space_id_default
|
||||
TYPE(C_PTR) :: f_ptr
|
||||
|
||||
xfer_prp_default = H5P_DEFAULT_F
|
||||
mem_space_id_default = H5S_ALL_F
|
||||
file_space_id_default = H5S_ALL_F
|
||||
|
||||
if (present(xfer_prp)) xfer_prp_default = xfer_prp
|
||||
if (present(mem_space_id)) mem_space_id_default = mem_space_id
|
||||
if (present(file_space_id)) file_space_id_default = file_space_id
|
||||
f_ptr = C_LOC(buf(1,1,1,1,1,1))
|
||||
|
||||
hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, &
|
||||
file_space_id_default, xfer_prp_default, f_ptr)
|
||||
|
||||
END SUBROUTINE h5dwrite_c_long_double_6
|
||||
|
||||
SUBROUTINE h5dwrite_c_long_double_7(dset_id, mem_type_id, buf, dims, hdferr, &
|
||||
mem_space_id, file_space_id, xfer_prp)
|
||||
IMPLICIT NONE
|
||||
INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
|
||||
INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
|
||||
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
|
||||
REAL(KIND=C_LONG_DOUBLE), INTENT(IN), &
|
||||
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf
|
||||
! Data buffer
|
||||
INTEGER, INTENT(OUT) :: hdferr ! Error code
|
||||
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
|
||||
! Memory dataspace identfier
|
||||
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
|
||||
! File dataspace identfier
|
||||
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
|
||||
! Transfer property list identifier
|
||||
|
||||
INTEGER(HID_T) :: xfer_prp_default
|
||||
INTEGER(HID_T) :: mem_space_id_default
|
||||
INTEGER(HID_T) :: file_space_id_default
|
||||
TYPE(C_PTR) :: f_ptr
|
||||
|
||||
xfer_prp_default = H5P_DEFAULT_F
|
||||
mem_space_id_default = H5S_ALL_F
|
||||
file_space_id_default = H5S_ALL_F
|
||||
|
||||
if (present(xfer_prp)) xfer_prp_default = xfer_prp
|
||||
if (present(mem_space_id)) mem_space_id_default = mem_space_id
|
||||
if (present(file_space_id)) file_space_id_default = file_space_id
|
||||
f_ptr = C_LOC(buf(1,1,1,1,1,1,1))
|
||||
|
||||
hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, &
|
||||
file_space_id_default, xfer_prp_default, f_ptr)
|
||||
|
||||
END SUBROUTINE h5dwrite_c_long_double_7
|
||||
|
||||
!****s* H5D (F03)/h5dwrite_f_F03
|
||||
!
|
||||
! NAME
|
||||
@ -4261,6 +4502,30 @@ CONTAINS
|
||||
|
||||
END SUBROUTINE h5dfill_c_double
|
||||
|
||||
SUBROUTINE h5dfill_c_long_double(fill_value, space_id, buf, hdferr)
|
||||
IMPLICIT NONE
|
||||
REAL(KIND=C_LONG_DOUBLE), INTENT(IN), TARGET :: fill_value ! Fill value
|
||||
INTEGER(HID_T), INTENT(IN) :: space_id ! Memory dataspace selection identifier
|
||||
REAL(KIND=C_LONG_DOUBLE), INTENT(IN), DIMENSION(*), TARGET :: buf ! Memory buffer to fill in
|
||||
INTEGER, INTENT(OUT) :: hdferr ! Error code
|
||||
|
||||
INTEGER(HID_T) :: fill_type_id ! Fill value datatype identifier
|
||||
INTEGER(HID_T) :: mem_type_id ! Buffer dadtype identifier
|
||||
|
||||
TYPE(C_PTR) :: f_ptr_fill_valuer ! C pointer to fill_value
|
||||
TYPE(C_PTR) :: f_ptr_buf ! C pointer to buf
|
||||
|
||||
f_ptr_fill_valuer = C_LOC(fill_value)
|
||||
f_ptr_buf = C_LOC(buf(1))
|
||||
|
||||
fill_type_id = H5T_NATIVE_DOUBLE
|
||||
mem_type_id = H5T_NATIVE_DOUBLE
|
||||
|
||||
hdferr = h5dfill_c(f_ptr_fill_valuer, fill_type_id, space_id, &
|
||||
f_ptr_buf, mem_type_id)
|
||||
|
||||
END SUBROUTINE h5dfill_c_long_double
|
||||
|
||||
!
|
||||
! NAME
|
||||
! h5dfill_char
|
||||
|
||||
@ -67,6 +67,7 @@ MODULE H5P
|
||||
MODULE PROCEDURE h5pset_integer
|
||||
MODULE PROCEDURE h5pset_c_float
|
||||
MODULE PROCEDURE h5pset_c_double
|
||||
MODULE PROCEDURE h5pset_c_long_double
|
||||
MODULE PROCEDURE h5pset_char
|
||||
! Recommended procedure:
|
||||
MODULE PROCEDURE h5pset_ptr
|
||||
@ -77,6 +78,7 @@ MODULE H5P
|
||||
MODULE PROCEDURE h5pget_integer
|
||||
MODULE PROCEDURE h5pget_c_float
|
||||
MODULE PROCEDURE h5pget_c_double
|
||||
MODULE PROCEDURE h5pget_c_long_double
|
||||
! Recommended procedure:
|
||||
MODULE PROCEDURE h5pget_ptr
|
||||
END INTERFACE
|
||||
@ -85,6 +87,7 @@ MODULE H5P
|
||||
MODULE PROCEDURE h5pregister_integer
|
||||
MODULE PROCEDURE h5pregister_c_float
|
||||
MODULE PROCEDURE h5pregister_c_double
|
||||
MODULE PROCEDURE h5pregister_c_long_double
|
||||
! Recommended procedure:
|
||||
MODULE PROCEDURE h5pregister_ptr
|
||||
END INTERFACE
|
||||
@ -6581,6 +6584,43 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr)
|
||||
hdferr = h5pget_c(prp_id, name, name_len, f_ptr)
|
||||
|
||||
END SUBROUTINE h5pset_c_double
|
||||
!
|
||||
!****s* H5P (F90)/h5pset_c_long_double
|
||||
!
|
||||
! NAME
|
||||
! h5pset_c_long_double
|
||||
!
|
||||
! PURPOSE
|
||||
! Sets a property list value
|
||||
!
|
||||
! INPUTS
|
||||
! prp_id - iproperty list identifier to modify
|
||||
! name - name of property to modify
|
||||
! value - value to set property to
|
||||
! OUTPUTS
|
||||
! hdferr: - error code
|
||||
! Success: 0
|
||||
! Failure: -1
|
||||
! AUTHOR
|
||||
! Elena Pourmal
|
||||
! October 9, 2002
|
||||
! SOURCE
|
||||
SUBROUTINE h5pset_c_long_double(prp_id, name, value, hdferr)
|
||||
IMPLICIT NONE
|
||||
INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
|
||||
CHARACTER(LEN=*), INTENT(IN) :: name ! Name of property to modify
|
||||
REAL(KIND=C_LONG_DOUBLE), INTENT(IN), TARGET :: value ! Property value
|
||||
INTEGER, INTENT(OUT) :: hdferr ! Error code
|
||||
!*****
|
||||
INTEGER :: name_len
|
||||
TYPE(C_PTR) :: f_ptr ! C address
|
||||
|
||||
f_ptr = C_LOC(value)
|
||||
|
||||
name_len = LEN(name)
|
||||
hdferr = h5pget_c(prp_id, name, name_len, f_ptr)
|
||||
|
||||
END SUBROUTINE h5pset_c_long_double
|
||||
|
||||
SUBROUTINE h5pset_char(prp_id, name, value, hdferr)
|
||||
IMPLICIT NONE
|
||||
@ -6717,6 +6757,43 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr)
|
||||
hdferr = h5pget_c(prp_id, name, name_len, f_ptr)
|
||||
END SUBROUTINE h5pget_c_double
|
||||
|
||||
!****s* H5P (F90)/h5pget_c_long_double
|
||||
!
|
||||
! NAME
|
||||
! h5pget_c_long_double
|
||||
!
|
||||
! PURPOSE
|
||||
! Gets a property list value
|
||||
!
|
||||
! INPUTS
|
||||
! prp_id - iproperty list identifier to modify
|
||||
! name - name of property to modify
|
||||
! OUTPUTS
|
||||
! value - value of property
|
||||
! hdferr - error code
|
||||
! Success: 0
|
||||
! Failure: -1
|
||||
! AUTHOR
|
||||
! Elena Pourmal
|
||||
! October 9, 2002
|
||||
!
|
||||
! SOURCE
|
||||
SUBROUTINE h5pget_c_long_double(prp_id, name, value, hdferr)
|
||||
IMPLICIT NONE
|
||||
INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
|
||||
CHARACTER(LEN=*), INTENT(IN) :: name ! Name of property to modify
|
||||
REAL(KIND=C_LONG_DOUBLE), INTENT(OUT), TARGET :: value ! Property value
|
||||
INTEGER, INTENT(OUT) :: hdferr ! Error code
|
||||
!*****
|
||||
INTEGER :: name_len
|
||||
TYPE(C_PTR) :: f_ptr ! C address
|
||||
|
||||
f_ptr = C_LOC(value)
|
||||
|
||||
name_len = LEN(name)
|
||||
hdferr = h5pget_c(prp_id, name, name_len, f_ptr)
|
||||
END SUBROUTINE h5pget_c_long_double
|
||||
|
||||
SUBROUTINE h5pget_char(prp_id, name, value, hdferr)
|
||||
IMPLICIT NONE
|
||||
INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
|
||||
@ -6828,8 +6905,6 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr)
|
||||
hdferr = h5pget_c(prp_id, name, name_len, value)
|
||||
|
||||
END SUBROUTINE h5pget_ptr
|
||||
|
||||
|
||||
!
|
||||
!****s* H5P (F03)/h5pregister_f_F90
|
||||
!
|
||||
@ -6934,7 +7009,6 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr)
|
||||
INTEGER :: name_len
|
||||
TYPE(C_PTR) :: f_ptr ! C address
|
||||
|
||||
|
||||
f_ptr = C_LOC(value)
|
||||
|
||||
name_len = LEN(name)
|
||||
@ -6942,6 +7016,50 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr)
|
||||
|
||||
END SUBROUTINE h5pregister_c_double
|
||||
|
||||
|
||||
!
|
||||
!****s* H5P/h5pregister_c_long_double
|
||||
!
|
||||
! NAME
|
||||
! h5pregister_c_long_double
|
||||
!
|
||||
! PURPOSE
|
||||
! Registers a permanent property with a property list class.
|
||||
!
|
||||
! INPUTS
|
||||
! class - property list class to register
|
||||
! permanent property within
|
||||
! name - name of property to register
|
||||
! size - size of property in bytes
|
||||
! value - default value for property in newly
|
||||
! created property lists
|
||||
! OUTPUTS
|
||||
! hdferr - error code
|
||||
! Success: 0
|
||||
! Failure: -1
|
||||
! AUTHOR
|
||||
! Elena Pourmal
|
||||
! October 10, 2002
|
||||
!
|
||||
! SOURCE
|
||||
SUBROUTINE h5pregister_c_long_double(class, name, size, value, hdferr)
|
||||
IMPLICIT NONE
|
||||
INTEGER(HID_T), INTENT(IN) :: class ! Property list class identifier
|
||||
CHARACTER(LEN=*), INTENT(IN) :: name ! Name of property to register
|
||||
INTEGER(SIZE_T), INTENT(IN) :: size ! Size of the property value
|
||||
REAL(KIND=C_LONG_DOUBLE), INTENT(IN), TARGET :: value ! Property value
|
||||
INTEGER, INTENT(OUT) :: hdferr ! Error code
|
||||
!*****
|
||||
INTEGER :: name_len
|
||||
TYPE(C_PTR) :: f_ptr ! C address
|
||||
|
||||
f_ptr = C_LOC(value)
|
||||
|
||||
name_len = LEN(name)
|
||||
hdferr = h5pregister_c(class, name, name_len, size, f_ptr)
|
||||
|
||||
END SUBROUTINE h5pregister_c_long_double
|
||||
|
||||
SUBROUTINE h5pregister_char(class, name, size, value, hdferr)
|
||||
IMPLICIT NONE
|
||||
INTEGER(HID_T), INTENT(IN) :: class ! Property list class identifier
|
||||
|
||||
@ -8,46 +8,6 @@ H5LIB_mp_H5GARBAGE_COLLECT_F
|
||||
H5LIB_mp_H5DONT_ATEXIT_F
|
||||
H5LIB_mp_H5KIND_TO_TYPE
|
||||
H5LIB_mp_H5OFFSETOF
|
||||
; H5_DBLE_INTERFACE
|
||||
H5D_mp_H5DFILL_C_DOUBLE
|
||||
H5D_mp_H5DREAD_C_DOUBLE_SCALAR
|
||||
H5D_mp_H5DREAD_C_DOUBLE_1
|
||||
H5D_mp_H5DREAD_C_DOUBLE_2
|
||||
H5D_mp_H5DREAD_C_DOUBLE_3
|
||||
H5D_mp_H5DREAD_C_DOUBLE_4
|
||||
H5D_mp_H5DREAD_C_DOUBLE_5
|
||||
H5D_mp_H5DREAD_C_DOUBLE_6
|
||||
H5D_mp_H5DREAD_C_DOUBLE_7
|
||||
H5D_mp_H5DREAD_C_LONG_DOUBLE_SCALAR
|
||||
H5D_mp_H5DREAD_C_LONG_DOUBLE_1
|
||||
H5D_mp_H5DREAD_C_LONG_DOUBLE_2
|
||||
H5D_mp_H5DREAD_C_LONG_DOUBLE_3
|
||||
H5D_mp_H5DREAD_C_LONG_DOUBLE_4
|
||||
H5D_mp_H5DREAD_C_LONG_DOUBLE_5
|
||||
H5D_mp_H5DREAD_C_LONG_DOUBLE_6
|
||||
H5D_mp_H5DREAD_C_LONG_DOUBLE_7
|
||||
H5D_mp_H5DWRITE_C_DOUBLE_SCALAR
|
||||
H5D_mp_H5DWRITE_C_DOUBLE_1
|
||||
H5D_mp_H5DWRITE_C_DOUBLE_2
|
||||
H5D_mp_H5DWRITE_C_DOUBLE_3
|
||||
H5D_mp_H5DWRITE_C_DOUBLE_4
|
||||
H5D_mp_H5DWRITE_C_DOUBLE_5
|
||||
H5D_mp_H5DWRITE_C_DOUBLE_6
|
||||
H5D_mp_H5DWRITE_C_DOUBLE_7
|
||||
H5D_mp_H5DWRITE_C_LONG_DOUBLE_SCALAR
|
||||
H5D_mp_H5DWRITE_C_LONG_DOUBLE_1
|
||||
H5D_mp_H5DWRITE_C_LONG_DOUBLE_2
|
||||
H5D_mp_H5DWRITE_C_LONG_DOUBLE_3
|
||||
H5D_mp_H5DWRITE_C_LONG_DOUBLE_4
|
||||
H5D_mp_H5DWRITE_C_LONG_DOUBLE_5
|
||||
H5D_mp_H5DWRITE_C_LONG_DOUBLE_6
|
||||
H5D_mp_H5DWRITE_C_LONG_DOUBLE_7
|
||||
H5P_mp_H5PGET_C_DOUBLE
|
||||
H5P_mp_H5PSET_C_DOUBLE
|
||||
H5P_mp_H5PSET_FILL_VALUE_C_DOUBLE
|
||||
H5P_mp_H5PGET_FILL_VALUE_C_DOUBLE
|
||||
H5P_mp_H5PINSERT_C_DOUBLE
|
||||
H5P_mp_H5PREGISTER_C_DOUBLE
|
||||
; H5A
|
||||
H5A_mp_H5AWRITE_INTEGER_SCALAR
|
||||
H5A_mp_H5AWRITE_INTEGER_1
|
||||
@ -184,6 +144,22 @@ H5D_mp_H5DWRITE_C_FLOAT_4
|
||||
H5D_mp_H5DWRITE_C_FLOAT_5
|
||||
H5D_mp_H5DWRITE_C_FLOAT_6
|
||||
H5D_mp_H5DWRITE_C_FLOAT_7
|
||||
H5D_mp_H5DWRITE_C_DOUBLE_SCALAR
|
||||
H5D_mp_H5DWRITE_C_DOUBLE_1
|
||||
H5D_mp_H5DWRITE_C_DOUBLE_2
|
||||
H5D_mp_H5DWRITE_C_DOUBLE_3
|
||||
H5D_mp_H5DWRITE_C_DOUBLE_4
|
||||
H5D_mp_H5DWRITE_C_DOUBLE_5
|
||||
H5D_mp_H5DWRITE_C_DOUBLE_6
|
||||
H5D_mp_H5DWRITE_C_DOUBLE_7
|
||||
H5D_mp_H5DWRITE_C_LONG_DOUBLE_SCALAR
|
||||
H5D_mp_H5DWRITE_C_LONG_DOUBLE_1
|
||||
H5D_mp_H5DWRITE_C_LONG_DOUBLE_2
|
||||
H5D_mp_H5DWRITE_C_LONG_DOUBLE_3
|
||||
H5D_mp_H5DWRITE_C_LONG_DOUBLE_4
|
||||
H5D_mp_H5DWRITE_C_LONG_DOUBLE_5
|
||||
H5D_mp_H5DWRITE_C_LONG_DOUBLE_6
|
||||
H5D_mp_H5DWRITE_C_LONG_DOUBLE_7
|
||||
H5D_mp_H5DREAD_REFERENCE_OBJ
|
||||
H5D_mp_H5DREAD_REFERENCE_DSETREG
|
||||
H5D_mp_H5DREAD_INTEGER_SCALAR
|
||||
@ -210,6 +186,22 @@ H5D_mp_H5DREAD_C_FLOAT_4
|
||||
H5D_mp_H5DREAD_C_FLOAT_5
|
||||
H5D_mp_H5DREAD_C_FLOAT_6
|
||||
H5D_mp_H5DREAD_C_FLOAT_7
|
||||
H5D_mp_H5DREAD_C_DOUBLE_SCALAR
|
||||
H5D_mp_H5DREAD_C_DOUBLE_1
|
||||
H5D_mp_H5DREAD_C_DOUBLE_2
|
||||
H5D_mp_H5DREAD_C_DOUBLE_3
|
||||
H5D_mp_H5DREAD_C_DOUBLE_4
|
||||
H5D_mp_H5DREAD_C_DOUBLE_5
|
||||
H5D_mp_H5DREAD_C_DOUBLE_6
|
||||
H5D_mp_H5DREAD_C_DOUBLE_7
|
||||
H5D_mp_H5DREAD_C_LONG_DOUBLE_SCALAR
|
||||
H5D_mp_H5DREAD_C_LONG_DOUBLE_1
|
||||
H5D_mp_H5DREAD_C_LONG_DOUBLE_2
|
||||
H5D_mp_H5DREAD_C_LONG_DOUBLE_3
|
||||
H5D_mp_H5DREAD_C_LONG_DOUBLE_4
|
||||
H5D_mp_H5DREAD_C_LONG_DOUBLE_5
|
||||
H5D_mp_H5DREAD_C_LONG_DOUBLE_6
|
||||
H5D_mp_H5DREAD_C_LONG_DOUBLE_7
|
||||
H5D_mp_H5DGET_SPACE_F
|
||||
H5D_mp_H5DGET_TYPE_F
|
||||
H5D_mp_H5DSET_EXTENT_F
|
||||
@ -222,9 +214,11 @@ H5D_mp_H5DWRITE_VL_REAL
|
||||
H5D_mp_H5DREAD_VL_REAL
|
||||
H5D_mp_H5DWRITE_VL_STRING
|
||||
H5D_mp_H5DREAD_VL_STRING
|
||||
H5D_mp_H5DFILL_INTEGER
|
||||
H5D_mp_H5DFILL_REAL
|
||||
H5D_mp_H5DFILL_CHAR
|
||||
H5D_mp_H5DFILL_INTEGER
|
||||
H5D_mp_H5DFILL_C_FLOAT
|
||||
H5D_mp_H5DFILL_C_DOUBLE
|
||||
H5D_mp_H5DFILL_C_LONG_DOUBLE
|
||||
H5D_mp_H5DGET_SPACE_STATUS_F
|
||||
H5D_mp_H5DCREATE_ANON_F
|
||||
H5D_mp_H5DGET_SPACE_F
|
||||
@ -352,12 +346,16 @@ H5P_mp_H5PCLOSE_F
|
||||
H5P_mp_H5PSET_CHUNK_F
|
||||
H5P_mp_H5PGET_CHUNK_F
|
||||
H5P_mp_H5PSET_DEFLATE_F
|
||||
H5P_mp_H5PSET_FILL_VALUE_INTEGER
|
||||
H5P_mp_H5PGET_FILL_VALUE_INTEGER
|
||||
H5P_mp_H5PSET_FILL_VALUE_REAL
|
||||
H5P_mp_H5PGET_FILL_VALUE_REAL
|
||||
H5P_mp_H5PSET_FILL_VALUE_CHAR
|
||||
H5P_mp_H5PGET_FILL_VALUE_CHAR
|
||||
H5P_mp_H5PSET_FILL_VALUE_INTEGER
|
||||
H5P_mp_H5PGET_FILL_VALUE_INTEGER
|
||||
H5P_mp_H5PSET_FILL_VALUE_C_FLOAT
|
||||
H5P_mp_H5PGET_FILL_VALUE_C_FLOAT
|
||||
H5P_mp_H5PSET_FILL_VALUE_C_DOUBLE
|
||||
H5P_mp_H5PGET_FILL_VALUE_C_DOUBLE
|
||||
H5P_mp_H5PSET_FILL_VALUE_C_LONG_DOUBLE
|
||||
H5P_mp_H5PGET_FILL_VALUE_C_LONG_DOUBLE
|
||||
H5P_mp_H5PGET_VERSION_F
|
||||
H5P_mp_H5PSET_USERBLOCK_F
|
||||
H5P_mp_H5PGET_USERBLOCK_F
|
||||
@ -409,12 +407,16 @@ H5P_mp_H5PSET_SMALL_DATA_BLOCK_SIZE_F
|
||||
H5P_mp_H5PGET_SMALL_DATA_BLOCK_SIZE_F
|
||||
H5P_mp_H5PSET_HYPER_VECTOR_SIZE_F
|
||||
H5P_mp_H5PGET_HYPER_VECTOR_SIZE_F
|
||||
H5P_mp_H5PSET_INTEGER
|
||||
H5P_mp_H5PSET_REAL
|
||||
H5P_mp_H5PSET_CHAR
|
||||
H5P_mp_H5PGET_INTEGER
|
||||
H5P_mp_H5PGET_REAL
|
||||
H5P_mp_H5PSET_INTEGER
|
||||
H5P_mp_H5PSET_C_FLOAT
|
||||
H5P_mp_H5PSET_C_DOUBLE
|
||||
H5P_mp_H5PSET_C_LONG_DOUBLE
|
||||
H5P_mp_H5PGET_CHAR
|
||||
H5P_mp_H5PGET_INTEGER
|
||||
H5P_mp_H5PGET_C_FLOAT
|
||||
H5P_mp_H5PGET_C_DOUBLE
|
||||
H5P_mp_H5PGET_C_LONG_DOUBLE
|
||||
H5P_mp_H5PEXIST_F
|
||||
H5P_mp_H5PGET_SIZE_F
|
||||
H5P_mp_H5PGET_NPROPS_F
|
||||
@ -427,11 +429,15 @@ H5P_mp_H5PUNREGISTER_F
|
||||
H5P_mp_H5PCLOSE_CLASS_F
|
||||
H5P_mp_H5PCREATE_CLASS_F
|
||||
H5P_mp_H5PREGISTER_INTEGER
|
||||
H5P_mp_H5PREGISTER_REAL
|
||||
H5P_mp_H5PREGISTER_C_FLOAT
|
||||
H5P_mp_H5PREGISTER_C_DOUBLE
|
||||
H5P_mp_H5PREGISTER_C_LONG_DOUBLE
|
||||
H5P_mp_H5PREGISTER_CHAR
|
||||
H5P_mp_H5PINSERT_INTEGER
|
||||
H5P_mp_H5PINSERT_REAL
|
||||
H5P_mp_H5PINSERT_CHAR
|
||||
H5P_mp_H5PINSERT_INTEGER
|
||||
H5P_mp_H5PINSERT_C_FLOAT
|
||||
H5P_mp_H5PINSERT_C_DOUBLE
|
||||
H5P_mp_H5PINSERT_C_LONG_DOUBLE
|
||||
H5P_mp_H5PSET_SHUFFLE_F
|
||||
H5P_mp_H5PSET_EDC_CHECK_F
|
||||
H5P_mp_H5PGET_EDC_CHECK_F
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user