WSJT-X/lib/tm2.f90

subroutine tm2(day,xlat4,xlon4,xl4,b4)

  implicit real*8 (a-h,o-z)
  parameter (RADS=0.0174532925199433d0)

  real*4 xlat4,xlon4,xl4,b4

  glat=xlat4*RADS
  glong=xlon4*RADS
  call tmoonsub(day,glat,glong,el,rv,xl,b,pax)
  xl4=xl
  b4=b

end subroutine tm2
Another bunch needesd for astro display. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3839 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2014-03-05 20:14:36 +00:00			`subroutine tm2(day,xlat4,xlon4,xl4,b4)`

			`implicit real*8 (a-h,o-z)`
			`parameter (RADS=0.0174532925199433d0)`

Squashed some compiler warnings. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3978 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2014-04-03 19:44:34 +00:00			`real*4 xlat4,xlon4,xl4,b4`
Another bunch needesd for astro display. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3839 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2014-03-05 20:14:36 +00:00
			`glat=xlat4*RADS`
			`glong=xlon4*RADS`
			`call tmoonsub(day,glat,glong,el,rv,xl,b,pax)`
			`xl4=xl`
			`b4=b`

			`end subroutine tm2`