From 4ca47c393949125b09bc715453a24c439342a4be Mon Sep 17 00:00:00 2001 From: Ashkbiz Danehkar Date: Thu, 29 Apr 2021 23:12:49 -0400 Subject: [PATCH] Update iteration_mod.f90 --- source/iteration_mod.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/source/iteration_mod.f90 b/source/iteration_mod.f90 index 605aa63..c36e49c 100644 --- a/source/iteration_mod.f90 +++ b/source/iteration_mod.f90 @@ -541,10 +541,10 @@ recursive subroutine iterateMC() if (taskid < rest) then load = load+1 call energyPacketDriver(iStar=0,n=load, grid=grid(1:nGrids), & - & gpLoc, cellLoc=cellLoc) + & gpLoc=gpLoc, cellLoc=cellLoc) else call energyPacketDriver(iStar=0,n=load, grid=grid(1:nGrids), & - & gpLoc, cellLoc=cellLoc) + & gpLoc=gpLoc, cellLoc=cellLoc) end if call mpi_barrier(mpi_comm_world, ierr)