f2_edit_1.f90

来自「Mac OS X 10.4.9 for x86 Source Code gcc」· F90 代码 · 共 11 行

! check F2.x edit descriptors
! PR 14746
      CHARACTER*15 LINE
      RCON21 = 9.
      RCON22 = .9
      WRITE(LINE,'(F2.0,1H,,F2.1)')RCON21,RCON22
      READ(LINE,'(F2.0,1X,F2.1)')XRCON21,XRCON22
      IF (RCON21.NE.XRCON21) CALL ABORT
      IF (RCON22.NE.XRCON22) CALL ABORT
      END