write: use select type

remove vestigial optional ierr from all except %open

trying to handle errors became a great development burden with little
to no pratical benefit, so we removed it.

Author: scivision

API.md

@@ -31,7 +31,7 @@ logical, intent(in), optional      :: verbose, debug
 ```
 
 ```fortran
-call h%close(ierr, close_hdf5_interface)
+call h%close(close_hdf5_interface)
 !! This must be called on each HDF5 file to flush buffers to disk
 !! data loss can occur if program terminates before this procedure
 !!
@@ -40,17 +40,14 @@ call h%close(ierr, close_hdf5_interface)
 !! close_hdf5_interface is when you know you have exactly one HDF5 file in your
 !! application, if true it closes ALL files, even those invoked directly from HDF5.
 
-integer, intent(out), optional :: ierr
 logical, intent(in), optional :: close_hdf5_interface
 ```
 
 To avoid memory leaks or corrupted files, always "finalize" all hDF5 files before STOPping the Fortran program.
 
 ```fortran
-call h%flush(ierr)
+call h%flush()
 !! request operating system flush data to disk.
-!! The operating system can do this when it desires, which might be a while.
-integer, intent(out), optional :: ierr
 ```
 
 ## Disk variable (dataset) inquiry
@@ -64,10 +61,9 @@ character(*), intent(in) :: dataset_name
 ```
 
 ```fortran
-call h%shape(dataset_name, dims, ierr)
+call h%shape(dataset_name, dims)
 character(*), intent(in) :: dataset_name
 integer(HSIZE_T), intent(out), allocatable :: dims(:)
-integer, intent(out), optional :: ierr
 ```
 
 ```fortran
@@ -128,20 +124,19 @@ character(*), intent(in) :: target, &  !< target path to link dataset
 ## file write operations
 
 ```fortran
-call h%write(dname,value, ierr, chunk_size, istart, iend, stride, compact)
+call h%write(dname,value, chunk_size, istart, iend, stride, compact)
 !! write 0d..7d dataset
 character(*), intent(in) :: dname
 class(*), intent(in) :: value(:)  !< array to write
 integer, intent(in), optional :: chunk_size(rank(value))
 integer, intent(in), optional, dimension(:) :: istart, iend, stride  !< array slicing
 logical, intent(in), optional :: compact  !< faster I/O for sub-64 kB datasets
-integer, intent(out), optional :: ierr  !< 0 if OK
 ```
 
 Write dataset attribute (e.g. units or instrument)
 
 ```fortran
-call h%writeattr(dname, attr, attrval, ierr)
+call h%writeattr(dname, attr, attrval)
 character(*), intent(in) :: dname, attr  !< dataset name, attribute name
 class(*), intent(in) :: attrval(:)  !< character, real, integer
 ```
@@ -151,17 +146,16 @@ class(*), intent(in) :: attrval(:)  !< character, real, integer
 Read data from disk to memory
 
 ```fortran
-call h%read(dname, value, ierr, istart, iend, stride)
+call h%read(dname, value, istart, iend, stride)
 character(*), intent(in)         :: dname
 class(*), intent(out) :: value(:)  !< read array to this ALLOCATED variable
-integer, intent(out), optional :: ierr  !< 0 if OK
 integer, intent(in), optional, dimension(:) :: istart, iend, stride !< array slicing
 ```
 
 Read dataset attribute into memory
 
 ```fortran
-call h%readattr(dname, attr, attrval, ierr)
+call h%readattr(dname, attr, attrval)
 character(*), intent(in) :: dname, attr  !< dataset name, attribute name
 class(*), intent(out) :: attrval(:)  !< character, real, integer
 ```

Examples.md

@@ -12,10 +12,6 @@ type(hdf5_file) :: h5f
 * string attributes may be applied to any variable at time of writing or later.
 * h5f%open(..., `comp_lvl=1`) option enables GZIP compression., where comp_lvl is from 1 to 9. bigger comp_lvl gives more compression but isslower to write.
 
-`integer, intent(out) :: ierr` is an optional parameter. It will be non-zero if error detected.
-This value should be checked, particularly for write operations to avoid missing error conditions.
-If `ierr` is omitted, then h5fortran will raise `error stop` if an error occurs.
-
 ## Create new HDF5 file, with variable "value1"
 
 ```fortran
@@ -125,7 +121,7 @@ call h5f%open('test.h5', action='rw')
 
 call h5f%write('/value1', 123.)
 
-call h5f%close(ierr)
+call h5f%close()
 ```
 
 ## Add gzip compressed 3-D array "value2" to existing HDF5 file "test.h5"
@@ -137,7 +133,7 @@ call h5f%open('test.h5', comp_lvl=1)
 
 call h5f%write('/value2', val2)
 
-call h5f%close(ierr)
+call h5f%close()
 ```
 
 chunk_size may optionally be set in the `%write()` method for 2-d to 7-d arrays.

codemeta.json

@@ -7,7 +7,7 @@
     "downloadUrl": "https://github.com/scivision/h5fortran/releases",
     "issueTracker": "https://github.com/scivision/h5fortran/issues",
     "name": "h5fortran",
-    "version": "4.3.0",
+    "version": "4.4.0",
     "identifier": "10.5281/zenodo.3757269",
     "description": "Lightweight object-oriented HDF5 Fortran interface",
     "applicationCategory": "file I/O",

src/attributes.f90

@@ -19,8 +19,7 @@
 call h5ltget_attribute_string_f(self%lid, dname, attr, buf, ier)
 attrval = buf
 
-if (present(ierr)) ierr = ier
-if (check(ier, self%filename, dname) .and. .not. present(ierr)) error stop
+if (check(ier, self%filename, dname)) error stop
 
 end procedure readattr_char
 
@@ -46,8 +45,7 @@
 end select
 endif
 
-if (present(ierr)) ierr = ier
-if (check(ier, self%filename, dname) .and. .not. present(ierr)) error stop
+if (check(ier, self%filename, dname)) error stop
 
 end procedure readattr_num
 
@@ -61,8 +59,7 @@
 
 call h5ltset_attribute_string_f(self%lid, dname, attr, attrval, ier)
 
-if (present(ierr)) ierr = ier
-if (check(ier, self%filename, dname) .and. .not. present(ierr)) error stop
+if (check(ier, self%filename, dname)) error stop
 
 end procedure writeattr_char
 
@@ -87,76 +84,51 @@
   ier = 6
 end select
 
-if (present(ierr)) ierr = ier
-if (check(ier, self%filename, dname) .and. .not. present(ierr)) error stop
+if (check(ier, self%filename, dname)) error stop
 
 end procedure writeattr_num
 
 
 module procedure writeattr_char_lt
 
 type(hdf5_file) :: h
-integer :: ier
-
-call h%open(filename, ier, action='r+')
-
-call h%writeattr_char(dname, attr, attrval, ier)
-
-if (ier == 0) call h%close(ier)
 
-if (present(ierr)) ierr = ier
-if (check(ier, filename, dname) .and. .not. present(ierr)) error stop
+call h%open(filename, action='r+')
+call h%writeattr_char(dname, attr, attrval)
+call h%close()
 
 end procedure writeattr_char_lt
 
 
 module procedure writeattr_num_lt
 
 type(hdf5_file) :: h
-integer :: ier
-
-call h%open(filename, ier, action='r+')
-
-call h%writeattr_num(dname, attr, attrval, ier)
-
-if (ier == 0) call h%close(ier)
 
-if (present(ierr)) ierr = ier
-if (check(ier, filename, dname) .and. .not. present(ierr)) error stop
+call h%open(filename, action='r+')
+call h%writeattr_num(dname, attr, attrval)
+call h%close()
 
 end procedure writeattr_num_lt
 
 
 module procedure readattr_char_lt
 
 type(hdf5_file) :: h
-integer :: ier
-
-call h%open(filename, ier, action='r')
-
-call h%readattr_char(dname, attr, attrval, ier)
-
-if (ier == 0) call h%close(ier)
 
-if (present(ierr)) ierr = ier
-if (check(ier, filename, dname) .and. .not. present(ierr)) error stop
+call h%open(filename, action='r')
+call h%readattr_char(dname, attr, attrval)
+call h%close()
 
 end procedure readattr_char_lt
 
 
 module procedure readattr_num_lt
 
 type(hdf5_file) :: h
-integer :: ier
-
-call h%open(filename, ier, action='r')
-
-call h%readattr_num(dname, attr, attrval, ier)
-
-if (ier == 0) call h%close(ier)
 
-if (present(ierr)) ierr = ier
-if (check(ier, filename, dname) .and. .not. present(ierr)) error stop
+call h%open(filename, action='r')
+call h%readattr_num(dname, attr, attrval)
+call h%close()
 
 end procedure readattr_num_lt