Changeset 5086 for LMDZ6/branches/Amaury_dev/libf/misc/interpolation.F90

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/interpolation.F90 (modified) (4 diffs)

LMDZ6/branches/Amaury_dev/libf/misc/interpolation.F90

@@ -40 +40 @@
           ju=jm ! or the upper limit, as appropriate.
        end if
-    end do
+    END DO
     ! {ju == jl + 1}
 
@@ -102 +102 @@
                 inc=inc+inc ! so double the increment
              end if
-          end do ! and try again.
+          END DO ! and try again.
        else ! Hunt down:
           jhi=jlo
@@ -115 +115 @@
                 inc=inc+inc ! so double the increment
              end if
-          end do ! and try again.
+          END DO ! and try again.
        end if
     end if ! Done hunting, value bracketed.
@@ -132 +132 @@
           end if
        end if
-    end do
+    END DO
 
   END SUBROUTINE hunt