From 0e0c1ef5583c3d4259e22eb7727cb93ba037a3a3 Mon Sep 17 00:00:00 2001 From: Adam G Nelson Date: Sun, 23 Sep 2018 13:08:24 -0400 Subject: [PATCH] similar change for using C_DOUBLE vice real(8) --- src/summary.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/summary.F90 b/src/summary.F90 index 820bde31de..b167300524 100644 --- a/src/summary.F90 +++ b/src/summary.F90 @@ -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