crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-29 06:35:48 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Fixed error in reading state point in parallel.

Browse source
This commit is contained in:
Paul Romano 2013-02-23 11:06:18 -05:00
parent de5f01f1de
commit e9ebb1f685
1 changed files with 2 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/state_point.F90
View file

@ -482,6 +482,7 @@ contains
MPI_INTEGER, MPI_STATUS_IGNORE, mpi_err)
call MPI_FILE_WRITE(fh, t % scatt_order, t % n_score_bins, &
MPI_INTEGER, MPI_STATUS_IGNORE, mpi_err)
! Write number of user score bins
call MPI_FILE_WRITE(fh, t % n_user_score_bins, 1, MPI_INTEGER, &
MPI_STATUS_IGNORE, mpi_err)
@ -793,19 +794,15 @@ contains
MPI_STATUS_IGNORE, mpi_err)
deallocate(int_array)
! Read number of results
! Read number of score bins, score bins, and scatt_order
call MPI_FILE_READ(fh, temp, 1, MPI_INTEGER, &
MPI_STATUS_IGNORE, mpi_err)
! Read score bins and scatt_order
allocate(int_array(temp(1)))
call MPI_FILE_READ(fh, int_array, temp(1), MPI_INTEGER, &
MPI_STATUS_IGNORE, mpi_err)
call MPI_FILE_READ(fh, int_array, temp(1), MPI_INTEGER, &
MPI_STATUS_IGNORE, mpi_err)
deallocate(int_array)
call MPI_FILE_READ(fh, temp, 1, MPI_INTEGER, &
MPI_STATUS_IGNORE, mpi_err)
! Read number of user score bins
call MPI_FILE_READ(fh, temp, 1, MPI_INTEGER, &