;+ ; Contains the coeff_vit4 procedure ; ; :Author: ; Baptiste Cecconi ; ; :History: ; 2008/03/24: Created ; ; 2008/03/24: Last Edit ;- ; ;+ ; Coefficient modele VIT4 (nouveau Connerney) ; ; :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_VIT4,g,h,n,dip,crt,tdip G=fltarr(6,6) & H=fltarr(6,6) n=4 G(1,0)=4.28077 G(1,1)=-0.75306 & H(1,1)=0.24616 G(2,0)=-0.04283 G(2,1)=-0.59426 & H(2,1)=-0.50154 G(2,2)=0.44386 & H(2,2)=0.38452 G(3,0)=0.08906 G(3,1)=-0.21447 & H(3,1)=-0.17187 G(3,2)=0.21130 & H(3,2)=0.40667 G(3,3)=-0.01190 & H(3,3)=-0.35263 G(4,0)=-0.22925 G(4,1)=0.18940 & H(4,1)=0.16088 G(4,2)=-0.03851 & H(4,2)=0.11807 G(4,3)=0.09926 & H(4,3)=0.06195 G(4,4)=0.01271 & H(4,4)=0.12641 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