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/phylmd/rrtm/set99.F

    r5082 r5086  
    1515      NIL=0
    1616      NHL=(N/2)-1
    17       DO 10 K=NIL,NHL
     17      DO K=NIL,NHL
    1818      ANGLE=FLOAT(K)*DEL
    1919      TRIGS(2*K+1)=COS(ANGLE)
    2020      TRIGS(2*K+2)=SIN(ANGLE)
    21    10 CONTINUE
     21      END DO
    2222C
    2323C     FIND FACTORS OF N (8,6,5,4,3,2; ONLY ONE 8 ALLOWED)
Note: See TracChangeset for help on using the changeset viewer.