pro crncrl_datez2,date,crn,crl,scrncrl,DISP=disp

    if N_params() LT 1 then begin
       print,'crncrl_datez2,date,crn,crl,/disp'
       print,"date: '2000:01:01_12:00:00'
       return
    endif

    spawn,'/home/wso/bin/_linux/times '+date+' > outdata.d'

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

end