mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-08 18:16:02 -05:00
48 lines
1.2 KiB
FortranFixed
48 lines
1.2 KiB
FortranFixed
|
subroutine packgrid(grid,ng,text)
|
||
|
|
|
||
|
|
parameter (NGBASE=180*180)
|
||
|
|
character*4 grid
|
||
|
|
logical text
|
||
|
|
|
||
|
|
text=.false.
|
||
|
|
if(grid.eq.' ') go to 90 !Blank grid is OK
|
||
|
|
|
||
|
|
C Test for numerical signal report, etc.
|
||
|
|
if(grid(1:1).eq.'-') then
|
||
|
|
read(grid(2:3),*,err=1,end=1) n
|
||
|
|
1 ng=NGBASE+1+n
|
||
|
|
go to 100
|
||
|
|
else if(grid(1:2).eq.'R-') then
|
||
|
|
read(grid(3:4),*,err=2,end=2) n
|
||
|
|
2 if(n.eq.0) go to 90
|
||
|
|
ng=NGBASE+31+n
|
||
|
|
go to 100
|
||
|
|
else if(grid(1:2).eq.'RO') then
|
||
|
|
ng=NGBASE+62
|
||
|
|
go to 100
|
||
|
|
else if(grid(1:3).eq.'RRR') then
|
||
|
|
ng=NGBASE+63
|
||
|
|
go to 100
|
||
|
|
else if(grid(1:2).eq.'73') then
|
||
|
|
ng=NGBASE+64
|
||
|
|
go to 100
|
||
|
|
endif
|
||
|
|
|
||
|
|
if(grid(1:1).lt.'A' .or. grid(1:1).gt.'Z') text=.true.
|
||
|
|
if(grid(2:2).lt.'A' .or. grid(2:2).gt.'Z') text=.true.
|
||
|
|
if(grid(3:3).lt.'0' .or. grid(3:3).gt.'9') text=.true.
|
||
|
|
if(grid(4:4).lt.'0' .or. grid(4:4).gt.'9') text=.true.
|
||
|
|
if(text) go to 100
|
||
|
|
|
||
|
|
call grid2deg(grid//'mm',dlong,dlat)
|
||
|
|
long=dlong
|
||
|
|
lat=dlat+ 90.0
|
||
|
|
ng=((long+180)/2)*180 + lat
|
||
|
|
go to 100
|
||
|
|
|
||
|
|
90 ng=NGBASE + 1
|
||
|
|
|
||
|
|
100 return
|
||
|
|
end
|
||
|
|
|