Update iteration_mod.f90

equib · Apr 30, 2021 · 4ca47c3 · 4ca47c3
1 parent d32a772
commit 4ca47c3
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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)