pro xticsf_crnclog09,crn,cl0,itl,xsz,xticb,xtict

    if n_params( ) lt 1 then begin
       print,'pro xticsf_crnclog09,crn,cl0,itl,xsz,xticb,xtict'
       print,"itl:Interested Time longitude in degrees"
       print,"itl=60, 180 for left, centered"
       return
    endif
;
    ppd=xsz/360.          ; pixel number per degree
    dcl0itl=(cl0-itl)*ppd  
    CASE 1 OF
        dcl0itl lt 0: begin
               log0=(dcl0itl+xsz)/ppd & cr0=crn+1
               log1=(dcl0itl+xsz/4.)/ppd & cr1=crn
               log2=(dcl0itl+xsz/2.)/ppd & cr2=crn
               log3=(dcl0itl+xsz*3/4.)/ppd & cr3=crn
               log4=(dcl0itl+xsz)/ppd & 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/ppd       & cr0=crn
               log1=(dcl0itl+xsz/4.)/ppd
               if log1 le 360 then cr1=crn else begin
                  log1=log1-360 & cr1=crn-1
                                            endelse
               log2=(dcl0itl+xsz/2.)/ppd
               if log2 le 360 then cr2=crn else begin
                  log2=log2-360 & cr2=crn-1
                                            endelse
               log3=(dcl0itl+xsz*3/4.)/ppd
               if log3 le 360 then cr3=crn else begin
                  log3=log3-360 & cr3=crn-1
                                            endelse
               log4=(dcl0itl+xsz)/ppd-360 
               cr4=crn-1
                      end
    ENDCASE
    print,log0,log1,log2,log3,log4
    print,cr0,cr1,cr2,cr3,cr4
    scrncl0=strtrim(crn,2)+':'+strtrim(cl0,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)
    sclog0=presd+':'+STRMID(strtrim(log0,2),0,5)
    sclog1=presd+':'+STRMID(strtrim(log1,2),0,5)
    sclog2=presd+':'+STRMID(strtrim(log2,2),0,5)
    sclog3=presd+':'+STRMID(strtrim(log3,2),0,5)
    sclog4=presd+':'+STRMID(strtrim(log4,2),0,5)
    xnon = REPLICATE(' ', 2)
    xticb=[sclog0,xnon,sclog1,xnon,sclog2,xnon,sclog3,xnon,sclog4]
print,xticb
    xnon=REPLICATE(' ',6)
    xtict=[xnon,ymdhms,xnon]
print,xtict

end