use assumed shapes instead of legacy assumed sizes, Merged io_netcdf_…

…module.F90 io_netcdf_file_module.F90 from razvan_nextgems_multio

src/io_netcdf_file_module.F90

@@ -304,7 +304,7 @@ subroutine read_var_r8(this, varindex, starts, sizes, values)
     class(netcdf_file_type), intent(in) :: this
     integer, intent(in) :: varindex
     integer, dimension(:) :: starts, sizes
-    real(8), intent(inout), target :: values(..) ! must be inout or the allocation might be screwed
+    real(8), intent(inout), target :: values(:) ! must be inout or the allocation might be screwed
     ! EO parameters
     include "netcdf.inc"
     real(8), pointer :: values_ptr(:)
@@ -324,7 +324,7 @@ subroutine read_var_r4(this, varindex, starts, sizes, values)
     class(netcdf_file_type), intent(in) :: this
     integer, intent(in) :: varindex
     integer, dimension(:) :: starts, sizes
-    real(4), intent(inout), target :: values(..) ! must be inout or the allocation might be screwed
+    real(4), intent(inout), target :: values(:) ! must be inout or the allocation might be screwed
     ! EO parameters
     include "netcdf.inc"
     real(4), pointer :: values_ptr(:)
@@ -344,7 +344,7 @@ subroutine read_var_integer(this, varindex, starts, sizes, values)
     class(netcdf_file_type), intent(in) :: this
     integer, intent(in) :: varindex
     integer, dimension(:) :: starts, sizes
-    integer, intent(inout), target :: values(..) ! must be inout or the allocation might be screwed
+    integer, intent(inout), target :: values(:) ! must be inout or the allocation might be screwed
     ! EO parameters
     include "netcdf.inc"
     integer, pointer :: values_ptr(:)
@@ -474,7 +474,7 @@ subroutine write_var_r8(this, varindex, starts, sizes, values)
     class(netcdf_file_type), intent(in) :: this
     integer, intent(in) :: varindex
     integer, dimension(:) :: starts, sizes
-    real(8), intent(in), target :: values(..) ! must be inout or the allocation might be screwed
+    real(8), intent(in), target :: values(:) ! must be inout or the allocation might be screwed
     ! EO parameters
     include "netcdf.inc"
     real(8), pointer :: values_ptr(:)
@@ -493,7 +493,7 @@ subroutine write_var_r4(this, varindex, starts, sizes, values)
     class(netcdf_file_type), intent(in) :: this
     integer, intent(in) :: varindex
     integer, dimension(:) :: starts, sizes
-    real(4), intent(in), target :: values(..) ! must be inout or the allocation might be screwed
+    real(4), intent(in), target :: values(:) ! must be inout or the allocation might be screwed
     ! EO parameters
     include "netcdf.inc"
     real(4), pointer :: values_ptr(:)
@@ -512,7 +512,7 @@ subroutine write_var_integer(this, varindex, starts, sizes, values)
     class(netcdf_file_type), intent(in) :: this
     integer, intent(in) :: varindex
     integer, dimension(:) :: starts, sizes
-    integer, intent(in), target :: values(..) ! must be inout or the allocation might be screwed
+    integer, intent(in), target :: values(:) ! must be inout or the allocation might be screwed
     ! EO parameters
     include "netcdf.inc"
     integer, pointer :: values_ptr(:)

src/io_netcdf_module.F90

@@ -106,7 +106,7 @@ subroutine read_values_r8(this, timeindex, values)
     use, intrinsic :: ISO_C_BINDING
     class(netcdf_variable_handle), intent(in) :: this
     integer, intent(in) :: timeindex
-    real(8), intent(inout), target :: values(..) ! must be inout or the allocation might be screwed
+    real(8), intent(inout), target :: values(:) ! must be inout or the allocation might be screwed
     ! EO args
     real(8), pointer :: values_ptr(:)
     integer, allocatable, dimension(:) :: starts, sizes
@@ -125,7 +125,7 @@ subroutine read_values_r4(this, timeindex, values)
     use, intrinsic :: ISO_C_BINDING
     class(netcdf_variable_handle), intent(in) :: this
     integer, intent(in) :: timeindex
-    real(4), intent(inout), target :: values(..) ! must be inout or the allocation might be screwed
+    real(4), intent(inout), target :: values(:) ! must be inout or the allocation might be screwed
     ! EO args
     real(4), pointer :: values_ptr(:)
     integer, allocatable, dimension(:) :: starts, sizes