trials.f90: buffering is good for the planet

Modules/chkpixels.f90

@@ -1,20 +1,25 @@
+!-------------------------------------------------------------------
+!-
+
 program chkpixels
 
-  use spitpgm               
+  use spitpgm               ! main module
+  use trials                ! experiments, ymmv.
+
   implicit none
 
-
   write(0, *)  "------ CHKPIXELS ------"
-  call test_alpha()
+  call test_alpha(3)
 
   STOP 'BECAUSE NO CPU AVAILABLE'
 
 contains
 !-------------------------------------------------------------------
 !-
-  subroutine test_alpha()
+  subroutine test_alpha(increment)
+  integer, intent(in)         :: increment
 
-  integer, parameter          :: SZ = 32
+  integer, parameter          :: SZ = 40
   integer, dimension(SZ, SZ)  :: greymap
   integer                     :: ix, iy, value
 
@@ -22,12 +27,14 @@ contains
   do iy=1, SZ
     do ix=1, SZ
       greymap(ix, iy) = value
-      value = value + 1
+      value = value + increment
     enddo
   enddo
+
   call spit_as_pgm_16 (greymap, 'a.pgm')
   call spit_as_pgm_eq (greymap, 'b.pgm')
   call spit_as_pgm_8  (greymap, 'c.pgm')
+  call new_spit_a     (greymap, 'x.pgm')
 
   end subroutine