correction

yfang-repo · May 6, 2020 · 2ff1a81 · 2ff1a81
1 parent 4bd918b
commit 2ff1a81
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/pflotran/src/pflotran/reaction_sandbox_pnnl_cyber_mrmt.F90 b/pflotran/src/pflotran/reaction_sandbox_pnnl_cyber_mrmt.F90
@@ -1378,8 +1378,8 @@ subroutine CyberReact(this,Residual,Jacobian,compute_derivative, &
     this%alpha(i) = rt_auxvar%auxiliary_data(i+j)
 !print *,'i-',i,this%alpha(i),this%vol_frac_mrmt(i)%ptr
   enddo
-  do i = 1, MRMT
   do j=1,7
+  do i = 1, MRMT
     irxn = irxn + 1
     this%stoich_row(2,irxn)%ptr = this%vol_frac_mrmt(i)%ptr !update multirate reaction stoichometry
   enddo