;
; Determin the three components (without sign) of B between Rcp and Rss
; NOTE: Br, .. in mT
;
pro pb0_csss,gc,hc,r,phri,cthj,sthj,apar,Rcp,Rss,Br,Bt,Bp

    sz=size(gc)
    Nmax=sz(1)-1
    cssshf,Nmax,apar,Rcp,Rss,r,Hr,dHr,d2Hr
    csmphi,Nmax,phri,cmphi,smphi
    gfni,gc,hc,cmphi,smphi,Gfi,dGfi
    pdpj,cthj,Nmax,Pj,dPj
    brtp_csss,Nmax,r,sthj,Hr,dHr,Pj,dPj,Gfi,dGfi,Br,Bt,Bp

end