Ignore:
Timestamp:
Jul 19, 2024, 7:54:50 PM (4 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/ismax.F

    r5082 r5086  
    1212      ismax=1
    1313      sxmax=sx(1)
    14       do 10 i=1,n-1
     14      do i=1,n-1
    1515       ix=ix+incx
    1616       if(sx(ix)>sxmax) then
    … …  
    1818         ismax=i+1
    1919       endif
    20 10    continue
     20      END DO
    2121c
    2222      return
Note: See TracChangeset for help on using the changeset viewer.