mirror of https://github.com/saitohirga/WSJT-X.git
Workaround for a crash on macOS when compiling with gfortran 8.3
This commit is contained in:
parent
a8a1d8d0a7
commit
b29a6d14ea
|
@ -1,7 +1,7 @@
|
||||||
subroutine azdist(grid1,grid2,utch,nAz,nEl,nDmiles,nDkm,nHotAz,nHotABetter)
|
subroutine azdist(MyGrid,HisGrid,utch,nAz,nEl,nDmiles,nDkm,nHotAz,nHotABetter)
|
||||||
|
|
||||||
character*(*) grid1,grid2
|
character(len=*) :: MyGrid,HisGrid
|
||||||
character*6 MyGrid,HisGrid,mygrid0,hisgrid0
|
character*6 mygrid0,hisgrid0
|
||||||
real*8 utch,utch0
|
real*8 utch,utch0
|
||||||
logical HotABetter,IamEast
|
logical HotABetter,IamEast
|
||||||
real eltab(22),daztab(22)
|
real eltab(22),daztab(22)
|
||||||
|
@ -12,11 +12,6 @@ subroutine azdist(grid1,grid2,utch,nAz,nEl,nDmiles,nDkm,nHotAz,nHotABetter)
|
||||||
data mygrid0/" "/,hisgrid0/" "/,utch0/-999.d0/
|
data mygrid0/" "/,hisgrid0/" "/,utch0/-999.d0/
|
||||||
save
|
save
|
||||||
|
|
||||||
MyGrid=grid1//' '
|
|
||||||
HisGrid=grid2//' '
|
|
||||||
if(ichar(MyGrid(5:5)).eq.0) MyGrid(5:6)=' '
|
|
||||||
if(ichar(HisGrid(5:5)).eq.0) HisGrid(5:6)=' '
|
|
||||||
|
|
||||||
if(MyGrid.eq.HisGrid) then
|
if(MyGrid.eq.HisGrid) then
|
||||||
naz=0
|
naz=0
|
||||||
nel=0
|
nel=0
|
||||||
|
|
|
@ -7550,8 +7550,8 @@ void MainWindow::p1ReadFromStdout() //p1readFromStdout
|
||||||
if(grid!="") {
|
if(grid!="") {
|
||||||
double utch=0.0;
|
double utch=0.0;
|
||||||
int nAz,nEl,nDmiles,nDkm,nHotAz,nHotABetter;
|
int nAz,nEl,nDmiles,nDkm,nHotAz,nHotABetter;
|
||||||
azdist_(const_cast <char *> (m_config.my_grid ().toLatin1().constData()),
|
azdist_(const_cast <char *> ((m_config.my_grid () + " ").left (6).toLatin1 ().constData ()),
|
||||||
const_cast <char *> (grid.toLatin1().constData()),&utch,
|
const_cast <char *> ((grid + " ").left (6).toLatin1 ().constData ()),&utch,
|
||||||
&nAz,&nEl,&nDmiles,&nDkm,&nHotAz,&nHotABetter,6,6);
|
&nAz,&nEl,&nDmiles,&nDkm,&nHotAz,&nHotABetter,6,6);
|
||||||
QString t1;
|
QString t1;
|
||||||
if(m_config.miles()) {
|
if(m_config.miles()) {
|
||||||
|
|
Loading…
Reference in New Issue