;+ ; Contains the coeff_d procedure ; ; :Author: ; Baptiste Cecconi ; ; :History: ; 2008/03/24: Created ; ; 2008/03/24: Last Edit ;- ; ;+ ; Coefficients du Dipole de 7 Gauss (Z96) ; ; :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_D,g,h,n,dip,crt,tdip G=fltarr(6,6) & H=fltarr(6,6) n=3 G(1,0)=7.0 G(1,1)=-0.0 & H(1,1)=0.0 G(2,0)=-0.0 G(2,1)=-0.0 & H(2,1)=-0.0 G(2,2)=0.0 & H(2,2)=0.0 G(3,0)=0.0 G(3,1)=-0.0 & H(3,1)=-0.0 G(3,2)=0.0 & H(3,2)=0.0 G(3,3)=-0.0 & H(3,3)=-0.0 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