Remove redundant interface

Author: minhqdao

src/stdlib_io_np.fypp

@@ -145,21 +145,6 @@ module stdlib_io_np
         end
     end interface
 
-    interface allocate_array_from_shape
-#:for k1, t1 in KINDS_TYPES
-#:for rank in RANKS
-        module subroutine allocate_array_from_shape_${t1[0]}$${k1}$_${rank}$ (array, vshape, stat)
-            !> Instance of the array to be allocated.
-            ${t1}$, allocatable, intent(out) :: array${ranksuffix(rank)}$
-            !> Dimensions to allocate for.
-            integer, intent(in) :: vshape(:)
-            !> Status of allocate.
-            integer, intent(out) :: stat
-        end
-#:endfor
-#:endfor
-    end interface
-
     interface add_array
 #:for k1, t1 in KINDS_TYPES
 #:for rank in RANKS

src/stdlib_io_np_load.fypp

@@ -58,7 +58,7 @@ contains
                 exit catch
             end if
 
-            call allocate_array_from_shape(array, vshape, stat)
+            call allocate_array_from_shape_${t1[0]}$${k1}$_${rank}$(array, vshape, stat)
             if (stat /= 0) then
                 msg = "Failed to allocate array of type '"//vtype//"' "//&
                 & "with total size of "//to_string(product(vshape))
@@ -86,7 +86,7 @@ contains
 
 #:for k1, t1 in KINDS_TYPES
 #:for rank in RANKS
-    module subroutine allocate_array_from_shape_${t1[0]}$${k1}$_${rank}$(array, vshape, stat)
+    subroutine allocate_array_from_shape_${t1[0]}$${k1}$_${rank}$(array, vshape, stat)
         ${t1}$, allocatable, intent(out) :: array${ranksuffix(rank)}$
         integer, intent(in) :: vshape(:)
         integer, intent(out) :: stat
@@ -180,7 +180,7 @@ contains
                     block
                         ${t1}$, allocatable :: array${ranksuffix(rank)}$
 
-                        call allocate_array_from_shape(array, vshape, stat)
+                        call allocate_array_from_shape_${t1[0]}$${k1}$_${rank}$(array, vshape, stat)
                         if (stat /= 0) then
                             msg = "Failed to allocate array of type '"//this_type//"'.";
                             close(io, status='delete'); return