If DX grid is blank, set DX astro params to zero. Do this in astrosub.f90, not asstro.cpp!

This commit is contained in:
Joe Taylor 2022-07-17 16:12:59 -04:00
parent c296bca73a
commit 2e4a6c3c32
2 changed files with 6 additions and 6 deletions

View File

@ -54,6 +54,12 @@ contains
width1,width2,xlst8,techo8) width1,width2,xlst8,techo8)
if (len_trim(AzElFileName) .eq. 0) go to 999 if (len_trim(AzElFileName) .eq. 0) go to 999
if(len(trim(hisgrid)).eq.0) then !If DX grid is blank, set these to zero:
AzMoonB8=0
ElMoonB8=0
ndop=0
width2=0
endif
imin=60*uth8 imin=60*uth8
isec=3600*uth8 isec=3600*uth8
ih=uth8 ih=uth8

View File

@ -121,12 +121,6 @@ auto Astro::astroUpdate(QDateTime const& t, QString const& mygrid, QString const
AzElFileName.toLocal8Bit ().constData (), AzElFileName.toLocal8Bit ().constData (),
jpleph.toLocal8Bit ().constData ()); jpleph.toLocal8Bit ().constData ());
if(!hisgrid.size ()) {
azmoondx=0.0;
elmoondx=0.0;
m_dop=0;
width2=0.0;
}
QString message; QString message;
{ {
QTextStream out {&message}; QTextStream out {&message};