WSJT-X/map65/libm65/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
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 tm2(day,xlat4,xlon4,xl4,b4)`

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

More cleanup of compiler warnings. 2021-04-22 13:29:40 -04:00			`real*4 xlat4,xlon4,xl4,b4`
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
			`glat=xlat4*RADS`
			`glong=xlon4*RADS`
			`call tmoonsub(day,glat,glong,el,rv,xl,b,pax)`
			`xl4=xl`
			`b4=b`

			`end subroutine tm2`