summaryrefslogtreecommitdiffstats
path: root/hl/fortran/src/H5HL_buildiface.F90
diff options
context:
space:
mode:
Diffstat (limited to 'hl/fortran/src/H5HL_buildiface.F90')
-rw-r--r--hl/fortran/src/H5HL_buildiface.F90683
1 files changed, 0 insertions, 683 deletions
diff --git a/hl/fortran/src/H5HL_buildiface.F90 b/hl/fortran/src/H5HL_buildiface.F90
deleted file mode 100644
index 0e85e27..0000000
--- a/hl/fortran/src/H5HL_buildiface.F90
+++ /dev/null
@@ -1,683 +0,0 @@
-!****p* Program/H5HL_buildiface
-!
-! NAME
-! Executable: H5HL_buildiface
-!
-! FILE
-! fortran/src/H5HL_buildiface.f90
-!
-! PURPOSE
-! This stand alone program is used at build time to generate the program
-! H5HL_gen.f90. It cycles through all the available KIND parameters for
-! integers and reals. The appropriate program and subroutines are then generated
-! depending on which of the KIND values are found.
-!
-! NOTES
-! This program uses the Fortran 2008 intrinsic function STORAGE_SIZE or SIZEOF
-! depending on availablity.It generates code that makes use of
-! STORAGE_SIZE/SIZEOF in H5fortran_detect.f90. STORAGE_SIZE is standard
-! compliant and should always be chosen over SIZEOF.
-!
-! The availability of STORAGE_SIZE/SIZEOF is checked at configure time and the TRUE/FALSE
-! condition is set in the configure variable "FORTRAN_HAVE_STORAGE_SIZE" or
-! "FORTRAN_HAVE_SIZEOF".
-!
-! The use of C_SIZOF(X) is not used since the argument X must be an interoperable
-! data entity.
-!
-! COPYRIGHT
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
-! Copyright by The HDF Group. *
-! Copyright by the Board of Trustees of the University of Illinois. *
-! All rights reserved. *
-! *
-! This file is part of HDF5. The full HDF5 copyright notice, including *
-! terms governing use, modification, and redistribution, is contained in *
-! the files COPYING and Copyright.html. COPYING can be found at the root *
-! of the source code distribution tree; Copyright.html can be found at the *
-! root level of an installed copy of the electronic HDF5 document set and *
-! is linked from the top-level documents page. It can also be found at *
-! http://hdfgroup.org/HDF5/doc/Copyright.html. If you do not have *
-! access to either file, you may request a copy from help@hdfgroup.org. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
-!
-! AUTHOR
-! M. Scot Breitenfeld
-!
-!*****
-
-#include <H5config_f.inc>
-
-PROGRAM H5HL_buildiface
- USE, INTRINSIC :: ISO_C_BINDING
- IMPLICIT NONE
-
-! These values are valid REAL KINDs (with corresponding C float) found during configure
- H5_H5CONFIG_F_NUM_RKIND
- H5_H5CONFIG_F_RKIND
-! These values are valid INTEGER KINDs (with corresponding C float) found during configure
- H5_H5CONFIG_F_NUM_IKIND
- H5_H5CONFIG_F_IKIND
-
- INTEGER :: i, j, k
- INTEGER :: ji, jr, jd
-#ifdef H5_FORTRAN_HAVE_C_LONG_DOUBLE
- REAL(KIND=C_LONG_DOUBLE) :: c_longdble
-#endif
- REAL(KIND=C_DOUBLE) :: c_dble
- REAL(KIND=C_FLOAT) :: c_flt
- INTEGER :: sizeof_var
- CHARACTER(LEN=2) :: chr2
-! subroutine rank of array being passed in
- CHARACTER(LEN=2), DIMENSION(1:8), PARAMETER :: chr_rank=(/"_0","_1","_2","_3","_4","_5","_6","_7"/)
-! rank definitions
- CHARACTER(LEN=70), DIMENSION(1:8), PARAMETER :: rank_dim_line=(/ &
- ' ', &
- ', DIMENSION(dims(1)) ', &
- ', DIMENSION(dims(1),dims(2)) ', &
- ', DIMENSION(dims(1),dims(2),dims(3)) ', &
- ', DIMENSION(dims(1),dims(2),dims(3),dims(4)) ', &
- ', DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) ', &
- ', DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) ', &
- ', DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7))' &
- /)
-! pointer to the buffer
- CHARACTER(LEN=37), DIMENSION(1:8), PARAMETER :: f_ptr_line=(/ &
- ' f_ptr = C_LOC(buf) ', &
- ' f_ptr = C_LOC(buf(1)) ', &
- ' f_ptr = C_LOC(buf(1,1)) ', &
- ' f_ptr = C_LOC(buf(1,1,1)) ', &
- ' f_ptr = C_LOC(buf(1,1,1,1)) ', &
- ' f_ptr = C_LOC(buf(1,1,1,1,1)) ', &
- ' f_ptr = C_LOC(buf(1,1,1,1,1,1)) ', &
- ' f_ptr = C_LOC(buf(1,1,1,1,1,1,1))' &
- /)
-
-! Generate Fortran H5LT* interfaces having multiple KIND interfaces.
-!
-! Developer's notes:
-!
-! Only interfaces with arrays of rank 7 and less are provided. Even-though the F2008
-! standard extended the maximum rank to 15, it was decided that they should use the
-! new APIs to handle those use cases. Handling rank 7 and less is for backward compatibility
-! with the Fortran 90/95 APIs codes which could never handle rank 8-15 array sizes.
-
- OPEN(11,FILE='H5LTff_gen.F90')
- WRITE(11,'(40(A,/))') &
-'!****h* ROBODoc/H5LTff_gen.F90',&
-'!',&
-'! NAME',&
-'! H5LTff_gen',&
-'! ',&
-'! PURPOSE',&
-'! This module is generated at build by H5HL_buildiface.F90 to handle all the',&
-'! detected REAL/INTEGER KINDs for APIs being passed those KINDs. Currently these ',&
-'! are H5LT and H5TB APIs',&
-'!',&
-'! COPYRIGHT',&
-'! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *',&
-'! Copyright by The HDF Group. *',&
-'! All rights reserved. *',&
-'! *',&
-'! This file is part of HDF5. The full HDF5 copyright notice, including *',&
-'! terms governing use, modification, and redistribution, is contained in *',&
-'! the files COPYING and Copyright.html. COPYING can be found at the root *',&
-'! of the source code distribution tree; Copyright.html can be found at the *',&
-'! root level of an installed copy of the electronic HDF5 document set and *',&
-'! is linked from the top-level documents page. It can also be found at *',&
-'! http://hdfgroup.org/HDF5/doc/Copyright.html. If you do not have *',&
-'! access to either file, you may request a copy from help@hdfgroup.org. *',&
-'! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *',&
-'!',&
-'! AUTHOR',&
-'! H5HL_buildiface.F90',&
-'!',&
-'!*****'
-
- WRITE(11,'(a)') "MODULE H5LT"
-
- WRITE(11,'(A)') ' USE, INTRINSIC :: ISO_C_BINDING'
- WRITE(11,'(A)') ' USE h5fortran_types'
- WRITE(11,'(A)') ' USE H5LT_CONST'
- WRITE(11,'(A)') ' IMPLICIT NONE'
-!***************
-! H5LT INTERFACES
-!***************
-!
-! H5LTmake_dataset_f
-!
- WRITE(11,'(A)') " INTERFACE h5ltmake_dataset_f"
- DO i = 1, num_rkinds
- j = rkind(i)
- WRITE(chr2,'(I2)') j
- DO k = 1, 8
- WRITE(11,'(A)') " MODULE PROCEDURE h5ltmake_dataset_real_kind_"//TRIM(ADJUSTL(chr2))//'_rank'//chr_rank(k)
- ENDDO
- END DO
- WRITE(11,'(A)') " END INTERFACE"
-
-! h5ltread_dataset_f
- WRITE(11,'(A)') " INTERFACE h5ltread_dataset_f"
- DO i = 1, num_rkinds
- j = rkind(i)
- WRITE(chr2,'(I2)') j
- DO k = 1, 8
- WRITE(11,'(A)') " MODULE PROCEDURE h5ltread_dataset_real_kind_"//TRIM(ADJUSTL(chr2))//'_rank'//chr_rank(k)
- ENDDO
- END DO
- WRITE(11,'(A)') " END INTERFACE"
-
-! h5ltmake_dataset_float_f
- WRITE(11,'(A)') " INTERFACE h5ltmake_dataset_float_f"
- DO i = 1, num_rkinds
- j = rkind(i)
- WRITE(chr2,'(I2)') j
- DO k = 1, 8
- WRITE(11,'(A)') " MODULE PROCEDURE h5ltmake_dataset_float_kind_"//TRIM(ADJUSTL(chr2))//'_rank'//chr_rank(k)
- ENDDO
- END DO
- WRITE(11,'(A)') " END INTERFACE"
-
-! h5ltmake_dataset_double_f
- WRITE(11,'(A)') " INTERFACE h5ltmake_dataset_double_f"
- DO i = 1, num_rkinds
- j = rkind(i)
- WRITE(chr2,'(I2)') j
- DO k = 1, 8
- WRITE(11,'(A)') " MODULE PROCEDURE h5ltmake_dataset_double_kind_"//TRIM(ADJUSTL(chr2))//'_rank'//chr_rank(k)
- ENDDO
- END DO
- WRITE(11,'(A)') " END INTERFACE"
-
-! h5ltread_dataset_float_f
- WRITE(11,'(A)') " INTERFACE h5ltread_dataset_float_f"
- DO i = 1, num_rkinds
- j = rkind(i)
- WRITE(chr2,'(I2)') j
- DO k = 1, 8
- WRITE(11,'(A)') " MODULE PROCEDURE h5ltread_dataset_float_kind_"//TRIM(ADJUSTL(chr2))//'_rank'//chr_rank(k)
- ENDDO
- END DO
- WRITE(11,'(A)') " END INTERFACE"
-
-! h5ltread_dataset_double_f
- WRITE(11,'(A)') " INTERFACE h5ltread_dataset_double_f"
- DO i = 1, num_rkinds
- j = rkind(i)
- WRITE(chr2,'(I2)') j
- DO k = 1, 8
- WRITE(11,'(A)') " MODULE PROCEDURE h5ltread_dataset_double_kind_"//TRIM(ADJUSTL(chr2))//'_rank'//chr_rank(k)
- ENDDO
- END DO
- WRITE(11,'(A)') " END INTERFACE"
-
- WRITE(11,'(A)') 'CONTAINS'
-
-!**********************
-! H5LT APIs
-!**********************
-!
-! h5ltmake_dataset_f
- DO i = 1, num_rkinds
- k = rkind(i)
- WRITE(chr2,'(I2)') k
- DO j = 1, 8
-
-! DLL definitions for windows
- WRITE(11,'(A)') '!DEC$if defined(BUILD_HDF5_HL_DLL)'
- WRITE(11,'(A)') '!DEC$attributes dllexport :: h5ltmake_dataset_real_kind_'//TRIM(ADJUSTL(chr2))//'_rank'//chr_rank(j)
- WRITE(11,'(A)') '!DEC$endif'
-
-! Subroutine API
- WRITE(11,'(A)') ' SUBROUTINE h5ltmake_dataset_real_kind_'//TRIM(ADJUSTL(chr2))&
- &//'_rank'//chr_rank(j)//'(loc_id,dset_name,rank,dims,type_id,buf,errcode)'
- WRITE(11,'(A)') ' IMPLICIT NONE'
- WRITE(11,'(A)') ' INTEGER(hid_t) , INTENT(IN) :: loc_id'
- WRITE(11,'(A)') ' CHARACTER(LEN=*), INTENT(IN) :: dset_name'
- WRITE(11,'(A)') ' INTEGER, INTENT(IN) :: rank'
- WRITE(11,'(A)') ' INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims'
- WRITE(11,'(A)') ' INTEGER(hid_t), INTENT(in) :: type_id'
- WRITE(11,'(A)') ' REAL(KIND='//TRIM(ADJUSTL(chr2))//'),INTENT(IN)'//TRIM(rank_dim_line(j))//', TARGET :: buf'
- WRITE(11,'(A)') ' INTEGER :: errcode '
- WRITE(11,'(A)') ' TYPE(C_PTR) :: f_ptr'
- WRITE(11,'(A)') ' INTEGER(size_t) :: namelen'
-
- WRITE(11,'(A)') f_ptr_line(j)
- WRITE(11,'(A)') ' namelen = LEN(dset_name)'
- WRITE(11,'(A)') ' errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,f_ptr)'
- WRITE(11,'(A)') ' END SUBROUTINE h5ltmake_dataset_real_kind_'//TRIM(ADJUSTL(chr2))//'_rank'//chr_rank(j)
- ENDDO
- ENDDO
-
-! h5ltread_dataset_f
- DO i = 1, num_rkinds
- k = rkind(i)
- WRITE(chr2,'(I2)') k
- DO j = 1, 8
-
-! DLL definitions for windows
- WRITE(11,'(A)') '!DEC$if defined(BUILD_HDF5_HL_DLL)'
- WRITE(11,'(A)') '!DEC$attributes dllexport :: h5ltread_dataset_real_kind_'//TRIM(ADJUSTL(chr2))//'_rank'//chr_rank(j)
- WRITE(11,'(A)') '!DEC$endif'
-
-! Subroutine API
- WRITE(11,'(A)') ' SUBROUTINE h5ltread_dataset_real_kind_'//TRIM(ADJUSTL(chr2))&
- &//'_rank'//chr_rank(j)//'(loc_id,dset_name,type_id,buf,dims,errcode)'
- WRITE(11,'(A)') ' IMPLICIT NONE'
- WRITE(11,'(A)') ' INTEGER(hid_t) , INTENT(IN) :: loc_id'
- WRITE(11,'(A)') ' CHARACTER(LEN=*), INTENT(IN) :: dset_name'
- WRITE(11,'(A)') ' INTEGER(hid_t), INTENT(in) :: type_id'
- WRITE(11,'(A)') ' INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims'
- WRITE(11,'(A)') ' REAL(KIND='//TRIM(ADJUSTL(chr2))//'),INTENT(IN)'//TRIM(rank_dim_line(j))//', TARGET :: buf'
- WRITE(11,'(A)') ' INTEGER :: errcode '
- WRITE(11,'(A)') ' TYPE(C_PTR) :: f_ptr'
- WRITE(11,'(A)') ' INTEGER(size_t) :: namelen'
-
- WRITE(11,'(A)') f_ptr_line(j)
- WRITE(11,'(A)') ' namelen = LEN(dset_name)'
- WRITE(11,'(A)') ' errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,f_ptr)'
- WRITE(11,'(A)') ' END SUBROUTINE h5ltread_dataset_real_kind_'//TRIM(ADJUSTL(chr2))//'_rank'//chr_rank(j)
- ENDDO
- ENDDO
-
-! h5ltmake_dataset_float_f
- DO i = 1, num_rkinds
- k = rkind(i)
- WRITE(chr2,'(I2)') k
- DO j = 1, 8
-
-! DLL definitions for windows
- WRITE(11,'(A)') '!DEC$if defined(BUILD_HDF5_HL_DLL)'
- WRITE(11,'(A)') '!DEC$attributes dllexport :: h5ltmake_dataset_float_kind_'//TRIM(ADJUSTL(chr2))//'_rank'//chr_rank(j)
- WRITE(11,'(A)') '!DEC$endif'
-
-! Subroutine API
- WRITE(11,'(A)') ' SUBROUTINE h5ltmake_dataset_float_kind_'//TRIM(ADJUSTL(chr2))&
- &//'_rank'//chr_rank(j)//'(loc_id,dset_name,rank,dims,buf,errcode)'
- WRITE(11,'(A)') ' IMPLICIT NONE'
- WRITE(11,'(A)') ' INTEGER(hid_t) , INTENT(IN) :: loc_id'
- WRITE(11,'(A)') ' CHARACTER(LEN=*), INTENT(IN) :: dset_name'
- WRITE(11,'(A)') ' INTEGER, INTENT(IN) :: rank'
- WRITE(11,'(A)') ' INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims'
- WRITE(11,'(A)') ' REAL(KIND='//TRIM(ADJUSTL(chr2))//'),INTENT(IN)'//TRIM(rank_dim_line(j))//', TARGET :: buf'
- WRITE(11,'(A)') ' INTEGER :: errcode '
- WRITE(11,'(A)') ' TYPE(C_PTR) :: f_ptr'
- WRITE(11,'(A)') ' INTEGER(size_t) :: namelen'
-
- WRITE(11,'(A)') f_ptr_line(j)
- WRITE(11,'(A)') ' namelen = LEN(dset_name)'
- WRITE(11,'(A)') ' errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,f_ptr)'
- WRITE(11,'(A)') ' END SUBROUTINE h5ltmake_dataset_float_kind_'//TRIM(ADJUSTL(chr2))//'_rank'//chr_rank(j)
- ENDDO
- ENDDO
-
-! h5ltread_dataset_float_f
- DO i = 1, num_rkinds
- k = rkind(i)
- WRITE(chr2,'(I2)') k
- DO j = 1, 8
-
-! DLL definitions for windows
- WRITE(11,'(A)') '!DEC$if defined(BUILD_HDF5_HL_DLL)'
- WRITE(11,'(A)') '!DEC$attributes dllexport :: h5ltread_dataset_float_kind_'//TRIM(ADJUSTL(chr2))//'_rank'//chr_rank(j)
- WRITE(11,'(A)') '!DEC$endif'
-
-! Subroutine API
- WRITE(11,'(A)') ' SUBROUTINE h5ltread_dataset_float_kind_'//TRIM(ADJUSTL(chr2))&
- &//'_rank'//chr_rank(j)//'(loc_id,dset_name,buf,dims,errcode)'
- WRITE(11,'(A)') ' IMPLICIT NONE'
- WRITE(11,'(A)') ' INTEGER(hid_t) , INTENT(IN) :: loc_id'
- WRITE(11,'(A)') ' CHARACTER(LEN=*), INTENT(IN) :: dset_name'
- WRITE(11,'(A)') ' INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims'
- WRITE(11,'(A)') ' REAL(KIND='//TRIM(ADJUSTL(chr2))//'),INTENT(IN)'//TRIM(rank_dim_line(j))//', TARGET :: buf'
- WRITE(11,'(A)') ' INTEGER :: errcode '
- WRITE(11,'(A)') ' TYPE(C_PTR) :: f_ptr'
- WRITE(11,'(A)') ' INTEGER(size_t) :: namelen'
-
- WRITE(11,'(A)') f_ptr_line(j)
- WRITE(11,'(A)') ' namelen = LEN(dset_name)'
- WRITE(11,'(A)') ' errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,f_ptr)'
- WRITE(11,'(A)') ' END SUBROUTINE h5ltread_dataset_float_kind_'//TRIM(ADJUSTL(chr2))//'_rank'//chr_rank(j)
- ENDDO
- ENDDO
-
-! h5ltmake_dataset_double_f
- DO i = 1, num_rkinds
- k = rkind(i)
- WRITE(chr2,'(I2)') k
- DO j = 1, 8
-
-! DLL definitions for windows
- WRITE(11,'(A)') '!DEC$if defined(BUILD_HDF5_HL_DLL)'
- WRITE(11,'(A)') '!DEC$attributes dllexport :: h5ltmake_dataset_double_kind_'//TRIM(ADJUSTL(chr2))//'_rank'//chr_rank(j)
- WRITE(11,'(A)') '!DEC$endif'
-
-! Subroutine API
- WRITE(11,'(A)') ' SUBROUTINE h5ltmake_dataset_double_kind_'//TRIM(ADJUSTL(chr2))&
- &//'_rank'//chr_rank(j)//'(loc_id,dset_name,rank,dims,buf,errcode)'
- WRITE(11,'(A)') ' IMPLICIT NONE'
- WRITE(11,'(A)') ' INTEGER(hid_t) , INTENT(IN) :: loc_id'
- WRITE(11,'(A)') ' CHARACTER(LEN=*), INTENT(IN) :: dset_name'
- WRITE(11,'(A)') ' INTEGER, INTENT(IN) :: rank'
- WRITE(11,'(A)') ' INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims'
- WRITE(11,'(A)') ' REAL(KIND='//TRIM(ADJUSTL(chr2))//'),INTENT(IN)'//TRIM(rank_dim_line(j))//', TARGET :: buf'
- WRITE(11,'(A)') ' INTEGER :: errcode '
- WRITE(11,'(A)') ' TYPE(C_PTR) :: f_ptr'
- WRITE(11,'(A)') ' INTEGER(size_t) :: namelen'
-
- WRITE(11,'(A)') f_ptr_line(j)
- WRITE(11,'(A)') ' namelen = LEN(dset_name)'
- WRITE(11,'(A)') ' errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,f_ptr)'
- WRITE(11,'(A)') ' END SUBROUTINE h5ltmake_dataset_double_kind_'//TRIM(ADJUSTL(chr2))//'_rank'//chr_rank(j)
- ENDDO
- ENDDO
-
-! h5ltread_dataset_double_f
- DO i = 1, num_rkinds
- k = rkind(i)
- WRITE(chr2,'(I2)') k
- DO j = 1, 8
-
-! DLL definitions for windows
- WRITE(11,'(A)') '!DEC$if defined(BUILD_HDF5_HL_DLL)'
- WRITE(11,'(A)') '!DEC$attributes dllexport :: h5ltread_dataset_double_kind_'//TRIM(ADJUSTL(chr2))//'_rank'//chr_rank(j)
- WRITE(11,'(A)') '!DEC$endif'
-
-! Subroutine API
- WRITE(11,'(A)') ' SUBROUTINE h5ltread_dataset_double_kind_'//TRIM(ADJUSTL(chr2))&
- &//'_rank'//chr_rank(j)//'(loc_id,dset_name,buf,dims,errcode)'
- WRITE(11,'(A)') ' IMPLICIT NONE'
- WRITE(11,'(A)') ' INTEGER(hid_t) , INTENT(IN) :: loc_id'
- WRITE(11,'(A)') ' CHARACTER(LEN=*), INTENT(IN) :: dset_name'
- WRITE(11,'(A)') ' INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims'
- WRITE(11,'(A)') ' REAL(KIND='//TRIM(ADJUSTL(chr2))//'),INTENT(IN)'//TRIM(rank_dim_line(j))//', TARGET :: buf'
- WRITE(11,'(A)') ' INTEGER :: errcode '
- WRITE(11,'(A)') ' TYPE(C_PTR) :: f_ptr'
- WRITE(11,'(A)') ' INTEGER(size_t) :: namelen'
-
- WRITE(11,'(A)') f_ptr_line(j)
- WRITE(11,'(A)') ' namelen = LEN(dset_name)'
- WRITE(11,'(A)') ' errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,f_ptr)'
- WRITE(11,'(A)') ' END SUBROUTINE h5ltread_dataset_double_kind_'//TRIM(ADJUSTL(chr2))//'_rank'//chr_rank(j)
- ENDDO
- ENDDO
-
- WRITE(11,'(A)') 'END MODULE H5LT' ! change this to be generic MSB
-
- CLOSE(11)
-
-! Generate Fortran H5TB* interfaces having multiple KIND interfaces.
-
-
- OPEN(11,FILE='H5TBff_gen.F90')
- WRITE(11,'(40(A,/))') &
-'!****h* ROBODoc/H5TBff_gen.F90',&
-'!',&
-'! NAME',&
-'! H5TBff_gen',&
-'! ',&
-'! PURPOSE',&
-'! This module is generated at build by H5HL_buildiface.F90 to handle all the',&
-'! detected REAL/INTEGER KINDs for APIs being passed those KINDs. Currently these ',&
-'! are H5LT and H5TB APIs',&
-'!',&
-'! COPYRIGHT',&
-'! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *',&
-'! Copyright by The HDF Group. *',&
-'! All rights reserved. *',&
-'! *',&
-'! This file is part of HDF5. The full HDF5 copyright notice, including *',&
-'! terms governing use, modification, and redistribution, is contained in *',&
-'! the files COPYING and Copyright.html. COPYING can be found at the root *',&
-'! of the source code distribution tree; Copyright.html can be found at the *',&
-'! root level of an installed copy of the electronic HDF5 document set and *',&
-'! is linked from the top-level documents page. It can also be found at *',&
-'! http://hdfgroup.org/HDF5/doc/Copyright.html. If you do not have *',&
-'! access to either file, you may request a copy from help@hdfgroup.org. *',&
-'! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *',&
-'!',&
-'! AUTHOR',&
-'! H5HL_buildiface.F90',&
-'!',&
-'!*****'
-
- WRITE(11,'(a)') "MODULE H5TB"
-
- WRITE(11,'(A)') ' USE, INTRINSIC :: ISO_C_BINDING'
- WRITE(11,'(A)') ' USE h5fortran_types'
- WRITE(11,'(A)') ' USE H5TB_CONST'
- WRITE(11,'(A)') ' IMPLICIT NONE'
-
-!***************
-! H5TB INTERFACES
-!***************
-
-! h5tbwrite_field_name_f
- WRITE(11,'(A)') " INTERFACE h5tbwrite_field_name_f"
- DO i = 1, num_rkinds
- j = rkind(i)
- WRITE(chr2,'(I2)') j
- k =2
- WRITE(11,'(A)') " MODULE PROCEDURE h5tbwrite_field_name_kind_"//TRIM(ADJUSTL(chr2))//'_rank'//chr_rank(k)
- END DO
- WRITE(11,'(A)') " END INTERFACE"
-
-! h5tbread_field_name_f
- WRITE(11,'(A)') " INTERFACE h5tbread_field_name_f"
- DO i = 1, num_rkinds
- j = rkind(i)
- WRITE(chr2,'(I2)') j
- k = 2
- WRITE(11,'(A)') " MODULE PROCEDURE h5tbread_field_name_kind_"//TRIM(ADJUSTL(chr2))//'_rank'//chr_rank(k)
- END DO
- WRITE(11,'(A)') " END INTERFACE"
-
-! h5tbwrite_field_index_f
- WRITE(11,'(A)') " INTERFACE h5tbwrite_field_index_f"
- DO i = 1, num_rkinds
- j = rkind(i)
- WRITE(chr2,'(I2)') j
- k = 2
- WRITE(11,'(A)') " MODULE PROCEDURE h5tbwrite_field_index_kind_"//TRIM(ADJUSTL(chr2))//'_rank'//chr_rank(k)
- END DO
- WRITE(11,'(A)') " END INTERFACE"
-
-! h5tbread_field_index_f
- WRITE(11,'(A)') " INTERFACE h5tbread_field_index_f"
- DO i = 1, num_rkinds
- j = rkind(i)
- WRITE(chr2,'(I2)') j
- k = 2
- WRITE(11,'(A)') " MODULE PROCEDURE h5tbread_field_index_kind_"//TRIM(ADJUSTL(chr2))//'_rank'//chr_rank(k)
- END DO
- WRITE(11,'(A)') " END INTERFACE"
-
-! h5tbinsert_field_f
- WRITE(11,'(A)') " INTERFACE h5tbinsert_field_f"
- DO i = 1, num_rkinds
- j = rkind(i)
- WRITE(chr2,'(I2)') j
- k = 2
- WRITE(11,'(A)') " MODULE PROCEDURE h5tbinsert_field_kind_"//TRIM(ADJUSTL(chr2))//'_rank'//chr_rank(k)
- END DO
- WRITE(11,'(A)') " END INTERFACE"
-
- WRITE(11,'(A)') 'CONTAINS'
-
- !**********************
- ! H5TB APIs
- !**********************
-
- ! h5tbwrite_field_name_f
- DO i = 1, num_rkinds
- k = rkind(i)
- WRITE(chr2,'(I2)') k
- j = 2
-! DLL definitions for windows
- WRITE(11,'(A)') '!DEC$if defined(BUILD_HDF5_HL_DLL)'
- WRITE(11,'(A)') '!DEC$attributes dllexport :: h5tbwrite_field_name_kind_'//TRIM(ADJUSTL(chr2))//'_rank'//chr_rank(j)
- WRITE(11,'(A)') '!DEC$endif'
-
-! Subroutine API
- WRITE(11,'(A)') ' SUBROUTINE h5tbwrite_field_name_kind_'//TRIM(ADJUSTL(chr2))&
- &//'_rank'//chr_rank(j)//'(loc_id,dset_name,field_name,start, nrecords,type_size,buf,errcode)'
- WRITE(11,'(A)') ' IMPLICIT NONE'
- WRITE(11,'(A)') ' INTEGER(hid_t) , INTENT(IN) :: loc_id'
- WRITE(11,'(A)') ' CHARACTER(LEN=*), INTENT(IN) :: dset_name'
- WRITE(11,'(A)') ' CHARACTER(LEN=*), INTENT(in) :: field_name'
- WRITE(11,'(A)') ' INTEGER(hsize_t), INTENT(in) :: start'
- WRITE(11,'(A)') ' INTEGER(hsize_t), INTENT(in) :: nrecords'
- WRITE(11,'(A)') ' INTEGER(size_t), INTENT(in) :: type_size'
- WRITE(11,'(A)') ' REAL(KIND='//TRIM(ADJUSTL(chr2))//'),INTENT(IN), DIMENSION(*), TARGET :: buf'
- WRITE(11,'(A)') ' INTEGER :: errcode '
- WRITE(11,'(A)') ' INTEGER(size_t) :: namelen'
- WRITE(11,'(A)') ' INTEGER(size_t) :: namelen1'
- WRITE(11,'(A)') ' TYPE(C_PTR) :: f_ptr'
-
- WRITE(11,'(A)') f_ptr_line(j)
- WRITE(11,'(A)') ' namelen = LEN(dset_name)'
- WRITE(11,'(A)') ' namelen1 = LEN(field_name)'
- WRITE(11,'(A)') &
- ' errcode = h5tbwrite_field_name_c(loc_id,namelen,dset_name,namelen1,field_name,start,nrecords,type_size,f_ptr)'
- WRITE(11,'(A)') ' END SUBROUTINE h5tbwrite_field_name_kind_'//TRIM(ADJUSTL(chr2))//'_rank'//chr_rank(j)
- ENDDO
-
- ! h5tbread_field_name_f
- DO i = 1, num_rkinds
- k = rkind(i)
- WRITE(chr2,'(I2)') k
- j = 2
-! DLL definitions for windows
- WRITE(11,'(A)') '!DEC$if defined(BUILD_HDF5_HL_DLL)'
- WRITE(11,'(A)') '!DEC$attributes dllexport :: h5tbread_field_name_kind_'//TRIM(ADJUSTL(chr2))//'_rank'//chr_rank(j)
- WRITE(11,'(A)') '!DEC$endif'
-
-! Subroutine API
- WRITE(11,'(A)') ' SUBROUTINE h5tbread_field_name_kind_'//TRIM(ADJUSTL(chr2))&
- &//'_rank'//chr_rank(j)//'(loc_id,dset_name,field_name,start, nrecords,type_size,buf,errcode)'
- WRITE(11,'(A)') ' IMPLICIT NONE'
- WRITE(11,'(A)') ' INTEGER(hid_t) , INTENT(IN) :: loc_id'
- WRITE(11,'(A)') ' CHARACTER(LEN=*), INTENT(IN) :: dset_name'
- WRITE(11,'(A)') ' CHARACTER(LEN=*), INTENT(in) :: field_name'
- WRITE(11,'(A)') ' INTEGER(hsize_t), INTENT(in) :: start'
- WRITE(11,'(A)') ' INTEGER(hsize_t), INTENT(in) :: nrecords'
- WRITE(11,'(A)') ' INTEGER(size_t), INTENT(in) :: type_size'
- WRITE(11,'(A)') ' REAL(KIND='//TRIM(ADJUSTL(chr2))//'),INTENT(IN), DIMENSION(*), TARGET :: buf'
- WRITE(11,'(A)') ' INTEGER :: errcode '
- WRITE(11,'(A)') ' INTEGER(size_t) :: namelen'
- WRITE(11,'(A)') ' INTEGER(size_t) :: namelen1'
- WRITE(11,'(A)') ' TYPE(C_PTR) :: f_ptr'
-
- WRITE(11,'(A)') f_ptr_line(j)
- WRITE(11,'(A)') ' namelen = LEN(dset_name)'
- WRITE(11,'(A)') ' namelen1 = LEN(field_name)'
- WRITE(11,'(A)') &
- ' errcode = h5tbread_field_name_c(loc_id,namelen,dset_name,namelen1,field_name,start,nrecords,type_size,f_ptr)'
- WRITE(11,'(A)') ' END SUBROUTINE h5tbread_field_name_kind_'//TRIM(ADJUSTL(chr2))//'_rank'//chr_rank(j)
- ENDDO
-
- ! h5tbwrite_field_index_f
- DO i = 1, num_rkinds
- k = rkind(i)
- WRITE(chr2,'(I2)') k
- j = 2
-! DLL definitions for windows
- WRITE(11,'(A)') '!DEC$if defined(BUILD_HDF5_HL_DLL)'
- WRITE(11,'(A)') '!DEC$attributes dllexport :: h5tbwrite_field_index_kind_'//TRIM(ADJUSTL(chr2))//'_rank'//chr_rank(j)
- WRITE(11,'(A)') '!DEC$endif'
-
-! Subroutine API
- WRITE(11,'(A)') ' SUBROUTINE h5tbwrite_field_index_kind_'//TRIM(ADJUSTL(chr2))&
- &//'_rank'//chr_rank(j)//'(loc_id,dset_name,field_index,start, nrecords,type_size,buf,errcode)'
- WRITE(11,'(A)') ' IMPLICIT NONE'
- WRITE(11,'(A)') ' INTEGER(hid_t) , INTENT(IN) :: loc_id'
- WRITE(11,'(A)') ' CHARACTER(LEN=*), INTENT(IN) :: dset_name'
- WRITE(11,'(A)') ' INTEGER, INTENT(in) :: field_index'
- WRITE(11,'(A)') ' INTEGER(hsize_t), INTENT(in) :: start'
- WRITE(11,'(A)') ' INTEGER(hsize_t), INTENT(in) :: nrecords'
- WRITE(11,'(A)') ' INTEGER(size_t), INTENT(in) :: type_size'
- WRITE(11,'(A)') ' REAL(KIND='//TRIM(ADJUSTL(chr2))//'),INTENT(IN), DIMENSION(*), TARGET :: buf'
- WRITE(11,'(A)') ' INTEGER :: errcode '
- WRITE(11,'(A)') ' INTEGER(size_t) :: namelen'
- WRITE(11,'(A)') ' TYPE(C_PTR) :: f_ptr'
-
- WRITE(11,'(A)') f_ptr_line(j)
- WRITE(11,'(A)') ' namelen = LEN(dset_name)'
- WRITE(11,'(A)') &
- ' errcode = h5tbwrite_field_index_c(loc_id,namelen,dset_name,field_index,start,nrecords,type_size,f_ptr)'
- WRITE(11,'(A)') ' END SUBROUTINE h5tbwrite_field_index_kind_'//TRIM(ADJUSTL(chr2))//'_rank'//chr_rank(j)
- ENDDO
-
- ! h5tbread_field_index_f
- DO i = 1, num_rkinds
- k = rkind(i)
- WRITE(chr2,'(I2)') k
- j = 2
-! DLL definitions for windows
- WRITE(11,'(A)') '!DEC$if defined(BUILD_HDF5_HL_DLL)'
- WRITE(11,'(A)') '!DEC$attributes dllexport :: h5tbread_field_index_kind_'//TRIM(ADJUSTL(chr2))//'_rank'//chr_rank(j)
- WRITE(11,'(A)') '!DEC$endif'
-
-! Subroutine API
- WRITE(11,'(A)') ' SUBROUTINE h5tbread_field_index_kind_'//TRIM(ADJUSTL(chr2))&
- &//'_rank'//chr_rank(j)//'(loc_id,dset_name,field_index,start, nrecords,type_size,buf,errcode)'
- WRITE(11,'(A)') ' IMPLICIT NONE'
- WRITE(11,'(A)') ' INTEGER(hid_t) , INTENT(IN) :: loc_id'
- WRITE(11,'(A)') ' CHARACTER(LEN=*), INTENT(IN) :: dset_name'
- WRITE(11,'(A)') ' INTEGER, INTENT(in) :: field_index'
- WRITE(11,'(A)') ' INTEGER(hsize_t), INTENT(in) :: start'
- WRITE(11,'(A)') ' INTEGER(hsize_t), INTENT(in) :: nrecords'
- WRITE(11,'(A)') ' INTEGER(size_t), INTENT(in) :: type_size'
- WRITE(11,'(A)') ' REAL(KIND='//TRIM(ADJUSTL(chr2))//'),INTENT(IN), DIMENSION(*), TARGET :: buf'
- WRITE(11,'(A)') ' INTEGER :: errcode '
- WRITE(11,'(A)') ' INTEGER(size_t) :: namelen'
- WRITE(11,'(A)') ' TYPE(C_PTR) :: f_ptr'
-
- WRITE(11,'(A)') f_ptr_line(j)
- WRITE(11,'(A)') ' namelen = LEN(dset_name)'
- WRITE(11,'(A)') &
- ' errcode = h5tbread_field_index_c(loc_id,namelen,dset_name,field_index,start,nrecords,type_size,f_ptr)'
- WRITE(11,'(A)') ' END SUBROUTINE h5tbread_field_index_kind_'//TRIM(ADJUSTL(chr2))//'_rank'//chr_rank(j)
- ENDDO
-
- ! h5tbinsert_field_f
- DO i = 1, num_rkinds
- k = rkind(i)
- WRITE(chr2,'(I2)') k
- j = 2
-! DLL definitions for windows
- WRITE(11,'(A)') '!DEC$if defined(BUILD_HDF5_HL_DLL)'
- WRITE(11,'(A)') '!DEC$attributes dllexport :: h5tbinsert_field_kind_'//TRIM(ADJUSTL(chr2))//'_rank'//chr_rank(j)
- WRITE(11,'(A)') '!DEC$endif'
-
-! Subroutine API
- WRITE(11,'(A)') ' SUBROUTINE h5tbinsert_field_kind_'//TRIM(ADJUSTL(chr2))&
- &//'_rank'//chr_rank(j)//'(loc_id,dset_name,field_name,field_type,field_index,buf,errcode)'
- WRITE(11,'(A)') ' IMPLICIT NONE'
- WRITE(11,'(A)') ' INTEGER(hid_t), INTENT(in) :: loc_id'
- WRITE(11,'(A)') ' CHARACTER(LEN=*), INTENT(in) :: dset_name'
- WRITE(11,'(A)') ' CHARACTER(LEN=*), INTENT(in) :: field_name'
- WRITE(11,'(A)') ' INTEGER(hid_t), INTENT(in) :: field_type'
- WRITE(11,'(A)') ' INTEGER, INTENT(in) :: field_index'
- WRITE(11,'(A)') ' REAL(KIND='//TRIM(ADJUSTL(chr2))//'), INTENT(in), DIMENSION(*), TARGET :: buf'
- WRITE(11,'(A)') ' INTEGER(size_t) :: namelen'
- WRITE(11,'(A)') ' INTEGER(size_t) :: namelen1'
- WRITE(11,'(A)') ' INTEGER :: errcode'
- WRITE(11,'(A)') ' TYPE(C_PTR) :: f_ptr'
-
- WRITE(11,'(A)') f_ptr_line(j)
- WRITE(11,'(A)') ' namelen = LEN(dset_name)'
- WRITE(11,'(A)') ' namelen1 = LEN(field_name)'
- WRITE(11,'(A)') &
- ' errcode = h5tbinsert_field_c(loc_id,namelen,dset_name,namelen1,field_name,field_type,field_index,f_ptr)'
- WRITE(11,'(A)') ' END SUBROUTINE h5tbinsert_field_kind_'//TRIM(ADJUSTL(chr2))//'_rank'//chr_rank(j)
- ENDDO
-
- WRITE(11,'(A)') 'END MODULE H5TB'
-
- CLOSE(11)
-
-END PROGRAM H5HL_buildiface
-
-
-