parameter (NFFT=32768)
common/spcom/ss(4,322,NFFT),ss5(322,NFFT),savg(4,NFFT),nhsym,   &
            ssz(4,322,NFFT),ssz5(322,NFFT),szavg(4,NFFT)