update array size for Pt processing

njoy · May 29, 2024 · 786062c · 786062c
1 parent 329f011
commit 786062c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/errorr.f90 b/src/errorr.f90
@@ -713,7 +713,7 @@ subroutine errorr
    !--read covariance reaction types from end/b dictionary
    !--and set file 32 flag
    nscr2=0
-   nwi=4000
+   nwi=40000
    allocate(dict(nwi))
    call repoz(nendf)
    call tpidio(nendf,0,0,dict,nb,nw)