pro xtic_crnclog06,crn0,clog0,xtic,LEFT=left,SDT=sdt

    if n_params( ) lt 1 then begin
       print,'pro xtic_crnclog06,crn,clog,xtic,/left,/sdt'
       print,"sdate=crn & stime=clog if /sdt"
       return
    endif
;
    if keyword_set(sdt) then begin
       sdate0=crn0 & stime0=clog0
       sdatestime=sdate0+'_'+stime0
       crncl0_time,sdatestime,crn,clog
    endif else begin
       crn=crn0 & clog=clog0
    endelse
    if keyword_set(left) then begin
       CASE 1 OF
        clog lt 45: begin
               sclogl=strtrim(crn+1,2)+':'+strtrim(clog+315,2)
               sclogc=strtrim(crn,2)+':'+strtrim(clog+135,2)
               sclogr=strtrim(crn,2)+':'+strtrim(clog+315,2)
                    end
        clog eq 45: begin
               sclogl=strtrim(crn,2)+':0'
               sclogc=strtrim(crn,2)+':180'
               sclogr=strtrim(crn,2)+':360'
                    end
        clog gt 45: begin
               sclogl=strtrim(crn,2)+':'+strtrim(clog-45,2)
               clogc=clog+135
               if clogc le 360 then begin
                  sclogc=strtrim(crn,2)+':'+strtrim(clog+135,2)
               endif else begin
                  sclogc=strtrim(crn-1,2)+':'+strtrim(clogc-360,2)
               endelse
               sclogr=strtrim(crn-1,2)+':'+strtrim(clog-45,2)
                     end
       ENDCASE
    endif else begin
       sclogc=strtrim(crn,2)+':'+strtrim(clog,2)
       CASE 1 OF
        clog lt 90: begin
             sclogr=strtrim(crn,2)+':'+strtrim(clog+180,2)
             sclogcr=strtrim(crn,2)+':'+strtrim(clog+90,2)
             scloglc=strtrim(crn+1,2)+':'+strtrim(clog+270,2)
             sclogl=strtrim(crn+1,2)+':'+strtrim(clog+180,2)
                    end           
        clog ge 90 and clog lt 180: begin
               sclogr=strtrim(crn,2)+':'+strtrim(clog+180,2)
               sclogcr=strtrim(crn,2)+':'+strtrim(clog+90,2)
               scloglc=strtrim(crn,2)+':'+strtrim(clog-90,2)
               sclogl=strtrim(crn+1,2)+':'+strtrim(clog+180,2)
                     end
        clog eq 180: begin
               sclogl=strtrim(crn,2)+':0'
               scloglc=strtrim(crn,2)+':90'
               sclogcr=strtrim(crn,2)+':270'
               sclogr=strtrim(crn,2)+':360'
                    end
        clog gt 180 and clog le 270: begin
               sclogr=strtrim(crn-1,2)+':'+strtrim(clog-180,2)
               sclogcr=strtrim(crn,2)+':'+strtrim(clog+90,2)
               scloglc=strtrim(crn,2)+':'+strtrim(clog-90,2)
               sclogl=strtrim(crn,2)+':'+strtrim(clog-180,2)
                    end
        clog ge 270: begin
               sclogr=strtrim(crn-1,2)+':'+strtrim(clog-180,2)
               sclogcr=strtrim(crn-1,2)+':'+strtrim(clog-270,2)
               scloglc=strtrim(crn,2)+':'+strtrim(clog-90,2)
               sclogl=strtrim(crn,2)+':'+strtrim(clog-180,2)
                     end
       ENDCASE
    endelse
    xnon = REPLICATE(' ', 2)
    xtic=[sclogl,xnon,scloglc,xnon,sclogc,xnon,sclogcr,xnon,sclogr]

end