refac(mod_parallel): mv procedure def to submodule

Author: rouson

src/mod_parallel.f90

@@ -6,28 +6,16 @@ module mod_parallel
   private
   public :: tile_indices
 
-contains
-
-  pure function tile_indices(dims)
-    !! Given input global array size, return start and end index
-    !! of a parallel 1-d tile that correspond to this image.
-    integer(ik), intent(in) :: dims
-    integer(ik) :: tile_indices(2)
-    integer(ik) :: offset, tile_size
-
-    tile_size = dims / num_images()
-
-    !! start and end indices assuming equal tile sizes
-    tile_indices(1) = (this_image() - 1) * tile_size + 1
-    tile_indices(2) = tile_indices(1) + tile_size - 1
-
-    !! if we have any remainder, distribute it to the tiles at the end
-    offset = num_images() - mod(dims, num_images())
-    if (this_image() > offset) then
-      tile_indices(1) = tile_indices(1) + this_image() - offset - 1
-      tile_indices(2) = tile_indices(2) + this_image() - offset
-    end if
-
-  end function tile_indices
+  interface
+  
+    pure module function tile_indices(dims)
+      !! Given input global array size, return start and end index
+      !! of a parallel 1-d tile that correspond to this image.
+      implicit none
+      integer(ik), intent(in) :: dims
+      integer(ik) :: tile_indices(2)
+    end function tile_indices
+  
+  end interface
 
 end module mod_parallel

src/mod_parallel_submodule.f90

@@ -0,0 +1,28 @@
+submodule(mod_parallel) mod_parallel_submodule
+
+  use mod_kinds, only: ik, rk
+  implicit none
+
+contains
+
+  pure module function tile_indices(dims)
+    integer(ik), intent(in) :: dims
+    integer(ik) :: tile_indices(2)
+    integer(ik) :: offset, tile_size
+
+    tile_size = dims / num_images()
+
+    !! start and end indices assuming equal tile sizes
+    tile_indices(1) = (this_image() - 1) * tile_size + 1
+    tile_indices(2) = tile_indices(1) + tile_size - 1
+
+    !! if we have any remainder, distribute it to the tiles at the end
+    offset = num_images() - mod(dims, num_images())
+    if (this_image() > offset) then
+      tile_indices(1) = tile_indices(1) + this_image() - offset - 1
+      tile_indices(2) = tile_indices(2) + this_image() - offset
+    end if
+
+  end function tile_indices
+
+end submodule mod_parallel_submodule