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

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

@@ -73 +73 @@
           is = is + 1
           left_edge = xs(is)
-       end do
+       END DO
        ! 1 <= is <= ns
        vt(it) = (vt(it) + (xt(it + 1) - left_edge) * vs(is)) &
@@ -79 +79 @@
        if (xs(is + 1) == xt(it + 1)) is = is + 1
        ! 1 <= is <= ns .or. it == nt
-    end do
+    END DO
 
   end function regr11_step_av
@@ -133 +133 @@
           is = is + 1
           left_edge = xs(is)
-       end do
+       END DO
        ! 1 <= is <= ns
        vt(it, :) = (vt(it, :) + (xt(it + 1) - left_edge) * vs(is, :)) &
@@ -139 +139 @@
        if (xs(is + 1) == xt(it + 1)) is = is + 1
        ! 1 <= is <= ns .or. it == nt
-    end do
+    END DO
 
   end function regr12_step_av
@@ -194 +194 @@
           is = is + 1
           left_edge = xs(is)
-       end do
+       END DO
        ! 1 <= is <= ns
        vt(it, :, :) = (vt(it, :, :) &
@@ -200 +200 @@
        if (xs(is + 1) == xt(it + 1)) is = is + 1
        ! 1 <= is <= ns .or. it == nt
-    end do
+    END DO
 
   end function regr13_step_av
@@ -256 +256 @@
           is = is + 1
           left_edge = xs(is)
-       end do
+       END DO
        ! 1 <= is <= ns
        vt(it, :, :, :) = (vt(it, :, :, :) + (xt(it + 1) - left_edge) &
@@ -262 +262 @@
        if (xs(is + 1) == xt(it + 1)) is = is + 1
        ! 1 <= is <= ns .or. it == nt
-    end do
+    END DO
 
   end function regr14_step_av