From 05aa0cfea93fd69dce3db6a340e6b26f8a31fe2f Mon Sep 17 00:00:00 2001 From: Adam G Nelson Date: Sun, 23 Sep 2018 12:58:27 -0400 Subject: [PATCH 1/2] fixed example problem crash --- src/summary.F90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/summary.F90 b/src/summary.F90 index 0fafd7e5d0..820bde31de 100644 --- a/src/summary.F90 +++ b/src/summary.F90 @@ -82,8 +82,8 @@ contains integer(HID_T) :: nuclide_group integer(HID_T) :: macro_group integer :: i - character(12), allocatable :: nuc_names(:) - character(12), allocatable :: macro_names(:) + character(kind=C_CHAR, len=20), allocatable :: nuc_names(:) + character(kind=C_CHAR, len=20), allocatable :: macro_names(:) real(8), allocatable :: awrs(:) integer :: num_nuclides integer :: num_macros @@ -172,8 +172,8 @@ contains integer :: k integer :: n integer :: err - character(20), allocatable :: nuc_names(:) - character(20), allocatable :: macro_names(:) + character(kind=C_CHAR, len=20), allocatable :: nuc_names(:) + character(kind=C_CHAR, len=20), allocatable :: macro_names(:) real(8) :: volume real(8), allocatable :: nuc_densities(:) integer :: num_nuclides From 0e0c1ef5583c3d4259e22eb7727cb93ba037a3a3 Mon Sep 17 00:00:00 2001 From: Adam G Nelson Date: Sun, 23 Sep 2018 13:08:24 -0400 Subject: [PATCH 2/2] 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