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