From 8663692581d93b61b6f94967a1d55d9ea29a0f6b Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Tue, 4 Sep 2012 13:35:46 +0000 Subject: [PATCH] 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 --- libm65/timf2.f90 | 12 ++++++------ mainwindow.cpp | 2 +- 2 files changed, 7 insertions(+), 7 deletions(-) diff --git a/libm65/timf2.f90 b/libm65/timf2.f90 index 188559ad4..1e27ee455 100644 --- a/libm65/timf2.f90 +++ b/libm65/timf2.f90 @@ -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 diff --git a/mainwindow.cpp b/mainwindow.cpp index 52a00c3ba..61a08837a 100644 --- a/mainwindow.cpp +++ b/mainwindow.cpp @@ -1,4 +1,4 @@ -//--------------------------------------------------------------- MainWindow +//-------------------------------------------------------------- MainWindow #include "mainwindow.h" #include "ui_mainwindow.h" #include "devsetup.h"