;+ ; Contains the coeff_spvr procedure ; ; :Author: ; Baptiste Cecconi ; ; :History: ; 2008/03/24: Created ; ; 2008/03/24: Last Edit ;- ; ;+ ; Coefficients modele SPV-R (tronque a l'ordre 5) ; ; :Params: ; g: out, required, type=fltarr(6) ; coeff. des polynomes de Legendre ; h: out, required, type=fltarr(6) ; coeff. des polynomes de Legendre ; n: out, required, type=byte ; ordre du developpement ; dip: out, required, type=fltarr(2) ; position du dipole/axe de rotation ; crt: out, required, type=fltarr(4) ; Anneau de courant ; tdip: out, required, type='fltarr(3,3)' ; A parameter named tdip ;- pro COEFF_SPVR, g,h,n,dip,crt,tdip G=dblarr(6,6) & H=dblarr(6,6) G(1,0)= 0.2116d0 G(2,0)= 0.0156d0 G(3,0)= 0.0232d0 G(3,1)=-0.003d0 G(4,1)=-0.004d0 G(5,1)=-0.005d0 H(4,1)= 0.002d0 n=5 return end