Skip to content

Commit b426f3a

Browse files
authored
Increase groupr.f90's maxr1 and maxr2
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).
1 parent 5db6cab commit b426f3a

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

src/groupr.f90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -42,8 +42,8 @@ module groupm
4242
! - lfs8(i) points to the "level number" from mf8.
4343
! - mlfs8(i) is calculated and corresponds to NJOY's assumption
4444
! of the ground state or isomer number.
45-
integer,parameter::maxr1=500
46-
integer,parameter::maxr2=500
45+
integer,parameter::maxr1=1000
46+
integer,parameter::maxr2=10000
4747
integer::mf4(maxr1),mf6(maxr1),mf12(maxr1),mf13(maxr1),mf18(maxr1),&
4848
mf4r(6,maxr1),mf6p(6,maxr1),mf10f(maxr2),mf10s(maxr2),mf10i(maxr2),&
4949
lfs8(maxr2),mlfs8(maxr2)

0 commit comments

Comments
 (0)