Increasing array size

Author: whaeck

ReleaseNotes.md

@@ -4,6 +4,7 @@ Given here are some release notes for NJOY2016. Each release is made through a f
 ## [NJOY2016.77](https://github.com/njoy/NJOY2016/pull/xxx)
 This update fixes the following issues:
   - Background cross section values for reactions other than total, elastic, fission and capture were not handled properly in the unresolved resonance region. The background for total, elastic, fission and capture is integrated into the unresolved resonance cross section values in the genunr subroutine. In the emerge subroutine, the background in the unresolved resonance region was therefore zeroed out for any resonance reaction. This has never been an issue but now we have LRF=7 evaluations that can define reactions other than total, elastic, fission and capture. Test 82 was added to detect this issue in the future.
+  - Increased the size of internal arrays in VIEWR.
 
 ## [NJOY2016.76](https://github.com/njoy/NJOY2016/pull/340)
 This update fixes the following issues:

src/viewr.f90

@@ -1272,7 +1272,7 @@ subroutine set3d(iplot,xyz,nxyz)
    integer::i,j,nn,k,ncurv,major,minor,itop,ibot,l,n
    real(kr)::wt,xlo,xhi,ylo,yhi,zlo,zhi,xn,yn,zn,yy
    real(kr)::top,bot,xop,yop,zop
-   integer::lll(400)
+   integer::lll(2000)
    real(kr)::x(2000),y(2000),z(2000)
    real(kr),parameter::big=1.e10_kr
    real(kr),parameter::d0=.001e0_kr
@@ -1663,4 +1663,3 @@ subroutine ascalv(m,z1,z2,major,minor)
    end subroutine ascalv
 
 end module viewm
-