; WRITTEN: 18Aug2009  Xuepu Zhao
pro crncl0_time_ctimes,sdate,stime,scrn,scl0,DISP=disp

    if N_params() lt 1 then begin
       print,'pro crncl0_time_ctimes,sdate,stime,scrn,scl0,/disp'
       print,"sdate, stime - '1999:06:01','12:00:00'"
       return
    endif
    spawn,'~wso/bin/_linux4/ctimes '+sdate+'_'+stime+' > ctimes.d'
    tt=' '
    get_lun,unit
    openr,unit,'ctimes.d'
    readf,unit,tt
    readf,unit,tt
    scrn=strmid(tt,2,4)
    scl0=strmid(tt,7,6)
    free_lun,unit
    spawn,'rm ctimes.d'
    if keyword_set(disp) then print,'scrn,scl0: ',scrn,'  ',scl0

end