Code for defining the FFTs in wisdom?.bat.

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

libm65/four2a.f90

@@ -22,6 +22,7 @@ subroutine four2a(a,nfft,ndim,isign,iform)
   complex aa(NSMALL)
   integer nn(NPMAX),ns(NPMAX),nf(NPMAX),nl(NPMAX)
   integer*8 plan(NPMAX)             !Actually should be i*8, but no matter
+!  character cfftw*12
   data nplan/0/,npatience/1/
   include 'fftw3.f'
   save plan,nplan,nn,ns,nf,nl
@@ -41,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(13,3999) i,nn(i),ns(i),nf(i),cfftw
+!3999 format(4i10,2x,a12)
+!  flush(13)
+
 ! Planning: FFTW_ESTIMATE, FFTW_ESTIMATE_PATIENT, FFTW_MEASURE, 
 !            FFTW_PATIENT,  FFTW_EXHAUSTIVE
   nflags=FFTW_ESTIMATE
@@ -84,6 +95,5 @@ subroutine four2a(a,nfft,ndim,isign,iform)
 ! The test is only to silence a compiler warning:
      if(ndim.ne.-999) call sfftw_destroy_plan(plan(i))
   enddo
-
   return
 end subroutine four2a

mainwindow.cpp

@@ -26,7 +26,7 @@ BandMap*   g_pBandMap = NULL;
 QSharedMemory mem_m65("mem_m65");
 
 QString rev="$Rev$";
-QString Program_Title_Version="  MAP65   v2.3.0, r" + rev.mid(6,4) +
+QString Program_Title_Version="  MAP65   v2.4.0, r" + rev.mid(6,4) +
                               "    by K1JT";
 
 extern const int RxDataFrequency = 96000;