WSJT-X/ps.f

      subroutine ps(dat,nfft,s)

      parameter (NMAX=16384+2)
      parameter (NHMAX=NMAX/2-1)
      real dat(nfft)
      real s(NHMAX)
      real x(NMAX)
      complex c(0:NHMAX)
      equivalence (x,c)

      nh=nfft/2
      do i=1,nfft
         x(i)=dat(i)/128.0       !### Why 128 ??
      enddo

      call xfft(x,nfft)
      fac=1.0/nfft
      do i=1,nh
         s(i)=fac*(real(c(i))**2 + aimag(c(i))**2)
      enddo

      return
      end
initial import git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/WSJT/trunk@1 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2005-12-22 11:40:53 -05:00			`subroutine ps(dat,nfft,s)`

			`parameter (NMAX=16384+2)`
			`parameter (NHMAX=NMAX/2-1)`
			`real dat(nfft)`
			`real s(NHMAX)`
			`real x(NMAX)`
			`complex c(0:NHMAX)`
			`equivalence (x,c)`

			`nh=nfft/2`
			`do i=1,nfft`
			`x(i)=dat(i)/128.0 !### Why 128 ??`
			`enddo`

			`call xfft(x,nfft)`
			`fac=1.0/nfft`
			`do i=1,nh`
Summary: Merge in linux branch svn+ssh://svn.berlios.de/svnroot/repos/wsjt/WSJT/branches/linux merged into svn+ssh://svn.berlios.de/svnroot/repos/wsjt/trunk git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/trunk@155 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2006-04-05 16:07:32 -04:00			`s(i)=fac(real(c(i))2 + aimag(c(i))*2)`
initial import git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/WSJT/trunk@1 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2005-12-22 11:40:53 -05:00			`enddo`

			`return`
			`end`