Fixes Shared DO termination label warnings in flxcomp.m

LLNL · Oct 18, 2023 · 5db73ee · 5db73ee
1 parent bc8bf0d
commit 5db73ee
Showing 1 changed file with 6 additions and 5 deletions.
diff --git a/flx/flxcomp.m b/flx/flxcomp.m
@@ -20,13 +20,14 @@
       call refine
 
 c     *** clear the working arrays
-      do 20 kk=1,jdim
+      do kk=1,jdim
          ilast(kk)=0
          npoint(kk)=0
-      do 20 ll=1,npts
-         xcurve(ll,kk)=0.0
-         ycurve(ll,kk)=0.0
-   20 continue
+         do ll=1,npts
+           xcurve(ll,kk)=0.0
+           ycurve(ll,kk)=0.0
+         end do
+      end do
 
 c     initialize the contour indexing variables
       ncmin=0