remove ierr, select type polymorphism

Author: scivision

CITATION.cff

@@ -1,10 +1,8 @@
 cff-version: 1.2.0
-message: "If you use this software, please cite it as below."
 authors:
   - family-names: Hirsch
     given-names: Michael
     orcid: https://orcid.org/0000-0002-1637-6526
 title: nc4fortran
-version: 1.4.7
 doi: 10.5281/zenodo.3598941
 date-released: 2021-11-21

src/CMakeLists.txt

@@ -1,14 +1,10 @@
-file(READ reader_template.in.f90 reader_template)
+file(READ reader_template.f90 reader_template)
 configure_file(reader.in.f90 reader.f90 @ONLY)
 
-file(READ writer_template_r32.in.f90 writer_template_r32)
-file(READ writer_template_r64.in.f90 writer_template_r64)
-file(READ writer_template_i32.in.f90 writer_template_i32)
-file(READ writer_template_i64.in.f90 writer_template_i64)
+file(READ writer_template.f90 writer_template)
 configure_file(writer.in.f90 writer.f90 @ONLY)
 
-set_directory_properties(PROPERTIES CMAKE_CONFIGURE_DEPENDS
-"reader_template.in.f90;writer_template_r32.in.f90;writer_template_r64.in.f90;writer_template_i32.in.f90;writer_template_i64.in.f90")
+set_directory_properties(PROPERTIES CMAKE_CONFIGURE_DEPENDS "reader_template.f90;writer_template.f90")
 
 target_sources(nc4fortran PRIVATE
 interface.f90

src/attributes.f90

@@ -28,8 +28,7 @@
 end select
 endif
 
-if (present(ierr)) ierr = ier
-if (check_error(ier, dname) .and. .not. present(ierr)) error stop 'nc4fortran:attributes: failed to write' // attrname
+if (check_error(ier, dname)) error stop 'nc4fortran:attributes: failed to write' // attrname
 
 end procedure write_attribute
 
@@ -56,8 +55,7 @@
 end select
 endif
 
-if (present(ierr)) ierr = ier
-if (check_error(ier, dname) .and. .not. present(ierr)) error stop 'nc4fortran:attributes: failed to read' // attrname
+if (check_error(ier, dname)) error stop 'nc4fortran:attributes: failed to read' // attrname
 
 end procedure read_attribute