function bsdtime,timein
;+
; atp M.S.S.L. 1991 16 - 5 - 91
;	       revised 29-5-91 to allow for character month,
;		to avoid english/american default month format confusion
; 
; this routine is designed to format the date/time as encoded 
; in a bsd file into a string of format 
;	hh:mm:ss.msec dd-mmm-yyyy
; and return it.
; 
; in: 	timein - long array with seven elements
;
; out: 	timeout - string containing the date/time 25 chars long
;
;-
; initialise variables
;
	monthstr = 'JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC'
	timeout = ' ';
	i = 0;
	charbuf = ' ';
	moffset = 0;
;
; convert the time
;

    	charbuf = string(timein(0),'(i2.2)');	hours
	timeout = charbuf;

    	charbuf = string(timein(1),'(i2.2)');	minutes
	timeout = timeout+':'+charbuf;

    	charbuf = string(timein(2),'(i2.2)');	seconds
	timeout = timeout+':'+charbuf;

    	charbuf = string(timein(3),'(i3.3)');	mseconds
	timeout = timeout+'.'+charbuf;

    	charbuf = string(timein(4),'(i2.2)');     day
	timeout = timeout+' '+charbuf;


	moffset = timein(5); 			month number
	moffset = (moffset-1)*3
        charbuf = strmid(monthstr,moffset,3);   month
	timeout = timeout+'-'+charbuf;
	
    	charbuf = string(timein(6),'(i4.4)');	year
	timeout = timeout+'-'+charbuf;
;
; exit
;		
return,timeout			
end