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