mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2025-11-04 05:50:31 -05:00
33 lines
680 B
FortranFixed
33 lines
680 B
FortranFixed
|
subroutine unpackgrid(ng,grid)
|
||
|
|
|
||
|
|
parameter (NGBASE=180*180)
|
||
|
|
character grid*4,grid6*6
|
||
|
|
|
||
|
|
grid=' '
|
||
|
|
if(ng.ge.32400) go to 10
|
||
|
|
dlat=mod(ng,180)-90
|
||
|
|
dlong=(ng/180)*2 - 180 + 2
|
||
|
|
call deg2grid(dlong,dlat,grid6)
|
||
|
|
grid=grid6
|
||
|
|
go to 100
|
||
|
|
|
||
|
|
10 n=ng-NGBASE-1
|
||
|
|
if(n.ge.1 .and.n.le.30) then
|
||
|
|
write(grid,1012) -n
|
||
|
|
1012 format(i3.2)
|
||
|
|
else if(n.ge.31 .and.n.le.60) then
|
||
|
|
n=n-30
|
||
|
|
write(grid,1022) -n
|
||
|
|
1022 format('R',i3.2)
|
||
|
|
else if(n.eq.61) then
|
||
|
|
grid='RO'
|
||
|
|
else if(n.eq.62) then
|
||
|
|
grid='RRR'
|
||
|
|
else if(n.eq.63) then
|
||
|
|
grid='73'
|
||
|
|
endif
|
||
|
|
|
||
|
|
100 return
|
||
|
|
end
|
||
|
|
|