;+ ; Contains the coeff_vip4 procedure ; ; :Author: ; Baptiste Cecconi ; ; :History: ; 2008/03/24: Created ; ; 2008/03/24: Last Edit ;- ; ;+ ; Coefficient modele VIP4; ; ; :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='flotarr(3,3)' ; A parameter named tdip ;- pro COEFF_VIP4,g,h,n,dip,crt,tdip G=fltarr(6,6) & H=fltarr(6,6) n=4 G(1,0)=4.20543 G(1,1)=-0.65920 & H(1,1)=0.24992 G(2,0)=-0.05118 G(2,1)=-0.61904 & H(2,1)=-0.36052 G(2,2)=0.49690 & H(2,2)=0.05250 G(3,0)=-0.01576 G(3,1)=-0.52036 & H(3,1)=-0.08804 G(3,2)=0.24386 & H(3,2)=0.40829 G(3,3)=-0.17597 & H(3,3)=-0.31586 G(4,0)=-0.16758 G(4,1)=0.22210 & H(4,1)=0.07557 G(4,2)=-0.06074 & H(4,2)=0.40411 G(4,3)=-0.20243 & H(4,3)=-0.16597 G(4,4)=0.06643 & H(4,4)=0.03866 dip=[9.6,202.] crt=[5.,50.,2.5,225] tdip=[[-0.914200,-0.374606,-0.154625],$ [0.369361,-0.927184,0.0624727],$ [-0.166769,0.,0.985996]] return end