pro date_crncrlz2,scrncl0,date,DISP=disp

    if N_params() LT 1 then begin
       print,'time_crncl0,scrncl0,time,/disp,/linux'
       print,"scrncl0: '1971:210'"
       return
    endif

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

    tt=' '
    get_lun,unit
    openr,unit,'outdata.d'
    readf,unit,tt
    free_lun,unit
    spawn,'rm outdata.d'
    time=tt
    if keyword_set(disp) then print,'time: ',time

end