From 6c446f2e444db1c86977a63cb25db77facdc8be4 Mon Sep 17 00:00:00 2001 From: Scott Aiton Date: Thu, 12 Oct 2023 10:45:46 -0600 Subject: [PATCH] fix common blocks in fc3d_clawpack46_step3 --- .../fc3d_clawpack46/fortran_source/fc3d_clawpack46_step3.f90 | 1 + .../fortran_source/fc3d_clawpack46_step3_wrap.f90 | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/src/solvers/fc3d_clawpack46/fortran_source/fc3d_clawpack46_step3.f90 b/src/solvers/fc3d_clawpack46/fortran_source/fc3d_clawpack46_step3.f90 index ae662c2cc..cfa6ac1ae 100644 --- a/src/solvers/fc3d_clawpack46/fortran_source/fc3d_clawpack46_step3.f90 +++ b/src/solvers/fc3d_clawpack46/fortran_source/fc3d_clawpack46_step3.f90 @@ -85,6 +85,7 @@ subroutine clawpack46_step3(maxm,meqn,maux,mbc,mx,my,mz, & !! # passed in... dxcom = dx dycom = dy + dzcom = dz dtcom = dt !! # partition work array into pieces needed for local storage in diff --git a/src/solvers/fc3d_clawpack46/fortran_source/fc3d_clawpack46_step3_wrap.f90 b/src/solvers/fc3d_clawpack46/fortran_source/fc3d_clawpack46_step3_wrap.f90 index a7e7ec3e5..482c01784 100644 --- a/src/solvers/fc3d_clawpack46/fortran_source/fc3d_clawpack46_step3_wrap.f90 +++ b/src/solvers/fc3d_clawpack46/fortran_source/fc3d_clawpack46_step3_wrap.f90 @@ -39,7 +39,7 @@ subroutine clawpack46_step3_wrap(maxm, meqn, maux, mbc, & !! for a Riemann solver. double precision :: dtcom, dxcom,dycom,dzcom, tcom integer :: icom, jcom, kcom - common /comxyt/ dtcom,dxcom,dycom,dzcom, tcom,icom,jcom, kcom + common /comxyzt/ dtcom,dxcom,dycom,dzcom, tcom,icom,jcom, kcom integer jfix, kfix double precision kappa