Remove DO termination statement warning from daux1

LLNL · Oct 18, 2023 · 8229a39 · 8229a39
1 parent 8508e65
commit 8229a39
Showing 1 changed file with 12 additions and 8 deletions.
diff --git a/svr/daux1.f b/svr/daux1.f
@@ -13,20 +13,24 @@ subroutine dewset_u (n, itol, rtol, atol, ycur, ewt)
 c
       go to (10, 20, 30, 40), itol
  10   continue
-      do 15 i = 1,n
- 15     ewt(i) = rtol(1)*dabs(ycur(i)) + atol(1)
+      do i = 1,n
+        ewt(i) = rtol(1)*dabs(ycur(i)) + atol(1)
+      end do
       return
  20   continue
-      do 25 i = 1,n
- 25     ewt(i) = rtol(1)*dabs(ycur(i)) + atol(i)
+      do i = 1,n
+        ewt(i) = rtol(1)*dabs(ycur(i)) + atol(i)
+      end do
       return
  30   continue
-      do 35 i = 1,n
- 35     ewt(i) = rtol(i)*dabs(ycur(i)) + atol(1)
+      do i = 1,n
+        ewt(i) = rtol(i)*dabs(ycur(i)) + atol(1)
+      end do
       return
  40   continue
-      do 45 i = 1,n
- 45     ewt(i) = rtol(i)*dabs(ycur(i)) + atol(i)
+      do i = 1,n
+        ewt(i) = rtol(i)*dabs(ycur(i)) + atol(i)
+      end do
       return
 c----------------------- end of subroutine dewset ----------------------
       end