;+ ; Contains the coeff_o6 procedure ; ; :Author: ; Baptiste Cecconi ; ; :History: ; 2008/03/24: Created ; ; 2008/03/24: Last Edit ;- ; ;+ ; Coefficients du modele O6 ; ; :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_O6,g,h,n,dip,crt,tdip G=fltarr(6,6) & H=fltarr(6,6) n=3 G(1,0)=4.24202 G(1,1)=-0.65929 & H(1,1)=0.24116 G(2,0)=-0.02181 G(2,1)=-0.71106 & H(2,1)=-0.40304 G(2,2)=0.48714 & H(2,2)=0.07179 G(3,0)=0.07565 G(3,1)=-0.15493 & H(3,1)=-0.38824 G(3,2)=0.19775 & H(3,2)=0.34243 G(3,3)=-0.17958 & H(3,3)=-0.22439 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