From 6d597e18f7e9b2514b11a008c65618999bf2cc4f Mon Sep 17 00:00:00 2001 From: "Katherine (Katy) Barnhart" Date: Tue, 11 Feb 2025 11:18:22 -0700 Subject: [PATCH 1/3] switch i2 to i3 --- src/2d/regions_module.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/2d/regions_module.f90 b/src/2d/regions_module.f90 index 3323564f0..6830350bc 100644 --- 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,"(i3)") 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,"(i3)") num_rregions if (num_rregions == 0) then write(parmunit,*) ' No ruled regions specified for refinement' From 00faab321e73dc14b900a6f7c8dd4fd65de1fc59 Mon Sep 17 00:00:00 2001 From: "Katherine (Katy) Barnhart" Date: Tue, 11 Feb 2025 12:24:55 -0700 Subject: [PATCH 2/3] implement randys comment --- src/2d/regions_module.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/2d/regions_module.f90 b/src/2d/regions_module.f90 index 6830350bc..cfb5e1f1c 100644 --- 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' From a2373f1d09973876d44e23c77894473ad28ab50b Mon Sep 17 00:00:00 2001 From: "Katherine (Katy) Barnhart" Date: Tue, 11 Feb 2025 12:25:52 -0700 Subject: [PATCH 3/3] fix error --- src/2d/regions_module.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/2d/regions_module.f90 b/src/2d/regions_module.f90 index cfb5e1f1c..63d557753 100644 --- a/src/2d/regions_module.f90 +++ b/src/2d/regions_module.f90 @@ -118,7 +118,7 @@ subroutine set_rregions(fname) call opendatafile(unit,'flagregions.data') endif - read(unit,* num_rregions + read(unit,*) num_rregions if (num_rregions == 0) then write(parmunit,*) ' No ruled regions specified for refinement'