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

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

@@ -81 +81 @@
 C
          CALL XGETUA (LUN, NUNIT)
-         DO 20 KUNIT = 1,NUNIT
+         DO KUNIT = 1,NUNIT
             IUNIT = LUN(KUNIT)
             IF (IUNIT==0) IUNIT = I1MACH(4)
@@ -91 +91 @@
 C           Print body of table.
 C
-            DO 10 I = 1,NMSG
+            DO I = 1,NMSG
                WRITE (IUNIT,9010) LIBTAB(I), SUBTAB(I), MESTAB(I),
      *            NERTAB(I),LEVTAB(I),KOUNT(I)
-   10       CONTINUE
+      END DO
 C
 C           Print number of other errors.
@@ -100 +100 @@
             IF (KOUNTX/=0) WRITE (IUNIT,9020) KOUNTX
             WRITE (IUNIT,9030)
-   20    CONTINUE
+      END DO
 C
 C        Clear the error tables.
@@ -117 +117 @@
          SUB = SUBROU
          MES = MESSG
-         DO 30 I = 1,NMSG
+         DO I = 1,NMSG
             IF (LIB==LIBTAB(I) .AND. SUB==SUBTAB(I) .AND.
      *         MES==MESTAB(I) .AND. NERR==NERTAB(I) .AND.
@@ -125 +125 @@
                   RETURN
             ENDIF
-   30    CONTINUE
+      END DO
 C
          IF (NMSG<LENTAB) THEN