subroutine vtime(gcsc,mday,llt) c gcsc to llt conversion based on algorithm on page V1-143 c **2-Mar-04**rev. 30-Sep-11** epoch dependent c **2-Oct-11** adjusted for continuous gcsc c gcsc = 24-bit GCSC count, input c mday = calender day of the year 1976, input c llt(1-4) = local lander time in sol, hour, min and csec integer gcsc,llt(4),maxg(7),lo(7) real*8 csps,s0,cg(7),ge16,t,tr parameter (csps=8877525.d0,lo0=2344400) data maxg/11242789,36555517,67108864,93338597,134217728,201326592 & ,320000000/,cg/8.4276d-6,8.99984d-6,1.01318d-5,1.81923d-5,1.38394d-5 & ,1.36977d-5,1.47743d-5/,lo/0,103,765,9420,2919,2614,6082/ c ige=and((mday-232)*540000-gcsc,'ff000000'x)+gcsc do i=1,7 if (ige.lt.maxg(i)) go to 10 end do 10 ge16=ige*16.d0 t=(ge16-cg(i)*ge16+lo(i)+lo0)/csps llt(1)=t tr=(t-llt(1))*24.659792d0 c write(*,*) ige,cg(i),lo(i),t llt(2)=tr tr=(tr-llt(2))*60 llt(3)=tr llt(4)=(tr-llt(3))*6000+.5 return end