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

Added NO_F2008 option where storage_size intrinsic was used.

Browse source
This commit is contained in:
Paul Romano 2011-12-08 15:36:15 -05:00
parent 9d3e994779
commit b87d062a0d
1 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/source.f90
View file

@ -45,7 +45,11 @@ contains
! Allocate source bank
allocate(source_bank(maxwork), STAT=alloc_err)
if (alloc_err /= 0) then
#ifndef NO_F2008
bytes = maxwork * storage_size(bank_obj) / 8
#else
bytes = maxwork * 64 / 8
#endif
message = "Could not allocate source bank. Attempted to allocate " &
// trim(int_to_str(bytes)) // " bytes."
call fatal_error()
@ -54,7 +58,11 @@ contains
! Allocate fission bank
allocate(fission_bank(3*maxwork), STAT=alloc_err)
if (alloc_err /= 0) then
#ifndef NO_F2008
bytes = 3 * maxwork * storage_size(bank_obj) / 8
#else
bytes = 3 * maxwork * 64 / 8
#endif
message = "Could not allocate fission bank. Attempted to allocate " &
// trim(int_to_str(bytes)) // " bytes."
call fatal_error()