WSJT-X/lib/unpackgrid.f90
Joe Taylor 3b0b8b0652 Implement signal reports in the range -31 to -50 dB.
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@2688 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2012-10-25 13:01:37 +00:00

41 lines
973 B
Fortran

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(:4)
if(grid(2:2).eq.'A' .and. grid(4:4).eq.'0') then
i=ichar(grid(1:1))
if(i.ge.ichar('A') .and. i.le.ichar('D')) then
call grid2n(grid,n)
if(n.ge.-50) write(grid,1012) n
if(n.lt.-50) write(grid,1022) n+20
endif
endif
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