implement randys comment

clawpack · Feb 11, 2025 · 00faab3 · 00faab3
1 parent 6d597e1
commit 00faab3
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/2d/regions_module.f90 b/src/2d/regions_module.f90
@@ -63,7 +63,7 @@ subroutine set_regions(fname)
                 call opendatafile(unit,'regions.data')
             endif
 
-            read(unit,"(i3)") num_regions
+            read(unit,*) num_regions
             if (num_regions == 0) then
                 write(parmunit,*) '  No regions specified for refinement'
 
@@ -118,7 +118,7 @@ subroutine set_rregions(fname)
             call opendatafile(unit,'flagregions.data')
         endif
 
-        read(unit,"(i3)") num_rregions
+        read(unit,* num_rregions
         if (num_rregions == 0) then
             write(parmunit,*) '  No ruled regions specified for refinement'