Skip to content

Commit 3899ac5

Browse files
Made inputs inout as per recomendation
1 parent 272ccc4 commit 3899ac5

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

src/simulation/m_time_steppers.fpp

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -341,8 +341,8 @@ contains
341341

342342
subroutine s_evolve_q_pb_mv(index, scaler1, scaler2, scaler3, scaler4) !! TODO :: Get a better name for this
343343

344-
integer, intent(in) :: index !! TODO :: Rename this
345-
real(wp), intent(in) :: scaler1, scaler2, scaler3, scaler4 !! TODO :: Rename these too
344+
integer, intent(inout) :: index !! TODO :: Rename this
345+
real(wp), intent(inout) :: scaler1, scaler2, scaler3, scaler4 !! TODO :: Rename these too
346346
integer :: i, j, k, l, q
347347

348348
!$acc parallel loop collapse(4) gang vector default(present)

0 commit comments

Comments
 (0)