WSJT-X/ftsky.f

      real function ftsky(l,b)

C  Returns 408 MHz sky temperature for l,b (in degrees), from 
C  Haslam, et al. survey.  Must have already read the entire
C  file tsky.dat into memory.

      real*4 l,b
      integer*2 nsky
      common/sky/ nsky(360,180)
      save

      j=nint(b+91.0)
      if(j.gt.180) j=180
      xl=l
      if(xl.lt.0.0) xl=xl+360.0
      i=nint(xl+1.0)
      if(i.gt.360) i=i-360
      ftsky=0.0
      if(i.ge.1 .and. i.le.360 .and. j.ge.1 .and. j.le.180) then
         ftsky=0.1*nsky(i,j)
      endif

      return
      end
First good compile with map65a running inside map65. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@334 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2007-01-11 16:25:52 -05:00			`real function ftsky(l,b)`

			`C Returns 408 MHz sky temperature for l,b (in degrees), from`
			`C Haslam, et al. survey. Must have already read the entire`
			`C file tsky.dat into memory.`

			`real*4 l,b`
			`integer*2 nsky`
			`common/sky/ nsky(360,180)`
			`save`

			`j=nint(b+91.0)`
			`if(j.gt.180) j=180`
			`xl=l`
			`if(xl.lt.0.0) xl=xl+360.0`
			`i=nint(xl+1.0)`
			`if(i.gt.360) i=i-360`
			`ftsky=0.0`
			`if(i.ge.1 .and. i.le.360 .and. j.ge.1 .and. j.le.180) then`
			`ftsky=0.1*nsky(i,j)`
			`endif`

			`return`
			`end`