function V4XSC2HC,in,verbose=v,index=ix,outdex=ox,ocoords=ocoords

;;;
;;; Check out input keywords for existence...
;;;
if (isvalid(ix) or isvalid(ox)) then $
    if(total(where( (ix ne [0,1,2,3]) or (ox ne [0,1,2,3]) )) ge 0) then $
        print,"WARNING - V4XSC2HC - ignoring indexing!"
v = keyword_set(v)

ix = [0,1,2,3]
ox = ix
iu = ix+5
ou = ox+5

;;;
;;; Find the B angle...
pbr = zpb0r(in.(ix(0)))
B = pbr(1,*)/!radeg
if(nlm(b) eq 1) then b=b(0)

i2 = v4canon(in)

out = i2
out.coords="Heliographic Cartesian"
out.(ix(2)) =   i2.(ix(2))*cos(B) + i2.(ix(3))*sin(B)
out.(ix(3)) = - i2.(ix(2))*sin(B) + i2.(ix(3))*cos(B)

return,out
end