Changeset 5086 for LMDZ6/branches/Amaury_dev/libf/misc/cray.F

Timestamp:

Jul 19, 2024, 7:54:50 PM (4 months ago)

Author:

abarral

Message:

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

File:

• LMDZ6/branches/Amaury_dev/libf/misc/cray.F (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/misc/cray.F

@@ -36 +36 @@
          ssum=ssum+sx(ix)
          ix=ix+incx
-      end do
+      END DO
 c
       return