/* 
To Compile using gcc:

gcc -lm -o av18_test av18_test.c

*/
#include <stdio.h>
#include <math.h>
#include <stdlib.h>
#include <string.h>
int main (void)
{
int nc;
double q,v1[19],v2[19],v3[19],v4[19];
void q_phi_k(int nmax, int l, double k, double s, double phi[]);
void vk (double q, double v1[19],double v2[19],double v3[19],double v4[19]);
void coeff(double v1n[2500]);
FILE *output;

if((output = fopen("pot.dat","w"))==NULL)
   printf("File pot.dat could not be opened for writing \n");
else
   printf("File pot.dat opened for writing \n");

q=5.0;
 vk(q,v1,v2,v3,v4);
  for(nc=1;nc<=18;nc++){
  fprintf(output,"q=%lf,   n=%d    %14.8le    %14.8le    %14.8le    %14.8le \n",  q,nc,v1[nc],v2[nc],v3[nc],v4[nc]);
  }
}
/*
potential coefficient functions
*/

void vk (double q, double v1[19],double v2[19],double v3[19],double v4[19])
/*
Computes the coefficient functions for the Fourier transform of the
Argonne V18 interaction.

Input: q "=|k'-k| in < k' | V k > = sum VFT[j]

Output: v1[19],v2[19],v3[10],v4[19] 

These are given by the integrals  

v1[j](q) := 1/(2 pi^2) int j_0(qr) V_j (r) r^2 dr      j=1,2,3,4,15,16,18

v2[j](q) := 1/(2 pi^2 q) int j_1(qr) V_j (r) r^3 dr    j=7,8,9,10,11,12,13,14

v3[j](q) := 1/(2 pi^2 q^2) int j_2(qr) V_j (r) r^2 dr  j=5,6,17

v4[q](q) := 1/(2 pi^2 q^2) int j_2(qr) V_j (r) r^4 dr  j=9,10,11,12,13,14

where V_j(r) are the radial coefficients in the Argonne V18 
potential (R.B. Wiringa, V.G.J. Stoks, R. Schiavilla, 
Phys. Rev. {\bf C}51(1995) 38).

The potential is the sum of the 24 terms

< k' | V | k > = sum VFT_j

where the VFT_j are given by 

VFT_1 = I * v1[1](q)

VFT_2 = [tau_1 dot tau_2] * v1[2](q)

VFT_3 = [s_1 dot s_2] * v1[3](q)

VFT_4 = ([s_1 dot s_2)(tau_1 \cdot tau_2)] * v1[4](q) 

VFT_5 = -[3 (q dot s_1)( q \cdot s_2) - (q^2 s_1 dot s_2)] * v3[5](q)

VFT_6 = - [(3 (q dot s_1)(q dot s_2) -q^2(s_1 dot s_2 ) (tau_1 dot tau_2)] 
        * v3[6](q)

VFT_7 = i [k x k'] * v2[7](q)

VFT_8 = i [(k x k')(tau_1 dot tau_2)] * v2[8](q)

VFT_9a = -[(k' x k) dot (k' x k)] * v4[9](q)

VFT_9b= 2[k' dot k]  * v2[9](q)

VFT_10a = -[(k' x k) dot (k' x k)(tau_1 dot tau_2)] * v4[10}(q)

VFT_10b =2[ (k' dot k)(tau_1 dot tau_2)] * v2 [10](q)

VFT_11a= -[(k' x k) dot (k' x k) (s_1 dot s_2)] * v4[11](q)

VFT_11b = [2(k' dot k)(s_1 dot s_2)]  * v2[12](q)

VFT_12a= -[(k' x k) dot (k' x k)  (s_1 dot s_2) (tau_1 dot tau_2)] * v4[12](q)

VFT_12b = [2 (k' dot k)(s_1 dot s_2) (tau_1 dot tau_2)] * v2[12](q)

VFT_13a = -[(S dot (k x k'))^2] * v4[13](q)

VFT_13b= [(k' x S) dot ( k x S)] * v2[13])q)

VFT_14a = - [(S dot (k x k'))^2 (tau_1 dot tau_2)] * v4[14](q)

VFT_14b = [(k' x S) dot (k x S) (tau_1 dot tau_2)] * v2[14](q)

VFT_15 = T_12 * v1[15](q)

VFT_16 = [(s_1 dot s_2) T_12] * v1[16](q)

VFT_17 = -[ ( 3( q dot s_1)(q dot s_2) - q^2 s_1 dot s_2  )T_12 ] * v3[17](q)

VFT_18 = [tau_1z + tau_2z] * v1[18](q)

all other elements of the arrays vm[j](q) return zero

vk calls void coeff(double v1n[2500]); which outputs an array of the 
expansion coefficients

and 

void q_phi_k(int nmax, int l, double k, double s, double phi[]);

generates the momentum space basis functions with the q**2
divided out.  The resulting functions are well behaved at q=0.

The operator coefficients must be supplied by the user

*/
{
int nb,nc,nc3;
double zero,one,two,pi,t11,alf2,fks[100],fkp[100],fkd[100];
double v1n[2500];

void coeff(double v1n[2500]);
void q_phi_k(int nmax, int l, double k, double s, double phi[]);
/*
the expansion coefficients are in an array v1n[nc3+25*nc]

make sure that alf and nb are consistent with input in coef.
*/

/*
set relevant constants
*/
zero=0.0l;
one=1.0l;
two=2.0l;
pi=atan2(zero,-one);
t11 =one/sqrt(two*pi);
t11=t11*t11*t11;
/*
set parameters for basis functions
*/
alf2=7.0l;
nb=70;
/*
call coefficients
*/
coeff(v1n);
/*
call expansion functions for l=0,1,2
*/
q_phi_k(80, 0, q, alf2, fks);           /* evaluate basis functions     */
q_phi_k(80, 1, q, alf2, fkp);           /* use modified functions with  */
q_phi_k(80, 2, q, alf2, fkd);          /* q^l divided out              */
/*
initialize arrays
*/
 for(nc=0;nc<=18;nc++){                  /* initialize sums */ 
  v1[nc]=zero;
  v2[nc]=zero;
  v3[nc]=zero;
  v4[nc]=zero;
  }
/*
sum series for non-zero potential functions
*/
  for(nc=1;nc<=nb;nc++){               /* sum series over basis functions  */  

    for(nc3=1;nc3<=4;nc3++){
    v1[nc3]=v1[nc3]+t11*v1n[nc3+25*nc]*fks[nc-1];
    }

    for(nc3=15;nc3<=16;nc3++){
    v1[nc3]=v1[nc3]+t11*v1n[nc3+25*nc]*fks[nc-1];
    }

  v1[18]=v1[18]+t11*v1n[18+25*nc]*fks[nc-1];

    for(nc3=7;nc3<=14;nc3++){
    v2[nc3]=v2[nc3]+t11*v1n[nc3+25*nc]*fkp[nc-1];
    }

    for(nc3=5;nc3<=6;nc3++){
    v3[nc3]=v3[nc3]+t11*v1n[nc3+25*nc]*fkd[nc-1];
    }

  v3[17]=v3[17]+t11*v1n[17+25*nc]*fkd[nc-1];

    for(nc3=9;nc3<=14;nc3++){
    v4[nc3]=v4[nc3]+t11*v1n[nc3+10+25*nc]*fkd[nc-1];
    }
  }
return;
}

/* 
momentum space basis functions: phi(nl)/q**l.   
*/

void q_phi_k(int nmax, int l, double k, double s, double phi[])
/*
   momentum space orthogonal basis functions    

   l:= angular momentum l=0,1,2,3,...
   calculates  phi(n,l)((k) = phi[n]  for n=0... nmax
   from first two using recursion relations

   needs a double precision ln(gamma) function

   s is alpha in recursive codes (.7)

   psi (r) = sum c(n:l) phi (n,l:r) Y(l,m,r)
   psi (k) = sum c(n:l) (i)**l phi (n,l,k) Y(l,m,k) 

   this program divides psi(k) by k^l - this removes the singularities
   in the potential code.

*/
{
/*
variable declarations
*/  
int nc1;
double zero,one,two,half,three,four,five,seven,pi;
double xl,ks,xn,x,t1,t2,t3,t4,t5,t6,t7,t8,t9; 
double w7,w8,w9,w10,w11,w12,w13,w14,w15,w16,w17,w18,w19; 
/*
parameter declarations
*/
zero =0.0l;
one = 1.0l;
two = 2.0l;
half=one/two;
three = 3.0l;
four = 4.0l;
five = 5.0l;
seven= 7.0l;
pi=atan2(zero,-one);  
xl=l;
ks=k/s;
x=(ks*ks-one)/(ks*ks+one);
/* 
start the recursion for the basis functions, 
calculate the functions for n=0 and 1     
*/

t1=one;
  for (nc1=1;nc1<=2*l+3;nc1++){
  t1=t1*nc1;
  }
  t1=sqrt(two*t1);                      /* (2l+3)!   */

t2=half;
 for (nc1=1;nc1<=l+1;nc1++){           /* (1/2) (3/2).....(l+3/2)  */
  t2=t2*(nc1+half);
  }
t2=one/sqrt(t2);

t3=half;
  for (nc1=1;nc1<=l;nc1++){            /* (1/2) (3/2)      (l+1/2)  */
  t3=t3*(nc1+half);
  }
t3=one/sqrt(t3); 

t4=sqrt(s);     
t5=one/(t4*t4*t4);                      /*  s**(-3/2)  */

t6=one;
  for (nc1=1;nc1<=l;nc1++){              /*  (k/s)**l  */
  /*  t6=t6*ks;   */      /* THIS IS THE MODIFICATION TO REMOVE k^l */
  t6=t6/s;                             /*  (1/s)**l  */
  }

t7=one; 
  for (nc1=1;nc1<=l+2;nc1++){           /*  1/((k/s)**2 +1)**(2l+2) */
  t7=t7/(one + ks*ks);
  }

t8=half+(l+two)*x;

t9=sqrt( (two*l+five)/( (l+two+half)*(l+one+half) ) );

phi[0]=t1*t5*t2*t3*t6*t7/sqrt(pi);
phi[1]=phi[0]*t8*t9;

/*
complete recursive construction
calculate the functions for 2 <= n <= nmax
*/

 for(nc1=2;nc1<=nmax;nc1++){
 xn=nc1-one;
 w7=(two*xn+two*xl+five)*(xn+one)*(xn+two*xl+three);
 w8=(two*xn+two*xl+three)*(xn+xl+five/two)*(xn+xl+three/two);
 w9=sqrt(w7/w8);
 w10=(two*xn+two*xl+three)*(two*xl+two)*(k*k+s*s);
 w11=(two*xn+two*xl+three)*(two*xn+two*xl+two)*(two*xn+two*xl+four)*(k*k-s*s);
 w12=two*(xn+one)*(xn+two*xl+three)*(two*xn+two*xl+two)*(k*k+s*s);
 w13=w9*(w10+w11)*phi[nc1-1]/w12;

 w14=(two*xn+two*xl+five)*xn*(xn+one)*(xn+two*xl+two)*(xn+two*xl+three);
 w15=(two*xn+two*xl+one)*(xn+xl+five/two)*(xn+xl+three/two)*
     (xn+xl+three/two)*(xn+xl+half);
 w16=-sqrt(w14/w15);
 w17=(xn+xl+three/two)*(xn+xl+half)*(two*xn+two*xl+four);
 w18=(xn+one)*(xn+two*xl+three)*(two*xn+two*xl+two);
 w19=w16*w17*phi[nc1-2]/w18;

 phi[nc1]=w13+w19;
 }
return;
}
/* 
table of expansions coefficients passed as a 1 dimensional array
*/
void coeff(double v1n[2500])
{
v1n[0] =0.00000000e+00;
v1n[1] =0.00000000e+00;
v1n[2] =0.00000000e+00;
v1n[3] =0.00000000e+00;
v1n[4] =0.00000000e+00;
v1n[5] =0.00000000e+00;
v1n[6] =0.00000000e+00;
v1n[7] =0.00000000e+00;
v1n[8] =0.00000000e+00;
v1n[9] =0.00000000e+00;
v1n[10] =0.00000000e+00;
v1n[11] =0.00000000e+00;
v1n[12] =0.00000000e+00;
v1n[13] =0.00000000e+00;
v1n[14] =0.00000000e+00;
v1n[15] =0.00000000e+00;
v1n[16] =0.00000000e+00;
v1n[17] =0.00000000e+00;
v1n[18] =0.00000000e+00;
v1n[19] =0.00000000e+00;
v1n[20] =0.00000000e+00;
v1n[21] =0.00000000e+00;
v1n[22] =0.00000000e+00;
v1n[23] =0.00000000e+00;
v1n[24] =0.00000000e+00;
v1n[25] =0.00000000e+00;
v1n[26] =1.68545250e+02;
v1n[27] =-7.52620035e+00;
v1n[28] =-1.87193089e+01;
v1n[29] =-1.28324219e+01;
v1n[30] =1.45087995e+01;
v1n[31] =1.89109955e+01;
v1n[32] =-3.72751704e+01;
v1n[33] =-1.42599722e+01;
v1n[34] =1.85416476e+01;
v1n[35] =3.48224195e-01;
v1n[36] =4.19352643e+00;
v1n[37] =8.64791415e-01;
v1n[38] =3.65491480e+00;
v1n[39] =6.86619396e+00;
v1n[40] =8.17666074e-01;
v1n[41] =-8.16535160e-01;
v1n[42] =1.27663425e-02;
v1n[43] =1.39447783e-01;
v1n[44] =1.31540674e+01;
v1n[45] =6.96149460e-03;
v1n[46] =2.78831254e+00;
v1n[47] =4.43893832e-01;
v1n[48] =3.98741086e+00;
v1n[49] =5.67732081e+00;
v1n[50] =0.00000000e+00;
v1n[51] =-4.48929888e+01;
v1n[52] =1.11902828e+01;
v1n[53] =1.08116139e+01;
v1n[54] =1.17261313e+00;
v1n[55] =-4.76561177e+00;
v1n[56] =-9.40858846e+00;
v1n[57] =3.67643212e+01;
v1n[58] =1.33126786e+01;
v1n[59] =-1.56265217e+01;
v1n[60] =1.23638593e-01;
v1n[61] =-3.16107566e+00;
v1n[62] =-3.78061213e-01;
v1n[63] =-6.36746873e+00;
v1n[64] =-7.53226332e+00;
v1n[65] =-4.03352919e-01;
v1n[66] =4.02824718e-01;
v1n[67] =-2.12729923e-02;
v1n[68] =-1.43157220e-01;
v1n[69] =-9.23337224e+00;
v1n[70] =6.66105083e-01;
v1n[71] =-1.55477508e+00;
v1n[72] =2.51274535e-02;
v1n[73] =-4.57909461e+00;
v1n[74] =-5.39368478e+00;
v1n[75] =0.00000000e+00;
v1n[76] =-5.20227332e+01;
v1n[77] =-6.96417193e+00;
v1n[78] =1.41854366e+00;
v1n[79] =7.83597828e+00;
v1n[80] =-5.05464211e+00;
v1n[81] =5.66709129e+00;
v1n[82] =-1.48942366e+01;
v1n[83] =-4.49386712e+00;
v1n[84] =4.27527241e+00;
v1n[85] =-8.51454577e-01;
v1n[86] =4.11140507e-01;
v1n[87] =-2.64640468e-01;
v1n[88] =3.26037078e+00;
v1n[89] =3.51742816e+00;
v1n[90] =-6.02049706e-02;
v1n[91] =5.63566227e-02;
v1n[92] =2.26149372e-02;
v1n[93] =7.78913855e-02;
v1n[94] =9.02447300e-01;
v1n[95] =-1.15912040e+00;
v1n[96] =-3.78059679e-01;
v1n[97] =-4.06317847e-01;
v1n[98] =1.11271851e+00;
v1n[99] =1.93111311e+00;
v1n[100] =0.00000000e+00;
v1n[101] =2.90787296e+01;
v1n[102] =3.31464395e-01;
v1n[103] =-4.68649745e+00;
v1n[104] =-5.44897352e+00;
v1n[105] =1.21039292e+00;
v1n[106] =-3.42333315e+00;
v1n[107] =-4.31577507e-01;
v1n[108] =-1.01834926e+00;
v1n[109] =1.63194517e+00;
v1n[110] =8.78753990e-01;
v1n[111] =7.33195328e-01;
v1n[112] =3.35381324e-01;
v1n[113] =6.35630317e-01;
v1n[114] =-1.53060155e-01;
v1n[115] =1.00724526e-01;
v1n[116] =-9.22481040e-02;
v1n[117] =-1.97381241e-02;
v1n[118] =-1.71198413e-02;
v1n[119] =1.81896499e+00;
v1n[120] =8.56001504e-01;
v1n[121] =7.48908929e-01;
v1n[122] =3.18464242e-01;
v1n[123] =9.34249005e-01;
v1n[124] =4.79607593e-02;
v1n[125] =0.00000000e+00;
v1n[126] =5.37416677e+00;
v1n[127] =1.36642534e+00;
v1n[128] =1.84719786e+00;
v1n[129] =1.25385599e+00;
v1n[130] =7.00665072e-01;
v1n[131] =2.74202457e+00;
v1n[132] =1.30190476e+00;
v1n[133] =8.00010170e-01;
v1n[134] =-9.72608655e-01;
v1n[135] =-3.59685610e-01;
v1n[136] =-3.42285454e-01;
v1n[137] =-1.21823645e-01;
v1n[138] =-7.48373527e-01;
v1n[139] =-2.26932066e-01;
v1n[140] =-2.13461040e-03;
v1n[141] =-6.45133327e-03;
v1n[142] =1.68465605e-02;
v1n[143] =-1.29411908e-03;
v1n[144] =-7.01517429e-01;
v1n[145] =-2.96214225e-01;
v1n[146] =-2.87549354e-01;
v1n[147] =-1.27730247e-01;
v1n[148] =-1.12243411e-01;
v1n[149] =4.51736364e-02;
v1n[150] =0.00000000e+00;
v1n[151] =-1.44562842e+00;
v1n[152] =-9.78896342e-02;
v1n[153] =-1.46078909e-01;
v1n[154] =-7.27249981e-01;
v1n[155] =-1.97868416e-01;
v1n[156] =-1.77646397e+00;
v1n[157] =5.32999825e-01;
v1n[158] =1.26728768e-01;
v1n[159] =-1.19200224e-02;
v1n[160] =4.72523386e-02;
v1n[161] =3.48672078e-02;
v1n[162] =3.37223079e-02;
v1n[163] =-2.89458631e-01;
v1n[164] =-1.68370480e-01;
v1n[165] =-4.33809693e-03;
v1n[166] =9.85525861e-03;
v1n[167] =-1.48319428e-02;
v1n[168] =-1.14977931e-03;
v1n[169] =1.85195450e-01;
v1n[170] =4.99807318e-02;
v1n[171] =9.55915595e-02;
v1n[172] =6.16698419e-02;
v1n[173] =-5.44653506e-01;
v1n[174] =-2.11679165e-01;
v1n[175] =0.00000000e+00;
v1n[176] =-4.91948229e+00;
v1n[177] =-2.27512719e-01;
v1n[178] =2.44720093e-01;
v1n[179] =1.02997961e+00;
v1n[180] =-6.25980826e-02;
v1n[181] =1.45280500e+00;
v1n[182] =-8.80394555e-02;
v1n[183] =4.17400458e-03;
v1n[184] =-1.39275388e-01;
v1n[185] =-1.21362283e-02;
v1n[186] =-5.21047089e-02;
v1n[187] =-2.84080748e-02;
v1n[188] =2.61943508e-01;
v1n[189] =7.37927158e-02;
v1n[190] =-1.48859047e-02;
v1n[191] =1.18313319e-02;
v1n[192] =1.30543852e-02;
v1n[193] =9.28873444e-04;
v1n[194] =-1.84460084e-01;
v1n[195] =-6.28618536e-03;
v1n[196] =-6.33854252e-02;
v1n[197] =-3.29970021e-02;
v1n[198] =3.25337357e-01;
v1n[199] =7.89343758e-02;
v1n[200] =0.00000000e+00;
v1n[201] =1.45877334e+00;
v1n[202] =-2.30875551e-02;
v1n[203] =-1.62604038e-01;
v1n[204] =-6.19041789e-01;
v1n[205] =-1.36275344e-01;
v1n[206] =-9.97514248e-01;
v1n[207] =-6.71534041e-02;
v1n[208] =-3.17332934e-02;
v1n[209] =7.01767535e-02;
v1n[210] =1.07289717e-03;
v1n[211] =1.94407037e-02;
v1n[212] =7.42487002e-03;
v1n[213] =-5.14143564e-02;
v1n[214] =2.10763577e-04;
v1n[215] =6.14626643e-03;
v1n[216] =-4.47263492e-03;
v1n[217] =-1.13605855e-02;
v1n[218] =4.76815351e-04;
v1n[219] =1.42063850e-02;
v1n[220] =-1.51010924e-02;
v1n[221] =7.65264638e-03;
v1n[222] =8.66164369e-03;
v1n[223] =-1.98619443e-01;
v1n[224] =-5.91052224e-02;
v1n[225] =0.00000000e+00;
v1n[226] =1.88215231e-01;
v1n[227] =-1.13487539e-02;
v1n[228] =-3.65986897e-02;
v1n[229] =3.64555493e-01;
v1n[230] =-3.97889931e-03;
v1n[231] =7.95108861e-01;
v1n[232] =-1.31844091e-01;
v1n[233] =-5.25382628e-02;
v1n[234] =4.06333769e-02;
v1n[235] =9.50041313e-03;
v1n[236] =9.03283682e-03;
v1n[237] =7.02918659e-05;
v1n[238] =8.05499309e-02;
v1n[239] =3.48950794e-02;
v1n[240] =9.31382996e-04;
v1n[241] =-1.42567632e-03;
v1n[242] =9.86589515e-03;
v1n[243] =6.55258637e-05;
v1n[244] =8.82756667e-03;
v1n[245] =1.69538211e-02;
v1n[246] =-7.19619044e-04;
v1n[247] =-5.87189237e-03;
v1n[248] =1.83933701e-01;
v1n[249] =5.84864056e-02;
v1n[250] =0.00000000e+00;
v1n[251] =5.90206675e-01;
v1n[252] =3.38779226e-02;
v1n[253] =-1.78364568e-02;
v1n[254] =-3.66894462e-01;
v1n[255] =-3.40675393e-02;
v1n[256] =-5.68399535e-01;
v1n[257] =2.01147742e-02;
v1n[258] =5.87806761e-03;
v1n[259] =1.78124378e-02;
v1n[260] =-3.65864211e-03;
v1n[261] =5.72251889e-03;
v1n[262] =3.53083084e-03;
v1n[263] =-5.84075405e-02;
v1n[264] =-1.39515451e-02;
v1n[265] =1.67482495e-03;
v1n[266] =-2.03444725e-03;
v1n[267] =-8.55461689e-03;
v1n[268] =-1.21415767e-04;
v1n[269] =1.61788564e-02;
v1n[270] =-1.03317598e-02;
v1n[271] =5.03188024e-03;
v1n[272] =4.33508292e-03;
v1n[273] =-1.06063557e-01;
v1n[274] =-2.65282256e-02;
v1n[275] =0.00000000e+00;
v1n[276] =-2.95933689e-01;
v1n[277] =1.85096762e-04;
v1n[278] =2.34697394e-02;
v1n[279] =2.84679947e-01;
v1n[280] =-9.99380249e-03;
v1n[281] =4.72329648e-01;
v1n[282] =-5.80205923e-03;
v1n[283] =-3.38894629e-03;
v1n[284] =-2.60361429e-03;
v1n[285] =2.85127853e-03;
v1n[286] =-3.65144737e-04;
v1n[287] =-4.09812884e-04;
v1n[288] =1.86730175e-02;
v1n[289] =3.67223806e-03;
v1n[290] =-1.17583212e-03;
v1n[291] =2.01721991e-03;
v1n[292] =7.39045662e-03;
v1n[293] =-1.04653703e-04;
v1n[294] =9.29168079e-03;
v1n[295] =7.76187052e-03;
v1n[296] =2.07420315e-03;
v1n[297] =-1.02573597e-03;
v1n[298] =6.28887187e-02;
v1n[299] =1.99042312e-02;
v1n[300] =0.00000000e+00;
v1n[301] =-5.74902994e-02;
v1n[302] =4.90766795e-03;
v1n[303] =1.20335129e-02;
v1n[304] =-2.05147564e-01;
v1n[305] =-2.19993112e-02;
v1n[306] =-3.31205187e-01;
v1n[307] =2.88238418e-02;
v1n[308] =1.15190493e-02;
v1n[309] =-9.09584458e-03;
v1n[310] =-2.07703247e-03;
v1n[311] =-2.04279710e-03;
v1n[312] =-4.89854482e-05;
v1n[313] =-1.72662992e-02;
v1n[314] =-7.55780881e-03;
v1n[315] =-3.13782305e-04;
v1n[316] =-8.60878873e-04;
v1n[317] =-6.36855079e-03;
v1n[318] =-3.71830972e-05;
v1n[319] =-3.27835450e-04;
v1n[320] =-4.90356717e-03;
v1n[321] =4.26749805e-04;
v1n[322] =1.48248300e-03;
v1n[323] =-4.80456234e-02;
v1n[324] =-1.41673650e-02;
v1n[325] =0.00000000e+00;
v1n[326] =-1.09162857e-01;
v1n[327] =-3.90819982e-03;
v1n[328] =6.34432525e-03;
v1n[329] =1.83578405e-01;
v1n[330] =-1.05588403e-02;
v1n[331] =2.86285837e-01;
v1n[332] =1.25953497e-03;
v1n[333] =7.45328200e-04;
v1n[334] =-6.17292238e-03;
v1n[335] =8.16813361e-04;
v1n[336] =-1.69776980e-03;
v1n[337] =-8.10439463e-04;
v1n[338] =1.15791436e-02;
v1n[339] =1.84851678e-03;
v1n[340] =-3.52783863e-04;
v1n[341] =1.71209925e-03;
v1n[342] =5.47621654e-03;
v1n[343] =9.16490039e-06;
v1n[344] =-1.70759221e-03;
v1n[345] =3.24084412e-03;
v1n[346] =-5.25242158e-04;
v1n[347] =-8.55460082e-04;
v1n[348] =2.82582555e-02;
v1n[349] =7.36985044e-03;
v1n[350] =0.00000000e+00;
v1n[351] =5.08925200e-02;
v1n[352] =2.93072885e-04;
v1n[353] =-2.90786067e-03;
v1n[354] =-1.45822053e-01;
v1n[355] =-1.08716773e-02;
v1n[356] =-2.01714616e-01;
v1n[357] =6.48568793e-03;
v1n[358] =2.96111969e-03;
v1n[359] =-2.47487013e-03;
v1n[360] =-8.85651739e-04;
v1n[361] =-7.07192865e-04;
v1n[362] =-1.27152242e-04;
v1n[363] =-4.57238944e-03;
v1n[364] =-1.67272533e-03;
v1n[365] =1.98394418e-04;
v1n[366] =-1.62319637e-03;
v1n[367] =-4.69809528e-03;
v1n[368] =2.25297834e-05;
v1n[369] =-3.22085714e-03;
v1n[370] =-2.14520355e-03;
v1n[371] =-6.92950817e-04;
v1n[372] =2.82904071e-04;
v1n[373] =-1.79077319e-02;
v1n[374] =-5.91439655e-03;
v1n[375] =0.00000000e+00;
v1n[376] =2.14838110e-02;
v1n[377] =-1.31494622e-03;
v1n[378] =-3.19117879e-03;
v1n[379] =1.14133903e-01;
v1n[380] =-5.99071295e-03;
v1n[381] =1.75548488e-01;
v1n[382] =-4.55294482e-03;
v1n[383] =-1.66889266e-03;
v1n[384] =6.19631275e-04;
v1n[385] =2.95586983e-04;
v1n[386] =5.25924258e-05;
v1n[387] =-1.25245275e-04;
v1n[388] =3.94159855e-03;
v1n[389] =1.45777902e-03;
v1n[390] =1.09682306e-04;
v1n[391] =1.32437234e-03;
v1n[392] =4.02269746e-03;
v1n[393] =1.66743392e-05;
v1n[394] =-1.21888189e-03;
v1n[395] =1.31910611e-03;
v1n[396] =-4.22091168e-04;
v1n[397] =-4.77812598e-04;
v1n[398] =1.30700684e-02;
v1n[399] =3.46236268e-03;
v1n[400] =0.00000000e+00;
v1n[401] =3.37642480e-02;
v1n[402] =2.41738150e-04;
v1n[403] =-2.81193710e-03;
v1n[404] =-9.81962380e-02;
v1n[405] =-6.50072437e-03;
v1n[406] =-1.25019625e-01;
v1n[407] =-7.47051630e-04;
v1n[408] =-2.46878391e-04;
v1n[409] =1.44141810e-03;
v1n[410] =-2.76890336e-04;
v1n[411] =3.51415222e-04;
v1n[412] =1.53659445e-04;
v1n[413] =-2.59318964e-03;
v1n[414] =-2.97840895e-04;
v1n[415] =1.27949071e-04;
v1n[416] =-1.51603369e-03;
v1n[417] =-3.43817794e-03;
v1n[418] =6.20455518e-06;
v1n[419] =-6.47002984e-04;
v1n[420] =-9.76301267e-04;
v1n[421] =-1.49318549e-04;
v1n[422] =1.47812492e-04;
v1n[423] =-7.77181450e-03;
v1n[424] =-2.28599053e-03;
v1n[425] =0.00000000e+00;
v1n[426] =-1.94823314e-03;
v1n[427] =-3.66459895e-04;
v1n[428] =-6.09672152e-04;
v1n[429] =7.76622868e-02;
v1n[430] =-5.38725113e-03;
v1n[431] =1.10250340e-01;
v1n[432] =-2.93720362e-03;
v1n[433] =-1.23066507e-03;
v1n[434] =1.34192444e-03;
v1n[435] =2.00986653e-04;
v1n[436] =3.38168825e-04;
v1n[437] =6.93924264e-05;
v1n[438] =1.05308566e-03;
v1n[439] =6.28599500e-04;
v1n[440] =-1.89486755e-06;
v1n[441] =1.31347815e-03;
v1n[442] =2.93354057e-03;
v1n[443] =-1.21401867e-06;
v1n[444] =4.36831989e-04;
v1n[445] =5.54597145e-04;
v1n[446] =5.52834228e-05;
v1n[447] =-1.32499154e-04;
v1n[448] =5.21987838e-03;
v1n[449] =1.64132253e-03;
v1n[450] =0.00000000e+00;
v1n[451] =-3.63306478e-03;
v1n[452] =1.42454175e-04;
v1n[453] =2.51939839e-04;
v1n[454] =-6.34537853e-02;
v1n[455] =-5.67348503e-03;
v1n[456] =-7.76327899e-02;
v1n[457] =-1.49327821e-04;
v1n[458] =-1.17097226e-04;
v1n[459] =6.42564192e-04;
v1n[460] =-3.79181437e-05;
v1n[461] =1.88277087e-04;
v1n[462] =8.87839080e-05;
v1n[463] =-1.03405499e-03;
v1n[464] =-1.73116298e-04;
v1n[465] =-1.76397087e-05;
v1n[466] =-1.20225936e-03;
v1n[467] =-2.49912267e-03;
v1n[468] =-4.02606879e-06;
v1n[469] =3.93696248e-04;
v1n[470] =-4.09225475e-04;
v1n[471] =1.15408279e-04;
v1n[472] =1.27089898e-04;
v1n[473] =-3.71603890e-03;
v1n[474] =-9.34161058e-04;
v1n[475] =0.00000000e+00;
v1n[476] =-1.08746585e-02;
v1n[477] =-4.87722249e-05;
v1n[478] =7.78461028e-04;
v1n[479] =5.29858939e-02;
v1n[480] =-4.92068987e-03;
v1n[481] =7.06386640e-02;
v1n[482] =-4.82763717e-04;
v1n[483] =-2.44749948e-04;
v1n[484] =1.21493911e-04;
v1n[485] =1.13058251e-04;
v1n[486] =4.50192760e-05;
v1n[487] =5.00068730e-06;
v1n[488] =5.97257289e-04;
v1n[489] =1.58433911e-04;
v1n[490] =-4.22307206e-05;
v1n[491] =1.15820841e-03;
v1n[492] =2.12594584e-03;
v1n[493] =-3.64196114e-06;
v1n[494] =4.78471206e-04;
v1n[495] =2.73218406e-04;
v1n[496] =1.09461863e-04;
v1n[497] =-2.59703085e-05;
v1n[498] =2.18169006e-03;
v1n[499] =7.34983263e-04;
v1n[500] =0.00000000e+00;
v1n[501] =-4.30618423e-03;
v1n[502] =1.39106013e-04;
v1n[503] =5.50388177e-04;
v1n[504] =-4.21916849e-02;
v1n[505] =-4.47285889e-03;
v1n[506] =-4.84335268e-02;
v1n[507] =6.21391054e-04;
v1n[508] =2.29841680e-04;
v1n[509] =-2.16203618e-04;
v1n[510] =-1.48929482e-05;
v1n[511] =-4.25809018e-05;
v1n[512] =-7.78024165e-07;
v1n[513] =-2.41130067e-04;
v1n[514] =-1.47988848e-04;
v1n[515] =-1.95010158e-05;
v1n[516] =-9.91660087e-04;
v1n[517] =-1.80604633e-03;
v1n[518] =-1.99836551e-06;
v1n[519] =1.75057047e-04;
v1n[520] =-1.53654654e-04;
v1n[521] =6.05124094e-05;
v1n[522] =6.17629102e-05;
v1n[523] =-1.58942646e-03;
v1n[524] =-4.19735832e-04;
v1n[525] =0.00000000e+00;
v1n[526] =-2.32311358e-03;
v1n[527] =4.50786452e-05;
v1n[528] =3.11283092e-04;
v1n[529] =3.51342126e-02;
v1n[530] =-3.68231088e-03;
v1n[531] =4.57344015e-02;
v1n[532] =2.50714569e-04;
v1n[533] =9.80602683e-05;
v1n[534] =-2.76478364e-04;
v1n[535] =2.73288584e-05;
v1n[536] =-6.89357881e-05;
v1n[537] =-2.63831343e-05;
v1n[538] =3.18721891e-04;
v1n[539] =1.26737845e-05;
v1n[540] =-9.81572536e-06;
v1n[541] =9.17262021e-04;
v1n[542] =1.53237328e-03;
v1n[543] =-4.32615045e-07;
v1n[544] =7.80092701e-05;
v1n[545] =1.34859635e-04;
v1n[546] =1.90634948e-05;
v1n[547] =-1.98287651e-05;
v1n[548] =1.05513993e-03;
v1n[549] =3.04891506e-04;
v1n[550] =0.00000000e+00;
v1n[551] =1.49752184e-03;
v1n[552] =7.29511080e-05;
v1n[553] =1.97955501e-05;
v1n[554] =-2.86135989e-02;
v1n[555] =-3.15007872e-03;
v1n[556] =-3.04393834e-02;
v1n[557] =4.30965755e-04;
v1n[558] =1.83575629e-04;
v1n[559] =-2.25325774e-04;
v1n[560] =-2.75291759e-05;
v1n[561] =-5.81984650e-05;
v1n[562] =-1.44507023e-05;
v1n[563] =-1.02071240e-04;
v1n[564] =-8.21971896e-05;
v1n[565] =4.73059031e-06;
v1n[566] =-8.12568385e-04;
v1n[567] =-1.29863903e-03;
v1n[568] =5.00317910e-07;
v1n[569] =-7.51546303e-05;
v1n[570] =-6.61182638e-05;
v1n[571] =-1.11473722e-05;
v1n[572] =1.54006776e-05;
v1n[573] =-6.35144140e-04;
v1n[574] =-2.07979559e-04;
v1n[575] =0.00000000e+00;
v1n[576] =1.64579169e-03;
v1n[577] =4.07747936e-06;
v1n[578] =-9.75864800e-05;
v1n[579] =2.32330904e-02;
v1n[580] =-2.63833659e-03;
v1n[581] =2.98334732e-02;
v1n[582] =8.93308991e-05;
v1n[583] =4.71562323e-05;
v1n[584] =-1.11157558e-04;
v1n[585] =-4.43123894e-06;
v1n[586] =-3.23525604e-05;
v1n[587] =-1.30403142e-05;
v1n[588] =8.72789039e-05;
v1n[589] =4.83930696e-06;
v1n[590] =6.52450835e-06;
v1n[591] =7.08602650e-04;
v1n[592] =1.09934284e-03;
v1n[593] =7.89777169e-07;
v1n[594] =-7.69376678e-05;
v1n[595] =5.45970744e-05;
v1n[596] =-2.11208485e-05;
v1n[597] =-1.84133470e-05;
v1n[598] =4.98212770e-04;
v1n[599] =1.18005730e-04;
v1n[600] =0.00000000e+00;
v1n[601] =1.82419490e-03;
v1n[602] =-1.65047467e-06;
v1n[603] =-1.43478004e-04;
v1n[604] =-1.92642678e-02;
v1n[605] =-2.32476844e-03;
v1n[606] =-1.91903729e-02;
v1n[607] =7.05148273e-05;
v1n[608] =3.77609976e-05;
v1n[609] =-2.22447989e-05;
v1n[610] =-1.83271805e-05;
v1n[611] =-8.49450177e-06;
v1n[612] =-1.65174796e-06;
v1n[613] =-8.59442727e-05;
v1n[614] =-2.21382565e-05;
v1n[615] =7.26287821e-06;
v1n[616] =-6.36350965e-04;
v1n[617] =-9.29654750e-04;
v1n[618] =6.64613031e-07;
v1n[619] =-8.87664958e-05;
v1n[620] =-3.70295743e-05;
v1n[621] =-2.08709539e-05;
v1n[622] =1.59975131e-06;
v1n[623] =-2.85717416e-04;
v1n[624] =-1.03079479e-04;
v1n[625] =0.00000000e+00;
v1n[626] =8.08087569e-04;
v1n[627] =-2.70111915e-05;
v1n[628] =-1.04745267e-04;
v1n[629] =1.55576489e-02;
v1n[630] =-2.06610983e-03;
v1n[631] =1.96502606e-02;
v1n[632] =-8.46283200e-05;
v1n[633] =-2.95297245e-05;
v1n[634] =3.61860965e-05;
v1n[635] =-1.87214446e-06;
v1n[636] =6.92598845e-06;
v1n[637] =7.20553500e-07;
v1n[638] =9.07283685e-06;
v1n[639] =1.68297393e-05;
v1n[640] =3.67519393e-06;
v1n[641] =5.47348175e-04;
v1n[642] =7.85329902e-04;
v1n[643] =3.77521673e-07;
v1n[644] =-4.38246115e-05;
v1n[645] =1.81723393e-05;
v1n[646] =-1.34404737e-05;
v1n[647] =-9.67779959e-06;
v1n[648] =2.05588060e-04;
v1n[649] =4.94715613e-05;
v1n[650] =0.00000000e+00;
v1n[651] =2.83031658e-04;
v1n[652] =-1.91508604e-05;
v1n[653] =-5.84107000e-05;
v1n[654] =-1.28354162e-02;
v1n[655] =-1.89332148e-03;
v1n[656] =-1.20489043e-02;
v1n[657] =-6.29460006e-05;
v1n[658] =-2.42394716e-05;
v1n[659] =5.30909689e-05;
v1n[660] =-3.87635469e-06;
v1n[661] =1.28721884e-05;
v1n[662] =4.38797934e-06;
v1n[663] =-4.37761899e-05;
v1n[664] =3.09160410e-06;
v1n[665] =1.43658834e-06;
v1n[666] =-4.81993052e-04;
v1n[667] =-6.62626087e-04;
v1n[668] =1.04166779e-07;
v1n[669] =-2.26912578e-05;
v1n[670] =-2.00672461e-05;
v1n[671] =-6.00827304e-06;
v1n[672] =1.62955206e-06;
v1n[673] =-1.45737761e-04;
v1n[674] =-4.43218673e-05;
v1n[675] =0.00000000e+00;
v1n[676] =-2.63479659e-04;
v1n[677] =-1.71022222e-05;
v1n[678] =-1.01666322e-05;
v1n[679] =1.04831899e-02;
v1n[680] =-1.73424571e-03;
v1n[681] =1.30870657e-02;
v1n[682] =-8.44267607e-05;
v1n[683] =-3.54428874e-05;
v1n[684] =4.81281178e-05;
v1n[685] =3.81706278e-06;
v1n[686] =1.22605868e-05;
v1n[687] =3.27894638e-06;
v1n[688] =8.35070079e-06;
v1n[689] =1.43372661e-05;
v1n[690] =-7.57967350e-07;
v1n[691] =4.18208572e-04;
v1n[692] =5.58160057e-04;
v1n[693] =-7.45021397e-08;
v1n[694] =6.28873420e-06;
v1n[695] =7.22478760e-06;
v1n[696] =1.69814885e-07;
v1n[697] =-2.48481138e-06;
v1n[698] =8.01868911e-05;
v1n[699] =2.64300170e-05;
v1n[700] =0.00000000e+00;
v1n[701] =-3.59098592e-04;
v1n[702] =-5.27613369e-06;
v1n[703] =1.55189117e-05;
v1n[704] =-8.54238323e-03;
v1n[705] =-1.59841386e-03;
v1n[706] =-7.46321415e-03;
v1n[707] =-3.80146338e-05;
v1n[708] =-1.74924694e-05;
v1n[709] =3.00428335e-05;
v1n[710] =2.03830140e-06;
v1n[711] =8.28429424e-06;
v1n[712] =2.83740439e-06;
v1n[713] =-8.72529534e-06;
v1n[714] =3.74732982e-06;
v1n[715] =-1.34389384e-06;
v1n[716] =-3.60094938e-04;
v1n[717] =-4.68738122e-04;
v1n[718] =-1.48564439e-07;
v1n[719] =1.31165267e-05;
v1n[720] =-8.23349537e-06;
v1n[721] =3.25599285e-06;
v1n[722] =2.54040631e-06;
v1n[723] =-7.02459705e-05;
v1n[724] =-1.53749610e-05;
v1n[725] =0.00000000e+00;
v1n[726] =-3.70052611e-04;
v1n[727] =-2.03911993e-07;
v1n[728] =2.69020671e-05;
v1n[729] =7.03353408e-03;
v1n[730] =-1.46242585e-03;
v1n[731] =8.75801575e-03;
v1n[732] =-2.34281817e-05;
v1n[733] =-1.15564523e-05;
v1n[734] =1.23056074e-05;
v1n[735] =3.66430965e-06;
v1n[736] =3.75453452e-06;
v1n[737] =1.04539002e-06;
v1n[738] =1.26079760e-05;
v1n[739] =5.04630166e-06;
v1n[740] =-1.46799611e-06;
v1n[741] =3.13096663e-04;
v1n[742] =3.91142699e-04;
v1n[743] =-1.45325397e-07;
v1n[744] =1.82769450e-05;
v1n[745] =4.68995368e-06;
v1n[746] =4.25628636e-06;
v1n[747] =1.75588896e-07;
v1n[748] =3.61298068e-05;
v1n[749] =1.52216717e-05;
v1n[750] =0.00000000e+00;
v1n[751] =-2.21673627e-04;
v1n[752] =4.89118061e-06;
v1n[753] =2.40861193e-05;
v1n[754] =-5.69273956e-03;
v1n[755] =-1.33634144e-03;
v1n[756] =-4.41491000e-03;
v1n[757] =5.69801790e-06;
v1n[758] =8.95948212e-07;
v1n[759] =-1.56266143e-06;
v1n[760] =1.44811232e-06;
v1n[761] =1.62556207e-07;
v1n[762] =2.42674895e-07;
v1n[763] =2.33697473e-06;
v1n[764] =-1.06102925e-06;
v1n[765] =-9.66382806e-07;
v1n[766] =-2.66401513e-04;
v1n[767] =-3.21930467e-04;
v1n[768] =-1.01886632e-07;
v1n[769] =1.29545198e-05;
v1n[770] =-2.21186681e-06;
v1n[771] =3.55953794e-06;
v1n[772] =1.79052301e-06;
v1n[773] =-2.82129490e-05;
v1n[774] =-4.92245862e-06;
v1n[775] =0.00000000e+00;
v1n[776] =-1.04150099e-04;
v1n[777] =5.12438541e-06;
v1n[778] =1.65982466e-05;
v1n[779] =4.64712665e-03;
v1n[780] =-1.21587054e-03;
v1n[781] =5.68193457e-03;
v1n[782] =1.13933264e-05;
v1n[783] =3.91156452e-06;
v1n[784] =-8.62672490e-06;
v1n[785] =1.14802762e-06;
v1n[786] =-1.89743020e-06;
v1n[787] =-5.87139512e-07;
v1n[788] =7.80661761e-06;
v1n[789] =-7.64952597e-07;
v1n[790] =-5.00743950e-07;
v1n[791] =2.27907664e-04;
v1n[792] =2.57405279e-04;
v1n[793] =-4.91548676e-08;
v1n[794] =8.77056580e-06;
v1n[795] =3.04280403e-06;
v1n[796] =2.31516745e-06;
v1n[797] =2.48894777e-07;
v1n[798] =1.88263882e-05;
v1n[799] =7.07390104e-06;
v1n[800] =0.00000000e+00;
v1n[801] =8.09370985e-06;
v1n[802] =4.66907736e-06;
v1n[803] =7.34631920e-06;
v1n[804] =-3.71056114e-03;
v1n[805] =-1.10738775e-03;
v1n[806] =-2.10756622e-03;
v1n[807] =1.77494007e-05;
v1n[808] =7.10323405e-06;
v1n[809] =-1.06180248e-05;
v1n[810] =-2.13801511e-07;
v1n[811] =-2.58203878e-06;
v1n[812] =-7.00260386e-07;
v1n[813] =9.94500797e-07;
v1n[814] =-2.68519199e-06;
v1n[815] =-4.73019461e-08;
v1n[816] =-1.90253754e-04;
v1n[817] =-1.94016837e-04;
v1n[818] =-5.96770520e-09;
v1n[819] =2.70081234e-06;
v1n[820] =-2.96288807e-07;
v1n[821] =9.60905674e-07;
v1n[822] =5.93977103e-07;
v1n[823] =-8.44598064e-06;
v1n[824] =-2.22077885e-06;
v1n[825] =0.00000000e+00;
v1n[826] =5.80583098e-05;
v1n[827] =2.61984962e-06;
v1n[828] =4.68551708e-07;
v1n[829] =2.88652804e-03;
v1n[830] =-1.00978494e-03;
v1n[831] =3.11933842e-03;
v1n[832] =1.30966905e-05;
v1n[833] =5.57899467e-06;
v1n[834] =-8.90326904e-06;
v1n[835] =-3.94857329e-07;
v1n[836] =-2.30980741e-06;
v1n[837] =-7.13128123e-07;
v1n[838] =1.67982280e-06;
v1n[839] =-1.68968771e-06;
v1n[840] =1.87117150e-07;
v1n[841] =1.54085681e-04;
v1n[842] =1.29443211e-04;
v1n[843] =2.03055083e-08;
v1n[844] =-6.14416409e-07;
v1n[845] =1.21127567e-06;
v1n[846] =-3.01820985e-08;
v1n[847] =-1.33617866e-07;
v1n[848] =7.71211995e-06;
v1n[849] =1.62506069e-06;
v1n[850] =0.00000000e+00;
v1n[851] =7.80820106e-05;
v1n[852] =1.04353298e-06;
v1n[853] =-3.80232124e-06;
v1n[854] =-2.12232708e-03;
v1n[855] =-9.24375429e-04;
v1n[856] =-1.88862357e-05;
v1n[857] =9.33367328e-06;
v1n[858] =4.20590519e-06;
v1n[859] =-5.76614757e-06;
v1n[860] =-7.23733341e-07;
v1n[861] =-1.57770874e-06;
v1n[862] =-4.67861380e-07;
v1n[863] =-1.19818936e-06;
v1n[864] =-1.51933484e-06;
v1n[865] =2.93231160e-07;
v1n[866] =-1.17757088e-04;
v1n[867] =-6.43178580e-05;
v1n[868] =3.02484530e-08;
v1n[869] =-2.84475263e-06;
v1n[870] =7.99485822e-08;
v1n[871] =-6.17488529e-07;
v1n[872] =-1.27979254e-07;
v1n[873] =4.46753753e-08;
v1n[874] =-9.50705603e-07;
v1n[875] =0.00000000e+00;
v1n[876] =6.58902123e-05;
v1n[877] =-3.32990686e-07;
v1n[878] =-5.21194265e-06;
v1n[879] =1.35674022e-03;
v1n[880] =-8.49668163e-04;
v1n[881] =8.60212591e-04;
v1n[882] =3.76840873e-06;
v1n[883] =1.93167542e-06;
v1n[884] =-2.48203672e-06;
v1n[885] =-5.81969246e-07;
v1n[886] =-7.62821706e-07;
v1n[887] =-2.46785949e-07;
v1n[888] =-1.19052990e-06;
v1n[889] =-6.41756468e-07;
v1n[890] =2.68287454e-07;
v1n[891] =7.85590101e-05;
v1n[892] =3.87222441e-06;
v1n[893] =2.84531679e-08;
v1n[894] =-3.37118079e-06;
v1n[895] =-1.66683533e-07;
v1n[896] =-8.12936825e-07;
v1n[897] =-1.95857710e-07;
v1n[898] =-5.94515081e-07;
v1n[899] =-1.11287717e-06;
v1n[900] =0.00000000e+00;
v1n[901] =4.42610889e-05;
v1n[902] =-9.84170636e-07;
v1n[903] =-4.81323082e-06;
v1n[904] =-6.33142853e-04;
v1n[905] =-7.84136931e-04;
v1n[906] =1.55232650e-03;
v1n[907] =-2.16285333e-07;
v1n[908] =2.10261346e-07;
v1n[909] =4.02432863e-08;
v1n[910] =-3.88542883e-07;
v1n[911] =-1.00398558e-07;
v1n[912] =-5.08352586e-08;
v1n[913] =-1.15817178e-06;
v1n[914] =-4.51822293e-08;
v1n[915] =1.93110594e-07;
v1n[916] =-3.92591200e-05;
v1n[917] =4.20542770e-05;
v1n[918] =2.04377851e-08;
v1n[919] =-2.77959197e-06;
v1n[920] =2.02394182e-07;
v1n[921] =-7.36161068e-07;
v1n[922] =-3.01222733e-07;
v1n[923] =3.39113809e-06;
v1n[924] =2.77267550e-07;
v1n[925] =0.00000000e+00;
v1n[926] =2.06835749e-05;
v1n[927] =-1.14355555e-06;
v1n[928] =-3.42101036e-06;
v1n[929] =-3.04487482e-05;
v1n[930] =-7.26524697e-04;
v1n[931] =-2.84493254e-04;
v1n[932] =-2.16204220e-06;
v1n[933] =-7.09525568e-07;
v1n[934] =1.51698418e-06;
v1n[935] =-2.37305594e-07;
v1n[936] =3.16504285e-07;
v1n[937] =9.01805965e-08;
v1n[938] =-1.35142104e-06;
v1n[939] =1.79903498e-07;
v1n[940] =1.01854103e-07;
v1n[941] =1.71577233e-06;
v1n[942] =-6.23307725e-05;
v1n[943] =1.08118382e-08;
v1n[944] =-2.04811328e-06;
v1n[945] =-6.02656350e-07;
v1n[946] =-5.32414085e-07;
v1n[947] =-6.89626717e-08;
v1n[948] =-3.68081143e-06;
v1n[949] =-1.47872273e-06;
v1n[950] =0.00000000e+00;
v1n[951] =1.11077748e-06;
v1n[952] =-1.00222919e-06;
v1n[953] =-1.77059231e-06;
v1n[954] =5.05480812e-04;
v1n[955] =-6.74862519e-04;
v1n[956] =1.51613700e-03;
v1n[957] =-3.53220484e-06;
v1n[958] =-1.38472813e-06;
v1n[959] =2.08285958e-06;
v1n[960] =9.16084921e-09;
v1n[961] =4.95360778e-07;
v1n[962] =1.30719212e-07;
v1n[963] =-2.59243111e-07;
v1n[964] =5.35250770e-07;
v1n[965] =2.15264030e-08;
v1n[966] =2.64562531e-05;
v1n[967] =5.13154670e-05;
v1n[968] =2.54656062e-09;
v1n[969] =-8.90716877e-07;
v1n[970] =6.01979852e-08;
v1n[971] =-2.82077601e-07;
v1n[972] =-1.48769408e-07;
v1n[973] =1.86835678e-06;
v1n[974] =4.05559083e-07;
v1n[975] =0.00000000e+00;
v1n[976] =-9.52987205e-06;
v1n[977] =-6.23796384e-07;
v1n[978] =-4.12318592e-07;
v1n[979] =-6.91887830e-04;
v1n[980] =-6.28367867e-04;
v1n[981] =4.18899918e-04;
v1n[982] =-2.89035238e-06;
v1n[983] =-1.20484978e-06;
v1n[984] =1.93596276e-06;
v1n[985] =5.68726447e-08;
v1n[986] =4.92504348e-07;
v1n[987] =1.49304288e-07;
v1n[988] =-4.23787080e-07;
v1n[989] =3.74232275e-07;
v1n[990] =-2.74326412e-08;
v1n[991] =-3.86814460e-05;
v1n[992] =-1.59049508e-05;
v1n[993] =-3.00520538e-09;
v1n[994] =-1.53754840e-07;
v1n[995] =-1.66814817e-07;
v1n[996] =-7.47520722e-08;
v1n[997] =-2.23143386e-08;
v1n[998] =-6.30062334e-07;
v1n[999] =-1.25616416e-07;
v1n[1000] =0.00000000e+00;
v1n[1001] =-1.50319074e-05;
v1n[1002] =-3.07544224e-07;
v1n[1003] =5.40372946e-07;
v1n[1004] =5.39661925e-04;
v1n[1005] =-5.85993740e-04;
v1n[1006] =1.96449633e-04;
v1n[1007] =-2.26635207e-06;
v1n[1008] =-9.95634877e-07;
v1n[1009] =1.44242026e-06;
v1n[1010] =1.31215270e-07;
v1n[1011] =3.84871767e-07;
v1n[1012] =1.15142977e-07;
v1n[1013] =7.56628178e-08;
v1n[1014] =3.42528915e-07;
v1n[1015] =-5.46660505e-08;
v1n[1016] =3.14526146e-05;
v1n[1017] =-2.33004809e-05;
v1n[1018] =-5.70586829e-09;
v1n[1019] =3.27526859e-07;
v1n[1020] =-2.71446926e-07;
v1n[1021] =6.72762528e-08;
v1n[1022] =5.96896336e-08;
v1n[1023] =-2.03104483e-06;
v1n[1024] =-4.25887046e-07;
v1n[1025] =0.00000000e+00;
v1n[1026] =-1.44497033e-05;
v1n[1027] =-1.41026726e-08;
v1n[1028] =9.88367728e-07;
v1n[1029] =-1.34407756e-04;
v1n[1030] =-5.47020022e-04;
v1n[1031] =1.24218597e-03;
v1n[1032] =-1.43727914e-06;
v1n[1033] =-6.70471843e-07;
v1n[1034] =8.39106918e-07;
v1n[1035] =1.53477715e-07;
v1n[1036] =2.38431471e-07;
v1n[1037] =6.91904128e-08;
v1n[1038] =4.02089329e-07;
v1n[1039] =2.61833864e-07;
v1n[1040] =-5.73711833e-08;
v1n[1041] =-9.03917329e-06;
v1n[1042] =4.15056258e-05;
v1n[1043] =-6.12642746e-09;
v1n[1044] =6.80536793e-07;
v1n[1045] =2.20411720e-07;
v1n[1046] =1.44134691e-07;
v1n[1047] =-1.85813952e-08;
v1n[1048] =1.96521050e-06;
v1n[1049] =7.66457808e-07;
v1n[1050] =0.00000000e+00;
v1n[1051] =-1.09722296e-05;
v1n[1052] =1.74384789e-07;
v1n[1053] =1.05538230e-06;
v1n[1054] =-2.83252016e-04;
v1n[1055] =-5.11293210e-04;
v1n[1056] =1.01769580e-04;
v1n[1057] =-2.80955874e-07;
v1n[1058] =-1.88860947e-07;
v1n[1059] =2.86498604e-07;
v1n[1060] =8.35631122e-08;
v1n[1061] =9.99517215e-08;
v1n[1062] =3.90922888e-08;
v1n[1063] =5.72142499e-08;
v1n[1064] =2.50228179e-08;
v1n[1065] =-4.67449164e-08;
v1n[1066] =-1.50793608e-05;
v1n[1067] =-2.68638147e-05;
v1n[1068] =-5.10455443e-09;
v1n[1069] =6.01228535e-07;
v1n[1070] =-1.11505122e-07;
v1n[1071] =1.55062690e-07;
v1n[1072] =7.31023412e-08;
v1n[1073] =-1.20025869e-06;
v1n[1074] =-1.75706614e-07;
v1n[1075] =0.00000000e+00;
v1n[1076] =-7.28459034e-06;
v1n[1077] =2.23066153e-07;
v1n[1078] =9.00976407e-07;
v1n[1079] =4.56971892e-04;
v1n[1080] =-4.78317580e-04;
v1n[1081] =3.46937561e-04;
v1n[1082] =8.25784974e-08;
v1n[1083] =-1.98291447e-08;
v1n[1084] =-9.07382351e-08;
v1n[1085] =8.09920071e-08;
v1n[1086] =-3.58252964e-09;
v1n[1087] =-3.06177641e-10;
v1n[1088] =3.41913968e-07;
v1n[1089] =2.38830539e-08;
v1n[1090] =-3.28079887e-08;
v1n[1091] =2.58811230e-05;
v1n[1092] =-7.65062168e-06;
v1n[1093] =-3.43957539e-09;
v1n[1094] =4.85835770e-07;
v1n[1095] =-5.27752175e-08;
v1n[1096] =1.30937187e-07;
v1n[1097] =5.85305748e-08;
v1n[1098] =-7.71817974e-07;
v1n[1099] =-1.01806458e-07;
v1n[1100] =0.00000000e+00;
v1n[1101] =-2.88053679e-06;
v1n[1102] =2.37931002e-07;
v1n[1103] =6.02355603e-07;
v1n[1104] =-2.70421969e-04;
v1n[1105] =-4.47900037e-04;
v1n[1106] =9.82490671e-04;
v1n[1107] =4.27218925e-07;
v1n[1108] =1.45164043e-07;
v1n[1109] =-3.05130861e-07;
v1n[1110] =4.11880875e-08;
v1n[1111] =-6.57680876e-08;
v1n[1112] =-1.93298162e-08;
v1n[1113] =2.56920205e-07;
v1n[1114] =-3.53236575e-08;
v1n[1115] =-1.55477293e-08;
v1n[1116] =-1.60884562e-05;
v1n[1117] =3.16882837e-05;
v1n[1118] =-1.73094664e-09;
v1n[1119] =3.71843221e-07;
v1n[1120] =2.37141452e-07;
v1n[1121] =9.02327894e-08;
v1n[1122] =-1.89100241e-08;
v1n[1123] =1.80197970e-06;
v1n[1124] =5.87853608e-07;
v1n[1125] =0.00000000e+00;
v1n[1126] =1.48227418e-07;
v1n[1127] =1.84372745e-07;
v1n[1128] =2.99532007e-07;
v1n[1129] =-1.10608202e-04;
v1n[1130] =-4.20019538e-04;
v1n[1131] =5.74352329e-05;
v1n[1132] =7.32858848e-07;
v1n[1133] =2.92141238e-07;
v1n[1134] =-3.81943274e-07;
v1n[1135] =-1.93876315e-08;
v1n[1136] =-9.13295667e-08;
v1n[1137] =-2.12056628e-08;
v1n[1138] =-8.50871051e-08;
v1n[1139] =-1.32635650e-07;
v1n[1140] =-2.55879158e-09;
v1n[1141] =-5.49709635e-06;
v1n[1142] =-2.35474340e-05;
v1n[1143] =-3.31691319e-10;
v1n[1144] =1.04487067e-07;
v1n[1145] =-7.84555971e-08;
v1n[1146] =4.15150984e-08;
v1n[1147] =4.05784917e-08;
v1n[1148] =-9.38556857e-07;
v1n[1149] =-2.60284382e-07;
v1n[1150] =0.00000000e+00;
v1n[1151] =1.67169504e-06;
v1n[1152] =9.29489008e-08;
v1n[1153] =5.14464482e-08;
v1n[1154] =3.53674060e-04;
v1n[1155] =-3.94337263e-04;
v1n[1156] =2.71123114e-04;
v1n[1157] =4.78715777e-07;
v1n[1158] =2.04697597e-07;
v1n[1159] =-3.47560940e-07;
v1n[1160] =-1.07417509e-08;
v1n[1161] =-9.05343342e-08;
v1n[1162] =-2.91382084e-08;
v1n[1163] =1.09357284e-07;
v1n[1164] =-5.33565894e-08;
v1n[1165] =5.11388159e-09;
v1n[1166] =1.99137855e-05;
v1n[1167] =-7.37115578e-06;
v1n[1168] =6.23621841e-10;
v1n[1169] =-3.01288189e-08;
v1n[1170] =-4.29520363e-08;
v1n[1171] =4.74866462e-09;
v1n[1172] =1.98723183e-08;
v1n[1173] =-5.49379259e-07;
v1n[1174] =-1.83859219e-07;
v1n[1175] =0.00000000e+00;
v1n[1176] =2.95308396e-06;
v1n[1177] =3.67358968e-08;
v1n[1178] =-1.47898670e-07;
v1n[1179] =-2.40354633e-04;
v1n[1180] =-3.70701646e-04;
v1n[1181] =8.35204508e-04;
v1n[1182] =3.81215328e-07;
v1n[1183] =1.75268432e-07;
v1n[1184] =-2.77038253e-07;
v1n[1185] =-2.54475042e-08;
v1n[1186] =-7.66430186e-08;
v1n[1187] =-2.52008079e-08;
v1n[1188] =3.17896931e-08;
v1n[1189] =-4.70512393e-08;
v1n[1190] =1.11382177e-08;
v1n[1191] =-1.41412965e-05;
v1n[1192] =2.76728503e-05;
v1n[1193] =1.15431161e-09;
v1n[1194] =-5.27251756e-08;
v1n[1195] =1.90227025e-07;
v1n[1196] =-1.56891655e-08;
v1n[1197] =-4.27712569e-08;
v1n[1198] =1.58293873e-06;
v1n[1199] =4.17157101e-07;
v1n[1200] =0.00000000e+00;
v1n[1201] =3.16187194e-06;
v1n[1202] =-2.20815331e-08;
v1n[1203] =-2.62285535e-07;
v1n[1204] =-1.03225499e-04;
v1n[1205] =-3.49061002e-04;
v1n[1206] =1.19536946e-04;
v1n[1207] =4.31970749e-07;
v1n[1208] =2.00655262e-07;
v1n[1209] =-2.08782442e-07;
v1n[1210] =-5.42832045e-08;
v1n[1211] =-5.99227864e-08;
v1n[1212] =-1.48741679e-08;
v1n[1213] =-2.17949823e-07;
v1n[1214] =-9.54368346e-08;
v1n[1215] =1.29728271e-08;
v1n[1216] =-5.29070077e-06;
v1n[1217] =-1.52626211e-05;
v1n[1218] =1.36118291e-09;
v1n[1219] =-1.34835587e-07;
v1n[1220] =-5.32459453e-08;
v1n[1221] =-2.47351505e-08;
v1n[1222] =9.88064402e-09;
v1n[1223] =-5.33601026e-07;
v1n[1224] =-1.99437293e-07;
v1n[1225] =0.00000000e+00;
v1n[1226] =2.69699560e-06;
v1n[1227] =-7.21870339e-08;
v1n[1228] =-3.03485752e-07;
v1n[1229] =3.05651109e-04;
v1n[1230] =-3.29114797e-04;
v1n[1231] =9.91342552e-05;
v1n[1232] =1.91639812e-07;
v1n[1233] =1.01714059e-07;
v1n[1234] =-1.49785949e-07;
v1n[1235] =-2.93388020e-08;
v1n[1236] =-4.62658033e-08;
v1n[1237] =-1.62468062e-08;
v1n[1238] =-2.15895271e-08;
v1n[1239] =-2.46953634e-08;
v1n[1240] =1.20064824e-08;
v1n[1241] =1.73120984e-05;
v1n[1242] =-1.40852256e-05;
v1n[1243] =1.36437025e-09;
v1n[1244] =-1.10089598e-07;
v1n[1245] =-9.21342924e-08;
v1n[1246] =-1.81222168e-08;
v1n[1247] =1.96089336e-08;
v1n[1248] =-8.60917581e-07;
v1n[1249] =-2.81852351e-07;
v1n[1250] =0.00000000e+00;
v1n[1251] =2.68158891e-06;
v1n[1252] =-7.05225475e-08;
v1n[1253] =-3.10072445e-07;
v1n[1254] =-1.49310241e-04;
v1n[1255] =-3.10665514e-04;
v1n[1256] =7.06331418e-04;
v1n[1257] =1.21780398e-07;
v1n[1258] =6.84641897e-08;
v1n[1259] =-1.24479784e-07;
v1n[1260] =-1.76357823e-08;
v1n[1261] =-3.85093692e-08;
v1n[1262] =-1.48405418e-08;
v1n[1263] =3.69826618e-08;
v1n[1264] =-5.63100026e-09;
v1n[1265] =1.18854528e-08;
v1n[1266] =-8.92597297e-06;
v1n[1267] =2.38520777e-05;
v1n[1268] =1.26027371e-09;
v1n[1269] =2.25436701e-08;
v1n[1270] =1.44004311e-07;
v1n[1271] =4.49936859e-10;
v1n[1272] =-3.13141714e-08;
v1n[1273] =1.23315505e-06;
v1n[1274] =3.49134846e-07;
v1n[1275] =0.00000000e+00;
v1n[1276] =2.43204600e-06;
v1n[1277] =-5.50906886e-08;
v1n[1278] =-2.69009412e-07;
v1n[1279] =-1.70644815e-04;
v1n[1280] =-2.93656835e-04;
v1n[1281] =2.73177104e-04;
v1n[1282] =2.84499262e-07;
v1n[1283] =1.27236685e-07;
v1n[1284] =-1.27973361e-07;
v1n[1285] =-3.10049512e-08;
v1n[1286] =-3.51611367e-08;
v1n[1287] =-7.73943469e-09;
v1n[1288] =-1.43302938e-07;
v1n[1289] =-6.47325532e-08;
v1n[1290] =1.06198570e-08;
v1n[1291] =-9.32339022e-06;
v1n[1292] =-2.32798134e-06;
v1n[1293] =1.09975477e-09;
v1n[1294] =7.54175580e-08;
v1n[1295] =1.19326388e-08;
v1n[1296] =1.92940486e-08;
v1n[1297] =4.11207365e-09;
v1n[1298] =5.91517429e-08;
v1n[1299] =3.46519567e-08;
v1n[1300] =0.00000000e+00;
v1n[1301] =1.76640869e-06;
v1n[1302] =-3.77356401e-08;
v1n[1303] =-1.81342411e-07;
v1n[1304] =2.55633408e-04;
v1n[1305] =-2.77864752e-04;
v1n[1306] =-5.75702914e-05;
v1n[1307] =2.06731290e-07;
v1n[1308] =8.51046409e-08;
v1n[1309] =-1.25203865e-07;
v1n[1310] =-5.43901258e-09;
v1n[1311] =-3.13433127e-08;
v1n[1312] =-8.73986733e-09;
v1n[1313] =4.33608498e-09;
v1n[1314] =-3.15746766e-08;
v1n[1315] =7.70478165e-09;
v1n[1316] =1.46632984e-05;
v1n[1317] =-2.07842278e-05;
v1n[1318] =8.85599349e-10;
v1n[1319] =1.17185625e-07;
v1n[1320] =-1.30429025e-07;
v1n[1321] =3.54560879e-08;
v1n[1322] =4.07214714e-08;
v1n[1323] =-1.19450540e-06;
v1n[1324] =-3.04357395e-07;
v1n[1325] =0.00000000e+00;
v1n[1326] =1.39337001e-06;
v1n[1327] =1.28368280e-08;
v1n[1328] =-7.39165515e-08;
v1n[1329] =-7.09985045e-06;
v1n[1330] =-2.63077323e-04;
v1n[1331] =4.86371070e-04;
v1n[1332] =7.82610329e-08;
v1n[1333] =2.07848793e-08;
v1n[1334] =-1.01443613e-07;
v1n[1335] =2.53686384e-08;
v1n[1336] =-2.19154078e-08;
v1n[1337] =-8.68106958e-09;
v1n[1338] =1.79514654e-07;
v1n[1339] =1.36479934e-08;
v1n[1340] =5.34242708e-09;
v1n[1341] =-8.13058185e-07;
v1n[1342] =1.36477560e-05;
v1n[1343] =5.85036319e-10;
v1n[1344] =2.12935660e-07;
v1n[1345] =5.95512166e-08;
v1n[1346] =4.60404623e-08;
v1n[1347] =-2.95928274e-09;
v1n[1348] =5.23045374e-07;
v1n[1349] =2.12969703e-07;
v1n[1350] =0.00000000e+00;
v1n[1351] =7.86865590e-07;
v1n[1352] =7.11415309e-08;
v1n[1353] =6.10415075e-08;
v1n[1354] =-2.33728030e-04;
v1n[1355] =-2.49260159e-04;
v1n[1356] =4.66500480e-04;
v1n[1357] =1.15683354e-07;
v1n[1358] =2.42952132e-08;
v1n[1359] =-4.44091406e-08;
v1n[1360] =2.36878673e-08;
v1n[1361] =-2.26775694e-09;
v1n[1362] =2.25997378e-09;
v1n[1363] =4.91154667e-08;
v1n[1364] =-1.88777869e-08;
v1n[1365] =1.91171769e-09;
v1n[1366] =-1.31617773e-05;
v1n[1367] =1.25046036e-05;
v1n[1368] =1.52121724e-10;
v1n[1369] =2.10268984e-07;
v1n[1370] =6.99314053e-08;
v1n[1371] =4.12138241e-08;
v1n[1372] =-9.90499601e-09;
v1n[1373] =6.80687997e-07;
v1n[1374] =2.64231013e-07;
v1n[1375] =0.00000000e+00;
v1n[1376] =-6.45466322e-07;
v1n[1377] =1.05894811e-07;
v1n[1378] =2.29476568e-07;
v1n[1379] =1.35728718e-04;
v1n[1380] =-2.36323527e-04;
v1n[1381] =-5.83435942e-05;
v1n[1382] =-4.57699886e-08;
v1n[1383] =-5.20364448e-08;
v1n[1384] =7.27036491e-08;
v1n[1385] =3.74177058e-08;
v1n[1386] =3.09020833e-08;
v1n[1387] =1.32401133e-08;
v1n[1388] =4.57443503e-08;
v1n[1389] =1.93538323e-09;
v1n[1390] =-4.36394157e-09;
v1n[1391] =8.00900207e-06;
v1n[1392] =-1.86175432e-05;
v1n[1393] =-4.45510765e-10;
v1n[1394] =8.53605843e-08;
v1n[1395] =-1.36337159e-07;
v1n[1396] =1.74033153e-08;
v1n[1397] =2.77490567e-08;
v1n[1398] =-1.05067568e-06;
v1n[1399] =-2.50729828e-07;
v1n[1400] =0.00000000e+00;
v1n[1401] =-2.32099455e-06;
v1n[1402] =1.34680152e-07;
v1n[1403] =3.97450214e-07;
v1n[1404] =1.49977097e-04;
v1n[1405] =-2.24111456e-04;
v1n[1406] =1.60457717e-04;
v1n[1407] =-4.51825897e-07;
v1n[1408] =-2.24751830e-07;
v1n[1409] =2.52287160e-07;
v1n[1410] =7.00471619e-08;
v1n[1411] =7.70338445e-08;
v1n[1412] =2.24558789e-08;
v1n[1413] =2.16899605e-07;
v1n[1414] =9.21511900e-08;
v1n[1415] =-1.15295193e-08;
v1n[1416] =8.26276157e-06;
v1n[1417] =-3.85823175e-06;
v1n[1418] =-1.20100766e-09;
v1n[1419] =-4.41645954e-08;
v1n[1420] =-8.47612491e-08;
v1n[1421] =-2.14817038e-08;
v1n[1422] =5.12273065e-10;
v1n[1423] =-4.74956828e-07;
v1n[1424] =-1.15023527e-07;
v1n[1425] =0.00000000e+00;
v1n[1426] =-4.02823354e-06;
v1n[1427] =1.51581476e-07;
v1n[1428] =5.36042330e-07;
v1n[1429] =-1.96500196e-04;
v1n[1430] =-2.12614881e-04;
v1n[1431] =5.29582031e-04;
v1n[1432] =-7.52329506e-07;
v1n[1433] =-3.47985392e-07;
v1n[1434] =4.65873350e-07;
v1n[1435] =7.05039617e-08;
v1n[1436] =1.30735977e-07;
v1n[1437] =3.92937014e-08;
v1n[1438] =1.34937280e-07;
v1n[1439] =1.25446475e-07;
v1n[1440] =-1.86531364e-08;
v1n[1441] =-1.13203741e-05;
v1n[1442] =1.90197668e-05;
v1n[1443] =-2.04897662e-09;
v1n[1444] =-2.14159209e-07;
v1n[1445] =5.46491756e-08;
v1n[1446] =-7.40012357e-08;
v1n[1447] =-5.04385602e-08;
v1n[1448] =8.79551404e-07;
v1n[1449] =2.27387609e-07;
v1n[1450] =0.00000000e+00;
v1n[1451] =-6.09049407e-06;
v1n[1452] =1.20027727e-07;
v1n[1453] =6.27773999e-07;
v1n[1454] =-5.66575696e-05;
v1n[1455] =-2.01892910e-04;
v1n[1456] =1.66884179e-04;
v1n[1457] =-9.96899545e-07;
v1n[1458] =-4.39783002e-07;
v1n[1459] =6.82791873e-07;
v1n[1460] =4.98614490e-08;
v1n[1461] =1.82679776e-07;
v1n[1462] =5.73792495e-08;
v1n[1463] =-7.07662177e-08;
v1n[1464] =1.32368778e-07;
v1n[1465] =-2.63354985e-08;
v1n[1466] =-2.93178908e-06;
v1n[1467] =-2.92471298e-06;
v1n[1468] =-2.85713285e-09;
v1n[1469] =-4.91436781e-07;
v1n[1470] =-6.73633271e-08;
v1n[1471] =-1.36384022e-07;
v1n[1472] =-4.10136371e-08;
v1n[1473] =-1.13439307e-07;
v1n[1474] =-1.28093719e-07;
v1n[1475] =0.00000000e+00;
v1n[1476] =-7.91451207e-06;
v1n[1477] =4.18571505e-08;
v1n[1478] =6.27960684e-07;
v1n[1479] =2.08163934e-04;
v1n[1480] =-1.91916681e-04;
v1n[1481] =-8.25893555e-05;
v1n[1482] =-1.35532791e-06;
v1n[1483] =-5.68130355e-07;
v1n[1484] =8.61458418e-07;
v1n[1485] =4.10017360e-08;
v1n[1486] =2.19898429e-07;
v1n[1487] =6.43411836e-08;
v1n[1488] =-7.64966665e-08;
v1n[1489] =1.94906455e-07;
v1n[1490] =-3.22611503e-08;
v1n[1491] =1.18477434e-05;
v1n[1492] =-1.70874618e-05;
v1n[1493] =-3.43251148e-09;
v1n[1494] =-7.62643007e-07;
v1n[1495] =-1.63814288e-07;
v1n[1496] =-1.94991842e-07;
v1n[1497] =-3.33310272e-08;
v1n[1498] =-9.44667227e-07;
v1n[1499] =-4.43750105e-07;
v1n[1500] =0.00000000e+00;
v1n[1501] =-8.49876506e-06;
v1n[1502] =-6.17177774e-08;
v1n[1503] =4.85366291e-07;
v1n[1504] =-1.70525104e-05;
v1n[1505] =-1.82681383e-04;
v1n[1506] =3.04844292e-04;
v1n[1507] =-1.54762370e-06;
v1n[1508] =-6.18126429e-07;
v1n[1509] =9.33268202e-07;
v1n[1510] =1.53449214e-08;
v1n[1511] =2.26649074e-07;
v1n[1512] =6.18544697e-08;
v1n[1513] =-1.09638089e-07;
v1n[1514] =2.30733924e-07;
v1n[1515] =-3.28492063e-08;
v1n[1516] =-1.24643489e-06;
v1n[1517] =7.40483513e-06;
v1n[1518] =-3.54419177e-09;
v1n[1519] =-9.14867226e-07;
v1n[1520] =-4.19621019e-09;
v1n[1521] =-2.33498758e-07;
v1n[1522] =-7.56963817e-08;
v1n[1523] =3.94784351e-07;
v1n[1524] =-1.22846230e-07;
v1n[1525] =0.00000000e+00;
v1n[1526] =-7.59274491e-06;
v1n[1527] =-1.97484694e-07;
v1n[1528] =1.83143423e-07;
v1n[1529] =-1.90366656e-04;
v1n[1530] =-1.74285084e-04;
v1n[1531] =4.19865081e-04;
v1n[1532] =-1.30823194e-06;
v1n[1533] =-4.82745777e-07;
v1n[1534] =8.28923210e-07;
v1n[1535] =-5.06079098e-08;
v1n[1536] =1.87599732e-07;
v1n[1537] =5.12562345e-08;
v1n[1538] =-3.67110301e-07;
v1n[1539] =1.64176163e-07;
v1n[1540] =-2.69488485e-08;
v1n[1541] =-1.07566224e-05;
v1n[1542] =1.44684392e-05;
v1n[1543] =-2.96216944e-09;
v1n[1544] =-9.67672059e-07;
v1n[1545] =9.38588032e-08;
v1n[1546] =-2.39051119e-07;
v1n[1547] =-8.94455864e-08;
v1n[1548] =1.06178544e-06;
v1n[1549] =2.47831939e-08;
v1n[1550] =0.00000000e+00;
v1n[1551] =-5.02789155e-06;
v1n[1552] =-3.62777142e-07;
v1n[1553] =-2.73652162e-07;
v1n[1554] =6.87409420e-05;
v1n[1555] =-1.66777989e-04;
v1n[1556] =1.42024502e-05;
v1n[1557] =-7.66633520e-07;
v1n[1558] =-2.19168442e-07;
v1n[1559] =5.04651024e-07;
v1n[1560] =-1.21812268e-07;
v1n[1561] =9.16360293e-08;
v1n[1562] =2.23587614e-08;
v1n[1563] =-5.49665660e-07;
v1n[1564] =6.45287824e-08;
v1n[1565] =-1.38966942e-08;
v1n[1566] =4.14237125e-06;
v1n[1567] =-9.95332101e-06;
v1n[1568] =-1.50916064e-09;
v1n[1569] =-8.90779444e-07;
v1n[1570] =4.90947129e-09;
v1n[1571] =-1.97844922e-07;
v1n[1572] =-4.14528576e-08;
v1n[1573] =-6.70474521e-08;
v1n[1574] =-3.09081633e-07;
v1n[1575] =0.00000000e+00;
v1n[1576] =-1.66015170e-07;
v1n[1577] =-5.13773508e-07;
v1n[1578] =-8.68522518e-07;
v1n[1579] =1.64642162e-04;
v1n[1580] =-1.60092980e-04;
v1n[1581] =-3.60019418e-05;
v1n[1582] =2.36248194e-08;
v1n[1583] =1.44044425e-07;
v1n[1584] =-6.17793846e-08;
v1n[1585] =-1.76093938e-07;
v1n[1586] =-6.51303990e-08;
v1n[1587] =-2.88149777e-08;
v1n[1588] =-5.01535220e-07;
v1n[1589] =-3.60574342e-08;
v1n[1590] =8.06600991e-09;
v1n[1591] =9.25241712e-06;
v1n[1592] =-1.20958231e-05;
v1n[1593] =8.80983102e-10;
v1n[1594] =-5.52479995e-07;
v1n[1595] =4.13334473e-08;
v1n[1596] =-9.59853627e-08;
v1n[1597] =-2.17402417e-09;
v1n[1598] =-2.09792804e-07;
v1n[1599] =-2.98656116e-07;
v1n[1600] =0.00000000e+00;
v1n[1601] =7.08427232e-06;
v1n[1602] =-6.07609032e-07;
v1n[1603] =-1.54115389e-06;
v1n[1604] =-9.93881720e-05;
v1n[1605] =-1.54152265e-04;
v1n[1606] =3.36294301e-04;
v1n[1607] =1.25602342e-06;
v1n[1608] =6.77395813e-07;
v1n[1609] =-8.63912584e-07;
v1n[1610] =-2.32487900e-07;
v1n[1611] =-2.76152207e-07;
v1n[1612] =-9.25068729e-08;
v1n[1613] =-4.64596593e-07;
v1n[1614] =-2.12264382e-07;
v1n[1615] =3.85554459e-08;
v1n[1616] =-5.82543710e-06;
v1n[1617] =1.11299420e-05;
v1n[1618] =4.10747239e-09;
v1n[1619] =8.51471616e-08;
v1n[1620] =2.49889789e-07;
v1n[1621] =7.04993524e-08;
v1n[1622] =1.61977068e-08;
v1n[1623] =1.09029584e-06;
v1n[1624] =2.01424527e-07;
v1n[1625] =0.00000000e+00;
v1n[1626] =1.57697799e-05;
v1n[1627] =-6.23845116e-07;
v1n[1628] =-2.17480057e-06;
v1n[1629] =-1.42026580e-04;
v1n[1630] =-1.48871939e-04;
v1n[1631] =3.24243594e-04;
v1n[1632] =2.87778812e-06;
v1n[1633] =1.34929277e-06;
v1n[1634] =-1.83714057e-06;
v1n[1635] =-2.82985779e-07;
v1n[1636] =-5.21231793e-07;
v1n[1637] =-1.60556928e-07;
v1n[1638] =-4.70915488e-07;
v1n[1639] =-4.65112812e-07;
v1n[1640] =7.34685446e-08;
v1n[1641] =-7.91689726e-06;
v1n[1642] =1.03791891e-05;
v1n[1643] =7.86075037e-09;
v1n[1644] =9.29236698e-07;
v1n[1645] =3.21924780e-07;
v1n[1646] =2.91513401e-07;
v1n[1647] =7.96302585e-08;
v1n[1648] =1.17128525e-06;
v1n[1649] =4.21460212e-07;
v1n[1650] =0.00000000e+00;
v1n[1651] =2.46873516e-05;
v1n[1652] =-5.31020327e-07;
v1n[1653] =-2.62718964e-06;
v1n[1654] =1.10722047e-04;
v1n[1655] =-1.44040509e-04;
v1n[1656] =-3.87402592e-05;
v1n[1657] =4.49557126e-06;
v1n[1658] =1.98885830e-06;
v1n[1659] =-2.84967440e-06;
v1n[1660] =-2.81978222e-07;
v1n[1661] =-7.65478970e-07;
v1n[1662] =-2.29086825e-07;
v1n[1663] =-2.40306829e-07;
v1n[1664] =-6.89270459e-07;
v1n[1665] =1.07485994e-07;
v1n[1666] =6.47178386e-06;
v1n[1667] =-1.14018697e-05;
v1n[1668] =1.16067756e-08;
v1n[1669] =1.90835913e-06;
v1n[1670] =2.27799659e-07;
v1n[1671] =5.46297148e-07;
v1n[1672] =1.84819844e-07;
v1n[1673] =-1.25158618e-07;
v1n[1674] =3.06896867e-07;
v1n[1675] =0.00000000e+00;
v1n[1676] =3.25901020e-05;
v1n[1677] =-2.85583996e-07;
v1n[1678] =-2.75031647e-06;
v1n[1679] =1.19426680e-04;
v1n[1680] =-1.39320534e-04;
v1n[1681] =-1.91308751e-05;
v1n[1682] =5.81072712e-06;
v1n[1683] =2.46613578e-06;
v1n[1684] =-3.72155599e-06;
v1n[1685] =-2.11715974e-07;
v1n[1686] =-9.61293646e-07;
v1n[1687] =-2.84470289e-07;
v1n[1688] =2.55070167e-07;
v1n[1689] =-8.36096452e-07;
v1n[1690] =1.34855020e-07;
v1n[1691] =6.66695688e-06;
v1n[1692] =-9.42167269e-06;
v1n[1693] =1.46084627e-08;
v1n[1694] =2.96792604e-06;
v1n[1695] =2.23376358e-07;
v1n[1696] =8.02539254e-07;
v1n[1697] =2.57914049e-07;
v1n[1698] =-4.04891907e-07;
v1n[1699] =5.29647607e-07;
v1n[1700] =0.00000000e+00;
v1n[1701] =3.75316950e-05;
v1n[1702] =1.24060096e-07;
v1n[1703] =-2.39055520e-06;
v1n[1704] =-1.19912899e-04;
v1n[1705] =-1.34371586e-04;
v1n[1706] =3.10021369e-04;
v1n[1707] =6.66365585e-06;
v1n[1708] =2.71241734e-06;
v1n[1709] =-4.23920974e-06;
v1n[1710] =-8.89890572e-08;
v1n[1711] =-1.05260751e-06;
v1n[1712] =-3.03899910e-07;
v1n[1713] =7.53559902e-07;
v1n[1714] =-9.26041227e-07;
v1n[1715] =1.47610799e-07;
v1n[1716] =-6.93134937e-06;
v1n[1717] =1.10640852e-05;
v1n[1718] =1.59920304e-08;
v1n[1719] =3.92756434e-06;
v1n[1720] =2.90646849e-07;
v1n[1721] =1.01243247e-06;
v1n[1722] =2.85184137e-07;
v1n[1723] =3.04168232e-07;
v1n[1724] =1.04118125e-06;
v1n[1725] =0.00000000e+00;
v1n[1726] =3.70346547e-05;
v1n[1727] =6.66660632e-07;
v1n[1728] =-1.41670573e-06;
v1n[1729] =-1.14124255e-04;
v1n[1730] =-1.28884947e-04;
v1n[1731] =2.78672275e-04;
v1n[1732] =6.68819030e-06;
v1n[1733] =2.58079474e-06;
v1n[1734] =-4.16653054e-06;
v1n[1735] =8.74559891e-08;
v1n[1736] =-9.81528996e-07;
v1n[1737] =-2.70597418e-07;
v1n[1738] =1.19664736e-06;
v1n[1739] =-9.10275722e-07;
v1n[1740] =1.36439726e-07;
v1n[1741] =-6.33806254e-06;
v1n[1742] =9.16884098e-06;
v1n[1743] =1.48604700e-08;
v1n[1744] =4.50130297e-06;
v1n[1745] =1.69901209e-07;
v1n[1746] =1.11689818e-06;
v1n[1747] =3.07592481e-07;
v1n[1748] =-1.84143745e-07;
v1n[1749] =1.15057902e-06;
v1n[1750] =0.00000000e+00;
v1n[1751] =2.91329426e-05;
v1n[1752] =1.29449344e-06;
v1n[1753] =2.25439908e-07;
v1n[1754] =1.12364463e-04;
v1n[1755] =-1.22544929e-04;
v1n[1756] =-4.52828454e-05;
v1n[1757] =5.37002251e-06;
v1n[1758] =1.87179246e-06;
v1n[1759] =-3.28169353e-06;
v1n[1760] =3.33500095e-07;
v1n[1761] =-6.98153810e-07;
v1n[1762] =-1.76726485e-07;
v1n[1763] =1.72629007e-06;
v1n[1764] =-6.79656404e-07;
v1n[1765] =9.43086041e-08;
v1n[1766] =6.50287632e-06;
v1n[1767] =-1.02507583e-05;
v1n[1768] =1.04488949e-08;
v1n[1769] =4.45054664e-06;
v1n[1770] =-1.37591609e-07;
v1n[1771] =1.05703433e-06;
v1n[1772] =3.07246650e-07;
v1n[1773] =-1.78336041e-06;
v1n[1774] =8.16763819e-07;
v1n[1775] =0.00000000e+00;
v1n[1776] =0.00000000e+00;
v1n[1777] =0.00000000e+00;
v1n[1778] =0.00000000e+00;
v1n[1779] =0.00000000e+00;
v1n[1780] =0.00000000e+00;
v1n[1781] =0.00000000e+00;
v1n[1782] =0.00000000e+00;
v1n[1783] =0.00000000e+00;
v1n[1784] =0.00000000e+00;
v1n[1785] =0.00000000e+00;
v1n[1786] =0.00000000e+00;
v1n[1787] =0.00000000e+00;
v1n[1788] =0.00000000e+00;
v1n[1789] =0.00000000e+00;
v1n[1790] =0.00000000e+00;
v1n[1791] =0.00000000e+00;
v1n[1792] =0.00000000e+00;
v1n[1793] =0.00000000e+00;
v1n[1794] =0.00000000e+00;
v1n[1795] =0.00000000e+00;
v1n[1796] =0.00000000e+00;
v1n[1797] =0.00000000e+00;
v1n[1798] =0.00000000e+00;
v1n[1799] =0.00000000e+00;
v1n[1800] =0.00000000e+00;
v1n[1801] =0.00000000e+00;
v1n[1802] =0.00000000e+00;
v1n[1803] =0.00000000e+00;
v1n[1804] =0.00000000e+00;
v1n[1805] =0.00000000e+00;
v1n[1806] =0.00000000e+00;
v1n[1807] =0.00000000e+00;
v1n[1808] =0.00000000e+00;
v1n[1809] =0.00000000e+00;
v1n[1810] =0.00000000e+00;
v1n[1811] =0.00000000e+00;
v1n[1812] =0.00000000e+00;
v1n[1813] =0.00000000e+00;
v1n[1814] =0.00000000e+00;
v1n[1815] =0.00000000e+00;
v1n[1816] =0.00000000e+00;
v1n[1817] =0.00000000e+00;
v1n[1818] =0.00000000e+00;
v1n[1819] =0.00000000e+00;
v1n[1820] =0.00000000e+00;
v1n[1821] =0.00000000e+00;
v1n[1822] =0.00000000e+00;
v1n[1823] =0.00000000e+00;
v1n[1824] =0.00000000e+00;
v1n[1825] =0.00000000e+00;
v1n[1826] =0.00000000e+00;
v1n[1827] =0.00000000e+00;
v1n[1828] =0.00000000e+00;
v1n[1829] =0.00000000e+00;
v1n[1830] =0.00000000e+00;
v1n[1831] =0.00000000e+00;
v1n[1832] =0.00000000e+00;
v1n[1833] =0.00000000e+00;
v1n[1834] =0.00000000e+00;
v1n[1835] =0.00000000e+00;
v1n[1836] =0.00000000e+00;
v1n[1837] =0.00000000e+00;
v1n[1838] =0.00000000e+00;
v1n[1839] =0.00000000e+00;
v1n[1840] =0.00000000e+00;
v1n[1841] =0.00000000e+00;
v1n[1842] =0.00000000e+00;
v1n[1843] =0.00000000e+00;
v1n[1844] =0.00000000e+00;
v1n[1845] =0.00000000e+00;
v1n[1846] =0.00000000e+00;
v1n[1847] =0.00000000e+00;
v1n[1848] =0.00000000e+00;
v1n[1849] =0.00000000e+00;
v1n[1850] =0.00000000e+00;
v1n[1851] =0.00000000e+00;
v1n[1852] =0.00000000e+00;
v1n[1853] =0.00000000e+00;
v1n[1854] =0.00000000e+00;
v1n[1855] =0.00000000e+00;
v1n[1856] =0.00000000e+00;
v1n[1857] =0.00000000e+00;
v1n[1858] =0.00000000e+00;
v1n[1859] =0.00000000e+00;
v1n[1860] =0.00000000e+00;
v1n[1861] =0.00000000e+00;
v1n[1862] =0.00000000e+00;
v1n[1863] =0.00000000e+00;
v1n[1864] =0.00000000e+00;
v1n[1865] =0.00000000e+00;
v1n[1866] =0.00000000e+00;
v1n[1867] =0.00000000e+00;
v1n[1868] =0.00000000e+00;
v1n[1869] =0.00000000e+00;
v1n[1870] =0.00000000e+00;
v1n[1871] =0.00000000e+00;
v1n[1872] =0.00000000e+00;
v1n[1873] =0.00000000e+00;
v1n[1874] =0.00000000e+00;
v1n[1875] =0.00000000e+00;
v1n[1876] =0.00000000e+00;
v1n[1877] =0.00000000e+00;
v1n[1878] =0.00000000e+00;
v1n[1879] =0.00000000e+00;
v1n[1880] =0.00000000e+00;
v1n[1881] =0.00000000e+00;
v1n[1882] =0.00000000e+00;
v1n[1883] =0.00000000e+00;
v1n[1884] =0.00000000e+00;
v1n[1885] =0.00000000e+00;
v1n[1886] =0.00000000e+00;
v1n[1887] =0.00000000e+00;
v1n[1888] =0.00000000e+00;
v1n[1889] =0.00000000e+00;
v1n[1890] =0.00000000e+00;
v1n[1891] =0.00000000e+00;
v1n[1892] =0.00000000e+00;
v1n[1893] =0.00000000e+00;
v1n[1894] =0.00000000e+00;
v1n[1895] =0.00000000e+00;
v1n[1896] =0.00000000e+00;
v1n[1897] =0.00000000e+00;
v1n[1898] =0.00000000e+00;
v1n[1899] =0.00000000e+00;
v1n[1900] =0.00000000e+00;
v1n[1901] =0.00000000e+00;
v1n[1902] =0.00000000e+00;
v1n[1903] =0.00000000e+00;
v1n[1904] =0.00000000e+00;
v1n[1905] =0.00000000e+00;
v1n[1906] =0.00000000e+00;
v1n[1907] =0.00000000e+00;
v1n[1908] =0.00000000e+00;
v1n[1909] =0.00000000e+00;
v1n[1910] =0.00000000e+00;
v1n[1911] =0.00000000e+00;
v1n[1912] =0.00000000e+00;
v1n[1913] =0.00000000e+00;
v1n[1914] =0.00000000e+00;
v1n[1915] =0.00000000e+00;
v1n[1916] =0.00000000e+00;
v1n[1917] =0.00000000e+00;
v1n[1918] =0.00000000e+00;
v1n[1919] =0.00000000e+00;
v1n[1920] =0.00000000e+00;
v1n[1921] =0.00000000e+00;
v1n[1922] =0.00000000e+00;
v1n[1923] =0.00000000e+00;
v1n[1924] =0.00000000e+00;
v1n[1925] =0.00000000e+00;
v1n[1926] =0.00000000e+00;
v1n[1927] =0.00000000e+00;
v1n[1928] =0.00000000e+00;
v1n[1929] =0.00000000e+00;
v1n[1930] =0.00000000e+00;
v1n[1931] =0.00000000e+00;
v1n[1932] =0.00000000e+00;
v1n[1933] =0.00000000e+00;
v1n[1934] =0.00000000e+00;
v1n[1935] =0.00000000e+00;
v1n[1936] =0.00000000e+00;
v1n[1937] =0.00000000e+00;
v1n[1938] =0.00000000e+00;
v1n[1939] =0.00000000e+00;
v1n[1940] =0.00000000e+00;
v1n[1941] =0.00000000e+00;
v1n[1942] =0.00000000e+00;
v1n[1943] =0.00000000e+00;
v1n[1944] =0.00000000e+00;
v1n[1945] =0.00000000e+00;
v1n[1946] =0.00000000e+00;
v1n[1947] =0.00000000e+00;
v1n[1948] =0.00000000e+00;
v1n[1949] =0.00000000e+00;
v1n[1950] =0.00000000e+00;
v1n[1951] =0.00000000e+00;
v1n[1952] =0.00000000e+00;
v1n[1953] =0.00000000e+00;
v1n[1954] =0.00000000e+00;
v1n[1955] =0.00000000e+00;
v1n[1956] =0.00000000e+00;
v1n[1957] =0.00000000e+00;
v1n[1958] =0.00000000e+00;
v1n[1959] =0.00000000e+00;
v1n[1960] =0.00000000e+00;
v1n[1961] =0.00000000e+00;
v1n[1962] =0.00000000e+00;
v1n[1963] =0.00000000e+00;
v1n[1964] =0.00000000e+00;
v1n[1965] =0.00000000e+00;
v1n[1966] =0.00000000e+00;
v1n[1967] =0.00000000e+00;
v1n[1968] =0.00000000e+00;
v1n[1969] =0.00000000e+00;
v1n[1970] =0.00000000e+00;
v1n[1971] =0.00000000e+00;
v1n[1972] =0.00000000e+00;
v1n[1973] =0.00000000e+00;
v1n[1974] =0.00000000e+00;
v1n[1975] =0.00000000e+00;
v1n[1976] =0.00000000e+00;
v1n[1977] =0.00000000e+00;
v1n[1978] =0.00000000e+00;
v1n[1979] =0.00000000e+00;
v1n[1980] =0.00000000e+00;
v1n[1981] =0.00000000e+00;
v1n[1982] =0.00000000e+00;
v1n[1983] =0.00000000e+00;
v1n[1984] =0.00000000e+00;
v1n[1985] =0.00000000e+00;
v1n[1986] =0.00000000e+00;
v1n[1987] =0.00000000e+00;
v1n[1988] =0.00000000e+00;
v1n[1989] =0.00000000e+00;
v1n[1990] =0.00000000e+00;
v1n[1991] =0.00000000e+00;
v1n[1992] =0.00000000e+00;
v1n[1993] =0.00000000e+00;
v1n[1994] =0.00000000e+00;
v1n[1995] =0.00000000e+00;
v1n[1996] =0.00000000e+00;
v1n[1997] =0.00000000e+00;
v1n[1998] =0.00000000e+00;
v1n[1999] =0.00000000e+00;
v1n[2000] =0.00000000e+00;
v1n[2001] =0.00000000e+00;
v1n[2002] =0.00000000e+00;
v1n[2003] =0.00000000e+00;
v1n[2004] =0.00000000e+00;
v1n[2005] =0.00000000e+00;
v1n[2006] =0.00000000e+00;
v1n[2007] =0.00000000e+00;
v1n[2008] =0.00000000e+00;
v1n[2009] =0.00000000e+00;
v1n[2010] =0.00000000e+00;
v1n[2011] =0.00000000e+00;
v1n[2012] =0.00000000e+00;
v1n[2013] =0.00000000e+00;
v1n[2014] =0.00000000e+00;
v1n[2015] =0.00000000e+00;
v1n[2016] =0.00000000e+00;
v1n[2017] =0.00000000e+00;
v1n[2018] =0.00000000e+00;
v1n[2019] =0.00000000e+00;
v1n[2020] =0.00000000e+00;
v1n[2021] =0.00000000e+00;
v1n[2022] =0.00000000e+00;
v1n[2023] =0.00000000e+00;
v1n[2024] =0.00000000e+00;
v1n[2025] =0.00000000e+00;
v1n[2026] =0.00000000e+00;
v1n[2027] =0.00000000e+00;
v1n[2028] =0.00000000e+00;
v1n[2029] =0.00000000e+00;
v1n[2030] =0.00000000e+00;
v1n[2031] =0.00000000e+00;
v1n[2032] =0.00000000e+00;
v1n[2033] =0.00000000e+00;
v1n[2034] =0.00000000e+00;
v1n[2035] =0.00000000e+00;
v1n[2036] =0.00000000e+00;
v1n[2037] =0.00000000e+00;
v1n[2038] =0.00000000e+00;
v1n[2039] =0.00000000e+00;
v1n[2040] =0.00000000e+00;
v1n[2041] =0.00000000e+00;
v1n[2042] =0.00000000e+00;
v1n[2043] =0.00000000e+00;
v1n[2044] =0.00000000e+00;
v1n[2045] =0.00000000e+00;
v1n[2046] =0.00000000e+00;
v1n[2047] =0.00000000e+00;
v1n[2048] =0.00000000e+00;
v1n[2049] =0.00000000e+00;
v1n[2050] =0.00000000e+00;
v1n[2051] =0.00000000e+00;
v1n[2052] =0.00000000e+00;
v1n[2053] =0.00000000e+00;
v1n[2054] =0.00000000e+00;
v1n[2055] =0.00000000e+00;
v1n[2056] =0.00000000e+00;
v1n[2057] =0.00000000e+00;
v1n[2058] =0.00000000e+00;
v1n[2059] =0.00000000e+00;
v1n[2060] =0.00000000e+00;
v1n[2061] =0.00000000e+00;
v1n[2062] =0.00000000e+00;
v1n[2063] =0.00000000e+00;
v1n[2064] =0.00000000e+00;
v1n[2065] =0.00000000e+00;
v1n[2066] =0.00000000e+00;
v1n[2067] =0.00000000e+00;
v1n[2068] =0.00000000e+00;
v1n[2069] =0.00000000e+00;
v1n[2070] =0.00000000e+00;
v1n[2071] =0.00000000e+00;
v1n[2072] =0.00000000e+00;
v1n[2073] =0.00000000e+00;
v1n[2074] =0.00000000e+00;
v1n[2075] =0.00000000e+00;
v1n[2076] =0.00000000e+00;
v1n[2077] =0.00000000e+00;
v1n[2078] =0.00000000e+00;
v1n[2079] =0.00000000e+00;
v1n[2080] =0.00000000e+00;
v1n[2081] =0.00000000e+00;
v1n[2082] =0.00000000e+00;
v1n[2083] =0.00000000e+00;
v1n[2084] =0.00000000e+00;
v1n[2085] =0.00000000e+00;
v1n[2086] =0.00000000e+00;
v1n[2087] =0.00000000e+00;
v1n[2088] =0.00000000e+00;
v1n[2089] =0.00000000e+00;
v1n[2090] =0.00000000e+00;
v1n[2091] =0.00000000e+00;
v1n[2092] =0.00000000e+00;
v1n[2093] =0.00000000e+00;
v1n[2094] =0.00000000e+00;
v1n[2095] =0.00000000e+00;
v1n[2096] =0.00000000e+00;
v1n[2097] =0.00000000e+00;
v1n[2098] =0.00000000e+00;
v1n[2099] =0.00000000e+00;
v1n[2100] =0.00000000e+00;
v1n[2101] =0.00000000e+00;
v1n[2102] =0.00000000e+00;
v1n[2103] =0.00000000e+00;
v1n[2104] =0.00000000e+00;
v1n[2105] =0.00000000e+00;
v1n[2106] =0.00000000e+00;
v1n[2107] =0.00000000e+00;
v1n[2108] =0.00000000e+00;
v1n[2109] =0.00000000e+00;
v1n[2110] =0.00000000e+00;
v1n[2111] =0.00000000e+00;
v1n[2112] =0.00000000e+00;
v1n[2113] =0.00000000e+00;
v1n[2114] =0.00000000e+00;
v1n[2115] =0.00000000e+00;
v1n[2116] =0.00000000e+00;
v1n[2117] =0.00000000e+00;
v1n[2118] =0.00000000e+00;
v1n[2119] =0.00000000e+00;
v1n[2120] =0.00000000e+00;
v1n[2121] =0.00000000e+00;
v1n[2122] =0.00000000e+00;
v1n[2123] =0.00000000e+00;
v1n[2124] =0.00000000e+00;
v1n[2125] =0.00000000e+00;
v1n[2126] =0.00000000e+00;
v1n[2127] =0.00000000e+00;
v1n[2128] =0.00000000e+00;
v1n[2129] =0.00000000e+00;
v1n[2130] =0.00000000e+00;
v1n[2131] =0.00000000e+00;
v1n[2132] =0.00000000e+00;
v1n[2133] =0.00000000e+00;
v1n[2134] =0.00000000e+00;
v1n[2135] =0.00000000e+00;
v1n[2136] =0.00000000e+00;
v1n[2137] =0.00000000e+00;
v1n[2138] =0.00000000e+00;
v1n[2139] =0.00000000e+00;
v1n[2140] =0.00000000e+00;
v1n[2141] =0.00000000e+00;
v1n[2142] =0.00000000e+00;
v1n[2143] =0.00000000e+00;
v1n[2144] =0.00000000e+00;
v1n[2145] =0.00000000e+00;
v1n[2146] =0.00000000e+00;
v1n[2147] =0.00000000e+00;
v1n[2148] =0.00000000e+00;
v1n[2149] =0.00000000e+00;
v1n[2150] =0.00000000e+00;
v1n[2151] =0.00000000e+00;
v1n[2152] =0.00000000e+00;
v1n[2153] =0.00000000e+00;
v1n[2154] =0.00000000e+00;
v1n[2155] =0.00000000e+00;
v1n[2156] =0.00000000e+00;
v1n[2157] =0.00000000e+00;
v1n[2158] =0.00000000e+00;
v1n[2159] =0.00000000e+00;
v1n[2160] =0.00000000e+00;
v1n[2161] =0.00000000e+00;
v1n[2162] =0.00000000e+00;
v1n[2163] =0.00000000e+00;
v1n[2164] =0.00000000e+00;
v1n[2165] =0.00000000e+00;
v1n[2166] =0.00000000e+00;
v1n[2167] =0.00000000e+00;
v1n[2168] =0.00000000e+00;
v1n[2169] =0.00000000e+00;
v1n[2170] =0.00000000e+00;
v1n[2171] =0.00000000e+00;
v1n[2172] =0.00000000e+00;
v1n[2173] =0.00000000e+00;
v1n[2174] =0.00000000e+00;
v1n[2175] =0.00000000e+00;
v1n[2176] =0.00000000e+00;
v1n[2177] =0.00000000e+00;
v1n[2178] =0.00000000e+00;
v1n[2179] =0.00000000e+00;
v1n[2180] =0.00000000e+00;
v1n[2181] =0.00000000e+00;
v1n[2182] =0.00000000e+00;
v1n[2183] =0.00000000e+00;
v1n[2184] =0.00000000e+00;
v1n[2185] =0.00000000e+00;
v1n[2186] =0.00000000e+00;
v1n[2187] =0.00000000e+00;
v1n[2188] =0.00000000e+00;
v1n[2189] =0.00000000e+00;
v1n[2190] =0.00000000e+00;
v1n[2191] =0.00000000e+00;
v1n[2192] =0.00000000e+00;
v1n[2193] =0.00000000e+00;
v1n[2194] =0.00000000e+00;
v1n[2195] =0.00000000e+00;
v1n[2196] =0.00000000e+00;
v1n[2197] =0.00000000e+00;
v1n[2198] =0.00000000e+00;
v1n[2199] =0.00000000e+00;
v1n[2200] =0.00000000e+00;
v1n[2201] =0.00000000e+00;
v1n[2202] =0.00000000e+00;
v1n[2203] =0.00000000e+00;
v1n[2204] =0.00000000e+00;
v1n[2205] =0.00000000e+00;
v1n[2206] =0.00000000e+00;
v1n[2207] =0.00000000e+00;
v1n[2208] =0.00000000e+00;
v1n[2209] =0.00000000e+00;
v1n[2210] =0.00000000e+00;
v1n[2211] =0.00000000e+00;
v1n[2212] =0.00000000e+00;
v1n[2213] =0.00000000e+00;
v1n[2214] =0.00000000e+00;
v1n[2215] =0.00000000e+00;
v1n[2216] =0.00000000e+00;
v1n[2217] =0.00000000e+00;
v1n[2218] =0.00000000e+00;
v1n[2219] =0.00000000e+00;
v1n[2220] =0.00000000e+00;
v1n[2221] =0.00000000e+00;
v1n[2222] =0.00000000e+00;
v1n[2223] =0.00000000e+00;
v1n[2224] =0.00000000e+00;
v1n[2225] =0.00000000e+00;
v1n[2226] =0.00000000e+00;
v1n[2227] =0.00000000e+00;
v1n[2228] =0.00000000e+00;
v1n[2229] =0.00000000e+00;
v1n[2230] =0.00000000e+00;
v1n[2231] =0.00000000e+00;
v1n[2232] =0.00000000e+00;
v1n[2233] =0.00000000e+00;
v1n[2234] =0.00000000e+00;
v1n[2235] =0.00000000e+00;
v1n[2236] =0.00000000e+00;
v1n[2237] =0.00000000e+00;
v1n[2238] =0.00000000e+00;
v1n[2239] =0.00000000e+00;
v1n[2240] =0.00000000e+00;
v1n[2241] =0.00000000e+00;
v1n[2242] =0.00000000e+00;
v1n[2243] =0.00000000e+00;
v1n[2244] =0.00000000e+00;
v1n[2245] =0.00000000e+00;
v1n[2246] =0.00000000e+00;
v1n[2247] =0.00000000e+00;
v1n[2248] =0.00000000e+00;
v1n[2249] =0.00000000e+00;
v1n[2250] =0.00000000e+00;
v1n[2251] =0.00000000e+00;
v1n[2252] =0.00000000e+00;
v1n[2253] =0.00000000e+00;
v1n[2254] =0.00000000e+00;
v1n[2255] =0.00000000e+00;
v1n[2256] =0.00000000e+00;
v1n[2257] =0.00000000e+00;
v1n[2258] =0.00000000e+00;
v1n[2259] =0.00000000e+00;
v1n[2260] =0.00000000e+00;
v1n[2261] =0.00000000e+00;
v1n[2262] =0.00000000e+00;
v1n[2263] =0.00000000e+00;
v1n[2264] =0.00000000e+00;
v1n[2265] =0.00000000e+00;
v1n[2266] =0.00000000e+00;
v1n[2267] =0.00000000e+00;
v1n[2268] =0.00000000e+00;
v1n[2269] =0.00000000e+00;
v1n[2270] =0.00000000e+00;
v1n[2271] =0.00000000e+00;
v1n[2272] =0.00000000e+00;
v1n[2273] =0.00000000e+00;
v1n[2274] =0.00000000e+00;
v1n[2275] =0.00000000e+00;
v1n[2276] =0.00000000e+00;
v1n[2277] =0.00000000e+00;
v1n[2278] =0.00000000e+00;
v1n[2279] =0.00000000e+00;
v1n[2280] =0.00000000e+00;
v1n[2281] =0.00000000e+00;
v1n[2282] =0.00000000e+00;
v1n[2283] =0.00000000e+00;
v1n[2284] =0.00000000e+00;
v1n[2285] =0.00000000e+00;
v1n[2286] =0.00000000e+00;
v1n[2287] =0.00000000e+00;
v1n[2288] =0.00000000e+00;
v1n[2289] =0.00000000e+00;
v1n[2290] =0.00000000e+00;
v1n[2291] =0.00000000e+00;
v1n[2292] =0.00000000e+00;
v1n[2293] =0.00000000e+00;
v1n[2294] =0.00000000e+00;
v1n[2295] =0.00000000e+00;
v1n[2296] =0.00000000e+00;
v1n[2297] =0.00000000e+00;
v1n[2298] =0.00000000e+00;
v1n[2299] =0.00000000e+00;
v1n[2300] =0.00000000e+00;
v1n[2301] =0.00000000e+00;
v1n[2302] =0.00000000e+00;
v1n[2303] =0.00000000e+00;
v1n[2304] =0.00000000e+00;
v1n[2305] =0.00000000e+00;
v1n[2306] =0.00000000e+00;
v1n[2307] =0.00000000e+00;
v1n[2308] =0.00000000e+00;
v1n[2309] =0.00000000e+00;
v1n[2310] =0.00000000e+00;
v1n[2311] =0.00000000e+00;
v1n[2312] =0.00000000e+00;
v1n[2313] =0.00000000e+00;
v1n[2314] =0.00000000e+00;
v1n[2315] =0.00000000e+00;
v1n[2316] =0.00000000e+00;
v1n[2317] =0.00000000e+00;
v1n[2318] =0.00000000e+00;
v1n[2319] =0.00000000e+00;
v1n[2320] =0.00000000e+00;
v1n[2321] =0.00000000e+00;
v1n[2322] =0.00000000e+00;
v1n[2323] =0.00000000e+00;
v1n[2324] =0.00000000e+00;
v1n[2325] =0.00000000e+00;
v1n[2326] =0.00000000e+00;
v1n[2327] =0.00000000e+00;
v1n[2328] =0.00000000e+00;
v1n[2329] =0.00000000e+00;
v1n[2330] =0.00000000e+00;
v1n[2331] =0.00000000e+00;
v1n[2332] =0.00000000e+00;
v1n[2333] =0.00000000e+00;
v1n[2334] =0.00000000e+00;
v1n[2335] =0.00000000e+00;
v1n[2336] =0.00000000e+00;
v1n[2337] =0.00000000e+00;
v1n[2338] =0.00000000e+00;
v1n[2339] =0.00000000e+00;
v1n[2340] =0.00000000e+00;
v1n[2341] =0.00000000e+00;
v1n[2342] =0.00000000e+00;
v1n[2343] =0.00000000e+00;
v1n[2344] =0.00000000e+00;
v1n[2345] =0.00000000e+00;
v1n[2346] =0.00000000e+00;
v1n[2347] =0.00000000e+00;
v1n[2348] =0.00000000e+00;
v1n[2349] =0.00000000e+00;
v1n[2350] =0.00000000e+00;
v1n[2351] =0.00000000e+00;
v1n[2352] =0.00000000e+00;
v1n[2353] =0.00000000e+00;
v1n[2354] =0.00000000e+00;
v1n[2355] =0.00000000e+00;
v1n[2356] =0.00000000e+00;
v1n[2357] =0.00000000e+00;
v1n[2358] =0.00000000e+00;
v1n[2359] =0.00000000e+00;
v1n[2360] =0.00000000e+00;
v1n[2361] =0.00000000e+00;
v1n[2362] =0.00000000e+00;
v1n[2363] =0.00000000e+00;
v1n[2364] =0.00000000e+00;
v1n[2365] =0.00000000e+00;
v1n[2366] =0.00000000e+00;
v1n[2367] =0.00000000e+00;
v1n[2368] =0.00000000e+00;
v1n[2369] =0.00000000e+00;
v1n[2370] =0.00000000e+00;
v1n[2371] =0.00000000e+00;
v1n[2372] =0.00000000e+00;
v1n[2373] =0.00000000e+00;
v1n[2374] =0.00000000e+00;
v1n[2375] =0.00000000e+00;
v1n[2376] =0.00000000e+00;
v1n[2377] =0.00000000e+00;
v1n[2378] =0.00000000e+00;
v1n[2379] =0.00000000e+00;
v1n[2380] =0.00000000e+00;
v1n[2381] =0.00000000e+00;
v1n[2382] =0.00000000e+00;
v1n[2383] =0.00000000e+00;
v1n[2384] =0.00000000e+00;
v1n[2385] =0.00000000e+00;
v1n[2386] =0.00000000e+00;
v1n[2387] =0.00000000e+00;
v1n[2388] =0.00000000e+00;
v1n[2389] =0.00000000e+00;
v1n[2390] =0.00000000e+00;
v1n[2391] =0.00000000e+00;
v1n[2392] =0.00000000e+00;
v1n[2393] =0.00000000e+00;
v1n[2394] =0.00000000e+00;
v1n[2395] =0.00000000e+00;
v1n[2396] =0.00000000e+00;
v1n[2397] =0.00000000e+00;
v1n[2398] =0.00000000e+00;
v1n[2399] =0.00000000e+00;
v1n[2400] =0.00000000e+00;
v1n[2401] =0.00000000e+00;
v1n[2402] =0.00000000e+00;
v1n[2403] =0.00000000e+00;
v1n[2404] =0.00000000e+00;
v1n[2405] =0.00000000e+00;
v1n[2406] =0.00000000e+00;
v1n[2407] =0.00000000e+00;
v1n[2408] =0.00000000e+00;
v1n[2409] =0.00000000e+00;
v1n[2410] =0.00000000e+00;
v1n[2411] =0.00000000e+00;
v1n[2412] =0.00000000e+00;
v1n[2413] =0.00000000e+00;
v1n[2414] =0.00000000e+00;
v1n[2415] =0.00000000e+00;
v1n[2416] =0.00000000e+00;
v1n[2417] =0.00000000e+00;
v1n[2418] =0.00000000e+00;
v1n[2419] =0.00000000e+00;
v1n[2420] =0.00000000e+00;
v1n[2421] =0.00000000e+00;
v1n[2422] =0.00000000e+00;
v1n[2423] =0.00000000e+00;
v1n[2424] =0.00000000e+00;
v1n[2425] =0.00000000e+00;
v1n[2426] =0.00000000e+00;
v1n[2427] =0.00000000e+00;
v1n[2428] =0.00000000e+00;
v1n[2429] =0.00000000e+00;
v1n[2430] =0.00000000e+00;
v1n[2431] =0.00000000e+00;
v1n[2432] =0.00000000e+00;
v1n[2433] =0.00000000e+00;
v1n[2434] =0.00000000e+00;
v1n[2435] =0.00000000e+00;
v1n[2436] =0.00000000e+00;
v1n[2437] =0.00000000e+00;
v1n[2438] =0.00000000e+00;
v1n[2439] =0.00000000e+00;
v1n[2440] =0.00000000e+00;
v1n[2441] =0.00000000e+00;
v1n[2442] =0.00000000e+00;
v1n[2443] =0.00000000e+00;
v1n[2444] =0.00000000e+00;
v1n[2445] =0.00000000e+00;
v1n[2446] =0.00000000e+00;
v1n[2447] =0.00000000e+00;
v1n[2448] =0.00000000e+00;
v1n[2449] =0.00000000e+00;
v1n[2450] =0.00000000e+00;
v1n[2451] =0.00000000e+00;
v1n[2452] =0.00000000e+00;
v1n[2453] =0.00000000e+00;
v1n[2454] =0.00000000e+00;
v1n[2455] =0.00000000e+00;
v1n[2456] =0.00000000e+00;
v1n[2457] =0.00000000e+00;
v1n[2458] =0.00000000e+00;
v1n[2459] =0.00000000e+00;
v1n[2460] =0.00000000e+00;
v1n[2461] =0.00000000e+00;
v1n[2462] =0.00000000e+00;
v1n[2463] =0.00000000e+00;
v1n[2464] =0.00000000e+00;
v1n[2465] =0.00000000e+00;
v1n[2466] =0.00000000e+00;
v1n[2467] =0.00000000e+00;
v1n[2468] =0.00000000e+00;
v1n[2469] =0.00000000e+00;
v1n[2470] =0.00000000e+00;
v1n[2471] =0.00000000e+00;
v1n[2472] =0.00000000e+00;
v1n[2473] =0.00000000e+00;
v1n[2474] =0.00000000e+00;
v1n[2475] =0.00000000e+00;
v1n[2476] =0.00000000e+00;
v1n[2477] =0.00000000e+00;
v1n[2478] =0.00000000e+00;
v1n[2479] =0.00000000e+00;
v1n[2480] =0.00000000e+00;
v1n[2481] =0.00000000e+00;
v1n[2482] =0.00000000e+00;
v1n[2483] =0.00000000e+00;
v1n[2484] =0.00000000e+00;
v1n[2485] =0.00000000e+00;
v1n[2486] =0.00000000e+00;
v1n[2487] =0.00000000e+00;
v1n[2488] =0.00000000e+00;
v1n[2489] =0.00000000e+00;
v1n[2490] =0.00000000e+00;
v1n[2491] =0.00000000e+00;
v1n[2492] =0.00000000e+00;
v1n[2493] =0.00000000e+00;
v1n[2494] =0.00000000e+00;
v1n[2495] =0.00000000e+00;
v1n[2496] =0.00000000e+00;
v1n[2497] =0.00000000e+00;
v1n[2498] =0.00000000e+00;
v1n[2499] =0.00000000e+00;
return;
}