MFlowCode
diff --git a/‎src/simulation/m_time_steppers.fpp
Copy file name to clipboardExpand all lines: src/simulation/m_time_steppers.fpp
+2-2Lines changed: 2 additions & 2 deletions b/‎src/simulation/m_time_steppers.fpp
Copy file name to clipboardExpand all lines: src/simulation/m_time_steppers.fpp
+2-2Lines changed: 2 additions & 2 deletions
@@ -341,8 +341,8 @@ contains
 
     subroutine s_evolve_q_pb_mv(index, scaler1, scaler2, scaler3, scaler4)  !! TODO :: Get a better name for this
 
-        integer, intent(in) :: index  !! TODO :: Rename this
-        real(wp), intent(in) :: scaler1, scaler2, scaler3, scaler4  !! TODO :: Rename these too
+        integer, intent(inout) :: index  !! TODO :: Rename this
+        real(wp), intent(inout) :: scaler1, scaler2, scaler3, scaler4  !! TODO :: Rename these too
         integer :: i, j, k, l, q
 
         !$acc parallel loop collapse(4) gang vector default(present)