From eb9b423b037038a7d3ff6b71e850d235410d949d Mon Sep 17 00:00:00 2001 From: Kyle Mandli Date: Mon, 6 Oct 2025 15:28:37 -0700 Subject: [PATCH] Use : instead of explicit indexing into aux2 array for passing to rpn3 --- src/3d/flux3.f90 | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/src/3d/flux3.f90 b/src/3d/flux3.f90 index 3d99aba..4f1a38b 100644 --- a/src/3d/flux3.f90 +++ b/src/3d/flux3.f90 @@ -203,7 +203,7 @@ subroutine flux3(ixyz,maxm,num_eqn,num_waves,num_ghost,mx, & ! # aux2(1-num_ghost,1,2) is the start of a 1d array now used by rpn3 call rpn3(ixyz,maxm,num_eqn,num_waves,num_aux,num_ghost,mx,q1d,q1d, & - aux2(1,1-num_ghost,2),aux2(1,1-num_ghost,2), & + aux2(:,1-num_ghost,2),aux2(:,1-num_ghost,2), & wave,s,amdq,apdq) @@ -610,5 +610,3 @@ subroutine flux3(ixyz,maxm,num_eqn,num_waves,num_ghost,mx, & return end subroutine flux3 - -