Changeset 5086 for LMDZ6/branches/Amaury_dev/libf/misc/pchfe.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/pchfe.F (modified) (4 diffs)

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

@@ -145 +145 @@
       IF ( N<2 )  GO TO 5001
       IF ( INCFD<1 )  GO TO 5002
-      DO 1  I = 2, N
+      DO I = 2, N
          IF ( X(I)<=X(I-1) )  GO TO 5003
-    1 CONTINUE
+      END DO
 C
 C  FUNCTION DEFINITION IS OK, GO ON.
@@ -168 +168 @@
 C     LOCATE ALL POINTS IN INTERVAL.
 C
-         DO 20  J = JFIRST, NE
+         DO J = JFIRST, NE
             IF (XE(J) >= X(IR))  GO TO 30
-   20    CONTINUE
+      END DO
          J = NE + 1
          GO TO 40
@@ -228 +228 @@
 C
 C              FIRST, LOCATE FIRST POINT TO LEFT OF X(IR-1).
-               DO 44  I = JFIRST, J-1
+               DO I = JFIRST, J-1
                   IF (XE(I) < X(IR-1))  GO TO 45
-   44          CONTINUE
+      END DO
 C              NOTE-- CANNOT DROP THROUGH HERE UNLESS THERE IS AN ERROR
 C                     IN CHFEV.
@@ -240 +240 @@
 C
 C              NOW FIND OUT HOW FAR TO BACK UP IN THE X-ARRAY.
-               DO 46  I = 1, IR-1
+               DO I = 1, IR-1
                   IF (XE(J) < X(I)) GO TO 47
-   46          CONTINUE
+      END DO
 C              NB-- CAN NEVER DROP THROUGH HERE, SINCE XE(J).LT.X(IR-1).
 C