pro xticsf_crnclog06,crn0,clog0,xticb,xtict,LEFT=left,SDT=sdt

    if n_params( ) lt 1 then begin
       print,'pro xticsf_crnclog06,crn,clog,xticb,xtict,/left,/sdt'
       print,"crn=1936 or '1998/05/23', clog=22 or '16.03.30'"
       return
    endif
;
    if keyword_set(sdt) then begin
       ymdhms=crn0+'_'+clog0
       presd=strmid(ymdhms,2,8)
       crncl0_time,ymdhms,crn,clog
    endif else begin
       crn=crn0 & clog=clog0
       scrncl0=strtrim(crn0,2)+':'+strtrim(clog0,2)
       datetime_scrncl0,scrncl0,ymdhms0
       ymdhms=strmid(ymdhms0,0,4)+'/'+strmid(ymdhms0,5,2)+'/'+strmid(ymdhms0,8,2)+strmid(ymdhms0,10,3)
       presd=strmid(ymdhms,2,8)
    endelse
    if keyword_set(left) then begin
       CASE 1 OF
        clog lt 45: begin
               sclogl=presd+':'+strtrim(clog+315,2)
               sclogc=presd+':'+strtrim(clog+135,2)
               sclogr=presd+':'+strtrim(clog+315,2)
                    end
        clog eq 45: begin
               sclogl=presd+':0'
               sclogc=presd+':180'
               sclogr=presd+':360'
                    end
        clog gt 45: begin
               sclogl=presd+':'+strtrim(clog-45,2)
               clogc=clog+135
               if clogc le 360 then begin
                  sclogc=presd+':'+strtrim(clog+135,2)
               endif else begin
                  sclogc=presd+':'+strtrim(clogc-360,2)
               endelse
               sclogr=presd+':'+strtrim(clog-45,2)
                     end
       ENDCASE
    endif else begin
       sclogc=presd+':'+strtrim(clog,2)
       CASE 1 OF
        clog lt 90: begin
             sclogr=presd+':'+strtrim(clog+180,2)
             sclogcr=presd+':'+strtrim(clog+90,2)
             scloglc=presd+':'+strtrim(clog+270,2)
             sclogl=presd+':'+strtrim(clog+180,2)
                    end           
        clog ge 90 and clog lt 180: begin
               sclogr=presd+':'+strtrim(clog+180,2)
               sclogcr=presd+':'+strtrim(clog+90,2)
               scloglc=presd+':'+strtrim(clog-90,2)
               sclogl=presd+':'+strtrim(clog+180,2)
                     end
        clog eq 180: begin
               sclogl=presd+':0'
               scloglc=presd+':90'
               sclogcr=presd+':270'
               sclogr=presd+':360'
                    end
        clog gt 180 and clog le 270: begin
               sclogr=presd+':'+strtrim(clog-180,2)
               sclogcr=presd+':'+strtrim(clog+90,2)
               scloglc=presd+':'+strtrim(clog-90,2)
               sclogl=presd+':'+strtrim(clog-180,2)
                    end
        clog ge 270: begin
               sclogr=presd+':'+strtrim(clog-180,2)
               sclogcr=presd+':'+strtrim(clog-270,2)
               scloglc=presd+':'+strtrim(clog-90,2)
               sclogl=presd+':'+strtrim(clog-180,2)
                     end
       ENDCASE
    endelse
    xnon=REPLICATE(' ',2)
    xticb=[sclogl,xnon,scloglc,xnon,sclogc,xnon,sclogcr,xnon,sclogr]
    xnon=REPLICATE(' ',6)
    xtict=[xnon,ymdhms,xnon]

end