Skip to content

Commit

Permalink
Update acecm.f90
Browse files Browse the repository at this point in the history
Set default for "name".  Updatee for new "iverf" option.
  • Loading branch information
kahlerac authored Aug 3, 2023
1 parent 0c6c855 commit 2f972f5
Showing 1 changed file with 9 additions and 1 deletion.
10 changes: 9 additions & 1 deletion src/acecm.f90
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down

0 comments on commit 2f972f5

Please sign in to comment.