mirror of https://github.com/pavel-demin/ft8d.git
filter out grid starting with KA or LA
This commit is contained in:
parent
e5a9ffb91e
commit
504fbf766a
|
@ -192,7 +192,7 @@ module packjt
|
||||||
dlat=mod(ng,180)-90
|
dlat=mod(ng,180)-90
|
||||||
dlong=(ng/180)*2 - 180 + 2
|
dlong=(ng/180)*2 - 180 + 2
|
||||||
call deg2grid(dlong,dlat,grid6)
|
call deg2grid(dlong,dlat,grid6)
|
||||||
msggrid=grid6(:4)
|
if(grid6(1:2).ne.'KA' .and. grid6(1:2).ne.'LA') msggrid=grid6(:4)
|
||||||
endif
|
endif
|
||||||
|
|
||||||
return
|
return
|
||||||
|
|
Loading…
Reference in New Issue