1! check F2.x edit descriptors 2! PR 14746 3 CHARACTER*15 LINE 4 RCON21 = 9. 5 RCON22 = .9 6 WRITE(LINE,'(F2.0,1H,,F2.1)')RCON21,RCON22 7 READ(LINE,'(F2.0,1X,F2.1)')XRCON21,XRCON22 8 IF (RCON21.NE.XRCON21) STOP 1 9 IF (RCON22.NE.XRCON22) STOP 2 10 END 11