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

Timestamp:

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

Author:

abarral

Message:

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

File:

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

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

@@ -76 +76 @@
 C  COMPUTE COEFFICIENTS OF INTERPOLATING POLYNOMIAL.
 C
-      DO 10  J = 2, K-1
-         DO 9  I = 1, K-J
+      DO J = 2, K-1
+         DO I = 1, K-J
             S(I) = (S(I+1)-S(I))/(X(I+J)-X(I))
-    9    CONTINUE
-   10 CONTINUE
+      END DO
+      END DO
 C
 C  EVALUATE DERIVATIVE AT X(K).
 C
       VALUE = S(1)
-      DO 20  I = 2, K-1
+      DO I = 2, K-1
          VALUE = S(I) + VALUE*(X(K)-X(I))
-   20 CONTINUE
+      END DO
 C
 C  NORMAL RETURN.