From 2f972f5f69dcfd9de267694cf0f37d6f3cef186d Mon Sep 17 00:00:00 2001 From: Skip Kahler Date: Thu, 3 Aug 2023 10:52:50 -0400 Subject: [PATCH] Update acecm.f90 Set default for "name". Updatee for new "iverf" option. --- src/acecm.f90 | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/src/acecm.f90 b/src/acecm.f90 index 6e19f7cb..5e0ada16 100644 --- a/src/acecm.f90 +++ b/src/acecm.f90 @@ -146,7 +146,15 @@ subroutine mtname(mt,name,izai) '(n,xhe3) ','(n,xa) '/) character(10)::hndf10(1)='damage ' - if (iverf.ge.6) then + !-- default name value is blank unless reset below. + name='' + + !--when iverf=-1 the endf version used to create this file is + ! unknown. we assume it comes from version 6 but if the file + ! originated from version 5 or earlier the name assigned here + ! might be incorrect. + + if (iverf.ge.6.or.iverf.eq.-1) then if (mt.ge.201.and.mt.le.207) then name=hndf9(mt-200) else if (mt.eq.444) then