crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-28 22:26:08 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

took out comments from source routine

Browse source
This commit is contained in:
Bryan Herman 2012-04-30 07:34:55 -07:00
parent 846c4bb5f1
commit fdb178b020
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/source.F90
View file

@ -299,11 +299,11 @@ contains
else
! Set proper offset for source data on this processor
offset = 8*(1 + rank*maxwork*9)
print *,'reading in'
! Read all source sites
call MPI_FILE_READ_AT(fh, offset, source_bank(1), work, MPI_BANK, &
MPI_STATUS_IGNORE, mpi_err)
print *,'done reading'
! Close binary source file
call MPI_FILE_CLOSE(fh, mpi_err)
end if