refac(bin_t%first/last): rm unnecessary arg

Author: rouson

src/sourcery/bin_m.f90

@@ -26,19 +26,17 @@ elemental module function construct(num_items, num_bins, bin_number) result(bin)
 
   interface
 
-    elemental module function first(self, bin_number) result(first_item_number)
+    elemental module function first(self) result(first_item_number)
       !! the result is the first item number associated with the given bin
       implicit none
       class(bin_t), intent(in) :: self
-      integer, intent(in) :: bin_number
       integer first_item_number
     end function
 
-    elemental module function last(self, bin_number) result(last_item_number)
+    elemental module function last(self) result(last_item_number)
       !! the result is the last item number associated with the given bin
       implicit none
       class(bin_t), intent(in) :: self
-      integer, intent(in) :: bin_number
       integer last_item_number
     end function
 

src/sourcery/data_partition_s.f90

@@ -15,12 +15,12 @@
 
   module procedure first
     call assert( allocated(bin), "data_partition_s(first): allocated(bin)")
-    first_index = bin(image_number)%first(image_number)
+    first_index = bin(image_number)%first()
   end procedure
 
   module procedure last
     call assert( allocated(bin), "data_partition_s(last): allocated(bin)")
-    last_index = bin(image_number)%last(image_number)
+    last_index = bin(image_number)%last()
   end procedure
 
   module procedure gather_real32_1D_array

test/bin_test.f90

@@ -51,7 +51,7 @@ function verify_block_partitioning() result(test_passes)
     integer b
 
     bins = [( bin_t(num_items=n_items, num_bins=n_bins, bin_number=b), b = 1,n_bins )]
-    associate(in_bin => [(bins(b)%last(b) - bins(b)%first(b) + 1, b = 1, n_bins)])
+    associate(in_bin => [(bins(b)%last() - bins(b)%first() + 1, b = 1, n_bins)])
       associate(remainder => mod(n_items, n_bins), items_per_bin => n_items/n_bins)
         test_passes = all([(in_bin(1:remainder) == items_per_bin + 1)]) .and. all([(in_bin(remainder+1:) == items_per_bin)])
       end associate
@@ -69,7 +69,7 @@ function verify_all_items_partitioned() result(test_passes)
     integer b
 
     bins = [( bin_t(num_items=n_items, num_bins=n_bins, bin_number=b), b = 1,n_bins )]
-    test_passes = sum([(bins(b)%last(b) - bins(b)%first(b) + 1, b = 1, n_bins)]) == n_items
+    test_passes = sum([(bins(b)%last() - bins(b)%first() + 1, b = 1, n_bins)]) == n_items
 
   end function