cleanup + add a 0 func

Modules/chkpixels.f90

@@ -18,6 +18,8 @@ program chkpixels
 
 contains
 !-------------------------------------------------------------------
+!-
+!     exerciser for the 'pixrgb' module
 !-
   subroutine test_spit_rgb(sz)
     integer, intent(in)    :: sz
@@ -27,20 +29,15 @@ contains
 
     print *, "test spit rgb", sz
     allocate(pixrgb(sz, sz))
-    ! pixrgb = 0
-
+    call rgbpix_set_to_zero(pixrgb)
     do ix=1, sz
       do iy=1, sz
-
         pixrgb(ix, iy)%r = ix
         pixrgb(ix, iy)%g = 0
         pixrgb(ix, iy)%b = iy
-
       end do
     end do
-
     call rgbpix_spit_as_pnm_8(pixrgb, "rgb.pnm")
-
     deallocate(pixrgb)
 
   end subroutine
@@ -60,12 +57,10 @@ contains
       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
 
 end program