From 05aa0cfea93fd69dce3db6a340e6b26f8a31fe2f Mon Sep 17 00:00:00 2001 From: Adam G Nelson Date: Sun, 23 Sep 2018 12:58:27 -0400 Subject: [PATCH] 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