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/dyn3d_common/massdair.F

    r2597 r5086  
    8282c=======================================================================
    8383
    84       DO   100    l = 1 , llm
     84      DO   l = 1 , llm
    8585c
    8686        DO    ij     = 1, ip1jmp1
    … …  
    103103c       ENDDO
    104104       
    105 100   CONTINUE
     105      END DO
    106106c
    107107      RETURN
Note: See TracChangeset for help on using the changeset viewer.