NAME:
       JD2EX
 PURPOSE:
       Compute external time from Julian Date.
 CATEGORY:
 CALLING SEQUENCE:
       t_ex = tim2jd(jd)
 INPUTS:
 KEYWORD PARAMETERS:
 OUTPUTS:
       t_ex = Time in external format
 CALLS: ***
	TIM2JD [1], TIM2JD [2], anytim2ex [1], anytim2ex [2], anytim2ints [1]
	anytim2ints [2]
 COMMON BLOCKS:
 NOTES:
 MODIFICATION HISTORY:
       R. Sterner,  23 June, 1985 --- converted from FORTRAN.
       Johns Hopkins University Applied Physics Laboratory.
       RES 18 Sep, 1989 --- converted to SUN

 Copyright (C) 1985, Johns Hopkins University/Applied Physics Laboratory
 This software may be used, copied, or redistributed as long as it is not
 sold and this copyright notice is reproduced on each copy made.  This
 routine is provided as is without any express or implied warranties
 whatsoever.  Other limitations apply as described in the file disclaimer.txt.

   Name: jst

   Purpose: convert input times (assumed UT) to JST (default is 'now')

 CALLS: ***
	anytim2ints [1], anytim2ints [2], fmt_tim [1], fmt_tim [2], ut_time [1]
	ut_time [2]
 CALLED BY:
	FIRST_LIGHT [1], FIRST_LIGHT [2], pr_visible, tim2pass
   History:
      11-may-1995 (SLF)

	CALCULATE JULIAN DAY NO. FROM DATE

	JULIAN DAY IS DAYS FROM JAN 1, 4713 BC.
	JD FOR JAN 1, 1970 WAS 2440588