autosize dims

geospace-code · Dec 4, 2019 · 914f91b · 914f91b
1 parent 97bc57d
commit 914f91b
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/read_int.f90 b/src/read_int.f90
@@ -28,7 +28,7 @@
 
 module procedure hdf_get_int_1d
 
-integer(HSIZE_T) :: dims(1)
+integer(HSIZE_T) :: dims(rank(value))
 integer(SIZE_T) :: dsize
 integer :: ierr, dtype
 
@@ -45,7 +45,7 @@
 
 module procedure hdf_get_int_2d
 
-integer(HSIZE_T) :: dims(2)
+integer(HSIZE_T) :: dims(rank(value))
 integer(SIZE_T) :: dsize
 integer :: ierr, dtype
 
@@ -62,7 +62,7 @@
 
 module procedure hdf_get_int_3d
 
-integer(HSIZE_T) :: dims(3)
+integer(HSIZE_T) :: dims(rank(value))
 integer(SIZE_T) :: dsize
 integer :: ierr, dtype