anchor.diff:        integer ounit
   !----------------------------------------------------------------------
         ofoutput = .FALSE.
  -      ounit = 6
  +      ounit = stdout
         fname = "fort.190"
         
         STF = .false. !Use the new STF format?
  
positive.code:       program read90
  !-----------------------------------------------------------------------
  !  Read a fort.90 and print with correct binary/decimal conversion
  !-----------------------------------------------------------------------
  
negative.code:       goto 550
    540 continue
    550 continue
        if(ofoutput .eqv. .TRUE.) then
           close(ounit)
        endif
  !----------------------------------------------------------------------
        end
        integer function dtostr(x,results)
  