No need to pre-define nhsym=302.

This commit is contained in:
Joe Taylor 2021-07-07 14:32:55 -04:00
parent feb267e7cf
commit 2d2951e689

View File

@ -16,7 +16,6 @@ subroutine decode0(dd,ss,savg,nstandalone)
save save
call timer('decode0 ',0) call timer('decode0 ',0)
nhsym=302
if(newdat.ne.0) then if(newdat.ne.0) then
istep=10000 istep=10000
do i=NSMAX,1,-istep do i=NSMAX,1,-istep