[cig-commits] r7641 - in mc/1D/hc/trunk: . hcplates
cjoneill at geodynamics.org
cjoneill at geodynamics.org
Tue Jul 10 23:24:18 PDT 2007
Author: cjoneill
Date: 2007-07-10 23:24:16 -0700 (Tue, 10 Jul 2007)
New Revision: 7641
Added:
mc/1D/hc/trunk/hcplates/
mc/1D/hc/trunk/hcplates/Makefile
mc/1D/hc/trunk/hcplates/README
mc/1D/hc/trunk/hcplates/crlb_residual.c
mc/1D/hc/trunk/hcplates/crlb_vector_plm.c
mc/1D/hc/trunk/hcplates/data
mc/1D/hc/trunk/hcplates/enes
mc/1D/hc/trunk/hcplates/findplate.c
mc/1D/hc/trunk/hcplates/get_loads.c
mc/1D/hc/trunk/hcplates/hc.h
mc/1D/hc/trunk/hcplates/hc_findplate.h
mc/1D/hc/trunk/hcplates/hc_ptrot.h
mc/1D/hc/trunk/hcplates/hc_ptrot_init.c
mc/1D/hc/trunk/hcplates/hc_ptrot_mem.c
mc/1D/hc/trunk/hcplates/hcplates.c
mc/1D/hc/trunk/hcplates/hcplates.h
mc/1D/hc/trunk/hcplates/hcplates_init.c
mc/1D/hc/trunk/hcplates/hcplates_write_output.c
mc/1D/hc/trunk/hcplates/integrate_torques.c
mc/1D/hc/trunk/hcplates/nrutil.h
mc/1D/hc/trunk/hcplates/parameter_file.default
mc/1D/hc/trunk/hcplates/plates_ids.ixz
mc/1D/hc/trunk/hcplates/plates_propagator.c
mc/1D/hc/trunk/hcplates/point.j
mc/1D/hc/trunk/hcplates/ptrot.c
mc/1D/hc/trunk/hcplates/read_unitrots_get_coeff.c
mc/1D/hc/trunk/hcplates/run_example.mk
mc/1D/hc/trunk/hcplates/solve_rot.c
mc/1D/hc/trunk/hcplates/svbksb.c
mc/1D/hc/trunk/hcplates/svdcmp.c
mc/1D/hc/trunk/hcplates/zero_arrays.c
Log:
added hcplates
Added: mc/1D/hc/trunk/hcplates/Makefile
===================================================================
--- mc/1D/hc/trunk/hcplates/Makefile 2007-07-11 00:35:53 UTC (rev 7640)
+++ mc/1D/hc/trunk/hcplates/Makefile 2007-07-11 06:24:16 UTC (rev 7641)
@@ -0,0 +1,25 @@
+CC=gcc
+INCS=hcplates.h
+INCS1=hc_findplate.h
+INCS2=hc_ptrot.h
+LIBS=-lm
+LIST = hcplates.c hcplates_init.c zero_arrays.c plates_propagator.c get_loads.c read_unitrots_get_coeff.c integrate_torques.c crlb_vector_plm.c solve_rot.c svdcmp.c svbksb.c crlb_residual.c hcplates_write_output.c
+LIST2 = findplate.c
+LIST3 = ptrot.c hc_ptrot_mem.c hc_ptrot_init.c
+
+all: hcplates hc_findplate hc_ptrot
+
+hcplates: $(INCS) $(LIST)
+
+ ${CC} $(INCS) -o hcplates $(LIST) $(CFLAGS) $(LIBS)
+
+hc_findplate: $(INCS1) $(LIST2)
+
+ gcc -g $(INCS1) -o hc_findplate $(LIST2)
+
+hc_ptrot: $(INCS2) $(LIST3)
+
+ gcc -g $(INCS2) -o hc_ptrot $(LIST3)
+
+
+
Added: mc/1D/hc/trunk/hcplates/README
===================================================================
--- mc/1D/hc/trunk/hcplates/README 2007-07-11 00:35:53 UTC (rev 7640)
+++ mc/1D/hc/trunk/hcplates/README 2007-07-11 06:24:16 UTC (rev 7641)
@@ -0,0 +1,21 @@
+Routines for calculating plate velocities based on mantle flow, given pre-existing plate configurations.
+From the fortran routines of Lithgow-Bertelloni. C written by O'Neill.
+contact coneill at els.mq.edu.au with any queries.
+
+To compile the code type
+ make all
+
+The essential data files are:
+ -enes (contains no. plates, and no, boundary points on each plate)
+ -data (contains plate boundary info described by enes)
+ -point.j (contains the load data, ie. internal density anomalies).
+
+All other data can be created by the routines.
+
+The programs provided are
+ hc_findplate - create a plates id file containing plate id info for each lat/long
+ hc_ptrot - calculate unit rotation coefficients for use in calculating plate vels (see CRLB's papers for details)
+ hcplates - calculates stage poles and surface lat/long velocity fields based flow from internal density anomalies
+
+Try running run_examples.mk to see if they are working ok, and for an examples on parameter usage.
+Use the -h option for details on input parameters (eg. hcplates -h)
Added: mc/1D/hc/trunk/hcplates/crlb_residual.c
===================================================================
--- mc/1D/hc/trunk/hcplates/crlb_residual.c 2007-07-11 00:35:53 UTC (rev 7640)
+++ mc/1D/hc/trunk/hcplates/crlb_residual.c 2007-07-11 06:24:16 UTC (rev 7641)
@@ -0,0 +1,29 @@
+#include <math.h>
+#include "hcplates.h"
+
+/* Calculates the residuals, from CRLB
+Assumes res & bmag are passed in as pointers*/
+
+void crlb_residual(struct hc_plates_arrays *A, int n, int np, double *res, double *bmag)
+{
+ int res1, bmag1, i, j;
+ double sum;
+
+ *res=0.0;
+ *bmag=0.0;
+
+ for (i=1; i<=n; i++) {
+ *bmag += A->fins[i]*A->fins[i];
+ sum=0.0;
+ for (j=1; j<=n; j++) {
+ sum += A->fex[i][j]*A->rots[j];
+ }
+ sum += -A->fins[i];
+ *res += sum*sum;
+ }
+ res1=sqrt(*res);
+ *res = res1;
+ bmag1=sqrt(*bmag);
+ *bmag=bmag1;
+}
+
Added: mc/1D/hc/trunk/hcplates/crlb_vector_plm.c
===================================================================
--- mc/1D/hc/trunk/hcplates/crlb_vector_plm.c 2007-07-11 00:35:53 UTC (rev 7640)
+++ mc/1D/hc/trunk/hcplates/crlb_vector_plm.c 2007-07-11 06:24:16 UTC (rev 7641)
@@ -0,0 +1,162 @@
+#include <math.h>
+#include "hcplates.h"
+
+/*
+This subroutine computes the plm, the theta derivative of plm,
+c and plm/sin(theta). It uses the code plm.f to compute
+c fully normalized Legendre polynomials. It uses the
+c code polyfact.f to fix up the normalization factors.
+c The formula for the derivative of plm w.r.t. theta
+c is given by
+c
+c d(plm)/dtheta=plm*L*cos(theta)/sin(theta)-pl(m-1)*(L+m)/sin(theta)
+c
+c for associated Legendre functions. Hence, the need to take care of the
+c full normalization.
+c
+c Theta is the co-latitude in radians, n is the maximum harmonic degree,
+c and p, dpdt, and pbyst are the spherical harmonic quantities,
+c with an indexing scheme given by
+c
+c k=(l+1)*(l+2)/2-m
+c
+ */
+
+/* Which are pointers?
+Assumes p, dpdt & pbyst are passed in as pointers
+Size of pfact? */
+
+void crlb_vecplm(struct hc_plates_params *plates, struct hc_plates_arrays *A, double theta, int n)
+{
+ double pfact[2000];
+ double stheta, ctheta;
+ int l, m, k, k1;
+ double pi;
+
+ pi=M_PI;
+
+ /*printf(" Compute normalization factors, n=%d \n",n);
+ printf(" Check plates structure: plates->NPDIM=%d \n",plates->NPDIM);
+ printf(" Check A struct: A->y4in[1][1]=%lf\n",A->y4in[1][1]);*/
+/* Compute normalization factors */
+ crlb_polyfact(n,pfact); //WORKING
+ /*printf(" Done polyfact \n");
+ printf(" Compute the plm, A->y4in[1][1]=%lf\n",A->y4in[1][1]);
+
+
+ printf(" Compute the plm, A->y4in[0][0]=%lf\n",A->y4in[1][1]);*/
+/* Compute the plm */
+ crlb_plm(theta,n,A); // WORKING!
+
+/* Do not allow sin(theta) to be zero since it is a divisor */
+ if(theta < 0.001) {
+ theta=0.001;
+ }
+ if ((M_PI - theta) < 0.001) {
+ theta= M_PI - 0.001;
+ }
+
+ stheta=sin(theta);
+ ctheta=cos(theta);
+//printf(" vecplm 2 \n");
+/* Compute the derivative of the plm */
+ for (l=0; l<=n; l++) {
+ for (m=0; m<=l; m++) {
+ k=(l+1)*(l+2)/2-m;
+ k1=(l)*(l+1)/2-m; /*ambiguous */
+ // printf(" vecplm 3 \n");
+ A->dpdt[k]=l*(A->p[k])*ctheta;
+
+ /*Make sure the second term in the derivative formula exists before adding it in */
+ if (l > m ) {
+ // printf(" if vecplm 4 \n");
+ A->dpdt[k] += (-1)*(l+m)*(A->p[k1])*pfact[k]/pfact[k1];
+ }
+ A->dpdt[k] /= stheta; /*Think this is causing probs */
+
+ /* Compute plm.sin(theta) */
+ A->pbyst[k] = A->p[k]/stheta;
+ // printf(" vecplm 5:%i/%i k:%i \n",l,m,k);
+
+ }
+ }
+ // printf(" Finished crlb_vecplm \n");
+}
+
+
+/*
+c****This subroutine computes the normalization factors to convert
+c associated Legendre functions into fully normalized functions.
+c Note: These factors are not used by plm.f even though it
+c does compute fully normalized functions.
+Assumes pfact is passed in as pointer, n is just by value
+*/
+
+void crlb_polyfact(int n, double *pfact)
+{
+ int l, k, m;
+/* pfact[0]=0; */
+ pfact[1]=1.0;
+/* printf(" In polyfact, pfact[1]=%lf\n",pfact[1]); */
+ for (l=1; l <= n ; l++) {
+ k=(l+1)*(l+2)/2;
+ pfact[k]=sqrt(2.0*(2.0*l+1.0));
+ for (m=1; m <= l; m++) {
+ k=(l+1)*(l+2)/2-m;
+ pfact[k]=pfact[k+1]*sqrt(1.0/((l+m)*(l-m+1.0)));
+// printf(" %i/%i %le\n",l,m,pfact[k]);
+ }
+ }
+/*Fix up the m=0 terms here */
+ for (l=1; l<=n; l++) {
+ k=(l+1)*(l+2)/2;
+ pfact[k]=sqrt(2.0*l+1.0);
+ }
+/* printf(" In end polyfact, pfact[1]=%lf, k=%d\n",pfact[1],k); */
+}
+
+/* c
+c****This subroutine efficiently computes fully normalized Legendre funtions
+c according to the normalization given in Stacey's book, Appendix C.
+c ASsumes p is pointer, the rest passed in by value
+theta is in radians already
+*/
+
+void crlb_plm(double theta, int n, struct hc_plates_arrays *A)
+{
+ int k,l,m,kold;
+ double stheta, ctheta,pi,top,den;
+
+ kold=1;
+ pi = M_PI;
+ if(theta < 0.001) {
+ theta=0.001;
+ }
+ if ((M_PI - theta) < 0.001) {
+ theta= M_PI - 0.001;
+ }
+
+ stheta=sin(theta); //*pi/180 ??
+ ctheta=cos(theta);
+
+ //printf(" stheta %lf ctheta %lf\n",stheta,ctheta);
+
+ A->p[0]=0.0;
+ A->p[1]=sqrt(2.0);
+ for (l=1; l<=n; l++) {
+ k=(l+1)*(l+2)/2-l;
+ A->p[k]=stheta*sqrt((2.0*l+1.0)/(2.0*l))*(A->p[kold]);
+ kold=k;
+ for (m=l-1;m>=0;m--) {
+ k=(l+1)*(l+2)/2-m;
+ den=sqrt((l+m+1.0)*(l-m));
+ top=sqrt((l-m-1.0)*(l+m+2.0));
+ A->p[k]=2.0*(m+1.0)*ctheta/(stheta*den)*(A->p[k-1])-(top/den)*(A->p[k-2]);
+ if (m==0) {
+ A->p[k] /= sqrt(2.0);
+ }
+ // printf(" %i/%i %le \n",l,m,A->p[k]);
+ }
+ }
+ A->p[1]=1.0;
+}
Property changes on: mc/1D/hc/trunk/hcplates/crlb_vector_plm.c
___________________________________________________________________
Name: svn:executable
+ *
Added: mc/1D/hc/trunk/hcplates/data
===================================================================
--- mc/1D/hc/trunk/hcplates/data 2007-07-11 00:35:53 UTC (rev 7640)
+++ mc/1D/hc/trunk/hcplates/data 2007-07-11 06:24:16 UTC (rev 7641)
@@ -0,0 +1,1062 @@
+ 85.0 20.0
+ 84.9 19.5
+ 84.9 19.5
+ 84.9 19.5
+ 84.9 19.5
+ 84.9 19.5
+ 84.9 19.5
+ 84.9 19.5
+ 84.9 19.6
+ 84.7 20.1
+ 84.5 20.8
+ 84.1 21.7
+ 84.0 21.8
+ 83.4 21.4
+ 82.4 21.0
+ 81.7 20.2
+ 81.1 19.5
+ 80.3 18.7
+ 80.1 18.7
+ 79.4 19.4
+ 78.3 19.1
+ 76.9 19.2
+ 74.1 19.4
+ 73.5 19.3
+ 73.2 19.3
+ 72.7 18.2
+ 71.5 14.2
+ 70.2 9.1
+ 69.7 6.2
+ 68.1 1.2
+ 67.1 358.3
+ 60.4 339.0
+ 57.3 333.3
+ 54.2 331.1
+ 52.0 329.6
+ 52.0 329.6
+ 52.0 329.6
+ 52.0 329.6
+ 52.0 329.6
+ 52.0 329.6
+ 52.0 329.7
+ 51.6 331.9
+ 50.7 333.5
+ 50.0 334.1
+ 49.5 334.1
+ 47.8 334.2
+ 46.0 334.1
+ 43.8 333.9
+ 42.9 333.6
+ 39.5 332.2
+ 37.3 331.5
+ 36.6 330.8
+ 35.4 328.9
+ 35.4 329.1
+ 35.4 329.1
+ 35.4 329.1
+ 35.2 329.0
+ 33.5 326.3
+ 33.3 323.4
+ 32.0 321.8
+ 30.4 320.1
+ 27.4 318.6
+ 24.6 317.0
+ 21.7 315.1
+ 20.1 316.0
+ 20.2 316.2
+ 14.8 314.4
+ 13.7 315.9
+ 12.1 316.1
+ 11.2 317.3
+ 9.4 317.3
+ 9.3 319.8
+ 6.5 321.5
+ 6.2 323.1
+ 5.0 327.0
+ 4.8 327.8
+ 4.0 328.4
+ 2.1 328.8
+ 1.5 330.7
+ -0.6 331.0
+ -1.3 336.0
+ -2.4 336.1
+ -2.4 339.6
+ -2.1 343.7
+ -3.2 345.4
+ -5.7 346.0
+ -6.8 346.2
+ -10.2 344.7
+ -11.6 345.1
+ -14.8 343.7
+ -24.1 345.6
+ -27.0 344.0
+ -28.3 343.7
+ -30.5 344.4
+ -31.3 344.7
+ -33.5 344.3
+ -35.5 342.8
+ -38.2 339.8
+ -41.4 340.5
+ -42.8 340.0
+ -44.6 341.0
+ -45.2 340.3
+ -46.4 339.9
+ -47.7 341.3
+ -49.1 341.4
+ -49.4 343.8
+ -49.4 345.0
+ -50.1 345.6
+ -51.8 346.7
+ -53.9 347.3
+ -55.7 348.3
+ -57.8 349.8
+ -57.8 349.8
+ -57.8 349.9
+ -56.1 355.0
+ -54.3 4.0
+ -53.7 8.8
+ -52.6 14.5
+ -52.8 17.9
+ -52.6 22.2
+ -52.1 26.9
+ -50.4 30.5
+ -47.3 35.2
+ -45.2 39.8
+ -43.8 43.4
+ -43.1 45.3
+ -40.9 48.4
+ -34.4 57.7
+ -34.4 57.7
+ -34.4 58.0
+ -32.1 53.5
+ -29.3 53.7
+ -25.9 54.2
+ -22.0 55.9
+ -17.1 58.0
+ -11.9 59.7
+ -5.1 61.5
+ -1.2 59.1
+ 2.8 57.7
+ 5.4 57.1
+ 7.9 57.3
+ 10.4 57.6
+ 13.3 58.9
+ 17.7 61.0
+ 21.5 64.2
+ 24.9 66.1
+ 30.5 69.2
+ 30.1 69.0
+ 30.5 69.6
+ 31.5 72.1
+ 32.7 76.4
+ 33.7 79.8
+ 34.2 84.2
+ 34.2 87.9
+ 34.1 90.3
+ 34.1 90.3
+ 34.7 90.9
+ 32.1 90.8
+ 28.4 90.8
+ 24.3 90.8
+ 20.4 91.4
+ 9.9 91.3
+ 6.2 92.2
+ 2.7 93.7
+ -0.4 95.3
+ -2.7 97.3
+ -4.8 98.9
+ -4.8 98.9
+ -4.8 98.9
+ -4.8 98.9
+ -4.8 98.9
+ -4.8 98.9
+ -4.8 99.9
+ -4.5 102.0
+ -2.3 104.0
+ 2.8 106.8
+ 8.7 110.0
+ 14.8 113.3
+ 21.6 116.6
+ 28.0 119.7
+ 30.5 123.1
+ 34.7 127.2
+ 38.2 131.2
+ 41.4 134.7
+ 44.7 138.6
+ 46.9 140.4
+ 50.4 140.6
+ 53.3 139.9
+ 55.9 140.4
+ 57.1 142.2
+ 57.7 145.2
+ 57.0 148.0
+ 56.0 150.1
+ 54.2 152.0
+ 52.8 153.6
+ 50.5 154.9
+ 50.5 155.0
+ 53.0 153.5
+ 55.3 151.7
+ 57.8 151.9
+ 59.9 153.9
+ 62.4 156.6
+ 64.7 159.0
+ 67.0 160.8
+ 85.0 160.9
+-59.5 90.5
+-59.0 86.8
+-57.7 84.5
+-56.5 80.5
+-55.1 77.2
+-53.0 73.5
+-51.4 70.3
+-50.2 66.7
+-50.0 66.5
+-49.3 65.4
+-47.2 64.6
+-46.1 64.2
+-43.9 64.1
+-42.1 62.3
+-38.8 62.1
+-34.7 57.6
+-34.4 57.7
+-40.9 48.4
+-43.1 45.3
+-43.8 43.4
+-45.2 39.8
+-47.3 35.2
+-50.4 30.5
+-52.1 26.9
+-52.6 22.2
+-52.8 17.9
+-52.6 14.5
+-53.7 8.8
+-54.3 4.0
+-56.1 355.0
+-57.8 349.9
+-57.8 349.9
+-57.7 350.0
+-58.5 346.3
+-59.3 344.0
+-60.8 340.1
+-61.5 337.2
+-61.5 334.5
+-61.1 333.0
+-60.4 333.8
+-59.7 334.2
+-58.7 334.7
+-58.1 334.7
+-57.1 333.7
+-56.3 333.2
+-55.8 332.2
+-55.5 331.1
+-55.4 329.3
+-55.2 326.4
+-55.3 323.3
+-55.4 318.2
+-55.6 314.7
+-55.9 308.2
+-56.3 303.4
+-56.7 300.2
+-55.1 289.7
+-55.9 291.2
+-56.8 293.3
+-57.3 294.9
+-57.5 295.6
+-59.1 296.3
+-60.7 297.6
+-61.1 297.6
+-59.1 296.3
+-57.3 294.9
+-62.4 294.7
+-63.9 291.8
+-65.8 287.8
+-67.6 283.0
+-69.8 278.3
+-69.8 277.5
+-69.4 276.5
+-68.1 279.7
+-66.3 275.3
+-66.0 276.6
+-65.4 275.8
+-63.1 282.5
+-61.7 280.1
+-60.2 282.3
+-60.6 281.5
+-60.6 279.8
+-60.3 277.4
+-59.7 274.5
+-59.1 274.5
+-58.4 272.1
+-57.6 272.3
+-57.1 270.7
+-56.7 271.3
+-56.4 270.3
+-55.7 270.3
+-55.5 268.9
+-55.1 269.1
+-53.7 265.3
+-51.5 261.5
+-51.5 261.5
+-51.4 262.0
+-54.4 258.3
+-57.4 254.6
+-61.1 252.6
+-63.7 248.7
+-62.6 244.9
+-60.4 239.9
+-62.3 233.9
+-65.1 229.4
+-65.2 225.3
+-64.3 223.5
+-65.1 221.9
+-66.0 218.3
+-67.2 213.3
+-68.2 208.0
+-69.3 202.1
+-69.8 195.3
+-70.0 194.5
+-69.9 190.4
+-69.7 184.2
+-69.0 174.8
+-68.4 167.4
+-67.2 161.8
+-65.7 155.6
+-63.8 147.1
+-61.9 138.8
+-60.7 133.9
+-60.6 128.7
+-60.8 120.9
+-60.9 112.9
+-61.1 104.5
+-60.6 98.4
+-59.6 95.0
+-59.6 90.8
+-59.6 90.8
+-59.6 95.0
+-60.6 98.4
+-61.1 104.5
+-60.9 112.9
+-60.8 120.9
+-60.6 128.7
+-60.7 133.9
+-61.9 138.8
+-63.8 147.1
+-65.7 155.6
+-67.2 161.8
+-68.4 167.4
+-69.0 174.8
+-69.7 184.2
+-69.9 190.4
+-69.6 195.3
+-67.9 193.2
+-65.8 191.1
+-63.0 189.3
+-60.7 188.2
+-57.9 187.3
+-54.6 187.1
+-51.5 186.0
+-49.7 184.6
+-48.2 182.9
+-45.6 179.1
+-42.6 175.1
+-40.0 171.8
+-38.8 168.3
+-36.4 163.0
+-34.6 157.2
+-33.4 152.7
+-32.5 150.3
+-28.9 146.5
+-28.5 146.4
+-26.6 142.9
+-24.9 139.4
+-23.1 134.8
+-21.4 128.4
+-20.3 123.2
+-18.5 117.1
+-15.8 111.9
+-13.7 109.3
+-10.4 106.0
+ -7.0 102.3
+ -4.8 99.4
+ -5.0 98.4
+ -9.2 96.7
+-14.4 92.3
+-16.0 90.9
+-14.8 90.5
+-18.0 89.1
+-22.7 87.3
+-27.9 84.7
+-32.0 82.5
+-35.3 80.2
+-39.0 76.3
+-43.0 73.5
+-47.6 69.2
+-49.8 66.7
+-50.2 66.7
+-51.4 70.3
+-53.0 73.5
+-55.1 77.2
+-56.5 80.5
+-57.7 84.5
+-59.0 86.8
+-59.5 90.5
+-52.0 261.5
+-50.3 260.9
+-48.7 265.7
+-46.9 264.8
+-44.1 274.5
+-36.9 272.1
+-36.9 272.1
+-36.9 272.1
+-36.9 272.9
+-36.7 272.3
+-37.2 268.2
+-37.7 257.6
+-38.5 248.4
+-39.6 234.2
+-40.5 222.3
+-41.4 210.6
+-44.2 202.0
+-48.4 193.2
+-51.9 186.3
+-51.9 186.3
+-51.9 186.3
+-51.9 186.3
+-51.9 186.3
+-51.9 186.3
+-51.9 186.3
+-54.6 187.1
+-57.9 187.3
+-60.7 188.2
+-63.0 189.3
+-65.8 191.1
+-67.9 193.2
+-69.6 195.3
+-69.8 195.3
+-69.3 202.1
+-68.2 208.0
+-67.2 213.3
+-66.0 218.3
+-65.1 221.9
+-64.3 223.5
+-65.2 225.3
+-65.1 229.4
+-62.3 233.9
+-60.4 239.9
+-62.6 244.9
+-63.7 248.7
+-61.1 252.6
+-57.4 254.6
+-54.4 258.3
+-51.4 262.0
+ 53.8 234.7
+ 51.8 234.5
+ 49.8 234.5
+ 47.7 235.1
+ 47.4 233.9
+ 44.7 233.6
+ 44.0 230.8
+ 35.9 234.0
+ 35.7 236.9
+ 29.1 238.3
+ 27.2 236.0
+ 22.8 237.0
+ 25.1 254.5
+ 23.0 255.3
+ 23.3 257.0
+ 20.6 260.3
+ 20.0 260.0
+ 23.2 256.9
+ 27.0 252.5
+ 30.9 249.5
+ 34.1 246.7
+ 38.7 244.1
+ 41.9 242.0
+ 45.7 240.0
+ 49.0 238.1
+ 52.4 236.6
+ 54.1 235.3
+-49.8 66.7
+-47.6 69.2
+-43.0 73.5
+-39.0 76.3
+-35.3 80.2
+-32.0 82.5
+-27.9 84.7
+-22.7 87.3
+-18.0 89.1
+-14.8 90.5
+-14.8 90.5
+-14.8 90.5
+-14.8 90.5
+-14.8 90.5
+-14.8 90.5
+-14.8 90.5
+-16.0 90.9
+-14.4 92.3
+ -9.2 96.7
+ -5.0 98.4
+ -5.0 98.4
+ -5.0 98.4
+ -5.0 98.4
+ -5.0 98.4
+ -4.8 98.9
+ -2.7 97.3
+ -0.4 95.3
+ 2.7 93.7
+ 6.2 92.2
+ 9.9 91.3
+ 20.4 91.4
+ 24.3 90.8
+ 28.4 90.8
+ 32.1 90.8
+ 34.7 90.9
+ 34.7 90.9
+ 34.7 90.9
+ 34.7 90.9
+ 34.7 90.9
+ 34.7 90.9
+ 34.1 90.3
+ 34.2 87.9
+ 34.2 84.2
+ 33.7 79.8
+ 32.7 76.4
+ 31.5 72.1
+ 30.5 69.6
+ 30.5 69.6
+ 30.5 69.2
+ 24.9 66.1
+ 21.5 64.2
+ 17.7 61.0
+ 13.3 58.9
+ 10.4 57.6
+ 7.9 57.3
+ 5.4 57.1
+ 2.8 57.7
+ -1.2 59.1
+ -5.1 61.5
+-11.9 59.7
+-17.1 58.0
+-22.0 55.9
+-25.9 54.2
+-29.3 53.7
+-32.1 53.5
+-34.4 58.0
+-34.4 58.0
+-34.4 58.0
+-34.4 58.0
+-34.4 58.0
+-34.4 58.0
+-34.4 58.0
+-34.7 57.6
+-38.8 62.1
+-42.1 62.3
+-43.9 64.1
+-46.1 64.2
+-47.2 64.6
+-49.3 65.4
+-50.0 66.5
+ 85.0 20.0
+ 85.0 50.0
+ 84.0 80.0
+ 84.0 100.0
+ 83.0 110.0
+ 83.0 120.0
+ 83.0 130.0
+ 83.0 143.0
+ 84.0 152.0
+ 84.0 156.0
+ 85.0 158.0
+ 85.0 160.7
+ 83.0 160.0
+ 81.0 160.0
+ 79.0 160.1
+ 77.0 160.1
+ 75.0 160.1
+ 73.0 160.3
+ 72.0 160.3
+ 71.0 160.5
+ 70.0 160.5
+ 69.0 160.7
+ 67.0 160.8
+ 64.7 159.0
+ 62.4 156.6
+ 59.9 153.9
+ 57.8 151.9
+ 55.3 151.7
+ 53.0 153.5
+ 50.5 155.0
+ 50.5 155.0
+ 50.5 155.0
+ 50.5 155.0
+ 50.5 155.0
+ 50.5 155.0
+ 50.5 155.0
+ 50.5 155.0
+ 50.2 155.3
+ 51.1 157.9
+ 51.1 160.5
+ 50.8 165.4
+ 51.3 168.8
+ 52.0 173.9
+ 52.7 179.2
+ 53.8 186.4
+ 55.3 192.6
+ 56.9 198.5
+ 58.1 202.9
+ 59.3 207.4
+ 60.5 213.4
+ 61.2 217.3
+ 61.7 219.4
+ 61.9 221.9
+ 61.6 223.5
+ 61.2 225.4
+ 60.3 227.4
+ 58.6 230.6
+ 56.9 233.1
+ 54.1 235.1
+ 54.1 235.1
+ 54.1 235.1
+ 54.1 235.3
+ 52.4 236.6
+ 49.0 238.1
+ 45.7 240.0
+ 41.9 242.0
+ 38.7 244.1
+ 34.1 246.7
+ 30.9 249.5
+ 27.0 252.5
+ 23.2 256.9
+ 20.0 260.0
+ 17.4 263.0
+ 14.6 265.9
+ 14.6 265.9
+ 14.6 265.9
+ 14.6 265.9
+ 13.8 266.2
+ 14.4 268.3
+ 15.4 271.7
+ 16.5 274.7
+ 17.4 278.3
+ 18.7 282.5
+ 19.0 287.0
+ 19.0 290.4
+ 19.4 294.8
+ 19.9 303.9
+ 19.8 310.7
+ 20.3 315.9
+ 20.3 315.9
+ 20.3 315.9
+ 20.3 315.9
+ 20.3 315.9
+ 20.1 316.0
+ 21.7 315.1
+ 24.6 317.0
+ 27.4 318.6
+ 30.4 320.1
+ 32.0 321.8
+ 33.3 323.4
+ 33.5 326.3
+ 35.2 329.0
+ 35.2 329.0
+ 35.2 329.0
+ 35.2 329.0
+ 35.2 329.0
+ 35.2 329.0
+ 35.2 329.0
+ 35.2 329.0
+ 35.4 328.9
+ 36.6 330.8
+ 37.3 331.5
+ 39.5 332.2
+ 42.9 333.6
+ 43.8 333.9
+ 46.0 334.1
+ 47.8 334.2
+ 49.5 334.1
+ 50.0 334.1
+ 50.7 333.5
+ 51.6 331.9
+ 52.0 329.7
+ 52.0 329.7
+ 52.0 329.7
+ 52.0 329.7
+ 52.0 329.6
+ 54.2 331.1
+ 57.3 333.3
+ 60.4 339.0
+ 67.1 358.3
+ 68.1 1.2
+ 69.7 6.2
+ 70.2 9.1
+ 71.5 14.2
+ 72.7 18.2
+ 73.2 19.3
+ 73.5 19.3
+ 74.1 19.4
+ 76.9 19.2
+ 78.3 19.1
+ 79.4 19.4
+ 80.1 18.7
+ 80.3 18.7
+ 81.1 19.5
+ 81.7 20.2
+ 82.4 21.0
+ 83.4 21.4
+ 84.0 21.8
+ 84.1 21.7
+ 84.5 20.8
+ 84.7 20.1
+ 84.9 19.6
+ 84.9 19.6
+ 84.9 19.6
+ 84.9 19.6
+ 84.9 19.6
+ 84.9 19.6
+ 84.9 19.5
+ 13.6 262.5
+ 11.0 256.4
+ 5.0 258.6
+ 4.0 258.9
+ 4.6 261.4
+ 4.6 261.4
+ -1.7 262.3
+ -4.1 257.6
+-15.2 262.1
+-17.6 257.1
+-29.0 261.5
+-27.5 264.6
+-34.5 267.8
+-34.0 271.2
+-36.6 272.4
+-36.6 272.4
+-36.6 272.4
+-36.6 272.4
+-36.9 272.1
+-44.1 274.5
+-46.9 264.8
+-48.7 265.7
+-50.3 260.9
+-52.0 261.5
+-52.0 261.5
+-52.0 261.5
+-51.5 261.5
+-53.7 265.3
+-55.1 269.1
+-55.5 268.9
+-55.7 270.3
+-56.4 270.3
+-56.7 271.3
+-57.1 270.7
+-57.6 272.3
+-58.4 272.1
+-59.1 274.5
+-59.7 274.5
+-60.3 277.4
+-60.6 279.8
+-60.6 281.5
+-60.6 281.5
+-60.1 281.8
+-58.9 288.8
+-58.0 292.3
+-57.1 295.5
+-57.1 295.5
+-57.1 295.5
+-57.1 295.5
+-57.1 295.5
+-57.3 294.9
+-54.8 289.9
+-53.1 289.3
+-51.4 288.5
+-48.9 288.3
+-45.7 288.4
+-41.0 289.2
+-41.0 289.2
+-40.5 289.2
+-40.2 289.3
+-37.6 290.7
+-34.9 291.7
+-30.3 292.8
+-23.5 294.6
+-18.7 291.9
+-13.2 287.8
+ -8.9 284.5
+ -4.3 283.7
+ 0.6 285.3
+ 1.9 283.3
+ 6.3 275.6
+ 9.7 270.1
+ 14.5 265.9
+ 14.5 265.9
+ 14.6 265.9
+ 17.4 263.0
+ 50.5 154.9
+ 52.8 153.6
+ 54.2 152.0
+ 56.0 150.1
+ 57.0 148.0
+ 57.7 145.2
+ 57.1 142.2
+ 55.9 140.4
+ 53.3 139.9
+ 50.4 140.6
+ 46.9 140.4
+ 44.7 138.6
+ 41.4 134.7
+ 38.2 131.2
+ 34.7 127.2
+ 30.5 123.1
+ 28.0 119.7
+ 21.6 116.6
+ 14.8 113.3
+ 8.7 110.0
+ 2.8 106.8
+ -2.3 104.0
+ -4.5 102.0
+ -4.8 99.9
+ -4.8 99.4
+ -7.0 102.3
+-10.4 106.0
+-13.7 109.3
+-15.8 111.9
+-18.5 117.1
+-20.3 123.2
+-21.4 128.4
+-23.1 134.8
+-24.9 139.4
+-26.6 142.9
+-28.5 146.4
+-28.5 146.4
+-28.5 146.4
+-28.5 146.4
+-28.5 146.4
+-28.9 146.5
+-32.5 150.3
+-33.4 152.7
+-34.6 157.2
+-36.4 163.0
+-38.8 168.3
+-40.0 171.8
+-42.6 175.1
+-45.6 179.1
+-48.2 182.9
+-49.7 184.6
+-51.5 186.0
+-51.5 186.0
+-51.5 186.0
+-51.5 186.0
+-51.5 186.0
+-51.9 186.3
+-48.4 193.2
+-44.2 202.0
+-41.4 210.6
+-40.5 222.3
+-39.6 234.2
+-38.5 248.4
+-37.7 257.6
+-37.2 268.2
+-36.7 272.3
+-36.9 272.9
+-36.9 272.9
+-36.9 272.9
+-36.9 272.9
+-36.9 272.9
+-36.9 272.9
+-36.6 272.4
+-34.0 271.2
+-34.5 267.8
+-27.5 264.6
+-29.0 261.5
+-17.6 257.1
+-15.2 262.1
+ -4.1 257.6
+ -1.7 262.3
+ 4.6 261.4
+ 4.6 261.4
+ 4.0 258.9
+ 5.0 258.6
+ 11.0 256.4
+ 13.6 262.5
+ 20.6 260.3
+ 23.3 257.0
+ 23.0 255.3
+ 25.1 254.5
+ 22.8 237.0
+ 27.2 236.0
+ 29.1 238.3
+ 35.7 236.9
+ 35.9 234.0
+ 44.0 230.8
+ 44.7 233.6
+ 47.4 233.9
+ 47.7 235.1
+ 49.8 234.5
+ 51.8 234.5
+ 53.8 234.7
+ 53.8 234.7
+ 53.8 234.7
+ 53.8 234.7
+ 54.1 235.1
+ 56.9 233.1
+ 58.6 230.6
+ 60.3 227.4
+ 61.2 225.4
+ 61.6 223.5
+ 61.9 221.9
+ 61.7 219.4
+ 61.2 217.3
+ 60.5 213.4
+ 59.3 207.4
+ 58.1 202.9
+ 56.9 198.5
+ 55.3 192.6
+ 53.8 186.4
+ 52.7 179.2
+ 52.0 173.9
+ 51.3 168.8
+ 50.8 165.4
+ 51.1 160.5
+ 51.1 157.9
+ 50.2 155.3
+-69.8 278.3
+-67.6 283.0
+-65.8 287.8
+-63.9 291.8
+-62.4 294.7
+-61.1 297.6
+-57.3 294.3
+-57.3 294.3
+-57.1 295.5
+-58.0 292.3
+-58.9 288.8
+-60.1 281.8
+-60.1 281.8
+-60.1 281.8
+-60.1 281.8
+-60.1 281.8
+-60.2 282.3
+-61.7 280.1
+-63.1 282.5
+-65.4 275.8
+-66.0 276.6
+-66.3 275.3
+-68.1 279.7
+-69.4 276.5
+-69.8 277.5
+ 14.5 265.9
+ 9.7 270.1
+ 6.3 275.6
+ 1.9 283.3
+ 0.6 285.3
+ -4.3 283.7
+ -8.9 284.5
+-13.2 287.8
+-18.7 291.9
+-23.5 294.6
+-30.3 292.8
+-34.9 291.7
+-37.6 290.7
+-40.2 289.3
+-40.5 289.2
+-40.5 289.2
+-41.0 289.2
+-45.7 288.4
+-48.9 288.3
+-51.4 288.5
+-53.1 289.3
+-54.8 289.9
+-57.3 294.9
+-57.3 294.9
+-55.1 289.7
+-55.9 291.2
+-56.8 293.3
+-57.5 295.6
+-56.7 300.2
+-56.3 303.4
+-55.9 308.2
+-55.6 314.7
+-55.4 318.2
+-55.3 323.3
+-55.2 326.4
+-55.4 329.3
+-55.5 331.1
+-55.8 332.2
+-56.3 333.2
+-57.1 333.7
+-58.1 334.7
+-58.7 334.7
+-59.7 334.2
+-60.4 333.8
+-61.1 333.0
+-61.5 334.5
+-61.5 337.2
+-60.8 340.1
+-59.3 344.0
+-58.5 346.3
+-57.7 350.0
+-57.7 350.0
+-57.7 350.0
+-57.7 350.0
+-57.7 350.0
+-57.7 350.0
+-57.8 349.8
+-55.7 348.3
+-53.9 347.3
+-51.8 346.7
+-50.1 345.6
+-49.4 345.0
+-49.4 343.8
+-49.1 341.4
+-47.7 341.3
+-46.4 339.9
+-45.2 340.3
+-44.6 341.0
+-42.8 340.0
+-41.4 340.5
+-38.2 339.8
+-35.5 342.8
+-33.5 344.3
+-31.3 344.7
+-30.5 344.4
+-28.3 343.7
+-27.0 344.0
+-24.1 345.6
+-14.8 343.7
+-11.6 345.1
+-10.2 344.7
+ -6.8 346.2
+ -5.7 346.0
+ -3.2 345.4
+ -2.1 343.7
+ -2.4 339.6
+ -2.4 336.1
+ -1.3 336.0
+ -0.6 331.0
+ 1.5 330.7
+ 2.1 328.8
+ 4.0 328.4
+ 4.8 327.8
+ 5.0 327.0
+ 6.2 323.1
+ 6.5 321.5
+ 9.3 319.8
+ 9.4 317.3
+ 11.2 317.3
+ 12.1 316.1
+ 13.7 315.9
+ 14.8 314.4
+ 20.2 316.2
+ 20.2 316.2
+ 20.3 315.9
+ 19.8 310.7
+ 19.9 303.9
+ 19.4 294.8
+ 19.0 290.4
+ 19.0 287.0
+ 18.7 282.5
+ 17.4 278.3
+ 16.5 274.7
+ 15.4 271.7
+ 14.4 268.3
+ 13.8 266.2
Property changes on: mc/1D/hc/trunk/hcplates/data
___________________________________________________________________
Name: svn:executable
+ *
Added: mc/1D/hc/trunk/hcplates/enes
===================================================================
--- mc/1D/hc/trunk/hcplates/enes 2007-07-11 00:35:53 UTC (rev 7640)
+++ mc/1D/hc/trunk/hcplates/enes 2007-07-11 06:24:16 UTC (rev 7641)
@@ -0,0 +1,12 @@
+11
+205
+129
+69
+49
+27
+80
+158
+76
+128
+25
+116
Added: mc/1D/hc/trunk/hcplates/findplate.c
===================================================================
--- mc/1D/hc/trunk/hcplates/findplate.c 2007-07-11 00:35:53 UTC (rev 7640)
+++ mc/1D/hc/trunk/hcplates/findplate.c 2007-07-11 06:24:16 UTC (rev 7641)
@@ -0,0 +1,269 @@
+#include "hc_findplate.h"
+
+
+/*
+
+ stand-alone routine to take plate boundary file, and metadata file with no. plates + no. points on each plate
+ And then create a file with plate_id lat long for every lat/long on a 180x360 grid.
+
+ For Lithgow-Bertelloni's & Richards Plates extensions to Hager & O'Connell experimental code
+ O'Neill (coneill at els.qm.edu.au) & Becker (twb at usc.edu).
+
+ This has routine to: set initial defaults
+ handle the command line args (ie. just the input file name)
+ read the input file, and assign parameters
+
+*/
+
+int main(int argc, char **argv)
+{
+struct hc_findplates p[1];
+FILE *filePtr, *filePtr2, *filePtr3;
+int nplate,ii,jj,npoint[100],tmp,k,l,ifind,i,ncross,j,mod1,test1,m,mm,id[182][362],done_long;
+double x[60][3000],y[60][3000],dlat,dlong, dlat1,dlong1,xp,yp;
+double yo,xo,xj,yj,xj1,yj1,dely,a1,b1,a2,b2,xint,yint,plat,plong;
+int cross1,cross2,cross3,cross4,lll,idlast;
+
+char file1[HC_CHAR_LENGTH], file2[HC_CHAR_LENGTH];
+char file3[HC_CHAR_LENGTH];
+
+/* Note: had to shrink x,y & id arrays in size to stop seg faulting
+ Here: handle command line parameters
+ */
+ //printf("Initializing defaults a \n");
+ dlat = 1.0;
+ dlong = 1.0;
+
+ printf("Initializing defaults \n");
+ hc_findplates_init(p);
+ printf("Reading arguments\n");
+ hc_findplates_command_line(argc, argv, p);
+ fprintf(stderr,"Plate boundary file is %s\n",p->boundary_file);
+ fprintf(stderr,"Plate data file is %s\n",p->data_filename);
+ fprintf(stderr,"Output file is %s\n",p->output_file);
+
+ //Opening files
+ strncpy(file3,p->output_file,HC_CHAR_LENGTH);
+ filePtr3 = fopen(file3, "w");
+ if (filePtr3 == NULL)
+ { printf("Error loading output file. \n"); }
+ else {
+
+ strncpy(file2,p->boundary_file,HC_CHAR_LENGTH);
+ filePtr2 = fopen(file2, "r");
+ if (filePtr2 == NULL)
+ { printf("Error loading boundary file. \n"); }
+ else {
+
+ strncpy(file1,p->data_filename,HC_CHAR_LENGTH);
+ filePtr = fopen(file1, "r");
+ if (filePtr == NULL)
+ { printf("Error loading Data file. \n"); }
+ else
+ {
+ /* Get nplate on first line */
+ fscanf(filePtr, "%i", &nplate);
+ printf("nplate: %i \n",nplate);
+
+ for (ii=1; ii<=nplate; ii++) {
+ /* Read number of points on each plate */
+ fscanf(filePtr, "%i", &npoint[ii]);
+ printf("npoint: %i \n", npoint[ii]);
+
+ for (jj=1; jj<=npoint[ii]; jj++) {
+ fscanf(filePtr2, "%lf %lf", &x[ii][jj], &y[ii][jj]);
+ //printf(" x, y: %lf %lf \n", x[ii][jj],y[ii][jj]);
+ if (y[ii][jj] < 0.0) {
+ y[ii][jj] += 360.00;
+ }
+ }
+
+ tmp = npoint[ii]+1;
+ x[ii][tmp]=x[ii][1];
+ y[ii][tmp]=y[ii][1];
+ } //finish nplates loop
+
+ dlat1 = 180/dlat;
+ dlong1 = 360/dlong;
+
+ for (k=1; k <= dlat1; k++) {
+ xp = 0.0001+dlat*(k-0.5)-90.0;
+ for (l=1; l<=dlong1; l++) {
+ ifind = 0;
+ done_long = 1;
+ yp = 0.0001+dlong*(l-0.5);
+ for (i=1; i<=nplate; i++) {
+ ncross=0;
+ for (j=1; j<=npoint[i]; j++) {
+ yo=yp;
+ xo=90;
+ xj=x[i][j];
+ yj=y[i][j];
+ xj1=x[i][j+1];
+ yj1=y[i][j+1];
+ dely = fabs(yj-yj1);
+
+ if (dely > 100) {
+ if (yp < 180) {
+ if (yj1 > 180) {
+ yj1 -= 360;
+ }
+ if (yj > 180) {
+ yj -= 360;
+ }
+ }
+ else {
+ if (yj1 < 180) {
+ yj1 += 360;
+ }
+ if (yj < 180) {
+ yj += 360;
+ }
+ }
+ } /*end ifs */
+
+ /* Why the special cases for these plates? */
+ if (xp > 0) {
+ xo = -90.0;
+ }
+ if (i == 2) {
+ xo = 90.0;
+ }
+ if (i == 7) {
+ xo = -90.0;
+ }
+
+ a1 = (yp-yo)/(xp-xo);
+ b1 = yo - a1*xo;
+
+ test1=0;
+ if (xj == xj1) {
+ cross3 = (((yp>yj)&&(yp<yj1))||((yp>yj1)&&(yp<yj)));
+ cross4 = (((xj>xo)&&(xj<xp))||((xj>xp)&&(xj<xo)));
+ xint = xj;
+ yint = yp;
+ if (cross3 && cross4) {
+ ncross++;
+ test1=1;
+ }
+ }
+ if (test1 != 1) {
+ a2 = (yj-yj1)/(xj-xj1);
+ b2 = yj - a2*xj;
+ xint = (b2-b1)/(a1-a2);
+ yint = a1*xint + b1;
+ cross1 = (((xint>xj)&&(xint<xj1))||((xint>xj1)&&(xint<xj)));
+ cross2 = (((xint>xo)&&(xint<xp))||((xint>xp)&&(xint<xo)));
+ if (cross1 && cross2) {
+ ncross++;
+ }
+ }
+ } /* npoint for loops end */
+ mod1 = ncross%2;
+
+ if (mod1 != 0 && id[k][l]==0 && ifind==0) { /*This is a big fudge to stop doubling up at same points */
+ id[k][l]=i;
+ ifind=1;
+ done_long=0;
+ }
+ else {
+ id[k][l]=0;
+ }
+ if (id[k][l] > 0 && done_long<1){
+ plat = 0.0001 + dlat*(k-0.5) - 90.0;
+ plong = 0.0001 + dlong*(l-0.5);
+ fprintf(filePtr3,"%i %lf %lf\n",id[k][l],plat,plong); //output here
+ done_long = 1;
+ idlast = id[k][l];
+ }
+
+ } /*nplate loop ends */
+ if (ifind==0) {
+ id[k][l]=idlast;
+ fprintf(filePtr3,"%i %lf %lf \n",id[k][l],plat,plong);
+ }
+ } // long loop
+
+ } /*Last for loop (dlat1) ends */
+
+ } // files open loops
+ }
+ } //output file
+
+ fclose(filePtr3);
+ fclose(filePtr);
+ fclose(filePtr2);
+
+ printf("Exiting ok \n");
+ return 0;
+}
+
+
+void hc_findplates_init(struct hc_findplates *p) {
+ strncpy(p->boundary_file,"data",HC_CHAR_LENGTH);
+ strncpy(p->data_filename,"enes",HC_CHAR_LENGTH);
+ strncpy(p->output_file,"plates_ids.ixz",HC_CHAR_LENGTH);
+}
+
+void hc_findplates_command_line(int argc, char **argv,
+ struct hc_findplates *p)
+{
+ int i;
+ //printf("In here?\n");
+ for(i=1;i < argc;i++){
+ //printf("In here? 2\n");
+ if(strcmp(argv[i],"-h")==0 || strcmp(argv[i],"-?")==0){// help
+ /*
+ help page
+ */
+ fprintf(stderr,"%s - Routine to create lat/lon/plate_id dile\n\n",
+ argv[0]);
+ fprintf(stderr,"options:\n\n");
+ fprintf(stderr,"-B plate boundary file (%s)\n",
+ p->boundary_file);
+ fprintf(stderr,"-D data file (enes) containg no. plates (first line), then no. points on each plate (rest). Both files needed. \n",
+ p->data_filename);
+ fprintf(stderr,"-O output file (default: plate_ids.ixz) containg plates id, lat & long. \n",
+ p->data_filename);
+ fprintf(stderr,"\n\n");
+ exit(-1);
+ }
+ else if(strcmp(argv[i],"-B")==0){ /* boundary filename */
+ // printf("In here? 3\n");
+ hc_findplates_advance_argument(&i,argc,argv);
+ strncpy(p->boundary_file,argv[i],HC_CHAR_LENGTH);
+ }
+ else if(strcmp(argv[i],"-D")==0){ /* data filename */
+ // printf("In here? 4\n");
+ hc_findplates_advance_argument(&i,argc,argv);
+ strncpy(p->data_filename,argv[i],HC_CHAR_LENGTH);
+ }
+ else if(strcmp(argv[i],"-O")==0){ /* output filename */
+ // printf("In here? 4\n");
+ hc_findplates_advance_argument(&i,argc,argv);
+ strncpy(p->output_file,argv[i],HC_CHAR_LENGTH);
+ }
+ else{
+ // printf("In here? 5\n");
+ fprintf(stderr,"%s: can not use parameter %s, use -h for help page\n",
+ argv[0],argv[i]);
+ exit(-1);
+ }
+ }
+}
+/*
+
+//
+// check, if we can read a value for the option flag in a chain of command line
+// arguments
+// */
+void hc_findplates_advance_argument(int *i,int argc, char **argv)
+{
+ if(argc <= *i + 1){// no arguments left
+ fprintf(stderr,"%s: input parameters: error: option \"%s\" needs a value\n",
+ argv[0],argv[*i]);
+ exit(-1);
+ }
+ *i += 1;
+}
+
Added: mc/1D/hc/trunk/hcplates/get_loads.c
===================================================================
--- mc/1D/hc/trunk/hcplates/get_loads.c 2007-07-11 00:35:53 UTC (rev 7640)
+++ mc/1D/hc/trunk/hcplates/get_loads.c 2007-07-11 06:24:16 UTC (rev 7641)
@@ -0,0 +1,113 @@
+#include <math.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include "hcplates.h"
+
+/* routine to read a load file and add up the products of the internal loads and the poloidal shear
+c********** stress Green functions for all load radii
+c**********
+c
+c*** read first line of internal load file: number of load radii, max L
+ read(22,*) nrad,Lload
+c*** loop on load radius, harmonic degree and order: read load radius, read load
+c*** coefficients, calculate Green functions, and accumulate poloidal shear
+c*** stress coefficients ('y4in')
+c*** note that a factor of visc0/erad has been left out of 'y4in',
+c*** since it ultimately multiplies both sides of the final matrix equation
+c*** tomography conversion factor=tconv*****
+
+Makes y4in, y2in, y3in, z3in
+
+Inputs dens_file: load input file (points.j)
+ iba: flag for poload, 0=no slip, 1=free slip
+
+Make structure for plates earth model:
+ tconv (tomography converions factor)
+ n: no. radial layers
+ erad, Earth radius
+ r: radial structure
+ visc: viscosity layers
+ visc0: ref visc ~1e22
+
+TESTED AGAINST CRLB'S FORTRAN CODE AND WORKING -- SEE COMMENTS FOR POSSIBLE TYPOS IN FORTRAN
+
+ */
+
+void get_loads(struct hc_plates_params *plates, struct hc_plates_arrays *A, char dens_file[])
+{
+ FILE *filePtr;
+ int nrad,Lload,irad,L,m,Ldum,mdum,k;
+ double rload,rload1,cload,sload,cload1,sload1,tconv;
+ double ua[5],uc[5];
+
+/* Open load file */
+ printf("Get_loads: density file is %s \n",dens_file);
+ filePtr = fopen(dens_file, "r");
+ if (filePtr == NULL)
+ { printf("Error load opening file. \n"); }
+ else
+ {
+ /* Get nrad & Lload on first line */
+ fscanf(filePtr, "%i %i", &nrad, &Lload);
+ printf("Get nrad * Lload: %i %i \n",nrad,Lload);
+ plates->Lload = Lload;
+ fscanf(filePtr, "%lf", &tconv);
+ printf("Get tomography conversion factor: %lf \n",tconv);
+ for (irad=1; irad<=nrad; irad++) {
+ fscanf(filePtr, "%lf",&rload1); /* check this input */
+ /*printf("Rload1: %lf ",rload1); */
+ rload = plates->erad - rload1*1.0e5;
+ /* printf("Rload: %lf \n",rload); */
+ for (L=0; L<=Lload; L++) {
+ if (L==0) {
+ ua[2]=0.0;
+ ua[3]=0.0;
+ ua[4]=0.0; /* uc not initialized - why?? */
+ }
+ else {
+ poload(plates,L,plates->n,plates->iba,1,rload,plates->visc0,ua,uc);
+ //fprintf(stderr,"LOADS: %i/%i ua2:%le ua3:%le ua4:%le\n",L,m,ua[2],ua[3],ua[4]);
+ //fprintf(stderr," LOADS: %i/%i uc2:%le uc3:%le uc4:%le\n",L,m,uc[2],uc[3],uc[4]);
+ /*printf("%i ",L); */
+ }
+ for (m=0; m <= L; m++) {
+ fscanf(filePtr, " %d %d %lf %lf",&Ldum,&mdum,&cload1,&sload1); /* check this input */
+ if (irad > 0) {
+ cload=cload1*98.10*tconv;
+ sload=sload1*98.10*tconv;
+ }
+ else {
+ cload=cload1*98.10;
+ sload=sload1*98.10;
+ }
+ k=(L+2)*(L+1)/2-m;
+ /* In CRLBs code, y4in & y3in are intially set to zero
+ Additionally, ua[2-4] are zero'ed above.
+ However, y2in and z3in are not intially zero'd here - is this a problem?
+ Also, uc[3] is not initially set to zero if L=0 - how come? */
+ A->y4in[k][1] += cload*ua[4];
+ A->y4in[k][2] += sload*ua[4];
+ A->y2in[k][1] += cload*ua[2];
+ A->y2in[k][2] += sload*ua[2];
+ A->y3in[k][1] += cload*ua[3];
+ A->y3in[k][2] += sload*ua[3];
+ A->z3in[k][1] += cload*uc[3];
+ A->z3in[k][2] += cload*uc[3]; //CRLB's code has this as cload not sload - is this right?
+ // k,1 & k,2 are now the same - typo??
+
+ //printf("irad=%d L=%d m=%d y2in:%lf %lf \n",irad,L,m,y2in[k][1],y2in[k][2]);
+ // printf("LOADS: irad=%d L=%d m=%d z3in:%le %le \n",irad,L,m,A->z3in[k][1],A->z3in[k][2]);
+
+ if (irad == nrad) {
+ /* Ouput routines here - intstress and intvel */
+
+ }
+ }
+ }
+ }
+ }
+ fclose(filePtr);
+
+}
+
+
Added: mc/1D/hc/trunk/hcplates/hc.h
===================================================================
--- mc/1D/hc/trunk/hcplates/hc.h 2007-07-11 00:35:53 UTC (rev 7640)
+++ mc/1D/hc/trunk/hcplates/hc.h 2007-07-11 06:24:16 UTC (rev 7641)
@@ -0,0 +1,95 @@
+/*
+ CO'N: abridged working version for plates
+
+ header file for Hager & O'Connell experimental code
+
+ Thorsten (twb at usc.edu)
+
+ $Id: hc.h,v 1.12 2006/05/01 17:46:18 becker Exp becker $
+
+*/
+#include <stdio.h>
+#include <math.h>
+#include <stdlib.h>
+#include <string.h>
+#include <limits.h>
+
+/*
+
+general variable type defines
+
+*/
+#ifndef hc_boolean
+#define hc_boolean unsigned short
+#endif
+#ifndef HC_PREC /*
+ precision for most C functions
+ */
+#define HC_PREC double
+#define HC_FLT_FORMAT "%lf"
+#define HC_TWO_FLT_FORMAT "%lf %lf"
+#define HC_EPS_PREC 5e-15
+#endif
+
+#ifndef HC_CPREC
+#define HC_CPREC HC_PREC
+#endif
+
+#define HC_CHAR_LENGTH 300 /* length of char arrays */
+
+#define HC_BIN_PREC float /* precision for binary I/O */
+
+
+#define HC_PI 3.1415926535897932384626433832795
+
+#ifndef SQRT_TWO
+#define SQRT_TWO 1.41421356237309504880168872420970
+#endif
+#ifndef M_PI
+#define M_PI 3.1415926535897932384626433832795
+#endif
+#ifndef PIOVERONEEIGHTY
+#define PIOVERONEEIGHTY 0.017453292519943295769236907684886
+#endif
+#ifndef ONEEIGHTYOVERPI
+#define ONEEIGHTYOVERPI 57.295779513082320876798154814105
+#endif
+#ifndef DEG2RAD
+#define DEG2RAD(x) ((x) * PIOVERONEEIGHTY)
+#endif
+#ifndef RAD2DEG
+#define RAD2DEG(x) ((x) * ONEEIGHTYOVERPI)
+#endif
+
+#ifndef FLT_MAX
+#define FLT_MAX 1e20
+#endif
+#ifndef FLT_MIN
+#define FLT_MIN -1e20
+#endif
+
+#define THETA2LAT(x) ( (90.0 - (x)*ONEEIGHTYOVERPI) )
+#define LAT2THETA(x) ( (90.0 - (x))*PIOVERONEEIGHTY )
+#define PHI2LON(x) ( RAD2DEG(x) )
+#define LON2PHI(x) ( DEG2RAD(x) )
+/*
+
+other constants
+
+*/
+// now taken from earth model
+#define HC_RE_KM 6371.0 /* radius(Earth) in [km] */
+
+//#define HC_RCMB_ND 0.546225 /* non-dim radius, ~10km above
+// CMB */
+
+#define HC_TIMESCALE_YR 1e6 /* timescale [yr] */
+/*
+ convert depth (>0) in km to non-dimensionalizd radius
+*/
+#define HC_ND_RADIUS(x) (1.0-((x)/HC_RE_KM))
+/*
+ the other way around
+*/
+#define HC_Z_DEPTH(x) ((HC_RE_KM * (1.0-(x))))
+
Property changes on: mc/1D/hc/trunk/hcplates/hc.h
___________________________________________________________________
Name: svn:executable
+ *
Added: mc/1D/hc/trunk/hcplates/hc_findplate.h
===================================================================
--- mc/1D/hc/trunk/hcplates/hc_findplate.h 2007-07-11 00:35:53 UTC (rev 7640)
+++ mc/1D/hc/trunk/hcplates/hc_findplate.h 2007-07-11 06:24:16 UTC (rev 7641)
@@ -0,0 +1,26 @@
+#include <stdio.h>
+#include <math.h>
+#include <stdlib.h>
+#include <string.h>
+
+#define HC_MAX_LAYERS 100 /* Hope this is enough radial layers */
+#define MAX_NO_PLATE 30
+#define MAX_LDIM 100
+#define MAX_NPDIM 90
+#define MAX_KDIM 515 /* Note: having this too high gives seg faults But we need it... weird.*/
+
+#define HC_CHAR_LENGTH 300 /* length of char arrays */
+
+struct hc_findplates{
+ char boundary_file[HC_CHAR_LENGTH];
+ char data_filename[HC_CHAR_LENGTH];
+ char output_file[HC_CHAR_LENGTH];
+};
+
+/* findplate.c */
+//void hc_findplates(int, char **);
+void hc_findplates_command_line(int, char **,
+ struct hc_findplates *);
+void hc_findplates_advance_argument(int *,int, char **);
+void hc_findplates_init(struct hc_findplates *);
+
Added: mc/1D/hc/trunk/hcplates/hc_ptrot.h
===================================================================
--- mc/1D/hc/trunk/hcplates/hc_ptrot.h 2007-07-11 00:35:53 UTC (rev 7640)
+++ mc/1D/hc/trunk/hcplates/hc_ptrot.h 2007-07-11 06:24:16 UTC (rev 7641)
@@ -0,0 +1,71 @@
+#include <stdio.h>
+#include <math.h>
+#include <stdlib.h>
+#include <string.h>
+
+
+#define HC_MAX_LAYERS 100 /* Hope this is enough radial layers */
+#define MAX_NO_PLATE 30
+#define MAX_LDIM 100
+#define MAX_NPDIM 90
+#define MAX_KDIM 515 /* Note: having this too high gives seg faults But we need it... weird.*/
+
+#define HC_CHAR_LENGTH 300 /* length of char arrays */
+#define HC_PREC double
+#define HC_PI 3.1415926535897932384626433832795
+
+
+struct hc_ptrot{
+ char boundary_file[HC_CHAR_LENGTH];
+ char data_filename[HC_CHAR_LENGTH];
+ char plateids_file[HC_CHAR_LENGTH];
+ char unitrot_file[HC_CHAR_LENGTH];
+
+ int nlm;
+
+ double plm;
+
+ double tvelxm;
+ double tvelym;
+ double tvelzm;
+
+ double tvelxp;
+ double tvelyp;
+ double tvelzp;
+
+ HC_PREC ylm1;
+ HC_PREC ylm2;
+
+ /* Define arrays */
+ HC_PREC ****dlmx;
+ HC_PREC ****dlmy;
+ HC_PREC ****dlmz;
+
+ HC_PREC ****vlmx;
+ HC_PREC ****vlmy;
+ HC_PREC ****vlmz;
+
+ HC_PREC *****dlm;
+ HC_PREC *****vlm;
+
+ int *num;
+};
+
+/* In ptrot.c */
+void polcoeff(struct hc_ptrot *, int);
+void torcoeff(struct hc_ptrot *);
+
+void spharm(int, int, double, double, struct hc_ptrot *);
+void plgndr(int, int, double, struct hc_ptrot *);
+void vel(double, double, struct hc_ptrot *);
+
+/* in hc_ptrot_mem.c */
+int *c_alloc1d(int);
+double ****c_alloc4d(int, int, int, int);
+double *****c_alloc5d(int, int, int, int, int);
+
+/* in hc_ptrot_init.c */
+void hc_ptrot_init(struct hc_ptrot *);
+
+void hc_ptrot_command_line(int, char **, struct hc_ptrot *);
+void hc_ptrot_advance_argument(int *, int, char **);
Added: mc/1D/hc/trunk/hcplates/hc_ptrot_init.c
===================================================================
--- mc/1D/hc/trunk/hcplates/hc_ptrot_init.c 2007-07-11 00:35:53 UTC (rev 7640)
+++ mc/1D/hc/trunk/hcplates/hc_ptrot_init.c 2007-07-11 06:24:16 UTC (rev 7641)
@@ -0,0 +1,158 @@
+#include "hc_ptrot.h"
+
+/* Initialization routine */
+
+void hc_ptrot_init (struct hc_ptrot *A)
+{
+ int ip,l,m;
+
+ /* Default filenames */
+ strncpy(A->boundary_file,"data",HC_CHAR_LENGTH);
+ strncpy(A->data_filename,"enes",HC_CHAR_LENGTH);
+ strncpy(A->plateids_file,"plates_ids.ixz",HC_CHAR_LENGTH);
+ strncpy(A->unitrot_file,"unitrot.coeffs",HC_CHAR_LENGTH);
+
+ A->nlm = 20;
+ A->ylm1 = 0;
+ A->ylm2 = 0;
+ A->plm = 0;
+
+ A->tvelxm = 0;
+ A->tvelym = 0;
+ A->tvelzm = 0;
+ A->tvelxp = 0;
+ A->tvelyp = 0;
+ A->tvelzp = 0;
+
+ /* Allocate arrays */
+ A->dlmx = c_alloc4d(16,3,50,50);
+ A->dlmy = c_alloc4d(16,3,50,50);
+ A->dlmz = c_alloc4d(16,3,50,50);
+
+ A->vlmx = c_alloc4d(17,4,50,50);
+ A->vlmy = c_alloc4d(16,3,50,50);
+ A->vlmz = c_alloc4d(16,3,50,50);
+
+ A->dlm = c_alloc5d(16,4,3,50,50);
+ A->vlm = c_alloc5d(16,4,3,50,50);
+
+ A->num = c_alloc1d(16);
+
+ for (ip = 1; ip<=15; ip++) {
+ for (l=0; l<=49; l++) {
+ for (m=0; m<=l; m++) {
+
+
+ A->dlmx[ip][1][l][m] = 0.0;
+ A->dlmx[ip][2][l][m] = 0.0;
+
+ A->dlmy[ip][1][l][m] = 0.0;
+ A->dlmy[ip][2][l][m] = 0.0;
+
+ A->dlmz[ip][1][l][m] = 0.0;
+ A->dlmz[ip][2][l][m] = 0.0;
+
+ A->vlmx[ip][1][l][m] = 0.0;
+ A->vlmx[ip][2][l][m] = 0.0;
+
+ A->vlmy[ip][1][l][m] = 0.0;
+ A->vlmy[ip][2][l][m] = 0.0;
+
+ A->vlmz[ip][1][l][m] = 0.0;
+ A->vlmz[ip][2][l][m] = 0.0;
+
+ A->dlm[ip][1][1][l][m] = 0.0;
+ A->dlm[ip][1][2][l][m] = 0.0;
+ A->dlm[ip][2][1][l][m] = 0.0;
+ A->dlm[ip][2][2][l][m] = 0.0;
+ A->dlm[ip][3][1][l][m] = 0.0;
+ A->dlm[ip][3][2][l][m] = 0.0;
+
+ A->vlm[ip][1][1][l][m] = 0.0;
+ A->vlm[ip][1][2][l][m] = 0.0;
+ A->vlm[ip][2][1][l][m] = 0.0;
+ A->vlm[ip][2][2][l][m] = 0.0;
+ A->vlm[ip][3][1][l][m] = 0.0;
+ A->vlm[ip][3][2][l][m] = 0.0;
+ }
+ }
+ }
+
+}
+
+void hc_ptrot_command_line(int argc, char **argv,
+ struct hc_ptrot *p)
+{
+ int i;
+ //printf("In here?\n");
+ for(i=1;i < argc;i++){
+ //printf("In here? 2\n");
+ if(strcmp(argv[i],"-h")==0 || strcmp(argv[i],"-?")==0){// help
+ /*
+ help page
+ */
+ fprintf(stderr,"%s - Routine to create unitrot.coeffs files\n",
+ argv[0]);
+ fprintf(stderr,"Options:\n\n");
+ fprintf(stderr,"-B plate boundary file (%s)\n",
+ p->boundary_file);
+ fprintf(stderr,"-D data file (enes) containg no. plates (first line), then no. points on each plate (rest). Both files needed. \n",
+ p->data_filename);
+ fprintf(stderr,"-P plate id file (default: plate_ids.ixz) containg plates id, lat & long. \n",
+ p->data_filename);
+ fprintf(stderr,"-O output file (default: unitrots.coeff) containg coefficients for unit rotations on each plate \n",
+ p->data_filename);
+ fprintf(stderr,"-d degree of spherical harmonics (defaults to 20) \n",
+ p->data_filename);
+ fprintf(stderr,"\n\n");
+ exit(-1);
+ }
+ else if(strcmp(argv[i],"-B")==0){ /* boundary filename */
+ // printf("In here? 3\n");
+ hc_ptrot_advance_argument(&i,argc,argv);
+ strncpy(p->boundary_file,argv[i],HC_CHAR_LENGTH);
+ }
+ else if(strcmp(argv[i],"-D")==0){ /* data filename */
+ // printf("In here? 4\n");
+ hc_ptrot_advance_argument(&i,argc,argv);
+ strncpy(p->data_filename,argv[i],HC_CHAR_LENGTH);
+ }
+ else if(strcmp(argv[i],"-P")==0){ /* output filename */
+ // printf("In here? 4\n");
+ hc_ptrot_advance_argument(&i,argc,argv);
+ strncpy(p->plateids_file,argv[i],HC_CHAR_LENGTH);
+ }
+ else if(strcmp(argv[i],"-O")==0){ /* output filename */
+ // printf("In here? 4\n");
+ hc_ptrot_advance_argument(&i,argc,argv);
+ strncpy(p->unitrot_file,argv[i],HC_CHAR_LENGTH);
+ }
+ else if(strcmp(argv[i],"-d")==0){ /* output filename */
+ // printf("In here? 4\n");
+ hc_ptrot_advance_argument(&i,argc,argv);
+ strncpy((void *)p->nlm,argv[i],HC_CHAR_LENGTH); /*prob string to integer? */
+ }
+ else{
+ // printf("In here? 5\n");
+ fprintf(stderr,"%s: can not use parameter %s, use -h for help page\n",
+ argv[0],argv[i]);
+ exit(-1);
+ }
+ }
+}
+
+/*
+
+//
+// check, if we can read a value for the option flag in a chain of command line
+// arguments
+// */
+void hc_ptrot_advance_argument(int *i,int argc, char **argv)
+{
+ if(argc <= *i + 1){// no arguments left
+ fprintf(stderr,"%s: input parameters: error: option \"%s\" needs a value\n",
+ argv[0],argv[*i]);
+ exit(-1);
+ }
+ *i += 1;
+}
Added: mc/1D/hc/trunk/hcplates/hc_ptrot_mem.c
===================================================================
--- mc/1D/hc/trunk/hcplates/hc_ptrot_mem.c 2007-07-11 00:35:53 UTC (rev 7640)
+++ mc/1D/hc/trunk/hcplates/hc_ptrot_mem.c 2007-07-11 06:24:16 UTC (rev 7641)
@@ -0,0 +1,60 @@
+#include "hc_ptrot.h"
+
+int *c_alloc1d(int n)
+{
+ int *data;
+
+ data = (int *) malloc(n * sizeof(int));
+ if(data == NULL) {
+ fprintf(stderr, "out of memory\n");
+ exit(1);
+ }
+ return data;
+}
+
+ double ****c_alloc4d(int dim1, int dim2, int dim3, int dim4)
+ {
+ int i,k,j;
+ double ****data;
+
+ data = (double ****) malloc(dim1*sizeof(double ***));
+
+ for (i=0; i<dim1; i++) {
+ data[i] = (double ***) malloc(dim2*sizeof(double **));
+ for (j=0; j<dim2; j++) {
+ data[i][j] = (double **) malloc(dim3*sizeof(double *));
+ for (k=0;k<dim3;k++) {
+ data[i][j][k] = (double *) malloc(dim4*sizeof(double));
+ }
+ }
+ }
+ if (data == NULL) {fprintf(stderr, "out of memory\n");
+ exit(1);
+ }
+
+ return data;
+ }
+
+double *****c_alloc5d(int dim1, int dim2, int dim3, int dim4, int dim5)
+ {
+ int i,k,j,l;
+ double *****data;
+
+ data = (double *****) malloc(dim1*sizeof(double ****));
+
+ for (i=0; i<dim1; i++) {
+ data[i] = (double ****) malloc(dim2*sizeof(double ***));
+ for (j=0; j<dim2; j++) {
+ data[i][j] = (double ***) malloc(dim3*sizeof(double **));
+ for (k=0;k<dim3;k++) {
+ data[i][j][k] = (double **) malloc(dim4*sizeof(double *));
+ for (l=0;l<dim4;l++) {
+ data[i][j][k][l] = (double *) malloc(dim5*sizeof(double));
+ }
+ }
+ }
+ }
+ return data;
+ }
+
+
Added: mc/1D/hc/trunk/hcplates/hcplates.c
===================================================================
--- mc/1D/hc/trunk/hcplates/hcplates.c 2007-07-11 00:35:53 UTC (rev 7640)
+++ mc/1D/hc/trunk/hcplates/hcplates.c 2007-07-11 06:24:16 UTC (rev 7641)
@@ -0,0 +1,78 @@
+#include <stdio.h>
+#include <math.h>
+#include <stdlib.h>
+#include <string.h>
+#include "hcplates.h"
+
+/*
+
+*/
+
+int main(int argc, char **argv)
+{
+ struct hc_plates_params plates[1];
+ struct hc_plates_arrays A[1];
+ char file1[HC_CHAR_LENGTH], file2[HC_CHAR_LENGTH], file3[HC_CHAR_LENGTH], file4[HC_CHAR_LENGTH];
+ char file5[HC_CHAR_LENGTH];
+
+ printf("Init parameters\n");
+ hc_init_params(plates);
+
+ printf("Reading command line args...\n");
+ hcplates_command_line(argc,argv,plates);
+
+ // Read parameter file somewhere here
+
+ fprintf(stderr,"Load file is %s\n",plates->loadfile);
+ fprintf(stderr,"Unitrot file is %s\n",plates->unitrotfile);
+ fprintf(stderr,"Plate map file is %s\n",plates->platemapfile);
+ fprintf(stderr,"Output file is %s\n",plates->outputfile);
+ fprintf(stderr,"Pole output file is %s\n",plates->polesfile);
+
+ printf("Init arrays\n");
+ hc_init_arrays(plates,A);
+
+ printf("Initializing arrays\n");
+ zero_arrays(plates,A);
+
+ /* Hardwire filename for now */
+
+ printf("Get loads\n");
+ //char filename[]=plates->loadfile;
+ strncpy(file1,plates->loadfile,HC_CHAR_LENGTH);
+ get_loads(plates,A,file1);
+
+ printf("Read unit rotations coefficient file\n");
+ //char file2[]="unitrot.coeffs";
+ strncpy(file2,plates->unitrotfile,HC_CHAR_LENGTH);
+ read_unitrots_get_coeff(plates,A,file2);
+
+ /*Integrate torques */
+ printf("Integrate torques \n");
+ //char file3[]="map.plate";
+ strncpy(file3,plates->platemapfile,HC_CHAR_LENGTH);
+ integrate_torques(plates,A,file3);
+
+ /* Solve for rotations */
+ printf("Solving for rotations\n");
+ solve_rot(plates,A);
+ printf("Rotations solved!\n");
+
+ /* Not doing correlations */
+
+ /* Output out.forces and out.predrot */
+ printf("Output routines:\n");
+ //write_output(plates,A);
+ printf(" Printing poles to %s \n",plates->polesfile);
+ strncpy(file4,plates->polesfile,HC_CHAR_LENGTH);
+ hc_poles(plates, A, file4);
+
+ printf(" Printing velocity field to %s \n",plates->velgridfile);
+ strncpy(file5,plates->velgridfile,HC_CHAR_LENGTH);
+ hcplates_velgrid(plates,A,file5);
+
+ printf("Done!\n");
+ return 0;
+}
+
+
Added: mc/1D/hc/trunk/hcplates/hcplates.h
===================================================================
--- mc/1D/hc/trunk/hcplates/hcplates.h 2007-07-11 00:35:53 UTC (rev 7640)
+++ mc/1D/hc/trunk/hcplates/hcplates.h 2007-07-11 06:24:16 UTC (rev 7641)
@@ -0,0 +1,188 @@
+#include <stdio.h>
+#include <math.h>
+#include <stdlib.h>
+#include <string.h>
+#include <limits.h>
+#include "hc.h"
+
+#define HC_MAX_LAYERS 100 /* Hope this is enough radial layers */
+#define MAX_NO_PLATE 30
+#define MAX_LDIM 100
+#define MAX_NPDIM 90
+#define MAX_KDIM 515 /* Note: having this too high gives seg faults But we need it... weird.*/
+
+/*
+
+ header file for Lithgow-Bertelloni's & Richards Plates extensions to Hager & O'Connell experimental code
+ O'Neill (coneill at els.qm.edu.au) & Becker (twb at usc.edu).
+
+*/
+/*void hc_init_params(struct hc_plates_params *);*/
+
+struct hc_plates_params{
+ HC_PREC RCore; /* Radius of core - following format in fotran (why e5) */
+ HC_PREC visc0; /* Normalizing viscosity */
+ HC_PREC erad;
+
+ /* Arrays, (harmonic coefficients, number of plate components etc)
+ Note: LDIM should be the largest harmonic degree used in ANY input file */
+ int NPLT;
+ int LDIM;
+ int NPDIM;
+ int LDIM1;
+ int KDIM;
+
+ /*Grid discretization - changing these to integers for loops within routine (CO'N). */
+ int dd;
+ int NLAT;
+ int NLONG;
+
+ /* Conversion factors */
+ HC_PREC stoy; /* seconds to years */
+
+ /* Earth information - to be imported */
+ int Lmax; /*Maximum order for the final torque integration for both internal and external forces*/
+ /*Should not be larger than Lplt OR Lload, but may be smaller */
+ int n; /* Number of radial layers */
+ int iba; /* Note - already use free-slip for this in hc, but not importing that structure here */
+ HC_PREC r[HC_MAX_LAYERS+1]; /* Radial layer radii */
+ HC_PREC visc[HC_MAX_LAYERS]; /* Viscosity layers */
+
+ int Lload; /* Max L of load file - will init to Lmax, should be reset when load file read */
+ int Lplt; /* Max order of SH expansion of unitrot velocities */
+
+ /* File names */
+ char loadfile[HC_CHAR_LENGTH];
+ char unitrotfile[HC_CHAR_LENGTH];
+ char platemapfile[HC_CHAR_LENGTH];
+ char outputfile[HC_CHAR_LENGTH];
+ char parameterfile[HC_CHAR_LENGTH];
+ char polesfile[HC_CHAR_LENGTH];
+ char velgridfile[HC_CHAR_LENGTH];
+
+ double ratio;
+ HC_PREC parea[MAX_NO_PLATE];
+
+
+};
+
+struct hc_plates_arrays{
+ /* Stress arrays */
+ HC_PREC **y4in;
+ HC_PREC **y2in;
+ HC_PREC **y3in;
+ HC_PREC **z3in;
+ HC_PREC ***y4ex;
+ HC_PREC ***y10ex;
+
+ /* Spherical harmonic arrays */
+
+ HC_PREC *p;
+ HC_PREC *dpdt;
+ HC_PREC *pbyst;
+ HC_PREC **torp;
+ HC_PREC *cm;
+ HC_PREC *sm;
+
+ /* Torque arrays */
+
+ HC_PREC *fin;
+ HC_PREC *rots;
+ HC_PREC *finet;
+ HC_PREC **fex;
+ HC_PREC *srt;
+ HC_PREC *srp;
+ HC_PREC *fins;
+ HC_PREC **fexs;
+ HC_PREC *ww;
+ HC_PREC **vv;
+
+ HC_PREC **trta;
+ HC_PREC **trpa;
+ HC_PREC **trra;
+ HC_PREC ***srpa;
+ HC_PREC ***srta;
+
+ /* Plate id's */
+
+ int **idp;
+
+ /* For solve rots routines */
+
+ HC_PREC *WW;
+ HC_PREC **VV;
+
+ /* velgrid */
+
+ HC_PREC *pointx;
+ HC_PREC *pointy;
+ HC_PREC *pointz;
+ HC_PREC *pointx2;
+ HC_PREC *pointy2;
+ HC_PREC *pointz2;
+ HC_PREC **vtheta;
+ HC_PREC **vphi;
+
+
+};
+
+
+
+/* hcplates_init.c */
+void hc_init_params(struct hc_plates_params *);
+double *c_alloc1d(int);
+double **c_alloc2d(int, int);
+int **i_alloc2d(int,int);
+void Free1D(double *);
+/*where's the rest */
+
+void hc_init_arrays(struct hc_plates_params *, struct hc_plates_arrays *);
+void hcplates_command_line(int, char **, struct hc_plates_params *);
+void hcplates_advance_argument(int *, int, char **);
+void read_parameter_file(struct hc_plates_params *);
+
+
+/* zero_arrays.c */
+void zero_arrays(struct hc_plates_params *,struct hc_plates_arrays *);
+
+/*plates_propagator.c */
+void mamlt2(double [3][3], double [3][3], double [3][3]);
+void mamlt4(double [5][5], double [5][5], double [5][5]);
+void prop4(int ,double, double, double [5][5]);
+void prop2(int ,double, double, double [3][3]);
+void torvel(struct hc_plates_params *,int, int, double [3], double [3]);
+void polvel(struct hc_plates_params *,int,int, double [5], double [5]);
+void poload(struct hc_plates_params *,int,int,int,int,double,double, double [5], double [5]);
+
+/* get_loads.c */
+void get_loads(struct hc_plates_params *, struct hc_plates_arrays *, char []);
+
+/* Read unitrots */
+void read_unitrots_get_coeff(struct hc_plates_params *, struct hc_plates_arrays *, char []);
+
+/*crlb_vector_plm.c */
+void crlb_vecplm(struct hc_plates_params *, struct hc_plates_arrays *, double, int);
+void crlb_polyfact(int,double []);
+void crlb_plm(double,int,struct hc_plates_arrays *);
+
+/* integrate_torques.c */
+void integrate_torques(struct hc_plates_params *, struct hc_plates_arrays *, char []);
+
+/* solve_rot.c */
+void solve_rot(struct hc_plates_params *, struct hc_plates_arrays * );
+double pythag(double,double);
+void svdcmp(struct hc_plates_params *,struct hc_plates_arrays *,int,int);
+void svbksb(struct hc_plates_params *, struct hc_plates_arrays *, int,int);
+/* in crlb_residual.c */
+void crlb_residual(struct hc_plates_arrays *, int,int, double *, double *);
+
+/* in hc_plates_write_output.c */
+void hc_poles(struct hc_plates_params *, struct hc_plates_arrays *, char[]);
+void hcplates_velgrid(struct hc_plates_params *, struct hc_plates_arrays *, char[]);
+void vspher(struct hc_plates_params *, struct hc_plates_arrays *);
+void vellin(struct hc_plates_params *, struct hc_plates_arrays *, int *, double, double, double *, double *, double *);
+void point(struct hc_plates_params *, struct hc_plates_arrays *, int *, double, double, double *, double *, double *);
+void point2(struct hc_plates_params *, struct hc_plates_arrays *, int *, double, double, double *, double *, double *);
+
+
+
Added: mc/1D/hc/trunk/hcplates/hcplates_init.c
===================================================================
--- mc/1D/hc/trunk/hcplates/hcplates_init.c 2007-07-11 00:35:53 UTC (rev 7640)
+++ mc/1D/hc/trunk/hcplates/hcplates_init.c 2007-07-11 06:24:16 UTC (rev 7641)
@@ -0,0 +1,492 @@
+#include <stdio.h>
+#include <math.h>
+#include <stdlib.h>
+#include "hcplates.h"
+
+
+/*
+
+ input file for Lithgow-Bertelloni's & Richards Plates extensions to Hager & O'Connell experimental code
+ O'Neill (coneill at els.qm.edu.au) & Becker (twb at usc.edu).
+
+ This has routine to: set initial defaults
+ handle the command line args (ie. just the input file name)
+ read the input file, and assign parameters
+
+*/
+void hc_init_params(struct hc_plates_params *plates)
+{
+ int NPLT, LDIM, dd, m, i;
+
+ HC_PREC r2[] = {0.0, 3480.0e5, 5700.0e5, 6140.0e5, 6240.0e5,6370.0e5}; /* Note we adopt the fotran indices scheme so the 0 entry in the array is just a decoy! */
+ HC_PREC visc2[] = {0, 50, 1, 1, 10};
+ HC_PREC pparea[] = {0, 0.77691E+14, 0.59987E+14, 0.49031E+13, 0.36125E+13, 0.31173E+13, 0.68647E+14, 0.61026E+14, 0.58440E+14, 0.16462E+14, 0.10806E+15, 0.57208E+13, 0.42244E+14};
+
+
+ NPLT = 11;
+ LDIM = 25;
+ printf("Assigning default parameters first\n");
+ plates->RCore = 3480.0e5; /* Why the e5? Its in cm's? */
+ plates->erad = 6370.0e5; /*Earth radius */
+ plates->visc0 = 1.0e22;
+ plates->NPLT = NPLT;
+ plates->LDIM = LDIM; /* Absolute max */
+ plates->NPDIM = 3 * NPLT;
+ plates->LDIM1 = LDIM + 1;
+ plates->KDIM = (LDIM + 2)*(LDIM+1)/2;
+
+ plates->dd=1;
+ dd = plates->dd;
+ plates->NLAT = 180/dd;
+ plates->NLONG = 360/dd;
+
+ plates->stoy = 365.0*24.0*60.0*60.0;
+
+ /* EArth information - to be imported. Defaults are from CRLB present day file */
+ plates->Lmax = 20;
+ plates->n = 4;
+ plates->iba = 0; /*Always want no-slip for the plates calculation */
+
+ plates->Lload = plates->Lmax;
+ plates->Lplt = plates->Lmax;
+
+ m=plates->n + 1;
+ plates->r[0] = 0.0;
+ plates->visc[0] = 0.0;
+ for (i=1;i<m;i++) {
+ plates->r[i] = r2[i];
+ plates->visc[i]= visc2[i];
+ }
+ plates->r[m] = r2[m];
+
+ for (i=1; i<=plates->NPLT; i++) {
+ plates->parea[i] = pparea[i];
+ }
+
+ /* Init filename defaults */
+ strncpy(plates->loadfile,"point.j",HC_CHAR_LENGTH);
+ strncpy(plates->unitrotfile,"unitrot.coeffs",HC_CHAR_LENGTH);
+ strncpy(plates->platemapfile,"map.plate",HC_CHAR_LENGTH);
+ strncpy(plates->outputfile,"hcplates.output",HC_CHAR_LENGTH);
+ strncpy(plates->polesfile,"hcpoles.output",HC_CHAR_LENGTH);
+ strncpy(plates->velgridfile,"hc_velgrid.output",HC_CHAR_LENGTH);
+
+ plates->ratio = 1.0; /* This is rigged from CRLB's final answer which depends on observed plate rotations*/
+ /* We want our answers independent of observations, but will keep this scaling factor for consistency with old fortran */
+ printf(" NLAT = %i \n",plates->NLAT);
+}
+
+double *c_alloc1d(int n)
+{
+ double *dp = (double *)malloc(n * sizeof(double));
+ if(dp == NULL) {
+ fprintf(stderr, "out of memory\n");
+ exit(1);
+ }
+ return dp;
+}
+
+double **c_alloc2d(int m, int n)
+{
+ int i;
+ double **dpp = (double **)malloc(m * sizeof(double *));
+ if(dpp == NULL) {
+ fprintf(stderr, "out of memory\n");
+ exit(1);
+ }
+ for(i = 0; i < m; i++) {
+ if((dpp[i] = (double *)malloc(n * sizeof(double))) == NULL) {
+ fprintf(stderr, "out of memory\n");
+ exit(1);
+ }
+ }
+ return dpp;
+}
+
+int **i_alloc2d(int m, int n)
+{
+ int i;
+ int **dpp = (int **)malloc(m * sizeof(int *));
+ if(dpp == NULL) {
+ fprintf(stderr, "out of memory\n");
+ exit(1);
+ }
+ for(i = 0; i < m; i++) {
+ if((dpp[i] = (int *)malloc(n * sizeof(int))) == NULL) {
+ fprintf(stderr, "out of memory\n");
+ exit(1);
+ }
+ }
+ return dpp;
+}
+
+
+void Free1D(double *data)
+ {
+ if(data != NULL)
+ {
+ free(data);
+ data = NULL;
+ }
+ }
+
+void c_free2d(double **dpp, int m)
+{
+ int i;
+ for(i = 0; i < m; i++)
+ free((void *)dpp[i]);
+
+ free((void *)dpp);
+}
+
+
+void Free2D(double **data)
+ {
+ Free1D(*data);
+ Free1D((double *) data);
+ }
+
+
+void Free3D(double ***data)
+ {
+ Free1D(**data);
+ Free2D((double **) data);
+ }
+
+
+/*
+ Initializes the allocated space to 0 .
+ Returns NULL if there is not enough memory
+ or dim1 <= 0 or dim2 <= 0 or dim3 <= 0 .
+*/
+
+double ***c_alloc3d(int dim1, int dim2, int dim3)
+ {
+ int i, j;
+ int offset1, offset2;
+ double ***data;
+
+ if(dim1 <= 0 || dim2 <= 0 || dim3 <= 0)
+ return NULL;
+
+ data = (double ***) malloc(dim1 * sizeof(double **));
+
+ if(data == NULL)
+ return NULL;
+
+ *data = (double **) malloc(dim1 * dim2 * sizeof(double *));
+
+ if(*data == NULL)
+ return NULL;
+
+ **data = (double *) calloc(dim1 * dim2 * dim3, sizeof(double)); //typo?
+
+ if(**data == NULL)
+ return NULL;
+
+ for(i = 0; i < dim1; i++)
+ {
+ offset1 = i * dim2;
+ offset2 = offset1 * dim3;
+ data[i] = (*data) + offset1;
+
+ for(j = 0; j < dim2; j++)
+ (*data)[offset1 + j] = (**data) + offset2 + j * dim3;
+ }
+
+ return data;
+ }
+
+
+void hc_init_arrays(struct hc_plates_params *plates, struct hc_plates_arrays *A)
+{
+ /* Allocate shear stress coefficient arrays */
+ A->y4in = c_alloc2d(plates->KDIM+1,5);
+ A->y2in = c_alloc2d(plates->KDIM+1,5);
+ A->y3in = c_alloc2d(plates->KDIM+1,5);
+ A->z3in = c_alloc2d(plates->KDIM+1,5);
+
+ A->y4ex = c_alloc3d(plates->NPDIM+1,plates->KDIM+1,4);
+ A->y10ex = c_alloc3d(plates->NPDIM+1,plates->KDIM+1,4);
+
+ /* Allocate spherical harmonic arrays */
+
+ A->p = c_alloc1d(plates->KDIM+1);
+ A->dpdt = c_alloc1d(plates->KDIM+1);
+ A->pbyst = c_alloc1d(plates->KDIM+1);
+ A->torp = c_alloc2d(plates->NLAT+1,plates->KDIM+1);
+ A->cm = c_alloc1d(plates->LDIM1+1);
+ A->sm = c_alloc1d(plates->LDIM1+1);
+
+ /* Allocate torque arrays */
+
+ A->fin = c_alloc1d(plates->NPDIM+1);
+ A->rots = c_alloc1d(plates->NPDIM+1);
+ A->finet = c_alloc1d(plates->NPDIM+1);
+ A->fex = c_alloc2d(plates->NPDIM+1,plates->NPDIM+1);
+ A->srt = c_alloc1d(plates->NPDIM+1);
+ A->srp = c_alloc1d(plates->NPDIM+1);
+ A->fins = c_alloc1d(plates->NPDIM+1);
+ A->fexs = c_alloc2d(plates->NPDIM+2,plates->NPDIM+2);
+ A->ww = c_alloc1d(plates->NPDIM+1);
+ A->vv = c_alloc2d(plates->NPDIM+1,plates->NPDIM+1);
+
+ A->trta = c_alloc2d(plates->NLAT+1,plates->NLONG+1);
+ A->trpa = c_alloc2d(plates->NLAT+1,plates->NLONG+1);
+ A->trra = c_alloc2d(plates->NLAT+1,plates->NLONG+1);
+
+ printf(" Now for the big torque arrays: srpa * srta...\n");
+ A->srpa = c_alloc3d(plates->NLAT+1,plates->NLONG+1,plates->NPDIM+1);
+ A->srta = c_alloc3d(plates->NLAT+1,plates->NLONG+1,plates->NPDIM+1);
+
+ A->idp = i_alloc2d(plates->NLAT+1,plates->NLONG+1);
+
+ A->WW = c_alloc1d(plates->NPDIM+1);
+ A->VV = c_alloc2d(plates->NPDIM+1,plates->NPDIM+1);
+
+
+ A->pointx = c_alloc1d(plates->NPDIM+1);
+ A->pointy = c_alloc1d(plates->NPDIM+1);
+ A->pointz = c_alloc1d(plates->NPDIM+1);
+
+ A->pointx2 = c_alloc1d(plates->NPDIM+1);
+ A->pointy2 = c_alloc1d(plates->NPDIM+1);
+ A->pointz2 = c_alloc1d(plates->NPDIM+1);
+
+ A->vtheta = c_alloc2d(plates->NLAT+1,plates->NLONG+1);
+ A->vphi = c_alloc2d(plates->NLAT+1,plates->NLONG+1);
+
+ //printf(" alloc: NLAT = %i \n",plates->NLAT);
+
+}
+
+
+void hcplates_command_line(int argc, char **argv,
+ struct hc_plates_params *p)
+{
+ int i;
+ //printf("In here?\n");
+ for(i=1;i < argc;i++){
+ //printf("In here? 2\n");
+ if(strcmp(argv[i],"-h")==0 || strcmp(argv[i],"-?")==0){// help
+ /*
+ help page
+ */
+ fprintf(stderr,"%s - HCPLATES \n",
+ argv[0]);
+ fprintf(stderr,"Options:\n\n");
+ fprintf(stderr,"-L load file. Default point.j.\n");
+ fprintf(stderr,"-U Unitrot file (output from ptrot). Default unitrot.coeffs. \n");
+ fprintf(stderr,"-T map plate file for torque integration. Default map.plate. \n");
+ fprintf(stderr,"-O output file (default: hcplates.output) containing ... stuff. \n");
+ fprintf(stderr,"-Op POLES output file (default: hcpoles.output) containing ... stuff. \n");
+ fprintf(stderr,"-Ov VEL GRID output file (default: hc_velgrid.output) containing ... stuff. \n");
+ fprintf(stderr,"-P parameter file name to override defaults. Be a little careful here, file structure counts. \n");
+ fprintf(stderr,"\n\n");
+ exit(-1);
+ }
+ else if(strcmp(argv[i],"-L")==0){ /* load filename */
+ // printf("In here? 3\n");
+ hcplates_advance_argument(&i,argc,argv);
+ strncpy(p->loadfile,argv[i],HC_CHAR_LENGTH);
+ }
+ else if(strcmp(argv[i],"-U")==0){ /* data filename */
+ // printf("In here? 4\n");
+ hcplates_advance_argument(&i,argc,argv);
+ strncpy(p->unitrotfile,argv[i],HC_CHAR_LENGTH);
+ }
+ else if(strcmp(argv[i],"-T")==0){ /* torque filename */
+ // printf("In here? 4\n");
+ hcplates_advance_argument(&i,argc,argv);
+ strncpy(p->platemapfile,argv[i],HC_CHAR_LENGTH);
+ }
+ else if(strcmp(argv[i],"-O")==0){ /* output filename */
+ // printf("In here? 4\n");
+ hcplates_advance_argument(&i,argc,argv);
+ strncpy(p->outputfile,argv[i],HC_CHAR_LENGTH);
+ }
+ else if(strcmp(argv[i],"-Op")==0){ /* output filename */
+ // printf("In here? 4\n");
+ hcplates_advance_argument(&i,argc,argv);
+ strncpy(p->polesfile,argv[i],HC_CHAR_LENGTH);
+ }
+ else if(strcmp(argv[i],"-Ov")==0){ /* output filename */
+ // printf("In here? 4\n");
+ hcplates_advance_argument(&i,argc,argv);
+ strncpy(p->velgridfile,argv[i],HC_CHAR_LENGTH);
+ }
+ else if(strcmp(argv[i],"-P")==0){ /* parameter filename */
+ // printf("In here? 4\n");
+ printf(" P!: NLAT = %i \n",p->NLAT);
+ hcplates_advance_argument(&i,argc,argv);
+ strncpy(p->parameterfile,argv[i],HC_CHAR_LENGTH); /*prob string to integer? */
+ read_parameter_file(p);
+ printf(" P2: NLAT = %i \n",p->NLAT);
+ }
+ else{
+ // printf("In here? 5\n");
+ fprintf(stderr,"%s: can not use parameter %s, use -h for help page\n",
+ argv[0],argv[i]);
+ exit(-1);
+ }
+ }
+}
+
+/*
+
+//
+// check, if we can read a value for the option flag in a chain of command line
+// arguments
+// */
+void hcplates_advance_argument(int *i,int argc, char **argv)
+{
+ if(argc <= *i + 1){// no arguments left
+ fprintf(stderr,"%s: input parameters: error: option \"%s\" needs a value\n",
+ argv[0],argv[*i]);
+ exit(-1);
+ }
+ *i += 1;
+}
+
+void read_parameter_file(struct hc_plates_params *p) {
+ FILE *filePtr_P;
+ char file_P[HC_CHAR_LENGTH];
+ char toss1[3000];
+ double toss2,toss3;
+ int i,nlayer,m;
+ HC_PREC r2[30],visc2[30],p_area[30];
+
+ fprintf(stderr,"Reading parameter file %s\n",p->parameterfile);
+
+ strncpy(file_P,p->parameterfile,HC_CHAR_LENGTH);
+ filePtr_P = fopen(file_P, "r");
+ if (filePtr_P == NULL)
+ { printf("Error loading parameter file. Will use defaults. Ciao. \n"); }
+ else {
+
+ fscanf(filePtr_P,"%[^\n]%*1[\n]",&toss1); //Skip first 4 lines
+ //fprintf(stderr,"%s \n",toss1);
+ fscanf(filePtr_P,"%[^\n]%*1[\n]",&toss1);
+ //fprintf(stderr,"%s \n",toss1);
+ fscanf(filePtr_P,"%[^\n]%*1[\n]",&toss1);
+ //fprintf(stderr,"%s \n",toss1);
+ fscanf(filePtr_P,"%[^\n]%*1[\n]",&toss1);
+ //fprintf(stderr,"%s \n",toss1);
+ fscanf(filePtr_P," %[^\n]%*1[\n]",&toss1); //This will read blank line and next text line as one
+
+ // read no. distinct layers
+ fscanf(filePtr_P,"%s %i",&toss1,&nlayer);
+ fprintf(stderr," nlayer = %i \n",nlayer);
+ fscanf(filePtr_P," %[^\n]%*1[\n]",&toss1); //This will read blank line and next text line as one
+
+ //Scan in viscosity for different layers
+ fscanf(filePtr_P,"%s",&toss1);
+ for (i=0; i<=nlayer; i++) {
+ fscanf(filePtr_P,"%lf",&r2[i]);
+ }
+
+ //fscanf(filePtr_P,"%s %lf %lf %lf %lf %lf %lf",&toss1,&p->r[0],&p->r[1],&p->r[2],&p->r[3],&p->r[4],&p->r[5]);
+ for (i=0; i<=nlayer; i++) {
+ r2[i] *=1e5;
+ }
+
+ //fprintf(stderr," %s %lf, %lf, %lf, %lf %lf, %lf\n",toss1,p->r[0],p->r[1],p->r[2],p->r[3],p->r[4],p->r[5]);
+ fscanf(filePtr_P," %[^\n]%*1[\n]",&toss1); //This will read blank line and next text line as one
+
+ // Read viscosity
+ fscanf(filePtr_P,"%s %lf",&toss1,&p->visc0);
+ fprintf(stderr," visc0 = %lf \n",p->visc0);
+ fscanf(filePtr_P," %[^\n]%*1[\n]",&toss1); //This will read blank line and next text line as one
+
+ // Viscosity layers
+ fscanf(filePtr_P,"%s",&toss1);
+ for (i=0; i<nlayer; i++) {
+ fscanf(filePtr_P,"%lf",&visc2[i]);
+ fprintf(stderr," %i %lf\n",i,visc2[i]);
+ }
+
+ fscanf(filePtr_P," %[^\n]%*1[\n]",&toss1); //This will read blank line and next text line as one
+ // core radius
+ fscanf(filePtr_P,"%s %lf",&toss1,&p->RCore);
+ fprintf(stderr," Rcore = %lf km \n",p->RCore);
+ p->RCore *= 1e5; //units not kms
+ fscanf(filePtr_P," %[^\n]%*1[\n]",&toss1); //This will read blank line and next text line as one
+ // earth radius
+ fscanf(filePtr_P,"%s %lf",&toss1,&p->erad);
+ fprintf(stderr," Rearth = %lf km \n",p->erad);
+ p->erad *= 1e5; //units not kms
+ fscanf(filePtr_P," %[^\n]%*1[\n]",&toss1); //This will read blank line and next text line as one
+ //No .plates
+ fscanf(filePtr_P,"%s %i",&toss1,&p->NPLT);
+ fprintf(stderr," NPLT = %i \n",p->NPLT);
+ fscanf(filePtr_P," %[^\n]%*1[\n]",&toss1); //This will read blank line and next text line as one
+ // Plate areas
+ // Viscosity layers
+ fscanf(filePtr_P,"%s",&toss1);
+ for (i=0; i<=p->NPLT; i++) {
+ fscanf(filePtr_P,"%lf",&p_area[i]);
+ fprintf(stderr," %i %lf\n",i,p_area[i]);
+ }
+ fscanf(filePtr_P," %[^\n]%*1[\n]",&toss1); //This will read blank line and next text line as one
+ //LDIM
+ fscanf(filePtr_P,"%s %i",&toss1,&p->LDIM);
+ fprintf(stderr," LDIM = %i \n",p->LDIM);
+ fscanf(filePtr_P," %[^\n]%*1[\n]",&toss1); //This will read blank line and next text line as one
+
+ // Dependents
+ p->NPDIM = 3 * p->NPLT;
+ p->LDIM1 = p->LDIM + 1;
+ p->KDIM = (p->LDIM + 2)*(p->LDIM+1)/2;
+
+ // Geopgraphic divisor
+ fscanf(filePtr_P,"%s %i",&toss1,&p->dd);
+ fprintf(stderr," dd = %i \n",p->dd);
+ fscanf(filePtr_P," %[^\n]%*1[\n]",&toss1); //This will read blank line and next text line as one
+ // time conversion factor
+
+ fscanf(filePtr_P,"%s %lf",&toss1,&p->stoy);
+ fprintf(stderr," stoy = %lf \n",p->stoy);
+ fscanf(filePtr_P," %[^\n]%*1[\n]",&toss1); //This will read blank line and next text line as one
+ //Lmax
+
+ fscanf(filePtr_P,"%s %i",&toss1,&p->Lmax);
+ fprintf(stderr," Lmax = %i \n",p->Lmax);
+ fscanf(filePtr_P," %[^\n]%*1[\n]",&toss1); //This will read blank line and next text line as one
+ //n
+ fscanf(filePtr_P,"%s %i",&toss1,&p->n);
+ fprintf(stderr," n = %i \n",p->n);
+ fscanf(filePtr_P," %[^\n]%*1[\n]",&toss1); //This will read blank line and next text line as one
+ //no-slip
+ fscanf(filePtr_P,"%s %i",&toss1,&p->iba);
+ fprintf(stderr," iba = %i \n",p->iba);
+ // scaling ratio for velocities at end
+ //no-slip
+ fscanf(filePtr_P," %[^\n]%*1[\n]",&toss1); //This will read blank line and next text line as one
+ fscanf(filePtr_P,"%s %lf",&toss1,&p->ratio);
+ fprintf(stderr," ratio = %lf \n",p->ratio);
+ //DONE
+
+
+ p->Lload = p->Lmax;
+ p->Lplt = p->Lmax;
+
+ m=p->n + 1;
+ p->r[0] = 0.0;
+ p->visc[0] = 0.0;
+ for (i=1;i<m;i++) {
+ p->r[i] = r2[i];
+ p->visc[i]= visc2[i];
+ }
+ p->r[m] = r2[m];
+
+ for (i=1; i<=p->NPLT; i++) {
+ p->parea[i] = p_area[i];
+ }
+
+ printf(" NLAT = %i \n",p->NLAT);
+
+ fclose(filePtr_P);
+ }
+
+}
+
Added: mc/1D/hc/trunk/hcplates/hcplates_write_output.c
===================================================================
--- mc/1D/hc/trunk/hcplates/hcplates_write_output.c 2007-07-11 00:35:53 UTC (rev 7640)
+++ mc/1D/hc/trunk/hcplates/hcplates_write_output.c 2007-07-11 06:24:16 UTC (rev 7641)
@@ -0,0 +1,193 @@
+#include <stdio.h>
+#include <math.h>
+#include <stdlib.h>
+#include <string.h>
+#include "hcplates.h"
+
+/*
+
+Writing output.
+FEX -> out.forces
+fin*ratio ->out.forces
+
+rot*ratio -> out.predrot
+
+*/
+
+void hc_poles(struct hc_plates_params *p, struct hc_plates_arrays *A, char pole_file[]) {
+ FILE *filePtr;
+ int i,tmp,NPLT;
+ double x,y,z,angvel,rlat,rlong,w,rtheta,rphi,tmp1,tmp2,tmp3;
+
+ NPLT = p->NPLT;
+ filePtr = fopen(pole_file, "w");
+ if (filePtr == NULL)
+ { printf("Error writing pole file. \n"); }
+ else
+ {
+ printf(" Opened pole file file ok\n");
+
+ for (i=1; i<=NPLT; i++) {
+ tmp = 3*(i-1);
+ tmp1 = A->rots[tmp+1]*p->stoy;
+ tmp2 = A->rots[tmp+2]*p->stoy;
+ tmp3 = A->rots[tmp+3]*p->stoy;
+
+ x = tmp1*p->ratio;
+ y = tmp2*p->ratio;
+ z = tmp3*p->ratio;
+
+ //printf("%i x %le y %le z %le ratio %le stoy %le \n",i,x,y,z,p->ratio,p->stoy);
+ //printf(" Rots: %lf %lf %lf \n",tmp1,tmp2,tmp3);
+
+ angvel = sqrt(x*x + y*y + z*z);
+ rlat = acos(z/angvel);
+ rlong = atan2(y,x);
+ w = angvel*1e6*180.0/(M_PI*p->erad);
+ rtheta = 90.0 - rlat*180.0/M_PI;
+ rphi = rlong*180.0/M_PI;
+ //printf(" angvel %le rlat %lf rlong %lf w %lf rtheta %lf rphi %lf \n",angvel,rlat,rlong,w,rtheta,rphi);
+
+ /* OUTPUT */
+ fprintf(filePtr," %i %lf %lf %lf \n",i,w,rtheta,rphi);
+ }
+ }
+ fclose(filePtr);
+}
+
+
+void hcplates_velgrid(struct hc_plates_params *p, struct hc_plates_arrays *A, char velgrid_file[])
+{
+ FILE *filePtr;
+ double pxlat,pxlong,ratio;
+ int jl,jm;
+
+ /* Open plates_map file for reading */
+ filePtr = fopen(velgrid_file, "w");
+ if (filePtr == NULL)
+ { printf("Error writing velgrid file. \n"); }
+ else
+ {
+ printf(" Opened velgrid file ok\n");
+ vspher(p,A);
+ printf(" Done vspher \n");
+ for (jl=1;jl<=p->NLAT;jl++) {
+ pxlat = p->dd*(jl - 0.5) - 90.0;
+ for (jm=1;jm<p->NLONG;jm++) {
+ pxlong = p->dd*(jm - 0.5);
+ A->vtheta[jl][jm] *= p->ratio;
+ A->vphi[jl][jm] *= p->ratio;
+ fprintf(filePtr," %lf %lf %le %le \n",pxlong,pxlat,A->vphi[jl][jm],A->vtheta[jl][jm]);
+ }
+ }
+ fclose(filePtr);
+ }
+}
+
+void vspher(struct hc_plates_params *p, struct hc_plates_arrays *A)
+{
+ int ik,k,i,idx;
+ double npdiv3,plat,plong,ethex,ethey,ethez;
+ double ephix,ephiy,ephiz,velx,vely,velz,velx2,vely2,velz2;
+
+ //Open output files...
+ npdiv3 = p->NPDIM/3;
+
+ for (ik=1; ik<=npdiv3; ik++) {
+ A->pointx[ik] = 0.0;
+ A->pointy[ik] = 0.0;
+ A->pointz[ik] = 0.0;
+ A->pointx2[ik] = 0.0;
+ A->pointy2[ik] = 0.0;
+ A->pointz2[ik] = 0.0;
+ }
+
+ for (k=1; k <=p->NLAT; k++) {
+ plat = (90.0 - (p->dd*(k-0.5) - 90.0))*M_PI/180.0;
+ for (i=1; i<=p->NLONG; i++) {
+ plong = (p->dd*(i-0.5))*M_PI/180.0;
+ idx = A->idp[k][i];
+
+ ethex = -sin(M_PI/2 - plat)*cos(plong);
+ ethey = -sin(M_PI/2 - plat)*sin(plong);
+ ethez = cos(M_PI/2 - plat);
+
+ ephix = -sin(plong);
+ ephiy = cos(plong);
+ ephiz = 0.0;
+
+ //printf(" ... plong:%lf plat:%lf\n",plong,plat);
+ //printf(" calling vellin %lf \n",plat);
+ vellin(p,A,&idx,plat,plong,&velx,&vely,&velz);
+ //printf(" %i/%i ethex:%lf ethey:%lf ethez:%lf velx:%lf vely:%lf velz:%lf \n",k,i,ethex,ethey,ethez,velx,vely,velz);
+ A->vtheta[k][i] = ethex*velx + ethey*vely + ethez*velz;
+ //printf(" ephix:%lf ephiy:%lf vtheta:%lf vphi:%lf \n",ephix,ephiy,A->vtheta[k][i],A->vphi[k][i]);
+ A->vphi[k][i] = ephix*velx + ephiy*vely;
+
+ /* NOW DO WEIGHTING OF VELX VELY VELZ */
+ //printf(" calling point %lf \n",vely);
+ point(p,A,&idx,plat,plong,&velx,&vely,&velz);
+
+ velx2 = pow(velx,2);
+ vely2 = pow(vely,2);
+ velz2 = pow(velz,2);
+ //printf(" calling point2 %lf \n",vely2);
+ point2(p,A,&idx,plat,plong,&velx2,&vely2,&velz2);
+
+ /* DoNE WEIGHTING */
+
+ /* OUTPUT LINEAR VEL COMPONENTS HERE */
+
+ }
+
+ }
+
+
+}
+
+void vellin(struct hc_plates_params *p, struct hc_plates_arrays *A, int *idp, double plat, double plong, double *velx, double *vely, double *velz)
+{
+ double px,py,pz;
+ int jj;
+
+ px = sin(plat)*cos(plong);
+ py = sin(plat)*sin(plong);
+ pz = cos(plat);
+
+ jj = 3*(*idp - 1);
+
+ *velx = p->stoy*(A->rots[jj+2]*pz - A->rots[jj+3]*py);
+ *vely = p->stoy*(A->rots[jj+3]*px - A->rots[jj+1]*pz);
+ *velz = p->stoy*(A->rots[jj+1]*py - A->rots[jj+2]*px);
+}
+
+void point(struct hc_plates_params *p, struct hc_plates_arrays *A, int *idx, double plat, double plong, double *velx, double *vely, double *velz)
+{
+ int npdiv3;
+ double dtheta,dphi,earea2;
+ int iidx;
+
+ iidx = (int) (*idx);
+
+ dtheta = p->dd*M_PI/180.0;
+ dphi = p->dd*M_PI/180.0;
+ earea2 = pow(p->erad,2);
+
+ A->pointx[iidx] += (*velx)*earea2*sin(plat)*dtheta*dphi;
+ A->pointy[iidx] += (*vely)*earea2*sin(plat)*dtheta*dphi;
+ A->pointz[iidx] += (*velz)*earea2*sin(plat)*dtheta*dphi;
+}
+
+void point2(struct hc_plates_params *p, struct hc_plates_arrays *A, int *idx, double plat, double plong, double *velx, double *vely, double *velz)
+{
+ int npdiv3;
+ double dtheta,dphi,earea2;
+
+ dtheta = p->dd*M_PI/180.0;
+ dphi = p->dd*M_PI/180.0;
+ earea2 = pow(p->erad,2);
+
+ A->pointx2[*idx] += (*velx)*earea2*sin(plat)*dtheta*dphi;
+ A->pointy2[*idx] += (*vely)*earea2*sin(plat)*dtheta*dphi;
+ A->pointz2[*idx] += (*velz)*earea2*sin(plat)*dtheta*dphi;
+}
\ No newline at end of file
Added: mc/1D/hc/trunk/hcplates/integrate_torques.c
===================================================================
--- mc/1D/hc/trunk/hcplates/integrate_torques.c 2007-07-11 00:35:53 UTC (rev 7640)
+++ mc/1D/hc/trunk/hcplates/integrate_torques.c 2007-07-11 06:24:16 UTC (rev 7641)
@@ -0,0 +1,203 @@
+#include <math.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include "hcplates.h"
+
+/* Routine to integrate the torques on the plates due to 1) internal loads, and
+2) externally imposed plate motions
+
+loop on latitude, longitude coordinates: read plate index number (from the file map.plate - assumes nlat=0:180 & NLONG=0:360, if not, better mkae these loops and map.plate match up...), compute
+coordinate angles, Legendre polynomials, and spherical harmonic functions
+For the record, at the moment dd=1, nlat=180/dd=180, and nlong=360/dd=360.
+
+Returns arrays fin & fex, as well as srta, srpa, trta, trpa & trra.
+
+ */
+
+void integrate_torques(struct hc_plates_params *plates, struct hc_plates_arrays *A, char platesmap_filename[])
+{
+ FILE *filePtr;
+ double theta,dtheta,dd,dphi,phi,ctheta,stheta,rtheta,pi;
+ double cphi,sphi,rphi;
+ double e1,e2,e3,e4,e5;
+ double trt,trp,trr,trrc,srt[plates->NPDIM],srp[plates->NPDIM];
+ double cc,ss,dtylm1,dtylm2,dpylm1,dpylm2,pk1,pk2;
+ double area, torp[plates->NLAT][102], cm[101],sm[101];
+ double toss1,toss2;
+ int ilat,ilong,kkmax,kk,lineNumber,cursorPosition,id,m,L,k,ind1,ii,iplt,idir,ind2,ilon;
+ char ch,inputLine[500];
+
+ pi=M_PI;
+
+ /* Open plates_map file for reading */
+ filePtr = fopen(platesmap_filename, "r");
+ if (filePtr == NULL)
+ { printf("Error opening file. \n"); }
+ else
+ {
+ printf(" Opened platesmap file ok\n");
+ /* Initialize these degree partition counters */
+ dd=1.0; /* 1x1 degree mesh */
+ dtheta=dd*pi/180.0;
+ dphi=dtheta;
+ theta=180.5*dtheta;
+ printf(" Pre lat loop: NLAT=%d, theta=%lf dtheta=%lf \n",plates->NLAT,theta,dtheta);
+ for (ilat=1; ilat <= plates->NLAT; ilat++) {
+ theta -= dtheta; /* decrements on each lat loop */
+ printf(" Integrating - looping though lats: ilat=%d theta=%lf %i \n",ilat,theta,plates->NPLT);
+ ctheta=cos(theta);
+ stheta=sin(theta); //already in rad
+ phi=-0.5*dphi;
+ rtheta= ilat - 90.5;
+
+ /* note that a factor of erad*erad*erad has been left out of 'area', since it ultimately
+ c*** multiplies both sides of the final matrix equation */
+ area=stheta*dtheta*dphi;
+
+ /* c*** compute Legendre functions and derivatives */
+ //printf(" Calling crlb_vecplm, theta=%lf Lmax=%d A->p[0]=%lf\n",theta,plates->Lmax,A->p[0]);
+ crlb_vecplm(plates, A,theta,plates->Lmax); /*WORKING */
+ //printf("torpy: \n");
+
+ kkmax=(plates->Lmax+1)*(plates->Lmax+2)/2;
+
+ //printf(" Lmax= %i kkmax = %i ilat=%i A->p[kk]=%lf torp=%lf \n",plates->Lmax,kkmax,ilat,A->p[kkmax]);
+
+ for (kk=1; kk<=kkmax; kk++) {
+ // printf(" ilat=%i, kk=%i p[kk]=%lf torp=%lf \n",ilat,kk,A->p[kk],A->torp[ilat][kk],A->torp[ilat][1]);
+ A->torp[ilat][kk]=A->p[kk];
+ }
+ //printf("torpy -done:\n");
+ for (ilon=1; ilon <= plates->NLONG; ilon++) {
+ /* read plate index number */
+ //lineNumber=0;
+ //cursorPosition=0;
+ //ch=fgetc(filePtr);
+ /*while (ch!='\n' || ch!='^M') {
+ if (cursorPosition >= 500) {
+ printf("Line in platesmap file unexpectedly long. Ciao.\n");
+ exit(0);
+ }
+ inputLine[cursorPosition] = ch;
+ cursorPosition++;
+ ch=fgetc(filePtr);
+ }*/
+ //printf("Reading line:\n");
+ //fscanf(filePtr,"%s",&inputLine);
+ //fscanf(filePtr,"%i %lf %lf",&id,&toss1,&toss2);
+ //printf("Reading line1: (line): %s",inputLine);
+ fgets(inputLine, 100, filePtr);
+ id = atoi(inputLine); /*atoi "should" read the first integer, and ignore all else */
+ //printf("Reading line: id=%i \n",id);
+ //printf("Reading line: id=%i, %lf %lf \n",id,toss1,toss2);
+ A->idp[ilat][ilon]=id;
+ phi += dphi;
+ cphi = cos(phi);
+ sphi = sin(phi);
+ rphi = ilon - 0.5;
+ //fprintf(stderr,"id:%i phi:%le cphi:%le sphi:%le ctheta:%le stheta:%le area:%le\n",id,phi,cphi,sphi,ctheta,stheta,area);
+ /* Compute coordinate conversion factors (r, theta,phi) --> (x,y,z) */
+ e1 = area*ctheta*cphi;
+ e2 = area*sphi;
+ e3 = area*ctheta*sphi;
+ e4 = -area*cphi;
+ e5 = -area*stheta;
+// printf(" e1=%lf e2=%le e3=%le e4=%le e5=%le\n",e1,e2,e3,e4,e5); //seem ok
+ /* compute and store cos(m*phi) and sin(m*phii) functions using simple
+ c*** trigonometric recurrence relation */
+ cm[1]=1.0;
+ sm[1]=0.0;
+ cm[2]=cphi;
+ sm[2]=sphi;
+ for (m = 2; m <= plates->Lmax; m++) {
+ cm[m+1] = 2.0*cm[m]*cphi - cm[m-1];
+ sm[m+1] = 2.0*sm[m]*cphi - sm[m-1];
+ }
+ /* loop on L,m: compute spherical harmonics and accumulate torques */
+ trt = 0.0;
+ trp = 0.0;
+ trr = 0.0;
+ trrc = 0.0;
+ for (ii=1; ii <= plates->NPDIM; ii++) {
+ A->srt[ii]=0.0;
+ A->srp[ii]=0.0;
+ }
+ for (L=0; L <= plates->Lmax; L++) {
+ for (m=0; m<=L; m++) {
+ k=(L+2)*(L+1)/2-m;
+ cc = cm[m+1];
+ ss = sm[m+1];
+ dtylm1 = A->dpdt[k]*cc; /* Problem is that at L=1,m=0,k=3, dpdt=inf */
+ dtylm2 = A->dpdt[k]*ss;
+// WORKING printf(" Testing dty's: L=%d, m=%d, k=%d, cc=%lf ss=%lf dtylm1=%lf A->dpdt=%lf\n",L,m,k,cc,ss,dtylm1,A->dpdt[k]);
+ dpylm1 = -m*(A->pbyst[k])*ss;
+ dpylm2 = m*(A->pbyst[k])*cc;
+ pk1 = A->p[k]*cc;
+ pk2 = A->p[k]*ss;
+ /* printf(" dts: dtylm1=%lf dtylm2=%lf dpylm1=%lf dpylm2=%lf\n");*/
+ /* Accumulate shear stresses due to internal load */
+ if (L < plates->Lload) {
+ /* printf(" Testing const. of trt: trt=%lf y4in=%lf,dtylm1=%lf y4in2=%lf dtylm2=%lf\n",trt,A->y4in[k][1],dtylm1,A->y4in[k][2],dtylm2); */
+ trt += A->y4in[k][1]*dtylm1 + A->y4in[k][2]*dtylm2;
+ trp += A->y4in[k][1]*dpylm1 + A->y4in[k][2]*dpylm2;
+ trr += A->y3in[k][1]*pk1 + A->y3in[k][2]*pk2;
+ trrc += A->z3in[k][1]*pk1 + A->z3in[k][2]*pk2;
+// Seem ok printf(" tr_: %le %le %le %le\n",trt,trp,trr,trrc);
+ }
+ /* loop on imposed plate rotation direction */
+ if (L <= plates->Lplt) {
+ for (iplt=1; iplt <= plates->NPLT; iplt++) {
+ for (idir=1; idir <=3; idir++) {
+ ii = 3*(iplt-1) + idir;
+ /* Accumulate shear stresses due to external imposed plate motions - ROUNDING DIFFERENCES BW FORTRAN & C HERE*/
+ A->srt[ii] += A->y4ex[ii][k][1]*dtylm1 + A->y4ex[ii][k][2]*dtylm2;
+ A->srt[ii] += A->y10ex[ii][k][1]*dpylm1 + A->y10ex[ii][k][2]*dpylm2;
+ A->srp[ii] += A->y4ex[ii][k][1]*dpylm1 + A->y4ex[ii][k][2]*dpylm2;
+ A->srp[ii] += (-1)*A->y10ex[ii][k][1]*dtylm1 - A->y10ex[ii][k][2]*dtylm2;
+ // printf(" ii=%d k=%d y10ex1=%lf y10ex2=%lf y4ex1=%lf y4ex2=%lf\n",ii,k,A->y10ex[ii][k][1],A->y10ex[ii][k][2],A->y4ex[ii][k][1],A->y4ex[ii][k][2]);
+ //printf("E: srt=%le srp=%le\n",A->srt[1],A->srp[1]);
+ }
+ }
+ }
+ }
+ }
+// printf("E: srt=%le srp=%le\n",A->srt[1],A->srp[1]);
+ /* Reassign driving and resisting tractions for net calculation */
+ for (iplt=1; iplt <= plates->NPLT; iplt++) {
+ for (idir=1; idir <=3; idir++) {
+ ii = 3*(iplt-1) + idir;
+ A->srta[ilat][ilon][ii] = A->srt[ii];
+ A->srpa[ilat][ilon][ii] = A->srp[ii];
+ }
+ }
+ A->trta[ilat][ilon] = trt;
+ A->trpa[ilat][ilon] = trp;
+ A->trra[ilat][ilon] = trr;
+ /* Write output out.normstress here? */
+
+ /* Finish reassigning and writing out */
+ ind1 = 3*(id-1);
+ /* accumulate torques: fin, fex should already be zero'd by here, so += as we go */
+ A->fin[ind1+1] += trp*e1 + trt*e2;
+ A->fin[ind1+2] += trp*e3 + trt*e4;
+ A->fin[ind1+3] += trp*e5;
+ //printf("%i FIN123: [%le] [%le] [%le]\n",ilon,A->fin[ind1+1],A->fin[ind1+2],A->fin[ind1+3]);
+ /* printf(" Testing fin: ilat=%d ilon=%d %lf %lf %lf id=%d ind1=%d \n",ilat,ilon,A->fin[ind1+1],A->fin[ind1+2],A->fin[ind1+3],id,ind1);*/
+ for (iplt=1; iplt<=plates->NPLT; iplt++) {
+ for (idir=1; idir <= 3; idir++) {
+ ind2 = 3*(iplt-1) + idir;
+ A->fex[ind2][ind1+1] += A->srp[ind2]*e1 + A->srt[ind2]*e2;
+ A->fex[ind2][ind1+2] += A->srp[ind2]*e3 + A->srt[ind2]*e4;
+ A->fex[ind2][ind1+3] += A->srp[ind2]*e5;
+// printf("%i Integrating: fex[%d][%d]=%le fex[%d][%d]=%le fex[%d][%d]=%le \n",ilat,ind2,ind1+1,A->fex[ind2][ind1+1],ind2,ind1+2,A->fex[ind2][ind1+2],ind2,ind1+3,A->fex[ind2][ind1+3]);
+// printf(" srp[%d]=%lf srt[%d]=%lf \n",ind2,A->srp[ind2],ind2,A->srt[ind2]);
+ }
+ }
+ }
+ }
+
+ }
+fclose(filePtr);
+
+}
+
Added: mc/1D/hc/trunk/hcplates/nrutil.h
===================================================================
--- mc/1D/hc/trunk/hcplates/nrutil.h 2007-07-11 00:35:53 UTC (rev 7640)
+++ mc/1D/hc/trunk/hcplates/nrutil.h 2007-07-11 06:24:16 UTC (rev 7641)
@@ -0,0 +1,42 @@
+
+static float sqrarg;
+#define SQR(a) ((sqrarg=(a)) == 0.0 ? 0.0 : sqrarg*sqrarg)
+
+static double dsqrarg;
+#define DSQR(a) ((dsqrarg=(a)) == 0.0 ? 0.0 : dsqrarg*dsqrarg)
+
+static double dmaxarg1,dmaxarg2;
+#define DMAX(a,b) (dmaxarg1=(a),dmaxarg2=(b),(dmaxarg1) > (dmaxarg2) ?\
+ (dmaxarg1) : (dmaxarg2))
+
+static double dminarg1,dminarg2;
+#define DMIN(a,b) (dminarg1=(a),dminarg2=(b),(dminarg1) < (dminarg2) ?\
+ (dminarg1) : (dminarg2))
+
+static float maxarg1,maxarg2;
+#define FMAX(a,b) (maxarg1=(a),maxarg2=(b),(maxarg1) > (maxarg2) ?\
+ (maxarg1) : (maxarg2))
+
+static float minarg1,minarg2;
+#define FMIN(a,b) (minarg1=(a),minarg2=(b),(minarg1) < (minarg2) ?\
+ (minarg1) : (minarg2))
+
+static long lmaxarg1,lmaxarg2;
+#define LMAX(a,b) (lmaxarg1=(a),lmaxarg2=(b),(lmaxarg1) > (lmaxarg2) ?\
+ (lmaxarg1) : (lmaxarg2))
+
+static long lminarg1,lminarg2;
+#define LMIN(a,b) (lminarg1=(a),lminarg2=(b),(lminarg1) < (lminarg2) ?\
+ (lminarg1) : (lminarg2))
+
+static int imaxarg1,imaxarg2;
+#define IMAX(a,b) (imaxarg1=(a),imaxarg2=(b),(imaxarg1) > (imaxarg2) ?\
+ (imaxarg1) : (imaxarg2))
+
+static int iminarg1,iminarg2;
+#define IMIN(a,b) (iminarg1=(a),iminarg2=(b),(iminarg1) < (iminarg2) ?\
+ (iminarg1) : (iminarg2))
+
+#define SIGN(a,b) ((b) >= 0.0 ? fabs(a) : -fabs(a))
+
+
Added: mc/1D/hc/trunk/hcplates/parameter_file.default
===================================================================
--- mc/1D/hc/trunk/hcplates/parameter_file.default 2007-07-11 00:35:53 UTC (rev 7640)
+++ mc/1D/hc/trunk/hcplates/parameter_file.default 2007-07-11 06:24:16 UTC (rev 7641)
@@ -0,0 +1,51 @@
+#This is the default parameter file for hcplates
+#The defaults in this file are the initialized anyway
+#Too lazy to code a flexible read routine - so the file structure (line order etc) are important!!
+#First word of every line is the parameter name (as initialized in hcplates_init.c) - note: leave a space after name!
+
+#No. layers (note no. boundaries (r2) = nlayers +1. no. visc2 layers = nlayers)
+nlayer= 5
+
+#Radial layers (core out). (note nlayers must be defined above this)
+r2= 0.0 3480.0 5700.0 6140.0 6240.0 6370.0
+
+#Default viscosity
+visc0= 1.0e22
+
+#Viscosity variation from default (first zero does not count - core)
+visc2= 0 50 1 1 10
+
+#radius core
+Rcore= 3480.0
+
+#radius Earth
+erad= 6370.0
+
+#No. plates
+NPLT= 11
+
+#Plate areas: first value (0) is dummy value, make sure there is one for each plate (12= 0.42244E+14 if needed)
+parea= 0 0.77691E+14 0.59987E+14 0.49031E+13 0.36125E+13 0.31173E+13 0.68647E+14 0.61026E+14 0.58440E+14 0.16462E+14 0.10806E+15 0.57208E+13
+
+#LDIM - absolute max sph. har. deg.
+LDIM= 25
+
+# Geographical divisor (no. lat points = 180/dd)
+dd= 1
+
+#Conversion factor 365.0*24*60*60
+stoy= 31536000
+
+# Lmax - sph. harm. deg.
+Lmax= 20
+
+#n?
+n= 4
+
+#no slip always for plates calculations
+iba= 0
+
+#ratio of obs/pred rotations for scaling velocities...
+ratio= 1.0
+
+
Added: mc/1D/hc/trunk/hcplates/plates_ids.ixz
===================================================================
--- mc/1D/hc/trunk/hcplates/plates_ids.ixz 2007-07-11 00:35:53 UTC (rev 7640)
+++ mc/1D/hc/trunk/hcplates/plates_ids.ixz 2007-07-11 06:24:16 UTC (rev 7641)
@@ -0,0 +1,6052 @@
+2 -89.499900 0.500100
+2 -89.499900 1.500100
+2 -89.499900 2.500100
+2 -89.499900 3.500100
+2 -89.499900 4.500100
+2 -89.499900 5.500100
+2 -89.499900 6.500100
+2 -89.499900 7.500100
+2 -89.499900 8.500100
+2 -89.499900 9.500100
+2 -89.499900 10.500100
+2 -89.499900 11.500100
+2 -89.499900 12.500100
+2 -89.499900 13.500100
+2 -89.499900 14.500100
+2 -89.499900 15.500100
+2 -89.499900 16.500100
+2 -89.499900 17.500100
+2 -89.499900 18.500100
+2 -89.499900 19.500100
+2 -89.499900 20.500100
+2 -89.499900 21.500100
+2 -89.499900 22.500100
+2 -89.499900 23.500100
+2 -89.499900 24.500100
+2 -89.499900 25.500100
+2 -89.499900 26.500100
+2 -89.499900 27.500100
+2 -89.499900 28.500100
+2 -89.499900 29.500100
+2 -89.499900 30.500100
+2 -89.499900 31.500100
+2 -89.499900 32.500100
+2 -89.499900 33.500100
+2 -89.499900 34.500100
+2 -89.499900 35.500100
+2 -89.499900 36.500100
+2 -89.499900 37.500100
+2 -89.499900 38.500100
+2 -89.499900 39.500100
+2 -89.499900 40.500100
+2 -89.499900 41.500100
+2 -89.499900 42.500100
+2 -89.499900 43.500100
+2 -89.499900 44.500100
+2 -89.499900 45.500100
+2 -89.499900 46.500100
+2 -89.499900 47.500100
+2 -89.499900 48.500100
+2 -89.499900 49.500100
+2 -89.499900 50.500100
+2 -89.499900 51.500100
+2 -89.499900 52.500100
+2 -89.499900 53.500100
+2 -89.499900 54.500100
+2 -89.499900 55.500100
+2 -89.499900 56.500100
+2 -89.499900 57.500100
+2 -89.499900 58.500100
+2 -89.499900 59.500100
+2 -89.499900 60.500100
+2 -89.499900 61.500100
+2 -89.499900 62.500100
+2 -89.499900 63.500100
+2 -89.499900 64.500100
+2 -89.499900 65.500100
+2 -89.499900 66.500100
+2 -89.499900 67.500100
+2 -89.499900 68.500100
+2 -89.499900 69.500100
+2 -89.499900 70.500100
+2 -89.499900 71.500100
+2 -89.499900 72.500100
+2 -89.499900 73.500100
+2 -89.499900 74.500100
+2 -89.499900 75.500100
+2 -89.499900 76.500100
+2 -89.499900 77.500100
+2 -89.499900 78.500100
+2 -89.499900 79.500100
+2 -89.499900 80.500100
+2 -89.499900 81.500100
+2 -89.499900 82.500100
+2 -89.499900 83.500100
+2 -89.499900 84.500100
+2 -89.499900 85.500100
+2 -89.499900 86.500100
+2 -89.499900 87.500100
+2 -89.499900 88.500100
+2 -89.499900 89.500100
+2 -89.499900 90.500100
+2 -89.499900 91.500100
+2 -89.499900 92.500100
+2 -89.499900 93.500100
+2 -89.499900 94.500100
+2 -89.499900 95.500100
+2 -89.499900 96.500100
+2 -89.499900 97.500100
+2 -89.499900 98.500100
+2 -89.499900 99.500100
+2 -89.499900 100.500100
+2 -89.499900 101.500100
+2 -89.499900 102.500100
+2 -89.499900 103.500100
+2 -89.499900 104.500100
+2 -89.499900 105.500100
+2 -89.499900 106.500100
+2 -89.499900 107.500100
+2 -89.499900 108.500100
+2 -89.499900 109.500100
+2 -89.499900 110.500100
+2 -89.499900 111.500100
+2 -89.499900 112.500100
+2 -89.499900 113.500100
+2 -89.499900 114.500100
+2 -89.499900 115.500100
+2 -89.499900 116.500100
+2 -89.499900 117.500100
+2 -89.499900 118.500100
+2 -89.499900 119.500100
+2 -89.499900 120.500100
+2 -89.499900 121.500100
+2 -89.499900 122.500100
+2 -89.499900 123.500100
+2 -89.499900 124.500100
+2 -89.499900 125.500100
+2 -89.499900 126.500100
+2 -89.499900 127.500100
+2 -89.499900 128.500100
+2 -89.499900 129.500100
+2 -89.499900 130.500100
+2 -89.499900 131.500100
+2 -89.499900 132.500100
+2 -89.499900 133.500100
+2 -89.499900 134.500100
+2 -89.499900 135.500100
+2 -89.499900 136.500100
+2 -89.499900 137.500100
+2 -89.499900 138.500100
+2 -89.499900 139.500100
+2 -89.499900 140.500100
+2 -89.499900 141.500100
+2 -89.499900 142.500100
+2 -89.499900 143.500100
+2 -89.499900 144.500100
+2 -89.499900 145.500100
+2 -89.499900 146.500100
+2 -89.499900 147.500100
+2 -89.499900 148.500100
+2 -89.499900 149.500100
+2 -89.499900 150.500100
+2 -89.499900 151.500100
+2 -89.499900 152.500100
+2 -89.499900 153.500100
+2 -89.499900 154.500100
+2 -89.499900 155.500100
+2 -89.499900 156.500100
+2 -89.499900 157.500100
+2 -89.499900 158.500100
+2 -89.499900 159.500100
+2 -89.499900 160.500100
+2 -89.499900 161.500100
+2 -89.499900 162.500100
+2 -89.499900 163.500100
+2 -89.499900 164.500100
+2 -89.499900 165.500100
+2 -89.499900 166.500100
+2 -89.499900 167.500100
+2 -89.499900 168.500100
+2 -89.499900 169.500100
+2 -89.499900 170.500100
+2 -89.499900 171.500100
+2 -89.499900 172.500100
+2 -89.499900 173.500100
+2 -89.499900 174.500100
+2 -89.499900 175.500100
+2 -89.499900 176.500100
+2 -89.499900 177.500100
+2 -89.499900 178.500100
+2 -89.499900 179.500100
+2 -89.499900 180.500100
+2 -89.499900 181.500100
+2 -89.499900 182.500100
+2 -89.499900 183.500100
+2 -89.499900 184.500100
+2 -89.499900 185.500100
+2 -89.499900 186.500100
+2 -89.499900 187.500100
+2 -89.499900 188.500100
+2 -89.499900 189.500100
+2 -89.499900 190.500100
+2 -89.499900 191.500100
+2 -89.499900 192.500100
+2 -89.499900 193.500100
+2 -89.499900 194.500100
+2 -89.499900 195.500100
+2 -89.499900 196.500100
+2 -89.499900 197.500100
+2 -89.499900 198.500100
+2 -89.499900 199.500100
+2 -89.499900 200.500100
+2 -89.499900 201.500100
+2 -89.499900 202.500100
+2 -89.499900 203.500100
+2 -89.499900 204.500100
+2 -89.499900 205.500100
+2 -89.499900 206.500100
+2 -89.499900 207.500100
+2 -89.499900 208.500100
+2 -89.499900 209.500100
+2 -89.499900 210.500100
+2 -89.499900 211.500100
+2 -89.499900 212.500100
+2 -89.499900 213.500100
+2 -89.499900 214.500100
+2 -89.499900 215.500100
+2 -89.499900 216.500100
+2 -89.499900 217.500100
+2 -89.499900 218.500100
+2 -89.499900 219.500100
+2 -89.499900 220.500100
+2 -89.499900 221.500100
+2 -89.499900 222.500100
+2 -89.499900 223.500100
+2 -89.499900 224.500100
+2 -89.499900 225.500100
+2 -89.499900 226.500100
+2 -89.499900 227.500100
+2 -89.499900 228.500100
+2 -89.499900 229.500100
+2 -89.499900 230.500100
+2 -89.499900 231.500100
+2 -89.499900 232.500100
+2 -89.499900 233.500100
+2 -89.499900 234.500100
+2 -89.499900 235.500100
+2 -89.499900 236.500100
+2 -89.499900 237.500100
+2 -89.499900 238.500100
+2 -89.499900 239.500100
+2 -89.499900 240.500100
+2 -89.499900 241.500100
+2 -89.499900 242.500100
+2 -89.499900 243.500100
+2 -89.499900 244.500100
+2 -89.499900 245.500100
+2 -89.499900 246.500100
+2 -89.499900 247.500100
+2 -89.499900 248.500100
+2 -89.499900 249.500100
+2 -89.499900 250.500100
+2 -89.499900 251.500100
+2 -89.499900 252.500100
+2 -89.499900 253.500100
+2 -89.499900 254.500100
+2 -89.499900 255.500100
+2 -89.499900 256.500100
+2 -89.499900 257.500100
+2 -89.499900 258.500100
+2 -89.499900 259.500100
+2 -89.499900 260.500100
+2 -89.499900 261.500100
+2 -89.499900 262.500100
+2 -89.499900 263.500100
+2 -89.499900 264.500100
+2 -89.499900 265.500100
+2 -89.499900 266.500100
+2 -89.499900 267.500100
+2 -89.499900 268.500100
+2 -89.499900 269.500100
+2 -89.499900 270.500100
+2 -89.499900 271.500100
+2 -89.499900 272.500100
+2 -89.499900 273.500100
+2 -89.499900 274.500100
+2 -89.499900 275.500100
+2 -89.499900 276.500100
+2 -89.499900 277.500100
+2 -89.499900 278.500100
+2 -89.499900 279.500100
+2 -89.499900 280.500100
+2 -89.499900 281.500100
+2 -89.499900 282.500100
+2 -89.499900 283.500100
+2 -89.499900 284.500100
+2 -89.499900 285.500100
+2 -89.499900 286.500100
+2 -89.499900 287.500100
+2 -89.499900 288.500100
+2 -89.499900 289.500100
+2 -89.499900 290.500100
+2 -89.499900 291.500100
+2 -89.499900 292.500100
+2 -89.499900 293.500100
+2 -89.499900 294.500100
+2 -89.499900 295.500100
+2 -89.499900 296.500100
+2 -89.499900 297.500100
+2 -89.499900 298.500100
+2 -89.499900 299.500100
+2 -89.499900 300.500100
+2 -89.499900 301.500100
+2 -89.499900 302.500100
+2 -89.499900 303.500100
+2 -89.499900 304.500100
+2 -89.499900 305.500100
+2 -89.499900 306.500100
+2 -89.499900 307.500100
+2 -89.499900 308.500100
+2 -89.499900 309.500100
+2 -89.499900 310.500100
+2 -89.499900 311.500100
+2 -89.499900 312.500100
+2 -89.499900 313.500100
+2 -89.499900 314.500100
+2 -89.499900 315.500100
+2 -89.499900 316.500100
+2 -89.499900 317.500100
+2 -89.499900 318.500100
+2 -89.499900 319.500100
+2 -89.499900 320.500100
+2 -89.499900 321.500100
+2 -89.499900 322.500100
+2 -89.499900 323.500100
+2 -89.499900 324.500100
+2 -89.499900 325.500100
+2 -89.499900 326.500100
+2 -89.499900 327.500100
+2 -89.499900 328.500100
+2 -89.499900 329.500100
+2 -89.499900 330.500100
+2 -89.499900 331.500100
+2 -89.499900 332.500100
+2 -89.499900 333.500100
+2 -89.499900 334.500100
+2 -89.499900 335.500100
+2 -89.499900 336.500100
+2 -89.499900 337.500100
+2 -89.499900 338.500100
+2 -89.499900 339.500100
+2 -89.499900 340.500100
+2 -89.499900 341.500100
+2 -89.499900 342.500100
+2 -89.499900 343.500100
+2 -89.499900 344.500100
+2 -89.499900 345.500100
+2 -89.499900 346.500100
+2 -89.499900 347.500100
+2 -89.499900 348.500100
+2 -89.499900 349.500100
+2 -89.499900 350.500100
+2 -89.499900 351.500100
+2 -89.499900 352.500100
+2 -89.499900 353.500100
+2 -89.499900 354.500100
+2 -89.499900 355.500100
+2 -89.499900 356.500100
+2 -89.499900 357.500100
+2 -89.499900 358.500100
+2 -89.499900 359.500100
+2 -88.499900 0.500100
+2 -88.499900 1.500100
+2 -88.499900 2.500100
+2 -88.499900 3.500100
+2 -88.499900 4.500100
+2 -88.499900 5.500100
+2 -88.499900 6.500100
+2 -88.499900 7.500100
+2 -88.499900 8.500100
+2 -88.499900 9.500100
+2 -88.499900 10.500100
+2 -88.499900 11.500100
+2 -88.499900 12.500100
+2 -88.499900 13.500100
+2 -88.499900 14.500100
+2 -88.499900 15.500100
+2 -88.499900 16.500100
+2 -88.499900 17.500100
+2 -88.499900 18.500100
+2 -88.499900 19.500100
+2 -88.499900 20.500100
+2 -88.499900 21.500100
+2 -88.499900 22.500100
+2 -88.499900 23.500100
+2 -88.499900 24.500100
+2 -88.499900 25.500100
+2 -88.499900 26.500100
+2 -88.499900 27.500100
+2 -88.499900 28.500100
+2 -88.499900 29.500100
+2 -88.499900 30.500100
+2 -88.499900 31.500100
+2 -88.499900 32.500100
+2 -88.499900 33.500100
+2 -88.499900 34.500100
+2 -88.499900 35.500100
+2 -88.499900 36.500100
+2 -88.499900 37.500100
+2 -88.499900 38.500100
+2 -88.499900 39.500100
+2 -88.499900 40.500100
+2 -88.499900 41.500100
+2 -88.499900 42.500100
+2 -88.499900 43.500100
+2 -88.499900 44.500100
+2 -88.499900 45.500100
+2 -88.499900 46.500100
+2 -88.499900 47.500100
+2 -88.499900 48.500100
+2 -88.499900 49.500100
+2 -88.499900 50.500100
+2 -88.499900 51.500100
+2 -88.499900 52.500100
+2 -88.499900 53.500100
+2 -88.499900 54.500100
+2 -88.499900 55.500100
+2 -88.499900 56.500100
+2 -88.499900 57.500100
+2 -88.499900 58.500100
+2 -88.499900 59.500100
+2 -88.499900 60.500100
+2 -88.499900 61.500100
+2 -88.499900 62.500100
+2 -88.499900 63.500100
+2 -88.499900 64.500100
+2 -88.499900 65.500100
+2 -88.499900 66.500100
+2 -88.499900 67.500100
+2 -88.499900 68.500100
+2 -88.499900 69.500100
+2 -88.499900 70.500100
+2 -88.499900 71.500100
+2 -88.499900 72.500100
+2 -88.499900 73.500100
+2 -88.499900 74.500100
+2 -88.499900 75.500100
+2 -88.499900 76.500100
+2 -88.499900 77.500100
+2 -88.499900 78.500100
+2 -88.499900 79.500100
+2 -88.499900 80.500100
+2 -88.499900 81.500100
+2 -88.499900 82.500100
+2 -88.499900 83.500100
+2 -88.499900 84.500100
+2 -88.499900 85.500100
+2 -88.499900 86.500100
+2 -88.499900 87.500100
+2 -88.499900 88.500100
+2 -88.499900 89.500100
+2 -88.499900 90.500100
+2 -88.499900 91.500100
+2 -88.499900 92.500100
+2 -88.499900 93.500100
+2 -88.499900 94.500100
+2 -88.499900 95.500100
+2 -88.499900 96.500100
+2 -88.499900 97.500100
+2 -88.499900 98.500100
+2 -88.499900 99.500100
+2 -88.499900 100.500100
+2 -88.499900 101.500100
+2 -88.499900 102.500100
+2 -88.499900 103.500100
+2 -88.499900 104.500100
+2 -88.499900 105.500100
+2 -88.499900 106.500100
+2 -88.499900 107.500100
+2 -88.499900 108.500100
+2 -88.499900 109.500100
+2 -88.499900 110.500100
+2 -88.499900 111.500100
+2 -88.499900 112.500100
+2 -88.499900 113.500100
+2 -88.499900 114.500100
+2 -88.499900 115.500100
+2 -88.499900 116.500100
+2 -88.499900 117.500100
+2 -88.499900 118.500100
+2 -88.499900 119.500100
+2 -88.499900 120.500100
+2 -88.499900 121.500100
+2 -88.499900 122.500100
+2 -88.499900 123.500100
+2 -88.499900 124.500100
+2 -88.499900 125.500100
+2 -88.499900 126.500100
+2 -88.499900 127.500100
+2 -88.499900 128.500100
+2 -88.499900 129.500100
+2 -88.499900 130.500100
+2 -88.499900 131.500100
+2 -88.499900 132.500100
+2 -88.499900 133.500100
+2 -88.499900 134.500100
+2 -88.499900 135.500100
+2 -88.499900 136.500100
+2 -88.499900 137.500100
+2 -88.499900 138.500100
+2 -88.499900 139.500100
+2 -88.499900 140.500100
+2 -88.499900 141.500100
+2 -88.499900 142.500100
+2 -88.499900 143.500100
+2 -88.499900 144.500100
+2 -88.499900 145.500100
+2 -88.499900 146.500100
+2 -88.499900 147.500100
+2 -88.499900 148.500100
+2 -88.499900 149.500100
+2 -88.499900 150.500100
+2 -88.499900 151.500100
+2 -88.499900 152.500100
+2 -88.499900 153.500100
+2 -88.499900 154.500100
+2 -88.499900 155.500100
+2 -88.499900 156.500100
+2 -88.499900 157.500100
+2 -88.499900 158.500100
+2 -88.499900 159.500100
+2 -88.499900 160.500100
+2 -88.499900 161.500100
+2 -88.499900 162.500100
+2 -88.499900 163.500100
+2 -88.499900 164.500100
+2 -88.499900 165.500100
+2 -88.499900 166.500100
+2 -88.499900 167.500100
+2 -88.499900 168.500100
+2 -88.499900 169.500100
+2 -88.499900 170.500100
+2 -88.499900 171.500100
+2 -88.499900 172.500100
+2 -88.499900 173.500100
+2 -88.499900 174.500100
+2 -88.499900 175.500100
+2 -88.499900 176.500100
+2 -88.499900 177.500100
+2 -88.499900 178.500100
+2 -88.499900 179.500100
+2 -88.499900 180.500100
+2 -88.499900 181.500100
+2 -88.499900 182.500100
+2 -88.499900 183.500100
+2 -88.499900 184.500100
+2 -88.499900 185.500100
+2 -88.499900 186.500100
+2 -88.499900 187.500100
+2 -88.499900 188.500100
+2 -88.499900 189.500100
+2 -88.499900 190.500100
+2 -88.499900 191.500100
+2 -88.499900 192.500100
+2 -88.499900 193.500100
+2 -88.499900 194.500100
+2 -88.499900 195.500100
+2 -88.499900 196.500100
+2 -88.499900 197.500100
+2 -88.499900 198.500100
+2 -88.499900 199.500100
+2 -88.499900 200.500100
+2 -88.499900 201.500100
+2 -88.499900 202.500100
+2 -88.499900 203.500100
+2 -88.499900 204.500100
+2 -88.499900 205.500100
+2 -88.499900 206.500100
+2 -88.499900 207.500100
+2 -88.499900 208.500100
+2 -88.499900 209.500100
+2 -88.499900 210.500100
+2 -88.499900 211.500100
+2 -88.499900 212.500100
+2 -88.499900 213.500100
+2 -88.499900 214.500100
+2 -88.499900 215.500100
+2 -88.499900 216.500100
+2 -88.499900 217.500100
+2 -88.499900 218.500100
+2 -88.499900 219.500100
+2 -88.499900 220.500100
+2 -88.499900 221.500100
+2 -88.499900 222.500100
+2 -88.499900 223.500100
+2 -88.499900 224.500100
+2 -88.499900 225.500100
+2 -88.499900 226.500100
+2 -88.499900 227.500100
+2 -88.499900 228.500100
+2 -88.499900 229.500100
+2 -88.499900 230.500100
+2 -88.499900 231.500100
+2 -88.499900 232.500100
+2 -88.499900 233.500100
+2 -88.499900 234.500100
+2 -88.499900 235.500100
+2 -88.499900 236.500100
+2 -88.499900 237.500100
+2 -88.499900 238.500100
+2 -88.499900 239.500100
+2 -88.499900 240.500100
+2 -88.499900 241.500100
+2 -88.499900 242.500100
+2 -88.499900 243.500100
+2 -88.499900 244.500100
+2 -88.499900 245.500100
+2 -88.499900 246.500100
+2 -88.499900 247.500100
+2 -88.499900 248.500100
+2 -88.499900 249.500100
+2 -88.499900 250.500100
+2 -88.499900 251.500100
+2 -88.499900 252.500100
+2 -88.499900 253.500100
+2 -88.499900 254.500100
+2 -88.499900 255.500100
+2 -88.499900 256.500100
+2 -88.499900 257.500100
+2 -88.499900 258.500100
+2 -88.499900 259.500100
+2 -88.499900 260.500100
+2 -88.499900 261.500100
+2 -88.499900 262.500100
+2 -88.499900 263.500100
+2 -88.499900 264.500100
+2 -88.499900 265.500100
+2 -88.499900 266.500100
+2 -88.499900 267.500100
+2 -88.499900 268.500100
+2 -88.499900 269.500100
+2 -88.499900 270.500100
+2 -88.499900 271.500100
+2 -88.499900 272.500100
+2 -88.499900 273.500100
+2 -88.499900 274.500100
+2 -88.499900 275.500100
+2 -88.499900 276.500100
+2 -88.499900 277.500100
+2 -88.499900 278.500100
+2 -88.499900 279.500100
+2 -88.499900 280.500100
+2 -88.499900 281.500100
+2 -88.499900 282.500100
+2 -88.499900 283.500100
+2 -88.499900 284.500100
+2 -88.499900 285.500100
+2 -88.499900 286.500100
+2 -88.499900 287.500100
+2 -88.499900 288.500100
+2 -88.499900 289.500100
+2 -88.499900 290.500100
+2 -88.499900 291.500100
+2 -88.499900 292.500100
+2 -88.499900 293.500100
+2 -88.499900 294.500100
+2 -88.499900 295.500100
+2 -88.499900 296.500100
+2 -88.499900 297.500100
+2 -88.499900 298.500100
+2 -88.499900 299.500100
+2 -88.499900 300.500100
+2 -88.499900 301.500100
+2 -88.499900 302.500100
+2 -88.499900 303.500100
+2 -88.499900 304.500100
+2 -88.499900 305.500100
+2 -88.499900 306.500100
+2 -88.499900 307.500100
+2 -88.499900 308.500100
+2 -88.499900 309.500100
+2 -88.499900 310.500100
+2 -88.499900 311.500100
+2 -88.499900 312.500100
+2 -88.499900 313.500100
+2 -88.499900 314.500100
+2 -88.499900 315.500100
+2 -88.499900 316.500100
+2 -88.499900 317.500100
+2 -88.499900 318.500100
+2 -88.499900 319.500100
+2 -88.499900 320.500100
+2 -88.499900 321.500100
+2 -88.499900 322.500100
+2 -88.499900 323.500100
+2 -88.499900 324.500100
+2 -88.499900 325.500100
+2 -88.499900 326.500100
+2 -88.499900 327.500100
+2 -88.499900 328.500100
+2 -88.499900 329.500100
+2 -88.499900 330.500100
+2 -88.499900 331.500100
+2 -88.499900 332.500100
+2 -88.499900 333.500100
+2 -88.499900 334.500100
+2 -88.499900 335.500100
+2 -88.499900 336.500100
+2 -88.499900 337.500100
+2 -88.499900 338.500100
+2 -88.499900 339.500100
+2 -88.499900 340.500100
+2 -88.499900 341.500100
+2 -88.499900 342.500100
+2 -88.499900 343.500100
+2 -88.499900 344.500100
+2 -88.499900 345.500100
+2 -88.499900 346.500100
+2 -88.499900 347.500100
+2 -88.499900 348.500100
+2 -88.499900 349.500100
+2 -88.499900 350.500100
+2 -88.499900 351.500100
+2 -88.499900 352.500100
+2 -88.499900 353.500100
+2 -88.499900 354.500100
+2 -88.499900 355.500100
+2 -88.499900 356.500100
+2 -88.499900 357.500100
+2 -88.499900 358.500100
+2 -88.499900 359.500100
+2 -87.499900 0.500100
+2 -87.499900 1.500100
+2 -87.499900 2.500100
+2 -87.499900 3.500100
+2 -87.499900 4.500100
+2 -87.499900 5.500100
+2 -87.499900 6.500100
+2 -87.499900 7.500100
+2 -87.499900 8.500100
+2 -87.499900 9.500100
+2 -87.499900 10.500100
+2 -87.499900 11.500100
+2 -87.499900 12.500100
+2 -87.499900 13.500100
+2 -87.499900 14.500100
+2 -87.499900 15.500100
+2 -87.499900 16.500100
+2 -87.499900 17.500100
+2 -87.499900 18.500100
+2 -87.499900 19.500100
+2 -87.499900 20.500100
+2 -87.499900 21.500100
+2 -87.499900 22.500100
+2 -87.499900 23.500100
+2 -87.499900 24.500100
+2 -87.499900 25.500100
+2 -87.499900 26.500100
+2 -87.499900 27.500100
+2 -87.499900 28.500100
+2 -87.499900 29.500100
+2 -87.499900 30.500100
+2 -87.499900 31.500100
+2 -87.499900 32.500100
+2 -87.499900 33.500100
+2 -87.499900 34.500100
+2 -87.499900 35.500100
+2 -87.499900 36.500100
+2 -87.499900 37.500100
+2 -87.499900 38.500100
+2 -87.499900 39.500100
+2 -87.499900 40.500100
+2 -87.499900 41.500100
+2 -87.499900 42.500100
+2 -87.499900 43.500100
+2 -87.499900 44.500100
+2 -87.499900 45.500100
+2 -87.499900 46.500100
+2 -87.499900 47.500100
+2 -87.499900 48.500100
+2 -87.499900 49.500100
+2 -87.499900 50.500100
+2 -87.499900 51.500100
+2 -87.499900 52.500100
+2 -87.499900 53.500100
+2 -87.499900 54.500100
+2 -87.499900 55.500100
+2 -87.499900 56.500100
+2 -87.499900 57.500100
+2 -87.499900 58.500100
+2 -87.499900 59.500100
+2 -87.499900 60.500100
+2 -87.499900 61.500100
+2 -87.499900 62.500100
+2 -87.499900 63.500100
+2 -87.499900 64.500100
+2 -87.499900 65.500100
+2 -87.499900 66.500100
+2 -87.499900 67.500100
+2 -87.499900 68.500100
+2 -87.499900 69.500100
+2 -87.499900 70.500100
+2 -87.499900 71.500100
+2 -87.499900 72.500100
+2 -87.499900 73.500100
+2 -87.499900 74.500100
+2 -87.499900 75.500100
+2 -87.499900 76.500100
+2 -87.499900 77.500100
+2 -87.499900 78.500100
+2 -87.499900 79.500100
+2 -87.499900 80.500100
+2 -87.499900 81.500100
+2 -87.499900 82.500100
+2 -87.499900 83.500100
+2 -87.499900 84.500100
+2 -87.499900 85.500100
+2 -87.499900 86.500100
+2 -87.499900 87.500100
+2 -87.499900 88.500100
+2 -87.499900 89.500100
+2 -87.499900 90.500100
+2 -87.499900 91.500100
+2 -87.499900 92.500100
+2 -87.499900 93.500100
+2 -87.499900 94.500100
+2 -87.499900 95.500100
+2 -87.499900 96.500100
+2 -87.499900 97.500100
+2 -87.499900 98.500100
+2 -87.499900 99.500100
+2 -87.499900 100.500100
+2 -87.499900 101.500100
+2 -87.499900 102.500100
+2 -87.499900 103.500100
+2 -87.499900 104.500100
+2 -87.499900 105.500100
+2 -87.499900 106.500100
+2 -87.499900 107.500100
+2 -87.499900 108.500100
+2 -87.499900 109.500100
+2 -87.499900 110.500100
+2 -87.499900 111.500100
+2 -87.499900 112.500100
+2 -87.499900 113.500100
+2 -87.499900 114.500100
+2 -87.499900 115.500100
+2 -87.499900 116.500100
+2 -87.499900 117.500100
+2 -87.499900 118.500100
+2 -87.499900 119.500100
+2 -87.499900 120.500100
+2 -87.499900 121.500100
+2 -87.499900 122.500100
+2 -87.499900 123.500100
+2 -87.499900 124.500100
+2 -87.499900 125.500100
+2 -87.499900 126.500100
+2 -87.499900 127.500100
+2 -87.499900 128.500100
+2 -87.499900 129.500100
+2 -87.499900 130.500100
+2 -87.499900 131.500100
+2 -87.499900 132.500100
+2 -87.499900 133.500100
+2 -87.499900 134.500100
+2 -87.499900 135.500100
+2 -87.499900 136.500100
+2 -87.499900 137.500100
+2 -87.499900 138.500100
+2 -87.499900 139.500100
+2 -87.499900 140.500100
+2 -87.499900 141.500100
+2 -87.499900 142.500100
+2 -87.499900 143.500100
+2 -87.499900 144.500100
+2 -87.499900 145.500100
+2 -87.499900 146.500100
+2 -87.499900 147.500100
+2 -87.499900 148.500100
+2 -87.499900 149.500100
+2 -87.499900 150.500100
+2 -87.499900 151.500100
+2 -87.499900 152.500100
+2 -87.499900 153.500100
+2 -87.499900 154.500100
+2 -87.499900 155.500100
+2 -87.499900 156.500100
+2 -87.499900 157.500100
+2 -87.499900 158.500100
+2 -87.499900 159.500100
+2 -87.499900 160.500100
+2 -87.499900 161.500100
+2 -87.499900 162.500100
+2 -87.499900 163.500100
+2 -87.499900 164.500100
+2 -87.499900 165.500100
+2 -87.499900 166.500100
+2 -87.499900 167.500100
+2 -87.499900 168.500100
+2 -87.499900 169.500100
+2 -87.499900 170.500100
+2 -87.499900 171.500100
+2 -87.499900 172.500100
+2 -87.499900 173.500100
+2 -87.499900 174.500100
+2 -87.499900 175.500100
+2 -87.499900 176.500100
+2 -87.499900 177.500100
+2 -87.499900 178.500100
+2 -87.499900 179.500100
+2 -87.499900 180.500100
+2 -87.499900 181.500100
+2 -87.499900 182.500100
+2 -87.499900 183.500100
+2 -87.499900 184.500100
+2 -87.499900 185.500100
+2 -87.499900 186.500100
+2 -87.499900 187.500100
+2 -87.499900 188.500100
+2 -87.499900 189.500100
+2 -87.499900 190.500100
+2 -87.499900 191.500100
+2 -87.499900 192.500100
+2 -87.499900 193.500100
+2 -87.499900 194.500100
+2 -87.499900 195.500100
+2 -87.499900 196.500100
+2 -87.499900 197.500100
+2 -87.499900 198.500100
+2 -87.499900 199.500100
+2 -87.499900 200.500100
+2 -87.499900 201.500100
+2 -87.499900 202.500100
+2 -87.499900 203.500100
+2 -87.499900 204.500100
+2 -87.499900 205.500100
+2 -87.499900 206.500100
+2 -87.499900 207.500100
+2 -87.499900 208.500100
+2 -87.499900 209.500100
+2 -87.499900 210.500100
+2 -87.499900 211.500100
+2 -87.499900 212.500100
+2 -87.499900 213.500100
+2 -87.499900 214.500100
+2 -87.499900 215.500100
+2 -87.499900 216.500100
+2 -87.499900 217.500100
+2 -87.499900 218.500100
+2 -87.499900 219.500100
+2 -87.499900 220.500100
+2 -87.499900 221.500100
+2 -87.499900 222.500100
+2 -87.499900 223.500100
+2 -87.499900 224.500100
+2 -87.499900 225.500100
+2 -87.499900 226.500100
+2 -87.499900 227.500100
+2 -87.499900 228.500100
+2 -87.499900 229.500100
+2 -87.499900 230.500100
+2 -87.499900 231.500100
+2 -87.499900 232.500100
+2 -87.499900 233.500100
+2 -87.499900 234.500100
+2 -87.499900 235.500100
+2 -87.499900 236.500100
+2 -87.499900 237.500100
+2 -87.499900 238.500100
+2 -87.499900 239.500100
+2 -87.499900 240.500100
+2 -87.499900 241.500100
+2 -87.499900 242.500100
+2 -87.499900 243.500100
+2 -87.499900 244.500100
+2 -87.499900 245.500100
+2 -87.499900 246.500100
+2 -87.499900 247.500100
+2 -87.499900 248.500100
+2 -87.499900 249.500100
+2 -87.499900 250.500100
+2 -87.499900 251.500100
+2 -87.499900 252.500100
+2 -87.499900 253.500100
+2 -87.499900 254.500100
+2 -87.499900 255.500100
+2 -87.499900 256.500100
+2 -87.499900 257.500100
+2 -87.499900 258.500100
+2 -87.499900 259.500100
+2 -87.499900 260.500100
+2 -87.499900 261.500100
+2 -87.499900 262.500100
+2 -87.499900 263.500100
+2 -87.499900 264.500100
+2 -87.499900 265.500100
+2 -87.499900 266.500100
+2 -87.499900 267.500100
+2 -87.499900 268.500100
+2 -87.499900 269.500100
+2 -87.499900 270.500100
+2 -87.499900 271.500100
+2 -87.499900 272.500100
+2 -87.499900 273.500100
+2 -87.499900 274.500100
+2 -87.499900 275.500100
+2 -87.499900 276.500100
+2 -87.499900 277.500100
+2 -87.499900 278.500100
+2 -87.499900 279.500100
+2 -87.499900 280.500100
+2 -87.499900 281.500100
+2 -87.499900 282.500100
+2 -87.499900 283.500100
+2 -87.499900 284.500100
+2 -87.499900 285.500100
+2 -87.499900 286.500100
+2 -87.499900 287.500100
+2 -87.499900 288.500100
+2 -87.499900 289.500100
+2 -87.499900 290.500100
+2 -87.499900 291.500100
+2 -87.499900 292.500100
+2 -87.499900 293.500100
+2 -87.499900 294.500100
+2 -87.499900 295.500100
+2 -87.499900 296.500100
+2 -87.499900 297.500100
+2 -87.499900 298.500100
+2 -87.499900 299.500100
+2 -87.499900 300.500100
+2 -87.499900 301.500100
+2 -87.499900 302.500100
+2 -87.499900 303.500100
+2 -87.499900 304.500100
+2 -87.499900 305.500100
+2 -87.499900 306.500100
+2 -87.499900 307.500100
+2 -87.499900 308.500100
+2 -87.499900 309.500100
+2 -87.499900 310.500100
+2 -87.499900 311.500100
+2 -87.499900 312.500100
+2 -87.499900 313.500100
+2 -87.499900 314.500100
+2 -87.499900 315.500100
+2 -87.499900 316.500100
+2 -87.499900 317.500100
+2 -87.499900 318.500100
+2 -87.499900 319.500100
+2 -87.499900 320.500100
+2 -87.499900 321.500100
+2 -87.499900 322.500100
+2 -87.499900 323.500100
+2 -87.499900 324.500100
+2 -87.499900 325.500100
+2 -87.499900 326.500100
+2 -87.499900 327.500100
+2 -87.499900 328.500100
+2 -87.499900 329.500100
+2 -87.499900 330.500100
+2 -87.499900 331.500100
+2 -87.499900 332.500100
+2 -87.499900 333.500100
+2 -87.499900 334.500100
+2 -87.499900 335.500100
+2 -87.499900 336.500100
+2 -87.499900 337.500100
+2 -87.499900 338.500100
+2 -87.499900 339.500100
+2 -87.499900 340.500100
+2 -87.499900 341.500100
+2 -87.499900 342.500100
+2 -87.499900 343.500100
+2 -87.499900 344.500100
+2 -87.499900 345.500100
+2 -87.499900 346.500100
+2 -87.499900 347.500100
+2 -87.499900 348.500100
+2 -87.499900 349.500100
+2 -87.499900 350.500100
+2 -87.499900 351.500100
+2 -87.499900 352.500100
+2 -87.499900 353.500100
+2 -87.499900 354.500100
+2 -87.499900 355.500100
+2 -87.499900 356.500100
+2 -87.499900 357.500100
+2 -87.499900 358.500100
+2 -87.499900 359.500100
+2 -86.499900 0.500100
+2 -86.499900 1.500100
+2 -86.499900 2.500100
+2 -86.499900 3.500100
+2 -86.499900 4.500100
+2 -86.499900 5.500100
+2 -86.499900 6.500100
+2 -86.499900 7.500100
+2 -86.499900 8.500100
+2 -86.499900 9.500100
+2 -86.499900 10.500100
+2 -86.499900 11.500100
+2 -86.499900 12.500100
+2 -86.499900 13.500100
+2 -86.499900 14.500100
+2 -86.499900 15.500100
+2 -86.499900 16.500100
+2 -86.499900 17.500100
+2 -86.499900 18.500100
+2 -86.499900 19.500100
+2 -86.499900 20.500100
+2 -86.499900 21.500100
+2 -86.499900 22.500100
+2 -86.499900 23.500100
+2 -86.499900 24.500100
+2 -86.499900 25.500100
+2 -86.499900 26.500100
+2 -86.499900 27.500100
+2 -86.499900 28.500100
+2 -86.499900 29.500100
+2 -86.499900 30.500100
+2 -86.499900 31.500100
+2 -86.499900 32.500100
+2 -86.499900 33.500100
+2 -86.499900 34.500100
+2 -86.499900 35.500100
+2 -86.499900 36.500100
+2 -86.499900 37.500100
+2 -86.499900 38.500100
+2 -86.499900 39.500100
+2 -86.499900 40.500100
+2 -86.499900 41.500100
+2 -86.499900 42.500100
+2 -86.499900 43.500100
+2 -86.499900 44.500100
+2 -86.499900 45.500100
+2 -86.499900 46.500100
+2 -86.499900 47.500100
+2 -86.499900 48.500100
+2 -86.499900 49.500100
+2 -86.499900 50.500100
+2 -86.499900 51.500100
+2 -86.499900 52.500100
+2 -86.499900 53.500100
+2 -86.499900 54.500100
+2 -86.499900 55.500100
+2 -86.499900 56.500100
+2 -86.499900 57.500100
+2 -86.499900 58.500100
+2 -86.499900 59.500100
+2 -86.499900 60.500100
+2 -86.499900 61.500100
+2 -86.499900 62.500100
+2 -86.499900 63.500100
+2 -86.499900 64.500100
+2 -86.499900 65.500100
+2 -86.499900 66.500100
+2 -86.499900 67.500100
+2 -86.499900 68.500100
+2 -86.499900 69.500100
+2 -86.499900 70.500100
+2 -86.499900 71.500100
+2 -86.499900 72.500100
+2 -86.499900 73.500100
+2 -86.499900 74.500100
+2 -86.499900 75.500100
+2 -86.499900 76.500100
+2 -86.499900 77.500100
+2 -86.499900 78.500100
+2 -86.499900 79.500100
+2 -86.499900 80.500100
+2 -86.499900 81.500100
+2 -86.499900 82.500100
+2 -86.499900 83.500100
+2 -86.499900 84.500100
+2 -86.499900 85.500100
+2 -86.499900 86.500100
+2 -86.499900 87.500100
+2 -86.499900 88.500100
+2 -86.499900 89.500100
+2 -86.499900 90.500100
+2 -86.499900 91.500100
+2 -86.499900 92.500100
+2 -86.499900 93.500100
+2 -86.499900 94.500100
+2 -86.499900 95.500100
+2 -86.499900 96.500100
+2 -86.499900 97.500100
+2 -86.499900 98.500100
+2 -86.499900 99.500100
+2 -86.499900 100.500100
+2 -86.499900 101.500100
+2 -86.499900 102.500100
+2 -86.499900 103.500100
+2 -86.499900 104.500100
+2 -86.499900 105.500100
+2 -86.499900 106.500100
+2 -86.499900 107.500100
+2 -86.499900 108.500100
+2 -86.499900 109.500100
+2 -86.499900 110.500100
+2 -86.499900 111.500100
+2 -86.499900 112.500100
+2 -86.499900 113.500100
+2 -86.499900 114.500100
+2 -86.499900 115.500100
+2 -86.499900 116.500100
+2 -86.499900 117.500100
+2 -86.499900 118.500100
+2 -86.499900 119.500100
+2 -86.499900 120.500100
+2 -86.499900 121.500100
+2 -86.499900 122.500100
+2 -86.499900 123.500100
+2 -86.499900 124.500100
+2 -86.499900 125.500100
+2 -86.499900 126.500100
+2 -86.499900 127.500100
+2 -86.499900 128.500100
+2 -86.499900 129.500100
+2 -86.499900 130.500100
+2 -86.499900 131.500100
+2 -86.499900 132.500100
+2 -86.499900 133.500100
+2 -86.499900 134.500100
+2 -86.499900 135.500100
+2 -86.499900 136.500100
+2 -86.499900 137.500100
+2 -86.499900 138.500100
+2 -86.499900 139.500100
+2 -86.499900 140.500100
+2 -86.499900 141.500100
+2 -86.499900 142.500100
+2 -86.499900 143.500100
+2 -86.499900 144.500100
+2 -86.499900 145.500100
+2 -86.499900 146.500100
+2 -86.499900 147.500100
+2 -86.499900 148.500100
+2 -86.499900 149.500100
+2 -86.499900 150.500100
+2 -86.499900 151.500100
+2 -86.499900 152.500100
+2 -86.499900 153.500100
+2 -86.499900 154.500100
+2 -86.499900 155.500100
+2 -86.499900 156.500100
+2 -86.499900 157.500100
+2 -86.499900 158.500100
+2 -86.499900 159.500100
+2 -86.499900 160.500100
+2 -86.499900 161.500100
+2 -86.499900 162.500100
+2 -86.499900 163.500100
+2 -86.499900 164.500100
+2 -86.499900 165.500100
+2 -86.499900 166.500100
+2 -86.499900 167.500100
+2 -86.499900 168.500100
+2 -86.499900 169.500100
+2 -86.499900 170.500100
+2 -86.499900 171.500100
+2 -86.499900 172.500100
+2 -86.499900 173.500100
+2 -86.499900 174.500100
+2 -86.499900 175.500100
+2 -86.499900 176.500100
+2 -86.499900 177.500100
+2 -86.499900 178.500100
+2 -86.499900 179.500100
+2 -86.499900 180.500100
+2 -86.499900 181.500100
+2 -86.499900 182.500100
+2 -86.499900 183.500100
+2 -86.499900 184.500100
+2 -86.499900 185.500100
+2 -86.499900 186.500100
+2 -86.499900 187.500100
+2 -86.499900 188.500100
+2 -86.499900 189.500100
+2 -86.499900 190.500100
+2 -86.499900 191.500100
+2 -86.499900 192.500100
+2 -86.499900 193.500100
+2 -86.499900 194.500100
+2 -86.499900 195.500100
+2 -86.499900 196.500100
+2 -86.499900 197.500100
+2 -86.499900 198.500100
+2 -86.499900 199.500100
+2 -86.499900 200.500100
+2 -86.499900 201.500100
+2 -86.499900 202.500100
+2 -86.499900 203.500100
+2 -86.499900 204.500100
+2 -86.499900 205.500100
+2 -86.499900 206.500100
+2 -86.499900 207.500100
+2 -86.499900 208.500100
+2 -86.499900 209.500100
+2 -86.499900 210.500100
+2 -86.499900 211.500100
+2 -86.499900 212.500100
+2 -86.499900 213.500100
+2 -86.499900 214.500100
+2 -86.499900 215.500100
+2 -86.499900 216.500100
+2 -86.499900 217.500100
+2 -86.499900 218.500100
+2 -86.499900 219.500100
+2 -86.499900 220.500100
+2 -86.499900 221.500100
+2 -86.499900 222.500100
+2 -86.499900 223.500100
+2 -86.499900 224.500100
+2 -86.499900 225.500100
+2 -86.499900 226.500100
+2 -86.499900 227.500100
+2 -86.499900 228.500100
+2 -86.499900 229.500100
+2 -86.499900 230.500100
+2 -86.499900 231.500100
+2 -86.499900 232.500100
+2 -86.499900 233.500100
+2 -86.499900 234.500100
+2 -86.499900 235.500100
+2 -86.499900 236.500100
+2 -86.499900 237.500100
+2 -86.499900 238.500100
+2 -86.499900 239.500100
+2 -86.499900 240.500100
+2 -86.499900 241.500100
+2 -86.499900 242.500100
+2 -86.499900 243.500100
+2 -86.499900 244.500100
+2 -86.499900 245.500100
+2 -86.499900 246.500100
+2 -86.499900 247.500100
+2 -86.499900 248.500100
+2 -86.499900 249.500100
+2 -86.499900 250.500100
+2 -86.499900 251.500100
+2 -86.499900 252.500100
+2 -86.499900 253.500100
+2 -86.499900 254.500100
+2 -86.499900 255.500100
+2 -86.499900 256.500100
+2 -86.499900 257.500100
+2 -86.499900 258.500100
+2 -86.499900 259.500100
+2 -86.499900 260.500100
+2 -86.499900 261.500100
+2 -86.499900 262.500100
+2 -86.499900 263.500100
+2 -86.499900 264.500100
+2 -86.499900 265.500100
+2 -86.499900 266.500100
+2 -86.499900 267.500100
+2 -86.499900 268.500100
+2 -86.499900 269.500100
+2 -86.499900 270.500100
+2 -86.499900 271.500100
+2 -86.499900 272.500100
+2 -86.499900 273.500100
+2 -86.499900 274.500100
+2 -86.499900 275.500100
+2 -86.499900 276.500100
+2 -86.499900 277.500100
+2 -86.499900 278.500100
+2 -86.499900 279.500100
+2 -86.499900 280.500100
+2 -86.499900 281.500100
+2 -86.499900 282.500100
+2 -86.499900 283.500100
+2 -86.499900 284.500100
+2 -86.499900 285.500100
+2 -86.499900 286.500100
+2 -86.499900 287.500100
+2 -86.499900 288.500100
+2 -86.499900 289.500100
+2 -86.499900 290.500100
+2 -86.499900 291.500100
+2 -86.499900 292.500100
+2 -86.499900 293.500100
+2 -86.499900 294.500100
+2 -86.499900 295.500100
+2 -86.499900 296.500100
+2 -86.499900 297.500100
+2 -86.499900 298.500100
+2 -86.499900 299.500100
+2 -86.499900 300.500100
+2 -86.499900 301.500100
+2 -86.499900 302.500100
+2 -86.499900 303.500100
+2 -86.499900 304.500100
+2 -86.499900 305.500100
+2 -86.499900 306.500100
+2 -86.499900 307.500100
+2 -86.499900 308.500100
+2 -86.499900 309.500100
+2 -86.499900 310.500100
+2 -86.499900 311.500100
+2 -86.499900 312.500100
+2 -86.499900 313.500100
+2 -86.499900 314.500100
+2 -86.499900 315.500100
+2 -86.499900 316.500100
+2 -86.499900 317.500100
+2 -86.499900 318.500100
+2 -86.499900 319.500100
+2 -86.499900 320.500100
+2 -86.499900 321.500100
+2 -86.499900 322.500100
+2 -86.499900 323.500100
+2 -86.499900 324.500100
+2 -86.499900 325.500100
+2 -86.499900 326.500100
+2 -86.499900 327.500100
+2 -86.499900 328.500100
+2 -86.499900 329.500100
+2 -86.499900 330.500100
+2 -86.499900 331.500100
+2 -86.499900 332.500100
+2 -86.499900 333.500100
+2 -86.499900 334.500100
+2 -86.499900 335.500100
+2 -86.499900 336.500100
+2 -86.499900 337.500100
+2 -86.499900 338.500100
+2 -86.499900 339.500100
+2 -86.499900 340.500100
+2 -86.499900 341.500100
+2 -86.499900 342.500100
+2 -86.499900 343.500100
+2 -86.499900 344.500100
+2 -86.499900 345.500100
+2 -86.499900 346.500100
+2 -86.499900 347.500100
+2 -86.499900 348.500100
+2 -86.499900 349.500100
+2 -86.499900 350.500100
+2 -86.499900 351.500100
+2 -86.499900 352.500100
+2 -86.499900 353.500100
+2 -86.499900 354.500100
+2 -86.499900 355.500100
+2 -86.499900 356.500100
+2 -86.499900 357.500100
+2 -86.499900 358.500100
+2 -86.499900 359.500100
+2 -85.499900 0.500100
+2 -85.499900 1.500100
+2 -85.499900 2.500100
+2 -85.499900 3.500100
+2 -85.499900 4.500100
+2 -85.499900 5.500100
+2 -85.499900 6.500100
+2 -85.499900 7.500100
+2 -85.499900 8.500100
+2 -85.499900 9.500100
+2 -85.499900 10.500100
+2 -85.499900 11.500100
+2 -85.499900 12.500100
+2 -85.499900 13.500100
+2 -85.499900 14.500100
+2 -85.499900 15.500100
+2 -85.499900 16.500100
+2 -85.499900 17.500100
+2 -85.499900 18.500100
+2 -85.499900 19.500100
+2 -85.499900 20.500100
+2 -85.499900 21.500100
+2 -85.499900 22.500100
+2 -85.499900 23.500100
+2 -85.499900 24.500100
+2 -85.499900 25.500100
+2 -85.499900 26.500100
+2 -85.499900 27.500100
+2 -85.499900 28.500100
+2 -85.499900 29.500100
+2 -85.499900 30.500100
+2 -85.499900 31.500100
+2 -85.499900 32.500100
+2 -85.499900 33.500100
+2 -85.499900 34.500100
+2 -85.499900 35.500100
+2 -85.499900 36.500100
+2 -85.499900 37.500100
+2 -85.499900 38.500100
+2 -85.499900 39.500100
+2 -85.499900 40.500100
+2 -85.499900 41.500100
+2 -85.499900 42.500100
+2 -85.499900 43.500100
+2 -85.499900 44.500100
+2 -85.499900 45.500100
+2 -85.499900 46.500100
+2 -85.499900 47.500100
+2 -85.499900 48.500100
+2 -85.499900 49.500100
+2 -85.499900 50.500100
+2 -85.499900 51.500100
+2 -85.499900 52.500100
+2 -85.499900 53.500100
+2 -85.499900 54.500100
+2 -85.499900 55.500100
+2 -85.499900 56.500100
+2 -85.499900 57.500100
+2 -85.499900 58.500100
+2 -85.499900 59.500100
+2 -85.499900 60.500100
+2 -85.499900 61.500100
+2 -85.499900 62.500100
+2 -85.499900 63.500100
+2 -85.499900 64.500100
+2 -85.499900 65.500100
+2 -85.499900 66.500100
+2 -85.499900 67.500100
+2 -85.499900 68.500100
+2 -85.499900 69.500100
+2 -85.499900 70.500100
+2 -85.499900 71.500100
+2 -85.499900 72.500100
+2 -85.499900 73.500100
+2 -85.499900 74.500100
+2 -85.499900 75.500100
+2 -85.499900 76.500100
+2 -85.499900 77.500100
+2 -85.499900 78.500100
+2 -85.499900 79.500100
+2 -85.499900 80.500100
+2 -85.499900 81.500100
+2 -85.499900 82.500100
+2 -85.499900 83.500100
+2 -85.499900 84.500100
+2 -85.499900 85.500100
+2 -85.499900 86.500100
+2 -85.499900 87.500100
+2 -85.499900 88.500100
+2 -85.499900 89.500100
+2 -85.499900 90.500100
+2 -85.499900 91.500100
+2 -85.499900 92.500100
+2 -85.499900 93.500100
+2 -85.499900 94.500100
+2 -85.499900 95.500100
+2 -85.499900 96.500100
+2 -85.499900 97.500100
+2 -85.499900 98.500100
+2 -85.499900 99.500100
+2 -85.499900 100.500100
+2 -85.499900 101.500100
+2 -85.499900 102.500100
+2 -85.499900 103.500100
+2 -85.499900 104.500100
+2 -85.499900 105.500100
+2 -85.499900 106.500100
+2 -85.499900 107.500100
+2 -85.499900 108.500100
+2 -85.499900 109.500100
+2 -85.499900 110.500100
+2 -85.499900 111.500100
+2 -85.499900 112.500100
+2 -85.499900 113.500100
+2 -85.499900 114.500100
+2 -85.499900 115.500100
+2 -85.499900 116.500100
+2 -85.499900 117.500100
+2 -85.499900 118.500100
+2 -85.499900 119.500100
+2 -85.499900 120.500100
+2 -85.499900 121.500100
+2 -85.499900 122.500100
+2 -85.499900 123.500100
+2 -85.499900 124.500100
+2 -85.499900 125.500100
+2 -85.499900 126.500100
+2 -85.499900 127.500100
+2 -85.499900 128.500100
+2 -85.499900 129.500100
+2 -85.499900 130.500100
+2 -85.499900 131.500100
+2 -85.499900 132.500100
+2 -85.499900 133.500100
+2 -85.499900 134.500100
+2 -85.499900 135.500100
+2 -85.499900 136.500100
+2 -85.499900 137.500100
+2 -85.499900 138.500100
+2 -85.499900 139.500100
+2 -85.499900 140.500100
+2 -85.499900 141.500100
+2 -85.499900 142.500100
+2 -85.499900 143.500100
+2 -85.499900 144.500100
+2 -85.499900 145.500100
+2 -85.499900 146.500100
+2 -85.499900 147.500100
+2 -85.499900 148.500100
+2 -85.499900 149.500100
+2 -85.499900 150.500100
+2 -85.499900 151.500100
+2 -85.499900 152.500100
+2 -85.499900 153.500100
+2 -85.499900 154.500100
+2 -85.499900 155.500100
+2 -85.499900 156.500100
+2 -85.499900 157.500100
+2 -85.499900 158.500100
+2 -85.499900 159.500100
+2 -85.499900 160.500100
+2 -85.499900 161.500100
+2 -85.499900 162.500100
+2 -85.499900 163.500100
+2 -85.499900 164.500100
+2 -85.499900 165.500100
+2 -85.499900 166.500100
+2 -85.499900 167.500100
+2 -85.499900 168.500100
+2 -85.499900 169.500100
+2 -85.499900 170.500100
+2 -85.499900 171.500100
+2 -85.499900 172.500100
+2 -85.499900 173.500100
+2 -85.499900 174.500100
+2 -85.499900 175.500100
+2 -85.499900 176.500100
+2 -85.499900 177.500100
+2 -85.499900 178.500100
+2 -85.499900 179.500100
+2 -85.499900 180.500100
+2 -85.499900 181.500100
+2 -85.499900 182.500100
+2 -85.499900 183.500100
+2 -85.499900 184.500100
+2 -85.499900 185.500100
+2 -85.499900 186.500100
+2 -85.499900 187.500100
+2 -85.499900 188.500100
+2 -85.499900 189.500100
+2 -85.499900 190.500100
+2 -85.499900 191.500100
+2 -85.499900 192.500100
+2 -85.499900 193.500100
+2 -85.499900 194.500100
+2 -85.499900 195.500100
+2 -85.499900 196.500100
+2 -85.499900 197.500100
+2 -85.499900 198.500100
+2 -85.499900 199.500100
+2 -85.499900 200.500100
+2 -85.499900 201.500100
+2 -85.499900 202.500100
+2 -85.499900 203.500100
+2 -85.499900 204.500100
+2 -85.499900 205.500100
+2 -85.499900 206.500100
+2 -85.499900 207.500100
+2 -85.499900 208.500100
+2 -85.499900 209.500100
+2 -85.499900 210.500100
+2 -85.499900 211.500100
+2 -85.499900 212.500100
+2 -85.499900 213.500100
+2 -85.499900 214.500100
+2 -85.499900 215.500100
+2 -85.499900 216.500100
+2 -85.499900 217.500100
+2 -85.499900 218.500100
+2 -85.499900 219.500100
+2 -85.499900 220.500100
+2 -85.499900 221.500100
+2 -85.499900 222.500100
+2 -85.499900 223.500100
+2 -85.499900 224.500100
+2 -85.499900 225.500100
+2 -85.499900 226.500100
+2 -85.499900 227.500100
+2 -85.499900 228.500100
+2 -85.499900 229.500100
+2 -85.499900 230.500100
+2 -85.499900 231.500100
+2 -85.499900 232.500100
+2 -85.499900 233.500100
+2 -85.499900 234.500100
+2 -85.499900 235.500100
+2 -85.499900 236.500100
+2 -85.499900 237.500100
+2 -85.499900 238.500100
+2 -85.499900 239.500100
+2 -85.499900 240.500100
+2 -85.499900 241.500100
+2 -85.499900 242.500100
+2 -85.499900 243.500100
+2 -85.499900 244.500100
+2 -85.499900 245.500100
+2 -85.499900 246.500100
+2 -85.499900 247.500100
+2 -85.499900 248.500100
+2 -85.499900 249.500100
+2 -85.499900 250.500100
+2 -85.499900 251.500100
+2 -85.499900 252.500100
+2 -85.499900 253.500100
+2 -85.499900 254.500100
+2 -85.499900 255.500100
+2 -85.499900 256.500100
+2 -85.499900 257.500100
+2 -85.499900 258.500100
+2 -85.499900 259.500100
+2 -85.499900 260.500100
+2 -85.499900 261.500100
+2 -85.499900 262.500100
+2 -85.499900 263.500100
+2 -85.499900 264.500100
+2 -85.499900 265.500100
+2 -85.499900 266.500100
+2 -85.499900 267.500100
+2 -85.499900 268.500100
+2 -85.499900 269.500100
+2 -85.499900 270.500100
+2 -85.499900 271.500100
+2 -85.499900 272.500100
+2 -85.499900 273.500100
+2 -85.499900 274.500100
+2 -85.499900 275.500100
+2 -85.499900 276.500100
+2 -85.499900 277.500100
+2 -85.499900 278.500100
+2 -85.499900 279.500100
+2 -85.499900 280.500100
+2 -85.499900 281.500100
+2 -85.499900 282.500100
+2 -85.499900 283.500100
+2 -85.499900 284.500100
+2 -85.499900 285.500100
+2 -85.499900 286.500100
+2 -85.499900 287.500100
+2 -85.499900 288.500100
+2 -85.499900 289.500100
+2 -85.499900 290.500100
+2 -85.499900 291.500100
+2 -85.499900 292.500100
+2 -85.499900 293.500100
+2 -85.499900 294.500100
+2 -85.499900 295.500100
+2 -85.499900 296.500100
+2 -85.499900 297.500100
+2 -85.499900 298.500100
+2 -85.499900 299.500100
+2 -85.499900 300.500100
+2 -85.499900 301.500100
+2 -85.499900 302.500100
+2 -85.499900 303.500100
+2 -85.499900 304.500100
+2 -85.499900 305.500100
+2 -85.499900 306.500100
+2 -85.499900 307.500100
+2 -85.499900 308.500100
+2 -85.499900 309.500100
+2 -85.499900 310.500100
+2 -85.499900 311.500100
+2 -85.499900 312.500100
+2 -85.499900 313.500100
+2 -85.499900 314.500100
+2 -85.499900 315.500100
+2 -85.499900 316.500100
+2 -85.499900 317.500100
+2 -85.499900 318.500100
+2 -85.499900 319.500100
+2 -85.499900 320.500100
+2 -85.499900 321.500100
+2 -85.499900 322.500100
+2 -85.499900 323.500100
+2 -85.499900 324.500100
+2 -85.499900 325.500100
+2 -85.499900 326.500100
+2 -85.499900 327.500100
+2 -85.499900 328.500100
+2 -85.499900 329.500100
+2 -85.499900 330.500100
+2 -85.499900 331.500100
+2 -85.499900 332.500100
+2 -85.499900 333.500100
+2 -85.499900 334.500100
+2 -85.499900 335.500100
+2 -85.499900 336.500100
+2 -85.499900 337.500100
+2 -85.499900 338.500100
+2 -85.499900 339.500100
+2 -85.499900 340.500100
+2 -85.499900 341.500100
+2 -85.499900 342.500100
+2 -85.499900 343.500100
+2 -85.499900 344.500100
+2 -85.499900 345.500100
+2 -85.499900 346.500100
+2 -85.499900 347.500100
+2 -85.499900 348.500100
+2 -85.499900 349.500100
+2 -85.499900 350.500100
+2 -85.499900 351.500100
+2 -85.499900 352.500100
+2 -85.499900 353.500100
+2 -85.499900 354.500100
+2 -85.499900 355.500100
+2 -85.499900 356.500100
+2 -85.499900 357.500100
+2 -85.499900 358.500100
+2 -85.499900 359.500100
+2 -84.499900 0.500100
+2 -84.499900 1.500100
+2 -84.499900 2.500100
+2 -84.499900 3.500100
+2 -84.499900 4.500100
+2 -84.499900 5.500100
+2 -84.499900 6.500100
+2 -84.499900 7.500100
+2 -84.499900 8.500100
+2 -84.499900 9.500100
+2 -84.499900 10.500100
+2 -84.499900 11.500100
+2 -84.499900 12.500100
+2 -84.499900 13.500100
+2 -84.499900 14.500100
+2 -84.499900 15.500100
+2 -84.499900 16.500100
+2 -84.499900 17.500100
+2 -84.499900 18.500100
+2 -84.499900 19.500100
+2 -84.499900 20.500100
+2 -84.499900 21.500100
+2 -84.499900 22.500100
+2 -84.499900 23.500100
+2 -84.499900 24.500100
+2 -84.499900 25.500100
+2 -84.499900 26.500100
+2 -84.499900 27.500100
+2 -84.499900 28.500100
+2 -84.499900 29.500100
+2 -84.499900 30.500100
+2 -84.499900 31.500100
+2 -84.499900 32.500100
+2 -84.499900 33.500100
+2 -84.499900 34.500100
+2 -84.499900 35.500100
+2 -84.499900 36.500100
+2 -84.499900 37.500100
+2 -84.499900 38.500100
+2 -84.499900 39.500100
+2 -84.499900 40.500100
+2 -84.499900 41.500100
+2 -84.499900 42.500100
+2 -84.499900 43.500100
+2 -84.499900 44.500100
+2 -84.499900 45.500100
+2 -84.499900 46.500100
+2 -84.499900 47.500100
+2 -84.499900 48.500100
+2 -84.499900 49.500100
+2 -84.499900 50.500100
+2 -84.499900 51.500100
+2 -84.499900 52.500100
+2 -84.499900 53.500100
+2 -84.499900 54.500100
+2 -84.499900 55.500100
+2 -84.499900 56.500100
+2 -84.499900 57.500100
+2 -84.499900 58.500100
+2 -84.499900 59.500100
+2 -84.499900 60.500100
+2 -84.499900 61.500100
+2 -84.499900 62.500100
+2 -84.499900 63.500100
+2 -84.499900 64.500100
+2 -84.499900 65.500100
+2 -84.499900 66.500100
+2 -84.499900 67.500100
+2 -84.499900 68.500100
+2 -84.499900 69.500100
+2 -84.499900 70.500100
+2 -84.499900 71.500100
+2 -84.499900 72.500100
+2 -84.499900 73.500100
+2 -84.499900 74.500100
+2 -84.499900 75.500100
+2 -84.499900 76.500100
+2 -84.499900 77.500100
+2 -84.499900 78.500100
+2 -84.499900 79.500100
+2 -84.499900 80.500100
+2 -84.499900 81.500100
+2 -84.499900 82.500100
+2 -84.499900 83.500100
+2 -84.499900 84.500100
+2 -84.499900 85.500100
+2 -84.499900 86.500100
+2 -84.499900 87.500100
+2 -84.499900 88.500100
+2 -84.499900 89.500100
+2 -84.499900 90.500100
+2 -84.499900 91.500100
+2 -84.499900 92.500100
+2 -84.499900 93.500100
+2 -84.499900 94.500100
+2 -84.499900 95.500100
+2 -84.499900 96.500100
+2 -84.499900 97.500100
+2 -84.499900 98.500100
+2 -84.499900 99.500100
+2 -84.499900 100.500100
+2 -84.499900 101.500100
+2 -84.499900 102.500100
+2 -84.499900 103.500100
+2 -84.499900 104.500100
+2 -84.499900 105.500100
+2 -84.499900 106.500100
+2 -84.499900 107.500100
+2 -84.499900 108.500100
+2 -84.499900 109.500100
+2 -84.499900 110.500100
+2 -84.499900 111.500100
+2 -84.499900 112.500100
+2 -84.499900 113.500100
+2 -84.499900 114.500100
+2 -84.499900 115.500100
+2 -84.499900 116.500100
+2 -84.499900 117.500100
+2 -84.499900 118.500100
+2 -84.499900 119.500100
+2 -84.499900 120.500100
+2 -84.499900 121.500100
+2 -84.499900 122.500100
+2 -84.499900 123.500100
+2 -84.499900 124.500100
+2 -84.499900 125.500100
+2 -84.499900 126.500100
+2 -84.499900 127.500100
+2 -84.499900 128.500100
+2 -84.499900 129.500100
+2 -84.499900 130.500100
+2 -84.499900 131.500100
+2 -84.499900 132.500100
+2 -84.499900 133.500100
+2 -84.499900 134.500100
+2 -84.499900 135.500100
+2 -84.499900 136.500100
+2 -84.499900 137.500100
+2 -84.499900 138.500100
+2 -84.499900 139.500100
+2 -84.499900 140.500100
+2 -84.499900 141.500100
+2 -84.499900 142.500100
+2 -84.499900 143.500100
+2 -84.499900 144.500100
+2 -84.499900 145.500100
+2 -84.499900 146.500100
+2 -84.499900 147.500100
+2 -84.499900 148.500100
+2 -84.499900 149.500100
+2 -84.499900 150.500100
+2 -84.499900 151.500100
+2 -84.499900 152.500100
+2 -84.499900 153.500100
+2 -84.499900 154.500100
+2 -84.499900 155.500100
+2 -84.499900 156.500100
+2 -84.499900 157.500100
+2 -84.499900 158.500100
+2 -84.499900 159.500100
+2 -84.499900 160.500100
+2 -84.499900 161.500100
+2 -84.499900 162.500100
+2 -84.499900 163.500100
+2 -84.499900 164.500100
+2 -84.499900 165.500100
+2 -84.499900 166.500100
+2 -84.499900 167.500100
+2 -84.499900 168.500100
+2 -84.499900 169.500100
+2 -84.499900 170.500100
+2 -84.499900 171.500100
+2 -84.499900 172.500100
+2 -84.499900 173.500100
+2 -84.499900 174.500100
+2 -84.499900 175.500100
+2 -84.499900 176.500100
+2 -84.499900 177.500100
+2 -84.499900 178.500100
+2 -84.499900 179.500100
+2 -84.499900 180.500100
+2 -84.499900 181.500100
+2 -84.499900 182.500100
+2 -84.499900 183.500100
+2 -84.499900 184.500100
+2 -84.499900 185.500100
+2 -84.499900 186.500100
+2 -84.499900 187.500100
+2 -84.499900 188.500100
+2 -84.499900 189.500100
+2 -84.499900 190.500100
+2 -84.499900 191.500100
+2 -84.499900 192.500100
+2 -84.499900 193.500100
+2 -84.499900 194.500100
+2 -84.499900 195.500100
+2 -84.499900 196.500100
+2 -84.499900 197.500100
+2 -84.499900 198.500100
+2 -84.499900 199.500100
+2 -84.499900 200.500100
+2 -84.499900 201.500100
+2 -84.499900 202.500100
+2 -84.499900 203.500100
+2 -84.499900 204.500100
+2 -84.499900 205.500100
+2 -84.499900 206.500100
+2 -84.499900 207.500100
+2 -84.499900 208.500100
+2 -84.499900 209.500100
+2 -84.499900 210.500100
+2 -84.499900 211.500100
+2 -84.499900 212.500100
+2 -84.499900 213.500100
+2 -84.499900 214.500100
+2 -84.499900 215.500100
+2 -84.499900 216.500100
+2 -84.499900 217.500100
+2 -84.499900 218.500100
+2 -84.499900 219.500100
+2 -84.499900 220.500100
+2 -84.499900 221.500100
+2 -84.499900 222.500100
+2 -84.499900 223.500100
+2 -84.499900 224.500100
+2 -84.499900 225.500100
+2 -84.499900 226.500100
+2 -84.499900 227.500100
+2 -84.499900 228.500100
+2 -84.499900 229.500100
+2 -84.499900 230.500100
+2 -84.499900 231.500100
+2 -84.499900 232.500100
+2 -84.499900 233.500100
+2 -84.499900 234.500100
+2 -84.499900 235.500100
+2 -84.499900 236.500100
+2 -84.499900 237.500100
+2 -84.499900 238.500100
+2 -84.499900 239.500100
+2 -84.499900 240.500100
+2 -84.499900 241.500100
+2 -84.499900 242.500100
+2 -84.499900 243.500100
+2 -84.499900 244.500100
+2 -84.499900 245.500100
+2 -84.499900 246.500100
+2 -84.499900 247.500100
+2 -84.499900 248.500100
+2 -84.499900 249.500100
+2 -84.499900 250.500100
+2 -84.499900 251.500100
+2 -84.499900 252.500100
+2 -84.499900 253.500100
+2 -84.499900 254.500100
+2 -84.499900 255.500100
+2 -84.499900 256.500100
+2 -84.499900 257.500100
+2 -84.499900 258.500100
+2 -84.499900 259.500100
+2 -84.499900 260.500100
+2 -84.499900 261.500100
+2 -84.499900 262.500100
+2 -84.499900 263.500100
+2 -84.499900 264.500100
+2 -84.499900 265.500100
+2 -84.499900 266.500100
+2 -84.499900 267.500100
+2 -84.499900 268.500100
+2 -84.499900 269.500100
+2 -84.499900 270.500100
+2 -84.499900 271.500100
+2 -84.499900 272.500100
+2 -84.499900 273.500100
+2 -84.499900 274.500100
+2 -84.499900 275.500100
+2 -84.499900 276.500100
+2 -84.499900 277.500100
+2 -84.499900 278.500100
+2 -84.499900 279.500100
+2 -84.499900 280.500100
+2 -84.499900 281.500100
+2 -84.499900 282.500100
+2 -84.499900 283.500100
+2 -84.499900 284.500100
+2 -84.499900 285.500100
+2 -84.499900 286.500100
+2 -84.499900 287.500100
+2 -84.499900 288.500100
+2 -84.499900 289.500100
+2 -84.499900 290.500100
+2 -84.499900 291.500100
+2 -84.499900 292.500100
+2 -84.499900 293.500100
+2 -84.499900 294.500100
+2 -84.499900 295.500100
+2 -84.499900 296.500100
+2 -84.499900 297.500100
+2 -84.499900 298.500100
+2 -84.499900 299.500100
+2 -84.499900 300.500100
+2 -84.499900 301.500100
+2 -84.499900 302.500100
+2 -84.499900 303.500100
+2 -84.499900 304.500100
+2 -84.499900 305.500100
+2 -84.499900 306.500100
+2 -84.499900 307.500100
+2 -84.499900 308.500100
+2 -84.499900 309.500100
+2 -84.499900 310.500100
+2 -84.499900 311.500100
+2 -84.499900 312.500100
+2 -84.499900 313.500100
+2 -84.499900 314.500100
+2 -84.499900 315.500100
+2 -84.499900 316.500100
+2 -84.499900 317.500100
+2 -84.499900 318.500100
+2 -84.499900 319.500100
+2 -84.499900 320.500100
+2 -84.499900 321.500100
+2 -84.499900 322.500100
+2 -84.499900 323.500100
+2 -84.499900 324.500100
+2 -84.499900 325.500100
+2 -84.499900 326.500100
+2 -84.499900 327.500100
+2 -84.499900 328.500100
+2 -84.499900 329.500100
+2 -84.499900 330.500100
+2 -84.499900 331.500100
+2 -84.499900 332.500100
+2 -84.499900 333.500100
+2 -84.499900 334.500100
+2 -84.499900 335.500100
+2 -84.499900 336.500100
+2 -84.499900 337.500100
+2 -84.499900 338.500100
+2 -84.499900 339.500100
+2 -84.499900 340.500100
+2 -84.499900 341.500100
+2 -84.499900 342.500100
+2 -84.499900 343.500100
+2 -84.499900 344.500100
+2 -84.499900 345.500100
+2 -84.499900 346.500100
+2 -84.499900 347.500100
+2 -84.499900 348.500100
+2 -84.499900 349.500100
+2 -84.499900 350.500100
+2 -84.499900 351.500100
+2 -84.499900 352.500100
+2 -84.499900 353.500100
+2 -84.499900 354.500100
+2 -84.499900 355.500100
+2 -84.499900 356.500100
+2 -84.499900 357.500100
+2 -84.499900 358.500100
+2 -84.499900 359.500100
+2 -83.499900 0.500100
+2 -83.499900 1.500100
+2 -83.499900 2.500100
+2 -83.499900 3.500100
+2 -83.499900 4.500100
+2 -83.499900 5.500100
+2 -83.499900 6.500100
+2 -83.499900 7.500100
+2 -83.499900 8.500100
+2 -83.499900 9.500100
+2 -83.499900 10.500100
+2 -83.499900 11.500100
+2 -83.499900 12.500100
+2 -83.499900 13.500100
+2 -83.499900 14.500100
+2 -83.499900 15.500100
+2 -83.499900 16.500100
+2 -83.499900 17.500100
+2 -83.499900 18.500100
+2 -83.499900 19.500100
+2 -83.499900 20.500100
+2 -83.499900 21.500100
+2 -83.499900 22.500100
+2 -83.499900 23.500100
+2 -83.499900 24.500100
+2 -83.499900 25.500100
+2 -83.499900 26.500100
+2 -83.499900 27.500100
+2 -83.499900 28.500100
+2 -83.499900 29.500100
+2 -83.499900 30.500100
+2 -83.499900 31.500100
+2 -83.499900 32.500100
+2 -83.499900 33.500100
+2 -83.499900 34.500100
+2 -83.499900 35.500100
+2 -83.499900 36.500100
+2 -83.499900 37.500100
+2 -83.499900 38.500100
+2 -83.499900 39.500100
+2 -83.499900 40.500100
+2 -83.499900 41.500100
+2 -83.499900 42.500100
+2 -83.499900 43.500100
+2 -83.499900 44.500100
+2 -83.499900 45.500100
+2 -83.499900 46.500100
+2 -83.499900 47.500100
+2 -83.499900 48.500100
+2 -83.499900 49.500100
+2 -83.499900 50.500100
+2 -83.499900 51.500100
+2 -83.499900 52.500100
+2 -83.499900 53.500100
+2 -83.499900 54.500100
+2 -83.499900 55.500100
+2 -83.499900 56.500100
+2 -83.499900 57.500100
+2 -83.499900 58.500100
+2 -83.499900 59.500100
+2 -83.499900 60.500100
+2 -83.499900 61.500100
+2 -83.499900 62.500100
+2 -83.499900 63.500100
+2 -83.499900 64.500100
+2 -83.499900 65.500100
+2 -83.499900 66.500100
+2 -83.499900 67.500100
+2 -83.499900 68.500100
+2 -83.499900 69.500100
+2 -83.499900 70.500100
+2 -83.499900 71.500100
+2 -83.499900 72.500100
+2 -83.499900 73.500100
+2 -83.499900 74.500100
+2 -83.499900 75.500100
+2 -83.499900 76.500100
+2 -83.499900 77.500100
+2 -83.499900 78.500100
+2 -83.499900 79.500100
+2 -83.499900 80.500100
+2 -83.499900 81.500100
+2 -83.499900 82.500100
+2 -83.499900 83.500100
+2 -83.499900 84.500100
+2 -83.499900 85.500100
+2 -83.499900 86.500100
+2 -83.499900 87.500100
+2 -83.499900 88.500100
+2 -83.499900 89.500100
+2 -83.499900 90.500100
+2 -83.499900 91.500100
+2 -83.499900 92.500100
+2 -83.499900 93.500100
+2 -83.499900 94.500100
+2 -83.499900 95.500100
+2 -83.499900 96.500100
+2 -83.499900 97.500100
+2 -83.499900 98.500100
+2 -83.499900 99.500100
+2 -83.499900 100.500100
+2 -83.499900 101.500100
+2 -83.499900 102.500100
+2 -83.499900 103.500100
+2 -83.499900 104.500100
+2 -83.499900 105.500100
+2 -83.499900 106.500100
+2 -83.499900 107.500100
+2 -83.499900 108.500100
+2 -83.499900 109.500100
+2 -83.499900 110.500100
+2 -83.499900 111.500100
+2 -83.499900 112.500100
+2 -83.499900 113.500100
+2 -83.499900 114.500100
+2 -83.499900 115.500100
+2 -83.499900 116.500100
+2 -83.499900 117.500100
+2 -83.499900 118.500100
+2 -83.499900 119.500100
+2 -83.499900 120.500100
+2 -83.499900 121.500100
+2 -83.499900 122.500100
+2 -83.499900 123.500100
+2 -83.499900 124.500100
+2 -83.499900 125.500100
+2 -83.499900 126.500100
+2 -83.499900 127.500100
+2 -83.499900 128.500100
+2 -83.499900 129.500100
+2 -83.499900 130.500100
+2 -83.499900 131.500100
+2 -83.499900 132.500100
+2 -83.499900 133.500100
+2 -83.499900 134.500100
+2 -83.499900 135.500100
+2 -83.499900 136.500100
+2 -83.499900 137.500100
+2 -83.499900 138.500100
+2 -83.499900 139.500100
+2 -83.499900 140.500100
+2 -83.499900 141.500100
+2 -83.499900 142.500100
+2 -83.499900 143.500100
+2 -83.499900 144.500100
+2 -83.499900 145.500100
+2 -83.499900 146.500100
+2 -83.499900 147.500100
+2 -83.499900 148.500100
+2 -83.499900 149.500100
+2 -83.499900 150.500100
+2 -83.499900 151.500100
+2 -83.499900 152.500100
+2 -83.499900 153.500100
+2 -83.499900 154.500100
+2 -83.499900 155.500100
+2 -83.499900 156.500100
+2 -83.499900 157.500100
+2 -83.499900 158.500100
+2 -83.499900 159.500100
+2 -83.499900 160.500100
+2 -83.499900 161.500100
+2 -83.499900 162.500100
+2 -83.499900 163.500100
+2 -83.499900 164.500100
+2 -83.499900 165.500100
+2 -83.499900 166.500100
+2 -83.499900 167.500100
+2 -83.499900 168.500100
+2 -83.499900 169.500100
+2 -83.499900 170.500100
+2 -83.499900 171.500100
+2 -83.499900 172.500100
+2 -83.499900 173.500100
+2 -83.499900 174.500100
+2 -83.499900 175.500100
+2 -83.499900 176.500100
+2 -83.499900 177.500100
+2 -83.499900 178.500100
+2 -83.499900 179.500100
+2 -83.499900 180.500100
+2 -83.499900 181.500100
+2 -83.499900 182.500100
+2 -83.499900 183.500100
+2 -83.499900 184.500100
+2 -83.499900 185.500100
+2 -83.499900 186.500100
+2 -83.499900 187.500100
+2 -83.499900 188.500100
+2 -83.499900 189.500100
+2 -83.499900 190.500100
+2 -83.499900 191.500100
+2 -83.499900 192.500100
+2 -83.499900 193.500100
+2 -83.499900 194.500100
+2 -83.499900 195.500100
+2 -83.499900 196.500100
+2 -83.499900 197.500100
+2 -83.499900 198.500100
+2 -83.499900 199.500100
+2 -83.499900 200.500100
+2 -83.499900 201.500100
+2 -83.499900 202.500100
+2 -83.499900 203.500100
+2 -83.499900 204.500100
+2 -83.499900 205.500100
+2 -83.499900 206.500100
+2 -83.499900 207.500100
+2 -83.499900 208.500100
+2 -83.499900 209.500100
+2 -83.499900 210.500100
+2 -83.499900 211.500100
+2 -83.499900 212.500100
+2 -83.499900 213.500100
+2 -83.499900 214.500100
+2 -83.499900 215.500100
+2 -83.499900 216.500100
+2 -83.499900 217.500100
+2 -83.499900 218.500100
+2 -83.499900 219.500100
+2 -83.499900 220.500100
+2 -83.499900 221.500100
+2 -83.499900 222.500100
+2 -83.499900 223.500100
+2 -83.499900 224.500100
+2 -83.499900 225.500100
+2 -83.499900 226.500100
+2 -83.499900 227.500100
+2 -83.499900 228.500100
+2 -83.499900 229.500100
+2 -83.499900 230.500100
+2 -83.499900 231.500100
+2 -83.499900 232.500100
+2 -83.499900 233.500100
+2 -83.499900 234.500100
+2 -83.499900 235.500100
+2 -83.499900 236.500100
+2 -83.499900 237.500100
+2 -83.499900 238.500100
+2 -83.499900 239.500100
+2 -83.499900 240.500100
+2 -83.499900 241.500100
+2 -83.499900 242.500100
+2 -83.499900 243.500100
+2 -83.499900 244.500100
+2 -83.499900 245.500100
+2 -83.499900 246.500100
+2 -83.499900 247.500100
+2 -83.499900 248.500100
+2 -83.499900 249.500100
+2 -83.499900 250.500100
+2 -83.499900 251.500100
+2 -83.499900 252.500100
+2 -83.499900 253.500100
+2 -83.499900 254.500100
+2 -83.499900 255.500100
+2 -83.499900 256.500100
+2 -83.499900 257.500100
+2 -83.499900 258.500100
+2 -83.499900 259.500100
+2 -83.499900 260.500100
+2 -83.499900 261.500100
+2 -83.499900 262.500100
+2 -83.499900 263.500100
+2 -83.499900 264.500100
+2 -83.499900 265.500100
+2 -83.499900 266.500100
+2 -83.499900 267.500100
+2 -83.499900 268.500100
+2 -83.499900 269.500100
+2 -83.499900 270.500100
+2 -83.499900 271.500100
+2 -83.499900 272.500100
+2 -83.499900 273.500100
+2 -83.499900 274.500100
+2 -83.499900 275.500100
+2 -83.499900 276.500100
+2 -83.499900 277.500100
+2 -83.499900 278.500100
+2 -83.499900 279.500100
+2 -83.499900 280.500100
+2 -83.499900 281.500100
+2 -83.499900 282.500100
+2 -83.499900 283.500100
+2 -83.499900 284.500100
+2 -83.499900 285.500100
+2 -83.499900 286.500100
+2 -83.499900 287.500100
+2 -83.499900 288.500100
+2 -83.499900 289.500100
+2 -83.499900 290.500100
+2 -83.499900 291.500100
+2 -83.499900 292.500100
+2 -83.499900 293.500100
+2 -83.499900 294.500100
+2 -83.499900 295.500100
+2 -83.499900 296.500100
+2 -83.499900 297.500100
+2 -83.499900 298.500100
+2 -83.499900 299.500100
+2 -83.499900 300.500100
+2 -83.499900 301.500100
+2 -83.499900 302.500100
+2 -83.499900 303.500100
+2 -83.499900 304.500100
+2 -83.499900 305.500100
+2 -83.499900 306.500100
+2 -83.499900 307.500100
+2 -83.499900 308.500100
+2 -83.499900 309.500100
+2 -83.499900 310.500100
+2 -83.499900 311.500100
+2 -83.499900 312.500100
+2 -83.499900 313.500100
+2 -83.499900 314.500100
+2 -83.499900 315.500100
+2 -83.499900 316.500100
+2 -83.499900 317.500100
+2 -83.499900 318.500100
+2 -83.499900 319.500100
+2 -83.499900 320.500100
+2 -83.499900 321.500100
+2 -83.499900 322.500100
+2 -83.499900 323.500100
+2 -83.499900 324.500100
+2 -83.499900 325.500100
+2 -83.499900 326.500100
+2 -83.499900 327.500100
+2 -83.499900 328.500100
+2 -83.499900 329.500100
+2 -83.499900 330.500100
+2 -83.499900 331.500100
+2 -83.499900 332.500100
+2 -83.499900 333.500100
+2 -83.499900 334.500100
+2 -83.499900 335.500100
+2 -83.499900 336.500100
+2 -83.499900 337.500100
+2 -83.499900 338.500100
+2 -83.499900 339.500100
+2 -83.499900 340.500100
+2 -83.499900 341.500100
+2 -83.499900 342.500100
+2 -83.499900 343.500100
+2 -83.499900 344.500100
+2 -83.499900 345.500100
+2 -83.499900 346.500100
+2 -83.499900 347.500100
+2 -83.499900 348.500100
+2 -83.499900 349.500100
+2 -83.499900 350.500100
+2 -83.499900 351.500100
+2 -83.499900 352.500100
+2 -83.499900 353.500100
+2 -83.499900 354.500100
+2 -83.499900 355.500100
+2 -83.499900 356.500100
+2 -83.499900 357.500100
+2 -83.499900 358.500100
+2 -83.499900 359.500100
+2 -82.499900 0.500100
+2 -82.499900 1.500100
+2 -82.499900 2.500100
+2 -82.499900 3.500100
+2 -82.499900 4.500100
+2 -82.499900 5.500100
+2 -82.499900 6.500100
+2 -82.499900 7.500100
+2 -82.499900 8.500100
+2 -82.499900 9.500100
+2 -82.499900 10.500100
+2 -82.499900 11.500100
+2 -82.499900 12.500100
+2 -82.499900 13.500100
+2 -82.499900 14.500100
+2 -82.499900 15.500100
+2 -82.499900 16.500100
+2 -82.499900 17.500100
+2 -82.499900 18.500100
+2 -82.499900 19.500100
+2 -82.499900 20.500100
+2 -82.499900 21.500100
+2 -82.499900 22.500100
+2 -82.499900 23.500100
+2 -82.499900 24.500100
+2 -82.499900 25.500100
+2 -82.499900 26.500100
+2 -82.499900 27.500100
+2 -82.499900 28.500100
+2 -82.499900 29.500100
+2 -82.499900 30.500100
+2 -82.499900 31.500100
+2 -82.499900 32.500100
+2 -82.499900 33.500100
+2 -82.499900 34.500100
+2 -82.499900 35.500100
+2 -82.499900 36.500100
+2 -82.499900 37.500100
+2 -82.499900 38.500100
+2 -82.499900 39.500100
+2 -82.499900 40.500100
+2 -82.499900 41.500100
+2 -82.499900 42.500100
+2 -82.499900 43.500100
+2 -82.499900 44.500100
+2 -82.499900 45.500100
+2 -82.499900 46.500100
+2 -82.499900 47.500100
+2 -82.499900 48.500100
+2 -82.499900 49.500100
+2 -82.499900 50.500100
+2 -82.499900 51.500100
+2 -82.499900 52.500100
+2 -82.499900 53.500100
+2 -82.499900 54.500100
+2 -82.499900 55.500100
+2 -82.499900 56.500100
+2 -82.499900 57.500100
+2 -82.499900 58.500100
+2 -82.499900 59.500100
+2 -82.499900 60.500100
+2 -82.499900 61.500100
+2 -82.499900 62.500100
+2 -82.499900 63.500100
+2 -82.499900 64.500100
+2 -82.499900 65.500100
+2 -82.499900 66.500100
+2 -82.499900 67.500100
+2 -82.499900 68.500100
+2 -82.499900 69.500100
+2 -82.499900 70.500100
+2 -82.499900 71.500100
+2 -82.499900 72.500100
+2 -82.499900 73.500100
+2 -82.499900 74.500100
+2 -82.499900 75.500100
+2 -82.499900 76.500100
+2 -82.499900 77.500100
+2 -82.499900 78.500100
+2 -82.499900 79.500100
+2 -82.499900 80.500100
+2 -82.499900 81.500100
+2 -82.499900 82.500100
+2 -82.499900 83.500100
+2 -82.499900 84.500100
+2 -82.499900 85.500100
+2 -82.499900 86.500100
+2 -82.499900 87.500100
+2 -82.499900 88.500100
+2 -82.499900 89.500100
+2 -82.499900 90.500100
+2 -82.499900 91.500100
+2 -82.499900 92.500100
+2 -82.499900 93.500100
+2 -82.499900 94.500100
+2 -82.499900 95.500100
+2 -82.499900 96.500100
+2 -82.499900 97.500100
+2 -82.499900 98.500100
+2 -82.499900 99.500100
+2 -82.499900 100.500100
+2 -82.499900 101.500100
+2 -82.499900 102.500100
+2 -82.499900 103.500100
+2 -82.499900 104.500100
+2 -82.499900 105.500100
+2 -82.499900 106.500100
+2 -82.499900 107.500100
+2 -82.499900 108.500100
+2 -82.499900 109.500100
+2 -82.499900 110.500100
+2 -82.499900 111.500100
+2 -82.499900 112.500100
+2 -82.499900 113.500100
+2 -82.499900 114.500100
+2 -82.499900 115.500100
+2 -82.499900 116.500100
+2 -82.499900 117.500100
+2 -82.499900 118.500100
+2 -82.499900 119.500100
+2 -82.499900 120.500100
+2 -82.499900 121.500100
+2 -82.499900 122.500100
+2 -82.499900 123.500100
+2 -82.499900 124.500100
+2 -82.499900 125.500100
+2 -82.499900 126.500100
+2 -82.499900 127.500100
+2 -82.499900 128.500100
+2 -82.499900 129.500100
+2 -82.499900 130.500100
+2 -82.499900 131.500100
+2 -82.499900 132.500100
+2 -82.499900 133.500100
+2 -82.499900 134.500100
+2 -82.499900 135.500100
+2 -82.499900 136.500100
+2 -82.499900 137.500100
+2 -82.499900 138.500100
+2 -82.499900 139.500100
+2 -82.499900 140.500100
+2 -82.499900 141.500100
+2 -82.499900 142.500100
+2 -82.499900 143.500100
+2 -82.499900 144.500100
+2 -82.499900 145.500100
+2 -82.499900 146.500100
+2 -82.499900 147.500100
+2 -82.499900 148.500100
+2 -82.499900 149.500100
+2 -82.499900 150.500100
+2 -82.499900 151.500100
+2 -82.499900 152.500100
+2 -82.499900 153.500100
+2 -82.499900 154.500100
+2 -82.499900 155.500100
+2 -82.499900 156.500100
+2 -82.499900 157.500100
+2 -82.499900 158.500100
+2 -82.499900 159.500100
+2 -82.499900 160.500100
+2 -82.499900 161.500100
+2 -82.499900 162.500100
+2 -82.499900 163.500100
+2 -82.499900 164.500100
+2 -82.499900 165.500100
+2 -82.499900 166.500100
+2 -82.499900 167.500100
+2 -82.499900 168.500100
+2 -82.499900 169.500100
+2 -82.499900 170.500100
+2 -82.499900 171.500100
+2 -82.499900 172.500100
+2 -82.499900 173.500100
+2 -82.499900 174.500100
+2 -82.499900 175.500100
+2 -82.499900 176.500100
+2 -82.499900 177.500100
+2 -82.499900 178.500100
+2 -82.499900 179.500100
+2 -82.499900 180.500100
+2 -82.499900 181.500100
+2 -82.499900 182.500100
+2 -82.499900 183.500100
+2 -82.499900 184.500100
+2 -82.499900 185.500100
+2 -82.499900 186.500100
+2 -82.499900 187.500100
+2 -82.499900 188.500100
+2 -82.499900 189.500100
+2 -82.499900 190.500100
+2 -82.499900 191.500100
+2 -82.499900 192.500100
+2 -82.499900 193.500100
+2 -82.499900 194.500100
+2 -82.499900 195.500100
+2 -82.499900 196.500100
+2 -82.499900 197.500100
+2 -82.499900 198.500100
+2 -82.499900 199.500100
+2 -82.499900 200.500100
+2 -82.499900 201.500100
+2 -82.499900 202.500100
+2 -82.499900 203.500100
+2 -82.499900 204.500100
+2 -82.499900 205.500100
+2 -82.499900 206.500100
+2 -82.499900 207.500100
+2 -82.499900 208.500100
+2 -82.499900 209.500100
+2 -82.499900 210.500100
+2 -82.499900 211.500100
+2 -82.499900 212.500100
+2 -82.499900 213.500100
+2 -82.499900 214.500100
+2 -82.499900 215.500100
+2 -82.499900 216.500100
+2 -82.499900 217.500100
+2 -82.499900 218.500100
+2 -82.499900 219.500100
+2 -82.499900 220.500100
+2 -82.499900 221.500100
+2 -82.499900 222.500100
+2 -82.499900 223.500100
+2 -82.499900 224.500100
+2 -82.499900 225.500100
+2 -82.499900 226.500100
+2 -82.499900 227.500100
+2 -82.499900 228.500100
+2 -82.499900 229.500100
+2 -82.499900 230.500100
+2 -82.499900 231.500100
+2 -82.499900 232.500100
+2 -82.499900 233.500100
+2 -82.499900 234.500100
+2 -82.499900 235.500100
+2 -82.499900 236.500100
+2 -82.499900 237.500100
+2 -82.499900 238.500100
+2 -82.499900 239.500100
+2 -82.499900 240.500100
+2 -82.499900 241.500100
+2 -82.499900 242.500100
+2 -82.499900 243.500100
+2 -82.499900 244.500100
+2 -82.499900 245.500100
+2 -82.499900 246.500100
+2 -82.499900 247.500100
+2 -82.499900 248.500100
+2 -82.499900 249.500100
+2 -82.499900 250.500100
+2 -82.499900 251.500100
+2 -82.499900 252.500100
+2 -82.499900 253.500100
+2 -82.499900 254.500100
+2 -82.499900 255.500100
+2 -82.499900 256.500100
+2 -82.499900 257.500100
+2 -82.499900 258.500100
+2 -82.499900 259.500100
+2 -82.499900 260.500100
+2 -82.499900 261.500100
+2 -82.499900 262.500100
+2 -82.499900 263.500100
+2 -82.499900 264.500100
+2 -82.499900 265.500100
+2 -82.499900 266.500100
+2 -82.499900 267.500100
+2 -82.499900 268.500100
+2 -82.499900 269.500100
+2 -82.499900 270.500100
+2 -82.499900 271.500100
+2 -82.499900 272.500100
+2 -82.499900 273.500100
+2 -82.499900 274.500100
+2 -82.499900 275.500100
+2 -82.499900 276.500100
+2 -82.499900 277.500100
+2 -82.499900 278.500100
+2 -82.499900 279.500100
+2 -82.499900 280.500100
+2 -82.499900 281.500100
+2 -82.499900 282.500100
+2 -82.499900 283.500100
+2 -82.499900 284.500100
+2 -82.499900 285.500100
+2 -82.499900 286.500100
+2 -82.499900 287.500100
+2 -82.499900 288.500100
+2 -82.499900 289.500100
+2 -82.499900 290.500100
+2 -82.499900 291.500100
+2 -82.499900 292.500100
+2 -82.499900 293.500100
+2 -82.499900 294.500100
+2 -82.499900 295.500100
+2 -82.499900 296.500100
+2 -82.499900 297.500100
+2 -82.499900 298.500100
+2 -82.499900 299.500100
+2 -82.499900 300.500100
+2 -82.499900 301.500100
+2 -82.499900 302.500100
+2 -82.499900 303.500100
+2 -82.499900 304.500100
+2 -82.499900 305.500100
+2 -82.499900 306.500100
+2 -82.499900 307.500100
+2 -82.499900 308.500100
+2 -82.499900 309.500100
+2 -82.499900 310.500100
+2 -82.499900 311.500100
+2 -82.499900 312.500100
+2 -82.499900 313.500100
+2 -82.499900 314.500100
+2 -82.499900 315.500100
+2 -82.499900 316.500100
+2 -82.499900 317.500100
+2 -82.499900 318.500100
+2 -82.499900 319.500100
+2 -82.499900 320.500100
+2 -82.499900 321.500100
+2 -82.499900 322.500100
+2 -82.499900 323.500100
+2 -82.499900 324.500100
+2 -82.499900 325.500100
+2 -82.499900 326.500100
+2 -82.499900 327.500100
+2 -82.499900 328.500100
+2 -82.499900 329.500100
+2 -82.499900 330.500100
+2 -82.499900 331.500100
+2 -82.499900 332.500100
+2 -82.499900 333.500100
+2 -82.499900 334.500100
+2 -82.499900 335.500100
+2 -82.499900 336.500100
+2 -82.499900 337.500100
+2 -82.499900 338.500100
+2 -82.499900 339.500100
+2 -82.499900 340.500100
+2 -82.499900 341.500100
+2 -82.499900 342.500100
+2 -82.499900 343.500100
+2 -82.499900 344.500100
+2 -82.499900 345.500100
+2 -82.499900 346.500100
+2 -82.499900 347.500100
+2 -82.499900 348.500100
+2 -82.499900 349.500100
+2 -82.499900 350.500100
+2 -82.499900 351.500100
+2 -82.499900 352.500100
+2 -82.499900 353.500100
+2 -82.499900 354.500100
+2 -82.499900 355.500100
+2 -82.499900 356.500100
+2 -82.499900 357.500100
+2 -82.499900 358.500100
+2 -82.499900 359.500100
+2 -81.499900 0.500100
+2 -81.499900 1.500100
+2 -81.499900 2.500100
+2 -81.499900 3.500100
+2 -81.499900 4.500100
+2 -81.499900 5.500100
+2 -81.499900 6.500100
+2 -81.499900 7.500100
+2 -81.499900 8.500100
+2 -81.499900 9.500100
+2 -81.499900 10.500100
+2 -81.499900 11.500100
+2 -81.499900 12.500100
+2 -81.499900 13.500100
+2 -81.499900 14.500100
+2 -81.499900 15.500100
+2 -81.499900 16.500100
+2 -81.499900 17.500100
+2 -81.499900 18.500100
+2 -81.499900 19.500100
+2 -81.499900 20.500100
+2 -81.499900 21.500100
+2 -81.499900 22.500100
+2 -81.499900 23.500100
+2 -81.499900 24.500100
+2 -81.499900 25.500100
+2 -81.499900 26.500100
+2 -81.499900 27.500100
+2 -81.499900 28.500100
+2 -81.499900 29.500100
+2 -81.499900 30.500100
+2 -81.499900 31.500100
+2 -81.499900 32.500100
+2 -81.499900 33.500100
+2 -81.499900 34.500100
+2 -81.499900 35.500100
+2 -81.499900 36.500100
+2 -81.499900 37.500100
+2 -81.499900 38.500100
+2 -81.499900 39.500100
+2 -81.499900 40.500100
+2 -81.499900 41.500100
+2 -81.499900 42.500100
+2 -81.499900 43.500100
+2 -81.499900 44.500100
+2 -81.499900 45.500100
+2 -81.499900 46.500100
+2 -81.499900 47.500100
+2 -81.499900 48.500100
+2 -81.499900 49.500100
+2 -81.499900 50.500100
+2 -81.499900 51.500100
+2 -81.499900 52.500100
+2 -81.499900 53.500100
+2 -81.499900 54.500100
+2 -81.499900 55.500100
+2 -81.499900 56.500100
+2 -81.499900 57.500100
+2 -81.499900 58.500100
+2 -81.499900 59.500100
+2 -81.499900 60.500100
+2 -81.499900 61.500100
+2 -81.499900 62.500100
+2 -81.499900 63.500100
+2 -81.499900 64.500100
+2 -81.499900 65.500100
+2 -81.499900 66.500100
+2 -81.499900 67.500100
+2 -81.499900 68.500100
+2 -81.499900 69.500100
+2 -81.499900 70.500100
+2 -81.499900 71.500100
+2 -81.499900 72.500100
+2 -81.499900 73.500100
+2 -81.499900 74.500100
+2 -81.499900 75.500100
+2 -81.499900 76.500100
+2 -81.499900 77.500100
+2 -81.499900 78.500100
+2 -81.499900 79.500100
+2 -81.499900 80.500100
+2 -81.499900 81.500100
+2 -81.499900 82.500100
+2 -81.499900 83.500100
+2 -81.499900 84.500100
+2 -81.499900 85.500100
+2 -81.499900 86.500100
+2 -81.499900 87.500100
+2 -81.499900 88.500100
+2 -81.499900 89.500100
+2 -81.499900 90.500100
+2 -81.499900 91.500100
+2 -81.499900 92.500100
+2 -81.499900 93.500100
+2 -81.499900 94.500100
+2 -81.499900 95.500100
+2 -81.499900 96.500100
+2 -81.499900 97.500100
+2 -81.499900 98.500100
+2 -81.499900 99.500100
+2 -81.499900 100.500100
+2 -81.499900 101.500100
+2 -81.499900 102.500100
+2 -81.499900 103.500100
+2 -81.499900 104.500100
+2 -81.499900 105.500100
+2 -81.499900 106.500100
+2 -81.499900 107.500100
+2 -81.499900 108.500100
+2 -81.499900 109.500100
+2 -81.499900 110.500100
+2 -81.499900 111.500100
+2 -81.499900 112.500100
+2 -81.499900 113.500100
+2 -81.499900 114.500100
+2 -81.499900 115.500100
+2 -81.499900 116.500100
+2 -81.499900 117.500100
+2 -81.499900 118.500100
+2 -81.499900 119.500100
+2 -81.499900 120.500100
+2 -81.499900 121.500100
+2 -81.499900 122.500100
+2 -81.499900 123.500100
+2 -81.499900 124.500100
+2 -81.499900 125.500100
+2 -81.499900 126.500100
+2 -81.499900 127.500100
+2 -81.499900 128.500100
+2 -81.499900 129.500100
+2 -81.499900 130.500100
+2 -81.499900 131.500100
+2 -81.499900 132.500100
+2 -81.499900 133.500100
+2 -81.499900 134.500100
+2 -81.499900 135.500100
+2 -81.499900 136.500100
+2 -81.499900 137.500100
+2 -81.499900 138.500100
+2 -81.499900 139.500100
+2 -81.499900 140.500100
+2 -81.499900 141.500100
+2 -81.499900 142.500100
+2 -81.499900 143.500100
+2 -81.499900 144.500100
+2 -81.499900 145.500100
+2 -81.499900 146.500100
+2 -81.499900 147.500100
+2 -81.499900 148.500100
+2 -81.499900 149.500100
+2 -81.499900 150.500100
+2 -81.499900 151.500100
+2 -81.499900 152.500100
+2 -81.499900 153.500100
+2 -81.499900 154.500100
+2 -81.499900 155.500100
+2 -81.499900 156.500100
+2 -81.499900 157.500100
+2 -81.499900 158.500100
+2 -81.499900 159.500100
+2 -81.499900 160.500100
+2 -81.499900 161.500100
+2 -81.499900 162.500100
+2 -81.499900 163.500100
+2 -81.499900 164.500100
+2 -81.499900 165.500100
+2 -81.499900 166.500100
+2 -81.499900 167.500100
+2 -81.499900 168.500100
+2 -81.499900 169.500100
+2 -81.499900 170.500100
+2 -81.499900 171.500100
+2 -81.499900 172.500100
+2 -81.499900 173.500100
+2 -81.499900 174.500100
+2 -81.499900 175.500100
+2 -81.499900 176.500100
+2 -81.499900 177.500100
+2 -81.499900 178.500100
+2 -81.499900 179.500100
+2 -81.499900 180.500100
+2 -81.499900 181.500100
+2 -81.499900 182.500100
+2 -81.499900 183.500100
+2 -81.499900 184.500100
+2 -81.499900 185.500100
+2 -81.499900 186.500100
+2 -81.499900 187.500100
+2 -81.499900 188.500100
+2 -81.499900 189.500100
+2 -81.499900 190.500100
+2 -81.499900 191.500100
+2 -81.499900 192.500100
+2 -81.499900 193.500100
+2 -81.499900 194.500100
+2 -81.499900 195.500100
+2 -81.499900 196.500100
+2 -81.499900 197.500100
+2 -81.499900 198.500100
+2 -81.499900 199.500100
+2 -81.499900 200.500100
+2 -81.499900 201.500100
+2 -81.499900 202.500100
+2 -81.499900 203.500100
+2 -81.499900 204.500100
+2 -81.499900 205.500100
+2 -81.499900 206.500100
+2 -81.499900 207.500100
+2 -81.499900 208.500100
+2 -81.499900 209.500100
+2 -81.499900 210.500100
+2 -81.499900 211.500100
+2 -81.499900 212.500100
+2 -81.499900 213.500100
+2 -81.499900 214.500100
+2 -81.499900 215.500100
+2 -81.499900 216.500100
+2 -81.499900 217.500100
+2 -81.499900 218.500100
+2 -81.499900 219.500100
+2 -81.499900 220.500100
+2 -81.499900 221.500100
+2 -81.499900 222.500100
+2 -81.499900 223.500100
+2 -81.499900 224.500100
+2 -81.499900 225.500100
+2 -81.499900 226.500100
+2 -81.499900 227.500100
+2 -81.499900 228.500100
+2 -81.499900 229.500100
+2 -81.499900 230.500100
+2 -81.499900 231.500100
+2 -81.499900 232.500100
+2 -81.499900 233.500100
+2 -81.499900 234.500100
+2 -81.499900 235.500100
+2 -81.499900 236.500100
+2 -81.499900 237.500100
+2 -81.499900 238.500100
+2 -81.499900 239.500100
+2 -81.499900 240.500100
+2 -81.499900 241.500100
+2 -81.499900 242.500100
+2 -81.499900 243.500100
+2 -81.499900 244.500100
+2 -81.499900 245.500100
+2 -81.499900 246.500100
+2 -81.499900 247.500100
+2 -81.499900 248.500100
+2 -81.499900 249.500100
+2 -81.499900 250.500100
+2 -81.499900 251.500100
+2 -81.499900 252.500100
+2 -81.499900 253.500100
+2 -81.499900 254.500100
+2 -81.499900 255.500100
+2 -81.499900 256.500100
+2 -81.499900 257.500100
+2 -81.499900 258.500100
+2 -81.499900 259.500100
+2 -81.499900 260.500100
+2 -81.499900 261.500100
+2 -81.499900 262.500100
+2 -81.499900 263.500100
+2 -81.499900 264.500100
+2 -81.499900 265.500100
+2 -81.499900 266.500100
+2 -81.499900 267.500100
+2 -81.499900 268.500100
+2 -81.499900 269.500100
+2 -81.499900 270.500100
+2 -81.499900 271.500100
+2 -81.499900 272.500100
+2 -81.499900 273.500100
+2 -81.499900 274.500100
+2 -81.499900 275.500100
+2 -81.499900 276.500100
+2 -81.499900 277.500100
+2 -81.499900 278.500100
+2 -81.499900 279.500100
+2 -81.499900 280.500100
+2 -81.499900 281.500100
+2 -81.499900 282.500100
+2 -81.499900 283.500100
+2 -81.499900 284.500100
+2 -81.499900 285.500100
+2 -81.499900 286.500100
+2 -81.499900 287.500100
+2 -81.499900 288.500100
+2 -81.499900 289.500100
+2 -81.499900 290.500100
+2 -81.499900 291.500100
+2 -81.499900 292.500100
+2 -81.499900 293.500100
+2 -81.499900 294.500100
+2 -81.499900 295.500100
+2 -81.499900 296.500100
+2 -81.499900 297.500100
+2 -81.499900 298.500100
+2 -81.499900 299.500100
+2 -81.499900 300.500100
+2 -81.499900 301.500100
+2 -81.499900 302.500100
+2 -81.499900 303.500100
+2 -81.499900 304.500100
+2 -81.499900 305.500100
+2 -81.499900 306.500100
+2 -81.499900 307.500100
+2 -81.499900 308.500100
+2 -81.499900 309.500100
+2 -81.499900 310.500100
+2 -81.499900 311.500100
+2 -81.499900 312.500100
+2 -81.499900 313.500100
+2 -81.499900 314.500100
+2 -81.499900 315.500100
+2 -81.499900 316.500100
+2 -81.499900 317.500100
+2 -81.499900 318.500100
+2 -81.499900 319.500100
+2 -81.499900 320.500100
+2 -81.499900 321.500100
+2 -81.499900 322.500100
+2 -81.499900 323.500100
+2 -81.499900 324.500100
+2 -81.499900 325.500100
+2 -81.499900 326.500100
+2 -81.499900 327.500100
+2 -81.499900 328.500100
+2 -81.499900 329.500100
+2 -81.499900 330.500100
+2 -81.499900 331.500100
+2 -81.499900 332.500100
+2 -81.499900 333.500100
+2 -81.499900 334.500100
+2 -81.499900 335.500100
+2 -81.499900 336.500100
+2 -81.499900 337.500100
+2 -81.499900 338.500100
+2 -81.499900 339.500100
+2 -81.499900 340.500100
+2 -81.499900 341.500100
+2 -81.499900 342.500100
+2 -81.499900 343.500100
+2 -81.499900 344.500100
+2 -81.499900 345.500100
+2 -81.499900 346.500100
+2 -81.499900 347.500100
+2 -81.499900 348.500100
+2 -81.499900 349.500100
+2 -81.499900 350.500100
+2 -81.499900 351.500100
+2 -81.499900 352.500100
+2 -81.499900 353.500100
+2 -81.499900 354.500100
+2 -81.499900 355.500100
+2 -81.499900 356.500100
+2 -81.499900 357.500100
+2 -81.499900 358.500100
+2 -81.499900 359.500100
+2 -80.499900 0.500100
+2 -80.499900 1.500100
+2 -80.499900 2.500100
+2 -80.499900 3.500100
+2 -80.499900 4.500100
+2 -80.499900 5.500100
+2 -80.499900 6.500100
+2 -80.499900 7.500100
+2 -80.499900 8.500100
+2 -80.499900 9.500100
+2 -80.499900 10.500100
+2 -80.499900 11.500100
+2 -80.499900 12.500100
+2 -80.499900 13.500100
+2 -80.499900 14.500100
+2 -80.499900 15.500100
+2 -80.499900 16.500100
+2 -80.499900 17.500100
+2 -80.499900 18.500100
+2 -80.499900 19.500100
+2 -80.499900 20.500100
+2 -80.499900 21.500100
+2 -80.499900 22.500100
+2 -80.499900 23.500100
+2 -80.499900 24.500100
+2 -80.499900 25.500100
+2 -80.499900 26.500100
+2 -80.499900 27.500100
+2 -80.499900 28.500100
+2 -80.499900 29.500100
+2 -80.499900 30.500100
+2 -80.499900 31.500100
+2 -80.499900 32.500100
+2 -80.499900 33.500100
+2 -80.499900 34.500100
+2 -80.499900 35.500100
+2 -80.499900 36.500100
+2 -80.499900 37.500100
+2 -80.499900 38.500100
+2 -80.499900 39.500100
+2 -80.499900 40.500100
+2 -80.499900 41.500100
+2 -80.499900 42.500100
+2 -80.499900 43.500100
+2 -80.499900 44.500100
+2 -80.499900 45.500100
+2 -80.499900 46.500100
+2 -80.499900 47.500100
+2 -80.499900 48.500100
+2 -80.499900 49.500100
+2 -80.499900 50.500100
+2 -80.499900 51.500100
+2 -80.499900 52.500100
+2 -80.499900 53.500100
+2 -80.499900 54.500100
+2 -80.499900 55.500100
+2 -80.499900 56.500100
+2 -80.499900 57.500100
+2 -80.499900 58.500100
+2 -80.499900 59.500100
+2 -80.499900 60.500100
+2 -80.499900 61.500100
+2 -80.499900 62.500100
+2 -80.499900 63.500100
+2 -80.499900 64.500100
+2 -80.499900 65.500100
+2 -80.499900 66.500100
+2 -80.499900 67.500100
+2 -80.499900 68.500100
+2 -80.499900 69.500100
+2 -80.499900 70.500100
+2 -80.499900 71.500100
+2 -80.499900 72.500100
+2 -80.499900 73.500100
+2 -80.499900 74.500100
+2 -80.499900 75.500100
+2 -80.499900 76.500100
+2 -80.499900 77.500100
+2 -80.499900 78.500100
+2 -80.499900 79.500100
+2 -80.499900 80.500100
+2 -80.499900 81.500100
+2 -80.499900 82.500100
+2 -80.499900 83.500100
+2 -80.499900 84.500100
+2 -80.499900 85.500100
+2 -80.499900 86.500100
+2 -80.499900 87.500100
+2 -80.499900 88.500100
+2 -80.499900 89.500100
+2 -80.499900 90.500100
+2 -80.499900 91.500100
+2 -80.499900 92.500100
+2 -80.499900 93.500100
+2 -80.499900 94.500100
+2 -80.499900 95.500100
+2 -80.499900 96.500100
+2 -80.499900 97.500100
+2 -80.499900 98.500100
+2 -80.499900 99.500100
+2 -80.499900 100.500100
+2 -80.499900 101.500100
+2 -80.499900 102.500100
+2 -80.499900 103.500100
+2 -80.499900 104.500100
+2 -80.499900 105.500100
+2 -80.499900 106.500100
+2 -80.499900 107.500100
+2 -80.499900 108.500100
+2 -80.499900 109.500100
+2 -80.499900 110.500100
+2 -80.499900 111.500100
+2 -80.499900 112.500100
+2 -80.499900 113.500100
+2 -80.499900 114.500100
+2 -80.499900 115.500100
+2 -80.499900 116.500100
+2 -80.499900 117.500100
+2 -80.499900 118.500100
+2 -80.499900 119.500100
+2 -80.499900 120.500100
+2 -80.499900 121.500100
+2 -80.499900 122.500100
+2 -80.499900 123.500100
+2 -80.499900 124.500100
+2 -80.499900 125.500100
+2 -80.499900 126.500100
+2 -80.499900 127.500100
+2 -80.499900 128.500100
+2 -80.499900 129.500100
+2 -80.499900 130.500100
+2 -80.499900 131.500100
+2 -80.499900 132.500100
+2 -80.499900 133.500100
+2 -80.499900 134.500100
+2 -80.499900 135.500100
+2 -80.499900 136.500100
+2 -80.499900 137.500100
+2 -80.499900 138.500100
+2 -80.499900 139.500100
+2 -80.499900 140.500100
+2 -80.499900 141.500100
+2 -80.499900 142.500100
+2 -80.499900 143.500100
+2 -80.499900 144.500100
+2 -80.499900 145.500100
+2 -80.499900 146.500100
+2 -80.499900 147.500100
+2 -80.499900 148.500100
+2 -80.499900 149.500100
+2 -80.499900 150.500100
+2 -80.499900 151.500100
+2 -80.499900 152.500100
+2 -80.499900 153.500100
+2 -80.499900 154.500100
+2 -80.499900 155.500100
+2 -80.499900 156.500100
+2 -80.499900 157.500100
+2 -80.499900 158.500100
+2 -80.499900 159.500100
+2 -80.499900 160.500100
+2 -80.499900 161.500100
+2 -80.499900 162.500100
+2 -80.499900 163.500100
+2 -80.499900 164.500100
+2 -80.499900 165.500100
+2 -80.499900 166.500100
+2 -80.499900 167.500100
+2 -80.499900 168.500100
+2 -80.499900 169.500100
+2 -80.499900 170.500100
+2 -80.499900 171.500100
+2 -80.499900 172.500100
+2 -80.499900 173.500100
+2 -80.499900 174.500100
+2 -80.499900 175.500100
+2 -80.499900 176.500100
+2 -80.499900 177.500100
+2 -80.499900 178.500100
+2 -80.499900 179.500100
+2 -80.499900 180.500100
+2 -80.499900 181.500100
+2 -80.499900 182.500100
+2 -80.499900 183.500100
+2 -80.499900 184.500100
+2 -80.499900 185.500100
+2 -80.499900 186.500100
+2 -80.499900 187.500100
+2 -80.499900 188.500100
+2 -80.499900 189.500100
+2 -80.499900 190.500100
+2 -80.499900 191.500100
+2 -80.499900 192.500100
+2 -80.499900 193.500100
+2 -80.499900 194.500100
+2 -80.499900 195.500100
+2 -80.499900 196.500100
+2 -80.499900 197.500100
+2 -80.499900 198.500100
+2 -80.499900 199.500100
+2 -80.499900 200.500100
+2 -80.499900 201.500100
+2 -80.499900 202.500100
+2 -80.499900 203.500100
+2 -80.499900 204.500100
+2 -80.499900 205.500100
+2 -80.499900 206.500100
+2 -80.499900 207.500100
+2 -80.499900 208.500100
+2 -80.499900 209.500100
+2 -80.499900 210.500100
+2 -80.499900 211.500100
+2 -80.499900 212.500100
+2 -80.499900 213.500100
+2 -80.499900 214.500100
+2 -80.499900 215.500100
+2 -80.499900 216.500100
+2 -80.499900 217.500100
+2 -80.499900 218.500100
+2 -80.499900 219.500100
+2 -80.499900 220.500100
+2 -80.499900 221.500100
+2 -80.499900 222.500100
+2 -80.499900 223.500100
+2 -80.499900 224.500100
+2 -80.499900 225.500100
+2 -80.499900 226.500100
+2 -80.499900 227.500100
+2 -80.499900 228.500100
+2 -80.499900 229.500100
+2 -80.499900 230.500100
+2 -80.499900 231.500100
+2 -80.499900 232.500100
+2 -80.499900 233.500100
+2 -80.499900 234.500100
+2 -80.499900 235.500100
+2 -80.499900 236.500100
+2 -80.499900 237.500100
+2 -80.499900 238.500100
+2 -80.499900 239.500100
+2 -80.499900 240.500100
+2 -80.499900 241.500100
+2 -80.499900 242.500100
+2 -80.499900 243.500100
+2 -80.499900 244.500100
+2 -80.499900 245.500100
+2 -80.499900 246.500100
+2 -80.499900 247.500100
+2 -80.499900 248.500100
+2 -80.499900 249.500100
+2 -80.499900 250.500100
+2 -80.499900 251.500100
+2 -80.499900 252.500100
+2 -80.499900 253.500100
+2 -80.499900 254.500100
+2 -80.499900 255.500100
+2 -80.499900 256.500100
+2 -80.499900 257.500100
+2 -80.499900 258.500100
+2 -80.499900 259.500100
+2 -80.499900 260.500100
+2 -80.499900 261.500100
+2 -80.499900 262.500100
+2 -80.499900 263.500100
+2 -80.499900 264.500100
+2 -80.499900 265.500100
+2 -80.499900 266.500100
+2 -80.499900 267.500100
+2 -80.499900 268.500100
+2 -80.499900 269.500100
+2 -80.499900 270.500100
+2 -80.499900 271.500100
+2 -80.499900 272.500100
+2 -80.499900 273.500100
+2 -80.499900 274.500100
+2 -80.499900 275.500100
+2 -80.499900 276.500100
+2 -80.499900 277.500100
+2 -80.499900 278.500100
+2 -80.499900 279.500100
+2 -80.499900 280.500100
+2 -80.499900 281.500100
+2 -80.499900 282.500100
+2 -80.499900 283.500100
+2 -80.499900 284.500100
+2 -80.499900 285.500100
+2 -80.499900 286.500100
+2 -80.499900 287.500100
+2 -80.499900 288.500100
+2 -80.499900 289.500100
+2 -80.499900 290.500100
+2 -80.499900 291.500100
+2 -80.499900 292.500100
+2 -80.499900 293.500100
+2 -80.499900 294.500100
+2 -80.499900 295.500100
+2 -80.499900 296.500100
+2 -80.499900 297.500100
+2 -80.499900 298.500100
+2 -80.499900 299.500100
+2 -80.499900 300.500100
+2 -80.499900 301.500100
+2 -80.499900 302.500100
+2 -80.499900 303.500100
+2 -80.499900 304.500100
+2 -80.499900 305.500100
+2 -80.499900 306.500100
+2 -80.499900 307.500100
+2 -80.499900 308.500100
+2 -80.499900 309.500100
+2 -80.499900 310.500100
+2 -80.499900 311.500100
+2 -80.499900 312.500100
+2 -80.499900 313.500100
+2 -80.499900 314.500100
+2 -80.499900 315.500100
+2 -80.499900 316.500100
+2 -80.499900 317.500100
+2 -80.499900 318.500100
+2 -80.499900 319.500100
+2 -80.499900 320.500100
+2 -80.499900 321.500100
+2 -80.499900 322.500100
+2 -80.499900 323.500100
+2 -80.499900 324.500100
+2 -80.499900 325.500100
+2 -80.499900 326.500100
+2 -80.499900 327.500100
+2 -80.499900 328.500100
+2 -80.499900 329.500100
+2 -80.499900 330.500100
+2 -80.499900 331.500100
+2 -80.499900 332.500100
+2 -80.499900 333.500100
+2 -80.499900 334.500100
+2 -80.499900 335.500100
+2 -80.499900 336.500100
+2 -80.499900 337.500100
+2 -80.499900 338.500100
+2 -80.499900 339.500100
+2 -80.499900 340.500100
+2 -80.499900 341.500100
+2 -80.499900 342.500100
+2 -80.499900 343.500100
+2 -80.499900 344.500100
+2 -80.499900 345.500100
+2 -80.499900 346.500100
+2 -80.499900 347.500100
+2 -80.499900 348.500100
+2 -80.499900 349.500100
+2 -80.499900 350.500100
+2 -80.499900 351.500100
+2 -80.499900 352.500100
+2 -80.499900 353.500100
+2 -80.499900 354.500100
+2 -80.499900 355.500100
+2 -80.499900 356.500100
+2 -80.499900 357.500100
+2 -80.499900 358.500100
+2 -80.499900 359.500100
+2 -79.499900 0.500100
+2 -79.499900 1.500100
+2 -79.499900 2.500100
+2 -79.499900 3.500100
+2 -79.499900 4.500100
+2 -79.499900 5.500100
+2 -79.499900 6.500100
+2 -79.499900 7.500100
+2 -79.499900 8.500100
+2 -79.499900 9.500100
+2 -79.499900 10.500100
+2 -79.499900 11.500100
+2 -79.499900 12.500100
+2 -79.499900 13.500100
+2 -79.499900 14.500100
+2 -79.499900 15.500100
+2 -79.499900 16.500100
+2 -79.499900 17.500100
+2 -79.499900 18.500100
+2 -79.499900 19.500100
+2 -79.499900 20.500100
+2 -79.499900 21.500100
+2 -79.499900 22.500100
+2 -79.499900 23.500100
+2 -79.499900 24.500100
+2 -79.499900 25.500100
+2 -79.499900 26.500100
+2 -79.499900 27.500100
+2 -79.499900 28.500100
+2 -79.499900 29.500100
+2 -79.499900 30.500100
+2 -79.499900 31.500100
+2 -79.499900 32.500100
+2 -79.499900 33.500100
+2 -79.499900 34.500100
+2 -79.499900 35.500100
+2 -79.499900 36.500100
+2 -79.499900 37.500100
+2 -79.499900 38.500100
+2 -79.499900 39.500100
+2 -79.499900 40.500100
+2 -79.499900 41.500100
+2 -79.499900 42.500100
+2 -79.499900 43.500100
+2 -79.499900 44.500100
+2 -79.499900 45.500100
+2 -79.499900 46.500100
+2 -79.499900 47.500100
+2 -79.499900 48.500100
+2 -79.499900 49.500100
+2 -79.499900 50.500100
+2 -79.499900 51.500100
+2 -79.499900 52.500100
+2 -79.499900 53.500100
+2 -79.499900 54.500100
+2 -79.499900 55.500100
+2 -79.499900 56.500100
+2 -79.499900 57.500100
+2 -79.499900 58.500100
+2 -79.499900 59.500100
+2 -79.499900 60.500100
+2 -79.499900 61.500100
+2 -79.499900 62.500100
+2 -79.499900 63.500100
+2 -79.499900 64.500100
+2 -79.499900 65.500100
+2 -79.499900 66.500100
+2 -79.499900 67.500100
+2 -79.499900 68.500100
+2 -79.499900 69.500100
+2 -79.499900 70.500100
+2 -79.499900 71.500100
+2 -79.499900 72.500100
+2 -79.499900 73.500100
+2 -79.499900 74.500100
+2 -79.499900 75.500100
+2 -79.499900 76.500100
+2 -79.499900 77.500100
+2 -79.499900 78.500100
+2 -79.499900 79.500100
+2 -79.499900 80.500100
+2 -79.499900 81.500100
+2 -79.499900 82.500100
+2 -79.499900 83.500100
+2 -79.499900 84.500100
+2 -79.499900 85.500100
+2 -79.499900 86.500100
+2 -79.499900 87.500100
+2 -79.499900 88.500100
+2 -79.499900 89.500100
+2 -79.499900 90.500100
+2 -79.499900 91.500100
+2 -79.499900 92.500100
+2 -79.499900 93.500100
+2 -79.499900 94.500100
+2 -79.499900 95.500100
+2 -79.499900 96.500100
+2 -79.499900 97.500100
+2 -79.499900 98.500100
+2 -79.499900 99.500100
+2 -79.499900 100.500100
+2 -79.499900 101.500100
+2 -79.499900 102.500100
+2 -79.499900 103.500100
+2 -79.499900 104.500100
+2 -79.499900 105.500100
+2 -79.499900 106.500100
+2 -79.499900 107.500100
+2 -79.499900 108.500100
+2 -79.499900 109.500100
+2 -79.499900 110.500100
+2 -79.499900 111.500100
+2 -79.499900 112.500100
+2 -79.499900 113.500100
+2 -79.499900 114.500100
+2 -79.499900 115.500100
+2 -79.499900 116.500100
+2 -79.499900 117.500100
+2 -79.499900 118.500100
+2 -79.499900 119.500100
+2 -79.499900 120.500100
+2 -79.499900 121.500100
+2 -79.499900 122.500100
+2 -79.499900 123.500100
+2 -79.499900 124.500100
+2 -79.499900 125.500100
+2 -79.499900 126.500100
+2 -79.499900 127.500100
+2 -79.499900 128.500100
+2 -79.499900 129.500100
+2 -79.499900 130.500100
+2 -79.499900 131.500100
+2 -79.499900 132.500100
+2 -79.499900 133.500100
+2 -79.499900 134.500100
+2 -79.499900 135.500100
+2 -79.499900 136.500100
+2 -79.499900 137.500100
+2 -79.499900 138.500100
+2 -79.499900 139.500100
+2 -79.499900 140.500100
+2 -79.499900 141.500100
+2 -79.499900 142.500100
+2 -79.499900 143.500100
+2 -79.499900 144.500100
+2 -79.499900 145.500100
+2 -79.499900 146.500100
+2 -79.499900 147.500100
+2 -79.499900 148.500100
+2 -79.499900 149.500100
+2 -79.499900 150.500100
+2 -79.499900 151.500100
+2 -79.499900 152.500100
+2 -79.499900 153.500100
+2 -79.499900 154.500100
+2 -79.499900 155.500100
+2 -79.499900 156.500100
+2 -79.499900 157.500100
+2 -79.499900 158.500100
+2 -79.499900 159.500100
+2 -79.499900 160.500100
+2 -79.499900 161.500100
+2 -79.499900 162.500100
+2 -79.499900 163.500100
+2 -79.499900 164.500100
+2 -79.499900 165.500100
+2 -79.499900 166.500100
+2 -79.499900 167.500100
+2 -79.499900 168.500100
+2 -79.499900 169.500100
+2 -79.499900 170.500100
+2 -79.499900 171.500100
+2 -79.499900 172.500100
+2 -79.499900 173.500100
+2 -79.499900 174.500100
+2 -79.499900 175.500100
+2 -79.499900 176.500100
+2 -79.499900 177.500100
+2 -79.499900 178.500100
+2 -79.499900 179.500100
+2 -79.499900 180.500100
+2 -79.499900 181.500100
+2 -79.499900 182.500100
+2 -79.499900 183.500100
+2 -79.499900 184.500100
+2 -79.499900 185.500100
+2 -79.499900 186.500100
+2 -79.499900 187.500100
+2 -79.499900 188.500100
+2 -79.499900 189.500100
+2 -79.499900 190.500100
+2 -79.499900 191.500100
+2 -79.499900 192.500100
+2 -79.499900 193.500100
+2 -79.499900 194.500100
+2 -79.499900 195.500100
+2 -79.499900 196.500100
+2 -79.499900 197.500100
+2 -79.499900 198.500100
+2 -79.499900 199.500100
+2 -79.499900 200.500100
+2 -79.499900 201.500100
+2 -79.499900 202.500100
+2 -79.499900 203.500100
+2 -79.499900 204.500100
+2 -79.499900 205.500100
+2 -79.499900 206.500100
+2 -79.499900 207.500100
+2 -79.499900 208.500100
+2 -79.499900 209.500100
+2 -79.499900 210.500100
+2 -79.499900 211.500100
+2 -79.499900 212.500100
+2 -79.499900 213.500100
+2 -79.499900 214.500100
+2 -79.499900 215.500100
+2 -79.499900 216.500100
+2 -79.499900 217.500100
+2 -79.499900 218.500100
+2 -79.499900 219.500100
+2 -79.499900 220.500100
+2 -79.499900 221.500100
+2 -79.499900 222.500100
+2 -79.499900 223.500100
+2 -79.499900 224.500100
+2 -79.499900 225.500100
+2 -79.499900 226.500100
+2 -79.499900 227.500100
+2 -79.499900 228.500100
+2 -79.499900 229.500100
+2 -79.499900 230.500100
+2 -79.499900 231.500100
+2 -79.499900 232.500100
+2 -79.499900 233.500100
+2 -79.499900 234.500100
+2 -79.499900 235.500100
+2 -79.499900 236.500100
+2 -79.499900 237.500100
+2 -79.499900 238.500100
+2 -79.499900 239.500100
+2 -79.499900 240.500100
+2 -79.499900 241.500100
+2 -79.499900 242.500100
+2 -79.499900 243.500100
+2 -79.499900 244.500100
+2 -79.499900 245.500100
+2 -79.499900 246.500100
+2 -79.499900 247.500100
+2 -79.499900 248.500100
+2 -79.499900 249.500100
+2 -79.499900 250.500100
+2 -79.499900 251.500100
+2 -79.499900 252.500100
+2 -79.499900 253.500100
+2 -79.499900 254.500100
+2 -79.499900 255.500100
+2 -79.499900 256.500100
+2 -79.499900 257.500100
+2 -79.499900 258.500100
+2 -79.499900 259.500100
+2 -79.499900 260.500100
+2 -79.499900 261.500100
+2 -79.499900 262.500100
+2 -79.499900 263.500100
+2 -79.499900 264.500100
+2 -79.499900 265.500100
+2 -79.499900 266.500100
+2 -79.499900 267.500100
+2 -79.499900 268.500100
+2 -79.499900 269.500100
+2 -79.499900 270.500100
+2 -79.499900 271.500100
+2 -79.499900 272.500100
+2 -79.499900 273.500100
+2 -79.499900 274.500100
+2 -79.499900 275.500100
+2 -79.499900 276.500100
+2 -79.499900 277.500100
+2 -79.499900 278.500100
+2 -79.499900 279.500100
+2 -79.499900 280.500100
+2 -79.499900 281.500100
+2 -79.499900 282.500100
+2 -79.499900 283.500100
+2 -79.499900 284.500100
+2 -79.499900 285.500100
+2 -79.499900 286.500100
+2 -79.499900 287.500100
+2 -79.499900 288.500100
+2 -79.499900 289.500100
+2 -79.499900 290.500100
+2 -79.499900 291.500100
+2 -79.499900 292.500100
+2 -79.499900 293.500100
+2 -79.499900 294.500100
+2 -79.499900 295.500100
+2 -79.499900 296.500100
+2 -79.499900 297.500100
+2 -79.499900 298.500100
+2 -79.499900 299.500100
+2 -79.499900 300.500100
+2 -79.499900 301.500100
+2 -79.499900 302.500100
+2 -79.499900 303.500100
+2 -79.499900 304.500100
+2 -79.499900 305.500100
+2 -79.499900 306.500100
+2 -79.499900 307.500100
+2 -79.499900 308.500100
+2 -79.499900 309.500100
+2 -79.499900 310.500100
+2 -79.499900 311.500100
+2 -79.499900 312.500100
+2 -79.499900 313.500100
+2 -79.499900 314.500100
+2 -79.499900 315.500100
+2 -79.499900 316.500100
+2 -79.499900 317.500100
+2 -79.499900 318.500100
+2 -79.499900 319.500100
+2 -79.499900 320.500100
+2 -79.499900 321.500100
+2 -79.499900 322.500100
+2 -79.499900 323.500100
+2 -79.499900 324.500100
+2 -79.499900 325.500100
+2 -79.499900 326.500100
+2 -79.499900 327.500100
+2 -79.499900 328.500100
+2 -79.499900 329.500100
+2 -79.499900 330.500100
+2 -79.499900 331.500100
+2 -79.499900 332.500100
+2 -79.499900 333.500100
+2 -79.499900 334.500100
+2 -79.499900 335.500100
+2 -79.499900 336.500100
+2 -79.499900 337.500100
+2 -79.499900 338.500100
+2 -79.499900 339.500100
+2 -79.499900 340.500100
+2 -79.499900 341.500100
+2 -79.499900 342.500100
+2 -79.499900 343.500100
+2 -79.499900 344.500100
+2 -79.499900 345.500100
+2 -79.499900 346.500100
+2 -79.499900 347.500100
+2 -79.499900 348.500100
+2 -79.499900 349.500100
+2 -79.499900 350.500100
+2 -79.499900 351.500100
+2 -79.499900 352.500100
+2 -79.499900 353.500100
+2 -79.499900 354.500100
+2 -79.499900 355.500100
+2 -79.499900 356.500100
+2 -79.499900 357.500100
+2 -79.499900 358.500100
+2 -79.499900 359.500100
+2 -78.499900 0.500100
+2 -78.499900 1.500100
+2 -78.499900 2.500100
+2 -78.499900 3.500100
+2 -78.499900 4.500100
+2 -78.499900 5.500100
+2 -78.499900 6.500100
+2 -78.499900 7.500100
+2 -78.499900 8.500100
+2 -78.499900 9.500100
+2 -78.499900 10.500100
+2 -78.499900 11.500100
+2 -78.499900 12.500100
+2 -78.499900 13.500100
+2 -78.499900 14.500100
+2 -78.499900 15.500100
+2 -78.499900 16.500100
+2 -78.499900 17.500100
+2 -78.499900 18.500100
+2 -78.499900 19.500100
+2 -78.499900 20.500100
+2 -78.499900 21.500100
+2 -78.499900 22.500100
+2 -78.499900 23.500100
+2 -78.499900 24.500100
+2 -78.499900 25.500100
+2 -78.499900 26.500100
+2 -78.499900 27.500100
+2 -78.499900 28.500100
+2 -78.499900 29.500100
+2 -78.499900 30.500100
+2 -78.499900 31.500100
+2 -78.499900 32.500100
+2 -78.499900 33.500100
+2 -78.499900 34.500100
+2 -78.499900 35.500100
+2 -78.499900 36.500100
+2 -78.499900 37.500100
+2 -78.499900 38.500100
+2 -78.499900 39.500100
+2 -78.499900 40.500100
+2 -78.499900 41.500100
+2 -78.499900 42.500100
+2 -78.499900 43.500100
+2 -78.499900 44.500100
+2 -78.499900 45.500100
+2 -78.499900 46.500100
+2 -78.499900 47.500100
+2 -78.499900 48.500100
+2 -78.499900 49.500100
+2 -78.499900 50.500100
+2 -78.499900 51.500100
+2 -78.499900 52.500100
+2 -78.499900 53.500100
+2 -78.499900 54.500100
+2 -78.499900 55.500100
+2 -78.499900 56.500100
+2 -78.499900 57.500100
+2 -78.499900 58.500100
+2 -78.499900 59.500100
+2 -78.499900 60.500100
+2 -78.499900 61.500100
+2 -78.499900 62.500100
+2 -78.499900 63.500100
+2 -78.499900 64.500100
+2 -78.499900 65.500100
+2 -78.499900 66.500100
+2 -78.499900 67.500100
+2 -78.499900 68.500100
+2 -78.499900 69.500100
+2 -78.499900 70.500100
+2 -78.499900 71.500100
+2 -78.499900 72.500100
+2 -78.499900 73.500100
+2 -78.499900 74.500100
+2 -78.499900 75.500100
+2 -78.499900 76.500100
+2 -78.499900 77.500100
+2 -78.499900 78.500100
+2 -78.499900 79.500100
+2 -78.499900 80.500100
+2 -78.499900 81.500100
+2 -78.499900 82.500100
+2 -78.499900 83.500100
+2 -78.499900 84.500100
+2 -78.499900 85.500100
+2 -78.499900 86.500100
+2 -78.499900 87.500100
+2 -78.499900 88.500100
+2 -78.499900 89.500100
+2 -78.499900 90.500100
+2 -78.499900 91.500100
+2 -78.499900 92.500100
+2 -78.499900 93.500100
+2 -78.499900 94.500100
+2 -78.499900 95.500100
+2 -78.499900 96.500100
+2 -78.499900 97.500100
+2 -78.499900 98.500100
+2 -78.499900 99.500100
+2 -78.499900 100.500100
+2 -78.499900 101.500100
+2 -78.499900 102.500100
+2 -78.499900 103.500100
+2 -78.499900 104.500100
+2 -78.499900 105.500100
+2 -78.499900 106.500100
+2 -78.499900 107.500100
+2 -78.499900 108.500100
+2 -78.499900 109.500100
+2 -78.499900 110.500100
+2 -78.499900 111.500100
+2 -78.499900 112.500100
+2 -78.499900 113.500100
+2 -78.499900 114.500100
+2 -78.499900 115.500100
+2 -78.499900 116.500100
+2 -78.499900 117.500100
+2 -78.499900 118.500100
+2 -78.499900 119.500100
+2 -78.499900 120.500100
+2 -78.499900 121.500100
+2 -78.499900 122.500100
+2 -78.499900 123.500100
+2 -78.499900 124.500100
+2 -78.499900 125.500100
+2 -78.499900 126.500100
+2 -78.499900 127.500100
+2 -78.499900 128.500100
+2 -78.499900 129.500100
+2 -78.499900 130.500100
+2 -78.499900 131.500100
+2 -78.499900 132.500100
+2 -78.499900 133.500100
+2 -78.499900 134.500100
+2 -78.499900 135.500100
+2 -78.499900 136.500100
+2 -78.499900 137.500100
+2 -78.499900 138.500100
+2 -78.499900 139.500100
+2 -78.499900 140.500100
+2 -78.499900 141.500100
+2 -78.499900 142.500100
+2 -78.499900 143.500100
+2 -78.499900 144.500100
+2 -78.499900 145.500100
+2 -78.499900 146.500100
+2 -78.499900 147.500100
+2 -78.499900 148.500100
+2 -78.499900 149.500100
+2 -78.499900 150.500100
+2 -78.499900 151.500100
+2 -78.499900 152.500100
+2 -78.499900 153.500100
+2 -78.499900 154.500100
+2 -78.499900 155.500100
+2 -78.499900 156.500100
+2 -78.499900 157.500100
+2 -78.499900 158.500100
+2 -78.499900 159.500100
+2 -78.499900 160.500100
+2 -78.499900 161.500100
+2 -78.499900 162.500100
+2 -78.499900 163.500100
+2 -78.499900 164.500100
+2 -78.499900 165.500100
+2 -78.499900 166.500100
+2 -78.499900 167.500100
+2 -78.499900 168.500100
+2 -78.499900 169.500100
+2 -78.499900 170.500100
+2 -78.499900 171.500100
+2 -78.499900 172.500100
+2 -78.499900 173.500100
+2 -78.499900 174.500100
+2 -78.499900 175.500100
+2 -78.499900 176.500100
+2 -78.499900 177.500100
+2 -78.499900 178.500100
+2 -78.499900 179.500100
+2 -78.499900 180.500100
+2 -78.499900 181.500100
+2 -78.499900 182.500100
+2 -78.499900 183.500100
+2 -78.499900 184.500100
+2 -78.499900 185.500100
+2 -78.499900 186.500100
+2 -78.499900 187.500100
+2 -78.499900 188.500100
+2 -78.499900 189.500100
+2 -78.499900 190.500100
+2 -78.499900 191.500100
+2 -78.499900 192.500100
+2 -78.499900 193.500100
+2 -78.499900 194.500100
+2 -78.499900 195.500100
+2 -78.499900 196.500100
+2 -78.499900 197.500100
+2 -78.499900 198.500100
+2 -78.499900 199.500100
+2 -78.499900 200.500100
+2 -78.499900 201.500100
+2 -78.499900 202.500100
+2 -78.499900 203.500100
+2 -78.499900 204.500100
+2 -78.499900 205.500100
+2 -78.499900 206.500100
+2 -78.499900 207.500100
+2 -78.499900 208.500100
+2 -78.499900 209.500100
+2 -78.499900 210.500100
+2 -78.499900 211.500100
+2 -78.499900 212.500100
+2 -78.499900 213.500100
+2 -78.499900 214.500100
+2 -78.499900 215.500100
+2 -78.499900 216.500100
+2 -78.499900 217.500100
+2 -78.499900 218.500100
+2 -78.499900 219.500100
+2 -78.499900 220.500100
+2 -78.499900 221.500100
+2 -78.499900 222.500100
+2 -78.499900 223.500100
+2 -78.499900 224.500100
+2 -78.499900 225.500100
+2 -78.499900 226.500100
+2 -78.499900 227.500100
+2 -78.499900 228.500100
+2 -78.499900 229.500100
+2 -78.499900 230.500100
+2 -78.499900 231.500100
+2 -78.499900 232.500100
+2 -78.499900 233.500100
+2 -78.499900 234.500100
+2 -78.499900 235.500100
+2 -78.499900 236.500100
+2 -78.499900 237.500100
+2 -78.499900 238.500100
+2 -78.499900 239.500100
+2 -78.499900 240.500100
+2 -78.499900 241.500100
+2 -78.499900 242.500100
+2 -78.499900 243.500100
+2 -78.499900 244.500100
+2 -78.499900 245.500100
+2 -78.499900 246.500100
+2 -78.499900 247.500100
+2 -78.499900 248.500100
+2 -78.499900 249.500100
+2 -78.499900 250.500100
+2 -78.499900 251.500100
+2 -78.499900 252.500100
+2 -78.499900 253.500100
+2 -78.499900 254.500100
+2 -78.499900 255.500100
+2 -78.499900 256.500100
+2 -78.499900 257.500100
+2 -78.499900 258.500100
+2 -78.499900 259.500100
+2 -78.499900 260.500100
+2 -78.499900 261.500100
+2 -78.499900 262.500100
+2 -78.499900 263.500100
+2 -78.499900 264.500100
+2 -78.499900 265.500100
+2 -78.499900 266.500100
+2 -78.499900 267.500100
+2 -78.499900 268.500100
+2 -78.499900 269.500100
+2 -78.499900 270.500100
+2 -78.499900 271.500100
+2 -78.499900 272.500100
+2 -78.499900 273.500100
+2 -78.499900 274.500100
+2 -78.499900 275.500100
+2 -78.499900 276.500100
+2 -78.499900 277.500100
+2 -78.499900 278.500100
+2 -78.499900 279.500100
+2 -78.499900 280.500100
+2 -78.499900 281.500100
+2 -78.499900 282.500100
+2 -78.499900 283.500100
+2 -78.499900 284.500100
+2 -78.499900 285.500100
+2 -78.499900 286.500100
+2 -78.499900 287.500100
+2 -78.499900 288.500100
+2 -78.499900 289.500100
+2 -78.499900 290.500100
+2 -78.499900 291.500100
+2 -78.499900 292.500100
+2 -78.499900 293.500100
+2 -78.499900 294.500100
+2 -78.499900 295.500100
+2 -78.499900 296.500100
+2 -78.499900 297.500100
+2 -78.499900 298.500100
+2 -78.499900 299.500100
+2 -78.499900 300.500100
+2 -78.499900 301.500100
+2 -78.499900 302.500100
+2 -78.499900 303.500100
+2 -78.499900 304.500100
+2 -78.499900 305.500100
+2 -78.499900 306.500100
+2 -78.499900 307.500100
+2 -78.499900 308.500100
+2 -78.499900 309.500100
+2 -78.499900 310.500100
+2 -78.499900 311.500100
+2 -78.499900 312.500100
+2 -78.499900 313.500100
+2 -78.499900 314.500100
+2 -78.499900 315.500100
+2 -78.499900 316.500100
+2 -78.499900 317.500100
+2 -78.499900 318.500100
+2 -78.499900 319.500100
+2 -78.499900 320.500100
+2 -78.499900 321.500100
+2 -78.499900 322.500100
+2 -78.499900 323.500100
+2 -78.499900 324.500100
+2 -78.499900 325.500100
+2 -78.499900 326.500100
+2 -78.499900 327.500100
+2 -78.499900 328.500100
+2 -78.499900 329.500100
+2 -78.499900 330.500100
+2 -78.499900 331.500100
+2 -78.499900 332.500100
+2 -78.499900 333.500100
+2 -78.499900 334.500100
+2 -78.499900 335.500100
+2 -78.499900 336.500100
+2 -78.499900 337.500100
+2 -78.499900 338.500100
+2 -78.499900 339.500100
+2 -78.499900 340.500100
+2 -78.499900 341.500100
+2 -78.499900 342.500100
+2 -78.499900 343.500100
+2 -78.499900 344.500100
+2 -78.499900 345.500100
+2 -78.499900 346.500100
+2 -78.499900 347.500100
+2 -78.499900 348.500100
+2 -78.499900 349.500100
+2 -78.499900 350.500100
+2 -78.499900 351.500100
+2 -78.499900 352.500100
+2 -78.499900 353.500100
+2 -78.499900 354.500100
+2 -78.499900 355.500100
+2 -78.499900 356.500100
+2 -78.499900 357.500100
+2 -78.499900 358.500100
+2 -78.499900 359.500100
+2 -77.499900 0.500100
+2 -77.499900 1.500100
+2 -77.499900 2.500100
+2 -77.499900 3.500100
+2 -77.499900 4.500100
+2 -77.499900 5.500100
+2 -77.499900 6.500100
+2 -77.499900 7.500100
+2 -77.499900 8.500100
+2 -77.499900 9.500100
+2 -77.499900 10.500100
+2 -77.499900 11.500100
+2 -77.499900 12.500100
+2 -77.499900 13.500100
+2 -77.499900 14.500100
+2 -77.499900 15.500100
+2 -77.499900 16.500100
+2 -77.499900 17.500100
+2 -77.499900 18.500100
+2 -77.499900 19.500100
+2 -77.499900 20.500100
+2 -77.499900 21.500100
+2 -77.499900 22.500100
+2 -77.499900 23.500100
+2 -77.499900 24.500100
+2 -77.499900 25.500100
+2 -77.499900 26.500100
+2 -77.499900 27.500100
+2 -77.499900 28.500100
+2 -77.499900 29.500100
+2 -77.499900 30.500100
+2 -77.499900 31.500100
+2 -77.499900 32.500100
+2 -77.499900 33.500100
+2 -77.499900 34.500100
+2 -77.499900 35.500100
+2 -77.499900 36.500100
+2 -77.499900 37.500100
+2 -77.499900 38.500100
+2 -77.499900 39.500100
+2 -77.499900 40.500100
+2 -77.499900 41.500100
+2 -77.499900 42.500100
+2 -77.499900 43.500100
+2 -77.499900 44.500100
+2 -77.499900 45.500100
+2 -77.499900 46.500100
+2 -77.499900 47.500100
+2 -77.499900 48.500100
+2 -77.499900 49.500100
+2 -77.499900 50.500100
+2 -77.499900 51.500100
+2 -77.499900 52.500100
+2 -77.499900 53.500100
+2 -77.499900 54.500100
+2 -77.499900 55.500100
+2 -77.499900 56.500100
+2 -77.499900 57.500100
+2 -77.499900 58.500100
+2 -77.499900 59.500100
+2 -77.499900 60.500100
+2 -77.499900 61.500100
+2 -77.499900 62.500100
+2 -77.499900 63.500100
+2 -77.499900 64.500100
+2 -77.499900 65.500100
+2 -77.499900 66.500100
+2 -77.499900 67.500100
+2 -77.499900 68.500100
+2 -77.499900 69.500100
+2 -77.499900 70.500100
+2 -77.499900 71.500100
+2 -77.499900 72.500100
+2 -77.499900 73.500100
+2 -77.499900 74.500100
+2 -77.499900 75.500100
+2 -77.499900 76.500100
+2 -77.499900 77.500100
+2 -77.499900 78.500100
+2 -77.499900 79.500100
+2 -77.499900 80.500100
+2 -77.499900 81.500100
+2 -77.499900 82.500100
+2 -77.499900 83.500100
+2 -77.499900 84.500100
+2 -77.499900 85.500100
+2 -77.499900 86.500100
+2 -77.499900 87.500100
+2 -77.499900 88.500100
+2 -77.499900 89.500100
+2 -77.499900 90.500100
+2 -77.499900 91.500100
+2 -77.499900 92.500100
+2 -77.499900 93.500100
+2 -77.499900 94.500100
+2 -77.499900 95.500100
+2 -77.499900 96.500100
+2 -77.499900 97.500100
+2 -77.499900 98.500100
+2 -77.499900 99.500100
+2 -77.499900 100.500100
+2 -77.499900 101.500100
+2 -77.499900 102.500100
+2 -77.499900 103.500100
+2 -77.499900 104.500100
+2 -77.499900 105.500100
+2 -77.499900 106.500100
+2 -77.499900 107.500100
+2 -77.499900 108.500100
+2 -77.499900 109.500100
+2 -77.499900 110.500100
+2 -77.499900 111.500100
+2 -77.499900 112.500100
+2 -77.499900 113.500100
+2 -77.499900 114.500100
+2 -77.499900 115.500100
+2 -77.499900 116.500100
+2 -77.499900 117.500100
+2 -77.499900 118.500100
+2 -77.499900 119.500100
+2 -77.499900 120.500100
+2 -77.499900 121.500100
+2 -77.499900 122.500100
+2 -77.499900 123.500100
+2 -77.499900 124.500100
+2 -77.499900 125.500100
+2 -77.499900 126.500100
+2 -77.499900 127.500100
+2 -77.499900 128.500100
+2 -77.499900 129.500100
+2 -77.499900 130.500100
+2 -77.499900 131.500100
+2 -77.499900 132.500100
+2 -77.499900 133.500100
+2 -77.499900 134.500100
+2 -77.499900 135.500100
+2 -77.499900 136.500100
+2 -77.499900 137.500100
+2 -77.499900 138.500100
+2 -77.499900 139.500100
+2 -77.499900 140.500100
+2 -77.499900 141.500100
+2 -77.499900 142.500100
+2 -77.499900 143.500100
+2 -77.499900 144.500100
+2 -77.499900 145.500100
+2 -77.499900 146.500100
+2 -77.499900 147.500100
+2 -77.499900 148.500100
+2 -77.499900 149.500100
+2 -77.499900 150.500100
+2 -77.499900 151.500100
+2 -77.499900 152.500100
+2 -77.499900 153.500100
+2 -77.499900 154.500100
+2 -77.499900 155.500100
+2 -77.499900 156.500100
+2 -77.499900 157.500100
+2 -77.499900 158.500100
+2 -77.499900 159.500100
+2 -77.499900 160.500100
+2 -77.499900 161.500100
+2 -77.499900 162.500100
+2 -77.499900 163.500100
+2 -77.499900 164.500100
+2 -77.499900 165.500100
+2 -77.499900 166.500100
+2 -77.499900 167.500100
+2 -77.499900 168.500100
+2 -77.499900 169.500100
+2 -77.499900 170.500100
+2 -77.499900 171.500100
+2 -77.499900 172.500100
+2 -77.499900 173.500100
+2 -77.499900 174.500100
+2 -77.499900 175.500100
+2 -77.499900 176.500100
+2 -77.499900 177.500100
+2 -77.499900 178.500100
+2 -77.499900 179.500100
+2 -77.499900 180.500100
+2 -77.499900 181.500100
+2 -77.499900 182.500100
+2 -77.499900 183.500100
+2 -77.499900 184.500100
+2 -77.499900 185.500100
+2 -77.499900 186.500100
+2 -77.499900 187.500100
+2 -77.499900 188.500100
+2 -77.499900 189.500100
+2 -77.499900 190.500100
+2 -77.499900 191.500100
+2 -77.499900 192.500100
+2 -77.499900 193.500100
+2 -77.499900 194.500100
+2 -77.499900 195.500100
+2 -77.499900 196.500100
+2 -77.499900 197.500100
+2 -77.499900 198.500100
+2 -77.499900 199.500100
+2 -77.499900 200.500100
+2 -77.499900 201.500100
+2 -77.499900 202.500100
+2 -77.499900 203.500100
+2 -77.499900 204.500100
+2 -77.499900 205.500100
+2 -77.499900 206.500100
+2 -77.499900 207.500100
+2 -77.499900 208.500100
+2 -77.499900 209.500100
+2 -77.499900 210.500100
+2 -77.499900 211.500100
+2 -77.499900 212.500100
+2 -77.499900 213.500100
+2 -77.499900 214.500100
+2 -77.499900 215.500100
+2 -77.499900 216.500100
+2 -77.499900 217.500100
+2 -77.499900 218.500100
+2 -77.499900 219.500100
+2 -77.499900 220.500100
+2 -77.499900 221.500100
+2 -77.499900 222.500100
+2 -77.499900 223.500100
+2 -77.499900 224.500100
+2 -77.499900 225.500100
+2 -77.499900 226.500100
+2 -77.499900 227.500100
+2 -77.499900 228.500100
+2 -77.499900 229.500100
+2 -77.499900 230.500100
+2 -77.499900 231.500100
+2 -77.499900 232.500100
+2 -77.499900 233.500100
+2 -77.499900 234.500100
+2 -77.499900 235.500100
+2 -77.499900 236.500100
+2 -77.499900 237.500100
+2 -77.499900 238.500100
+2 -77.499900 239.500100
+2 -77.499900 240.500100
+2 -77.499900 241.500100
+2 -77.499900 242.500100
+2 -77.499900 243.500100
+2 -77.499900 244.500100
+2 -77.499900 245.500100
+2 -77.499900 246.500100
+2 -77.499900 247.500100
+2 -77.499900 248.500100
+2 -77.499900 249.500100
+2 -77.499900 250.500100
+2 -77.499900 251.500100
+2 -77.499900 252.500100
+2 -77.499900 253.500100
+2 -77.499900 254.500100
+2 -77.499900 255.500100
+2 -77.499900 256.500100
+2 -77.499900 257.500100
+2 -77.499900 258.500100
+2 -77.499900 259.500100
+2 -77.499900 260.500100
+2 -77.499900 261.500100
+2 -77.499900 262.500100
+2 -77.499900 263.500100
+2 -77.499900 264.500100
+2 -77.499900 265.500100
+2 -77.499900 266.500100
+2 -77.499900 267.500100
+2 -77.499900 268.500100
+2 -77.499900 269.500100
+2 -77.499900 270.500100
+2 -77.499900 271.500100
+2 -77.499900 272.500100
+2 -77.499900 273.500100
+2 -77.499900 274.500100
+2 -77.499900 275.500100
+2 -77.499900 276.500100
+2 -77.499900 277.500100
+2 -77.499900 278.500100
+2 -77.499900 279.500100
+2 -77.499900 280.500100
+2 -77.499900 281.500100
+2 -77.499900 282.500100
+2 -77.499900 283.500100
+2 -77.499900 284.500100
+2 -77.499900 285.500100
+2 -77.499900 286.500100
+2 -77.499900 287.500100
+2 -77.499900 288.500100
+2 -77.499900 289.500100
+2 -77.499900 290.500100
+2 -77.499900 291.500100
+2 -77.499900 292.500100
+2 -77.499900 293.500100
+2 -77.499900 294.500100
+2 -77.499900 295.500100
+2 -77.499900 296.500100
+2 -77.499900 297.500100
+2 -77.499900 298.500100
+2 -77.499900 299.500100
+2 -77.499900 300.500100
+2 -77.499900 301.500100
+2 -77.499900 302.500100
+2 -77.499900 303.500100
+2 -77.499900 304.500100
+2 -77.499900 305.500100
+2 -77.499900 306.500100
+2 -77.499900 307.500100
+2 -77.499900 308.500100
+2 -77.499900 309.500100
+2 -77.499900 310.500100
+2 -77.499900 311.500100
+2 -77.499900 312.500100
+2 -77.499900 313.500100
+2 -77.499900 314.500100
+2 -77.499900 315.500100
+2 -77.499900 316.500100
+2 -77.499900 317.500100
+2 -77.499900 318.500100
+2 -77.499900 319.500100
+2 -77.499900 320.500100
+2 -77.499900 321.500100
+2 -77.499900 322.500100
+2 -77.499900 323.500100
+2 -77.499900 324.500100
+2 -77.499900 325.500100
+2 -77.499900 326.500100
+2 -77.499900 327.500100
+2 -77.499900 328.500100
+2 -77.499900 329.500100
+2 -77.499900 330.500100
+2 -77.499900 331.500100
+2 -77.499900 332.500100
+2 -77.499900 333.500100
+2 -77.499900 334.500100
+2 -77.499900 335.500100
+2 -77.499900 336.500100
+2 -77.499900 337.500100
+2 -77.499900 338.500100
+2 -77.499900 339.500100
+2 -77.499900 340.500100
+2 -77.499900 341.500100
+2 -77.499900 342.500100
+2 -77.499900 343.500100
+2 -77.499900 344.500100
+2 -77.499900 345.500100
+2 -77.499900 346.500100
+2 -77.499900 347.500100
+2 -77.499900 348.500100
+2 -77.499900 349.500100
+2 -77.499900 350.500100
+2 -77.499900 351.500100
+2 -77.499900 352.500100
+2 -77.499900 353.500100
+2 -77.499900 354.500100
+2 -77.499900 355.500100
+2 -77.499900 356.500100
+2 -77.499900 357.500100
+2 -77.499900 358.500100
+2 -77.499900 359.500100
+2 -76.499900 0.500100
+2 -76.499900 1.500100
+2 -76.499900 2.500100
+2 -76.499900 3.500100
+2 -76.499900 4.500100
+2 -76.499900 5.500100
+2 -76.499900 6.500100
+2 -76.499900 7.500100
+2 -76.499900 8.500100
+2 -76.499900 9.500100
+2 -76.499900 10.500100
+2 -76.499900 11.500100
+2 -76.499900 12.500100
+2 -76.499900 13.500100
+2 -76.499900 14.500100
+2 -76.499900 15.500100
+2 -76.499900 16.500100
+2 -76.499900 17.500100
+2 -76.499900 18.500100
+2 -76.499900 19.500100
+2 -76.499900 20.500100
+2 -76.499900 21.500100
+2 -76.499900 22.500100
+2 -76.499900 23.500100
+2 -76.499900 24.500100
+2 -76.499900 25.500100
+2 -76.499900 26.500100
+2 -76.499900 27.500100
+2 -76.499900 28.500100
+2 -76.499900 29.500100
+2 -76.499900 30.500100
+2 -76.499900 31.500100
+2 -76.499900 32.500100
+2 -76.499900 33.500100
+2 -76.499900 34.500100
+2 -76.499900 35.500100
+2 -76.499900 36.500100
+2 -76.499900 37.500100
+2 -76.499900 38.500100
+2 -76.499900 39.500100
+2 -76.499900 40.500100
+2 -76.499900 41.500100
+2 -76.499900 42.500100
+2 -76.499900 43.500100
+2 -76.499900 44.500100
+2 -76.499900 45.500100
+2 -76.499900 46.500100
+2 -76.499900 47.500100
+2 -76.499900 48.500100
+2 -76.499900 49.500100
+2 -76.499900 50.500100
+2 -76.499900 51.500100
+2 -76.499900 52.500100
+2 -76.499900 53.500100
+2 -76.499900 54.500100
+2 -76.499900 55.500100
+2 -76.499900 56.500100
+2 -76.499900 57.500100
+2 -76.499900 58.500100
+2 -76.499900 59.500100
+2 -76.499900 60.500100
+2 -76.499900 61.500100
+2 -76.499900 62.500100
+2 -76.499900 63.500100
+2 -76.499900 64.500100
+2 -76.499900 65.500100
+2 -76.499900 66.500100
+2 -76.499900 67.500100
+2 -76.499900 68.500100
+2 -76.499900 69.500100
+2 -76.499900 70.500100
+2 -76.499900 71.500100
+2 -76.499900 72.500100
+2 -76.499900 73.500100
+2 -76.499900 74.500100
+2 -76.499900 75.500100
+2 -76.499900 76.500100
+2 -76.499900 77.500100
+2 -76.499900 78.500100
+2 -76.499900 79.500100
+2 -76.499900 80.500100
+2 -76.499900 81.500100
+2 -76.499900 82.500100
+2 -76.499900 83.500100
+2 -76.499900 84.500100
+2 -76.499900 85.500100
+2 -76.499900 86.500100
+2 -76.499900 87.500100
+2 -76.499900 88.500100
+2 -76.499900 89.500100
+2 -76.499900 90.500100
+2 -76.499900 91.500100
+2 -76.499900 92.500100
+2 -76.499900 93.500100
+2 -76.499900 94.500100
+2 -76.499900 95.500100
+2 -76.499900 96.500100
+2 -76.499900 97.500100
+2 -76.499900 98.500100
+2 -76.499900 99.500100
+2 -76.499900 100.500100
+2 -76.499900 101.500100
+2 -76.499900 102.500100
+2 -76.499900 103.500100
+2 -76.499900 104.500100
+2 -76.499900 105.500100
+2 -76.499900 106.500100
+2 -76.499900 107.500100
+2 -76.499900 108.500100
+2 -76.499900 109.500100
+2 -76.499900 110.500100
+2 -76.499900 111.500100
+2 -76.499900 112.500100
+2 -76.499900 113.500100
+2 -76.499900 114.500100
+2 -76.499900 115.500100
+2 -76.499900 116.500100
+2 -76.499900 117.500100
+2 -76.499900 118.500100
+2 -76.499900 119.500100
+2 -76.499900 120.500100
+2 -76.499900 121.500100
+2 -76.499900 122.500100
+2 -76.499900 123.500100
+2 -76.499900 124.500100
+2 -76.499900 125.500100
+2 -76.499900 126.500100
+2 -76.499900 127.500100
+2 -76.499900 128.500100
+2 -76.499900 129.500100
+2 -76.499900 130.500100
+2 -76.499900 131.500100
+2 -76.499900 132.500100
+2 -76.499900 133.500100
+2 -76.499900 134.500100
+2 -76.499900 135.500100
+2 -76.499900 136.500100
+2 -76.499900 137.500100
+2 -76.499900 138.500100
+2 -76.499900 139.500100
+2 -76.499900 140.500100
+2 -76.499900 141.500100
+2 -76.499900 142.500100
+2 -76.499900 143.500100
+2 -76.499900 144.500100
+2 -76.499900 145.500100
+2 -76.499900 146.500100
+2 -76.499900 147.500100
+2 -76.499900 148.500100
+2 -76.499900 149.500100
+2 -76.499900 150.500100
+2 -76.499900 151.500100
+2 -76.499900 152.500100
+2 -76.499900 153.500100
+2 -76.499900 154.500100
+2 -76.499900 155.500100
+2 -76.499900 156.500100
+2 -76.499900 157.500100
+2 -76.499900 158.500100
+2 -76.499900 159.500100
+2 -76.499900 160.500100
+2 -76.499900 161.500100
+2 -76.499900 162.500100
+2 -76.499900 163.500100
+2 -76.499900 164.500100
+2 -76.499900 165.500100
+2 -76.499900 166.500100
+2 -76.499900 167.500100
+2 -76.499900 168.500100
+2 -76.499900 169.500100
+2 -76.499900 170.500100
+2 -76.499900 171.500100
+2 -76.499900 172.500100
+2 -76.499900 173.500100
+2 -76.499900 174.500100
+2 -76.499900 175.500100
+2 -76.499900 176.500100
+2 -76.499900 177.500100
+2 -76.499900 178.500100
+2 -76.499900 179.500100
+2 -76.499900 180.500100
+2 -76.499900 181.500100
+2 -76.499900 182.500100
+2 -76.499900 183.500100
+2 -76.499900 184.500100
+2 -76.499900 185.500100
+2 -76.499900 186.500100
+2 -76.499900 187.500100
+2 -76.499900 188.500100
+2 -76.499900 189.500100
+2 -76.499900 190.500100
+2 -76.499900 191.500100
+2 -76.499900 192.500100
+2 -76.499900 193.500100
+2 -76.499900 194.500100
+2 -76.499900 195.500100
+2 -76.499900 196.500100
+2 -76.499900 197.500100
+2 -76.499900 198.500100
+2 -76.499900 199.500100
+2 -76.499900 200.500100
+2 -76.499900 201.500100
+2 -76.499900 202.500100
+2 -76.499900 203.500100
+2 -76.499900 204.500100
+2 -76.499900 205.500100
+2 -76.499900 206.500100
+2 -76.499900 207.500100
+2 -76.499900 208.500100
+2 -76.499900 209.500100
+2 -76.499900 210.500100
+2 -76.499900 211.500100
+2 -76.499900 212.500100
+2 -76.499900 213.500100
+2 -76.499900 214.500100
+2 -76.499900 215.500100
+2 -76.499900 216.500100
+2 -76.499900 217.500100
+2 -76.499900 218.500100
+2 -76.499900 219.500100
+2 -76.499900 220.500100
+2 -76.499900 221.500100
+2 -76.499900 222.500100
+2 -76.499900 223.500100
+2 -76.499900 224.500100
+2 -76.499900 225.500100
+2 -76.499900 226.500100
+2 -76.499900 227.500100
+2 -76.499900 228.500100
+2 -76.499900 229.500100
+2 -76.499900 230.500100
+2 -76.499900 231.500100
+2 -76.499900 232.500100
+2 -76.499900 233.500100
+2 -76.499900 234.500100
+2 -76.499900 235.500100
+2 -76.499900 236.500100
+2 -76.499900 237.500100
+2 -76.499900 238.500100
+2 -76.499900 239.500100
+2 -76.499900 240.500100
+2 -76.499900 241.500100
+2 -76.499900 242.500100
+2 -76.499900 243.500100
+2 -76.499900 244.500100
+2 -76.499900 245.500100
+2 -76.499900 246.500100
+2 -76.499900 247.500100
+2 -76.499900 248.500100
+2 -76.499900 249.500100
+2 -76.499900 250.500100
+2 -76.499900 251.500100
+2 -76.499900 252.500100
+2 -76.499900 253.500100
+2 -76.499900 254.500100
+2 -76.499900 255.500100
+2 -76.499900 256.500100
+2 -76.499900 257.500100
+2 -76.499900 258.500100
+2 -76.499900 259.500100
+2 -76.499900 260.500100
+2 -76.499900 261.500100
+2 -76.499900 262.500100
+2 -76.499900 263.500100
+2 -76.499900 264.500100
+2 -76.499900 265.500100
+2 -76.499900 266.500100
+2 -76.499900 267.500100
+2 -76.499900 268.500100
+2 -76.499900 269.500100
+2 -76.499900 270.500100
+2 -76.499900 271.500100
+2 -76.499900 272.500100
+2 -76.499900 273.500100
+2 -76.499900 274.500100
+2 -76.499900 275.500100
+2 -76.499900 276.500100
+2 -76.499900 277.500100
+2 -76.499900 278.500100
+2 -76.499900 279.500100
+2 -76.499900 280.500100
+2 -76.499900 281.500100
+2 -76.499900 282.500100
+2 -76.499900 283.500100
+2 -76.499900 284.500100
+2 -76.499900 285.500100
+2 -76.499900 286.500100
+2 -76.499900 287.500100
+2 -76.499900 288.500100
+2 -76.499900 289.500100
+2 -76.499900 290.500100
+2 -76.499900 291.500100
+2 -76.499900 292.500100
+2 -76.499900 293.500100
+2 -76.499900 294.500100
+2 -76.499900 295.500100
+2 -76.499900 296.500100
+2 -76.499900 297.500100
+2 -76.499900 298.500100
+2 -76.499900 299.500100
+2 -76.499900 300.500100
+2 -76.499900 301.500100
+2 -76.499900 302.500100
+2 -76.499900 303.500100
+2 -76.499900 304.500100
+2 -76.499900 305.500100
+2 -76.499900 306.500100
+2 -76.499900 307.500100
+2 -76.499900 308.500100
+2 -76.499900 309.500100
+2 -76.499900 310.500100
+2 -76.499900 311.500100
+2 -76.499900 312.500100
+2 -76.499900 313.500100
+2 -76.499900 314.500100
+2 -76.499900 315.500100
+2 -76.499900 316.500100
+2 -76.499900 317.500100
+2 -76.499900 318.500100
+2 -76.499900 319.500100
+2 -76.499900 320.500100
+2 -76.499900 321.500100
+2 -76.499900 322.500100
+2 -76.499900 323.500100
+2 -76.499900 324.500100
+2 -76.499900 325.500100
+2 -76.499900 326.500100
+2 -76.499900 327.500100
+2 -76.499900 328.500100
+2 -76.499900 329.500100
+2 -76.499900 330.500100
+2 -76.499900 331.500100
+2 -76.499900 332.500100
+2 -76.499900 333.500100
+2 -76.499900 334.500100
+2 -76.499900 335.500100
+2 -76.499900 336.500100
+2 -76.499900 337.500100
+2 -76.499900 338.500100
+2 -76.499900 339.500100
+2 -76.499900 340.500100
+2 -76.499900 341.500100
+2 -76.499900 342.500100
+2 -76.499900 343.500100
+2 -76.499900 344.500100
+2 -76.499900 345.500100
+2 -76.499900 346.500100
+2 -76.499900 347.500100
+2 -76.499900 348.500100
+2 -76.499900 349.500100
+2 -76.499900 350.500100
+2 -76.499900 351.500100
+2 -76.499900 352.500100
+2 -76.499900 353.500100
+2 -76.499900 354.500100
+2 -76.499900 355.500100
+2 -76.499900 356.500100
+2 -76.499900 357.500100
+2 -76.499900 358.500100
+2 -76.499900 359.500100
+2 -75.499900 0.500100
+2 -75.499900 1.500100
+2 -75.499900 2.500100
+2 -75.499900 3.500100
+2 -75.499900 4.500100
+2 -75.499900 5.500100
+2 -75.499900 6.500100
+2 -75.499900 7.500100
+2 -75.499900 8.500100
+2 -75.499900 9.500100
+2 -75.499900 10.500100
+2 -75.499900 11.500100
+2 -75.499900 12.500100
+2 -75.499900 13.500100
+2 -75.499900 14.500100
+2 -75.499900 15.500100
+2 -75.499900 16.500100
+2 -75.499900 17.500100
+2 -75.499900 18.500100
+2 -75.499900 19.500100
+2 -75.499900 20.500100
+2 -75.499900 21.500100
+2 -75.499900 22.500100
+2 -75.499900 23.500100
+2 -75.499900 24.500100
+2 -75.499900 25.500100
+2 -75.499900 26.500100
+2 -75.499900 27.500100
+2 -75.499900 28.500100
+2 -75.499900 29.500100
+2 -75.499900 30.500100
+2 -75.499900 31.500100
+2 -75.499900 32.500100
+2 -75.499900 33.500100
+2 -75.499900 34.500100
+2 -75.499900 35.500100
+2 -75.499900 36.500100
+2 -75.499900 37.500100
+2 -75.499900 38.500100
+2 -75.499900 39.500100
+2 -75.499900 40.500100
+2 -75.499900 41.500100
+2 -75.499900 42.500100
+2 -75.499900 43.500100
+2 -75.499900 44.500100
+2 -75.499900 45.500100
+2 -75.499900 46.500100
+2 -75.499900 47.500100
+2 -75.499900 48.500100
+2 -75.499900 49.500100
+2 -75.499900 50.500100
+2 -75.499900 51.500100
+2 -75.499900 52.500100
+2 -75.499900 53.500100
+2 -75.499900 54.500100
+2 -75.499900 55.500100
+2 -75.499900 56.500100
+2 -75.499900 57.500100
+2 -75.499900 58.500100
+2 -75.499900 59.500100
+2 -75.499900 60.500100
+2 -75.499900 61.500100
+2 -75.499900 62.500100
+2 -75.499900 63.500100
+2 -75.499900 64.500100
+2 -75.499900 65.500100
+2 -75.499900 66.500100
+2 -75.499900 67.500100
+2 -75.499900 68.500100
+2 -75.499900 69.500100
+2 -75.499900 70.500100
+2 -75.499900 71.500100
+2 -75.499900 72.500100
+2 -75.499900 73.500100
+2 -75.499900 74.500100
+2 -75.499900 75.500100
+2 -75.499900 76.500100
+2 -75.499900 77.500100
+2 -75.499900 78.500100
+2 -75.499900 79.500100
+2 -75.499900 80.500100
+2 -75.499900 81.500100
+2 -75.499900 82.500100
+2 -75.499900 83.500100
+2 -75.499900 84.500100
+2 -75.499900 85.500100
+2 -75.499900 86.500100
+2 -75.499900 87.500100
+2 -75.499900 88.500100
+2 -75.499900 89.500100
+2 -75.499900 90.500100
+2 -75.499900 91.500100
+2 -75.499900 92.500100
+2 -75.499900 93.500100
+2 -75.499900 94.500100
+2 -75.499900 95.500100
+2 -75.499900 96.500100
+2 -75.499900 97.500100
+2 -75.499900 98.500100
+2 -75.499900 99.500100
+2 -75.499900 100.500100
+2 -75.499900 101.500100
+2 -75.499900 102.500100
+2 -75.499900 103.500100
+2 -75.499900 104.500100
+2 -75.499900 105.500100
+2 -75.499900 106.500100
+2 -75.499900 107.500100
+2 -75.499900 108.500100
+2 -75.499900 109.500100
+2 -75.499900 110.500100
+2 -75.499900 111.500100
+2 -75.499900 112.500100
+2 -75.499900 113.500100
+2 -75.499900 114.500100
+2 -75.499900 115.500100
+2 -75.499900 116.500100
+2 -75.499900 117.500100
+2 -75.499900 118.500100
+2 -75.499900 119.500100
+2 -75.499900 120.500100
+2 -75.499900 121.500100
+2 -75.499900 122.500100
+2 -75.499900 123.500100
+2 -75.499900 124.500100
+2 -75.499900 125.500100
+2 -75.499900 126.500100
+2 -75.499900 127.500100
+2 -75.499900 128.500100
+2 -75.499900 129.500100
+2 -75.499900 130.500100
+2 -75.499900 131.500100
+2 -75.499900 132.500100
+2 -75.499900 133.500100
+2 -75.499900 134.500100
+2 -75.499900 135.500100
+2 -75.499900 136.500100
+2 -75.499900 137.500100
+2 -75.499900 138.500100
+2 -75.499900 139.500100
+2 -75.499900 140.500100
+2 -75.499900 141.500100
+2 -75.499900 142.500100
+2 -75.499900 143.500100
+2 -75.499900 144.500100
+2 -75.499900 145.500100
+2 -75.499900 146.500100
+2 -75.499900 147.500100
+2 -75.499900 148.500100
+2 -75.499900 149.500100
+2 -75.499900 150.500100
+2 -75.499900 151.500100
+2 -75.499900 152.500100
+2 -75.499900 153.500100
+2 -75.499900 154.500100
+2 -75.499900 155.500100
+2 -75.499900 156.500100
+2 -75.499900 157.500100
+2 -75.499900 158.500100
+2 -75.499900 159.500100
+2 -75.499900 160.500100
+2 -75.499900 161.500100
+2 -75.499900 162.500100
+2 -75.499900 163.500100
+2 -75.499900 164.500100
+2 -75.499900 165.500100
+2 -75.499900 166.500100
+2 -75.499900 167.500100
+2 -75.499900 168.500100
+2 -75.499900 169.500100
+2 -75.499900 170.500100
+2 -75.499900 171.500100
+2 -75.499900 172.500100
+2 -75.499900 173.500100
+2 -75.499900 174.500100
+2 -75.499900 175.500100
+2 -75.499900 176.500100
+2 -75.499900 177.500100
+2 -75.499900 178.500100
+2 -75.499900 179.500100
+2 -75.499900 180.500100
+2 -75.499900 181.500100
+2 -75.499900 182.500100
+2 -75.499900 183.500100
+2 -75.499900 184.500100
+2 -75.499900 185.500100
+2 -75.499900 186.500100
+2 -75.499900 187.500100
+2 -75.499900 188.500100
+2 -75.499900 189.500100
+2 -75.499900 190.500100
+2 -75.499900 191.500100
+2 -75.499900 192.500100
+2 -75.499900 193.500100
+2 -75.499900 194.500100
+2 -75.499900 195.500100
+2 -75.499900 196.500100
+2 -75.499900 197.500100
+2 -75.499900 198.500100
+2 -75.499900 199.500100
+2 -75.499900 200.500100
+2 -75.499900 201.500100
+2 -75.499900 202.500100
+2 -75.499900 203.500100
+2 -75.499900 204.500100
+2 -75.499900 205.500100
+2 -75.499900 206.500100
+2 -75.499900 207.500100
+2 -75.499900 208.500100
+2 -75.499900 209.500100
+2 -75.499900 210.500100
+2 -75.499900 211.500100
+2 -75.499900 212.500100
+2 -75.499900 213.500100
+2 -75.499900 214.500100
+2 -75.499900 215.500100
+2 -75.499900 216.500100
+2 -75.499900 217.500100
+2 -75.499900 218.500100
+2 -75.499900 219.500100
+2 -75.499900 220.500100
+2 -75.499900 221.500100
+2 -75.499900 222.500100
+2 -75.499900 223.500100
+2 -75.499900 224.500100
+2 -75.499900 225.500100
+2 -75.499900 226.500100
+2 -75.499900 227.500100
+2 -75.499900 228.500100
+2 -75.499900 229.500100
+2 -75.499900 230.500100
+2 -75.499900 231.500100
+2 -75.499900 232.500100
+2 -75.499900 233.500100
+2 -75.499900 234.500100
+2 -75.499900 235.500100
+2 -75.499900 236.500100
+2 -75.499900 237.500100
+2 -75.499900 238.500100
+2 -75.499900 239.500100
+2 -75.499900 240.500100
+2 -75.499900 241.500100
+2 -75.499900 242.500100
+2 -75.499900 243.500100
+2 -75.499900 244.500100
+2 -75.499900 245.500100
+2 -75.499900 246.500100
+2 -75.499900 247.500100
+2 -75.499900 248.500100
+2 -75.499900 249.500100
+2 -75.499900 250.500100
+2 -75.499900 251.500100
+2 -75.499900 252.500100
+2 -75.499900 253.500100
+2 -75.499900 254.500100
+2 -75.499900 255.500100
+2 -75.499900 256.500100
+2 -75.499900 257.500100
+2 -75.499900 258.500100
+2 -75.499900 259.500100
+2 -75.499900 260.500100
+2 -75.499900 261.500100
+2 -75.499900 262.500100
+2 -75.499900 263.500100
+2 -75.499900 264.500100
+2 -75.499900 265.500100
+2 -75.499900 266.500100
+2 -75.499900 267.500100
+2 -75.499900 268.500100
+2 -75.499900 269.500100
+2 -75.499900 270.500100
+2 -75.499900 271.500100
+2 -75.499900 272.500100
+2 -75.499900 273.500100
+2 -75.499900 274.500100
+2 -75.499900 275.500100
+2 -75.499900 276.500100
+2 -75.499900 277.500100
+2 -75.499900 278.500100
+2 -75.499900 279.500100
+2 -75.499900 280.500100
+2 -75.499900 281.500100
+2 -75.499900 282.500100
+2 -75.499900 283.500100
+2 -75.499900 284.500100
+2 -75.499900 285.500100
+2 -75.499900 286.500100
+2 -75.499900 287.500100
+2 -75.499900 288.500100
+2 -75.499900 289.500100
+2 -75.499900 290.500100
+2 -75.499900 291.500100
+2 -75.499900 292.500100
+2 -75.499900 293.500100
+2 -75.499900 294.500100
+2 -75.499900 295.500100
+2 -75.499900 296.500100
+2 -75.499900 297.500100
+2 -75.499900 298.500100
+2 -75.499900 299.500100
+2 -75.499900 300.500100
+2 -75.499900 301.500100
+2 -75.499900 302.500100
+2 -75.499900 303.500100
+2 -75.499900 304.500100
+2 -75.499900 305.500100
+2 -75.499900 306.500100
+2 -75.499900 307.500100
+2 -75.499900 308.500100
+2 -75.499900 309.500100
+2 -75.499900 310.500100
+2 -75.499900 311.500100
+2 -75.499900 312.500100
+2 -75.499900 313.500100
+2 -75.499900 314.500100
+2 -75.499900 315.500100
+2 -75.499900 316.500100
+2 -75.499900 317.500100
+2 -75.499900 318.500100
+2 -75.499900 319.500100
+2 -75.499900 320.500100
+2 -75.499900 321.500100
+2 -75.499900 322.500100
+2 -75.499900 323.500100
+2 -75.499900 324.500100
+2 -75.499900 325.500100
+2 -75.499900 326.500100
+2 -75.499900 327.500100
+2 -75.499900 328.500100
+2 -75.499900 329.500100
+2 -75.499900 330.500100
+2 -75.499900 331.500100
+2 -75.499900 332.500100
+2 -75.499900 333.500100
+2 -75.499900 334.500100
+2 -75.499900 335.500100
+2 -75.499900 336.500100
+2 -75.499900 337.500100
+2 -75.499900 338.500100
+2 -75.499900 339.500100
+2 -75.499900 340.500100
+2 -75.499900 341.500100
+2 -75.499900 342.500100
+2 -75.499900 343.500100
+2 -75.499900 344.500100
+2 -75.499900 345.500100
+2 -75.499900 346.500100
+2 -75.499900 347.500100
+2 -75.499900 348.500100
+2 -75.499900 349.500100
+2 -75.499900 350.500100
+2 -75.499900 351.500100
+2 -75.499900 352.500100
+2 -75.499900 353.500100
+2 -75.499900 354.500100
+2 -75.499900 355.500100
+2 -75.499900 356.500100
+2 -75.499900 357.500100
+2 -75.499900 358.500100
+2 -75.499900 359.500100
+2 -74.499900 0.500100
+2 -74.499900 1.500100
+2 -74.499900 2.500100
+2 -74.499900 3.500100
+2 -74.499900 4.500100
+2 -74.499900 5.500100
+2 -74.499900 6.500100
+2 -74.499900 7.500100
+2 -74.499900 8.500100
+2 -74.499900 9.500100
+2 -74.499900 10.500100
+2 -74.499900 11.500100
+2 -74.499900 12.500100
+2 -74.499900 13.500100
+2 -74.499900 14.500100
+2 -74.499900 15.500100
+2 -74.499900 16.500100
+2 -74.499900 17.500100
+2 -74.499900 18.500100
+2 -74.499900 19.500100
+2 -74.499900 20.500100
+2 -74.499900 21.500100
+2 -74.499900 22.500100
+2 -74.499900 23.500100
+2 -74.499900 24.500100
+2 -74.499900 25.500100
+2 -74.499900 26.500100
+2 -74.499900 27.500100
+2 -74.499900 28.500100
+2 -74.499900 29.500100
+2 -74.499900 30.500100
+2 -74.499900 31.500100
+2 -74.499900 32.500100
+2 -74.499900 33.500100
+2 -74.499900 34.500100
+2 -74.499900 35.500100
+2 -74.499900 36.500100
+2 -74.499900 37.500100
+2 -74.499900 38.500100
+2 -74.499900 39.500100
+2 -74.499900 40.500100
+2 -74.499900 41.500100
+2 -74.499900 42.500100
+2 -74.499900 43.500100
+2 -74.499900 44.500100
+2 -74.499900 45.500100
+2 -74.499900 46.500100
+2 -74.499900 47.500100
+2 -74.499900 48.500100
+2 -74.499900 49.500100
+2 -74.499900 50.500100
+2 -74.499900 51.500100
+2 -74.499900 52.500100
+2 -74.499900 53.500100
+2 -74.499900 54.500100
+2 -74.499900 55.500100
+2 -74.499900 56.500100
+2 -74.499900 57.500100
+2 -74.499900 58.500100
+2 -74.499900 59.500100
+2 -74.499900 60.500100
+2 -74.499900 61.500100
+2 -74.499900 62.500100
+2 -74.499900 63.500100
+2 -74.499900 64.500100
+2 -74.499900 65.500100
+2 -74.499900 66.500100
+2 -74.499900 67.500100
+2 -74.499900 68.500100
+2 -74.499900 69.500100
+2 -74.499900 70.500100
+2 -74.499900 71.500100
+2 -74.499900 72.500100
+2 -74.499900 73.500100
+2 -74.499900 74.500100
+2 -74.499900 75.500100
+2 -74.499900 76.500100
+2 -74.499900 77.500100
+2 -74.499900 78.500100
+2 -74.499900 79.500100
+2 -74.499900 80.500100
+2 -74.499900 81.500100
+2 -74.499900 82.500100
+2 -74.499900 83.500100
+2 -74.499900 84.500100
+2 -74.499900 85.500100
+2 -74.499900 86.500100
+2 -74.499900 87.500100
+2 -74.499900 88.500100
+2 -74.499900 89.500100
+2 -74.499900 90.500100
+2 -74.499900 91.500100
+2 -74.499900 92.500100
+2 -74.499900 93.500100
+2 -74.499900 94.500100
+2 -74.499900 95.500100
+2 -74.499900 96.500100
+2 -74.499900 97.500100
+2 -74.499900 98.500100
+2 -74.499900 99.500100
+2 -74.499900 100.500100
+2 -74.499900 101.500100
+2 -74.499900 102.500100
+2 -74.499900 103.500100
+2 -74.499900 104.500100
+2 -74.499900 105.500100
+2 -74.499900 106.500100
+2 -74.499900 107.500100
+2 -74.499900 108.500100
+2 -74.499900 109.500100
+2 -74.499900 110.500100
+2 -74.499900 111.500100
+2 -74.499900 112.500100
+2 -74.499900 113.500100
+2 -74.499900 114.500100
+2 -74.499900 115.500100
+2 -74.499900 116.500100
+2 -74.499900 117.500100
+2 -74.499900 118.500100
+2 -74.499900 119.500100
+2 -74.499900 120.500100
+2 -74.499900 121.500100
+2 -74.499900 122.500100
+2 -74.499900 123.500100
+2 -74.499900 124.500100
+2 -74.499900 125.500100
+2 -74.499900 126.500100
+2 -74.499900 127.500100
+2 -74.499900 128.500100
+2 -74.499900 129.500100
+2 -74.499900 130.500100
+2 -74.499900 131.500100
+2 -74.499900 132.500100
+2 -74.499900 133.500100
+2 -74.499900 134.500100
+2 -74.499900 135.500100
+2 -74.499900 136.500100
+2 -74.499900 137.500100
+2 -74.499900 138.500100
+2 -74.499900 139.500100
+2 -74.499900 140.500100
+2 -74.499900 141.500100
+2 -74.499900 142.500100
+2 -74.499900 143.500100
+2 -74.499900 144.500100
+2 -74.499900 145.500100
+2 -74.499900 146.500100
+2 -74.499900 147.500100
+2 -74.499900 148.500100
+2 -74.499900 149.500100
+2 -74.499900 150.500100
+2 -74.499900 151.500100
+2 -74.499900 152.500100
+2 -74.499900 153.500100
+2 -74.499900 154.500100
+2 -74.499900 155.500100
+2 -74.499900 156.500100
+2 -74.499900 157.500100
+2 -74.499900 158.500100
+2 -74.499900 159.500100
+2 -74.499900 160.500100
+2 -74.499900 161.500100
+2 -74.499900 162.500100
+2 -74.499900 163.500100
+2 -74.499900 164.500100
+2 -74.499900 165.500100
+2 -74.499900 166.500100
+2 -74.499900 167.500100
+2 -74.499900 168.500100
+2 -74.499900 169.500100
+2 -74.499900 170.500100
+2 -74.499900 171.500100
+2 -74.499900 172.500100
+2 -74.499900 173.500100
+2 -74.499900 174.500100
+2 -74.499900 175.500100
+2 -74.499900 176.500100
+2 -74.499900 177.500100
+2 -74.499900 178.500100
+2 -74.499900 179.500100
+2 -74.499900 180.500100
+2 -74.499900 181.500100
+2 -74.499900 182.500100
+2 -74.499900 183.500100
+2 -74.499900 184.500100
+2 -74.499900 185.500100
+2 -74.499900 186.500100
+2 -74.499900 187.500100
+2 -74.499900 188.500100
+2 -74.499900 189.500100
+2 -74.499900 190.500100
+2 -74.499900 191.500100
+2 -74.499900 192.500100
+2 -74.499900 193.500100
+2 -74.499900 194.500100
+2 -74.499900 195.500100
+2 -74.499900 196.500100
+2 -74.499900 197.500100
+2 -74.499900 198.500100
+2 -74.499900 199.500100
+2 -74.499900 200.500100
+2 -74.499900 201.500100
+2 -74.499900 202.500100
+2 -74.499900 203.500100
+2 -74.499900 204.500100
+2 -74.499900 205.500100
+2 -74.499900 206.500100
+2 -74.499900 207.500100
+2 -74.499900 208.500100
+2 -74.499900 209.500100
+2 -74.499900 210.500100
+2 -74.499900 211.500100
+2 -74.499900 212.500100
+2 -74.499900 213.500100
+2 -74.499900 214.500100
+2 -74.499900 215.500100
+2 -74.499900 216.500100
+2 -74.499900 217.500100
+2 -74.499900 218.500100
+2 -74.499900 219.500100
+2 -74.499900 220.500100
+2 -74.499900 221.500100
+2 -74.499900 222.500100
+2 -74.499900 223.500100
+2 -74.499900 224.500100
+2 -74.499900 225.500100
+2 -74.499900 226.500100
+2 -74.499900 227.500100
+2 -74.499900 228.500100
+2 -74.499900 229.500100
+2 -74.499900 230.500100
+2 -74.499900 231.500100
+2 -74.499900 232.500100
+2 -74.499900 233.500100
+2 -74.499900 234.500100
+2 -74.499900 235.500100
+2 -74.499900 236.500100
+2 -74.499900 237.500100
+2 -74.499900 238.500100
+2 -74.499900 239.500100
+2 -74.499900 240.500100
+2 -74.499900 241.500100
+2 -74.499900 242.500100
+2 -74.499900 243.500100
+2 -74.499900 244.500100
+2 -74.499900 245.500100
+2 -74.499900 246.500100
+2 -74.499900 247.500100
+2 -74.499900 248.500100
+2 -74.499900 249.500100
+2 -74.499900 250.500100
+2 -74.499900 251.500100
+2 -74.499900 252.500100
+2 -74.499900 253.500100
+2 -74.499900 254.500100
+2 -74.499900 255.500100
+2 -74.499900 256.500100
+2 -74.499900 257.500100
+2 -74.499900 258.500100
+2 -74.499900 259.500100
+2 -74.499900 260.500100
+2 -74.499900 261.500100
+2 -74.499900 262.500100
+2 -74.499900 263.500100
+2 -74.499900 264.500100
+2 -74.499900 265.500100
+2 -74.499900 266.500100
+2 -74.499900 267.500100
+2 -74.499900 268.500100
+2 -74.499900 269.500100
+2 -74.499900 270.500100
+2 -74.499900 271.500100
+2 -74.499900 272.500100
+2 -74.499900 273.500100
+2 -74.499900 274.500100
+2 -74.499900 275.500100
+2 -74.499900 276.500100
+2 -74.499900 277.500100
+2 -74.499900 278.500100
+2 -74.499900 279.500100
+2 -74.499900 280.500100
+2 -74.499900 281.500100
+2 -74.499900 282.500100
+2 -74.499900 283.500100
+2 -74.499900 284.500100
+2 -74.499900 285.500100
+2 -74.499900 286.500100
+2 -74.499900 287.500100
+2 -74.499900 288.500100
+2 -74.499900 289.500100
+2 -74.499900 290.500100
+2 -74.499900 291.500100
+2 -74.499900 292.500100
+2 -74.499900 293.500100
+2 -74.499900 294.500100
+2 -74.499900 295.500100
+2 -74.499900 296.500100
+2 -74.499900 297.500100
+2 -74.499900 298.500100
+2 -74.499900 299.500100
+2 -74.499900 300.500100
+2 -74.499900 301.500100
+2 -74.499900 302.500100
+2 -74.499900 303.500100
+2 -74.499900 304.500100
+2 -74.499900 305.500100
+2 -74.499900 306.500100
+2 -74.499900 307.500100
+2 -74.499900 308.500100
+2 -74.499900 309.500100
+2 -74.499900 310.500100
+2 -74.499900 311.500100
+2 -74.499900 312.500100
+2 -74.499900 313.500100
+2 -74.499900 314.500100
+2 -74.499900 315.500100
+2 -74.499900 316.500100
+2 -74.499900 317.500100
+2 -74.499900 318.500100
+2 -74.499900 319.500100
+2 -74.499900 320.500100
+2 -74.499900 321.500100
+2 -74.499900 322.500100
+2 -74.499900 323.500100
+2 -74.499900 324.500100
+2 -74.499900 325.500100
+2 -74.499900 326.500100
+2 -74.499900 327.500100
+2 -74.499900 328.500100
+2 -74.499900 329.500100
+2 -74.499900 330.500100
+2 -74.499900 331.500100
+2 -74.499900 332.500100
+2 -74.499900 333.500100
+2 -74.499900 334.500100
+2 -74.499900 335.500100
+2 -74.499900 336.500100
+2 -74.499900 337.500100
+2 -74.499900 338.500100
+2 -74.499900 339.500100
+2 -74.499900 340.500100
+2 -74.499900 341.500100
+2 -74.499900 342.500100
+2 -74.499900 343.500100
+2 -74.499900 344.500100
+2 -74.499900 345.500100
+2 -74.499900 346.500100
+2 -74.499900 347.500100
+2 -74.499900 348.500100
+2 -74.499900 349.500100
+2 -74.499900 350.500100
+2 -74.499900 351.500100
+2 -74.499900 352.500100
+2 -74.499900 353.500100
+2 -74.499900 354.500100
+2 -74.499900 355.500100
+2 -74.499900 356.500100
+2 -74.499900 357.500100
+2 -74.499900 358.500100
+2 -74.499900 359.500100
+2 -73.499900 0.500100
+2 -73.499900 1.500100
+2 -73.499900 2.500100
+2 -73.499900 3.500100
+2 -73.499900 4.500100
+2 -73.499900 5.500100
+2 -73.499900 6.500100
+2 -73.499900 7.500100
+2 -73.499900 8.500100
+2 -73.499900 9.500100
+2 -73.499900 10.500100
+2 -73.499900 11.500100
+2 -73.499900 12.500100
+2 -73.499900 13.500100
+2 -73.499900 14.500100
+2 -73.499900 15.500100
+2 -73.499900 16.500100
+2 -73.499900 17.500100
+2 -73.499900 18.500100
+2 -73.499900 19.500100
+2 -73.499900 20.500100
+2 -73.499900 21.500100
+2 -73.499900 22.500100
+2 -73.499900 23.500100
+2 -73.499900 24.500100
+2 -73.499900 25.500100
+2 -73.499900 26.500100
+2 -73.499900 27.500100
+2 -73.499900 28.500100
+2 -73.499900 29.500100
+2 -73.499900 30.500100
+2 -73.499900 31.500100
+2 -73.499900 32.500100
+2 -73.499900 33.500100
+2 -73.499900 34.500100
+2 -73.499900 35.500100
+2 -73.499900 36.500100
+2 -73.499900 37.500100
+2 -73.499900 38.500100
+2 -73.499900 39.500100
+2 -73.499900 40.500100
+2 -73.499900 41.500100
+2 -73.499900 42.500100
+2 -73.499900 43.500100
+2 -73.499900 44.500100
+2 -73.499900 45.500100
+2 -73.499900 46.500100
+2 -73.499900 47.500100
+2 -73.499900 48.500100
+2 -73.499900 49.500100
+2 -73.499900 50.500100
+2 -73.499900 51.500100
+2 -73.499900 52.500100
+2 -73.499900 53.500100
+2 -73.499900 54.500100
+2 -73.499900 55.500100
+2 -73.499900 56.500100
+2 -73.499900 57.500100
+2 -73.499900 58.500100
+2 -73.499900 59.500100
+2 -73.499900 60.500100
+2 -73.499900 61.500100
+2 -73.499900 62.500100
+2 -73.499900 63.500100
+2 -73.499900 64.500100
+2 -73.499900 65.500100
+2 -73.499900 66.500100
+2 -73.499900 67.500100
+2 -73.499900 68.500100
+2 -73.499900 69.500100
+2 -73.499900 70.500100
+2 -73.499900 71.500100
+2 -73.499900 72.500100
+2 -73.499900 73.500100
+2 -73.499900 74.500100
+2 -73.499900 75.500100
+2 -73.499900 76.500100
+2 -73.499900 77.500100
+2 -73.499900 78.500100
+2 -73.499900 79.500100
+2 -73.499900 80.500100
+2 -73.499900 81.500100
+2 -73.499900 82.500100
+2 -73.499900 83.500100
+2 -73.499900 84.500100
+2 -73.499900 85.500100
+2 -73.499900 86.500100
+2 -73.499900 87.500100
+2 -73.499900 88.500100
+2 -73.499900 89.500100
+2 -73.499900 90.500100
+2 -73.499900 91.500100
+2 -73.499900 92.500100
+2 -73.499900 93.500100
+2 -73.499900 94.500100
+2 -73.499900 95.500100
+2 -73.499900 96.500100
+2 -73.499900 97.500100
+2 -73.499900 98.500100
+2 -73.499900 99.500100
+2 -73.499900 100.500100
+2 -73.499900 101.500100
+2 -73.499900 102.500100
+2 -73.499900 103.500100
+2 -73.499900 104.500100
+2 -73.499900 105.500100
+2 -73.499900 106.500100
+2 -73.499900 107.500100
+2 -73.499900 108.500100
+2 -73.499900 109.500100
+2 -73.499900 110.500100
+2 -73.499900 111.500100
+2 -73.499900 112.500100
+2 -73.499900 113.500100
+2 -73.499900 114.500100
+2 -73.499900 115.500100
+2 -73.499900 116.500100
+2 -73.499900 117.500100
+2 -73.499900 118.500100
+2 -73.499900 119.500100
+2 -73.499900 120.500100
+2 -73.499900 121.500100
+2 -73.499900 122.500100
+2 -73.499900 123.500100
+2 -73.499900 124.500100
+2 -73.499900 125.500100
+2 -73.499900 126.500100
+2 -73.499900 127.500100
+2 -73.499900 128.500100
+2 -73.499900 129.500100
+2 -73.499900 130.500100
+2 -73.499900 131.500100
+2 -73.499900 132.500100
+2 -73.499900 133.500100
+2 -73.499900 134.500100
+2 -73.499900 135.500100
+2 -73.499900 136.500100
+2 -73.499900 137.500100
+2 -73.499900 138.500100
+2 -73.499900 139.500100
+2 -73.499900 140.500100
+2 -73.499900 141.500100
+2 -73.499900 142.500100
+2 -73.499900 143.500100
+2 -73.499900 144.500100
+2 -73.499900 145.500100
+2 -73.499900 146.500100
+2 -73.499900 147.500100
+2 -73.499900 148.500100
+2 -73.499900 149.500100
+2 -73.499900 150.500100
+2 -73.499900 151.500100
+2 -73.499900 152.500100
+2 -73.499900 153.500100
+2 -73.499900 154.500100
+2 -73.499900 155.500100
+2 -73.499900 156.500100
+2 -73.499900 157.500100
+2 -73.499900 158.500100
+2 -73.499900 159.500100
+2 -73.499900 160.500100
+2 -73.499900 161.500100
+2 -73.499900 162.500100
+2 -73.499900 163.500100
+2 -73.499900 164.500100
+2 -73.499900 165.500100
+2 -73.499900 166.500100
+2 -73.499900 167.500100
+2 -73.499900 168.500100
+2 -73.499900 169.500100
+2 -73.499900 170.500100
+2 -73.499900 171.500100
+2 -73.499900 172.500100
+2 -73.499900 173.500100
+2 -73.499900 174.500100
+2 -73.499900 175.500100
+2 -73.499900 176.500100
+2 -73.499900 177.500100
+2 -73.499900 178.500100
+2 -73.499900 179.500100
+2 -73.499900 180.500100
+2 -73.499900 181.500100
+2 -73.499900 182.500100
+2 -73.499900 183.500100
+2 -73.499900 184.500100
+2 -73.499900 185.500100
+2 -73.499900 186.500100
+2 -73.499900 187.500100
+2 -73.499900 188.500100
+2 -73.499900 189.500100
+2 -73.499900 190.500100
+2 -73.499900 191.500100
+2 -73.499900 192.500100
+2 -73.499900 193.500100
+2 -73.499900 194.500100
+2 -73.499900 195.500100
+2 -73.499900 196.500100
+2 -73.499900 197.500100
+2 -73.499900 198.500100
+2 -73.499900 199.500100
+2 -73.499900 200.500100
+2 -73.499900 201.500100
+2 -73.499900 202.500100
+2 -73.499900 203.500100
+2 -73.499900 204.500100
+2 -73.499900 205.500100
+2 -73.499900 206.500100
+2 -73.499900 207.500100
+2 -73.499900 208.500100
+2 -73.499900 209.500100
+2 -73.499900 210.500100
+2 -73.499900 211.500100
+2 -73.499900 212.500100
+2 -73.499900 213.500100
+2 -73.499900 214.500100
+2 -73.499900 215.500100
+2 -73.499900 216.500100
+2 -73.499900 217.500100
+2 -73.499900 218.500100
+2 -73.499900 219.500100
+2 -73.499900 220.500100
+2 -73.499900 221.500100
+2 -73.499900 222.500100
+2 -73.499900 223.500100
+2 -73.499900 224.500100
+2 -73.499900 225.500100
+2 -73.499900 226.500100
+2 -73.499900 227.500100
+2 -73.499900 228.500100
+2 -73.499900 229.500100
+2 -73.499900 230.500100
+2 -73.499900 231.500100
+2 -73.499900 232.500100
+2 -73.499900 233.500100
+2 -73.499900 234.500100
+2 -73.499900 235.500100
+2 -73.499900 236.500100
+2 -73.499900 237.500100
+2 -73.499900 238.500100
+2 -73.499900 239.500100
+2 -73.499900 240.500100
+2 -73.499900 241.500100
+2 -73.499900 242.500100
+2 -73.499900 243.500100
+2 -73.499900 244.500100
+2 -73.499900 245.500100
+2 -73.499900 246.500100
+2 -73.499900 247.500100
+2 -73.499900 248.500100
+2 -73.499900 249.500100
+2 -73.499900 250.500100
+2 -73.499900 251.500100
+2 -73.499900 252.500100
+2 -73.499900 253.500100
+2 -73.499900 254.500100
+2 -73.499900 255.500100
+2 -73.499900 256.500100
+2 -73.499900 257.500100
+2 -73.499900 258.500100
+2 -73.499900 259.500100
+2 -73.499900 260.500100
+2 -73.499900 261.500100
+2 -73.499900 262.500100
+2 -73.499900 263.500100
+2 -73.499900 264.500100
+2 -73.499900 265.500100
+2 -73.499900 266.500100
+2 -73.499900 267.500100
+2 -73.499900 268.500100
+2 -73.499900 269.500100
+2 -73.499900 270.500100
+2 -73.499900 271.500100
+2 -73.499900 272.500100
+2 -73.499900 273.500100
+2 -73.499900 274.500100
+2 -73.499900 275.500100
+2 -73.499900 276.500100
+2 -73.499900 277.500100
+2 -73.499900 278.500100
+2 -73.499900 279.500100
+2 -73.499900 280.500100
+2 -73.499900 281.500100
+2 -73.499900 282.500100
+2 -73.499900 283.500100
+2 -73.499900 284.500100
+2 -73.499900 285.500100
+2 -73.499900 286.500100
+2 -73.499900 287.500100
+2 -73.499900 288.500100
+2 -73.499900 289.500100
+2 -73.499900 290.500100
+2 -73.
\ No newline at end of file
Added: mc/1D/hc/trunk/hcplates/plates_propagator.c
===================================================================
--- mc/1D/hc/trunk/hcplates/plates_propagator.c 2007-07-11 00:35:53 UTC (rev 7640)
+++ mc/1D/hc/trunk/hcplates/plates_propagator.c 2007-07-11 06:24:16 UTC (rev 7641)
@@ -0,0 +1,374 @@
+#include <math.h>
+#include "hcplates.h"
+
+/* Subroutines to calculate green functions */
+
+/* 2x2 toroidal propagator subroutine */
+
+
+/*
+poload: subroutine for internal loads (poloidal flow)
+Calls prop4, mamlt4, returns ua & uc tested - working */
+
+void poload(struct hc_plates_params *plates,int L,int n,int iba,int nrb,double rb, double visc0,double *ua,double *uc)
+{
+
+int i,j,layr,nrad;
+double pba[5][5],pca[5][5],p1[5][5],p2[5][5];
+double rnorm,fact1,fact2,bsigma,tmp1,tmp2,tmp3,tmp4;
+
+/* Want all arrays fotran style 1->4, so initialized to size 5 */
+
+//fprintf(stderr,"POLOAD: n:%i iba:%i nrb:%i rb:%lf visc0:%le\n",n,iba,nrb,rb,visc0);
+
+/* zero arrays */
+ for(i=1;i<=4;i++) {
+ for (j=1;j<=4;j++) {
+ pba[i][j]=0.0;
+ pca[i][j]=0.0;
+ p1[i][j]=0.0;
+ p2[i][j]=0.0;
+ }
+ }
+/* Calculate pca
+Initialize pca to an identity matrix */
+ for (i=1;i<=4;i++) {
+ pca[i][i]=1.0;
+ }
+
+/* Multiply pca by each matrix layer */
+
+ for (layr=1;layr<=n;layr++) {
+ rnorm=plates->r[layr+1]/plates->r[layr];
+ prop4(L,rnorm,plates->visc[layr],p1);
+ /* fprintf(stderr," POLOAD, L:%i p1: %le %le %le %le \n",L,p1[1][1],p1[2][1],p1[3][1],p1[4][1]); //
+ fprintf(stderr," POLOAD, L:%i p2: %le %le %le %le \n",L,p2[1][1],p2[2][1],p2[3][1],p2[4][1]); //
+ fprintf(stderr," POLOAD, L:%i pca: %le %le %le %le \n",L,pca[1][1],pca[2][1],pca[3][1],pca[4][1]); */
+ mamlt4(p1,pca,p2);
+ //fprintf(stderr," POLOAD, L:%i p2: %le %le %le %le \n",L,p2[1][1],p2[2][1],p2[3][1],p2[4][1]); //ok till here
+ for (i=1;i<=4;i++) {
+ for (j=1; j<=4; j++) {
+ pca[i][j]=p2[i][j];
+ //fprintf(stderr," %i/%i pca=%le \n",i,j,pca[i][j]);
+ }
+ }
+ }
+/* Find layer number of load */
+
+ for (i=1; i<=4; i++) {
+ if ( rb > plates->r[i] && rb <= plates->r[i+1] ) { /* O'Neill: this is only called for nrb=1, so setting rb to just double */
+ nrad=i;
+ }
+ }
+/*printf(" Found layer number of load; rb = %lf, nrad=%d \n",rb,nrad); */
+/* Calculate pba
+Initialize pba to identity matrix */
+ for (i=1;i<=4;i++) {
+ pba[i][i]=1.0;
+ }
+/*Mulitply pba by each layer matrix */ /* for soe reason memory is corrupted here - the layr countered is everywhere... */
+
+ for (layr=nrad; layr<=n; layr++) {
+ rnorm=plates->r[layr+1]/plates->r[layr];
+ if (layr == nrad) {
+ rnorm=plates->r[layr+1]/rb;
+ }
+ prop4(L,rnorm,plates->visc[layr],p1);
+ mamlt4(p1,pba,p2);
+ for (i=1;i<=4;i++) {
+ for (j=1; j<=4; j++) {
+ pba[i][j]=p2[i][j];
+
+ }
+ }
+ //fprintf(stderr," POLOAD, L:%i p2: %le %le %le %le \n",L,p2[1][1],p2[2][1],p2[3][1],p2[4][1]); //good till here
+ }
+/* Solve for the unknown boundary vectors
+Branch according to surface boundary condition
+iba=1 -> free slip; iba=0 -> no-slip */
+ if (iba == 0) {
+ /* no slip */
+ fact1=pca[1][2]/pca[1][3] - pca[2][2]/pca[2][3];
+ fact2=pba[1][3]/pca[1][3] - pba[2][3]/pca[2][3];
+ //fprintf(stderr," POLOAD: visc0= %le\n",visc0);
+ bsigma=rb/visc0;
+ /* Get CMB solution */
+ uc[1]=0.0;
+ uc[2]= -bsigma*fact2/fact1;
+ uc[3]=(-uc[2]*pca[1][2] - bsigma*pba[1][3])/pca[1][3];
+ uc[4]=0.0;
+ /*Get surface solution */
+ ua[1]=0.0;
+ ua[2]=0.0;
+ tmp1 = pca[3][2]*uc[2];
+ tmp2 = pca[3][3]*uc[3];
+ tmp3 = pba[3][3]*bsigma;
+ tmp4 = tmp1+tmp2+tmp3;
+ ua[3] = pca[3][2]*uc[2] + pca[3][3]*uc[3] + pba[3][3]*bsigma; //Note - small rounding error c/w fortran version for v small ua[3]
+ /* printf(" POLOAD: pca32=%le pca33=%le upba33=%le \n",pca[3][2],pca[3][3],pba[3][3]); //- working
+ printf(" POLOAD: uc2=%le uc3=%le bsigma=%le ua3=%le \n",uc[2],uc[3],bsigma,ua[3]);
+ printf(" POLOAD: tmps = %le %le %le %le \n",tmp1,tmp2,tmp3,tmp4); */
+ ua[4]=pca[4][2]*uc[2] + pca[4][3]*uc[3] + pba[4][3]*bsigma;
+ }
+ else {
+ /* Free slip */
+ fact1=pca[1][2]/pca[1][3] - pca[4][2]/pca[4][3];
+ fact2=pba[1][3]/pca[1][3] - pba[4][3]/pca[4][3];
+ bsigma=rb/visc0;
+ /* Get CMB solution */
+ uc[1]=0.0;
+ uc[2]= -bsigma*fact2/fact1;
+ uc[3]=(-uc[2]*pca[1][2] - bsigma*pba[1][3])/pca[1][3];
+ uc[4]=0.0;
+ /* Get surface solution */
+ ua[1]=0.0;
+ ua[2]=pca[2][2]*uc[2]+pca[2][3]*uc[3]+pba[2][3]*bsigma; //different - slightly...
+ ua[3]=pca[3][2]*uc[2]+pca[3][3]*uc[3]+pba[3][3]*bsigma;
+ ua[4]=0.0;
+ }
+ //printf(" POLOAD: uc2=%le uc3=%le ua3=%le ua4=%le \n",uc[2],uc[3],ua[3],ua[4]); //- working
+
+
+}
+
+/* subroutine for imposed surface poloidal velocity field */
+
+void polvel(struct hc_plates_params *plates, int L, int n,double *ua, double *uc)
+{
+ int i,j,layr;
+ double pca[5][5],p1[5][5],p2[5][5];
+ double rnorm;
+
+ /* Zero arrays */
+ for (i=1;i<=4;i++) {
+ for (j=1;j<=4;j++) {
+ pca[i][j]=0.0;
+ p1[i][j]=0.0;
+ p2[i][j]=0.0;
+ }
+ }
+ /* Calculate pca
+ Initialize pca to an identity matrix */
+ for (i=1;i<=4;i++) {
+ pca[i][i]=1.0;
+ }
+ /*Multiply pca by each layer matrix */
+ for (layr=1;layr<=n;layr++) {
+ rnorm=plates->r[layr+1]/plates->r[layr];
+ /* printf(" Prop4 input: layr=%d L=%d rnorm=%lf visc=%lf pca11=%lf\n",layr,L,rnorm,plates->visc[layr],pca[1][1]); */
+ prop4(L,rnorm,plates->visc[layr],p1);
+ mamlt4(p1,pca,p2);
+ for (i=1;i<=4;i++) {
+ for (j=1;j<=4;j++) {
+ /* printf(" i=%d j=%d p1=%lf pca=%lf p2=%lf\n",i,j,p1[i][j],pca[i][j],p2[i][j]);*/
+ pca[i][j]=p2[i][j];
+ }
+ }
+ }
+ /* Get CMB solution */
+/* printf(" Am I dividing by zero: pca22=%lf pca23=%lf pca12=%lf pca13=%lf\n",pca[2][2],pca[2][3],pca[1][2],pca[1][3]); */
+ uc[1]=0.0;
+ uc[2]=1.0/(pca[2][2]-pca[2][3]*pca[1][2]/pca[1][3]);
+ uc[3]=-uc[2]*pca[1][2]/pca[1][3];
+ uc[4]=0.0;
+ /*Get surface solution */
+ ua[1]=0.0;
+ ua[2]=1.0;
+ ua[3]=pca[3][2]*uc[2]+pca[3][3]*uc[3];
+ ua[4]=pca[4][2]*uc[2]+pca[4][3]*uc[3]; /*something wrong with ua[4]=nan */
+
+/* printf(" uc2=%lf uc3=%lf ua3=%lf ua4=%lf pca42=%lf pca43=%lf\n",uc[2],uc[3],ua[3],ua[4],pca[4][2],pca[4][3]);*/
+}
+
+/* Subroutine for imposed toroidal velocity field */
+void torvel(struct hc_plates_params *plates, int L, int n, double *va,double *vc)
+{
+ double pca[3][3],p1[3][3],p2[3][3];
+ int i,j,layr;
+ double rnorm;
+
+ /* Zero arrays */
+ for (i=1;i<=2;i++) {
+ for (j=1;j<=2;j++) {
+ pca[i][j]=0.0;
+ p1[i][j]=0.0;
+ p2[i][j]=0.0;
+ }
+ }
+ /* Calculate pca
+ Initialize pca to indentity matrix */
+ for (i=1;i<=2;i++) {
+ pca[i][i]=1.0;
+ }
+ /* Mulitply pca by each layer matrix */
+ for (layr=1;layr<=n;layr++) {
+ rnorm=plates->r[layr+1]/plates->r[layr];
+ prop2(L,rnorm,plates->visc[layr],p1);
+ mamlt2(p1,pca,p2);
+ for (i=1;i<=2;i++) {
+ for (j=1;j<=2;j++) {
+ pca[i][j]=p2[i][j];
+ }
+ }
+ }
+ /* Get CMB solution */
+ vc[1]=1.0/pca[1][1];
+ vc[2]=0.0;
+ /* Get surface solution */
+ va[1]=1.0;
+ va[2]=vc[1]*pca[2][1];
+}
+
+/* Matrix multiply routine, where matrices are 4x4, but the indices are from 1:4
+(as opposed to the C convention 0:3) */
+
+void mamlt4(double A[5][5], double B[5][5], double C[5][5])
+{
+ int i,j,k;
+ double sum1,sum2;
+ for (i=1;i<=4;i++) {
+ for (j=1;j<=4;j++) {
+ sum2=0.0;
+ for (k=1;k<=4;k++) {
+ sum1 = A[i][k]*B[k][j];
+ sum2 += sum1;
+ C[i][j]=sum2;
+ }
+ }
+ }
+}
+
+/* Matrix multiply routine, where matrices are 2x2, but the indices are from 1:2
+(as opposed to the C convention 0:1) */
+
+void mamlt2(double A[3][3], double B[3][3], double C[3][3])
+{
+ int i,j,k;
+ double sum1,sum2;
+ for (i=1;i<=2;i++) {
+ for (j=1;j<=2;j++) {
+ sum2=0;
+ for (k=1;k<=2;k++) {
+ sum1 = A[i][k]*B[k][j];
+ sum2 += sum1;
+ C[i][j] = sum2;
+ }
+ }
+ }
+}
+
+void prop2(int l, double r,double visc, double p[3][3])
+{
+ int LL,rLL;
+ double alpha,rnu,x1,x2,x3,ss,cc;
+
+ LL=l*(l+1);
+ rLL=LL;
+ alpha=sqrt(1 + 4*rLL);
+ rnu=log(r);
+ x2=exp(-0.5*rnu);
+ x1=x2/alpha;
+ x2=exp(0.5*rnu*alpha);
+ x3=exp(-0.5*rnu*alpha);
+ ss=(x2-x3)/2.0;
+ cc=(x2+x3)/2.0;
+ p[1][1]=x1*(3.0*ss + alpha*cc);
+ p[1][2]=x1*2.0*ss/visc;
+ p[2][1]=x1*2.0*(rLL-2.0)*visc*ss;
+ p[2][2]=x1*(-3.0*ss + alpha*cc);
+}
+
+/* 4x4 poloidal propagator subroutine. tested - works */
+void prop4(int l, double r, double v, double p[5][5])
+{
+ int lp1,lm1,lp2,lm2,lp3,lm3,l2,i,j;
+ int rl,rlp1,rlm1,rlp2,rlm2,rlp3,rlm3,rl2;
+ double c[5][5],rlambda[5][5],b[5][5],x[5][5];
+
+ lp1=l+1;
+ lm1=l-1;
+ lp2=l+2;
+ lm2=l-2;
+ lp3=l+3;
+ lm3=l-3;
+ l2=l*l;
+
+
+ rl=l;
+ rlp1=l+1;
+ rlm1=l-1;
+ rlp2=l+2;
+ rlm2=l-2;
+ rlp3=l+3;
+ rlm3=l-3;
+ rl2=l*l;
+
+/* Calculate c matrix components */
+
+ c[1][1]=l*lp1;
+ c[1][2]=l*lp1;
+ c[1][3]=l*lp1;
+ c[1][4]=l*lp1;
+ c[2][1]=lp3;
+ c[2][2]=lp1;
+ c[2][3]=-lm2;
+ c[2][4]=-l;
+ c[3][1]=2*v*lp1*(l2-lp3);
+ c[3][2]=2*v*l*lm1*lp1;
+ c[3][3]=-2*v*l*(l2+3*l-1);
+ c[3][4]=-2*v*l*lp2*lp1;
+ c[4][1]=2*v*l*lp2;
+ c[4][2]=2*v*lm1*lp1;
+ c[4][3]=2*v*lm1*lp1;
+ c[4][4]=2*v*l*(lp2);
+
+/* Calculate lambda a=matrix */
+ for (i=1;i<=4;i++) {
+ for (j=1;j<=4;j++) {
+ rlambda[i][j]=0.0;
+ }
+ }
+ rlambda[1][1]=pow(r,lp1);
+ rlambda[2][2]=pow(r,lm1);
+ rlambda[3][3]=pow(r,(-l));
+ rlambda[4][4]=pow(r,(-lp2));
+/* Calculate b(=cinv) matrix */
+ b[1][1]=-rlp2;
+ b[1][2]=rl*rlp2;
+ b[1][3]=-1.0/(2.0*v);
+ b[1][4]=rl/(2.0*v);
+ b[2][1]=(rl2+3*rl-1.0)/rlp1;
+ b[2][2]=-rlm1*rlp1;
+ b[2][3]=1.0/(2.0*v);
+ b[2][4]=-rlm2/(2.0*v);
+ b[3][1]=rlm1;
+ b[3][2]=rlm1*rlp1;
+ b[3][3]=-1.0/(2.0*v);
+ b[3][4]=-rlp1/(2.0*v);
+ b[4][1]=(3.0+rl-rl2)/rl;
+ b[4][2]=-rl*rlp2;
+ b[4][3]=1.0/(2.0*v);
+ b[4][4]=rlp3/(2.0*v);
+
+ for (i=1;i<=4;i++) {
+ b[1][i]=b[1][i]/(2.0*rl + 3.0);
+ b[4][i]=b[4][i]/(2.0*rl + 3.0);
+ }
+ for (i=1;i<=4;i++) {
+ b[2][i]=b[2][i]/(2.0*rl - 1.0);
+ b[3][i]=b[3][i]/(2.0*rl - 1.0);
+ }
+ for (i=1;i<=4;i++) {
+ for (j=1;j<=4;j++) {
+ b[i][j]=b[i][j]/(2.0*rl + 1.0);
+ }
+ }
+ /* Get product of c*rlambda */
+ mamlt4(c,rlambda, x);
+ /* Get product of (c*rlambda)*b=p */
+ mamlt4(x, b, p);
+
+}
+
+
+
Added: mc/1D/hc/trunk/hcplates/point.j
===================================================================
--- mc/1D/hc/trunk/hcplates/point.j 2007-07-11 00:35:53 UTC (rev 7640)
+++ mc/1D/hc/trunk/hcplates/point.j 2007-07-11 06:24:16 UTC (rev 7641)
@@ -0,0 +1,7394 @@
+ 21 25
+ 0.2
+ 72.50000000
+ 0 0 .772787599E+06 .000000000E+00
+ 1 0 -.892675906E+05 .000000000E+00
+ 1 1 -.195316307E+06 .430880218E+05
+ 2 0 -.173931899E+06 .000000000E+00
+ 2 1 -.226127885E+06 -.126109191E+06
+ 2 2 .363038108E+06 -.435120135E+05
+ 3 0 -.105432073E+06 .000000000E+00
+ 3 1 .141993100E+06 -.811506539E+05
+ 3 2 .892013042E+05 -.172515842E+06
+ 3 3 -.273413388E+06 -.209664522E+06
+ 4 0 -.321618948E+05 .000000000E+00
+ 4 1 .570152194E+05 .732103348E+05
+ 4 2 .524343090E+05 -.395355086E+05
+ 4 3 -.138750190E+06 .609824113E+05
+ 4 4 .526951633E+05 .124697978E+05
+ 5 0 .105717927E+06 .000000000E+00
+ 5 1 .203583301E+05 .575750591E+05
+ 5 2 -.604229111E+05 .345628092E+05
+ 5 3 -.765999568E+05 .246144399E+05
+ 5 4 .545860988E+05 -.175299166E+06
+ 5 5 .186816417E+05 -.120882294E+05
+ 6 0 .984503956E+04 .000000000E+00
+ 6 1 -.647474159E+05 -.690262211E+04
+ 6 2 -.567545011E+04 .931222348E+05
+ 6 3 .873440187E+05 -.593599435E+05
+ 6 4 -.729151091E+05 .761965482E+05
+ 6 5 .686906919E+05 .783553759E+05
+ 6 6 -.687987662E+05 -.103509554E+06
+ 7 0 .820158131E+05 .000000000E+00
+ 7 1 .148632918E+05 -.386903451E+05
+ 7 2 .712086959E+05 -.196780267E+05
+ 7 3 -.693869455E+05 -.836046866E+04
+ 7 4 .496156594E+05 .622101943E+05
+ 7 5 -.121699161E+05 .119885675E+05
+ 7 6 .244400958E+05 -.237370890E+05
+ 7 7 .346090557E+05 .295266662E+05
+ 8 0 -.332114019E+05 .000000000E+00
+ 8 1 .212851443E+05 -.768320556E+04
+ 8 2 -.975671963E+05 -.219377510E+05
+ 8 3 .133028444E+05 -.102921288E+05
+ 8 4 .110260157E+05 -.599053133E+05
+ 8 5 -.218816195E+04 -.353987916E+05
+ 8 6 -.629738775E+05 -.373368360E+05
+ 8 7 -.108409092E+06 -.665092617E+05
+ 8 8 .310360425E+05 .544671417E+05
+ 9 0 .588353813E+05 .000000000E+00
+ 9 1 -.631675454E+05 -.367534646E+05
+ 9 2 -.121518561E+05 .166780075E+05
+ 9 3 .585156953E+05 -.124450914E+05
+ 9 4 -.632870760E+04 .152838230E+05
+ 9 5 -.324329861E+05 .376401218E+05
+ 9 6 .342891648E+05 -.703588069E+05
+ 9 7 .672367208E+05 .234003972E+05
+ 9 8 -.119558861E+06 -.108116855E+06
+ 9 9 .658716878E+05 .749947001E+05
+ 10 0 -.497608289E+05 .000000000E+00
+ 10 1 .998529821E+04 .379476456E+05
+ 10 2 .828392039E+05 .981809614E+04
+ 10 3 -.302792516E+05 .443523165E+04
+ 10 4 .256450567E+05 -.248788004E+05
+ 10 5 -.235686187E+05 .202982038E+05
+ 10 6 .492034514E+05 .706493916E+05
+ 10 7 .191394976E+05 -.591508036E+05
+ 10 8 -.735582945E+05 .553729692E+05
+ 10 9 -.110611003E+06 -.157830562E+05
+ 10 10 -.404800939E+05 .122203082E+06
+ 11 0 .330641701E+05 .000000000E+00
+ 11 1 -.578507652E+05 -.582488466E+04
+ 11 2 -.435758463E+05 -.208840664E+05
+ 11 3 .348232178E+05 .238654559E+05
+ 11 4 -.194859647E+05 .326303263E+05
+ 11 5 -.368381122E+05 -.339291572E+05
+ 11 6 -.278273337E+05 -.733275505E+04
+ 11 7 .370344603E+05 .285750921E+05
+ 11 8 -.303820148E+05 -.328395929E+05
+ 11 9 -.571890488E+04 -.222646671E+05
+ 11 10 -.708211391E+05 -.122447230E+05
+ 11 11 .243729836E+05 .266888290E+05
+ 12 0 .188155291E+05 .000000000E+00
+ 12 1 .682119989E+04 .103549800E+05
+ 12 2 .361594399E+05 .196096350E+04
+ 12 3 -.523459607E+05 .674467714E+04
+ 12 4 .157651812E+05 -.816544890E+04
+ 12 5 .842754458E+04 -.267853958E+05
+ 12 6 -.151339125E+05 .402595707E+05
+ 12 7 .355507106E+05 -.268641856E+05
+ 12 8 .337144790E+05 -.458523878E+05
+ 12 9 -.496424385E+05 .241452694E+05
+ 12 10 .934204571E+04 .604016162E+05
+ 12 11 -.156182740E+05 -.290896631E+05
+ 12 12 .250003019E+05 .205333747E+05
+ 13 0 -.222449006E+05 .000000000E+00
+ 13 1 -.257307645E+05 -.763801866E+04
+ 13 2 -.822928379E+04 .392068867E+05
+ 13 3 .646077952E+05 -.345843648E+05
+ 13 4 -.132874761E+05 -.823556292E+04
+ 13 5 -.278303452E+05 .901652112E+04
+ 13 6 .316387626E+05 .931612233E+03
+ 13 7 -.155289450E+05 .474977545E+05
+ 13 8 -.642967296E+04 -.304526514E+05
+ 13 9 .253642005E+05 -.339532319E+05
+ 13 10 -.156220051E+05 .324156798E+05
+ 13 11 .595814775E+05 .195992341E+05
+ 13 12 .221579653E+05 .211460615E+05
+ 13 13 .409698872E+05 -.134979027E+05
+ 14 0 .593355764E+05 .000000000E+00
+ 14 1 -.156372339E+05 -.347590025E+05
+ 14 2 .354877550E+05 .287444966E+05
+ 14 3 -.348407606E+05 .638651132E+04
+ 14 4 -.300585837E+05 .256304909E+05
+ 14 5 .541088781E+05 .140017717E+05
+ 14 6 .712444361E+04 -.336308363E+05
+ 14 7 -.347165986E+05 .299449018E+05
+ 14 8 -.830615142E+04 -.119807428E+04
+ 14 9 .274408248E+05 -.700010064E+03
+ 14 10 -.188652359E+05 -.264398287E+05
+ 14 11 -.303253030E+05 .171085596E+05
+ 14 12 .329271030E+05 .367791214E+05
+ 14 13 -.457479314E+05 .162258326E+05
+ 14 14 .461079154E+05 .467471630E+05
+ 15 0 -.244362879E+05 .000000000E+00
+ 15 1 -.901169472E+04 .292339544E+05
+ 15 2 .990188015E+03 .607687442E+03
+ 15 3 -.212620091E+05 -.297141316E+05
+ 15 4 .253923612E+05 -.238156627E+04
+ 15 5 .223356567E+05 .223959702E+05
+ 15 6 -.777076325E+04 -.985748945E+03
+ 15 7 -.125185505E+05 -.196403716E+04
+ 15 8 .231017718E+05 .523872624E+04
+ 15 9 -.143811452E+05 -.434298331E+05
+ 15 10 -.359174553E+04 -.247563253E+05
+ 15 11 -.910652968E+04 -.302698635E+05
+ 15 12 .159789100E+05 -.241257944E+05
+ 15 13 -.148218165E+05 .309815957E+05
+ 15 14 -.444062700E+04 .163699884E+04
+ 15 15 .264078021E+05 .144596635E+04
+ 16 0 .139512371E+05 .000000000E+00
+ 16 1 -.142244814E+05 -.488507323E+05
+ 16 2 -.234859404E+05 -.204205791E+05
+ 16 3 .729970864E+05 .387916767E+05
+ 16 4 -.268692153E+04 -.264205033E+05
+ 16 5 -.253271711E+05 .213479370E+04
+ 16 6 .282967251E+05 .130122872E+05
+ 16 7 .146262796E+05 -.728244059E+04
+ 16 8 .467807095E+05 -.293514104E+04
+ 16 9 .135671450E+05 .387900313E+05
+ 16 10 -.176177330E+05 .111820666E+05
+ 16 11 -.463022741E+05 .136028069E+04
+ 16 12 -.417365343E+05 .627890958E+04
+ 16 13 -.132996388E+05 -.209513882E+05
+ 16 14 -.117763200E+05 .332953091E+05
+ 16 15 .352290182E+03 .159907647E+05
+ 16 16 .277181139E+05 -.125522329E+05
+ 17 0 -.180398566E+05 .000000000E+00
+ 17 1 .140297042E+05 .278213138E+05
+ 17 2 .336644223E+05 .361280349E+05
+ 17 3 -.360180638E+05 -.325619899E+05
+ 17 4 .934979901E+04 .256121294E+05
+ 17 5 .130316001E+05 .146054246E+05
+ 17 6 .117472657E+04 -.235789655E+05
+ 17 7 -.360328748E+05 -.238832805E+05
+ 17 8 -.275501122E+05 .868797860E+04
+ 17 9 .656080319E+04 .360038786E+05
+ 17 10 .602640125E+04 -.377014424E+05
+ 17 11 -.186215441E+05 -.236547229E+05
+ 17 12 -.465143539E+05 -.151901360E+05
+ 17 13 -.232962405E+05 .956302498E+03
+ 17 14 -.106143492E+04 -.341826987E+05
+ 17 15 -.242003196E+05 -.123608625E+05
+ 17 16 .400613363E+05 -.220044329E+05
+ 17 17 .195512796E+05 .319293135E+05
+ 18 0 .497034982E+04 .000000000E+00
+ 18 1 -.174996035E+05 -.412125199E+04
+ 18 2 -.177985141E+05 -.113399891E+05
+ 18 3 .650860935E+03 .189263013E+04
+ 18 4 .594412414E+04 -.714416855E+04
+ 18 5 -.321916634E+04 -.238271973E+05
+ 18 6 .113786132E+05 .191764611E+05
+ 18 7 .900572070E+04 -.130324885E+05
+ 18 8 .144980354E+05 -.175413388E+05
+ 18 9 -.831908676E+04 -.276314388E+05
+ 18 10 -.137922626E+05 -.188155215E+04
+ 18 11 .250385468E+05 .404927273E+04
+ 18 12 .104151077E+05 .291303455E+05
+ 18 13 -.387187673E+04 .151653198E+05
+ 18 14 -.700148225E+04 .479042867E+05
+ 18 15 .274033827E+05 .211722516E+05
+ 18 16 -.779140995E+04 -.511075635E+05
+ 18 17 .121120636E+05 .183527887E+05
+ 18 18 -.104354641E+05 .381702880E+04
+ 19 0 -.612666285E+03 .000000000E+00
+ 19 1 .105762744E+05 .132539026E+04
+ 19 2 .111191830E+05 -.127174962E+05
+ 19 3 -.264621150E+05 -.203028639E+05
+ 19 4 .930942849E+04 -.107223151E+04
+ 19 5 .449061095E+04 -.402754778E+05
+ 19 6 .705134398E+04 .995690133E+04
+ 19 7 .162602581E+05 .133077572E+05
+ 19 8 .102381965E+05 .782230612E+04
+ 19 9 -.205963571E+05 -.455181297E+04
+ 19 10 .124382514E+05 -.218491625E+05
+ 19 11 .188871598E+05 -.477157086E+04
+ 19 12 -.470100457E+03 .231676100E+05
+ 19 13 -.799219679E+04 .125546464E+05
+ 19 14 -.144150950E+05 -.673625261E+04
+ 19 15 -.107300738E+04 .289141197E+05
+ 19 16 .131105653E+05 .156438594E+05
+ 19 17 .302382287E+05 .178397420E+05
+ 19 18 -.422952092E+05 .218830953E+05
+ 19 19 .167880667E+05 .202979445E+05
+ 20 0 -.105860557E+05 .000000000E+00
+ 20 1 -.149536673E+05 -.474134833E+04
+ 20 2 -.498236241E+04 .627907494E+04
+ 20 3 .167068416E+05 -.146955208E+05
+ 20 4 -.129828431E+05 .180621393E+05
+ 20 5 .163769433E+05 .200899535E+05
+ 20 6 -.348566231E+05 -.113443696E+03
+ 20 7 .324301094E+05 .110250732E+04
+ 20 8 -.385288435E+04 -.271722196E+05
+ 20 9 -.329939788E+05 .284175111E+05
+ 20 10 .178303365E+05 .100726414E+05
+ 20 11 -.237162810E+05 -.167249902E+05
+ 20 12 -.998303693E+04 -.983432013E+04
+ 20 13 .794852189E+03 -.101645190E+05
+ 20 14 .913931251E+04 .840602137E+04
+ 20 15 .778901889E+03 .440013513E+05
+ 20 16 .958690088E+04 .709303026E+04
+ 20 17 -.613400782E+04 -.183503417E+05
+ 20 18 -.230357385E+05 .665324290E+04
+ 20 19 .927096558E+04 -.231258692E+05
+ 20 20 .353860853E+04 -.218694375E+04
+ 21 0 .857415103E+04 .000000000E+00
+ 21 1 .259174857E+05 .118374648E+04
+ 21 2 .206822433E+05 -.177461122E+05
+ 21 3 -.336347142E+05 .290665819E+05
+ 21 4 -.173971744E+05 .531003867E+04
+ 21 5 -.479490741E+03 -.129215138E+05
+ 21 6 .635940164E+04 -.164300285E+05
+ 21 7 -.310732092E+04 .609471111E+04
+ 21 8 .150798565E+05 .292682645E+04
+ 21 9 .449162251E+04 -.108519451E+05
+ 21 10 .874861474E+04 -.637150430E+04
+ 21 11 -.302156342E+05 .420577161E+05
+ 21 12 -.387287590E+03 -.488876088E+04
+ 21 13 .457100537E+04 -.261046753E+05
+ 21 14 -.396856942E+05 -.259027596E+04
+ 21 15 .121406093E+05 -.105538179E+05
+ 21 16 -.195231381E+05 .215947841E+05
+ 21 17 .566970992E+04 .214171034E+04
+ 21 18 .910443902E+04 .290885586E+05
+ 21 19 .325564387E+05 .496541483E+04
+ 21 20 .332495749E+05 -.302080187E+05
+ 21 21 -.108149094E+05 -.249032403E+04
+ 22 0 .100708516E+05 .000000000E+00
+ 22 1 -.319527478E+04 .250124243E+05
+ 22 2 -.189911745E+05 .242909529E+05
+ 22 3 -.198818434E+05 -.998024834E+04
+ 22 4 -.295073400E+04 .136337722E+05
+ 22 5 .198429395E+05 .147598387E+05
+ 22 6 -.325940365E+05 -.145109776E+05
+ 22 7 -.216113945E+05 -.541683345E+04
+ 22 8 .219062938E+05 .467225212E+04
+ 22 9 -.235505294E+04 -.278078224E+05
+ 22 10 .850832586E+03 -.928506301E+04
+ 22 11 .603935898E+02 .492625053E+04
+ 22 12 -.693449668E+04 .135111613E+05
+ 22 13 -.208552252E+04 -.135078397E+05
+ 22 14 -.705514164E+04 .191486442E+05
+ 22 15 -.124863479E+05 .249279102E+04
+ 22 16 -.187169935E+04 -.349092615E+04
+ 22 17 -.319224315E+04 -.144717141E+04
+ 22 18 -.128817532E+05 -.632044410E+04
+ 22 19 -.517512477E+04 .288010290E+05
+ 22 20 .534470023E+04 .321800032E+04
+ 22 21 .372956464E+05 -.400668933E+05
+ 22 22 -.104449052E+05 -.154401944E+05
+ 23 0 .409980015E+04 .000000000E+00
+ 23 1 -.121549861E+05 -.278063471E+05
+ 23 2 .884021435E+04 -.758406452E+04
+ 23 3 .251716065E+05 .400754557E+04
+ 23 4 .103810188E+05 -.140388563E+05
+ 23 5 -.230755023E+05 .256914793E+03
+ 23 6 .317717290E+05 .996048691E+04
+ 23 7 .834720813E+04 .701431826E+04
+ 23 8 -.171806950E+05 -.474053969E+04
+ 23 9 -.284188942E+05 -.113902988E+05
+ 23 10 .175008640E+04 .305753410E+05
+ 23 11 -.561984341E+03 -.961241849E+03
+ 23 12 .426049946E+04 -.957161959E+04
+ 23 13 -.118187343E+05 .115631793E+05
+ 23 14 -.111074057E+05 .172503823E+05
+ 23 15 -.607095770E+04 -.227453918E+04
+ 23 16 -.256424514E+04 -.479511812E+03
+ 23 17 -.164387407E+04 .191350994E+04
+ 23 18 .125312924E+04 -.867225859E+03
+ 23 19 .149344083E+05 -.194022895E+04
+ 23 20 -.386459101E+03 .171839846E+05
+ 23 21 .103059168E+05 -.180491761E+05
+ 23 22 .177098697E+05 .239767165E+05
+ 23 23 -.102934488E+05 -.670668936E+04
+ 24 0 -.965502291E+03 .000000000E+00
+ 24 1 -.263844557E+04 .377065360E+04
+ 24 2 .811887146E+04 .166310093E+05
+ 24 3 .209153885E+04 -.291397203E+05
+ 24 4 .523155218E+04 .163242282E+05
+ 24 5 .690131545E+04 .374957351E+04
+ 24 6 -.757743990E+04 .764653866E+04
+ 24 7 .184742496E+05 -.148754857E+05
+ 24 8 -.196697752E+05 .121855453E+05
+ 24 9 .188088003E+05 .483471071E+04
+ 24 10 -.107793132E+05 -.213534918E+05
+ 24 11 -.275752982E+05 -.110196565E+05
+ 24 12 .471381821E+04 .118390456E+04
+ 24 13 .146553898E+05 .981452972E+04
+ 24 14 .908022995E+04 .206231218E+03
+ 24 15 -.583273878E+04 .170178220E+05
+ 24 16 .271076562E+04 .173526862E+05
+ 24 17 .277730356E+05 .135691393E+05
+ 24 18 -.195550725E+05 .904403491E+04
+ 24 19 .212301492E+05 .227606481E+05
+ 24 20 .673590983E+04 .507579274E+04
+ 24 21 -.680392448E+04 -.367191878E+05
+ 24 22 -.280567832E+05 -.223825006E+05
+ 24 23 -.110005546E+05 .576507191E+04
+ 24 24 .882772039E+04 -.192748997E+05
+ 25 0 .136348657E+04 .000000000E+00
+ 25 1 .291730164E+04 -.270036280E+05
+ 25 2 -.285848309E+05 -.471534144E+04
+ 25 3 .178010402E+05 .142877850E+05
+ 25 4 .870273625E+04 -.120522026E+05
+ 25 5 -.142698333E+05 .700581981E+04
+ 25 6 -.878112866E+04 -.174968453E+04
+ 25 7 -.116855952E+05 .638865217E+04
+ 25 8 .467006513E+04 -.411391411E+04
+ 25 9 .331376806E+05 .557883630E+04
+ 25 10 .360908516E+04 .755320217E+04
+ 25 11 -.150713179E+04 .235680808E+05
+ 25 12 .109415128E+05 -.132326937E+05
+ 25 13 -.715837580E+04 .213013713E+05
+ 25 14 .121998906E+05 -.152199720E+04
+ 25 15 .726049198E+04 .891931068E+04
+ 25 16 .103553440E+05 .178883503E+05
+ 25 17 -.356382921E+04 .176375890E+05
+ 25 18 .168972279E+05 .164199622E+05
+ 25 19 -.298190212E+05 -.171690217E+05
+ 25 20 .269494930E+05 .268826297E+05
+ 25 21 .433214581E+03 -.879294598E+03
+ 25 22 .247619112E+05 -.169322746E+05
+ 25 23 -.302062099E+05 -.126679829E+05
+ 25 24 .240457569E+04 .149497304E+05
+ 25 25 -.354315092E+03 .150192831E+05
+ 72.5000000000000000
+ 0 0 .2284E+05 .0000E+00
+ 1 0 .3194E+04 .0000E+00
+ 1 1 -.1970E+05 .1037E+05
+ 2 0 -.1353E+05 .0000E+00
+ 2 1 -.3066E+04 .6055E+04
+ 2 2 .5451E+03 -.2051E+05
+ 3 0 -.6566E+03 .0000E+00
+ 3 1 .6007E+04 -.7437E+04
+ 3 2 -.2275E+04 -.1184E+04
+ 3 3 .6400E+03 .1860E+05
+ 4 0 .4114E+04 .0000E+00
+ 4 1 -.5501E+04 -.3608E+04
+ 4 2 .3966E+04 .1035E+05
+ 4 3 .6784E+04 .2197E+04
+ 4 4 -.5218E+04 -.4505E+04
+ 5 0 -.2726E+04 .0000E+00
+ 5 1 -.3894E+04 .2512E+04
+ 5 2 .8761E+04 .8685E+03
+ 5 3 -.8463E+04 -.6011E+04
+ 5 4 -.1024E+05 -.5882E+04
+ 5 5 .1267E+05 -.3232E+04
+ 6 0 -.3509E+04 .0000E+00
+ 6 1 .4961E+04 -.2705E+04
+ 6 2 .1975E+03 -.5662E+04
+ 6 3 -.5658E+04 -.1112E+04
+ 6 4 .5465E+04 -.1455E+04
+ 6 5 .9658E+04 -.4741E+04
+ 6 6 -.6636E+04 .2089E+04
+ 7 0 .1147E+04 .0000E+00
+ 7 1 .3520E+04 -.7589E+03
+ 7 2 -.2512E+04 .2425E+04
+ 7 3 .4639E+04 .2211E+04
+ 7 4 .3533E+04 -.2358E+04
+ 7 5 -.1590E+04 .1948E+04
+ 7 6 -.7018E+04 .1285E+05
+ 7 7 -.2307E+04 -.6665E+04
+ 8 0 .6138E+03 .0000E+00
+ 8 1 .6729E+03 .5718E+04
+ 8 2 .1803E+04 .4988E+04
+ 8 3 -.8456E+03 -.1352E+04
+ 8 4 -.2906E+04 .3315E+04
+ 8 5 -.2448E+04 .6053E+04
+ 8 6 .4093E+04 -.2385E+03
+ 8 7 .2706E+04 -.8016E+04
+ 8 8 .3636E+04 .9119E+04
+ 9 0 -.2103E+04 .0000E+00
+ 9 1 .2268E+04 .2682E+04
+ 9 2 -.2789E+04 -.2116E+04
+ 9 3 -.4397E+04 -.2261E+04
+ 9 4 .1709E+04 .5001E+04
+ 9 5 .3848E+04 -.1834E+04
+ 9 6 -.1571E+04 -.4298E+04
+ 9 7 -.1783E+04 -.9143E+02
+ 9 8 .6679E+04 .4348E+04
+ 9 9 -.3720E+04 .4793E+03
+ 10 0 .1663E+04 .0000E+00
+ 10 1 .2670E+04 -.5007E+04
+ 10 2 -.5380E+04 -.2253E+04
+ 10 3 .1296E+04 .6363E+03
+ 10 4 .3785E+04 -.1794E+04
+ 10 5 -.1880E+04 -.2908E+04
+ 10 6 -.3849E+04 .6485E+03
+ 10 7 .6633E+04 .4123E+04
+ 10 8 -.2224E+04 .7150E+03
+ 10 9 -.9924E+04 -.2599E+04
+ 10 10 .3918E+04 -.5685E+04
+ 11 0 .4993E+04 .0000E+00
+ 11 1 -.2793E+04 -.3435E+04
+ 11 2 -.1231E+04 .1162E+04
+ 11 3 .4000E+04 -.2319E+04
+ 11 4 -.1374E+04 -.2005E+04
+ 11 5 -.4029E+04 .1863E+04
+ 11 6 .1984E+04 .2924E+04
+ 11 7 -.2674E+04 -.4991E+04
+ 11 8 -.7251E+04 .4013E+02
+ 11 9 -.2028E+04 -.1502E+04
+ 11 10 .3657E+04 -.1891E+04
+ 11 11 .4925E+02 .4109E+03
+ 12 0 .1381E+04 .0000E+00
+ 12 1 -.5186E+04 .4005E+04
+ 12 2 .2028E+04 -.1328E+04
+ 12 3 .1428E+03 -.1319E+04
+ 12 4 -.3591E+04 .1962E+04
+ 12 5 .9234E+03 .1051E+04
+ 12 6 -.3667E+03 -.5025E+04
+ 12 7 -.4178E+04 -.3479E+04
+ 12 8 .3618E+04 .5620E+04
+ 12 9 .4888E+04 -.5789E+04
+ 12 10 .4655E+04 .4543E+04
+ 12 11 -.3385E+04 .5091E+04
+ 12 12 -.4657E+04 .5838E+03
+ 13 0 -.2006E+04 .0000E+00
+ 13 1 -.6949E+03 .2727E+04
+ 13 2 .2208E+04 -.3138E+04
+ 13 3 .4397E+03 .3993E+04
+ 13 4 .6904E+03 .3123E+04
+ 13 5 .2947E+04 -.3629E+04
+ 13 6 -.2273E+04 -.1748E+04
+ 13 7 .4868E+04 .5567E+04
+ 13 8 .5337E+04 -.1388E+04
+ 13 9 -.2766E+04 .1028E+03
+ 13 10 -.2627E+04 .3617E+04
+ 13 11 -.3323E+04 -.3671E+04
+ 13 12 .6338E+04 -.6202E+04
+ 13 13 .3853E+04 .2279E+04
+ 14 0 -.1191E+04 .0000E+00
+ 14 1 .7528E+03 -.2013E+04
+ 14 2 .2290E+02 .1171E+04
+ 14 3 .3551E+04 .3279E+04
+ 14 4 .7621E+03 -.9777E+03
+ 14 5 .1796E+04 -.1836E+04
+ 14 6 .3362E+03 .5128E+04
+ 14 7 .7795E+04 .1968E+04
+ 14 8 -.7247E+04 -.2048E+04
+ 14 9 -.2223E+04 .3097E+04
+ 14 10 .5038E+04 -.4299E+04
+ 14 11 -.1671E+04 -.6414E+03
+ 14 12 .4117E+04 -.5199E+04
+ 14 13 -.1154E+04 .6745E+04
+ 14 14 -.1291E+04 .9932E+03
+ 15 0 -.1814E+04 .0000E+00
+ 15 1 -.1367E+04 -.1154E+04
+ 15 2 .1072E+04 .2735E+04
+ 15 3 -.9143E+03 -.3245E+03
+ 15 4 -.3105E+04 -.2689E+04
+ 15 5 -.9299E+03 .1661E+04
+ 15 6 .2346E+04 .1199E+04
+ 15 7 -.2142E+04 -.4369E+04
+ 15 8 -.5774E+04 .3134E+04
+ 15 9 .7430E+04 -.3398E+04
+ 15 10 -.1381E+04 -.2843E+04
+ 15 11 -.2372E+04 .1774E+04
+ 15 12 .3077E+04 .3732E+03
+ 15 13 -.1412E+04 .7262E+04
+ 15 14 -.2992E+04 -.5942E+04
+ 15 15 .2942E+04 -.5136E+04
+ 16 0 -.2965E+04 .0000E+00
+ 16 1 -.1979E+03 -.5831E+03
+ 16 2 .1409E+04 -.1066E+04
+ 16 3 -.5053E+04 -.1985E+04
+ 16 4 -.9432E+03 -.7693E+03
+ 16 5 .3452E+03 .1288E+04
+ 16 6 -.1526E+04 -.2448E+04
+ 16 7 -.6419E+04 .4430E+03
+ 16 8 .2857E+04 .2145E+04
+ 16 9 .1029E+04 -.8733E+04
+ 16 10 -.2603E+04 .6039E+04
+ 16 11 .5054E+04 .4453E+04
+ 16 12 -.9814E+03 .6393E+03
+ 16 13 .1631E+04 .2952E+04
+ 16 14 -.6036E+04 -.9479E+03
+ 16 15 .8251E+03 .3373E+04
+ 16 16 -.3892E+04 .3300E+04
+ 17 0 .8031E+01 .0000E+00
+ 17 1 .3282E+04 -.2084E+04
+ 17 2 .4905E+03 -.8811E+03
+ 17 3 -.1511E+04 .6681E+03
+ 17 4 .2588E+04 -.5200E+03
+ 17 5 -.1950E+02 .4892E+02
+ 17 6 -.4036E+04 -.3068E+02
+ 17 7 .1477E+04 .3194E+04
+ 17 8 .3283E+04 -.3620E+04
+ 17 9 -.3307E+04 .2819E+04
+ 17 10 .1589E+04 .9635E+04
+ 17 11 -.1404E+04 -.3242E+04
+ 17 12 -.6041E+04 -.8619E+03
+ 17 13 -.1886E+04 .8188E+02
+ 17 14 -.1959E+04 -.5520E+04
+ 17 15 .9817E+04 -.7876E+02
+ 17 16 -.7743E+02 -.5323E+03
+ 17 17 -.4914E+02 -.1111E+04
+ 18 0 .3467E+04 .0000E+00
+ 18 1 .3102E+04 .1148E+03
+ 18 2 .1030E+04 .3247E+04
+ 18 3 .1116E+04 .8038E+03
+ 18 4 .9708E+03 -.4599E+03
+ 18 5 -.1154E+04 .3633E+02
+ 18 6 .7942E+03 .8748E+03
+ 18 7 .5441E+04 -.5998E+03
+ 18 8 -.3407E+04 -.2101E+04
+ 18 9 .2116E+04 .7812E+04
+ 18 10 -.7039E+03 -.2697E+04
+ 18 11 -.5539E+04 -.4552E+04
+ 18 12 .4443E+03 .1053E+04
+ 18 13 .5207E+04 -.3934E+04
+ 18 14 .3715E+04 .1292E+04
+ 18 15 .3187E+03 .2669E+04
+ 18 16 -.8662E+04 .2137E+04
+ 18 17 .6615E+02 .1260E+03
+ 18 18 .1458E+04 .2611E+04
+ 19 0 .1991E+04 .0000E+00
+ 19 1 -.2981E+03 .4181E+04
+ 19 2 -.2453E+04 .1970E+04
+ 19 3 -.8339E+03 -.2603E+04
+ 19 4 .5267E+03 -.1342E+04
+ 19 5 .1671E+04 .1157E+04
+ 19 6 .3607E+04 -.1978E+04
+ 19 7 -.1041E+04 -.7885E+03
+ 19 8 -.1800E+04 .1296E+04
+ 19 9 .3543E+04 -.2287E+04
+ 19 10 -.5013E+04 -.5853E+04
+ 19 11 .2241E+04 -.1931E+04
+ 19 12 .9014E+04 .6659E+03
+ 19 13 -.1881E+04 -.1986E+03
+ 19 14 -.5756E+04 .3846E+04
+ 19 15 -.2667E+04 -.1637E+04
+ 19 16 -.5588E+04 .6024E+03
+ 19 17 .6844E+04 -.1084E+05
+ 19 18 .2199E+04 -.1492E+04
+ 19 19 .1738E+04 -.3289E+04
+ 20 0 -.2211E+04 .0000E+00
+ 20 1 -.1927E+04 .2079E+04
+ 20 2 -.3467E+04 -.3358E+04
+ 20 3 .3238E+03 -.2137E+04
+ 20 4 .2806E+04 .1302E+04
+ 20 5 .2179E+03 .1056E+04
+ 20 6 -.7723E+03 -.1918E+04
+ 20 7 -.2757E+04 .2518E+04
+ 20 8 .2821E+04 -.2385E+04
+ 20 9 -.1309E+04 -.4521E+04
+ 20 10 -.1693E+04 .3449E+04
+ 20 11 .5303E+04 -.2650E+04
+ 20 12 -.1198E+04 .8883E+03
+ 20 13 -.7544E+04 .4841E+02
+ 20 14 .2568E+04 -.2484E+03
+ 20 15 .3212E+04 -.4411E+04
+ 20 16 .3792E+04 -.7327E+03
+ 20 17 .5687E+04 -.1361E+04
+ 20 18 -.3563E+04 .1283E+05
+ 20 19 -.3672E+04 .1563E+04
+ 20 20 -.1269E+04 .1619E+04
+ 21 0 -.1302E+04 .0000E+00
+ 21 1 .1460E+03 -.3295E+04
+ 21 2 -.2735E+03 -.2208E+04
+ 21 3 .2733E+04 .7816E+03
+ 21 4 .8084E+03 .3783E+04
+ 21 5 -.3258E+04 -.4579E+03
+ 21 6 -.2481E+04 .2138E+04
+ 21 7 .1770E+04 .1142E+04
+ 21 8 -.5966E+03 -.2910E+04
+ 21 9 -.3361E+04 .4237E+04
+ 21 10 .4174E+04 .1766E+04
+ 21 11 -.9578E+03 -.2284E+04
+ 21 12 -.2985E+04 .4031E+04
+ 21 13 -.3694E+03 .2434E+04
+ 21 14 .3567E+04 -.5127E+04
+ 21 15 .4259E+02 -.1077E+04
+ 21 16 .1635E+04 .4191E+04
+ 21 17 -.3880E+04 .7346E+03
+ 21 18 .3947E+04 .3108E+04
+ 21 19 -.3006E+04 -.7285E+04
+ 21 20 .3754E+04 -.1362E+04
+ 21 21 -.2428E+04 -.1146E+04
+ 22 0 .2823E+04 .0000E+00
+ 22 1 .2343E+03 -.2004E+04
+ 22 2 .4388E+03 .1939E+04
+ 22 3 .7335E+03 .1934E+04
+ 22 4 -.2789E+04 .6860E+03
+ 22 5 -.3546E+04 -.1641E+04
+ 22 6 .1597E+04 .2605E+04
+ 22 7 .5262E+03 -.3594E+04
+ 22 8 -.2493E+04 .1824E+04
+ 22 9 .3745E+04 .5072E+04
+ 22 10 .1136E+04 -.3592E+04
+ 22 11 -.2624E+04 .4225E+04
+ 22 12 .2100E+04 .2958E+04
+ 22 13 .1404E+04 -.2689E+04
+ 22 14 .1580E+04 -.1218E+04
+ 22 15 -.6477E+03 .6926E+04
+ 22 16 .1787E+04 .9303E+03
+ 22 17 -.1161E+04 .4885E+02
+ 22 18 .8381E+03 -.4277E+03
+ 22 19 -.7527E+04 -.3667E+04
+ 22 20 .6788E+04 .4679E+04
+ 22 21 -.2735E+04 .3205E+04
+ 22 22 .2079E+04 .1490E+04
+ 23 0 .1457E+04 .0000E+00
+ 23 1 -.2958E+04 .1713E+04
+ 23 2 .8749E+03 .2650E+03
+ 23 3 .4439E+03 -.4382E+03
+ 23 4 -.2840E+04 -.1511E+04
+ 23 5 .1575E+03 -.8334E+03
+ 23 6 .3620E+04 -.1795E+04
+ 23 7 -.2719E+04 -.2046E+04
+ 23 8 .3618E+04 .3764E+04
+ 23 9 .1017E+04 -.1002E+04
+ 23 10 -.3428E+04 -.2071E+04
+ 23 11 .2429E+04 .4208E+04
+ 23 12 .1094E+04 -.3668E+04
+ 23 13 -.1017E+04 -.2383E+04
+ 23 14 .2007E+04 .4851E+04
+ 23 15 .1730E+04 .9467E+03
+ 23 16 -.2142E+04 -.6473E+03
+ 23 17 -.4933E+04 -.8053E+02
+ 23 18 -.2507E+04 -.1881E+04
+ 23 19 -.1948E+02 .1186E+04
+ 23 20 .4752E+04 -.2282E+04
+ 23 21 -.2760E+04 -.2397E+04
+ 23 22 .5323E+03 -.4986E+04
+ 23 23 .1323E+03 -.4827E+00
+ 24 0 -.2222E+04 .0000E+00
+ 24 1 -.7804E+03 .5730E+03
+ 24 2 .1762E+04 -.2138E+04
+ 24 3 .1093E+04 -.4279E+03
+ 24 4 -.1161E+04 -.1414E+04
+ 24 5 .4595E+04 -.7883E+03
+ 24 6 .1722E+04 -.2087E+04
+ 24 7 -.1434E+04 .3487E+04
+ 24 8 .3651E+04 -.4933E+03
+ 24 9 -.6363E+04 -.1923E+04
+ 24 10 -.3497E+03 .6475E+03
+ 24 11 .3207E+04 -.4144E+04
+ 24 12 -.4512E+04 -.5677E+03
+ 24 13 -.6676E+01 .2926E+03
+ 24 14 .2113E+04 .2292E+04
+ 24 15 -.5653E+04 -.3793E+04
+ 24 16 -.4565E+04 -.2336E+04
+ 24 17 .4418E+04 -.1858E+04
+ 24 18 .3989E+04 .1491E+04
+ 24 19 .3333E+04 .3835E+03
+ 24 20 .8693E+03 .9272E+03
+ 24 21 -.6022E+04 .7927E+04
+ 24 22 -.1455E+04 -.2101E+04
+ 24 23 .7891E+02 .3569E+04
+ 24 24 .7562E+03 -.1814E+04
+ 25 0 -.1052E+04 .0000E+00
+ 25 1 .1763E+04 -.3830E+03
+ 25 2 .1572E+04 .3010E+03
+ 25 3 -.9117E+03 .1763E+04
+ 25 4 .8151E+03 .1932E+03
+ 25 5 .2534E+04 -.5311E+03
+ 25 6 -.2292E+04 .2671E+04
+ 25 7 .5821E+03 .1275E+04
+ 25 8 -.3252E+04 -.3944E+04
+ 25 9 -.2148E+04 .5193E+03
+ 25 10 .4577E+04 -.2426E+04
+ 25 11 -.2383E+04 -.1362E+04
+ 25 12 -.3480E+04 .4850E+04
+ 25 13 .1821E+04 -.2100E+04
+ 25 14 -.2655E+04 -.2040E+04
+ 25 15 -.4564E+04 -.1250E+03
+ 25 16 .4225E+04 -.3523E+03
+ 25 17 .2217E+04 .1429E+04
+ 25 18 -.1770E+04 -.8400E+02
+ 25 19 -.4816E+04 .4903E+03
+ 25 20 -.2381E+04 -.5694E+03
+ 25 21 .8225E+02 -.2352E+04
+ 25 22 .5546E+04 -.6687E+04
+ 25 23 .1361E+03 .1875E+04
+ 25 24 .2489E+03 -.8406E+03
+ 25 25 -.1561E+04 .1917E+04
+ 217.500000000000000
+ 0 0 .7711E+05 .0000E+00
+ 1 0 .1078E+05 .0000E+00
+ 1 1 -.6652E+05 .3499E+05
+ 2 0 -.4568E+05 .0000E+00
+ 2 1 -.1035E+05 .2044E+05
+ 2 2 .1840E+04 -.6925E+05
+ 3 0 -.2217E+04 .0000E+00
+ 3 1 .2028E+05 -.2511E+05
+ 3 2 -.7679E+04 -.3997E+04
+ 3 3 .2161E+04 .6278E+05
+ 4 0 .1389E+05 .0000E+00
+ 4 1 -.1857E+05 -.1218E+05
+ 4 2 .1339E+05 .3492E+05
+ 4 3 .2290E+05 .7418E+04
+ 4 4 -.1761E+05 -.1521E+05
+ 5 0 -.9204E+04 .0000E+00
+ 5 1 -.1315E+05 .8479E+04
+ 5 2 .2958E+05 .2932E+04
+ 5 3 -.2857E+05 -.2029E+05
+ 5 4 -.3459E+05 -.1986E+05
+ 5 5 .4277E+05 -.1091E+05
+ 6 0 -.1185E+05 .0000E+00
+ 6 1 .1675E+05 -.9131E+04
+ 6 2 .6669E+03 -.1912E+05
+ 6 3 -.1910E+05 -.3755E+04
+ 6 4 .1845E+05 -.4911E+04
+ 6 5 .3260E+05 -.1601E+05
+ 6 6 -.2240E+05 .7052E+04
+ 7 0 .3871E+04 .0000E+00
+ 7 1 .1188E+05 -.2562E+04
+ 7 2 -.8479E+04 .8188E+04
+ 7 3 .1566E+05 .7465E+04
+ 7 4 .1193E+05 -.7961E+04
+ 7 5 -.5367E+04 .6577E+04
+ 7 6 -.2369E+05 .4339E+05
+ 7 7 -.7788E+04 -.2250E+05
+ 8 0 .2072E+04 .0000E+00
+ 8 1 .2272E+04 .1930E+05
+ 8 2 .6088E+04 .1684E+05
+ 8 3 -.2855E+04 -.4564E+04
+ 8 4 -.9809E+04 .1119E+05
+ 8 5 -.8263E+04 .2044E+05
+ 8 6 .1382E+05 -.8051E+03
+ 8 7 .9136E+04 -.2706E+05
+ 8 8 .1228E+05 .3078E+05
+ 9 0 -.7098E+04 .0000E+00
+ 9 1 .7655E+04 .9053E+04
+ 9 2 -.9415E+04 -.7145E+04
+ 9 3 -.1484E+05 -.7634E+04
+ 9 4 .5771E+04 .1688E+05
+ 9 5 .1299E+05 -.6190E+04
+ 9 6 -.5304E+04 -.1451E+05
+ 9 7 -.6021E+04 -.3086E+03
+ 9 8 .2255E+05 .1468E+05
+ 9 9 -.1256E+05 .1618E+04
+ 10 0 .5614E+04 .0000E+00
+ 10 1 .9014E+04 -.1690E+05
+ 10 2 -.1816E+05 -.7605E+04
+ 10 3 .4375E+04 .2148E+04
+ 10 4 .1278E+05 -.6058E+04
+ 10 5 -.6348E+04 -.9816E+04
+ 10 6 -.1299E+05 .2189E+04
+ 10 7 .2239E+05 .1392E+05
+ 10 8 -.7509E+04 .2414E+04
+ 10 9 -.3350E+05 -.8775E+04
+ 10 10 .1323E+05 -.1919E+05
+ 11 0 .1686E+05 .0000E+00
+ 11 1 -.9427E+04 -.1160E+05
+ 11 2 -.4157E+04 .3923E+04
+ 11 3 .1350E+05 -.7828E+04
+ 11 4 -.4639E+04 -.6769E+04
+ 11 5 -.1360E+05 .6289E+04
+ 11 6 .6699E+04 .9871E+04
+ 11 7 -.9027E+04 -.1685E+05
+ 11 8 -.2448E+05 .1355E+03
+ 11 9 -.6845E+04 -.5071E+04
+ 11 10 .1235E+05 -.6383E+04
+ 11 11 .1663E+03 .1387E+04
+ 12 0 .4663E+04 .0000E+00
+ 12 1 -.1751E+05 .1352E+05
+ 12 2 .6847E+04 -.4482E+04
+ 12 3 .4822E+03 -.4452E+04
+ 12 4 -.1212E+05 .6623E+04
+ 12 5 .3117E+04 .3546E+04
+ 12 6 -.1238E+04 -.1696E+05
+ 12 7 -.1411E+05 -.1175E+05
+ 12 8 .1221E+05 .1897E+05
+ 12 9 .1650E+05 -.1954E+05
+ 12 10 .1572E+05 .1534E+05
+ 12 11 -.1143E+05 .1719E+05
+ 12 12 -.1572E+05 .1971E+04
+ 13 0 -.6773E+04 .0000E+00
+ 13 1 -.2346E+04 .9207E+04
+ 13 2 .7453E+04 -.1059E+05
+ 13 3 .1484E+04 .1348E+05
+ 13 4 .2331E+04 .1054E+05
+ 13 5 .9947E+04 -.1225E+05
+ 13 6 -.7673E+04 -.5900E+04
+ 13 7 .1643E+05 .1879E+05
+ 13 8 .1802E+05 -.4686E+04
+ 13 9 -.9338E+04 .3470E+03
+ 13 10 -.8869E+04 .1221E+05
+ 13 11 -.1122E+05 -.1239E+05
+ 13 12 .2140E+05 -.2094E+05
+ 13 13 .1301E+05 .7695E+04
+ 14 0 -.4021E+04 .0000E+00
+ 14 1 .2541E+04 -.6796E+04
+ 14 2 .7731E+02 .3954E+04
+ 14 3 .1199E+05 .1107E+05
+ 14 4 .2573E+04 -.3301E+04
+ 14 5 .6065E+04 -.6199E+04
+ 14 6 .1135E+04 .1731E+05
+ 14 7 .2631E+05 .6645E+04
+ 14 8 -.2447E+05 -.6914E+04
+ 14 9 -.7503E+04 .1045E+05
+ 14 10 .1701E+05 -.1451E+05
+ 14 11 -.5642E+04 -.2165E+04
+ 14 12 .1390E+05 -.1755E+05
+ 14 13 -.3895E+04 .2277E+05
+ 14 14 -.4359E+04 .3353E+04
+ 15 0 -.6122E+04 .0000E+00
+ 15 1 -.4616E+04 -.3896E+04
+ 15 2 .3619E+04 .9233E+04
+ 15 3 -.3087E+04 -.1095E+04
+ 15 4 -.1048E+05 -.9078E+04
+ 15 5 -.3139E+04 .5608E+04
+ 15 6 .7919E+04 .4049E+04
+ 15 7 -.7232E+04 -.1475E+05
+ 15 8 -.1949E+05 .1058E+05
+ 15 9 .2508E+05 -.1147E+05
+ 15 10 -.4662E+04 -.9597E+04
+ 15 11 -.8009E+04 .5988E+04
+ 15 12 .1039E+05 .1260E+04
+ 15 13 -.4765E+04 .2452E+05
+ 15 14 -.1010E+05 -.2006E+05
+ 15 15 .9932E+04 -.1734E+05
+ 16 0 -.1001E+05 .0000E+00
+ 16 1 -.6681E+03 -.1969E+04
+ 16 2 .4755E+04 -.3599E+04
+ 16 3 -.1706E+05 -.6700E+04
+ 16 4 -.3184E+04 -.2597E+04
+ 16 5 .1165E+04 .4350E+04
+ 16 6 -.5152E+04 -.8264E+04
+ 16 7 -.2167E+05 .1496E+04
+ 16 8 .9645E+04 .7243E+04
+ 16 9 .3473E+04 -.2948E+05
+ 16 10 -.8787E+04 .2039E+05
+ 16 11 .1706E+05 .1503E+05
+ 16 12 -.3313E+04 .2158E+04
+ 16 13 .5507E+04 .9965E+04
+ 16 14 -.2038E+05 -.3200E+04
+ 16 15 .2785E+04 .1139E+05
+ 16 16 -.1314E+05 .1114E+05
+ 17 0 .2711E+02 .0000E+00
+ 17 1 .1108E+05 -.7034E+04
+ 17 2 .1656E+04 -.2974E+04
+ 17 3 -.5100E+04 .2256E+04
+ 17 4 .8738E+04 -.1755E+04
+ 17 5 -.6583E+02 .1651E+03
+ 17 6 -.1363E+05 -.1036E+03
+ 17 7 .4986E+04 .1078E+05
+ 17 8 .1108E+05 -.1222E+05
+ 17 9 -.1116E+05 .9516E+04
+ 17 10 .5364E+04 .3253E+05
+ 17 11 -.4740E+04 -.1095E+05
+ 17 12 -.2040E+05 -.2910E+04
+ 17 13 -.6366E+04 .2764E+03
+ 17 14 -.6614E+04 -.1863E+05
+ 17 15 .3314E+05 -.2659E+03
+ 17 16 -.2614E+03 -.1797E+04
+ 17 17 -.1659E+03 -.3751E+04
+ 18 0 .1171E+05 .0000E+00
+ 18 1 .1047E+05 .3877E+03
+ 18 2 .3476E+04 .1096E+05
+ 18 3 .3768E+04 .2714E+04
+ 18 4 .3277E+04 -.1552E+04
+ 18 5 -.3897E+04 .1226E+03
+ 18 6 .2681E+04 .2953E+04
+ 18 7 .1837E+05 -.2025E+04
+ 18 8 -.1150E+05 -.7093E+04
+ 18 9 .7145E+04 .2637E+05
+ 18 10 -.2376E+04 -.9105E+04
+ 18 11 -.1870E+05 -.1537E+05
+ 18 12 .1500E+04 .3554E+04
+ 18 13 .1758E+05 -.1328E+05
+ 18 14 .1254E+05 .4362E+04
+ 18 15 .1076E+04 .9010E+04
+ 18 16 -.2924E+05 .7215E+04
+ 18 17 .2233E+03 .4255E+03
+ 18 18 .4923E+04 .8815E+04
+ 19 0 .6721E+04 .0000E+00
+ 19 1 -.1006E+04 .1411E+05
+ 19 2 -.8282E+04 .6652E+04
+ 19 3 -.2815E+04 -.8789E+04
+ 19 4 .1778E+04 -.4530E+04
+ 19 5 .5643E+04 .3907E+04
+ 19 6 .1218E+05 -.6678E+04
+ 19 7 -.3515E+04 -.2662E+04
+ 19 8 -.6078E+04 .4375E+04
+ 19 9 .1196E+05 -.7722E+04
+ 19 10 -.1692E+05 -.1976E+05
+ 19 11 .7567E+04 -.6518E+04
+ 19 12 .3043E+05 .2248E+04
+ 19 13 -.6350E+04 -.6706E+03
+ 19 14 -.1943E+05 .1298E+05
+ 19 15 -.9005E+04 -.5526E+04
+ 19 16 -.1886E+05 .2034E+04
+ 19 17 .2310E+05 -.3660E+05
+ 19 18 .7425E+04 -.5038E+04
+ 19 19 .5868E+04 -.1110E+05
+ 20 0 -.7465E+04 .0000E+00
+ 20 1 -.6505E+04 .7019E+04
+ 20 2 -.1170E+05 -.1134E+05
+ 20 3 .1093E+04 -.7214E+04
+ 20 4 .9474E+04 .4397E+04
+ 20 5 .7356E+03 .3566E+04
+ 20 6 -.2607E+04 -.6473E+04
+ 20 7 -.9308E+04 .8501E+04
+ 20 8 .9522E+04 -.8051E+04
+ 20 9 -.4419E+04 -.1526E+05
+ 20 10 -.5716E+04 .1164E+05
+ 20 11 .1790E+05 -.8947E+04
+ 20 12 -.4044E+04 .2999E+04
+ 20 13 -.2547E+05 .1634E+03
+ 20 14 .8670E+04 -.8387E+03
+ 20 15 .1084E+05 -.1489E+05
+ 20 16 .1280E+05 -.2473E+04
+ 20 17 .1920E+05 -.4594E+04
+ 20 18 -.1203E+05 .4332E+05
+ 20 19 -.1240E+05 .5276E+04
+ 20 20 -.4284E+04 .5465E+04
+ 21 0 -.4395E+04 .0000E+00
+ 21 1 .4927E+03 -.1112E+05
+ 21 2 -.9235E+03 -.7455E+04
+ 21 3 .9226E+04 .2639E+04
+ 21 4 .2729E+04 .1277E+05
+ 21 5 -.1100E+05 -.1546E+04
+ 21 6 -.8377E+04 .7217E+04
+ 21 7 .5976E+04 .3856E+04
+ 21 8 -.2014E+04 -.9823E+04
+ 21 9 -.1135E+05 .1430E+05
+ 21 10 .1409E+05 .5962E+04
+ 21 11 -.3234E+04 -.7709E+04
+ 21 12 -.1008E+05 .1361E+05
+ 21 13 -.1247E+04 .8217E+04
+ 21 14 .1204E+05 -.1731E+05
+ 21 15 .1438E+03 -.3637E+04
+ 21 16 .5520E+04 .1415E+05
+ 21 17 -.1310E+05 .2480E+04
+ 21 18 .1332E+05 .1049E+05
+ 21 19 -.1015E+05 -.2459E+05
+ 21 20 .1267E+05 -.4598E+04
+ 21 21 -.8197E+04 -.3870E+04
+ 22 0 .9531E+04 .0000E+00
+ 22 1 .7910E+03 -.6766E+04
+ 22 2 .1481E+04 .6545E+04
+ 22 3 .2476E+04 .6529E+04
+ 22 4 -.9417E+04 .2316E+04
+ 22 5 -.1197E+05 -.5540E+04
+ 22 6 .5390E+04 .8793E+04
+ 22 7 .1776E+04 -.1213E+05
+ 22 8 -.8415E+04 .6157E+04
+ 22 9 .1264E+05 .1712E+05
+ 22 10 .3836E+04 -.1213E+05
+ 22 11 -.8859E+04 .1426E+05
+ 22 12 .7089E+04 .9987E+04
+ 22 13 .4740E+04 -.9077E+04
+ 22 14 .5334E+04 -.4113E+04
+ 22 15 -.2187E+04 .2338E+05
+ 22 16 .6033E+04 .3141E+04
+ 22 17 -.3918E+04 .1649E+03
+ 22 18 .2829E+04 -.1444E+04
+ 22 19 -.2541E+05 -.1238E+05
+ 22 20 .2292E+05 .1580E+05
+ 22 21 -.9232E+04 .1082E+05
+ 22 22 .7019E+04 .5029E+04
+ 23 0 .4919E+04 .0000E+00
+ 23 1 -.9987E+04 .5784E+04
+ 23 2 .2954E+04 .8945E+03
+ 23 3 .1499E+04 -.1479E+04
+ 23 4 -.9587E+04 -.5101E+04
+ 23 5 .5315E+03 -.2813E+04
+ 23 6 .1222E+05 -.6060E+04
+ 23 7 -.9181E+04 -.6906E+04
+ 23 8 .1221E+05 .1271E+05
+ 23 9 .3434E+04 -.3384E+04
+ 23 10 -.1157E+05 -.6991E+04
+ 23 11 .8199E+04 .1420E+05
+ 23 12 .3692E+04 -.1238E+05
+ 23 13 -.3433E+04 -.8044E+04
+ 23 14 .6774E+04 .1638E+05
+ 23 15 .5840E+04 .3196E+04
+ 23 16 -.7230E+04 -.2185E+04
+ 23 17 -.1665E+05 -.2719E+03
+ 23 18 -.8464E+04 -.6349E+04
+ 23 19 -.6577E+02 .4005E+04
+ 23 20 .1604E+05 -.7703E+04
+ 23 21 -.9319E+04 -.8092E+04
+ 23 22 .1797E+04 -.1683E+05
+ 23 23 .4467E+03 -.1630E+01
+ 24 0 -.7502E+04 .0000E+00
+ 24 1 -.2635E+04 .1935E+04
+ 24 2 .5948E+04 -.7217E+04
+ 24 3 .3688E+04 -.1444E+04
+ 24 4 -.3919E+04 -.4773E+04
+ 24 5 .1551E+05 -.2661E+04
+ 24 6 .5812E+04 -.7045E+04
+ 24 7 -.4841E+04 .1177E+05
+ 24 8 .1232E+05 -.1665E+04
+ 24 9 -.2148E+05 -.6493E+04
+ 24 10 -.1181E+04 .2186E+04
+ 24 11 .1083E+05 -.1399E+05
+ 24 12 -.1523E+05 -.1917E+04
+ 24 13 -.2254E+02 .9876E+03
+ 24 14 .7134E+04 .7736E+04
+ 24 15 -.1909E+05 -.1280E+05
+ 24 16 -.1541E+05 -.7886E+04
+ 24 17 .1491E+05 -.6271E+04
+ 24 18 .1347E+05 .5033E+04
+ 24 19 .1125E+05 .1295E+04
+ 24 20 .2935E+04 .3130E+04
+ 24 21 -.2033E+05 .2676E+05
+ 24 22 -.4913E+04 -.7093E+04
+ 24 23 .2664E+03 .1205E+05
+ 24 24 .2553E+04 -.6126E+04
+ 25 0 -.3553E+04 .0000E+00
+ 25 1 .5953E+04 -.1293E+04
+ 25 2 .5308E+04 .1016E+04
+ 25 3 -.3078E+04 .5952E+04
+ 25 4 .2752E+04 .6521E+03
+ 25 5 .8555E+04 -.1793E+04
+ 25 6 -.7738E+04 .9019E+04
+ 25 7 .1965E+04 .4304E+04
+ 25 8 -.1098E+05 -.1332E+05
+ 25 9 -.7253E+04 .1753E+04
+ 25 10 .1545E+05 -.8192E+04
+ 25 11 -.8044E+04 -.4599E+04
+ 25 12 -.1175E+05 .1637E+05
+ 25 13 .6149E+04 -.7091E+04
+ 25 14 -.8963E+04 -.6886E+04
+ 25 15 -.1541E+05 -.4219E+03
+ 25 16 .1426E+05 -.1189E+04
+ 25 17 .7486E+04 .4825E+04
+ 25 18 -.5974E+04 -.2836E+03
+ 25 19 -.1626E+05 .1655E+04
+ 25 20 -.8040E+04 -.1922E+04
+ 25 21 .2777E+03 -.7942E+04
+ 25 22 .1872E+05 -.2257E+05
+ 25 23 .4596E+03 .6330E+04
+ 25 24 .8402E+03 -.2838E+04
+ 25 25 -.5270E+04 .6472E+04
+ 362.500000000000000
+ 0 0 .7706E+05 .0000E+00
+ 1 0 .1076E+05 .0000E+00
+ 1 1 -.6950E+05 .3765E+05
+ 2 0 -.4585E+05 .0000E+00
+ 2 1 -.1012E+05 .2011E+05
+ 2 2 .5185E+04 -.7012E+05
+ 3 0 -.3277E+02 .0000E+00
+ 3 1 .2041E+05 -.2663E+05
+ 3 2 -.5994E+04 -.3716E+04
+ 3 3 .3104E+04 .6405E+05
+ 4 0 .1432E+05 .0000E+00
+ 4 1 -.1945E+05 -.1273E+05
+ 4 2 .1361E+05 .3548E+05
+ 4 3 .2245E+05 .7347E+04
+ 4 4 -.1926E+05 -.1833E+05
+ 5 0 -.1224E+05 .0000E+00
+ 5 1 -.1457E+05 .1065E+05
+ 5 2 .2944E+05 .4077E+03
+ 5 3 -.3172E+05 -.2047E+05
+ 5 4 -.3466E+05 -.2179E+05
+ 5 5 .4263E+05 -.1127E+05
+ 6 0 -.1181E+05 .0000E+00
+ 6 1 .1728E+05 -.7809E+04
+ 6 2 .9174E+03 -.1923E+05
+ 6 3 -.2075E+05 -.2243E+04
+ 6 4 .2070E+05 -.3979E+04
+ 6 5 .3323E+05 -.1595E+05
+ 6 6 -.2371E+05 .9180E+04
+ 7 0 .4224E+04 .0000E+00
+ 7 1 .1329E+05 -.5235E+04
+ 7 2 -.6644E+04 .9991E+04
+ 7 3 .1766E+05 .7537E+04
+ 7 4 .1421E+05 -.6603E+04
+ 7 5 -.4439E+04 .8677E+04
+ 7 6 -.2568E+05 .4483E+05
+ 7 7 -.6069E+04 -.2103E+05
+ 8 0 .1232E+04 .0000E+00
+ 8 1 .3053E+04 .1822E+05
+ 8 2 .5159E+04 .1712E+05
+ 8 3 -.1866E+04 -.5758E+04
+ 8 4 -.1167E+05 .1183E+05
+ 8 5 -.7706E+04 .2126E+05
+ 8 6 .1259E+05 -.2614E+04
+ 8 7 .1081E+05 -.2664E+05
+ 8 8 .1351E+05 .3098E+05
+ 9 0 -.6620E+04 .0000E+00
+ 9 1 .8820E+04 .9053E+04
+ 9 2 -.1059E+05 -.6956E+04
+ 9 3 -.1826E+05 -.6391E+04
+ 9 4 .5515E+04 .1521E+05
+ 9 5 .1035E+05 -.7674E+04
+ 9 6 -.5892E+04 -.1834E+05
+ 9 7 -.4644E+04 -.1571E+04
+ 9 8 .2337E+05 .1660E+05
+ 9 9 -.1436E+05 -.1518E+04
+ 10 0 .6644E+04 .0000E+00
+ 10 1 .7703E+04 -.1558E+05
+ 10 2 -.1925E+05 -.7680E+04
+ 10 3 .3893E+04 .5803E+03
+ 10 4 .1403E+05 -.6544E+04
+ 10 5 -.7719E+04 -.1315E+05
+ 10 6 -.1123E+05 .5820E+04
+ 10 7 .2225E+05 .1392E+05
+ 10 8 -.1013E+05 .6082E+04
+ 10 9 -.3634E+05 -.1300E+05
+ 10 10 .1287E+05 -.2064E+05
+ 11 0 .1831E+05 .0000E+00
+ 11 1 -.1026E+05 -.9332E+04
+ 11 2 -.3296E+04 .3971E+04
+ 11 3 .1442E+05 -.8605E+04
+ 11 4 -.2773E+04 -.6696E+04
+ 11 5 -.1253E+05 .8606E+04
+ 11 6 .6986E+04 .1157E+05
+ 11 7 -.8122E+04 -.1742E+05
+ 11 8 -.2701E+05 .1130E+04
+ 11 9 -.7634E+04 -.7912E+04
+ 11 10 .1399E+05 -.7527E+04
+ 11 11 .3707E+03 .5555E+04
+ 12 0 .3587E+04 .0000E+00
+ 12 1 -.1634E+05 .1199E+05
+ 12 2 .7453E+04 -.5511E+04
+ 12 3 .3779E+04 -.3802E+04
+ 12 4 -.1177E+05 .9392E+04
+ 12 5 .3929E+04 .3998E+04
+ 12 6 -.1084E+04 -.1715E+05
+ 12 7 -.1559E+05 -.1112E+05
+ 12 8 .1396E+05 .1671E+05
+ 12 9 .1688E+05 -.1846E+05
+ 12 10 .1936E+05 .1573E+05
+ 12 11 -.1242E+05 .2085E+05
+ 12 12 -.1579E+05 .1783E+04
+ 13 0 -.8207E+04 .0000E+00
+ 13 1 -.2353E+04 .8411E+04
+ 13 2 .4028E+04 -.1097E+05
+ 13 3 .3171E+04 .1462E+05
+ 13 4 -.3141E+03 .8046E+04
+ 13 5 .1009E+05 -.1063E+05
+ 13 6 -.8791E+04 -.8859E+04
+ 13 7 .1843E+05 .2004E+05
+ 13 8 .1977E+05 -.6385E+04
+ 13 9 -.1079E+05 .8298E+03
+ 13 10 -.6406E+04 .1070E+05
+ 13 11 -.1205E+05 -.1327E+05
+ 13 12 .2339E+05 -.2158E+05
+ 13 13 .1577E+05 .6092E+04
+ 14 0 -.3004E+04 .0000E+00
+ 14 1 .9647E+03 -.6722E+04
+ 14 2 .1536E+04 .5027E+04
+ 14 3 .9670E+04 .1157E+05
+ 14 4 .7711E+03 -.3317E+04
+ 14 5 .3652E+04 -.6718E+04
+ 14 6 .2948E+04 .1748E+05
+ 14 7 .2401E+05 .6226E+04
+ 14 8 -.2462E+05 -.8330E+04
+ 14 9 -.7304E+04 .1220E+05
+ 14 10 .1645E+05 -.1414E+05
+ 14 11 -.5323E+04 -.2223E+04
+ 14 12 .1529E+05 -.1805E+05
+ 14 13 -.3280E+04 .2335E+05
+ 14 14 -.6659E+04 .3366E+04
+ 15 0 -.5423E+04 .0000E+00
+ 15 1 -.6270E+04 -.4233E+04
+ 15 2 .6564E+04 .8917E+04
+ 15 3 -.4237E+04 -.3371E+04
+ 15 4 -.1004E+05 -.6683E+04
+ 15 5 -.2119E+04 .4242E+04
+ 15 6 .6349E+04 .5621E+04
+ 15 7 -.6943E+04 -.1534E+05
+ 15 8 -.2132E+05 .1299E+05
+ 15 9 .2647E+05 -.1139E+05
+ 15 10 -.5610E+04 -.9722E+04
+ 15 11 -.6604E+04 .6613E+04
+ 15 12 .1025E+05 .7356E+03
+ 15 13 -.6647E+04 .2862E+05
+ 15 14 -.1276E+05 -.2092E+05
+ 15 15 .8743E+04 -.1788E+05
+ 16 0 -.9977E+04 .0000E+00
+ 16 1 .6405E+03 -.1419E+04
+ 16 2 .5545E+04 -.3876E+04
+ 16 3 -.1804E+05 -.5416E+04
+ 16 4 -.2752E+04 -.3787E+04
+ 16 5 .1785E+04 .2959E+04
+ 16 6 -.4661E+04 -.8652E+04
+ 16 7 -.2048E+05 .2090E+04
+ 16 8 .1030E+05 .6240E+04
+ 16 9 .4675E+04 -.2730E+05
+ 16 10 -.1102E+05 .2202E+05
+ 16 11 .1560E+05 .1544E+05
+ 16 12 -.3702E+04 .3295E+04
+ 16 13 .4394E+04 .1404E+05
+ 16 14 -.2358E+05 -.3810E+04
+ 16 15 .2194E+04 .1080E+05
+ 16 16 -.1293E+05 .1327E+05
+ 17 0 -.1397E+04 .0000E+00
+ 17 1 .1240E+05 -.7291E+04
+ 17 2 .7492E+03 -.3003E+04
+ 17 3 -.3360E+04 .2697E+04
+ 17 4 .8951E+04 -.2771E+04
+ 17 5 .1670E+04 .6022E+03
+ 17 6 -.1266E+05 -.8445E+03
+ 17 7 .5556E+04 .1182E+05
+ 17 8 .9937E+04 -.1257E+05
+ 17 9 -.1338E+05 .9227E+04
+ 17 10 .6611E+04 .3092E+05
+ 17 11 -.5633E+04 -.1282E+05
+ 17 12 -.1968E+05 -.2871E+04
+ 17 13 -.5866E+04 -.1033E+04
+ 17 14 -.9814E+04 -.1968E+05
+ 17 15 .3670E+05 -.2861E+04
+ 17 16 .9919E+03 -.1423E+04
+ 17 17 .1175E+04 -.4870E+04
+ 18 0 .9949E+04 .0000E+00
+ 18 1 .1059E+05 .1369E+04
+ 18 2 .1113E+04 .1085E+05
+ 18 3 .3774E+04 .2296E+04
+ 18 4 .3913E+04 -.3413E+04
+ 18 5 -.2184E+04 .2658E+04
+ 18 6 .2623E+04 .2776E+04
+ 18 7 .1613E+05 -.1547E+04
+ 18 8 -.1088E+05 -.8180E+04
+ 18 9 .6740E+04 .2394E+05
+ 18 10 -.9617E+03 -.1005E+05
+ 18 11 -.1977E+05 -.1766E+05
+ 18 12 .2422E+04 .4180E+04
+ 18 13 .1772E+05 -.1342E+05
+ 18 14 .9636E+04 .4769E+04
+ 18 15 .3674E+04 .5022E+04
+ 18 16 -.2884E+05 .5952E+04
+ 18 17 .1123E+04 .6692E+03
+ 18 18 .7130E+04 .8363E+04
+ 19 0 .7505E+04 .0000E+00
+ 19 1 -.3343E+03 .1386E+05
+ 19 2 -.6445E+04 .7005E+04
+ 19 3 -.4908E+04 -.7339E+04
+ 19 4 .3049E+04 -.1310E+04
+ 19 5 .2394E+04 .3829E+04
+ 19 6 .1037E+05 -.5883E+04
+ 19 7 -.3934E+04 -.4625E+04
+ 19 8 -.4646E+04 .3900E+04
+ 19 9 .1308E+05 -.7975E+04
+ 19 10 -.1584E+05 -.1896E+05
+ 19 11 .8448E+04 -.4296E+04
+ 19 12 .2894E+05 .2111E+04
+ 19 13 -.5827E+04 -.2494E+04
+ 19 14 -.1845E+05 .1030E+05
+ 19 15 -.8318E+04 -.8832E+04
+ 19 16 -.1617E+05 .2282E+04
+ 19 17 .2319E+05 -.3618E+05
+ 19 18 .8480E+04 -.5408E+04
+ 19 19 .2996E+04 -.1136E+05
+ 20 0 -.4886E+04 .0000E+00
+ 20 1 -.6415E+04 .4893E+04
+ 20 2 -.1178E+05 -.9981E+04
+ 20 3 .1253E+04 -.8428E+04
+ 20 4 .9304E+04 .5020E+04
+ 20 5 .1319E+03 .2425E+04
+ 20 6 -.3509E+04 -.5573E+04
+ 20 7 -.7409E+04 .8800E+04
+ 20 8 .9984E+04 -.6292E+04
+ 20 9 -.5212E+04 -.1177E+05
+ 20 10 -.4994E+04 .1081E+05
+ 20 11 .1668E+05 -.7357E+04
+ 20 12 -.2532E+04 .1568E+04
+ 20 13 -.2545E+05 .1395E+04
+ 20 14 .1032E+05 -.6622E+03
+ 20 15 .9486E+04 -.1261E+05
+ 20 16 .1565E+05 .3686E+03
+ 20 17 .1666E+05 -.3142E+04
+ 20 18 -.1376E+05 .4651E+05
+ 20 19 -.1390E+05 .5680E+04
+ 20 20 -.5807E+04 .5449E+04
+ 21 0 -.3692E+04 .0000E+00
+ 21 1 -.7882E+02 -.1043E+05
+ 21 2 -.2818E+04 -.7286E+04
+ 21 3 .9546E+04 .1312E+04
+ 21 4 .9776E+03 .1011E+05
+ 21 5 -.1038E+05 -.2599E+04
+ 21 6 -.7495E+04 .6784E+04
+ 21 7 .6684E+04 .4838E+04
+ 21 8 -.2944E+04 -.1018E+05
+ 21 9 -.1089E+05 .1611E+05
+ 21 10 .1304E+05 .4690E+04
+ 21 11 -.3569E+04 -.5968E+04
+ 21 12 -.9616E+04 .1508E+05
+ 21 13 -.1526E+04 .6536E+04
+ 21 14 .1510E+05 -.1531E+05
+ 21 15 -.3440E+03 -.1899E+04
+ 21 16 .5665E+04 .1396E+05
+ 21 17 -.1351E+05 .2395E+04
+ 21 18 .1447E+05 .1235E+05
+ 21 19 -.8848E+04 -.2537E+05
+ 21 20 .1039E+05 -.4946E+04
+ 21 21 -.7299E+04 -.2103E+04
+ 22 0 .7922E+04 .0000E+00
+ 22 1 -.2825E+03 -.4787E+04
+ 22 2 .1516E+04 .4161E+04
+ 22 3 .4037E+04 .5806E+04
+ 22 4 -.8324E+04 .3381E+04
+ 22 5 -.1195E+05 -.4709E+04
+ 22 6 .4870E+04 .7722E+04
+ 22 7 .5862E+03 -.1294E+05
+ 22 8 -.8840E+04 .4846E+04
+ 22 9 .1153E+05 .1574E+05
+ 22 10 .3659E+04 -.1288E+05
+ 22 11 -.8670E+04 .1360E+05
+ 22 12 .7966E+04 .9533E+04
+ 22 13 .4581E+04 -.8801E+04
+ 22 14 .3696E+04 -.3202E+04
+ 22 15 -.1770E+04 .2417E+05
+ 22 16 .3868E+04 .3758E+04
+ 22 17 -.1679E+04 .1997E+04
+ 22 18 .2646E+04 -.6889E+03
+ 22 19 -.2702E+05 -.1134E+05
+ 22 20 .2222E+05 .1576E+05
+ 22 21 -.7784E+04 .1143E+05
+ 22 22 .9818E+04 .4680E+04
+ 23 0 .4231E+04 .0000E+00
+ 23 1 -.9306E+04 .6105E+04
+ 23 2 .2777E+04 .5264E+03
+ 23 3 .2256E+04 .7051E+03
+ 23 4 -.8154E+04 -.5460E+04
+ 23 5 -.5189E+03 -.3447E+04
+ 23 6 .1450E+05 -.5884E+04
+ 23 7 -.8730E+04 -.8079E+04
+ 23 8 .1226E+05 .1431E+05
+ 23 9 .4098E+04 -.5745E+04
+ 23 10 -.1363E+05 -.5416E+04
+ 23 11 .8661E+04 .1092E+05
+ 23 12 .1602E+04 -.1128E+05
+ 23 13 -.3658E+04 -.8984E+04
+ 23 14 .6851E+04 .1571E+05
+ 23 15 .5964E+04 .5580E+04
+ 23 16 -.8888E+04 -.4281E+04
+ 23 17 -.1539E+05 -.1803E+04
+ 23 18 -.9302E+04 -.7875E+04
+ 23 19 -.1794E+04 .4498E+04
+ 23 20 .1734E+05 -.1141E+05
+ 23 21 -.9517E+04 -.1056E+05
+ 23 22 .4045E+04 -.1628E+05
+ 23 23 .1848E+03 -.7558E+03
+ 24 0 -.6588E+04 .0000E+00
+ 24 1 -.2902E+04 .1061E+04
+ 24 2 .7520E+04 -.5435E+04
+ 24 3 .3804E+04 -.3109E+03
+ 24 4 -.4666E+04 -.4301E+04
+ 24 5 .1491E+05 -.1781E+04
+ 24 6 .7339E+04 -.6527E+04
+ 24 7 -.3637E+04 .1244E+05
+ 24 8 .1133E+05 -.1089E+04
+ 24 9 -.2062E+05 -.7010E+04
+ 24 10 -.6358E+03 .1692E+04
+ 24 11 .1063E+05 -.1208E+05
+ 24 12 -.1419E+05 -.3580E+04
+ 24 13 .5321E+03 .3484E+04
+ 24 14 .4543E+04 .5860E+04
+ 24 15 -.1986E+05 -.1241E+05
+ 24 16 -.1633E+05 -.9398E+04
+ 24 17 .1210E+05 -.7038E+04
+ 24 18 .1354E+05 .6008E+04
+ 24 19 .9642E+04 .1217E+04
+ 24 20 .1965E+04 .1475E+04
+ 24 21 -.2131E+05 .2777E+05
+ 24 22 -.3864E+04 -.5288E+04
+ 24 23 -.2586E+03 .1083E+05
+ 24 24 -.2366E+03 -.8191E+04
+ 25 0 -.3005E+04 .0000E+00
+ 25 1 .4326E+04 -.2677E+04
+ 25 2 .5881E+04 .1690E+04
+ 25 3 -.3314E+04 .3268E+04
+ 25 4 .1014E+04 .1303E+04
+ 25 5 .1121E+05 .2514E+03
+ 25 6 -.8956E+04 .9539E+04
+ 25 7 .8970E+02 .6008E+04
+ 25 8 -.1099E+05 -.1318E+05
+ 25 9 -.7911E+04 .1971E+04
+ 25 10 .1798E+05 -.8768E+04
+ 25 11 -.7544E+04 -.3210E+04
+ 25 12 -.9073E+04 .1604E+05
+ 25 13 .3619E+04 -.5818E+04
+ 25 14 -.8834E+04 -.6648E+04
+ 25 15 -.1659E+05 -.8988E+03
+ 25 16 .1475E+05 -.3623E+04
+ 25 17 .8679E+04 .3914E+04
+ 25 18 -.4078E+04 .2177E+03
+ 25 19 -.1785E+05 .4351E+03
+ 25 20 -.9559E+04 -.2726E+04
+ 25 21 .2928E+04 -.8877E+04
+ 25 22 .1891E+05 -.2387E+05
+ 25 23 -.9809E+03 .5822E+04
+ 25 24 -.8407E+03 -.4136E+04
+ 25 25 -.4980E+04 .7818E+04
+ 507.500000000000000
+ 0 0 .7672E+05 .0000E+00
+ 1 0 .1122E+05 .0000E+00
+ 1 1 -.6976E+05 .3575E+05
+ 2 0 -.4472E+05 .0000E+00
+ 2 1 -.1185E+05 .1792E+05
+ 2 2 .5484E+04 -.6763E+05
+ 3 0 .1622E+04 .0000E+00
+ 3 1 .1923E+05 -.2731E+05
+ 3 2 -.4195E+04 -.1546E+04
+ 3 3 .1810E+04 .6210E+05
+ 4 0 .1380E+05 .0000E+00
+ 4 1 -.2147E+05 -.1110E+05
+ 4 2 .1329E+05 .3400E+05
+ 4 3 .2161E+05 .6382E+04
+ 4 4 -.1506E+05 -.2097E+05
+ 5 0 -.1623E+05 .0000E+00
+ 5 1 -.1421E+05 .1263E+05
+ 5 2 .3050E+05 -.2192E+04
+ 5 3 -.2913E+05 -.1812E+05
+ 5 4 -.3100E+05 -.2556E+05
+ 5 5 .4170E+05 -.5900E+04
+ 6 0 -.1203E+05 .0000E+00
+ 6 1 .2113E+05 -.7734E+04
+ 6 2 .1488E+04 -.1797E+05
+ 6 3 -.2041E+05 .1845E+03
+ 6 4 .1822E+05 -.4751E+04
+ 6 5 .3199E+05 -.1024E+05
+ 6 6 -.2830E+05 .7925E+04
+ 7 0 .6823E+04 .0000E+00
+ 7 1 .1247E+05 -.6697E+04
+ 7 2 -.7439E+04 .1286E+05
+ 7 3 .1704E+05 .5756E+04
+ 7 4 .1321E+05 -.4881E+04
+ 7 5 -.1856E+04 .9770E+04
+ 7 6 -.2973E+05 .4570E+05
+ 7 7 -.2447E+04 -.2304E+05
+ 8 0 -.1094E+03 .0000E+00
+ 8 1 .1075E+04 .1748E+05
+ 8 2 .7110E+04 .1620E+05
+ 8 3 -.3712E+04 -.8209E+04
+ 8 4 -.1248E+05 .1322E+05
+ 8 5 -.1003E+05 .1872E+05
+ 8 6 .1019E+05 -.4406E+03
+ 8 7 .1268E+05 -.3032E+05
+ 8 8 .1273E+05 .3343E+05
+ 9 0 -.6831E+04 .0000E+00
+ 9 1 .1180E+05 .8807E+04
+ 9 2 -.1102E+05 -.9325E+04
+ 9 3 -.2251E+05 -.5487E+04
+ 9 4 .6674E+04 .1404E+05
+ 9 5 .7879E+04 -.9483E+04
+ 9 6 -.6910E+03 -.1778E+05
+ 9 7 -.4251E+04 -.5820E+04
+ 9 8 .2452E+05 .1841E+05
+ 9 9 -.1486E+05 -.4246E+04
+ 10 0 .9056E+04 .0000E+00
+ 10 1 .7593E+04 -.1486E+05
+ 10 2 -.2273E+05 -.7676E+04
+ 10 3 .5724E+04 .1669E+04
+ 10 4 .1738E+05 -.8335E+04
+ 10 5 -.8261E+04 -.1246E+05
+ 10 6 -.8089E+04 .4974E+04
+ 10 7 .1773E+05 .1377E+05
+ 10 8 -.1297E+05 .7572E+04
+ 10 9 -.3901E+05 -.1613E+05
+ 10 10 .1478E+05 -.2043E+05
+ 11 0 .1802E+05 .0000E+00
+ 11 1 -.1217E+05 -.8015E+04
+ 11 2 -.1673E+04 .5464E+04
+ 11 3 .1790E+05 -.9392E+04
+ 11 4 -.3106E+04 -.5847E+04
+ 11 5 -.1234E+05 .1016E+05
+ 11 6 .7143E+04 .9899E+04
+ 11 7 -.7358E+04 -.1601E+05
+ 11 8 -.2667E+05 -.3030E+03
+ 11 9 -.5386E+04 -.9919E+04
+ 11 10 .1956E+05 -.7383E+04
+ 11 11 -.1228E+04 .8165E+04
+ 12 0 .2646E+04 .0000E+00
+ 12 1 -.1466E+05 .1111E+05
+ 12 2 .8006E+04 -.5122E+04
+ 12 3 .3058E+04 -.4504E+04
+ 12 4 -.1192E+05 .1204E+05
+ 12 5 .6560E+04 .3221E+04
+ 12 6 -.1465E+04 -.1693E+05
+ 12 7 -.1372E+05 -.1122E+05
+ 12 8 .1222E+05 .1631E+05
+ 12 9 .1754E+05 -.1743E+05
+ 12 10 .2338E+05 .1641E+05
+ 12 11 -.1655E+05 .2554E+05
+ 12 12 -.1636E+05 -.3674E+03
+ 13 0 -.7895E+04 .0000E+00
+ 13 1 -.3508E+04 .7191E+04
+ 13 2 .9539E+03 -.1103E+05
+ 13 3 .3981E+04 .1564E+05
+ 13 4 .5321E+03 .7980E+04
+ 13 5 .9034E+04 -.1121E+05
+ 13 6 -.1086E+05 -.7033E+04
+ 13 7 .1889E+05 .1875E+05
+ 13 8 .2026E+05 -.2812E+04
+ 13 9 -.8081E+04 .1892E+04
+ 13 10 -.2532E+04 .9181E+04
+ 13 11 -.1229E+05 -.1007E+05
+ 13 12 .2409E+05 -.2338E+05
+ 13 13 .1872E+05 .7887E+04
+ 14 0 -.3751E+04 .0000E+00
+ 14 1 -.1271E+04 -.6146E+04
+ 14 2 .3009E+04 .5519E+04
+ 14 3 .1062E+05 .1212E+05
+ 14 4 -.2979E+04 -.3854E+04
+ 14 5 .7426E+03 -.6595E+04
+ 14 6 .3891E+04 .1944E+05
+ 14 7 .2256E+05 .5205E+04
+ 14 8 -.2374E+05 -.5020E+04
+ 14 9 -.7985E+04 .1141E+05
+ 14 10 .1319E+05 -.1469E+05
+ 14 11 -.7004E+04 .1489E+04
+ 14 12 .9203E+04 -.1777E+05
+ 14 13 -.3665E+04 .2304E+05
+ 14 14 -.1157E+05 .2191E+04
+ 15 0 -.5658E+04 .0000E+00
+ 15 1 -.5065E+04 -.2753E+04
+ 15 2 .8169E+04 .7914E+04
+ 15 3 -.5923E+04 -.4292E+04
+ 15 4 -.1232E+05 -.6655E+04
+ 15 5 .9270E+02 .3286E+04
+ 15 6 .5699E+04 .5423E+04
+ 15 7 -.9559E+04 -.1605E+05
+ 15 8 -.2188E+05 .1266E+05
+ 15 9 .2626E+05 -.1185E+05
+ 15 10 -.8766E+04 -.9072E+04
+ 15 11 -.4932E+04 .6510E+04
+ 15 12 .6852E+04 .1349E+04
+ 15 13 -.4789E+04 .2560E+05
+ 15 14 -.1315E+05 -.2269E+05
+ 15 15 .1264E+05 -.2030E+05
+ 16 0 -.9086E+04 .0000E+00
+ 16 1 .1390E+04 -.1180E+04
+ 16 2 .5555E+04 -.5343E+04
+ 16 3 -.1748E+05 -.5469E+04
+ 16 4 -.8162E+03 -.5226E+04
+ 16 5 .2772E+04 .1220E+04
+ 16 6 -.5787E+04 -.1124E+05
+ 16 7 -.1829E+05 .2959E+04
+ 16 8 .1104E+05 .3361E+04
+ 16 9 .5810E+04 -.2537E+05
+ 16 10 -.1527E+05 .2061E+05
+ 16 11 .1354E+05 .1196E+05
+ 16 12 -.4105E+04 .4244E+04
+ 16 13 .3823E+04 .1124E+05
+ 16 14 -.2352E+05 -.4158E+04
+ 16 15 .1792E+04 .1066E+05
+ 16 16 -.1311E+05 .1777E+05
+ 17 0 -.1683E+04 .0000E+00
+ 17 1 .1282E+05 -.8718E+04
+ 17 2 .2593E+04 -.2915E+04
+ 17 3 -.2261E+04 .2811E+04
+ 17 4 .1008E+05 -.4864E+04
+ 17 5 .2540E+04 .2161E+04
+ 17 6 -.9586E+04 -.1923E+04
+ 17 7 .7983E+04 .1467E+05
+ 17 8 .7232E+04 -.1438E+05
+ 17 9 -.1444E+05 .8289E+04
+ 17 10 .6492E+04 .2714E+05
+ 17 11 -.4934E+04 -.1437E+05
+ 17 12 -.1081E+05 -.2167E+04
+ 17 13 -.6511E+04 -.1136E+04
+ 17 14 -.6863E+04 -.2102E+05
+ 17 15 .3877E+05 -.2409E+04
+ 17 16 .5228E+04 .4765E+03
+ 17 17 -.3157E+03 -.7092E+04
+ 18 0 .9724E+04 .0000E+00
+ 18 1 .1109E+05 .9324E+03
+ 18 2 .1194E+04 .1167E+05
+ 18 3 .1205E+04 .2616E+04
+ 18 4 .5189E+04 -.2772E+04
+ 18 5 -.8119E+03 .7310E+04
+ 18 6 .2185E+04 .3237E+04
+ 18 7 .1315E+05 -.3045E+03
+ 18 8 -.1097E+05 -.9652E+04
+ 18 9 .9296E+04 .2090E+05
+ 18 10 .4293E+04 -.8370E+04
+ 18 11 -.1968E+05 -.1495E+05
+ 18 12 .6697E+04 .4027E+04
+ 18 13 .1191E+05 -.1099E+05
+ 18 14 .7676E+04 .2295E+04
+ 18 15 .3225E+04 .4104E+04
+ 18 16 -.2787E+05 .6128E+04
+ 18 17 -.1965E+04 .2476E+04
+ 18 18 .7969E+04 .8974E+04
+ 19 0 .7461E+04 .0000E+00
+ 19 1 -.9757E+03 .1393E+05
+ 19 2 -.7955E+04 .7923E+04
+ 19 3 -.7238E+04 -.5792E+04
+ 19 4 .2790E+04 .2356E+04
+ 19 5 -.8289E+03 .4329E+04
+ 19 6 .6399E+04 -.5684E+04
+ 19 7 -.3278E+04 -.6958E+04
+ 19 8 .5636E+03 .5354E+04
+ 19 9 .1245E+05 -.6912E+04
+ 19 10 -.1379E+05 -.1396E+05
+ 19 11 .5026E+04 -.2365E+04
+ 19 12 .2835E+05 .2836E+03
+ 19 13 -.5419E+04 -.2668E+04
+ 19 14 -.1845E+05 .7782E+04
+ 19 15 -.2812E+04 -.9678E+04
+ 19 16 -.1324E+05 .6230E+04
+ 19 17 .2315E+05 -.3309E+05
+ 19 18 .5999E+04 -.8615E+04
+ 19 19 .1430E+04 -.1272E+05
+ 20 0 -.5066E+04 .0000E+00
+ 20 1 -.6116E+04 .4481E+04
+ 20 2 -.1400E+05 -.8932E+04
+ 20 3 .9247E+03 -.8973E+04
+ 20 4 .6999E+04 .5192E+04
+ 20 5 -.3152E+03 -.2404E+04
+ 20 6 -.2196E+04 -.4160E+04
+ 20 7 -.4609E+04 .7790E+04
+ 20 8 .9602E+04 -.2431E+04
+ 20 9 -.1027E+05 -.9055E+04
+ 20 10 -.4550E+04 .1069E+05
+ 20 11 .1525E+05 -.8605E+04
+ 20 12 -.2250E+04 .1185E+04
+ 20 13 -.2288E+05 -.1172E+04
+ 20 14 .7626E+04 .3899E+04
+ 20 15 .1173E+05 -.1127E+05
+ 20 16 .1327E+05 .5299E+04
+ 20 17 .1218E+05 -.2563E+04
+ 20 18 -.2114E+05 .4326E+05
+ 20 19 -.1085E+05 .4693E+04
+ 20 20 -.2430E+04 .5163E+04
+ 21 0 -.3180E+04 .0000E+00
+ 21 1 -.4375E+02 -.9690E+04
+ 21 2 -.4673E+04 -.7828E+04
+ 21 3 .1211E+05 -.1810E+04
+ 21 4 .2606E+04 .7779E+04
+ 21 5 -.7129E+04 -.4873E+04
+ 21 6 -.5946E+04 .8412E+04
+ 21 7 .4292E+04 .5161E+04
+ 21 8 -.5775E+04 -.1109E+05
+ 21 9 -.1134E+05 .1624E+05
+ 21 10 .1224E+05 .1017E+04
+ 21 11 -.3244E+04 -.5739E+04
+ 21 12 -.1062E+05 .1727E+05
+ 21 13 -.1322E+04 .3579E+04
+ 21 14 .1533E+05 -.6735E+04
+ 21 15 .5687E+03 -.3072E+04
+ 21 16 .4246E+04 .1410E+05
+ 21 17 -.1418E+05 .6605E+03
+ 21 18 .1530E+05 .1022E+05
+ 21 19 -.1244E+04 -.2657E+05
+ 21 20 .1131E+05 -.1934E+04
+ 21 21 -.1027E+05 .1774E+04
+ 22 0 .7756E+04 .0000E+00
+ 22 1 -.5791E+03 -.3673E+04
+ 22 2 .3974E+04 .1979E+04
+ 22 3 .7913E+04 .5761E+04
+ 22 4 -.4995E+04 .4011E+04
+ 22 5 -.1339E+05 -.2434E+04
+ 22 6 .3835E+04 .5764E+04
+ 22 7 -.1351E+04 -.1324E+05
+ 22 8 -.8991E+04 .1821E+03
+ 22 9 .1300E+05 .1545E+05
+ 22 10 .9822E+03 -.1397E+05
+ 22 11 -.6043E+04 .1341E+05
+ 22 12 .8145E+04 .1165E+05
+ 22 13 .2340E+04 -.9065E+04
+ 22 14 .3844E+04 .1827E+03
+ 22 15 -.6188E+04 .2192E+05
+ 22 16 .1330E+04 .1818E+03
+ 22 17 -.1852E+04 .2600E+04
+ 22 18 .1908E+04 -.1523E+04
+ 22 19 -.2782E+05 -.1206E+05
+ 22 20 .2140E+05 .1987E+05
+ 22 21 -.1015E+05 .1057E+05
+ 22 22 .9548E+04 .7953E+03
+ 23 0 .4915E+04 .0000E+00
+ 23 1 -.8132E+04 .5986E+04
+ 23 2 .4979E+04 .8938E+03
+ 23 3 .1391E+04 .4649E+04
+ 23 4 -.8744E+04 -.5303E+04
+ 23 5 -.3996E+04 -.2387E+04
+ 23 6 .1538E+05 -.9234E+04
+ 23 7 -.6835E+04 -.7296E+04
+ 23 8 .1151E+05 .1342E+05
+ 23 9 .6444E+04 -.4752E+04
+ 23 10 -.1376E+05 -.3846E+04
+ 23 11 .9927E+04 .8767E+04
+ 23 12 -.8304E+03 -.9896E+04
+ 23 13 -.8057E+04 -.1021E+05
+ 23 14 .7606E+04 .1120E+05
+ 23 15 .5597E+04 .6170E+04
+ 23 16 -.7095E+04 -.9932E+04
+ 23 17 -.1328E+05 -.4817E+03
+ 23 18 -.8096E+04 -.8705E+04
+ 23 19 -.2271E+04 .4446E+04
+ 23 20 .2157E+05 -.1112E+05
+ 23 21 -.1176E+05 -.1448E+05
+ 23 22 .4641E+04 -.1595E+05
+ 23 23 .3241E+04 .6788E+03
+ 24 0 -.5132E+04 .0000E+00
+ 24 1 -.4912E+04 .4141E+03
+ 24 2 .6000E+04 -.3003E+04
+ 24 3 .1294E+04 .9994E+02
+ 24 4 -.7192E+04 -.6304E+04
+ 24 5 .1476E+05 -.1556E+04
+ 24 6 .8089E+04 -.5590E+04
+ 24 7 -.1324E+04 .1424E+05
+ 24 8 .1081E+05 .2183E+04
+ 24 9 -.1799E+05 -.7152E+04
+ 24 10 -.1061E+03 .2404E+04
+ 24 11 .7049E+04 -.1361E+05
+ 24 12 -.1272E+05 -.5326E+04
+ 24 13 .1733E+04 .2339E+04
+ 24 14 .7120E+04 .1948E+04
+ 24 15 -.1643E+05 -.1008E+05
+ 24 16 -.1895E+05 -.1366E+05
+ 24 17 .1040E+05 -.5298E+04
+ 24 18 .1439E+05 .7118E+04
+ 24 19 .7022E+04 .6255E+02
+ 24 20 .4150E+04 .2757E+03
+ 24 21 -.2519E+05 .2829E+05
+ 24 22 -.1568E+04 -.2848E+04
+ 24 23 .5120E+03 .9849E+04
+ 24 24 -.2685E+04 -.8895E+04
+ 25 0 -.5052E+04 .0000E+00
+ 25 1 .1461E+04 -.3447E+04
+ 25 2 .5798E+04 .1000E+04
+ 25 3 -.3342E+04 -.7280E+03
+ 25 4 -.1347E+04 .1826E+04
+ 25 5 .1398E+05 .1013E+04
+ 25 6 -.9386E+04 .1379E+05
+ 25 7 .1107E+03 .5695E+04
+ 25 8 -.1081E+05 -.9996E+04
+ 25 9 -.9614E+04 -.5522E+03
+ 25 10 .1961E+05 -.9655E+04
+ 25 11 -.7570E+04 -.2508E+04
+ 25 12 -.2844E+04 .1401E+05
+ 25 13 .4549E+04 -.3580E+04
+ 25 14 -.9738E+04 -.5464E+04
+ 25 15 -.1555E+05 -.1829E+04
+ 25 16 .1225E+05 -.3784E+04
+ 25 17 .1189E+05 .5164E+04
+ 25 18 .1875E+04 .1481E+04
+ 25 19 -.1845E+05 -.8225E+03
+ 25 20 -.6492E+04 -.2267E+04
+ 25 21 .4803E+04 -.6399E+04
+ 25 22 .2032E+05 -.2312E+05
+ 25 23 -.4310E+04 .6918E+04
+ 25 24 -.1449E+04 -.4554E+04
+ 25 25 -.4233E+04 .7898E+04
+ 652.500000000000000
+ 0 0 .1636E+06 .0000E+00
+ 1 0 .2193E+05 .0000E+00
+ 1 1 -.1272E+06 .6303E+05
+ 2 0 -.7283E+05 .0000E+00
+ 2 1 -.1336E+05 .3937E+05
+ 2 2 -.1297E+04 -.1130E+06
+ 3 0 .1164E+05 .0000E+00
+ 3 1 .1900E+05 -.5306E+05
+ 3 2 -.1840E+05 .2810E+05
+ 3 3 -.8312E+04 .1024E+06
+ 4 0 .2097E+04 .0000E+00
+ 4 1 -.7075E+05 -.1391E+05
+ 4 2 .3043E+05 .5260E+05
+ 4 3 .5402E+05 -.1293E+05
+ 4 4 -.3600E+02 -.3160E+05
+ 5 0 -.5422E+05 .0000E+00
+ 5 1 -.2058E+05 .1529E+05
+ 5 2 .7505E+05 -.2935E+05
+ 5 3 -.5057E+05 -.7967E+04
+ 5 4 -.4954E+05 -.4118E+05
+ 5 5 .5654E+05 .1181E+05
+ 6 0 -.1452E+05 .0000E+00
+ 6 1 .6116E+05 -.2841E+05
+ 6 2 .5945E+04 -.3286E+05
+ 6 3 -.1758E+05 .3749E+05
+ 6 4 .1548E+05 -.1345E+05
+ 6 5 .3188E+05 -.1269E+05
+ 6 6 -.4931E+05 -.1558E+05
+ 7 0 .3643E+05 .0000E+00
+ 7 1 .3003E+05 -.7670E+04
+ 7 2 -.1447E+05 .4820E+05
+ 7 3 .2951E+05 .8809E+04
+ 7 4 -.1710E+05 -.3122E+05
+ 7 5 .7926E+04 .2279E+05
+ 7 6 -.4687E+05 .9101E+05
+ 7 7 -.2175E+03 -.2344E+05
+ 8 0 .2788E+04 .0000E+00
+ 8 1 -.8278E+04 .5352E+05
+ 8 2 .6281E+04 .3051E+05
+ 8 3 -.2734E+05 -.4727E+05
+ 8 4 -.3066E+05 .2155E+05
+ 8 5 .3781E+04 .2863E+05
+ 8 6 .2319E+05 .5790E+04
+ 8 7 .1198E+05 -.5464E+05
+ 8 8 .2724E+04 .4703E+05
+ 9 0 -.3099E+05 .0000E+00
+ 9 1 .2233E+05 .1589E+05
+ 9 2 -.2201E+05 -.3179E+05
+ 9 3 -.5052E+05 -.2618E+05
+ 9 4 .3808E+05 .2636E+05
+ 9 5 .2216E+05 -.1511E+05
+ 9 6 -.1343E+05 -.8427E+04
+ 9 7 -.2989E+05 -.2564E+05
+ 9 8 .5413E+05 .1494E+05
+ 9 9 .4030E+04 -.2133E+04
+ 10 0 .6293E+04 .0000E+00
+ 10 1 .2810E+05 -.4316E+05
+ 10 2 -.4335E+05 -.1530E+05
+ 10 3 .2093E+05 .1121E+05
+ 10 4 .4665E+05 -.1274E+05
+ 10 5 -.2303E+05 -.5944E+04
+ 10 6 -.1471E+05 .8030E+04
+ 10 7 .2802E+05 .5292E+04
+ 10 8 -.2509E+05 .2027E+04
+ 10 9 -.5937E+05 -.2098E+05
+ 10 10 .5061E+04 -.2523E+05
+ 11 0 .4885E+05 .0000E+00
+ 11 1 -.2567E+05 -.1684E+05
+ 11 2 .3438E+04 .2709E+05
+ 11 3 .3518E+05 -.6599E+04
+ 11 4 -.8337E+04 -.5281E+04
+ 11 5 -.2067E+05 .3011E+05
+ 11 6 .7197E+04 -.2332E+04
+ 11 7 -.1237E+05 -.4404E+05
+ 11 8 -.3934E+05 .1252E+05
+ 11 9 .4406E+04 .1136E+05
+ 11 10 .1257E+05 -.6723E+04
+ 11 11 -.6648E+03 -.7670E+04
+ 12 0 .8390E+04 .0000E+00
+ 12 1 -.3475E+05 .2451E+05
+ 12 2 .1582E+05 -.1205E+05
+ 12 3 .5501E+04 -.5640E+04
+ 12 4 -.3422E+05 .3118E+05
+ 12 5 .2088E+05 -.6592E+04
+ 12 6 -.8196E+04 -.4774E+05
+ 12 7 -.2426E+04 -.1070E+05
+ 12 8 .1388E+05 .5370E+05
+ 12 9 .2081E+05 -.3880E+05
+ 12 10 .2493E+05 .1213E+05
+ 12 11 -.2985E+05 .2925E+05
+ 12 12 -.1860E+05 .1277E+05
+ 13 0 -.1518E+05 .0000E+00
+ 13 1 -.7184E+04 .2333E+05
+ 13 2 -.1371E+05 -.3785E+05
+ 13 3 .2310E+04 .3418E+05
+ 13 4 -.8240E+03 .5058E+04
+ 13 5 .2429E+05 -.2919E+05
+ 13 6 -.2480E+05 -.7021E+04
+ 13 7 .4324E+05 .4461E+05
+ 13 8 .1638E+05 .3430E+04
+ 13 9 -.2610E+05 -.8060E+04
+ 13 10 .3339E+04 -.3427E+04
+ 13 11 .2364E+04 -.2022E+05
+ 13 12 .6344E+05 -.2039E+05
+ 13 13 .2292E+05 .1637E+05
+ 14 0 -.7623E+02 .0000E+00
+ 14 1 -.1227E+04 -.1790E+05
+ 14 2 .1573E+04 .9302E+04
+ 14 3 .3511E+05 .1631E+05
+ 14 4 -.4650E+04 .1340E+04
+ 14 5 -.1264E+05 -.9361E+04
+ 14 6 .2568E+04 .4614E+05
+ 14 7 .3523E+05 .4199E+04
+ 14 8 -.5065E+05 -.7449E+04
+ 14 9 -.3060E+04 .1115E+04
+ 14 10 .4236E+05 -.3729E+05
+ 14 11 -.2178E+05 .2028E+05
+ 14 12 -.9800E+04 -.2800E+05
+ 14 13 -.2533E+05 .2461E+05
+ 14 14 -.1814E+05 -.7116E+04
+ 15 0 -.1298E+05 .0000E+00
+ 15 1 -.6547E+04 -.9627E+04
+ 15 2 .2236E+05 .2107E+05
+ 15 3 -.7033E+04 -.1585E+05
+ 15 4 -.3209E+05 -.7034E+04
+ 15 5 -.2210E+04 .3748E+04
+ 15 6 .1070E+05 .2834E+04
+ 15 7 -.1039E+05 -.3312E+05
+ 15 8 -.2953E+05 .2717E+05
+ 15 9 .6194E+05 -.2705E+05
+ 15 10 -.2660E+05 -.1278E+05
+ 15 11 -.1074E+05 .2259E+05
+ 15 12 .8699E+04 .5316E+04
+ 15 13 .4986E+04 .2887E+05
+ 15 14 -.7633E+04 -.4376E+05
+ 15 15 .2665E+05 -.2874E+05
+ 16 0 -.1343E+05 .0000E+00
+ 16 1 -.5484E+03 .3616E+04
+ 16 2 .1521E+05 .2423E+04
+ 16 3 -.5164E+05 -.1089E+05
+ 16 4 .5458E+04 -.1898E+05
+ 16 5 .7849E+04 -.9748E+04
+ 16 6 .4014E+03 -.2742E+05
+ 16 7 -.2530E+05 .2467E+05
+ 16 8 .2380E+05 -.4840E+03
+ 16 9 .1626E+05 -.4417E+05
+ 16 10 -.3222E+05 .4394E+05
+ 16 11 .2334E+05 .2528E+05
+ 16 12 -.1120E+05 -.4269E+04
+ 16 13 .1717E+05 .2996E+04
+ 16 14 -.4546E+05 .1226E+05
+ 16 15 -.1585E+05 .2930E+05
+ 16 16 -.2773E+05 .2956E+05
+ 17 0 -.1222E+05 .0000E+00
+ 17 1 .8059E+04 -.1308E+05
+ 17 2 .7353E+04 -.1038E+05
+ 17 3 -.8997E+03 .3582E+04
+ 17 4 .3472E+05 -.2028E+05
+ 17 5 .1503E+05 .1666E+05
+ 17 6 -.2224E+05 .1360E+05
+ 17 7 .1327E+05 .3378E+05
+ 17 8 -.1627E+04 -.3587E+05
+ 17 9 -.2553E+05 .1946E+05
+ 17 10 .5574E+04 .5295E+05
+ 17 11 -.1500E+05 -.3219E+05
+ 17 12 -.1106E+04 -.6454E+03
+ 17 13 -.9732E+04 -.3799E+04
+ 17 14 .1234E+02 -.2567E+05
+ 17 15 .6961E+05 -.1124E+05
+ 17 16 .2776E+05 -.7916E+04
+ 17 17 .6000E+04 -.1141E+05
+ 18 0 .2704E+04 .0000E+00
+ 18 1 .2017E+05 .4184E+03
+ 18 2 .1326E+05 .7460E+04
+ 18 3 .5895E+04 .1905E+05
+ 18 4 .8263E+04 -.4770E+03
+ 18 5 -.2631E+04 .2790E+05
+ 18 6 -.3409E+04 .6906E+04
+ 18 7 .1427E+05 -.4941E+04
+ 18 8 -.4079E+05 -.2169E+05
+ 18 9 .3028E+05 .3552E+05
+ 18 10 -.5949E+02 -.8263E+04
+ 18 11 -.3379E+05 -.2150E+05
+ 18 12 .2544E+05 .8107E+04
+ 18 13 .1330E+05 -.2371E+05
+ 18 14 .4093E+04 .7696E+04
+ 18 15 -.1547E+05 -.7906E+04
+ 18 16 -.3616E+05 .3626E+04
+ 18 17 -.3675E+04 .1952E+05
+ 18 18 .6424E+04 .1858E+05
+ 19 0 .1765E+05 .0000E+00
+ 19 1 .1597E+05 .1521E+05
+ 19 2 -.1862E+05 .1551E+05
+ 19 3 -.1182E+05 .5072E+04
+ 19 4 -.6595E+04 .1334E+05
+ 19 5 -.1164E+05 .7936E+03
+ 19 6 -.7956E+01 -.1412E+05
+ 19 7 -.1362E+05 -.3566E+05
+ 19 8 .1352E+05 .9790E+04
+ 19 9 .3341E+05 -.2057E+05
+ 19 10 -.3348E+05 -.6859E+04
+ 19 11 .1380E+05 .1233E+04
+ 19 12 .4679E+05 -.5453E+04
+ 19 13 -.2202E+05 -.3542E+04
+ 19 14 -.3588E+05 .4317E+04
+ 19 15 .1601E+05 -.1080E+05
+ 19 16 -.2587E+04 .1739E+05
+ 19 17 .3397E+05 -.4410E+05
+ 19 18 -.5131E+04 -.2845E+05
+ 19 19 .2301E+04 -.3092E+05
+ 20 0 .3535E+04 .0000E+00
+ 20 1 -.7517E+04 .5599E+04
+ 20 2 -.3797E+05 -.4369E+04
+ 20 3 .3142E+04 -.2651E+05
+ 20 4 -.9033E+03 .2692E+04
+ 20 5 -.5366E+04 -.1656E+05
+ 20 6 .1022E+05 -.1937E+05
+ 20 7 .5794E+04 .1033E+05
+ 20 8 .3054E+05 -.1459E+03
+ 20 9 -.2590E+05 -.1039E+05
+ 20 10 -.1953E+05 .3023E+05
+ 20 11 .3100E+05 -.3438E+05
+ 20 12 -.9579E+04 -.1024E+05
+ 20 13 -.2955E+05 -.1996E+04
+ 20 14 .1513E+05 .1146E+05
+ 20 15 .2750E+05 -.1076E+05
+ 20 16 .1671E+05 .1992E+04
+ 20 17 -.1620E+04 .1088E+05
+ 20 18 -.5313E+05 .6255E+05
+ 20 19 -.8942E+04 .4640E+04
+ 20 20 .4668E+04 .1330E+05
+ 21 0 -.2549E+04 .0000E+00
+ 21 1 -.2142E+04 -.1130E+05
+ 21 2 -.7016E+04 -.1053E+05
+ 21 3 .1512E+05 -.2634E+05
+ 21 4 .8346E+04 .1399E+05
+ 21 5 -.3399E+04 -.1053E+05
+ 21 6 .9128E+04 .8894E+04
+ 21 7 .1017E+05 .2713E+05
+ 21 8 -.1404E+04 -.1704E+05
+ 21 9 -.3842E+05 .4530E+05
+ 21 10 .2141E+05 -.2476E+05
+ 21 11 .1430E+04 -.2420E+05
+ 21 12 -.1553E+05 .3436E+05
+ 21 13 .2405E+04 .1473E+05
+ 21 14 .1847E+05 -.3929E+04
+ 21 15 .8290E+04 -.1526E+04
+ 21 16 .3123E+04 .2299E+05
+ 21 17 -.2225E+05 .1734E+04
+ 21 18 .4713E+05 .4663E+04
+ 21 19 .1663E+05 -.3967E+05
+ 21 20 .2168E+05 .8845E+04
+ 21 21 -.2441E+05 .1016E+05
+ 22 0 .1159E+05 .0000E+00
+ 22 1 -.9602E+03 .2703E+04
+ 22 2 .1268E+05 -.2622E+04
+ 22 3 .4458E+04 .7328E+04
+ 22 4 .1804E+05 .1184E+05
+ 22 5 -.2342E+05 .4726E+04
+ 22 6 .4538E+04 .2225E+05
+ 22 7 -.9933E+04 -.2886E+04
+ 22 8 -.2281E+05 -.8272E+04
+ 22 9 .2003E+05 .2241E+05
+ 22 10 .9134E+04 -.4250E+05
+ 22 11 .2329E+04 .3026E+05
+ 22 12 .2106E+05 .3736E+05
+ 22 13 -.7357E+04 -.9392E+04
+ 22 14 -.8047E+03 .1190E+05
+ 22 15 -.1359E+05 .3091E+05
+ 22 16 -.1096E+04 -.1478E+05
+ 22 17 -.2297E+04 .1583E+04
+ 22 18 -.5941E+04 -.6256E+04
+ 22 19 -.4820E+05 -.1878E+05
+ 22 20 .3132E+05 .3612E+05
+ 22 21 -.1805E+05 .1393E+05
+ 22 22 .1440E+05 -.7364E+04
+ 23 0 .4717E+04 .0000E+00
+ 23 1 -.1235E+05 .8329E+04
+ 23 2 .8440E+04 .2020E+04
+ 23 3 .8110E+04 .2276E+05
+ 23 4 -.8621E+04 -.8513E+04
+ 23 5 -.2187E+05 .5293E+04
+ 23 6 .1710E+05 -.7166E+04
+ 23 7 -.1668E+05 -.2144E+05
+ 23 8 .1552E+05 .2010E+05
+ 23 9 .1707E+05 -.6389E+04
+ 23 10 -.2045E+05 -.3999E+04
+ 23 11 .3435E+05 .2473E+05
+ 23 12 -.2022E+05 -.1300E+04
+ 23 13 -.3111E+05 -.2208E+05
+ 23 14 .1227E+05 .1777E+05
+ 23 15 .1803E+05 -.7738E+04
+ 23 16 -.1316E+05 -.2078E+05
+ 23 17 -.1690E+05 .3232E+04
+ 23 18 -.4643E+04 -.3821E+04
+ 23 19 .8590E+04 .1433E+05
+ 23 20 .2829E+05 -.2836E+05
+ 23 21 -.1116E+05 -.3049E+05
+ 23 22 .5365E+04 -.2771E+05
+ 23 23 .1213E+05 .2071E+04
+ 24 0 -.1296E+05 .0000E+00
+ 24 1 -.1066E+05 -.3612E+04
+ 24 2 -.9259E+03 -.1979E+04
+ 24 3 .1234E+05 .7825E+04
+ 24 4 -.3251E+05 -.1934E+05
+ 24 5 .2951E+05 -.2784E+04
+ 24 6 .7432E+04 -.1649E+05
+ 24 7 -.8873E+04 .1183E+05
+ 24 8 .1888E+05 .9344E+04
+ 24 9 -.2342E+05 -.1735E+05
+ 24 10 .6908E+04 .2210E+05
+ 24 11 -.3524E+04 -.1882E+05
+ 24 12 -.4397E+05 -.7273E+04
+ 24 13 .2375E+04 -.1689E+05
+ 24 14 .3119E+05 -.1350E+05
+ 24 15 -.1557E+05 -.2326E+05
+ 24 16 -.3426E+05 -.1219E+05
+ 24 17 .2011E+05 .2716E+04
+ 24 18 .1642E+05 .1769E+05
+ 24 19 .7679E+04 -.1763E+05
+ 24 20 -.1017E+04 .1011E+04
+ 24 21 -.3658E+05 .5833E+05
+ 24 22 -.1329E+05 .4236E+04
+ 24 23 -.2133E+04 .1344E+05
+ 24 24 -.8793E+04 -.1285E+05
+ 25 0 -.3994E+04 .0000E+00
+ 25 1 -.6452E+04 -.7829E+04
+ 25 2 .8070E+04 .3058E+04
+ 25 3 .1076E+04 -.8466E+04
+ 25 4 -.1728E+05 .8278E+04
+ 25 5 .3596E+05 -.1500E+05
+ 25 6 -.2143E+05 .2007E+05
+ 25 7 .2269E+04 .4706E+03
+ 25 8 -.8380E+04 -.1350E+05
+ 25 9 -.2885E+05 -.1204E+03
+ 25 10 .2997E+05 -.1102E+05
+ 25 11 -.2822E+05 -.1421E+05
+ 25 12 .1652E+04 .1116E+05
+ 25 13 .2702E+05 -.2874E+05
+ 25 14 .2198E+04 .1972E+04
+ 25 15 -.3358E+05 .1392E+05
+ 25 16 .5350E+04 .7174E+04
+ 25 17 .8785E+04 -.1244E+04
+ 25 18 .1464E+05 -.2855E+04
+ 25 19 -.1857E+05 -.2876E+04
+ 25 20 -.2696E+04 .1416E+05
+ 25 21 .2179E+05 -.4916E+04
+ 25 22 .2572E+05 -.2485E+05
+ 25 23 -.1321E+05 .2026E+04
+ 25 24 .3905E+04 -.4221E+04
+ 25 25 -.6309E+04 .1336E+05
+ 797.500000000000000
+ 0 0 .3573E+06 .0000E+00
+ 1 0 .5981E+05 .0000E+00
+ 1 1 -.2421E+06 .1660E+06
+ 2 0 -.1157E+06 .0000E+00
+ 2 1 -.6220E+05 .1455E+06
+ 2 2 -.9455E+05 -.2845E+06
+ 3 0 -.1261E+05 .0000E+00
+ 3 1 -.2316E+05 -.1086E+06
+ 3 2 -.5157E+05 -.1382E+05
+ 3 3 .1114E+06 .1633E+06
+ 4 0 -.4207E+05 .0000E+00
+ 4 1 -.9939E+05 -.6714E+05
+ 4 2 .1213E+06 .4582E+05
+ 4 3 .1910E+06 -.6719E+04
+ 4 4 -.8878E+05 .1103E+06
+ 5 0 -.3988E+05 .0000E+00
+ 5 1 .6976E+04 .1604E+03
+ 5 2 .1600E+06 -.4225E+04
+ 5 3 -.1474E+06 .7363E+05
+ 5 4 -.1328E+06 -.6332E+04
+ 5 5 .6066E+05 -.1583E+06
+ 6 0 .9587E+04 .0000E+00
+ 6 1 .3775E+05 -.3194E+05
+ 6 2 -.4954E+04 -.4162E+04
+ 6 3 -.5241E+05 .5936E+05
+ 6 4 .3428E+03 -.6323E+05
+ 6 5 -.2868E+05 -.1395E+06
+ 6 6 .7194E+05 .4371E+05
+ 7 0 .1289E+04 .0000E+00
+ 7 1 .3439E+05 -.1588E+05
+ 7 2 .1109E+05 .6313E+05
+ 7 3 .3089E+05 -.1838E+05
+ 7 4 -.7803E+05 -.9245E+05
+ 7 5 .6907E+05 .3764E+05
+ 7 6 .3762E+05 .1441E+06
+ 7 7 -.1460E+06 -.1694E+04
+ 8 0 -.6295E+04 .0000E+00
+ 8 1 .4157E+05 .8749E+05
+ 8 2 -.1719E+05 .4425E+05
+ 8 3 -.7608E+05 -.7585E+05
+ 8 4 -.2519E+05 .2960E+04
+ 8 5 .9223E+05 .2066E+05
+ 8 6 .3174E+05 -.9150E+04
+ 8 7 -.5537E+05 .5869E+05
+ 8 8 .5065E+05 -.5626E+05
+ 9 0 -.1921E+05 .0000E+00
+ 9 1 .9231E+04 .5856E+05
+ 9 2 -.5924E+05 -.2542E+05
+ 9 3 -.4857E+05 -.5840E+05
+ 9 4 .1139E+06 .7428E+04
+ 9 5 .6266E+05 .2425E+05
+ 9 6 -.7973E+05 .6436E+05
+ 9 7 -.1945E+05 -.5634E+05
+ 9 8 .1073E+06 -.1349E+06
+ 9 9 .7351E+05 .1333E+06
+ 10 0 -.3470E+05 .0000E+00
+ 10 1 .2526E+05 -.4390E+05
+ 10 2 -.2032E+05 -.5290E+05
+ 10 3 .7383E+05 -.3977E+04
+ 10 4 .7659E+05 .2961E+05
+ 10 5 -.3894E+05 .7995E+05
+ 10 6 -.5455E+05 .1110E+05
+ 10 7 .3100E+05 -.6291E+05
+ 10 8 -.7337E+05 .9470E+04
+ 10 9 .2591E+05 .4822E+05
+ 10 10 -.1156E+06 -.4164E+05
+ 11 0 .6447E+05 .0000E+00
+ 11 1 .1071E+05 -.4029E+05
+ 11 2 .2524E+05 .1427E+05
+ 11 3 .9258E+04 .1577E+05
+ 11 4 -.2727E+05 .2895E+05
+ 11 5 -.3629E+05 .3958E+05
+ 11 6 -.5128E+05 -.4155E+05
+ 11 7 -.1524E+05 -.1030E+06
+ 11 8 .6594E+05 .6662E+05
+ 11 9 .3608E+05 .2957E+05
+ 11 10 -.1320E+06 .2105E+05
+ 11 11 .9450E+05 -.1235E+06
+ 12 0 .3817E+05 .0000E+00
+ 12 1 -.3624E+05 -.4519E+04
+ 12 2 -.1716E+05 -.2494E+05
+ 12 3 .8738E+04 .4680E+04
+ 12 4 -.6441E+05 .5482E+05
+ 12 5 -.1671E+05 -.4111E+05
+ 12 6 -.4760E+05 -.8406E+05
+ 12 7 .7016E+05 -.2448E+05
+ 12 8 .4853E+05 .9279E+05
+ 12 9 -.6199E+05 -.2104E+05
+ 12 10 .1008E+05 .9073E+05
+ 12 11 -.1612E+05 -.5983E+05
+ 12 12 -.1119E+05 .1260E+06
+ 13 0 -.1102E+05 .0000E+00
+ 13 1 -.1732E+05 .2871E+05
+ 13 2 -.2820E+05 -.5846E+05
+ 13 3 .1985E+05 .7369E+05
+ 13 4 -.5659E+05 -.3510E+05
+ 13 5 .2883E+05 -.5773E+05
+ 13 6 .3241E+04 -.3965E+05
+ 13 7 .8831E+05 .7358E+05
+ 13 8 -.2027E+05 .3456E+05
+ 13 9 -.7427E+05 .4110E+05
+ 13 10 .3555E+05 -.1115E+06
+ 13 11 .3346E+05 -.9222E+05
+ 13 12 .1630E+06 .5763E+05
+ 13 13 -.8603E+05 -.1039E+05
+ 14 0 .2591E+05 .0000E+00
+ 14 1 -.1868E+04 -.1866E+04
+ 14 2 .8929E+04 .3093E+05
+ 14 3 .3239E+05 .1778E+05
+ 14 4 -.2251E+05 -.2281E+05
+ 14 5 .3201E+05 -.1788E+05
+ 14 6 .5132E+05 .2995E+05
+ 14 7 .4018E+05 .6865E+05
+ 14 8 -.9588E+05 .1102E+05
+ 14 9 -.6271E+04 -.5158E+05
+ 14 10 .6124E+05 -.8966E+05
+ 14 11 -.3668E+05 .1210E+06
+ 14 12 .6034E+03 -.4687E+05
+ 14 13 -.1086E+06 .5882E+05
+ 14 14 .8059E+05 -.4440E+05
+ 15 0 -.1625E+05 .0000E+00
+ 15 1 -.3763E+05 .2179E+05
+ 15 2 .3667E+05 .1658E+05
+ 15 3 -.1767E+05 -.2701E+05
+ 15 4 .6698E+04 .8649E+04
+ 15 5 .6768E+05 .2689E+03
+ 15 6 -.6106E+04 .2862E+05
+ 15 7 -.1481E+05 .8421E+04
+ 15 8 -.7775E+05 .5709E+04
+ 15 9 .5830E+05 -.8157E+05
+ 15 10 -.2147E+05 .9392E+04
+ 15 11 .6501E+05 .4014E+05
+ 15 12 -.3485E+05 .1182E+05
+ 15 13 -.2205E+05 .5770E+05
+ 15 14 .7088E+04 -.1310E+06
+ 15 15 .1785E+05 .4584E+05
+ 16 0 -.4772E+05 .0000E+00
+ 16 1 .5175E+03 -.2578E+05
+ 16 2 .3624E+05 -.6706E+04
+ 16 3 -.6884E+05 .1775E+05
+ 16 4 .5957E+05 -.1823E+05
+ 16 5 -.1140E+05 -.2001E+05
+ 16 6 -.3620E+05 .1222E+05
+ 16 7 -.1650E+05 .2994E+05
+ 16 8 -.3404E+05 -.4697E+05
+ 16 9 .4569E+05 -.9140E+05
+ 16 10 .5093E+05 .6370E+05
+ 16 11 .1612E+05 .6484E+05
+ 16 12 -.1002E+06 .4150E+05
+ 16 13 .5226E+05 -.5821E+04
+ 16 14 -.1125E+06 .2926E+05
+ 16 15 .2487E+05 .4936E+05
+ 16 16 -.8169E+05 -.5213E+05
+ 17 0 -.3877E+05 .0000E+00
+ 17 1 .2389E+05 -.6123E+05
+ 17 2 -.2387E+05 .1057E+05
+ 17 3 .6304E+04 .1521E+05
+ 17 4 .1680E+05 -.7333E+05
+ 17 5 -.6617E+04 .6125E+05
+ 17 6 -.4445E+05 .4163E+05
+ 17 7 .1532E+04 -.3144E+05
+ 17 8 -.8788E+04 -.6248E+05
+ 17 9 .5125E+05 .3450E+05
+ 17 10 .9202E+04 .1012E+06
+ 17 11 -.9876E+05 .3299E+04
+ 17 12 -.8661E+04 -.1179E+05
+ 17 13 -.1061E+05 -.1055E+06
+ 17 14 .6471E+05 -.2514E+05
+ 17 15 .1533E+06 -.3367E+05
+ 17 16 -.3241E+05 .3317E+05
+ 17 17 .6804E+05 .1365E+05
+ 18 0 .1156E+05 .0000E+00
+ 18 1 .1688E+05 .3916E+04
+ 18 2 .2464E+05 .2640E+05
+ 18 3 -.1159E+04 .1085E+05
+ 18 4 -.2254E+05 -.6706E+04
+ 18 5 .4990E+04 .8162E+05
+ 18 6 -.3655E+05 -.5484E+05
+ 18 7 .9176E+04 -.1434E+05
+ 18 8 .4850E+04 .3759E+04
+ 18 9 .7357E+05 .6973E+05
+ 18 10 -.6859E+05 .1806E+05
+ 18 11 -.5424E+05 -.2755E+05
+ 18 12 .3726E+05 -.7610E+05
+ 18 13 .4895E+05 -.3288E+05
+ 18 14 .4253E+05 .7986E+05
+ 18 15 -.9278E+05 -.2983E+05
+ 18 16 -.2845E+05 .5657E+05
+ 18 17 .1069E+05 -.2808E+05
+ 18 18 -.3633E+05 .7429E+05
+ 19 0 .3299E+05 .0000E+00
+ 19 1 .3885E+05 .2960E+05
+ 19 2 -.3744E+04 .1030E+05
+ 19 3 -.2477E+05 .1530E+05
+ 19 4 .1277E+05 .1862E+05
+ 19 5 -.1556E+05 -.2525E+05
+ 19 6 -.3483E+05 -.2593E+05
+ 19 7 .2805E+05 -.5973E+04
+ 19 8 .5962E+05 -.1033E+04
+ 19 9 .6007E+04 .8698E+04
+ 19 10 -.9058E+05 .5363E+04
+ 19 11 .3737E+05 -.6208E+05
+ 19 12 .6101E+05 -.3483E+05
+ 19 13 .7567E+04 .6458E+05
+ 19 14 -.4349E+05 .3088E+04
+ 19 15 -.2964E+05 .4687E+05
+ 19 16 -.1921E+04 .3035E+03
+ 19 17 -.3103E+05 -.1034E+06
+ 19 18 .4233E+05 .2311E+05
+ 19 19 -.2024E+04 -.9817E+05
+ 20 0 .2798E+05 .0000E+00
+ 20 1 .5818E+04 .3342E+05
+ 20 2 -.5524E+05 .1038E+05
+ 20 3 .7148E+04 -.2578E+05
+ 20 4 .2430E+05 -.4857E+05
+ 20 5 -.4876E+05 -.1231E+05
+ 20 6 .5981E+05 -.1685E+05
+ 20 7 .5216E+05 .1191E+04
+ 20 8 -.1556E+05 -.3804E+04
+ 20 9 -.3881E+05 .3685E+05
+ 20 10 -.4477E+05 .6028E+04
+ 20 11 .3401E+05 -.1058E+06
+ 20 12 .8893E+04 .5605E+04
+ 20 13 .5227E+04 .2526E+05
+ 20 14 -.3280E+05 .3007E+05
+ 20 15 -.2272E+05 -.1483E+04
+ 20 16 .1101E+05 -.7587E+05
+ 20 17 -.3787E+05 .6276E+05
+ 20 18 .1977E+05 .2743E+05
+ 20 19 -.7320E+05 -.2098E+05
+ 20 20 .6310E+05 .2068E+05
+ 21 0 .7064E+04 .0000E+00
+ 21 1 -.2592E+04 -.2009E+05
+ 21 2 -.1735E+05 .1214E+05
+ 21 3 .4242E+05 -.9435E+05
+ 21 4 .6114E+04 .2677E+05
+ 21 5 .8101E+04 .2831E+05
+ 21 6 .5856E+05 -.3028E+05
+ 21 7 -.3531E+05 .3084E+05
+ 21 8 -.1608E+05 .1831E+05
+ 21 9 -.2556E+05 .2605E+05
+ 21 10 -.6681E+04 -.1001E+06
+ 21 11 .3647E+05 -.2229E+05
+ 21 12 .5134E+05 .7455E+05
+ 21 13 -.3129E+05 .5883E+05
+ 21 14 -.4956E+05 -.2469E+05
+ 21 15 .2384E+05 -.4920E+05
+ 21 16 .2553E+05 -.7134E+03
+ 21 17 .7676E+05 .1599E+05
+ 21 18 .1061E+06 .2173E+04
+ 21 19 -.5406E+05 .8294E+05
+ 21 20 .4465E+05 -.3461E+05
+ 21 21 -.8495E+05 .5168E+05
+ 22 0 .7557E+03 .0000E+00
+ 22 1 -.1253E+05 -.4367E+04
+ 22 2 -.9594E+04 .9834E+03
+ 22 3 .2313E+04 -.2804E+05
+ 22 4 .1691E+05 .6245E+05
+ 22 5 .8494E+03 .4232E+04
+ 22 6 -.2650E+05 -.1473E+05
+ 22 7 -.2705E+04 .7298E+05
+ 22 8 -.1259E+05 -.2658E+05
+ 22 9 -.1954E+05 -.3955E+05
+ 22 10 .2728E+05 -.1798E+05
+ 22 11 .6830E+05 .7866E+05
+ 22 12 .1708E+05 .5522E+05
+ 22 13 -.7781E+05 -.2840E+04
+ 22 14 .1321E+05 -.3104E+05
+ 22 15 .3492E+05 .4954E+04
+ 22 16 .4475E+05 .1857E+05
+ 22 17 -.1510E+05 .3806E+05
+ 22 18 -.1362E+06 -.4831E+04
+ 22 19 -.2806E+05 -.2390E+05
+ 22 20 .8538E+04 -.8443E+05
+ 22 21 .2667E+05 .7891E+05
+ 22 22 .1739E+05 -.5617E+05
+ 23 0 .7256E+03 .0000E+00
+ 23 1 -.4339E+05 .3252E+05
+ 23 2 .3427E+04 .2625E+04
+ 23 3 -.4025E+04 .2978E+05
+ 23 4 -.7184E+03 .2717E+05
+ 23 5 -.5394E+05 -.4407E+04
+ 23 6 .1055E+05 .3550E+05
+ 23 7 .2921E+04 -.1112E+05
+ 23 8 -.1165E+05 -.3102E+05
+ 23 9 -.9167E+04 .2752E+05
+ 23 10 .6728E+05 .1691E+05
+ 23 11 .4684E+05 .3261E+05
+ 23 12 -.9408E+05 .3920E+05
+ 23 13 -.3124E+05 -.3564E+05
+ 23 14 .3942E+05 -.1449E+05
+ 23 15 .5622E+05 -.1183E+05
+ 23 16 -.4927E+05 .3509E+05
+ 23 17 -.6442E+05 -.2306E+05
+ 23 18 .1950E+04 -.1319E+04
+ 23 19 .6083E+05 -.3032E+05
+ 23 20 -.3327E+05 -.5261E+05
+ 23 21 .1222E+06 .4333E+05
+ 23 22 -.8112E+05 -.2296E+05
+ 23 23 .5270E+05 .4077E+05
+ 24 0 -.2914E+05 .0000E+00
+ 24 1 -.2384E+05 .1193E+05
+ 24 2 .6722E+04 -.4594E+05
+ 24 3 .2677E+05 .1994E+05
+ 24 4 -.4546E+05 -.8725E+04
+ 24 5 .2450E+05 .9291E+04
+ 24 6 .1238E+05 -.5654E+04
+ 24 7 -.2795E+05 -.3344E+05
+ 24 8 -.5410E+04 .3055E+05
+ 24 9 .2510E+05 -.1935E+05
+ 24 10 .2968E+05 -.4093E+04
+ 24 11 -.6842E+05 .2956E+05
+ 24 12 -.7250E+05 .2057E+05
+ 24 13 .1582E+05 -.9596E+05
+ 24 14 .3001E+05 -.3959E+05
+ 24 15 .9386E+03 -.1290E+05
+ 24 16 -.4205E+05 .9703E+04
+ 24 17 .3349E+05 -.4135E+04
+ 24 18 -.8671E+04 .3233E+04
+ 24 19 -.3960E+04 -.4692E+05
+ 24 20 -.2133E+05 .9456E+05
+ 24 21 -.1758E+05 .1017E+05
+ 24 22 -.1257E+06 .7050E+04
+ 24 23 .5159E+05 -.8198E+05
+ 24 24 -.4374E+05 -.2590E+05
+ 25 0 .8695E+03 .0000E+00
+ 25 1 .6031E+04 -.2504E+05
+ 25 2 .2435E+05 -.3329E+05
+ 25 3 .2469E+05 .1197E+05
+ 25 4 -.3410E+05 .1146E+05
+ 25 5 .3320E+05 -.4803E+05
+ 25 6 -.2179E+05 -.1774E+05
+ 25 7 -.1543E+05 -.4814E+04
+ 25 8 .4951E+05 -.1914E+05
+ 25 9 -.2142E+05 -.8345E+04
+ 25 10 -.3141E+05 .2066E+05
+ 25 11 -.3107E+05 .1162E+05
+ 25 12 -.1957E+05 -.6327E+05
+ 25 13 .1129E+05 -.1052E+06
+ 25 14 .6097E+05 .4322E+05
+ 25 15 -.8011E+04 .5983E+05
+ 25 16 -.1182E+05 .3324E+05
+ 25 17 -.4759E+05 -.3608E+05
+ 25 18 .2374E+05 -.2648E+05
+ 25 19 .8803E+04 .1879E+05
+ 25 20 .6322E+05 .5429E+04
+ 25 21 .1581E+05 -.4562E+05
+ 25 22 .2551E+05 .7954E+05
+ 25 23 -.8922E+04 -.9838E+05
+ 25 24 .3228E+05 .1004E+06
+ 25 25 .1954E+05 -.1637E+05
+ 942.500000000000000
+ 0 0 .3337E+06 .0000E+00
+ 1 0 .8757E+05 .0000E+00
+ 1 1 -.1995E+06 .1423E+06
+ 2 0 -.1158E+06 .0000E+00
+ 2 1 -.1224E+06 .1538E+06
+ 2 2 -.1635E+06 -.3021E+06
+ 3 0 -.2675E+05 .0000E+00
+ 3 1 -.3929E+05 -.5402E+05
+ 3 2 -.4800E+04 -.5035E+05
+ 3 3 .1459E+06 .1509E+06
+ 4 0 -.3306E+05 .0000E+00
+ 4 1 -.6215E+05 -.6652E+05
+ 4 2 .1136E+06 .8930E+04
+ 4 3 .1710E+06 .5036E+04
+ 4 4 -.8780E+05 .1796E+06
+ 5 0 -.6158E+05 .0000E+00
+ 5 1 .1064E+05 -.2513E+05
+ 5 2 .1228E+06 -.1565E+05
+ 5 3 -.6742E+05 .6945E+05
+ 5 4 -.7439E+05 -.2820E+05
+ 5 5 .8300E+05 -.2020E+06
+ 6 0 -.1863E+05 .0000E+00
+ 6 1 .5287E+05 -.3172E+05
+ 6 2 .4950E+04 .2064E+05
+ 6 3 -.6136E+05 .6634E+05
+ 6 4 -.6580E+05 -.6231E+05
+ 6 5 -.8091E+05 -.9809E+05
+ 6 6 .8067E+05 .4976E+05
+ 7 0 -.5505E+03 .0000E+00
+ 7 1 .3342E+05 -.2345E+04
+ 7 2 .3078E+04 .4332E+05
+ 7 3 -.2003E+05 .2690E+04
+ 7 4 -.5852E+05 -.9797E+05
+ 7 5 .1053E+06 .1427E+05
+ 7 6 .4311E+05 .1041E+06
+ 7 7 -.2026E+06 -.7639E+04
+ 8 0 .3905E+04 .0000E+00
+ 8 1 .6480E+05 .4490E+05
+ 8 2 .1307E+05 .1652E+05
+ 8 3 -.2836E+05 -.1598E+05
+ 8 4 .2551E+05 -.3465E+05
+ 8 5 .1019E+06 .5210E+05
+ 8 6 .3215E+05 .8316E+05
+ 8 7 -.3909E+05 .1505E+06
+ 8 8 .7303E+05 -.4678E+05
+ 9 0 .3166E+05 .0000E+00
+ 9 1 .4110E+05 .5609E+05
+ 9 2 -.5559E+05 .1099E+05
+ 9 3 -.2834E+05 -.1411E+05
+ 9 4 .4077E+05 -.1714E+05
+ 9 5 .5326E+05 .6698E+05
+ 9 6 -.5975E+05 .8711E+05
+ 9 7 -.6914E+05 -.7647E+05
+ 9 8 .4473E+05 -.1758E+06
+ 9 9 .7123E+05 .1547E+06
+ 10 0 -.6225E+03 .0000E+00
+ 10 1 -.1587E+05 -.5413E+04
+ 10 2 -.6274E+05 -.1478E+05
+ 10 3 .2138E+05 -.4894E+05
+ 10 4 .1469E+05 .2245E+05
+ 10 5 -.2578E+05 .2779E+05
+ 10 6 -.8919E+05 -.1810E+05
+ 10 7 -.3640E+05 -.1013E+06
+ 10 8 -.5696E+05 -.3925E+05
+ 10 9 .9793E+05 -.2947E+05
+ 10 10 -.1078E+06 -.7982E+05
+ 11 0 .5309E+04 .0000E+00
+ 11 1 .2358E+04 -.7555E+05
+ 11 2 -.1209E+05 -.1579E+05
+ 11 3 .2819E+05 -.5005E+05
+ 11 4 .6536E+04 .4221E+05
+ 11 5 -.3753E+05 -.1416E+05
+ 11 6 -.4144E+05 -.2340E+04
+ 11 7 -.6347E+04 -.1160E+06
+ 11 8 .6840E+05 .2535E+05
+ 11 9 .2730E+05 .1153E+05
+ 11 10 -.1547E+06 .7521E+05
+ 11 11 .1126E+06 -.1203E+06
+ 12 0 .5542E+05 .0000E+00
+ 12 1 -.1944E+05 -.2428E+05
+ 12 2 -.1134E+05 .1345E+05
+ 12 3 .1148E+05 -.2783E+04
+ 12 4 -.1468E+05 .5086E+05
+ 12 5 -.3220E+05 -.2136E+05
+ 12 6 .2120E+05 -.4921E+05
+ 12 7 .5893E+05 -.5764E+05
+ 12 8 .5528E+05 .1158E+06
+ 12 9 -.3944E+05 .2830E+05
+ 12 10 .2817E+05 .1218E+06
+ 12 11 -.4683E+05 -.5519E+05
+ 12 12 -.3439E+05 .1482E+06
+ 13 0 .3298E+05 .0000E+00
+ 13 1 -.7314E+05 .7180E+05
+ 13 2 .1617E+05 -.4466E+04
+ 13 3 -.8594E+03 .4684E+05
+ 13 4 -.1549E+05 .2470E+05
+ 13 5 .2408E+04 -.2241E+05
+ 13 6 .1373E+05 -.4299E+05
+ 13 7 .5306E+05 .3482E+05
+ 13 8 .2394E+05 .6578E+05
+ 13 9 -.6035E+05 .4093E+05
+ 13 10 .1230E+05 -.9522E+05
+ 13 11 .6579E+04 -.6299E+05
+ 13 12 .1780E+06 .6585E+05
+ 13 13 -.1106E+06 -.2804E+05
+ 14 0 -.3376E+05 .0000E+00
+ 14 1 -.1477E+05 .1394E+05
+ 14 2 .2494E+05 -.3622E+05
+ 14 3 .3344E+05 .2539E+05
+ 14 4 -.4710E+04 -.1690E+05
+ 14 5 .4717E+05 -.2893E+05
+ 14 6 .3105E+05 .2764E+05
+ 14 7 .5718E+05 .4902E+05
+ 14 8 -.6106E+05 .3516E+05
+ 14 9 -.4489E+05 -.4002E+05
+ 14 10 .4886E+05 -.1153E+06
+ 14 11 -.3876E+04 .6390E+05
+ 14 12 .3836E+05 -.9997E+05
+ 14 13 -.9386E+05 .3616E+05
+ 14 14 .1185E+06 -.4960E+05
+ 15 0 -.3022E+05 .0000E+00
+ 15 1 .9613E+04 -.1622E+05
+ 15 2 -.1283E+04 -.1273E+05
+ 15 3 .1963E+05 -.1217E+04
+ 15 4 -.2033E+05 -.3611E+05
+ 15 5 .5854E+05 -.1053E+05
+ 15 6 .4553E+04 .2902E+05
+ 15 7 -.8221E+04 -.1022E+05
+ 15 8 -.4347E+05 .3750E+05
+ 15 9 .1722E+05 -.5117E+05
+ 15 10 -.7374E+04 -.2153E+05
+ 15 11 .3166E+05 .3147E+05
+ 15 12 -.4873E+05 .2427E+05
+ 15 13 -.5245E+05 .5737E+05
+ 15 14 .4732E+04 -.1474E+06
+ 15 15 .1976E+05 .6811E+05
+ 16 0 -.9367E+04 .0000E+00
+ 16 1 -.1814E+05 -.1012E+04
+ 16 2 .3867E+05 .3020E+05
+ 16 3 -.3139E+05 -.8915E+03
+ 16 4 -.6366E+04 .2702E+05
+ 16 5 -.6958E+04 -.1537E+05
+ 16 6 -.6208E+05 .4184E+05
+ 16 7 -.6792E+05 .4543E+04
+ 16 8 -.2178E+05 -.1125E+05
+ 16 9 -.7369E+03 -.8386E+05
+ 16 10 .5896E+05 .2941E+05
+ 16 11 .1771E+04 .7029E+05
+ 16 12 -.8259E+05 .3905E+05
+ 16 13 .3079E+05 -.2254E+05
+ 16 14 -.1125E+06 .5546E+04
+ 16 15 .3671E+05 .6592E+05
+ 16 16 -.9469E+05 -.6745E+05
+ 17 0 -.5489E+05 .0000E+00
+ 17 1 .2182E+05 -.1915E+05
+ 17 2 .1167E+05 -.5468E+04
+ 17 3 -.2565E+05 .2138E+05
+ 17 4 .4670E+04 -.1212E+05
+ 17 5 -.1974E+05 .1014E+05
+ 17 6 -.5993E+05 .5452E+05
+ 17 7 -.1021E+05 -.1242E+05
+ 17 8 -.1677E+05 -.4194E+05
+ 17 9 .2207E+05 .2261E+05
+ 17 10 .2623E+05 .3447E+05
+ 17 11 -.7989E+05 .3250E+05
+ 17 12 -.5444E+04 -.1675E+05
+ 17 13 .1328E+04 -.6787E+05
+ 17 14 .7347E+05 -.8610E+04
+ 17 15 .1741E+06 .2791E+05
+ 17 16 -.7164E+05 .5358E+05
+ 17 17 .5949E+05 .1216E+05
+ 18 0 -.5253E+04 .0000E+00
+ 18 1 .4192E+05 -.1721E+05
+ 18 2 -.1430E+05 .6146E+04
+ 18 3 -.2409E+05 .1833E+05
+ 18 4 .6395E+04 -.5635E+05
+ 18 5 -.1847E+05 .3728E+05
+ 18 6 .1282E+05 -.4448E+05
+ 18 7 .2595E+05 -.3142E+05
+ 18 8 .2602E+05 -.1278E+05
+ 18 9 .7558E+05 .5123E+05
+ 18 10 -.3255E+05 .5307E+04
+ 18 11 -.5584E+05 .4803E+05
+ 18 12 .2233E+05 -.9930E+05
+ 18 13 .6653E+05 -.4911E+05
+ 18 14 .6679E+05 .3462E+05
+ 18 15 -.4906E+05 -.3139E+05
+ 18 16 -.3621E+05 .5156E+05
+ 18 17 .2822E+05 -.6134E+05
+ 18 18 -.2758E+05 .7591E+05
+ 19 0 .4998E+05 .0000E+00
+ 19 1 .1166E+05 -.9582E+04
+ 19 2 .7980E+04 .2599E+05
+ 19 3 -.5262E+04 -.3210E+05
+ 19 4 .2227E+05 -.9679E+03
+ 19 5 .1452E+05 -.1035E+04
+ 19 6 -.2297E+04 -.4971E+05
+ 19 7 .4497E+05 -.1773E+05
+ 19 8 .4513E+05 .1841E+04
+ 19 9 .1172E+05 -.2171E+05
+ 19 10 -.4150E+05 -.2356E+04
+ 19 11 .4791E+05 -.2969E+05
+ 19 12 .4463E+05 -.5153E+05
+ 19 13 .2646E+05 .5169E+05
+ 19 14 -.3719E+05 .1018E+05
+ 19 15 -.3135E+05 .3825E+05
+ 19 16 -.1719E+05 .5688E+04
+ 19 17 -.2731E+05 -.1478E+06
+ 19 18 .7188E+05 .5172E+05
+ 19 19 .7658E+04 -.8699E+05
+ 20 0 .1706E+05 .0000E+00
+ 20 1 .3661E+04 .2489E+05
+ 20 2 -.1285E+04 -.1566E+05
+ 20 3 -.7190E+04 -.1195E+05
+ 20 4 .4744E+05 -.1051E+05
+ 20 5 -.1576E+05 .4430E+04
+ 20 6 .1917E+05 -.8054E+04
+ 20 7 .5997E+05 .1631E+05
+ 20 8 -.2693E+05 -.1535E+04
+ 20 9 -.3848E+05 .1508E+05
+ 20 10 -.2623E+05 -.8151E+04
+ 20 11 -.7384E+04 -.5567E+05
+ 20 12 .2606E+04 -.1796E+04
+ 20 13 .4150E+05 .1293E+05
+ 20 14 -.3329E+05 .5024E+05
+ 20 15 -.3725E+05 .9116E+04
+ 20 16 -.7330E+04 -.6516E+05
+ 20 17 -.5435E+05 .3987E+05
+ 20 18 .4337E+05 .3506E+05
+ 20 19 -.9362E+05 -.2961E+05
+ 20 20 .5633E+05 .7985E+04
+ 21 0 .1024E+05 .0000E+00
+ 21 1 .2075E+05 .1011E+05
+ 21 2 -.3327E+05 .1390E+04
+ 21 3 .2200E+05 .2221E+04
+ 21 4 .1140E+05 -.9185E+02
+ 21 5 -.4102E+05 .4923E+05
+ 21 6 .5170E+05 .2132E+04
+ 21 7 -.2408E+05 .7985E+04
+ 21 8 -.2131E+05 .5049E+05
+ 21 9 -.3902E+05 .2014E+05
+ 21 10 -.2025E+05 -.3909E+05
+ 21 11 -.8887E+04 .1908E+05
+ 21 12 .5134E+05 .4043E+05
+ 21 13 -.4631E+05 .2304E+05
+ 21 14 -.7137E+05 .8134E+04
+ 21 15 .1698E+05 -.4449E+05
+ 21 16 .1833E+05 -.2316E+04
+ 21 17 .7050E+05 .3058E+05
+ 21 18 .1009E+06 .1271E+05
+ 21 19 -.8939E+05 .1117E+06
+ 21 20 .3941E+05 -.5363E+05
+ 21 21 -.8609E+05 .5389E+05
+ 22 0 .7751E+04 .0000E+00
+ 22 1 -.1502E+05 .3983E+04
+ 22 2 -.4209E+05 .2634E+05
+ 22 3 .3824E+05 -.2578E+05
+ 22 4 -.4743E+05 .4001E+05
+ 22 5 .1184E+05 .2816E+05
+ 22 6 -.1339E+05 -.2627E+05
+ 22 7 -.2637E+05 .5321E+05
+ 22 8 -.1085E+05 .1137E+05
+ 22 9 -.9860E+04 -.4095E+05
+ 22 10 .1671E+05 .1083E+05
+ 22 11 .8244E+05 .3966E+05
+ 22 12 .8177E+04 .3719E+05
+ 22 13 -.5183E+05 .3935E+05
+ 22 14 -.2176E+05 .2349E+05
+ 22 15 .2657E+05 -.2924E+05
+ 22 16 .4172E+05 -.8051E+04
+ 22 17 .5135E+05 .2947E+05
+ 22 18 -.1001E+06 .1059E+05
+ 22 19 .7403E+04 .1198E+04
+ 22 20 .1853E+04 -.1074E+06
+ 22 21 .2467E+05 .9092E+05
+ 22 22 .3188E+04 -.5535E+05
+ 23 0 -.1119E+05 .0000E+00
+ 23 1 -.4358E+05 .1766E+05
+ 23 2 .8561E+04 .2349E+04
+ 23 3 -.2899E+04 -.2091E+05
+ 23 4 -.2297E+05 .5460E+05
+ 23 5 -.5095E+04 -.4887E+05
+ 23 6 -.2328E+05 .1128E+05
+ 23 7 .5796E+04 .2416E+05
+ 23 8 -.1494E+05 -.6130E+05
+ 23 9 .8329E+04 .1660E+05
+ 23 10 .6270E+05 .1575E+04
+ 23 11 .3022E+05 .1646E+05
+ 23 12 -.6580E+05 .2076E+05
+ 23 13 .1039E+05 -.2099E+05
+ 23 14 .4672E+04 -.3984E+05
+ 23 15 .7171E+05 -.9370E+04
+ 23 16 -.2087E+05 .4537E+05
+ 23 17 -.5388E+05 -.7098E+04
+ 23 18 -.4177E+05 .4919E+04
+ 23 19 .2977E+05 -.5869E+05
+ 23 20 -.5479E+05 -.7161E+05
+ 23 21 .1489E+06 .4938E+05
+ 23 22 -.6900E+05 -.1419E+05
+ 23 23 .7584E+05 .3452E+05
+ 24 0 -.2279E+05 .0000E+00
+ 24 1 -.1151E+05 -.1009E+05
+ 24 2 .2168E+05 -.3876E+05
+ 24 3 -.1832E+04 .9613E+04
+ 24 4 .5753E+04 .9874E+03
+ 24 5 -.1823E+05 -.4410E+05
+ 24 6 .3537E+05 .2167E+05
+ 24 7 -.1855E+05 -.4013E+05
+ 24 8 -.2328E+05 -.4212E+04
+ 24 9 .3833E+05 .5940E+04
+ 24 10 .3640E+04 -.8492E+04
+ 24 11 -.7309E+05 .1318E+05
+ 24 12 -.2676E+05 -.3218E+05
+ 24 13 -.1587E+05 -.9537E+05
+ 24 14 -.5520E+04 -.1992E+05
+ 24 15 .1959E+05 -.2779E+05
+ 24 16 -.5902E+04 -.1858E+05
+ 24 17 .1680E+04 -.5490E+04
+ 24 18 -.7795E+03 .1320E+05
+ 24 19 -.2436E+05 -.7421E+05
+ 24 20 .2849E+05 .7389E+05
+ 24 21 .6651E+02 -.1847E+05
+ 24 22 -.1098E+06 .2244E+05
+ 24 23 .5046E+05 -.8268E+05
+ 24 24 -.4350E+05 .2554E+03
+ 25 0 .5827E+04 .0000E+00
+ 25 1 -.4051E+04 -.1264E+05
+ 25 2 .2124E+05 -.2305E+05
+ 25 3 -.2502E+04 .1990E+05
+ 25 4 -.1010E+05 -.2646E+05
+ 25 5 .5495E+04 -.2127E+05
+ 25 6 .4470E+05 -.3273E+05
+ 25 7 -.5514E+05 -.2920E+04
+ 25 8 .3935E+05 -.3388E+04
+ 25 9 -.2672E+04 -.2248E+05
+ 25 10 -.3698E+05 .1131E+05
+ 25 11 -.7577E+04 .5107E+04
+ 25 12 -.3084E+05 -.7243E+05
+ 25 13 -.1044E+05 -.3520E+05
+ 25 14 .4540E+05 .3483E+05
+ 25 15 .9153E+04 -.5954E+04
+ 25 16 -.2186E+05 .3364E+05
+ 25 17 -.5884E+05 -.2237E+05
+ 25 18 .4710E+05 -.2547E+05
+ 25 19 -.1632E+04 .1487E+05
+ 25 20 .8036E+05 .3427E+05
+ 25 21 -.2609E+05 .1667E+04
+ 25 22 .9641E+04 .1182E+06
+ 25 23 -.2761E+05 -.1131E+06
+ 25 24 .2137E+05 .8861E+05
+ 25 25 -.4398E+04 -.3898E+05
+ 1087.50000000000000
+ 0 0 .2705E+06 .0000E+00
+ 1 0 .5651E+05 .0000E+00
+ 1 1 -.1083E+06 .8049E+05
+ 2 0 -.1167E+06 .0000E+00
+ 2 1 -.5219E+05 .7318E+05
+ 2 2 -.2202E+06 -.2117E+06
+ 3 0 -.5163E+05 .0000E+00
+ 3 1 -.3845E+05 -.6344E+04
+ 3 2 -.6548E+05 -.1924E+04
+ 3 3 .1040E+06 .8898E+05
+ 4 0 .4236E+04 .0000E+00
+ 4 1 -.2520E+05 -.1479E+04
+ 4 2 .9518E+05 .1748E+05
+ 4 3 .1216E+06 -.7830E+04
+ 4 4 .1223E+05 .1877E+06
+ 5 0 -.2614E+05 .0000E+00
+ 5 1 .3698E+05 -.7354E+05
+ 5 2 .7065E+05 -.3591E+05
+ 5 3 .4984E+05 .5505E+05
+ 5 4 -.1188E+05 .8009E+04
+ 5 5 -.6115E+04 -.1107E+06
+ 6 0 -.4273E+04 .0000E+00
+ 6 1 .2458E+05 -.1351E+05
+ 6 2 -.2846E+05 .1069E+05
+ 6 3 .1075E+05 .3515E+05
+ 6 4 -.1345E+06 -.8987E+05
+ 6 5 -.9742E+05 -.8575E+05
+ 6 6 .6798E+05 -.1081E+06
+ 7 0 .1323E+05 .0000E+00
+ 7 1 -.1199E+04 .2759E+05
+ 7 2 .1678E+05 .1163E+05
+ 7 3 -.5463E+05 .4567E+04
+ 7 4 -.1136E+06 -.3643E+05
+ 7 5 .2822E+05 -.4156E+05
+ 7 6 .2965E+05 .3794E+05
+ 7 7 -.5947E+05 .5564E+05
+ 8 0 .2334E+03 .0000E+00
+ 8 1 .2744E+05 .3343E+05
+ 8 2 -.6301E+04 -.1383E+05
+ 8 3 -.5256E+04 -.5418E+03
+ 8 4 .5208E+05 -.1313E+05
+ 8 5 .7844E+05 .2802E+04
+ 8 6 .8521E+05 .1423E+06
+ 8 7 .1456E+05 .1076E+06
+ 8 8 -.5551E+05 .2493E+05
+ 9 0 .3093E+05 .0000E+00
+ 9 1 .2295E+05 -.8211E+04
+ 9 2 .2115E+05 .3729E+05
+ 9 3 .2696E+05 .1517E+05
+ 9 4 .9648E+04 -.6352E+03
+ 9 5 .4452E+05 .6736E+05
+ 9 6 .3788E+05 .9436E+05
+ 9 7 -.8088E+05 -.3255E+05
+ 9 8 -.6775E+04 -.5784E+05
+ 9 9 .4844E+05 .2202E+05
+ 10 0 -.9622E+04 .0000E+00
+ 10 1 -.1207E+05 -.1068E+05
+ 10 2 -.3783E+05 .3670E+05
+ 10 3 -.4095E+05 -.5949E+05
+ 10 4 -.2866E+05 .2728E+05
+ 10 5 .3208E+05 -.1801E+05
+ 10 6 -.7117E+05 -.2917E+05
+ 10 7 -.7998E+05 -.1273E+06
+ 10 8 -.9886E+03 -.1403E+06
+ 10 9 .7242E+05 -.1041E+06
+ 10 10 .2641E+05 -.1521E+05
+ 11 0 -.2552E+05 .0000E+00
+ 11 1 -.2508E+05 -.1403E+05
+ 11 2 -.3794E+05 -.3902E+05
+ 11 3 -.2657E+05 -.2506E+05
+ 11 4 .1551E+05 -.1185E+05
+ 11 5 .1039E+05 -.5164E+05
+ 11 6 -.5847E+05 .3324E+05
+ 11 7 -.2371E+04 -.1028E+06
+ 11 8 .2857E+05 -.2913E+05
+ 11 9 .5882E+05 .7718E+05
+ 11 10 -.4518E+05 .6850E+05
+ 11 11 .8762E+04 -.1048E+05
+ 12 0 .1661E+05 .0000E+00
+ 12 1 .3054E+04 -.2154E+05
+ 12 2 .1270E+05 .7634E+02
+ 12 3 .2796E+05 .3689E+04
+ 12 4 .2592E+05 .1603E+05
+ 12 5 -.2048E+05 .4167E+05
+ 12 6 .1119E+05 .1841E+05
+ 12 7 -.6465E+04 -.5382E+05
+ 12 8 .5597E+05 .9121E+05
+ 12 9 .3093E+05 .1327E+06
+ 12 10 -.4620E+05 .8748E+05
+ 12 11 -.1014E+06 .2081E+05
+ 12 12 -.3543E+05 -.6485E+04
+ 13 0 .4307E+05 .0000E+00
+ 13 1 -.1213E+05 .5146E+05
+ 13 2 .3575E+05 .5207E+04
+ 13 3 .6420E+04 .2793E+05
+ 13 4 -.6745E+04 .3135E+05
+ 13 5 .1999E+05 .6338E+04
+ 13 6 -.4705E+03 -.1747E+05
+ 13 7 .5961E+03 .2962E+05
+ 13 8 .7720E+05 .8907E+05
+ 13 9 -.3612E+05 .7485E+05
+ 13 10 -.2987E+05 -.2063E+05
+ 13 11 -.1345E+05 -.6460E+05
+ 13 12 .1001E+06 .4495E+04
+ 13 13 -.2758E+04 -.1456E+05
+ 14 0 -.2058E+05 .0000E+00
+ 14 1 -.9965E+04 .1697E+05
+ 14 2 -.7336E+03 -.4010E+05
+ 14 3 -.9536E+04 -.2728E+04
+ 14 4 .4169E+05 -.1230E+05
+ 14 5 -.1385E+05 -.2756E+05
+ 14 6 -.1483E+05 .4296E+04
+ 14 7 .4133E+05 -.8117E+04
+ 14 8 -.2496E+04 .5257E+04
+ 14 9 -.5768E+05 -.3651E+05
+ 14 10 .9731E+04 -.1381E+06
+ 14 11 .2735E+05 -.1015E+06
+ 14 12 .8675E+05 -.4961E+05
+ 14 13 .4598E+05 .1383E+05
+ 14 14 -.3137E+04 .2189E+05
+ 15 0 -.2395E+05 .0000E+00
+ 15 1 .3020E+05 -.4278E+05
+ 15 2 -.2567E+05 -.2627E+04
+ 15 3 .4925E+05 .5106E+04
+ 15 4 -.3275E+05 -.1037E+05
+ 15 5 -.2192E+05 -.1335E+05
+ 15 6 .4551E+03 -.1268E+05
+ 15 7 .9930E+04 -.5319E+05
+ 15 8 -.1373E+05 .2978E+05
+ 15 9 -.2100E+04 -.4313E+05
+ 15 10 .2169E+05 -.8691E+05
+ 15 11 .4783E+05 .2953E+05
+ 15 12 .3488E+03 .7271E+05
+ 15 13 -.3427E+05 .6814E+05
+ 15 14 -.5351E+05 -.5064E+05
+ 15 15 .4973E+04 .7514E+04
+ 16 0 .1382E+05 .0000E+00
+ 16 1 -.1574E+05 .2264E+04
+ 16 2 .7925E+04 .5307E+05
+ 16 3 -.1660E+05 -.8919E+04
+ 16 4 -.3359E+05 .1080E+05
+ 16 5 .2007E+05 .1524E+05
+ 16 6 -.2728E+05 -.2086E+05
+ 16 7 .1893E+04 .4825E+05
+ 16 8 -.6845E+04 .4231E+05
+ 16 9 -.5567E+05 -.2048E+05
+ 16 10 -.1021E+05 -.9182E+04
+ 16 11 -.1825E+05 .1003E+06
+ 16 12 -.8137E+05 .7715E+05
+ 16 13 -.7142E+05 .2934E+05
+ 16 14 -.1090E+06 -.2930E+05
+ 16 15 -.4383E+05 -.1017E+05
+ 16 16 .1911E+05 -.5092E+04
+ 17 0 -.2173E+05 .0000E+00
+ 17 1 -.2456E+05 .3973E+05
+ 17 2 .1311E+05 -.1445E+05
+ 17 3 -.4503E+05 .1680E+05
+ 17 4 .2802E+05 .1844E+05
+ 17 5 -.7405E+04 -.1337E+05
+ 17 6 -.6294E+04 .4255E+05
+ 17 7 .1540E+05 .3122E+05
+ 17 8 -.2781E+05 -.3523E+04
+ 17 9 -.4780E+05 .7376E+04
+ 17 10 .3205E+05 -.8547E+04
+ 17 11 -.3737E+04 .8018E+05
+ 17 12 -.1799E+05 .2067E+05
+ 17 13 .1230E+05 -.5281E+05
+ 17 14 .5226E+05 -.4865E+05
+ 17 15 .9921E+05 -.3025E+03
+ 17 16 .2537E+05 .3660E+05
+ 17 17 .9842E+04 .3407E+04
+ 18 0 -.1977E+05 .0000E+00
+ 18 1 .1819E+05 -.3407E+05
+ 18 2 -.7867E+04 -.4668E+05
+ 18 3 .7015E+04 .2675E+05
+ 18 4 .3051E+05 -.6258E+05
+ 18 5 -.1403E+05 .2142E+05
+ 18 6 .3514E+05 .6188E+04
+ 18 7 .3758E+04 -.4064E+05
+ 18 8 -.4703E+04 .1466E+03
+ 18 9 .4569E+05 -.3770E+05
+ 18 10 .4098E+05 -.1745E+05
+ 18 11 .1233E+05 .5531E+05
+ 18 12 -.7727E+04 -.4789E+05
+ 18 13 .5691E+05 -.8084E+05
+ 18 14 .5644E+05 -.1129E+05
+ 18 15 .5432E+05 .1411E+05
+ 18 16 .2660E+05 .7163E+05
+ 18 17 .1814E+05 .2913E+05
+ 18 18 -.3640E+05 .6129E+04
+ 19 0 .3324E+05 .0000E+00
+ 19 1 .1527E+05 -.3481E+05
+ 19 2 .8296E+04 .2901E+05
+ 19 3 .2934E+05 -.2729E+05
+ 19 4 -.3451E+05 -.1919E+04
+ 19 5 .5006E+04 .2207E+04
+ 19 6 .1491E+05 -.4923E+05
+ 19 7 -.2443E+05 -.1309E+04
+ 19 8 .4069E+05 -.4162E+05
+ 19 9 .1344E+05 -.4534E+05
+ 19 10 .2729E+05 .5557E+04
+ 19 11 .2102E+05 .7235E+04
+ 19 12 -.2686E+03 -.5759E+05
+ 19 13 .6046E+05 -.5887E+05
+ 19 14 .7507E+04 .3662E+05
+ 19 15 -.2703E+05 .3412E+05
+ 19 16 -.5645E+05 .3759E+04
+ 19 17 -.5626E+05 -.9747E+05
+ 19 18 .6346E+04 -.3184E+05
+ 19 19 .1014E+05 -.3823E+05
+ 20 0 .1696E+05 .0000E+00
+ 20 1 -.9907E+03 .1594E+05
+ 20 2 .2171E+05 .1036E+05
+ 20 3 -.1080E+05 -.1793E+05
+ 20 4 .3694E+04 .3418E+05
+ 20 5 .1759E+05 -.1253E+05
+ 20 6 -.3999E+05 .1027E+05
+ 20 7 .1422E+05 .2891E+05
+ 20 8 -.1497E+05 -.4243E+05
+ 20 9 -.2046E+05 .3418E+05
+ 20 10 .2641E+05 .2557E+05
+ 20 11 -.6329E+05 .1849E+04
+ 20 12 -.2147E+05 -.2892E+05
+ 20 13 .9778E+03 -.2706E+05
+ 20 14 -.5844E+05 .8853E+05
+ 20 15 -.9816E+05 .2409E+05
+ 20 16 -.5241E+05 -.2111E+05
+ 20 17 -.4504E+05 -.3572E+05
+ 20 18 .2436E+05 -.2338E+05
+ 20 19 -.2304E+04 -.1571E+05
+ 20 20 .2865E+05 .2604E+05
+ 21 0 -.2434E+05 .0000E+00
+ 21 1 .1128E+05 .2853E+05
+ 21 2 -.3008E+05 -.5259E+04
+ 21 3 -.8413E+04 .2881E+05
+ 21 4 .2284E+05 -.7414E+04
+ 21 5 -.4689E+05 .1478E+05
+ 21 6 .3411E+05 .1583E+05
+ 21 7 .1286E+05 .1702E+05
+ 21 8 -.3334E+05 .2819E+05
+ 21 9 .1908E+05 .6402E+05
+ 21 10 -.4389E+05 .1583E+05
+ 21 11 -.5821E+05 .3874E+05
+ 21 12 -.5412E+04 -.3017E+05
+ 21 13 -.8899E+04 .1707E+05
+ 21 14 -.3040E+05 .5973E+05
+ 21 15 -.2747E+05 -.5870E+04
+ 21 16 .4130E+05 -.5711E+05
+ 21 17 .4732E+05 -.1867E+05
+ 21 18 .5573E+05 .2839E+05
+ 21 19 -.2848E+05 .9531E+05
+ 21 20 -.3345E+04 -.1309E+05
+ 21 21 -.5074E+05 .5852E+04
+ 22 0 .5460E+04 .0000E+00
+ 22 1 .6935E+04 -.3495E+04
+ 22 2 -.1160E+05 .2015E+05
+ 22 3 .2394E+05 .5319E+03
+ 22 4 -.2397E+05 -.9555E+04
+ 22 5 .1344E+05 .3146E+05
+ 22 6 .1636E+05 -.1860E+05
+ 22 7 -.1676E+05 -.1036E+04
+ 22 8 .1683E+05 .3141E+05
+ 22 9 .1544E+05 -.1774E+05
+ 22 10 -.2102E+05 .2506E+05
+ 22 11 .3594E+05 .3842E+04
+ 22 12 .1045E+05 -.4363E+05
+ 22 13 .4327E+05 .6880E+05
+ 22 14 -.1800E+05 .3723E+05
+ 22 15 .1053E+05 -.8350E+04
+ 22 16 .6393E+05 -.5585E+05
+ 22 17 .5235E+05 .3743E+05
+ 22 18 .2815E+05 .4596E+05
+ 22 19 .1417E+05 .5267E+05
+ 22 20 -.1302E+05 -.1495E+05
+ 22 21 -.6016E+04 .3888E+05
+ 22 22 .8461E+04 -.1702E+05
+ 23 0 .7700E+04 .0000E+00
+ 23 1 -.1721E+05 -.1705E+04
+ 23 2 .2689E+04 .1656E+05
+ 23 3 -.2135E+05 -.3456E+05
+ 23 4 -.8171E+04 .1831E+05
+ 23 5 .2174E+05 -.3776E+05
+ 23 6 -.2670E+05 -.2029E+05
+ 23 7 .2055E+05 .1012E+05
+ 23 8 -.5747E+04 -.3988E+05
+ 23 9 -.1496E+05 -.1510E+05
+ 23 10 .2583E+05 -.2520E+05
+ 23 11 .3264E+05 -.6215E+05
+ 23 12 .2907E+05 .1687E+04
+ 23 13 .5738E+05 .1867E+05
+ 23 14 -.2155E+05 .3298E+03
+ 23 15 .5622E+05 -.5126E+05
+ 23 16 .4462E+05 -.2734E+05
+ 23 17 .1391E+05 .1891E+05
+ 23 18 -.3851E+05 .1275E+05
+ 23 19 -.4322E+05 -.2296E+05
+ 23 20 -.4074E+05 -.6397E+05
+ 23 21 .7272E+05 -.3788E+05
+ 23 22 -.3382E+05 .1874E+04
+ 23 23 .4360E+05 .2021E+05
+ 24 0 .1734E+03 .0000E+00
+ 24 1 -.1502E+05 .8007E+04
+ 24 2 .4594E+04 -.2315E+05
+ 24 3 -.6634E+04 .5208E+04
+ 24 4 .1937E+05 -.4183E+04
+ 24 5 -.1252E+05 -.1784E+05
+ 24 6 .5639E+04 .4053E+05
+ 24 7 -.1492E+05 -.3880E+05
+ 24 8 -.1889E+05 -.1300E+05
+ 24 9 -.1292E+05 .1501E+05
+ 24 10 .1460E+05 -.4404E+05
+ 24 11 -.4079E+05 -.1262E+04
+ 24 12 .2786E+05 .4042E+04
+ 24 13 -.3084E+05 -.2410E+05
+ 24 14 -.4789E+05 .2851E+04
+ 24 15 .2951E+05 -.8690E+05
+ 24 16 -.2297E+04 .1405E+05
+ 24 17 -.4930E+05 .2347E+05
+ 24 18 -.7678E+05 .3161E+05
+ 24 19 -.1831E+05 -.3713E+05
+ 24 20 -.1799E+04 -.4126E+05
+ 24 21 .2201E+05 -.4451E+05
+ 24 22 -.1311E+05 .2216E+05
+ 24 23 .4350E+05 -.2078E+05
+ 24 24 .7361E+04 .6439E+04
+ 25 0 -.4040E+04 .0000E+00
+ 25 1 -.5003E+02 -.2139E+05
+ 25 2 -.3343E+04 -.1603E+05
+ 25 3 .1435E+05 .1673E+03
+ 25 4 -.1412E+05 -.1257E+05
+ 25 5 .1600E+04 .2678E+05
+ 25 6 .2654E+05 -.1438E+05
+ 25 7 -.3864E+05 .7854E+04
+ 25 8 .1613E+05 .2988E+05
+ 25 9 -.6557E+04 -.4271E+04
+ 25 10 -.2765E+05 .8125E+04
+ 25 11 -.8609E+04 .2302E+05
+ 25 12 -.2116E+05 .8173E+04
+ 25 13 -.6827E+05 .2550E+05
+ 25 14 -.2787E+05 -.1319E+05
+ 25 15 .3870E+04 -.6148E+05
+ 25 16 -.1090E+05 .4035E+05
+ 25 17 -.6987E+05 .8092E+04
+ 25 18 .9876E+04 -.1247E+05
+ 25 19 .2678E+05 -.4699E+05
+ 25 20 .3950E+05 -.1397E+04
+ 25 21 .2380E+05 .4996E+05
+ 25 22 .6001E+04 .8783E+05
+ 25 23 -.5681E+05 -.2452E+05
+ 25 24 .1234E+05 .1728E+05
+ 25 25 -.4949E+05 -.3077E+05
+ 1232.50000000000000
+ 0 0 .2854E+06 .0000E+00
+ 1 0 .1120E+05 .0000E+00
+ 1 1 -.7887E+05 .4218E+05
+ 2 0 -.1439E+06 .0000E+00
+ 2 1 .3600E+04 .2735E+05
+ 2 2 -.1994E+06 -.1750E+06
+ 3 0 -.3489E+05 .0000E+00
+ 3 1 -.4731E+05 -.2332E+05
+ 3 2 -.1001E+06 .3483E+05
+ 3 3 -.9201E+04 .6984E+05
+ 4 0 .3331E+05 .0000E+00
+ 4 1 -.3873E+05 .2881E+05
+ 4 2 .1394E+06 .2170E+05
+ 4 3 .1226E+06 -.1197E+05
+ 4 4 .5250E+05 .1859E+06
+ 5 0 .3017E+05 .0000E+00
+ 5 1 .5856E+05 -.3910E+05
+ 5 2 .7012E+05 .1192E+05
+ 5 3 .9029E+04 .4884E+05
+ 5 4 -.3712E+05 .4889E+05
+ 5 5 -.7003E+05 -.3134E+05
+ 6 0 -.2131E+05 .0000E+00
+ 6 1 .3180E+04 -.4157E+05
+ 6 2 -.6801E+05 -.2796E+05
+ 6 3 .4206E+05 -.8122E+04
+ 6 4 -.5292E+05 -.1398E+06
+ 6 5 -.2077E+05 -.1209E+06
+ 6 6 .1266E+06 -.2114E+06
+ 7 0 -.2515E+05 .0000E+00
+ 7 1 -.2316E+05 .2926E+05
+ 7 2 .1168E+05 -.2625E+05
+ 7 3 -.5525E+05 -.4950E+04
+ 7 4 -.6073E+05 -.2799E+05
+ 7 5 -.2379E+05 .2452E+05
+ 7 6 .1620E+05 .1125E+06
+ 7 7 .6383E+05 .9397E+05
+ 8 0 .3208E+05 .0000E+00
+ 8 1 .9984E+04 .5639E+05
+ 8 2 .2191E+05 .4326E+05
+ 8 3 -.4737E+05 .1056E+05
+ 8 4 .1520E+04 .4432E+05
+ 8 5 .1929E+05 -.5562E+05
+ 8 6 .4569E+05 .1109E+06
+ 8 7 -.1466E+05 -.1005E+05
+ 8 8 -.1639E+06 .2039E+05
+ 9 0 -.9225E+04 .0000E+00
+ 9 1 .9409E+04 -.3848E+05
+ 9 2 .2594E+05 .4587E+05
+ 9 3 .4165E+05 -.3486E+05
+ 9 4 .4509E+05 .3329E+05
+ 9 5 .4938E+05 .4492E+05
+ 9 6 .1631E+05 .7079E+05
+ 9 7 -.5540E+05 .4223E+05
+ 9 8 -.1374E+05 -.1199E+05
+ 9 9 .1949E+04 -.4346E+05
+ 10 0 -.2027E+05 .0000E+00
+ 10 1 .4602E+04 -.3143E+05
+ 10 2 -.2230E+05 .9968E+04
+ 10 3 -.2819E+05 -.2555E+05
+ 10 4 -.5358E+03 .2513E+05
+ 10 5 .3028E+05 -.1407E+04
+ 10 6 -.4042E+04 -.5188E+05
+ 10 7 -.4594E+05 -.8374E+05
+ 10 8 -.1851E+05 -.1784E+06
+ 10 9 -.8059E+04 -.1179E+06
+ 10 10 .5858E+05 .5507E+05
+ 11 0 .3498E+04 .0000E+00
+ 11 1 -.1500E+05 .7199E+04
+ 11 2 -.3591E+05 -.4942E+05
+ 11 3 -.3330E+05 .1130E+05
+ 11 4 -.1921E+04 -.4268E+05
+ 11 5 -.2086E+05 -.2203E+05
+ 11 6 -.2965E+05 -.1147E+05
+ 11 7 .2505E+05 -.3830E+05
+ 11 8 .1840E+05 .4773E+05
+ 11 9 .7862E+05 .6732E+05
+ 11 10 .2644E+05 .7066E+05
+ 11 11 -.1671E+05 .8452E+05
+ 12 0 -.1069E+05 .0000E+00
+ 12 1 .9453E+04 .3894E+05
+ 12 2 -.3798E+04 -.4308E+05
+ 12 3 .3952E+05 -.6094E+03
+ 12 4 -.3208E+04 -.6064E+04
+ 12 5 -.1908E+05 .2189E+05
+ 12 6 -.2344E+05 .1975E+05
+ 12 7 -.2745E+05 -.1073E+05
+ 12 8 .2030E+05 .2393E+05
+ 12 9 .1612E+05 .7514E+05
+ 12 10 -.5934E+05 .1160E+05
+ 12 11 -.5375E+05 .2480E+05
+ 12 12 -.4047E+05 -.1069E+06
+ 13 0 .4021E+05 .0000E+00
+ 13 1 .3317E+05 .8994E+04
+ 13 2 .4347E+05 .4445E+05
+ 13 3 .2760E+05 .2055E+05
+ 13 4 -.4809E+04 .3865E+05
+ 13 5 .3465E+05 -.1308E+05
+ 13 6 -.2391E+05 -.1432E+05
+ 13 7 .2730E+05 .3536E+05
+ 13 8 .2757E+05 .3873E+05
+ 13 9 -.1623E+05 .9202E+05
+ 13 10 .3428E+05 -.1202E+05
+ 13 11 .5453E+05 -.4270E+05
+ 13 12 .1053E+06 .1669E+05
+ 13 13 .1252E+06 -.7769E+05
+ 14 0 .1588E+04 .0000E+00
+ 14 1 -.2118E+05 -.3765E+04
+ 14 2 -.3831E+04 .1365E+05
+ 14 3 -.2060E+05 -.6383E+04
+ 14 4 .3032E+05 -.5026E+04
+ 14 5 -.8473E+04 -.8988E+04
+ 14 6 .9495E+04 .1942E+05
+ 14 7 .2496E+05 -.1766E+05
+ 14 8 .1598E+05 -.2105E+05
+ 14 9 -.2724E+05 -.3324E+05
+ 14 10 -.4494E+05 -.9574E+05
+ 14 11 -.2041E+05 -.1346E+06
+ 14 12 .1995E+05 -.4794E+04
+ 14 13 .2563E+05 -.7497E+04
+ 14 14 -.5007E+05 .6108E+05
+ 15 0 -.2657E+05 .0000E+00
+ 15 1 -.1690E+05 -.1042E+05
+ 15 2 -.1418E+05 -.3771E+05
+ 15 3 -.2068E+05 .2448E+04
+ 15 4 -.2151E+05 -.1642E+05
+ 15 5 -.2530E+05 .3919E+04
+ 15 6 .1692E+05 -.3330E+04
+ 15 7 -.1097E+05 -.4706E+05
+ 15 8 .2557E+04 .2102E+05
+ 15 9 .5427E+04 -.5217E+05
+ 15 10 .1997E+05 -.1445E+05
+ 15 11 .5491E+05 .9583E+04
+ 15 12 -.1074E+05 .6461E+05
+ 15 13 .8346E+04 .8871E+05
+ 15 14 -.4741E+05 -.3005E+05
+ 15 15 -.7042E+05 -.1887E+04
+ 16 0 -.2015E+04 .0000E+00
+ 16 1 .2279E+05 -.3154E+05
+ 16 2 -.3073E+05 -.9333E+03
+ 16 3 .1154E+05 .3290E+04
+ 16 4 -.2336E+05 -.1217E+05
+ 16 5 .2352E+05 .8817E+04
+ 16 6 -.8887E+04 -.3449E+05
+ 16 7 -.2288E+04 .7425E+05
+ 16 8 -.2541E+05 .1237E+05
+ 16 9 -.3727E+05 .3591E+05
+ 16 10 -.4420E+05 -.1220E+05
+ 16 11 -.4759E+05 .5970E+05
+ 16 12 -.6854E+05 .5630E+05
+ 16 13 -.9336E+05 .4412E+05
+ 16 14 -.1311E+06 -.2494E+05
+ 16 15 -.1094E+06 -.6872E+04
+ 16 16 .3258E+05 .4261E+05
+ 17 0 .2156E+05 .0000E+00
+ 17 1 -.2257E+05 .1390E+05
+ 17 2 .1657E+05 .1247E+05
+ 17 3 -.3406E+04 .6296E+04
+ 17 4 .3897E+05 .1612E+05
+ 17 5 -.9817E+04 .8960E+04
+ 17 6 -.5884E+04 .1903E+05
+ 17 7 .9752E+04 .1138E+05
+ 17 8 -.3909E+05 -.3559E+05
+ 17 9 .2435E+04 -.1250E+05
+ 17 10 .2273E+05 .1637E+05
+ 17 11 .7897E+04 .8312E+05
+ 17 12 .5270E+05 .2881E+05
+ 17 13 .2412E+05 -.4760E+05
+ 17 14 .1061E+06 -.2602E+05
+ 17 15 .1105E+06 -.3687E+05
+ 17 16 .6459E+05 .1551E+05
+ 17 17 .4579E+05 .6453E+05
+ 18 0 .3157E+04 .0000E+00
+ 18 1 -.1437E+05 -.3040E+04
+ 18 2 .3269E+05 -.8573E+03
+ 18 3 -.1164E+05 -.8371E+04
+ 18 4 .1791E+05 .4213E+04
+ 18 5 -.4760E+04 -.4535E+04
+ 18 6 .1114E+05 .1831E+05
+ 18 7 .3272E+05 -.5407E+05
+ 18 8 -.5417E+04 .2496E+05
+ 18 9 .6211E+05 -.4899E+05
+ 18 10 .1090E+05 .1884E+05
+ 18 11 .4420E+05 -.1243E+05
+ 18 12 -.3401E+05 -.2187E+05
+ 18 13 .1176E+05 -.5579E+05
+ 18 14 .3046E+05 -.2689E+05
+ 18 15 .6029E+05 .3359E+05
+ 18 16 .2480E+04 .6811E+05
+ 18 17 .2590E+05 .8720E+05
+ 18 18 -.4718E+05 -.1828E+05
+ 19 0 -.8181E+04 .0000E+00
+ 19 1 .2891E+05 -.7038E+03
+ 19 2 -.3412E+04 .1751E+04
+ 19 3 .1240E+05 .1551E+05
+ 19 4 -.2840E+05 -.2033E+05
+ 19 5 -.7253E+04 -.4583E+04
+ 19 6 -.6638E+04 -.2649E+05
+ 19 7 -.1215E+05 .5083E+03
+ 19 8 .4360E+05 .1025E+05
+ 19 9 -.5872E+04 -.7486E+04
+ 19 10 .1448E+05 -.7108E+04
+ 19 11 .6089E+04 -.4689E+05
+ 19 12 .6441E+04 -.6008E+05
+ 19 13 .5613E+05 -.6359E+05
+ 19 14 .1671E+05 -.2909E+05
+ 19 15 .2233E+05 .5262E+05
+ 19 16 -.2409E+05 -.8598E+04
+ 19 17 -.2270E+05 -.5277E+05
+ 19 18 .1385E+04 -.8280E+05
+ 19 19 .2217E+04 -.1291E+06
+ 20 0 -.7652E+04 .0000E+00
+ 20 1 -.8311E+03 .1849E+05
+ 20 2 -.1522E+05 .3105E+05
+ 20 3 -.1307E+04 -.1979E+05
+ 20 4 .6701E+04 .1349E+05
+ 20 5 -.2605E+04 -.1210E+05
+ 20 6 -.1994E+05 .2748E+05
+ 20 7 -.4052E+05 -.2419E+01
+ 20 8 -.2392E+05 -.1944E+05
+ 20 9 -.2414E+05 .2259E+05
+ 20 10 .9432E+04 .9345E+04
+ 20 11 -.7003E+04 .7335E+04
+ 20 12 -.1204E+05 .6282E+04
+ 20 13 -.5997E+05 -.3802E+05
+ 20 14 -.4984E+05 .6508E+05
+ 20 15 -.1094E+06 .2527E+05
+ 20 16 -.8699E+05 .2893E+05
+ 20 17 -.1023E+06 -.2072E+05
+ 20 18 -.4169E+05 -.2085E+05
+ 20 19 .1616E+05 -.1996E+05
+ 20 20 .2995E+05 .8421E+03
+ 21 0 -.2230E+05 .0000E+00
+ 21 1 -.3342E+04 .8635E+04
+ 21 2 -.2141E+05 -.8649E+02
+ 21 3 -.5268E+04 .1286E+05
+ 21 4 .8235E+04 .8296E+04
+ 21 5 -.1163E+05 .1194E+05
+ 21 6 .3793E+05 -.2223E+05
+ 21 7 .1459E+05 .6986E+04
+ 21 8 -.1301E+05 .2696E+05
+ 21 9 .1197E+05 .4220E+05
+ 21 10 -.6506E+05 .2616E+05
+ 21 11 -.2580E+05 .1272E+05
+ 21 12 -.2272E+05 .2600E+04
+ 21 13 .1003E+05 .6239E+05
+ 21 14 .1357E+05 .3431E+05
+ 21 15 .1093E+05 -.8564E+04
+ 21 16 .3247E+05 -.4235E+05
+ 21 17 .4113E+05 -.6162E+05
+ 21 18 .1885E+05 -.1799E+05
+ 21 19 .2899E+05 .2516E+05
+ 21 20 -.1895E+05 -.7788E+04
+ 21 21 -.6114E+05 .4438E+05
+ 22 0 .2621E+04 .0000E+00
+ 22 1 .1993E+04 -.2325E+05
+ 22 2 -.2875E+04 -.5048E+05
+ 22 3 .1473E+04 .4002E+04
+ 22 4 .3426E+05 -.3239E+05
+ 22 5 -.8809E+04 .2835E+05
+ 22 6 .6474E+05 -.2039E+05
+ 22 7 -.2012E+05 .2333E+05
+ 22 8 .6283E+05 .1436E+05
+ 22 9 .2407E+04 -.4140E+05
+ 22 10 .8328E+04 .3585E+05
+ 22 11 -.6384E+04 -.1508E+05
+ 22 12 .5684E+04 .3605E+05
+ 22 13 .3649E+05 .5314E+05
+ 22 14 -.8620E+04 .4755E+05
+ 22 15 -.9890E+04 .5179E+05
+ 22 16 .4133E+05 -.3817E+05
+ 22 17 .3067E+05 .4214E+05
+ 22 18 .2236E+05 .3634E+05
+ 22 19 -.1893E+05 .8854E+05
+ 22 20 -.2499E+05 .5692E+05
+ 22 21 -.4300E+05 .5069E+05
+ 22 22 .1409E+05 .3063E+05
+ 23 0 .3802E+05 .0000E+00
+ 23 1 .3135E+04 -.3297E+04
+ 23 2 .1371E+05 .1005E+05
+ 23 3 .7979E+04 -.2180E+05
+ 23 4 -.2974E+05 .8807E+04
+ 23 5 -.3016E+04 -.3210E+05
+ 23 6 -.2868E+05 -.1022E+04
+ 23 7 .7302E+04 .1579E+05
+ 23 8 -.1245E+05 -.2510E+05
+ 23 9 -.2043E+05 -.4140E+05
+ 23 10 .3477E+05 -.4391E+05
+ 23 11 .2276E+05 -.3850E+05
+ 23 12 .4103E+05 -.1301E+05
+ 23 13 .6615E+03 -.1013E+05
+ 23 14 -.2534E+05 -.9340E+04
+ 23 15 .5464E+05 -.7425E+05
+ 23 16 .5253E+05 -.3570E+05
+ 23 17 .2778E+05 -.3017E+05
+ 23 18 .1077E+05 .8911E+04
+ 23 19 -.3677E+05 -.3354E+05
+ 23 20 .1954E+04 -.1005E+06
+ 23 21 .9473E+04 -.9854E+05
+ 23 22 -.1119E+05 -.2961E+05
+ 23 23 .6521E+05 .4134E+05
+ 24 0 .2167E+05 .0000E+00
+ 24 1 .3816E+04 .1171E+05
+ 24 2 .1671E+05 .3622E+05
+ 24 3 .2133E+05 -.7268E+03
+ 24 4 -.1746E+05 .2392E+05
+ 24 5 -.5359E+04 .2416E+03
+ 24 6 -.5095E+05 .1426E+05
+ 24 7 -.2565E+05 -.5217E+04
+ 24 8 -.2880E+05 -.4868E+05
+ 24 9 -.1334E+05 .2442E+05
+ 24 10 .8532E+03 -.4817E+05
+ 24 11 -.1414E+05 .1385E+05
+ 24 12 .1850E+05 -.5752E+05
+ 24 13 -.2396E+05 -.2308E+05
+ 24 14 .4908E+05 -.4885E+05
+ 24 15 -.2547E+05 -.4495E+05
+ 24 16 -.1023E+05 -.7658E+04
+ 24 17 -.4437E+05 .4273E+05
+ 24 18 -.7027E+05 .8297E+05
+ 24 19 -.3180E+04 -.1826E+04
+ 24 20 -.1988E+05 -.3475E+05
+ 24 21 .6690E+05 -.1576E+05
+ 24 22 .5539E+05 .1203E+05
+ 24 23 .6272E+05 .3582E+05
+ 24 24 .1697E+05 -.4872E+04
+ 25 0 -.3668E+05 .0000E+00
+ 25 1 -.1186E+05 -.4329E+04
+ 25 2 -.1862E+05 -.3790E+04
+ 25 3 .3822E+04 .2402E+04
+ 25 4 -.1373E+04 -.8842E+04
+ 25 5 .7250E+04 .1309E+05
+ 25 6 .3328E+05 .9567E+04
+ 25 7 -.1859E+05 -.7137E+04
+ 25 8 .3064E+05 .2976E+05
+ 25 9 -.2074E+05 -.1995E+04
+ 25 10 .2395E+04 .4375E+05
+ 25 11 .1542E+05 .2338E+05
+ 25 12 -.4596E+05 .4825E+05
+ 25 13 -.2184E+05 .1266E+05
+ 25 14 -.3060E+05 -.4090E+05
+ 25 15 -.9376E+04 .3001E+03
+ 25 16 -.1785E+05 -.1230E+04
+ 25 17 -.6234E+05 -.5115E+04
+ 25 18 .2621E+05 -.4392E+05
+ 25 19 .1648E+05 -.5752E+05
+ 25 20 .3757E+05 -.3333E+05
+ 25 21 .4738E+05 .2461E+05
+ 25 22 .2122E+05 .1421E+05
+ 25 23 -.4951E+05 .9440E+04
+ 25 24 -.1110E+05 -.2531E+05
+ 25 25 -.6437E+05 -.8348E+05
+ 1377.50000000000000
+ 0 0 .2701E+06 .0000E+00
+ 1 0 -.3897E+05 .0000E+00
+ 1 1 -.7701E+05 .5701E+05
+ 2 0 -.8521E+05 .0000E+00
+ 2 1 .5752E+05 .9396E+04
+ 2 2 -.8938E+05 -.1027E+06
+ 3 0 -.8003E+04 .0000E+00
+ 3 1 -.6505E+05 -.6216E+05
+ 3 2 -.1132E+06 .1234E+06
+ 3 3 -.8760E+05 .6339E+05
+ 4 0 .7379E+04 .0000E+00
+ 4 1 -.9073E+05 .4157E+05
+ 4 2 .1238E+06 -.4801E+05
+ 4 3 .9980E+05 -.5074E+05
+ 4 4 .4918E+05 .5324E+05
+ 5 0 .5369E+05 .0000E+00
+ 5 1 .5578E+05 -.2757E+05
+ 5 2 .7044E+05 .1303E+05
+ 5 3 -.4015E+05 .5958E+05
+ 5 4 -.2031E+05 .8154E+05
+ 5 5 -.7338E+05 .6514E+05
+ 6 0 -.2094E+05 .0000E+00
+ 6 1 .8974E+04 -.1716E+05
+ 6 2 -.4517E+05 -.3247E+05
+ 6 3 .7457E+05 -.3362E+05
+ 6 4 -.1744E+04 -.1007E+06
+ 6 5 -.1783E+05 -.1257E+06
+ 6 6 .3875E+05 -.1688E+06
+ 7 0 -.4996E+05 .0000E+00
+ 7 1 -.1864E+05 .2294E+05
+ 7 2 .1864E+05 -.1032E+05
+ 7 3 -.7600E+05 -.9303E+04
+ 7 4 .1477E+05 -.2601E+04
+ 7 5 -.3196E+05 .9267E+05
+ 7 6 -.4604E+05 .1223E+06
+ 7 7 .1025E+06 .3909E+05
+ 8 0 -.1270E+05 .0000E+00
+ 8 1 .4025E+04 .3314E+05
+ 8 2 -.1925E+05 .4935E+05
+ 8 3 -.3072E+05 .4563E+05
+ 8 4 -.3919E+05 -.4711E+04
+ 8 5 -.1923E+05 -.8725E+05
+ 8 6 -.2413E+05 -.3474E+04
+ 8 7 -.4256E+05 -.1218E+06
+ 8 8 -.7379E+05 -.3994E+05
+ 9 0 -.2739E+05 .0000E+00
+ 9 1 .1227E+05 -.4503E+05
+ 9 2 .2504E+05 .1565E+05
+ 9 3 .4643E+05 -.1194E+05
+ 9 4 .1718E+05 -.3778E+04
+ 9 5 .6126E+05 .6911E+05
+ 9 6 .3243E+05 .3773E+05
+ 9 7 .1280E+05 .3964E+05
+ 9 8 .8042E+05 -.2023E+05
+ 9 9 .7898E+03 .1722E+05
+ 10 0 .5292E+05 .0000E+00
+ 10 1 .3584E+05 -.4695E+05
+ 10 2 .1105E+05 .3776E+05
+ 10 3 .1603E+05 -.3317E+05
+ 10 4 .7863E+04 .6118E+05
+ 10 5 .4751E+05 -.3385E+05
+ 10 6 .4512E+05 -.4193E+04
+ 10 7 -.2954E+05 -.1835E+05
+ 10 8 -.5531E+05 -.1423E+06
+ 10 9 .7418E+04 -.4779E+05
+ 10 10 -.3608E+05 .2333E+05
+ 11 0 .1708E+05 .0000E+00
+ 11 1 -.1033E+03 .3281E+05
+ 11 2 -.1201E+05 -.4556E+05
+ 11 3 -.2763E+05 .2545E+04
+ 11 4 -.8528E+04 -.4354E+05
+ 11 5 -.7559E+05 .2020E+05
+ 11 6 .5865E+04 .7376E+04
+ 11 7 .6505E+05 .2747E+05
+ 11 8 .4425E+04 .7788E+05
+ 11 9 .1236E+06 .4158E+05
+ 11 10 .4052E+05 .8249E+05
+ 11 11 .4155E+05 .5464E+05
+ 12 0 -.1670E+05 .0000E+00
+ 12 1 -.1412E+05 .1185E+06
+ 12 2 -.3748E+05 -.4843E+05
+ 12 3 -.5398E+05 -.1476E+05
+ 12 4 -.1698E+04 -.4257E+05
+ 12 5 -.7171E+05 .4099E+03
+ 12 6 .1349E+05 -.2812E+05
+ 12 7 -.1062E+06 -.2478E+05
+ 12 8 -.2507E+05 .1662E+05
+ 12 9 -.4225E+05 .1978E+05
+ 12 10 -.4153E+04 .3047E+05
+ 12 11 -.6339E+05 -.1101E+05
+ 12 12 -.1027E+05 -.3787E+05
+ 13 0 .9947E+04 .0000E+00
+ 13 1 .6743E+04 -.4069E+05
+ 13 2 .1741E+05 .4616E+05
+ 13 3 .4810E+05 -.4290E+04
+ 13 4 .6958E+03 .1283E+05
+ 13 5 .5248E+05 -.6918E+04
+ 13 6 -.4448E+05 -.2990E+05
+ 13 7 .4003E+04 .3150E+05
+ 13 8 .3028E+05 .2770E+05
+ 13 9 -.1635E+05 .3051E+05
+ 13 10 .7672E+05 -.2860E+05
+ 13 11 .4641E+05 .3025E+04
+ 13 12 .1203E+06 .3940E+05
+ 13 13 .9824E+05 -.3172E+05
+ 14 0 -.2291E+05 .0000E+00
+ 14 1 -.1386E+05 -.6546E+05
+ 14 2 .2439E+05 -.5222E+04
+ 14 3 .2359E+05 .1192E+05
+ 14 4 .5270E+05 .3413E+05
+ 14 5 .3554E+05 .4585E+05
+ 14 6 .5000E+05 .3426E+05
+ 14 7 -.5531E+04 -.2743E+05
+ 14 8 .2631E+05 -.6245E+05
+ 14 9 -.5929E+05 .1775E+04
+ 14 10 -.1086E+06 -.4893E+05
+ 14 11 -.3334E+05 -.3261E+05
+ 14 12 -.3820E+05 -.1973E+05
+ 14 13 -.5894E+05 .8496E+05
+ 14 14 -.5678E+05 .3688E+05
+ 15 0 .2895E+05 .0000E+00
+ 15 1 -.2765E+05 -.9906E+04
+ 15 2 .6502E+04 -.2458E+05
+ 15 3 -.5512E+05 .3009E+05
+ 15 4 -.1408E+05 -.8568E+04
+ 15 5 -.6559E+04 -.8999E+04
+ 15 6 .5576E+05 .4017E+05
+ 15 7 -.1253E+05 -.4376E+05
+ 15 8 .3939E+05 .5370E+05
+ 15 9 .4811E+05 -.6561E+05
+ 15 10 .3725E+05 .1152E+05
+ 15 11 .3981E+05 -.4420E+05
+ 15 12 -.2295E+05 -.8701E+04
+ 15 13 .1119E+05 .1029E+06
+ 15 14 -.3494E+05 -.5299E+05
+ 15 15 -.3718E+05 -.2567E+05
+ 16 0 -.2918E+05 .0000E+00
+ 16 1 .1967E+05 .2358E+05
+ 16 2 -.4045E+05 -.4237E+05
+ 16 3 .2706E+05 -.1551E+05
+ 16 4 -.4788E+05 -.1233E+05
+ 16 5 -.4154E+05 .2659E+05
+ 16 6 -.2369E+05 -.3623E+05
+ 16 7 -.2850E+05 .2448E+05
+ 16 8 .2047E+05 -.3404E+05
+ 16 9 -.4381E+04 .2697E+05
+ 16 10 -.3895E+05 -.2746E+04
+ 16 11 -.3796E+05 .5067E+05
+ 16 12 -.3616E+05 .5120E+05
+ 16 13 -.3687E+05 .4446E+05
+ 16 14 -.1531E+06 .2077E+05
+ 16 15 -.8307E+05 -.5831E+05
+ 16 16 -.3779E+05 .4576E+05
+ 17 0 .1363E+04 .0000E+00
+ 17 1 .3522E+05 .3132E+05
+ 17 2 .2985E+05 .2869E+05
+ 17 3 -.1845E+05 -.5699E+04
+ 17 4 .7637E+04 .3516E+05
+ 17 5 -.2932E+05 -.3908E+05
+ 17 6 -.2432E+05 -.3917E+05
+ 17 7 -.1448E+05 -.9523E+04
+ 17 8 -.3561E+05 .9073E+04
+ 17 9 .3117E+04 .3525E+05
+ 17 10 .4783E+05 .2713E+05
+ 17 11 .1625E+05 .3635E+05
+ 17 12 .5819E+05 -.5908E+05
+ 17 13 .3227E+05 -.6605E+05
+ 17 14 .6483E+05 -.2074E+04
+ 17 15 .3395E+05 -.9752E+05
+ 17 16 .6024E+05 -.4067E+05
+ 17 17 -.9155E+04 -.4975E+04
+ 18 0 .2480E+05 .0000E+00
+ 18 1 .9321E+04 -.3703E+05
+ 18 2 .6245E+04 .7791E+05
+ 18 3 -.1189E+05 -.1794E+05
+ 18 4 .5006E+05 .1129E+05
+ 18 5 .2903E+05 -.2175E+05
+ 18 6 .8407E+04 -.2732E+04
+ 18 7 .3507E+05 .6508E+04
+ 18 8 -.3612E+05 .6357E+05
+ 18 9 .6519E+04 -.2554E+05
+ 18 10 -.6808E+05 -.1341E+05
+ 18 11 .4424E+05 -.3641E+05
+ 18 12 -.6363E+05 .4274E+05
+ 18 13 .1671E+05 -.2169E+05
+ 18 14 .7120E+05 -.2327E+05
+ 18 15 -.1839E+05 .2044E+05
+ 18 16 .5232E+05 -.4933E+02
+ 18 17 -.3615E+05 .8791E+05
+ 18 18 .2320E+04 .4592E+04
+ 19 0 -.1506E+05 .0000E+00
+ 19 1 -.2164E+05 -.2532E+05
+ 19 2 -.8582E+04 -.4588E+05
+ 19 3 .3691E+04 .4315E+05
+ 19 4 .2662E+05 -.3860E+05
+ 19 5 .1621E+05 .4271E+05
+ 19 6 .2402E+05 .5642E+04
+ 19 7 -.4142E+05 -.2159E+05
+ 19 8 .6351E+05 .2347E+05
+ 19 9 -.2597E+05 -.3437E+05
+ 19 10 .3863E+05 .2316E+05
+ 19 11 .1604E+05 -.3429E+05
+ 19 12 .3838E+05 -.2228E+05
+ 19 13 .2819E+05 -.5859E+05
+ 19 14 .6054E+04 -.7474E+05
+ 19 15 -.1628E+04 .5273E+05
+ 19 16 .5305E+04 -.2155E+05
+ 19 17 .3789E+05 -.2997E+05
+ 19 18 .2116E+05 -.5521E+05
+ 19 19 .5709E+05 -.9303E+05
+ 20 0 .4429E+04 .0000E+00
+ 20 1 -.1753E+05 .1387E+05
+ 20 2 -.3824E+05 -.1255E+05
+ 20 3 -.8602E+04 -.2784E+04
+ 20 4 -.2685E+05 -.4113E+03
+ 20 5 .5497E+04 -.4299E+05
+ 20 6 -.8784E+03 .2249E+05
+ 20 7 .8400E+03 -.4361E+04
+ 20 8 .2715E+05 .1047E+05
+ 20 9 -.9509E+03 .5227E+04
+ 20 10 -.6542E+04 -.2781E+05
+ 20 11 -.1824E+05 .3116E+04
+ 20 12 -.1507E+05 .4653E+05
+ 20 13 -.9142E+05 .5603E+04
+ 20 14 .6889E+04 .8337E+05
+ 20 15 -.2398E+05 .4659E+05
+ 20 16 -.5810E+05 .6987E+05
+ 20 17 -.5293E+05 -.4779E+05
+ 20 18 -.6102E+05 -.3886E+03
+ 20 19 .6493E+05 .1491E+05
+ 20 20 .8186E+05 .7798E+04
+ 21 0 .1033E+05 .0000E+00
+ 21 1 .1323E+05 .3285E+05
+ 21 2 -.1975E+05 .1308E+05
+ 21 3 .2420E+05 -.3116E+03
+ 21 4 -.3451E+05 .1811E+05
+ 21 5 -.2060E+05 -.1526E+05
+ 21 6 .5220E+03 .1004E+04
+ 21 7 -.4223E+03 .2865E+05
+ 21 8 -.1282E+05 -.3680E+05
+ 21 9 .2117E+04 -.1898E+04
+ 21 10 -.3195E+05 -.4271E+05
+ 21 11 .3740E+04 .3954E+05
+ 21 12 .4168E+05 -.1459E+05
+ 21 13 .2044E+05 .6600E+05
+ 21 14 -.1486E+05 .8568E+04
+ 21 15 .5591E+04 -.4931E+05
+ 21 16 .7559E+04 .6956E+04
+ 21 17 -.1124E+04 -.6067E+05
+ 21 18 .4519E+05 -.3582E+05
+ 21 19 .3818E+05 -.4623E+05
+ 21 20 .3306E+05 -.5631E+05
+ 21 21 -.4406E+05 .1843E+05
+ 22 0 .2084E+04 .0000E+00
+ 22 1 .6494E+03 .1217E+05
+ 22 2 .8500E+04 .5512E+04
+ 22 3 .2134E+04 -.2960E+05
+ 22 4 .7217E+05 .7458E+04
+ 22 5 -.4659E+05 .2321E+05
+ 22 6 .1691E+05 .2093E+05
+ 22 7 -.2430E+05 .1089E+05
+ 22 8 .7040E+04 .1308E+05
+ 22 9 .1733E+05 -.8373E+05
+ 22 10 .2850E+05 .7544E+05
+ 22 11 -.4480E+03 -.1377E+05
+ 22 12 -.6766E+05 .4404E+05
+ 22 13 -.2095E+05 -.1495E+05
+ 22 14 -.2427E+05 .5652E+05
+ 22 15 .2206E+05 .6406E+05
+ 22 16 .6280E+05 -.2011E+05
+ 22 17 .2741E+05 .6916E+05
+ 22 18 .4654E+05 -.1568E+05
+ 22 19 -.3113E+05 .5796E+05
+ 22 20 .1567E+05 .1055E+06
+ 22 21 -.1452E+05 .5704E+05
+ 22 22 -.4670E+05 .6411E+05
+ 23 0 .1496E+05 .0000E+00
+ 23 1 -.6288E+04 -.1505E+05
+ 23 2 .2480E+05 .1537E+05
+ 23 3 .4010E+05 -.7639E+04
+ 23 4 -.1747E+05 -.2034E+05
+ 23 5 -.4281E+04 .7663E+04
+ 23 6 -.1140E+05 -.1592E+05
+ 23 7 .3059E+05 .5225E+04
+ 23 8 -.1091E+05 .3312E+05
+ 23 9 -.3085E+05 .4854E+04
+ 23 10 .1017E+05 .2602E+05
+ 23 11 -.1753E+05 -.2503E+05
+ 23 12 -.5134E+04 -.4069E+05
+ 23 13 .4467E+05 -.5320E+05
+ 23 14 -.7300E+04 -.5027E+05
+ 23 15 .3872E+05 -.8870E+05
+ 23 16 -.2669E+05 -.5270E+05
+ 23 17 -.1210E+05 -.5240E+03
+ 23 18 -.1674E+05 .1593E+05
+ 23 19 -.9828E+04 -.3736E+04
+ 23 20 .4635E+05 -.2764E+05
+ 23 21 .5137E+04 -.3501E+05
+ 23 22 -.9750E+05 .1302E+04
+ 23 23 -.6192E+05 .2878E+05
+ 24 0 -.3149E+05 .0000E+00
+ 24 1 -.1377E+05 -.1910E+05
+ 24 2 .1085E+04 -.3207E+05
+ 24 3 .1656E+05 .1211E+04
+ 24 4 -.1237E+05 -.2095E+05
+ 24 5 .2144E+05 .4318E+04
+ 24 6 .1913E+04 -.2638E+05
+ 24 7 -.4671E+05 -.2724E+05
+ 24 8 .1516E+05 -.9715E+04
+ 24 9 -.2373E+05 .2093E+05
+ 24 10 .3229E+05 -.1285E+05
+ 24 11 -.1209E+05 .3014E+05
+ 24 12 .5523E+05 -.2063E+05
+ 24 13 -.1790E+05 -.3998E+05
+ 24 14 .7049E+05 .5969E+04
+ 24 15 -.9353E+05 .4230E+04
+ 24 16 -.1684E+05 .3293E+04
+ 24 17 .9909E+04 -.1466E+04
+ 24 18 -.3642E+05 .8487E+05
+ 24 19 .7092E+04 -.1173E+04
+ 24 20 -.4807E+05 .1896E+05
+ 24 21 .5577E+05 .4768E+05
+ 24 22 .1946E+05 .5221E+05
+ 24 23 .3248E+05 .4080E+05
+ 24 24 .4320E+05 -.1513E+05
+ 25 0 -.9461E+04 .0000E+00
+ 25 1 -.2429E+05 .1349E+05
+ 25 2 -.1483E+05 -.1158E+05
+ 25 3 -.1855E+05 .3270E+05
+ 25 4 -.3579E+05 .1361E+05
+ 25 5 .7601E+04 -.4841E+05
+ 25 6 .2222E+05 .2437E+05
+ 25 7 -.7007E+04 -.1404E+05
+ 25 8 .1944E+05 -.3016E+05
+ 25 9 .5077E+04 -.1535E+05
+ 25 10 -.4227E+05 .1560E+05
+ 25 11 .4348E+05 .2192E+05
+ 25 12 -.7431E+04 .5220E+05
+ 25 13 -.2871E+04 .6374E+04
+ 25 14 .1352E+05 -.3439E+04
+ 25 15 .3756E+05 -.2996E+05
+ 25 16 -.1468E+05 -.6075E+04
+ 25 17 -.5640E+05 -.4309E+05
+ 25 18 -.2945E+05 -.5398E+04
+ 25 19 -.4824E+05 -.1796E+05
+ 25 20 -.2237E+05 -.2334E+05
+ 25 21 .5013E+05 -.3086E+05
+ 25 22 -.5959E+04 .1056E+05
+ 25 23 -.3284E+05 -.5394E+05
+ 25 24 .6865E+04 -.1167E+05
+ 25 25 .2017E+05 -.3547E+05
+ 1522.50000000000000
+ 0 0 .2559E+06 .0000E+00
+ 1 0 -.1450E+05 .0000E+00
+ 1 1 -.1756E+05 .1166E+06
+ 2 0 -.3674E+05 .0000E+00
+ 2 1 .7540E+03 .1312E+06
+ 2 2 -.1367E+06 -.5293E+05
+ 3 0 -.7928E+05 .0000E+00
+ 3 1 -.5276E+05 -.8540E+05
+ 3 2 -.7729E+05 .1043E+06
+ 3 3 -.8981E+05 -.8640E+04
+ 4 0 .2441E+02 .0000E+00
+ 4 1 -.9498E+05 .1389E+05
+ 4 2 .6132E+05 -.1057E+06
+ 4 3 .3042E+05 -.7351E+05
+ 4 4 .3655E+05 .4046E+05
+ 5 0 .5049E+05 .0000E+00
+ 5 1 .5030E+05 -.8742E+05
+ 5 2 .8398E+05 -.8204E+04
+ 5 3 -.3252E+05 .3242E+05
+ 5 4 .1894E+05 .1724E+05
+ 5 5 -.3065E+04 .3528E+05
+ 6 0 -.2030E+05 .0000E+00
+ 6 1 .1948E+05 .2138E+05
+ 6 2 -.2341E+05 -.6119E+05
+ 6 3 .1188E+06 -.1690E+05
+ 6 4 -.1119E+05 -.3929E+05
+ 6 5 -.2782E+04 -.6790E+05
+ 6 6 .9208E+04 -.1115E+06
+ 7 0 -.1174E+05 .0000E+00
+ 7 1 .2993E+04 .1560E+05
+ 7 2 .7028E+05 .4704E+05
+ 7 3 -.8523E+05 .4228E+05
+ 7 4 .4170E+05 .3939E+04
+ 7 5 .3406E+05 .8474E+05
+ 7 6 -.4495E+05 .6975E+05
+ 7 7 .5050E+05 -.2390E+04
+ 8 0 -.5635E+04 .0000E+00
+ 8 1 .1506E+05 .2761E+05
+ 8 2 -.3322E+05 .3957E+05
+ 8 3 -.1889E+04 .1050E+06
+ 8 4 -.5377E+05 -.3332E+04
+ 8 5 -.2427E+05 -.4565E+05
+ 8 6 -.6739E+05 .2690E+05
+ 8 7 -.6709E+05 -.6650E+05
+ 8 8 -.5273E+05 .1917E+05
+ 9 0 -.3221E+05 .0000E+00
+ 9 1 -.3515E+05 .9167E+04
+ 9 2 -.8090E+04 -.1873E+05
+ 9 3 -.6354E+04 .5796E+04
+ 9 4 -.3184E+05 -.8802E+05
+ 9 5 .6647E+05 .6942E+05
+ 9 6 .3924E+04 .4660E+05
+ 9 7 -.1857E+04 -.3903E+05
+ 9 8 .1012E+06 -.5171E+05
+ 9 9 .7393E+04 .7248E+04
+ 10 0 .1713E+05 .0000E+00
+ 10 1 .7506E+05 -.5524E+05
+ 10 2 -.2882E+05 .3614E+05
+ 10 3 .3572E+05 -.6037E+05
+ 10 4 -.4960E+05 .8644E+05
+ 10 5 .2889E+05 -.8860E+05
+ 10 6 .4667E+05 .1284E+05
+ 10 7 -.5966E+05 -.7351E+04
+ 10 8 -.3515E+04 -.9226E+05
+ 10 9 .6911E+05 .2614E+05
+ 10 10 .2071E+05 -.2508E+04
+ 11 0 .1679E+05 .0000E+00
+ 11 1 -.8620E+04 -.1829E+05
+ 11 2 -.2041E+05 .3176E+04
+ 11 3 -.3136E+05 -.6000E+05
+ 11 4 .4591E+05 -.2908E+05
+ 11 5 -.6718E+05 .2576E+04
+ 11 6 .1456E+04 .1386E+05
+ 11 7 .4085E+05 .1322E+05
+ 11 8 .3518E+05 .1397E+04
+ 11 9 .1219E+06 .2295E+05
+ 11 10 -.2500E+05 .3554E+05
+ 11 11 .2350E+05 .2545E+05
+ 12 0 .2260E+05 .0000E+00
+ 12 1 -.4079E+05 .5678E+05
+ 12 2 .2511E+05 .1575E+05
+ 12 3 -.6700E+05 -.7157E+05
+ 12 4 .4608E+05 -.6721E+04
+ 12 5 -.6304E+05 .1031E+05
+ 12 6 .5742E+05 -.4340E+05
+ 12 7 -.7724E+05 .4781E+04
+ 12 8 -.5049E+05 -.3054E+04
+ 12 9 -.2191E+05 .4448E+05
+ 12 10 -.3972E+05 .8993E+05
+ 12 11 -.6140E+05 -.1830E+04
+ 12 12 -.3977E+05 -.1107E+05
+ 13 0 .1809E+04 .0000E+00
+ 13 1 .7802E+04 -.2510E+05
+ 13 2 .4744E+05 -.4299E+05
+ 13 3 .3582E+05 .6918E+05
+ 13 4 .2848E+05 -.2545E+05
+ 13 5 .6829E+05 .4693E+05
+ 13 6 -.7411E+05 -.7956E+05
+ 13 7 .3594E+05 .1059E+05
+ 13 8 .4371E+05 .3692E+05
+ 13 9 -.1425E+05 .1732E+05
+ 13 10 .6941E+04 -.4318E+05
+ 13 11 -.1904E+05 -.2064E+05
+ 13 12 .5057E+05 .1793E+05
+ 13 13 .3411E+05 -.1115E+05
+ 14 0 .1114E+05 .0000E+00
+ 14 1 -.3498E+05 .6095E+05
+ 14 2 -.8222E+03 .1201E+04
+ 14 3 .8855E+04 .3694E+05
+ 14 4 .3900E+05 .8053E+04
+ 14 5 .4730E+05 .1198E+05
+ 14 6 .4248E+05 .8597E+05
+ 14 7 .2170E+05 -.3977E+04
+ 14 8 .1514E+05 -.2707E+05
+ 14 9 -.4402E+05 .1097E+05
+ 14 10 -.9836E+05 -.3506E+04
+ 14 11 .9867E+04 .1368E+05
+ 14 12 .2202E+05 -.1402E+05
+ 14 13 -.1105E+05 .7490E+05
+ 14 14 .7052E+04 .4286E+05
+ 15 0 -.2507E+05 .0000E+00
+ 15 1 .7612E+04 -.1633E+05
+ 15 2 -.6626E+04 -.2169E+05
+ 15 3 .2428E+05 .2291E+05
+ 15 4 -.6654E+05 .6851E+05
+ 15 5 -.2717E+04 .1588E+04
+ 15 6 -.1633E+05 .6783E+05
+ 15 7 -.6664E+04 -.6073E+05
+ 15 8 .1419E+04 .6785E+05
+ 15 9 .2075E+05 -.4816E+05
+ 15 10 .3413E+05 -.2904E+05
+ 15 11 .5950E+05 -.9251E+05
+ 15 12 -.1876E+03 -.4464E+05
+ 15 13 -.2359E+05 .4335E+05
+ 15 14 -.2104E+05 -.5724E+05
+ 15 15 -.3121E+05 -.3447E+04
+ 16 0 -.7519E+05 .0000E+00
+ 16 1 .2684E+05 .5445E+04
+ 16 2 -.7482E+05 -.3561E+05
+ 16 3 -.2602E+05 -.3934E+05
+ 16 4 -.9329E+04 -.9746E+04
+ 16 5 -.9662E+05 -.1130E+05
+ 16 6 -.4247E+04 -.2738E+05
+ 16 7 -.6921E+05 .3051E+05
+ 16 8 .5376E+05 -.3614E+05
+ 16 9 -.2188E+05 .7747E+04
+ 16 10 .2199E+05 .6139E+04
+ 16 11 -.5092E+05 .2890E+05
+ 16 12 .6346E+05 .4811E+05
+ 16 13 -.7554E+04 .6218E+05
+ 16 14 -.6192E+05 .1067E+04
+ 16 15 -.1413E+05 -.5676E+05
+ 16 16 -.4484E+05 -.2614E+05
+ 17 0 .2838E+05 .0000E+00
+ 17 1 .4059E+05 -.6017E+05
+ 17 2 .4078E+05 .4717E+05
+ 17 3 -.7848E+04 -.3447E+05
+ 17 4 -.7074E+04 .1339E+05
+ 17 5 -.4662E+05 -.5608E+05
+ 17 6 .1777E+03 -.4527E+05
+ 17 7 -.5007E+04 -.2494E+05
+ 17 8 -.3021E+05 .5827E+04
+ 17 9 -.7450E+05 .1964E+05
+ 17 10 .8276E+05 -.2358E+03
+ 17 11 -.1594E+05 .5124E+05
+ 17 12 .2335E+05 -.5473E+05
+ 17 13 -.5153E+05 -.1080E+05
+ 17 14 -.4039E+05 -.1025E+05
+ 17 15 -.1424E+05 -.6313E+05
+ 17 16 .8653E+03 .6269E+04
+ 17 17 .1888E+04 -.3259E+05
+ 18 0 .1205E+05 .0000E+00
+ 18 1 .8261E+04 -.2380E+05
+ 18 2 .4320E+04 .1813E+05
+ 18 3 -.1159E+05 .8198E+04
+ 18 4 .7457E+05 -.2721E+05
+ 18 5 .3055E+05 .1476E+05
+ 18 6 .3150E+05 -.5710E+05
+ 18 7 .1277E+05 .1399E+03
+ 18 8 .2842E+04 -.1453E+05
+ 18 9 .2982E+05 .2744E+05
+ 18 10 -.4052E+05 -.5862E+05
+ 18 11 .2293E+05 .3566E+05
+ 18 12 -.9765E+05 .2849E+05
+ 18 13 .3848E+05 .4605E+05
+ 18 14 .2348E+05 -.2272E+05
+ 18 15 .2865E+05 -.1302E+05
+ 18 16 .9046E+05 -.9843E+04
+ 18 17 -.4296E+05 .5599E+05
+ 18 18 .2709E+05 .2421E+05
+ 19 0 .7484E+05 .0000E+00
+ 19 1 -.3091E+05 .1405E+05
+ 19 2 .4062E+05 .1020E+04
+ 19 3 -.1265E+05 .7036E+05
+ 19 4 .2059E+05 -.3766E+04
+ 19 5 .2024E+05 -.3299E+04
+ 19 6 .5560E+05 .4340E+05
+ 19 7 .1842E+05 -.1707E+05
+ 19 8 .5381E+05 .2857E+05
+ 19 9 -.2123E+04 -.3031E+05
+ 19 10 .2423E+04 .8325E+04
+ 19 11 .2626E+05 .6805E+04
+ 19 12 -.1545E+05 -.1683E+05
+ 19 13 .3652E+05 -.8803E+05
+ 19 14 -.2535E+03 -.6455E+05
+ 19 15 -.1173E+05 .3611E+05
+ 19 16 .2235E+05 -.4474E+04
+ 19 17 -.5799E+03 .6125E+05
+ 19 18 .2341E+05 -.3265E+05
+ 19 19 .3727E+05 -.1325E+05
+ 20 0 -.7951E+04 .0000E+00
+ 20 1 -.4674E+04 .1185E+05
+ 20 2 -.5572E+05 -.2603E+05
+ 20 3 .4080E+05 -.1700E+04
+ 20 4 -.4541E+05 -.1559E+05
+ 20 5 .3867E+05 .2051E+05
+ 20 6 -.1248E+05 .3010E+05
+ 20 7 .1958E+05 .3503E+05
+ 20 8 -.8357E+04 .2276E+05
+ 20 9 .2415E+05 .4241E+05
+ 20 10 -.2101E+05 -.2443E+05
+ 20 11 .1310E+05 -.3396E+05
+ 20 12 .1212E+05 .2386E+05
+ 20 13 -.3116E+05 -.1444E+05
+ 20 14 .5747E+05 .6065E+05
+ 20 15 .4297E+05 .1163E+05
+ 20 16 .2598E+05 .3358E+05
+ 20 17 .2405E+04 -.2921E+05
+ 20 18 -.7491E+05 -.1212E+05
+ 20 19 .6788E+05 -.2967E+05
+ 20 20 .3326E+05 .2064E+05
+ 21 0 .4139E+04 .0000E+00
+ 21 1 .2030E+04 .7754E+05
+ 21 2 -.1767E+05 .6611E+04
+ 21 3 .1729E+04 .7165E+04
+ 21 4 -.3317E+05 -.1178E+04
+ 21 5 -.4576E+05 -.3342E+05
+ 21 6 -.1089E+05 .2161E+05
+ 21 7 -.5342E+05 .2584E+05
+ 21 8 -.1249E+05 .9302E+04
+ 21 9 -.3711E+05 -.2419E+05
+ 21 10 .1302E+05 -.1276E+05
+ 21 11 -.5657E+05 .6494E+05
+ 21 12 .4969E+05 -.3929E+05
+ 21 13 .1595E+05 .4408E+05
+ 21 14 -.2015E+05 -.2149E+05
+ 21 15 -.2504E+05 -.2564E+05
+ 21 16 -.4543E+05 .2595E+05
+ 21 17 -.3327E+05 -.2289E+05
+ 21 18 -.2460E+05 .3662E+05
+ 21 19 .9107E+04 -.9506E+05
+ 21 20 .1214E+05 -.1819E+05
+ 21 21 -.3929E+05 .1164E+04
+ 22 0 -.4521E+05 .0000E+00
+ 22 1 -.1790E+04 -.2090E+05
+ 22 2 -.4012E+05 .4594E+05
+ 22 3 .2854E+05 -.6595E+05
+ 22 4 .2323E+05 .2950E+04
+ 22 5 -.1237E+05 .1267E+05
+ 22 6 -.2873E+05 .7290E+04
+ 22 7 -.4596E+04 -.2697E+05
+ 22 8 -.4614E+05 -.7702E+04
+ 22 9 -.1452E+05 -.5958E+05
+ 22 10 .1186E+05 .2605E+05
+ 22 11 .3567E+05 .7559E+04
+ 22 12 -.4509E+05 -.9581E+04
+ 22 13 .1812E+03 .1393E+05
+ 22 14 -.5408E+05 .5663E+05
+ 22 15 .2613E+05 .5223E+05
+ 22 16 .4217E+05 .7715E+04
+ 22 17 -.6553E+04 .2628E+05
+ 22 18 .4153E+05 -.4909E+05
+ 22 19 -.4326E+05 -.4335E+05
+ 22 20 .7752E+05 .2165E+05
+ 22 21 -.2918E+05 .3847E+05
+ 22 22 -.2826E+05 .1624E+04
+ 23 0 -.2631E+05 .0000E+00
+ 23 1 -.2828E+05 -.1685E+05
+ 23 2 .1320E+05 -.1209E+05
+ 23 3 .4789E+04 .9914E+04
+ 23 4 -.3017E+04 -.1472E+05
+ 23 5 -.5073E+04 .4502E+05
+ 23 6 .2747E+05 -.4255E+05
+ 23 7 -.8886E+04 -.1175E+05
+ 23 8 .2739E+05 -.4818E+04
+ 23 9 -.6252E+04 .1123E+04
+ 23 10 .5040E+05 -.1126E+05
+ 23 11 -.3586E+05 .2124E+05
+ 23 12 -.2619E+05 -.5174E+05
+ 23 13 .5689E+05 .2528E+05
+ 23 14 -.3240E+05 -.3222E+04
+ 23 15 -.1592E+04 -.4922E+05
+ 23 16 -.6073E+05 -.1957E+05
+ 23 17 -.3626E+05 .3668E+05
+ 23 18 -.2111E+05 .3905E+05
+ 23 19 -.1911E+05 .2979E+05
+ 23 20 .8427E+05 .6285E+04
+ 23 21 .8507E+04 .6206E+05
+ 23 22 -.3284E+05 .2181E+05
+ 23 23 -.1915E+05 -.1018E+05
+ 24 0 .3084E+05 .0000E+00
+ 24 1 -.2590E+05 -.7111E+05
+ 24 2 .5134E+05 -.1745E+05
+ 24 3 -.1823E+05 -.3584E+05
+ 24 4 .3065E+04 .3790E+05
+ 24 5 .2735E+05 -.2071E+05
+ 24 6 -.1918E+04 .3102E+05
+ 24 7 .4156E+04 -.3337E+05
+ 24 8 .1970E+05 .3072E+05
+ 24 9 .2116E+05 -.1422E+05
+ 24 10 -.6822E+04 .8811E+04
+ 24 11 .1983E+05 .1728E+05
+ 24 12 .2138E+05 -.1198E+04
+ 24 13 -.2989E+05 -.4973E+05
+ 24 14 .3663E+05 -.2903E+05
+ 24 15 -.4909E+05 -.8277E+03
+ 24 16 .2261E+05 -.8789E+04
+ 24 17 .5577E+05 -.2516E+05
+ 24 18 -.2821E+04 .1518E+05
+ 24 19 .1972E+05 -.5621E+05
+ 24 20 -.2303E+05 .1698E+05
+ 24 21 .3927E+05 .4313E+05
+ 24 22 -.3234E+05 .2596E+05
+ 24 23 .4643E+05 .2165E+05
+ 24 24 .3075E+05 .5828E+04
+ 25 0 .3143E+05 .0000E+00
+ 25 1 .5639E+04 .2300E+05
+ 25 2 .2696E+05 -.4381E+05
+ 25 3 .1930E+05 .2992E+05
+ 25 4 -.4309E+05 -.1378E+04
+ 25 5 .2193E+04 -.3726E+05
+ 25 6 .3544E+04 -.8902E+04
+ 25 7 -.9409E+04 .1394E+05
+ 25 8 .5230E+04 -.4623E+05
+ 25 9 .2713E+05 .3835E+05
+ 25 10 -.3423E+05 -.3418E+03
+ 25 11 .1638E+05 .2472E+05
+ 25 12 -.1738E+05 -.3375E+05
+ 25 13 .1658E+05 .6673E+05
+ 25 14 -.1333E+05 -.2759E+05
+ 25 15 .7376E+05 -.3457E+05
+ 25 16 -.1871E+05 -.2319E+05
+ 25 17 -.2348E+05 -.6721E+05
+ 25 18 -.2659E+05 .2362E+05
+ 25 19 -.4787E+05 -.2821E+05
+ 25 20 .3844E+05 .2763E+05
+ 25 21 .4843E+05 .3115E+05
+ 25 22 -.4763E+05 .3261E+05
+ 25 23 .2404E+05 -.1639E+05
+ 25 24 -.1774E+05 -.3601E+04
+ 25 25 .7320E+04 .2069E+05
+ 1667.50000000000000
+ 0 0 .3350E+06 .0000E+00
+ 1 0 .1177E+05 .0000E+00
+ 1 1 .5461E+05 .1760E+06
+ 2 0 -.8492E+05 .0000E+00
+ 2 1 -.3338E+05 .2025E+06
+ 2 2 -.3032E+06 .1975E+05
+ 3 0 -.2105E+06 .0000E+00
+ 3 1 -.5583E+05 -.1695E+06
+ 3 2 -.1171E+06 .8793E+05
+ 3 3 -.1632E+06 -.6787E+05
+ 4 0 .1305E+06 .0000E+00
+ 4 1 -.1009E+06 -.1738E+05
+ 4 2 .1167E+06 -.1234E+06
+ 4 3 -.2461E+05 -.6224E+05
+ 4 4 .9959E+05 .9683E+04
+ 5 0 .9469E+05 .0000E+00
+ 5 1 .7729E+05 -.9978E+05
+ 5 2 .1796E+06 -.1964E+05
+ 5 3 .4770E+05 .1862E+05
+ 5 4 .6559E+05 -.4025E+05
+ 5 5 .8923E+05 -.2799E+05
+ 6 0 -.3744E+05 .0000E+00
+ 6 1 .2463E+05 .1423E+06
+ 6 2 -.1026E+06 -.5893E+05
+ 6 3 .1638E+06 .6250E+04
+ 6 4 -.5212E+05 .1094E+05
+ 6 5 .4470E+05 -.6944E+05
+ 6 6 .2332E+04 -.8002E+05
+ 7 0 -.9109E+05 .0000E+00
+ 7 1 -.1202E+05 -.7410E+05
+ 7 2 -.7112E+04 .1306E+06
+ 7 3 -.1081E+06 .2584E+05
+ 7 4 -.2210E+05 .1883E+05
+ 7 5 .2139E+04 .4795E+05
+ 7 6 -.5630E+05 .3758E+05
+ 7 7 .7307E+02 .1472E+05
+ 8 0 .1439E+05 .0000E+00
+ 8 1 -.3927E+05 .1228E+05
+ 8 2 -.1374E+05 -.9555E+04
+ 8 3 -.2594E+05 .6446E+05
+ 8 4 -.4796E+05 .6431E+04
+ 8 5 -.2328E+05 .1365E+05
+ 8 6 -.4498E+05 .8410E+05
+ 8 7 -.6771E+05 .3583E+04
+ 8 8 -.2149E+05 .9382E+05
+ 9 0 .7238E+05 .0000E+00
+ 9 1 -.3725E+05 .4942E+04
+ 9 2 .1404E+06 -.3681E+05
+ 9 3 -.4150E+05 .3965E+05
+ 9 4 .2827E+05 -.1100E+06
+ 9 5 .8518E+05 .4808E+05
+ 9 6 -.3126E+04 .8976E+05
+ 9 7 -.4251E+05 -.6915E+05
+ 9 8 .8491E+05 -.2926E+04
+ 9 9 -.1371E+05 -.8080E+04
+ 10 0 -.1757E+05 .0000E+00
+ 10 1 .8458E+05 .7371E+05
+ 10 2 -.6199E+05 -.1226E+04
+ 10 3 .1125E+06 -.4979E+05
+ 10 4 -.6593E+05 .8926E+05
+ 10 5 .4423E+05 -.1180E+06
+ 10 6 .3846E+05 .5589E+05
+ 10 7 -.5496E+05 -.7657E+05
+ 10 8 .3877E+05 -.1084E+06
+ 10 9 .1043E+06 .1831E+04
+ 10 10 -.3072E+04 -.6295E+05
+ 11 0 -.1013E+06 .0000E+00
+ 11 1 .1079E+05 -.5826E+05
+ 11 2 -.6991E+05 .4069E+05
+ 11 3 -.5619E+05 -.6792E+05
+ 11 4 .9125E+04 .9772E+04
+ 11 5 -.6172E+05 -.1046E+05
+ 11 6 -.2593E+05 -.2479E+05
+ 11 7 -.8644E+04 -.2699E+05
+ 11 8 .1134E+05 -.7787E+05
+ 11 9 .1223E+06 .2643E+05
+ 11 10 -.6143E+05 -.4719E+04
+ 11 11 .1632E+05 -.5943E+04
+ 12 0 -.3088E+05 .0000E+00
+ 12 1 -.2549E+05 -.3910E+05
+ 12 2 -.5172E+05 .2970E+05
+ 12 3 -.9904E+05 -.9670E+05
+ 12 4 .3800E+05 .4951E+04
+ 12 5 -.1051E+06 -.4044E+04
+ 12 6 .3860E+05 -.6441E+05
+ 12 7 -.6225E+05 .4354E+05
+ 12 8 -.2233E+05 -.2572E+05
+ 12 9 .8919E+04 .4871E+05
+ 12 10 -.3074E+05 .1137E+06
+ 12 11 -.8354E+05 -.1179E+05
+ 12 12 .4141E+05 .4583E+05
+ 13 0 .1129E+06 .0000E+00
+ 13 1 -.7342E+03 -.7501E+05
+ 13 2 .1797E+06 -.6713E+05
+ 13 3 -.1275E+05 .1046E+06
+ 13 4 .8407E+05 -.8478E+05
+ 13 5 .4281E+05 .1005E+06
+ 13 6 -.3649E+05 -.8318E+05
+ 13 7 .7043E+05 -.3147E+04
+ 13 8 .5492E+05 .6242E+05
+ 13 9 -.2968E+05 .3868E+05
+ 13 10 .1379E+05 .5918E+05
+ 13 11 -.6324E+05 .1521E+05
+ 13 12 .4677E+05 .3738E+05
+ 13 13 .3337E+05 .5286E+05
+ 14 0 .8337E+05 .0000E+00
+ 14 1 .1006E+05 .1374E+06
+ 14 2 .2445E+05 -.2079E+05
+ 14 3 .7043E+05 .4207E+05
+ 14 4 .6010E+05 .5875E+04
+ 14 5 .1116E+06 -.2300E+04
+ 14 6 .7414E+05 .1097E+06
+ 14 7 .4529E+05 -.2120E+04
+ 14 8 .5220E+05 .5100E+05
+ 14 9 -.1791E+05 .3497E+05
+ 14 10 -.6047E+05 -.8846E+04
+ 14 11 .5565E+04 .2491E+05
+ 14 12 -.3363E+05 -.5637E+05
+ 14 13 .6014E+05 .9521E+05
+ 14 14 -.8751E+05 -.1702E+04
+ 15 0 -.4466E+05 .0000E+00
+ 15 1 .2445E+05 .6167E+05
+ 15 2 -.4663E+05 .2223E+05
+ 15 3 .3756E+05 .6622E+05
+ 15 4 -.1071E+06 .8449E+05
+ 15 5 .2279E+04 -.2410E+05
+ 15 6 -.4479E+05 .7506E+05
+ 15 7 .2411E+05 -.5760E+05
+ 15 8 -.1219E+05 .7099E+05
+ 15 9 -.1652E+05 -.3528E+05
+ 15 10 -.3332E+05 -.8342E+05
+ 15 11 .6650E+05 -.6076E+05
+ 15 12 -.6198E+05 -.9279E+05
+ 15 13 .3001E+05 -.2236E+05
+ 15 14 -.9938E+05 -.4102E+05
+ 15 15 -.1045E+06 -.9424E+05
+ 16 0 -.1484E+06 .0000E+00
+ 16 1 .9087E+04 -.2855E+05
+ 16 2 -.2012E+06 .3948E+05
+ 16 3 -.5592E+05 -.1162E+06
+ 16 4 -.3847E+05 .4109E+05
+ 16 5 -.1290E+06 -.3994E+05
+ 16 6 -.4185E+05 .3493E+04
+ 16 7 -.1213E+06 .5760E+04
+ 16 8 -.2662E+05 -.5363E+05
+ 16 9 -.3318E+05 -.1152E+05
+ 16 10 .1250E+05 -.4036E+05
+ 16 11 .4084E+04 -.2196E+05
+ 16 12 .3094E+05 -.1134E+05
+ 16 13 .1330E+05 -.4743E+05
+ 16 14 -.6822E+04 .1557E+05
+ 16 15 -.5941E+05 -.1529E+06
+ 16 16 .6749E+05 -.5224E+05
+ 17 0 .3049E+05 .0000E+00
+ 17 1 -.1930E+05 -.1240E+06
+ 17 2 .4679E+05 .2590E+04
+ 17 3 -.4506E+05 -.4132E+05
+ 17 4 .1555E+05 -.6351E+05
+ 17 5 -.5362E+05 -.2164E+05
+ 17 6 .8860E+04 -.7402E+05
+ 17 7 -.1141E+05 .5305E+03
+ 17 8 -.5470E+05 .2897E+05
+ 17 9 -.1061E+06 -.3396E+05
+ 17 10 .7842E+05 -.8245E+04
+ 17 11 -.3422E+05 .4739E+05
+ 17 12 .4556E+05 .9099E+04
+ 17 13 .8725E+03 -.2908E+04
+ 17 14 .7525E+05 .4586E+05
+ 17 15 -.9543E+04 -.9063E+04
+ 17 16 .1011E+06 -.1527E+05
+ 17 17 .1259E+06 .9438E+05
+ 18 0 .6861E+05 .0000E+00
+ 18 1 -.1037E+05 -.1704E+04
+ 18 2 .9324E+05 -.4475E+05
+ 18 3 .1400E+05 -.6224E+04
+ 18 4 .1520E+06 -.1971E+05
+ 18 5 .1578E+05 .4299E+05
+ 18 6 .7606E+05 -.3073E+05
+ 18 7 -.9141E+04 -.4981E+05
+ 18 8 .8052E+05 -.1650E+05
+ 18 9 .3438E+05 .1203E+05
+ 18 10 .2443E+05 .8990E+04
+ 18 11 .1322E+05 .7400E+05
+ 18 12 -.5768E+05 .5077E+05
+ 18 13 .3504E+05 .6497E+05
+ 18 14 .2154E+05 .4772E+05
+ 18 15 .1867E+05 .1106E+06
+ 18 16 .5133E+05 -.8298E+04
+ 18 17 .6386E+05 .1481E+06
+ 18 18 -.1519E+05 .5918E+05
+ 19 0 .1003E+06 .0000E+00
+ 19 1 .5119E+04 .6968E+05
+ 19 2 .7232E+05 -.1695E+05
+ 19 3 .4279E+05 .1176E+06
+ 19 4 -.1790E+05 .1187E+05
+ 19 5 .5845E+05 -.2782E+05
+ 19 6 .6817E+05 .4452E+05
+ 19 7 .6250E+05 -.8835E+04
+ 19 8 .4954E+05 .3418E+05
+ 19 9 .5027E+05 -.4679E+05
+ 19 10 .2180E+05 -.1554E+05
+ 19 11 .4880E+05 .2503E+05
+ 19 12 -.7435E+05 -.2891E+04
+ 19 13 .1773E+05 -.3819E+05
+ 19 14 -.4290E+05 -.9882E+04
+ 19 15 -.3962E+05 .6489E+05
+ 19 16 -.7958E+05 -.3960E+05
+ 19 17 -.7473E+03 .4221E+05
+ 19 18 -.6384E+05 .2203E+05
+ 19 19 -.6743E+05 -.8039E+05
+ 20 0 -.8036E+05 .0000E+00
+ 20 1 .5727E+04 .1156E+05
+ 20 2 -.1334E+06 .7775E+04
+ 20 3 .6025E+05 -.4032E+05
+ 20 4 -.6810E+05 .2461E+05
+ 20 5 -.1112E+05 .2651E+05
+ 20 6 -.3375E+05 .8420E+04
+ 20 7 -.2185E+05 .4196E+05
+ 20 8 .9627E+04 -.4979E+05
+ 20 9 .5559E+05 .7643E+05
+ 20 10 -.4738E+05 -.3953E+05
+ 20 11 .3792E+05 -.6108E+05
+ 20 12 .2523E+05 -.2209E+05
+ 20 13 -.1157E+05 -.7931E+05
+ 20 14 .4726E+05 .2389E+04
+ 20 15 -.5044E+05 -.3149E+05
+ 20 16 -.3192E+05 -.3193E+05
+ 20 17 -.4303E+05 -.8624E+05
+ 20 18 -.5341E+05 -.2058E+05
+ 20 19 -.2369E+05 -.1028E+06
+ 20 20 .9679E+03 -.3466E+05
+ 21 0 -.2346E+05 .0000E+00
+ 21 1 .2743E+04 -.1054E+05
+ 21 2 -.7723E+04 .1575E+05
+ 21 3 -.1002E+04 .1280E+05
+ 21 4 -.7106E+05 -.5997E+04
+ 21 5 -.3582E+05 -.3053E+05
+ 21 6 -.2921E+05 -.1183E+05
+ 21 7 -.4040E+05 .4290E+05
+ 21 8 -.6098E+05 .4426E+05
+ 21 9 -.2574E+05 -.2190E+05
+ 21 10 .1335E+05 .6672E+05
+ 21 11 -.8885E+05 .3641E+05
+ 21 12 .3810E+05 -.4777E+04
+ 21 13 -.2697E+05 -.1060E+05
+ 21 14 .3922E+05 -.1512E+05
+ 21 15 -.4535E+05 -.4575E+05
+ 21 16 .2905E+05 -.4670E+05
+ 21 17 -.1246E+05 -.6560E+05
+ 21 18 .3732E+05 -.5125E+04
+ 21 19 -.1384E+04 -.4547E+05
+ 21 20 .2880E+05 .1165E+04
+ 21 21 -.9756E+04 .8277E+05
+ 22 0 -.7368E+04 .0000E+00
+ 22 1 -.2603E+05 -.8916E+04
+ 22 2 .1987E+05 .3817E+05
+ 22 3 -.3072E+05 -.2804E+05
+ 22 4 .6775E+05 -.1517E+05
+ 22 5 -.1256E+05 .2044E+05
+ 22 6 -.1000E+05 .5491E+04
+ 22 7 .6659E+04 -.2773E+05
+ 22 8 -.1128E+05 .5648E+05
+ 22 9 -.6404E+05 -.4127E+04
+ 22 10 -.6223E+05 .4836E+05
+ 22 11 -.2124E+05 .1611E+05
+ 22 12 -.1306E+05 .1463E+05
+ 22 13 .1047E+05 .6035E+05
+ 22 14 -.3950E+05 .4255E+05
+ 22 15 .2065E+05 .4114E+05
+ 22 16 .5373E+05 -.3704E+05
+ 22 17 .6845E+05 .5761E+05
+ 22 18 .7505E+05 -.2360E+05
+ 22 19 .4812E+05 .6241E+05
+ 22 20 .4558E+05 .1959E+05
+ 22 21 -.1821E+05 .7360E+05
+ 22 22 -.3013E+05 .1451E+05
+ 23 0 .4670E+05 .0000E+00
+ 23 1 -.2267E+05 .5310E+05
+ 23 2 .6095E+05 .1189E+04
+ 23 3 -.3446E+04 .7633E+05
+ 23 4 -.3364E+05 -.8471E+04
+ 23 5 .3810E+05 .1566E+05
+ 23 6 .3588E+05 .3354E+05
+ 23 7 -.9060E+04 -.4390E+05
+ 23 8 .2926E+05 .1930E+05
+ 23 9 -.5359E+05 -.7967E+05
+ 23 10 .9240E+05 -.2794E+05
+ 23 11 -.4319E+05 .3975E+05
+ 23 12 -.2322E+05 -.6743E+05
+ 23 13 .4646E+05 .6821E+05
+ 23 14 -.7103E+05 .4397E+05
+ 23 15 .1926E+05 .1830E+05
+ 23 16 -.3942E+05 .2260E+05
+ 23 17 .2419E+05 .8565E+05
+ 23 18 -.2850E+05 .5067E+05
+ 23 19 .4511E+04 .6493E+05
+ 23 20 .9897E+04 .1236E+05
+ 23 21 .2253E+04 .4054E+05
+ 23 22 -.2430E+04 -.1610E+05
+ 23 23 .4784E+05 -.8238E+05
+ 24 0 -.6198E+05 .0000E+00
+ 24 1 .5450E+03 -.7349E+05
+ 24 2 -.5822E+05 -.4522E+05
+ 24 3 .4919E+04 -.8341E+05
+ 24 4 -.1865E+05 .1138E+05
+ 24 5 .9651E+04 -.1336E+05
+ 24 6 -.2526E+04 .1054E+05
+ 24 7 -.2429E+05 -.3143E+05
+ 24 8 .7071E+05 -.3740E+05
+ 24 9 .7832E+04 .8406E+04
+ 24 10 -.3911E+04 -.8321E+05
+ 24 11 .6825E+05 -.4242E+05
+ 24 12 -.5288E+03 -.2065E+05
+ 24 13 .2329E+04 -.8380E+05
+ 24 14 -.9689E+04 -.2507E+05
+ 24 15 -.4070E+04 -.9104E+05
+ 24 16 .8092E+04 .2961E+05
+ 24 17 .5330E+04 -.1791E+05
+ 24 18 -.3912E+05 .6828E+05
+ 24 19 -.5364E+05 -.5202E+05
+ 24 20 -.4218E+05 .2726E+05
+ 24 21 -.1126E+05 -.6220E+05
+ 24 22 .2986E+04 -.6581E+04
+ 24 23 .4574E+05 -.5474E+05
+ 24 24 .6278E+05 -.1299E+05
+ 25 0 .2773E+05 .0000E+00
+ 25 1 .1186E+05 -.8146E+04
+ 25 2 -.4085E+04 -.3477E+04
+ 25 3 -.7766E+04 -.3524E+05
+ 25 4 -.5709E+05 -.2194E+05
+ 25 5 -.2198E+05 -.7562E+05
+ 25 6 .2968E+05 -.2887E+05
+ 25 7 -.3216E+05 .3033E+05
+ 25 8 -.1668E+05 -.5168E+05
+ 25 9 .2484E+05 .7308E+04
+ 25 10 .2138E+05 .7517E+03
+ 25 11 .1867E+05 -.1627E+04
+ 25 12 .2140E+05 -.5528E+05
+ 25 13 .3787E+05 -.2624E+04
+ 25 14 .7389E+04 -.3605E+05
+ 25 15 .4207E+05 -.7213E+05
+ 25 16 .2267E+05 -.3423E+04
+ 25 17 -.4469E+05 -.7041E+05
+ 25 18 .5262E+04 -.2059E+04
+ 25 19 -.8408E+05 -.5684E+05
+ 25 20 .1367E+05 .3889E+04
+ 25 21 -.2555E+05 -.4044E+05
+ 25 22 -.5030E+04 .2075E+05
+ 25 23 .7633E+04 .3193E+02
+ 25 24 -.1224E+05 .1219E+05
+ 25 25 -.4193E+05 .6909E+05
+ 1812.50000000000000
+ 0 0 .4299E+06 .0000E+00
+ 1 0 -.1363E+05 .0000E+00
+ 1 1 .1709E+04 .2086E+06
+ 2 0 -.3634E+05 .0000E+00
+ 2 1 -.4147E+05 .1480E+06
+ 2 2 -.3436E+06 -.1152E+05
+ 3 0 -.2781E+06 .0000E+00
+ 3 1 -.1326E+06 -.2710E+06
+ 3 2 -.1341E+06 .8779E+05
+ 3 3 -.1522E+06 -.1304E+06
+ 4 0 .2440E+06 .0000E+00
+ 4 1 -.7097E+05 -.6156E+05
+ 4 2 .2296E+06 -.1133E+06
+ 4 3 .6830E+04 -.8791E+05
+ 4 4 .1479E+06 .4709E+05
+ 5 0 .7370E+05 .0000E+00
+ 5 1 .7827E+05 -.7110E+05
+ 5 2 .1672E+06 .6788E+05
+ 5 3 .9100E+05 .1512E+06
+ 5 4 .6249E+05 .3799E+05
+ 5 5 .7047E+05 .3503E+05
+ 6 0 -.9192E+05 .0000E+00
+ 6 1 -.5057E+04 .2923E+06
+ 6 2 -.1827E+06 -.7205E+05
+ 6 3 .1667E+06 .3617E+05
+ 6 4 -.1162E+06 -.2068E+05
+ 6 5 -.3152E+05 -.9745E+05
+ 6 6 -.6175E+04 -.1051E+06
+ 7 0 -.1765E+06 .0000E+00
+ 7 1 .1615E+05 -.2152E+06
+ 7 2 -.1034E+06 .1899E+06
+ 7 3 -.1214E+06 .1028E+05
+ 7 4 -.4814E+05 .2395E+05
+ 7 5 -.4945E+05 -.6538E+05
+ 7 6 .1951E+05 -.1156E+05
+ 7 7 .3626E+05 -.4421E+05
+ 8 0 .3084E+05 .0000E+00
+ 8 1 -.1032E+06 .2732E+04
+ 8 2 .2916E+05 -.4631E+05
+ 8 3 .2251E+05 -.6861E+05
+ 8 4 .1452E+05 -.8476E+05
+ 8 5 -.4645E+05 -.3910E+05
+ 8 6 .5907E+04 .6761E+05
+ 8 7 .5664E+04 .4179E+05
+ 8 8 -.2708E+05 .1174E+06
+ 9 0 .1535E+06 .0000E+00
+ 9 1 .4091E+05 -.7940E+05
+ 9 2 .2677E+06 .4551E+05
+ 9 3 -.5420E+05 .7450E+05
+ 9 4 .4906E+05 -.9662E+05
+ 9 5 .1079E+06 .1530E+06
+ 9 6 .1805E+05 .1046E+06
+ 9 7 .2002E+05 .2917E+05
+ 9 8 .7498E+04 .4785E+05
+ 9 9 -.5082E+05 .1856E+05
+ 10 0 -.6894E+05 .0000E+00
+ 10 1 .6069E+05 .2405E+06
+ 10 2 -.1293E+06 -.6547E+05
+ 10 3 .1966E+06 -.1470E+05
+ 10 4 -.1107E+06 -.6939E+04
+ 10 5 .4401E+05 -.3964E+05
+ 10 6 -.6933E+05 .2818E+05
+ 10 7 -.4754E+05 -.5370E+05
+ 10 8 -.3341E+05 -.5013E+05
+ 10 9 .5798E+05 -.5142E+05
+ 10 10 .1458E+04 -.6391E+05
+ 11 0 -.9678E+05 .0000E+00
+ 11 1 .5381E+05 -.6308E+05
+ 11 2 -.5683E+05 .1015E+06
+ 11 3 -.1128E+06 -.7981E+05
+ 11 4 -.4054E+05 .2959E+05
+ 11 5 -.3023E+05 .2708E+05
+ 11 6 -.2916E+04 -.1284E+04
+ 11 7 .3478E+05 -.8945E+05
+ 11 8 .1979E+05 -.7435E+05
+ 11 9 .1143E+06 -.6652E+05
+ 11 10 -.1086E+05 .1936E+04
+ 11 11 .5631E+05 -.3728E+04
+ 12 0 -.4662E+05 .0000E+00
+ 12 1 -.4595E+05 -.2872E+05
+ 12 2 -.1063E+06 -.1186E+05
+ 12 3 -.3007E+05 -.1417E+06
+ 12 4 .3607E+05 .6398E+05
+ 12 5 -.1015E+06 -.6324E+05
+ 12 6 .4488E+05 -.6397E+05
+ 12 7 -.5939E+05 -.7413E+03
+ 12 8 -.5457E+04 .9319E+04
+ 12 9 .3858E+04 .4798E+05
+ 12 10 -.1283E+05 .1337E+06
+ 12 11 -.7965E+05 .3665E+05
+ 12 12 .1798E+05 .9228E+05
+ 13 0 .1694E+06 .0000E+00
+ 13 1 -.1540E+05 -.6866E+05
+ 13 2 .2533E+06 -.7038E+05
+ 13 3 -.9290E+05 .1049E+06
+ 13 4 .1058E+06 -.7293E+05
+ 13 5 .1500E+05 .1865E+06
+ 13 6 .2916E+05 -.3686E+05
+ 13 7 .5226E+05 .5926E+05
+ 13 8 .7044E+05 .1976E+05
+ 13 9 -.5780E+05 .4862E+05
+ 13 10 -.3683E+05 .4686E+05
+ 13 11 -.1051E+06 .1060E+05
+ 13 12 -.1696E+05 .2356E+05
+ 13 13 -.4385E+05 .2612E+05
+ 14 0 .1969E+05 .0000E+00
+ 14 1 .2283E+05 .1535E+06
+ 14 2 -.7536E+05 -.8648E+05
+ 14 3 .1297E+06 .7280E+05
+ 14 4 -.2581E+05 .5842E+04
+ 14 5 .6464E+05 -.3125E+05
+ 14 6 .5525E+05 .9247E+04
+ 14 7 -.3840E+05 .3538E+04
+ 14 8 .6601E+04 .1573E+05
+ 14 9 -.6250E+05 .5792E+05
+ 14 10 -.7150E+05 -.2159E+05
+ 14 11 .3448E+05 -.2871E+05
+ 14 12 -.2123E+05 -.1014E+06
+ 14 13 .7189E+05 .3864E+05
+ 14 14 -.6505E+05 -.1186E+06
+ 15 0 -.4782E+05 .0000E+00
+ 15 1 .9569E+04 .4041E+05
+ 15 2 .1929E+05 .6889E+04
+ 15 3 -.1651E+05 .4283E+05
+ 15 4 -.5189E+05 .2593E+05
+ 15 5 .8051E+03 .7540E+04
+ 15 6 -.1937E+05 .5901E+05
+ 15 7 .1599E+05 -.7050E+05
+ 15 8 .2685E+05 .2842E+05
+ 15 9 .3335E+05 -.6673E+05
+ 15 10 -.2285E+05 -.1013E+06
+ 15 11 .1323E+06 -.9739E+05
+ 15 12 -.4568E+04 -.1016E+06
+ 15 13 .9264E+05 .2285E+04
+ 15 14 -.6521E+05 -.6428E+05
+ 15 15 .1412E+05 -.1036E+06
+ 16 0 -.9913E+05 .0000E+00
+ 16 1 .3886E+05 -.1287E+06
+ 16 2 -.1423E+06 .8150E+05
+ 16 3 -.5116E+05 -.1264E+06
+ 16 4 .7522E+04 .1124E+06
+ 16 5 -.1272E+06 -.1421E+06
+ 16 6 .3707E+05 -.1981E+05
+ 16 7 -.1186E+06 -.6003E+05
+ 16 8 -.4275E+05 -.1783E+05
+ 16 9 -.1089E+05 -.1359E+04
+ 16 10 .2656E+05 .1563E+05
+ 16 11 .8447E+05 .2898E+05
+ 16 12 .6813E+05 .2470E+05
+ 16 13 .3769E+05 .3817E+05
+ 16 14 -.3824E+05 .5766E+05
+ 16 15 -.2999E+05 -.1558E+06
+ 16 16 .5969E+05 .8421E+05
+ 17 0 .9658E+05 .0000E+00
+ 17 1 -.6849E+05 -.7952E+05
+ 17 2 .1210E+06 -.1051E+05
+ 17 3 -.9529E+05 -.8479E+04
+ 17 4 .7604E+05 -.1346E+06
+ 17 5 -.7225E+03 .8600E+05
+ 17 6 .1250E+05 -.6285E+05
+ 17 7 .4043E+05 .5361E+05
+ 17 8 -.1486E+05 .7305E+05
+ 17 9 -.4108E+05 .3752E+04
+ 17 10 .6298E+05 -.8711E+03
+ 17 11 -.6165E+05 .7166E+05
+ 17 12 -.1095E+05 .1909E+05
+ 17 13 -.7136E+05 .7012E+05
+ 17 14 -.2817E+05 .7251E+05
+ 17 15 -.4367E+05 -.3930E+05
+ 17 16 .1029E+06 .3094E+05
+ 17 17 .1313E+05 .1334E+06
+ 18 0 .4444E+04 .0000E+00
+ 18 1 .6250E+05 -.1973E+04
+ 18 2 -.4636E+04 -.6600E+05
+ 18 3 .5730E+05 .5545E+05
+ 18 4 .4064E+05 .5006E+05
+ 18 5 .2017E+05 .1679E+05
+ 18 6 .2418E+05 -.2763E+05
+ 18 7 -.4963E+05 -.1909E+05
+ 18 8 -.5591E+04 -.6057E+04
+ 18 9 -.1066E+03 .1447E+05
+ 18 10 -.1463E+05 .1827E+05
+ 18 11 -.2508E+05 .1014E+06
+ 18 12 -.7648E+05 .1635E+05
+ 18 13 -.8214E+04 .5626E+05
+ 18 14 -.2154E+05 -.4187E+04
+ 18 15 .2395E+05 .3905E+05
+ 18 16 .8642E+05 -.4008E+05
+ 18 17 .4766E+05 .1874E+06
+ 18 18 .3727E+04 -.3512E+05
+ 19 0 .8578E+05 .0000E+00
+ 19 1 -.2950E+05 .1480E+06
+ 19 2 -.5975E+05 .5529E+05
+ 19 3 .4225E+05 .8462E+05
+ 19 4 -.8512E+05 -.3597E+05
+ 19 5 .8397E+05 -.4971E+05
+ 19 6 -.1264E+05 .9773E+05
+ 19 7 .8664E+05 -.1913E+05
+ 19 8 .2882E+05 .1000E+06
+ 19 9 .1028E+06 -.6144E+05
+ 19 10 -.1512E+05 -.5181E+05
+ 19 11 .5922E+05 -.3562E+05
+ 19 12 -.1071E+06 -.6469E+05
+ 19 13 .6314E+04 -.5215E+05
+ 19 14 -.4338E+05 -.4202E+05
+ 19 15 .2880E+05 .4002E+05
+ 19 16 -.2696E+05 -.3451E+05
+ 19 17 .5329E+05 .6459E+05
+ 19 18 -.7292E+05 .8706E+04
+ 19 19 .4058E+05 -.9047E+05
+ 20 0 -.1463E+06 .0000E+00
+ 20 1 .1729E+05 -.1025E+06
+ 20 2 -.8287E+05 .3637E+05
+ 20 3 .8308E+05 -.1368E+06
+ 20 4 -.1538E+05 .1880E+06
+ 20 5 -.5701E+05 -.4604E+05
+ 20 6 .1334E+05 .6318E+05
+ 20 7 -.1368E+06 -.6093E+04
+ 20 8 -.1278E+05 -.6654E+05
+ 20 9 .5574E+05 .8616E+04
+ 20 10 -.8256E+05 -.4744E+05
+ 20 11 .5722E+05 -.5147E+05
+ 20 12 .3979E+05 -.1574E+05
+ 20 13 .4218E+05 -.8882E+05
+ 20 14 .8555E+05 -.1728E+05
+ 20 15 .2614E+05 -.3954E+05
+ 20 16 -.3379E+05 -.7819E+04
+ 20 17 -.3545E+05 -.7759E+05
+ 20 18 -.7568E+05 .7727E+04
+ 20 19 -.3763E+04 -.1203E+06
+ 20 20 -.4531E+05 .2924E+05
+ 21 0 .5803E+05 .0000E+00
+ 21 1 -.2521E+05 -.6516E+04
+ 21 2 -.2393E+04 .3860E+05
+ 21 3 -.7030E+05 .4193E+05
+ 21 4 -.3060E+04 -.1464E+06
+ 21 5 -.1953E+05 -.4306E+05
+ 21 6 -.2256E+05 -.8618E+05
+ 21 7 .3649E+05 .4770E+05
+ 21 8 .5457E+05 .2067E+05
+ 21 9 .3648E+05 -.5994E+04
+ 21 10 .4203E+05 .2538E+05
+ 21 11 -.3397E+05 .3245E+05
+ 21 12 .5887E+05 .1252E+05
+ 21 13 -.4632E+05 -.3218E+05
+ 21 14 .3948E+05 .4721E+05
+ 21 15 -.4062E+05 -.2741E+05
+ 21 16 .3169E+04 .1671E+05
+ 21 17 -.7990E+05 -.4945E+05
+ 21 18 .3928E+05 -.1851E+04
+ 21 19 -.5606E+05 -.2034E+05
+ 21 20 .2049E+05 .3252E+05
+ 21 21 -.1246E+06 .4796E+05
+ 22 0 -.4833E+04 .0000E+00
+ 22 1 -.6795E+05 .7271E+04
+ 22 2 .9210E+05 -.4069E+05
+ 22 3 .4229E+05 -.3547E+05
+ 22 4 .6318E+05 -.4892E+05
+ 22 5 .1194E+05 .1215E+06
+ 22 6 .2616E+05 -.3494E+05
+ 22 7 -.1308E+05 .3289E+05
+ 22 8 -.1903E+05 -.3351E+05
+ 22 9 -.8476E+05 .3440E+05
+ 22 10 -.1082E+06 .2429E+05
+ 22 11 -.5282E+05 .7862E+05
+ 22 12 -.1429E+05 .5252E+05
+ 22 13 .9644E+04 .5216E+05
+ 22 14 -.4667E+04 .8860E+05
+ 22 15 .1843E+04 -.4680E+04
+ 22 16 .3551E+05 -.4680E+05
+ 22 17 -.3864E+05 .3413E+05
+ 22 18 .8486E+05 -.6354E+05
+ 22 19 .9061E+04 .9122E+05
+ 22 20 .1248E+05 .2867E+05
+ 22 21 -.7090E+05 .7757E+05
+ 22 22 -.3802E+03 -.3968E+05
+ 23 0 .3314E+05 .0000E+00
+ 23 1 .4137E+05 .1701E+06
+ 23 2 .3081E+05 -.5565E+05
+ 23 3 .8319E+04 .1699E+06
+ 23 4 -.8358E+05 -.2080E+05
+ 23 5 .9653E+05 .1992E+05
+ 23 6 -.1125E+06 .2188E+05
+ 23 7 .5599E+05 -.6402E+05
+ 23 8 .3863E+05 .6558E+05
+ 23 9 -.1531E+05 -.1105E+06
+ 23 10 .5636E+05 -.1918E+05
+ 23 11 .9769E+04 .4163E+05
+ 23 12 -.4706E+05 -.4631E+05
+ 23 13 .3312E+05 .6991E+04
+ 23 14 -.7362E+05 .8507E+05
+ 23 15 -.7742E+04 .4602E+04
+ 23 16 -.4693E+04 .2506E+04
+ 23 17 .4765E+04 .1154E+06
+ 23 18 .3162E+05 -.9706E+04
+ 23 19 .6195E+05 .7508E+05
+ 23 20 -.3833E+05 -.1236E+03
+ 23 21 .4816E+05 .1903E+05
+ 23 22 -.3501E+05 -.8218E+05
+ 23 23 .1414E+06 -.2380E+05
+ 24 0 -.2713E+05 .0000E+00
+ 24 1 -.5187E+04 -.8510E+05
+ 24 2 -.5686E+05 .5048E+05
+ 24 3 .5906E+05 -.1369E+06
+ 24 4 -.4232E+05 .6989E+05
+ 24 5 -.4565E+05 -.3924E+05
+ 24 6 .6309E+05 .8772E+05
+ 24 7 -.6997E+03 .1219E+05
+ 24 8 .3015E+05 -.2457E+05
+ 24 9 -.6810E+05 .2747E+05
+ 24 10 -.8612E+05 -.1866E+05
+ 24 11 .2358E+05 -.3674E+05
+ 24 12 -.2211E+05 -.1180E+05
+ 24 13 .8732E+04 -.8301E+05
+ 24 14 .1597E+05 .1965E+05
+ 24 15 .2216E+05 -.1024E+06
+ 24 16 .2135E+05 -.1445E+05
+ 24 17 .2625E+05 .1258E+05
+ 24 18 -.1313E+05 .2837E+05
+ 24 19 -.7601E+04 -.4275E+05
+ 24 20 -.6578E+05 .6837E+04
+ 24 21 .2641E+05 -.9903E+05
+ 24 22 .5297E+04 -.4492E+05
+ 24 23 .8221E+05 -.8783E+05
+ 24 24 .5418E+05 .2743E+05
+ 25 0 -.7307E+05 .0000E+00
+ 25 1 .1370E+05 -.3815E+05
+ 25 2 .3297E+04 -.8043E+05
+ 25 3 -.4782E+05 -.7172E+05
+ 25 4 -.1791E+05 .3449E+04
+ 25 5 -.7125E+04 -.2837E+05
+ 25 6 .3987E+04 -.5954E+05
+ 25 7 -.7637E+05 -.1668E+05
+ 25 8 .3697E+04 -.2503E+05
+ 25 9 .2367E+05 -.4663E+05
+ 25 10 .1397E+06 -.1606E+05
+ 25 11 .4109E+05 -.3417E+05
+ 25 12 .1130E+06 -.7031E+05
+ 25 13 .2103E+05 -.3794E+05
+ 25 14 .2777E+05 -.2682E+05
+ 25 15 .7788E+03 -.6337E+05
+ 25 16 -.1055E+05 .2609E+05
+ 25 17 -.1902E+05 -.6475E+04
+ 25 18 .3007E+05 .3880E+05
+ 25 19 -.6600E+05 -.5263E+05
+ 25 20 .3860E+05 -.2501E+04
+ 25 21 -.2250E+05 -.7440E+05
+ 25 22 .4639E+05 .3082E+05
+ 25 23 -.4715E+05 -.6232E+05
+ 25 24 .3555E+05 .5067E+05
+ 25 25 -.7722E+05 -.1355E+05
+ 1957.50000000000000
+ 0 0 .5164E+06 .0000E+00
+ 1 0 .7324E+05 .0000E+00
+ 1 1 -.8126E+05 .2137E+06
+ 2 0 .1294E+05 .0000E+00
+ 2 1 -.7193E+05 .7867E+05
+ 2 2 -.3542E+06 -.9113E+05
+ 3 0 -.2833E+06 .0000E+00
+ 3 1 -.2375E+06 -.2006E+06
+ 3 2 -.2064E+06 .3359E+05
+ 3 3 -.1094E+06 -.1048E+06
+ 4 0 .1843E+06 .0000E+00
+ 4 1 -.8811E+05 -.1287E+06
+ 4 2 .2419E+06 -.1243E+06
+ 4 3 .5876E+05 -.7115E+05
+ 4 4 .1468E+06 .9248E+05
+ 5 0 .8230E+05 .0000E+00
+ 5 1 .5782E+05 -.5893E+05
+ 5 2 .1779E+06 .1277E+06
+ 5 3 .1453E+06 .2241E+06
+ 5 4 .5462E+05 .1362E+06
+ 5 5 .3480E+05 .4163E+05
+ 6 0 -.1211E+06 .0000E+00
+ 6 1 -.9600E+04 .1525E+06
+ 6 2 -.1563E+06 -.2609E+05
+ 6 3 .2172E+06 .3387E+05
+ 6 4 -.1358E+06 -.5527E+05
+ 6 5 -.6774E+05 -.1656E+06
+ 6 6 .3524E+05 -.1154E+06
+ 7 0 -.2272E+06 .0000E+00
+ 7 1 .3664E+05 -.1789E+06
+ 7 2 -.1275E+06 .1831E+06
+ 7 3 -.7281E+05 .2589E+03
+ 7 4 -.1053E+06 .1422E+05
+ 7 5 -.6690E+05 -.1362E+06
+ 7 6 .1214E+06 -.2249E+05
+ 7 7 .8008E+05 -.4006E+05
+ 8 0 -.4934E+05 .0000E+00
+ 8 1 -.7489E+05 -.4321E+04
+ 8 2 -.3643E+05 -.1546E+05
+ 8 3 .5110E+04 -.3216E+05
+ 8 4 -.3140E+05 -.1685E+06
+ 8 5 -.8905E+05 -.1021E+06
+ 8 6 .5427E+05 .3581E+05
+ 8 7 -.5481E+04 .9596E+05
+ 8 8 -.4273E+05 .8196E+05
+ 9 0 .1592E+06 .0000E+00
+ 9 1 .7502E+05 .3836E+05
+ 9 2 .2655E+06 .8443E+05
+ 9 3 -.1981E+05 .7257E+05
+ 9 4 .1417E+05 -.1142E+06
+ 9 5 .1049E+06 .2420E+06
+ 9 6 .8236E+05 .1325E+06
+ 9 7 -.1979E+05 .1673E+06
+ 9 8 -.2406E+05 .2419E+05
+ 9 9 -.1244E+06 .1465E+05
+ 10 0 -.8106E+05 .0000E+00
+ 10 1 .1275E+06 .1866E+06
+ 10 2 -.1208E+06 -.6948E+05
+ 10 3 .2459E+06 .4692E+05
+ 10 4 -.1000E+06 -.6365E+05
+ 10 5 .1033E+06 .5389E+05
+ 10 6 -.9375E+05 .1364E+05
+ 10 7 -.1302E+06 .1548E+05
+ 10 8 -.8607E+05 -.5296E+05
+ 10 9 -.1075E+05 -.8230E+05
+ 10 10 -.5183E+05 .1285E+05
+ 11 0 -.2191E+05 .0000E+00
+ 11 1 .1009E+06 -.5857E+05
+ 11 2 -.8189E+05 .9458E+05
+ 11 3 -.2692E+05 -.1493E+06
+ 11 4 -.9498E+05 -.2363E+05
+ 11 5 .5022E+05 .4437E+05
+ 11 6 .2043E+04 .5885E+03
+ 11 7 .7564E+05 -.1118E+06
+ 11 8 .3923E+05 -.1120E+06
+ 11 9 .1872E+06 -.1468E+06
+ 11 10 -.5047E+05 .5944E+05
+ 11 11 .1048E+06 .1927E+05
+ 12 0 -.5412E+05 .0000E+00
+ 12 1 -.5779E+05 -.4423E+05
+ 12 2 -.1583E+06 -.3150E+05
+ 12 3 -.4511E+03 -.1415E+06
+ 12 4 -.2721E+05 .4880E+05
+ 12 5 -.4352E+05 -.9022E+05
+ 12 6 -.2033E+05 -.6145E+05
+ 12 7 -.3476E+05 -.8779E+05
+ 12 8 -.3544E+05 -.4822E+05
+ 12 9 .8963E+05 .1481E+05
+ 12 10 -.2860E+05 .1466E+06
+ 12 11 -.4387E+05 .4507E+05
+ 12 12 .1058E+06 .1191E+05
+ 13 0 .2240E+06 .0000E+00
+ 13 1 -.4896E+05 .2634E+05
+ 13 2 .2553E+06 -.6152E+05
+ 13 3 -.1242E+06 .4753E+05
+ 13 4 .2005E+05 .1608E+04
+ 13 5 -.2242E+05 .1932E+06
+ 13 6 -.2137E+05 -.1134E+05
+ 13 7 .5547E+05 .5116E+05
+ 13 8 .7568E+05 -.1933E+05
+ 13 9 .1327E+05 .7367E+05
+ 13 10 -.4243E+04 .4793E+05
+ 13 11 -.1491E+06 -.4915E+05
+ 13 12 .1077E+06 -.3978E+05
+ 13 13 -.4593E+05 -.9861E+05
+ 14 0 .7930E+05 .0000E+00
+ 14 1 -.1510E+05 .1947E+06
+ 14 2 -.1917E+05 -.5041E+05
+ 14 3 .8159E+05 .1416E+06
+ 14 4 -.1567E+05 .3254E+05
+ 14 5 .7848E+05 -.3718E+05
+ 14 6 .2293E+05 .1813E+05
+ 14 7 -.6130E+05 .4059E+05
+ 14 8 -.6442E+04 .4382E+05
+ 14 9 -.1302E+06 .1549E+06
+ 14 10 -.8969E+05 .6235E+05
+ 14 11 -.5811E+05 -.6833E+05
+ 14 12 .5621E+05 -.4848E+05
+ 14 13 .7909E+05 -.5570E+05
+ 14 14 -.1044E+06 -.8567E+05
+ 15 0 -.7100E+05 .0000E+00
+ 15 1 -.4021E+05 .3649E+05
+ 15 2 .6529E+05 -.9662E+05
+ 15 3 -.1224E+05 -.3847E+05
+ 15 4 .8439E+04 .1420E+05
+ 15 5 .4049E+05 .5817E+05
+ 15 6 .4004E+05 .5539E+05
+ 15 7 -.4325E+04 -.8367E+05
+ 15 8 .6752E+05 .5314E+05
+ 15 9 .9062E+04 -.4781E+05
+ 15 10 -.3309E+05 -.7061E+05
+ 15 11 .1149E+06 -.1641E+06
+ 15 12 .1678E+05 -.3467E+05
+ 15 13 .9686E+05 .4385E+05
+ 15 14 -.1343E+06 -.3557E+05
+ 15 15 .3890E+04 .8636E+05
+ 16 0 -.8894E+05 .0000E+00
+ 16 1 .3345E+05 -.1536E+06
+ 16 2 -.8525E+05 .3342E+05
+ 16 3 -.1504E+06 -.4783E+05
+ 16 4 .9359E+05 .9944E+05
+ 16 5 -.8683E+05 -.2754E+06
+ 16 6 .5744E+05 -.3353E+05
+ 16 7 -.9695E+05 -.1626E+06
+ 16 8 .2987E+05 .2705E+05
+ 16 9 .1138E+05 -.4970E+05
+ 16 10 -.2870E+05 .6266E+04
+ 16 11 .1382E+06 .2063E+05
+ 16 12 .5792E+05 .8162E+05
+ 16 13 .1971E+05 .1561E+06
+ 16 14 -.9166E+05 .5872E+05
+ 16 15 -.4768E+05 .1982E+05
+ 16 16 .5116E+05 .1722E+06
+ 17 0 .5410E+05 .0000E+00
+ 17 1 -.1121E+06 -.1251E+06
+ 17 2 .7283E+05 -.7165E+05
+ 17 3 -.1129E+06 -.6137E+05
+ 17 4 .1023E+06 -.1200E+06
+ 17 5 -.5100E+05 .9349E+05
+ 17 6 -.1579E+05 .2033E+05
+ 17 7 .5732E+05 .1509E+05
+ 17 8 -.1475E+05 .9125E+05
+ 17 9 -.1966E+05 -.2740E+05
+ 17 10 .2504E+05 -.9464E+05
+ 17 11 .9897E+04 .4654E+05
+ 17 12 -.4633E+04 -.5512E+05
+ 17 13 -.1425E+06 .8738E+05
+ 17 14 -.7774E+05 .1889E+04
+ 17 15 -.3284E+05 -.7079E+05
+ 17 16 .8315E+05 .1300E+06
+ 17 17 .1166E+05 -.2460E+05
+ 18 0 .1351E+05 .0000E+00
+ 18 1 .9254E+05 -.9521E+04
+ 18 2 .4791E+05 -.4321E+05
+ 18 3 .2651E+05 .1562E+06
+ 18 4 .5139E+05 .8406E+05
+ 18 5 -.4914E+04 -.5209E+04
+ 18 6 -.9852E+05 -.1335E+05
+ 18 7 -.1021E+06 .4081E+05
+ 18 8 -.3162E+05 -.6493E+04
+ 18 9 -.6026E+05 .6851E+05
+ 18 10 .1538E+05 -.5268E+05
+ 18 11 -.3020E+05 .1696E+06
+ 18 12 -.2508E+05 -.1095E+05
+ 18 13 -.7430E+05 .4995E+05
+ 18 14 .7657E+04 -.5795E+05
+ 18 15 .9065E+05 -.1115E+06
+ 18 16 .9981E+05 .5057E+03
+ 18 17 .4343E+05 .1292E+05
+ 18 18 .1111E+05 -.1758E+06
+ 19 0 .2028E+05 .0000E+00
+ 19 1 .1439E+05 .8064E+05
+ 19 2 -.1539E+06 .7626E+05
+ 19 3 .1260E+06 .1080E+06
+ 19 4 -.8933E+05 -.8778E+05
+ 19 5 .2253E+05 .3039E+05
+ 19 6 -.2236E+05 .6292E+05
+ 19 7 .1212E+06 .5957E+05
+ 19 8 .7264E+05 .8821E+05
+ 19 9 .1277E+05 .2071E+05
+ 19 10 .2913E+05 -.5101E+05
+ 19 11 .1237E+05 .4727E+05
+ 19 12 -.9287E+05 -.6181E+05
+ 19 13 -.2794E+05 -.8756E+05
+ 19 14 -.1822E+05 -.7023E+05
+ 19 15 .1054E+06 -.4954E+05
+ 19 16 -.4525E+04 .5693E+03
+ 19 17 .1718E+05 .1051E+05
+ 19 18 -.4759E+05 -.1338E+06
+ 19 19 .1541E+05 -.4250E+05
+ 20 0 -.1222E+06 .0000E+00
+ 20 1 .1435E+05 -.9608E+05
+ 20 2 -.1390E+05 .1054E+06
+ 20 3 .7585E+05 -.1195E+06
+ 20 4 .3008E+05 .1569E+06
+ 20 5 -.2061E+05 -.8108E+05
+ 20 6 .3205E+05 .5591E+05
+ 20 7 -.1135E+06 -.2312E+05
+ 20 8 .3653E+04 -.9682E+05
+ 20 9 .2305E+05 -.2485E+05
+ 20 10 -.5201E+05 -.6155E+05
+ 20 11 .9336E+05 -.3440E+04
+ 20 12 -.1060E+05 .9413E+04
+ 20 13 .9273E+05 -.3906E+05
+ 20 14 .1020E+06 .1109E+05
+ 20 15 .1280E+06 .5182E+05
+ 20 16 -.5159E+05 .4297E+05
+ 20 17 -.4590E+05 -.2221E+05
+ 20 18 -.8764E+05 -.2719E+05
+ 20 19 -.3252E+04 -.5689E+05
+ 20 20 -.5330E+05 .1105E+06
+ 21 0 .4568E+05 .0000E+00
+ 21 1 -.7833E+04 -.8186E+05
+ 21 2 -.4663E+05 .1034E+06
+ 21 3 -.6821E+05 .8889E+03
+ 21 4 -.3352E+05 -.9400E+05
+ 21 5 -.5927E+05 -.4820E+05
+ 21 6 -.4628E+04 -.8332E+05
+ 21 7 .1702E+06 -.1986E+05
+ 21 8 .7344E+05 .4682E+04
+ 21 9 .1165E+06 -.4453E+05
+ 21 10 .3133E+05 -.4084E+05
+ 21 11 .2139E+05 .5436E+05
+ 21 12 -.3134E+05 -.3238E+05
+ 21 13 -.1939E+05 -.1104E+05
+ 21 14 -.2171E+04 .1645E+05
+ 21 15 -.4446E+05 .7814E+05
+ 21 16 -.1160E+06 .5254E+05
+ 21 17 -.1111E+06 -.2248E+05
+ 21 18 .9489E+04 .3500E+05
+ 21 19 -.1914E+05 .3716E+05
+ 21 20 .4198E+04 .1020E+06
+ 21 21 -.4381E+05 .5892E+05
+ 22 0 .5989E+05 .0000E+00
+ 22 1 -.9491E+05 .4683E+05
+ 22 2 .1161E+06 -.8450E+04
+ 22 3 -.2190E+04 -.9419E+05
+ 22 4 .1500E+05 -.7966E+05
+ 22 5 .4500E+05 .6483E+05
+ 22 6 -.3113E+05 -.3382E+04
+ 22 7 .1348E+05 .9880E+05
+ 22 8 -.5318E+05 -.5816E+05
+ 22 9 -.1046E+06 .4906E+05
+ 22 10 -.1313E+06 -.4118E+05
+ 22 11 -.6402E+05 .1172E+06
+ 22 12 -.2591E+05 -.4906E+05
+ 22 13 .1635E+05 .7660E+04
+ 22 14 .5959E+04 .5250E+05
+ 22 15 .2701E+04 .6065E+04
+ 22 16 -.2278E+05 -.3339E+05
+ 22 17 -.3780E+05 -.6654E+05
+ 22 18 .1269E+06 -.2287E+05
+ 22 19 .3252E+05 .8935E+05
+ 22 20 .3312E+05 .5698E+05
+ 22 21 -.7635E+04 .5699E+05
+ 22 22 .4036E+05 -.1877E+05
+ 23 0 -.1395E+05 .0000E+00
+ 23 1 .5407E+05 .2194E+06
+ 23 2 -.4152E+05 -.6967E+05
+ 23 3 .4192E+05 .1562E+06
+ 23 4 -.1105E+06 -.8591E+04
+ 23 5 .4972E+05 .6450E+05
+ 23 6 -.1290E+06 -.1126E+05
+ 23 7 .8134E+05 -.7665E+04
+ 23 8 -.1892E+05 .1998E+05
+ 23 9 -.7064E+05 -.4512E+05
+ 23 10 .1096E+06 -.4606E+05
+ 23 11 .2642E+04 .1237E+06
+ 23 12 -.2360E+05 -.7472E+05
+ 23 13 .5276E+05 -.3288E+04
+ 23 14 -.7043E+05 .1259E+06
+ 23 15 -.2252E+05 -.4638E+05
+ 23 16 -.3297E+05 -.1743E+05
+ 23 17 -.1009E+05 .1860E+05
+ 23 18 .1107E+06 .8324E+04
+ 23 19 .6299E+05 .9518E+05
+ 23 20 -.4975E+05 .5585E+04
+ 23 21 .6975E+05 -.4542E+05
+ 23 22 -.1634E+05 -.3156E+05
+ 23 23 .5179E+05 -.1663E+05
+ 24 0 -.2265E+05 .0000E+00
+ 24 1 -.1707E+05 -.1027E+05
+ 24 2 -.3447E+05 .4799E+05
+ 24 3 .8914E+05 -.1411E+06
+ 24 4 -.2863E+05 .1927E+05
+ 24 5 .6447E+04 -.5226E+05
+ 24 6 .6327E+05 .7263E+05
+ 24 7 -.3639E+04 .1022E+06
+ 24 8 .3481E+05 -.7526E+05
+ 24 9 -.1360E+06 .7315E+05
+ 24 10 -.9954E+05 .2543E+05
+ 24 11 -.2210E+05 .7880E+05
+ 24 12 -.4790E+05 -.1436E+05
+ 24 13 .7401E+05 -.5752E+05
+ 24 14 -.8945E+04 .8604E+05
+ 24 15 .5011E+05 -.1188E+06
+ 24 16 .5849E+05 -.4904E+05
+ 24 17 .6064E+05 .1427E+05
+ 24 18 .7127E+05 -.3203E+04
+ 24 19 -.4950E+04 -.1346E+04
+ 24 20 -.1295E+06 -.3546E+05
+ 24 21 .2390E+05 -.1380E+06
+ 24 22 -.3547E+05 -.5699E+05
+ 24 23 -.6262E+03 -.3224E+05
+ 24 24 -.1680E+05 -.3861E+05
+ 25 0 -.1144E+06 .0000E+00
+ 25 1 .1357E+05 -.5466E+05
+ 25 2 .2406E+05 -.8330E+05
+ 25 3 -.2598E+05 -.7049E+05
+ 25 4 .6213E+05 .8207E+05
+ 25 5 -.6809E+04 .1032E+05
+ 25 6 .9176E+05 -.5332E+04
+ 25 7 .2892E+04 -.5376E+05
+ 25 8 -.6781E+05 -.7868E+05
+ 25 9 .1044E+05 -.8414E+05
+ 25 10 .1640E+06 .8138E+03
+ 25 11 .1022E+06 -.4713E+05
+ 25 12 .6506E+05 -.1065E+06
+ 25 13 .8941E+05 -.2724E+05
+ 25 14 -.3566E+05 .6247E+05
+ 25 15 .1650E+05 -.5174E+05
+ 25 16 -.1860E+05 .1757E+05
+ 25 17 -.8258E+04 .7025E+05
+ 25 18 -.1167E+05 .6139E+05
+ 25 19 -.8706E+05 -.1026E+05
+ 25 20 -.5861E+05 -.3265E+05
+ 25 21 -.6476E+04 -.9200E+05
+ 25 22 .2405E+05 -.1152E+05
+ 25 23 -.8285E+05 -.5634E+03
+ 25 24 .1647E+05 -.2912E+05
+ 25 25 -.2328E+05 -.5687E+05
+ 2102.50000000000000
+ 0 0 .6097E+06 .0000E+00
+ 1 0 .2324E+06 .0000E+00
+ 1 1 -.1777E+06 .7386E+05
+ 2 0 .2176E+06 .0000E+00
+ 2 1 -.2250E+06 -.6445E+04
+ 2 2 -.3056E+06 -.1522E+06
+ 3 0 -.1825E+06 .0000E+00
+ 3 1 -.4406E+06 -.7816E+05
+ 3 2 -.1995E+06 .6199E+04
+ 3 3 -.6592E+05 .2361E+05
+ 4 0 .7264E+05 .0000E+00
+ 4 1 -.2037E+06 -.1750E+06
+ 4 2 .1996E+06 -.1349E+06
+ 4 3 .1515E+06 .1830E+05
+ 4 4 .1204E+06 .1226E+06
+ 5 0 -.8474E+05 .0000E+00
+ 5 1 -.9685E+05 -.1005E+06
+ 5 2 .1753E+06 .1456E+06
+ 5 3 .2052E+06 .1757E+06
+ 5 4 .6100E+05 .1559E+06
+ 5 5 .5103E+05 -.3369E+05
+ 6 0 -.2201E+06 .0000E+00
+ 6 1 .2665E+05 -.1024E+06
+ 6 2 -.6466E+05 .8439E+05
+ 6 3 .2599E+06 .8142E+04
+ 6 4 -.1655E+06 -.5210E+05
+ 6 5 -.5768E+05 -.2295E+06
+ 6 6 .2564E+05 -.1342E+06
+ 7 0 -.3058E+06 .0000E+00
+ 7 1 .7536E+05 -.1321E+06
+ 7 2 -.2439E+05 .2070E+06
+ 7 3 .9215E+04 .3089E+05
+ 7 4 -.1468E+06 .6054E+05
+ 7 5 -.1013E+06 -.1287E+06
+ 7 6 .9580E+05 -.1253E+05
+ 7 7 .3347E+05 .1539E+05
+ 8 0 -.9052E+05 .0000E+00
+ 8 1 .6134E+05 .2293E+05
+ 8 2 -.6281E+05 .1516E+06
+ 8 3 -.1173E+05 -.1191E+05
+ 8 4 -.1103E+06 -.1430E+06
+ 8 5 -.9260E+05 -.1941E+06
+ 8 6 .4947E+05 .1100E+06
+ 8 7 -.4294E+05 .1199E+06
+ 8 8 -.4196E+05 .1103E+06
+ 9 0 .1125E+06 .0000E+00
+ 9 1 .1511E+06 .1535E+06
+ 9 2 .2360E+06 .1336E+06
+ 9 3 .2080E+05 .1317E+05
+ 9 4 -.7563E+05 -.7731E+05
+ 9 5 .7171E+05 .1019E+06
+ 9 6 .1551E+06 .1664E+06
+ 9 7 -.2077E+05 .1743E+06
+ 9 8 .9396E+04 -.5059E+04
+ 9 9 -.1002E+06 .2555E+05
+ 10 0 -.3542E+05 .0000E+00
+ 10 1 .1746E+06 .2214E+06
+ 10 2 -.1014E+06 -.1099E+04
+ 10 3 .1373E+06 -.2692E+05
+ 10 4 -.9718E+04 -.8051E+05
+ 10 5 .1013E+06 -.6036E+05
+ 10 6 -.2492E+04 .1071E+06
+ 10 7 -.1962E+06 -.2311E+05
+ 10 8 -.1619E+05 -.1210E+06
+ 10 9 -.3372E+05 -.7385E+05
+ 10 10 -.4417E+05 -.3444E+05
+ 11 0 .1009E+06 .0000E+00
+ 11 1 .1154E+06 .1280E+05
+ 11 2 -.2024E+05 .4782E+05
+ 11 3 .1924E+04 -.2595E+06
+ 11 4 -.1224E+06 -.2797E+05
+ 11 5 .1170E+06 -.1429E+05
+ 11 6 .7069E+05 .1224E+06
+ 11 7 .4410E+05 -.8662E+05
+ 11 8 .3297E+05 -.1501E+06
+ 11 9 .1865E+06 -.1495E+06
+ 11 10 -.9705E+05 .4608E+05
+ 11 11 .1110E+06 -.3588E+05
+ 12 0 -.5040E+05 .0000E+00
+ 12 1 -.2090E+05 .2504E+05
+ 12 2 -.2197E+06 -.1213E+06
+ 12 3 -.2536E+05 -.1275E+06
+ 12 4 .6790E+03 .1699E+05
+ 12 5 .1702E+04 -.4547E+05
+ 12 6 -.7549E+05 .2669E+05
+ 12 7 -.1043E+06 -.1235E+06
+ 12 8 -.5890E+04 -.5026E+05
+ 12 9 .8588E+05 .4306E+05
+ 12 10 -.6301E+05 .1484E+06
+ 12 11 -.8496E+04 .5204E+05
+ 12 12 .1176E+06 -.7893E+04
+ 13 0 .2222E+06 .0000E+00
+ 13 1 -.6653E+05 .3587E+05
+ 13 2 .1607E+06 -.1913E+06
+ 13 3 -.8013E+05 -.6585E+05
+ 13 4 -.7082E+05 .5703E+05
+ 13 5 -.7606E+04 .1610E+06
+ 13 6 -.9351E+05 .1009E+06
+ 13 7 -.1418E+05 -.2316E+05
+ 13 8 .9339E+05 -.2542E+05
+ 13 9 .6087E+05 .4906E+05
+ 13 10 .2594E+05 .1032E+06
+ 13 11 -.1407E+06 -.9638E+04
+ 13 12 .1993E+06 -.5142E+05
+ 13 13 -.6316E+05 -.3753E+05
+ 14 0 .1121E+06 .0000E+00
+ 14 1 -.3212E+05 .1426E+06
+ 14 2 -.4571E+05 -.6245E+05
+ 14 3 .7932E+05 .1835E+06
+ 14 4 -.6098E+04 .7536E+05
+ 14 5 .1200E+06 -.1617E+05
+ 14 6 -.9909E+05 -.1024E+05
+ 14 7 -.4293E+05 .1878E+05
+ 14 8 .4370E+05 .1933E+05
+ 14 9 -.1697E+06 .2088E+06
+ 14 10 -.7560E+05 .4269E+05
+ 14 11 -.8594E+05 .1007E+04
+ 14 12 .9192E+05 -.6488E+05
+ 14 13 .5120E+05 -.5075E+05
+ 14 14 -.1177E+06 -.5556E+04
+ 15 0 -.2592E+05 .0000E+00
+ 15 1 -.7651E+05 -.9902E+05
+ 15 2 .1037E+06 -.1868E+06
+ 15 3 .1131E+06 -.3911E+05
+ 15 4 -.5289E+05 .6277E+05
+ 15 5 .9741E+05 .1304E+06
+ 15 6 -.7055E+04 .3785E+05
+ 15 7 .3171E+05 -.6851E+05
+ 15 8 .1643E+06 -.2079E+05
+ 15 9 -.1749E+05 .2029E+05
+ 15 10 -.5337E+05 -.6393E+05
+ 15 11 .3254E+05 -.1806E+06
+ 15 12 .9278E+04 -.6366E+05
+ 15 13 .3781E+05 .1130E+05
+ 15 14 -.1924E+06 -.2253E+05
+ 15 15 .1383E+04 .1004E+06
+ 16 0 -.6258E+05 .0000E+00
+ 16 1 -.1545E+05 -.1098E+06
+ 16 2 -.2067E+05 .5791E+05
+ 16 3 -.1798E+06 .1206E+06
+ 16 4 .5541E+05 .8599E+05
+ 16 5 .1944E+05 -.2599E+06
+ 16 6 -.6191E+05 -.9701E+05
+ 16 7 .3425E+05 -.1497E+06
+ 16 8 .7985E+05 .5270E+04
+ 16 9 -.1621E+05 -.2447E+05
+ 16 10 -.6601E+05 -.1818E+05
+ 16 11 .1644E+06 -.2687E+05
+ 16 12 .2671E+04 .8555E+05
+ 16 13 .1075E+05 .1019E+06
+ 16 14 -.1113E+06 .4069E+05
+ 16 15 -.6706E+05 .7938E+05
+ 16 16 .7042E+05 .7370E+05
+ 17 0 .3060E+05 .0000E+00
+ 17 1 -.1459E+06 -.1728E+06
+ 17 2 .6991E+05 -.3480E+05
+ 17 3 -.1341E+06 -.6806E+05
+ 17 4 -.2614E+05 -.9550E+05
+ 17 5 -.6154E+05 .7237E+05
+ 17 6 -.3607E+05 .3227E+05
+ 17 7 .1085E+06 -.2839E+05
+ 17 8 .4354E+05 .1074E+06
+ 17 9 -.7554E+05 -.2779E+05
+ 17 10 -.5335E+04 -.1020E+06
+ 17 11 .6999E+05 -.7102E+05
+ 17 12 .6440E+05 -.3592E+05
+ 17 13 -.1138E+06 .9602E+05
+ 17 14 -.3520E+05 -.4261E+05
+ 17 15 .1304E+05 .2326E+04
+ 17 16 .1155E+06 .1118E+06
+ 17 17 .2723E+05 -.9654E+05
+ 18 0 -.2413E+05 .0000E+00
+ 18 1 .7906E+05 .9129E+04
+ 18 2 .1237E+06 .3584E+05
+ 18 3 -.1352E+06 .1901E+06
+ 18 4 .1229E+06 .8108E+05
+ 18 5 .9010E+03 -.6711E+05
+ 18 6 -.1764E+06 -.3742E+05
+ 18 7 -.5200E+05 .7260E+04
+ 18 8 -.4473E+05 .7781E+05
+ 18 9 -.1411E+06 .3066E+05
+ 18 10 .2167E+05 -.3926E+05
+ 18 11 .1365E+05 .1854E+06
+ 18 12 .3541E+03 .2530E+05
+ 18 13 -.2475E+05 .7381E+05
+ 18 14 .3424E+05 -.3226E+05
+ 18 15 .1251E+06 -.9485E+05
+ 18 16 .1393E+06 .3409E+05
+ 18 17 .5743E+05 -.6591E+05
+ 18 18 -.1058E+05 -.1109E+06
+ 19 0 -.3882E+05 .0000E+00
+ 19 1 .1940E+05 .2535E+05
+ 19 2 -.2093E+06 .6625E+05
+ 19 3 .4846E+05 .4109E+05
+ 19 4 -.5380E+04 -.1608E+06
+ 19 5 .9781E+04 .8059E+05
+ 19 6 .6067E+05 .7594E+04
+ 19 7 .1732E+06 .1607E+06
+ 19 8 .5931E+05 .8557E+05
+ 19 9 -.1215E+06 .6949E+05
+ 19 10 .6360E+05 -.1052E+06
+ 19 11 -.1222E+05 .1598E+06
+ 19 12 -.6446E+05 -.4872E+05
+ 19 13 -.9893E+05 -.2583E+05
+ 19 14 -.6649E+05 -.7949E+05
+ 19 15 .9181E+05 -.8398E+05
+ 19 16 .3493E+04 .1985E+05
+ 19 17 -.6070E+05 -.5507E+05
+ 19 18 -.3903E+05 -.1500E+06
+ 19 19 -.4469E+05 .3354E+05
+ 20 0 -.1297E+06 .0000E+00
+ 20 1 .3721E+05 -.9419E+04
+ 20 2 -.2116E+05 .1076E+06
+ 20 3 .2366E+05 -.2424E+05
+ 20 4 .1419E+06 .5924E+05
+ 20 5 -.5557E+04 -.1339E+05
+ 20 6 .2720E+05 -.6700E+05
+ 20 7 -.8074E+05 .8108E+05
+ 20 8 .9605E+04 -.9026E+05
+ 20 9 -.1039E+06 -.8912E+05
+ 20 10 .5041E+05 -.7270E+05
+ 20 11 .4033E+05 .6371E+05
+ 20 12 .4573E+04 -.9091E+04
+ 20 13 .5455E+05 -.6579E+05
+ 20 14 .4996E+05 .8032E+05
+ 20 15 .6957E+05 -.3176E+05
+ 20 16 -.7401E+04 .4838E+05
+ 20 17 -.1544E+06 -.6664E+04
+ 20 18 -.8655E+05 -.8078E+05
+ 20 19 -.5429E+05 -.4595E+04
+ 20 20 -.2063E+05 .6664E+05
+ 21 0 -.2110E+04 .0000E+00
+ 21 1 .4598E+05 -.7972E+05
+ 21 2 -.1368E+06 .5921E+05
+ 21 3 .2490E+05 .1026E+05
+ 21 4 .6954E+05 -.5157E+05
+ 21 5 -.1441E+06 .3457E+05
+ 21 6 .8956E+05 -.3329E+05
+ 21 7 .1219E+06 .1698E+05
+ 21 8 .4155E+05 -.6233E+05
+ 21 9 .1041E+06 -.1487E+06
+ 21 10 .1152E+06 -.2883E+05
+ 21 11 .6110E+05 .7473E+05
+ 21 12 -.2971E+05 -.8497E+05
+ 21 13 -.4383E+05 -.5972E+05
+ 21 14 -.1293E+05 -.1919E+05
+ 21 15 .1870E+05 .7404E+05
+ 21 16 -.1247E+06 .4965E+05
+ 21 17 -.1108E+06 .3493E+05
+ 21 18 -.4493E+04 .2840E+05
+ 21 19 .1341E+05 .9100E+05
+ 21 20 .4066E+04 .9720E+05
+ 21 21 .5312E+05 .1800E+05
+ 22 0 .1246E+06 .0000E+00
+ 22 1 -.8963E+05 .4440E+05
+ 22 2 .1286E+06 .8352E+05
+ 22 3 .4711E+05 -.1609E+06
+ 22 4 .4097E+05 -.3638E+05
+ 22 5 .1350E+05 -.4681E+05
+ 22 6 -.7309E+04 .1890E+05
+ 22 7 -.4560E+05 .1391E+06
+ 22 8 -.6382E+05 -.7454E+05
+ 22 9 -.1343E+06 -.2389E+05
+ 22 10 -.4640E+05 .1356E+05
+ 22 11 -.7759E+05 .1296E+06
+ 22 12 .4104E+05 -.1344E+06
+ 22 13 -.2378E+05 .2329E+05
+ 22 14 .3961E+05 .9915E+04
+ 22 15 .6953E+05 .2053E+05
+ 22 16 .2643E+04 -.2755E+05
+ 22 17 -.1863E+04 .8142E+04
+ 22 18 .1285E+06 -.2334E+05
+ 22 19 .9783E+05 .1260E+06
+ 22 20 .7456E+05 .7214E+05
+ 22 21 .5170E+05 .5799E+05
+ 22 22 .3379E+05 .2562E+05
+ 23 0 -.1332E+05 .0000E+00
+ 23 1 .1036E+06 .1382E+06
+ 23 2 -.5691E+05 -.4077E+05
+ 23 3 .1602E+06 .1182E+06
+ 23 4 -.8262E+05 .5297E+05
+ 23 5 -.8990E+05 .8131E+05
+ 23 6 -.2044E+05 -.2624E+05
+ 23 7 -.2888E+05 -.4465E+05
+ 23 8 -.5011E+04 -.1136E+06
+ 23 9 -.2430E+05 .5174E+04
+ 23 10 .1314E+06 .5691E+05
+ 23 11 -.2154E+05 .1584E+06
+ 23 12 -.2091E+05 -.1237E+06
+ 23 13 -.4667E+04 .4339E+05
+ 23 14 -.6391E+05 .9823E+05
+ 23 15 .3464E+05 .1615E+05
+ 23 16 -.1392E+06 .6525E+04
+ 23 17 .1121E+05 -.4056E+05
+ 23 18 .1108E+06 .2940E+05
+ 23 19 .3562E+05 .5467E+05
+ 23 20 .1971E+05 -.7568E+04
+ 23 21 .3687E+05 -.8124E+05
+ 23 22 .1415E+05 .2635E+05
+ 23 23 -.5389E+05 -.9320E+04
+ 24 0 -.9161E+04 .0000E+00
+ 24 1 -.8262E+05 .5121E+05
+ 24 2 -.3582E+05 .3049E+05
+ 24 3 .6922E+05 -.1696E+06
+ 24 4 -.1006E+06 -.4552E+05
+ 24 5 .1443E+05 -.1264E+06
+ 24 6 .2849E+05 .4178E+05
+ 24 7 -.5971E+05 .1121E+06
+ 24 8 .4725E+05 -.1059E+06
+ 24 9 -.1121E+06 .1067E+06
+ 24 10 -.1063E+06 .7014E+05
+ 24 11 -.6594E+05 .1549E+06
+ 24 12 -.7367E+05 -.9019E+05
+ 24 13 .1005E+05 .1717E+05
+ 24 14 -.2006E+05 .4505E+05
+ 24 15 .7695E+05 -.7933E+05
+ 24 16 .2109E+05 -.5156E+05
+ 24 17 .8513E+04 -.2812E+05
+ 24 18 .8203E+05 -.7426E+05
+ 24 19 -.2239E+05 -.2183E+05
+ 24 20 -.1245E+06 -.7678E+05
+ 24 21 -.3183E+05 -.2014E+06
+ 24 22 -.5169E+05 -.3542E+05
+ 24 23 -.5211E+05 -.5034E+05
+ 24 24 -.2770E+05 -.8238E+05
+ 25 0 -.5551E+05 .0000E+00
+ 25 1 .9642E+04 .2065E+05
+ 25 2 .4294E+05 -.5181E+05
+ 25 3 .2293E+05 -.2159E+05
+ 25 4 -.3592E+05 .1355E+06
+ 25 5 .2228E+04 .2169E+05
+ 25 6 .9938E+05 .2018E+05
+ 25 7 .3013E+05 -.1005E+06
+ 25 8 -.5315E+05 -.9027E+05
+ 25 9 .1430E+05 .2475E+05
+ 25 10 .1108E+06 .2687E+05
+ 25 11 .1013E+06 -.9452E+05
+ 25 12 .7254E+05 -.1811E+06
+ 25 13 .8728E+05 -.2227E+05
+ 25 14 .5527E+04 .9525E+05
+ 25 15 .2002E+05 -.1818E+05
+ 25 16 -.1375E+05 -.1513E+05
+ 25 17 -.1056E+05 .3772E+05
+ 25 18 .1582E+05 .6784E+05
+ 25 19 -.9208E+05 -.2437E+03
+ 25 20 -.7990E+05 -.3899E+05
+ 25 21 -.4127E+05 -.8972E+05
+ 25 22 -.7490E+04 -.8984E+03
+ 25 23 -.9760E+05 .3901E+05
+ 25 24 .1613E+04 -.1056E+06
+ 25 25 .3666E+05 -.3938E+05
+ 2247.50000000000000
+ 0 0 .7315E+06 .0000E+00
+ 1 0 .3156E+06 .0000E+00
+ 1 1 -.2367E+06 -.1184E+06
+ 2 0 .4240E+06 .0000E+00
+ 2 1 -.3172E+06 -.1245E+06
+ 2 2 -.2759E+06 -.2198E+06
+ 3 0 -.1230E+06 .0000E+00
+ 3 1 -.5795E+06 -.2164E+04
+ 3 2 -.2428E+06 .4545E+05
+ 3 3 -.7254E+05 .1301E+06
+ 4 0 .5434E+05 .0000E+00
+ 4 1 -.2631E+06 -.1495E+06
+ 4 2 .2242E+06 -.1618E+06
+ 4 3 .1809E+06 .1306E+06
+ 4 4 .1497E+06 .1660E+06
+ 5 0 -.9220E+05 .0000E+00
+ 5 1 -.2685E+06 -.6981E+05
+ 5 2 .1662E+06 .1871E+06
+ 5 3 .1382E+06 .1767E+06
+ 5 4 .1834E+06 .1848E+06
+ 5 5 .6397E+05 -.5970E+05
+ 6 0 -.1968E+06 .0000E+00
+ 6 1 -.4492E+04 -.2622E+06
+ 6 2 .1056E+06 .8308E+04
+ 6 3 .2579E+06 .2847E+05
+ 6 4 -.1436E+06 -.1429E+06
+ 6 5 -.4144E+05 -.2795E+06
+ 6 6 -.1582E+05 -.1317E+06
+ 7 0 -.3558E+06 .0000E+00
+ 7 1 .4653E+05 -.1172E+06
+ 7 2 -.3867E+05 .5081E+05
+ 7 3 -.1418E+05 .1640E+06
+ 7 4 -.9242E+05 -.8827E+04
+ 7 5 -.1972E+06 -.1057E+06
+ 7 6 .3989E+05 -.3840E+05
+ 7 7 -.4556E+05 .1622E+05
+ 8 0 -.1352E+06 .0000E+00
+ 8 1 .1001E+05 .1045E+05
+ 8 2 -.5829E+04 .1525E+06
+ 8 3 -.5907E+05 .5290E+05
+ 8 4 -.1086E+06 -.2301E+06
+ 8 5 -.1251E+06 -.3002E+06
+ 8 6 .2053E+05 .2166E+06
+ 8 7 -.8132E+05 .5512E+05
+ 8 8 -.5743E+05 .1014E+06
+ 9 0 -.2858E+05 .0000E+00
+ 9 1 .2395E+06 .5335E+05
+ 9 2 .1566E+06 .1560E+06
+ 9 3 .6248E+04 .1637E+06
+ 9 4 -.7327E+05 -.3946E+03
+ 9 5 .2885E+05 .1198E+06
+ 9 6 .1784E+06 .2267E+06
+ 9 7 .1016E+06 .1785E+06
+ 9 8 -.2242E+05 .4306E+04
+ 9 9 -.1034E+05 .1216E+05
+ 10 0 -.8075E+05 .0000E+00
+ 10 1 .9578E+05 .1741E+06
+ 10 2 -.4727E+05 .5163E+05
+ 10 3 .1273E+05 .7778E+05
+ 10 4 .1103E+06 -.2148E+06
+ 10 5 .8666E+05 -.5635E+05
+ 10 6 .3965E+04 .1884E+06
+ 10 7 -.1505E+06 -.5856E+05
+ 10 8 .5207E+05 -.1179E+06
+ 10 9 -.4393E+05 -.5031E+05
+ 10 10 .5345E+05 -.3174E+05
+ 11 0 .7406E+05 .0000E+00
+ 11 1 .2291E+06 -.1585E+05
+ 11 2 -.1532E+05 .7395E+05
+ 11 3 -.1679E+05 -.1826E+06
+ 11 4 -.1169E+06 -.8624E+05
+ 11 5 .1635E+06 .4224E+05
+ 11 6 .7424E+05 .1571E+06
+ 11 7 .1131E+06 -.6440E+05
+ 11 8 -.1787E+03 -.1364E+06
+ 11 9 .1219E+06 -.1864E+06
+ 11 10 -.1922E+05 .8318E+05
+ 11 11 .9802E+05 -.3849E+05
+ 12 0 -.3269E+05 .0000E+00
+ 12 1 .3674E+05 .3962E+05
+ 12 2 -.2121E+06 -.7008E+05
+ 12 3 -.3839E+05 -.2088E+05
+ 12 4 .1066E+06 -.1785E+06
+ 12 5 -.1208E+04 -.8566E+05
+ 12 6 -.1456E+06 -.1280E+05
+ 12 7 -.1490E+06 -.2578E+06
+ 12 8 -.8190E+03 -.1488E+05
+ 12 9 -.1402E+05 .1205E+05
+ 12 10 -.1068E+06 .1626E+06
+ 12 11 .7911E+05 .4863E+05
+ 12 12 .1598E+04 .3698E+04
+ 13 0 .1230E+06 .0000E+00
+ 13 1 .1309E+05 .5991E+05
+ 13 2 .8074E+05 -.1660E+06
+ 13 3 -.7101E+05 -.2053E+06
+ 13 4 .5357E+05 .9080E+05
+ 13 5 -.3212E+05 .9770E+05
+ 13 6 -.9623E+05 .2654E+06
+ 13 7 .1670E+05 -.1566E+06
+ 13 8 .1503E+05 .5749E+05
+ 13 9 .1322E+06 -.9451E+05
+ 13 10 -.5011E+05 .2293E+06
+ 13 11 -.6460E+05 -.4278E+05
+ 13 12 .1145E+06 -.5271E+05
+ 13 13 -.1304E+06 -.3054E+04
+ 14 0 .1530E+06 .0000E+00
+ 14 1 -.3761E+05 .1548E+06
+ 14 2 -.1212E+06 .6881E+05
+ 14 3 -.6669E+05 .2364E+06
+ 14 4 .5842E+05 .2390E+05
+ 14 5 .3031E+05 -.6349E+05
+ 14 6 -.1959E+06 -.1128E+05
+ 14 7 .6981E+04 -.6153E+05
+ 14 8 -.2804E+05 .1093E+06
+ 14 9 -.1631E+06 .1741E+06
+ 14 10 -.8257E+05 .4820E+05
+ 14 11 -.4508E+05 .1156E+05
+ 14 12 .8556E+05 -.9931E+05
+ 14 13 -.8926E+05 -.6068E+05
+ 14 14 -.6919E+05 .1086E+05
+ 15 0 -.8125E+05 .0000E+00
+ 15 1 -.5913E+05 -.8734E+05
+ 15 2 .2642E+05 -.2419E+06
+ 15 3 .1828E+06 -.1073E+06
+ 15 4 .2644E+05 .8883E+05
+ 15 5 -.2587E+05 .2504E+06
+ 15 6 -.5590E+05 .1671E+06
+ 15 7 .1054E+06 -.4424E+05
+ 15 8 .2093E+06 .5290E+05
+ 15 9 .2226E+05 .1427E+05
+ 15 10 .4584E+05 -.2327E+04
+ 15 11 -.6886E+05 -.2107E+06
+ 15 12 .1369E+06 -.1325E+06
+ 15 13 -.5642E+05 -.4020E+04
+ 15 14 -.1560E+06 .5687E+03
+ 15 15 .8976E+05 .3679E+05
+ 16 0 -.4431E+05 .0000E+00
+ 16 1 .2260E+04 -.3057E+05
+ 16 2 -.4361E+05 -.1430E+04
+ 16 3 -.1618E+06 .2220E+06
+ 16 4 .7688E+05 -.3052E+04
+ 16 5 .7147E+05 -.1892E+06
+ 16 6 -.1422E+06 -.1328E+06
+ 16 7 .1303E+06 -.1351E+06
+ 16 8 .2641E+05 .2307E+05
+ 16 9 -.6530E+05 .2004E+04
+ 16 10 .2753E+05 -.3735E+05
+ 16 11 .1384E+06 .3934E+05
+ 16 12 -.1589E+05 .7303E+05
+ 16 13 .6411E+05 .5832E+05
+ 16 14 -.1257E+06 .1188E+06
+ 16 15 .7608E+05 .7975E+05
+ 16 16 .9557E+05 .1322E+04
+ 17 0 .2777E+05 .0000E+00
+ 17 1 -.7141E+05 -.1014E+06
+ 17 2 -.3145E+04 -.2015E+05
+ 17 3 .4186E+05 -.9764E+05
+ 17 4 -.3759E+03 -.1103E+06
+ 17 5 -.1174E+06 .8621E+05
+ 17 6 .6832E+05 -.1459E+05
+ 17 7 .2005E+06 -.2834E+05
+ 17 8 .1820E+06 .1175E+06
+ 17 9 -.1354E+06 -.5546E+05
+ 17 10 .6397E+05 -.9090E+05
+ 17 11 -.7238E+02 -.1556E+06
+ 17 12 .9422E+05 .2179E+05
+ 17 13 -.6975E+05 .1186E+06
+ 17 14 -.9004E+05 .1481E+05
+ 17 15 .1199E+06 .6048E+05
+ 17 16 .1353E+06 .3218E+05
+ 17 17 -.1554E+05 -.5441E+05
+ 18 0 -.6833E+05 .0000E+00
+ 18 1 .8534E+05 .6375E+05
+ 18 2 .1812E+06 -.2433E+05
+ 18 3 -.1776E+06 .2824E+06
+ 18 4 .2174E+06 .1167E+06
+ 18 5 -.7535E+05 .1877E+04
+ 18 6 -.1510E+06 -.9950E+05
+ 18 7 -.8969E+05 -.1606E+06
+ 18 8 -.1217E+06 .7982E+05
+ 18 9 -.2194E+06 -.1821E+06
+ 18 10 .1504E+04 .5033E+05
+ 18 11 -.3781E+05 .9060E+05
+ 18 12 -.8538E+05 .8723E+05
+ 18 13 .4825E+05 .1265E+05
+ 18 14 -.2383E+05 .4691E+05
+ 18 15 .1225E+06 -.7783E+05
+ 18 16 .1331E+06 -.2778E+05
+ 18 17 -.4681E+04 -.1024E+06
+ 18 18 -.7152E+05 -.3747E+03
+ 19 0 .7790E+05 .0000E+00
+ 19 1 .3266E+05 .7944E+05
+ 19 2 -.2249E+06 .1402E+06
+ 19 3 -.4395E+05 .4593E+04
+ 19 4 .5142E+05 -.9587E+05
+ 19 5 -.1038E+06 -.3158E+05
+ 19 6 .1140E+06 -.2098E+05
+ 19 7 .2279E+06 .1944E+06
+ 19 8 .7382E+04 .1642E+06
+ 19 9 -.1441E+06 -.2316E+05
+ 19 10 .9746E+05 -.9103E+05
+ 19 11 -.6312E+05 .1101E+06
+ 19 12 -.1678E+05 -.7794E+05
+ 19 13 -.1496E+06 .2381E+05
+ 19 14 -.1161E+06 -.2101E+06
+ 19 15 .1351E+06 -.7925E+05
+ 19 16 -.5718E+05 -.3623E+05
+ 19 17 -.9949E+05 -.1417E+06
+ 19 18 -.9629E+05 -.3829E+05
+ 19 19 -.4430E+05 .4963E+05
+ 20 0 -.2922E+05 .0000E+00
+ 20 1 .1231E+05 -.4289E+05
+ 20 2 .3038E+05 .4129E+05
+ 20 3 .6876E+05 .9088E+04
+ 20 4 .1230E+06 .3086E+05
+ 20 5 .1390E+05 .6075E+05
+ 20 6 -.1649E+05 -.1669E+06
+ 20 7 -.6006E+05 .1274E+06
+ 20 8 -.7929E+05 -.3397E+04
+ 20 9 -.2149E+06 -.1086E+06
+ 20 10 .1132E+06 .1021E+06
+ 20 11 -.8990E+05 .9812E+05
+ 20 12 .1127E+06 .5244E+04
+ 20 13 .8684E+05 -.3638E+05
+ 20 14 .1801E+05 .1012E+06
+ 20 15 .7433E+05 -.1098E+06
+ 20 16 -.3832E+04 .5193E+05
+ 20 17 -.1955E+06 -.2937E+05
+ 20 18 -.8855E+05 -.1482E+05
+ 20 19 -.6926E+05 .8887E+05
+ 20 20 .3199E+05 -.1196E+05
+ 21 0 .3378E+05 .0000E+00
+ 21 1 .1168E+06 -.2128E+05
+ 21 2 -.2066E+06 -.2780E+05
+ 21 3 .8282E+05 .4262E+05
+ 21 4 .1675E+06 -.4063E+05
+ 21 5 -.1797E+06 -.1120E+06
+ 21 6 .1497E+06 -.8253E+05
+ 21 7 .4520E+05 .1321E+06
+ 21 8 .6992E+05 -.3276E+05
+ 21 9 .1660E+06 -.1653E+06
+ 21 10 .2950E+06 .1064E+06
+ 21 11 .8223E+05 .9917E+05
+ 21 12 .4900E+05 -.3299E+05
+ 21 13 -.1584E+05 -.4946E+05
+ 21 14 -.5540E+05 -.2628E+05
+ 21 15 .1366E+06 .9610E+05
+ 21 16 -.1981E+06 .1142E+06
+ 21 17 -.1110E+06 .3507E+05
+ 21 18 .9360E+04 .8154E+05
+ 21 19 .2218E+05 .1620E+06
+ 21 20 .3457E+05 .3075E+05
+ 21 21 .6008E+05 -.4175E+05
+ 22 0 .2280E+06 .0000E+00
+ 22 1 -.2507E+06 .6436E+05
+ 22 2 .1073E+06 .1294E+06
+ 22 3 .1295E+06 -.1998E+06
+ 22 4 .2493E+05 -.9847E+05
+ 22 5 .6303E+05 -.1298E+06
+ 22 6 .2070E+05 -.2023E+05
+ 22 7 -.3092E+05 .2732E+06
+ 22 8 -.1073E+06 -.1065E+06
+ 22 9 -.2219E+06 -.9206E+05
+ 22 10 -.2330E+05 .1003E+06
+ 22 11 -.1577E+06 .8703E+04
+ 22 12 .1357E+06 -.1024E+06
+ 22 13 -.5273E+05 .1690E+05
+ 22 14 .3172E+05 .1749E+05
+ 22 15 .7398E+05 .1952E+05
+ 22 16 .8357E+05 -.1559E+05
+ 22 17 -.4336E+05 .1157E+06
+ 22 18 .1569E+06 -.5081E+05
+ 22 19 .1789E+06 .1398E+06
+ 22 20 .7173E+05 .1701E+05
+ 22 21 .1035E+06 -.5138E+05
+ 22 22 -.6824E+04 .2060E+05
+ 23 0 -.3621E+05 .0000E+00
+ 23 1 .1039E+06 .6840E+05
+ 23 2 -.1615E+05 -.3948E+05
+ 23 3 .1973E+06 .1622E+06
+ 23 4 -.4318E+05 .1286E+06
+ 23 5 -.2091E+06 .3366E+04
+ 23 6 -.1495E+05 -.3956E+05
+ 23 7 -.1945E+06 .7336E+04
+ 23 8 .3050E+05 -.2465E+06
+ 23 9 .1237E+06 -.6950E+05
+ 23 10 .1795E+06 .1066E+06
+ 23 11 -.2273E+05 -.6097E+05
+ 23 12 -.1512E+05 -.2136E+06
+ 23 13 -.6578E+05 -.2723E+05
+ 23 14 -.7251E+05 -.1332E+05
+ 23 15 .2049E+05 .1036E+06
+ 23 16 -.1854E+06 -.5073E+05
+ 23 17 .3776E+05 -.7542E+05
+ 23 18 .1456E+06 .4871E+05
+ 23 19 .9457E+05 -.2321E+05
+ 23 20 .3696E+05 -.5434E+05
+ 23 21 .5224E+05 -.1294E+06
+ 23 22 .1137E+05 -.1606E+04
+ 23 23 -.4198E+05 .3833E+05
+ 24 0 .1064E+06 .0000E+00
+ 24 1 -.3183E+06 .2168E+05
+ 24 2 .8223E+05 .6331E+05
+ 24 3 .5805E+05 -.2563E+06
+ 24 4 -.1374E+06 -.1134E+06
+ 24 5 .6306E+05 -.2134E+06
+ 24 6 -.1104E+06 .1776E+06
+ 24 7 .3077E+05 .2437E+06
+ 24 8 -.1816E+05 -.1393E+06
+ 24 9 -.5139E+05 .9002E+05
+ 24 10 -.1543E+06 .8329E+05
+ 24 11 -.1509E+06 .1583E+06
+ 24 12 -.7328E+05 -.1110E+06
+ 24 13 -.1545E+06 .1452E+06
+ 24 14 -.1520E+05 -.8700E+05
+ 24 15 .4538E+05 -.4463E+04
+ 24 16 .4354E+05 -.8497E+05
+ 24 17 -.4170E+05 -.4431E+05
+ 24 18 .6655E+05 -.1354E+06
+ 24 19 .6884E+05 -.4564E+05
+ 24 20 -.1850E+06 -.1200E+06
+ 24 21 -.4896E+05 -.1638E+06
+ 24 22 -.6478E+05 -.2210E+05
+ 24 23 -.7864E+05 .5892E+04
+ 24 24 .1150E+05 -.6846E+04
+ 25 0 -.9713E+05 .0000E+00
+ 25 1 .1043E+05 .2306E+05
+ 25 2 .1747E+06 -.4250E+05
+ 25 3 .6554E+05 -.5222E+05
+ 25 4 -.1439E+06 .1486E+06
+ 25 5 .1449E+05 .2114E+05
+ 25 6 .9273E+04 .5078E+05
+ 25 7 -.5017E+05 .3784E+04
+ 25 8 .2790E+05 -.2287E+06
+ 25 9 .3630E+05 .2379E+06
+ 25 10 .1603E+06 .1337E+05
+ 25 11 .4282E+05 -.1361E+06
+ 25 12 .1867E+06 -.1764E+06
+ 25 13 .2883E+05 .4159E+05
+ 25 14 .6278E+05 .1546E+06
+ 25 15 -.1365E+05 -.4750E+04
+ 25 16 -.2721E+05 .5416E+05
+ 25 17 .1089E+05 -.5797E+05
+ 25 18 -.1928E+05 .1653E+06
+ 25 19 -.1305E+06 -.3313E+04
+ 25 20 -.1608E+06 -.8440E+05
+ 25 21 -.1144E+06 .2604E+05
+ 25 22 -.6647E+05 .4162E+05
+ 25 23 -.1093E+06 .5691E+05
+ 25 24 -.1159E+05 -.1175E+05
+ 25 25 .1492E+05 -.3570E+05
+ 2392.50000000000000
+ 0 0 .6881E+06 .0000E+00
+ 1 0 .2453E+06 .0000E+00
+ 1 1 -.2475E+06 -.1800E+06
+ 2 0 .5129E+06 .0000E+00
+ 2 1 -.2584E+06 -.2029E+06
+ 2 2 -.2056E+06 -.1558E+06
+ 3 0 -.1827E+06 .0000E+00
+ 3 1 -.5132E+06 -.3298E+05
+ 3 2 -.3043E+06 .9282E+05
+ 3 3 .3610E+04 .1827E+06
+ 4 0 .6497E+04 .0000E+00
+ 4 1 -.1561E+06 -.5991E+05
+ 4 2 .7007E+05 -.2087E+06
+ 4 3 .2136E+06 .2192E+06
+ 4 4 .1287E+06 .5041E+05
+ 5 0 -.1277E+06 .0000E+00
+ 5 1 -.2782E+06 .4636E+05
+ 5 2 .5665E+05 .9569E+05
+ 5 3 .8499E+05 .2602E+06
+ 5 4 .2493E+06 .9171E+05
+ 5 5 -.3779E+05 -.1012E+06
+ 6 0 -.4917E+05 .0000E+00
+ 6 1 .1171E+05 -.1677E+06
+ 6 2 .1798E+06 -.9909E+05
+ 6 3 .2337E+06 .9591E+05
+ 6 4 -.2264E+05 -.1938E+06
+ 6 5 -.1117E+06 -.3104E+06
+ 6 6 -.3737E+05 -.3336E+05
+ 7 0 -.2571E+06 .0000E+00
+ 7 1 -.1696E+05 -.1509E+06
+ 7 2 .7159E+04 -.8035E+05
+ 7 3 .1155E+05 .2259E+06
+ 7 4 -.1181E+05 -.2412E+05
+ 7 5 -.2102E+06 -.8067E+05
+ 7 6 .3149E+04 .2918E+05
+ 7 7 .2262E+04 .6824E+05
+ 8 0 -.1434E+06 .0000E+00
+ 8 1 -.7470E+04 -.6779E+05
+ 8 2 -.2139E+05 .9234E+05
+ 8 3 -.1807E+05 .1281E+06
+ 8 4 -.1461E+06 -.2564E+06
+ 8 5 -.1145E+06 -.2975E+06
+ 8 6 -.4105E+05 .2396E+06
+ 8 7 -.2708E+05 .5682E+05
+ 8 8 -.2411E+05 .3346E+05
+ 9 0 -.1121E+06 .0000E+00
+ 9 1 .1587E+06 -.1013E+06
+ 9 2 .7425E+05 .1211E+06
+ 9 3 -.1441E+05 .2103E+06
+ 9 4 -.1422E+06 -.4035E+04
+ 9 5 .3537E+05 .1100E+06
+ 9 6 .1280E+06 .2283E+06
+ 9 7 .1859E+06 .1374E+06
+ 9 8 -.1980E+05 -.3768E+05
+ 9 9 .1993E+05 -.2675E+05
+ 10 0 -.1427E+06 .0000E+00
+ 10 1 .7417E+05 .1473E+06
+ 10 2 .2037E+05 .1281E+06
+ 10 3 -.6050E+05 .1988E+06
+ 10 4 .1211E+06 -.2373E+06
+ 10 5 .9486E+05 -.7844E+05
+ 10 6 -.3105E+05 .1752E+06
+ 10 7 -.9168E+05 -.9190E+05
+ 10 8 .4648E+05 -.1234E+06
+ 10 9 -.7026E+05 -.3446E+05
+ 10 10 .6164E+05 .1288E+05
+ 11 0 .1153E+06 .0000E+00
+ 11 1 .2244E+06 .1094E+04
+ 11 2 .6151E+05 .1406E+06
+ 11 3 -.7915E+05 -.1104E+06
+ 11 4 -.5179E+05 -.1346E+06
+ 11 5 .2067E+06 .7642E+05
+ 11 6 .5637E+05 .1145E+06
+ 11 7 .1497E+06 -.1592E+05
+ 11 8 -.4770E+04 -.1402E+06
+ 11 9 .1215E+05 -.1452E+06
+ 11 10 .4419E+05 .1140E+06
+ 11 11 .1476E+05 -.3055E+05
+ 12 0 -.1010E+06 .0000E+00
+ 12 1 .1283E+06 .6268E+05
+ 12 2 -.1929E+06 .4289E+05
+ 12 3 -.1814E+05 .5623E+05
+ 12 4 .1503E+06 -.2627E+06
+ 12 5 .7926E+05 -.4060E+05
+ 12 6 -.2127E+06 -.9642E+05
+ 12 7 -.1382E+06 -.1614E+06
+ 12 8 -.2345E+05 -.3344E+05
+ 12 9 -.1243E+06 .5112E+05
+ 12 10 -.5877E+05 .1496E+06
+ 12 11 .6647E+05 .2058E+05
+ 12 12 -.6576E+05 -.4536E+05
+ 13 0 .7126E+05 .0000E+00
+ 13 1 .9650E+05 -.2001E+05
+ 13 2 -.7559E+05 -.1448E+06
+ 13 3 -.3527E+05 -.3606E+06
+ 13 4 .5344E+05 .1013E+05
+ 13 5 .3846E+05 .1034E+06
+ 13 6 -.1989E+06 .2037E+06
+ 13 7 .8063E+05 -.5811E+05
+ 13 8 -.3338E+05 .3012E+05
+ 13 9 .1723E+06 -.1054E+06
+ 13 10 -.4358E+05 .2144E+06
+ 13 11 .4148E+05 -.6667E+05
+ 13 12 -.4454E+04 -.1107E+06
+ 13 13 -.5949E+05 .2501E+05
+ 14 0 .1102E+06 .0000E+00
+ 14 1 .6585E+04 .1322E+06
+ 14 2 -.2154E+06 .1648E+06
+ 14 3 -.7506E+05 .1676E+06
+ 14 4 .6336E+05 .3116E+05
+ 14 5 .1478E+05 -.1076E+06
+ 14 6 -.3167E+06 -.2943E+05
+ 14 7 .8138E+05 -.9616E+04
+ 14 8 -.9267E+05 .9393E+05
+ 14 9 -.4244E+05 .1271E+06
+ 14 10 -.9640E+05 .6504E+05
+ 14 11 .8259E+05 .1096E+05
+ 14 12 .1358E+05 -.9437E+05
+ 14 13 -.8393E+05 -.5142E+04
+ 14 14 .3947E+05 .7603E+05
+ 15 0 .7448E+05 .0000E+00
+ 15 1 -.6931E+05 .3323E+05
+ 15 2 .3213E+05 -.2142E+06
+ 15 3 .1630E+06 -.2184E+06
+ 15 4 .1161E+06 .1912E+06
+ 15 5 -.1150E+06 .2272E+06
+ 15 6 -.1323E+06 .2562E+06
+ 15 7 .1657E+06 -.2124E+05
+ 15 8 .1662E+06 .4723E+05
+ 15 9 .1206E+06 -.6469E+05
+ 15 10 .2609E+05 .5010E+05
+ 15 11 -.6814E+05 -.2456E+06
+ 15 12 .1347E+06 -.9414E+05
+ 15 13 -.1307E+06 .1233E+05
+ 15 14 -.5834E+04 .9261E+05
+ 15 15 .7907E+05 -.2597E+04
+ 16 0 .4507E+05 .0000E+00
+ 16 1 -.4663E+05 .1231E+06
+ 16 2 .5607E+04 .4802E+05
+ 16 3 -.1200E+06 .2820E+06
+ 16 4 .1406E+06 .1458E+06
+ 16 5 .3300E+05 -.2279E+06
+ 16 6 -.1839E+06 -.3742E+05
+ 16 7 .2080E+06 -.1172E+06
+ 16 8 -.1785E+04 -.8581E+04
+ 16 9 -.5105E+05 -.2771E+05
+ 16 10 -.1870E+05 .1038E+05
+ 16 11 .3800E+05 .1595E+05
+ 16 12 -.3118E+05 .9779E+05
+ 16 13 -.1047E+05 .2704E+05
+ 16 14 -.4374E+05 .1357E+06
+ 16 15 .1151E+06 .2270E+05
+ 16 16 -.2106E+04 -.7919E+05
+ 17 0 .4934E+05 .0000E+00
+ 17 1 -.1005E+06 -.3941E+05
+ 17 2 -.7791E+05 -.1126E+06
+ 17 3 .1663E+06 -.2118E+06
+ 17 4 .1187E+04 -.9096E+05
+ 17 5 -.1078E+06 -.6146E+04
+ 17 6 .9124E+05 .2922E+05
+ 17 7 .3188E+06 -.3453E+05
+ 17 8 .2104E+06 .5192E+05
+ 17 9 -.1370E+06 -.3804E+05
+ 17 10 .2460E+05 -.5570E+05
+ 17 11 -.7504E+05 -.1897E+06
+ 17 12 .8707E+05 .3923E+05
+ 17 13 -.7417E+05 .9271E+05
+ 17 14 -.8753E+05 -.2606E+05
+ 17 15 .1461E+06 .3594E+05
+ 17 16 .1735E+05 -.9788E+05
+ 17 17 -.7833E+05 -.2574E+05
+ 18 0 -.1613E+06 .0000E+00
+ 18 1 -.6090E+04 -.1219E+05
+ 18 2 .1386E+06 -.1477E+06
+ 18 3 -.9039E+05 .2609E+06
+ 18 4 .1535E+06 .1392E+06
+ 18 5 -.8695E+05 -.1262E+06
+ 18 6 -.1485E+06 -.6647E+05
+ 18 7 -.2339E+05 -.2529E+06
+ 18 8 -.1323E+06 .3969E+05
+ 18 9 -.2175E+06 -.1994E+06
+ 18 10 -.3589E+05 .1162E+06
+ 18 11 -.7066E+03 .3972E+05
+ 18 12 -.6379E+05 .1556E+06
+ 18 13 .1468E+06 -.5764E+04
+ 18 14 -.1640E+05 .5054E+05
+ 18 15 .1092E+06 -.4746E+05
+ 18 16 .7088E+05 -.8672E+05
+ 18 17 -.1123E+06 -.5595E+05
+ 18 18 -.2314E+05 .6822E+05
+ 19 0 .1115E+06 .0000E+00
+ 19 1 -.8551E+04 .7497E+05
+ 19 2 -.1300E+06 .5151E+05
+ 19 3 -.2436E+05 -.3795E+05
+ 19 4 .2197E+05 -.8670E+05
+ 19 5 -.1605E+06 -.1665E+06
+ 19 6 .1189E+06 .9342E+05
+ 19 7 .2471E+06 .8451E+05
+ 19 8 -.6182E+05 .2264E+06
+ 19 9 -.1635E+06 -.6774E+05
+ 19 10 .4768E+05 -.1658E+05
+ 19 11 .8024E+04 .3088E+05
+ 19 12 .3223E+05 -.1602E+05
+ 19 13 -.7839E+05 .1317E+05
+ 19 14 -.9751E+05 -.2222E+06
+ 19 15 .1013E+06 -.1258E+05
+ 19 16 -.4914E+05 -.4485E+05
+ 19 17 -.1294E+06 -.6765E+05
+ 19 18 -.4277E+05 .7747E+05
+ 19 19 .5231E+05 .5047E+05
+ 20 0 .1041E+05 .0000E+00
+ 20 1 -.6646E+05 -.4740E+05
+ 20 2 .2033E+06 .2301E+04
+ 20 3 .6460E+05 .1484E+06
+ 20 4 .5520E+05 .1253E+06
+ 20 5 -.6834E+04 .3951E+05
+ 20 6 -.6682E+05 -.6659E+04
+ 20 7 -.7764E+05 .4002E+05
+ 20 8 -.1845E+06 .1040E+06
+ 20 9 -.2666E+06 -.1429E+06
+ 20 10 .7268E+05 .1647E+06
+ 20 11 -.7356E+05 .5986E+05
+ 20 12 .1502E+06 .1516E+05
+ 20 13 .6122E+05 -.2565E+05
+ 20 14 .9116E+04 .4682E+05
+ 20 15 .1354E+05 -.5914E+05
+ 20 16 .3302E+05 .9775E+04
+ 20 17 -.1410E+06 .2315E+05
+ 20 18 -.2833E+05 .4290E+05
+ 20 19 .6605E+05 .9066E+05
+ 20 20 .4568E+05 -.5315E+05
+ 21 0 -.3363E+05 .0000E+00
+ 21 1 .1658E+06 .5888E+04
+ 21 2 -.1367E+06 -.4800E+05
+ 21 3 .5464E+05 .1484E+06
+ 21 4 .9225E+05 -.8238E+05
+ 21 5 -.1396E+06 -.1487E+06
+ 21 6 .1394E+06 .6778E+04
+ 21 7 .7094E+05 .7136E+05
+ 21 8 .5406E+05 .3902E+05
+ 21 9 .1713E+06 -.1806E+06
+ 21 10 .3416E+06 .1274E+06
+ 21 11 .9532E+05 .1076E+06
+ 21 12 .6775E+05 -.6141E+05
+ 21 13 -.1109E+06 -.2588E+05
+ 21 14 -.1121E+06 -.1019E+06
+ 21 15 .9727E+05 .1192E+06
+ 21 16 -.2160E+06 .7969E+05
+ 21 17 -.4650E+05 .1980E+05
+ 21 18 .1699E+05 .8349E+05
+ 21 19 .7253E+05 .9440E+05
+ 21 20 .5730E+05 -.5178E+05
+ 21 21 -.1969E+05 -.5768E+05
+ 22 0 .1305E+06 .0000E+00
+ 22 1 -.2668E+06 -.4764E+05
+ 22 2 .6119E+05 .9378E+05
+ 22 3 .5722E+05 -.1424E+06
+ 22 4 -.7968E+05 -.1896E+06
+ 22 5 .1282E+06 -.1278E+06
+ 22 6 .9566E+04 .1586E+05
+ 22 7 .1825E+05 .2165E+06
+ 22 8 -.6916E+05 -.5186E+05
+ 22 9 -.2093E+06 -.1388E+06
+ 22 10 .5224E+05 .1408E+06
+ 22 11 -.1286E+06 -.1891E+05
+ 22 12 .1535E+06 -.9487E+05
+ 22 13 -.1053E+06 .1188E+05
+ 22 14 .4278E+04 .1711E+05
+ 22 15 .1125E+06 .2249E+04
+ 22 16 .6383E+05 .2082E+05
+ 22 17 .7491E+04 .8203E+05
+ 22 18 .9451E+05 -.5198E+05
+ 22 19 .1314E+06 .6336E+05
+ 22 20 .2835E+05 -.6123E+05
+ 22 21 -.8526E+04 -.8185E+05
+ 22 22 -.5384E+05 .2859E+05
+ 23 0 -.1217E+06 .0000E+00
+ 23 1 .2024E+06 -.2514E+05
+ 23 2 .1558E+05 -.2825E+04
+ 23 3 .1087E+06 .1883E+06
+ 23 4 -.1310E+05 -.6992E+04
+ 23 5 -.1593E+06 .8537E+04
+ 23 6 .1508E+05 -.1766E+05
+ 23 7 -.1720E+06 -.7603E+05
+ 23 8 .6828E+05 -.1704E+06
+ 23 9 .1497E+06 -.1591E+06
+ 23 10 .2430E+06 .1955E+06
+ 23 11 .8285E+04 -.1493E+06
+ 23 12 -.2756E+05 -.1682E+06
+ 23 13 -.8287E+05 -.6627E+05
+ 23 14 -.3926E+05 .2124E+05
+ 23 15 .9895E+05 .1008E+06
+ 23 16 -.2011E+06 .1200E+05
+ 23 17 .8389E+05 -.9072E+05
+ 23 18 .8651E+05 .5935E+05
+ 23 19 .2895E+05 -.2710E+05
+ 23 20 .8267E+04 -.8750E+05
+ 23 21 -.3663E+05 -.7375E+05
+ 23 22 -.4599E+05 .2555E+05
+ 23 23 -.1564E+05 .5004E+05
+ 24 0 .1892E+06 .0000E+00
+ 24 1 -.2853E+06 -.2266E+05
+ 24 2 .1148E+06 .1169E+06
+ 24 3 -.1952E+05 -.2402E+06
+ 24 4 -.7743E+05 -.1699E+06
+ 24 5 .9928E+05 -.9969E+05
+ 24 6 -.1599E+06 .2305E+06
+ 24 7 .6315E+05 .2082E+06
+ 24 8 -.6377E+05 -.4288E+05
+ 24 9 -.8230E+05 .5700E+04
+ 24 10 -.1591E+06 .1547E+06
+ 24 11 -.2049E+06 .9765E+05
+ 24 12 -.9946E+05 -.8647E+05
+ 24 13 -.2148E+06 .1522E+06
+ 24 14 .7280E+05 -.1068E+06
+ 24 15 .6233E+05 .3550E+05
+ 24 16 .5848E+05 -.8660E+05
+ 24 17 -.3818E+05 -.3483E+05
+ 24 18 .5916E+05 -.1655E+06
+ 24 19 .4742E+05 -.8142E+04
+ 24 20 -.1153E+06 -.1151E+06
+ 24 21 -.7458E+05 -.6445E+05
+ 24 22 -.2108E+05 .4110E+05
+ 24 23 -.4369E+05 .4568E+05
+ 24 24 .5319E+05 -.4646E+04
+ 25 0 -.1072E+06 .0000E+00
+ 25 1 .1067E+06 .1038E+06
+ 25 2 .1773E+06 .1005E+06
+ 25 3 .3651E+05 .9117E+04
+ 25 4 -.8565E+05 .1047E+06
+ 25 5 .6078E+05 .1574E+06
+ 25 6 -.3866E+05 .1206E+05
+ 25 7 -.2594E+05 -.1847E+05
+ 25 8 -.4762E+05 -.2203E+06
+ 25 9 .1135E+05 .1968E+06
+ 25 10 .1828E+06 -.1128E+05
+ 25 11 -.4225E+05 -.1644E+06
+ 25 12 .2021E+06 -.2258E+06
+ 25 13 -.3842E+05 .8282E+05
+ 25 14 .1543E+06 .9513E+05
+ 25 15 -.7682E+05 .6200E+05
+ 25 16 -.5221E+05 .5541E+04
+ 25 17 -.8724E+04 -.6613E+05
+ 25 18 -.2193E+05 .1598E+06
+ 25 19 -.1286E+06 .7172E+04
+ 25 20 -.5677E+05 -.6636E+05
+ 25 21 -.1093E+06 .8649E+05
+ 25 22 .1380E+05 .6251E+05
+ 25 23 -.3206E+05 .5513E+05
+ 25 24 .4091E+05 -.1319E+05
+ 25 25 .3514E+05 -.2683E+05
+ 2537.50000000000000
+ 0 0 .7673E+06 .0000E+00
+ 1 0 .3053E+06 .0000E+00
+ 1 1 -.2538E+06 -.2390E+06
+ 2 0 .6154E+06 .0000E+00
+ 2 1 -.2686E+06 -.3493E+06
+ 2 2 -.2348E+06 -.1011E+06
+ 3 0 -.1807E+06 .0000E+00
+ 3 1 -.5732E+06 -.2320E+06
+ 3 2 -.3652E+06 .1793E+06
+ 3 3 -.3240E+05 .1611E+06
+ 4 0 .3847E+05 .0000E+00
+ 4 1 -.2127E+06 -.1659E+06
+ 4 2 .2963E+05 -.1224E+06
+ 4 3 .1523E+06 .2641E+06
+ 4 4 .1747E+06 -.4110E+04
+ 5 0 -.1573E+06 .0000E+00
+ 5 1 -.4079E+06 .9516E+05
+ 5 2 .3941E+05 .1824E+06
+ 5 3 .2204E+05 .3552E+06
+ 5 4 .3484E+06 .2522E+05
+ 5 5 -.2972E+05 -.5926E+05
+ 6 0 -.7717E+05 .0000E+00
+ 6 1 -.2571E+05 -.6772E+05
+ 6 2 .2120E+06 -.2035E+05
+ 6 3 .2579E+06 .1909E+06
+ 6 4 .7905E+05 -.2567E+06
+ 6 5 -.5996E+05 -.2774E+06
+ 6 6 -.6648E+05 .1014E+04
+ 7 0 -.3563E+06 .0000E+00
+ 7 1 -.7681E+05 -.1013E+06
+ 7 2 -.1939E+04 -.4331E+05
+ 7 3 .7923E+05 .2157E+06
+ 7 4 .4755E+05 -.1053E+06
+ 7 5 -.1686E+06 -.7072E+05
+ 7 6 -.6732E+05 .3006E+05
+ 7 7 .1382E+04 .5395E+05
+ 8 0 -.2408E+06 .0000E+00
+ 8 1 .3319E+05 -.8285E+05
+ 8 2 .3215E+05 .1133E+06
+ 8 3 .6204E+05 .4679E+05
+ 8 4 -.1358E+06 -.3376E+06
+ 8 5 -.1027E+06 -.3147E+06
+ 8 6 -.1438E+06 .2149E+06
+ 8 7 -.5609E+05 .2598E+05
+ 8 8 -.1020E+05 .7968E+04
+ 9 0 -.1289E+06 .0000E+00
+ 9 1 .1981E+06 -.1332E+06
+ 9 2 .1354E+06 .1311E+06
+ 9 3 .9233E+04 .1152E+06
+ 9 4 -.1711E+06 -.3500E+05
+ 9 5 -.5430E+04 .1163E+06
+ 9 6 .1141E+04 .2157E+06
+ 9 7 .1781E+06 .1234E+06
+ 9 8 -.9638E+03 -.2120E+05
+ 9 9 .1323E+05 -.3873E+05
+ 10 0 -.1205E+06 .0000E+00
+ 10 1 .1541E+06 .1759E+06
+ 10 2 .1479E+06 .1691E+06
+ 10 3 -.5322E+05 .1354E+06
+ 10 4 .9576E+05 -.2007E+06
+ 10 5 .8420E+05 -.6762E+05
+ 10 6 -.1383E+06 .2169E+06
+ 10 7 -.2964E+05 -.1026E+06
+ 10 8 .9997E+05 -.6241E+05
+ 10 9 -.7308E+05 -.2539E+05
+ 10 10 .7908E+05 .2875E+05
+ 11 0 .1904E+06 .0000E+00
+ 11 1 .2905E+06 .2315E+05
+ 11 2 .8753E+05 .1622E+06
+ 11 3 -.1241E+06 -.1998E+06
+ 11 4 -.1170E+06 -.4792E+05
+ 11 5 .2264E+06 .7777E+05
+ 11 6 -.2238E+05 .1738E+06
+ 11 7 .2746E+06 -.7816E+02
+ 11 8 .6996E+05 -.7723E+05
+ 11 9 -.1461E+05 -.1269E+06
+ 11 10 .1069E+06 .1005E+06
+ 11 11 .6382E+04 .6553E+03
+ 12 0 -.8967E+05 .0000E+00
+ 12 1 .1689E+06 .6812E+05
+ 12 2 -.2130E+06 .6879E+05
+ 12 3 -.5686E+05 -.3480E+04
+ 12 4 .9626E+05 -.1913E+06
+ 12 5 .8187E+05 -.7251E+05
+ 12 6 -.2419E+06 -.7884E+05
+ 12 7 -.3440E+05 -.1689E+06
+ 12 8 .6194E+05 -.3165E+05
+ 12 9 -.2327E+06 .5350E+05
+ 12 10 .1111E+05 .8252E+05
+ 12 11 .4302E+05 .3176E+05
+ 12 12 -.9169E+05 -.5294E+05
+ 13 0 .9826E+05 .0000E+00
+ 13 1 .9082E+05 -.4491E+05
+ 13 2 -.1602E+06 -.2113E+06
+ 13 3 -.1255E+06 -.4925E+06
+ 13 4 .2267E+05 .4914E+05
+ 13 5 .3029E+05 .7862E+05
+ 13 6 -.1761E+06 .2069E+06
+ 13 7 .1281E+06 -.5353E+05
+ 13 8 -.1204E+05 .5318E+04
+ 13 9 .3357E+05 -.1286E+06
+ 13 10 -.7621E+04 .1499E+06
+ 13 11 .2170E+05 -.7656E+05
+ 13 12 -.8498E+05 -.1104E+06
+ 13 13 -.5079E+05 -.1024E+05
+ 14 0 .1056E+06 .0000E+00
+ 14 1 -.1552E+05 .1224E+06
+ 14 2 -.2527E+06 .1191E+06
+ 14 3 -.1140E+06 .1862E+06
+ 14 4 .8376E+05 .7664E+05
+ 14 5 .1996E+04 -.1152E+06
+ 14 6 -.2857E+06 -.5935E+05
+ 14 7 .1017E+06 .1637E+04
+ 14 8 -.1264E+06 .5235E+05
+ 14 9 -.1606E+06 .1029E+06
+ 14 10 -.9273E+05 .1293E+05
+ 14 11 .1015E+06 .3250E+05
+ 14 12 -.8306E+05 -.7613E+05
+ 14 13 -.7676E+05 -.1361E+05
+ 14 14 .7828E+05 .7176E+05
+ 15 0 .8405E+05 .0000E+00
+ 15 1 -.8944E+05 .8231E+05
+ 15 2 -.3064E+05 -.3038E+06
+ 15 3 .1307E+06 -.2095E+06
+ 15 4 .1451E+06 .2150E+06
+ 15 5 -.1014E+06 .2668E+06
+ 15 6 -.7852E+05 .2612E+06
+ 15 7 .1875E+06 .5795E+04
+ 15 8 .1235E+06 .2966E+05
+ 15 9 .8511E+05 -.6201E+05
+ 15 10 .6934E+05 .5351E+05
+ 15 11 -.2094E+05 -.1869E+06
+ 15 12 .1050E+06 -.7581E+05
+ 15 13 -.1304E+06 .3793E+05
+ 15 14 .1038E+06 .1014E+06
+ 15 15 .6639E+05 .2316E+05
+ 16 0 .8249E+04 .0000E+00
+ 16 1 -.7514E+05 .1734E+06
+ 16 2 -.1833E+05 .1593E+05
+ 16 3 -.9401E+05 .4354E+06
+ 16 4 .1960E+06 .2541E+06
+ 16 5 .6213E+05 -.1954E+06
+ 16 6 -.1710E+06 -.2638E+05
+ 16 7 .2017E+06 -.8450E+05
+ 16 8 -.3870E+05 -.3629E+05
+ 16 9 -.6594E+05 -.1040E+05
+ 16 10 .6099E+05 .6840E+04
+ 16 11 .7133E+05 .9819E+05
+ 16 12 -.3460E+05 .9709E+05
+ 16 13 -.1538E+05 .3501E+05
+ 16 14 .8963E+05 .1611E+06
+ 16 15 .1112E+06 .1465E+05
+ 16 16 -.4267E+05 -.6095E+05
+ 17 0 .5475E+05 .0000E+00
+ 17 1 -.8824E+05 -.5133E+05
+ 17 2 -.1274E+06 -.1196E+06
+ 17 3 .1968E+06 -.1665E+06
+ 17 4 .2874E+05 -.7642E+05
+ 17 5 -.1064E+06 -.3157E+05
+ 17 6 .1306E+06 .1824E+05
+ 17 7 .3093E+06 -.5854E+04
+ 17 8 .2408E+06 -.5959E+04
+ 17 9 -.1711E+06 .9759E+04
+ 17 10 .1344E+06 -.5216E+05
+ 17 11 -.8719E+05 -.1447E+06
+ 17 12 .7902E+05 .1565E+05
+ 17 13 -.8596E+05 .5710E+05
+ 17 14 -.7410E+04 .8205E+03
+ 17 15 .1339E+06 -.2038E+05
+ 17 16 -.7889E+05 -.1044E+06
+ 17 17 -.7464E+05 -.3701E+05
+ 18 0 -.1754E+06 .0000E+00
+ 18 1 -.3846E+05 -.1026E+06
+ 18 2 .1580E+06 -.1600E+06
+ 18 3 -.4919E+04 .3330E+06
+ 18 4 .2186E+06 .1622E+06
+ 18 5 -.9192E+05 -.1679E+06
+ 18 6 -.1226E+06 -.1135E+06
+ 18 7 -.8296E+05 -.2496E+06
+ 18 8 -.1041E+06 -.5070E+05
+ 18 9 -.2905E+06 -.1677E+06
+ 18 10 .4662E+05 .1289E+06
+ 18 11 -.5337E+05 .2186E+05
+ 18 12 -.1590E+06 .1462E+06
+ 18 13 .1633E+06 -.7904E+05
+ 18 14 -.1563E+04 .1060E+06
+ 18 15 .5916E+05 -.1148E+06
+ 18 16 -.3072E+05 -.1184E+06
+ 18 17 -.1429E+06 -.3853E+05
+ 18 18 .2281E+05 .4427E+05
+ 19 0 .1245E+06 .0000E+00
+ 19 1 .1339E+05 .2034E+05
+ 19 2 -.1124E+06 .7020E+05
+ 19 3 .2257E+05 -.2982E+05
+ 19 4 .2234E+05 -.2071E+06
+ 19 5 -.1985E+06 -.2701E+06
+ 19 6 .1550E+06 .2979E+05
+ 19 7 .2134E+06 .6657E+05
+ 19 8 -.2678E+05 .1464E+06
+ 19 9 -.2291E+06 -.5932E+05
+ 19 10 .1155E+06 .1785E+05
+ 19 11 -.1671E+05 -.5388E+05
+ 19 12 -.7544E+05 -.6261E+04
+ 19 13 -.5682E+04 -.3977E+05
+ 19 14 -.9359E+05 -.1874E+06
+ 19 15 .3302E+05 -.3868E+05
+ 19 16 -.8951E+05 -.8763E+05
+ 19 17 -.1665E+06 -.1457E+04
+ 19 18 .4777E+05 .8332E+05
+ 19 19 .5573E+05 .4395E+05
+ 20 0 .1203E+05 .0000E+00
+ 20 1 -.1075E+06 -.2973E+05
+ 20 2 .2421E+06 .3997E+05
+ 20 3 .1194E+06 .2239E+06
+ 20 4 .1961E+05 .8950E+05
+ 20 5 -.4262E+05 .2612E+05
+ 20 6 -.7121E+05 .1633E+05
+ 20 7 -.1286E+06 .5135E+04
+ 20 8 -.2071E+06 .1100E+06
+ 20 9 -.3188E+06 -.1320E+06
+ 20 10 .9886E+05 .2517E+06
+ 20 11 -.8418E+05 -.4157E+05
+ 20 12 .3665E+05 .3712E+05
+ 20 13 .1889E+06 -.6886E+04
+ 20 14 .3487E+05 .6515E+05
+ 20 15 -.7195E+05 -.3747E+05
+ 20 16 .8774E+05 -.3730E+05
+ 20 17 -.1436E+06 .1199E+06
+ 20 18 .7671E+05 .7931E+05
+ 20 19 .1121E+06 .6592E+05
+ 20 20 .2477E+04 -.3181E+05
+ 21 0 -.6204E+05 .0000E+00
+ 21 1 .2017E+06 .8202E+05
+ 21 2 -.9729E+05 .2919E+05
+ 21 3 .3304E+05 .1765E+06
+ 21 4 .1554E+05 -.1442E+06
+ 21 5 -.1606E+06 -.1870E+06
+ 21 6 .1296E+06 .9789E+05
+ 21 7 .4660E+05 .3912E+05
+ 21 8 .1132E+05 .1191E+06
+ 21 9 .1920E+06 -.1447E+06
+ 21 10 .3647E+06 .1949E+06
+ 21 11 .1244E+06 .5892E+05
+ 21 12 -.9314E+04 -.6938E+05
+ 21 13 .2599E+05 .7519E+05
+ 21 14 -.7653E+05 -.1613E+06
+ 21 15 .5117E+04 .1609E+06
+ 21 16 -.1426E+06 .4043E+05
+ 21 17 -.1548E+05 .8514E+05
+ 21 18 .7861E+05 .1317E+06
+ 21 19 .1280E+06 .2338E+05
+ 21 20 -.9099E+04 -.5490E+05
+ 21 21 -.3285E+05 -.3750E+05
+ 22 0 .1576E+06 .0000E+00
+ 22 1 -.2794E+06 -.2735E+05
+ 22 2 .8606E+05 .1386E+06
+ 22 3 .2873E+05 -.1775E+06
+ 22 4 -.1251E+06 -.1887E+06
+ 22 5 .1522E+06 -.9347E+05
+ 22 6 -.6028E+04 .1298E+06
+ 22 7 .2150E+05 .2095E+06
+ 22 8 -.1018E+06 .3318E+05
+ 22 9 -.1704E+06 -.5807E+05
+ 22 10 .7025E+05 .1601E+06
+ 22 11 -.1155E+06 -.1442E+05
+ 22 12 .1208E+06 -.1187E+06
+ 22 13 -.2009E+05 .1612E+06
+ 22 14 .2235E+05 -.4123E+05
+ 22 15 -.7613E+04 .5177E+04
+ 22 16 .1295E+06 .3564E+05
+ 22 17 .4035E+05 .1033E+06
+ 22 18 .8023E+05 -.1150E+05
+ 22 19 .1472E+06 -.4855E+05
+ 22 20 -.4872E+05 -.8764E+05
+ 22 21 -.6719E+05 -.6033E+05
+ 22 22 -.1650E+05 .2017E+05
+ 23 0 -.1239E+06 .0000E+00
+ 23 1 .2586E+06 -.4889E+05
+ 23 2 .6043E+05 -.3688E+04
+ 23 3 .5362E+05 .1057E+06
+ 23 4 -.5331E+04 -.1016E+06
+ 23 5 -.1213E+06 -.5560E+04
+ 23 6 .5045E+05 -.1683E+05
+ 23 7 -.1607E+06 -.1293E+06
+ 23 8 .8165E+05 -.1393E+06
+ 23 9 .2303E+06 -.1289E+06
+ 23 10 .2818E+06 .1428E+06
+ 23 11 .1823E+05 -.1894E+06
+ 23 12 -.4143E+05 -.2051E+06
+ 23 13 -.3440E+05 .4509E+04
+ 23 14 -.4290E+05 -.3204E+05
+ 23 15 -.4991E+04 .2563E+05
+ 23 16 -.1942E+06 .8094E+05
+ 23 17 .1338E+06 -.1197E+06
+ 23 18 .1791E+05 .9072E+05
+ 23 19 -.3279E+04 -.1383E+06
+ 23 20 -.4336E+05 -.1072E+06
+ 23 21 -.1193E+06 -.2799E+05
+ 23 22 -.3306E+03 .3734E+05
+ 23 23 .2386E+04 .2027E+05
+ 24 0 .2494E+06 .0000E+00
+ 24 1 -.2936E+06 -.4464E+05
+ 24 2 .9187E+05 .4676E+05
+ 24 3 -.6925E+05 -.3324E+06
+ 24 4 -.1914E+05 -.2103E+06
+ 24 5 .1195E+06 -.4185E+05
+ 24 6 -.1683E+06 .2443E+06
+ 24 7 .7068E+05 .1555E+06
+ 24 8 -.6977E+05 -.2216E+05
+ 24 9 -.2486E+05 -.5118E+05
+ 24 10 -.1682E+06 .8656E+05
+ 24 11 -.2081E+06 .1141E+05
+ 24 12 -.1249E+06 -.8486E+05
+ 24 13 -.2023E+06 .1654E+06
+ 24 14 .5617E+05 -.1408E+06
+ 24 15 .4511E+04 -.7287E+05
+ 24 16 .7109E+05 .3248E+04
+ 24 17 .3775E+05 -.3893E+05
+ 24 18 -.3174E+04 -.2000E+06
+ 24 19 .1976E+05 -.6877E+05
+ 24 20 -.1053E+06 -.1100E+06
+ 24 21 -.1313E+06 .1221E+05
+ 24 22 .4249E+05 .7412E+05
+ 24 23 .5724E+04 .2451E+05
+ 24 24 .2871E+05 -.1270E+05
+ 25 0 -.1233E+06 .0000E+00
+ 25 1 .1085E+06 .1226E+06
+ 25 2 .1517E+06 .8863E+05
+ 25 3 .1290E+05 .9546E+04
+ 25 4 -.6580E+05 .9924E+05
+ 25 5 .5539E+05 .1886E+06
+ 25 6 -.4636E+05 -.4286E+04
+ 25 7 -.1745E+05 -.1058E+06
+ 25 8 -.9426E+05 -.1696E+06
+ 25 9 .6795E+05 .1242E+06
+ 25 10 .1408E+06 -.4470E+05
+ 25 11 -.5633E+05 -.2642E+06
+ 25 12 .1545E+06 -.1963E+06
+ 25 13 -.3401E+05 .7996E+05
+ 25 14 .1369E+06 .6020E+05
+ 25 15 -.1141E+06 -.2335E+05
+ 25 16 -.4766E+05 .7125E+05
+ 25 17 .7701E+05 -.4023E+05
+ 25 18 -.6334E+05 .8260E+05
+ 25 19 -.1635E+06 -.1697E+05
+ 25 20 .1849E+05 -.2692E+05
+ 25 21 -.1353E+06 .1618E+06
+ 25 22 .9157E+05 .8832E+05
+ 25 23 .3642E+05 .2785E+05
+ 25 24 .2502E+05 -.3309E+05
+ 25 25 .1402E+05 .5086E+04
+ 2682.50000000000000
+ 0 0 .8533E+06 .0000E+00
+ 1 0 .5114E+06 .0000E+00
+ 1 1 -.2415E+06 -.2524E+06
+ 2 0 .6909E+06 .0000E+00
+ 2 1 -.3909E+06 -.3847E+06
+ 2 2 -.3333E+06 -.8130E+05
+ 3 0 -.8030E+05 .0000E+00
+ 3 1 -.6112E+06 -.3573E+06
+ 3 2 -.4292E+06 .1590E+06
+ 3 3 -.2297E+05 .1310E+06
+ 4 0 .1006E+06 .0000E+00
+ 4 1 -.4456E+06 -.2219E+06
+ 4 2 -.2069E+05 -.8515E+05
+ 4 3 .1441E+06 .3345E+06
+ 4 4 .2339E+06 -.1837E+05
+ 5 0 -.1072E+06 .0000E+00
+ 5 1 -.5589E+06 .1390E+06
+ 5 2 .2027E+06 .1633E+06
+ 5 3 .1260E+05 .3992E+06
+ 5 4 .4316E+06 -.1246E+05
+ 5 5 -.1890E+05 -.3496E+05
+ 6 0 -.9886E+04 .0000E+00
+ 6 1 -.2206E+06 -.2959E+05
+ 6 2 .3414E+06 .6827E+05
+ 6 3 .2160E+06 .3322E+06
+ 6 4 .1236E+06 -.2167E+06
+ 6 5 .2384E+04 -.2573E+06
+ 6 6 -.1299E+06 .1282E+05
+ 7 0 -.4108E+06 .0000E+00
+ 7 1 -.2007E+06 -.1038E+06
+ 7 2 .1764E+06 .3126E+04
+ 7 3 .7946E+05 .1199E+06
+ 7 4 .3977E+05 -.1588E+06
+ 7 5 -.1260E+06 -.1267E+06
+ 7 6 -.1764E+06 .1121E+04
+ 7 7 -.1318E+05 .4538E+05
+ 8 0 -.3010E+06 .0000E+00
+ 8 1 -.3675E+05 -.2474E+06
+ 8 2 .1040E+06 .1790E+06
+ 8 3 -.1471E+04 -.3581E+05
+ 8 4 -.1668E+06 -.2951E+06
+ 8 5 -.3965E+05 -.3485E+06
+ 8 6 -.2035E+06 .1829E+06
+ 8 7 -.8722E+05 .1683E+05
+ 8 8 .3500E+05 .2898E+04
+ 9 0 -.2372E+06 .0000E+00
+ 9 1 .1414E+06 -.2184E+06
+ 9 2 .2075E+06 .1997E+06
+ 9 3 -.1884E+05 -.4908E+05
+ 9 4 -.1889E+06 -.1007E+06
+ 9 5 -.3484E+05 .4096E+05
+ 9 6 -.6868E+05 .1580E+06
+ 9 7 .1295E+06 .1447E+06
+ 9 8 .3498E+05 .5248E+04
+ 9 9 .5194E+05 -.3234E+05
+ 10 0 -.2052E+06 .0000E+00
+ 10 1 .1409E+06 .1665E+06
+ 10 2 .2283E+06 .2095E+06
+ 10 3 -.1265E+06 .1397E+06
+ 10 4 .8834E+05 -.1082E+06
+ 10 5 .1004E+06 .5610E+04
+ 10 6 -.1296E+06 .2743E+06
+ 10 7 -.7337E+03 -.6591E+05
+ 10 8 .1290E+06 -.1546E+05
+ 10 9 .9041E+04 -.1305E+04
+ 10 10 .4610E+05 .1277E+05
+ 11 0 .1222E+06 .0000E+00
+ 11 1 .2690E+06 .1695E+06
+ 11 2 .1612E+06 .2733E+06
+ 11 3 -.1664E+06 -.1999E+06
+ 11 4 -.1231E+06 -.1339E+05
+ 11 5 .2500E+06 .6143E+05
+ 11 6 -.9614E+05 .2186E+06
+ 11 7 .2957E+06 .2940E+05
+ 11 8 .2832E+05 -.1747E+05
+ 11 9 .6333E+05 -.8787E+05
+ 11 10 .8257E+05 .5544E+05
+ 11 11 -.4415E+05 .9634E+03
+ 12 0 -.1462E+06 .0000E+00
+ 12 1 .2246E+06 .1240E+06
+ 12 2 -.7073E+05 .9799E+05
+ 12 3 -.1023E+06 .8228E+04
+ 12 4 .9601E+05 -.7417E+05
+ 12 5 .1388E+06 -.4135E+05
+ 12 6 -.2450E+06 .2241E+05
+ 12 7 .5785E+05 -.1967E+06
+ 12 8 .1062E+06 -.3233E+05
+ 12 9 -.2103E+06 .5203E+05
+ 12 10 .3092E+05 -.1512E+05
+ 12 11 -.5492E+05 .3365E+04
+ 12 12 -.8046E+05 -.2953E+05
+ 13 0 .1019E+06 .0000E+00
+ 13 1 .1272E+06 -.5294E+05
+ 13 2 -.6717E+05 -.1460E+06
+ 13 3 -.2248E+06 -.6451E+06
+ 13 4 .9078E+05 .3507E+05
+ 13 5 .6535E+05 -.6628E+05
+ 13 6 -.1967E+06 .2021E+06
+ 13 7 .1015E+06 -.1726E+06
+ 13 8 -.1829E+04 .5525E+04
+ 13 9 -.4239E+05 -.1454E+06
+ 13 10 .4847E+05 .9044E+05
+ 13 11 -.8559E+05 -.1208E+06
+ 13 12 -.9327E+05 -.5284E+05
+ 13 13 .9781E+04 -.4033E+04
+ 14 0 .8739E+05 .0000E+00
+ 14 1 .6291E+05 .3527E+04
+ 14 2 -.1069E+06 .5868E+05
+ 14 3 -.2031E+06 .1652E+05
+ 14 4 .1757E+06 .1165E+06
+ 14 5 -.1533E+05 -.1813E+06
+ 14 6 -.2578E+06 -.1912E+05
+ 14 7 .1214E+06 -.9925E+05
+ 14 8 -.3495E+05 .6057E+05
+ 14 9 -.2417E+06 .3277E+05
+ 14 10 -.3065E+05 -.5259E+05
+ 14 11 .3678E+05 -.5033E+04
+ 14 12 -.1402E+06 .3433E+04
+ 14 13 .3551E+05 .2723E+05
+ 14 14 .8077E+05 .4283E+05
+ 15 0 .7815E+05 .0000E+00
+ 15 1 .7807E+02 .1160E+05
+ 15 2 -.9432E+05 -.2690E+06
+ 15 3 -.2031E+05 -.3113E+06
+ 15 4 .1890E+06 .2167E+06
+ 15 5 -.1725E+06 .1740E+06
+ 15 6 -.1127E+06 .2502E+06
+ 15 7 .1404E+06 -.1101E+06
+ 15 8 .8430E+05 .1129E+06
+ 15 9 -.1177E+05 -.7275E+05
+ 15 10 .9341E+05 .1161E+06
+ 15 11 -.3501E+05 -.1572E+06
+ 15 12 .5209E+05 .1338E+05
+ 15 13 .4315E+03 .1150E+06
+ 15 14 .1341E+06 .4191E+05
+ 15 15 .1510E+05 .1019E+05
+ 16 0 -.9247E+05 .0000E+00
+ 16 1 -.5346E+05 .2149E+06
+ 16 2 -.1182E+06 -.9060E+04
+ 16 3 -.1214E+06 .3830E+06
+ 16 4 .1798E+06 .3598E+06
+ 16 5 .3419E+05 -.1218E+06
+ 16 6 -.2215E+06 .9952E+05
+ 16 7 .2477E+06 -.6009E+05
+ 16 8 -.8393E+05 .1082E+06
+ 16 9 -.5640E+05 -.3849E+05
+ 16 10 .8585E+05 .2414E+05
+ 16 11 .7123E+05 .1242E+06
+ 16 12 -.9480E+05 .1329E+06
+ 16 13 .7534E+05 .9403E+05
+ 16 14 .1427E+06 .7920E+05
+ 16 15 .1967E+05 -.3532E+05
+ 16 16 -.6496E+05 -.3614E+05
+ 17 0 -.3307E+05 .0000E+00
+ 17 1 .4717E+05 -.2753E+05
+ 17 2 -.3184E+06 -.5282E+05
+ 17 3 .1636E+06 -.7685E+05
+ 17 4 -.5827E+05 .5362E+05
+ 17 5 -.1109E+06 .7672E+04
+ 17 6 .5549E+05 .2593E+05
+ 17 7 .3219E+06 -.1962E+05
+ 17 8 .1524E+06 .8126E+05
+ 17 9 -.1833E+06 .1235E+05
+ 17 10 .1636E+06 .6216E+04
+ 17 11 -.1009E+06 -.7981E+05
+ 17 12 .1147E+06 .2522E+05
+ 17 13 -.3603E+05 .9163E+05
+ 17 14 .5987E+05 -.1031E+06
+ 17 15 .3109E+05 -.1005E+06
+ 17 16 -.1379E+06 -.6154E+05
+ 17 17 -.3390E+05 -.1893E+05
+ 18 0 -.1655E+06 .0000E+00
+ 18 1 -.2627E+05 -.1322E+05
+ 18 2 .6156E+05 -.1282E+06
+ 18 3 .9931E+05 .3266E+06
+ 18 4 .2366E+06 .1793E+06
+ 18 5 -.2179E+05 -.1202E+06
+ 18 6 -.6669E+05 -.8963E+05
+ 18 7 .6126E+04 -.2015E+06
+ 18 8 -.4808E+05 -.3500E+04
+ 18 9 -.2187E+06 -.2070E+06
+ 18 10 .1471E+06 .9376E+05
+ 18 11 -.8809E+05 -.3880E+04
+ 18 12 -.1410E+06 .7219E+05
+ 18 13 .1519E+06 -.1027E+06
+ 18 14 .3172E+05 .2958E+05
+ 18 15 -.4674E+05 -.1886E+06
+ 18 16 -.1119E+06 -.4636E+05
+ 18 17 -.7371E+05 .1133E+05
+ 18 18 .5179E+05 .3221E+05
+ 19 0 .1502E+06 .0000E+00
+ 19 1 .1011E+06 .4787E+05
+ 19 2 -.4785E+05 .4091E+05
+ 19 3 .4148E+05 -.2017E+05
+ 19 4 .8847E+05 -.1619E+06
+ 19 5 -.1206E+06 -.2573E+06
+ 19 6 .2137E+06 -.9003E+05
+ 19 7 .1884E+06 .1193E+05
+ 19 8 -.1714E+05 .7629E+05
+ 19 9 -.2432E+06 -.1364E+06
+ 19 10 .1659E+06 -.2582E+05
+ 19 11 -.4610E+05 -.4870E+05
+ 19 12 -.2727E+05 -.4456E+05
+ 19 13 .9168E+04 -.3846E+05
+ 19 14 -.5228E+05 -.2417E+06
+ 19 15 -.3349E+05 -.8559E+05
+ 19 16 -.1623E+06 .1413E+05
+ 19 17 -.7107E+05 .6423E+05
+ 19 18 .1058E+06 .6868E+05
+ 19 19 .3580E+05 .2518E+05
+ 20 0 .2131E+06 .0000E+00
+ 20 1 -.8839E+05 .6010E+05
+ 20 2 .2901E+06 .8598E+05
+ 20 3 .1393E+06 .2170E+06
+ 20 4 .1230E+06 .4641E+05
+ 20 5 -.4100E+05 -.6072E+05
+ 20 6 -.5251E+05 -.7071E+05
+ 20 7 -.6917E+05 -.4217E+04
+ 20 8 -.1269E+06 .9947E+05
+ 20 9 -.2709E+06 -.1883E+06
+ 20 10 .1306E+06 .2371E+06
+ 20 11 -.1069E+06 -.7935E+05
+ 20 12 -.1053E+05 -.2097E+05
+ 20 13 .1631E+06 -.1260E+05
+ 20 14 .1662E+05 .8343E+05
+ 20 15 -.1596E+06 -.5493E+05
+ 20 16 .5149E+05 .9634E+05
+ 20 17 -.3228E+05 .1830E+06
+ 20 18 .1437E+06 .4483E+05
+ 20 19 .8694E+05 .2792E+05
+ 20 20 -.3007E+05 -.3495E+05
+ 21 0 -.2967E+05 .0000E+00
+ 21 1 .1435E+06 .1384E+06
+ 21 2 -.2278E+05 -.1283E+05
+ 21 3 -.3852E+04 .4601E+05
+ 21 4 .4585E+05 -.5792E+05
+ 21 5 -.1326E+06 -.1926E+06
+ 21 6 .7379E+05 .1163E+06
+ 21 7 .1980E+05 .6036E+04
+ 21 8 -.1713E+06 .1416E+06
+ 21 9 .1270E+06 -.1759E+06
+ 21 10 .2611E+06 .2302E+06
+ 21 11 .6852E+05 .9256E+05
+ 21 12 -.8709E+05 -.4869E+05
+ 21 13 .5614E+05 .1324E+06
+ 21 14 -.4728E+05 -.1324E+06
+ 21 15 -.3542E+05 .1391E+06
+ 21 16 -.1445E+06 .1433E+06
+ 21 17 .1004E+06 .9984E+05
+ 21 18 .1217E+06 .5372E+05
+ 21 19 .8664E+05 -.3017E+05
+ 21 20 -.6941E+05 -.6969E+05
+ 21 21 -.2606E+05 -.2494E+05
+ 22 0 .2263E+06 .0000E+00
+ 22 1 -.2511E+06 -.4182E+05
+ 22 2 .4573E+05 .1527E+06
+ 22 3 -.9936E+04 -.2446E+06
+ 22 4 -.1447E+06 -.3503E+05
+ 22 5 .1184E+06 -.2528E+06
+ 22 6 -.2020E+06 .1118E+06
+ 22 7 .9396E+05 .2363E+06
+ 22 8 -.1754E+06 .9710E+05
+ 22 9 -.8313E+05 -.5292E+05
+ 22 10 .7431E+05 .2011E+06
+ 22 11 -.1396E+06 .1528E+05
+ 22 12 .9690E+05 -.1161E+06
+ 22 13 -.1045E+05 .2162E+06
+ 22 14 .2972E+04 -.6691E+04
+ 22 15 -.9131E+05 -.4144E+04
+ 22 16 .1563E+06 .1277E+06
+ 22 17 .1222E+06 .1168E+06
+ 22 18 .9147E+05 -.1223E+06
+ 22 19 .8247E+05 -.9997E+05
+ 22 20 -.1242E+06 -.8597E+05
+ 22 21 -.5997E+05 -.4574E+05
+ 22 22 .6362E+04 .3634E+05
+ 23 0 -.1628E+06 .0000E+00
+ 23 1 .1647E+06 -.8988E+05
+ 23 2 -.1456E+03 -.7349E+05
+ 23 3 .4927E+05 -.7085E+05
+ 23 4 -.2492E+05 -.5291E+05
+ 23 5 -.9851E+05 -.9558E+05
+ 23 6 .5282E+05 .5181E+05
+ 23 7 -.6994E+05 -.8407E+05
+ 23 8 -.6233E+05 -.1218E+06
+ 23 9 .2174E+06 -.9761E+05
+ 23 10 .2465E+06 .2110E+06
+ 23 11 -.6554E+05 -.1605E+06
+ 23 12 -.2319E+05 -.1852E+06
+ 23 13 .4096E+05 .6202E+05
+ 23 14 -.1097E+05 -.3760E+05
+ 23 15 .4988E+04 -.1250E+05
+ 23 16 -.1421E+06 .9121E+05
+ 23 17 .1937E+06 -.1680E+06
+ 23 18 .5357E+04 -.1533E+05
+ 23 19 -.9588E+05 -.1919E+06
+ 23 20 -.1137E+06 -.4884E+05
+ 23 21 -.9142E+05 -.8822E+04
+ 23 22 .3075E+05 .7507E+05
+ 23 23 .6900E+04 .1793E+05
+ 24 0 .1986E+06 .0000E+00
+ 24 1 -.2573E+06 -.5966E+05
+ 24 2 .1163E+06 -.9762E+05
+ 24 3 -.9760E+05 -.3391E+06
+ 24 4 .4454E+05 -.3492E+05
+ 24 5 .9013E+05 -.1609E+06
+ 24 6 -.2381E+06 .1985E+06
+ 24 7 .6277E+05 .1705E+06
+ 24 8 -.8198E+05 -.4351E+05
+ 24 9 .1518E+06 -.1067E+06
+ 24 10 -.6753E+05 .5398E+05
+ 24 11 -.1747E+06 -.6071E+05
+ 24 12 -.1524E+05 -.1128E+06
+ 24 13 -.1087E+06 .1737E+06
+ 24 14 .2210E+05 -.2107E+06
+ 24 15 .7195E+04 -.8918E+05
+ 24 16 .1051E+06 .2880E+05
+ 24 17 .4931E+05 -.4572E+05
+ 24 18 -.5636E+04 -.2501E+06
+ 24 19 -.4494E+05 -.9970E+05
+ 24 20 -.1550E+06 .1261E+05
+ 24 21 -.4954E+05 .4007E+05
+ 24 22 .7489E+05 .1040E+06
+ 24 23 .1879E+05 .3810E+05
+ 24 24 .1568E+05 -.3574E+05
+ 25 0 -.9083E+05 .0000E+00
+ 25 1 .9504E+05 .1508E+06
+ 25 2 .1279E+06 .1455E+05
+ 25 3 -.2624E+05 .9085E+05
+ 25 4 -.5688E+03 .1034E+06
+ 25 5 .5597E+04 .3356E+05
+ 25 6 .3595E+05 .9572E+05
+ 25 7 .6780E+05 -.4797E+05
+ 25 8 -.1108E+06 -.1821E+06
+ 25 9 .1262E+06 .1067E+06
+ 25 10 .2000E+05 .3747E+05
+ 25 11 -.8720E+05 -.2864E+06
+ 25 12 .1722E+06 -.1638E+06
+ 25 13 .5164E+04 .1037E+06
+ 25 14 .7163E+05 -.4885E+04
+ 25 15 -.7248E+05 -.4818E+05
+ 25 16 -.1775E+05 .4787E+05
+ 25 17 .7056E+05 -.1120E+06
+ 25 18 -.7337E+05 .6702E+05
+ 25 19 -.2336E+06 -.6190E+05
+ 25 20 -.1354E+05 .1100E+06
+ 25 21 -.1955E+05 .2020E+06
+ 25 22 .1163E+06 .6321E+05
+ 25 23 .4115E+05 .4641E+05
+ 25 24 .1390E+05 -.7907E+05
+ 25 25 .9603E+04 -.2614E+04
+ 2827.50000000000000
+ 0 0 .1018E+07 .0000E+00
+ 1 0 .7829E+06 .0000E+00
+ 1 1 -.2528E+06 -.2201E+06
+ 2 0 .8928E+06 .0000E+00
+ 2 1 -.4994E+06 -.4459E+06
+ 2 2 -.4271E+06 -.1023E+06
+ 3 0 .1444E+06 .0000E+00
+ 3 1 -.6807E+06 -.6142E+06
+ 3 2 -.4903E+06 .1361E+06
+ 3 3 -.1927E+05 .2646E+05
+ 4 0 .3036E+06 .0000E+00
+ 4 1 -.6291E+06 -.5841E+06
+ 4 2 -.7677E+05 -.4318E+05
+ 4 3 .1285E+06 .3066E+06
+ 4 4 .3051E+06 .3811E+05
+ 5 0 .2312E+05 .0000E+00
+ 5 1 -.7438E+06 -.9740E+05
+ 5 2 .1565E+06 .2534E+06
+ 5 3 -.9287E+04 .4531E+06
+ 5 4 .4947E+06 .2162E+05
+ 5 5 -.4265E+05 .6215E+05
+ 6 0 -.5414E+05 .0000E+00
+ 6 1 -.4340E+06 -.2106E+06
+ 6 2 .1659E+06 .1949E+06
+ 6 3 .2299E+06 .5517E+06
+ 6 4 .1070E+06 -.1782E+06
+ 6 5 .3168E+05 -.1419E+06
+ 6 6 -.1834E+06 -.6131E+05
+ 7 0 -.5725E+06 .0000E+00
+ 7 1 -.3587E+06 -.1508E+06
+ 7 2 -.3213E+05 .1811E+06
+ 7 3 .1732E+06 .2739E+06
+ 7 4 .1247E+05 -.2220E+06
+ 7 5 -.6132E+05 -.1314E+06
+ 7 6 -.2408E+06 -.1213E+06
+ 7 7 .2107E+05 -.2187E+05
+ 8 0 -.4798E+06 .0000E+00
+ 8 1 -.1900E+06 -.3360E+06
+ 8 2 .2979E+05 .3082E+06
+ 8 3 .1357E+06 .4588E+05
+ 8 4 -.8876E+05 -.3374E+06
+ 8 5 .7497E+05 -.4308E+06
+ 8 6 -.1878E+06 .1206E+06
+ 8 7 -.7705E+05 -.5906E+05
+ 8 8 .7538E+05 .7829E+05
+ 9 0 -.2956E+06 .0000E+00
+ 9 1 .1052E+06 -.1703E+06
+ 9 2 .3437E+06 .3728E+06
+ 9 3 .7568E+05 .2663E+05
+ 9 4 .2072E+04 -.1860E+06
+ 9 5 -.4291E+05 -.1009E+06
+ 9 6 -.6811E+05 .1053E+06
+ 9 7 .3598E+05 .1393E+06
+ 9 8 .6633E+05 .1086E+06
+ 9 9 -.2373E+04 .1445E+05
+ 10 0 -.2131E+06 .0000E+00
+ 10 1 .4403E+05 .2760E+06
+ 10 2 .4482E+06 .2598E+06
+ 10 3 -.1122E+06 .1984E+06
+ 10 4 .3089E+06 -.2174E+06
+ 10 5 .8267E+04 -.7398E+05
+ 10 6 -.1592E+06 .3008E+06
+ 10 7 -.1068E+06 .1848E+05
+ 10 8 .1608E+06 .4544E+05
+ 10 9 -.2751E+05 .7177E+05
+ 10 10 .4476E+05 -.6892E+05
+ 11 0 .7659E+05 .0000E+00
+ 11 1 .2659E+06 .2995E+06
+ 11 2 .3494E+06 .3535E+06
+ 11 3 -.2262E+06 -.1933E+06
+ 11 4 -.4406E+05 -.1068E+06
+ 11 5 .1174E+06 -.2767E+05
+ 11 6 -.2890E+06 .2490E+06
+ 11 7 .2337E+06 .1530E+06
+ 11 8 -.2124E+05 -.7884E+04
+ 11 9 .1041E+06 -.2702E+05
+ 11 10 .8202E+05 -.6341E+05
+ 11 11 .1562E+04 -.6090E+04
+ 12 0 -.2100E+06 .0000E+00
+ 12 1 .2151E+06 .5151E+05
+ 12 2 .1354E+05 .9893E+05
+ 12 3 -.1452E+06 -.1267E+06
+ 12 4 .8724E+05 -.1233E+06
+ 12 5 .5769E+05 -.1733E+06
+ 12 6 -.4697E+06 .1143E+06
+ 12 7 .1887E+06 -.1074E+06
+ 12 8 .1442E+06 -.5964E+05
+ 12 9 -.7454E+05 .5168E+05
+ 12 10 .5284E+05 -.1383E+06
+ 12 11 -.1416E+05 -.1653E+05
+ 12 12 -.9975E+05 .2601E+05
+ 13 0 .1854E+05 .0000E+00
+ 13 1 .1562E+06 -.2052E+06
+ 13 2 .3011E+05 -.5337E+05
+ 13 3 -.2910E+06 -.9069E+06
+ 13 4 .6288E+05 .7327E+05
+ 13 5 .6386E+05 -.1980E+06
+ 13 6 -.3490E+06 .3521E+06
+ 13 7 .2877E+06 -.1059E+06
+ 13 8 .5400E+05 -.6935E+04
+ 13 9 .3525E+05 -.1872E+06
+ 13 10 .6951E+05 .5373E+05
+ 13 11 -.1344E+06 -.1365E+06
+ 13 12 -.1176E+06 .3958E+05
+ 13 13 -.2389E+05 -.1290E+05
+ 14 0 .4590E+05 .0000E+00
+ 14 1 .1278E+06 -.1510E+06
+ 14 2 .2680E+04 .6711E+05
+ 14 3 -.2662E+06 -.1680E+06
+ 14 4 .2029E+06 .2232E+06
+ 14 5 -.1392E+05 -.2143E+06
+ 14 6 -.3224E+06 .7457E+05
+ 14 7 .2743E+06 -.1647E+04
+ 14 8 .1261E+06 -.5797E+04
+ 14 9 -.2833E+06 -.5678E+05
+ 14 10 -.2506E+04 -.1010E+06
+ 14 11 -.9275E+05 -.1944E+05
+ 14 12 -.1623E+06 .7455E+05
+ 14 13 .1565E+04 .2326E+05
+ 14 14 .1128E+06 .5429E+04
+ 15 0 -.4308E+05 .0000E+00
+ 15 1 .9629E+05 -.2034E+04
+ 15 2 -.1178E+06 -.2079E+06
+ 15 3 -.1651E+06 -.3391E+06
+ 15 4 .1575E+06 .2674E+06
+ 15 5 -.2107E+06 .2476E+06
+ 15 6 -.1259E+06 .2356E+06
+ 15 7 .1928E+06 .2723E+05
+ 15 8 .2220E+06 -.8664E+04
+ 15 9 -.1993E+06 -.1459E+06
+ 15 10 .5431E+05 .1521E+06
+ 15 11 -.1804E+06 -.1163E+06
+ 15 12 .5820E+05 .5912E+05
+ 15 13 .2070E+05 .1529E+06
+ 15 14 .1861E+06 -.2890E+05
+ 15 15 .2670E+05 .3389E+05
+ 16 0 -.2691E+06 .0000E+00
+ 16 1 .5163E+05 .2820E+06
+ 16 2 -.2905E+06 -.7326E+05
+ 16 3 -.2166E+06 .3871E+06
+ 16 4 .1406E+06 .4066E+06
+ 16 5 .4808E+05 .4570E+04
+ 16 6 -.2857E+06 .2039E+05
+ 16 7 .2511E+06 .8508E+05
+ 16 8 -.2959E+05 -.3908E+05
+ 16 9 -.2285E+06 -.1519E+06
+ 16 10 -.6676E+03 .6285E+05
+ 16 11 .6850E+05 .1648E+06
+ 16 12 -.1015E+06 .1194E+06
+ 16 13 .1685E+06 .1444E+06
+ 16 14 .1824E+06 -.7707E+04
+ 16 15 .2118E+05 -.3774E+04
+ 16 16 -.9344E+05 -.2536E+05
+ 17 0 -.2304E+06 .0000E+00
+ 17 1 .1987E+06 -.1912E+05
+ 17 2 -.5813E+06 -.2365E+05
+ 17 3 .5954E+05 -.5499E+04
+ 17 4 -.1431E+06 .1381E+06
+ 17 5 -.1021E+06 .3762E+05
+ 17 6 -.6078E+04 -.7167E+05
+ 17 7 .3669E+06 .5067E+05
+ 17 8 .2001E+06 .1153E+04
+ 17 9 -.2653E+06 -.1004E+06
+ 17 10 .4827E+05 .1806E+06
+ 17 11 .4207E+05 .2178E+04
+ 17 12 .1465E+06 .3404E+05
+ 17 13 .7964E+05 .1702E+06
+ 17 14 .8664E+05 -.1869E+06
+ 17 15 .2511E+03 -.8404E+05
+ 17 16 -.1809E+06 -.3807E+05
+ 17 17 -.2772E+05 -.3556E+05
+ 18 0 -.1924E+06 .0000E+00
+ 18 1 .8242E+05 .7973E+05
+ 18 2 -.1008E+06 -.1245E+06
+ 18 3 .9703E+05 .3465E+06
+ 18 4 .3878E+06 .2972E+06
+ 18 5 .3990E+05 -.1235E+06
+ 18 6 -.1546E+05 -.6514E+05
+ 18 7 .6182E+05 -.1532E+06
+ 18 8 .1395E+05 .2196E+05
+ 18 9 -.2416E+06 -.3289E+06
+ 18 10 .5583E+05 .3099E+06
+ 18 11 .1087E+06 .2994E+05
+ 18 12 -.1229E+06 .7597E+04
+ 18 13 .1748E+06 -.1080E+06
+ 18 14 .3637E+05 -.4317E+05
+ 18 15 -.1484E+06 -.2147E+06
+ 18 16 -.1423E+06 -.9795E+04
+ 18 17 -.5615E+05 -.1042E+05
+ 18 18 .6793E+05 .3377E+05
+ 19 0 .1855E+06 .0000E+00
+ 19 1 .1572E+06 .2215E+06
+ 19 2 -.6253E+05 .7033E+05
+ 19 3 -.2454E+04 .1519E+06
+ 19 4 .3104E+06 -.1063E+05
+ 19 5 -.1469E+06 -.2687E+06
+ 19 6 .3594E+06 -.9615E+05
+ 19 7 .1738E+06 .3850E+05
+ 19 8 .8134E+05 .7638E+05
+ 19 9 -.2810E+06 -.2396E+06
+ 19 10 .1348E+06 .1203E+06
+ 19 11 .1106E+06 -.9300E+04
+ 19 12 .5214E+05 -.1527E+06
+ 19 13 -.8308E+05 -.4828E+05
+ 19 14 -.7569E+04 -.2940E+06
+ 19 15 -.1377E+06 -.1156E+06
+ 19 16 -.1590E+06 .6431E+05
+ 19 17 -.2865E+05 .5728E+05
+ 19 18 .1298E+06 .6477E+05
+ 19 19 .2098E+05 .3216E+05
+ 20 0 .3445E+06 .0000E+00
+ 20 1 -.3714E+05 .3634E+06
+ 20 2 .3224E+06 .6899E+05
+ 20 3 .1589E+06 .4017E+06
+ 20 4 .4474E+06 .7522E+05
+ 20 5 -.8880E+05 -.9880E+05
+ 20 6 .1061E+06 -.1399E+06
+ 20 7 -.1290E+06 .3131E+05
+ 20 8 -.1399E+05 .3895E+05
+ 20 9 -.3394E+06 -.2519E+06
+ 20 10 .8729E+05 .2977E+06
+ 20 11 -.5286E+05 -.5158E+05
+ 20 12 .3731E+05 -.2113E+06
+ 20 13 -.3491E+05 -.6621E+05
+ 20 14 .3239E+05 .9088E+05
+ 20 15 -.2647E+06 -.7856E+05
+ 20 16 .6381E+05 .1570E+06
+ 20 17 .2369E+05 .2165E+06
+ 20 18 .1544E+06 .1961E+05
+ 20 19 .5511E+05 .4209E+05
+ 20 20 -.3215E+05 -.4267E+05
+ 21 0 .5611E+04 .0000E+00
+ 21 1 .1218E+06 .3193E+06
+ 21 2 .6168E+03 -.9860E+05
+ 21 3 -.9980E+04 .1532E+06
+ 21 4 .2483E+06 -.6403E+05
+ 21 5 -.2193E+06 -.3502E+06
+ 21 6 .1585E+06 .3290E+05
+ 21 7 -.8983E+05 -.4579E+05
+ 21 8 -.2047E+06 .4895E+05
+ 21 9 .6296E+05 -.2602E+06
+ 21 10 .1506E+06 .2280E+06
+ 21 11 .1351E+06 .1273E+06
+ 21 12 -.6885E+05 -.2166E+06
+ 21 13 -.9361E+05 .1202E+06
+ 21 14 -.2032E+05 -.4212E+05
+ 21 15 .1423E+03 .1602E+06
+ 21 16 -.1424E+06 .1946E+06
+ 21 17 .1847E+06 .1419E+06
+ 21 18 .1157E+06 -.5522E+04
+ 21 19 .4242E+05 -.1729E+05
+ 21 20 -.6668E+05 -.8208E+05
+ 21 21 -.1138E+05 -.1904E+05
+ 22 0 .3345E+06 .0000E+00
+ 22 1 -.2102E+06 -.7241E+04
+ 22 2 .1230E+06 .1125E+06
+ 22 3 .2759E+05 -.3474E+06
+ 22 4 .8674E+05 .2455E+04
+ 22 5 .7070E+05 -.5947E+06
+ 22 6 -.2525E+06 .1321E+06
+ 22 7 .1260E+05 .1117E+06
+ 22 8 -.2470E+06 .1195E+06
+ 22 9 -.5377E+05 -.1367E+06
+ 22 10 -.7946E+05 .2839E+06
+ 22 11 -.2967E+05 .7473E+05
+ 22 12 .8064E+05 -.1798E+06
+ 22 13 -.1180E+06 .2396E+06
+ 22 14 -.3457E+05 .1687E+06
+ 22 15 -.1741E+05 .8394E+04
+ 22 16 .1259E+06 .1499E+06
+ 22 17 .1651E+06 .1657E+06
+ 22 18 .7346E+05 -.2102E+06
+ 22 19 .3470E+05 -.8446E+05
+ 22 20 -.1099E+06 -.8728E+05
+ 22 21 -.2959E+05 -.3547E+05
+ 22 22 -.1438E+04 .3938E+05
+ 23 0 -.1998E+05 .0000E+00
+ 23 1 .1473E+06 -.1987E+06
+ 23 2 .1320E+06 -.1132E+06
+ 23 3 .3940E+05 -.2239E+06
+ 23 4 .1412E+06 .6709E+05
+ 23 5 -.2303E+06 -.5249E+06
+ 23 6 -.4677E+04 .2341E+06
+ 23 7 -.1299E+06 -.2383E+06
+ 23 8 -.1644E+06 .4306E+05
+ 23 9 .2686E+06 -.1383E+06
+ 23 10 .7105E+05 .3856E+06
+ 23 11 .6772E+05 -.9676E+05
+ 23 12 -.3347E+05 -.2112E+06
+ 23 13 -.2103E+03 .6227E+05
+ 23 14 -.1009E+05 .1202E+06
+ 23 15 .1590E+06 -.3893E+05
+ 23 16 -.1542E+06 .3544E+05
+ 23 17 .2216E+06 -.1803E+06
+ 23 18 .2384E+05 -.1004E+06
+ 23 19 -.1471E+06 -.1895E+06
+ 23 20 -.8226E+05 -.2940E+05
+ 23 21 -.5567E+05 -.1618E+04
+ 23 22 .9461E+04 .7732E+05
+ 23 23 -.2097E+04 .6785E+04
+ 24 0 .3464E+06 .0000E+00
+ 24 1 -.2447E+06 -.9634E+05
+ 24 2 .2528E+06 -.1035E+06
+ 24 3 -.1027E+06 -.4829E+06
+ 24 4 .2484E+06 .1175E+06
+ 24 5 -.1157E+05 -.5113E+06
+ 24 6 -.3856E+06 .4780E+06
+ 24 7 .1178E+05 .1260E+06
+ 24 8 -.1506E+06 .1351E+06
+ 24 9 .2653E+06 -.9144E+05
+ 24 10 -.1425E+06 .1408E+06
+ 24 11 -.5422E+04 .2223E+05
+ 24 12 .5923E+05 -.1826E+06
+ 24 13 -.1695E+06 .1910E+06
+ 24 14 .4832E+05 -.1259E+06
+ 24 15 .1152E+06 -.1228E+06
+ 24 16 .9942E+05 -.6634E+05
+ 24 17 -.2065E+05 -.3104E+05
+ 24 18 .2882E+05 -.2884E+06
+ 24 19 -.9442E+05 -.7406E+05
+ 24 20 -.1293E+06 .6302E+05
+ 24 21 -.1853E+05 .3542E+05
+ 24 22 .3846E+05 .9744E+05
+ 24 23 .1126E+04 .2070E+05
+ 24 24 .2526E+05 -.3358E+05
+ 25 0 -.2955E+05 .0000E+00
+ 25 1 .7055E+05 .1079E+06
+ 25 2 .9582E+05 -.6194E+05
+ 25 3 -.1131E+05 .6435E+05
+ 25 4 -.3994E+05 .1741E+06
+ 25 5 -.1376E+06 -.2621E+06
+ 25 6 -.1468E+06 .2850E+06
+ 25 7 .1449E+06 -.1351E+05
+ 25 8 -.1402E+06 -.1263E+06
+ 25 9 .2572E+06 .2231E+06
+ 25 10 -.2815E+05 -.2202E+04
+ 25 11 .2660E+05 -.1876E+06
+ 25 12 .2558E+06 -.3322E+06
+ 25 13 -.1005E+06 .8781E+05
+ 25 14 .1025E+06 -.7239E+04
+ 25 15 .4613E+04 -.1023E+06
+ 25 16 -.2631E+05 -.9480E+05
+ 25 17 -.1336E+05 -.1166E+06
+ 25 18 -.1818E+05 .8787E+05
+ 25 19 -.2830E+06 -.7133E+05
+ 25 20 .5699E+04 .1501E+06
+ 25 21 -.2163E+04 .1777E+06
+ 25 22 .6821E+05 .3359E+05
+ 25 23 .2396E+05 .4037E+05
+ 25 24 .3700E+05 -.7455E+05
+ 25 25 .1358E+05 .9534E+04
Property changes on: mc/1D/hc/trunk/hcplates/point.j
___________________________________________________________________
Name: svn:executable
+ *
Added: mc/1D/hc/trunk/hcplates/ptrot.c
===================================================================
--- mc/1D/hc/trunk/hcplates/ptrot.c 2007-07-11 00:35:53 UTC (rev 7640)
+++ mc/1D/hc/trunk/hcplates/ptrot.c 2007-07-11 06:24:16 UTC (rev 7641)
@@ -0,0 +1,664 @@
+#include <stdio.h>
+#include "hc_ptrot.h"
+
+/*
+
+ stand-alone routine to take plate boundary file, and metadata file with no. plates + no. points on each plate
+ and a file with plate_id lat long for every lat/long on a 180x360 grid, then create a unitrot.coeff file
+ (ie coeffs for a unit rotation on each plate - needed for hcplate routine).
+
+ For Lithgow-Bertelloni's & Richards Plates extensions to Hager & O'Connell experimental code
+ O'Neill (coneill at els.qm.edu.au) & Becker (twb at usc.edu).
+
+ This has routines to: set initial defaults
+ handle the command line args (ie. just the input file name)
+ read the input file, and assign parameters
+
+ Tested against CRLB's fortran version, and working ok
+
+*/
+
+int main(int argc, char **argv)
+{
+struct hc_ptrot p[1];
+FILE *filePtr1, *filePtr2;
+char file1[HC_CHAR_LENGTH], file2[HC_CHAR_LENGTH];
+int nplate,ii,ip,m,l,k,kk,ll,mm;
+double factor,factor2,dlm1,dlm2,xx,yy,vlm1,vlm2;
+
+fprintf(stderr," Initializing....\n");
+hc_ptrot_init(p);
+xx = 0.0;
+yy = 0.0;
+
+fprintf(stderr," Reading command line args....\n");
+hc_ptrot_command_line(argc,argv,p);
+
+fprintf(stderr,"Plate boundary file is %s\n",p->boundary_file);
+fprintf(stderr,"Plate data file is %s\n",p->data_filename);
+fprintf(stderr,"Plate IDs file is %s\n",p->plateids_file);
+fprintf(stderr,"Output file is %s\n",p->unitrot_file);
+fprintf(stderr,"Default degree is %i\n",p->nlm);
+
+/* Opening up plate info file (enes) for a looksies */
+ strncpy(file1,p->data_filename,HC_CHAR_LENGTH);
+ filePtr1 = fopen(file1, "r");
+ if (filePtr1 == NULL)
+ { printf("Error loading data file. \n"); }
+ else {
+ fscanf(filePtr1, "%i", &nplate);
+ printf("nplate: %i \n",nplate);
+ for (ii=1; ii<=nplate; ii++) {
+ /* Read number of points on each plate */
+ fscanf(filePtr1, "%i", &p->num[ii]);
+ printf("npoint: %i \n", p->num[ii]);
+ }
+ }
+
+fclose(filePtr1);
+polcoeff(p,nplate);
+/*fprintf(stderr,"p->dlmx: %lf\n",p->dlmx[1][1][1][1]);
+fprintf(stderr,"p->dlmy: %lf\n",p->dlmx[2][1][4][5]);
+fprintf(stderr,"p->vlmz: %lf\n",p->vlmz[8][2][5][7]);
+polcoeef seems to be working ok*/
+torcoeff(p);
+
+for (ip=1; ip<= nplate; ip++) {
+ for (l=0; l<=p->nlm; l++) {
+ for (m=0; m<=l; m++) {
+ p->dlm[ip][1][1][l][m] = p->dlmx[ip][1][l][m];
+ p->dlm[ip][1][2][l][m] = p->dlmx[ip][2][l][m];
+ p->dlm[ip][2][1][l][m] = p->dlmy[ip][1][l][m];
+ p->dlm[ip][2][2][l][m] = p->dlmy[ip][2][l][m];
+ p->dlm[ip][3][1][l][m] = p->dlmz[ip][1][l][m];
+ p->dlm[ip][3][2][l][m] = p->dlmz[ip][2][l][m];
+
+ p->vlm[ip][1][1][l][m] = p->vlmx[ip][1][l][m];
+ p->vlm[ip][1][2][l][m] = p->vlmx[ip][2][l][m];
+ p->vlm[ip][2][1][l][m] = p->vlmy[ip][1][l][m];
+ p->vlm[ip][2][2][l][m] = p->vlmy[ip][2][l][m];
+ p->vlm[ip][3][1][l][m] = p->vlmz[ip][1][l][m];
+ p->vlm[ip][3][2][l][m] = p->vlmz[ip][2][l][m];
+ }
+ }
+}
+strncpy(file2,p->unitrot_file,HC_CHAR_LENGTH);
+ filePtr2 = fopen(file2, "w");
+ if (filePtr2 == NULL)
+ { printf("Error loading data file. \n"); }
+ else {
+ fprintf(filePtr2,"%i \n", p->nlm);
+ for (k=1; k<= nplate; k++) {
+ for (kk=1; kk <=3; kk++) {
+ for (l=0; l <= p->nlm; l++) {
+ for (m=0; m <= l; m++) {
+ factor = l*(l+1);
+ if (l != 0) {
+ dlm1 = p->dlm[k][kk][1][l][m]/factor;
+ dlm2 = p->dlm[k][kk][2][l][m]/factor;
+ fprintf(filePtr2," %i %i %le %le\n",l,m,dlm1,dlm2);
+ }
+ else {
+ fprintf(filePtr2," %i %i %le %le \n",l,m,xx,yy);
+ }
+ }
+ }
+ for (ll=0; ll <= p->nlm; ll++) {
+ for (mm = 0; mm <= ll; mm++) {
+ factor2 = ll*(ll+1);
+ vlm1 = p->vlm[k][kk][1][ll][mm]/factor2;
+ vlm2 = p->vlm[k][kk][2][ll][mm]/factor2;
+ if (ll != 0) {
+ fprintf(filePtr2,"%i %i %lf %lf\n",ll,mm,vlm1,vlm2);
+ }
+ else {
+ fprintf(filePtr2,"%i %i %lf %lf \n",ll,mm,xx,yy);
+ }
+ }
+ }
+ }
+ }
+
+}
+fclose(filePtr2);
+fprintf(stderr," Done!\n");
+return 0;
+}
+
+
+
+/* */
+
+void polcoeff(struct hc_ptrot *p, int nplate)
+{
+ FILE *filePtr3;
+ char file3[HC_CHAR_LENGTH];
+ double pbla[16][901],pblo[16][901],px[901],py[901],pz[901],decoy1,decoy2;
+ double ex,ey,ez,rlinx,rliny,rlinz,theta,phi,rlmag,rnnx,rnny,rnnz;
+ double rnmag,vxm,vym,vxp,vyp,vzm,vzp,vdotnxp,vdotnxm,vdotnyp,vdotnym,vdotnzp,vdotnzm;
+ double rx1,ry1,rz1,vranx,vrany,vranz,x;
+ int mj,mmj,np,i,k,m,l;
+
+ /*Opening up boundary file */
+ strncpy(file3,p->boundary_file,HC_CHAR_LENGTH);
+ filePtr3 = fopen(file3, "r");
+ if (filePtr3 == NULL)
+ { printf("Error loading data file. \n"); }
+ else {
+ for (mj=1; mj <=nplate; mj++) {
+ for (mmj=1; mmj<= p->num[mj]; mmj++) {
+ //fprintf(stderr," Scanning file... %i %i \n",mj,mmj);
+ fscanf(filePtr3,"%lf %lf",&pbla[mj][mmj],&pblo[mj][mmj]);
+ //printf(" Scanning file...Done \n");
+ decoy1 = pbla[mj][mmj];
+ decoy2 = pblo[mj][mmj];
+ pbla[mj][mmj] = HC_PI*(0.5 - decoy1/180.0);
+ pblo[mj][mmj] = HC_PI*decoy2/180.0;
+ }
+ }
+ }
+ /* Finished loading boundary data */
+ fclose(filePtr3);
+
+ for (np=1; np<=nplate; np++) {
+ ex=1.0;
+ ey=1.0;
+ ez=1.0;
+ for (i=1; i<= p->num[np]; i++) {
+ px[i] = sin(pbla[np][i])*cos(pblo[np][i]);
+ py[i] = sin(pbla[np][i])*sin(pblo[np][i]);
+ pz[i] = cos(pbla[np][i]);
+ }
+ for (k=1; k<= p->num[np]; k++) {
+ if (k==1) {
+ rlinx = (px[2] - px[p->num[np]])/2;
+ rliny = (py[2] - py[p->num[np]])/2;
+ rlinz = (pz[2] - pz[p->num[np]])/2;
+ }
+ if (k == p->num[np]) {
+ rlinx = (px[1] - px[p->num[np]-1])/2;
+ rliny = (py[1] - py[p->num[np]-1])/2;
+ rlinz = (pz[1] - pz[p->num[np]-1])/2;
+ }
+ if ((k != 1)&&(k != p->num[np])) {
+ rlinx = (px[k+1] - px[k-1])/2;
+ rliny = (py[k+1] - py[k-1])/2;
+ rlinz = (pz[k+1] - pz[k-1])/2;
+ }
+ theta = pbla[np][k];
+ phi = pblo[np][k];
+ rlmag = sqrt(rlinx*rlinx + rliny*rliny + rlinz*rlinz);
+ rnnx = rliny*pz[k] - rlinz*py[k];
+ rnny = rlinz*px[k] - rlinx*pz[k];
+ rnnz = rlinx*py[k] - rliny*px[k];
+ rnmag = sqrt(pow(rnnx,2) + pow(rnny,2) + pow(rnnz,2));
+
+ vxm = -ey*pz[k];
+ vxp = py[k]*ez;
+ vym = -ez*px[k];
+ vyp = pz[k]*ez;
+ vzm = -ex*py[k];
+ vzp = px[k]*ey;
+
+ if (rnmag == 0.0) {
+ vdotnxp = 0.0;
+ vdotnxm = 0.0;
+ vdotnyp = 0.0;
+ vdotnym = 0.0;
+ vdotnzp = 0.0;
+ vdotnzm = 0.0;
+ }
+ else {
+ rx1 = rnnx/rnmag;
+ ry1 = rnny/rnmag;
+ rz1 = rnnz/rnmag;
+
+ vdotnxp = rlmag*(vxp*rx1);
+ vdotnxm = rlmag*(vxm*rx1);
+ vdotnyp = rlmag*(vyp*ry1);
+ vdotnym = rlmag*(vym*ry1);
+ vdotnzp = rlmag*(vzp*rz1);
+ vdotnzm = rlmag*(vzm*rz1);
+ }
+ vranx = (vdotnyp+vdotnzm);
+ vrany = (vdotnxm+vdotnzp);
+ vranz = (vdotnxp+vdotnym);
+ x = cos(theta);
+ for (l=0; l<=p->nlm; l++) {
+ for (m=0; m<=l; m++) {
+ spharm(l,m,x,phi,p);
+ p->dlmx[np][1][l][m] += vranx*p->ylm1;
+ p->dlmx[np][2][l][m] += vranx*p->ylm2;
+ p->dlmy[np][1][l][m] += vrany*p->ylm1;
+ p->dlmy[np][2][l][m] += vrany*p->ylm2;
+ p->dlmz[np][1][l][m] += vranz*p->ylm1;
+ p->dlmz[np][2][l][m] += vranz*p->ylm2;
+ }
+ }
+ }
+
+ }
+
+ fprintf(stderr,"Finished polcoeffs \n");
+}
+
+void torcoeff(struct hc_ptrot *p) {
+ FILE *filePtr4;
+ char file4[HC_CHAR_LENGTH];
+ double vthetax[201][401],vphix[201][401],vthetay[201][401],vphiy[201][401];
+ double vthetaz[201][401],vphiz[201][401],toss1,toss2;
+ int idj,idk,idp,k,i,kj,ij,m,l,cnt0,cnt1,cnt2,id[181][361],count,toss3,toss4;
+ double dtheta,dphi,plat,plong,ethex,ethey,ethez,ephix,ephiy,ephiz,eradx,erady,eradz;
+ double dvthetaxm,dvthetaym,dvthetazm,dvthetaxp,dvthetayp,dvthetazp;
+ double dvphixp,dvphixm,dvphiyp,dvphiym,dvphizp,dvphizm;
+ double term1x,term1y,term1z,term2xp,term2yp,term2zp,term2xm,term2ym,term2zm;
+ double term3xp,term3yp,term3zp,term3xm,term3ym,term3zm,theta,avephi,x,facx;
+
+ /*Opening up boundary file */
+ strncpy(file4,p->plateids_file,HC_CHAR_LENGTH);
+ filePtr4 = fopen(file4, "r");
+ if (filePtr4 == NULL)
+ { printf("Error loading plate ids file. \n"); }
+ else {
+ count=0;
+ for (idj=1; idj<=180; idj++) {
+ for (idk=1; idk<=360; idk++) {
+ //fscanf(filePtr4,"%i %lf %lf %i %i",&id[idj][idk],&toss1,&toss2,&toss3,&toss4);
+ fscanf(filePtr4,"%i %lf %lf ",&id[idj][idk],&toss1,&toss2);
+ count++;
+ /*if (idj != toss3 || idk != toss4 || id[idj][idk]==0) {
+ fprintf(stderr," %i %i %i %i %i %i %lf %lf \n",count,idj,idk,toss3,toss4,id[idj][idk],toss1,toss2);
+ }*/
+ }
+ }
+ }
+ if (count != 64800 || toss4 != 360) {
+ fprintf(stderr,"Weird line numbers in %s, id array probably off, this sometimes cause seg faults \n",p->plateids_file);
+ }
+ fprintf(stderr,"In torcoeffs ...working\n");
+ //fprintf(stderr," id(179,355):%i %i\n",id[179][355],id[180][355]);
+ dtheta = HC_PI/180.0;
+ dphi = HC_PI/180.0;
+ for (k=1; k<=180; k++) {
+ plat = (90.0 - ((k-0.5) - 90.0))*HC_PI/180.0;
+ for (i=1; i<=360; i++) {
+ plong = (i-0.5)*HC_PI/180.0;
+ idp = id[k][i];
+ //fprintf(stderr," 1a. k=%i i=%i id=%i\n",k,i,id[k][i]); //id ok here
+
+ ethex = cos(plat)*cos(plong);
+ ethey = cos(plat)*sin(plong);
+ ethez = -sin(plat);
+
+ ephix = -sin(plong);
+ ephiy = cos(plong);
+ ephiz = 0.0;
+
+ eradx = sin(plat)*cos(plong);
+ erady = sin(plat)*sin(plong);
+ eradz = cos(plat);
+
+ vel(plat,plong,p);
+
+ /*fprintf(stderr,"Testing vel: p->tvelzm: %lf\n",p->tvelzm);
+ fprintf(stderr,"Testing vel: p->tvelxp: %lf\n",p->tvelxp);
+ seems ok to here */
+
+ vthetax[k][i] = ethez*p->tvelzm + ethey*p->tvelyp;
+ vthetay[k][i] = ethex*p->tvelxm + ethez*p->tvelzp;
+ vthetaz[k][i] = ethex*p->tvelxp + ethey*p->tvelym;
+
+ vphix[k][i] = ephiy*p->tvelyp;
+ vphiy[k][i] = ephix*p->tvelxm;
+ vphiz[k][i] = ephix*p->tvelxp + ephiy*p->tvelym;
+ }
+ }
+ //fprintf(stderr,"Testing torcoeff: vphiz: %lf\n",vphiz[1][1]); -OK
+
+ for (kj=1; kj<=180; kj++) { //3
+ plat = (90.0 - ((kj-0.5) - 90.0))*HC_PI/180.0;
+ for (ij=1; ij <=360; ij++) { //2
+ plong = (ij-0.5)*HC_PI/180.0;
+// fprintf(stderr,"plat = %lf plong = %lf \n",plat,plong);
+/* kj conditions ################################################### */
+ if ((kj==1)||(kj==180)) {
+ if (kj == 1) {
+ dvphixp = vphix[1][ij]/dtheta;
+ dvphixm = -vphix[2][ij]/dtheta;
+ dvphiyp = vphiy[1][ij]/dtheta;
+ dvphiym = -vphiy[2][ij]/dtheta;
+ dvphizp = vphiz[1][ij]/dtheta;
+ dvphizm = -vphiz[2][ij]/dtheta;
+ }
+ if (kj == 180) {
+ dvphixp = vphix[179][ij]/dtheta;
+ dvphixm = -vphix[180][ij]/dtheta;
+ dvphiyp = vphiy[179][ij]/dtheta;
+ dvphiym = -vphiy[180][ij]/dtheta;
+ dvphizp = vphiz[179][ij]/dtheta;
+ dvphizm = -vphiz[180][ij]/dtheta;
+ }
+ }
+ else {
+ dvphixp = 0.5*vphix[kj-1][ij]/dtheta;
+ dvphixm = -0.5*vphix[kj+1][ij]/dtheta;
+ dvphiyp = 0.5*vphiy[kj-1][ij]/dtheta;
+ dvphiym = -0.5*vphiy[kj+1][ij]/dtheta;
+ dvphizp = 0.5*vphiz[kj-1][ij]/dtheta;
+ dvphizm = -0.5*vphiz[kj+1][ij]/dtheta;
+ }
+
+/* end kj conditions #############################################
+ij conditions #################################################### */
+ if ((ij==1)||(ij==360)) {
+ if (ij == 1) {
+ dvthetaxp = 0.5*(vthetax[kj][2])/dphi;
+ dvthetayp = 0.5*(vthetay[kj][2])/dphi;
+ dvthetazp = 0.5*(vthetaz[kj][2])/dphi;
+
+ dvthetaxm = 0.5*(-vthetax[kj][360])/dphi;
+ dvthetaym = 0.5*(vthetay[kj][360])/dphi;
+ dvthetazm = 0.5*(vthetaz[kj][360])/dphi;
+ }
+ if (ij == 360) {
+ dvthetaxp = 0.5*(vthetax[kj][1])/dphi;
+ dvthetayp = 0.5*(vthetay[kj][1])/dphi;
+ dvthetazp = 0.5*(vthetaz[kj][1])/dphi;
+
+ dvthetaxm = 0.5*(-vthetax[kj][359])/dphi;
+ dvthetaym = 0.5*(vthetay[kj][359])/dphi;
+ dvthetazm = 0.5*(vthetaz[kj][359])/dphi;
+ }
+ }
+ else {
+ dvthetaxp = 0.5*(vthetax[kj][ij+1])/dphi;
+ dvthetayp = 0.5*(vthetay[kj][ij+1])/dphi;
+ dvthetazp = 0.5*(vthetaz[kj][ij+1])/dphi;
+
+ dvthetaxm = 0.5*(-vthetax[kj][ij-1])/dphi;
+ dvthetaym = 0.5*(vthetay[kj][ij-1])/dphi;
+ dvthetazm = 0.5*(vthetaz[kj][ij-1])/dphi;
+ }
+
+/* end ij conditions ##############################################*/
+ facx = 1.0;
+ if ((kj ==1) || (kj == 180)) {
+ facx = 0.75;
+ }
+ term1x = cos(plat)*vphix[kj][ij]*dtheta*dphi*facx;
+ term1y = cos(plat)*vphiy[kj][ij]*dtheta*dphi*facx;
+ term1z = cos(plat)*vphiz[kj][ij]*dtheta*dphi*facx;
+ term2xp = sin(plat)*dvphixp*dphi*dtheta*facx;
+ term2yp = sin(plat)*dvphiyp*dphi*dtheta*facx;
+ term2zp = sin(plat)*dvphizp*dphi*dtheta*facx;
+ term2xm = sin(plat)*dvphixm*dphi*dtheta*facx;
+ term2ym = sin(plat)*dvphiym*dphi*dtheta*facx;
+ term2zm = sin(plat)*dvphizm*dphi*dtheta*facx;
+ term3xp = -dvthetaxp*dtheta*dphi*facx;
+ term3yp = -dvthetayp*dtheta*dphi*facx;
+ term3zp = -dvthetazp*dtheta*dphi*facx;
+ term3xm = -dvthetaxm*dtheta*dphi*facx;
+ term3ym = -dvthetaym*dtheta*dphi*facx;
+ term3zm = -dvthetazm*dtheta*dphi*facx;
+
+ theta = plat;
+ avephi = plong;
+ x = cos(theta);
+ //fprintf(stderr,"Testing torcoeff: term3zm: %le\n",term3zm);
+
+ cnt0 = id[kj][ij];
+
+ for (l=0; l <= p->nlm; l++) { //33
+ for (m=0; m <= l; m++) {
+// fprintf(stderr,"%i/%i %i/%i x:%lf avephi:%lf \n",kj,ij,l,m,x,avephi); s'ok
+ spharm(l,m,x,avephi,p);
+
+ p->vlmx[cnt0][1][l][m] += (term1x*p->ylm1);
+ p->vlmx[cnt0][2][l][m] += (term1x*p->ylm2);
+ p->vlmy[cnt0][1][l][m] += term1y*p->ylm1;
+ p->vlmy[cnt0][2][l][m] += term1y*p->ylm2;
+ p->vlmz[cnt0][1][l][m] += term1z*p->ylm1;
+ p->vlmz[cnt0][2][l][m] += term1z*p->ylm2;
+
+
+
+
+/* kj conditions #################################################*/
+ if ((kj==1)||(kj==180)) {
+ if (kj ==1) {
+ cnt1 = id[1][ij];
+ cnt2 = id[2][ij];
+ p->vlmx[cnt1][1][l][m] += (term2xp*p->ylm1);
+ p->vlmx[cnt2][1][l][m] += (term2xm*p->ylm1);
+ p->vlmx[cnt1][2][l][m] += (term2xp*p->ylm2);
+ p->vlmx[cnt2][2][l][m] += (term2xm*p->ylm2);
+
+ p->vlmy[cnt1][1][l][m] += term2yp*p->ylm1;
+ p->vlmy[cnt2][1][l][m] += term2ym*p->ylm1;
+ p->vlmy[cnt1][2][l][m] += term2yp*p->ylm2;
+ p->vlmy[cnt2][2][l][m] += term2ym*p->ylm2;
+
+ p->vlmz[cnt1][1][l][m] += term2zp*p->ylm1;
+ p->vlmz[cnt2][1][l][m] += term2zm*p->ylm1;
+ p->vlmz[cnt1][2][l][m] += term2zp*p->ylm2;
+ p->vlmz[cnt2][2][l][m] += term2zm*p->ylm2;
+
+ }
+ if (kj ==180) {
+ cnt1 = id[179][ij];
+ cnt2 = id[180][ij];
+ p->vlmx[cnt1][1][l][m] += (term2xp*p->ylm1);
+ p->vlmx[cnt2][1][l][m] += (term2xm*p->ylm1);
+ p->vlmx[cnt1][2][l][m] += (term2xp*p->ylm2);
+ p->vlmx[cnt2][2][l][m] += (term2xm*p->ylm2);
+
+ p->vlmy[cnt1][1][l][m] += term2yp*p->ylm1;
+ p->vlmy[cnt2][1][l][m] += term2ym*p->ylm1;
+ p->vlmy[cnt1][2][l][m] += term2yp*p->ylm2;
+ p->vlmy[cnt2][2][l][m] += term2ym*p->ylm2;
+
+ p->vlmz[cnt1][1][l][m] += term2zp*p->ylm1;
+ p->vlmz[cnt2][1][l][m] += term2zm*p->ylm1;
+ p->vlmz[cnt1][2][l][m] += term2zp*p->ylm2;
+ p->vlmz[cnt2][2][l][m] += term2zm*p->ylm2;
+
+ }
+ }
+ else {
+
+ cnt1 = id[kj-1][ij];
+ cnt2 = id[kj+1][ij];
+
+ p->vlmx[cnt1][1][l][m] += (term2xp*p->ylm1);
+ p->vlmx[cnt2][1][l][m] += (term2xm*p->ylm1); // this bad boy seg faults if the input file is not long enough at kj/ij:179/352 cnt2:7 l:20 m:20
+ p->vlmx[cnt1][2][l][m] += (term2xp*p->ylm2);
+ p->vlmx[cnt2][2][l][m] += (term2xm*p->ylm2);
+
+ p->vlmy[cnt1][1][l][m] += term2yp*p->ylm1;
+ p->vlmy[cnt2][1][l][m] += term2ym*p->ylm1;
+ p->vlmy[cnt1][2][l][m] += term2yp*p->ylm2;
+ p->vlmy[cnt2][2][l][m] += term2ym*p->ylm2;
+
+ p->vlmz[cnt1][1][l][m] += term2zp*p->ylm1;
+ p->vlmz[cnt2][1][l][m] += term2zm*p->ylm1;
+ p->vlmz[cnt1][2][l][m] += term2zp*p->ylm2;
+ p->vlmz[cnt2][2][l][m] += term2zm*p->ylm2;
+ }
+/* end kj conditions ###########################################*/
+/*ij conditions ################################################*/
+ if ((ij==1)||(ij==360)) {
+ if (ij==1) {
+ cnt1 = id[kj][2];
+ cnt2 = id[kj][360];
+ //fprintf(stderr," 2. (ij:%i) cnt2:%i l:%i m:%i vlmx:%le term3xm:%le ylm1:%le \n",ij,cnt2,l,m,p->vlmx[cnt2][1][l][m],term3xm,p->ylm1);
+ p->vlmx[cnt1][1][l][m] += (term3xp*p->ylm1);
+ p->vlmx[cnt2][1][l][m] += (term3xm*p->ylm1);
+ p->vlmx[cnt1][2][l][m] += (term3xp*p->ylm2);
+ p->vlmx[cnt2][2][l][m] += (term3xm*p->ylm2);
+
+ p->vlmy[cnt1][1][l][m] += term3yp*p->ylm1;
+ p->vlmy[cnt2][1][l][m] += term3ym*p->ylm1;
+ p->vlmy[cnt1][2][l][m] += term3yp*p->ylm2;
+ p->vlmy[cnt2][2][l][m] += term3ym*p->ylm2;
+
+ p->vlmz[cnt1][1][l][m] += term3zp*p->ylm1;
+ p->vlmz[cnt2][1][l][m] += term3zm*p->ylm1;
+ p->vlmz[cnt1][2][l][m] += term3zp*p->ylm2;
+ p->vlmz[cnt2][2][l][m] += term3zm*p->ylm2;
+ }
+ if (ij == 360) {
+ cnt1 = id[kj][1];
+ cnt2 = id[kj][359];
+ p->vlmx[cnt1][1][l][m] += (term3xp*p->ylm1);
+ p->vlmx[cnt2][1][l][m] += (term3xm*p->ylm1);
+ p->vlmx[cnt1][2][l][m] += (term3xp*p->ylm2);
+ p->vlmx[cnt2][2][l][m] += (term3xm*p->ylm2);
+
+ p->vlmy[cnt1][1][l][m] += term3yp*p->ylm1;
+ p->vlmy[cnt2][1][l][m] += term3ym*p->ylm1;
+ p->vlmy[cnt1][2][l][m] += term3yp*p->ylm2;
+ p->vlmy[cnt2][2][l][m] += term3ym*p->ylm2;
+
+ p->vlmz[cnt1][1][l][m] += term3zp*p->ylm1;
+ p->vlmz[cnt2][1][l][m] += term3zm*p->ylm1;
+ p->vlmz[cnt1][2][l][m] += term3zp*p->ylm2;
+ p->vlmz[cnt2][2][l][m] += term3zm*p->ylm2;
+ }
+ }
+ else {
+ cnt1 = id[kj][ij+1];
+ cnt2 = id[kj][ij-1];
+ p->vlmx[cnt1][1][l][m] += (term3xp*p->ylm1);
+ p->vlmx[cnt2][1][l][m] += (term3xm*p->ylm1);
+ p->vlmx[cnt1][2][l][m] += (term3xp*p->ylm2);
+ p->vlmx[cnt2][2][l][m] += (term3xm*p->ylm2);
+
+ p->vlmy[cnt1][1][l][m] += term3yp*p->ylm1;
+ p->vlmy[cnt2][1][l][m] += term3ym*p->ylm1;
+ p->vlmy[cnt1][2][l][m] += term3yp*p->ylm2;
+ p->vlmy[cnt2][2][l][m] += term3ym*p->ylm2;
+
+ p->vlmz[cnt1][1][l][m] += term3zp*p->ylm1;
+ p->vlmz[cnt2][1][l][m] += term3zm*p->ylm1;
+ p->vlmz[cnt1][2][l][m] += term3zp*p->ylm2;
+ p->vlmz[cnt2][2][l][m] += term3zm*p->ylm2;
+ }
+
+ /*if (((cnt0==7)||(cnt1=7))&&((l=15)&&(m==15))){
+ fprintf(stderr," %i/%i %i/%i %i ->vlmx=%lf term1x=%le ylm1=%le \n",kj,ij,l,m,cnt0,p->vlmx[7][1][l][m],term1x,p->ylm1); // term1x & ylm1 are good at end but bad at start
+ }*/
+/* end ij conditions #######################################################*/
+ }
+ } //33
+ } //2
+ } //3
+ //fprintf(stderr," ->vlmx=%le vlmy=%le\n",p->vlmx[1][1][1][1],p->vlmy[1][1][3][3]); //Not ok so far, test above
+ fprintf(stderr,"Finished torcoeffs \n");
+
+}
+
+void vel(double plat, double plong, struct hc_ptrot *p)
+{
+double tex,tey,tez,tpx,tpy,tpz;
+
+tex = 1.0;
+tey = 1.0;
+tez = 1.0;
+tpx = sin(plat)*cos(plong);
+tpy = sin(plat)*sin(plong);
+tpz = cos(plat);
+
+p->tvelxm = -tey*tpz;
+p->tvelym = -tez*tpx;
+p->tvelzm = -tex*tpy;
+
+p->tvelxp = tez*tpy;
+p->tvelyp = tex*tpz;
+p->tvelzp = tey*tpx;
+
+}
+
+
+void spharm(int l, int m, double x, double phi, struct hc_ptrot *p)
+{
+ int lmm, lpm,jj,ii,kk,sign;
+ double top,down,fact,arg,R,opi;
+
+ lmm = l-m;
+ lpm = l+m;
+
+ top = 1.0;
+ down = 1.0;
+ jj=0;
+ for (ii=1; ii<=lmm; ii++) {
+ //fprintf(stderr," -> top %lf jj %i \n",top,jj);
+ jj++;
+ top *= jj;
+ //fprintf(stderr," ---> top %lf jj %i \n",top,jj);
+ }
+
+ kk=0;
+ for (ii=1; ii<=lpm; ii++) {
+ kk++;
+ down *= kk;
+ }
+
+ fact = top/down;
+ arg = (2*l+1.0)*fact;
+ R = sqrt(arg);
+ //fprintf(stderr," lmm %i lpm %i top: %lf down: %lf fact: %lf arg: %lf \n",lmm,lpm,top,down,fact,arg);
+ if (m > 0) {
+ R = sqrt(2.0*arg);
+ }
+ sign = pow(-1,m);
+ opi = 1/(4.0*HC_PI);
+ plgndr(l,m,x,p);
+ //fprintf(stderr,"sign: %i opi %lf R %lf plm: %lf m: %i phi %lf \n",sign,opi,R,p->plm,m,phi);
+ p->ylm1 = sign*opi*R*p->plm*cos(m*phi);
+ p->ylm2 = sign*opi*R*p->plm*sin(m*phi);
+ //fprintf(stderr," ... l: %i m: %i x: %lf plm: %lf ylm1: %lf ylm2: %lf \n",l,m,x,p->plm,p->ylm1,p->ylm2);
+
+}
+
+void plgndr(int l, int m, double x, struct hc_ptrot *p) {
+ int i,ll,n;
+ double somx2,fact,plgnd,pmmp1,pmm,pmm2,pll;
+
+ if ((m < 0)||(m>l)||(fabs(x)>1)) {
+ printf("Screwing argument in plgndr - ABORT!!\n");
+ exit(-1);
+ }
+
+ pmm = 1.0;
+ if (m > 0) {
+ somx2 = sqrt((1.0-x)*(1.0+x));
+ fact = 1.0;
+ for (i=1; i<=m; i++) {
+ pmm2 = pmm;
+ pmm = (-pmm2)*fact*somx2;
+ fact += 2;
+ }
+ }
+ //fprintf(stderr," pmm %lf fact %lf somx %lf m %i \n",pmm,fact,somx2,m);
+ if (l == m) {
+ plgnd = pmm;
+ }
+ else {
+ pmmp1 = x*(2*m+1)*pmm;
+ n = m+1;
+ if (l == n) {
+ plgnd = pmmp1;
+ }
+ else {
+ n = m+2;
+ for (ll=n; ll<=l; ll++) {
+ pll = (x*(2*ll - 1)*pmmp1 - (ll+m-1)*pmm)/(ll-m);
+ pmm = pmmp1;
+ pmmp1=pll;
+ }
+ plgnd = pll;
+ }
+ }
+ p->plm = plgnd;
+}
+
Added: mc/1D/hc/trunk/hcplates/read_unitrots_get_coeff.c
===================================================================
--- mc/1D/hc/trunk/hcplates/read_unitrots_get_coeff.c 2007-07-11 00:35:53 UTC (rev 7640)
+++ mc/1D/hc/trunk/hcplates/read_unitrots_get_coeff.c 2007-07-11 06:24:16 UTC (rev 7641)
@@ -0,0 +1,108 @@
+#include <math.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include "hcplates.h"
+
+/* This subroutine reads in a file with all the unit rotation velocities for each plate
+add up the products of the unit rotation velocities and the shear stress
+c********** Green functions (poloidal and toroidal) for each plate and each
+c********** orthogonal rotation direction
+
+unitrots_filename= name of file containing unitrots SH coefficients.
+n=no. layers
+r = radii
+visc = viscosity structure
+
+L= degree
+m = SH index
+ua, uc poloidal green's functions
+va vc toroidal green's functions
+
+Needs polvel & torvel. And a file with unit rotation coefficients.
+
+TESTED AGAINST FORTRAN AND SEEMS OK
+
+*/
+
+void read_unitrots_get_coeff(struct hc_plates_params *plates, struct hc_plates_arrays *A, char unitrots_filename[])
+{
+ FILE *filePtr;
+ int Lplt,count;
+ double gpol[plates->LDIM1],gtor[plates->LDIM1],gfact;
+ double ua[5], uc[5], va[3], vc[3];
+ int Ldum, mdum;
+ double cvel,svel;
+ int L,iplt,idir,ii,k,m;
+
+ /* read file unitrot.coeffs - firstline is Lplt=max L. Then format is Ldum, mdum, cvel, svel */
+ fprintf(stderr,"Unitrots filename=%s\n",unitrots_filename);
+ filePtr = fopen(unitrots_filename, "r");
+ if (filePtr == NULL)
+ { printf("Error opening file. \n"); }
+ else
+ {
+ /* Get Lplt on first line */
+ fscanf(filePtr, "%d", &Lplt);
+ plates->Lplt = Lplt;
+ printf(" Lplt: %d %d\n",plates->Lplt,Lplt);
+ /* Before we go any further, get toroidal and poloidal Green functions
+ up to degree Lplt */
+ gpol[1]=0.0;
+ gtor[1]=0.0;
+ for (L=1; L<=Lplt; L++) {
+ polvel(plates,L,plates->n,ua,uc);
+ torvel(plates,L,plates->n,va,vc);
+ gpol[L+1]=ua[4];
+ gtor[L+1]=va[2];
+ //printf(" setting gfact: L=%d gpol=%lf gtor=%lf ua4=%lf va4=%lf\n",L,gpol[L+1],gtor[L+1],ua[4],va[2]); //good till here
+ }
+ /* c*** loop on plate number, rotation direction: accumulate shear poloidal and
+c*** toroidal shear stress coefficients ('y4ex' and 'y10ex')
+c*** note that a factor of visc0/erad has been left out of 'gfact', i.e., 'y4ex' and 'y10ex',
+c*** since it ultimately multiplies both sides of the final matrix equation
+ */
+ count = 0;
+ for (iplt=1; iplt <= plates->NPLT; iplt++) {
+ for (idir=1; idir<=3; idir++) {
+ ii=3*(iplt-1)+idir;
+ /*Poloidal */
+ gfact=0.0;
+ for (L=0; L<=Lplt; L++) {
+ gfact=gpol[L+1];
+ for (m=0; m<=L; m++) {
+ fscanf(filePtr, " %d %d %lf %lf", &Ldum, &mdum, &cvel, &svel); /*check this input */
+ k=(L+2)*(L+1)/2-m; /*ambiguous*/
+ /*printf("P: iplt %d L %d m %d k %d __ Ldum %d mdum %d __ cvel %lf svel %lf\n",iplt,L,m,k,Ldum,mdum,cvel,svel); */
+
+ A->y4ex[ii][k][1]=cvel*gfact;
+ A->y4ex[ii][k][2]=svel*gfact;
+ //printf("%d %d/%d/%dP/%d_%d/%d cvel=%lf svel=%lf gfact=%lf y4ex1=%lf y4ex2=%lf\n",count,iplt,idir,L,m,ii,k,cvel,svel,gfact,A->y4ex[ii][k][1],A->y4ex[ii][k][2]);
+ count++;
+ }
+ }
+ /*Toroidal*/
+ for (L=0; L<=Lplt; L++) {
+ gfact=gtor[L+1];
+ for (m=0; m<=L; m++) {
+ fscanf(filePtr, "%d %d %lf %lf",&Ldum, &mdum, &cvel, &svel); /* check */
+ /*printf("T: iplt %d L %d m %d Ldum %d mdum %d cvel %lf svel %lf\n",iplt,L,m,Ldum,mdum,cvel,svel); */
+ k=(L+2)*(L+1)/2-m; /*ambiguous*/
+ A->y10ex[ii][k][1]=cvel*gfact;
+ A->y10ex[ii][k][2]=svel*gfact;
+ // printf("%d %d/%d/%dT/%d_%d/%d y10ex[1,2]= [%le] [%le] cvel[%le] sv[%le] gfact[%le]\n",count,iplt,idir,L,m,ii,k,A->y10ex[ii][k][1],A->y10ex[ii][k][2],cvel,svel,gfact);
+ count++;
+ }
+ }
+ }
+ }
+ }
+ printf("\n");
+ printf(" Line count is %d \n",count);
+ printf("\n");
+ fclose(filePtr);
+
+}
+
+
+
+
Added: mc/1D/hc/trunk/hcplates/run_example.mk
===================================================================
--- mc/1D/hc/trunk/hcplates/run_example.mk 2007-07-11 00:35:53 UTC (rev 7640)
+++ mc/1D/hc/trunk/hcplates/run_example.mk 2007-07-11 06:24:16 UTC (rev 7641)
@@ -0,0 +1,9 @@
+#!/bin/bash
+
+hc_findplate -B data -D enes -O plates.id
+
+hc_ptrot -B data -D enes -P plates.id -O unitrots_new.coeffs
+
+hcplates -L point.j -T plates_ids.ixz -U unitrots_new.coeffs -Op mypoles.out -Ov myvels.out -P parameter_file.default
+
+
Property changes on: mc/1D/hc/trunk/hcplates/run_example.mk
___________________________________________________________________
Name: svn:executable
+ *
Added: mc/1D/hc/trunk/hcplates/solve_rot.c
===================================================================
--- mc/1D/hc/trunk/hcplates/solve_rot.c 2007-07-11 00:35:53 UTC (rev 7640)
+++ mc/1D/hc/trunk/hcplates/solve_rot.c 2007-07-11 06:24:16 UTC (rev 7641)
@@ -0,0 +1,138 @@
+#include <math.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include "hcplates.h"
+
+/* Routine to solve for plate rotation components
+*fin, *fexs, *srta, *srpa, *trta, *trpa, *trra
+ */
+
+void solve_rot( struct hc_plates_params *plates, struct hc_plates_arrays *A )
+{
+ HC_PREC tol,wmax,wmin,wdum,resx,bmag,ratw;
+ int jk, jkk, mkk, NPDIM, i, izero, NLAT, NLONG, ilat, ilon,NPLT;
+ HC_PREC sumt,sump,dtheta,theta,ctheta,stheta,dphi,phi,area,rtheta,id2,rphi,cphi,sphi,rrt,rrp;
+ int iplt,idir,ii,j,ind,ind1;
+ HC_PREC tnt,tnp,tnr,con,e1,e2,e3,e4,e5;
+
+ NPDIM = plates->NPDIM;
+ NLAT = plates->NLAT;
+ NLONG = plates->NLONG;
+ NPLT = plates->NPLT;
+
+/* First condition the ww matrix, after singular value decomp */
+printf(" Conditiong the ww matrix \n");
+ tol=1.0e-4;
+ for (jk=1; jk<=NPDIM; jk++) {
+ A->fins[jk]=A->fin[jk];
+ A->rots[jk]=A->fins[jk];
+ }
+ for (jkk=1; jkk<=NPDIM; jkk++) {
+ for (mkk=1; mkk<=NPDIM; mkk++) {
+ A->fexs[jkk][mkk] = A->fex[jkk][mkk];
+ }
+ }
+
+
+ /* These are gonna take some work...*/
+ printf(" Calling svdcmp, fexs11=%lf fexs[%i][%i]=%lf fexs[1][22]=%lf\n",A->fexs[1][1],plates->NPDIM,plates->NPDIM,A->fexs[plates->NPDIM][plates->NPDIM],A->fexs[1][22]);
+ //printf(" WW=%le \n",A->WW[30]);
+ svdcmp(plates,A,NPDIM,NPDIM); /*This had 2 too many NPDIMS again ... */
+ //printf(" WW=%le \n",A->WW[30]);
+ printf(" Done svdcmp\n");
+ wmax = -1.0e15;
+ wmin = 1.0e15;
+
+ for (i=1; i<=NPDIM; i++) {
+ if (wmax < A->WW[i]) {
+ wmax = A->WW[i];
+ }
+ if (wmin < A->WW[i]) {
+ wmin = A->WW[i];
+ }
+ }
+ izero = 0;
+ for (j=1; j<=NPDIM; j++) {
+ wdum = A->WW[j]/wmax;
+ if (wdum <= tol ) {
+ /* Output to infomat (? wanna ?) */
+ //printf(" j:%i WW:%le wmax:%le wdum:%le",j,A->WW[j],wmax,wdum);
+ A->WW[j] = 0.0;
+ izero++;
+ }
+ }
+
+ ratw = wmin/wmax;
+ /* Write to infomat ?? */
+
+ printf(" Solve for rotation components: svbsb\n");
+ /* Now solve for rotation components */
+ //printf(" 1. rots[3]=%le fexs22=%le WW=%le VV=%le\n",A->rots[3],A->fexs[2][2],A->WW[30],A->VV[2][2]);
+ svbksb(plates,A,NPDIM,NPDIM); /* This had too many args (NPDIMS) - check for consistency... */
+//printf(" 2. rots[3]=%le fexs22=%le WW=%le VV=%le\n",A->rots[3],A->fexs[2][2],A->WW[30],A->VV[2][2]);
+ printf(" Calling residuals\n");
+ crlb_residual(A,NPDIM,NPDIM,&resx,&bmag);
+ /* Write infomat output ?? */
+
+ sumt = 0.0;
+ sumt = 0.0;
+ dtheta = (plates->dd)*HC_PI/180;
+ dphi = dtheta;
+ theta = 180.5*dtheta;
+
+ printf(" Looping through lats/longs\n");
+ for (ilat=1;ilat<=NLAT;ilat++) {
+ theta -= dtheta;
+ ctheta = cos(theta);
+ stheta = sin(theta);
+ phi = -0.5*dphi;
+ area = stheta*dtheta*dphi;
+ rtheta = ilat - 90.5;
+ printf(" Solving rots - lat=%d\n",ilat);
+ for (ilon=1;ilon<=NLONG;ilon++) {
+ id2 = A->idp[ilat][ilon];
+ phi += dphi;
+ rphi = ilon - 0.5;
+ cphi = cos(phi);
+ sphi = sin(phi);
+ rrt = 0.0;
+ rrp = 0.0;
+
+ /*Compute coordinate conversion factors */
+
+ e1 = area*ctheta*cphi;
+ e2 = area*sphi;
+ e3 = area*ctheta*sphi;
+ e4 = -area*cphi;
+ e5 = -area*stheta;
+
+ for (iplt=1;iplt<=NPLT;iplt++) {
+ for (idir=1;idir<=3;idir++) {
+ ii = 3*(iplt-1) + idir;
+ rrt += A->srta[ilat][ilon][ii] * A->rots[ii];
+ rrp += A->srpa[ilat][ilon][ii] * A->rots[ii];
+ }
+ }
+ tnt = A->trta[ilat][ilon] - rrt;
+ tnp = A->trpa[ilat][ilon] - rrp;
+ tnr = A->trra[ilat][ilon];
+ //printf(" %i/%i tnp: %le trp:%le rrp:%le\n",ilat,ilon,tnp,A->trpa[ilat][ilon],rrp);
+ con = 1.0e-7;
+ ind1 = 3*(id2 - 1);
+ A->finet[ind1+1] += tnp*e1 + tnt*e2;
+ A->finet[ind1+2] += tnp*e3 + tnt*e4;
+ A->finet[ind1+3] += tnp*e5;
+
+ /* Accumulate torques to see if net torque is zero */
+
+ /* Write net shear stress: out.netstress (?) */
+ /* Write resisting shear stress : out.resstress (?) */
+ }
+ //printf(" tnp=%le e1:%le e2:%le e3:%le e4:%le e5:%le\n",tnp,e1,e2,e3,e4,e5);
+ }
+
+ for (i=1;i<=NPLT;i++) {
+ ind = 3*(i-1);
+ printf("FINET %i %le %le %le \n",i,A->finet[ind+1],A->finet[ind+2],A->finet[ind+3]);
+ }
+}
Added: mc/1D/hc/trunk/hcplates/svbksb.c
===================================================================
--- mc/1D/hc/trunk/hcplates/svbksb.c 2007-07-11 00:35:53 UTC (rev 7640)
+++ mc/1D/hc/trunk/hcplates/svbksb.c 2007-07-11 06:24:16 UTC (rev 7641)
@@ -0,0 +1,31 @@
+#define NRANSI
+#include "nrutil.h"
+#include "hcplates.h"
+
+void svbksb(struct hc_plates_params *plates, struct hc_plates_arrays *A, int m, int n)
+{
+ int jj,j,i;
+ double s,*tmp;
+
+ tmp= (double *) c_alloc1d(n+1); /*Complaing about cast */
+ for (j=1;j<=n;j++) {
+ s=0.0;
+ if (A->WW[j] > 1e-6) {
+ for (i=1;i<=m;i++) {
+ s += A->fexs[i][j]*A->fins[i];
+ }
+ s /= A->WW[j];
+ }
+ tmp[j]=s;
+ printf("%i...tmp=%le ww=%le fx=%le fin=%le\n",j,tmp[j],A->WW[j],A->fexs[j][j],A->fins[j]);
+ }
+ for (j=1;j<=n;j++) {
+ s=0.0;
+ for (jj=1;jj<=n;jj++) {
+ s += A->VV[j][jj]*tmp[jj];
+ }
+ A->rots[j]=s;
+ }
+ Free1D(tmp);
+}
+#undef NRANSI
Added: mc/1D/hc/trunk/hcplates/svdcmp.c
===================================================================
--- mc/1D/hc/trunk/hcplates/svdcmp.c 2007-07-11 00:35:53 UTC (rev 7640)
+++ mc/1D/hc/trunk/hcplates/svdcmp.c 2007-07-11 06:24:16 UTC (rev 7641)
@@ -0,0 +1,238 @@
+#include <math.h>
+#define NRANSI
+#include "nrutil.h"
+#include "hcplates.h"
+
+double pythag( double side_a, double side_b )
+{
+ return( sqrt( (side_a*side_a) + (side_b*side_b ))) ;
+}
+
+
+void svdcmp(struct hc_plates_params *plates, struct hc_plates_arrays *A, int m, int n)
+{
+ int flag,i,ii,its,j,jj,k,l,nm;
+ double anorm,c,f,g,h,s,scale,x,y,z, *rv1;
+
+ rv1 = (double *) c_alloc1d(n+1); /*Complains abour cast */
+ printf(" Allocated rv1 ok\n");
+ g=scale=anorm=0.0;
+ for (i=1;i<=n;i++) {
+ l=i+1;
+ rv1[i]=scale*g;
+ g=s=scale=0.0;
+ if (i <= m) {
+ for (k=i;k<=m;k++) {
+ scale += fabs(A->fexs[k][i]);
+ }
+ if (scale != 0.0) {
+ for (k=i;k<=m;k++) {
+ A->fexs[k][i] /= scale;
+ s += A->fexs[k][i]*A->fexs[k][i];
+ }
+ f=A->fexs[i][i];
+ g = -SIGN(sqrt(s),f);
+ h=f*g-s;
+ A->fexs[i][i]=f-g;
+ for (j=l;j<=n;j++) {
+ s=0.0;
+ for (k=i;k<=m;k++) {
+ if (A->fexs[k][i] && A->fexs[k][j]) {
+ s += A->fexs[k][i]*A->fexs[k][j];
+ }
+ else {
+ printf(" bad fexs here\n");
+ }
+ }
+ f=s/h;
+ for (k=i;k<=m;k++) {
+ A->fexs[k][j] += f*A->fexs[k][i];
+ }
+ }
+ for (k=i;k<=m;k++) {
+ A->fexs[k][i] *= scale;
+ }
+ }
+ }
+ A->WW[i] = scale*g;
+ g=s=scale=0.0;
+ if ((i <= m) && (i != n)) {
+ for (k=l;k<=n;k++) {
+ scale += fabs(A->fexs[i][k]);
+ }
+ if (scale != 0.0) {
+ for (k=l;k<=n;k++) {
+ A->fexs[i][k] /= scale;
+ s += A->fexs[i][k]*A->fexs[i][k];
+ }
+ f=A->fexs[i][l];
+ g = -SIGN(sqrt(s),f);
+ h=f*g-s;
+ A->fexs[i][l]=f-g;
+ for (k=l;k<=n;k++) {
+ rv1[k]=A->fexs[i][k]/h;
+ }
+ for (j=l;j<=m;j++) {
+ s=0.0;
+ for (k=l;k<=n;k++) {
+ s += A->fexs[j][k]*A->fexs[i][k];
+ }
+ for (k=l;k<=n;k++) {
+ A->fexs[j][k] += s*rv1[k];
+ }
+ }
+ for (k=l;k<=n;k++) {
+ A->fexs[i][k] *= scale;
+ }
+ }
+ }
+ anorm=FMAX(anorm,(fabs(A->WW[i])+fabs(rv1[i])));
+ }
+ for (i=n;i>=1;i--) {
+ if (i < n) {
+ if (g != 0.0) {
+ for (j=l;j<=n;j++){
+ A->VV[j][i]=(A->fexs[i][j]/A->fexs[i][l])/g;
+ }
+ for (j=l;j<=n;j++) {
+ s=0.0;
+ for (k=l;k<=n;k++) {
+ s += A->fexs[i][k]*A->VV[k][j];
+ }
+ for (k=l;k<=n;k++) {
+ A->VV[k][j] += s*A->VV[k][i];
+ }
+ }
+ }
+ for (j=l;j<=n;j++) {
+ A->VV[i][j]=A->VV[j][i]=0.0;
+ }
+ }
+ A->VV[i][i]=1.0;
+ g=rv1[i];
+ l=i;
+ }
+ ii = IMIN(m,n);
+ for (i=ii;i>=1;i--) {
+ l=i+1;
+ g=A->WW[i];
+ for (j=l;j<=n;j++) {
+ A->fexs[i][j]=0.0;
+ }
+ if (g !=0) {
+ g=1.0/g;
+ for (j=l;j<=n;j++) {
+ s=0.0;
+ for (k=l;k<=m;k++) {
+ s += A->fexs[k][i]*A->fexs[k][j];
+ }
+ f=(s/A->fexs[i][i])*g;
+ for (k=i;k<=m;k++) {
+ A->fexs[k][j] += f*A->fexs[k][i];
+ }
+ }
+ for (j=i;j<=m;j++) A->fexs[j][i] *= g;
+ } else for (j=i;j<=m;j++) A->fexs[j][i]=0.0;
+ ++(A->fexs[i][i]);
+ }
+ for (k=n;k>=1;k--) {
+ for (its=1;its<=30;its++) {
+ flag=1;
+ for (l=k;l>=1;l--) {
+ nm=l-1;
+ if ((float)(fabs(rv1[l])+anorm) == anorm) {
+ flag=0;
+ break;
+ }
+ if ((float)(fabs(A->WW[nm])+anorm) == anorm) break;
+ }
+ if (flag) {
+ c=0.0;
+ s=1.0;
+ for (i=l;i<=k;i++) {
+ f=s*rv1[i];
+ rv1[i]=c*rv1[i];
+ if ((float)(fabs(f)+anorm) == anorm) break; //is this working ok?
+ g=A->WW[i];
+ h=pythag(f,g);
+ A->WW[i]=h; //ici?
+ h=1.0/h;
+ c=g*h;
+ s = -f*h;
+ for (j=1;j<=m;j++) {
+ y=A->fexs[j][nm];
+ z=A->fexs[j][i];
+ A->fexs[j][nm]=y*c+z*s;
+ A->fexs[j][i]=z*c-y*s;
+ }
+ }
+ }
+ flag = 0;
+ z=A->WW[k];
+ if (l == k) {
+ if (z < 0.0) {
+ A->WW[k] = -z;
+ for (j=1;j<=n;j++) A->VV[j][k] = -A->VV[j][k];
+ }
+ flag = 1;
+ break; /// This should break out completely!
+ }
+ if (its == 30) {
+ printf("no convergence in 30 svdcmp iterations");
+ return;
+ }
+ if (flag < 1) {
+ x=A->WW[l];
+ nm=k-1;
+ y=A->WW[nm];
+ g=rv1[nm];
+ h=rv1[k];
+ f=((y-z)*(y+z)+(g-h)*(g+h))/(2.0*h*y);
+ g=pythag(f,1.0);
+ f=((x-z)*(x+z)+h*((y/(f+SIGN(g,f)))-h))/x;
+ c=s=1.0;
+ for (j=l;j<=nm;j++) {
+ i=j+1;
+ g=rv1[i];
+ y=A->WW[i];
+ h=s*g;
+ g=c*g;
+ z=pythag(f,h);
+ rv1[j]=z;
+ c=f/z;
+ s=h/z;
+ f=x*c+g*s;
+ g = g*c-x*s;
+ h=y*s;
+ y *= c;
+ for (jj=1;jj<=n;jj++) {
+ x=A->VV[jj][j];
+ z=A->VV[jj][i];
+ A->VV[jj][j]=x*c+z*s;
+ A->VV[jj][i]=z*c-x*s;
+ }
+ z=pythag(f,h);
+ A->WW[j]=z;
+ if (z != 0.0) {
+ z=1.0/z;
+ c=f*z;
+ s=h*z;
+ }
+ f=c*g+s*y;
+ x=c*y-s*g;
+ for (jj=1;jj<=m;jj++) {
+ y=A->fexs[jj][j];
+ z=A->fexs[jj][i];
+ A->fexs[jj][j]=y*c+z*s;
+ A->fexs[jj][i]=z*c-y*s;
+ }
+ }
+ rv1[l]=0.0;
+ rv1[k]=f;
+ A->WW[k]=x;
+ }
+ }
+ }
+ Free1D(rv1);
+}
+#undef NRANSI
Added: mc/1D/hc/trunk/hcplates/zero_arrays.c
===================================================================
--- mc/1D/hc/trunk/hcplates/zero_arrays.c 2007-07-11 00:35:53 UTC (rev 7640)
+++ mc/1D/hc/trunk/hcplates/zero_arrays.c 2007-07-11 06:24:16 UTC (rev 7641)
@@ -0,0 +1,87 @@
+#include <stdio.h>
+#include <math.h>
+#include <stdlib.h>
+#include "hcplates.h"
+
+
+/*
+ These are just a few simple routines to zero all the major arrays we will encounter
+ Note: all these arrays are being initialized with plates->KDIM not MAX_KDIM
+ First do shear stress coefficient arrays
+
+*/
+
+void zero_arrays(struct hc_plates_params *plates,struct hc_plates_arrays *A)
+{
+ int i,j,k,KDIM,NPDIM,LDIM1;
+
+ KDIM = plates->KDIM;
+ NPDIM = plates->NPDIM;
+ LDIM1 = plates->LDIM1;
+
+ printf("SS arrays: 1\n");
+ for (i=1;i<=KDIM;i++) {
+ for (j=1;j<3;j++) {
+ A->y4in[i][j] = 0.0;
+ A->y3in[i][j] = 0.0;
+ A->y2in[i][j] = 0.0;
+ A->z3in[i][j] = 0.0;
+ }
+ }
+ printf(" 2\n");
+ for (i=1;i<=NPDIM;i++) {
+ for (j=1;j<=KDIM;j++) {
+ for (k=1;k<3;k++) {
+ A->y4ex[i][j][k] = 0.0;
+ A->y10ex[i][j][k] = 0.0;
+ }
+ }
+ }
+
+
+ printf("SH arrays: 1\n");
+
+ for (i=1;i<=KDIM;i++) {
+ A->p[i] = 0.0;
+ A->dpdt[i] = 0.0;
+ A->pbyst[i] = 0.0;
+ for (j=1;j<plates->NLAT;j++) {
+ A->torp[j][i] = 0.0;
+ }
+ }
+ printf(" 2\n");
+
+ for (i=1; i<=LDIM1; i++) {
+ A->cm[i] = 0.0;
+ A->sm[i] = 0.0;
+ }
+
+ printf("Torque arrays: 1\n");
+ for (i=1;i <= plates->NPDIM; i++) {
+ A->srt[i] = 0.0;
+ A->srp[i] = 0.0;
+ A->fin[i] = 0.0;
+ A->finet[i] = 0.0;
+ A->fins[i] = 0.0;
+ A->rots[i] = 0.0;
+ A->ww[i] = 0.0;
+ for (j=1; j <= plates->NPDIM; j++) {
+ A->fex[i][j] = 0.0;
+ A->fexs[i][j] = 0.0;
+ A->vv[i][j] = 0.0;
+ /* printf(" Zeroing: i=%d j=%d fexs=%lf\n",i,j,A->fexs[i][j]);*/
+ }
+ }
+ printf(" 2\n");
+ for (i=1;i <= plates->NLAT; i++) {
+ for (j=1; j <= plates->NLONG; j++) {
+ A->trta[i][j] = 0.0;
+ A->trpa[i][j] = 0.0;
+ A->trra[i][j] = 0.0;
+ for (k=1; k<= plates->NPDIM;k++) {
+ A->srpa[i][j][k] = 0.0;
+ A->srta[i][j][k] = 0.0;
+ }
+ }
+ }
+}
More information about the cig-commits
mailing list