C C function written early Dec. 1999 by M. Pyle to support workstation C Eta for users with etime but not timef functionality (like certain Cmp HPs) Designed to duplicate timef (elapsed time in milliseconds) C function timef() real et(2) real*8 timef clan timef=etime(et) clan timef=timef*1.e3 CTO timef= rtc() timef=etime(et) end