Fix ncontest initialization and heap storage conflict.

This commit is contained in:
Steve Franke
2019-12-11 10:16:48 -06:00
parent 5a23edbbae
commit 85b5967d99
3 changed files with 5 additions and 5 deletions
+1 -1
View File
@@ -16,7 +16,7 @@ subroutine subtractft4(dd,itone,f0,dt)
integer itone(103)
logical first
data first/.true./
common/heap8/cref(NFRAME),camp(NMAX),cfilt(NMAX),cw(NMAX),xjunk(NFRAME)
common/heap4/cref(NFRAME),camp(NMAX),cfilt(NMAX),cw(NMAX),xjunk(NFRAME)
save first
nstart=dt*12000+1-NSPS