Merge pull request #10 from sourceryinstitute/update-vegetables

Update vegetables & silence library output by default

Author: Damian Rouson

README.md

@@ -52,7 +52,7 @@ developing and testing.  Earlier versions or commits might work also.
 
 * Compiler: [GNU Fortran] (gfortran) 10.2.0
 * Parallel runtime library: [OpenCoarrays] 2.9.0
-* Fortran package manager: [fpm] 105644
+* Fortran package manager: [fpm] 7d320295c6fe56cc767b352bd26f0466aa29ac5c
 
 This library also uses the [vegetables] unit testing framework, which
 the [fpm] build system will install automatically.

fpm.toml

@@ -6,7 +6,7 @@ maintainer = "[email protected]"
 copyright = "2020 Sourcery Institute"
 
 [dev-dependencies]
-vegetables = {git = "https://gitlab.com/everythingfunctional/vegetables", tag = "v6.0.0"}
+vegetables = {git = "https://gitlab.com/everythingfunctional/vegetables", tag = "v6.0.1"}
 
 [[test]]
 name="unit"

src/data-partition-implementation.F90

@@ -2,6 +2,8 @@
   use assertions_interface, only : assert, assertions
   implicit none
 
+  logical, parameter :: verbose=.false.
+
 contains
 
   module procedure define_partitions
@@ -57,8 +59,10 @@ pure function overflow(im, excess) result(extra_datum)
     if (present(dim)) call assert (dim==1, "dimensioned partitioned == 1")
 
     associate( me => this_image() )
-      write(6,*) 'gather_real_1D_array(): executing on image', me
-      flush(6)
+      if (verbose) then
+        write(6,*) 'gather_real_1D_array(): executing on image', me
+        flush(6)
+      end if
       associate( first=>first(me), last=>last(me) )
         if (.not. present(result_image)) then
           a(1:first-1)  = 0.
@@ -92,8 +96,10 @@ pure function overflow(im, excess) result(extra_datum)
     end if
 
     associate( me => this_image() )
-      write(6,*) 'gather_real_2D_array(): executing on image', me
-      flush(6)
+      if (verbose) then
+        write(6,*) 'gather_real_2D_array(): executing on image', me
+        flush(6)
+      end if
       associate( first => first(me), last => last(me) )
         if (.not. present(result_image)) then
           select case(dim_)