Merge pull request #300 from kbarnhart/up_to_999_regions

Switch i2 to i3 for number of regions and rr regions
clawpack · Feb 11, 2025 · b49a356 · b49a356
2 parents 2d9d076 + a2373f1
commit b49a356
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,"(i2)") 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,"(i2)") num_rregions
+        read(unit,*) num_rregions
         if (num_rregions == 0) then
             write(parmunit,*) '  No ruled regions specified for refinement'