Several decoder optimizations, including implementation of FFTW wisdom.

Notes:
1. Equivalents of wisdom1.bat will be needed for *nix and OS X.  (The
   version now added to the source .../lib directory is an example only.)
2. Installers should offer to run the wisdom1[.bat] script at installation
   time.
3. wisdom1[.bat] and fftwf-wisdom[.exe] must be installed in .../bin directory 



git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4607 ab8295b8-cf94-4d9e-aec4-7959e3be5d79

lib/four2a.f90

@@ -22,8 +22,8 @@ subroutine four2a(a,nfft,ndim,isign,iform)
   complex aa(NSMALL)
   integer nn(NPMAX),ns(NPMAX),nf(NPMAX)
   integer*8 plan(NPMAX),nl(NPMAX),nloc
+!  character cfftw*20
   data nplan/0/,npatience/1/
-!  data nplan/0/,npatience/0/
   include 'fftw3.f90'
   save plan,nplan,nn,ns,nf,nl
 
@@ -42,6 +42,16 @@ subroutine four2a(a,nfft,ndim,isign,iform)
   nf(i)=iform
   nl(i)=nloc
 
+!  cfftw(1:2)='ci'
+!  if(nf(i).ne.1) cfftw(1:2)='ri'
+!  cfftw(3:3)='f'
+!  if(ns(i).eq.1) cfftw(3:3)='b'
+!  write(cfftw(4:),*) nn(i)
+!  cfftw=cfftw(1:3)//cfftw(5:)
+!  write(12,3999) i,nn(i),ns(i),nf(i),cfftw
+!3999 format(4i10,2x,a20)
+!  flush(12)
+
 ! Planning: FFTW_ESTIMATE, FFTW_ESTIMATE_PATIENT, FFTW_MEASURE, 
 !            FFTW_PATIENT,  FFTW_EXHAUSTIVE
   nflags=FFTW_ESTIMATE