Fix two unitialized variables in qra64b.f90. Complain only once about directory for azel.dat.

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

astro.cpp

@@ -14,6 +14,7 @@ Astro::Astro(QWidget *parent) :
   ui->astroTextBrowser->setStyleSheet(
         "QTextBrowser { background-color : cyan; color : black; }");
   ui->astroTextBrowser->clear();
+  m_AzElDir0="";
 }
 
 Astro::~Astro()
@@ -72,8 +73,10 @@ void Astro::astroUpdate(QDateTime t, QString mygrid, QString hisgrid,
   QString fname=azelDir+"/azel.dat";
   QFile f(fname);
   if(!f.open(QIODevice::WriteOnly | QIODevice::Text)) {
+    if(azelDir==m_AzElDir0) return;
+    m_AzElDir0=azelDir;
     QMessageBox mb;
-    mb.setText("Cannot open " + fname);
+    mb.setText("Cannot open " + fname + "\nCorrect the setting of AzEl Directory in Setup?");
     mb.exec();
     return;
   }

astro.h

@@ -21,6 +21,7 @@ public:
 
 private:
     Ui::Astro *ui;
+    QString m_AzElDir0;
 };
 
 extern "C" {

libm65/qra64b.f90

@@ -14,8 +14,8 @@ subroutine qra64b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol,  &
 
   open(17,file='red.dat',status='unknown')
 
-  nfft1=MAXNFFT1
-  nfft2=MAXNFFT2
+  nfft1=MAXFFT1
+  nfft2=MAXFFT2
   df=96000.0/NFFT1
   if(nfsample.eq.95238) then
      nfft1=5120000
@@ -26,7 +26,7 @@ subroutine qra64b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol,  &
   ikhz0=nint(1000.0*(fcenter-int(fcenter)))
   k0=((ikhz-ikhz0+48.0+1.27)*1000.0+nfcal)/df
   if(k0.lt.nh .or. k0.gt.nfft1-nh) go to 900
-  
+
   fac=1.0/nfft2
   cx(0:nh)=ca(k0:k0+nh)
   cx(nh+1:nfft2-1)=ca(k0-nh+1:k0-1)