pro time_crncl0_ctimes,scrncl0,time,DISP=disp

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

    spawn,'~wso/bin/_linux4/ctimes 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