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

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

@@ -92 +92 @@
 C
       N = I1MACH(4)
-      DO 10 I=1,NUNIT
+      DO I=1,NUNIT
          IF (IU(I) == 0) IU(I) = N
-   10 CONTINUE
+      END DO
 C
 C       LPREF IS THE LENGTH OF THE PREFIX.  THE PREFIX IS PLACED AT THE
@@ -117 +117 @@
       LENMSG = LEN(MESSG)
       N = LENMSG
-      DO 20 I=1,N
+      DO I=1,N
          IF (MESSG(LENMSG:LENMSG) /= ' ') GO TO 30
          LENMSG = LENMSG - 1
-   20 CONTINUE
+      END DO
    30 CONTINUE
 C
@@ -127 +127 @@
       IF (LENMSG == 0) THEN
          CBUFF(LPREF+1:LPREF+1) = ' '
-         DO 40 I=1,NUNIT
+         DO I=1,NUNIT
             WRITE(IU(I), '(A)') CBUFF(1:LPREF+1)
-   40    CONTINUE
+      END DO
          RETURN
       ENDIF
@@ -179 +179 @@
          LPIECE = MIN(LWRAP, LENMSG+1-NEXTC)
          IF (LPIECE < LENMSG+1-NEXTC) THEN
-            DO 52 I=LPIECE+1,2,-1
+            DO I=LPIECE+1,2,-1
                IF (MESSG(NEXTC+I-1:NEXTC+I-1) == ' ') THEN
                   LPIECE = I-1
@@ -185 +185 @@
                   GOTO 54
                ENDIF
-   52       CONTINUE
+      END DO
          ENDIF
    54    CBUFF(LPREF+1:LPREF+LPIECE) = MESSG(NEXTC:NEXTC+LPIECE-1)
@@ -202 +202 @@
          IDELTA = 0
          LPIECE = LWRAP
-         DO 56 I=LPIECE+1,2,-1
+         DO I=LPIECE+1,2,-1
             IF (MESSG(NEXTC+I-1:NEXTC+I-1) == ' ') THEN
                LPIECE = I-1
@@ -208 +208 @@
                GOTO 58
             ENDIF
-   56    CONTINUE
+      END DO
    58    CBUFF(LPREF+1:LPREF+LPIECE) = MESSG(NEXTC:NEXTC+LPIECE-1)
          NEXTC = NEXTC + LPIECE + IDELTA
@@ -223 +223 @@
 C       PRINT
 C
-      DO 60 I=1,NUNIT
+      DO I=1,NUNIT
          WRITE(IU(I), '(A)') CBUFF(1:LPREF+LPIECE)
-   60 CONTINUE
+      END DO
 C
       IF (NEXTC <= LENMSG) GO TO 50