subroutine spec64(c0,npts2,mode64,jpk,s3,LL,NN)

  parameter (NSPS=2304)                      !Samples per symbol at 4000 Hz
  complex c0(0:360000)                       !Complex spectrum of dd()
  complex cs(0:NSPS-1)                       !Complex symbol spectrum
  real s3(LL,NN)                             !Synchronized symbol spectra

  nfft6=nsps
  do j=1,63
     jj=j+7                                  !Skip first Costas array
     if(j.ge.32) jj=j+14                     !Skip middle Costas array
     ja=jpk + (jj-1)*nfft6
     jb=ja+nfft6-1
     cs(0:nfft6-1)=c0(ja:jb)
     call four2a(cs,nfft6,1,-1,1)
     do ii=1,LL
        i=ii-65
        if(i.lt.0) i=i+nfft6
        s3(ii,j)=real(cs(i))**2 + aimag(cs(i))**2
     enddo
  enddo

!  df=4000.0/nfft6
!  do i=1,LL
!     freq=(i-65)*df
!     write(73,3002) i-65,freq,(1.e-6*s3(i,j),j=1,5)
!3002 format(i5,6f10.3)
!  enddo

  return
end subroutine spec64