;
; Determin the strenth (without sign) of B between Rcp and Rss
;
pro pb0_csss,gc,hc,apar,Nmax,Rcp,Rss,r,cthi,sthi,phrj,Br,Bt,Bp

    csssHf,Nmax,apar,Rcp,Rss,r,Hr,dHr,d2Hr
    csmphj,Nmax,phrj,cmphj,smphj
    Gfnj,Nmax,cmphj,smphj,gc,hc,Gfj,dGfj
    pdpi,cthi,Nmax,Pi,dPi
    brtp,Nmax,apar,r,sthi,Hr,dHr,Pi,dPi,Gfj,dGfj,Br,Bt,Bp

end