Better comments in timf2.f90.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@2553 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2012-09-04 13:35:46 +00:00
parent e941c44930
commit 8663692581
2 changed files with 7 additions and 7 deletions

View File

@ -64,15 +64,15 @@ subroutine timf2(k,nxpol,nfft,nwindow,nb,peaklimit,iqadjust,iqapply,faclim, &
cx(0:nfft-1)=cx0
if(nwindow.eq.2) cx(0:nfft-1)=w(0:nfft-1)*cx(0:nfft-1)
call four2a(cx,nfft,1,1,1) !First forward FFT
call four2a(cx,nfft,1,1,1) !First forward FFT (X)
if(nxpol.ne.0) then
cy(0:nfft-1)=cy0
if(nwindow.eq.2) cy(0:nfft-1)=w(0:nfft-1)*cy(0:nfft-1)
call four2a(cy,nfft,1,1,1) !First forward FFT
call four2a(cy,nfft,1,1,1) !First forward FFT (Y)
endif
if(iqapply.ne.0) then !Apply I/Q corrections
if(iqapply.ne.0) then !Apply I/Q corrections (X)
h=gainx*cmplx(cos(phasex),sin(phasex))
v=0.
do i=0,nfft-1
@ -89,7 +89,7 @@ subroutine timf2(k,nxpol,nfft,nwindow,nb,peaklimit,iqadjust,iqapply,faclim, &
endif
if(nxpol.ne.0) then
if(iqapply.ne.0) then !Apply I/Q corrections
if(iqapply.ne.0) then !Apply I/Q corrections (Y)
h=gainy*cmplx(cos(phasey),sin(phasey))
v=0.
do i=0,nfft-1
@ -205,9 +205,9 @@ subroutine timf2(k,nxpol,nfft,nwindow,nb,peaklimit,iqadjust,iqapply,faclim, &
if(nxpol.ne.0) py=py + real(cyw(i))**2 + aimag(cyw(i))**2
enddo
cx1(0:kstep-1)=cxw(0:kstep-1) + cxs(0:kstep-1) !Recombine weak + strong
cx1(0:kstep-1)=cxw(0:kstep-1) + cxs(0:kstep-1) !Weak + strong (X)
if(nxpol.ne.0) then
cy1(0:kstep-1)=cyw(0:kstep-1) + cys(0:kstep-1) !Weak + strong
cy1(0:kstep-1)=cyw(0:kstep-1) + cys(0:kstep-1) !Weak + strong (Y)
endif
return

View File

@ -1,4 +1,4 @@
//--------------------------------------------------------------- MainWindow
//-------------------------------------------------------------- MainWindow
#include "mainwindow.h"
#include "ui_mainwindow.h"
#include "devsetup.h"