;; This routine decodes the Mariner 9 EDR octally coded decimal time values
   PRO m9_ERT_time,TT,Yr,Day,Hr,RMin,Sec   ;;decode octal values from rec TT
;;					   created July 28, 2000 - KE Simmons
;;            corrected Yr to 1971-2 period       Dec 19,2000-kes
;;
   t=TT(14)                                     ;Yrs and part Days
   d100s=(t and "7)                             ;100s value of Day
   Yr=(t and "110)/64                   ;Yr is either 1 for 1972 or 0 for 1971
   if Yr eq 0 then Yr=1971 else Yr=1972

   t=TT(15)                                     ;part Days
   d1s=(t and "7)                              ;1s value of Day
   d10s=(t and "700)/64                         ;10s value of Day
   Day=(d100s*100.)+(d10s*10.)+(d1s*1.)

   t=TT(16)                                     ;Hours
   H1s=(t and "7)                              ;1s value of Hr
   H10s=(t and "700)/64                         ;10s value of Hr
   Hr=(h10s*10.)+(H1s*1.)

   t=TT(17)                                     ;Minutes
   M1s=(t and "7)                              ;1s value of Minutes
   M10s=(t and "700)/64                         ;10s value of Min
   Rmin=(M10s*10.)+(M1s*1.)

   t=TT(18)                                     ;seconds
   s1s=(t and "7)                              ;1s value of seconds
   s10s=(t and "700)/64                         ;10s value of seconds
   t=TT(19)                                     ;decimal seconds
   sp100s=(t and "7)                           ;100ths of seconds
   sp10s=(t and "700)/64                        ;thenths of seconds
   Sec=(s10s*10.)+(s1s*1.)+(sp10s/10.)+(sp100s/100.)

   Return & end