Ignore:
Timestamp:
Jul 19, 2024, 7:54:50 PM (2 months ago)
Author:
abarral
Message:

convert labeled do (f77) to do .. end do

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/misc/xermsg.F

    r5082 r5086  
    328328      IF (LKNTRL > 0) THEN
    329329         WRITE (TEMP, '(''ERROR NUMBER = '', I8)') NERR
    330          DO 10 I=16,22
     330         DO I=16,22
    331331            IF (TEMP(I:I) /= ' ') GO TO 20
    332    10    CONTINUE
     332      END DO
    333333C
    334334   20    CALL XERPRN (' *  ', -1, TEMP(1:15) // TEMP(I:23), 72)
Note: See TracChangeset for help on using the changeset viewer.