C+ C NAME: C jpl_message C CALLING SEQUENCE: subroutine jpl_message(cSay,et,cStr) C INPUTS: C cSay character*(*) leading string passed to Say C et(2) double precision ephemeris time C cStr character*(*) trailing string passed to Say C CALLS: C Time2Day8, Time2JD, cTime2Str, Say C MODIFICATION HISTORY: C FEB-2005, Paul Hick (UCSD/CASS; pphick@ucsd.edu) C- character cSay*(*) double precision et(2) character cStr*(*) integer tt(2) character cTime2Str*80 call Time2Day8(1,tt,et(1)+et(2)) call Time2JD(1,tt,tt) call Say(cSay,'W',cTime2Str(' ',tt),cStr) return end