; MODIFIED: 31MAR2006  Xuepu adding /sgi
pro crncl0_time,stime,crn,cl0,scrncl0,SGI=sgi,DISP=disp

    if N_params() LT 1 then begin
       print,'crncl0_time,stime,crn,cl0,/sgi,/disp'
       print,"stime: '2000:01:01_12:00:00'
       return
    endif

    if keyword_set(sgi) then spawn,'times '+stime+' > outdata.d' else $
       spawn,'/home/wso/bin/_linux/times '+stime+' > outdata.d'

    get_lun,unit
    tt=' '
    openr,unit,'outdata.d'
    readf,unit,tt
    readf,unit,tt
    free_lun,unit
    spawn,'rm outdata.d'
    scrncl0=strmid(tt,2,8)
    crn=FIX(strmid(tt,2,4))
    cl0=FIX(strmid(tt,7,3))
    if keyword_set(disp) then print,'CRN, CL0,scrncl0: ',crn,', ',cl0,', ',scrncl0

end