initialize to zero properly

clawpack · Jun 15, 2020 · 88bfcd3 · 88bfcd3
1 parent 9ce6a53
commit 88bfcd3
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/rpt2_geoclaw.f b/src/rpt2_geoclaw.f
@@ -180,8 +180,8 @@ subroutine rpt2(ixy,imp,maxm,meqn,mwaves,maux,mbc,mx,
 
  
  ! initialize all components to 0:
- bmasdq(:,:) = 0.d0
- bpasdq(:,:) = 0.d0
+ bmasdq(:,i) = 0.d0
+ bpasdq(:,i) = 0.d0
  
  do mw=1,3
  if ((abs(s(mw)) > 0.d0) .and.