pro xticsc_crnclog09,crn,cl0,itl,xticb,xtict

    if n_params( ) lt 1 then begin
       print,'pro xticsc_crnclog09,crn,cl0,itl,xticb,xtict'
       print,"itl:Interest-Time Longitude in degrees"
       print,"itl=60, 180 for left, centered"
       return
    endif
;
    dcl0itl=cl0-itl
    CASE 1 OF
        dcl0itl lt 0: begin
               log0=dcl0itl+360 & cr0=crn+1
               log1=dcl0itl+360/4. 
               if log1 ge 0 then cr1=crn else begin
                  log1=log1+360 & cr1=crn+1
                                         endelse
               log2=dcl0itl+360/2. 
               if log2 ge 0 then cr2=crn else begin
                  log2=log2+360 & cr2=crn+1
                                         endelse
               log3=(dcl0itl+360*3/4.) 
               if log3 ge 0 then cr3=crn else begin
                  log2=log2+360 & cr2=crn+1
                                         endelse
               log4=(dcl0itl+360) & cr4=crn
                      end
        dcl0itl eq 0: begin
               log0=0  &  cr0=crn
               log1=90  & cr1=crn
               log2=180 & cr2=crn
               log3=270 & cr3=crn
               log4=360 & cr4=crn
                      end
        dcl0itl gt 0: begin
               log0=dcl0itl       & cr0=crn
               log1=dcl0itl+360/4.
               if log1 le 360 then cr1=crn else begin
                  log1=log1-360 & cr1=crn-1
                                            endelse
               log2=dcl0itl+360/2.
               if log2 le 360 then cr2=crn else begin
                  log2=log2-360 & cr2=crn-1
                                            endelse
               log3=dcl0itl+360*3/4.
               if log3 le 360 then cr3=crn else begin
                  log3=log3-360 & cr3=crn-1
                                            endelse
               log4=(dcl0itl+360)-360 & cr4=crn-1 
                      end
    ENDCASE
;   print,log0,log1,log2,log3,log4
;   print,cr0,cr1,cr2,cr3,cr4
    sclog0=strtrim(cr0,2)+':'+STRMID(strtrim(log0,2),0,5)
    sclog1=strtrim(cr1,2)+':'+STRMID(strtrim(log1,2),0,5)
    sclog2=strtrim(cr2,2)+':'+STRMID(strtrim(log2,2),0,5)
    sclog3=strtrim(cr3,2)+':'+STRMID(strtrim(log3,2),0,5)
    sclog4=strtrim(cr4,2)+':'+STRMID(strtrim(log4,2),0,5)
    xnon = REPLICATE(' ', 2)
    xticb=[sclog0,xnon,sclog1,xnon,sclog2,xnon,sclog3,xnon,sclog4]
print,xticb
    xtic=strarr(13)
    for i=0,12,3 do begin
        datetime_scrncl0,xticb(i),ymdhms
        xtic(i)=strmid(ymdhms,0,13)
    endfor
    xtict=[xtic(0),xnon,xtic(3),xnon,xtic(6),xnon,xtic(9),xnon,xtic(12)]
print,xtict

end