;***************************************************************************
FUNCTION long_time_str,time
;***  This function creates a string
;***  Written by Susan Sahm
;***  INPUTS
;***    time -  BIN_DATE
;***   OUTPUT
;***      string - 	 '2000-00-00T00:00:00'
;*** NON_IDL ROUTINES CALLED:
;***  None
;    Modified by SMH 4/16/2001:  Added '000' milliseconds to new_time string.
;***************************************************************************

new_time = '2000-00-00T00:00:00.000'
year = STRCOMPRESS(time(0),/REMOVE_ALL)
month = STRCOMPRESS(time(1),/REMOVE_ALL)
day = STRCOMPRESS(time(2),/REMOVE_ALL)
hour = STRCOMPRESS(time(3),/REMOVE_ALL)
minute = STRCOMPRESS(time(4),/REMOVE_ALL)
second = STRCOMPRESS(time(5),/REMOVE_ALL)
strput,new_time,year
IF (month LT 10) THEN BEGIN
  strput,new_time,'0',5
  strput,new_time,STRING(month),6
ENDIF ELSE  strput,new_time,STRING(month),5
IF (day LT 10) THEN BEGIN
  strput,new_time,'0',8
  strput,new_time,STRING(day),9
ENDIF ELSE strput,new_time,STRING(day),8
IF (hour LT 10) THEN BEGIN
   strput,new_time,'0',11
   strput,new_time,STRING(hour),12
ENDIF ELSE strput,new_time,STRING(hour),11
IF (minute LT 10) THEN BEGIN
  strput,new_time,'0',14
  strput,new_time,STRING(minute),15
ENDIF ELSE strput,new_time,STRING(minute),14
IF (second LT 10) THEN BEGIN
  strput,new_time,'0',17
  strput,new_time,STRING(second),18
ENDIF ELSE  strput,new_time,STRING(second),17
	return,new_time
END