;    10-Jan-1999  DG
;      Changed HEADIN argument name to GEOMETRY
;    01-Jul-1999  DG
;      Removed unused arguments in call list, and added TCYCLE.
;      Unbelievably, a cycle time of 10 s was hardwired into the
;      routine!
pro gettau,time,tcycle,tau,taudot,geometry

   n = n_elements(time)
   tau = dblarr(5,5,n)
   taudot = dblarr(5,5,n)
   for i = 0, n-1 do begin
      delay,time(i),tcycle,t,td,geometry
      tau(*,*,i) = t
      taudot(*,*,i) = td
   endfor

return
end