feat(data_partition): add pure generic constructor

Author: rouson

src/sourcery/sourcery_data_partition_m.f90

@@ -20,12 +20,22 @@ module sourcery_data_partition_m
     generic :: gather => gather_real32_2D_array, gather_real64_2D_array,  gather_real32_1D_array, gather_real64_1D_array
   end type
 
+  interface data_partition_t
+
+    pure module function construct(cardinality) result(data_partition)
+      implicit none
+      type(data_partition_t) data_partition
+      integer, intent(in) :: cardinality
+    end function
+
+  end interface
+
   interface
 
-    module subroutine define_partitions(self, cardinality)
+    pure module subroutine define_partitions(self, cardinality)
       !! define the range of data identification numbers owned by the executing image
       implicit none
-      class(data_partition_t), intent(out) :: self
+      class(data_partition_t), intent(inout) :: self
       integer, intent(in) :: cardinality
     end subroutine
 

src/sourcery/sourcery_data_partition_s.f90

@@ -8,7 +8,13 @@
 
   module procedure define_partitions
     integer image
-    self%bin = [( bin_t(num_items=cardinality, num_bins=num_images(), bin_number=image), image=1,num_images() )]
+    associate(ni => num_images())
+      self%bin = [( bin_t(num_items=cardinality, num_bins=ni, bin_number=image), image=1,ni )]
+    end associate
+  end procedure
+
+  module procedure construct
+    call data_partition%define_partitions(cardinality)
   end procedure
 
   module procedure first

test/data_partition_test.f90

@@ -47,9 +47,7 @@ function verify_block_partitioning() result(test_passes)
     logical test_passes
     integer my_particles
 
-    call partition%define_partitions(cardinality=num_particles)
-
-    associate( me=>this_image() )
+    associate( me=>this_image(), partition => data_partition_t(cardinality=num_particles))
       associate( my_first=>partition%first(me), my_last=>partition%last(me) )
         my_particles = my_last - my_first + 1
         associate( ni=>num_images() )
@@ -67,9 +65,7 @@ function verify_default_image_number() result(test_passes)
     type(data_partition_t) partition
     logical test_passes
 
-    call partition%define_partitions(cardinality=num_particles)
-
-    associate( me=>this_image() )
+    associate( me=>this_image(), partition => data_partition_t(cardinality=num_particles))
       test_passes = partition%first() == partition%first(me) .and.partition%last() == partition%last(me)
     end associate
   end function
@@ -81,9 +77,7 @@ function verify_all_particles_partitioned() result(test_passes)
     logical test_passes
     integer particles
 
-    call partition%define_partitions(cardinality=num_particles)
-
-    associate(me => this_image())
+    associate( me=>this_image(), partition => data_partition_t(cardinality=num_particles))
       associate( my_first=>partition%first(me), my_last=>partition%last(me) )
         particles = my_last - my_first + 1
         call co_sum(particles)
@@ -98,9 +92,7 @@ function verify_all_gather_1D_real_array() result(test_passes)
    real(real64) :: particle_scalar(num_particles)
    real(real64), parameter :: junk=-12345._real64, expected=1._real64
 
-   call partition%define_partitions(cardinality=num_particles)
-
-   associate(me => this_image())
+   associate( me=>this_image(), partition => data_partition_t(cardinality=num_particles))
      associate( first=>partition%first(me), last=>partition%last(me) )
        particle_scalar(first:last) = expected !! values to be gathered
        particle_scalar(1:first-1)  = junk !! values to be overwritten by the gather
@@ -118,9 +110,7 @@ function verify_all_gather_2D_real_array() result(test_passes)
    real(real64) particle_vector(vec_space_dim, num_particles)
    real(real64), parameter :: junk=-12345._real64, expected=1._real64
 
-   call partition%define_partitions(cardinality=num_particles)
-
-   associate(me => this_image())
+   associate( me=>this_image(), partition => data_partition_t(cardinality=num_particles))
      associate( first=>partition%first(me), last=>partition%last(me) )
 
        particle_vector(:, first:last) = expected !! values to be gathered
@@ -139,9 +129,7 @@ function verify_all_gather_2D_real_array_dim1() result(test_passes)
    real(real64) :: vector_transpose(num_particles, vec_space_dim)
    real(real64), parameter :: junk=-12345._real64, expected=1._real64
 
-   call partition%define_partitions(cardinality=num_particles)
-
-   associate(me => this_image())
+   associate( me=>this_image(), partition => data_partition_t(cardinality=num_particles))
      associate( first=>partition%first(me), last=>partition%last(me) )
 
        vector_transpose(first:last, :) = expected !! values to be gathered
@@ -163,9 +151,7 @@ function verify_gather_2D_real_array_dim1() result(test_passes)
    real(real64) :: vector_transpose(num_particles, vec_space_dim)
    real(real64), parameter :: junk=-12345._real64, expected=1._real64
 
-   call partition%define_partitions(cardinality=num_particles)
-
-   associate(me => this_image())
+   associate( me=>this_image(), partition => data_partition_t(cardinality=num_particles))
      associate( first=>partition%first(me), last=>partition%last(me) )
 
        vector_transpose(first:last, :) = expected !! values to be gathered