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/ran1.F

    r5082 r5086  
    2121        IX1=MOD(IA1*IX1+IC1,M1)
    2222        IX3=MOD(IX1,M3)
    23         DO 11 J=1,97
     23        DO J=1,97
    2424          IX1=MOD(IA1*IX1+IC1,M1)
    2525          IX2=MOD(IA2*IX2+IC2,M2)
    2626          R(J)=(REAL(IX1)+REAL(IX2)*RM2)*RM1
    27 11      CONTINUE
     27      END DO
    2828        IDUM=1
    2929      ENDIF
Note: See TracChangeset for help on using the changeset viewer.