Changeset 5086 for LMDZ6/branches/Amaury_dev/libf/filtrez/eigen.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/filtrez/eigen.F (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/filtrez/eigen.F

@@ -10 +10 @@
       im=iim
 c
-      DO 48 i = 1,im
+      DO i = 1,im
          asm( i ) = d( im-i+1 )
- 48   CONTINUE
-      DO 49 i = 1,iim
+      END DO
+      DO i = 1,iim
          d( i ) = asm( i )
- 49   CONTINUE
+      END DO
 c
 c     PRINT 70,d
@@ -21 +21 @@
                 print *
 c
-      DO 51 i = 1,im
-         DO 52 j = 1,im
+      DO i = 1,im
+         DO j = 1,im
             asm( j ) = e( i , im-j+1 )
- 52      CONTINUE
-         DO 50 j = 1,im
+      END DO
+         DO j = 1,im
             e( i,j ) = asm( j )
- 50      CONTINUE
- 51   CONTINUE
+      END DO
+      END DO
 
       RETURN