Skip to content

Commit 5175167

Browse files
authored
Merge pull request #360 from cjosey/fix/mt10limits
Increase groupr.f90's maxr1 and maxr2
2 parents 5db6cab + b426f3a commit 5175167

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

src/groupr.f90

+2-2
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)