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

Added information on location/direction upon fatal_error.

Browse source
This commit is contained in:
Paul Romano 2012-04-05 09:55:33 -04:00
parent 86cdf3af95
commit 6dd8ea5364
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/error.F90
View file

@ -80,6 +80,8 @@ contains
write(ERROR_UNIT,'(1X,A,I12) ') 'Batch: ', current_batch
write(ERROR_UNIT,'(1X,A,I12) ') 'Generation:', current_gen
write(ERROR_UNIT,'(1X,A,I12)') 'Particle: ', p % id
write(ERROR_UNIT,'(1X,A,3ES11.4)') 'Location: ', p % coord0 % xyz
write(ERROR_UNIT,'(1X,A,3ES11.4)') 'Direction: ', p % coord0 % uvw
write(ERROR_UNIT,*)
end if