;+
; 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