Update iteration_mod.f90

equib · Apr 30, 2021 · ff90359 · ff90359
1 parent ecae861
commit ff90359
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/source/iteration_mod.f90 b/source/iteration_mod.f90
@@ -540,9 +540,11 @@ recursive subroutine iterateMC()
                              ! estimators of Jste and Jdif at every grid cell
                              if (taskid < rest) then
                                 load = load+1
-                                call energyPacketDriver(iStar=0,n=load, grid=grid(1:nGrids), gpLoc=gpLoc, cellLoc=cellLoc)
+                                call energyPacketDriver(iStar=0,n=load, grid=grid(1:nGrids), &
+                                     & gpLoc=gpLoc, cellLoc=cellLoc)
                              else
-                                call energyPacketDriver(iStar=0,n=load, grid=grid(1:nGrids), gpLoc=gpLoc, cellLoc=cellLoc)
+                                call energyPacketDriver(iStar=0,n=load, grid=grid(1:nGrids), &
+                                     & gpLoc=gpLoc, cellLoc=cellLoc)
                              end if
 
                              call mpi_barrier(mpi_comm_world, ierr)