Zero the ss() array at start of sequence in symspec().

This commit is contained in:
Joe Taylor 2024-01-19 11:10:23 -05:00
parent b3d8750949
commit 55286b05a9

View File

@ -43,6 +43,7 @@ subroutine symspec(k,ndiskdat,nb,nbslider,nfsample, &
if(k.lt.k0) then
ts=1.d0 - hsym
ss=0.
savg=0.
ihsym=0
k1=0