more compact PNM8 file

Modules/chkpixels.f90

@@ -37,7 +37,8 @@ contains
         pixrgb(ix, iy)%b = iy
       end do
     end do
-    call rgbpix_spit_as_pnm_8(pixrgb, "rgb.pnm")
+    call rgbpix_spit_as_pnm_8(pixrgb,  "rgb8.pnm")
+    call rgbpix_spit_as_pnm_16(pixrgb, "rgb16.pnm")
     deallocate(pixrgb)
 
   end subroutine
@@ -58,8 +59,8 @@ contains
       value = value + increment
     enddo
   enddo
-  call spit_as_pgm_16 (greymap, 'a.pnm')
+!  call spit_as_pgm_16 (greymap, 'a.pnm')
-  call spit_as_pgm_eq (greymap, 'b.pnm')
+!  call spit_as_pgm_eq (greymap, 'b.pnm')
   call spit_as_pgm_8  (greymap, 'c.pnm')
   call new_spit_a     (greymap, 'x.pnm')
   end subroutine

Modules/mathstuff2.f90

@@ -28,6 +28,25 @@ module mathstuff2
 
   end subroutine 
 
+  ! ----------------------------------------------------------------
+
+logical function diff_sign(a, b)
+   integer, intent(in)     :: a, b
+
+   ! write(0, *) "diff_sign", a, b
+   if ( (a .lt. 0) .and. (b .ge. 0) ) then 
+      diff_sign = .TRUE.
+      return
+   endif
+   if ( (a .ge. 0) .and. (b .lt. 0) ) then
+      diff_sign = .TRUE.
+      return
+   endif
+   diff_sign = .FALSE.
+
+end function
+
+
   ! ----------------------------------------------------------------
 end module mathstuff2
 

Modules/pixrgb.f90

@@ -77,7 +77,8 @@ subroutine rgbpix_spit_as_pnm_8(pic, fname)
 
   do iy=1, ubound(pic, 2)
     do ix=1, ubound(pic, 1)
-      write(io, "(3I5)") pic(ix, iy)%r, pic(ix, iy)%g, pic(ix, iy)%b
+      write(io, "(I0,' ', I0,' ',I0)")            &
+              pic(ix, iy)%r, pic(ix, iy)%g, pic(ix, iy)%b
     enddo
   enddo
   close(unit=io)
@@ -102,7 +103,8 @@ subroutine rgbpix_spit_as_pnm_16(pic, fname)
 
   do iy=1, ubound(pic, 2)
     do ix=1, ubound(pic, 1)
-      write(io, "(3I6)") pic(ix, iy)%r, pic(ix, iy)%g, pic(ix, iy)%b
+      write(io, "(I0,' ', I0,' ',I0)")         &
+         pic(ix, iy)%r, pic(ix, iy)%g, pic(ix, iy)%b
     enddo
   enddo
   close(unit=io)