Skip to content

Commit

Permalink
Merge pull request #3 from mkitti/mkitti/hdf5-cross
Browse files Browse the repository at this point in the history 
Mkitti/hdf5 cross
  • Loading branch information
@eschnett
eschnett authored Apr 18, 2023
2 parents 677c1a3 + c229edc commit 9b813d7
Show file tree
Hide file tree
Showing 22 changed files with 36,100 additions and 1,943 deletions.
4 changes: 2 additions & 2 deletions H/HDF5/build_tarballs.jl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -154,7 +154,7 @@ case "${target}" in
# sizeof(long double) == 12
# layout seems to be 16-bit sign+exponent and 64-bit mantissa
# same as for Linux
cp ../files/debian-i386/* saved
cp ../files/msys2-mingw32/* saved
;;
powerpc64le-linux-*)
cp ../files/debian-ppc64le/* saved
Expand All @@ -173,7 +173,7 @@ case "${target}" in
# sizeof(long double) == 16
# layout seems to be 16-bit sign+exponent and 64-bit mantissa
# same as for Linux
cp ../files/debian-amd64/* saved
cp ../files/msys2-mingw64/* saved
;;
*)
echo "Unsupported target architecture ${target}" >&2
Expand Down
926 changes: 35 additions & 891 deletions H/HDF5/bundled/files/darwin-arm64v8/H5LTff_gen.F90
View file

Large diffs are not rendered by default.

105 changes: 0 additions & 105 deletions H/HDF5/bundled/files/darwin-arm64v8/H5TBff_gen.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -34,31 +34,26 @@ MODULE H5TB
INTERFACE h5tbwrite_field_name_f
MODULE PROCEDURE h5tbwrite_field_name_kind_4_rank_1
MODULE PROCEDURE h5tbwrite_field_name_kind_8_rank_1
MODULE PROCEDURE h5tbwrite_field_name_kind_10_rank_1
MODULE PROCEDURE h5tbwrite_field_name_kind_16_rank_1
END INTERFACE
INTERFACE h5tbread_field_name_f
MODULE PROCEDURE h5tbread_field_name_kind_4_rank_1
MODULE PROCEDURE h5tbread_field_name_kind_8_rank_1
MODULE PROCEDURE h5tbread_field_name_kind_10_rank_1
MODULE PROCEDURE h5tbread_field_name_kind_16_rank_1
END INTERFACE
INTERFACE h5tbwrite_field_index_f
MODULE PROCEDURE h5tbwrite_field_index_kind_4_rank_1
MODULE PROCEDURE h5tbwrite_field_index_kind_8_rank_1
MODULE PROCEDURE h5tbwrite_field_index_kind_10_rank_1
MODULE PROCEDURE h5tbwrite_field_index_kind_16_rank_1
END INTERFACE
INTERFACE h5tbread_field_index_f
MODULE PROCEDURE h5tbread_field_index_kind_4_rank_1
MODULE PROCEDURE h5tbread_field_index_kind_8_rank_1
MODULE PROCEDURE h5tbread_field_index_kind_10_rank_1
MODULE PROCEDURE h5tbread_field_index_kind_16_rank_1
END INTERFACE
INTERFACE h5tbinsert_field_f
MODULE PROCEDURE h5tbinsert_field_kind_4_rank_1
MODULE PROCEDURE h5tbinsert_field_kind_8_rank_1
MODULE PROCEDURE h5tbinsert_field_kind_10_rank_1
MODULE PROCEDURE h5tbinsert_field_kind_16_rank_1
END INTERFACE
CONTAINS
Expand Down Expand Up @@ -105,27 +100,6 @@ SUBROUTINE h5tbwrite_field_name_kind_8_rank_1(loc_id,dset_name,field_name,start,
errcode = h5tbwrite_field_name_c(loc_id,namelen,dset_name,namelen1,field_name,start,nrecords,type_size,f_ptr)
END SUBROUTINE h5tbwrite_field_name_kind_8_rank_1
!DEC$if defined(BUILD_HDF5_HL_DLL)
!DEC$attributes dllexport :: h5tbwrite_field_name_kind_10_rank_1
!DEC$endif
SUBROUTINE h5tbwrite_field_name_kind_10_rank_1(loc_id,dset_name,field_name,start, nrecords,type_size,buf,errcode)
IMPLICIT NONE
INTEGER(hid_t) , INTENT(IN) :: loc_id
CHARACTER(LEN=*), INTENT(IN) :: dset_name
CHARACTER(LEN=*), INTENT(in) :: field_name
INTEGER(hsize_t), INTENT(in) :: start
INTEGER(hsize_t), INTENT(in) :: nrecords
INTEGER(size_t), INTENT(in) :: type_size
REAL(KIND=10),INTENT(IN), DIMENSION(*), TARGET :: buf
INTEGER :: errcode
INTEGER(size_t) :: namelen
INTEGER(size_t) :: namelen1
TYPE(C_PTR) :: f_ptr
f_ptr = C_LOC(buf(1) )
namelen = LEN(dset_name)
namelen1 = LEN(field_name)
errcode = h5tbwrite_field_name_c(loc_id,namelen,dset_name,namelen1,field_name,start,nrecords,type_size,f_ptr)
END SUBROUTINE h5tbwrite_field_name_kind_10_rank_1
!DEC$if defined(BUILD_HDF5_HL_DLL)
!DEC$attributes dllexport :: h5tbwrite_field_name_kind_16_rank_1
!DEC$endif
SUBROUTINE h5tbwrite_field_name_kind_16_rank_1(loc_id,dset_name,field_name,start, nrecords,type_size,buf,errcode)
Expand Down Expand Up @@ -189,27 +163,6 @@ SUBROUTINE h5tbread_field_name_kind_8_rank_1(loc_id,dset_name,field_name,start,
errcode = h5tbread_field_name_c(loc_id,namelen,dset_name,namelen1,field_name,start,nrecords,type_size,f_ptr)
END SUBROUTINE h5tbread_field_name_kind_8_rank_1
!DEC$if defined(BUILD_HDF5_HL_DLL)
!DEC$attributes dllexport :: h5tbread_field_name_kind_10_rank_1
!DEC$endif
SUBROUTINE h5tbread_field_name_kind_10_rank_1(loc_id,dset_name,field_name,start, nrecords,type_size,buf,errcode)
IMPLICIT NONE
INTEGER(hid_t) , INTENT(IN) :: loc_id
CHARACTER(LEN=*), INTENT(IN) :: dset_name
CHARACTER(LEN=*), INTENT(in) :: field_name
INTEGER(hsize_t), INTENT(in) :: start
INTEGER(hsize_t), INTENT(in) :: nrecords
INTEGER(size_t), INTENT(in) :: type_size
REAL(KIND=10),INTENT(INOUT), DIMENSION(*), TARGET :: buf
INTEGER :: errcode
INTEGER(size_t) :: namelen
INTEGER(size_t) :: namelen1
TYPE(C_PTR) :: f_ptr
f_ptr = C_LOC(buf(1) )
namelen = LEN(dset_name)
namelen1 = LEN(field_name)
errcode = h5tbread_field_name_c(loc_id,namelen,dset_name,namelen1,field_name,start,nrecords,type_size,f_ptr)
END SUBROUTINE h5tbread_field_name_kind_10_rank_1
!DEC$if defined(BUILD_HDF5_HL_DLL)
!DEC$attributes dllexport :: h5tbread_field_name_kind_16_rank_1
!DEC$endif
SUBROUTINE h5tbread_field_name_kind_16_rank_1(loc_id,dset_name,field_name,start, nrecords,type_size,buf,errcode)
Expand Down Expand Up @@ -269,25 +222,6 @@ SUBROUTINE h5tbwrite_field_index_kind_8_rank_1(loc_id,dset_name,field_index,star
errcode = h5tbwrite_field_index_c(loc_id,namelen,dset_name,field_index,start,nrecords,type_size,f_ptr)
END SUBROUTINE h5tbwrite_field_index_kind_8_rank_1
!DEC$if defined(BUILD_HDF5_HL_DLL)
!DEC$attributes dllexport :: h5tbwrite_field_index_kind_10_rank_1
!DEC$endif
SUBROUTINE h5tbwrite_field_index_kind_10_rank_1(loc_id,dset_name,field_index,start, nrecords,type_size,buf,errcode)
IMPLICIT NONE
INTEGER(hid_t) , INTENT(IN) :: loc_id
CHARACTER(LEN=*), INTENT(IN) :: dset_name
INTEGER, INTENT(in) :: field_index
INTEGER(hsize_t), INTENT(in) :: start
INTEGER(hsize_t), INTENT(in) :: nrecords
INTEGER(size_t), INTENT(in) :: type_size
REAL(KIND=10),INTENT(IN), DIMENSION(*), TARGET :: buf
INTEGER :: errcode
INTEGER(size_t) :: namelen
TYPE(C_PTR) :: f_ptr
f_ptr = C_LOC(buf(1) )
namelen = LEN(dset_name)
errcode = h5tbwrite_field_index_c(loc_id,namelen,dset_name,field_index,start,nrecords,type_size,f_ptr)
END SUBROUTINE h5tbwrite_field_index_kind_10_rank_1
!DEC$if defined(BUILD_HDF5_HL_DLL)
!DEC$attributes dllexport :: h5tbwrite_field_index_kind_16_rank_1
!DEC$endif
SUBROUTINE h5tbwrite_field_index_kind_16_rank_1(loc_id,dset_name,field_index,start, nrecords,type_size,buf,errcode)
Expand Down Expand Up @@ -345,25 +279,6 @@ SUBROUTINE h5tbread_field_index_kind_8_rank_1(loc_id,dset_name,field_index,start
errcode = h5tbread_field_index_c(loc_id,namelen,dset_name,field_index,start,nrecords,type_size,f_ptr)
END SUBROUTINE h5tbread_field_index_kind_8_rank_1
!DEC$if defined(BUILD_HDF5_HL_DLL)
!DEC$attributes dllexport :: h5tbread_field_index_kind_10_rank_1
!DEC$endif
SUBROUTINE h5tbread_field_index_kind_10_rank_1(loc_id,dset_name,field_index,start, nrecords,type_size,buf,errcode)
IMPLICIT NONE
INTEGER(hid_t) , INTENT(IN) :: loc_id
CHARACTER(LEN=*), INTENT(IN) :: dset_name
INTEGER, INTENT(in) :: field_index
INTEGER(hsize_t), INTENT(in) :: start
INTEGER(hsize_t), INTENT(in) :: nrecords
INTEGER(size_t), INTENT(in) :: type_size
REAL(KIND=10),INTENT(INOUT), DIMENSION(*), TARGET :: buf
INTEGER :: errcode
INTEGER(size_t) :: namelen
TYPE(C_PTR) :: f_ptr
f_ptr = C_LOC(buf(1) )
namelen = LEN(dset_name)
errcode = h5tbread_field_index_c(loc_id,namelen,dset_name,field_index,start,nrecords,type_size,f_ptr)
END SUBROUTINE h5tbread_field_index_kind_10_rank_1
!DEC$if defined(BUILD_HDF5_HL_DLL)
!DEC$attributes dllexport :: h5tbread_field_index_kind_16_rank_1
!DEC$endif
SUBROUTINE h5tbread_field_index_kind_16_rank_1(loc_id,dset_name,field_index,start, nrecords,type_size,buf,errcode)
Expand Down Expand Up @@ -423,26 +338,6 @@ SUBROUTINE h5tbinsert_field_kind_8_rank_1(loc_id,dset_name,field_name,field_type
errcode = h5tbinsert_field_c(loc_id,namelen,dset_name,namelen1,field_name,field_type,field_index,f_ptr)
END SUBROUTINE h5tbinsert_field_kind_8_rank_1
!DEC$if defined(BUILD_HDF5_HL_DLL)
!DEC$attributes dllexport :: h5tbinsert_field_kind_10_rank_1
!DEC$endif
SUBROUTINE h5tbinsert_field_kind_10_rank_1(loc_id,dset_name,field_name,field_type,field_index,buf,errcode)
IMPLICIT NONE
INTEGER(hid_t), INTENT(in) :: loc_id
CHARACTER(LEN=*), INTENT(in) :: dset_name
CHARACTER(LEN=*), INTENT(in) :: field_name
INTEGER(hid_t), INTENT(in) :: field_type
INTEGER, INTENT(in) :: field_index
REAL(KIND=10), INTENT(IN), DIMENSION(*), TARGET :: buf
INTEGER(size_t) :: namelen
INTEGER(size_t) :: namelen1
INTEGER :: errcode
TYPE(C_PTR) :: f_ptr
f_ptr = C_LOC(buf(1) )
namelen = LEN(dset_name)
namelen1 = LEN(field_name)
errcode = h5tbinsert_field_c(loc_id,namelen,dset_name,namelen1,field_name,field_type,field_index,f_ptr)
END SUBROUTINE h5tbinsert_field_kind_10_rank_1
!DEC$if defined(BUILD_HDF5_HL_DLL)
!DEC$attributes dllexport :: h5tbinsert_field_kind_16_rank_1
!DEC$endif
SUBROUTINE h5tbinsert_field_kind_16_rank_1(loc_id,dset_name,field_name,field_type,field_index,buf,errcode)
Expand Down
4 changes: 2 additions & 2 deletions H/HDF5/bundled/files/darwin-arm64v8/H5Tinit.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -13,8 +13,8 @@
* If you do not have access to either file, you may request a copy from *
* help@hdfgroup.org. *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* Created: Apr 8, 2023
* Erik Schnetter <eschnett@redshift.local>
* Created: Apr 17, 2023
* Mark Kittisopikul <kittisopikulm@kittisopikulm-wm1>
*
* Purpose: This machine-generated source code contains
* information about the various integer and
Expand Down
Loading

0 comments on commit 9b813d7

Please sign in to comment.