pro sc_annot06,xcsz,XTICB=xticb,XTICT=xtict,LONGI=longi,SINL=sinl,NML=nml

    if N_params() LT 1 then begin
       print,'pro sc_annot06,xcsz,xticb=,xtict=,longi=,/sinl,/nml'
       print,"longi='heliographic','hybrid'"
       return
    endif

    if keyword_set(longi) then begin
       CASE 1 OF
         longi eq 'heliographic': titx='Heliographic longitude'
         longi eq 'hybrid':       titx='Hybrid (Heliographic and Carrinton) longitude'
         else:                    titx='Carrington longitude'
       ENDCASE
    endif
    if not keyword_set(xticb) then begin
       xnon = REPLICATE(' ', 2)
       xticb = ['0',xnon,'90',xnon,'180',xnon,'270',xnon,'360']
    endif
    xn=n_elements(xticb)
    if not keyword_set(xtict) then xtict=REPLICATE(' ',xn)
    xtn=xn-1
    tity = 'Heliolatitude'
    yticl=['-90','-60','-30','0','30','60','90']
    yn=n_elements(yticl)
    yticr= REPLICATE(' ', yn)
    ytn=yn-1
    if keyword_set(nml) then begin
       dx=1.0/xtn
       dy=1.0/ytn
       if keyword_set(sinl) then begin
          cytv = (sin((FINDGEN(yn)*30.-90)*!dtor)+1)/2
       endif else begin    
          cytv = FINDGEN(yn)*dy
       endelse
    endif else begin
       dx=360./xtn
       dy=180./ytn
       if keyword_set(sinl) then begin
          cytv = sin((FINDGEN(yn)*dy-90)*!dtor)
       endif else begin
          cytv = FINDGEN(yn)*dy-90
       endelse
    endelse
    cxtv = FINDGEN(xn)*dx
    AXIS,XAXIS=0,XTICKS=xtn,XTICKV=cxtv,XTICKN=xticb,xtit=titx,xcharsize=xcsz
    AXIS,XAXIS=1,XTICKS=xtn,XTICKV=cxtv,XTICKN=xtict
    AXIS,YAXIS=0,YTICKS=ytn,YTICKV=cytv,YTICKN=yticl,ytit=tity,ycharsize=xcsz
    AXIS,YAXIS=1,YTICKS=ytn,YTICKV=cytv,YTICKN=yticr

end