2012-05-22 13:09:48 -04:00
|
|
|
program tastro
|
|
|
|
|
|
|
|
|
|
implicit real*8 (a-h,o-z)
|
|
|
|
|
|
|
|
|
|
character grid*6
|
|
|
|
|
character*9 cauxra,cauxdec
|
|
|
|
|
|
|
|
|
|
character*12 clock(3)
|
|
|
|
|
integer nt(8)
|
|
|
|
|
equivalence (nt(1),nyear)
|
|
|
|
|
|
|
|
|
|
grid='FN20qi'
|
|
|
|
|
nfreq=144
|
|
|
|
|
cauxra='00:00:00'
|
|
|
|
|
|
|
|
|
|
10 call date_and_time(clock(1),clock(2),clock(3),nt)
|
|
|
|
|
ih=ihour-ntz/60
|
|
|
|
|
if(ih.le.0) then
|
|
|
|
|
ih=ih+24
|
|
|
|
|
nday=nday+1
|
|
|
|
|
endif
|
|
|
|
|
uth8=ih + imin/60.d0 + isec/3600.d0 + ims/3600000.d0
|
|
|
|
|
call astro0(nyear,month,nday,uth8,nfreq,grid,cauxra,cauxdec, &
|
|
|
|
|
AzSun8,ElSun8,AzMoon8,ElMoon8,AzMoonB8,ElMoonB8,ntsky,ndop,ndop00, &
|
|
|
|
|
dbMoon8,RAMoon8,DecMoon8,HA8,Dgrd8,sd8,poloffset8,xnr8,dfdt,dfdt0, &
|
|
|
|
|
RaAux8,DecAux8,AzAux8,ElAux8,width1,width2,w501,w502,xlst8)
|
|
|
|
|
|
|
|
|
|
write(*,1010) nyear,month,nday,ih,imin,isec,AzMoon8,ElMoon8, &
|
|
|
|
|
AzSun8,ElSun8,ndop,dgrd8,ntsky
|
|
|
|
|
1010 format(i4,i3,i3,i4.2,':',i2.2,':',i2.2,4f8.1,i6,f6.1,i6)
|
|
|
|
|
|
|
|
|
|
call system('sleep 1')
|
|
|
|
|
go to 10
|
|
|
|
|
|
|
|
|
|
end program tastro
|
