; 
; WRITTEN: 8FEB2003  	xuepu
; MODIFIED:	27MAR2006	Xuepu for adding /sgi
;
pro datetime_scrncl0,scrncl0,ymdhms,DISP=disp

    if N_params() LT 1 then begin
       print,'datetime_scrncl0,scrncl0,ymdhms,disp'
       print,"scrn: '1971:180'"
       return
    endif

    spawn,'times ct'+scrncl0+' > outdata.d'
    tt=' '
    get_lun,unit
    openr,unit,'outdata.d'
    readf,unit,tt
    free_lun,unit
    spawn,'rm outdata.d'
    ymdhms=tt
    if keyword_set(disp) then print,'ymdhms: ',ymdhms

end