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
First good compile with map65a running inside map65. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@334 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2007-01-11 16:25:52 -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`
			`s(i)=fac(real(c(i))2 + aimag(c(i))*2)`
			`enddo`

			`return`
			`end`