Skip to content

Commit

Permalink
Increase groupr.f90's maxr1 and maxr2
Browse files Browse the repository at this point in the history
maxr1 is the maximum number of MTs that appear. It was set to 1000 as only 1000 MT numbers can currently exist.
    
maxr2 is the maximum number of subsections of MF=6, 9, and 10 combined. As only MF=5 and MF=18 should need substantial space, maxr2 was increased to 2 * (maximum expected nuclides).
  • Loading branch information
cjosey authored Jan 29, 2025
1 parent 5db6cab commit b426f3a
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions src/groupr.f90
Original file line number Diff line number Diff line change
Expand Up @@ -42,8 +42,8 @@ module groupm
! - lfs8(i) points to the "level number" from mf8.
! - mlfs8(i) is calculated and corresponds to NJOY's assumption
! of the ground state or isomer number.
integer,parameter::maxr1=500
integer,parameter::maxr2=500
integer,parameter::maxr1=1000
integer,parameter::maxr2=10000
integer::mf4(maxr1),mf6(maxr1),mf12(maxr1),mf13(maxr1),mf18(maxr1),&
mf4r(6,maxr1),mf6p(6,maxr1),mf10f(maxr2),mf10s(maxr2),mf10i(maxr2),&
lfs8(maxr2),mlfs8(maxr2)
Expand Down

0 comments on commit b426f3a

Please sign in to comment.