Modules/chkpixels.f90

@@ -37,8 +37,7 @@ contains
         pixrgb(ix, iy)%b = iy
       end do
     end do
-    call rgbpix_spit_as_pnm_8(pixrgb,  "rgb8.pnm")
+    call rgbpix_spit_as_pnm_8(pixrgb, "rgb.pnm")
-    call rgbpix_spit_as_pnm_16(pixrgb, "rgb16.pnm")
     deallocate(pixrgb)
 
   end subroutine
@@ -59,8 +58,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,25 +28,6 @@ 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,8 +77,7 @@ subroutine rgbpix_spit_as_pnm_8(pic, fname)
 
   do iy=1, ubound(pic, 2)
     do ix=1, ubound(pic, 1)
-      write(io, "(I0,' ', I0,' ',I0)")            &
+      write(io, "(3I5)") pic(ix, iy)%r, pic(ix, iy)%g, pic(ix, iy)%b
-              pic(ix, iy)%r, pic(ix, iy)%g, pic(ix, iy)%b
     enddo
   enddo
   close(unit=io)
@@ -103,8 +102,7 @@ subroutine rgbpix_spit_as_pnm_16(pic, fname)
 
   do iy=1, ubound(pic, 2)
     do ix=1, ubound(pic, 1)
-      write(io, "(I0,' ', I0,' ',I0)")         &
+      write(io, "(3I6)") pic(ix, iy)%r, pic(ix, iy)%g, pic(ix, iy)%b
-         pic(ix, iy)%r, pic(ix, iy)%g, pic(ix, iy)%b
     enddo
   enddo
   close(unit=io)