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