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

similar change for using C_DOUBLE vice real(8)

Browse source
This commit is contained in:
Adam G Nelson 2018-09-23 13:08:24 -04:00
parent 05aa0cfea9
commit 0e0c1ef558
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/summary.F90
View file

@ -84,7 +84,7 @@ contains
integer :: i
character(kind=C_CHAR, len=20), allocatable :: nuc_names(:)
character(kind=C_CHAR, len=20), allocatable :: macro_names(:)
real(8), allocatable :: awrs(:)
real(C_DOUBLE), allocatable :: awrs(:)
integer :: num_nuclides
integer :: num_macros
integer :: j