WSJT-X/lib/unpackgrid.f

      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)
      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
Set properties for native eol style and the "Rev" keyword. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@2464 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2012-05-22 17:09:48 +00:00			`subroutine unpackgrid(ng,grid)`

			`parameter (NGBASE=180*180)`
			`character grid4,grid66`

			`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)`
			`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`