WSJT-X/map65/libm65/astrosub.f90

subroutine astrosub(nyear,month,nday,uth8,nfreq,mygrid,hisgrid,          &
     AzSun8,ElSun8,AzMoon8,ElMoon8,AzMoonB8,ElMoonB8,ntsky,ndop,ndop00,  &
     RAMoon8,DecMoon8,Dgrd8,poloffset8,xnr8)

  implicit real*8 (a-h,o-z)
  character*6 mygrid,hisgrid

  call astro0(nyear,month,nday,uth8,nfreq,mygrid,hisgrid,                &
     AzSun8,ElSun8,AzMoon8,ElMoon8,AzMoonB8,ElMoonB8,ntsky,ndop,ndop00,  &
     dbMoon8,RAMoon8,DecMoon8,HA8,Dgrd8,sd8,poloffset8,xnr8,dfdt,dfdt0,  &
     width1,width2,w501,w502,xlst8)

  return  
end subroutine astrosub
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 13:09:48 -04:00			`subroutine astrosub(nyear,month,nday,uth8,nfreq,mygrid,hisgrid, &`
			`AzSun8,ElSun8,AzMoon8,ElMoon8,AzMoonB8,ElMoonB8,ntsky,ndop,ndop00, &`
			`RAMoon8,DecMoon8,Dgrd8,poloffset8,xnr8)`

			`implicit real*8 (a-h,o-z)`
			`character*6 mygrid,hisgrid`

			`call astro0(nyear,month,nday,uth8,nfreq,mygrid,hisgrid, &`
			`AzSun8,ElSun8,AzMoon8,ElMoon8,AzMoonB8,ElMoonB8,ntsky,ndop,ndop00, &`
			`dbMoon8,RAMoon8,DecMoon8,HA8,Dgrd8,sd8,poloffset8,xnr8,dfdt,dfdt0, &`
			`width1,width2,w501,w502,xlst8)`

			`return`
			`end subroutine astrosub`