From 71441753feebce8c7ca3ed81bbccb842c8df50e8 Mon Sep 17 00:00:00 2001 From: scivision Date: Sat, 28 Sep 2024 22:21:52 -0400 Subject: [PATCH] delete .archive/*.f90 to avoid confusion --- .archive/read_int.f90 | 151 ---------------------------- .archive/read_real32.f90 | 151 ---------------------------- .archive/write_int.f90 | 201 -------------------------------------- .archive/write_real32.f90 | 201 -------------------------------------- README.md | 4 +- 5 files changed, 2 insertions(+), 706 deletions(-) delete mode 100644 .archive/read_int.f90 delete mode 100644 .archive/read_real32.f90 delete mode 100644 .archive/write_int.f90 delete mode 100644 .archive/write_real32.f90 diff --git a/.archive/read_int.f90 b/.archive/read_int.f90 deleted file mode 100644 index 11abd9b3..00000000 --- a/.archive/read_int.f90 +++ /dev/null @@ -1,151 +0,0 @@ -!! This submodule is for reading integer HDF5 data -submodule (hdf5_interface:read) read_int - -use H5LT, only: HSIZE_T, SIZE_T, H5_INTEGER_KIND, H5KIND_TO_TYPE, h5ltpath_valid_f -implicit none -contains - - -module procedure hdf_read_int - -integer(HSIZE_T) :: dims(rank(value)) - -call hdf_setup_read(self, dname, dims, ierr) -if (ierr /= 0) return - -call h5ltread_dataset_f(self%lid, dname, h5kind_to_type(kind(value),H5_INTEGER_KIND), value, dims, ierr) -if (ierr /= 0) then - write(stderr,*) 'ERROR: ' // dname // ' read ' // self%filename - return -endif - -end procedure hdf_read_int - - -module procedure hdf_read_int_1d - -integer(HSIZE_T) :: dims(rank(value)) - -call hdf_setup_read(self, dname, dims, ierr) -if (ierr /= 0) return - -allocate(value(dims(1))) - -call h5ltread_dataset_f(self%lid, dname, h5kind_to_type(kind(value),H5_INTEGER_KIND), value, dims, ierr) -if (ierr /= 0) then - write(stderr,*) 'ERROR: ' // dname // ' read ' // self%filename - return -endif - -end procedure hdf_read_int_1d - - -module procedure hdf_read_int_2d - -integer(HSIZE_T) :: dims(rank(value)) - -call hdf_setup_read(self, dname, dims, ierr) -if (ierr /= 0) return - -allocate(value(dims(1), dims(2))) - -call h5ltread_dataset_f(self%lid, dname, h5kind_to_type(kind(value),H5_INTEGER_KIND), value, dims, ierr) -if (ierr /= 0) then - write(stderr,*) 'ERROR: ' // dname // ' read ' // self%filename - return -endif - -end procedure hdf_read_int_2d - - -module procedure hdf_read_int_3d - -integer(HSIZE_T) :: dims(rank(value)) - -call hdf_setup_read(self, dname, dims, ierr) -if (ierr /= 0) return - -allocate(value(dims(1), dims(2), dims(3))) - -call h5ltread_dataset_f(self%lid, dname, h5kind_to_type(kind(value),H5_INTEGER_KIND), value, dims, ierr) -if (ierr /= 0) then - write(stderr,*) 'ERROR: ' // dname // ' read ' // self%filename - return -endif - -end procedure hdf_read_int_3d - - -module procedure hdf_read_int_4d - -integer(HSIZE_T) :: dims(rank(value)) - -call hdf_setup_read(self, dname, dims, ierr) -if (ierr /= 0) return - -allocate(value(dims(1), dims(2), dims(3), dims(4))) - -call h5ltread_dataset_f(self%lid, dname, h5kind_to_type(kind(value),H5_INTEGER_KIND), value, dims, ierr) -if (ierr /= 0) then - write(stderr,*) 'ERROR: ' // dname // ' read ' // self%filename - return -endif - -end procedure hdf_read_int_4d - - -module procedure hdf_read_int_5d - -integer(HSIZE_T) :: dims(rank(value)) - -call hdf_setup_read(self, dname, dims, ierr) -if (ierr /= 0) return - -allocate(value(dims(1),dims(2),dims(3),dims(4),dims(5))) - -call h5ltread_dataset_f(self%lid, dname, h5kind_to_type(kind(value),H5_INTEGER_KIND), value, dims, ierr) -if (ierr /= 0) then - write(stderr,*) 'ERROR: ' // dname // ' read ' // self%filename - return -endif - -end procedure hdf_read_int_5d - - -module procedure hdf_read_int_6d - -integer(HSIZE_T) :: dims(rank(value)) - -call hdf_setup_read(self, dname, dims, ierr) -if (ierr /= 0) return - -allocate(value(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6))) - -call h5ltread_dataset_f(self%lid, dname, h5kind_to_type(kind(value),H5_INTEGER_KIND), value, dims, ierr) -if (ierr /= 0) then - write(stderr,*) 'ERROR: ' // dname // ' read ' // self%filename - return -endif - -end procedure hdf_read_int_6d - - -module procedure hdf_read_int_7d - -integer(HSIZE_T) :: dims(rank(value)) - -call hdf_setup_read(self, dname, dims, ierr) -if (ierr /= 0) return - -allocate(value(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7))) - -call h5ltread_dataset_f(self%lid, dname, h5kind_to_type(kind(value),H5_INTEGER_KIND), value, dims, ierr) -if (ierr /= 0) then - write(stderr,*) 'ERROR: ' // dname // ' read ' // self%filename - return -endif - -end procedure hdf_read_int_7d - - -end submodule read_int diff --git a/.archive/read_real32.f90 b/.archive/read_real32.f90 deleted file mode 100644 index 313ccb02..00000000 --- a/.archive/read_real32.f90 +++ /dev/null @@ -1,151 +0,0 @@ -!! This submodule is for reading single precision float (32 bit) -submodule (hdf5_interface:read) read_real32 - -use H5LT, only: HSIZE_T, SIZE_T, H5_REAL_KIND, H5KIND_TO_TYPE, h5ltpath_valid_f -implicit none -contains - - -module procedure hdf_read_real32 - -integer(HSIZE_T) :: dims(rank(value)) - -call hdf_setup_read(self, dname, dims, ierr) -if (ierr /= 0) return - -call h5ltread_dataset_f(self%lid, dname, h5kind_to_type(kind(value),H5_REAL_KIND), value, dims, ierr) -if (ierr /= 0) then - write(stderr,*) 'ERROR: ' // dname // ' read ' // self%filename - return -endif - -end procedure hdf_read_real32 - - -module procedure hdf_read_real32_1d - -integer(HSIZE_T) :: dims(rank(value)) - -call hdf_setup_read(self, dname, dims, ierr) -if (ierr /= 0) return - -allocate(value(dims(1))) - -call h5ltread_dataset_f(self%lid, dname, h5kind_to_type(kind(value),H5_REAL_KIND), value, dims, ierr) -if (ierr /= 0) then - write(stderr,*) 'ERROR: ' // dname // ' read ' // self%filename - return -endif - -end procedure hdf_read_real32_1d - - -module procedure hdf_read_real32_2d - -integer(HSIZE_T) :: dims(rank(value)) - -call hdf_setup_read(self, dname, dims, ierr) -if (ierr /= 0) return - -allocate(value(dims(1), dims(2))) - -call h5ltread_dataset_f(self%lid, dname, h5kind_to_type(kind(value),H5_REAL_KIND), value, dims, ierr) -if (ierr /= 0) then - write(stderr,*) 'ERROR: ' // dname // ' read ' // self%filename - return -endif - -end procedure hdf_read_real32_2d - - -module procedure hdf_read_real32_3d - -integer(HSIZE_T) :: dims(rank(value)) - -call hdf_setup_read(self, dname, dims, ierr) -if (ierr /= 0) return - -allocate(value(dims(1), dims(2), dims(3))) - -call h5ltread_dataset_f(self%lid, dname, h5kind_to_type(kind(value),H5_REAL_KIND), value, dims, ierr) -if (ierr /= 0) then - write(stderr,*) 'ERROR: ' // dname // ' read ' // self%filename - return -endif - -end procedure hdf_read_real32_3d - - -module procedure hdf_read_real32_4d - -integer(HSIZE_T) :: dims(rank(value)) - -call hdf_setup_read(self, dname, dims, ierr) -if (ierr /= 0) return - -allocate(value(dims(1), dims(2), dims(3), dims(4))) - -call h5ltread_dataset_f(self%lid, dname, h5kind_to_type(kind(value),H5_REAL_KIND), value, dims, ierr) -if (ierr /= 0) then - write(stderr,*) 'ERROR: ' // dname // ' read ' // self%filename - return -endif - -end procedure hdf_read_real32_4d - - -module procedure hdf_read_real32_5d - -integer(HSIZE_T) :: dims(rank(value)) - -call hdf_setup_read(self, dname, dims, ierr) -if (ierr /= 0) return - -allocate(value(dims(1),dims(2),dims(3),dims(4),dims(5))) - -call h5ltread_dataset_f(self%lid, dname, h5kind_to_type(kind(value),H5_REAL_KIND), value, dims, ierr) -if (ierr /= 0) then - write(stderr,*) 'ERROR: ' // dname // ' read ' // self%filename - return -endif - -end procedure hdf_read_real32_5d - - -module procedure hdf_read_real32_6d - -integer(HSIZE_T) :: dims(rank(value)) - -call hdf_setup_read(self, dname, dims, ierr) -if (ierr /= 0) return - -allocate(value(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6))) - -call h5ltread_dataset_f(self%lid, dname, h5kind_to_type(kind(value),H5_REAL_KIND), value, dims, ierr) -if (ierr /= 0) then - write(stderr,*) 'ERROR: ' // dname // ' read ' // self%filename - return -endif - -end procedure hdf_read_real32_6d - - -module procedure hdf_read_real32_7d - -integer(HSIZE_T) :: dims(rank(value)) - -call hdf_setup_read(self, dname, dims, ierr) -if (ierr /= 0) return - -allocate(value(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7))) - -call h5ltread_dataset_f(self%lid, dname, h5kind_to_type(kind(value),H5_REAL_KIND), value, dims, ierr) -if (ierr /= 0) then - write(stderr,*) 'ERROR: ' // dname // ' read ' // self%filename - return -endif - -end procedure hdf_read_real32_7d - - -end submodule read_real32 diff --git a/.archive/write_int.f90 b/.archive/write_int.f90 deleted file mode 100644 index 24b51329..00000000 --- a/.archive/write_int.f90 +++ /dev/null @@ -1,201 +0,0 @@ -!! This submodule is for writing integer HDF5 data -submodule (hdf5_interface:write) write_int - -use H5LT, only: H5_INTEGER_KIND, H5KIND_TO_TYPE -implicit none -contains - - -module procedure hdf_write_int - -integer(HID_T) :: dtype -integer(HSIZE_T) :: dims(rank(value)) - -dims = shape(value) -dtype = h5kind_to_type(kind(value),H5_INTEGER_KIND) - -call hdf_setup_write(self,dname,dtype,dims, ierr) -if (ierr /= 0) return - -!> write dataset -call h5dwrite_f(self%did, dtype, value, dims, ierr) -if (ierr /= 0) then - write(stderr,*) 'ERROR: ' // dname // ' write ' // self%filename - return -endif - -call hdf_wrapup(self, ierr) -if (ierr /= 0) return - -end procedure hdf_write_int - - -module procedure hdf_write_int_1d - -integer(HID_T) :: dtype -integer(HSIZE_T) :: dims(rank(value)) - -dims = shape(value) -dtype = h5kind_to_type(kind(value),H5_INTEGER_KIND) - -call hdf_setup_write(self,dname,dtype,dims, ierr) -if (ierr /= 0) return - -!> write dataset -call h5dwrite_f(self%did, dtype, value, dims, ierr) -if (ierr /= 0) then -write(stderr,*) 'ERROR: ' // dname // ' write ' // self%filename -return -endif - -call hdf_wrapup(self, ierr) -if (ierr /= 0) return - -end procedure hdf_write_int_1d - - -module procedure hdf_write_int_2d - -integer(HID_T) :: dtype -integer(HSIZE_T) :: dims(rank(value)) - -dims = shape(value) -dtype = h5kind_to_type(kind(value),H5_INTEGER_KIND) - -call hdf_setup_write(self,dname,dtype,dims, ierr, chunk_size) -if (ierr /= 0) return - -!> write dataset -call h5dwrite_f(self%did, dtype, value, dims, ierr) -if (ierr /= 0) then - write(stderr,*) 'ERROR: ' // dname // ' write ' // self%filename - return -endif - -call hdf_wrapup(self, ierr) -if (ierr /= 0) return - -end procedure hdf_write_int_2d - - -module procedure hdf_write_int_3d - -integer(HID_T) :: dtype -integer(HSIZE_T) :: dims(rank(value)) - -dims = shape(value) -dtype = h5kind_to_type(kind(value),H5_INTEGER_KIND) - -call hdf_setup_write(self,dname,dtype,dims, ierr, chunk_size) -if (ierr /= 0) return - -!> write dataset -call h5dwrite_f(self%did, dtype, value, dims, ierr) -if (ierr /= 0) then - write(stderr,*) 'ERROR: ' // dname // ' write ' // self%filename - return -endif - -call hdf_wrapup(self, ierr) -if (ierr /= 0) return - -end procedure hdf_write_int_3d - - -module procedure hdf_write_int_4d - -integer(HID_T) :: dtype -integer(HSIZE_T) :: dims(rank(value)) - -dims = shape(value) -dtype = h5kind_to_type(kind(value),H5_INTEGER_KIND) - -call hdf_setup_write(self,dname,dtype,dims, ierr, chunk_size) -if (ierr /= 0) return - -!> write dataset -call h5dwrite_f(self%did, dtype, value, dims, ierr) -if (ierr /= 0) then - write(stderr,*) 'ERROR: ' // dname // ' write ' // self%filename - return -endif - -call hdf_wrapup(self, ierr) -if (ierr /= 0) return - -end procedure hdf_write_int_4d - - -module procedure hdf_write_int_5d - -integer(HID_T) :: dtype -integer(HSIZE_T) :: dims(rank(value)) - -dims = shape(value) -dtype = h5kind_to_type(kind(value),H5_INTEGER_KIND) - -call hdf_setup_write(self,dname,dtype,dims, ierr, chunk_size) -if (ierr /= 0) return - -!> write dataset -call h5dwrite_f(self%did, dtype, value, dims, ierr) -if (ierr /= 0) then - write(stderr,*) 'ERROR: ' // dname // ' write ' // self%filename - return -endif - -call hdf_wrapup(self, ierr) -if (ierr /= 0) return - -end procedure hdf_write_int_5d - - -module procedure hdf_write_int_6d - -integer(HID_T) :: dtype -integer(HSIZE_T) :: dims(rank(value)) - -dims = shape(value) -dtype = h5kind_to_type(kind(value),H5_INTEGER_KIND) - -call hdf_setup_write(self,dname,dtype,dims, ierr, chunk_size) -if (ierr /= 0) return - -!> write dataset -call h5dwrite_f(self%did, dtype, value, dims, ierr) -if (ierr /= 0) then - write(stderr,*) 'ERROR: ' // dname // ' write ' // self%filename - return -endif - -call hdf_wrapup(self, ierr) -if (ierr /= 0) return - -end procedure hdf_write_int_6d - - -module procedure hdf_write_int_7d - -integer(HID_T) :: dtype -integer(HSIZE_T) :: dims(rank(value)) - -dims = shape(value) -dtype = h5kind_to_type(kind(value),H5_INTEGER_KIND) - -call hdf_setup_write(self,dname,dtype,dims, ierr, chunk_size) -if (ierr /= 0) return - -!> write dataset -call h5dwrite_f(self%did, dtype, value, dims, ierr) -if (ierr /= 0) then - write(stderr,*) 'ERROR: ' // dname // ' write ' // self%filename - return -endif - -call hdf_wrapup(self, ierr) -if (ierr /= 0) return - -end procedure hdf_write_int_7d - - -end submodule write_int diff --git a/.archive/write_real32.f90 b/.archive/write_real32.f90 deleted file mode 100644 index fe4a4998..00000000 --- a/.archive/write_real32.f90 +++ /dev/null @@ -1,201 +0,0 @@ -!! This submodule is for writing single precision float (32 bit) -submodule (hdf5_interface:write) write_real32 - -use H5LT, only: H5_REAL_KIND, H5S_SCALAR_F, H5KIND_TO_TYPE -implicit none -contains - - -module procedure hdf_write_real32 - -integer(HID_T) :: dtype -integer(HSIZE_T) :: dims(rank(value)) - -dims = shape(value) -dtype = h5kind_to_type(kind(value),H5_REAL_KIND) - -call hdf_setup_write(self,dname,dtype,dims, ierr) -if (ierr /= 0) return - -!> write dataset -call h5dwrite_f(self%did, dtype, value, dims, ierr) -if (ierr /= 0) then - write(stderr,*) 'ERROR: ' // dname // ' write ' // self%filename - return -endif - -call hdf_wrapup(self, ierr) -if (ierr /= 0) return - -end procedure hdf_write_real32 - - -module procedure hdf_write_real32_1d - -integer(HID_T) :: dtype -integer(HSIZE_T) :: dims(rank(value)) - -dims = shape(value) -dtype = h5kind_to_type(kind(value),H5_REAL_KIND) - -call hdf_setup_write(self,dname,dtype,dims, ierr) -if (ierr /= 0) return - -!> write dataset -call h5dwrite_f(self%did, dtype, value, dims, ierr) -if (ierr /= 0) then - write(stderr,*) 'ERROR: ' // dname // ' write ' // self%filename - return -endif - -call hdf_wrapup(self, ierr) -if (ierr /= 0) return - -end procedure hdf_write_real32_1d - - -module procedure hdf_write_real32_2d - -integer(HID_T) :: dtype -integer(HSIZE_T) :: dims(rank(value)) - -dims = shape(value) -dtype = h5kind_to_type(kind(value),H5_REAL_KIND) - -call hdf_setup_write(self,dname,dtype,dims, ierr, chunk_size) -if (ierr /= 0) return - -!> write dataset -call h5dwrite_f(self%did, dtype, value, dims, ierr) -if (ierr /= 0) then - write(stderr,*) 'ERROR: ' // dname // ' write ' // self%filename - return -endif - -call hdf_wrapup(self, ierr) -if (ierr /= 0) return - -end procedure hdf_write_real32_2d - - -module procedure hdf_write_real32_3d - -integer(HID_T) :: dtype -integer(HSIZE_T) :: dims(rank(value)) - -dims = shape(value) -dtype = h5kind_to_type(kind(value),H5_REAL_KIND) - -call hdf_setup_write(self,dname,dtype,dims, ierr, chunk_size) -if (ierr /= 0) return - -!> write dataset -call h5dwrite_f(self%did, dtype, value, dims, ierr) -if (ierr /= 0) then - write(stderr,*) 'ERROR: ' // dname // ' write ' // self%filename - return -endif - -call hdf_wrapup(self, ierr) -if (ierr /= 0) return - -end procedure hdf_write_real32_3d - - -module procedure hdf_write_real32_4d - -integer(HID_T) :: dtype -integer(HSIZE_T) :: dims(rank(value)) - -dims = shape(value) -dtype = h5kind_to_type(kind(value),H5_REAL_KIND) - -call hdf_setup_write(self,dname,dtype,dims, ierr, chunk_size) -if (ierr /= 0) return - -!> write dataset -call h5dwrite_f(self%did, dtype, value, dims, ierr) -if (ierr /= 0) then - write(stderr,*) 'ERROR: ' // dname // ' write ' // self%filename - return -endif - -call hdf_wrapup(self, ierr) -if (ierr /= 0) return - -end procedure hdf_write_real32_4d - - -module procedure hdf_write_real32_5d - -integer(HID_T) :: dtype -integer(HSIZE_T) :: dims(rank(value)) - -dims = shape(value) -dtype = h5kind_to_type(kind(value),H5_REAL_KIND) - -call hdf_setup_write(self,dname,dtype,dims, ierr, chunk_size) -if (ierr /= 0) return - -!> write dataset -call h5dwrite_f(self%did, dtype, value, dims, ierr) -if (ierr /= 0) then - write(stderr,*) 'ERROR: ' // dname // ' write ' // self%filename - return -endif - -call hdf_wrapup(self, ierr) -if (ierr /= 0) return - -end procedure hdf_write_real32_5d - - -module procedure hdf_write_real32_6d - -integer(HID_T) :: dtype -integer(HSIZE_T) :: dims(rank(value)) - -dims = shape(value) -dtype = h5kind_to_type(kind(value),H5_REAL_KIND) - -call hdf_setup_write(self,dname,dtype,dims, ierr, chunk_size) -if (ierr /= 0) return - -!> write dataset -call h5dwrite_f(self%did, dtype, value, dims, ierr) -if (ierr /= 0) then - write(stderr,*) 'ERROR: ' // dname // ' write ' // self%filename - return -endif - -call hdf_wrapup(self, ierr) -if (ierr /= 0) return - -end procedure hdf_write_real32_6d - - -module procedure hdf_write_real32_7d - -integer(HID_T) :: dtype -integer(HSIZE_T) :: dims(rank(value)) - -dims = shape(value) -dtype = h5kind_to_type(kind(value),H5_REAL_KIND) - -call hdf_setup_write(self,dname,dtype,dims, ierr, chunk_size) -if (ierr /= 0) return - -!> write dataset -call h5dwrite_f(self%did, dtype, value, dims, ierr) -if (ierr /= 0) then - write(stderr,*) 'ERROR: ' // dname // ' write ' // self%filename - return -endif - -call hdf_wrapup(self, ierr) -if (ierr /= 0) return - -end procedure hdf_write_real32_7d - - -end submodule write_real32 diff --git a/README.md b/README.md index 2a7b3c65..3912736b 100644 --- a/README.md +++ b/README.md @@ -67,8 +67,8 @@ Compilers known to work (tested on CI) include: Compilers not currently working: -* NVidia HPC SDK 23.11: missing "rank()" intrinsic and trouble with "select type()" in submodule -* AOCC (same problems as NVHPC 23.11) +* NVidia HPC SDK 24.9: missing "rank()" intrinsic +* AOCC missing "rank()" intrinsic and trouble with "select type()" in submodule ---