PROGRAM HTDP ************************************************************** * NAME: HTDP (Horizontal Time-Dependent Positioning) * * WRITTEN BY: Richard A. Snay * * PURPOSE: Predict crustal motion quantities * **************************************************************** IMPLICIT DOUBLE PRECISION (A-H,O-Z) IMPLICIT INTEGER*4 (I-N) COMMON /CONST/ A,F,E2,EPS,AF,PI,TWOPI,RHOSEC COMMON /FILES/ LUIN, LUOUT, I1, I2, I3, I4, I5 CHARACTER*1 OPTION character*5 cont *** Introduce variables for file id's LUIN = 5 * interactive input LUOUT = 6 * interactive output I1 = 11 * input of velocity grid in GETVEL * input of earthquake parameters in GETEQ * input of blue-book BFILE in DLACE, VELOC, and UPDATE * input of blue-book GFILE in UPDATE I2 = 12 * output of predicted displacements in DLACE * output of predicted velocities in VELOC * output of updated blue-book BFILE in UPDATE * output of updated blue-book GFILE in UPDATE * output of updated coordinates in UPDATE I3 = 13 * output of point-velocity records in VELOC I4 = 14 * storage of reference latitude & longitude & region I5 = 15 * storage of earthquake parameters C OPEN(I5, FILE='TEMPQK' , ACCESS = 'DIRECT', RECL = 72, C 1 FORM='UNFORMATTED') *** Obtain parameters defining crustal motion model CALL MODEL *** Initialize transformation parameters between reference frames CALL settp *** Initialize conversion table between reference frame identifiers CALL SETRF WRITE(LUOUT,5) 5 FORMAT( 1 ' **************************************************'/ 1 ' * HTDP (Horizontal Time-Dependent Positioning) *'/ 1 ' * SOFTWARE VERSION 2.6 (Jan. 1, 2002) *'/ 1 ' * *'/ 1 ' * AUTHOR: Richard A. Snay *'/ 1 ' * NOAA / National Geodetic Survey *'/ 1 ' * 1315 East-West Highway, Room 9115 *'/ 1 ' * Silver Spring, Maryland 20910 *'/ 1 ' * phone: 301-713-3202 (ext. 154) *'/ 1 ' * fax: 301-713-4327 *'/ 1 ' * Internet: Richard.Snay@noaa.gov *'/ 1 ' **************************************************'/) WRITE(LUOUT,10) 10 FORMAT( 1 ' This software incorporates numerical models that',/ 3 ' characterize continuous crustal motion as well as ',/ 3 ' the episodic motion associated with earthquakes.'/) WRITE(LUOUT,11) 11 FORMAT( 5 ' The User Guide contains additional information and a set'/ 5 ' of exercises to familiarize users with the software.'// 5 ' Hit ENTER or RETURN to continue. ') read(luin, '(a5)') cont 25 WRITE(LUOUT,26) 26 FORMAT(' ***************************************'/ 1 ' MAIN MENU:',/ 6 ' 0... Exit software.',/ 7 ' 1... Predict displacements between two dates.'/ 8 ' 2... Predict velocities.'/ 9 ' 3... Update positions and/or observations ' & ,'to a specified date.'/ & ' 4... Transform positions between reference frames. '/ & ' 5... Transform velocities between reference frames. ') 30 READ(LUIN,35) OPTION 35 FORMAT(A1) IF(OPTION .EQ. '0') THEN GO TO 50 ELSEIF(OPTION .EQ. '1') THEN CALL DPLACE ELSEIF(OPTION .EQ. '2') THEN CALL VELOC ELSEIF(OPTION .EQ. '3') THEN CALL UPDATE elseif(option .eq. '4') then call TRFPOS elseif(option .eq. '5') then call TRFVEL ELSE WRITE(LUOUT,40) 40 FORMAT(' Improper entry--select again ') GO TO 30 ENDIF GO TO 25 50 CONTINUE C CLOSE(I5, STATUS = 'DELETE') STOP END ***************************************************************************** SUBROUTINE MODEL *** Obtain parameters defining crustal motion model IMPLICIT DOUBLE PRECISION (A-H,O-Z) IMPLICIT INTEGER*4 (I-N) COMMON /CONST/ A,F,E2,EPS,AF,PI,TWOPI,RHOSEC COMMON /TIMREF/ ITREF A = 6.378137D06 F = 1.D0 / 298.257222101D0 E2 = 0.6694380022903146D-2 AF = A / (1.D0 -F) EPS = F*(2.D0 - F) / ((1.D0 -F)**2) PI = 4.D0 * DATAN(1.D0) RHOSEC = (180.D0 * 3600.D0) / PI TWOPI = PI + PI C*** Set default reference epoch to May 7, 1991 IYRREF = 1991 IMOREF = 5 IDYREF = 7 CALL TOTIME (IYRREF, IMOREF, IDYREF, ITREF) CALL GETBDY C CALL GETVEL C CALL GETEQ RETURN END ******************************************************************* SUBROUTINE GETBDY *** Obtain coordinates for vertices that form the polygons *** that correspond to the boundaries for the regions. *** Region 1 is the western US 48 states *** Region 2 is Alaska *** Region 3 is the North American plate *** Region 4 is the Caribbean plate *** Region 5 is the western Pacific plate *** Region 6 is the Juan de Fuca plate *** Region 7 is the Cocos plate IMPLICIT DOUBLE PRECISION (A-H,O-Z) IMPLICIT INTEGER*4 (I-N) parameter (NMREGN = 7) COMMON /CONST/ A,F,E2,EPS,AF,PI,TWOPI,RHOSEC COMMON /BNDRY/ X(40,NMREGN), Y(40,NMREGN), NPOINT(NMREGN) DO 20 I = 1, NMREGN DO 10 J = 1, NPOINT(I) X(J,I) = (X(J,I) * 3600.D0)/RHOSEC Y(J,I) = (Y(J,I) * 3600.D0)/RHOSEC 10 CONTINUE 20 CONTINUE RETURN END ******************************************************************* SUBROUTINE GETREG(X0,Y0,JREGN) *** Determine the region containing a given point. IMPLICIT DOUBLE PRECISION(A-H,O-Z) IMPLICIT INTEGER*4 (I-N) parameter (NMREGN = 7) COMMON /BNDRY/ X(40,NMREGN), Y(40,NMREGN), NPOINT(NMREGN) COMMON /FILES/ LUIN, LUOUT, I1, I2, I3, I4, I5 IR = 0 1 IR = IR + 1 IF(IR .GT. NMREGN) THEN JREGN = 0 RETURN ENDIF CALL POLYIN(X0,Y0,X(1,IR),Y(1,IR), NPOINT(IR), NTEST) IF(NTEST .EQ. 0) GO TO 1 JREGN = IR RETURN END ******************************************************** SUBROUTINE POLYIN (X0,Y0,X,Y,N,NPC) C SUBROUTINE TO DETERMINE IF A POINT AT (X0,Y0) IS INSIDE OR C OUTSIDE OF A CLOSED FIGURE DESCRIBED BY A SEQUENCE OF CONNECTED C STRAIGHT LINE SEGMENTS WITH VERTICES AT X, Y. C C INPUT - C X0, Y0 COORDINATES OF A POINT TO BE TESTED C X, Y ARRAYS CONTAINING THE VERTICES, IN ORDER, OF A C CLOSED FIGURE DESCRIBED BY STRAIGHT LINE SEGMNENTS. C FOR EACH 'I', THE STRAIGHT LINE FROM (XI),Y(I)) TO C TO (X(I+1),Y(I+1)), IS AN EDGE OF THE FIGURE. C N DIMENSION OF X AND Y, NUMBER OF VERTICES, AND NUMBER C OF STRAIGHT LINE SEGMENTS IN FIGURE. C OUTPUT - C NPC NPC=0 WHEN X0,Y0 IS OUTSIDE OF FIGURE DESCRIBED C BY X,Y C NPC=1 WHEN X0,Y0 IS INSIDE FIGURE C NPC=2 WHEN X0,Y0 IS ON BORDER OF FIGURE C METHOD - C A COUNT IS MADE OF THE NUMBER OF TIMES THE LINE FROM (X0,Y(0)) TO C (X0,+ INFINITY) CROSSES THE BORDER OF THE FIGURE. IF THE COUNT C IS ODD, THE POINT IS INSIDE; IF THE COUNT IS EVEN THE POINT C IS OUTSIDE. C LIMITATIONS - C NONE. THE PROGRAM LOGIC IS VALID FOR ALL CLOSED FIGURES, C NO MATTER HOW COMPLEX. C ACCURACY - C MAINTAINS FULL ACCURACY OF INPUT COORDINATES. C IMPLICIT INTEGER*4 (I-N) IMPLICIT DOUBLE PRECISION (A-H,O-Z) DIMENSION X(N),Y(N) DATA I6/6/ IS=0 NPC=0 C C FIND STARTING POINT WHERE X(I).NE.X0 IP=0 10 IP=IP+1 IF(X(IP)-X0) 15,12,16 12 IF(IP.LE.N) GO TO 10 WRITE(I6,6001) 6001 FORMAT('0 POLYGON INPUT ERROR - ALL POINTS ON LINE X = X0') STOP 15 IL=-1 GO TO 20 16 IL=1 20 XL=X(IP) YL=Y(IP) C C SET UP SEARCH LOOP C IP1=IP+1 IPN=IP+N DO 100 II=IP1,IPN I=II IF(I.GT.N) I=I-N IF(IL) 30,50,40 30 IF(X(I)-X0) 90,32,34 32 IS=-1 GO TO 60 34 IL=1 GO TO 80 40 IF(X(I)-X0) 42,44,90 42 IL=-1 GO TO 80 44 IS=1 GO TO 60 50 IF(X(I)-X0) 52,55,54 52 IL=-1 IF(IS) 90,140,80 54 IL=1 IF(IS) 80,140,90 55 IF(Y(I)-Y0) 57,120,58 57 IF(YL-Y0) 90,120,120 58 IF(YL-Y0) 120,120,90 C 60 IL=0 IF(Y(I)-Y0) 90,120,90 80 IF(YL-Y0+(Y(I)-YL)*(X0-XL)/(X(I)-XL)) 90,120,85 85 NPC=NPC+1 90 XL=X(I) YL=Y(I) 100 CONTINUE NPC=MOD(NPC,2) RETURN 120 NPC=2 RETURN 140 WRITE(I6,6002) 6002 FORMAT('0 POLYGON LOGIC ERROR - PROGRAM SHOULD NOT REACH THIS', . ' POINT') RETURN END ***************************************************************** C SUBROUTINE COMPOS(YLATT,YLONT,HTT,YLAT,YLON,HT, C 1 RLAT,RLON,JREGN,MIN,IOPT) *** Compute the position of a point at specified time C IMPLICIT DOUBLE PRECISION (A-H,O-Z) C IMPLICIT INTEGER*4 (I-N) C parameter (NDLOC = 400) C COMMON /CONST/ A,F,E2,EPS,AF,PI,TWOPI,RHOSEC C COMMON /TIMREF/ ITREF C COMMON /QPARM/ STRIKE(NDLOC), HL(NDLOC), EQLAT(NDLOC), C 1 EQLON(NDLOC), SSLIP(NDLOC), DSLIP(NDLOC), C 1 DIP(NDLOC), DEPTH(NDLOC), WIDTH(NDLOC), C 1 EQLATR(50),EQLONR(50),EQRAD(50), C 1 ITEQK(50),NLOC(50),NFP(50),NUMEQ C COMMON /FILES/ LUIN,LUOUT, I1, I2, I3, I4, I5 ** Compute the contribution due to constant velocity C IF(JREGN .EQ. 0) THEN C YLATT = YLAT C YLONT = YLON C HTT = HT C ELSE C DTIME = DBLE(MIN - ITREF) / 525960.D0 C CALL COMVEL(RLAT,RLON,JREGN,VN,VE,VU) C IF(IOPT .NE. 1 .AND. IOPT .NE. 0) THEN C ELON = -YLON C CALL TOXYZ(YLAT,ELON,HT,X,Y,Z) C CALL TOVXYZ(YLAT,ELON,VN,VE,VU,VX,VY,VZ) C CALL VTRAN(X,Y,Z,VX,VY,VZ, IOPT) C CALL TOVNEU(YLAT,ELON,VX,VY,VZ,VN,VE,VU) C ENDIF C CALL RADR8T(YLAT,VN,VE,VNR,VER) C YLATT = YLAT + VNR*DTIME C YLONT = YLON - VER*DTIME C HTT = HT + ((VU * DTIME) /1000.D0) C ENDIF ** Compute the contribution due to earthquakes. ** It is assumed that the components of displacement, ** DNORTH,DWEST,DUP, do not vary from one reference ** frame to another given the accuracy of dislocation ** models. C DO 10 I = 1, NUMEQ C IF(ITEQK(I) .GT. ITREF) THEN C NTIME = 1 C ELSE C NTIME = 0 C ENDIF C IF(MIN .LT. ITEQK(I)) NTIME = NTIME - 1 C IF(NTIME .NE. 0) THEN C CALL RADII(EQLATR(I),RADMER,RADPAR) C DDLAT = (RLAT - EQLATR(I))*RADPAR C DDLON = (RLON - EQLONR(I))*RADMER C DIST = DSQRT(DDLAT*DDLAT + DDLON*DDLON) C IF(DIST .LE. EQRAD(I)) THEN C ISTART = NLOC(I) C IEND = NLOC(I) + NFP(I) - 1 C DO 5 JREC = ISTART,IEND C CALL DISLOC(RLAT,RLON,STRIKE(JREC),HL(JREC), C & EQLAT(JREC),EQLON(JREC),SSLIP(JREC), C & DSLIP(JREC),DIP(JREC),DEPTH(JREC), C & WIDTH(JREC),DNORTH,DWEST,DUP) C YLATT = YLATT + NTIME*DNORTH C YLONT = YLONT + NTIME*DWEST C HTT = HTT + NTIME*DUP C 5 CONTINUE C ENDIF C ENDIF C 10 CONTINUE C RETURN C END *************************************************************** SUBROUTINE RADR8T (YLAT,VN,VE,VNR,VER) C Convert horizontal velocities from mm/yr to rad/yr IMPLICIT DOUBLE PRECISION (A-H,O-Z) IMPLICIT INTEGER*4 (I-N) CALL RADII (YLAT,RADMER,RADPAR) VNR = VN / (1000.D0 * RADMER) VER = VE / (1000.D0 * RADPAR) RETURN END ***************************************************************** SUBROUTINE COMVEL(YLAT,YLON,JREGN,VN,VE,VU) C C Compute the velocity at a point in mm/yr C IMPLICIT DOUBLE PRECISION (A-H,O-Z) IMPLICIT INTEGER*4 (I-N) parameter (NUMGRD = 2) parameter (NMREGN = 7) COMMON /CONST/ A,F,E2,EPS,AF,PI,TWOPI,RHOSEC COMMON /FILES/ LUIN, LUOUT, I1,I2,I3,I4,I5 COMMON /VGRID/ B(14000) DIMENSION WEI(2,2), VEL(2,2,3) c WRITE (6, 1001) JREGN c1001 FORMAT( 'JREGN = ', I6) IF(JREGN .GT. NUMGRD .AND. JREGN .LE. NMREGN) THEN *** Use NNR-NUVEL-1A model to compute velocity relative *** to the North American plate IPLATE = JREGN - NUMGRD ELON = - YLON HT = 0.D0 CALL TOXYZ(YLAT, ELON, HT, X, Y, Z) CALL NUVELA(IPLATE, X, Y, Z, VX, VY, VZ) CALL NUVELA( 1, X, Y, Z, VX1, VY1, VZ1) VX = VX - VX1 VY = VY - VY1 VZ = VZ - VZ1 CALL TOVNEU(YLAT, ELON, VX, VY, VZ, VN, VE, VU) VN = VN * 1000.D0 VE = VE * 1000.D0 VU = VU * 1000.D0 ELSEIF(JREGN .GE. 1 .AND. JREGN .LE. NUMGRD) THEN C*** Get indices for the lower left hand corner of the grid C*** and get the weights for the four corners CALL GRDWEI (YLON, YLAT, JREGN, I, J, WEI) C*** Get the velocity vectors at the four corners CALL GRDVEC (JREGN, I, J, VEL, B) VN = WEI(1,1) * VEL(1,1,1) + WEI(1,2) * VEL(1,2,1) * + WEI(2,1) * VEL(2,1,1) + WEI(2,2) * VEL(2,2,1) VE = WEI(1,1) * VEL(1,1,2) + WEI(1,2) * VEL(1,2,2) * + WEI(2,1) * VEL(2,1,2) + WEI(2,2) * VEL(2,2,2) VU = WEI(1,1) * VEL(1,1,3) + WEI(1,2) * VEL(1,2,3) * + WEI(2,1) * VEL(2,1,3) + WEI(2,2) * VEL(2,2,3) ELSE WRITE(LUOUT,100) JREGN 100 FORMAT(' Improper region identifier ',I4,'in COMVEL.') STOP ENDIF RETURN END ********************************************************************* SUBROUTINE NUVELA(IPLATE, X, Y, Z, VX, VY, VZ) *** Compute the NNR-NUVEL1A velocity at point on plate = IPLATE *** with coordinates X, Y, Z *** Reference = IERS Technical Note 21 (IERS Conventions), July 1996 IMPLICIT DOUBLE PRECISION (A-H, O-Z) IMPLICIT INTEGER*4 (I-N) DIMENSION WX(5), WY(5), WZ(5) COMMON /FILES/ LUIN, LUOUT, I1, I2, I3, I4, I5 *** IPLATE = 1 --> North America *** 2 --> Caribbean *** 3 --> Pacific *** 4 --> Juan de Fuca *** 5 --> Cocos DATA WX /0.258D-9, -0.178D-9, -1.510D-9, 5.200D-9, -10.425D-9/ DATA WY /-3.599D-9, -3.385D-9, 4.840D-9, 8.610D-9, -21.605D-9/ DATA WZ /-0.153D-9, 1.581D-9, -9.970D-9, -5.820D-9, 10.925D-9/ IF (IPLATE .LE. 0 .OR. IPLATE .GT. 5) THEN WRITE (LUOUT, 1) IPLATE 1 FORMAT(' Improper plate ID in NUVELA = ', I6) STOP ENDIF VX = -WZ(IPLATE) * Y + WY(IPLATE) * Z VY = WZ(IPLATE) * X - WX(IPLATE) * Z VZ = -WY(IPLATE) * X + WX(IPLATE) * Y RETURN END ********************************************************************** C SUBROUTINE NWCORD(YLAT,YLON,HTOLD,RLAT,RLON,JREGN,MIN1,MIN2, C 1 YLAT3,YLON3,HTNEW,DN,DE,DU,IOPT) C *** Predict coordinates at time MIN2 given coordinates at time MIN1. *** Predict displacements from time MIN1 to time MIN2. C C IMPLICIT DOUBLE PRECISION (A-H,O-Z) C IMPLICIT INTEGER*4 (I-N) C C HT = HTOLD C C CALL COMPOS(YLAT1,YLON1,HT1,YLAT,YLON,HT, C 1 RLAT,RLON,JREGN,MIN1,IOPT) C C CALL COMPOS(YLAT2,YLON2,HT2,YLAT,YLON,HT, C 1 RLAT,RLON,JREGN,MIN2,IOPT) C C YLAT3 = YLAT + YLAT2 - YLAT1 C YLON3 = YLON + YLON2 - YLON1 C HTNEW = HT + HT2 - HT1 C C CALL RADII(YLAT,RADMER,RADPAR) C C DN = RADMER * (YLAT2 - YLAT1) C DE = -RADPAR * (YLON2 - YLON1) C DU = HT2 - HT1 C C RETURN C END ****************************************************************** SUBROUTINE PVPRNT(LATD,LATM,SLAT,LOND,LONM,SLON,VN,VE) *** Print out a point-velocity (PV) record IMPLICIT DOUBLE PRECISION (A-H,O-Z) IMPLICIT INTEGER*4 (I-N) COMMON /FILES/ LUIN,LUOUT,I1,I2,I3,I4,I5 LATS = IDINT(SLAT*100.D0 + 0.5D0) LONS = IDINT(SLON*100.D0 + 0.5D0) IVN = IDINT( VN*100.D0 + 0.5D0) IVE = IDINT( VE*100.D0 + 0.5D0) IVU = 0 JVN = 300 JVE = 300 JVU = 500 WRITE(I3,10) LATD,LATM,LATS,LOND,LONM,LONS, 1 IVN,JVN,IVE,JVE,IVU,JVU 10 FORMAT('PV',I3,I2.2,I4.4,'N',I3,I2.2,I4.4,'W',6I6) RETURN END **************************************************************************** SUBROUTINE DSDA(LOCISN, LOCJSN, MIN1, MIN2, DS, DA) ** Compute change in distance and change in azimuth. IMPLICIT DOUBLE PRECISION (A-H,O-Z) IMPLICIT INTEGER*4 (I-N) COMMON /CONST/ A,F,E2,EPS,AF,PI,TWOPI,RHOSEC COMMON /FILES/ LUIN, LUOUT, I1, I2, I3, I4, I5 HTF = 0.0D0 HTT = 0.0D0 READ(I4, REC = LOCISN) YLATF, YLONF, VNF, VEF, VUF READ(I4, REC = LOCJSN) YLATT, YLONT, VNT, VET, VUT CALL COMPSN(YLATF1,YLONF1,HTF1,YLATF,YLONF,HTF, 1 MIN1, VNF, VEF, VUF) CALL COMPSN(YLATF2,YLONF2,HTF2,YLATF,YLONF,HTF, 1 MIN2, VNF, VEF, VUF) CALL COMPSN(YLATT1,YLONT1,HTT1,YLATT,YLONT,HTT, 1 MIN1, VNT, VET, VUT) CALL COMPSN(YLATT2,YLONT2,HTT2,YLATT,YLONT,HTT, 1 MIN2, VNT, VET, VUT) CALL HELINV(YLATF1,YLONF1,YLATT1,YLONT1,FAZ1,BAZ1,S1) CALL HELINV(YLATF2,YLONF2,YLATT2,YLONT2,FAZ2,BAZ2,S2) DS = S2 - S1 DA = FAZ2 - FAZ1 RETURN END ********************************************************************* SUBROUTINE HELINV(GLAT1,GLON1,GLAT2,GLON2,FAZ,BAZ,S) C C *** SOLUTION OF THE GEODETIC INVERSE PROBLEM AFTER T.VINCENTY. C *** MODIFIED RAINSFORD WITH HELMERT ELLIPTICAL TERMS. C *** EFFECTIVE IN ANY AZIMUTH AND AT ANY DISTANCE SHORT OF ANTIPODAL. C *** STANDPOINT/FOREPOINT MUST NOT BE THE GEOGRAPHIC POLE . C C INPUT C GLAT1 = Latitude of from point (radians, positive north) C GLON1 = Longitude of from point (radians, positive west) C GLAT2 = Latitude of to point (radians, positive north) C GLON2 = Longitude of to point (radians, positive west) C C OUTPUT C FAZ = Foward azimuth (radians, clockwise from north) C BAZ = Back azimuth (radians, clockwise from north) C S = Distance (meters) C IMPLICIT DOUBLE PRECISION (A-H,O-Z) IMPLICIT INTEGER*4 (I-N) COMMON/CONST/A,F,EPS2,EPS,AF,PI,TWOPI,RHOSEC DATA TOL/0.5D-14/ R = 1.0D0-F TU1 = R*DSIN(GLAT1)/DCOS(GLAT1) TU2 = R*DSIN(GLAT2)/DCOS(GLAT2) CU1 = 1.0D0/DSQRT(TU1*TU1+1.0D0) SU1 = CU1*TU1 CU2 = 1.0D0/DSQRT(TU2*TU2+1.0D0) S = CU1*CU2 BAZ = S*TU2 FAZ = BAZ*TU1 X = GLON1-GLON2 100 SX = DSIN(X) CX = DCOS(X) TU1 = CU2*SX TU2 = SU1*CU2*CX-BAZ SY = DSQRT(TU1*TU1+TU2*TU2) CY = S*CX+FAZ Y = DATAN2(SY,CY) SA = S*SX/SY C2A = -SA*SA+1.0D0 CZ = FAZ+FAZ IF(C2A .GT. 0.0D0)CZ = -CZ/C2A+CY E = CZ*CZ*2.0D0-1.0D0 C = ((-3.0D0*C2A+4.0D0)*F+4.0D0)*C2A*F/16.0D0 D = X X = ((E*CY*C+CZ)*SY*C+Y)*SA X = (1.0D0-C)*X*F+GLON1-GLON2 IF(DABS(D-X) .GT. TOL)GO TO 100 FAZ = DATAN2(-TU1,TU2) BAZ = DATAN2(CU1*SX,BAZ*CX-SU1*CU2) FAZ = FAZ + PI BAZ = BAZ + PI IF(FAZ .LT. 0.0D0)FAZ = FAZ+TWOPI IF(BAZ .LT. 0.0D0)BAZ = BAZ+TWOPI IF(FAZ .GT. TWOPI)FAZ = FAZ - TWOPI IF(BAZ .GT. TWOPI)BAZ = BAZ - TWOPI X = DSQRT((1.0D0/R/R-1.0D0)*C2A+1.0D0)+1.0D0 X = (X-2.0D0)/X C = 1.0D0-X C = (X*X/4.0D0+1.0D0)/C D = (0.375D0*X*X-1.0D0)*X X = E*CY S = 1.0D0-E-E S = ((((SY*SY*4.0D0-3.0D0)*S*CZ*D/6.0D0-X)*D/4.0D0+CZ)*SY*D+Y) 1 *C*A*R RETURN END ************************************************************************* c SUBROUTINE TODMSA(val,id,im,s) *** convert position radians to deg,min,sec *** range is [-twopi to +twopi] c implicit double precision(a-h,o-z) c IMPLICIT INTEGER*4 (I-N) c common/CONST/A,F,E2,EP2,AF,PI,TWOPI,RHOSEC c 1 if(val.gt.twopi) then c val=val-twopi c go to 1 c endif c 2 if(val.lt.-twopi) then c val=val+twopi c go to 2 c endif c if(val.lt.0.d0) then c isign=-1 c else c isign=+1 c endif c s=dabs(val*RHOSEC/3600.D0) c id=idint(s) c s=(s-id)*60.d0 c im=idint(s) c s=(s-im)*60.d0 *** account for rounding error c is=idnint(s*1.d5) c if(is.ge.6000000) then c s=0.d0 c im=im+1 c endif c if(im.ge.60) then c im=0 c id=id+1 c endif c id = isign*id c im = isign*im c s = isign*s c return c end ********************************************************* SUBROUTINE TRFDAT(CARD,DATE,IREC12,IYEAR1,IYEAR2,MINS) C Convert blue-book date to time in minutes IMPLICIT DOUBLE PRECISION (A-H, O-Z) IMPLICIT INTEGER*4 (I-N) CHARACTER*80 CARD CHARACTER*6 DATE COMMON /FILES/ LUIN,LUOUT, I1, I2, I3, I4, I5 IF (IREC12 .EQ. 0) THEN WRITE (LUOUT, 5) 5 FORMAT(' ABORT: The blue-book needs a valid *12* record.') STOP ENDIF READ (DATE, 10) IYEAR, MONTH, IDAY 10 FORMAT (3I2) IF ( IYEAR1 .LE. (1900 + IYEAR) .AND. 1 (1900 + IYEAR) .LE. IYEAR2) THEN IYEAR = 1900 + IYEAR ELSEIF ( IYEAR1 .LE. (2000 + IYEAR) .AND. 1 (2000 + IYEAR) .LE. IYEAR2) THEN IYEAR = 2000 + IYEAR ELSEIF ( IYEAR1 .LE. (1800 + IYEAR) .AND. 1 (1800 + IYEAR) .LE. IYEAR2) THEN IYEAR = 1800 + IYEAR ELSE WRITE (LUOUT, 20) CARD 20 FORMAT(' ABORT: The following record has a date'/ 1 ' which is inconsistent with the *12* record'/ 1 3x, A80) ENDIF IF (IYEAR .LE. 1906) THEN WRITE (LUOUT, 30) 30 FORMAT(' ***WARNING***'/ 1 ' The blue-book file contains an observation that'/ 1 ' predates 1906. The TDP model may not be valid'/ 1 ' and the computed corrections may be erroneous.') ENDIF IF (IDAY .EQ. 0) IDAY = 15 IF (MONTH .EQ. 0) THEN MONTH = 7 IDAY = 1 ENDIF CALL TOTIME(IYEAR,MONTH,IDAY, MINS) RETURN END ********************************************************* SUBROUTINE TNFDAT(DATE,MINS) C Convert blue-book date to time in years IMPLICIT DOUBLE PRECISION (A-H,O-Z) IMPLICIT INTEGER*4 (I-N) CHARACTER*8 DATE COMMON /FILES/ LUIN,LUOUT, I1, I2, I3, I4, I5 READ(DATE,10) IYEAR,MONTH,IDAY 10 FORMAT(I4,I2,I2) IF(IYEAR .LE. 1906) THEN WRITE(LUOUT,20) 20 FORMAT(' ***WARNING***'/ 1 ' The blue-book file contains an observation that'/ 2 ' predates 1906. The TDP model is not valid and the'/ 3 ' computed correction may be erroneous.') ENDIF IF(IDAY .EQ. 0) IDAY = 15 IF(MONTH .EQ. 0) THEN MONTH = 7 IDAY = 1 ENDIF CALL TOTIME(IYEAR,MONTH,IDAY,MINS) RETURN END *************************************************************** SUBROUTINE GETTIM(MONTH, IDAY, IYEAR, DATE, MINS, TEST) *** Read month-day-year and convert to decimal years *** and Julian time in minutes *** MONTH input - number from 1 to 12 *** IDAY input - number from 1 to 31 *** IYEAR input - must be after 1906 *** DATE output - corresponding time in decimal years *** MINS output - corresponding julian time in minutes *** TEST output - if (true) then there is an error IMPLICIT DOUBLE PRECISION (A-H,O-Z) IMPLICIT INTEGER*4 (I-N) LOGICAL TEST COMMON /FILES/ LUIN, LUOUT, I1, I2, I3, I4, I5 READ(LUIN,*) MONTH,IDAY,IYEAR IF(IYEAR .le. 1906) THEN WRITE(LUOUT,10) 10 FORMAT(' The model is not valid for dates prior ', 1 'to 1906.'/) TEST = .TRUE. RETURN ENDIF IF(MONTH .le. 0 .or. MONTH .gt. 12) THEN WRITE(LUOUT,20) 20 FORMAT(' Improper month specified.'/) TEST = .TRUE. RETURN ENDIF IF(IDAY .le. 0 .or. IDAY .gt. 31) THEN WRITE(LUOUT,30) 30 FORMAT(' Improper day specified.'/) TEST = .TRUE. RETURN ENDIF CALL TOTIME(IYEAR, MONTH, IDAY, MINS) CALL TOTIME(IYEAR, 1, 1, MIN00) DATE = DBLE(IYEAR) + DBLE(MINS - MIN00)/525600.D0 TEST = .FALSE. RETURN END ************************************************************************ SUBROUTINE TOXYZ(glat,glon,eht,x,y,z) *** compute x,y,z *** ref p.17 geometric geodesy notes vol 1, osu, rapp implicit double precision(a-h,o-z) common/CONST/ a,f,e2,ep2,af,pi,twopi,rhosec slat=dsin(glat) clat=dcos(glat) w=dsqrt(1.d0-e2*slat*slat) en=a/w x=(en+eht)*clat*dcos(glon) y=(en+eht)*clat*dsin(glon) z=(en*(1.d0-e2)+eht)*slat return end logical function FRMXYZ(x,y,z,glat,glon,eht) *** convert x,y,z into geodetic lat, lon, and ellip. ht *** ref: eq a.4b, p. 132, appendix a, osu #370 *** ref: geom geod notes gs 658, rapp implicit double precision(a-h,o-z) parameter(maxint=10,tol=1.d-13) common/CONST/ a,f,e2,ep2,af,pi,twopi,rhosec ae2=a*e2 *** compute initial estimate of reduced latitude (eht=0) p=dsqrt(x*x+y*y) icount=0 tgla=z/p/(1.d0-e2) *** iterate to convergence, or to max # iterations 1 if(icount.le.maxint) then tglax=tgla tgla=z/(p-(ae2/dsqrt(1.d0+(1.d0-e2)*tgla*tgla))) icount=icount+1 if(dabs(tgla-tglax).gt.tol) go to 1 *** convergence achieved frmxyz=.true. glat=datan(tgla) slat=dsin(glat) clat=dcos(glat) glon=datan2(y,x) w=dsqrt(1.d0-e2*slat*slat) en=a/w if(dabs(glat).le.0.7854d0) then eht=p/clat-en else eht=z/slat-en+e2*en endif glon=datan2(y,x) *** too many iterations else frmxyz=.false. glat=0.d0 glon=0.d0 eht=0.d0 endif return end ********************************************************************* SUBROUTINE RADII(YLAT,RADMER,RADPAR) C C Computes the radius of curvature in the meridian C and the radius of curvature in a parallel of latitude C IMPLICIT DOUBLE PRECISION (A-H,O-Z) COMMON /CONST/ A,F,E2,EPS,AF,PI,TWOPI,RHOSEC COSLAT = DCOS(YLAT) DENOM = DSQRT(1.D0 + EPS*COSLAT*COSLAT) RADMER = AF/(DENOM**3) RADPAR = AF*COSLAT/DENOM RETURN END ********************************************************************* SUBROUTINE GETGRD(NAMEG,MINLAT,MAXLAT,ILAT,MINLON,MAXLON,ILON) *** Interactively obtain specifications for a grid. IMPLICIT INTEGER*4 (I-N) COMMON /FILES/ LUIN,LUOUT, I1, I2, I3, I4, I5 CHARACTER*10 NAMEG WRITE(LUOUT,200) 200 FORMAT(' Enter name for grid (10 character max). ') READ(LUIN,210) NAMEG 210 FORMAT(A10) WRITE(LUOUT,220) 220 FORMAT(' Enter minimum latitude for grid in deg-min-sec'/ 1 ' in free format (integer values only). ') READ(LUIN,*) ID1, IM1, IS1 WRITE(LUOUT,230) 230 FORMAT(' Enter maximum latitude in same format. ') READ(LUIN,*) ID2, IM2, IS2 WRITE(LUOUT,240) 240 FORMAT(' Enter latitude increment in seconds ', 1 ' (integer value). ') READ(LUIN,*) ILAT WRITE(LUOUT,250) 250 FORMAT(' Enter minimum longitude with positive being west. ') READ(LUIN,*) JD1, JM1, JS1 WRITE(LUOUT,260) 260 FORMAT(' Enter maximum longitude. ') READ(LUIN,*) JD2, JM2, JS2 WRITE(LUOUT,270) 270 FORMAT(' Enter longitude increment in seconds ', 1 ' (integer value). ') READ(LUIN,*) ILON MINLAT = 3600*ID1 + 60*IM1 + IS1 MAXLAT = 3600*ID2 + 60*IM2 + IS2 MINLON = 3600*JD1 + 60*JM1 + JS1 MAXLON = 3600*JD2 + 60*JM2 + JS2 RETURN END ********************************************************************* SUBROUTINE GETLYN(NAMEG,XLAT,XLON,FAZ,BAZ,XMIN,XMAX,XINC) *** Interactively obtain the specifications for a line. IMPLICIT DOUBLE PRECISION (A-H,O-Z) IMPLICIT INTEGER*4 (I-N) COMMON /FILES/ LUIN,LUOUT,I1,I2,I3,I4,I5 COMMON /CONST/ A,F,E2,EPS,AF,PI,TWOPI,RHOSEC CHARACTER*10 NAMEG WRITE(LUOUT,100) 100 FORMAT(' Enter name for line (10 character max.) ') READ(LUIN,110) NAMEG 110 FORMAT(A10) WRITE(LUOUT,120) 120 Format(' Specify the latitude for the origin of the line'/ 1 ' in deg-min-sec in free format. For example'/ 2 ' 35 17 28.3'/ 3 ' Positive is north. ') READ(LUIN,*) LATD,LATM,SLAT XLAT = (DBLE(3600*LATD + 60*LATM)+SLAT)/RHOSEC WRITE(LUOUT,130) 130 FORMAT(' Specify the longitude for the origin of the line'/ 1 ' in free format with west being positive. ') READ(LUIN,*) LOND,LONM,SLON XLON = (DBLE(3600*LOND+60*LONM)+SLON)/RHOSEC WRITE(LUOUT,140) 140 FORMAT(' Specify the orientation of the line clockwise from'/ 1 ' north in decimal degrees, eg., 43.7. ') READ(LUIN,*) FAZ FAZ = 3600.D0*FAZ/RHOSEC BAZ = FAZ + PI IF(BAZ .GT. TWOPI) BAZ = BAZ - TWOPI WRITE(LUOUT,150) 150 FORMAT(' Specify minimum and maximum distance from origin in'/ 1 ' meters, eg., -40000. 30000. '/ 2 ' NOTE: negative distance corresponds to distance in'/ 3 ' the opposite direction. ') READ(LUIN,*) XMIN,XMAX WRITE(LUOUT,160) 160 FORMAT(' Specify distance increment in meters. ') READ(LUIN,*) XINC RETURN END ******************************************************************* SUBROUTINE DIRCT1(GLAT1,GLON1,GLAT2,GLON2,FAZ,BAZ,S) C C *** SOLUTION OF THE GEODETIC DIRECT PROBLEM AFTER T.VINCENTY C *** MODIFIED RAINSFORD'S METHOD WITH HELMERT'S ELLIPTICAL TERMS C *** EFFECTIVE IN ANY AZIMUTH AND AT ANY DISTANCE SHORT OF ANTIPODAL C C *** A IS THE SEMI-MAJOR AXIS OF THE REFERENCE ELLIPSOID C *** FINV IS THE FLATTENING OF THE REFERENCE ELLIPSOID C *** LATITUDES AND LONGITUDES IN RADIANS POSITIVE NORTH AND EAST C *** AZIMUTHS IN RADIANS CLOCKWISE FROM NORTH C *** GEODESIC DISTANCE S ASSUMED IN UNITS OF SEMI-MAJOR AXIS A C C *** PROGRAMMED FOR CDC-6600 BY LCDR L.PFEIFER NGS ROCKVILLE MD 20FEB75 C *** MODIFIED FOR SYSTEM 360 BY JOHN G GERGEN NGS ROCKVILLE MD 750608 C IMPLICIT DOUBLE PRECISION (A-H,O-Z) IMPLICIT INTEGER*4 (I-N) COMMON /CONST/ A,FINV,E2,EPI,AF,PI,TWOPI,RHOSEC DATA EPS/0.5D-13/ R=1.D0-FINV TU=R*DSIN(GLAT1)/DCOS(GLAT1) SF=DSIN(FAZ) CF=DCOS(FAZ) BAZ=0.D0 IF(CF.NE.0.D0) BAZ=DATAN2(TU,CF)*2.D0 CU=1.D0/DSQRT(TU*TU+1.D0) SU=TU*CU SA=CU*SF C2A=-SA*SA+1.D0 X=DSQRT((1.D0/R/R-1.D0)*C2A+1.D0)+1.D0 X=(X-2.D0)/X C=1.D0-X C=(X*X/4.D0+1.D0)/C D=(0.375D0*X*X-1.D0)*X TU=S/R/A/C Y=TU 100 SY=DSIN(Y) CY=DCOS(Y) CZ=DCOS(BAZ+Y) E=CZ*CZ*2.D0-1.D0 C=Y X=E*CY Y=E+E-1.D0 Y=(((SY*SY*4.D0-3.D0)*Y*CZ*D/6.D0+X)*D/4.D0-CZ)*SY*D+TU IF(DABS(Y-C).GT.EPS)GO TO 100 BAZ=CU*CY*CF-SU*SY C=R*DSQRT(SA*SA+BAZ*BAZ) D=SU*CY+CU*SY*CF GLAT2=DATAN2(D,C) C=CU*CY-SU*SY*CF X=DATAN2(SY*SF,C) C=((-3.D0*C2A+4.D0)*FINV+4.D0)*C2A*FINV/16.D0 D=((E*CY*C+CZ)*SY*C+Y)*SA GLON2=GLON1+X-(1.D0-C)*D*FINV IF (GLON2.GE.TWOPI) GLON2=GLON2-TWOPI IF(GLON2.LT.0.D0) GLON2=GLON2+TWOPI BAZ=DATAN2(SA,BAZ)+PI IF (BAZ.GE.TWOPI) BAZ=BAZ-TWOPI IF (BAZ.LT.0.D0) BAZ=BAZ+TWOPI RETURN END *********************************************************** SUBROUTINE TOCHAR(ORIG,CHAR14) *** Convert double precision real number to character*14 IMPLICIT DOUBLE PRECISION (A-H,O-Z) IMPLICIT INTEGER*4 (I-N) CHARACTER*14 CHAR14 ORIG = ORIG*10000.D0 WRITE(CHAR14,10) ORIG 10 FORMAT(F14.0) RETURN END ********************************************************* SUBROUTINE DDXYZ(ISN, JSN, MIN1, MIN2, 1 DDX, DDY, DDZ) ** Compute change in DX,DY,DZ-vector from time MIN1 to MIN2. IMPLICIT DOUBLE PRECISION (A-H,O-Z) IMPLICIT INTEGER*4 (I-N) parameter (nbbdim = 100000) COMMON /ARRAYS/ HT(nbbdim), LOC(nbbdim) COMMON /FILES/ LUIN, LUOUT, I1, I2, I3, I4, I5 READ(I4, REC = LOC(ISN)) GLATI, GLONI, VNI, VEI, VUI READ(I4, REC = LOC(JSN)) GLATJ, GLONJ, VNJ, VEJ, VUJ CALL COMPSN(YLATI1,YLONI1,HTI1,GLATI,GLONI,HT(ISN), 1 MIN1,VNI, VEI, VUI) CALL COMPSN(YLATI2,YLONI2,HTI2,GLATI,GLONI,HT(ISN), 1 MIN2, VNI, VEI, VUI) CALL COMPSN(YLATJ1,YLONJ1,HTJ1,GLATJ,GLONJ,HT(JSN), 1 MIN1, VNJ, VEJ, VUJ) CALL COMPSN(YLATJ2,YLONJ2,HTJ2,GLATJ,GLONJ,HT(JSN), 1 MIN2, VNJ, VEJ, VUJ) XLONI1 = -YLONI1 XLONI2 = -YLONI2 XLONJ1 = -YLONJ1 XLONJ2 = -YLONJ2 CALL TOXYZ(YLATI1,XLONI1,HTI1,XI1,YI1,ZI1) CALL TOXYZ(YLATI2,XLONI2,HTI2,XI2,YI2,ZI2) CALL TOXYZ(YLATJ1,XLONJ1,HTJ1,XJ1,YJ1,ZJ1) CALL TOXYZ(YLATJ2,XLONJ2,HTJ2,XJ2,YJ2,ZJ2) DDX = (XJ2 - XI2) - (XJ1 - XI1) DDY = (YJ2 - YI2) - (YJ1 - YI1) DDZ = (ZJ2 - ZI2) - (ZJ1 - ZI1) RETURN END ************************************************************* SUBROUTINE DISLOC (YLAT,YLON,STRIKE,HL,EQLAT,EQLON, & SS,DS,DIP,DEPTH,WIDTH,DNORTH,DWEST,DUP) *** Compute 3-dimensional earthquake displacement at point *** using dislocation theory * * INPUT: * YLAT = Latitude in radians (positive north) * YLON = Longitude in radians (positive west) * STRIKE = strike in radians clockwise from north such * that the direction of dip is pi/2 radians * counterclockwise from the direction of strike * HL = Half-length in meters * EQLAT = Latitude in radians of midpoint of the * rectangle's upper edge (positive north) * EQLON = Longitude in radians of midpoint of the * rectangle's upper edge (positive west) * SS = strike slip in meters (positive = right lateral) * DS = dip slip in meters (positive = normal faulting) * DIP = dip in radians * DEPTH = Vertical depth of rectangle's upper edge * in meters * WIDTH = width of rectangle in meters * * OUTPUT: * DNORTH = northward displacement in radians * DWEST = westward displacement in radians * DUP = upward displacement in meters ************** IMPLICIT DOUBLE PRECISION (A-H,O-Z) IMPLICIT INTEGER*4 (I-N) *** Compute radii of curvature at fault center CALL RADII (EQLAT, RMER, RPAR) *** Compute planar coordinates in meters DLAT = (YLAT - EQLAT) * RMER DLON = (YLON - EQLON) * RPAR COSSTR = DCOS(STRIKE) SINSTR = DSIN(STRIKE) X1 = COSSTR*DLAT - SINSTR*DLON X2 = SINSTR*DLAT + COSSTR*DLON *** Compute displacements in fault-oriented coordinates CALL OKADA(X1,X2,HL,DEPTH,WIDTH,DIP,U1SS,U2SS, & U3SS,U1DS,U2DS,U3DS) U1 = U1SS*SS + U1DS*DS U2 = U2SS*SS + U2DS*DS DUP = U3SS*SS + U3DS*DS *** Convert horizontal displacements to radians *** in north-west coordinate system DNORTH = ( COSSTR*U1 + SINSTR*U2) / RMER DWEST = (-SINSTR*U1 + COSSTR*U2) / RPAR RETURN END **************************************************** SUBROUTINE OKADA(X1,X2,XL,DU,W,DIP, 1 U1SS,U2SS,U3SS,U1DS,U2DS,U3DS) ************************************************************ * This subroutine computes displacements at the point X1,X2 * on the Earth's surface due to 1.0 meter of right-lateral * strike slip (SS) and 1.0 meter of normal dip slip (DS) * along a rectangular fault. * * The rectangular fault dips in the direction of the positive * X2-axis. The rectangle's strike parallels the X1-axis. * With the X3-axis directed upward out of the Earth, the X1-, * X2-, and X3-axes form a right-handed system. * * The equations of dislocation theory are employed whereby * Earth is represented an a homogeneous, isotropic half-space * with a Poisson ratio of PNU. * * REFERENCE: Okada, Y., Surface deformation due to shear and * tensile faults in a half-space, Bulletin of the * Seismological Society of America, vol. 75, pp. 1135-1154 (1985) * * The X3 = 0 plane corresponds to the Earth's surface. The plane's * origin is located directly above the midpoint of the rectangle's * upper edge. * * INPUT: * X1,X2 - Location in meters * XL - Rectangle's half-length in meters * DU - Vertical depth to rectangle's upper edge in meters * (always positive or zero) * W - Rectangle's width in meters * DIP - Rectangle's dip in radians (always between 0 and PI/2 * * OUTPUT * U1SS - Displacement in X1-direction due to 1.0 meters * of right-lateral strike slip * U2SS - Displacement in X2-direction due to 1.0 meters * of right-lateral strike slip * U3SS - Displacement in X3-direction due to 1.0 meters * of right-lateral strike slip * U1DS - Displacement in X1-direction due to 1.0 meters * of normal dip slip * U2DS - Displacement in X2-direction due to 1.0 meters * of normal dip slip * U3DS - Displacement in X3-direction due to 1.0 meters * of normal dip slip ******************************************************************* IMPLICIT DOUBLE PRECISION (A-H,O-Z) IMPLICIT INTEGER*4 (I-N) LOGICAL VERT PI = 3.141593D0 TWOPI = PI + PI PNU = 0.25D0 RATIO = 1.D0 - 2.D0*PNU IF(DABS(PI/2.D0 - DIP) .LT. .01D0)THEN DIPK = -PI/2.D0 VERT = .TRUE. ELSE DIPK = -DIP VERT = .FALSE. ENDIF SDIP = DSIN(DIPK) CDIP = DCOS(DIPK) P = X2*CDIP + DU*SDIP Q = X2*SDIP - DU*CDIP PSI = X1 + XL ETA = P CALL OKADAW(PSI,ETA,Q,SDIP,CDIP,RATIO,TWOPI, 1 VERT,U1SS,U2SS,U3SS,U1DS,U2DS,U3DS) PSI = X1 + XL ETA = P - W CALL OKADAW(PSI,ETA,Q,SDIP,CDIP,RATIO,TWOPI, 1 VERT,C1SS,C2SS,C3SS,C1DS,C2DS,C3DS) U1SS = U1SS - C1SS U2SS = U2SS - C2SS U3SS = U3SS - C3SS U1DS = U1DS - C1DS U2DS = U2DS - C2DS U3DS = U3DS - C3DS PSI = X1 - XL ETA = P CALL OKADAW(PSI,ETA,Q,SDIP,CDIP,RATIO,TWOPI, 1 VERT,C1SS,C2SS,C3SS,C1DS,C2DS,C3DS) U1SS = U1SS - C1SS U2SS = U2SS - C2SS U3SS = U3SS - C3SS U1DS = U1DS - C1DS U2DS = U2DS - C2DS U3DS = U3DS - C3DS PSI = X1 - XL ETA = P - W CALL OKADAW(PSI,ETA,Q,SDIP,CDIP,RATIO,TWOPI, 1 VERT,C1SS,C2SS,C3SS,C1DS,C2DS,C3DS) U1SS = U1SS + C1SS U2SS = U2SS + C2SS U3SS = U3SS + C3SS U1DS = U1DS + C1DS U2DS = U2DS + C2DS U3DS = U3DS + C3DS RETURN END ************************************************************* SUBROUTINE OKADAW(PSI,ETA,Q,SDIP,CDIP,RATIO,TWOPI, 1 VERT,U1SS,U2SS,U3SS,U1DS,U2DS,U3DS) IMPLICIT DOUBLE PRECISION (A-H,O-Z) IMPLICIT INTEGER*4 (I-N) LOGICAL VERT YBAR = ETA*CDIP + Q*SDIP DBAR = ETA*SDIP - Q*CDIP R = DSQRT(PSI*PSI + ETA*ETA + Q*Q) X = DSQRT(PSI*PSI + Q*Q) IF(DABS(Q) .LE. 0.1d0) THEN TERM = 0.D0 ELSE TERM = DATAN(PSI*ETA/(Q*R)) ENDIF IF(VERT) THEN F5 = -RATIO*PSI*SDIP/(R + DBAR) F4 = -RATIO*Q/(R + DBAR) F3 = 0.5D0*RATIO*(ETA/(R + DBAR) 1 + YBAR*Q/((R + DBAR)*(R + DBAR)) 2 - DLOG(R + ETA)) F1 = -0.5D0*RATIO*PSI*Q/ 1 ((R + DBAR)*(R + DBAR)) ELSE IF(DABS(PSI) .LE. 0.1D0) then F5 = 0.d0 ELSE F5 = 2.D0*RATIO* 1 DATAN((ETA*(X+Q*CDIP)+X*(R+X)*SDIP)/(PSI*(R+X)*CDIP)) 2 /CDIP ENDIF F4 = RATIO*(DLOG(R+DBAR)-SDIP*DLOG(R+ETA))/CDIP F3 = RATIO*(YBAR/(CDIP*(R+DBAR)) - DLOG(R+ETA)) 1 + SDIP*F4/CDIP F1 = -RATIO*(PSI/(CDIP*(R+DBAR))) - SDIP*F5/CDIP ENDIF F2 = -RATIO*DLOG(R+ETA) - F3 U1SS = -(PSI*Q/(R*(R+ETA)) 1 + TERM + F1*SDIP)/TWOPI U2SS = -(YBAR*Q/(R*(R+ETA)) 1 + Q*CDIP/(R+ETA) 2 + F2*SDIP)/TWOPI U3SS = -(DBAR*Q/(R*(R+ETA)) 1 + Q*SDIP/(R+ETA) 2 + F4*SDIP)/TWOPI U1DS = -(Q/R - F3*SDIP*CDIP)/TWOPI U2DS = -(YBAR*Q/(R*(R+PSI)) 1 + CDIP*TERM - F1*SDIP*CDIP)/TWOPI U3DS = -(DBAR*Q/(R*(R+PSI)) 1 + SDIP*TERM - F5*SDIP*CDIP)/TWOPI RETURN END ******************************************************************* C SUBROUTINE GRDCHK (POSX, POSY, INSIDE) C C ROUTINE CHECKS IF THE POINT HAVING COORDINATES (POSX, POSY) C IS WITHIN THE REGION SPANNED BY THE GRID C C IMPLICIT DOUBLE PRECISION (A-H,O-Z) C IMPLICIT INTEGER*4 (I-N) C LOGICAL INSIDE C COMMON /CDGRID/ GRDLX, GRDUX, GRDLY, GRDUY, ICNTX, ICNTY C INSIDE = .TRUE. C IF (POSX .LT. GRDLX .OR. POSX .GT. GRDUX) THEN C INSIDE = .FALSE. C ENDIF C IF (POSY .LT. GRDLY .OR. POSY .GT. GRDUY) THEN C INSIDE = .FALSE. C ENDIF C RETURN C END ******************************************************************* SUBROUTINE GRDWEI (YLON, YLAT, JREGN, I, J, WEI) C C********1*********2*********3*********4*********5*********6*********7** C C NAME: GRDWEI C VERSION: 9302.01 (YYMM.DD) C WRITTEN BY: MR. C. RANDOLPH PHILIPP C PURPOSE: THIS SUBROUTINE RETURNS THE INDICES OF THE LOWER-LEFT C HAND CORNER OF THE GRID CELL CONTAINING THE POINT C AND COMPUTES NORMALIZED WEIGHTS FOR C BI-LINEAR INTERPOLATION OVER A PLANE C C INPUT PARAMETERS FROM ARGUMENT LIST: C ------------------------------------ C YLON LONGITUDE OF POINT IN RADIANS, POSITIVE WEST C YLAT LATITUDE OF POINT IN RADIANS, POSITIVE NORTH C JREGN ID OF GEOGRAPHIC REGION CONTAINING POINT C C OUTPUT PARAMETERS FROM ARGUMENT LIST: C ------------------------------------- C I, J THE COORDINATES OF LOWER LEFT CORNER OF THE GRID C CONTAINING THE ABOVE POSITION C WEI A TWO BY TWO ARRAY CONTAINING THE NORMALIZED WEIGHTS C FOR THE CORNER VECTORS C C GLOBAL VARIABLES AND CONSTANTS: C ------------------------------- C NONE C C THIS MODULE CALLED BY: COMVEL C C THIS MODULE CALLS: NONE C C INCLUDE FILES USED: NONE C C COMMON BLOCKS USED: /CDGRID/, /CONST/ C C REFERENCES: SEE RICHARD SNAY C C COMMENTS: C C********1*********2*********3*********4*********5*********6*********7** C MOFICATION HISTORY: C::9302.11, CRP, ORIGINAL CREATION FOR DYNAP C::9511.09, RAS, MODIFIED FOR HTDP C::9712.05, RAS, MODIFIED TO ACCOUNT FOR MULTIPLE GRIDS C********1*********2*********3*********4*********5*********6*********7** C**** COMPUTES THE WEIGHTS FOR AN ELEMENT IN A GRID IMPLICIT DOUBLE PRECISION (A-H,O-Z) IMPLICIT INTEGER*4 (I-N) parameter (NUMGRD = 2) DIMENSION WEI(2,2) COMMON /CDGRID/ GRDLX(NUMGRD), GRDUX(NUMGRD), 1 GRDLY(NUMGRD), GRDUY(NUMGRD), 1 ICNTX(NUMGRD), ICNTY(NUMGRD), NBASE(NUMGRD) COMMON /CONST/ A,F,E2,EPS,AF,PI,TWOPI,RHOSEC C*** Convert input coordinates to degrees POSX = (TWOPI - YLON) * 180.D0 / PI POSY = YLAT * 180.D0 / PI C*** Obtain indices for the lower-left corner of the cell C*** containing the point STEPX = (GRDUX(JREGN) - GRDLX(JREGN)) / ICNTX(JREGN) STEPY = (GRDUY(JREGN) - GRDLY(JREGN)) / ICNTY(JREGN) I = IDINT((POSX - GRDLX(JREGN))/STEPX) + 1 J = IDINT((POSY - GRDLY(JREGN))/STEPY) + 1 c write(6,1001) JREGN, I, J c1001 format(1x, 'jregn = ', I5 / c 1 1x, ' i = ', I5 / c 1 1x, ' j = ', I5) C*** Compute the limits of the grid cell GRLX = GRDLX(JREGN) + (I - 1) * STEPX GRUX = GRLX + STEPX GRLY = GRDLY(JREGN) + (J - 1) * STEPY GRUY = GRLY + STEPY C*** Compute the normalized weights for the point DENOM = (GRUX - GRLX) * (GRUY - GRLY) WEI(1,1) = (GRUX - POSX) * (GRUY - POSY) / DENOM WEI(2,1) = (POSX - GRLX) * (GRUY - POSY) / DENOM WEI(1,2) = (GRUX - POSX) * (POSY - GRLY) / DENOM WEI(2,2) = (POSX - GRLX) * (POSY - GRLY) / DENOM RETURN END C********************************************************************* C SUBROUTINE GRDVEC (JREGN, I, J, VEL, B) C C********1*********2*********3*********4*********5*********6*********7** C C NAME: GRDVEC C VERSION: 9302.01 (YYMM.DD) C WRITTEN BY: MR. C. RANDOLPH PHILIPP C PURPOSE: THIS SUBROUTINE RETRIEVES THE APPROXIMATE VALUES OF THE C GRID NODE VELOCITIES FOR GRID (I,J) C C INPUT PARAMETERS FROM ARGUMENT LIST: C ------------------------------------ C JREGN ID OF GEOGRAPHIC REGION CORRESPONDING TO GRID C I, J THE COORDINATES OF LOWER LEFT CORNER OF THE GRID C CONTAINING THE ABOVE POSITION C B THE ARRAY CONTAINING ALL THE APPROXIMATE VALUES C FOR THE ADJUSTMENT C C OUTPUT PARAMETERS FROM ARGUMENT LIST: C ------------------------------------- C VEL A TWO BY TWO ARRAY CONTAINING THE VELOCITY VECTORS C FOR THE CORNERS OF THE GRID C C GLOBAL VARIABLES AND CONSTANTS: C ------------------------------- C NONE C C THIS MODULE CALLED BY: COMVEL C C THIS MODULE CALLS: NONE C C INCLUDE FILES USED: NONE C C COMMON BLOCKS USED: NONE C C REFERENCES: SEE RICHARD SNAY C C COMMENTS: C C********1*********2*********3*********4*********5*********6*********7** C MOFICATION HISTORY: C::9302.11, CRP, ORIGINAL CREATION FOR DYNAP C::9712.05, RAS, MODIFIED FOR HTDP (version 2.2) C********1*********2*********3*********4*********5*********6*********7** IMPLICIT DOUBLE PRECISION (A-H,O-Z) IMPLICIT INTEGER*4 (I-N) DIMENSION VEL(2,2,3), B(*) DO 30 II = 0,1 DO 20 IJ = 0,1 DO 10 IVEC = 1, 3 INDEX = IUNGRD(JREGN, I + II, J + IJ, IVEC) VEL(II + 1, IJ + 1, IVEC) = B(INDEX) 10 CONTINUE 20 CONTINUE 30 CONTINUE RETURN END C*************************************************** SUBROUTINE RDEG (INPUT,VAL,CNEG) IMPLICIT DOUBLE PRECISION (A-H,O-Z) IMPLICIT INTEGER*4 (I-N) CHARACTER*10 INPUT CHARACTER*1 CNEG INTEGER DEG, MIN, ISEC DO 10 I = 1, 9 IF (INPUT(I:I).EQ.' ') THEN INPUT(I:I) = '0' ENDIF 10 CONTINUE READ (INPUT,20) DEG, MIN, ISEC 20 FORMAT(I3,I2,I4) SEC = ISEC/100.D0 VAL = (DEG + (MIN/60.D0) + (SEC/3600.D0) ) IF (INPUT(10:10).EQ.CNEG) THEN VAL = -VAL ENDIF RETURN END C*************************************************** INTEGER FUNCTION IUNGRD(IREGN, I, J, IVEC) IMPLICIT DOUBLE PRECISION (A-H,O-Z) IMPLICIT INTEGER*4 (I-N) parameter (NUMGRD = 2) COMMON /CDGRID/ GRDLX(NUMGRD), GRDUX(NUMGRD), 1 GRDLY(NUMGRD), GRDUY(NUMGRD), 1 ICNTX(NUMGRD), ICNTY(NUMGRD), NBASE(NUMGRD) IUNGRD = NBASE(IREGN) + 1 3 * ((J - 1) * (ICNTX(IREGN) + 1) + (I - 1)) + IVEC RETURN END C************************************************************* C SUBROUTINE GRDLOC (I, J, POSX, POSY) *** DETERMINE LOCATION OF I,J-GRID NODE C IMPLICIT DOUBLE PRECISION (A-H,O-Z) C IMPLICIT INTEGER*4 (I-N) C COMMON /CDGRID/ GRDLX, GRDUX, GRDLY, GRDUY, ICNTX, ICNTY C STEPX = (GRDUX - GRDLX) / ICNTX C STEPY = (GRDUY - GRDLY) / ICNTY C POSX = GRDLX + (I - 1)*STEPX C POSY = GRDLY + (J - 1)*STEPY C RETURN C END C********************************************************* SUBROUTINE TOTIME (IYR, IMON, IDAY, MINS) IMPLICIT INTEGER*4 (I-N) IHR = 0 IMN = 0 CALL TOMNT( IYR, IMON, IDAY, IHR, IMN, MINS) RETURN END C********************************************************* C SUBROUTINE TOMNT( IYR, IMON, IDAY, IHR, IMN, MINS ) C C********1*********2*********3*********4*********5*********6*********7** C C NAME: TOMNT (ORIGINALLY IYMDMJ) C VERSION: 9004.17 C WRITTEN BY: M. SCHENEWERK C PURPOSE: CONVERT DATE TO MODIFIED JULIAN DATE PLUS UT C C INPUT PARAMETERS FROM THE ARGUEMENT LIST: C ----------------------------------------- C IDAY DAY C IMON MONTH C IYR YEAR C C OUTPUT PARAMETERS FROM ARGUEMENT LIST: C -------------------------------------- C MINS MODIFIED JULIAN DATE IN MINUTES C C C LOCAL VARIABLES AND CONSTANTS: C ------------------------------ C A TEMPORARY STORAGE C B TEMPORARY STORAGE C C TEMPORARY STORAGE C D TEMPORARY STORAGE C IMOP TEMPORARY STORAGE C IYRP TEMPORARY STORAGE C C GLOBAL VARIABLES AND CONSTANTS: C ------------------------------ C C C THIS MODULE CALLED BY: GENERAL USE C C THIS MODULE CALLS: DINT C C INCLUDE FILES USED: C C COMMON BLOCKS USED: C C REFERENCES: DUFFETT-SMITH, PETER 1982, 'PRACTICAL C ASTRONOMY WITH YOUR CALCULATOR', 2ND C EDITION, CAMBRIDGE UNIVERSITY PRESS, C NEW YORK, P.9 C C COMMENTS: THIS SUBROUTINE REQUIRES THE FULL YEAR, C I.E. 1992 RATHER THAN 92. C C********1*********2*********3*********4*********5*********6*********7** C::LAST MODIFICATION C::8909.06, MSS, DOC STANDARD IMPLIMENTED C::9004.17, MSS, CHANGE ORDER YY MM DD C********1*********2*********3*********4*********5*********6*********7** C IMPLICIT DOUBLE PRECISION(A-H, O-Z) IMPLICIT INTEGER*4 (I-N) C INTEGER*4 A, B, C, D IYRP = IYR C C........ 0.0 EXPLICIT INITIALIZATION C IF( IMON .LT. 3 ) THEN IYRP= IYRP - 1 IMOP= IMON + 12 ELSE IMOP= IMON END IF C C........ 1.0 CALCULATION C A= IYRP*0.01D0 B= 2 - A + DINT( A*0.25D0 ) C= 365.25D0*IYRP D= 30.6001D0*(IMOP + 1) MINS = (B + C + D + IDAY - 679006) * (24 * 60) & + (60 * IHR) + IMN C RETURN END ***************************************************** SUBROUTINE TOVNEU(GLAT,GLON,VX,VY,VZ,VN,VE,VU) *** Convert velocities from vx,vy,vz to vn,ve,vu IMPLICIT DOUBLE PRECISION (A-H,O-Z) IMPLICIT INTEGER*4 (I-N) SLAT = DSIN(GLAT) CLAT = DCOS(GLAT) SLON = DSIN(GLON) CLON = DCOS(GLON) VN = -SLAT*CLON*VX - SLAT*SLON*VY + CLAT*VZ VE = -SLON*VX + CLON*VY VU = CLAT*CLON*VX + CLAT*SLON*VY + SLAT*VZ RETURN END *************************************************** SUBROUTINE TOVXYZ(GLAT,GLON,VN,VE,VU,VX,VY,VZ) *** Convert velocities from vn,ve,vu to vx,vy,vz IMPLICIT DOUBLE PRECISION (A-H,O-Z) IMPLICIT INTEGER*4 (I-N) SLAT = DSIN(GLAT) CLAT = DCOS(GLAT) SLON = DSIN(GLON) CLON = DCOS(GLON) VX = -SLAT*CLON*VN - SLON*VE + CLAT*CLON*VU VY = -SLAT*SLON*VN + CLON*VE + CLAT*SLON*VU VZ = CLAT*VN + SLAT*VU RETURN END ***************************************************** SUBROUTINE DPLACE *** Predict displacements between two dates. IMPLICIT DOUBLE PRECISION (A-H,O-Z) IMPLICIT INTEGER*4 (I-N) parameter (numref = 11) COMMON /CONST/ A,F,E2,EPS,AF,PI,TWOPI,RHOSEC COMMON /FILES/ LUIN,LUOUT, I1, I2, I3, I4, I5 common /frames/ frame(numref) CHARACTER*80 CARD CHARACTER*30 NAMEF,NAME,NAMEBB CHARACTER*24 NAME24 CHARACTER*17 BLAB CHARACTER*10 NAMEG CHARACTER*4 TYPE CHARACTER*1 OPTION,JN,JW, VOPT CHARACTER*1 LATDIR, LONDIR character*6 frame LOGICAL TEST BLAB = 'OUTSIDE OF REGION' WRITE(LUOUT,10) 10 FORMAT( 1 ' Displacements will be predicted from time T1 to time T2.') 20 WRITE(LUOUT,30) 30 FORMAT( 1 ' Please enter time T1 (month-day-year) in free format.'/ 2 ' For example, the entry, 5,12,1979'/ 3 ' represents May 12, 1979. ') CALL GETTIM(MONTH1,IDAY1,IYEAR1,DATE1,MIN1,TEST) IF(TEST) GO TO 20 35 WRITE(LUOUT,40) 40 FORMAT(' Please enter T2 in same format. ') CALL GETTIM(MONTH2,IDAY2,IYEAR2,DATE2,MIN2,TEST) IF(TEST) GO TO 35 WRITE(LUOUT,45) 45 FORMAT( 1 ' Please enter the name for the file to contain'/ 2 ' the predicted displacements. ') READ(LUIN,50) NAMEF 50 FORMAT(A30) OPEN(I2,FILE=NAMEF,STATUS='UNKNOWN') CALL HEADER *** Choosing reference frame for displacements WRITE(LUOUT,55) 55 FORMAT(' ************************************************'/ 1 ' Select the reference frame to be used for specifying'/ 2 ' positions and displacements. Note that in the NAD 83'/ 3 ' reference frame, the interior of the North American'/ 4 ' tectonic plate has no net horizontal motion even'/ 5 ' though individual sites may move.') call menu1 56 READ(LUIN,*) IOPT IF(IOPT .GE. 1 .AND . IOPT .LE. numref) THEN WRITE(I2,57) frame(iopt) 57 FORMAT(' DISPLACEMENTS IN METERS RELATIVE TO ', a6) ELSE WRITE(LUOUT,70) 70 FORMAT(' Improper selection--try again. ') GO TO 56 ENDIF WRITE(I2,71) MONTH1,IDAY1,IYEAR1,MONTH2,IDAY2,IYEAR2 71 FORMAT ( 1 ' FROM ',I2.2,'-',I2.2,'-',I4,' TO ', 2 I2.2,'-',I2.2,'-',I4,'(month-day-year)'// 3 'NAME OF SITE LATITUDE LONGITUDE ', 4 ' NORTH EAST ') 75 WRITE(LUOUT,80) 80 FORMAT(' ********************************'/ 1 ' Displacements will be predicted at each point whose',/ 2 ' horizontal position is specified.',/ 4 ' Please indicate how you wish to supply positions.'/ ) 85 WRITE(LUOUT,86) 86 FORMAT( 5 ' 0. No more points. Return to main menu.'/ 6 ' 1. Individual points entered interactively.'/ 7 ' 2. Points on a specified grid.'/ 8 ' 3. The *80* records in a specified blue-book file.'/ 9 ' 4. Points on a specified line. ') READ(LUIN,'(A1)') OPTION IF(OPTION .EQ. '0') THEN GO TO 510 ELSEIF(OPTION .EQ. '1') THEN CALL GETPNT(LATD,LATM,SLAT,LATDIR,LOND,LONM,SLON, 1 LONDIR,NAME24, X,Y,Z,YLAT,YLON,EHT) ELON = - YLON call GETVLY( YLAT, ELON, VX, VY, VZ, VN, VE, VU, VOPT, 210) if (vopt .eq. '0') then call PREDV( ylat, ylon, eht, date1, iopt, 1 jregn, vn, ve, vu) if (jregn .eq. 0) then write(luout, 140) go to 85 endif endif call NEWCOR(ylat, ylon, eht, min1, min2, 1 ylatt, ylont, ehtnew, dn, de, du, vn, ve, vu) 140 FORMAT(' ****************************************'/ 1 ' A displacement can not be predicted because'/ 1 ' the point is outside of the modeled region.'/ 2 ' For additional displacements, please indicate how'/ 3 ' you wish to supply the horizontal coordinates.'/) WRITE(LUOUT,150) DN, DE,DU 150 FORMAT(' *************************************'/ 1 ' Northward displacement = ',F7.3,' meters.'/ 1 ' Eastward displacement = ',F7.3,' meters.'/ 1 ' Upward displacement = ',F7.3,' meters.'/ 1 ' ****************************************'// 2 ' For additional displacements, please indicate how'/ 3 ' you wish to supply the horizontal coordinates.'/) WRITE(I2,160) NAME24,LATD,LATM,SLAT,LATDIR, 1 LOND,LONM,SLON,LONDIR,DN,DE 160 FORMAT(A24,1X,I2,1X,I2,1X,F8.5,1X,A1,2X, 1 I3,1X,I2,1X,F8.5,1X,A1,1X,2F8.3) ELSEIF(OPTION .EQ. '2') THEN CALL GETGRD(NAMEG,MINLAT,MAXLAT,IDS,MINLON,MAXLON,JDS) I = -1 280 I = I + 1 LAT = MINLAT + I*IDS IF(LAT .GT. MAXLAT) GO TO 296 XLAT = DBLE(LAT)/RHOSEC CALL TODMSS(XLAT,LATD,LATM,SLAT,ISIGN) LATDIR = 'N' IF (ISIGN .eq. -1) LATDIR = 'S' J = -1 290 J = J + 1 YLAT = XLAT LON = MINLON + J*JDS IF(LON .GT. MAXLON) GO TO 280 YLON = DBLE(LON)/RHOSEC CALL TODMSS(YLON,LOND,LONM,SLON,ISIGN) LONDIR = 'W' IF (ISIGN .eq. -1) LONDIR = 'E' EHT = 0.D0 call PREDV( ylat,ylon, eht, date1, iopt, 1 jregn, vn, ve, vu) IF(JREGN .eq. 0) THEN WRITE(I2,291)NAMEG,I,J,LATD,LATM,SLAT,LATDIR,LOND, 1 LOND,LONM,SLON,LONDIR,BLAB 291 FORMAT(A10,2I4, 7X,I2,1X,I2,1X,F8.5,1X,A1,2X,I3, 1 1X,I2,1X,F8.5,1X,A1,1X,A17) ELSE call NEWCOR( ylat, ylon, eht, min1, min2, 1 ylatt, ylont, ehtnew, dn, de, du, vn, ve, vu) WRITE(I2,295)NAMEG,I,J,LATD,LATM,SLAT,LATDIR, 1 LOND,LONM,SLON,LONDIR,DN,DE 295 FORMAT(A10,2I4, 7X,I2,1X,I2,1X,F8.5,1X,A1,2X,I3,1X,I2, 1 1X,F8.5,1X,A1,1X,2F8.3) ENDIF GO TO 290 296 WRITE(LUOUT,297) 297 FORMAT(' ***********************************'/ 1 ' Displacements have been calculated for the specified'/ 2 ' grid. If you wish to calculate additional displacements,'/ 3 ' please indicate how you will supply the coordinates.'/) ELSEIF(OPTION .EQ. '3') THEN VOPT = '0' WRITE(LUOUT,300) 300 FORMAT(' Enter name of blue-book file ') READ(LUIN,310) NAMEBB 310 FORMAT(A30) OPEN(I1,FILE=NAMEBB,STATUS='OLD') 320 READ(I1,330,END=350) CARD 330 FORMAT(A80) TYPE = CARD(7:10) IF(TYPE .EQ. '*80*') THEN READ(CARD,340)NAME,LATD,LATM,SLAT,JN, 1 LOND,LONM,SLON,JW 340 FORMAT(BZ,14X,A30,I2,I2,F7.5,A1,I3,I2,F7.5,A1) NAME24 = NAME(1:24) C IF(JN.EQ.'S' .OR. JW.EQ.'E')GO TO 320 YLAT =(DBLE((LATD*60+LATM)*60)+SLAT)/RHOSEC IF (JN .eq. 'S') YLAT = -YLAT YLON =(DBLE((LOND*60+LONM)*60)+SLON)/RHOSEC IF (JW .eq. 'E') YLON = -YLON EHT = 0.D0 call PREDV( ylat, ylon, eht, date1, iopt, 1 jregn, vn, ve, vu) IF(JREGN .EQ. 0) THEN WRITE(I2,345)NAME24,LATD,LATM,SLAT,JN,LOND,LONM,SLON, 1 JW,BLAB 345 FORMAT(A24,1X,I2,1X,I2,F8.5,1X,A1,2X,I3,1X,I2,1X,F8.5, 1 1X,A1,1X,A17) ELSE call NEWCOR( ylat, ylon, eht, min1, min2, 1 ylatt, ylont, ehtnew, dn, de, du, vn, ve, vu) WRITE(I2,160)NAME24,LATD,LATM,SLAT,JN,LOND,LONM,SLON, 1 JW,DN,DE ENDIF ENDIF GO TO 320 350 CLOSE(I1,STATUS='KEEP') WRITE(LUOUT,360) 360 FORMAT(' ************************************'/ 1 ' Displacements have been calculated for the specified'/ 2 ' blue-book file. If you wish to calculate additional'/ 3 ' displacements, please indicate how you will supply'/ 4 ' the horizontal coordinates.'/) ELSEIF(OPTION .EQ. '4') THEN VOPT = '0' CALL GETLYN(NAMEG,XLAT,XLON,FAZ,BAZ,XMIN,XMAX,XINC) XLON = TWOPI - XLON I = -1 400 I = I + 1 S = XMIN + I*XINC IF(S .GT. XMAX) GO TO 430 IF(S .LT. 0.0D0) THEN S1 = -S AZ = BAZ ELSE S1 = S AZ = FAZ ENDIF CALL DIRCT1(XLAT,XLON,YLAT,YLON,AZ,AZ1,S1) YLON = TWOPI - YLON CALL TODMSS(YLAT,LATD,LATM,SLAT,ISIGN) LATDIR = 'N' IF (ISIGN .eq. -1) LATDIR = 'S' CALL TODMSS(YLON,LOND,LONM,SLON,ISIGN) LONDIR = 'W' IF (ISIGN .eq. -1) LONDIR = 'E' EHT = 0.D0 call PREDV( ylat, ylon, eht, date1, iopt, 1 jregn, vn, ve, vu) IF(JREGN .eq. 0) THEN WRITE(I2,405)NAMEG,I,LATD,LATM,SLAT,LATDIR, 1 LOND,LONM,SLON,LONDIR, BLAB 405 FORMAT(A10,I4,11X,I2,1X,I2,1X,F8.5,1X,A1,2X,I3,1X,I2,1X, 1 F8.5,1X,A1,1X,A17) ELSE call NEWCOR( ylat, ylon, eht, min1, min2, 1 ylatt, ylont, ehtnew, dn, de, du, vn, ve, vu) WRITE(I2,410)NAMEG,I,LATD,LATM,SLAT,LATDIR,LOND,LONM, 1 SLON,LONDIR,DN,DE 410 FORMAT(A10,I4,11X,I2,1X,I2,1X,F8.5,1X,A1,2X,I3,1X,I2, 1 1X,F8.5,1X,A1,1X,2F8.3) ENDIF GO TO 400 430 WRITE(LUOUT,440) 440 FORMAT(' ***************************************'/ 1 ' Displacements have been calculated for the specified'/ 2 ' line. If you wish to calculate additional displacements,'/ 3 ' please indicate how you will supply the coordinates.'/) ELSE WRITE(LUOUT,500) 500 FORMAT(' Improper entry--select again. ') ENDIF GO TO 85 510 CONTINUE CLOSE(I2, STATUS = 'KEEP') RETURN END ******************************************************************** SUBROUTINE VELOC *** Compute velocities at specified locations IMPLICIT DOUBLE PRECISION (A-H,O-Z) IMPLICIT INTEGER*4 (I-N) parameter (numref = 11) parameter (nrsrch = 0) COMMON /CONST/ A,F,E2,EPS,AF,PI,TWOPI,RHOSEC COMMON /FILES/ LUIN,LUOUT, I1, I2, I3, I4, I5 common /frames/ frame(numref) CHARACTER*80 CARD CHARACTER*30 NAMEF,NAME,NAMEBB,PVFILE CHARACTER*24 NAME24 CHARACTER*17 BLAB CHARACTER*10 NAMEG CHARACTER*4 TYPE CHARACTER*1 OPTION,JN,JW,PVOUT CHARACTER*1 LATDIR, LONDIR character*6 frame *** temporary code to plot results **************** character TEMPNA TEMPNA = ' ' DUMMY = 0.0D0 *** end of temporary code ************************* BLAB = 'OUTSIDE OF REGION' WRITE(LUOUT,10) 10 FORMAT(' Please enter name for the file to contain the'/ 1 ' predicted velocities. ') READ(LUIN,20) NAMEF 20 FORMAT(A30) OPEN(I2,FILE=NAMEF,STATUS='UNKNOWN') CALL HEADER if (nrsrch .eq. 1) then WRITE(LUOUT,21) 21 FORMAT( 1 ' Do you want to create a file of point-velocity (PV)'/ 1 ' records for use with the DYNAPG software (y/n)? ') READ(LUIN,'(A1)') PVOUT IF(PVOUT .EQ. 'Y' .OR. PVOUT .EQ. 'y') THEN PVOUT = 'Y' WRITE(LUOUT,22) 22 FORMAT(' Enter name for the file that is to contain'/ 1 ' the PV records. ') READ(LUIN,'(A30)') PVFILE OPEN(I3,FILE = PVFILE, STATUS = 'UNKNOWN') ENDIF else PVOUT = 'N' endif *** Choosing reference system for velocities 1000 WRITE(LUOUT,1001) 1001 FORMAT(' **************************************************'/ 1 ' Select the reference frame to be used for specifying'/ 2 ' positions and velocities. Note that in the NAD 83'/ 2 ' reference frame, the interior of the North American'/ 3 ' tectonic plate has no net horizontal motion even'/ 4 ' though individual sites may move.'/ 6 ' 0...Positions in NAD 83 and velocities relative to'/ 6 ' a specified point having a specified velocity.') call menu1 READ(LUIN,*) IOPT IF(IOPT .GE. 1 .AND. IOPT .LE. numref) THEN WRITE(I2,1002) frame(iopt) 1002 FORMAT('VELOCITIES IN MM/YR RELATIVE TO ', a6 /) RVN = 0.0D0 RVE = 0.0D0 RVU = 0.0D0 ELSEIF(IOPT .EQ. 0) THEN WRITE(LUOUT,1010) CALL GETPNT(LATD,LATM,SLAT,LATDIR,LOND,LONM,SLON, 1 LONDIR, NAME24, X,Y,Z,YLAT,YLON,EHT) CALL GETREG(YLAT,YLON,JREGN) IF(JREGN .EQ. 0 ) THEN WRITE(LUOUT,1008) 1008 FORMAT(' **********************************'/ 1 ' Point is not in modeled region and it can not'/ 1 ' be used as the reference location.'/) GO TO 1000 ENDIF WRITE(I2,1009) 1009 FORMAT('VELOCITIES IN MM/YR IN A REFERENCE FRAME FOR ', 1 'WHICH THE FIRST POINT LISTED'/ 2 'BELOW HAS THE VELOCITY AS LISTED'// 4 '**************REFERENCE SITE') 1010 FORMAT(' For the reference point...'/) WRITE(LUOUT,1030) 1030 FORMAT(' Enter northward velocity of reference location'/ 1 ' in mm/yr. ') READ(LUIN,*) SVN WRITE(LUOUT,1040) 1040 FORMAT(' Enter eastward velocity of reference location'/ 1 ' in mm/yr. ') READ(LUIN,*) SVE WRITE(LUOUT,1050) 1050 FORMAT(' The upward velocity of the reference location'/ 1 ' will be set to 0.0 mm/yr. ') SVU = 0.0D0 CALL COMVEL(YLAT,YLON,JREGN,VN,VE,VU) RVN = SVN - VN RVE = SVE - VE RVU = SVU - VU GLON = -YLON CALL TOVXYZ(YLAT,GLON,SVN,SVE,SVU,SVX,SVY,SVZ) WRITE(I2,1060) NAME24,LATD,LATM,SLAT,LATDIR,SVN,LOND,LONM, 1 SLON,LONDIR,SVE,EHT,SVU,X,SVX,Y,SVY,Z,SVZ 1060 FORMAT(/10X,A24,/ 1'LATITUDE = ',2I3,F9.5,1X,A1,' NORTH VELOCITY =',F7.2,' mm/yr'/ 2'LONGITUDE = ',2I3,F9.5,1X,A1,' EAST VELOCITY =',F7.2,' mm/yr'/ 3'ELLIPS. HT. = ',F10.3,' m', 6X,'UP VELOCITY =',F7.2,' mm/yr'/ 4'X =',F13.3,' m',14X, 'X VELOCITY =',F7.2,' mm/yr'/ 5'Y =',F13.3,' m',14X, 'Y VELOCITY =',F7.2,' mm/yr'/ 6'Z =',F13.3,' m',14X, 'Z VELOCITY =',F7.2,' mm/yr') WRITE(I2,1070) 1070 FORMAT('******************************') ELSE write(luout, 1080) 1080 format(' Improper selection -- try again. ') GO TO 1000 ENDIF *** Choosing input format for locations where velocities are to be predicted WRITE(LUOUT,30) 30 FORMAT(' ************************************************'/ 1 ' Velocities will be predicted at each point whose'/ 2 ' horizontal position is specified. Please indicate'/ 4 ' how you wish to supply positions.'/) 40 WRITE(LUOUT,50) 50 FORMAT( 1 ' 0... No more points. Return to main menu.'/ 2 ' 1... Individual points entered interactively.'/ 3 ' 2... Points on a specified grid.'/ 4 ' 3... The *80* records in a specified blue-book file.'/ 5 ' 4... Points on a specified line. ') READ(LUIN,60) OPTION 60 FORMAT(A1) IF(OPTION .EQ. '0') THEN GO TO 610 ELSEIF(OPTION .EQ. '1') THEN CALL GETPNT(LATD,LATM,SLAT,LATDIR,LOND,LONM,SLON, 1 LONDIR, NAME24, X,Y,Z,YLAT,YLON,EHT) CALL GTOVEL(YLAT,YLON,EHT,RVN,RVE,RVU, 1 VN,VE,VU,VX,VY,VZ,JREGN,IOPT) IF(JREGN .eq. 0 ) THEN WRITE(LUOUT,80) 80 FORMAT(' *************************************'/ 1 ' A velocity can not be predicted because'/ 1 ' the point is outside of the modeled region.'/ 2 ' For additional velocities, please indicate how'/ 3 ' you wish to supply the horizontal coordinates.'/) ELSE WRITE(LUOUT,90) VN, VE, VU, VX, VY, VZ 90 FORMAT(' **************************************'/ 1 ' Northward velocity = ',F6.2,' mm/yr'/ 1 ' Eastward velocity = ',F6.2,' mm/yr'/ 1 ' Upward velocity = ',F6.2,' mm/yr'// 1 ' X-dim. velocity = ',F6.2,' mm/yr'/ 1 ' Y-dim. velocity = ',F6.2,' mm/yr'/ 1 ' Z-dim. velocity = ',F6.2,' mm/yr'/ 1 ' **************************************'// 2 ' For additional velocities, please indicate how'/ 3 ' you wish to specify the horizontal coordinates.'/) WRITE(I2,1060)NAME24,LATD,LATM,SLAT,LATDIR,VN,LOND,LONM, 1 SLON, LONDIR, VE, EHT,VU,X,VX,Y,VY,Z,VZ 100 FORMAT(A24,1X,I2,1X,I2,1X,F8.5,1X,A1,2X,I3,1X,I2,1X,F8.5, 1 1X,A1,1X,2F8.2) IF(PVOUT .EQ. 'Y') THEN CALL PVPRNT(LATD,LATM,SLAT,LOND,LONM,SLON,VN,VE) ENDIF ENDIF ELSEIF(OPTION .EQ. '2') THEN EHT = 0.D0 WRITE(I2,105) 105 FORMAT( 1 'NAME OF SITE',14X,'LATITUDE LONGITUDE ', 2 ' NORTH EAST'/) CALL GETGRD(NAMEG,MINLAT,MAXLAT,IDS,MINLON,MAXLON,JDS) I = -1 110 I = I + 1 LAT = MINLAT + I*IDS IF(LAT .GT. MAXLAT) GO TO 150 XLAT = DBLE(LAT)/RHOSEC CALL TODMSS(XLAT,LATD,LATM,SLAT,ISIGN) LATDIR = 'N' IF (ISIGN .eq. -1) LATDIR = 'S' J = -1 120 J = J + 1 YLAT = XLAT LON = MINLON + J*JDS IF(LON .GT. MAXLON) GO TO 110 YLON = DBLE(LON)/RHOSEC CALL TODMSS(YLON,LOND,LONM,SLON,ISIGN) LONDIR = 'W' IF (ISIGN .eq. -1) LONDIR = 'E' CALL GTOVEL(YLAT,YLON,EHT,RVN,RVE,RVU, 1 VN,VE,VU,VX,VY,VZ,JREGN,IOPT) IF(JREGN .EQ. 0 ) THEN WRITE(I2,125)NAMEG,I,J,LATD,LATM,SLAT,LATDIR,LOND,LONM, 1 SLON,LONDIR,BLAB 125 FORMAT(A10,2I4, 7X,I2,1X,I2,1X,F8.5,1X,A1,2X,I3,1X,I2, 1 1X,F8.5,1X,A1, 1X,A17) ELSE *** temporary code to plot results ZLAT = DBLE(LATD) + DBLE(LATM)/60.D0 + SLAT/3600.D0 ZLON = DBLE(LOND) + DBLE(LONM)/60.D0 + SLON/3600.D0 ZLON = 360.D0 - ZLON TOTVEL = DSQRT(VN*VN + VE*VE) *** code to create vectors to be plotted c IF (TOTVEL .GE. 5.0D0 .AND. TOTVEL .LE. 50.D0) THEN c TVE = VE/10.D0 c TVN = VN/10.D0 c WRITE(I2,129) ZLON,ZLAT,TVE,TVN,DUMMY,DUMMY,DUMMY, c 1 TEMPNA c 129 FORMAT(F10.6, 2x, F9.6, 2X, 5(F7.2, 2x), A8) c ENDIF *** code to create contour plots C WRITE(I2,129) ZLON, ZLAT, TOTVEL C 129 FORMAT(F6.2, 1X, F6.2, 1X, F5.1) *** end of temporary code *** beginning of original code WRITE(I2,130)NAMEG,I,J,LATD,LATM,SLAT,LATDIR, 1 LOND,LONM,SLON,LONDIR,VN,VE 130 FORMAT(A10,2I4, 7X,I2,1X,I2,1X,F8.5,1X,A1,2X, 1 I3,1X,I2,1X,F8.5,1X,A1,1X,2F8.2) *** end of original code IF(PVOUT .EQ. 'Y') THEN CALL PVPRNT(LATD,LATM,SLAT,LOND,LONM,SLON,VN,VE) ENDIF ENDIF GO TO 120 150 WRITE(LUOUT,160) 160 FORMAT(' **********************************************'/ 1 ' Velocities have been calculated for the specified grid.'/ 2 ' If you wish to calculate additional velocities, please'/ 3 ' indicate how you will specify positional coordinates.'/) ELSEIF(OPTION .EQ. '3') THEN EHT = 0.D0 WRITE(I2,105) WRITE(LUOUT,200) 200 FORMAT(' Enter name of blue-book file. ') READ(LUIN,210) NAMEBB 210 FORMAT(A30) OPEN(I1,FILE=NAMEBB,STATUS='OLD') 220 READ(I1,230,END=250) CARD 230 FORMAT(A80) TYPE = CARD(7:10) IF(TYPE .EQ. '*80*') THEN READ(CARD,240)NAME,LATD,LATM,SLAT,JN, 1 LOND,LONM,SLON,JW 240 FORMAT(BZ,14X,A30,I2,I2,F7.5,A1,I3,I2,F7.5,A1) NAME24 = NAME(1:24) IF(JN.EQ.'S' .OR. JW.EQ.'E')GO TO 220 YLAT =(DBLE((LATD*60+LATM)*60)+SLAT)/RHOSEC YLON =(DBLE((LOND*60+LONM)*60)+SLON)/RHOSEC CALL GTOVEL(YLAT,YLON,EHT,RVN,RVE,RVU, 1 VN,VE,VU,VX,VY,VZ,JREGN,IOPT) IF(JREGN .EQ. 0 ) THEN WRITE(I2,245)NAME24,LATD,LATM,SLAT,JN,LOND,LONM, 1 SLON,JW,BLAB 245 FORMAT(A24,1X,I2,1X,I2,1X,F8.5,1X,A1,2X,I3,1X,I2, 1 1X,F8.5,1X,A1,1X,A17) ELSE WRITE(I2,100)NAME24,LATD,LATM,SLAT,JN,LOND,LONM, 1 SLON,JW,VN,VE IF(PVOUT .EQ. 'Y') THEN CALL PVPRNT(LATD,LATM,SLAT,LOND,LONM,SLON,VN,VE) ENDIF ENDIF ENDIF GO TO 220 250 CLOSE(I1,STATUS='KEEP') WRITE(LUOUT,260) 260 FORMAT(' ****************************************'/ 1 ' Velocities have been calculated for the specified '/ 2 ' blue-book file. If you wish to calculate additional'/ 3 ' velocities, please indicate how you will supply the'/ 4 ' horizontal coordinates.'/) ELSEIF(OPTION .EQ. '4') THEN EHT = 0.D0 WRITE(I2,105) CALL GETLYN(NAMEG,XLAT,XLON,FAZ,BAZ,XMIN,XMAX,XINC) XLON = TWOPI - XLON I = -1 300 I= I+1 S = XMIN + I*XINC IF(S .GT. XMAX) GO TO 330 IF(S .LT. 0.0D0) THEN S1 = -S AZ = BAZ ELSE S1 = S AZ = FAZ ENDIF CALL DIRCT1(XLAT,XLON,YLAT,YLON,AZ,AZ1,S1) YLON = TWOPI - YLON CALL TODMSS(YLAT,LATD,LATM,SLAT,ISIGN) LATDIR = 'N' IF (ISIGN .eq. -1) LATDIR = 'S' CALL TODMSS(YLON,LOND,LONM,SLON,ISIGN) LONDIR = 'W' IF (ISIGN .eq. -1) LONDIR = 'E' CALL GTOVEL(YLAT,YLON,EHT,RVN,RVE,RVU, 1 VN,VE,VU,VX,VY,VZ,JREGN,IOPT) IF(JREGN .EQ. 0 ) THEN WRITE(I2,305)NAMEG,I,LATD,LATM,SLAT,LATDIR,LOND,LONM, 1 SLON,LONDIR,BLAB 305 FORMAT(A10,I4,11X,I2,1X,I2,1X,F8.5,1X,A1,2X,I3,1X, 1 I2,1X,F8.5,1X,A1,1X,A17) ELSE WRITE(I2,310)NAMEG,I,LATD,LATM,SLAT,LATDIR,LOND,LONM,SLON, 1 LONDIR,VN,VE 310 FORMAT(A10,I4,11X,I2,1X,I2,1X,F8.5,1X,A1,2X,I3,1X,I2,1X, 1 F8.5,1X,A1,1X,2F8.2) IF(PVOUT .EQ. 'Y') THEN CALL PVPRNT(LATD,LATM,SLAT,LOND,LONM,SLON,VN,VE) ENDIF ENDIF GO TO 300 330 WRITE(LUOUT,340) 340 FORMAT(' ***********************************************'/ 1 ' Velocities have been calculated for the specified line.'/ 2 ' If you wish to calculate additional velocities, please'/ 3 ' indicate how you will specify positional coordinates.'/) C ELSEIF(OPTION .EQ. '5') THEN C WRITE(LUOUT,400) C 400 FORMAT(' Enter name of input file. ') C READ(LUIN,410) NAMEBB C 410 FORMAT(A30) C OPEN(I1,FILE=NAMEBB,STATUS='OLD') C WRITE(I2,415) C 415 FORMAT('SITE DIST LATITUDE LONGITUDE ', C 1 'NORTHWARD VELOCITY',10x,'EASTWARD VELOCITY'/ C 2 36x,'OBS. COMP. O-C S.Dev.', C 3 ' OBS. COMP. O-C S.Dev.'/) C 420 READ(I1,430,END=450)SITE,OVE,OVN,SDVE,SDVN,XLAT,XLON C 430 FORMAT(A8,2x,f5.1,2x,f5.1,2x,f5.1,2x,f5.1,8x,F8.5,2x,F9.5) C YLAT = XLAT*3600.D0/RHOSEC C YLON = XLON*3600.d0/RHOSEC C CALL GETREG(YLAT,YLON,JREGN) C CALL COMVEL(YLAT,YLON,JREGN,VN,VE,VU) C VN = VN + RVN C VE = VE + RVE C RESVE = OVE - VE C RESVN = OVN - VN C WRITE(I2,440)SITE,JDG,XLAT,XLON,OVN,VN,RESVN,SDVN, C 1 OVE,VE,RESVE,SDVE C 440 FORMAT(A8,2x,i3,2x,F8.5,2x,F9.5,8(2x,f5.1)) C GO TO 420 C 450 CLOSE(I1,STATUS='KEEP') C WRITE(LUOUT,460) C 460 FORMAT(' ****************************************' / C 1 ' Velocities have been calculated for the specified '/ C 2 ' UCLA file. If you wish to calculate additional'/ C 3 ' velocities, please indicate how you will supply the'/ C 4 ' horizontal coordinates.'/) ELSE WRITE(LUOUT,600) 600 FORMAT(' Improper entry--select again. ') ENDIF GO TO 40 610 CONTINUE CLOSE(I2, STATUS = 'KEEP') IF( PVOUT .EQ. 'Y') CLOSE(I3, STATUS = 'KEEP') RETURN END ************************************************************************** SUBROUTINE GTOVEL(YLAT,YLON,EHT,RVN,RVE,RVU, 1 VN,VE,VU,VX,VY,VZ,JREGN,IOPT) *** Compute velocity in appropriate reference frame for point with *** latitude YLAT (radians), longitude YLON (radians, positive west) *** and ellipsoid height EHT (meters) in this reference frame. IMPLICIT DOUBLE PRECISION (A-H,O-Z) IMPLICIT INTEGER*4 (I-N) *** Get reference latitude RLAT and reference longitude RLON in NAD 83 IF(IOPT .EQ. 0 .OR. IOPT .EQ. 1) THEN RLAT = YLAT RLON = YLON ELSE ELON = -YLON CALL TOXYZ(YLAT,ELON,EHT,X,Y,Z) DATE = 1996.0d0 CALL XTONAD(X,Y,Z,RLAT,RLON,EHTNAD,DATE,IOPT) ENDIF *** Get velocity in NAD 83 CALL GETREG(RLAT,RLON,JREGN) IF (JREGN .EQ. 0) RETURN CALL COMVEL(RLAT,RLON,JREGN,VN,VE,VU) VN = VN + RVN VE = VE + RVE VU = VU + RVU ELON = -YLON CALL TOVXYZ(YLAT,ELON,VN,VE,VU,VX,VY,VZ) *** Convert velocity into another reference frame if needed IF(IOPT .NE. 0 .AND. IOPT .NE. 1) THEN CALL VTRANF(X,Y,Z,VX,VY,VZ, 1, IOPT) CALL TOVNEU(YLAT, ELON, VX, VY, VZ, VN, VE, VU) ENDIF RETURN END **************************************************************************** SUBROUTINE XTONAD (X,Y,Z,RLAT,WLON,EHTNAD,DATE,IOPT) *** Converts X,Y,Z in specified datum to latitude and *** longitude (in radians) and height (meters) in NAD 83 *** datum with longitude positive west. IMPLICIT DOUBLE PRECISION (A-H,O-Z) IMPLICIT INTEGER*4 (I-N) LOGICAL FRMXYZ COMMON /CONST/ A,F,E2,EPS,AF,PI,TWOPI,RHOSEC *** Convert to cartesian coordinates in NAD 83 if (iopt .eq. 0 .or. iopt .eq. 1) then x2 = x y2 = y z2 = z else call toit94(x,y,z,x1,y1,z1,date,iopt) jopt = 1 call frit94(x1,y1,z1,x2,y2,z2,date,jopt) endif ***Convert to geodetic coordinates IF(.NOT.FRMXYZ(X2,Y2,Z2,RLAT,ELON,EHTNAD))STOP 666 WLON = -ELON 100 IF(WLON .LT. 0.D0) THEN WLON = WLON + TWOPI GO TO 100 ENDIF RETURN END ****************************************************** subroutine TRFPOS *** Transform position between reference frames implicit double precision (a-h,o-z) implicit integer*4 (i-n) parameter (numref = 11) character*80 card character*30 namef, namebb character*24 name24 character*6 frame character*1 jn, jw, LATDIR, LONDIR character*1 option, answer, vopt LOGICAL FRMXYZ LOGICAL TEST COMMON /CONST/ A, F, E2, EPS, AF, PI, TWOPI, RHOSEC COMMON /FILES/ LUIN, LUOUT, I1, I2, I3, I4, I5 common /frames/ frame(numref) write(luout,80) 80 format( 1 ' Please enter the name for the file to contain'/ 2 ' the transformed positions. ') read(luin,'(a30)') namef open(i2, file = namef, status = 'unknown') CALL HEADER 95 write(luout,100) 100 format (' *******************************************'/ 1 ' Enter the reference frame of the input positions') call menu1 read(luin,*) iopt1 if (iopt1 .lt. 1 .or. iopt1 .gt. numref) then write(luout,*) ' Improper selection -- try again. ' go to 95 endif 105 write(luout,110) 110 format (/' Enter the reference frame for the output positions') call menu1 read(luin,*) iopt2 if (iopt2 .lt. 1 .or. iopt2 .gt. numref) then write(luout,*) ' Improper selection -- try again. ' go to 105 endif 115 write(luout,120) 120 format (/ 1 ' Enter epoch date (month-day-year) of the input positions'/ 1 ' in free format. For example, the entry, 5,12,1979'/ 1 ' represents May 12, 1979. ') CALL GETTIM(MONTH1, IDAY1, IYEAR1, DATE1, MIN1, TEST) IF(TEST) GO TO 115 125 write(luout,130) 130 format(/ 1 ' Enter epoch date for the output positions in same format. ') CALL GETTIM(MONTH2, IDAY2, IYEAR2, DATE2, MIN2, TEST) IF(TEST) GO TO 125 write(i2, 150) frame(iopt1), month1, iday1, iyear1, 1 frame(iopt2), month2, iday2, iyear2 150 format(' TRANSFORMING POSITIONS FROM ',A6,' (EPOCH = ', 1 I2.2,'-',I2.2,'-',I4,')'/26X, 1 'TO ', A6, ' (EPOCH = ',I2.2,'-',I2.2,'-',I4,')'// 1 16X,'INPUT COORDINATES OUTPUT COORDINATES'/) 160 write(luout, 170) 170 format (/' ***************************************'/ 1 ' Coordinates will be transformed at each specified point.'/ 1 ' Please indicate how you wish to supply positions.'/ 1 ' 0... No more points. Return to main menu.'/ 1 ' 1... Individual points entered interactively.'/ 1 ' 2... The *80* records in a specified blue-book file. ') read(luin,'(a1)') option if (option .eq. '0') then go to 500 elseif (option .eq. '1') then 180 call GETPNT(latd, latm, slat, LATDIR, lond, lonm, slon, 1 LONDIR, name24, x, y, z, ylat, ylon, eht) call TOIT94(x, y, z, x1, y1, z1, date1, iopt1) call FRIT94(x1, y1, z1, x2, y2, z2, date1, iopt2) if (min1 .ne. min2) then if(.not.FRMXYZ(x2,y2,z2,ylat1,elon1,eht1)) STOP 666 ylon1 = -elon1 if(ylon1 .lt. 0.d0) ylon1 = ylon1 + twopi call GETVLY( ylat1, elon1, vx, vy, vz, vn, ve, vu, vopt, 210) if (vopt .ne. '0') then call VTRANF( x, y, z, vx, vy, vz, iopt1, iopt2) call TOVNEU( ylat1, elon1, vx, vy, vz, vn, ve, vu) else call PREDV( ylat1, ylon1, eht1, date1, iopt2, 1 jregn, vn, ve, vu) if (jregn .eq. 0) then write(luout, 200) 200 format(/' ****************************************'/ 1 ' These coordinates can not be transformed to a different'/ 1 ' date because the point is outside of the modeled region.'/) go to 220 endif endif call NEWCOR( ylat1, ylon1, eht1, min1, min2, 1 ylatt, ylont, ehtnew, dn, de, du, vn, ve, vu) call TOXYZ(ylatt,-ylont, ehtnew, xt, yt, zt) else xt = x2 yt = y2 zt = z2 if(.not.(FRMXYZ(xt,yt,zt,ylatt,elont,ehtnew))) STOP 666 ylont = -elont if(ylont .lt. 0.0d0) ylont = ylont + twopi endif call prnttp(x, y, z, xt, yt, zt, ylat, ylatt, 1 ylon, ylont, eht, ehtnew, name24, 1) 220 write(luout,*) ' Transform more positions? (y/n) ' read(luin,'(a1)') answer if(answer .eq. 'Y' .or. answer .eq. 'y') go to 180 elseif (option .eq. '2') then write(luout, 300) 300 format(/ 1 ' Note that this software interprets elevations contained '/ 1 ' in the *80* records as ellipsoid heights. '// 1 ' Enter name of the blue-book file: ') read(luin, '(a30)') namebb open (i1, file = namebb, status = 'old') 310 read(i1, '(a80)', end = 390) card if (card(7:10) .eq. '*80*') then read(card,320) name24, latd, latm, slat, jn, 1 lond, lonm, slon, jw, eht 320 format(bz, 14x, a24, 6x, i2, i2, f7.5, a1, 1 i3, i2, f7.5, a1, f6.2) if (jn .eq. 'S' .or. jw .eq. 'E') then write(i2, 330) name24 330 format(/ 1x,a24,' is outside of the modeled region. '/) go to 310 endif ylat = (dble((latd*60 + latm)*60) + slat) / rhosec ylon = (dble((lond*60 + lonm)*60) + slon) / rhosec call TOXYZ(ylat, -ylon, eht, x, y, z) call TOIT94(x, y, z, x1, y1, z1, date1, iopt1) call FRIT94(x1, y1, z1, x2, y2, z2, date1, iopt2) if (min1 .ne. min2) then if(.not.FRMXYZ(x2, y2, z2, ylat1, elon1, eht1)) STOP 666 ylon1 = -elon1 if (ylon1 .lt. 0.0d0) ylon1 = ylon1 + twopi call PREDV( ylat1, ylon1, eht1, date1, iopt2, 1 jregn, vn, ve, vu) if (jregn .eq. 0) then write(i2, 330) name24 go to 310 else call NEWCOR( ylat1, ylon1, eht1, min1, min2, 1 ylatt, ylont, ehtnew, dn, de, dui, vn, ve, vu) call TOXYZ(ylatt, -ylont, ehtnew, xt, yt, zt) endif else xt = x2 yt = y2 zt = z2 if(.not.FRMXYZ(xt,yt,zt,ylatt, elont, ehtnew)) STOP 666 ylont = -elont if (ylont .lt. 0.0d0) ylont = ylont + twopi endif call PRNTTP(x,y,z, xt,yt, zt, ylat, ylatt, 1 ylon, ylont, eht, ehtnew, name24, 0) endif go to 310 390 close (i1, status = 'keep') else write(luout,*) ' Improper selection -- try again. ' go to 160 endif 500 continue close(i2, status = 'keep') return end ***************************************************** subroutine PRNTTP(x, y, z, x1, y1, z1, ylat, 1 ylatt, ylon, ylont, eht, ehtnew, name24, iprint) ** Print updated and/or transformed parameters IMPLICIT DOUBLE PRECISION (A-H,O-Z) IMPLICIT INTEGER*4 (I-N) COMMON /FILES/ LUIN, LUOUT, I1, I2, I3, I4, I5 CHARACTER*24 NAME24 CHARACTER*1 LATDIR, LONDIR, LATDR, LONDR CALL TODMSS(YLATT,LATDN,LATMN,SLATN,ISIGN) LATDIR = 'N' if (isign .eq. -1) LATDIR = 'S' CALL TODMSS(YLONT,LONDN,LONMN,SLONN,ISIGN) LONDIR = 'W' if (isign .eq. -1) LONDIR = 'E' if (iprint .eq. 1) then WRITE(LUOUT,1065)LATDN,LATMN,SLATN,LATDIR,LONDN,LONMN, 1 SLONN,LONDIR, EHTNEW, X1,Y1,Z1 1065 FORMAT(' ****************************************'/ 1 ' New latitude = ',I3,1X,I2,1X,F8.5,1X,A1 / 2 ' New longitude = ',I3,1x,I2,1X,F8.5,1X,A1 / 2 ' New Ellip. Ht. = ', F12.3 ,' meters' / 3 ' New X = ',F12.3 ,' meters' / 4 ' New Y = ',F12.3 ,' meters' / 5 ' New Z = ',F12.3 ,' meters' / 3 ' ****************************************'/) endif call TODMSS(ylat,latd,latm,slat,isign) latdr = 'N' if(isign .eq. -1) latdr = 'S' call TODMSS(ylon, lond,lonm,slon,isign) londr = 'W' if(isign .eq. -1) londr = 'E' WRITE(I2,1070)NAME24, 1 LATD,LATM,SLAT,latdr,LATDN,LATMN,SLATN,latdir, 1 LOND,LONM,SLON,londr,LONDN,LONMN,SLONN,londir, 1 EHT, EHTNEW, X, X1, 1 Y, Y1, Z, Z1 1070 FORMAT(1X,A24,/ 1 5X, 'LATITUDE ',2(2X,I3,1X,I2.2,1X,F8.5,1X,A1,2X),/ 1 5X, 'LONGITUDE ',2(2X,I3,1X,I2.2,1X,F8.5,1X,A1,2X),/ 1 5X, 'ELLIP. HT.',2(6X,F13.3),' m '/ 1 5X, 'X ',2(6X,F13.3),' m '/ 1 5X, 'Y ',2(6X,F13.3),' m'/ 1 5X, 'Z ',2(6X,F13.3),' m'/) RETURN END ********************************************************** subroutine settp *** Specify transformation parameters from ITRF94 *** to other reference frames implicit double precision (a-h, o-z) implicit integer*4 (i-n) parameter (numref = 11) character*6 frame common /const/ a, f, e2, eps, af, pi, twopi, rhosec common /frames/ frame(numref) common /tranpa/ tx(numref), ty(numref), tz(numref), & dtx(numref), dty(numref), dtz(numref), & rx(numref), ry(numref), rz(numref), & drx(numref), dry(numref), drz(numref), & scale(numref), dscale(numref), refepc(numref) frame(1) = 'NAD_83' frame(2) = 'ITRF88' frame(3) = 'ITRF89' frame(4) = 'ITRF90' frame(5) = 'ITFR91' frame(6) = 'ITRF92' frame(7) = 'ITRF93' frame(8) = 'ITRF96' frame(9) = 'ITRF97' frame(10) = 'WGS_72' frame(11) = 'ITRF00' *** From ITRF94 to NAD 83 tx(1) = 0.9910d0 ty(1) = -1.9072d0 tz(1) = -.5129d0 dtx(1) = 0.d0 dty(1) = 0.d0 dtz(1) = 0.d0 rx(1) = 1.25033d-7 ry(1) = 0.46785d-7 rz(1) = 0.56529d-7 drx(1) = 0.00258d-7 dry(1) = -.03599d-7 drz(1) = -.00153d-7 scale(1) = 0.d0 dscale(1) = 0.0d0 refepc(1) = 1997.0d0 *** From ITRF94 to ITRF88 tx(2) = 0.018d0 ty(2) = 0.000d0 tz(2) = -.092d0 dtx(2) = 0.0d0 dty(2) = 0.0d0 dtz(2) = 0.0d0 rx(2) = -.0001d0 / rhosec ry(2) = 0.0d0 rz(2) = 0.0d0 drx(2) = 0.0d0 dry(2) = 0.0d0 drz(2) = 0.0d0 scale(2) = 0.74d-8 dscale(2) = 0.0d0 refepc(2) = 1988.0d0 *** From ITRF94 to ITRF89 tx(3) = 0.023d0 ty(3) = 0.036d0 tz(3) = -.068d0 dtx(3) = 0.0d0 dty(3) = 0.0d0 dtz(3) = 0.0d0 rx(3) = 0.0d0 ry(3) = 0.0d0 rz(3) = 0.0d0 drx(3) = 0.0d0 dry(3) = 0.0d0 drz(3) = 0.0d0 scale(3) = 0.43d-8 dscale(3) = 0.0d0 refepc(3) = 1988.0d0 *** From ITRF94 to ITRF90 tx(4) = 0.018d0 ty(4) = 0.012d0 tz(4) = -.030d0 dtx(4) = 0.0d0 dty(4) = 0.0d0 dtz(4) = 0.0d0 rx(4) = 0.0d0 ry(4) = 0.0d0 rz(4) = 0.0d0 drx(4) = 0.0d0 dry(4) = 0.0d0 drz(4) = 0.0d0 scale(4) = 0.09d-8 dscale(4) = 0.0d0 refepc(4) = 1988.0d0 *** From ITRF94 to ITRF91 tx(5) = 0.020d0 ty(5) = 0.016d0 tz(5) = -.014d0 dtx(5) = 0.0d0 dty(5) = 0.0d0 dtz(5) = 0.0d0 rx(5) = 0.0d0 ry(5) = 0.0d0 rz(5) = 0.0d0 drx(5) = 0.0d0 dry(5) = 0.0d0 drz(5) = 0.0d0 scale(5) = 0.06d-8 dscale(5) = 0.0d0 refepc(5) = 1988.0d0 *** From ITRF94 to ITRF92 tx(6) = 0.008d0 ty(6) = 0.002d0 tz(6) = -.008d0 dtx(6) = 0.0d0 dty(6) = 0.0d0 dtz(6) = 0.0d0 rx(6) = 0.0d0 ry(6) = 0.0d0 rz(6) = 0.0d0 drx(6) = 0.0d0 dry(6) = 0.0d0 drz(6) = 0.0d0 scale(6) = -.08d-8 dscale(6) = 0.0d0 refepc(6) = 1988.0d0 *** From ITRF94 to ITRF93 tx(7) = 0.006d0 ty(7) = -.005d0 tz(7) = -.015d0 dtx(7) = -.0029d0 dty(7) = 0.0004d0 dtz(7) = 0.0008d0 rx(7) = 0.00039d0 / rhosec ry(7) = -.00080d0 / rhosec rz(7) = 0.00096d0 / rhosec drx(7) = .00011d0 / rhosec dry(7) = .00019d0 / rhosec drz(7) =-.00005d0 / rhosec scale(7) = 0.04d-8 dscale(7) = 0.0d0 refepc(7) = 1988.0d0 *** From ITRF94 to ITRF96 tx(8) = 0.d0 ty(8) = 0.d0 tz(8) = 0.d0 dtx(8) = 0.d0 dty(8) = 0.d0 dtz(8) = 0.d0 rx(8) = 0.d0 ry(8) = 0.d0 rz(8) = 0.d0 drx(8) = 0.d0 dry(8) = 0.d0 drz(8) = 0.d0 scale(8) = 0.d0 dscale(8) = 0.0d0 refepc(8) = 1996.0d0 *** From ITRF94 to ITRF97 (based on IGS adopted values) *** According to IERS: ITRF97 = ITRF96 = ITRF94 tx(9) = 0.00207d0 ty(9) = 0.00021d0 tz(9) = -0.00995d0 dtx(9) = -0.00069d0 dty(9) = 0.00010d0 dtz(9) = -0.00186d0 rx(9) = -0.00012467d0 / rhosec ry(9) = 0.00022355d0 / rhosec rz(9) = 0.00006065d0 / rhosec drx(9) = -0.00001347d0 / rhosec dry(9) = 0.00001514d0 / rhosec drz(9) = -0.00000027d0 / rhosec scale(9) = 0.93496d-9 dscale(9) = 0.19201d-9 refepc(9) = 1997.0d0 *** From ITRF94 to WGS 72 (composition of ITRF94 -> NAD_83 -> WGS_72) tx(10) = 0.9910d0 ty(10) = -1.9072d0 tz(10) = -.5129d0 - 4.5d0 dtx(10) = 0.d0 dty(10) = 0.d0 dtz(10) = 0.d0 rx(10) = 1.25033d-7 ry(10) = 0.46785d-7 rz(10) = 0.56529d-7 + 26.85868d-7 drx(10) = 0.00258d-7 dry(10) = -.03599d-7 drz(10) = -.00153d-7 scale(10) = 0.d0 - 0.2263d-6 dscale(10) = 0.0d0 refepc(10) = 1997.0d0 *** From ITRF94 to ITRF00 *** assumes that ITRF94 = ITRF96 and *** uses IGS values for ITRF96 -> ITRF97 *** and IERS values for ITRF97 -> ITRF00 tx(11) = -.00463d0 ty(11) = -.00589d0 tz(11) = +.00855d0 dtx(11) = -0.00069d0 dty(11) = 0.00070d0 dtz(11) = -0.00046d0 rx(11) = -.00012467d0 / rhosec ry(11) = 0.00022355d0 / rhosec rz(11) = 0.00006065d0 / rhosec drx(11) = -0.00001347d0 / rhosec dry(11) = 0.00001514d0 / rhosec drz(11) = 0.00001973d0 / rhosec scale(11) = -0.61504d-9 dscale(11) = 0.18201d-9 refepc(11) = 1997.0d0 return end ************************************************************* subroutine frit94(x1, y1, z1, x2, y2, z2, date, jopt) *** Converts ITRF94 cartesian coordinates to cartesian *** coordinates in the specified reference frame for the *** given date *** (x1, y1, z1) --> input ITRF94 coordiates (meters) *** (x2, y2, z2) --> output coordinates (meters) *** date --> time (decimal years) to which the input & output *** coordinates correspond *** jopt --> input specifier of output reference frame implicit double precision (a-h, o-z) implicit integer*4 (i-n) parameter (numref = 11) common /tranpa/ tx(numref), ty(numref), tz(numref), & dtx(numref), dty(numref), dtz(numref), & rx(numref), ry(numref), rz(numref), & drx(numref), dry(numref), drz(numref), & scale(numref), dscale(numref), refepc(numref) if (jopt .eq. 0) then iopt = 1 else iopt = jopt endif dtime = date - refepc(iopt) tranx = tx(iopt) + dtx(iopt)*dtime trany = ty(iopt) + dty(iopt)*dtime tranz = tz(iopt) + dtz(iopt)*dtime rotnx = rx(iopt) + drx(iopt)*dtime rotny = ry(iopt) + dry(iopt)*dtime rotnz = rz(iopt) + drz(iopt)*dtime ds = 1.d0 + scale(iopt) + dscale(iopt)*dtime x2 = tranx + ds*x1 + rotnz*y1 - rotny*z1 y2 = trany - rotnz*x1 + ds*y1 + rotnx*z1 z2 = tranz + rotny*x1 - rotnx*y1 + ds*z1 return end *********************************************************** subroutine toit94(x1, y1, z1, x2, y2, z2, date, jopt) *** Converts cartesian coordinates in a specified reference *** to ITRF94 cartesian coordinates for the given date *** (x1, y1, z1) --> input coordiates (meters) *** (x2, y2, z2) --> output ITRF94 coordinates (meters) *** date --> time (decimal years) to which the input & output *** coordinates correspond *** jopt --> input specifier of input reference frame implicit double precision (a-h, o-z) implicit integer*4 (i-n) parameter (numref = 11) common /tranpa/ tx(numref), ty(numref), tz(numref), & dtx(numref), dty(numref), dtz(numref), & rx(numref), ry(numref), rz(numref), & drx(numref), dry(numref), drz(numref), & scale(numref), dscale(numref), refepc(numref) if (jopt .eq. 0) then iopt = 1 else iopt = jopt endif dtime = date - refepc(iopt) tranx = -(tx(iopt) + dtx(iopt)*dtime) trany = -(ty(iopt) + dty(iopt)*dtime) tranz = -(tz(iopt) + dtz(iopt)*dtime) rotnx = -(rx(iopt) + drx(iopt)*dtime) rotny = -(ry(iopt) + dry(iopt)*dtime) rotnz = -(rz(iopt) + drz(iopt)*dtime) ds = 1.d0 - (scale(iopt) + dscale(iopt)*dtime) x2 = tranx + ds*x1 + rotnz*y1 - rotny*z1 y2 = trany - rotnz*x1 + ds*y1 + rotnx*z1 z2 = tranz + rotny*x1 - rotnx*y1 + ds*z1 return end ***************************************************************** subroutine menu1 ** Write out options for reference frames implicit integer*4 (i-n) common /files/ luin, luout, i1, i2, i3, i4, i5 write(luout, 100) 100 format( 1' ________________________________ '/ 1' 1...NAD_83 8...ITRF94 | for WGS_84(orig) use NAD_83 |'/ 1' 2...ITRF88 8...ITRF96 | for WGS_84(G730) use ITRF92 |'/ 1' 3...ITRF89 9...ITRF97 | for WGS_84(G873) use ITRF94 |'/ 1' 4...ITRF90 9...IGS97 | for PNEOS_90 use ITRF90 |'/ 1' 5...ITRF91 10...WGS_72 | for NEOS_90 use ITRF90 |'/ 1' 6...ITRF92 11...ITRF00 | for SIO/MIT_92 use ITRF91 |'/ 1' 7...ITRF93 11...IGS00 | NOTE: ITRF94 = ITRF96 |'/ 1' |________________________________|') return end *************************************************************** SUBROUTINE UPDATE ** Update positions and/or observations to a specified date. IMPLICIT DOUBLE PRECISION (A-H,O-Z) IMPLICIT INTEGER*4 (I-N) parameter (numref = 11) parameter (nbbdim = 100000) COMMON /CONST/ A,F,E2,EPS,AF,PI,TWOPI,RHOSEC COMMON /FILES/ LUIN, LUOUT, I1, I2, I3, I4, I5 common /frames/ frame(numref) CHARACTER*30 OLDBB,NEWBB CHARACTER*24 NAME24 CHARACTER*1 OPT, ANSWER, BBTYPE, VOPT CHARACTER*1 LATDIR, LONDIR, LATDR, LONDR character*6 frame LOGICAL TEST 10 WRITE(LUOUT,20) 20 FORMAT(' ******************************************'/ 1 ' Please enter the time (month-day-year) in free'/ 1 ' format to which the updated positions and/or'/ 1 ' observations are to correspond.'/ 2' For example, the entry, 5,12,1979, represents May 12, 1979. ') CALL GETTIM(MONTH2,IDAY2,IYEAR2,DATE2,MIN2,TEST) IF(TEST) GO TO 10 ** Choosing reference frame for positions WRITE(LUOUT,30) 30 FORMAT(' **************************************************'/ 1 ' Select the reference frame to be used for specifying'/ 2 ' positions. Note that in the NAD 83 reference frame,'/ 3 ' the interior of the North American tectonic plate'/ 4 ' has no net horizontal motion even though individual'/ 5 ' sites may move.') call menu1 35 READ(LUIN,*) IOPT IF(IOPT .LT. 1 .OR. IOPT .GT. numref) THEN WRITE(LUOUT,40) 40 FORMAT(' Improper selection--try again. ') GO TO 35 ENDIF 999 WRITE(LUOUT,1000) 1000 FORMAT(' ******************************'/ 1 ' Select option:'/ 2 ' 0...No more updates. Return to main menu.'/ 3 ' 1...Update positions for individual points', 4 ' entered interactively.'/ 5 ' 2...Update positions for blue book stations.'/ 6 ' 3...Update values for blue book observations.'/ 7 ' 4...Update both the positions for blue book', 8 ' stations'/ 9 ' and the values for blue book', 9 ' observations.'/) READ(LUIN,'(A1)') OPT IF(OPT .eq. '0') THEN RETURN ELSEIF(OPT .eq. '1') THEN 1010 WRITE(LUOUT,1020) 1020 FORMAT(' ************************************'/ 1 ' Enter the time (month-day-year) in free format'/ 2 ' to which the input positions will correspond. ') CALL GETTIM(MONTH1,IDAY1,IYEAR1,DATE1,MIN1,TEST) IF(TEST) GO TO 1010 WRITE(LUOUT,1030) 1030 FORMAT(' ENTER file to save updated positions. ') READ(LUIN,'(A30)') NEWBB OPEN(I2,FILE=NEWBB,STATUS='UNKNOWN') CALL HEADER WRITE(I2,1031) frame(iopt) 1031 FORMAT(' UPDATED POSITIONS IN ', a6) WRITE(I2,1040) MONTH1,IDAY1,IYEAR1,MONTH2,IDAY2,IYEAR2 1040 FORMAT(' FROM ',I2,'-',I2.2,'-',I4, 1 ' TO ',I2,'-',I2.2,'-',I4,' (month-day-year)'// 2 19X,'OLD COORDINATE NEW COORDINATE', 3 4X,'DISPLACEMENT',/) 1050 CALL GETPNT(LATD,LATM,SLAT,LATDIR,LOND,LONM,SLON, 1 LONDIR, NAME24, X,Y,Z,YLAT,YLON,EHT) ELON = -YLON call GETVLY(YLAT, ELON, VX, VY, VZ, VN, VE, VU, VOPT, 210) IF ( VOPT .EQ. '0') then call PREDV( ylat, ylon, eht, date1, iopt, 1 jregn, vn, ve, vu) IF(JREGN .eq. 0) THEN WRITE(LUOUT,1060) 1060 FORMAT(' **************************************'/ 1 ' Can not update the position of this point'/ 2 ' because it is outside of the modeled region.'/) GO TO 1075 ENDIF ENDIF call NEWCOR( ylat, ylon, eht, min1, min2, 1 ylatt, ylont, ehtnew, dn, de, du, vn, ve, vu) CALL TODMSS(YLATT,LATDN,LATMN,SLATN,ISIGN) LATDR = 'N' IF (ISIGN .eq. -1) LATDR = 'S' CALL TODMSS(YLONT,LONDN,LONMN,SLONN,ISIGN) LONDR = 'W' IF (ISIGN .eq. -1) LONDR = 'E' ELONT = -YLONT CALL TOXYZ(YLATT,ELONT,EHTNEW,X1,Y1,Z1) DX = X1 - X DY = Y1 - Y DZ = Z1 - Z WRITE(LUOUT,1065)LATDN,LATMN,SLATN,LATDR,LONDN,LONMN,SLONN, 1 LONDR, EHTNEW, X1,Y1,Z1 1065 FORMAT(' ****************************************'/ 1 ' Updated latitude = ',I3,I3,1X,F8.5,1X,A1 / 2 ' Updated longitude = ',I3,I3,1X,F8.5,1X,A1 / 2 ' Updated Ellip. Ht. = ', F12.3 ,' meters' / 3 ' Updated X = ',F12.3 ,' meters' / 4 ' Updated Y = ',F12.3 ,' meters' / 5 ' Updated Z = ',F12.3 ,' meters' / 3 ' ****************************************'/) WRITE(I2,1070)NAME24, 1 LATD,LATM,SLAT,LATDIR,LATDN,LATMN,SLATN,LATDR,DN, 1 LOND,LONM,SLON,LONDIR,LONDN,LONMN,SLONN,LONDR,DE, 1 EHT, EHTNEW, DU, X, X1, DX, 1 Y, Y1, DY, Z, Z1, DZ 1070 FORMAT(1X,A24,/ 1 5X, 'LATITUDE ',2(2X,I3,I3.2,1X,F8.5,1X,A1),F7.3, 1 ' m north'/ 1 5X, 'LONGITUDE ',2(2X,I3,I3.2,1X,F8.5,1x,A1),F7.3, 1 ' m east'/ 1 5X, 'ELLIP. HT.',2(6X,F13.3),F7.3,' m up'/ 1 5X, 'X ',2(6X,F13.3),F7.3,' m '/ 1 5X, 'Y ',2(6X,F13.3),F7.3,' m'/ 1 5X, 'Z ',2(6X,F13.3),F7.3,' m'/) 1075 WRITE(LUOUT,1080) 1080 FORMAT(' Update more positions? (y/n) ') READ(LUIN,'(A1)') ANSWER IF(ANSWER .eq. 'Y' .or. ANSWER .eq. 'y') GO TO 1050 CLOSE(I2,STATUS='KEEP') RETURN *** Updating a blue book (1994 format) ELSEIF(OPT .eq. '2' .or. OPT .eq. '3' .or. OPT .eq. '4') THEN if (nbbdim .eq. 100000) then 90 WRITE(LUOUT,91) 91 FORMAT( 1 ' Identify type of blue bbook:'/ 2 ' 1...Standard (4-digit SSN)'/ 3 ' 2...Non-standard (5-digit SSN) ') READ(LUIN,'(A1)') BBTYPE IF(BBTYPE .NE. '1' .AND. BBTYPE .NE. '2') GO TO 90 else BBTYPE = '1' endif WRITE(LUOUT,100) 100 FORMAT(' Enter name of the blue book file to be updated.'/) READ(LUIN,110) OLDBB 110 FORMAT(A30) WRITE(LUOUT,120) 120 FORMAT(' Enter name for the new blue book file that is to '/ 1 'contain the updated information.'/) READ(LUIN,110) NEWBB OPEN(I1,FILE = OLDBB , STATUS = 'OLD') C OPEN(I4, FILE = 'TEMPGP', ACCESS = 'DIRECT', RECL = 20, C 1 FORM = 'UNFORMATTED') OPEN(I4, ACCESS = 'DIRECT', RECL = 40, 1 FORM = 'UNFORMATTED', STATUS = 'SCRATCH') IF(OPT .eq. '2' .or. OPT .eq. '4') THEN 121 WRITE(LUOUT,122) 122 FORMAT(' *********************************************'/ 1 ' Enter the time (month-day-year) in free format '/ 1 ' to which the input positions correspond.'/) CALL GETTIM(MONTH1,IDAY1,IYEAR1,DATE1,MIN1,TEST) IF(TEST) GO TO 121 ENDIF *** Retrieve geodetic positions from old blue-book file IF(BBTYPE .EQ. '1') THEN CALL GETPO4(IOPT, DATE1) ELSEIF(BBTYPE .EQ. '2') THEN CALL GETPO5(IOPT, DATE1) ENDIF *** Create new blue book file OPEN(I2,FILE = NEWBB, STATUS = 'UNKNOWN') IF (OPT .EQ. '3' .OR. OPT .EQ. '4') THEN WRITE(I2, 130) MONTH2, IDAY2, IYEAR2 130 FORMAT(' *** CAUTION: Observations in this file have ', * 'been updated to ',I2,'-',I2.2,'-',I4, ' ***') ENDIF IF(BBTYPE .EQ. '1') THEN CALL UPBB4(MIN1,MIN2,OPT,IOPT) ELSEIF(BBTYPE .EQ. '2') THEN CALL UPBB5(MIN1,MIN2,OPT,IOPT) ENDIF CLOSE(I1, STATUS = 'KEEP') CLOSE(I2, STATUS = 'KEEP') *** Update G-FILE IF(OPT .eq. '3' .or. OPT .eq. '4') THEN 605 WRITE(LUOUT,610) 610 FORMAT(/' Is there a G-FILE to be updated? (y/n) ') READ(LUIN,'(A1)') ANSWER IF(ANSWER .eq. 'N' .or. ANSWER .eq. 'n') THEN CONTINUE ELSEIF(ANSWER .eq. 'Y' .or. ANSWER .eq. 'y')THEN WRITE(LUOUT,620) 620 FORMAT(' Enter name of old G-FILE to be updated. ') READ(LUIN,'(A30)') OLDBB WRITE(LUOUT,630) 630 FORMAT(' Enter name for the new updated G-FILE. ') READ(LUIN,'(A30)') NEWBB OPEN(I1,FILE=OLDBB,STATUS='OLD') OPEN(I2,FILE=NEWBB,STATUS='UNKNOWN') WRITE(I2,130) MONTH2, IDAY2, IYEAR2 WRITE(LUOUT, 632) 632 FORMAT(/' ***************************'/ * ' To what reference frame should the GPS'/ * ' vectors be transformed?'/ * ' -1...Do not transform GPS vectors.') CALL MENU1 634 READ(LUIN, *) KOPT IF(KOPT .LT. -1 .OR. KOPT .GT. numref) THEN WRITE(LUOUT, 40) GO TO 634 ELSEIF (1 .LE. KOPT .AND. KOPT .LE. numref) then write( I2, 640) frame(KOPT) 640 format( ' *** CAUTION: All GPS interstation vectors', 1 ' have been transformed to ', a6, ' ***') ENDIF IF(BBTYPE .EQ. '1') THEN CALL UPGFI4(DATE2, MIN2, IOPT, KOPT, * MONTH2, IDAY2, IYEAR2) ELSEIF(BBTYPE .EQ. '2') THEN CALL UPGFI5(DATE2, MIN2, IOPT, KOPT, * MONTH2, IDAY2, IYEAR2) ENDIF CLOSE(I1, STATUS = 'KEEP') CLOSE(I2, STATUS = 'KEEP') ELSE WRITE(LUOUT,700) GO TO 605 ENDIF ENDIF CLOSE(I4, STATUS = 'DELETE') RETURN ELSE WRITE(LUOUT,700) 700 FORMAT(' Improper entry !'/) GO TO 999 ENDIF END ******************************************************************* SUBROUTINE GETPO4(IOPT, DATE) *** Retrieve geodetic coordinates from the blue book IMPLICIT DOUBLE PRECISION (A-H,O-Z) IMPLICIT INTEGER*4 (I-N) parameter (nbbdim = 100000) CHARACTER*1 JN,JW CHARACTER*4 TYPE CHARACTER*80 CARD COMMON /CONST/ A,F,E2,EPS,AF,PI,TWOPI,RHOSEC COMMON /ARRAYS/ HT(nbbdim),LOC(nbbdim) COMMON /FILES/ LUIN, LUOUT, I1, I2, I3, I4, I5 DO 100 I = 1, 10000 LOC(I) = 0 HT(I) = 0.D0 100 CONTINUE JREC = 0 125 READ(I1,130,END=160) CARD 130 FORMAT(A80) TYPE = CARD(7:10) IF(TYPE .EQ. '*80*') THEN JREC = JREC + 1 READ(CARD,140)ISN,LATD,LATM,SLAT,JN,LOND,LONM,SLON,JW,OH 140 FORMAT(BZ,10X,I4,T45,2I2,F7.5,A1,I3,I2,F7.5,A1,F6.2) LOC(ISN) = JREC HT(ISN) = HT(ISN) + OH YLAT = (DBLE((LATD*60+LATM)*60)+SLAT)/RHOSEC YLON = (DBLE((LOND*60+LONM)*60)+SLON)/RHOSEC IF(JN .EQ. 'S') YLAT = -YLAT IF(JW .EQ. 'E') YLON = -YLON C IF(IOPT .EQ. 1) THEN C XLAT = YLAT C XLON = YLON C ELSE C ELON = -YLON C CALL TOXYZ(YLAT,ELON,HT(ISN),X,Y,Z) C CALL XTONAD(X,Y,Z,XLAT,XLON,EHTNAD,DATE,IOPT) C ENDIF C CALL GETREG(XLAT,XLON,IDG) call PREDV( ylat, ylon, ht(isn), date, iopt, 1 IDG, vn, ve, vu) IF(IDG .eq. 0) THEN WRITE(LUOUT,150) CARD 150 FORMAT(' **WARNING** The following point is outside of ', 1 'the modeled region.'/ 2 ' It will be assumed that this point has not moved.'/A80/) C VN = 0. C VE = 0. C VU = 0. C ELSE C CALL COMVEL( XLAT, XLON, IDG, VN, VE, VU) C C IF (IOPT .NE. 1) THEN C CALL TOVXYZ( XLAT, ELON, VN, VE, VU, VX, VY, VZ) C CALL VTRAN( X, Y, Z, VX, VY, VZ, IOPT) C CALL TOVNEU( YLAT, ELON, VX, VY, VZ, VN, VE, VU) C ENDIF ENDIF WRITE(I4, REC = JREC) YLAT, YLON, VN, VE, VU ELSEIF(TYPE .eq. '*84*') THEN READ(CARD,155) ISN,GH 155 FORMAT(BZ,10X,I4,T70,F6.2) HT(ISN) = HT(ISN) + GH ELSEIF(TYPE .eq. '*86*') THEN IF(CARD(46:52) .ne. ' ') THEN READ(CARD,156) ISN, EHT 156 FORMAT(BZ,10X,I4,T46,F7.3) HT(ISN) = EHT ELSE READ(CARD,157) ISN, OHT, GHT 157 FORMAT(BZ,10X,I4,T17,F7.3,T36,F7.3) HT(ISN) = OHT + GHT ENDIF ENDIF GO TO 125 160 REWIND I1 RETURN END ****************************************************************** SUBROUTINE GETPO5(IOPT, DATE) *** Retrieve geodetic position from blue book with 5-digit SSN IMPLICIT DOUBLE PRECISION (A-H,O-Z) IMPLICIT INTEGER*4 (I-N) parameter (nbbdim = 100000) CHARACTER*1 JN,JW CHARACTER*3 TYPE CHARACTER*80 CARD COMMON /CONST/ A,F,E2,EPS,AF,PI,TWOPI,RHOSEC COMMON /ARRAYS/ HT(nbbdim),LOC(nbbdim) COMMON /FILES/ LUIN, LUOUT, I1, I2, I3, I4, I5 DO 100 I = 1, 100000 LOC(I) = 0 HT(I) = 0.D0 100 CONTINUE JREC = 0 125 READ(I1,130,END=160) CARD 130 FORMAT(A80) TYPE = CARD(7:9) IF(TYPE .EQ. '*80') THEN JREC = JREC + 1 READ(CARD,140)ISN,LATD,LATM,SLAT,JN,LOND,LONM,SLON,JW,OH 140 FORMAT(BZ, 9X,I5,T45,2I2,F7.5,A1,I3,I2,F7.5,A1,F6.2) LOC(ISN) = JREC HT(ISN) = HT(ISN) + OH YLAT = (DBLE((LATD*60+LATM)*60)+SLAT)/RHOSEC YLON = (DBLE((LOND*60+LONM)*60)+SLON)/RHOSEC IF(JN .EQ. 'S') YLAT = -YLAT IF(JW .EQ. 'E') YLON = -YLON C IF(IOPT .EQ. 1) THEN C XLAT = YLAT C XLON = YLON C ELSE C ELON = -YLON C CALL TOXYZ(YLAT,ELON,HT(ISN),X,Y,Z) C CALL XTONAD(X,Y,Z,XLAT,XLON,EHTNAD,DATE,IOPT) C ENDIF C CALL GETREG(XLAT,XLON,IDG) call PREDV( ylat, ylon, ht(isn), date, iopt, 1 idg, vn, ve, vu) IF(IDG .eq. 0) THEN WRITE(LUOUT,150) CARD 150 FORMAT(' **WARNING** The following point is outside of ', 1 'the modeled region.'/ 2 ' It will be assumed that this point has not moved.'/A80/) ENDIF WRITE(I4, REC = JREC) YLAT, YLON, VN, VE, VU ELSEIF(TYPE .eq. '*84') THEN READ(CARD,155) ISN,GH 155 FORMAT(BZ, 9X,I5,T70,F6.2) HT(ISN) = HT(ISN) + GH ELSEIF(TYPE .eq. '*86') THEN IF(CARD(46:52) .ne. ' ') THEN READ(CARD,156) ISN, EHT 156 FORMAT(BZ, 9X,I5,T46,F7.3) HT(ISN) = EHT ELSE READ(CARD,157) ISN, OHT, GHT 157 FORMAT(BZ, 9X,I5,T17,F7.3,T36,F7.3) HT(ISN) = OHT + GHT ENDIF ENDIF GO TO 125 160 REWIND I1 RETURN END ****************************************************************** SUBROUTINE UPBB4(MIN1,MIN2,OPT,IOPT) *** Update blue book IMPLICIT DOUBLE PRECISION (A-H,O-Z) IMPLICIT INTEGER*4 (I-N) parameter (nbbdim = 100000) CHARACTER*80 CARD CHARACTER*6 DATE CHARACTER*4 TYPE CHARACTER*1 OPT,JN,JW CHARACTER*1 LATDIR, LONDIR LOGICAL TEST, TEST1 COMMON /ARRAYS/ HT(nbbdim),LOC(nbbdim) COMMON /FILES/ LUIN, LUOUT, I1, I2, I3, I4, I5 COMMON /CONST/ A,F,E2,EPS,AF,PI,TWOPI,RHOSEC C*** To update classical observations an *12* record C*** is needed to identify the correct century, as C*** classical observation records contain only a 2-digit year IREC12 = 0 170 READ(I1,175,END=600) CARD 175 FORMAT(A80) TYPE = CARD(7:10) IF(TYPE .EQ. '*A1*' .OR. 1 TYPE .EQ. '*AA*' .OR. 1 TYPE .EQ. '*10*' .OR. 1 TYPE .EQ. '*11*' .OR. 1 TYPE .EQ. '*13*' .OR. 1 TYPE .EQ. '*21*' .OR. 1 TYPE .EQ. '*25*' .OR. 1 TYPE .EQ. '*26*' .OR. 1 TYPE .EQ. '*27*' .OR. 1 TYPE .EQ. '*28*' .OR. 1 TYPE .EQ. '*29*' ) THEN CONTINUE ELSEIF(TYPE .EQ. '*31*' .OR. 1 TYPE .EQ. '*40*' .OR. 1 TYPE .EQ. '*41*' .OR. 1 TYPE .EQ. '*42*' .OR. 1 TYPE .EQ. '*45*' .OR. 1 TYPE .EQ. '*46*' .OR. 1 TYPE .EQ. '*47*' .OR. 1 TYPE .EQ. '*70*' .OR. 1 TYPE .EQ. '*81*' .OR. 1 TYPE .EQ. '*82*' .OR. 1 TYPE .EQ. '*83*' .OR. 1 TYPE .EQ. '*84*' .OR. 1 TYPE .EQ. '*85*' .OR. 1 TYPE .EQ. '*86*' .OR. 1 TYPE .EQ. '*90*') THEN CONTINUE ELSEIF (TYPE .EQ. '*12*') THEN IF( CARD(11:14) .EQ. ' ' .OR. 1 CARD(17:20) .EQ. ' ') THEN WRITE ( LUOUT, 176 ) 176 FORMAT( ' ERROR: The *12* record does not contain'/ 1 ' appropriate dates.') ELSE READ ( CARD, 177) IYEAR1, IYEAR2 177 FORMAT ( 10X, I4, 2X, I4) IF ( (IYEAR2 - IYEAR1) .LT. 0 .OR. 1 (IYEAR2 - IYEAR1) .GT. 99 ) THEN WRITE (LUOUT, 178) 178 FORMAT(' ERROR: The dates in the *12* record are in'/ 1 ' error. Either they span more than 99 years or '/ 1 ' the end date preceedes the start date.'/ 1 ' If they span more than 99 years, then the Bluebook'/ 1 ' will need to divided into two or more bluebooks'/ 1 ' with the observations in each spanning no more'/ 1 ' than 99 years.') ELSE IREC12 = 1 ENDIF ENDIF *** Regular distance ELSEIF(TYPE .EQ. '*50*' .OR. 1 TYPE .EQ. '*51*' .OR. 1 TYPE .EQ. '*52*') THEN IF(OPT .eq. '3' .or. OPT .eq. '4')THEN READ(CARD,180) ISN,DATE,JSN,OBS 180 FORMAT(BZ,10X,I4,T35,A6,T46,I4,T64,F9.4) CALL CHECK(ISN,JSN,CARD,TEST) IF(TEST) THEN CALL TRFDAT(CARD,DATE,IREC12, IYEAR1, IYEAR2, MINO) CALL DSDA(LOC(ISN), LOC(JSN), 1 MINO, MIN2, DS, DA) IOBS = IDNINT((OBS+DS)*10000.D0) WRITE(CARD(64:72),190) IOBS 190 FORMAT(I9) ENDIF ENDIF *** Azimuth ELSEIF(TYPE .EQ. '*60*' .OR. TYPE .EQ. '*61*') THEN IF(OPT .eq. '3' .or. OPT .eq. '4') THEN READ(CARD,200) ISN,DATE,JSN,IDEG,MIN,SEC 200 FORMAT(BZ,10X,I4,T40,A6,T51,I4,T64,I3,I2,F3.1) CALL CHECK(ISN,JSN,CARD,TEST) IF(TEST) THEN CALL TRFDAT(CARD,DATE,IREC12, IYEAR1, IYEAR2, MINO) CALL DSDA(LOC(ISN), LOC(JSN), 1 MINO, MIN2, DS, DA) OBS = (DBLE((IDEG*60+MIN)*60)+SEC)/RHOSEC OBS = OBS + DA IF(OBS .GE. TWOPI) THEN OBS = OBS - TWOPI ELSEIF(OBS .LT. 0.D0) THEN OBS = OBS + TWOPI ENDIF CALL TODMSS(OBS,IDEG,MIN,SEC,ISIGN) ISEC = IDNINT(SEC*10.D0) WRITE(CARD(64:71),210) IDEG,MIN,ISEC 210 FORMAT(I3,I2.2,I3.3) ENDIF ENDIF *** Direction observation ELSEIF(TYPE .EQ. '*20*') THEN IF(OPT .eq. '3' .or. OPT .eq. '4') THEN READ(CARD,220) ISN0,LIST0,DATE,JSN 220 FORMAT(BZ,10X,I4,I2,T40,A6,T51,I4) CALL CHECK(ISN0,JSN,CARD,TEST) CALL TRFDAT(CARD,DATE,IREC12, IYEAR1, IYEAR2, MINO) IF(TEST) THEN CALL DSDA(LOC(ISN0), LOC(JSN), 1 MINO, MIN2, DS, DA0) ELSE DA0 = 0.D0 ENDIF ENDIF ELSEIF(TYPE .EQ. '*22*') THEN IF(OPT .eq. '3' .or. OPT .eq. '4') THEN READ(CARD,230) ISN,LIST,JSN,IDEG,MIN,SEC 230 FORMAT(BZ,10X,I4,I2,T51,I4,T64,I3,I2,F4.2) IF(LIST.NE.LIST0 .OR. ISN.NE.ISN0) THEN WRITE(LUOUT,240) CARD 240 FORMAT(' Blue-book file has incorrect structure.'/ 1 ' A *22* record disagrees with its corresponding'/ 2 ' *20* record. The record reads:'/A80) STOP ENDIF CALL CHECK(ISN,JSN,CARD,TEST) IF(TEST) THEN CALL DSDA(LOC(ISN), LOC(JSN), 1 MINO, MIN2, DS, DA) OBS=(DBLE((IDEG*60+MIN)*60)+SEC)/RHOSEC OBS = OBS + DA - DA0 IF(OBS .GT. TWOPI) THEN OBS = OBS - TWOPI ELSEIF(OBS .LT. 0.D0) THEN OBS = OBS + TWOPI ENDIF CALL TODMSS(OBS,IDEG,MIN,SEC,ISIGN) ISEC = IDNINT(SEC*100.D0) WRITE(CARD(64:72),250) IDEG,MIN,ISEC 250 FORMAT(I3.3,I2.2,I4.4) ENDIF ENDIF *** Long distance ELSEIF(TYPE .EQ. '*53*' .OR. 1 TYPE .EQ. '*54*') THEN IF(OPT .eq. '3' .or. OPT .eq. '4') THEN READ(CARD,260) ISN,DATE,JSN,OBS 260 FORMAT(BZ,10X,I4,T35,A6,T46,I4,T64,F10.3) CALL CHECK(ISN,JSN,CARD,TEST) IF(TEST) THEN CALL TRFDAT(CARD,DATE,IREC12, IYEAR1, IYEAR2, MINO) CALL DSDA(LOC(ISN), LOC(JSN), 1 MINO, MIN2, DS, DA) IOBS = IDNINT((OBS + DS)*1000.D0) WRITE(CARD(64:73),270) IOBS 270 FORMAT(I10) ENDIF ENDIF *** Horizontal angle ELSEIF(TYPE .EQ. '*30*' .OR. 1 TYPE .EQ. '*32*') THEN IF(OPT .eq. '3' .or. OPT .eq. '4') THEN READ(CARD,280) ISN,JSN,IDEG,MIN,SEC,KSN 280 FORMAT(BZ,10X,I4,T51,I4,T64,I3,I2,F3.1,I4) IF(TYPE.EQ.'*30*') THEN DATE = CARD(40:45) CALL TRFDAT(CARD,DATE,IREC12, IYEAR1, IYEAR2, MINO) ENDIF CALL CHECK(ISN,JSN,CARD,TEST) CALL CHECK(ISN,KSN,CARD,TEST1) IF(TEST .and. TEST1) THEN CALL DSDA(LOC(ISN), LOC(JSN), 1 MINO, MIN2, DS, DA0) CALL DSDA(LOC(ISN), LOC(KSN), 1 MINO, MIN2, DS, DA) OBS=(DBLE((IDEG*60+MIN)*60)+SEC)/RHOSEC OBS = OBS + DA - DA0 IF(OBS .GE. TWOPI) THEN OBS = OBS - TWOPI ELSEIF(OBS .LT. 0.D0) THEN OBS = OBS + TWOPI ENDIF CALL TODMSS(OBS,IDEG,MIN,SEC,ISIGN) ISEC = IDNINT(SEC*10.D0) WRITE(CARD(64:71),290)IDEG,MIN,SEC 290 FORMAT(I3.3,I2.2,I3.3) ENDIF ENDIF *** position record ELSEIF(TYPE .EQ. '*80*') THEN IF(OPT .eq. '2' .or. OPT .eq. '4') THEN READ(CARD,300) ISN,LATD,LATM,SLAT,JN, 1 LOND,LONM,SLON,JW 300 FORMAT(BZ,10X,I4,T45,2I2,F7.5,A1,I3,I2,F7.5,A1) YLAT = (DBLE((LATD*60+LATM)*60)+SLAT)/RHOSEC YLON = (DBLE((LOND*60+LONM)*60)+SLON)/RHOSEC IF(JN .EQ. 'S') YLAT = -YLAT IF(JW .EQ. 'E') YLON = -YLON C READ(I4, REC = LOC(ISN)) RLAT, RLON, IDG READ(I4, REC = LOC(ISN)) RLAT, RLON, VN, VE, VU call NEWCOR( ylat, ylon, ht(isn), min1, min2, 1 ylatt, ylont, ehtnew, dn, de, du, vn, ve, vu) C CALL NWCORD(YLAT,YLON,HT(ISN), C 1 RLAT,RLON,IDG,MIN1,MIN2, C 1 YLATT,YLONT,EHTNEW,DN,DE,DU,IOPT) CALL TODMSS(YLATT,LATDN,LATMN,SLATN,ISIGN) LATDIR = 'N' IF (ISIGN .eq. -1) LATDIR = 'S' CALL TODMSS(YLONT,LONDN,LONMN,SLONN,ISIGN) LONDIR = 'W' IF (ISIGN .eq. -1) LONDIR = 'E' LATS = IDNINT(SLATN*100000.D0) LONS = IDNINT(SLONN*100000.D0) WRITE(CARD(45:56),310) LATDN,LATMN,LATS,LATDIR 310 FORMAT(I2,I2.2,I7.7,A1) WRITE(CARD(57:69),320) LONDN,LONMN,LONS,LONDIR 320 FORMAT(I3,I2.2,I7.7,A1) ENDIF *** Unrecognized blue book record ELSE WRITE(LUOUT,500) TYPE 500 FORMAT(' This software does not recognize an ',A4,/ 1 ' record. The record will be copied to the new'/ 2 ' file without change.') ENDIF WRITE(I2,175) CARD GO TO 170 600 CONTINUE RETURN END *************************************************************** SUBROUTINE UPBB5(MIN1,MIN2,OPT,IOPT) *** Update 5-digit blue book IMPLICIT DOUBLE PRECISION (A-H,O-Z) IMPLICIT INTEGER*4 (I-N) parameter (nbbdim = 100000) CHARACTER*212 CARD CHARACTER*80 SUBCRD C CHARACTER*6 DATE CHARACTER*8 DATE8 CHARACTER*3 TYPE CHARACTER*1 OPT,SIGN,JN,JW CHARACTER*1 LATDIR, LONDIR LOGICAL TEST COMMON /ARRAYS/ HT(nbbdim),LOC(nbbdim) COMMON /FILES/ LUIN, LUOUT, I1, I2, I3, I4, I5 COMMON /CONST/ A,F,E2,EPS,AF,PI,TWOPI,RHOSEC 170 READ(I1,175,END=600) CARD 175 FORMAT(A212) SUBCRD = CARD(1:80) TYPE = CARD(7:9) IF(TYPE .EQ. '*A1' .OR. 1 TYPE .EQ. '*AA' .OR. 1 TYPE .EQ. '*10' .OR. 1 TYPE .EQ. '*11' .OR. 1 TYPE .EQ. '*12' .OR. 1 TYPE .EQ. '*13' .OR. 1 TYPE .EQ. '*21' .OR. 1 TYPE .EQ. '*25' .OR. 1 TYPE .EQ. '*26' .OR. 1 TYPE .EQ. '*27' .OR. 1 TYPE .EQ. '*28' .OR. 1 TYPE .EQ. '*29' ) THEN CONTINUE ELSEIF(TYPE .EQ. '*31' .OR. 1 TYPE .EQ. '*40' .OR. 1 TYPE .EQ. '*41' .OR. 1 TYPE .EQ. '*42' .OR. 1 TYPE .EQ. '*45' .OR. 1 TYPE .EQ. '*46' .OR. 1 TYPE .EQ. '*47' .OR. 1 TYPE .EQ. '*70' .OR. 1 TYPE .EQ. '*81' .OR. 1 TYPE .EQ. '*82' .OR. 1 TYPE .EQ. '*83' .OR. 1 TYPE .EQ. '*84' .OR. 1 TYPE .EQ. '*85' .OR. 1 TYPE .EQ. '*86' .OR. 1 TYPE .EQ. '*90') THEN CONTINUE *** Regular distance ELSEIF(TYPE .EQ. '*50' .OR. 1 TYPE .EQ. '*51' .OR. 1 TYPE .EQ. '*52') THEN IF(OPT .eq. '3' .or. OPT .eq. '4')THEN C READ(CARD,180) ISN,DATE,JSN,OBS C 180 FORMAT(BZ, 9X,I5,T35,A6,T46,I5,T64,F9.4) READ(CARD,180) ISN, JSN, OBS, DATE8 180 FORMAT(BZ, 9X,I5,T46,I5,T64,F9.4,T101,A8) CALL CHECK(ISN,JSN,SUBCRD,TEST) IF(TEST) THEN CALL TNFDAT(DATE8,MINO) CALL DSDA(LOC(ISN), LOC(JSN), 1 MINO, MIN2, DS, DA) IOBS = IDNINT((OBS+DS)*10000.D0) WRITE(CARD(64:72),190) IOBS 190 FORMAT(I9) WRITE(CARD(174:181),191) DS 191 FORMAT(F8.4) ENDIF ENDIF *** Azimuth ELSEIF(TYPE .EQ. '*60' .OR. TYPE .EQ. '*61') THEN IF(OPT .eq. '3' .or. OPT .eq. '4') THEN C READ(CARD,200) ISN,DATE,JSN,IDEG,MIN,SEC C 200 FORMAT(BZ, 9X,I5,T40,A6,T51,I5,T64,I3,I2,F3.1) READ(CARD,200) ISN,JSN,IDEG,MIN,SEC,DATE8 200 FORMAT(BZ, 9X,I5,T51,I5,T64,I3,I2,F3.1,T101,A8) CALL CHECK(ISN,JSN,SUBCRD,TEST) IF(TEST) THEN CALL TNFDAT(DATE8,MINO) CALL DSDA(LOC(ISN), LOC(JSN), 1 MINO, MIN2, DS, DA) OBS = (DBLE((IDEG*60+MIN)*60)+SEC)/RHOSEC OBS = OBS + DA IF(OBS .GE. TWOPI) THEN OBS = OBS - TWOPI ELSEIF(OBS .LT. 0.D0) THEN OBS = OBS + TWOPI ENDIF CALL TODMSS(OBS,IDEG,MIN,SEC,ISIGN) ISEC = IDNINT(SEC*10.D0) WRITE(CARD(64:71),210) IDEG,MIN,ISEC 210 FORMAT(I3,I2.2,I3.3) IF(DA .GE. 0.0D0) THEN SIGN = ' ' ELSE SIGN = '-' ENDIF ANGLE = DABS(DA) CALL TODMSS(ANGLE,IDEG,MIN,SEC,ISIGN) ISEC1 = SEC ISEC2 = IDNINT((SEC - DBLE(ISEC1)) * 100.D0) WRITE(CARD(152:162),211)SIGN,IDEG,MIN,ISEC1,ISEC2 211 FORMAT(A1,I3.3,I2.2,I2.2,'.',I2.2) ENDIF ENDIF *** Direction observation ELSEIF(TYPE .EQ. '*20') THEN IF(OPT .eq. '3' .or. OPT .eq. '4') THEN C READ(CARD,220) ISN0,LIST0,DATE,JSN C 220 FORMAT(BZ, 9X,I5,I2,T40,A6,T51,I5) READ(CARD,220) ISN0,LIST0,JSN,DATE8 220 FORMAT(BZ, 9X,I5,I2,T51,I5,T101,A8) CALL CHECK(ISN0,JSN,SUBCRD,TEST) CALL TNFDAT(DATE8,MINO) IF(TEST) THEN CALL DSDA(LOC(ISN0), LOC(JSN), 1 MINO, MIN2, DS, DA0) ELSE DA0 = 0.D0 ENDIF CARD(132:142) = ' 0000000.00' ENDIF ELSEIF(TYPE .EQ. '*22') THEN IF(OPT .eq. '3' .or. OPT .eq. '4') THEN READ(CARD,230) ISN,LIST,JSN,IDEG,MIN,SEC 230 FORMAT(BZ, 9X,I5,I2,T51,I5,T64,I3,I2,F4.2) IF(LIST.NE.LIST0 .OR. ISN.NE.ISN0) THEN WRITE(LUOUT,240) CARD 240 FORMAT(' Blue-book file has incorrect structure.'/ 1 ' A *22* record disagrees with its corresponding'/ 2 ' *20* record. The record reads:'/A212) STOP ENDIF CALL CHECK(ISN,JSN,SUBCRD,TEST) IF(TEST) THEN CALL DSDA(LOC(ISN), LOC(JSN), 1 MINO, MIN2, DS, DA) ELSE DA = 0.D0 ENDIF OBS=(DBLE((IDEG*60+MIN)*60)+SEC)/RHOSEC OBS = OBS + DA - DA0 IF(OBS .GT. TWOPI) THEN OBS = OBS - TWOPI ELSEIF(OBS .LT. 0.D0) THEN OBS = OBS + TWOPI ENDIF CALL TODMSS(OBS,IDEG,MIN,SEC,ISIGN) ISEC = IDNINT(SEC*100.D0) WRITE(CARD(64:72),250) IDEG,MIN,ISEC 250 FORMAT(I3.3,I2.2,I4.4) IF((DA-DA0) .GE. 0.D0) THEN SIGN = ' ' ELSE SIGN = '-' ENDIF ANGLE = DABS(DA - DA0) CALL TODMSS(ANGLE,IDEG,MIN,SEC,ISIGN) ISEC1 = SEC ISEC2 = IDNINT((SEC-DBLE(ISEC1))*100.D0) WRITE(CARD(132:142),251) SIGN,IDEG,MIN,ISEC1,ISEC2 251 FORMAT(A1,I3.3,I2.2,I2.2,'.',I2.2) ENDIF *** Long distance ELSEIF(TYPE .EQ. '*53' .OR. 1 TYPE .EQ. '*54') THEN IF(OPT .eq. '3' .or. OPT .eq. '4') THEN C READ(CARD,260) ISN,DATE,JSN,OBS C 260 FORMAT(BZ, 9X,I5,T35,A6,T46,I5,T64,F10.3) READ(CARD,260) ISN,JSN,OBS,DATE8 260 FORMAT(BZ, 9X,I5,T46,I5,T64,F10.3,T101,A8) CALL CHECK(ISN,JSN,SUBCRD,TEST) IF(TEST) THEN CALL TNFDAT(DATE8,MINO) CALL DSDA(LOC(ISN), LOC(JSN), 1 MINO, MIN2, DS, DA) IOBS = IDNINT((OBS + DS)*1000.D0) WRITE(CARD(64:73),270) IOBS 270 FORMAT(I10) CORR = IDNINT(DS*10000.D0) WRITE(CARD(174:181),271) CORR 271 FORMAT(F8.4) ENDIF ENDIF *** position record ELSEIF(TYPE .EQ. '*80') THEN IF(OPT .eq. '2' .or. OPT .eq. '4') THEN READ(CARD,300) ISN,LATD,LATM,SLAT,JN, 1 LOND,LONM,SLON,JW 300 FORMAT(BZ,9X,I5,T45,2I2,F7.5,A1,I3,I2,F7.5,A1) YLAT = (DBLE((LATD*60+LATM)*60)+SLAT)/RHOSEC YLON = (DBLE((LOND*60+LONM)*60)+SLON)/RHOSEC IF(JN .EQ. 'S') YLAT = -YLAT IF(JW .EQ. 'E') YLON = -YLON C READ(I4, REC = LOC(ISN)) RLAT, RLON, IDG C CALL NWCORD(YLAT,YLON,HT(ISN), C 1 RLAT,RLON,IDG,MIN1,MIN2, C 1 YLATT,YLONT,EHTNEW,DN,DE,DU,IOPT) READ(I4, REC = LOC(ISN)) RLAT, RLON, VN, VE, VU call NEWCOR( ylat, ylon, ht(isn), min1, min2, 1 ylatt, ylont, ehtnew, dn, de, du, vn, ve, vu) CALL TODMSS(YLATT,LATDN,LATMN,SLATN,ISIGN) LATDIR = 'N' IF (ISIGN .eq. -1) LATDIR = 'S' CALL TODMSS(YLONT,LONDN,LONMN,SLONN,ISIGN) LONDIR = 'W' IF (ISIGN .eq. -1) LONDIR = 'E' LATS = IDNINT(SLATN*100000.D0) LONS = IDNINT(SLONN*100000.D0) WRITE(CARD(45:56),310) LATDN,LATMN,LATS,LATDIR 310 FORMAT(I2,I2.2,I7.7,A1) WRITE(CARD(57:69),320) LONDN,LONMN,LONS,LONDIR 320 FORMAT(I3,I2.2,I7.7,A1) ENDIF *** Unrecognized blue book record ELSE WRITE(LUOUT,500) TYPE 500 FORMAT(' This software does not recognize an ',A3,/ 1 ' record. The record will be copied to the new'/ 2 ' file without change.') ENDIF WRITE(I2,175) CARD GO TO 170 600 CONTINUE RETURN END *************************************************************** SUBROUTINE CHECK(ISN,JSN,CARD,TEST) *** Check if stations have *80* records IMPLICIT DOUBLE PRECISION (A-H,O-Z) IMPLICIT INTEGER*4 (I-N) parameter (nbbdim = 100000) CHARACTER*80 CARD LOGICAL TEST COMMON /ARRAYS/ HT(nbbdim),LOC(nbbdim) COMMON /FILES/ LUIN, LUOUT, I1, I2, I3, I4, I5 TEST = .TRUE. IF(LOC(ISN) .eq. 0) THEN WRITE(LUOUT,100) ISN, CARD 100 FORMAT(' No *80* record for SSN = ',I4/A80/) TEST = .FALSE. ENDIF IF(LOC(JSN) .eq. 0) THEN WRITE(LUOUT,100) JSN, CARD TEST = .FALSE. ENDIF RETURN END ************************************************* SUBROUTINE UPGFI4(DATE2, MIN2, IOPT, KOPT, * MONTH, IDAY, IYEAR) *** Update G-FILE of blue book IMPLICIT DOUBLE PRECISION (A-H,O-Z) IMPLICIT INTEGER*4 (I-N) CHARACTER*80 CARD CHARACTER*1 TYPE CHARACTER*2 NRF CHARACTER*2 ZT CHARACTER*14 CHAR14 LOGICAL TEST COMMON /FILES/ LUIN, LUOUT, I1, I2, I3, I4, I5 ZT = 'ZT' *** Obtain blue-book reference frame identifier *** corresponding to IOPT IF (KOPT .NE. -1) THEN CALL RFCON1(KOPT, NBBREF) WRITE(NRF,10) NBBREF 10 FORMAT(I2.2) ENDIF 90 READ(I1,100,END=200) CARD 100 FORMAT(A80) TYPE = CARD(1:1) IF(TYPE .eq. 'A') THEN IF (CARD(79:80) .EQ. ZT) THEN WRITE(LUOUT, 103) 103 FORMAT( 1 ' *****************************************************'/ 1 ' * ERROR: The input GFILE contains the letters, ZT, *'/ 1 ' * in columns 79-80 of its A-record. This indicates *'/ 1 ' * that the GPS vectors in this file have already *'/ 1 ' * been updated to a common date. This software *'/ 1 ' * will not further modify the GPS vectors. *'/ 1 ' *****************************************************'/) RETURN ENDIF WRITE(CARD(79:80),101) ZT 101 FORMAT(A2) WRITE(CARD(4:11), 102) IYEAR, MONTH, IDAY 102 FORMAT(I4, I2.2, I2.2) WRITE(CARD(12:19), 102) IYEAR, MONTH, IDAY ELSEIF(TYPE .eq. 'B') THEN READ(CARD,110)IYEAR1,MONTH1,IDAY1, 1 IYEAR2,MONTH2,IDAY2,IBBREF 110 FORMAT(1X,I4,I2,I2,4X,I4,I2,I2,30X,I2) CALL TOTIME(IYEAR1,MONTH1,IDAY1,MINO1) CALL TOTIME(IYEAR1, 1, 1, MIN00) DECYR1 = DBLE(IYEAR1) + DBLE(MINO1 - MIN00)/525600.D0 CALL TOTIME(IYEAR2,MONTH2,IDAY2,MINO2) CALL TOTIME(IYEAR2, 1, 1, MIN00) DECYR2 = DBLE(IYEAR2) + DBLE(MINO2 - MIN00)/525600.D0 MINO = (MINO1 + MINO2) / 2 DECYR = (DECYR1 + DECYR2) / 2.D0 CALL RFCON(IBBREF, JREF) IF (KOPT .NE. -1) THEN CARD(52:53) = NRF ENDIF ELSEIF(TYPE .eq. 'C') THEN READ(CARD,120)ISN,JSN,DX,DY,DZ 120 FORMAT(BZ,1X,2I4,F11.4,5X,F11.4,5X,F11.4) CALL CHECK(ISN, JSN, CARD, TEST) IF (TEST) THEN CALL DDXYZ(ISN, JSN, 1 MINO, MIN2, DDX, DDY, DDZ) *** Convert vector from JREF to IOPT frame call TRAVEC( DX, DY, DZ, DECYR, JREF, IOPT) DX = DX + DDX DY = DY + DDY DZ = DZ + DDZ *** Convert GPS vector from IOPT to KOPT reference frame IF (KOPT .NE. -1) THEN CALL TRAVEC(DX, DY, DZ, DATE2, IOPT, KOPT) ELSE CALL TRAVEC(DX, DY, DZ, DATE2, IOPT, JREF) ENDIF *** Rewrite GPS observational record CALL TOCHAR(DX,CHAR14) CARD(10:20) = CHAR14(3:13) CALL TOCHAR(DY,CHAR14) CARD(26:36) = CHAR14(3:13) CALL TOCHAR(DZ,CHAR14) CARD(42:52) = CHAR14(3:13) ENDIF ELSEIF(TYPE .eq. 'F') THEN READ(CARD,140) ISN, JSN, DX, DY, DZ 140 FORMAT(BZ,1X,2I4,F13.4,5X,F13.4,5X,F13.4) CALL CHECK(ISN, JSN, CARD, TEST) IF (TEST) THEN CALL DDXYZ(ISN, JSN, 1 MINO, MIN2, DDX, DDY, DDZ) call TRAVEC( DX, DY, DZ, DECYR, JREF, IOPT) DX = DX + DDX DY = DY + DDY DZ = DZ + DDZ *** Convert GPS vector to output reference frame IF (KOPT .NE. -1) THEN CALL TRAVEC(DX, DY, DZ, DATE2, IOPT, KOPT) ELSE CALL TRAVEC(DX, DY, DZ, DATE2, IOPT, JREF) ENDIF *** Rewrite GPS observational record CALL TOCHAR(DX,CHAR14) CARD(10:22) = CHAR14(1:13) CALL TOCHAR(DY,CHAR14) CARD(28:40) = CHAR14(1:13) CALL TOCHAR(DZ,CHAR14) CARD(46:58) = CHAR14(1:13) ENDIF ENDIF WRITE(I2,100) CARD GO TO 90 200 CONTINUE RETURN END ********************************************************* SUBROUTINE UPGFI5(DATE2, MIN2, IOPT, KOPT, * MONTH, IDAY, IYEAR) *** Update G-FILE of 5-digit blue book IMPLICIT DOUBLE PRECISION (A-H,O-Z) IMPLICIT INTEGER*4 (I-N) CHARACTER*180 CARD CHARACTER*80 SUBCRD CHARACTER*1 TYPE CHARACTER*2 NRF CHARACTER*2 ZT CHARACTER*14 CHAR14 LOGICAL TEST COMMON /FILES/ LUIN, LUOUT, I1, I2, I3, I4, I5 ZT = 'ZT' *** Obtain blue-book reference frame identifier *** corresponding to IOPT IF (KOPT .NE. -1) THEN CALL RFCON1(KOPT, NBBREF) WRITE(NRF, 10) NBBREF 10 FORMAT(I2.2) ENDIF 90 READ(I1,100,END=200) CARD 100 FORMAT(A180) TYPE = CARD(1:1) IF (TYPE .eq. 'A') THEN IF (CARD(79:80) .EQ. ZT) THEN WRITE(LUOUT, 103) 103 FORMAT( 1 ' *****************************************************'/ 1 ' * ERROR: The input GFILE contains the letters, ZT, *'/ 1 ' * in columns 79-80 of its A-record. This indicates *'/ 1 ' * that the GPS vectors in this file have already *'/ 1 ' * been updated to a common date. This software *'/ 1 ' * will not further modify the GPS vectors. *'/ 1 ' *****************************************************'/) RETURN ENDIF WRITE(CARD(79:80), 101) ZT 101 FORMAT(A2) WRITE(CARD(4:11), 102) IYEAR, MONTH, DAY 102 FORMAT(I4, I2.2, I2.2) WRITE(CARD(12:19), 102) IYEAR, MONTH, IDAY ELSEIF(TYPE .eq. 'B') THEN READ(CARD,110)IYEAR1,MONTH1,IDAY1, 1 IYEAR2,MONTH2,IDAY2,IBBREF 110 FORMAT(1X,I4,I2,I2,4X,I4,I2,I2,30X,I2) CALL TOTIME(IYEAR1,MONTH1,IDAY1,MINO1) CALL TOTIME(IYEAR1, 1, 1, MIN00) DECYR1 = DBLE(IYEAR1) + DBLE(MINO1 - MIN00)/525600.D0 CALL TOTIME(IYEAR2,MONTH2,IDAY2,MINO2) CALL TOTIME(IYEAR2, 1, 1, MIN00) DECYR2 = DBLE(IYEAR2) + DBLE(MINO2 - MIN00)/525600.D0 MINO = (MINO1 + MINO2) / 2 DECYR = (DECYR1 + DECYR2) / 2.D0 CALL RFCON(IBBREF, JREF) IF (KOPT .NE. -1) THEN CARD(52:53) = NRF ENDIF ELSEIF(TYPE .eq. 'F') THEN READ(CARD,140) ISN, DX, DY, DZ, JSN 140 FORMAT(BZ,1X,I5,3X,F13.4,5X,F13.4,5X,F13.4,T81,I5) SUBCRD = CARD(1:80) CALL CHECK(ISN, JSN, SUBCRD, TEST) IF (TEST) THEN CALL DDXYZ(ISN, JSN, 1 MINO,MIN2,DDX, DDY, DDZ) call TRAVEC( DX, DY, DZ, DECYR, JREF, IOPT) DX = DX + DDX DY = DY + DDY DZ = DZ + DDZ *** Convert GPS vector to outout reference frame IF (KOPT .NE. -1) THEN CALL TRAVEC(DX, DY, DZ, DATE2, IOPT, KOPT) ELSE CALL TRAVEC(DX, DY, DZ, DATE2, IOPT, JREF) ENDIF *** Rewrite GPS observational record CALL TOCHAR(DX,CHAR14) CARD(10:22) = CHAR14(1:13) CALL TOCHAR(DY,CHAR14) CARD(28:40) = CHAR14(1:13) CALL TOCHAR(DZ,CHAR14) CARD(46:58) = CHAR14(1:13) ISHIFT = IDNINT(DDX * 10000.D0) WRITE(CARD(115:121),150) ISHIFT 150 FORMAT(I7) ISHIFT = IDNINT(DDY * 10000.D0) WRITE(CARD(125:131),150) ISHIFT ISHIFT = IDNINT(DDZ * 10000.D0) WRITE(CARD(135:141),150) ISHIFT ENDIF ENDIF WRITE(I2,100) CARD GO TO 90 200 CONTINUE RETURN END ********************************************************* SUBROUTINE TODMSS(val,id,im,s,isign) *** convert position radians to deg,min,sec *** range is [-twopi to +twopi] implicit double precision(a-h,o-z) IMPLICIT INTEGER*4 (I-N) common/CONST/A,F,E2,EP2,AF,PI,TWOPI,RHOSEC 1 if(val.gt.twopi) then val=val-twopi go to 1 endif 2 if(val.lt.-twopi) then val=val+twopi go to 2 endif if(val.lt.0.d0) then isign=-1 else isign=+1 endif s=dabs(val*RHOSEC/3600.D0) id=idint(s) s=(s-id)*60.d0 im=idint(s) s=(s-im)*60.d0 *** account for rounding error is=idnint(s*1.d5) if(is.ge.6000000) then s=0.d0 im=im+1 endif if(im.ge.60) then im=0 id=id+1 endif return end ********************************************************* SUBROUTINE SETRF *** Specify arrays that may be used to convert *** a reference frame identifier in the blue book *** to a reference frame identifier in HTDP and back IMPLICIT INTEGER*4 (I-N) COMMON /REFCON/ IRFCON(22), JRFCON(11) *** From blue book identifier to HTDP indentifier *** WGS 72 Precise IRFCON(1) = 10 *** WGS 84 (orig) Precise (set equal to NAD 83) IRFCON(2) = 1 *** WGS 72 Broadcast IRFCON(3) = 10 *** WGS 84 (orig) Broadcast (set equal to NAD 83) IRFCON(4) = 1 *** ITRF89 IRFCON(5) = 3 *** PNEOS 90 or NEOS 91.25 (set equal to ITRF90) IRFCON(6) = 4 *** NEOS 90 (set equal to ITRF90) IRFCON(7) = 4 *** ITRF91 IRFCON(8) = 5 *** SIO/MIT 92.57 (set equal to ITRF91) IRFCON(9) = 5 *** ITRF91 IRFCON(10) = 5 *** ITRF92 IRFCON(11) = 6 *** ITRF93 IRFCON(12) = 7 *** WGS 84 (G730) Precise (set equal to ITRF92) IRFCON(13) = 6 *** WGS 84 (G730) Broadcast (set equal to ITRF92) IRFCON(14) = 6 *** ITRF94 IRFCON(15) = 8 *** WGS 84 (G873) Precise (set equal to ITRF94) IRFCON(16) = 8 *** WGS 84 (G873) Broadcast (set equal to ITRF94) IRFCON(17) = 8 *** ITRF96 IRFCON(18) = 8 *** ITRF97 IRFCON(19) = 9 *** IGS97 IRFCON(20) = 9 *** ITRF00 IRFCON(21) = 11 *** IGS00 IRFCON(22) = 11 *** From HTDP identifier to blue book identifier *** NAD 83 (set equal to WGS 84 (original)) JRFCON(1) = 2 *** ITRF88 (set equal to ITRF89) JRFCON(2) = 5 *** ITRF89 JRFCON(3) = 5 *** ITRF90 (set equal to NEOS 90) JRFCON(4) = 7 *** ITRF91 JRFCON(5) = 8 *** ITRF92 JRFCON(6) = 11 *** ITRF93 JRFCON(7) = 12 *** ITRF96 (= ITRF94) JRFCON(8) = 18 *** ITRF97 JRFCON(9) = 19 *** WGS 72 JRFCON(10) = 1 *** ITRF00 JRFCON(11) = 21 RETURN END *************************************************** SUBROUTINE RFCON(IBBREF, JREF) *** Convert reference frame identifier from *** system used in the blue-book to the *** system used in HTDP IMPLICIT INTEGER*4 (I-N) COMMON /REFCON/ IRFCON(22), JRFCON(11) IF (1 .LE. IBBREF .AND. IBBREF .LE. 22) THEN JREF = IRFCON(IBBREF) ELSE WRITE(6, 10) IBBREF 10 FORMAT(' Improper reference frame identifier (=', 1 I4, ')' / 1 ' appearing in B-record of the G-FILE') STOP ENDIF RETURN END ******************************************************* SUBROUTINE RFCON1(JREF, IBBREF) *** Convert reference frame identifier from *** system used in HTDP to the system *** used in the blue-book IMPLICIT INTEGER*4 (I-N) COMMON /REFCON/ IRFCON(22), JRFCON(11) IF (JREF .EQ. 0) THEN I = 1 ELSE I = JREF ENDIF IF(1. LE. I .AND. I .LE. 10) THEN IBBREF = JRFCON(I) ELSE WRITE(6, 10) JREF 10 FORMAT(' Improper reference frame identifier (=', * I4, ')' / 'appearing in routine RFCON1') STOP ENDIF RETURN END ***************************************************************** subroutine TRAVEC(dxi, dyi, dzi, date, jopt1, jopt2) *** Transform GPS or other vector from one reference frame to another *** for the given date *** (dxi, dyi, dzi) --> (input) components of input vector in meters *** --> (output) components of transformed vector in meters *** date --> (input) time (decimal years) to which the input & output *** vectors correspond *** jopt1 --> (input) specifier of reference frame for input vector *** jopt2 --> (input) specifier of reference frame for output vector implicit double precision (a-h, o-z) implicit integer*4 (i-n) parameter (numref = 11) common /tranpa/ tx(numref), ty(numref), tz(numref), & dtx(numref), dty(numref), dtz(numref), & rx(numref), ry(numref), rz(numref), & drx(numref), dry(numref), drz(numref), & scale(numref), dscale(numref), refepc(numref) *** Transform input vector to ITRF94 reference frame if (jopt1 .eq. 0) then iopt = 1 else iopt = jopt1 endif dtime = date - refepc(iopt) rotnx = -(rx(iopt) + drx(iopt)*dtime) rotny = -(ry(iopt) + dry(iopt)*dtime) rotnz = -(rz(iopt) + drz(iopt)*dtime) ds = 1.d0 - (scale(iopt) + dscale(iopt)*dtime) dxt = + ds*dxi + rotnz*dyi - rotny*dzi dyt = - rotnz*dxi + ds*dyi + rotnx*dzi dzt = + rotny*dxi - rotnx*dyi + ds*dzi *** Transform ITRF94 vector to new reference frame if (jopt2 .eq. 0) then iopt = 1 else iopt = jopt2 endif dtime = date - refepc(iopt) rotnx = rx(iopt) + drx(iopt)*dtime rotny = ry(iopt) + dry(iopt)*dtime rotnz = rz(iopt) + drz(iopt)*dtime ds = 1.d0 + scale(iopt) + dscale(iopt)*dtime dxi = + ds*dxt + rotnz*dyt - rotny*dzt dyi = - rotnz*dxt + ds*dyt + rotnx*dzt dzi = + rotny*dxt - rotnx*dyt + ds*dzt return end *********************************************************** SUBROUTINE GETPNT(LATD,LATM,SLAT,LATDIR,LOND,LONM,SLON, 1 LONDIR, NAME, X,Y,Z,XLAT,XLON,EHT) *** Interactively obtain name and coordinates for a point. *** Output longitude will be positive west. IMPLICIT DOUBLE PRECISION (A-H,O-Z) IMPLICIT INTEGER*4 (I-N) CHARACTER*24 NAME CHARACTER*1 COPT,LATDIR,LONDIR LOGICAL FRMXYZ COMMON /FILES/ LUIN,LUOUT, I1, I2, I3, I4, I5 COMMON /CONST/ A,F,E2,EPS,AF,PI,TWOPI,RHOSEC WRITE(LUOUT,100) 100 FORMAT(' Enter name for point (24 character max). ') READ(LUIN,105) NAME 105 FORMAT(A24) 110 WRITE(LUOUT,111) 111 FORMAT(' How do you wish to specify positional coordinates:'/ 1 ' 1...geodetic latitude and longitude'/ 2 ' 2...Cartesian (X,Y,Z) coordinates. ') READ(LUIN,'(A1)') COPT IF(COPT .EQ. '1') THEN WRITE(LUOUT,115) 115 FORMAT( 1 ' Enter latitude degrees-minutes-seconds in free format'/, 2 ' with north being positive. For example, 35,17,28.3 '/ 2 ' For a point in the southern hemisphere, enter a minus sign'/ 3 ' before each value. For example, -35,-17,-28.3') READ(LUIN,*) LATD, LATM, SLAT WRITE(LUOUT,120) 120 FORMAT( 1 ' Enter longitude degrees-minutes-seconds in free format'/, 2 ' with west being positive. To express a longitude measured'/ 3 ' eastward, enter a minus sign before each value.') READ(LUIN,*) LOND, LONM, SLON WRITE(LUOUT, 125) 125 FORMAT( 1 ' Enter ellipsoid height in meters. (Note that'/, 1 ' predicted motions are independent of this height.) ') READ(LUIN,*) EHT XLAT = (DBLE((LATD*60 + LATM)*60) + SLAT)/RHOSEC LATDIR = 'N' IF (XLAT .lt. 0.0D0) then LATD = - LATD LATM = - LATM SLAT = - SLAT LATDIR = 'S' ENDIF XLON = (DBLE((LOND*60 + LONM)*60) + SLON)/RHOSEC ELON = -XLON CALL TOXYZ(XLAT,ELON,EHT,X,Y,Z) LONDIR = 'W' IF (XLON .lt. 0.0D0) then LOND = -LOND LONM = -LONM SLON = -SLON LONDIR = 'E' ENDIF ELSEIF(COPT .EQ. '2') THEN WRITE(LUOUT,130) 130 FORMAT(' Enter X coordinate in meters. ') READ(LUIN,*) X WRITE(LUOUT,140) 140 FORMAT(' Enter Y coordinate in meters. ') READ(LUIN,*) Y WRITE(LUOUT,150) 150 FORMAT(' Enter Z coordinate in meters. ') READ(LUIN,*) Z IF(.NOT.FRMXYZ(X,Y,Z,XLAT,XLON,EHT)) STOP 666 XLON = -XLON IF(XLON .LT. 0.0D0) XLON = XLON + TWOPI CALL TODMSS(XLAT,LATD,LATM,SLAT,ISIGN) LATDIR = 'N' IF (ISIGN .eq. -1) LATDIR = 'S' CALL TODMSS(XLON,LOND,LONM,SLON,ISIGN) LONDIR = 'W' IF (ISIGN .eq. -1) LONDIR = 'E' ELSE WRITE(LUOUT,*) ' Improper response -- try again. ' GO TO 110 ENDIF RETURN END ***************************************************************** SUBROUTINE GETVLY(GLAT, GLON, VX, VY, VZ, 1 VNORTH, VEAST, VUP, VOPT, IFORM) *** Interactively optain velocity for a point IMPLICIT DOUBLE PRECISION (A-H, O-Z) IMPLICIT INTEGER*4 (I-N) CHARACTER*1 VOPT COMMON /FILES/ LUIN, LUOUT, I1, I2, I3, I4, I5 200 CONTINUE IF (IFORM .eq. 210) then WRITE(LUOUT, 210) 210 FORMAT(' What is the velocity of this site relative to '/ 1 ' the input reference frame:'/ 1 ' 0...use velocity predicted by this software.'/ 1 ' 1...user will specify the north-east-up'/ 1 ' components of site velocity.'/ 1 ' 2...user will specify the global x-y-z'/ 1 ' components of site velocity.' ) else write(luout, 211) 211 FORMAT(' How do you wish to specify the velocity: '/ 1 ' 1...north-east-up components.'/ 1 ' 2...global x-y-z components.' ) endif READ(LUIN, '(A1)') VOPT IF (VOPT .EQ. '0') THEN CONTINUE ELSEIF (VOPT .EQ. '1') THEN WRITE(LUOUT, 220) 220 FORMAT( ' Enter north-south component of velocity in mm/yr'/ 1 ' with north being positive and south being negative') READ(LUIN, *) VNORTH WRITE(LUOUT, 221) 221 FORMAT( ' Enter east-west component of velocity in mm/yr'/ 1 ' with east being positive and west being negative') READ(LUIN, *) VEAST WRITE(LUOUT, 222) 222 FORMAT( ' Enter vertical component of velocity in mm/yr'/ 1 ' with up being positive and down being negative'/ 1 ' or enter 0.0 if unknown.') READ(LUIN, *) VUP CALL TOVXYZ( GLAT, GLON, VNORTH, VEAST, VUP, VX, VY, VZ) ELSEIF (VOPT .EQ. '2') THEN WRITE(LUOUT, *) ' Enter x-component of velocity in mm/yr.' READ(LUIN, *) VX WRITE(LUOUT, *) ' Enter y-component of velocity in mm/yr.' READ(LUIN, *) VY WRITE(LUOUT, *) ' Enter z-component of velocity in mm/yr.' READ(LUIN, *) VZ CALL TOVNEU(GLAT, GLON, VX, VY, VZ, VNORTH, VEAST, VUP) ELSE WRITE(LUOUT, *) 'Improper response -- try again. ' GO TO 200 ENDIF RETURN END ************************************************************************ SUBROUTINE COMPSN(YLATT,YLONT,HTT,YLAT,YLON,HT, 1 MIN,VN, VE, VU) *** Compute the position of a point at specified time *** Upon input VN, VE, and VU are in mm/yr IMPLICIT DOUBLE PRECISION (A-H,O-Z) IMPLICIT INTEGER*4 (I-N) parameter (NDLOC = 400) COMMON /CONST/ A,F,E2,EPS,AF,PI,TWOPI,RHOSEC COMMON /TIMREF/ ITREF COMMON /QPARM/ STRIKE(NDLOC), HL(NDLOC), EQLAT(NDLOC), 1 EQLON(NDLOC), SSLIP(NDLOC), DSLIP(NDLOC), 1 DIP(NDLOC), DEPTH(NDLOC), WIDTH(NDLOC), 1 EQLATR(50),EQLONR(50),EQRAD(50), 1 ITEQK(50),NLOC(50),NFP(50),NUMEQ COMMON /FILES/ LUIN,LUOUT, I1, I2, I3, I4, I5 ** Compute the contribution due to constant velocity DTIME = DBLE(MIN - ITREF) / 525960.D0 CALL RADR8T(YLAT,VN,VE,VNR,VER) YLATT = YLAT + VNR*DTIME YLONT = YLON - VER*DTIME HTT = HT + ((VU * DTIME) /1000.D0) ** Compute the contribution due to earthquakes. ** It is assumed that the components of displacement, ** DNORTH,DWEST,DUP, do not vary from one reference ** frame to another given the accuracy of dislocation ** models. DO 10 I = 1, NUMEQ IF(ITEQK(I) .GT. ITREF) THEN NTIME = 1 ELSE NTIME = 0 ENDIF IF(MIN .LT. ITEQK(I)) NTIME = NTIME - 1 IF(NTIME .NE. 0) THEN CALL RADII(EQLATR(I),RADMER,RADPAR) DDLAT = (YLAT - EQLATR(I))*RADPAR DDLON = (YLON - EQLONR(I))*RADMER DIST = DSQRT(DDLAT*DDLAT + DDLON*DDLON) IF(DIST .LE. EQRAD(I)) THEN ISTART = NLOC(I) IEND = NLOC(I) + NFP(I) - 1 DO 5 JREC = ISTART,IEND CALL DISLOC(YLAT,YLON,STRIKE(JREC),HL(JREC), & EQLAT(JREC),EQLON(JREC),SSLIP(JREC), & DSLIP(JREC),DIP(JREC),DEPTH(JREC), & WIDTH(JREC),DNORTH,DWEST,DUP) YLATT = YLATT + NTIME*DNORTH YLONT = YLONT + NTIME*DWEST HTT = HTT + NTIME*DUP 5 CONTINUE ENDIF ENDIF 10 CONTINUE RETURN END *************************************************************** SUBROUTINE NEWCOR(YLAT,YLON,HTOLD,MIN1,MIN2, 1 YLAT3,YLON3,HTNEW,DN,DE,DU,VN, VE, VU) *** Predict coordinates at time MIN2 given coordinates at time MIN1. *** Predict displacements from time MIN1 to time MIN2. IMPLICIT DOUBLE PRECISION (A-H,O-Z) IMPLICIT INTEGER*4 (I-N) HT = HTOLD CALL COMPSN(YLAT1,YLON1,HT1,YLAT,YLON,HT, 1 MIN1,VN, VE, VU) CALL COMPSN(YLAT2,YLON2,HT2,YLAT,YLON,HT, 1 MIN2, VN, VE, VU) YLAT3 = YLAT + YLAT2 - YLAT1 YLON3 = YLON + YLON2 - YLON1 HTNEW = HT + HT2 - HT1 CALL RADII(YLAT,RADMER,RADPAR) DN = RADMER * (YLAT2 - YLAT1) DE = -RADPAR * (YLON2 - YLON1) DU = HT2 - HT1 RETURN END ****************************************************************** subroutine PREDV(ylat, ylon, eht, date, iopt, 1 jregn, vn, ve, vu) ** Predict velocity in iopt reference frame ** ylat input - north latitude (radians) ** ylon input - west longitude (radians) ** eht input - ellipsoid height (meters) ** date input - date (decimal years) ** iopt input - reference frame ** jregn output - deformation region ** vn output - northward velocity in mm/yr ** ve output - eastward velocity in mm/yr ** vu output - upward velocity in mm/yr IMPLICIT DOUBLE PRECISION (A-H,O-Z) IMPLICIT INTEGER*4 (I-N) ** Get reference latitude (RLAT) and reference longitude (RLON) IF(IOPT .EQ. 0 .OR. IOPT .EQ. 1) THEN RLAT = YLAT RLON = YLON ELSE elon = -ylon call TOXYZ(ylat, elon, eht, x, y, z) CALL XTONAD(X,Y,Z,RLAT,RLON,EHTNAD,DATE,IOPT) ENDIF ** Get deformation region CALL GETREG(RLAT,RLON,JREGN) IF (JREGN .EQ. 0) THEN VN = 0.D0 VE = 0.D0 VU = 0.D0 RETURN ENDIF CALL COMVEL( RLAT, RLON, JREGN, VN, VE, VU) ** Convert velocity to reference of iopt, if iopt != NAD83 IF (IOPT .NE. 0 .AND. IOPT .NE. 1) THEN CALL TOVXYZ( YLAT, ELON, VN, VE, VU, VX, VY, VZ) CALL VTRANF( X, Y, Z, VX, VY, VZ, 1, IOPT) CALL TOVNEU( YLAT, ELON, VX, VY, VZ, VN, VE, VU) ENDIF RETURN END **************************************************************** subroutine TRFVEL *** Transform velocities from one reference frame to another implicit double precision (a-h, o-z) implicit integer*4 (i-n) parameter (numref = 11) character*30 namef character*24 name24 character*6 frame character*1 option character*1 vopt, LATDIR, LONDIR COMMON /FILES/ LUIN, LUOUT, I1, I2, I3, I4, I5 common /frames/ frame(numref) write( luout, 100) 100 format( 1 ' Please enter the name of the file to contain '/ 1 ' the transformed velocities. ') read( luin, '(a30)') namef open( i2, file = namef, status = 'unknown') CALL HEADER 105 write( luout, 110) 110 format( /'*******************************'/ 1 ' Enter the reference frame of the input velocities.') call menu1 read (luin, *) iopt1 if (iopt1 .lt. 1 .or. iopt1 .gt. numref) then write( luout, *) ' Improper selection -- try again.' go to 105 endif 115 write( luout, 120) 120 format( /' Enter the reference frame for the output velocities.') call menu1 read( luin, *) iopt2 if (iopt2 .lt. 1 .or. iopt2 .gt. numref) then write( luout, *) 'Improper selection -- try again.' go to 115 endif write( i2, 125) frame(iopt1), frame(iopt2) 125 format( ' TRANSFORMING VELOCITIES FROM ', A6, ' TO ', A6// 1 16X, ' INPUT VELOCITIES OUTPUT VELOCITIES'/) 130 write( luout, 140) 140 format( /'**********************************'/ 1 ' Velocities will be transformed at each specified point.'/ 1 ' Please indicate how you wish to input points.'/ 1 ' 0...No more points. Return to main menu.'/ 1 ' 1...Individual points entered interactively.') read( luin, '(a1)') option if (option .eq. '0') then go to 500 elseif (option .eq. '1') then call GETPNT( latd, latm, slat, LATDIR, lond, lonm, slon, 1 LONDIR, name24, x, y, z, ylat, ylon, eht) elon = - ylon call GETVLY( ylat, elon, vx, vy, vz, vn, ve, vu, vopt, 211) vx1 = vx vy1 = vy vz1 = vz call VTRANF( x, y, z, vx1, vy1, vz1, iopt1, iopt2) call TOVNEU( ylat, elon, vx1, vy1, vz1, vn1, ve1, vu1) call PRNTVL( vn, ve, vu, vx, vy, vz, vn1, ve1, vu1, 1 vx1, vy1, vz1, name24, 1) go to 130 endif 500 continue return end ******************************************************************* SUBROUTINE VTRANF(X,Y,Z,VX,VY,VZ, IOPT1, IOPT2) *** Convert velocity from reference frame of IOPT1 to *** reference frame of IOPT2. IMPLICIT DOUBLE PRECISION (A-H,O-Z) IMPLICIT INTEGER*4 (I-N) parameter (numref = 11) common /tranpa/ tx(numref), ty(numref), tz(numref), & dtx(numref), dty(numref), dtz(numref), & rx(numref), ry(numref), rz(numref), & drx(numref), dry(numref), drz(numref), & scale(numref), dscale(numref), refepc(numref) IF(IOPT1 .le. numref .and. IOPT2. le. numref & .and. IOPT1 .gt. 0 .and. IOPT2 .gt. 0 ) THEN *** Convert from mm/yr to m/yr VX = VX /1000.d0 VY = VY / 1000.d0 VZ = VZ / 1000.d0 *** From IOPT1 to ITRF94 *** (following equations use approximations assuming *** that rotations and scale change are small) WX = -drx(iopt1) WY = -dry(iopt1) WZ = -drz(iopt1) DS = -dscale(iopt1) VX = VX - dtx(iopt1) + DS*X + WZ*Y - WY*Z VY = VY - dty(iopt1) - WZ*X +DS*Y + WX*Z VZ = VZ - dtz(iopt1) + WY*X - WX*Y + DS*Z *** From ITRF94 to IOPT2 reference frame *** (following equations use approximations assuming *** that rotations and scale change are small) WX = drx(iopt2) WY = dry(iopt2) WZ = drz(iopt2) DS = dscale(iopt2) VX = VX + dtx(iopt2) + DS*X + WZ*Y - WY*Z VY = VY + dty(iopt2) - WZ*X + DS*Y + WX*Z VZ = VZ + dtz(iopt2) + WY*X - WX*Y + DS*Z *** FROM m/yr to mm/yr VX = VX * 1000.d0 VY = VY * 1000.d0 VZ = VZ * 1000.d0 ELSE write(luout,*) ' Improper reference frame in routine vtranf' stop ENDIF RETURN END ****************************************************** subroutine PRNTVL(VN, VE, VU, VX, VY, VZ, VN1, VE1, VU1, 1 VX1, VY1, VZ1, NAME24, IPRINT) *** Print transformed velocities implicit double precision (a-h, o-z) implicit integer*4 (i-n) character*24 name24 COMMON /FILES/ LUIN, LUOUT, I1, I2, I3, I4, I5 if (iprint .eq. 1) then write( luout, 100) vn1, ve1, vu1, vx1, vy1, vz1 100 format( ' ****************************************'/ 1 ' New northward velocity = ', f8.2, ' mm/yr' / 1 ' New eastward velocity = ', f8.2, ' mm/yr'/ 1 ' New upward velocity = ', f8.2, ' mm/yr'/ 1 ' New x velocity = ', f8.2, ' mm/yr'/ 1 ' New y velocity = ', f8.2, ' mm/yr'/ 1 ' New z velocity = ', f8.2, ' mm/yr'/) endif write( i2, 200) name24, vn, vn1, ve, ve1, vu, vu1, 1 vx, vx1, vy, vy1, vz, vz1 200 format(1x, a24 / 1 5x, 'northward velocity ', f8.2, 6x, f8.2, ' mm/yr' / 1 5x, 'eastward velocity ', f8.2, 6x, f8.2, ' mm/yr' / 1 5x, 'upward velocity ', f8.2, 6x, f8.2, ' mm/yr' / 1 5x, 'x velocity ', f8.2, 6x, f8.2, ' mm/yr' / 1 5x, 'y velocity ', f8.2, 6x, f8.2, ' mm/yr' / 1 5x, 'z velocity ', f8.2, 6x, f8.2, ' mm/yr' /) return end ******************************************************************* SUBROUTINE HEADER IMPLICIT DOUBLE PRECISION (A-H, O-Z) IMPLICIT INTEGER*4 (I-N) COMMON /FILES/ LUIN, LUOUT, I1, I2, I3, I4, I5 WRITE(I2, 10) 10 FORMAT(' HTDP (version 2.6) OUTPUT' / ) RETURN END BLOCK DATA INITBD IMPLICIT DOUBLE PRECISION (A-H, O-Z) IMPLICIT INTEGER*4 (I-N) parameter (NMREGN = 7) COMMON /BNDRY/ X(40,NMREGN), Y(40,NMREGN), NPOINT(NMREGN) DATA X( 1, 1), Y( 1, 1) / 31.75, 111.00/ DATA X( 2, 1), Y( 2, 1) / 50.00, 111.00/ DATA X( 3, 1), Y( 3, 1) / 50.00, 125.00/ DATA X( 4, 1), Y( 4, 1) / 31.75, 125.00/ DATA X( 1, 2), Y( 1, 2) / 55.00, 131.00/ DATA X( 2, 2), Y( 2, 2) / 56.00, 131.00/ DATA X( 3, 2), Y( 3, 2) / 56.00, 132.00/ DATA X( 4, 2), Y( 4, 2) / 55.00, 132.00/ DATA X( 1, 3), Y( 1, 3) / 89.00, 180.00/ DATA X( 2, 3), Y( 2, 3) / 50.00, 180.00/ DATA X( 3, 3), Y( 3, 3) / 51.00, 171.00/ DATA X( 4, 3), Y( 4, 3) / 54.00, 159.00/ DATA X( 5, 3), Y( 5, 3) / 56.00, 152.00/ DATA X( 6, 3), Y( 6, 3) / 59.00, 146.00/ DATA X( 7, 3), Y( 7, 3) / 60.00, 140.00/ DATA X( 8, 3), Y( 8, 3) / 51.00, 131.00/ DATA X( 9, 3), Y( 9, 3) / 49.00, 126.00/ DATA X(10, 3), Y(10, 3) / 41.00, 125.00/ DATA X(11, 3), Y(11, 3) / 38.00, 123.00/ DATA X(12, 3), Y(12, 3) / 33.00, 116.00/ DATA X(13, 3), Y(13, 3) / 24.00, 109.00/ DATA X(14, 3), Y(14, 3) / 22.00, 108.00/ DATA X(15, 3), Y(15, 3) / 21.00, 107.00/ DATA X(16, 3), Y(16, 3) / 19.00, 106.00/ DATA X(17, 3), Y(17, 3) / 16.00, 98.00/ DATA X(18, 3), Y(18, 3) / 16.00, 87.00/ DATA X(19, 3), Y(19, 3) / 18.00, 82.00/ DATA X(20, 3), Y(20, 3) / 20.00, 71.00/ DATA X(21, 3), Y(21, 3) / 20.00, 63.00/ DATA X(22, 3), Y(22, 3) / 16.00, 59.00/ DATA X(23, 3), Y(23, 3) / 16.00, 47.00/ DATA X(24, 3), Y(24, 3) / 28.00, 44.00/ DATA X(25, 3), Y(25, 3) / 39.00, 30.00/ DATA X(26, 3), Y(26, 3) / 50.00, 29.00/ DATA X(27, 3), Y(27, 3) / 54.00, 35.00/ DATA X(28, 3), Y(28, 3) / 64.00, 22.00/ DATA X(29, 3), Y(29, 3) / 66.00, 18.00/ DATA X(30, 3), Y(30, 3) / 72.00, .00/ DATA X(31, 3), Y(31, 3) / 74.00, -9.00/ DATA X(32, 3), Y(32, 3) / 89.00, -9.00/ DATA X( 1, 4), Y( 1, 4) / 16.00, 98.00/ DATA X( 2, 4), Y( 2, 4) / 16.00, 87.00/ DATA X( 3, 4), Y( 3, 4) / 18.00, 82.00/ DATA X( 4, 4), Y( 4, 4) / 20.00, 71.00/ DATA X( 5, 4), Y( 5, 4) / 20.00, 63.00/ DATA X( 6, 4), Y( 6, 4) / 16.00, 59.00/ DATA X( 7, 4), Y( 7, 4) / 11.00, 58.00/ DATA X( 8, 4), Y( 8, 4) / 12.00, 66.00/ DATA X( 9, 4), Y( 9, 4) / 13.00, 73.00/ DATA X(10, 4), Y(10, 4) / 7.00, 79.00/ DATA X(11, 4), Y(11, 4) / 8.00, 85.00/ DATA X( 1, 5), Y( 1, 5) / 50.00, 180.00/ DATA X( 2, 5), Y( 2, 5) / 51.00, 171.00/ DATA X( 3, 5), Y( 3, 5) / 54.00, 159.00/ DATA X( 4, 5), Y( 4, 5) / 56.00, 152.00/ DATA X( 5, 5), Y( 5, 5) / 59.00, 146.00/ DATA X( 6, 5), Y( 6, 5) / 60.00, 140.00/ DATA X( 7, 5), Y( 7, 5) / 51.00, 131.00/ DATA X( 8, 5), Y( 8, 5) / 49.00, 131.00/ DATA X( 9, 5), Y( 9, 5) / 49.00, 129.00/ DATA X(10, 5), Y(10, 5) / 45.00, 130.00/ DATA X(11, 5), Y(11, 5) / 43.00, 127.00/ DATA X(12, 5), Y(12, 5) / 41.00, 125.00/ DATA X(13, 5), Y(13, 5) / 38.00, 123.00/ DATA X(14, 5), Y(14, 5) / 33.00, 116.00/ DATA X(15, 5), Y(15, 5) / 24.00, 109.00/ DATA X(16, 5), Y(16, 5) / 22.00, 108.00/ DATA X(17, 5), Y(17, 5) / 20.00, 109.00/ DATA X(18, 5), Y(18, 5) / 15.00, 105.00/ DATA X(19, 5), Y(19, 5) / 2.00, 102.00/ DATA X(20, 5), Y(20, 5) / -35.00, 111.00/ DATA X(21, 5), Y(21, 5) / -56.00, 122.00/ DATA X(22, 5), Y(22, 5) / -66.00, 180.00/ DATA X( 1, 6), Y( 1, 6) / 51.00, 131.00/ DATA X( 2, 6), Y( 2, 6) / 49.00, 126.00/ DATA X( 3, 6), Y( 3, 6) / 41.00, 125.00/ DATA X( 4, 6), Y( 4, 6) / 43.00, 127.00/ DATA X( 5, 6), Y( 5, 6) / 45.00, 130.00/ DATA X( 6, 6), Y( 6, 6) / 49.00, 129.00/ DATA X( 7, 6), Y( 7, 6) / 49.00, 131.00/ DATA X( 1, 7), Y( 1, 7) / 22.00, 108.00/ DATA X( 2, 7), Y( 2, 7) / 21.00, 107.00/ DATA X( 3, 7), Y( 3, 7) / 19.00, 106.00/ DATA X( 4, 7), Y( 4, 7) / 16.00, 98.00/ DATA X( 5, 7), Y( 5, 7) / 8.00, 85.00/ DATA X( 6, 7), Y( 6, 7) / 7.00, 79.00/ DATA X( 7, 7), Y( 7, 7) / 2.00, 85.00/ DATA X( 8, 7), Y( 8, 7) / 2.00, 102.00/ DATA X( 9, 7), Y( 9, 7) / 15.00, 105.00/ DATA X(10, 7), Y(10, 7) / 20.00, 109.00/ DATA * NPOINT( 1) / 4/, * NPOINT( 2) / 4/, * NPOINT( 3) /32/, * NPOINT( 4) /11/, * NPOINT( 5) /22/, * NPOINT( 6) / 7/, * NPOINT( 7) /10/ END BLOCK DATA INITVL IMPLICIT DOUBLE PRECISION (A-H, O-Z) IMPLICIT INTEGER*4 (I-N) parameter (NUMGRD = 2) COMMON /CDGRID/ GRDLX(NUMGRD), GRDUX(NUMGRD), * GRDLY(NUMGRD), GRDUY(NUMGRD), * ICNTX(NUMGRD), ICNTY(NUMGRD), NBASE(NUMGRD) COMMON /VGRID/ B(14000) DATA GRDLX( 1) / 235.00000000000 /, * GRDUX( 1) / 249.00000000000 /, * GRDLY( 1) / 31.75000000000 /, * GRDUY( 1) / 50.00000000000 /, * ICNTX( 1) / 56 /, * ICNTY( 1) / 73 /, * NBASE( 1) / 0 / DATA B( 1), B( 2), B( 3) / 23.36, -35.72, .00 / DATA B( 172), B( 173), B( 174) / 23.48, -35.64, .00 / DATA B( 343), B( 344), B( 345) / 23.70, -35.59, .00 / DATA B( 514), B( 515), B( 516) / 24.03, -35.58, .00 / DATA B( 685), B( 686), B( 687) / 24.47, -35.60, .00 / DATA B( 856), B( 857), B( 858) / 25.01, -35.66, .00 / DATA B( 1027), B( 1028), B( 1029) / 25.65, -35.78, .00 / DATA B( 1198), B( 1199), B( 1200) / 26.37, -35.96, .00 / DATA B( 1369), B( 1370), B( 1371) / 27.18, -36.21, .00 / DATA B( 1540), B( 1541), B( 1542) / 28.05, -36.55, .00 / DATA B( 1711), B( 1712), B( 1713) / 28.96, -36.98, .00 / DATA B( 1882), B( 1883), B( 1884) / 29.90, -37.52, .00 / DATA B( 2053), B( 2054), B( 2055) / 30.82, -38.16, .00 / DATA B( 2224), B( 2225), B( 2226) / 31.72, -38.91, .00 / DATA B( 2395), B( 2396), B( 2397) / 32.55, -39.75, .00 / DATA B( 2566), B( 2567), B( 2568) / 33.28, -40.65, .00 / DATA B( 2737), B( 2738), B( 2739) / 33.89, -41.57, .00 / DATA B( 2908), B( 2909), B( 2910) / 34.39, -42.43, .00 / DATA B( 3079), B( 3080), B( 3081) / 34.76, -43.15, .00 / DATA B( 3250), B( 3251), B( 3252) / 35.06, -43.64, .00 / DATA B( 3421), B( 3422), B( 3423) / 35.35, -43.81, .00 / DATA B( 3592), B( 3593), B( 3594) / 35.73, -43.61, .00 / DATA B( 3763), B( 3764), B( 3765) / 36.31, -43.02, .00 / DATA B( 3934), B( 3935), B( 3936) / 37.20, -42.09, .00 / DATA B( 4105), B( 4106), B( 4107) / 38.43, -40.89, .00 / DATA B( 4276), B( 4277), B( 4278) / 39.92, -39.55, .00 / DATA B( 4447), B( 4448), B( 4449) / 41.41, -38.11, .00 / DATA B( 4618), B( 4619), B( 4620) / 42.60, -36.59, .00 / DATA B( 4789), B( 4790), B( 4791) / 43.23, -34.91, .00 / DATA B( 4960), B( 4961), B( 4962) / 43.19, -32.96, .00 / DATA B( 5131), B( 5132), B( 5133) / 42.60, -30.61, .00 / DATA B( 5302), B( 5303), B( 5304) / 41.72, -27.72, .00 / DATA B( 5473), B( 5474), B( 5475) / 40.71, -24.12, .00 / DATA B( 5644), B( 5645), B( 5646) / 39.48, -19.57, .00 / DATA B( 5815), B( 5816), B( 5817) / 37.49, -13.80, .00 / DATA B( 5986), B( 5987), B( 5988) / 34.01, -6.72, .00 / DATA B( 6157), B( 6158), B( 6159) / 29.02, .99, .00 / DATA B( 6328), B( 6329), B( 6330) / 23.65, 7.87, .00 / DATA B( 6499), B( 6500), B( 6501) / 19.29, 12.46, .00 / DATA B( 6670), B( 6671), B( 6672) / 16.73, 13.98, .00 / DATA B( 6841), B( 6842), B( 6843) / 16.06, 12.56, .00 / DATA B( 7012), B( 7013), B( 7014) / 16.57, 9.47, .00 / DATA B( 7183), B( 7184), B( 7185) / 17.10, 6.60, .00 / DATA B( 7354), B( 7355), B( 7356) / 17.06, 4.81, .00 / DATA B( 7525), B( 7526), B( 7527) / 16.50, 3.59, .00 / DATA B( 7696), B( 7697), B( 7698) / 15.35, 2.88, .00 / DATA B( 7867), B( 7868), B( 7869) / 13.91, 2.65, .00 / DATA B( 8038), B( 8039), B( 8040) / 12.77, 2.67, .00 / DATA B( 8209), B( 8210), B( 8211) / 12.30, 2.99, .00 / DATA B( 8380), B( 8381), B( 8382) / 12.63, 3.60, .00 / DATA B( 8551), B( 8552), B( 8553) / 13.75, 4.34, .00 / DATA B( 8722), B( 8723), B( 8724) / 15.24, 4.98, .00 / DATA B( 8893), B( 8894), B( 8895) / 16.42, 5.38, .00 / DATA B( 9064), B( 9065), B( 9066) / 16.82, 5.46, .00 / DATA B( 9235), B( 9236), B( 9237) / 16.48, 5.18, .00 / DATA B( 9406), B( 9407), B( 9408) / 15.73, 4.82, .00 / DATA B( 9577), B( 9578), B( 9579) / 14.78, 4.89, .00 / DATA B( 9748), B( 9749), B( 9750) / 13.82, 5.76, .00 / DATA B( 9919), B( 9920), B( 9921) / 13.21, 7.39, .00 / DATA B(10090), B(10091), B(10092) / 13.19, 9.40, .00 / DATA B(10261), B(10262), B(10263) / 13.64, 11.32, .00 / DATA B(10432), B(10433), B(10434) / 14.00, 12.72, .00 / DATA B(10603), B(10604), B(10605) / 13.66, 13.28, .00 / DATA B(10774), B(10775), B(10776) / 12.35, 12.91, .00 / DATA B(10945), B(10946), B(10947) / 10.28, 11.87, .00 / DATA B(11116), B(11117), B(11118) / 8.02, 10.55, .00 / DATA B(11287), B(11288), B(11289) / 6.23, 9.36, .00 / DATA B(11458), B(11459), B(11460) / 5.46, 8.59, .00 / DATA B(11629), B(11630), B(11631) / 5.61, 8.23, .00 / DATA B(11800), B(11801), B(11802) / 6.26, 8.15, .00 / DATA B(11971), B(11972), B(11973) / 7.07, 8.21, .00 / DATA B(12142), B(12143), B(12144) / 7.79, 8.29, .00 / DATA B(12313), B(12314), B(12315) / 8.29, 8.35, .00 / DATA B(12484), B(12485), B(12486) / 8.55, 8.38, .00 / DATA B( 4), B( 5), B( 6) / 23.39, -35.69, .00 / DATA B( 175), B( 176), B( 177) / 23.51, -35.61, .00 / DATA B( 346), B( 347), B( 348) / 23.73, -35.56, .00 / DATA B( 517), B( 518), B( 519) / 24.06, -35.54, .00 / DATA B( 688), B( 689), B( 690) / 24.49, -35.56, .00 / DATA B( 859), B( 860), B( 861) / 25.03, -35.61, .00 / DATA B( 1030), B( 1031), B( 1032) / 25.66, -35.72, .00 / DATA B( 1201), B( 1202), B( 1203) / 26.39, -35.89, .00 / DATA B( 1372), B( 1373), B( 1374) / 27.19, -36.13, .00 / DATA B( 1543), B( 1544), B( 1545) / 28.06, -36.44, .00 / DATA B( 1714), B( 1715), B( 1716) / 28.97, -36.86, .00 / DATA B( 1885), B( 1886), B( 1887) / 29.91, -37.37, .00 / DATA B( 2056), B( 2057), B( 2058) / 30.84, -37.99, .00 / DATA B( 2227), B( 2228), B( 2229) / 31.74, -38.72, .00 / DATA B( 2398), B( 2399), B( 2400) / 32.57, -39.54, .00 / DATA B( 2569), B( 2570), B( 2571) / 33.31, -40.42, .00 / DATA B( 2740), B( 2741), B( 2742) / 33.94, -41.33, .00 / DATA B( 2911), B( 2912), B( 2913) / 34.43, -42.18, .00 / DATA B( 3082), B( 3083), B( 3084) / 34.79, -42.90, .00 / DATA B( 3253), B( 3254), B( 3255) / 35.06, -43.39, .00 / DATA B( 3424), B( 3425), B( 3426) / 35.31, -43.56, .00 / DATA B( 3595), B( 3596), B( 3597) / 35.62, -43.33, .00 / DATA B( 3766), B( 3767), B( 3768) / 36.12, -42.71, .00 / DATA B( 3937), B( 3938), B( 3939) / 36.92, -41.72, .00 / DATA B( 4108), B( 4109), B( 4110) / 38.08, -40.46, .00 / DATA B( 4279), B( 4280), B( 4281) / 39.53, -39.05, .00 / DATA B( 4450), B( 4451), B( 4452) / 41.01, -37.58, .00 / DATA B( 4621), B( 4622), B( 4623) / 42.17, -36.04, .00 / DATA B( 4792), B( 4793), B( 4794) / 42.69, -34.36, .00 / DATA B( 4963), B( 4964), B( 4965) / 42.46, -32.43, .00 / DATA B( 5134), B( 5135), B( 5136) / 41.63, -30.09, .00 / DATA B( 5305), B( 5306), B( 5307) / 40.48, -27.23, .00 / DATA B( 5476), B( 5477), B( 5478) / 39.24, -23.71, .00 / DATA B( 5647), B( 5648), B( 5649) / 37.91, -19.32, .00 / DATA B( 5818), B( 5819), B( 5820) / 36.06, -13.78, .00 / DATA B( 5989), B( 5990), B( 5991) / 32.76, -6.89, .00 / DATA B( 6160), B( 6161), B( 6162) / 27.74, .84, .00 / DATA B( 6331), B( 6332), B( 6333) / 22.46, 7.71, .00 / DATA B( 6502), B( 6503), B( 6504) / 18.28, 12.21, .00 / DATA B( 6673), B( 6674), B( 6675) / 15.84, 13.71, .00 / DATA B( 6844), B( 6845), B( 6846) / 15.32, 12.18, .00 / DATA B( 7015), B( 7016), B( 7017) / 16.10, 8.72, .00 / DATA B( 7186), B( 7187), B( 7188) / 16.66, 5.82, .00 / DATA B( 7357), B( 7358), B( 7359) / 16.31, 4.67, .00 / DATA B( 7528), B( 7529), B( 7530) / 15.65, 3.86, .00 / DATA B( 7699), B( 7700), B( 7701) / 14.54, 3.12, .00 / DATA B( 7870), B( 7871), B( 7872) / 13.25, 2.74, .00 / DATA B( 8041), B( 8042), B( 8043) / 12.28, 2.59, .00 / DATA B( 8212), B( 8213), B( 8214) / 11.85, 2.86, .00 / DATA B( 8383), B( 8384), B( 8385) / 12.15, 3.54, .00 / DATA B( 8554), B( 8555), B( 8556) / 13.24, 4.38, .00 / DATA B( 8725), B( 8726), B( 8727) / 14.79, 5.07, .00 / DATA B( 8896), B( 8897), B( 8898) / 16.01, 5.50, .00 / DATA B( 9067), B( 9068), B( 9069) / 16.36, 5.61, .00 / DATA B( 9238), B( 9239), B( 9240) / 15.98, 5.29, .00 / DATA B( 9409), B( 9410), B( 9411) / 15.29, 4.83, .00 / DATA B( 9580), B( 9581), B( 9582) / 14.42, 4.82, .00 / DATA B( 9751), B( 9752), B( 9753) / 13.43, 5.68, .00 / DATA B( 9922), B( 9923), B( 9924) / 12.76, 7.33, .00 / DATA B(10093), B(10094), B(10095) / 12.77, 9.32, .00 / DATA B(10264), B(10265), B(10266) / 13.32, 11.19, .00 / DATA B(10435), B(10436), B(10437) / 13.81, 12.54, .00 / DATA B(10606), B(10607), B(10608) / 13.56, 13.08, .00 / DATA B(10777), B(10778), B(10779) / 12.25, 12.68, .00 / DATA B(10948), B(10949), B(10950) / 10.21, 11.63, .00 / DATA B(11119), B(11120), B(11121) / 7.99, 10.34, .00 / DATA B(11290), B(11291), B(11292) / 6.19, 9.17, .00 / DATA B(11461), B(11462), B(11463) / 5.49, 8.45, .00 / DATA B(11632), B(11633), B(11634) / 5.64, 8.12, .00 / DATA B(11803), B(11804), B(11805) / 6.28, 8.05, .00 / DATA B(11974), B(11975), B(11976) / 7.07, 8.12, .00 / DATA B(12145), B(12146), B(12147) / 7.76, 8.20, .00 / DATA B(12316), B(12317), B(12318) / 8.23, 8.26, .00 / DATA B(12487), B(12488), B(12489) / 8.47, 8.27, .00 / DATA B( 7), B( 8), B( 9) / 23.43, -35.62, .00 / DATA B( 178), B( 179), B( 180) / 23.54, -35.54, .00 / DATA B( 349), B( 350), B( 351) / 23.76, -35.49, .00 / DATA B( 520), B( 521), B( 522) / 24.08, -35.46, .00 / DATA B( 691), B( 692), B( 693) / 24.51, -35.46, .00 / DATA B( 862), B( 863), B( 864) / 25.04, -35.50, .00 / DATA B( 1033), B( 1034), B( 1035) / 25.67, -35.59, .00 / DATA B( 1204), B( 1205), B( 1206) / 26.39, -35.73, .00 / DATA B( 1375), B( 1376), B( 1377) / 27.19, -35.94, .00 / DATA B( 1546), B( 1547), B( 1548) / 28.07, -36.22, .00 / DATA B( 1717), B( 1718), B( 1719) / 28.99, -36.59, .00 / DATA B( 1888), B( 1889), B( 1890) / 29.93, -37.06, .00 / DATA B( 2059), B( 2060), B( 2061) / 30.88, -37.63, .00 / DATA B( 2230), B( 2231), B( 2232) / 31.80, -38.32, .00 / DATA B( 2401), B( 2402), B( 2403) / 32.65, -39.10, .00 / DATA B( 2572), B( 2573), B( 2574) / 33.41, -39.95, .00 / DATA B( 2743), B( 2744), B( 2745) / 34.04, -40.85, .00 / DATA B( 2914), B( 2915), B( 2916) / 34.53, -41.71, .00 / DATA B( 3085), B( 3086), B( 3087) / 34.87, -42.45, .00 / DATA B( 3256), B( 3257), B( 3258) / 35.09, -42.96, .00 / DATA B( 3427), B( 3428), B( 3429) / 35.23, -43.13, .00 / DATA B( 3598), B( 3599), B( 3600) / 35.38, -42.88, .00 / DATA B( 3769), B( 3770), B( 3771) / 35.69, -42.17, .00 / DATA B( 3940), B( 3941), B( 3942) / 36.30, -41.05, .00 / DATA B( 4111), B( 4112), B( 4113) / 37.32, -39.63, .00 / DATA B( 4282), B( 4283), B( 4284) / 38.74, -38.07, .00 / DATA B( 4453), B( 4454), B( 4455) / 40.28, -36.51, .00 / DATA B( 4624), B( 4625), B( 4626) / 41.46, -34.97, .00 / DATA B( 4795), B( 4796), B( 4797) / 41.81, -33.34, .00 / DATA B( 4966), B( 4967), B( 4968) / 41.18, -31.44, .00 / DATA B( 5137), B( 5138), B( 5139) / 39.80, -29.15, .00 / DATA B( 5308), B( 5309), B( 5310) / 38.06, -26.36, .00 / DATA B( 5479), B( 5480), B( 5481) / 36.33, -23.01, .00 / DATA B( 5650), B( 5651), B( 5652) / 34.77, -18.94, .00 / DATA B( 5821), B( 5822), B( 5823) / 33.18, -13.87, .00 / DATA B( 5992), B( 5993), B( 5994) / 30.45, -7.36, .00 / DATA B( 6163), B( 6164), B( 6165) / 25.05, .76, .00 / DATA B( 6334), B( 6335), B( 6336) / 19.94, 7.75, .00 / DATA B( 6505), B( 6506), B( 6507) / 16.15, 12.00, .00 / DATA B( 6676), B( 6677), B( 6678) / 13.89, 13.50, .00 / DATA B( 6847), B( 6848), B( 6849) / 13.58, 11.91, .00 / DATA B( 7018), B( 7019), B( 7020) / 15.29, 7.12, .00 / DATA B( 7189), B( 7190), B( 7191) / 16.05, 3.83, .00 / DATA B( 7360), B( 7361), B( 7362) / 15.08, 3.61, .00 / DATA B( 7531), B( 7532), B( 7533) / 13.36, 5.60, .00 / DATA B( 7702), B( 7703), B( 7704) / 12.84, 3.58, .00 / DATA B( 7873), B( 7874), B( 7875) / 12.01, 2.67, .00 / DATA B( 8044), B( 8045), B( 8046) / 11.35, 2.24, .00 / DATA B( 8215), B( 8216), B( 8217) / 10.95, 2.47, .00 / DATA B( 8386), B( 8387), B( 8388) / 11.10, 3.37, .00 / DATA B( 8557), B( 8558), B( 8559) / 12.15, 4.51, .00 / DATA B( 8728), B( 8729), B( 8730) / 13.93, 5.32, .00 / DATA B( 8899), B( 8900), B( 8901) / 15.32, 5.77, .00 / DATA B( 9070), B( 9071), B( 9072) / 15.49, 6.00, .00 / DATA B( 9241), B( 9242), B( 9243) / 14.93, 5.54, .00 / DATA B( 9412), B( 9413), B( 9414) / 14.47, 4.74, .00 / DATA B( 9583), B( 9584), B( 9585) / 13.79, 4.53, .00 / DATA B( 9754), B( 9755), B( 9756) / 12.63, 5.44, .00 / DATA B( 9925), B( 9926), B( 9927) / 11.72, 7.22, .00 / DATA B(10096), B(10097), B(10098) / 11.83, 9.20, .00 / DATA B(10267), B(10268), B(10269) / 12.70, 10.97, .00 / DATA B(10438), B(10439), B(10440) / 13.53, 12.28, .00 / DATA B(10609), B(10610), B(10611) / 13.50, 12.80, .00 / DATA B(10780), B(10781), B(10782) / 12.14, 12.27, .00 / DATA B(10951), B(10952), B(10953) / 10.04, 11.16, .00 / DATA B(11122), B(11123), B(11124) / 7.87, 9.90, .00 / DATA B(11293), B(11294), B(11295) / 6.13, 8.79, .00 / DATA B(11464), B(11465), B(11466) / 5.45, 8.13, .00 / DATA B(11635), B(11636), B(11637) / 5.61, 7.85, .00 / DATA B(11806), B(11807), B(11808) / 6.27, 7.83, .00 / DATA B(11977), B(11978), B(11979) / 7.07, 7.94, .00 / DATA B(12148), B(12149), B(12150) / 7.72, 8.02, .00 / DATA B(12319), B(12320), B(12321) / 8.14, 8.07, .00 / DATA B(12490), B(12491), B(12492) / 8.35, 8.08, .00 / DATA B( 10), B( 11), B( 12) / 23.47, -35.53, .00 / DATA B( 181), B( 182), B( 183) / 23.58, -35.44, .00 / DATA B( 352), B( 353), B( 354) / 23.79, -35.38, .00 / DATA B( 523), B( 524), B( 525) / 24.11, -35.34, .00 / DATA B( 694), B( 695), B( 696) / 24.53, -35.32, .00 / DATA B( 865), B( 866), B( 867) / 25.05, -35.34, .00 / DATA B( 1036), B( 1037), B( 1038) / 25.68, -35.39, .00 / DATA B( 1207), B( 1208), B( 1209) / 26.39, -35.50, .00 / DATA B( 1378), B( 1379), B( 1380) / 27.20, -35.66, .00 / DATA B( 1549), B( 1550), B( 1551) / 28.07, -35.88, .00 / DATA B( 1720), B( 1721), B( 1722) / 29.00, -36.19, .00 / DATA B( 1891), B( 1892), B( 1893) / 29.97, -36.59, .00 / DATA B( 2062), B( 2063), B( 2064) / 30.94, -37.09, .00 / DATA B( 2233), B( 2234), B( 2235) / 31.89, -37.71, .00 / DATA B( 2404), B( 2405), B( 2406) / 32.78, -38.43, .00 / DATA B( 2575), B( 2576), B( 2577) / 33.57, -39.25, .00 / DATA B( 2746), B( 2747), B( 2748) / 34.22, -40.12, .00 / DATA B( 2917), B( 2918), B( 2919) / 34.72, -41.00, .00 / DATA B( 3088), B( 3089), B( 3090) / 35.03, -41.78, .00 / DATA B( 3259), B( 3260), B( 3261) / 35.17, -42.34, .00 / DATA B( 3430), B( 3431), B( 3432) / 35.16, -42.55, .00 / DATA B( 3601), B( 3602), B( 3603) / 35.09, -42.27, .00 / DATA B( 3772), B( 3773), B( 3774) / 35.10, -41.44, .00 / DATA B( 3943), B( 3944), B( 3945) / 35.37, -40.10, .00 / DATA B( 4114), B( 4115), B( 4116) / 36.15, -38.40, .00 / DATA B( 4285), B( 4286), B( 4287) / 37.54, -36.60, .00 / DATA B( 4456), B( 4457), B( 4458) / 39.25, -34.89, .00 / DATA B( 4627), B( 4628), B( 4629) / 40.55, -33.35, .00 / DATA B( 4798), B( 4799), B( 4800) / 40.68, -31.81, .00 / DATA B( 4969), B( 4970), B( 4971) / 39.42, -30.01, .00 / DATA B( 5140), B( 5141), B( 5142) / 37.18, -27.77, .00 / DATA B( 5311), B( 5312), B( 5313) / 34.57, -25.06, .00 / DATA B( 5482), B( 5483), B( 5484) / 32.08, -21.92, .00 / DATA B( 5653), B( 5654), B( 5655) / 29.95, -18.23, .00 / DATA B( 5824), B( 5825), B( 5826) / 28.11, -13.64, .00 / DATA B( 5995), B( 5996), B( 5997) / 25.57, -7.44, .00 / DATA B( 6166), B( 6167), B( 6168) / 20.97, .54, .00 / DATA B( 6337), B( 6338), B( 6339) / 16.47, 7.70, .00 / DATA B( 6508), B( 6509), B( 6510) / 13.56, 11.06, .00 / DATA B( 6679), B( 6680), B( 6681) / 11.65, 12.33, .00 / DATA B( 6850), B( 6851), B( 6852) / 10.91, 11.78, .00 / DATA B( 7021), B( 7022), B( 7023) / 13.93, 5.23, .00 / DATA B( 7192), B( 7193), B( 7194) / 15.36, .72, .00 / DATA B( 7363), B( 7364), B( 7365) / 13.67, 1.50, .00 / DATA B( 7534), B( 7535), B( 7536) / 11.44, 2.91, .00 / DATA B( 7705), B( 7706), B( 7707) / 10.80, 2.97, .00 / DATA B( 7876), B( 7877), B( 7878) / 10.64, 2.17, .00 / DATA B( 8047), B( 8048), B( 8049) / 10.30, 1.45, .00 / DATA B( 8218), B( 8219), B( 8220) / 9.90, 1.72, .00 / DATA B( 8389), B( 8390), B( 8391) / 9.75, 2.98, .00 / DATA B( 8560), B( 8561), B( 8562) / 10.50, 4.77, .00 / DATA B( 8731), B( 8732), B( 8733) / 12.54, 5.92, .00 / DATA B( 8902), B( 8903), B( 8904) / 14.14, 6.15, .00 / DATA B( 9073), B( 9074), B( 9075) / 13.99, 6.67, .00 / DATA B( 9244), B( 9245), B( 9246) / 13.12, 5.81, .00 / DATA B( 9415), B( 9416), B( 9417) / 13.36, 4.55, .00 / DATA B( 9586), B( 9587), B( 9588) / 13.08, 4.10, .00 / DATA B( 9757), B( 9758), B( 9759) / 11.51, 5.21, .00 / DATA B( 9928), B( 9929), B( 9930) / 10.09, 7.26, .00 / DATA B(10099), B(10100), B(10101) / 10.48, 9.10, .00 / DATA B(10270), B(10271), B(10272) / 11.81, 10.56, .00 / DATA B(10441), B(10442), B(10443) / 13.03, 11.71, .00 / DATA B(10612), B(10613), B(10614) / 13.37, 12.31, .00 / DATA B(10783), B(10784), B(10785) / 11.78, 11.50, .00 / DATA B(10954), B(10955), B(10956) / 9.69, 10.39, .00 / DATA B(11125), B(11126), B(11127) / 7.61, 9.23, .00 / DATA B(11296), B(11297), B(11298) / 6.02, 8.25, .00 / DATA B(11467), B(11468), B(11469) / 5.34, 7.65, .00 / DATA B(11638), B(11639), B(11640) / 5.49, 7.43, .00 / DATA B(11809), B(11810), B(11811) / 6.17, 7.48, .00 / DATA B(11980), B(11981), B(11982) / 7.04, 7.66, .00 / DATA B(12151), B(12152), B(12153) / 7.63, 7.75, .00 / DATA B(12322), B(12323), B(12324) / 7.98, 7.78, .00 / DATA B(12493), B(12494), B(12495) / 8.17, 7.79, .00 / DATA B( 13), B( 14), B( 15) / 23.52, -35.40, .00 / DATA B( 184), B( 185), B( 186) / 23.63, -35.32, .00 / DATA B( 355), B( 356), B( 357) / 23.84, -35.24, .00 / DATA B( 526), B( 527), B( 528) / 24.14, -35.19, .00 / DATA B( 697), B( 698), B( 699) / 24.55, -35.15, .00 / DATA B( 868), B( 869), B( 870) / 25.07, -35.13, .00 / DATA B( 1039), B( 1040), B( 1041) / 25.68, -35.14, .00 / DATA B( 1210), B( 1211), B( 1212) / 26.39, -35.20, .00 / DATA B( 1381), B( 1382), B( 1383) / 27.19, -35.29, .00 / DATA B( 1552), B( 1553), B( 1554) / 28.07, -35.45, .00 / DATA B( 1723), B( 1724), B( 1725) / 29.02, -35.67, .00 / DATA B( 1894), B( 1895), B( 1896) / 30.01, -35.98, .00 / DATA B( 2065), B( 2066), B( 2067) / 31.01, -36.39, .00 / DATA B( 2236), B( 2237), B( 2238) / 32.00, -36.91, .00 / DATA B( 2407), B( 2408), B( 2409) / 32.93, -37.54, .00 / DATA B( 2578), B( 2579), B( 2580) / 33.78, -38.30, .00 / DATA B( 2749), B( 2750), B( 2751) / 34.48, -39.14, .00 / DATA B( 2920), B( 2921), B( 2922) / 34.99, -40.03, .00 / DATA B( 3091), B( 3092), B( 3093) / 35.29, -40.88, .00 / DATA B( 3262), B( 3263), B( 3264) / 35.34, -41.53, .00 / DATA B( 3433), B( 3434), B( 3435) / 35.18, -41.81, .00 / DATA B( 3604), B( 3605), B( 3606) / 34.85, -41.53, .00 / DATA B( 3775), B( 3776), B( 3777) / 34.47, -40.57, .00 / DATA B( 3946), B( 3947), B( 3948) / 34.26, -38.93, .00 / DATA B( 4117), B( 4118), B( 4119) / 34.60, -36.81, .00 / DATA B( 4288), B( 4289), B( 4290) / 35.89, -34.59, .00 / DATA B( 4459), B( 4460), B( 4461) / 37.92, -32.65, .00 / DATA B( 4630), B( 4631), B( 4632) / 39.55, -31.14, .00 / DATA B( 4801), B( 4802), B( 4803) / 39.43, -29.79, .00 / DATA B( 4972), B( 4973), B( 4974) / 37.26, -28.14, .00 / DATA B( 5143), B( 5144), B( 5145) / 33.87, -25.93, .00 / DATA B( 5314), B( 5315), B( 5316) / 30.22, -23.24, .00 / DATA B( 5485), B( 5486), B( 5487) / 26.83, -20.29, .00 / DATA B( 5656), B( 5657), B( 5658) / 23.90, -17.10, .00 / DATA B( 5827), B( 5828), B( 5829) / 21.39, -13.15, .00 / DATA B( 5998), B( 5999), B( 6000) / 19.03, -7.56, .00 / DATA B( 6169), B( 6170), B( 6171) / 16.34, -.40, .00 / DATA B( 6340), B( 6341), B( 6342) / 13.31, 6.12, .00 / DATA B( 6511), B( 6512), B( 6513) / 11.28, 8.70, .00 / DATA B( 6682), B( 6683), B( 6684) / 9.93, 9.31, .00 / DATA B( 6853), B( 6854), B( 6855) / 9.89, 7.86, .00 / DATA B( 7024), B( 7025), B( 7026) / 11.71, 3.42, .00 / DATA B( 7195), B( 7196), B( 7197) / 13.99, -1.96, .00 / DATA B( 7366), B( 7367), B( 7368) / 12.42, -.93, .00 / DATA B( 7537), B( 7538), B( 7539) / 10.04, 1.09, .00 / DATA B( 7708), B( 7709), B( 7710) / 9.51, 1.65, .00 / DATA B( 7879), B( 7880), B( 7881) / 9.65, .97, .00 / DATA B( 8050), B( 8051), B( 8052) / 9.47, .20, .00 / DATA B( 8221), B( 8222), B( 8223) / 9.04, .62, .00 / DATA B( 8392), B( 8393), B( 8394) / 8.65, 2.32, .00 / DATA B( 8563), B( 8564), B( 8565) / 9.01, 4.68, .00 / DATA B( 8734), B( 8735), B( 8736) / 10.34, 7.46, .00 / DATA B( 8905), B( 8906), B( 8907) / 11.16, 7.31, .00 / DATA B( 9076), B( 9077), B( 9078) / 11.39, 6.87, .00 / DATA B( 9247), B( 9248), B( 9249) / 10.61, 5.71, .00 / DATA B( 9418), B( 9419), B( 9420) / 12.32, 4.28, .00 / DATA B( 9589), B( 9590), B( 9591) / 12.35, 3.98, .00 / DATA B( 9760), B( 9761), B( 9762) / 10.18, 5.47, .00 / DATA B( 9931), B( 9932), B( 9933) / 7.89, 7.78, .00 / DATA B(10102), B(10103), B(10104) / 9.14, 9.01, .00 / DATA B(10273), B(10274), B(10275) / 10.81, 9.88, .00 / DATA B(10444), B(10445), B(10446) / 12.13, 10.55, .00 / DATA B(10615), B(10616), B(10617) / 12.35, 10.85, .00 / DATA B(10786), B(10787), B(10788) / 11.02, 10.26, .00 / DATA B(10957), B(10958), B(10959) / 9.08, 9.32, .00 / DATA B(11128), B(11129), B(11130) / 7.15, 8.33, .00 / DATA B(11299), B(11300), B(11301) / 5.69, 7.50, .00 / DATA B(11470), B(11471), B(11472) / 5.05, 7.00, .00 / DATA B(11641), B(11642), B(11643) / 5.24, 6.87, .00 / DATA B(11812), B(11813), B(11814) / 5.95, 7.00, .00 / DATA B(11983), B(11984), B(11985) / 6.85, 7.24, .00 / DATA B(12154), B(12155), B(12156) / 7.39, 7.35, .00 / DATA B(12325), B(12326), B(12327) / 7.72, 7.40, .00 / DATA B(12496), B(12497), B(12498) / 7.89, 7.41, .00 / DATA B( 16), B( 17), B( 18) / 23.60, -35.26, .00 / DATA B( 187), B( 188), B( 189) / 23.70, -35.17, .00 / DATA B( 358), B( 359), B( 360) / 23.90, -35.08, .00 / DATA B( 529), B( 530), B( 531) / 24.19, -35.01, .00 / DATA B( 700), B( 701), B( 702) / 24.59, -34.94, .00 / DATA B( 871), B( 872), B( 873) / 25.08, -34.89, .00 / DATA B( 1042), B( 1043), B( 1044) / 25.68, -34.85, .00 / DATA B( 1213), B( 1214), B( 1215) / 26.38, -34.84, .00 / DATA B( 1384), B( 1385), B( 1386) / 27.18, -34.87, .00 / DATA B( 1555), B( 1556), B( 1557) / 28.07, -34.94, .00 / DATA B( 1726), B( 1727), B( 1728) / 29.03, -35.06, .00 / DATA B( 1897), B( 1898), B( 1899) / 30.04, -35.26, .00 / DATA B( 2068), B( 2069), B( 2070) / 31.09, -35.54, .00 / DATA B( 2239), B( 2240), B( 2241) / 32.12, -35.94, .00 / DATA B( 2410), B( 2411), B( 2412) / 33.12, -36.45, .00 / DATA B( 2581), B( 2582), B( 2583) / 34.03, -37.11, .00 / DATA B( 2752), B( 2753), B( 2754) / 34.79, -37.90, .00 / DATA B( 2923), B( 2924), B( 2925) / 35.35, -38.79, .00 / DATA B( 3094), B( 3095), B( 3096) / 35.66, -39.71, .00 / DATA B( 3265), B( 3266), B( 3267) / 35.66, -40.50, .00 / DATA B( 3436), B( 3437), B( 3438) / 35.35, -40.92, .00 / DATA B( 3607), B( 3608), B( 3609) / 34.77, -40.70, .00 / DATA B( 3778), B( 3779), B( 3780) / 34.00, -39.61, .00 / DATA B( 3949), B( 3950), B( 3951) / 33.19, -37.61, .00 / DATA B( 4120), B( 4121), B( 4122) / 32.78, -34.93, .00 / DATA B( 4291), B( 4292), B( 4293) / 33.70, -32.07, .00 / DATA B( 4462), B( 4463), B( 4464) / 36.26, -29.71, .00 / DATA B( 4633), B( 4634), B( 4635) / 38.57, -28.23, .00 / DATA B( 4804), B( 4805), B( 4806) / 38.11, -27.24, .00 / DATA B( 4975), B( 4976), B( 4977) / 34.59, -25.85, .00 / DATA B( 5146), B( 5147), B( 5148) / 29.91, -23.64, .00 / DATA B( 5317), B( 5318), B( 5319) / 25.31, -20.83, .00 / DATA B( 5488), B( 5489), B( 5490) / 21.17, -18.01, .00 / DATA B( 5659), B( 5660), B( 5661) / 17.57, -15.45, .00 / DATA B( 5830), B( 5831), B( 5832) / 14.50, -12.61, .00 / DATA B( 6001), B( 6002), B( 6003) / 12.62, -8.26, .00 / DATA B( 6172), B( 6173), B( 6174) / 12.40, -1.96, .00 / DATA B( 6343), B( 6344), B( 6345) / 11.24, 3.12, .00 / DATA B( 6514), B( 6515), B( 6516) / 9.58, 5.24, .00 / DATA B( 6685), B( 6686), B( 6687) / 8.77, 5.05, .00 / DATA B( 6856), B( 6857), B( 6858) / 9.75, 2.33, .00 / DATA B( 7027), B( 7028), B( 7029) / 12.97, -4.07, .00 / DATA B( 7198), B( 7199), B( 7200) / 13.50, -5.81, .00 / DATA B( 7369), B( 7370), B( 7371) / 11.07, -2.34, .00 / DATA B( 7540), B( 7541), B( 7542) / 9.38, .76, .00 / DATA B( 7711), B( 7712), B( 7713) / 9.18, .61, .00 / DATA B( 7882), B( 7883), B( 7884) / 9.21, -.36, .00 / DATA B( 8053), B( 8054), B( 8055) / 8.91, -1.09, .00 / DATA B( 8224), B( 8225), B( 8226) / 8.48, -.50, .00 / DATA B( 8395), B( 8396), B( 8397) / 8.04, 1.65, .00 / DATA B( 8566), B( 8567), B( 8568) / 8.28, 3.78, .00 / DATA B( 8737), B( 8738), B( 8739) / 8.76, 5.84, .00 / DATA B( 8908), B( 8909), B( 8910) / 8.56, 6.09, .00 / DATA B( 9079), B( 9080), B( 9081) / 9.46, 4.89, .00 / DATA B( 9250), B( 9251), B( 9252) / 10.03, 4.03, .00 / DATA B( 9421), B( 9422), B( 9423) / 11.69, 3.84, .00 / DATA B( 9592), B( 9593), B( 9594) / 9.89, 6.19, .00 / DATA B( 9763), B( 9764), B( 9765) / 8.15, 7.52, .00 / DATA B( 9934), B( 9935), B( 9936) / 7.14, 8.44, .00 / DATA B(10105), B(10106), B(10107) / 8.20, 8.83, .00 / DATA B(10276), B(10277), B(10278) / 9.87, 8.92, .00 / DATA B(10447), B(10448), B(10449) / 11.08, 8.95, .00 / DATA B(10618), B(10619), B(10620) / 11.04, 9.01, .00 / DATA B(10789), B(10790), B(10791) / 9.91, 8.68, .00 / DATA B(10960), B(10961), B(10962) / 8.23, 8.04, .00 / DATA B(11131), B(11132), B(11133) / 6.50, 7.29, .00 / DATA B(11302), B(11303), B(11304) / 5.16, 6.61, .00 / DATA B(11473), B(11474), B(11475) / 4.61, 6.24, .00 / DATA B(11644), B(11645), B(11646) / 4.89, 6.23, .00 / DATA B(11815), B(11816), B(11817) / 5.61, 6.43, .00 / DATA B(11986), B(11987), B(11988) / 6.41, 6.68, .00 / DATA B(12157), B(12158), B(12159) / 7.00, 6.84, .00 / DATA B(12328), B(12329), B(12330) / 7.35, 6.92, .00 / DATA B(12499), B(12500), B(12501) / 7.53, 6.95, .00 / DATA B( 19), B( 20), B( 21) / 23.70, -35.10, .00 / DATA B( 190), B( 191), B( 192) / 23.80, -35.00, .00 / DATA B( 361), B( 362), B( 363) / 23.98, -34.91, .00 / DATA B( 532), B( 533), B( 534) / 24.26, -34.81, .00 / DATA B( 703), B( 704), B( 705) / 24.64, -34.71, .00 / DATA B( 874), B( 875), B( 876) / 25.11, -34.62, .00 / DATA B( 1045), B( 1046), B( 1047) / 25.69, -34.53, .00 / DATA B( 1216), B( 1217), B( 1218) / 26.38, -34.46, .00 / DATA B( 1387), B( 1388), B( 1389) / 27.17, -34.41, .00 / DATA B( 1558), B( 1559), B( 1560) / 28.06, -34.38, .00 / DATA B( 1729), B( 1730), B( 1731) / 29.03, -34.39, .00 / DATA B( 1900), B( 1901), B( 1902) / 30.07, -34.45, .00 / DATA B( 2071), B( 2072), B( 2073) / 31.16, -34.59, .00 / DATA B( 2242), B( 2243), B( 2244) / 32.25, -34.82, .00 / DATA B( 2413), B( 2414), B( 2415) / 33.31, -35.18, .00 / DATA B( 2584), B( 2585), B( 2586) / 34.30, -35.69, .00 / DATA B( 2755), B( 2756), B( 2757) / 35.15, -36.38, .00 / DATA B( 2926), B( 2927), B( 2928) / 35.80, -37.24, .00 / DATA B( 3097), B( 3098), B( 3099) / 36.15, -38.22, .00 / DATA B( 3268), B( 3269), B( 3270) / 36.13, -39.18, .00 / DATA B( 3439), B( 3440), B( 3441) / 35.71, -39.83, .00 / DATA B( 3610), B( 3611), B( 3612) / 34.94, -39.77, .00 / DATA B( 3781), B( 3782), B( 3783) / 33.89, -38.62, .00 / DATA B( 3952), B( 3953), B( 3954) / 32.64, -36.25, .00 / DATA B( 4123), B( 4124), B( 4125) / 31.18, -32.89, .00 / DATA B( 4294), B( 4295), B( 4296) / 31.02, -29.15, .00 / DATA B( 4465), B( 4466), B( 4467) / 34.25, -25.98, .00 / DATA B( 4636), B( 4637), B( 4638) / 37.45, -24.41, .00 / DATA B( 4807), B( 4808), B( 4809) / 36.44, -24.03, .00 / DATA B( 4978), B( 4979), B( 4980) / 30.88, -23.13, .00 / DATA B( 5149), B( 5150), B( 5151) / 25.34, -20.93, .00 / DATA B( 5320), B( 5321), B( 5322) / 20.30, -17.86, .00 / DATA B( 5491), B( 5492), B( 5493) / 15.83, -15.02, .00 / DATA B( 5662), B( 5663), B( 5664) / 12.18, -13.12, .00 / DATA B( 5833), B( 5834), B( 5835) / 9.06, -11.55, .00 / DATA B( 6004), B( 6005), B( 6006) / 7.12, -8.97, .00 / DATA B( 6175), B( 6176), B( 6177) / 10.12, -2.96, .00 / DATA B( 6346), B( 6347), B( 6348) / 9.64, .75, .00 / DATA B( 6517), B( 6518), B( 6519) / 8.14, 1.88, .00 / DATA B( 6688), B( 6689), B( 6690) / 7.59, 1.33, .00 / DATA B( 6859), B( 6860), B( 6861) / 8.80, -.83, .00 / DATA B( 7030), B( 7031), B( 7032) / 11.38, -5.32, .00 / DATA B( 7201), B( 7202), B( 7203) / 11.46, -5.74, .00 / DATA B( 7372), B( 7373), B( 7374) / 9.42, -2.37, .00 / DATA B( 7543), B( 7544), B( 7545) / 8.80, -.83, .00 / DATA B( 7714), B( 7715), B( 7716) / 9.66, -.98, .00 / DATA B( 7885), B( 7886), B( 7887) / 8.83, -1.08, .00 / DATA B( 8056), B( 8057), B( 8058) / 8.24, -1.24, .00 / DATA B( 8227), B( 8228), B( 8229) / 8.04, -.51, .00 / DATA B( 8398), B( 8399), B( 8400) / 7.64, 1.67, .00 / DATA B( 8569), B( 8570), B( 8571) / 7.80, 2.66, .00 / DATA B( 8740), B( 8741), B( 8742) / 10.01, 2.65, .00 / DATA B( 8911), B( 8912), B( 8913) / 10.49, 3.52, .00 / DATA B( 9082), B( 9083), B( 9084) / 9.05, 2.15, .00 / DATA B( 9253), B( 9254), B( 9255) / 9.28, 2.00, .00 / DATA B( 9424), B( 9425), B( 9426) / 9.66, 4.12, .00 / DATA B( 9595), B( 9596), B( 9597) / 7.02, 9.03, .00 / DATA B( 9766), B( 9767), B( 9768) / 6.61, 9.17, .00 / DATA B( 9937), B( 9938), B( 9939) / 6.81, 8.74, .00 / DATA B(10108), B(10109), B(10110) / 7.74, 8.37, .00 / DATA B(10279), B(10280), B(10281) / 9.05, 7.79, .00 / DATA B(10450), B(10451), B(10452) / 9.99, 7.21, .00 / DATA B(10621), B(10622), B(10623) / 9.64, 7.16, .00 / DATA B(10792), B(10793), B(10794) / 8.63, 7.01, .00 / DATA B(10963), B(10964), B(10965) / 7.24, 6.71, .00 / DATA B(11134), B(11135), B(11136) / 5.79, 6.26, .00 / DATA B(11305), B(11306), B(11307) / 4.57, 5.73, .00 / DATA B(11476), B(11477), B(11478) / 4.13, 5.47, .00 / DATA B(11647), B(11648), B(11649) / 4.55, 5.60, .00 / DATA B(11818), B(11819), B(11820) / 5.25, 5.84, .00 / DATA B(11989), B(11990), B(11991) / 5.97, 6.09, .00 / DATA B(12160), B(12161), B(12162) / 6.55, 6.29, .00 / DATA B(12331), B(12332), B(12333) / 6.91, 6.39, .00 / DATA B(12502), B(12503), B(12504) / 7.09, 6.43, .00 / DATA B( 22), B( 23), B( 24) / 23.84, -34.94, .00 / DATA B( 193), B( 194), B( 195) / 23.93, -34.83, .00 / DATA B( 364), B( 365), B( 366) / 24.10, -34.72, .00 / DATA B( 535), B( 536), B( 537) / 24.36, -34.60, .00 / DATA B( 706), B( 707), B( 708) / 24.71, -34.47, .00 / DATA B( 877), B( 878), B( 879) / 25.16, -34.34, .00 / DATA B( 1048), B( 1049), B( 1050) / 25.71, -34.20, .00 / DATA B( 1219), B( 1220), B( 1221) / 26.37, -34.06, .00 / DATA B( 1390), B( 1391), B( 1392) / 27.15, -33.92, .00 / DATA B( 1561), B( 1562), B( 1563) / 28.04, -33.79, .00 / DATA B( 1732), B( 1733), B( 1734) / 29.02, -33.68, .00 / DATA B( 1903), B( 1904), B( 1905) / 30.09, -33.60, .00 / DATA B( 2074), B( 2075), B( 2076) / 31.21, -33.56, .00 / DATA B( 2245), B( 2246), B( 2247) / 32.36, -33.61, .00 / DATA B( 2416), B( 2417), B( 2418) / 33.49, -33.77, .00 / DATA B( 2587), B( 2588), B( 2589) / 34.57, -34.09, .00 / DATA B( 2758), B( 2759), B( 2760) / 35.53, -34.61, .00 / DATA B( 2929), B( 2930), B( 2931) / 36.29, -35.36, .00 / DATA B( 3100), B( 3101), B( 3102) / 36.73, -36.34, .00 / DATA B( 3271), B( 3272), B( 3273) / 36.75, -37.47, .00 / DATA B( 3442), B( 3443), B( 3444) / 36.26, -38.44, .00 / DATA B( 3613), B( 3614), B( 3615) / 35.34, -38.69, .00 / DATA B( 3784), B( 3785), B( 3786) / 34.16, -37.60, .00 / DATA B( 3955), B( 3956), B( 3957) / 32.96, -34.91, .00 / DATA B( 4126), B( 4127), B( 4128) / 31.56, -30.89, .00 / DATA B( 4297), B( 4298), B( 4299) / 28.24, -26.26, .00 / DATA B( 4468), B( 4469), B( 4470) / 33.14, -21.90, .00 / DATA B( 4639), B( 4640), B( 4641) / 34.56, -19.31, .00 / DATA B( 4810), B( 4811), B( 4812) / 31.98, -19.33, .00 / DATA B( 4981), B( 4982), B( 4983) / 25.61, -20.05, .00 / DATA B( 5152), B( 5153), B( 5154) / 20.51, -17.70, .00 / DATA B( 5323), B( 5324), B( 5325) / 15.87, -14.59, .00 / DATA B( 5494), B( 5495), B( 5496) / 11.48, -11.53, .00 / DATA B( 5665), B( 5666), B( 5667) / 8.62, -10.44, .00 / DATA B( 5836), B( 5837), B( 5838) / 6.53, -9.43, .00 / DATA B( 6007), B( 6008), B( 6009) / 5.99, -7.13, .00 / DATA B( 6178), B( 6179), B( 6180) / 7.24, -3.50, .00 / DATA B( 6349), B( 6350), B( 6351) / 7.55, -.77, .00 / DATA B( 6520), B( 6521), B( 6522) / 6.85, .04, .00 / DATA B( 6691), B( 6692), B( 6693) / 6.56, -.40, .00 / DATA B( 6862), B( 6863), B( 6864) / 7.12, -1.01, .00 / DATA B( 7033), B( 7034), B( 7035) / 9.21, -3.51, .00 / DATA B( 7204), B( 7205), B( 7206) / 9.67, -4.51, .00 / DATA B( 7375), B( 7376), B( 7377) / 8.42, -2.66, .00 / DATA B( 7546), B( 7547), B( 7548) / 8.62, -2.11, .00 / DATA B( 7717), B( 7718), B( 7719) / 8.93, -1.57, .00 / DATA B( 7888), B( 7889), B( 7890) / 7.48, -.38, .00 / DATA B( 8059), B( 8060), B( 8061) / 7.26, .26, .00 / DATA B( 8230), B( 8231), B( 8232) / 7.50, .90, .00 / DATA B( 8401), B( 8402), B( 8403) / 7.57, 2.65, .00 / DATA B( 8572), B( 8573), B( 8574) / 6.95, 2.44, .00 / DATA B( 8743), B( 8744), B( 8745) / 10.92, 2.84, .00 / DATA B( 8914), B( 8915), B( 8916) / 11.06, 2.24, .00 / DATA B( 9085), B( 9086), B( 9087) / 8.01, -.02, .00 / DATA B( 9256), B( 9257), B( 9258) / 8.37, .62, .00 / DATA B( 9427), B( 9428), B( 9429) / 8.38, 3.80, .00 / DATA B( 9598), B( 9599), B( 9600) / 7.17, 7.03, .00 / DATA B( 9769), B( 9770), B( 9771) / 6.76, 8.02, .00 / DATA B( 9940), B( 9941), B( 9942) / 6.94, 8.09, .00 / DATA B(10111), B(10112), B(10113) / 7.55, 7.53, .00 / DATA B(10282), B(10283), B(10284) / 8.28, 6.59, .00 / DATA B(10453), B(10454), B(10455) / 8.60, 5.74, .00 / DATA B(10624), B(10625), B(10626) / 8.18, 5.39, .00 / DATA B(10795), B(10796), B(10797) / 7.29, 5.42, .00 / DATA B(10966), B(10967), B(10968) / 6.22, 5.50, .00 / DATA B(11137), B(11138), B(11139) / 5.14, 5.39, .00 / DATA B(11308), B(11309), B(11310) / 4.29, 5.11, .00 / DATA B(11479), B(11480), B(11481) / 4.01, 4.96, .00 / DATA B(11650), B(11651), B(11652) / 4.34, 5.06, .00 / DATA B(11821), B(11822), B(11823) / 4.94, 5.29, .00 / DATA B(11992), B(11993), B(11994) / 5.58, 5.54, .00 / DATA B(12163), B(12164), B(12165) / 6.10, 5.73, .00 / DATA B(12334), B(12335), B(12336) / 6.46, 5.86, .00 / DATA B(12505), B(12506), B(12507) / 6.63, 5.90, .00 / DATA B( 25), B( 26), B( 27) / 24.03, -34.77, .00 / DATA B( 196), B( 197), B( 198) / 24.11, -34.66, .00 / DATA B( 367), B( 368), B( 369) / 24.27, -34.53, .00 / DATA B( 538), B( 539), B( 540) / 24.50, -34.39, .00 / DATA B( 709), B( 710), B( 711) / 24.82, -34.24, .00 / DATA B( 880), B( 881), B( 882) / 25.23, -34.07, .00 / DATA B( 1051), B( 1052), B( 1053) / 25.74, -33.88, .00 / DATA B( 1222), B( 1223), B( 1224) / 26.38, -33.67, .00 / DATA B( 1393), B( 1394), B( 1395) / 27.13, -33.45, .00 / DATA B( 1564), B( 1565), B( 1566) / 28.01, -33.22, .00 / DATA B( 1735), B( 1736), B( 1737) / 29.00, -32.98, .00 / DATA B( 1906), B( 1907), B( 1908) / 30.09, -32.74, .00 / DATA B( 2077), B( 2078), B( 2079) / 31.25, -32.53, .00 / DATA B( 2248), B( 2249), B( 2250) / 32.44, -32.37, .00 / DATA B( 2419), B( 2420), B( 2421) / 33.64, -32.30, .00 / DATA B( 2590), B( 2591), B( 2592) / 34.80, -32.37, .00 / DATA B( 2761), B( 2762), B( 2763) / 35.87, -32.63, .00 / DATA B( 2932), B( 2933), B( 2934) / 36.77, -33.16, .00 / DATA B( 3103), B( 3104), B( 3105) / 37.37, -34.02, .00 / DATA B( 3274), B( 3275), B( 3276) / 37.47, -35.22, .00 / DATA B( 3445), B( 3446), B( 3447) / 36.94, -36.54, .00 / DATA B( 3616), B( 3617), B( 3618) / 35.82, -37.30, .00 / DATA B( 3787), B( 3788), B( 3789) / 34.48, -36.38, .00 / DATA B( 3958), B( 3959), B( 3960) / 33.49, -33.36, .00 / DATA B( 4129), B( 4130), B( 4131) / 33.67, -29.01, .00 / DATA B( 4300), B( 4301), B( 4302) / 35.31, -23.65, .00 / DATA B( 4471), B( 4472), B( 4473) / 32.39, -20.14, .00 / DATA B( 4642), B( 4643), B( 4644) / 30.03, -13.68, .00 / DATA B( 4813), B( 4814), B( 4815) / 25.90, -13.32, .00 / DATA B( 4984), B( 4985), B( 4986) / 20.03, -15.68, .00 / DATA B( 5155), B( 5156), B( 5157) / 16.24, -13.69, .00 / DATA B( 5326), B( 5327), B( 5328) / 12.61, -11.38, .00 / DATA B( 5497), B( 5498), B( 5499) / 9.37, -9.33, .00 / DATA B( 5668), B( 5669), B( 5670) / 7.20, -8.35, .00 / DATA B( 5839), B( 5840), B( 5841) / 5.90, -7.36, .00 / DATA B( 6010), B( 6011), B( 6012) / 5.56, -5.48, .00 / DATA B( 6181), B( 6182), B( 6183) / 5.95, -3.07, .00 / DATA B( 6352), B( 6353), B( 6354) / 6.10, -1.23, .00 / DATA B( 6523), B( 6524), B( 6525) / 5.79, -.60, .00 / DATA B( 6694), B( 6695), B( 6696) / 5.81, -1.27, .00 / DATA B( 6865), B( 6866), B( 6867) / 7.04, -1.95, .00 / DATA B( 7036), B( 7037), B( 7038) / 9.21, -2.34, .00 / DATA B( 7207), B( 7208), B( 7209) / 9.65, -4.92, .00 / DATA B( 7378), B( 7379), B( 7380) / 8.83, -4.54, .00 / DATA B( 7549), B( 7550), B( 7551) / 8.41, -2.97, .00 / DATA B( 7720), B( 7721), B( 7722) / 7.88, -1.60, .00 / DATA B( 7891), B( 7892), B( 7893) / 6.75, .19, .00 / DATA B( 8062), B( 8063), B( 8064) / 6.67, 1.23, .00 / DATA B( 8233), B( 8234), B( 8235) / 7.18, 1.52, .00 / DATA B( 8404), B( 8405), B( 8406) / 7.23, 2.32, .00 / DATA B( 8575), B( 8576), B( 8577) / 7.13, 2.84, .00 / DATA B( 8746), B( 8747), B( 8748) / 7.89, 4.25, .00 / DATA B( 8917), B( 8918), B( 8919) / 7.38, .46, .00 / DATA B( 9088), B( 9089), B( 9090) / 7.35, 3.05, .00 / DATA B( 9259), B( 9260), B( 9261) / 7.59, 1.92, .00 / DATA B( 9430), B( 9431), B( 9432) / 8.14, 3.49, .00 / DATA B( 9601), B( 9602), B( 9603) / 8.29, 3.73, .00 / DATA B( 9772), B( 9773), B( 9774) / 7.80, 5.21, .00 / DATA B( 9943), B( 9944), B( 9945) / 7.40, 6.71, .00 / DATA B(10114), B(10115), B(10116) / 7.57, 6.35, .00 / DATA B(10285), B(10286), B(10287) / 7.64, 5.32, .00 / DATA B(10456), B(10457), B(10458) / 7.35, 4.22, .00 / DATA B(10627), B(10628), B(10629) / 6.70, 3.70, .00 / DATA B(10798), B(10799), B(10800) / 5.96, 3.96, .00 / DATA B(10969), B(10970), B(10971) / 5.24, 4.54, .00 / DATA B(11140), B(11141), B(11142) / 4.57, 4.77, .00 / DATA B(11311), B(11312), B(11313) / 4.10, 4.66, .00 / DATA B(11482), B(11483), B(11484) / 3.98, 4.56, .00 / DATA B(11653), B(11654), B(11655) / 4.24, 4.62, .00 / DATA B(11824), B(11825), B(11826) / 4.72, 4.81, .00 / DATA B(11995), B(11996), B(11997) / 5.25, 5.03, .00 / DATA B(12166), B(12167), B(12168) / 5.70, 5.21, .00 / DATA B(12337), B(12338), B(12339) / 6.02, 5.33, .00 / DATA B(12508), B(12509), B(12510) / 6.18, 5.38, .00 / DATA B( 28), B( 29), B( 30) / 24.28, -34.60, .00 / DATA B( 199), B( 200), B( 201) / 24.36, -34.49, .00 / DATA B( 370), B( 371), B( 372) / 24.49, -34.35, .00 / DATA B( 541), B( 542), B( 543) / 24.69, -34.20, .00 / DATA B( 712), B( 713), B( 714) / 24.97, -34.01, .00 / DATA B( 883), B( 884), B( 885) / 25.34, -33.81, .00 / DATA B( 1054), B( 1055), B( 1056) / 25.81, -33.57, .00 / DATA B( 1225), B( 1226), B( 1227) / 26.40, -33.31, .00 / DATA B( 1396), B( 1397), B( 1398) / 27.12, -33.01, .00 / DATA B( 1567), B( 1568), B( 1569) / 27.99, -32.69, .00 / DATA B( 1738), B( 1739), B( 1740) / 28.98, -32.33, .00 / DATA B( 1909), B( 1910), B( 1911) / 30.09, -31.94, .00 / DATA B( 2080), B( 2081), B( 2082) / 31.27, -31.55, .00 / DATA B( 2251), B( 2252), B( 2253) / 32.50, -31.18, .00 / DATA B( 2422), B( 2423), B( 2424) / 33.73, -30.86, .00 / DATA B( 2593), B( 2594), B( 2595) / 34.95, -30.64, .00 / DATA B( 2764), B( 2765), B( 2766) / 36.12, -30.59, .00 / DATA B( 2935), B( 2936), B( 2937) / 37.17, -30.77, .00 / DATA B( 3106), B( 3107), B( 3108) / 37.95, -31.30, .00 / DATA B( 3277), B( 3278), B( 3279) / 38.23, -32.29, .00 / DATA B( 3448), B( 3449), B( 3450) / 37.69, -33.79, .00 / DATA B( 3619), B( 3620), B( 3621) / 36.20, -35.20, .00 / DATA B( 3790), B( 3791), B( 3792) / 34.41, -34.73, .00 / DATA B( 3961), B( 3962), B( 3963) / 32.91, -30.95, .00 / DATA B( 4132), B( 4133), B( 4134) / 32.91, -25.87, .00 / DATA B( 4303), B( 4304), B( 4305) / 36.89, -22.70, .00 / DATA B( 4474), B( 4475), B( 4476) / 28.89, -17.86, .00 / DATA B( 4645), B( 4646), B( 4647) / 23.92, -10.78, .00 / DATA B( 4816), B( 4817), B( 4818) / 20.21, -7.88, .00 / DATA B( 4987), B( 4988), B( 4989) / 16.26, -9.25, .00 / DATA B( 5158), B( 5159), B( 5160) / 13.02, -9.29, .00 / DATA B( 5329), B( 5330), B( 5331) / 10.54, -8.54, .00 / DATA B( 5500), B( 5501), B( 5502) / 8.60, -7.77, .00 / DATA B( 5671), B( 5672), B( 5673) / 7.18, -7.11, .00 / DATA B( 5842), B( 5843), B( 5844) / 6.28, -6.11, .00 / DATA B( 6013), B( 6014), B( 6015) / 5.84, -4.37, .00 / DATA B( 6184), B( 6185), B( 6186) / 5.71, -2.46, .00 / DATA B( 6355), B( 6356), B( 6357) / 5.57, -1.15, .00 / DATA B( 6526), B( 6527), B( 6528) / 5.23, -.30, .00 / DATA B( 6697), B( 6698), B( 6699) / 5.27, -.68, .00 / DATA B( 6868), B( 6869), B( 6870) / 6.99, -3.48, .00 / DATA B( 7039), B( 7040), B( 7041) / 10.28, .99, .00 / DATA B( 7210), B( 7211), B( 7212) / 8.80, -3.48, .00 / DATA B( 7381), B( 7382), B( 7383) / 8.62, -4.49, .00 / DATA B( 7552), B( 7553), B( 7554) / 8.25, -3.06, .00 / DATA B( 7723), B( 7724), B( 7725) / 7.25, -1.40, .00 / DATA B( 7894), B( 7895), B( 7896) / 6.55, -.62, .00 / DATA B( 8065), B( 8066), B( 8067) / 6.94, .61, .00 / DATA B( 8236), B( 8237), B( 8238) / 6.84, 1.31, .00 / DATA B( 8407), B( 8408), B( 8409) / 6.67, .65, .00 / DATA B( 8578), B( 8579), B( 8580) / 6.67, .51, .00 / DATA B( 8749), B( 8750), B( 8751) / 6.60, .99, .00 / DATA B( 8920), B( 8921), B( 8922) / 6.55, 1.34, .00 / DATA B( 9091), B( 9092), B( 9093) / 7.05, 5.45, .00 / DATA B( 9262), B( 9263), B( 9264) / 6.86, 4.31, .00 / DATA B( 9433), B( 9434), B( 9435) / 7.06, 4.04, .00 / DATA B( 9604), B( 9605), B( 9606) / 9.07, 1.61, .00 / DATA B( 9775), B( 9776), B( 9777) / 8.59, 2.26, .00 / DATA B( 9946), B( 9947), B( 9948) / 7.88, 4.90, .00 / DATA B(10117), B(10118), B(10119) / 7.71, 5.13, .00 / DATA B(10288), B(10289), B(10290) / 7.16, 4.11, .00 / DATA B(10459), B(10460), B(10461) / 6.25, 2.74, .00 / DATA B(10630), B(10631), B(10632) / 5.29, 2.00, .00 / DATA B(10801), B(10802), B(10803) / 4.67, 2.68, .00 / DATA B(10972), B(10973), B(10974) / 4.36, 3.96, .00 / DATA B(11143), B(11144), B(11145) / 4.06, 4.42, .00 / DATA B(11314), B(11315), B(11316) / 3.90, 4.31, .00 / DATA B(11485), B(11486), B(11487) / 3.94, 4.22, .00 / DATA B(11656), B(11657), B(11658) / 4.18, 4.26, .00 / DATA B(11827), B(11828), B(11829) / 4.55, 4.40, .00 / DATA B(11998), B(11999), B(12000) / 4.97, 4.58, .00 / DATA B(12169), B(12170), B(12171) / 5.34, 4.74, .00 / DATA B(12340), B(12341), B(12342) / 5.61, 4.85, .00 / DATA B(12511), B(12512), B(12513) / 5.74, 4.89, .00 / DATA B( 31), B( 32), B( 33) / 24.61, -34.45, .00 / DATA B( 202), B( 203), B( 204) / 24.68, -34.33, .00 / DATA B( 373), B( 374), B( 375) / 24.79, -34.19, .00 / DATA B( 544), B( 545), B( 546) / 24.96, -34.01, .00 / DATA B( 715), B( 716), B( 717) / 25.19, -33.81, .00 / DATA B( 886), B( 887), B( 888) / 25.50, -33.57, .00 / DATA B( 1057), B( 1058), B( 1059) / 25.91, -33.30, .00 / DATA B( 1228), B( 1229), B( 1230) / 26.45, -32.99, .00 / DATA B( 1399), B( 1400), B( 1401) / 27.13, -32.64, .00 / DATA B( 1570), B( 1571), B( 1572) / 27.97, -32.23, .00 / DATA B( 1741), B( 1742), B( 1743) / 28.96, -31.77, .00 / DATA B( 1912), B( 1913), B( 1914) / 30.09, -31.25, .00 / DATA B( 2083), B( 2084), B( 2085) / 31.29, -30.70, .00 / DATA B( 2254), B( 2255), B( 2256) / 32.53, -30.12, .00 / DATA B( 2425), B( 2426), B( 2427) / 33.77, -29.56, .00 / DATA B( 2596), B( 2597), B( 2598) / 34.99, -29.07, .00 / DATA B( 2767), B( 2768), B( 2769) / 36.22, -28.69, .00 / DATA B( 2938), B( 2939), B( 2940) / 37.38, -28.47, .00 / DATA B( 3109), B( 3110), B( 3111) / 38.34, -28.45, .00 / DATA B( 3280), B( 3281), B( 3282) / 38.84, -28.83, .00 / DATA B( 3451), B( 3452), B( 3453) / 38.48, -29.79, .00 / DATA B( 3622), B( 3623), B( 3624) / 36.51, -31.32, .00 / DATA B( 3793), B( 3794), B( 3795) / 33.56, -31.87, .00 / DATA B( 3964), B( 3965), B( 3966) / 31.99, -27.54, .00 / DATA B( 4135), B( 4136), B( 4137) / 26.27, -21.40, .00 / DATA B( 4306), B( 4307), B( 4308) / 26.67, -17.75, .00 / DATA B( 4477), B( 4478), B( 4479) / 20.65, -13.20, .00 / DATA B( 4648), B( 4649), B( 4650) / 16.91, -8.68, .00 / DATA B( 4819), B( 4820), B( 4821) / 15.48, -5.53, .00 / DATA B( 4990), B( 4991), B( 4992) / 12.96, -4.96, .00 / DATA B( 5161), B( 5162), B( 5163) / 10.52, -5.66, .00 / DATA B( 5332), B( 5333), B( 5334) / 9.13, -6.52, .00 / DATA B( 5503), B( 5504), B( 5505) / 8.48, -6.88, .00 / DATA B( 5674), B( 5675), B( 5676) / 7.74, -6.66, .00 / DATA B( 5845), B( 5846), B( 5847) / 7.10, -5.83, .00 / DATA B( 6016), B( 6017), B( 6018) / 6.59, -4.23, .00 / DATA B( 6187), B( 6188), B( 6189) / 6.07, -2.50, .00 / DATA B( 6358), B( 6359), B( 6360) / 5.72, -1.37, .00 / DATA B( 6529), B( 6530), B( 6531) / 5.31, .02, .00 / DATA B( 6700), B( 6701), B( 6702) / 4.95, 1.82, .00 / DATA B( 6871), B( 6872), B( 6873) / 6.69, 1.53, .00 / DATA B( 7042), B( 7043), B( 7044) / 6.85, 3.74, .00 / DATA B( 7213), B( 7214), B( 7215) / 5.97, -.73, .00 / DATA B( 7384), B( 7385), B( 7386) / 7.98, -2.75, .00 / DATA B( 7555), B( 7556), B( 7557) / 8.02, -2.33, .00 / DATA B( 7726), B( 7727), B( 7728) / 6.48, -.73, .00 / DATA B( 7897), B( 7898), B( 7899) / 5.55, .45, .00 / DATA B( 8068), B( 8069), B( 8070) / 5.95, .89, .00 / DATA B( 8239), B( 8240), B( 8241) / 5.59, 1.27, .00 / DATA B( 8410), B( 8411), B( 8412) / 6.02, -.88, .00 / DATA B( 8581), B( 8582), B( 8583) / 6.34, -1.92, .00 / DATA B( 8752), B( 8753), B( 8754) / 6.46, -.90, .00 / DATA B( 8923), B( 8924), B( 8925) / 6.61, .75, .00 / DATA B( 9094), B( 9095), B( 9096) / 6.69, 3.83, .00 / DATA B( 9265), B( 9266), B( 9267) / 6.44, 4.78, .00 / DATA B( 9436), B( 9437), B( 9438) / 5.89, 4.80, .00 / DATA B( 9607), B( 9608), B( 9609) / 8.47, 2.88, .00 / DATA B( 9778), B( 9779), B( 9780) / 7.50, 1.75, .00 / DATA B( 9949), B( 9950), B( 9951) / 8.07, 3.78, .00 / DATA B(10120), B(10121), B(10122) / 7.84, 4.34, .00 / DATA B(10291), B(10292), B(10293) / 6.73, 3.22, .00 / DATA B(10462), B(10463), B(10464) / 5.33, 1.60, .00 / DATA B(10633), B(10634), B(10635) / 3.97, .44, .00 / DATA B(10804), B(10805), B(10806) / 3.49, 1.64, .00 / DATA B(10975), B(10976), B(10977) / 3.63, 3.90, .00 / DATA B(11146), B(11147), B(11148) / 3.54, 4.21, .00 / DATA B(11317), B(11318), B(11319) / 3.66, 4.07, .00 / DATA B(11488), B(11489), B(11490) / 3.87, 3.93, .00 / DATA B(11659), B(11660), B(11661) / 4.11, 3.93, .00 / DATA B(11830), B(11831), B(11832) / 4.40, 4.04, .00 / DATA B(12001), B(12002), B(12003) / 4.72, 4.18, .00 / DATA B(12172), B(12173), B(12174) / 5.01, 4.32, .00 / DATA B(12343), B(12344), B(12345) / 5.23, 4.42, .00 / DATA B(12514), B(12515), B(12516) / 5.34, 4.45, .00 / DATA B( 34), B( 35), B( 36) / 25.03, -34.31, .00 / DATA B( 205), B( 206), B( 207) / 25.09, -34.19, .00 / DATA B( 376), B( 377), B( 378) / 25.17, -34.03, .00 / DATA B( 547), B( 548), B( 549) / 25.30, -33.84, .00 / DATA B( 718), B( 719), B( 720) / 25.48, -33.62, .00 / DATA B( 889), B( 890), B( 891) / 25.73, -33.36, .00 / DATA B( 1060), B( 1061), B( 1062) / 26.07, -33.06, .00 / DATA B( 1231), B( 1232), B( 1233) / 26.54, -32.72, .00 / DATA B( 1402), B( 1403), B( 1404) / 27.17, -32.33, .00 / DATA B( 1573), B( 1574), B( 1575) / 27.97, -31.87, .00 / DATA B( 1744), B( 1745), B( 1746) / 28.96, -31.34, .00 / DATA B( 1915), B( 1916), B( 1917) / 30.11, -30.72, .00 / DATA B( 2086), B( 2087), B( 2088) / 31.34, -30.03, .00 / DATA B( 2257), B( 2258), B( 2259) / 32.58, -29.29, .00 / DATA B( 2428), B( 2429), B( 2430) / 33.78, -28.53, .00 / DATA B( 2599), B( 2600), B( 2601) / 34.94, -27.81, .00 / DATA B( 2770), B( 2771), B( 2772) / 36.12, -27.19, .00 / DATA B( 2941), B( 2942), B( 2943) / 37.34, -26.69, .00 / DATA B( 3112), B( 3113), B( 3114) / 38.39, -26.15, .00 / DATA B( 3283), B( 3284), B( 3285) / 38.93, -25.63, .00 / DATA B( 3454), B( 3455), B( 3456) / 38.89, -25.33, .00 / DATA B( 3625), B( 3626), B( 3627) / 37.19, -24.54, .00 / DATA B( 3796), B( 3797), B( 3798) / 32.83, -20.99, .00 / DATA B( 3967), B( 3968), B( 3969) / 29.12, -23.11, .00 / DATA B( 4138), B( 4139), B( 4140) / 28.33, -22.14, .00 / DATA B( 4309), B( 4310), B( 4311) / 10.98, -12.51, .00 / DATA B( 4480), B( 4481), B( 4482) / 12.82, -9.06, .00 / DATA B( 4651), B( 4652), B( 4653) / 12.74, -6.92, .00 / DATA B( 4822), B( 4823), B( 4824) / 12.59, -4.66, .00 / DATA B( 4993), B( 4994), B( 4995) / 10.27, -2.77, .00 / DATA B( 5164), B( 5165), B( 5166) / 8.08, -3.86, .00 / DATA B( 5335), B( 5336), B( 5337) / 7.64, -6.07, .00 / DATA B( 5506), B( 5507), B( 5508) / 8.56, -6.97, .00 / DATA B( 5677), B( 5678), B( 5679) / 8.09, -6.86, .00 / DATA B( 5848), B( 5849), B( 5850) / 7.71, -6.20, .00 / DATA B( 6019), B( 6020), B( 6021) / 7.28, -5.05, .00 / DATA B( 6190), B( 6191), B( 6192) / 6.52, -3.59, .00 / DATA B( 6361), B( 6362), B( 6363) / 6.17, -2.37, .00 / DATA B( 6532), B( 6533), B( 6534) / 5.88, -.63, .00 / DATA B( 6703), B( 6704), B( 6705) / 5.42, 1.46, .00 / DATA B( 6874), B( 6875), B( 6876) / 5.34, 2.87, .00 / DATA B( 7045), B( 7046), B( 7047) / 4.79, 3.10, .00 / DATA B( 7216), B( 7217), B( 7218) / 5.26, .95, .00 / DATA B( 7387), B( 7388), B( 7389) / 7.01, -1.10, .00 / DATA B( 7558), B( 7559), B( 7560) / 7.13, -1.34, .00 / DATA B( 7729), B( 7730), B( 7731) / 5.48, -.31, .00 / DATA B( 7900), B( 7901), B( 7902) / 4.37, .70, .00 / DATA B( 8071), B( 8072), B( 8073) / 4.25, 1.07, .00 / DATA B( 8242), B( 8243), B( 8244) / 4.53, .63, .00 / DATA B( 8413), B( 8414), B( 8415) / 5.34, -1.01, .00 / DATA B( 8584), B( 8585), B( 8586) / 6.18, -2.27, .00 / DATA B( 8755), B( 8756), B( 8757) / 6.60, -1.93, .00 / DATA B( 8926), B( 8927), B( 8928) / 6.65, -.13, .00 / DATA B( 9097), B( 9098), B( 9099) / 6.57, 2.24, .00 / DATA B( 9268), B( 9269), B( 9270) / 6.40, 3.72, .00 / DATA B( 9439), B( 9440), B( 9441) / 6.16, 3.72, .00 / DATA B( 9610), B( 9611), B( 9612) / 6.27, 2.43, .00 / DATA B( 9781), B( 9782), B( 9783) / 5.49, 1.58, .00 / DATA B( 9952), B( 9953), B( 9954) / 8.27, 4.21, .00 / DATA B(10123), B(10124), B(10125) / 7.57, 4.08, .00 / DATA B(10294), B(10295), B(10296) / 6.15, 2.77, .00 / DATA B(10465), B(10466), B(10467) / 4.58, 1.12, .00 / DATA B(10636), B(10637), B(10638) / 3.17, -.01, .00 / DATA B(10807), B(10808), B(10809) / 2.72, 1.43, .00 / DATA B(10978), B(10979), B(10980) / 2.74, 3.54, .00 / DATA B(11149), B(11150), B(11151) / 3.06, 3.88, .00 / DATA B(11320), B(11321), B(11322) / 3.38, 3.79, .00 / DATA B(11491), B(11492), B(11493) / 3.76, 3.63, .00 / DATA B(11662), B(11663), B(11664) / 3.98, 3.64, .00 / DATA B(11833), B(11834), B(11835) / 4.22, 3.72, .00 / DATA B(12004), B(12005), B(12006) / 4.47, 3.84, .00 / DATA B(12175), B(12176), B(12177) / 4.71, 3.96, .00 / DATA B(12346), B(12347), B(12348) / 4.88, 4.04, .00 / DATA B(12517), B(12518), B(12519) / 4.97, 4.06, .00 / DATA B( 37), B( 38), B( 39) / 25.55, -34.18, .00 / DATA B( 208), B( 209), B( 210) / 25.60, -34.05, .00 / DATA B( 379), B( 380), B( 381) / 25.66, -33.89, .00 / DATA B( 550), B( 551), B( 552) / 25.74, -33.70, .00 / DATA B( 721), B( 722), B( 723) / 25.87, -33.46, .00 / DATA B( 892), B( 893), B( 894) / 26.05, -33.19, .00 / DATA B( 1063), B( 1064), B( 1065) / 26.32, -32.87, .00 / DATA B( 1234), B( 1235), B( 1236) / 26.70, -32.52, .00 / DATA B( 1405), B( 1406), B( 1407) / 27.25, -32.11, .00 / DATA B( 1576), B( 1577), B( 1578) / 28.01, -31.62, .00 / DATA B( 1747), B( 1748), B( 1749) / 28.99, -31.05, .00 / DATA B( 1918), B( 1919), B( 1920) / 30.18, -30.37, .00 / DATA B( 2089), B( 2090), B( 2091) / 31.46, -29.60, .00 / DATA B( 2260), B( 2261), B( 2262) / 32.71, -28.75, .00 / DATA B( 2431), B( 2432), B( 2433) / 33.84, -27.88, .00 / DATA B( 2602), B( 2603), B( 2604) / 34.83, -27.00, .00 / DATA B( 2773), B( 2774), B( 2775) / 35.83, -26.25, .00 / DATA B( 2944), B( 2945), B( 2946) / 37.03, -25.82, .00 / DATA B( 3115), B( 3116), B( 3117) / 38.20, -25.53, .00 / DATA B( 3286), B( 3287), B( 3288) / 38.28, -24.15, .00 / DATA B( 3457), B( 3458), B( 3459) / 37.38, -23.76, .00 / DATA B( 3628), B( 3629), B( 3630) / 36.29, -19.29, .00 / DATA B( 3799), B( 3800), B( 3801) / 28.94, -16.45, .00 / DATA B( 3970), B( 3971), B( 3972) / 17.98, -20.53, .00 / DATA B( 4141), B( 4142), B( 4143) / 12.68, -7.25, .00 / DATA B( 4312), B( 4313), B( 4314) / 18.56, -8.82, .00 / DATA B( 4483), B( 4484), B( 4485) / 3.74, -7.50, .00 / DATA B( 4654), B( 4655), B( 4656) / 12.79, -7.07, .00 / DATA B( 4825), B( 4826), B( 4827) / 10.63, -7.24, .00 / DATA B( 4996), B( 4997), B( 4998) / 8.19, -2.25, .00 / DATA B( 5167), B( 5168), B( 5169) / 5.23, -5.10, .00 / DATA B( 5338), B( 5339), B( 5340) / 5.86, -7.90, .00 / DATA B( 5509), B( 5510), B( 5511) / 7.35, -7.81, .00 / DATA B( 5680), B( 5681), B( 5682) / 7.73, -7.41, .00 / DATA B( 5851), B( 5852), B( 5853) / 7.62, -6.51, .00 / DATA B( 6022), B( 6023), B( 6024) / 7.13, -5.36, .00 / DATA B( 6193), B( 6194), B( 6195) / 6.52, -4.69, .00 / DATA B( 6364), B( 6365), B( 6366) / 6.30, -4.01, .00 / DATA B( 6535), B( 6536), B( 6537) / 6.55, -2.35, .00 / DATA B( 6706), B( 6707), B( 6708) / 5.43, .29, .00 / DATA B( 6877), B( 6878), B( 6879) / 4.65, 2.19, .00 / DATA B( 7048), B( 7049), B( 7050) / 4.27, 2.56, .00 / DATA B( 7219), B( 7220), B( 7221) / 4.71, 1.41, .00 / DATA B( 7390), B( 7391), B( 7392) / 5.56, -.03, .00 / DATA B( 7561), B( 7562), B( 7563) / 5.44, -.58, .00 / DATA B( 7732), B( 7733), B( 7734) / 4.17, -.21, .00 / DATA B( 7903), B( 7904), B( 7905) / 3.06, .52, .00 / DATA B( 8074), B( 8075), B( 8076) / 2.79, .97, .00 / DATA B( 8245), B( 8246), B( 8247) / 3.37, .58, .00 / DATA B( 8416), B( 8417), B( 8418) / 4.78, -.68, .00 / DATA B( 8587), B( 8588), B( 8589) / 6.11, -1.92, .00 / DATA B( 8758), B( 8759), B( 8760) / 6.69, -2.25, .00 / DATA B( 8929), B( 8930), B( 8931) / 6.52, -.68, .00 / DATA B( 9100), B( 9101), B( 9102) / 6.22, .85, .00 / DATA B( 9271), B( 9272), B( 9273) / 6.15, 2.10, .00 / DATA B( 9442), B( 9443), B( 9444) / 5.60, 2.37, .00 / DATA B( 9613), B( 9614), B( 9615) / 4.69, 1.80, .00 / DATA B( 9784), B( 9785), B( 9786) / 4.94, 2.65, .00 / DATA B( 9955), B( 9956), B( 9957) / 6.45, 4.07, .00 / DATA B(10126), B(10127), B(10128) / 6.37, 3.90, .00 / DATA B(10297), B(10298), B(10299) / 5.28, 2.64, .00 / DATA B(10468), B(10469), B(10470) / 3.95, 1.21, .00 / DATA B(10639), B(10640), B(10641) / 2.85, .56, .00 / DATA B(10810), B(10811), B(10812) / 2.36, 1.40, .00 / DATA B(10981), B(10982), B(10983) / 2.37, 2.76, .00 / DATA B(11152), B(11153), B(11154) / 2.68, 3.36, .00 / DATA B(11323), B(11324), B(11325) / 3.09, 3.43, .00 / DATA B(11494), B(11495), B(11496) / 3.49, 3.37, .00 / DATA B(11665), B(11666), B(11667) / 3.77, 3.37, .00 / DATA B(11836), B(11837), B(11838) / 4.00, 3.44, .00 / DATA B(12007), B(12008), B(12009) / 4.22, 3.54, .00 / DATA B(12178), B(12179), B(12180) / 4.42, 3.64, .00 / DATA B(12349), B(12350), B(12351) / 4.56, 3.71, .00 / DATA B(12520), B(12521), B(12522) / 4.63, 3.73, .00 / DATA B( 40), B( 41), B( 42) / 26.19, -34.06, .00 / DATA B( 211), B( 212), B( 213) / 26.22, -33.94, .00 / DATA B( 382), B( 383), B( 384) / 26.25, -33.77, .00 / DATA B( 553), B( 554), B( 555) / 26.29, -33.57, .00 / DATA B( 724), B( 725), B( 726) / 26.37, -33.32, .00 / DATA B( 895), B( 896), B( 897) / 26.49, -33.04, .00 / DATA B( 1066), B( 1067), B( 1068) / 26.68, -32.72, .00 / DATA B( 1237), B( 1238), B( 1239) / 26.97, -32.36, .00 / DATA B( 1408), B( 1409), B( 1410) / 27.42, -31.96, .00 / DATA B( 1579), B( 1580), B( 1581) / 28.10, -31.49, .00 / DATA B( 1750), B( 1751), B( 1752) / 29.07, -30.93, .00 / DATA B( 1921), B( 1922), B( 1923) / 30.32, -30.23, .00 / DATA B( 2092), B( 2093), B( 2094) / 31.70, -29.42, .00 / DATA B( 2263), B( 2264), B( 2265) / 32.99, -28.54, .00 / DATA B( 2434), B( 2435), B( 2436) / 34.06, -27.65, .00 / DATA B( 2605), B( 2606), B( 2607) / 34.85, -26.77, .00 / DATA B( 2776), B( 2777), B( 2778) / 35.46, -25.93, .00 / DATA B( 2947), B( 2948), B( 2949) / 36.41, -25.73, .00 / DATA B( 3118), B( 3119), B( 3120) / 37.99, -26.75, .00 / DATA B( 3289), B( 3290), B( 3291) / 38.30, -28.05, .00 / DATA B( 3460), B( 3461), B( 3462) / 34.52, -28.05, .00 / DATA B( 3631), B( 3632), B( 3633) / 25.68, -23.64, .00 / DATA B( 3802), B( 3803), B( 3804) / 13.63, -21.77, .00 / DATA B( 3973), B( 3974), B( 3975) / 7.55, -6.80, .00 / DATA B( 4144), B( 4145), B( 4146) / 10.35, -14.34, .00 / DATA B( 4315), B( 4316), B( 4317) / -6.41, -16.06, .00 / DATA B( 4486), B( 4487), B( 4488) / -.06, -10.95, .00 / DATA B( 4657), B( 4658), B( 4659) / 8.74, -10.45, .00 / DATA B( 4828), B( 4829), B( 4830) / 8.64, -11.84, .00 / DATA B( 4999), B( 5000), B( 5001) / 6.30, -7.73, .00 / DATA B( 5170), B( 5171), B( 5172) / 2.51, -13.63, .00 / DATA B( 5341), B( 5342), B( 5343) / 4.99, -9.59, .00 / DATA B( 5512), B( 5513), B( 5514) / 6.00, -8.34, .00 / DATA B( 5683), B( 5684), B( 5685) / 7.05, -7.97, .00 / DATA B( 5854), B( 5855), B( 5856) / 7.30, -6.77, .00 / DATA B( 6025), B( 6026), B( 6027) / 6.67, -4.88, .00 / DATA B( 6196), B( 6197), B( 6198) / 5.96, -5.31, .00 / DATA B( 6367), B( 6368), B( 6369) / 5.81, -5.91, .00 / DATA B( 6538), B( 6539), B( 6540) / 5.76, -3.95, .00 / DATA B( 6709), B( 6710), B( 6711) / 5.00, -.90, .00 / DATA B( 6880), B( 6881), B( 6882) / 4.22, 1.32, .00 / DATA B( 7051), B( 7052), B( 7053) / 3.96, 2.00, .00 / DATA B( 7222), B( 7223), B( 7224) / 4.21, 1.39, .00 / DATA B( 7393), B( 7394), B( 7395) / 4.53, .34, .00 / DATA B( 7564), B( 7565), B( 7566) / 4.23, -.35, .00 / DATA B( 7735), B( 7736), B( 7737) / 3.15, -.41, .00 / DATA B( 7906), B( 7907), B( 7908) / 2.21, .06, .00 / DATA B( 8077), B( 8078), B( 8079) / 1.90, .67, .00 / DATA B( 8248), B( 8249), B( 8250) / 2.41, .63, .00 / DATA B( 8419), B( 8420), B( 8421) / 4.40, -.36, .00 / DATA B( 8590), B( 8591), B( 8592) / 5.87, -.73, .00 / DATA B( 8761), B( 8762), B( 8763) / 6.24, -1.09, .00 / DATA B( 8932), B( 8933), B( 8934) / 6.06, -.64, .00 / DATA B( 9103), B( 9104), B( 9105) / 5.60, -.05, .00 / DATA B( 9274), B( 9275), B( 9276) / 4.62, .07, .00 / DATA B( 9445), B( 9446), B( 9447) / 3.93, 1.19, .00 / DATA B( 9616), B( 9617), B( 9618) / 3.39, 2.39, .00 / DATA B( 9787), B( 9788), B( 9789) / 3.66, 3.62, .00 / DATA B( 9958), B( 9959), B( 9960) / 4.47, 4.16, .00 / DATA B(10129), B(10130), B(10131) / 4.71, 3.75, .00 / DATA B(10300), B(10301), B(10302) / 4.19, 2.64, .00 / DATA B(10471), B(10472), B(10473) / 3.35, 1.51, .00 / DATA B(10642), B(10643), B(10644) / 2.60, 1.01, .00 / DATA B(10813), B(10814), B(10815) / 2.21, 1.42, .00 / DATA B(10984), B(10985), B(10986) / 2.20, 2.24, .00 / DATA B(11155), B(11156), B(11157) / 2.46, 2.81, .00 / DATA B(11326), B(11327), B(11328) / 2.84, 3.02, .00 / DATA B(11497), B(11498), B(11499) / 3.22, 3.07, .00 / DATA B(11668), B(11669), B(11670) / 3.52, 3.12, .00 / DATA B(11839), B(11840), B(11841) / 3.76, 3.19, .00 / DATA B(12010), B(12011), B(12012) / 3.96, 3.28, .00 / DATA B(12181), B(12182), B(12183) / 4.13, 3.36, .00 / DATA B(12352), B(12353), B(12354) / 4.25, 3.42, .00 / DATA B(12523), B(12524), B(12525) / 4.31, 3.44, .00 / DATA B( 43), B( 44), B( 45) / 26.93, -33.96, .00 / DATA B( 214), B( 215), B( 216) / 26.95, -33.83, .00 / DATA B( 385), B( 386), B( 387) / 26.96, -33.66, .00 / DATA B( 556), B( 557), B( 558) / 26.97, -33.46, .00 / DATA B( 727), B( 728), B( 729) / 27.00, -33.20, .00 / DATA B( 898), B( 899), B( 900) / 27.06, -32.91, .00 / DATA B( 1069), B( 1070), B( 1071) / 27.18, -32.59, .00 / DATA B( 1240), B( 1241), B( 1242) / 27.38, -32.24, .00 / DATA B( 1411), B( 1412), B( 1413) / 27.71, -31.87, .00 / DATA B( 1582), B( 1583), B( 1584) / 28.27, -31.45, .00 / DATA B( 1753), B( 1754), B( 1755) / 29.21, -30.95, .00 / DATA B( 1924), B( 1925), B( 1926) / 30.56, -30.29, .00 / DATA B( 2095), B( 2096), B( 2097) / 32.09, -29.47, .00 / DATA B( 2266), B( 2267), B( 2268) / 33.48, -28.60, .00 / DATA B( 2437), B( 2438), B( 2439) / 34.53, -27.84, .00 / DATA B( 2608), B( 2609), B( 2610) / 35.23, -27.18, .00 / DATA B( 2779), B( 2780), B( 2781) / 35.57, -26.46, .00 / DATA B( 2950), B( 2951), B( 2952) / 35.43, -25.76, .00 / DATA B( 3121), B( 3122), B( 3123) / 37.73, -28.40, .00 / DATA B( 3292), B( 3293), B( 3294) / 38.20, -30.93, .00 / DATA B( 3463), B( 3464), B( 3465) / 36.61, -32.95, .00 / DATA B( 3634), B( 3635), B( 3636) / 9.59, -12.46, .00 / DATA B( 3805), B( 3806), B( 3807) / 5.09, -5.15, .00 / DATA B( 3976), B( 3977), B( 3978) / 4.60, -1.81, .00 / DATA B( 4147), B( 4148), B( 4149) / 2.48, -11.26, .00 / DATA B( 4318), B( 4319), B( 4320) / -.73, -14.48, .00 / DATA B( 4489), B( 4490), B( 4491) / .42, -13.48, .00 / DATA B( 4660), B( 4661), B( 4662) / 5.38, -12.37, .00 / DATA B( 4831), B( 4832), B( 4833) / 7.43, -11.24, .00 / DATA B( 5002), B( 5003), B( 5004) / 6.91, -9.26, .00 / DATA B( 5173), B( 5174), B( 5175) / 5.75, -8.88, .00 / DATA B( 5344), B( 5345), B( 5346) / 4.32, -7.95, .00 / DATA B( 5515), B( 5516), B( 5517) / 5.43, -7.91, .00 / DATA B( 5686), B( 5687), B( 5688) / 6.76, -8.15, .00 / DATA B( 5857), B( 5858), B( 5859) / 7.20, -7.60, .00 / DATA B( 6028), B( 6029), B( 6030) / 6.13, -2.51, .00 / DATA B( 6199), B( 6200), B( 6201) / 5.12, -5.06, .00 / DATA B( 6370), B( 6371), B( 6372) / 5.09, -7.69, .00 / DATA B( 6541), B( 6542), B( 6543) / 5.01, -4.65, .00 / DATA B( 6712), B( 6713), B( 6714) / 4.45, -1.44, .00 / DATA B( 6883), B( 6884), B( 6885) / 3.88, .85, .00 / DATA B( 7054), B( 7055), B( 7056) / 3.80, 1.57, .00 / DATA B( 7225), B( 7226), B( 7227) / 3.97, 1.16, .00 / DATA B( 7396), B( 7397), B( 7398) / 4.05, .27, .00 / DATA B( 7567), B( 7568), B( 7569) / 3.76, -.54, .00 / DATA B( 7738), B( 7739), B( 7740) / 3.08, -.87, .00 / DATA B( 7909), B( 7910), B( 7911) / 2.42, -.61, .00 / DATA B( 8080), B( 8081), B( 8082) / 2.18, -.13, .00 / DATA B( 8251), B( 8252), B( 8253) / 2.83, -.27, .00 / DATA B( 8422), B( 8423), B( 8424) / 4.22, -.83, .00 / DATA B( 8593), B( 8594), B( 8595) / 4.73, .26, .00 / DATA B( 8764), B( 8765), B( 8766) / 5.02, .01, .00 / DATA B( 8935), B( 8936), B( 8937) / 5.38, -.33, .00 / DATA B( 9106), B( 9107), B( 9108) / 5.05, -.35, .00 / DATA B( 9277), B( 9278), B( 9279) / 4.06, .02, .00 / DATA B( 9448), B( 9449), B( 9450) / 3.01, 1.72, .00 / DATA B( 9619), B( 9620), B( 9621) / 2.19, 4.09, .00 / DATA B( 9790), B( 9791), B( 9792) / 2.17, 4.59, .00 / DATA B( 9961), B( 9962), B( 9963) / 2.69, 4.33, .00 / DATA B(10132), B(10133), B(10134) / 3.11, 3.62, .00 / DATA B(10303), B(10304), B(10305) / 3.09, 2.62, .00 / DATA B(10474), B(10475), B(10476) / 2.75, 1.70, .00 / DATA B(10645), B(10646), B(10647) / 2.36, 1.25, .00 / DATA B(10816), B(10817), B(10818) / 2.12, 1.41, .00 / DATA B(10987), B(10988), B(10989) / 2.13, 1.90, .00 / DATA B(11158), B(11159), B(11160) / 2.33, 2.35, .00 / DATA B(11329), B(11330), B(11331) / 2.65, 2.62, .00 / DATA B(11500), B(11501), B(11502) / 2.98, 2.76, .00 / DATA B(11671), B(11672), B(11673) / 3.26, 2.86, .00 / DATA B(11842), B(11843), B(11844) / 3.50, 2.95, .00 / DATA B(12013), B(12014), B(12015) / 3.70, 3.04, .00 / DATA B(12184), B(12185), B(12186) / 3.85, 3.12, .00 / DATA B(12355), B(12356), B(12357) / 3.95, 3.18, .00 / DATA B(12526), B(12527), B(12528) / 4.01, 3.20, .00 / DATA B( 46), B( 47), B( 48) / 27.78, -33.87, .00 / DATA B( 217), B( 218), B( 219) / 27.79, -33.74, .00 / DATA B( 388), B( 389), B( 390) / 27.78, -33.57, .00 / DATA B( 559), B( 560), B( 561) / 27.76, -33.36, .00 / DATA B( 730), B( 731), B( 732) / 27.76, -33.10, .00 / DATA B( 901), B( 902), B( 903) / 27.79, -32.80, .00 / DATA B( 1072), B( 1073), B( 1074) / 27.87, -32.47, .00 / DATA B( 1243), B( 1244), B( 1245) / 28.01, -32.13, .00 / DATA B( 1414), B( 1415), B( 1416) / 28.21, -31.80, .00 / DATA B( 1585), B( 1586), B( 1587) / 28.60, -31.47, .00 / DATA B( 1756), B( 1757), B( 1758) / 29.43, -31.08, .00 / DATA B( 1927), B( 1928), B( 1929) / 30.91, -30.52, .00 / DATA B( 2098), B( 2099), B( 2100) / 32.68, -29.72, .00 / DATA B( 2269), B( 2270), B( 2271) / 34.14, -28.82, .00 / DATA B( 2440), B( 2441), B( 2442) / 35.18, -28.24, .00 / DATA B( 2611), B( 2612), B( 2613) / 36.01, -28.13, .00 / DATA B( 2782), B( 2783), B( 2784) / 36.64, -27.84, .00 / DATA B( 2953), B( 2954), B( 2955) / 36.97, -27.86, .00 / DATA B( 3124), B( 3125), B( 3126) / 36.79, -28.68, .00 / DATA B( 3295), B( 3296), B( 3297) / 34.54, -28.68, .00 / DATA B( 3466), B( 3467), B( 3468) / 26.27, -23.47, .00 / DATA B( 3637), B( 3638), B( 3639) / 5.99, -5.37, .00 / DATA B( 3808), B( 3809), B( 3810) / 4.22, -1.60, .00 / DATA B( 3979), B( 3980), B( 3981) / 7.27, -3.35, .00 / DATA B( 4150), B( 4151), B( 4152) / 6.94, -7.98, .00 / DATA B( 4321), B( 4322), B( 4323) / 5.87, -12.06, .00 / DATA B( 4492), B( 4493), B( 4494) / 3.94, -13.22, .00 / DATA B( 4663), B( 4664), B( 4665) / 5.42, -12.37, .00 / DATA B( 4834), B( 4835), B( 4836) / 7.20, -10.34, .00 / DATA B( 5005), B( 5006), B( 5007) / 8.31, -7.26, .00 / DATA B( 5176), B( 5177), B( 5178) / 8.70, -4.55, .00 / DATA B( 5347), B( 5348), B( 5349) / 6.67, -6.38, .00 / DATA B( 5518), B( 5519), B( 5520) / 6.51, -7.51, .00 / DATA B( 5689), B( 5690), B( 5691) / 7.05, -7.86, .00 / DATA B( 5860), B( 5861), B( 5862) / 6.90, -6.43, .00 / DATA B( 6031), B( 6032), B( 6033) / 5.78, -2.48, .00 / DATA B( 6202), B( 6203), B( 6204) / 4.95, -2.82, .00 / DATA B( 6373), B( 6374), B( 6375) / 4.85, -5.49, .00 / DATA B( 6544), B( 6545), B( 6546) / 4.81, -4.09, .00 / DATA B( 6715), B( 6716), B( 6717) / 4.35, -1.29, .00 / DATA B( 6886), B( 6887), B( 6888) / 3.84, .83, .00 / DATA B( 7057), B( 7058), B( 7059) / 4.02, 1.22, .00 / DATA B( 7228), B( 7229), B( 7230) / 4.09, .83, .00 / DATA B( 7399), B( 7400), B( 7401) / 4.05, -.01, .00 / DATA B( 7570), B( 7571), B( 7572) / 3.84, -.91, .00 / DATA B( 7741), B( 7742), B( 7743) / 3.52, -1.51, .00 / DATA B( 7912), B( 7913), B( 7914) / 3.16, -1.38, .00 / DATA B( 8083), B( 8084), B( 8085) / 3.04, -.93, .00 / DATA B( 8254), B( 8255), B( 8256) / 3.50, -1.22, .00 / DATA B( 8425), B( 8426), B( 8427) / 4.34, -2.29, .00 / DATA B( 8596), B( 8597), B( 8598) / 1.19, -.04, .00 / DATA B( 8767), B( 8768), B( 8769) / 3.48, -.39, .00 / DATA B( 8938), B( 8939), B( 8940) / 4.87, -.45, .00 / DATA B( 9109), B( 9110), B( 9111) / 4.87, -.47, .00 / DATA B( 9280), B( 9281), B( 9282) / 4.12, .30, .00 / DATA B( 9451), B( 9452), B( 9453) / 2.79, 2.18, .00 / DATA B( 9622), B( 9623), B( 9624) / 1.30, 4.85, .00 / DATA B( 9793), B( 9794), B( 9795) / .83, 4.77, .00 / DATA B( 9964), B( 9965), B( 9966) / 1.22, 4.14, .00 / DATA B(10135), B(10136), B(10137) / 1.81, 3.33, .00 / DATA B(10306), B(10307), B(10308) / 2.17, 2.44, .00 / DATA B(10477), B(10478), B(10479) / 2.25, 1.68, .00 / DATA B(10648), B(10649), B(10650) / 2.16, 1.29, .00 / DATA B(10819), B(10820), B(10821) / 2.06, 1.32, .00 / DATA B(10990), B(10991), B(10992) / 2.09, 1.63, .00 / DATA B(11161), B(11162), B(11163) / 2.25, 1.98, .00 / DATA B(11332), B(11333), B(11334) / 2.50, 2.26, .00 / DATA B(11503), B(11504), B(11505) / 2.78, 2.46, .00 / DATA B(11674), B(11675), B(11676) / 3.03, 2.60, .00 / DATA B(11845), B(11846), B(11847) / 3.26, 2.72, .00 / DATA B(12016), B(12017), B(12018) / 3.44, 2.83, .00 / DATA B(12187), B(12188), B(12189) / 3.57, 2.92, .00 / DATA B(12358), B(12359), B(12360) / 3.67, 2.97, .00 / DATA B(12529), B(12530), B(12531) / 3.72, 2.99, .00 / DATA B( 49), B( 50), B( 51) / 28.73, -33.78, .00 / DATA B( 220), B( 221), B( 222) / 28.73, -33.65, .00 / DATA B( 391), B( 392), B( 393) / 28.70, -33.48, .00 / DATA B( 562), B( 563), B( 564) / 28.66, -33.27, .00 / DATA B( 733), B( 734), B( 735) / 28.64, -33.01, .00 / DATA B( 904), B( 905), B( 906) / 28.67, -32.70, .00 / DATA B( 1075), B( 1076), B( 1077) / 28.76, -32.35, .00 / DATA B( 1246), B( 1247), B( 1248) / 28.92, -32.00, .00 / DATA B( 1417), B( 1418), B( 1419) / 29.07, -31.69, .00 / DATA B( 1588), B( 1589), B( 1590) / 29.25, -31.45, .00 / DATA B( 1759), B( 1760), B( 1761) / 29.81, -31.25, .00 / DATA B( 1930), B( 1931), B( 1932) / 31.43, -30.89, .00 / DATA B( 2101), B( 2102), B( 2103) / 33.58, -30.15, .00 / DATA B( 2272), B( 2273), B( 2274) / 34.72, -29.20, .00 / DATA B( 2443), B( 2444), B( 2445) / 35.52, -28.34, .00 / DATA B( 2614), B( 2615), B( 2616) / 36.75, -29.30, .00 / DATA B( 2785), B( 2786), B( 2787) / 38.44, -29.26, .00 / DATA B( 2956), B( 2957), B( 2958) / 37.44, -28.49, .00 / DATA B( 3127), B( 3128), B( 3129) / 34.33, -26.82, .00 / DATA B( 3298), B( 3299), B( 3300) / 28.20, -22.84, .00 / DATA B( 3469), B( 3470), B( 3471) / 18.96, -15.91, .00 / DATA B( 3640), B( 3641), B( 3642) / 9.00, -6.86, .00 / DATA B( 3811), B( 3812), B( 3813) / 6.39, -2.57, .00 / DATA B( 3982), B( 3983), B( 3984) / 8.66, -3.83, .00 / DATA B( 4153), B( 4154), B( 4155) / 8.60, -7.20, .00 / DATA B( 4324), B( 4325), B( 4326) / 7.51, -10.83, .00 / DATA B( 4495), B( 4496), B( 4497) / 6.29, -12.43, .00 / DATA B( 4666), B( 4667), B( 4668) / 6.36, -11.78, .00 / DATA B( 4837), B( 4838), B( 4839) / 7.33, -9.69, .00 / DATA B( 5008), B( 5009), B( 5010) / 8.32, -7.05, .00 / DATA B( 5179), B( 5180), B( 5181) / 8.60, -5.48, .00 / DATA B( 5350), B( 5351), B( 5352) / 7.95, -6.13, .00 / DATA B( 5521), B( 5522), B( 5523) / 7.60, -7.31, .00 / DATA B( 5692), B( 5693), B( 5694) / 7.57, -7.56, .00 / DATA B( 5863), B( 5864), B( 5865) / 6.52, -5.22, .00 / DATA B( 6034), B( 6035), B( 6036) / 5.39, -2.84, .00 / DATA B( 6205), B( 6206), B( 6207) / 4.82, -2.73, .00 / DATA B( 6376), B( 6377), B( 6378) / 4.91, -3.67, .00 / DATA B( 6547), B( 6548), B( 6549) / 5.22, -2.99, .00 / DATA B( 6718), B( 6719), B( 6720) / 5.22, -1.09, .00 / DATA B( 6889), B( 6890), B( 6891) / 4.92, .42, .00 / DATA B( 7060), B( 7061), B( 7062) / 4.68, .83, .00 / DATA B( 7231), B( 7232), B( 7233) / 4.50, .45, .00 / DATA B( 7402), B( 7403), B( 7404) / 4.32, -.32, .00 / DATA B( 7573), B( 7574), B( 7575) / 4.15, -1.20, .00 / DATA B( 7744), B( 7745), B( 7746) / 4.06, -1.92, .00 / DATA B( 7915), B( 7916), B( 7917) / 3.91, -1.80, .00 / DATA B( 8086), B( 8087), B( 8088) / 3.82, -1.19, .00 / DATA B( 8257), B( 8258), B( 8259) / 3.90, -1.42, .00 / DATA B( 8428), B( 8429), B( 8430) / 3.18, -2.49, .00 / DATA B( 8599), B( 8600), B( 8601) / 1.00, -2.89, .00 / DATA B( 8770), B( 8771), B( 8772) / 3.07, -2.50, .00 / DATA B( 8941), B( 8942), B( 8943) / 4.60, -1.56, .00 / DATA B( 9112), B( 9113), B( 9114) / 4.94, -1.00, .00 / DATA B( 9283), B( 9284), B( 9285) / 4.55, .02, .00 / DATA B( 9454), B( 9455), B( 9456) / 3.17, 1.66, .00 / DATA B( 9625), B( 9626), B( 9627) / .81, 3.24, .00 / DATA B( 9796), B( 9797), B( 9798) / -.18, 3.70, .00 / DATA B( 9967), B( 9968), B( 9969) / .18, 3.41, .00 / DATA B(10138), B(10139), B(10140) / .90, 2.79, .00 / DATA B(10309), B(10310), B(10311) / 1.53, 2.07, .00 / DATA B(10480), B(10481), B(10482) / 1.91, 1.46, .00 / DATA B(10651), B(10652), B(10653) / 2.01, 1.16, .00 / DATA B(10822), B(10823), B(10824) / 2.02, 1.16, .00 / DATA B(10993), B(10994), B(10995) / 2.06, 1.38, .00 / DATA B(11164), B(11165), B(11166) / 2.18, 1.68, .00 / DATA B(11335), B(11336), B(11337) / 2.38, 1.95, .00 / DATA B(11506), B(11507), B(11508) / 2.61, 2.18, .00 / DATA B(11677), B(11678), B(11679) / 2.83, 2.36, .00 / DATA B(11848), B(11849), B(11850) / 3.03, 2.51, .00 / DATA B(12019), B(12020), B(12021) / 3.19, 2.64, .00 / DATA B(12190), B(12191), B(12192) / 3.31, 2.73, .00 / DATA B(12361), B(12362), B(12363) / 3.40, 2.79, .00 / DATA B(12532), B(12533), B(12534) / 3.44, 2.81, .00 / DATA B( 52), B( 53), B( 54) / 29.75, -33.70, .00 / DATA B( 223), B( 224), B( 225) / 29.73, -33.57, .00 / DATA B( 394), B( 395), B( 396) / 29.70, -33.40, .00 / DATA B( 565), B( 566), B( 567) / 29.65, -33.19, .00 / DATA B( 736), B( 737), B( 738) / 29.61, -32.93, .00 / DATA B( 907), B( 908), B( 909) / 29.65, -32.61, .00 / DATA B( 1078), B( 1079), B( 1080) / 29.82, -32.23, .00 / DATA B( 1249), B( 1250), B( 1251) / 30.11, -31.83, .00 / DATA B( 1420), B( 1421), B( 1422) / 30.40, -31.52, .00 / DATA B( 1591), B( 1592), B( 1593) / 30.59, -31.33, .00 / DATA B( 1762), B( 1763), B( 1764) / 30.78, -31.24, .00 / DATA B( 1933), B( 1934), B( 1935) / 32.26, -31.26, .00 / DATA B( 2104), B( 2105), B( 2106) / 35.14, -30.67, .00 / DATA B( 2275), B( 2276), B( 2277) / 34.64, -29.80, .00 / DATA B( 2446), B( 2447), B( 2448) / 34.24, -29.07, .00 / DATA B( 2617), B( 2618), B( 2619) / 36.39, -28.21, .00 / DATA B( 2788), B( 2789), B( 2790) / 40.22, -30.15, .00 / DATA B( 2959), B( 2960), B( 2961) / 34.53, -26.17, .00 / DATA B( 3130), B( 3131), B( 3132) / 28.26, -21.51, .00 / DATA B( 3301), B( 3302), B( 3303) / 21.03, -15.62, .00 / DATA B( 3472), B( 3473), B( 3474) / 14.53, -10.98, .00 / DATA B( 3643), B( 3644), B( 3645) / 9.62, -7.40, .00 / DATA B( 3814), B( 3815), B( 3816) / 8.13, -3.82, .00 / DATA B( 3985), B( 3986), B( 3987) / 8.85, -3.57, .00 / DATA B( 4156), B( 4157), B( 4158) / 8.77, -6.75, .00 / DATA B( 4327), B( 4328), B( 4329) / 7.77, -10.48, .00 / DATA B( 4498), B( 4499), B( 4500) / 7.01, -11.87, .00 / DATA B( 4669), B( 4670), B( 4671) / 6.88, -11.15, .00 / DATA B( 4840), B( 4841), B( 4842) / 7.15, -9.50, .00 / DATA B( 5011), B( 5012), B( 5013) / 7.56, -7.79, .00 / DATA B( 5182), B( 5183), B( 5184) / 7.89, -6.84, .00 / DATA B( 5353), B( 5354), B( 5355) / 7.93, -6.92, .00 / DATA B( 5524), B( 5525), B( 5526) / 7.80, -7.27, .00 / DATA B( 5695), B( 5696), B( 5697) / 7.32, -6.73, .00 / DATA B( 5866), B( 5867), B( 5868) / 6.01, -4.58, .00 / DATA B( 6037), B( 6038), B( 6039) / 4.78, -2.93, .00 / DATA B( 6208), B( 6209), B( 6210) / 4.54, -3.20, .00 / DATA B( 6379), B( 6380), B( 6381) / 5.04, -3.27, .00 / DATA B( 6550), B( 6551), B( 6552) / 5.92, -2.39, .00 / DATA B( 6721), B( 6722), B( 6723) / 6.50, -.91, .00 / DATA B( 6892), B( 6893), B( 6894) / 6.16, .11, .00 / DATA B( 7063), B( 7064), B( 7065) / 5.53, .38, .00 / DATA B( 7234), B( 7235), B( 7236) / 5.01, .06, .00 / DATA B( 7405), B( 7406), B( 7407) / 4.64, -.60, .00 / DATA B( 7576), B( 7577), B( 7578) / 4.40, -1.30, .00 / DATA B( 7747), B( 7748), B( 7749) / 4.31, -1.72, .00 / DATA B( 7918), B( 7919), B( 7920) / 4.29, -1.53, .00 / DATA B( 8089), B( 8090), B( 8091) / 4.32, -.96, .00 / DATA B( 8260), B( 8261), B( 8262) / 4.26, -.82, .00 / DATA B( 8431), B( 8432), B( 8433) / 3.53, -2.68, .00 / DATA B( 8602), B( 8603), B( 8604) / 3.11, -5.36, .00 / DATA B( 8773), B( 8774), B( 8775) / 3.61, -4.55, .00 / DATA B( 8944), B( 8945), B( 8946) / 4.56, -3.07, .00 / DATA B( 9115), B( 9116), B( 9117) / 5.03, -1.92, .00 / DATA B( 9286), B( 9287), B( 9288) / 4.93, -.75, .00 / DATA B( 9457), B( 9458), B( 9459) / 4.12, .51, .00 / DATA B( 9628), B( 9629), B( 9630) / .57, 1.58, .00 / DATA B( 9799), B( 9800), B( 9801) / -.62, 2.22, .00 / DATA B( 9970), B( 9971), B( 9972) / -.29, 2.36, .00 / DATA B(10141), B(10142), B(10143) / .42, 2.04, .00 / DATA B(10312), B(10313), B(10314) / 1.18, 1.54, .00 / DATA B(10483), B(10484), B(10485) / 1.74, 1.09, .00 / DATA B(10654), B(10655), B(10656) / 1.93, .90, .00 / DATA B(10825), B(10826), B(10827) / 1.97, .94, .00 / DATA B(10996), B(10997), B(10998) / 2.02, 1.14, .00 / DATA B(11167), B(11168), B(11169) / 2.12, 1.41, .00 / DATA B(11338), B(11339), B(11340) / 2.27, 1.68, .00 / DATA B(11509), B(11510), B(11511) / 2.46, 1.93, .00 / DATA B(11680), B(11681), B(11682) / 2.64, 2.14, .00 / DATA B(11851), B(11852), B(11853) / 2.81, 2.32, .00 / DATA B(12022), B(12023), B(12024) / 2.96, 2.46, .00 / DATA B(12193), B(12194), B(12195) / 3.07, 2.56, .00 / DATA B(12364), B(12365), B(12366) / 3.14, 2.63, .00 / DATA B(12535), B(12536), B(12537) / 3.18, 2.65, .00 / DATA B( 55), B( 56), B( 57) / 30.78, -33.62, .00 / DATA B( 226), B( 227), B( 228) / 30.78, -33.48, .00 / DATA B( 397), B( 398), B( 399) / 30.76, -33.30, .00 / DATA B( 568), B( 569), B( 570) / 30.71, -33.09, .00 / DATA B( 739), B( 740), B( 741) / 30.66, -32.85, .00 / DATA B( 910), B( 911), B( 912) / 30.68, -32.53, .00 / DATA B( 1081), B( 1082), B( 1083) / 30.94, -32.11, .00 / DATA B( 1252), B( 1253), B( 1254) / 31.48, -31.63, .00 / DATA B( 1423), B( 1424), B( 1425) / 32.11, -31.27, .00 / DATA B( 1594), B( 1595), B( 1596) / 32.55, -31.17, .00 / DATA B( 1765), B( 1766), B( 1767) / 33.34, -30.96, .00 / DATA B( 1936), B( 1937), B( 1938) / 37.26, -30.43, .00 / DATA B( 2107), B( 2108), B( 2109) / 34.36, -31.44, .00 / DATA B( 2278), B( 2279), B( 2280) / 33.37, -30.94, .00 / DATA B( 2449), B( 2450), B( 2451) / 32.00, -30.19, .00 / DATA B( 2620), B( 2621), B( 2622) / 29.65, -25.39, .00 / DATA B( 2791), B( 2792), B( 2793) / 45.32, -31.65, .00 / DATA B( 2962), B( 2963), B( 2964) / 23.57, -20.69, .00 / DATA B( 3133), B( 3134), B( 3135) / 18.12, -11.54, .00 / DATA B( 3304), B( 3305), B( 3306) / 13.52, -7.70, .00 / DATA B( 3475), B( 3476), B( 3477) / 10.67, -6.52, .00 / DATA B( 3646), B( 3647), B( 3648) / 9.01, -5.36, .00 / DATA B( 3817), B( 3818), B( 3819) / 8.84, -3.63, .00 / DATA B( 3988), B( 3989), B( 3990) / 9.40, -2.57, .00 / DATA B( 4159), B( 4160), B( 4161) / 8.69, -5.89, .00 / DATA B( 4330), B( 4331), B( 4332) / 7.41, -10.39, .00 / DATA B( 4501), B( 4502), B( 4503) / 7.16, -10.92, .00 / DATA B( 4672), B( 4673), B( 4674) / 7.10, -10.27, .00 / DATA B( 4843), B( 4844), B( 4845) / 6.70, -9.31, .00 / DATA B( 5014), B( 5015), B( 5016) / 6.42, -8.57, .00 / DATA B( 5185), B( 5186), B( 5187) / 6.80, -8.09, .00 / DATA B( 5356), B( 5357), B( 5358) / 7.15, -7.73, .00 / DATA B( 5527), B( 5528), B( 5529) / 7.20, -7.26, .00 / DATA B( 5698), B( 5699), B( 5700) / 6.64, -6.08, .00 / DATA B( 5869), B( 5870), B( 5871) / 5.46, -4.68, .00 / DATA B( 6040), B( 6041), B( 6042) / 4.25, -4.20, .00 / DATA B( 6211), B( 6212), B( 6213) / 4.11, -4.39, .00 / DATA B( 6382), B( 6383), B( 6384) / 4.98, -3.77, .00 / DATA B( 6553), B( 6554), B( 6555) / 6.31, -2.48, .00 / DATA B( 6724), B( 6725), B( 6726) / 7.70, -.88, .00 / DATA B( 6895), B( 6896), B( 6897) / 6.94, -.28, .00 / DATA B( 7066), B( 7067), B( 7068) / 6.10, -.12, .00 / DATA B( 7237), B( 7238), B( 7239) / 5.38, -.36, .00 / DATA B( 7408), B( 7409), B( 7410) / 4.83, -.85, .00 / DATA B( 7579), B( 7580), B( 7581) / 4.49, -1.33, .00 / DATA B( 7750), B( 7751), B( 7752) / 4.36, -1.53, .00 / DATA B( 7921), B( 7922), B( 7923) / 4.40, -1.29, .00 / DATA B( 8092), B( 8093), B( 8094) / 4.52, -.80, .00 / DATA B( 8263), B( 8264), B( 8265) / 4.59, -.59, .00 / DATA B( 8434), B( 8435), B( 8436) / 4.21, -2.63, .00 / DATA B( 8605), B( 8606), B( 8607) / 3.98, -4.83, .00 / DATA B( 8776), B( 8777), B( 8778) / 4.20, -5.03, .00 / DATA B( 8947), B( 8948), B( 8949) / 4.67, -4.01, .00 / DATA B( 9118), B( 9119), B( 9120) / 4.96, -2.80, .00 / DATA B( 9289), B( 9290), B( 9291) / 4.75, -1.63, .00 / DATA B( 9460), B( 9461), B( 9462) / 3.56, -.54, .00 / DATA B( 9631), B( 9632), B( 9633) / 1.25, .39, .00 / DATA B( 9802), B( 9803), B( 9804) / -.14, 1.03, .00 / DATA B( 9973), B( 9974), B( 9975) / -.23, 1.31, .00 / DATA B(10144), B(10145), B(10146) / .30, 1.24, .00 / DATA B(10315), B(10316), B(10317) / 1.01, .96, .00 / DATA B(10486), B(10487), B(10488) / 1.68, .65, .00 / DATA B(10657), B(10658), B(10659) / 1.83, .61, .00 / DATA B(10828), B(10829), B(10830) / 1.90, .70, .00 / DATA B(10999), B(11000), B(11001) / 1.96, .90, .00 / DATA B(11170), B(11171), B(11172) / 2.05, 1.16, .00 / DATA B(11341), B(11342), B(11343) / 2.17, 1.44, .00 / DATA B(11512), B(11513), B(11514) / 2.31, 1.71, .00 / DATA B(11683), B(11684), B(11685) / 2.47, 1.94, .00 / DATA B(11854), B(11855), B(11856) / 2.61, 2.14, .00 / DATA B(12025), B(12026), B(12027) / 2.74, 2.30, .00 / DATA B(12196), B(12197), B(12198) / 2.83, 2.41, .00 / DATA B(12367), B(12368), B(12369) / 2.90, 2.49, .00 / DATA B(12538), B(12539), B(12540) / 2.93, 2.51, .00 / DATA B( 58), B( 59), B( 60) / 31.77, -33.56, .00 / DATA B( 229), B( 230), B( 231) / 31.79, -33.40, .00 / DATA B( 400), B( 401), B( 402) / 31.83, -33.20, .00 / DATA B( 571), B( 572), B( 573) / 31.84, -32.97, .00 / DATA B( 742), B( 743), B( 744) / 31.76, -32.74, .00 / DATA B( 913), B( 914), B( 915) / 31.69, -32.47, .00 / DATA B( 1084), B( 1085), B( 1086) / 31.95, -32.02, .00 / DATA B( 1255), B( 1256), B( 1257) / 32.76, -31.38, .00 / DATA B( 1426), B( 1427), B( 1428) / 33.89, -30.93, .00 / DATA B( 1597), B( 1598), B( 1599) / 34.53, -31.11, .00 / DATA B( 1768), B( 1769), B( 1770) / 34.54, -31.60, .00 / DATA B( 1939), B( 1940), B( 1941) / 34.39, -29.82, .00 / DATA B( 2110), B( 2111), B( 2112) / 33.13, -32.17, .00 / DATA B( 2281), B( 2282), B( 2283) / 31.93, -30.51, .00 / DATA B( 2452), B( 2453), B( 2454) / 30.71, -27.85, .00 / DATA B( 2623), B( 2624), B( 2625) / 28.79, -25.28, .00 / DATA B( 2794), B( 2795), B( 2796) / 21.74, -15.89, .00 / DATA B( 2965), B( 2966), B( 2967) / 14.61, -4.51, .00 / DATA B( 3136), B( 3137), B( 3138) / 10.86, -3.83, .00 / DATA B( 3307), B( 3308), B( 3309) / 8.23, -2.27, .00 / DATA B( 3478), B( 3479), B( 3480) / 7.93, -3.66, .00 / DATA B( 3649), B( 3650), B( 3651) / 8.27, -4.34, .00 / DATA B( 3820), B( 3821), B( 3822) / 9.26, -3.85, .00 / DATA B( 3991), B( 3992), B( 3993) / 9.98, -3.40, .00 / DATA B( 4162), B( 4163), B( 4164) / 9.35, -4.69, .00 / DATA B( 4333), B( 4334), B( 4335) / 7.44, -6.42, .00 / DATA B( 4504), B( 4505), B( 4506) / 7.65, -8.81, .00 / DATA B( 4675), B( 4676), B( 4677) / 7.54, -8.89, .00 / DATA B( 4846), B( 4847), B( 4848) / 6.35, -8.82, .00 / DATA B( 5017), B( 5018), B( 5019) / 4.98, -9.13, .00 / DATA B( 5188), B( 5189), B( 5190) / 5.94, -9.19, .00 / DATA B( 5359), B( 5360), B( 5361) / 5.81, -7.95, .00 / DATA B( 5530), B( 5531), B( 5532) / 5.78, -6.88, .00 / DATA B( 5701), B( 5702), B( 5703) / 5.38, -5.12, .00 / DATA B( 5872), B( 5873), B( 5874) / 5.04, -4.56, .00 / DATA B( 6043), B( 6044), B( 6045) / 3.73, -5.88, .00 / DATA B( 6214), B( 6215), B( 6216) / 3.60, -5.85, .00 / DATA B( 6385), B( 6386), B( 6387) / 4.71, -4.52, .00 / DATA B( 6556), B( 6557), B( 6558) / 6.08, -3.03, .00 / DATA B( 6727), B( 6728), B( 6729) / 7.05, -1.66, .00 / DATA B( 6898), B( 6899), B( 6900) / 6.90, -.91, .00 / DATA B( 7069), B( 7070), B( 7071) / 6.18, -.68, .00 / DATA B( 7240), B( 7241), B( 7242) / 5.44, -.81, .00 / DATA B( 7411), B( 7412), B( 7413) / 4.82, -1.12, .00 / DATA B( 7582), B( 7583), B( 7584) / 4.39, -1.43, .00 / DATA B( 7753), B( 7754), B( 7755) / 4.22, -1.51, .00 / DATA B( 7924), B( 7925), B( 7926) / 4.30, -1.30, .00 / DATA B( 8095), B( 8096), B( 8097) / 4.49, -1.04, .00 / DATA B( 8266), B( 8267), B( 8268) / 4.58, -1.33, .00 / DATA B( 8437), B( 8438), B( 8439) / 4.49, -2.73, .00 / DATA B( 8608), B( 8609), B( 8610) / 4.40, -4.30, .00 / DATA B( 8779), B( 8780), B( 8781) / 4.49, -4.82, .00 / DATA B( 8950), B( 8951), B( 8952) / 4.68, -4.33, .00 / DATA B( 9121), B( 9122), B( 9123) / 4.72, -3.39, .00 / DATA B( 9292), B( 9293), B( 9294) / 4.31, -2.37, .00 / DATA B( 9463), B( 9464), B( 9465) / 3.20, -1.40, .00 / DATA B( 9634), B( 9635), B( 9636) / 1.62, -.56, .00 / DATA B( 9805), B( 9806), B( 9807) / .45, .06, .00 / DATA B( 9976), B( 9977), B( 9978) / .12, .41, .00 / DATA B(10147), B(10148), B(10149) / .40, .49, .00 / DATA B(10318), B(10319), B(10320) / .94, .41, .00 / DATA B(10489), B(10490), B(10491) / 1.45, .30, .00 / DATA B(10660), B(10661), B(10662) / 1.69, .32, .00 / DATA B(10831), B(10832), B(10833) / 1.80, .46, .00 / DATA B(11002), B(11003), B(11004) / 1.87, .68, .00 / DATA B(11173), B(11174), B(11175) / 1.95, .95, .00 / DATA B(11344), B(11345), B(11346) / 2.06, 1.23, .00 / DATA B(11515), B(11516), B(11517) / 2.18, 1.50, .00 / DATA B(11686), B(11687), B(11688) / 2.30, 1.76, .00 / DATA B(11857), B(11858), B(11859) / 2.42, 1.98, .00 / DATA B(12028), B(12029), B(12030) / 2.53, 2.15, .00 / DATA B(12199), B(12200), B(12201) / 2.61, 2.28, .00 / DATA B(12370), B(12371), B(12372) / 2.67, 2.35, .00 / DATA B(12541), B(12542), B(12543) / 2.70, 2.38, .00 / DATA B( 61), B( 62), B( 63) / 32.61, -33.52, .00 / DATA B( 232), B( 233), B( 234) / 32.69, -33.34, .00 / DATA B( 403), B( 404), B( 405) / 32.86, -33.08, .00 / DATA B( 574), B( 575), B( 576) / 33.01, -32.79, .00 / DATA B( 745), B( 746), B( 747) / 32.98, -32.53, .00 / DATA B( 916), B( 917), B( 918) / 32.70, -32.37, .00 / DATA B( 1087), B( 1088), B( 1089) / 32.72, -32.01, .00 / DATA B( 1258), B( 1259), B( 1260) / 33.73, -31.10, .00 / DATA B( 1429), B( 1430), B( 1431) / 35.13, -30.33, .00 / DATA B( 1600), B( 1601), B( 1602) / 36.31, -31.30, .00 / DATA B( 1771), B( 1772), B( 1773) / 33.58, -33.10, .00 / DATA B( 1942), B( 1943), B( 1944) / 31.51, -32.82, .00 / DATA B( 2113), B( 2114), B( 2115) / 31.66, -30.30, .00 / DATA B( 2284), B( 2285), B( 2286) / 30.28, -26.18, .00 / DATA B( 2455), B( 2456), B( 2457) / 27.80, -27.20, .00 / DATA B( 2626), B( 2627), B( 2628) / 21.64, -18.22, .00 / DATA B( 2797), B( 2798), B( 2799) / 14.60, -10.36, .00 / DATA B( 2968), B( 2969), B( 2970) / 10.03, -2.77, .00 / DATA B( 3139), B( 3140), B( 3141) / 7.85, -.78, .00 / DATA B( 3310), B( 3311), B( 3312) / 6.85, -1.57, .00 / DATA B( 3481), B( 3482), B( 3483) / 6.82, -3.49, .00 / DATA B( 3652), B( 3653), B( 3654) / 7.85, -5.15, .00 / DATA B( 3823), B( 3824), B( 3825) / 9.78, -5.16, .00 / DATA B( 3994), B( 3995), B( 3996) / 11.24, -3.94, .00 / DATA B( 4165), B( 4166), B( 4167) / 11.06, -3.58, .00 / DATA B( 4336), B( 4337), B( 4338) / 9.73, -4.70, .00 / DATA B( 4507), B( 4508), B( 4509) / 8.74, -6.43, .00 / DATA B( 4678), B( 4679), B( 4680) / 7.87, -7.52, .00 / DATA B( 4849), B( 4850), B( 4851) / 6.13, -8.34, .00 / DATA B( 5020), B( 5021), B( 5022) / 4.41, -9.38, .00 / DATA B( 5191), B( 5192), B( 5193) / 6.24, -10.33, .00 / DATA B( 5362), B( 5363), B( 5364) / 4.81, -7.92, .00 / DATA B( 5533), B( 5534), B( 5535) / 1.12, -3.32, .00 / DATA B( 5704), B( 5705), B( 5706) / 2.99, -3.29, .00 / DATA B( 5875), B( 5876), B( 5877) / 5.09, -3.69, .00 / DATA B( 6046), B( 6047), B( 6048) / 3.76, -5.53, .00 / DATA B( 6217), B( 6218), B( 6219) / 3.52, -5.92, .00 / DATA B( 6388), B( 6389), B( 6390) / 4.30, -4.99, .00 / DATA B( 6559), B( 6560), B( 6561) / 5.40, -3.64, .00 / DATA B( 6730), B( 6731), B( 6732) / 6.16, -2.42, .00 / DATA B( 6901), B( 6902), B( 6903) / 6.25, -1.63, .00 / DATA B( 7072), B( 7073), B( 7074) / 5.82, -1.28, .00 / DATA B( 7243), B( 7244), B( 7245) / 5.20, -1.27, .00 / DATA B( 7414), B( 7415), B( 7416) / 4.60, -1.43, .00 / DATA B( 7585), B( 7586), B( 7587) / 4.13, -1.62, .00 / DATA B( 7756), B( 7757), B( 7758) / 3.92, -1.68, .00 / DATA B( 7927), B( 7928), B( 7929) / 4.07, -1.55, .00 / DATA B( 8098), B( 8099), B( 8100) / 4.29, -1.51, .00 / DATA B( 8269), B( 8270), B( 8271) / 4.44, -1.93, .00 / DATA B( 8440), B( 8441), B( 8442) / 4.48, -2.93, .00 / DATA B( 8611), B( 8612), B( 8613) / 4.48, -4.01, .00 / DATA B( 8782), B( 8783), B( 8784) / 4.52, -4.53, .00 / DATA B( 8953), B( 8954), B( 8955) / 4.54, -4.35, .00 / DATA B( 9124), B( 9125), B( 9126) / 4.40, -3.71, .00 / DATA B( 9295), B( 9296), B( 9297) / 3.91, -2.89, .00 / DATA B( 9466), B( 9467), B( 9468) / 2.98, -2.06, .00 / DATA B( 9637), B( 9638), B( 9639) / 1.83, -1.31, .00 / DATA B( 9808), B( 9809), B( 9810) / .90, -.73, .00 / DATA B( 9979), B( 9980), B( 9981) / .51, -.34, .00 / DATA B(10150), B(10151), B(10152) / .58, -.14, .00 / DATA B(10321), B(10322), B(10323) / .92, -.08, .00 / DATA B(10492), B(10493), B(10494) / 1.29, -.04, .00 / DATA B(10663), B(10664), B(10665) / 1.54, .06, .00 / DATA B(10834), B(10835), B(10836) / 1.67, .23, .00 / DATA B(11005), B(11006), B(11007) / 1.76, .47, .00 / DATA B(11176), B(11177), B(11178) / 1.85, .75, .00 / DATA B(11347), B(11348), B(11349) / 1.94, 1.04, .00 / DATA B(11518), B(11519), B(11520) / 2.04, 1.32, .00 / DATA B(11689), B(11690), B(11691) / 2.14, 1.59, .00 / DATA B(11860), B(11861), B(11862) / 2.24, 1.83, .00 / DATA B(12031), B(12032), B(12033) / 2.33, 2.02, .00 / DATA B(12202), B(12203), B(12204) / 2.40, 2.15, .00 / DATA B(12373), B(12374), B(12375) / 2.45, 2.22, .00 / DATA B(12544), B(12545), B(12546) / 2.48, 2.25, .00 / DATA B( 64), B( 65), B( 66) / 33.17, -33.53, .00 / DATA B( 235), B( 236), B( 237) / 33.33, -33.32, .00 / DATA B( 406), B( 407), B( 408) / 33.70, -32.98, .00 / DATA B( 577), B( 578), B( 579) / 34.15, -32.57, .00 / DATA B( 748), B( 749), B( 750) / 34.42, -32.16, .00 / DATA B( 919), B( 920), B( 921) / 34.11, -31.99, .00 / DATA B( 1090), B( 1091), B( 1092) / 33.21, -32.14, .00 / DATA B( 1261), B( 1262), B( 1263) / 34.67, -30.69, .00 / DATA B( 1432), B( 1433), B( 1434) / 35.69, -29.51, .00 / DATA B( 1603), B( 1604), B( 1605) / 35.26, -29.10, .00 / DATA B( 1774), B( 1775), B( 1776) / 32.39, -32.02, .00 / DATA B( 1945), B( 1946), B( 1947) / 30.37, -30.41, .00 / DATA B( 2116), B( 2117), B( 2118) / 29.32, -29.65, .00 / DATA B( 2287), B( 2288), B( 2289) / 28.26, -22.98, .00 / DATA B( 2458), B( 2459), B( 2460) / 20.91, -20.62, .00 / DATA B( 2629), B( 2630), B( 2631) / 13.22, -10.95, .00 / DATA B( 2800), B( 2801), B( 2802) / 10.41, -6.64, .00 / DATA B( 2971), B( 2972), B( 2973) / 8.73, -3.35, .00 / DATA B( 3142), B( 3143), B( 3144) / 8.13, -2.31, .00 / DATA B( 3313), B( 3314), B( 3315) / 7.59, -3.17, .00 / DATA B( 3484), B( 3485), B( 3486) / 6.91, -5.21, .00 / DATA B( 3655), B( 3656), B( 3657) / 7.16, -7.27, .00 / DATA B( 3826), B( 3827), B( 3828) / 10.14, -7.36, .00 / DATA B( 3997), B( 3998), B( 3999) / 12.78, -3.89, .00 / DATA B( 4168), B( 4169), B( 4170) / 13.28, -2.41, .00 / DATA B( 4339), B( 4340), B( 4341) / 11.54, -3.35, .00 / DATA B( 4510), B( 4511), B( 4512) / 9.77, -4.95, .00 / DATA B( 4681), B( 4682), B( 4683) / 8.29, -6.36, .00 / DATA B( 4852), B( 4853), B( 4854) / 6.70, -7.71, .00 / DATA B( 5023), B( 5024), B( 5025) / 5.81, -9.13, .00 / DATA B( 5194), B( 5195), B( 5196) / 6.20, -10.02, .00 / DATA B( 5365), B( 5366), B( 5367) / 4.22, -7.66, .00 / DATA B( 5536), B( 5537), B( 5538) / 1.84, -4.46, .00 / DATA B( 5707), B( 5708), B( 5709) / 2.10, -3.42, .00 / DATA B( 5878), B( 5879), B( 5880) / 3.26, -4.03, .00 / DATA B( 6049), B( 6050), B( 6051) / 3.27, -5.21, .00 / DATA B( 6220), B( 6221), B( 6222) / 3.24, -5.65, .00 / DATA B( 6391), B( 6392), B( 6393) / 3.79, -5.08, .00 / DATA B( 6562), B( 6563), B( 6564) / 4.60, -4.04, .00 / DATA B( 6733), B( 6734), B( 6735) / 5.21, -3.01, .00 / DATA B( 6904), B( 6905), B( 6906) / 5.40, -2.25, .00 / DATA B( 7075), B( 7076), B( 7077) / 5.18, -1.84, .00 / DATA B( 7246), B( 7247), B( 7248) / 4.73, -1.71, .00 / DATA B( 7417), B( 7418), B( 7419) / 4.25, -1.75, .00 / DATA B( 7588), B( 7589), B( 7590) / 3.85, -1.85, .00 / DATA B( 7759), B( 7760), B( 7761) / 3.68, -1.90, .00 / DATA B( 7930), B( 7931), B( 7932) / 3.80, -1.87, .00 / DATA B( 8101), B( 8102), B( 8103) / 4.01, -1.98, .00 / DATA B( 8272), B( 8273), B( 8274) / 4.19, -2.39, .00 / DATA B( 8443), B( 8444), B( 8445) / 4.30, -3.11, .00 / DATA B( 8614), B( 8615), B( 8616) / 4.35, -3.87, .00 / DATA B( 8785), B( 8786), B( 8787) / 4.36, -4.30, .00 / DATA B( 8956), B( 8957), B( 8958) / 4.29, -4.27, .00 / DATA B( 9127), B( 9128), B( 9129) / 4.06, -3.85, .00 / DATA B( 9298), B( 9299), B( 9300) / 3.57, -3.22, .00 / DATA B( 9469), B( 9470), B( 9471) / 2.81, -2.53, .00 / DATA B( 9640), B( 9641), B( 9642) / 1.93, -1.88, .00 / DATA B( 9811), B( 9812), B( 9813) / 1.21, -1.34, .00 / DATA B( 9982), B( 9983), B( 9984) / .81, -.93, .00 / DATA B(10153), B(10154), B(10155) / .77, -.66, .00 / DATA B(10324), B(10325), B(10326) / .95, -.49, .00 / DATA B(10495), B(10496), B(10497) / 1.19, -.35, .00 / DATA B(10666), B(10667), B(10668) / 1.40, -.19, .00 / DATA B(10837), B(10838), B(10839) / 1.54, .02, .00 / DATA B(11008), B(11009), B(11010) / 1.64, .28, .00 / DATA B(11179), B(11180), B(11181) / 1.73, .56, .00 / DATA B(11350), B(11351), B(11352) / 1.81, .86, .00 / DATA B(11521), B(11522), B(11523) / 1.90, 1.15, .00 / DATA B(11692), B(11693), B(11694) / 1.99, 1.43, .00 / DATA B(11863), B(11864), B(11865) / 2.07, 1.68, .00 / DATA B(12034), B(12035), B(12036) / 2.15, 1.88, .00 / DATA B(12205), B(12206), B(12207) / 2.21, 2.02, .00 / DATA B(12376), B(12377), B(12378) / 2.25, 2.09, .00 / DATA B(12547), B(12548), B(12549) / 2.27, 2.12, .00 / DATA B( 67), B( 68), B( 69) / 33.31, -33.61, .00 / DATA B( 238), B( 239), B( 240) / 33.56, -33.36, .00 / DATA B( 409), B( 410), B( 411) / 34.18, -32.95, .00 / DATA B( 580), B( 581), B( 582) / 35.03, -32.41, .00 / DATA B( 751), B( 752), B( 753) / 35.83, -31.79, .00 / DATA B( 922), B( 923), B( 924) / 36.30, -31.13, .00 / DATA B( 1093), B( 1094), B( 1095) / 35.09, -31.26, .00 / DATA B( 1264), B( 1265), B( 1266) / 35.94, -30.20, .00 / DATA B( 1435), B( 1436), B( 1437) / 36.47, -29.03, .00 / DATA B( 1606), B( 1607), B( 1608) / 35.13, -28.71, .00 / DATA B( 1777), B( 1778), B( 1779) / 30.04, -25.92, .00 / DATA B( 1948), B( 1949), B( 1950) / 26.66, -30.12, .00 / DATA B( 2119), B( 2120), B( 2121) / 25.20, -27.80, .00 / DATA B( 2290), B( 2291), B( 2292) / 21.09, -20.60, .00 / DATA B( 2461), B( 2462), B( 2463) / 16.03, -14.52, .00 / DATA B( 2632), B( 2633), B( 2634) / 11.24, -11.19, .00 / DATA B( 2803), B( 2804), B( 2805) / 9.03, -6.43, .00 / DATA B( 2974), B( 2975), B( 2976) / 9.10, -4.84, .00 / DATA B( 3145), B( 3146), B( 3147) / 10.09, -5.27, .00 / DATA B( 3316), B( 3317), B( 3318) / 9.53, -5.43, .00 / DATA B( 3487), B( 3488), B( 3489) / 7.77, -6.87, .00 / DATA B( 3658), B( 3659), B( 3660) / 5.47, -9.78, .00 / DATA B( 3829), B( 3830), B( 3831) / 7.80, -8.72, .00 / DATA B( 4000), B( 4001), B( 4002) / 14.45, -2.44, .00 / DATA B( 4171), B( 4172), B( 4173) / 14.76, -1.01, .00 / DATA B( 4342), B( 4343), B( 4344) / 11.50, -2.88, .00 / DATA B( 4513), B( 4514), B( 4515) / 9.82, -4.20, .00 / DATA B( 4684), B( 4685), B( 4686) / 8.62, -5.33, .00 / DATA B( 4855), B( 4856), B( 4857) / 7.25, -6.71, .00 / DATA B( 5026), B( 5027), B( 5028) / 6.26, -8.05, .00 / DATA B( 5197), B( 5198), B( 5199) / 5.43, -8.50, .00 / DATA B( 5368), B( 5369), B( 5370) / 3.87, -7.26, .00 / DATA B( 5539), B( 5540), B( 5541) / 2.27, -5.38, .00 / DATA B( 5710), B( 5711), B( 5712) / 1.84, -4.45, .00 / DATA B( 5881), B( 5882), B( 5883) / 2.14, -4.71, .00 / DATA B( 6052), B( 6053), B( 6054) / 2.38, -5.35, .00 / DATA B( 6223), B( 6224), B( 6225) / 2.66, -5.47, .00 / DATA B( 6394), B( 6395), B( 6396) / 3.15, -5.03, .00 / DATA B( 6565), B( 6566), B( 6567) / 3.77, -4.24, .00 / DATA B( 6736), B( 6737), B( 6738) / 4.28, -3.40, .00 / DATA B( 6907), B( 6908), B( 6909) / 4.50, -2.72, .00 / DATA B( 7078), B( 7079), B( 7080) / 4.42, -2.29, .00 / DATA B( 7249), B( 7250), B( 7251) / 4.15, -2.10, .00 / DATA B( 7420), B( 7421), B( 7422) / 3.81, -2.06, .00 / DATA B( 7591), B( 7592), B( 7593) / 3.54, -2.09, .00 / DATA B( 7762), B( 7763), B( 7764) / 3.43, -2.14, .00 / DATA B( 7933), B( 7934), B( 7935) / 3.52, -2.19, .00 / DATA B( 8104), B( 8105), B( 8106) / 3.70, -2.36, .00 / DATA B( 8275), B( 8276), B( 8277) / 3.89, -2.72, .00 / DATA B( 8446), B( 8447), B( 8448) / 4.02, -3.26, .00 / DATA B( 8617), B( 8618), B( 8619) / 4.09, -3.80, .00 / DATA B( 8788), B( 8789), B( 8790) / 4.08, -4.14, .00 / DATA B( 8959), B( 8960), B( 8961) / 3.98, -4.16, .00 / DATA B( 9130), B( 9131), B( 9132) / 3.72, -3.89, .00 / DATA B( 9301), B( 9302), B( 9303) / 3.27, -3.42, .00 / DATA B( 9472), B( 9473), B( 9474) / 2.65, -2.86, .00 / DATA B( 9643), B( 9644), B( 9645) / 1.97, -2.30, .00 / DATA B( 9814), B( 9815), B( 9816) / 1.39, -1.80, .00 / DATA B( 9985), B( 9986), B( 9987) / 1.03, -1.39, .00 / DATA B(10156), B(10157), B(10158) / .92, -1.08, .00 / DATA B(10327), B(10328), B(10329) / .99, -.84, .00 / DATA B(10498), B(10499), B(10500) / 1.14, -.63, .00 / DATA B(10669), B(10670), B(10671) / 1.29, -.41, .00 / DATA B(10840), B(10841), B(10842) / 1.42, -.16, .00 / DATA B(11011), B(11012), B(11013) / 1.52, .11, .00 / DATA B(11182), B(11183), B(11184) / 1.60, .40, .00 / DATA B(11353), B(11354), B(11355) / 1.68, .70, .00 / DATA B(11524), B(11525), B(11526) / 1.76, 1.00, .00 / DATA B(11695), B(11696), B(11697) / 1.83, 1.27, .00 / DATA B(11866), B(11867), B(11868) / 1.90, 1.53, .00 / DATA B(12037), B(12038), B(12039) / 1.97, 1.74, .00 / DATA B(12208), B(12209), B(12210) / 2.02, 1.87, .00 / DATA B(12379), B(12380), B(12381) / 2.05, 1.95, .00 / DATA B(12550), B(12551), B(12552) / 2.07, 1.98, .00 / DATA B( 70), B( 71), B( 72) / 32.93, -33.78, .00 / DATA B( 241), B( 242), B( 243) / 33.26, -33.50, .00 / DATA B( 412), B( 413), B( 414) / 34.05, -33.03, .00 / DATA B( 583), B( 584), B( 585) / 35.30, -32.39, .00 / DATA B( 754), B( 755), B( 756) / 36.68, -31.67, .00 / DATA B( 925), B( 926), B( 927) / 37.50, -31.03, .00 / DATA B( 1096), B( 1097), B( 1098) / 37.66, -30.38, .00 / DATA B( 1267), B( 1268), B( 1269) / 36.80, -30.16, .00 / DATA B( 1438), B( 1439), B( 1440) / 36.59, -29.19, .00 / DATA B( 1609), B( 1610), B( 1611) / 35.94, -28.56, .00 / DATA B( 1780), B( 1781), B( 1782) / 30.97, -34.39, .00 / DATA B( 1951), B( 1952), B( 1953) / 26.13, -27.66, .00 / DATA B( 2122), B( 2123), B( 2124) / 21.04, -27.15, .00 / DATA B( 2293), B( 2294), B( 2295) / 17.39, -18.19, .00 / DATA B( 2464), B( 2465), B( 2466) / 13.64, -9.37, .00 / DATA B( 2635), B( 2636), B( 2637) / 10.49, -9.50, .00 / DATA B( 2806), B( 2807), B( 2808) / 9.08, -6.11, .00 / DATA B( 2977), B( 2978), B( 2979) / 9.57, -5.78, .00 / DATA B( 3148), B( 3149), B( 3150) / 11.60, -7.89, .00 / DATA B( 3319), B( 3320), B( 3321) / 10.69, -6.78, .00 / DATA B( 3490), B( 3491), B( 3492) / 9.86, -6.52, .00 / DATA B( 3661), B( 3662), B( 3663) / 3.92, -11.20, .00 / DATA B( 3832), B( 3833), B( 3834) / 4.14, -10.72, .00 / DATA B( 4003), B( 4004), B( 4005) / 16.39, .79, .00 / DATA B( 4174), B( 4175), B( 4176) / 12.62, -1.23, .00 / DATA B( 4345), B( 4346), B( 4347) / 7.35, -4.43, .00 / DATA B( 4516), B( 4517), B( 4518) / 9.00, -3.77, .00 / DATA B( 4687), B( 4688), B( 4689) / 8.38, -4.29, .00 / DATA B( 4858), B( 4859), B( 4860) / 7.21, -5.41, .00 / DATA B( 5029), B( 5030), B( 5031) / 5.99, -6.60, .00 / DATA B( 5200), B( 5201), B( 5202) / 4.79, -7.16, .00 / DATA B( 5371), B( 5372), B( 5373) / 3.46, -6.76, .00 / DATA B( 5542), B( 5543), B( 5544) / 2.27, -5.85, .00 / DATA B( 5713), B( 5714), B( 5715) / 1.65, -5.24, .00 / DATA B( 5884), B( 5885), B( 5886) / 1.52, -5.26, .00 / DATA B( 6055), B( 6056), B( 6057) / 1.65, -5.48, .00 / DATA B( 6226), B( 6227), B( 6228) / 2.00, -5.32, .00 / DATA B( 6397), B( 6398), B( 6399) / 2.46, -4.90, .00 / DATA B( 6568), B( 6569), B( 6570) / 2.96, -4.27, .00 / DATA B( 6739), B( 6740), B( 6741) / 3.39, -3.60, .00 / DATA B( 6910), B( 6911), B( 6912) / 3.62, -3.03, .00 / DATA B( 7081), B( 7082), B( 7083) / 3.65, -2.63, .00 / DATA B( 7252), B( 7253), B( 7254) / 3.52, -2.41, .00 / DATA B( 7423), B( 7424), B( 7425) / 3.32, -2.33, .00 / DATA B( 7594), B( 7595), B( 7596) / 3.16, -2.33, .00 / DATA B( 7765), B( 7766), B( 7767) / 3.12, -2.37, .00 / DATA B( 7936), B( 7937), B( 7938) / 3.20, -2.47, .00 / DATA B( 8107), B( 8108), B( 8109) / 3.36, -2.65, .00 / DATA B( 8278), B( 8279), B( 8280) / 3.54, -2.96, .00 / DATA B( 8449), B( 8450), B( 8451) / 3.68, -3.37, .00 / DATA B( 8620), B( 8621), B( 8622) / 3.75, -3.77, .00 / DATA B( 8791), B( 8792), B( 8793) / 3.74, -4.02, .00 / DATA B( 8962), B( 8963), B( 8964) / 3.63, -4.06, .00 / DATA B( 9133), B( 9134), B( 9135) / 3.38, -3.87, .00 / DATA B( 9304), B( 9305), B( 9306) / 2.99, -3.51, .00 / DATA B( 9475), B( 9476), B( 9477) / 2.49, -3.06, .00 / DATA B( 9646), B( 9647), B( 9648) / 1.95, -2.58, .00 / DATA B( 9817), B( 9818), B( 9819) / 1.48, -2.13, .00 / DATA B( 9988), B( 9989), B( 9990) / 1.17, -1.74, .00 / DATA B(10159), B(10160), B(10161) / 1.02, -1.40, .00 / DATA B(10330), B(10331), B(10332) / 1.02, -1.12, .00 / DATA B(10501), B(10502), B(10503) / 1.10, -.86, .00 / DATA B(10672), B(10673), B(10674) / 1.20, -.60, .00 / DATA B(10843), B(10844), B(10845) / 1.31, -.33, .00 / DATA B(11014), B(11015), B(11016) / 1.40, -.05, .00 / DATA B(11185), B(11186), B(11187) / 1.47, .25, .00 / DATA B(11356), B(11357), B(11358) / 1.54, .55, .00 / DATA B(11527), B(11528), B(11529) / 1.61, .85, .00 / DATA B(11698), B(11699), B(11700) / 1.68, 1.12, .00 / DATA B(11869), B(11870), B(11871) / 1.74, 1.37, .00 / DATA B(12040), B(12041), B(12042) / 1.79, 1.57, .00 / DATA B(12211), B(12212), B(12213) / 1.84, 1.71, .00 / DATA B(12382), B(12383), B(12384) / 1.87, 1.80, .00 / DATA B(12553), B(12554), B(12555) / 1.88, 1.83, .00 / DATA B( 73), B( 74), B( 75) / 32.08, -34.00, .00 / DATA B( 244), B( 245), B( 246) / 32.39, -33.70, .00 / DATA B( 415), B( 416), B( 417) / 33.16, -33.21, .00 / DATA B( 586), B( 587), B( 588) / 34.59, -32.55, .00 / DATA B( 757), B( 758), B( 759) / 36.56, -31.81, .00 / DATA B( 928), B( 929), B( 930) / 37.81, -31.31, .00 / DATA B( 1099), B( 1100), B( 1101) / 37.30, -31.17, .00 / DATA B( 1270), B( 1271), B( 1272) / 36.14, -30.91, .00 / DATA B( 1441), B( 1442), B( 1443) / 35.09, -30.11, .00 / DATA B( 1612), B( 1613), B( 1614) / 33.33, -29.16, .00 / DATA B( 1783), B( 1784), B( 1785) / 25.77, -30.95, .00 / DATA B( 1954), B( 1955), B( 1956) / 28.54, -23.09, .00 / DATA B( 2125), B( 2126), B( 2127) / 20.53, -24.70, .00 / DATA B( 2296), B( 2297), B( 2298) / 16.32, -17.23, .00 / DATA B( 2467), B( 2468), B( 2469) / 12.34, -10.32, .00 / DATA B( 2638), B( 2639), B( 2640) / 10.04, -6.58, .00 / DATA B( 2809), B( 2810), B( 2811) / 9.41, -4.45, .00 / DATA B( 2980), B( 2981), B( 2982) / 9.73, -5.59, .00 / DATA B( 3151), B( 3152), B( 3153) / 9.36, -7.41, .00 / DATA B( 3322), B( 3323), B( 3324) / 9.82, -6.94, .00 / DATA B( 3493), B( 3494), B( 3495) / 10.28, -6.26, .00 / DATA B( 3664), B( 3665), B( 3666) / 4.84, -9.95, .00 / DATA B( 3835), B( 3836), B( 3837) / 3.15, -10.76, .00 / DATA B( 4006), B( 4007), B( 4008) / 5.78, -6.98, .00 / DATA B( 4177), B( 4178), B( 4179) / -1.69, -6.14, .00 / DATA B( 4348), B( 4349), B( 4350) / 2.69, -6.38, .00 / DATA B( 4519), B( 4520), B( 4521) / 6.99, -3.48, .00 / DATA B( 4690), B( 4691), B( 4692) / 7.66, -3.04, .00 / DATA B( 4861), B( 4862), B( 4863) / 6.63, -3.96, .00 / DATA B( 5032), B( 5033), B( 5034) / 5.28, -5.16, .00 / DATA B( 5203), B( 5204), B( 5205) / 4.03, -6.02, .00 / DATA B( 5374), B( 5375), B( 5376) / 2.95, -6.25, .00 / DATA B( 5545), B( 5546), B( 5547) / 2.06, -5.97, .00 / DATA B( 5716), B( 5717), B( 5718) / 1.45, -5.60, .00 / DATA B( 5887), B( 5888), B( 5889) / 1.18, -5.42, .00 / DATA B( 6058), B( 6059), B( 6060) / 1.18, -5.32, .00 / DATA B( 6229), B( 6230), B( 6231) / 1.42, -5.09, .00 / DATA B( 6400), B( 6401), B( 6402) / 1.80, -4.69, .00 / DATA B( 6571), B( 6572), B( 6573) / 2.21, -4.18, .00 / DATA B( 6742), B( 6743), B( 6744) / 2.58, -3.66, .00 / DATA B( 6913), B( 6914), B( 6915) / 2.81, -3.20, .00 / DATA B( 7084), B( 7085), B( 7086) / 2.90, -2.86, .00 / DATA B( 7255), B( 7256), B( 7257) / 2.88, -2.65, .00 / DATA B( 7426), B( 7427), B( 7428) / 2.80, -2.56, .00 / DATA B( 7597), B( 7598), B( 7599) / 2.73, -2.54, .00 / DATA B( 7768), B( 7769), B( 7770) / 2.75, -2.59, .00 / DATA B( 7939), B( 7940), B( 7941) / 2.84, -2.69, .00 / DATA B( 8110), B( 8111), B( 8112) / 3.00, -2.87, .00 / DATA B( 8281), B( 8282), B( 8283) / 3.16, -3.13, .00 / DATA B( 8452), B( 8453), B( 8454) / 3.30, -3.44, .00 / DATA B( 8623), B( 8624), B( 8625) / 3.38, -3.73, .00 / DATA B( 8794), B( 8795), B( 8796) / 3.37, -3.92, .00 / DATA B( 8965), B( 8966), B( 8967) / 3.27, -3.96, .00 / DATA B( 9136), B( 9137), B( 9138) / 3.05, -3.82, .00 / DATA B( 9307), B( 9308), B( 9309) / 2.73, -3.54, .00 / DATA B( 9478), B( 9479), B( 9480) / 2.32, -3.17, .00 / DATA B( 9649), B( 9650), B( 9651) / 1.89, -2.77, .00 / DATA B( 9820), B( 9821), B( 9822) / 1.51, -2.36, .00 / DATA B( 9991), B( 9992), B( 9993) / 1.23, -1.98, .00 / DATA B(10162), B(10163), B(10164) / 1.08, -1.64, .00 / DATA B(10333), B(10334), B(10335) / 1.03, -1.33, .00 / DATA B(10504), B(10505), B(10506) / 1.06, -1.04, .00 / DATA B(10675), B(10676), B(10677) / 1.13, -.76, .00 / DATA B(10846), B(10847), B(10848) / 1.21, -.47, .00 / DATA B(11017), B(11018), B(11019) / 1.28, -.18, .00 / DATA B(11188), B(11189), B(11190) / 1.35, .12, .00 / DATA B(11359), B(11360), B(11361) / 1.41, .42, .00 / DATA B(11530), B(11531), B(11532) / 1.47, .71, .00 / DATA B(11701), B(11702), B(11703) / 1.53, .98, .00 / DATA B(11872), B(11873), B(11874) / 1.58, 1.22, .00 / DATA B(12043), B(12044), B(12045) / 1.63, 1.41, .00 / DATA B(12214), B(12215), B(12216) / 1.66, 1.55, .00 / DATA B(12385), B(12386), B(12387) / 1.69, 1.64, .00 / DATA B(12556), B(12557), B(12558) / 1.70, 1.68, .00 / DATA B( 76), B( 77), B( 78) / 30.94, -34.20, .00 / DATA B( 247), B( 248), B( 249) / 31.13, -33.89, .00 / DATA B( 418), B( 419), B( 420) / 31.59, -33.41, .00 / DATA B( 589), B( 590), B( 591) / 32.56, -32.80, .00 / DATA B( 760), B( 761), B( 762) / 34.92, -32.00, .00 / DATA B( 931), B( 932), B( 933) / 37.29, -31.51, .00 / DATA B( 1102), B( 1103), B( 1104) / 35.49, -31.98, .00 / DATA B( 1273), B( 1274), B( 1275) / 34.07, -31.68, .00 / DATA B( 1444), B( 1445), B( 1446) / 33.15, -30.95, .00 / DATA B( 1615), B( 1616), B( 1617) / 29.45, -30.25, .00 / DATA B( 1786), B( 1787), B( 1788) / 31.66, -27.35, .00 / DATA B( 1957), B( 1958), B( 1959) / 23.79, -29.79, .00 / DATA B( 2128), B( 2129), B( 2130) / 20.14, -17.06, .00 / DATA B( 2299), B( 2300), B( 2301) / 16.25, -15.09, .00 / DATA B( 2470), B( 2471), B( 2472) / 11.79, -9.14, .00 / DATA B( 2641), B( 2642), B( 2643) / 10.10, -8.23, .00 / DATA B( 2812), B( 2813), B( 2814) / 10.10, -2.84, .00 / DATA B( 2983), B( 2984), B( 2985) / 10.39, -6.49, .00 / DATA B( 3154), B( 3155), B( 3156) / 10.37, -7.94, .00 / DATA B( 3325), B( 3326), B( 3327) / 10.03, -7.20, .00 / DATA B( 3496), B( 3497), B( 3498) / 8.65, -7.16, .00 / DATA B( 3667), B( 3668), B( 3669) / 4.87, -8.88, .00 / DATA B( 3838), B( 3839), B( 3840) / .68, -11.42, .00 / DATA B( 4009), B( 4010), B( 4011) / -4.66, -16.49, .00 / DATA B( 4180), B( 4181), B( 4182) / -2.21, -11.76, .00 / DATA B( 4351), B( 4352), B( 4353) / 4.32, -3.96, .00 / DATA B( 4522), B( 4523), B( 4524) / 7.16, -1.41, .00 / DATA B( 4693), B( 4694), B( 4695) / 6.99, -1.37, .00 / DATA B( 4864), B( 4865), B( 4866) / 5.63, -2.48, .00 / DATA B( 5035), B( 5036), B( 5037) / 4.17, -3.89, .00 / DATA B( 5206), B( 5207), B( 5208) / 3.07, -5.05, .00 / DATA B( 5377), B( 5378), B( 5379) / 2.33, -5.74, .00 / DATA B( 5548), B( 5549), B( 5550) / 1.76, -5.85, .00 / DATA B( 5719), B( 5720), B( 5721) / 1.27, -5.60, .00 / DATA B( 5890), B( 5891), B( 5892) / .94, -5.31, .00 / DATA B( 6061), B( 6062), B( 6063) / .83, -5.04, .00 / DATA B( 6232), B( 6233), B( 6234) / .95, -4.75, .00 / DATA B( 6403), B( 6404), B( 6405) / 1.22, -4.40, .00 / DATA B( 6574), B( 6575), B( 6576) / 1.55, -4.01, .00 / DATA B( 6745), B( 6746), B( 6747) / 1.86, -3.61, .00 / DATA B( 6916), B( 6917), B( 6918) / 2.09, -3.26, .00 / DATA B( 7087), B( 7088), B( 7089) / 2.22, -2.99, .00 / DATA B( 7258), B( 7259), B( 7260) / 2.26, -2.82, .00 / DATA B( 7429), B( 7430), B( 7431) / 2.27, -2.74, .00 / DATA B( 7600), B( 7601), B( 7602) / 2.28, -2.72, .00 / DATA B( 7771), B( 7772), B( 7773) / 2.34, -2.77, .00 / DATA B( 7942), B( 7943), B( 7944) / 2.46, -2.87, .00 / DATA B( 8113), B( 8114), B( 8115) / 2.61, -3.03, .00 / DATA B( 8284), B( 8285), B( 8286) / 2.78, -3.24, .00 / DATA B( 8455), B( 8456), B( 8457) / 2.91, -3.48, .00 / DATA B( 8626), B( 8627), B( 8628) / 2.99, -3.69, .00 / DATA B( 8797), B( 8798), B( 8799) / 3.00, -3.83, .00 / DATA B( 8968), B( 8969), B( 8970) / 2.91, -3.85, .00 / DATA B( 9139), B( 9140), B( 9141) / 2.73, -3.74, .00 / DATA B( 9310), B( 9311), B( 9312) / 2.47, -3.52, .00 / DATA B( 9481), B( 9482), B( 9483) / 2.14, -3.21, .00 / DATA B( 9652), B( 9653), B( 9654) / 1.80, -2.86, .00 / DATA B( 9823), B( 9824), B( 9825) / 1.48, -2.50, .00 / DATA B( 9994), B( 9995), B( 9996) / 1.24, -2.14, .00 / DATA B(10165), B(10166), B(10167) / 1.09, -1.80, .00 / DATA B(10336), B(10337), B(10338) / 1.02, -1.49, .00 / DATA B(10507), B(10508), B(10509) / 1.02, -1.18, .00 / DATA B(10678), B(10679), B(10680) / 1.06, -.89, .00 / DATA B(10849), B(10850), B(10851) / 1.11, -.59, .00 / DATA B(11020), B(11021), B(11022) / 1.17, -.29, .00 / DATA B(11191), B(11192), B(11193) / 1.22, .01, .00 / DATA B(11362), B(11363), B(11364) / 1.28, .30, .00 / DATA B(11533), B(11534), B(11535) / 1.33, .58, .00 / DATA B(11704), B(11705), B(11706) / 1.38, .84, .00 / DATA B(11875), B(11876), B(11877) / 1.43, 1.07, .00 / DATA B(12046), B(12047), B(12048) / 1.47, 1.26, .00 / DATA B(12217), B(12218), B(12219) / 1.50, 1.40, .00 / DATA B(12388), B(12389), B(12390) / 1.52, 1.48, .00 / DATA B(12559), B(12560), B(12561) / 1.53, 1.52, .00 / DATA B( 79), B( 80), B( 81) / 29.85, -34.31, .00 / DATA B( 250), B( 251), B( 252) / 29.87, -33.97, .00 / DATA B( 421), B( 422), B( 423) / 29.86, -33.46, .00 / DATA B( 592), B( 593), B( 594) / 29.97, -32.87, .00 / DATA B( 763), B( 764), B( 765) / 30.14, -32.38, .00 / DATA B( 934), B( 935), B( 936) / 34.09, -31.39, .00 / DATA B( 1105), B( 1106), B( 1107) / 33.73, -32.00, .00 / DATA B( 1276), B( 1277), B( 1278) / 31.65, -30.04, .00 / DATA B( 1447), B( 1448), B( 1449) / 33.26, -30.64, .00 / DATA B( 1618), B( 1619), B( 1620) / 29.02, -27.97, .00 / DATA B( 1789), B( 1790), B( 1791) / 24.86, -25.87, .00 / DATA B( 1960), B( 1961), B( 1962) / 20.72, -26.59, .00 / DATA B( 2131), B( 2132), B( 2133) / 22.14, -16.80, .00 / DATA B( 2302), B( 2303), B( 2304) / 16.30, -9.71, .00 / DATA B( 2473), B( 2474), B( 2475) / 12.86, -7.94, .00 / DATA B( 2644), B( 2645), B( 2646) / 10.84, -15.85, .00 / DATA B( 2815), B( 2816), B( 2817) / 10.99, -11.66, .00 / DATA B( 2986), B( 2987), B( 2988) / 12.12, -8.41, .00 / DATA B( 3157), B( 3158), B( 3159) / 11.79, -7.83, .00 / DATA B( 3328), B( 3329), B( 3330) / 10.35, -7.28, .00 / DATA B( 3499), B( 3500), B( 3501) / 8.35, -7.04, .00 / DATA B( 3670), B( 3671), B( 3672) / 5.70, -7.47, .00 / DATA B( 3841), B( 3842), B( 3843) / 1.17, -8.57, .00 / DATA B( 4012), B( 4013), B( 4014) / .05, -10.33, .00 / DATA B( 4183), B( 4184), B( 4185) / 5.04, -4.57, .00 / DATA B( 4354), B( 4355), B( 4356) / 9.82, 1.42, .00 / DATA B( 4525), B( 4526), B( 4527) / 8.04, 1.30, .00 / DATA B( 4696), B( 4697), B( 4698) / 6.21, .32, .00 / DATA B( 4867), B( 4868), B( 4869) / 4.22, -1.21, .00 / DATA B( 5038), B( 5039), B( 5040) / 2.68, -2.87, .00 / DATA B( 5209), B( 5210), B( 5211) / 1.91, -4.29, .00 / DATA B( 5380), B( 5381), B( 5382) / 1.67, -5.22, .00 / DATA B( 5551), B( 5552), B( 5553) / 1.49, -5.56, .00 / DATA B( 5722), B( 5723), B( 5724) / 1.17, -5.41, .00 / DATA B( 5893), B( 5894), B( 5895) / .80, -5.03, .00 / DATA B( 6064), B( 6065), B( 6066) / .57, -4.65, .00 / DATA B( 6235), B( 6236), B( 6237) / .57, -4.35, .00 / DATA B( 6406), B( 6407), B( 6408) / .74, -4.07, .00 / DATA B( 6577), B( 6578), B( 6579) / .98, -3.78, .00 / DATA B( 6748), B( 6749), B( 6750) / 1.24, -3.50, .00 / DATA B( 6919), B( 6920), B( 6921) / 1.46, -3.25, .00 / DATA B( 7090), B( 7091), B( 7092) / 1.61, -3.06, .00 / DATA B( 7261), B( 7262), B( 7263) / 1.70, -2.93, .00 / DATA B( 7432), B( 7433), B( 7434) / 1.76, -2.87, .00 / DATA B( 7603), B( 7604), B( 7605) / 1.82, -2.86, .00 / DATA B( 7774), B( 7775), B( 7776) / 1.92, -2.91, .00 / DATA B( 7945), B( 7946), B( 7947) / 2.06, -3.00, .00 / DATA B( 8116), B( 8117), B( 8118) / 2.23, -3.13, .00 / DATA B( 8287), B( 8288), B( 8289) / 2.39, -3.30, .00 / DATA B( 8458), B( 8459), B( 8460) / 2.53, -3.48, .00 / DATA B( 8629), B( 8630), B( 8631) / 2.61, -3.64, .00 / DATA B( 8800), B( 8801), B( 8802) / 2.63, -3.73, .00 / DATA B( 8971), B( 8972), B( 8973) / 2.56, -3.74, .00 / DATA B( 9142), B( 9143), B( 9144) / 2.42, -3.65, .00 / DATA B( 9313), B( 9314), B( 9315) / 2.21, -3.46, .00 / DATA B( 9484), B( 9485), B( 9486) / 1.95, -3.20, .00 / DATA B( 9655), B( 9656), B( 9657) / 1.67, -2.89, .00 / DATA B( 9826), B( 9827), B( 9828) / 1.42, -2.56, .00 / DATA B( 9997), B( 9998), B( 9999) / 1.21, -2.23, .00 / DATA B(10168), B(10169), B(10170) / 1.07, -1.90, .00 / DATA B(10339), B(10340), B(10341) / 1.00, -1.59, .00 / DATA B(10510), B(10511), B(10512) / .97, -1.28, .00 / DATA B(10681), B(10682), B(10683) / .98, -.98, .00 / DATA B(10852), B(10853), B(10854) / 1.02, -.68, .00 / DATA B(11023), B(11024), B(11025) / 1.06, -.38, .00 / DATA B(11194), B(11195), B(11196) / 1.10, -.09, .00 / DATA B(11365), B(11366), B(11367) / 1.15, .20, .00 / DATA B(11536), B(11537), B(11538) / 1.20, .47, .00 / DATA B(11707), B(11708), B(11709) / 1.24, .72, .00 / DATA B(11878), B(11879), B(11880) / 1.28, .94, .00 / DATA B(12049), B(12050), B(12051) / 1.31, 1.11, .00 / DATA B(12220), B(12221), B(12222) / 1.34, 1.25, .00 / DATA B(12391), B(12392), B(12393) / 1.35, 1.33, .00 / DATA B(12562), B(12563), B(12564) / 1.36, 1.37, .00 / DATA B( 82), B( 83), B( 84) / 29.15, -34.25, .00 / DATA B( 253), B( 254), B( 255) / 29.04, -33.85, .00 / DATA B( 424), B( 425), B( 426) / 28.69, -33.21, .00 / DATA B( 595), B( 596), B( 597) / 28.29, -32.40, .00 / DATA B( 766), B( 767), B( 768) / 28.55, -31.43, .00 / DATA B( 937), B( 938), B( 939) / 31.03, -30.22, .00 / DATA B( 1108), B( 1109), B( 1110) / 35.63, -28.36, .00 / DATA B( 1279), B( 1280), B( 1281) / 38.24, -22.01, .00 / DATA B( 1450), B( 1451), B( 1452) / 28.84, -27.20, .00 / DATA B( 1621), B( 1622), B( 1623) / 26.73, -26.62, .00 / DATA B( 1792), B( 1793), B( 1794) / 22.99, -25.76, .00 / DATA B( 1963), B( 1964), B( 1965) / 25.70, -25.52, .00 / DATA B( 2134), B( 2135), B( 2136) / 17.13, -11.64, .00 / DATA B( 2305), B( 2306), B( 2307) / 16.99, -8.60, .00 / DATA B( 2476), B( 2477), B( 2478) / 14.40, -9.87, .00 / DATA B( 2647), B( 2648), B( 2649) / 12.55, -13.68, .00 / DATA B( 2818), B( 2819), B( 2820) / 13.28, -13.01, .00 / DATA B( 2989), B( 2990), B( 2991) / 14.52, -8.73, .00 / DATA B( 3160), B( 3161), B( 3162) / 13.12, -7.25, .00 / DATA B( 3331), B( 3332), B( 3333) / 10.40, -6.92, .00 / DATA B( 3502), B( 3503), B( 3504) / 8.09, -6.45, .00 / DATA B( 3673), B( 3674), B( 3675) / 7.47, -5.91, .00 / DATA B( 3844), B( 3845), B( 3846) / 7.91, -5.31, .00 / DATA B( 4015), B( 4016), B( 4017) / 3.49, -5.11, .00 / DATA B( 4186), B( 4187), B( 4188) / 4.60, -1.41, .00 / DATA B( 4357), B( 4358), B( 4359) / 7.78, 2.42, .00 / DATA B( 4528), B( 4529), B( 4530) / 6.98, 2.59, .00 / DATA B( 4699), B( 4700), B( 4701) / 4.72, 1.30, .00 / DATA B( 4870), B( 4871), B( 4872) / 2.38, -.42, .00 / DATA B( 5041), B( 5042), B( 5043) / .85, -2.21, .00 / DATA B( 5212), B( 5213), B( 5214) / .72, -3.76, .00 / DATA B( 5383), B( 5384), B( 5385) / 1.18, -4.85, .00 / DATA B( 5554), B( 5555), B( 5556) / 1.45, -5.31, .00 / DATA B( 5725), B( 5726), B( 5727) / 1.27, -5.19, .00 / DATA B( 5896), B( 5897), B( 5898) / .79, -4.70, .00 / DATA B( 6067), B( 6068), B( 6069) / .40, -4.21, .00 / DATA B( 6238), B( 6239), B( 6240) / .30, -3.94, .00 / DATA B( 6409), B( 6410), B( 6411) / .36, -3.71, .00 / DATA B( 6580), B( 6581), B( 6582) / .52, -3.52, .00 / DATA B( 6751), B( 6752), B( 6753) / .73, -3.35, .00 / DATA B( 6922), B( 6923), B( 6924) / .93, -3.20, .00 / DATA B( 7093), B( 7094), B( 7095) / 1.09, -3.08, .00 / DATA B( 7264), B( 7265), B( 7266) / 1.20, -3.00, .00 / DATA B( 7435), B( 7436), B( 7437) / 1.29, -2.96, .00 / DATA B( 7606), B( 7607), B( 7608) / 1.39, -2.97, .00 / DATA B( 7777), B( 7778), B( 7779) / 1.52, -3.01, .00 / DATA B( 7948), B( 7949), B( 7950) / 1.68, -3.08, .00 / DATA B( 8119), B( 8120), B( 8121) / 1.86, -3.19, .00 / DATA B( 8290), B( 8291), B( 8292) / 2.02, -3.32, .00 / DATA B( 8461), B( 8462), B( 8463) / 2.16, -3.45, .00 / DATA B( 8632), B( 8633), B( 8634) / 2.25, -3.57, .00 / DATA B( 8803), B( 8804), B( 8805) / 2.27, -3.63, .00 / DATA B( 8974), B( 8975), B( 8976) / 2.23, -3.62, .00 / DATA B( 9145), B( 9146), B( 9147) / 2.12, -3.53, .00 / DATA B( 9316), B( 9317), B( 9318) / 1.96, -3.37, .00 / DATA B( 9487), B( 9488), B( 9489) / 1.75, -3.14, .00 / DATA B( 9658), B( 9659), B( 9660) / 1.53, -2.87, .00 / DATA B( 9829), B( 9830), B( 9831) / 1.33, -2.57, .00 / DATA B(10000), B(10001), B(10002) / 1.15, -2.26, .00 / DATA B(10171), B(10172), B(10173) / 1.02, -1.95, .00 / DATA B(10342), B(10343), B(10344) / .94, -1.65, .00 / DATA B(10513), B(10514), B(10515) / .91, -1.34, .00 / DATA B(10684), B(10685), B(10686) / .90, -1.04, .00 / DATA B(10855), B(10856), B(10857) / .92, -.75, .00 / DATA B(11026), B(11027), B(11028) / .95, -.45, .00 / DATA B(11197), B(11198), B(11199) / .99, -.17, .00 / DATA B(11368), B(11369), B(11370) / 1.03, .11, .00 / DATA B(11539), B(11540), B(11541) / 1.06, .37, .00 / DATA B(11710), B(11711), B(11712) / 1.10, .61, .00 / DATA B(11881), B(11882), B(11883) / 1.13, .81, .00 / DATA B(12052), B(12053), B(12054) / 1.16, .98, .00 / DATA B(12223), B(12224), B(12225) / 1.18, 1.11, .00 / DATA B(12394), B(12395), B(12396) / 1.20, 1.19, .00 / DATA B(12565), B(12566), B(12567) / 1.20, 1.23, .00 / DATA B( 85), B( 86), B( 87) / 29.06, -33.99, .00 / DATA B( 256), B( 257), B( 258) / 28.89, -33.50, .00 / DATA B( 427), B( 428), B( 429) / 28.43, -32.67, .00 / DATA B( 598), B( 599), B( 600) / 27.99, -31.46, .00 / DATA B( 769), B( 770), B( 771) / 28.42, -29.73, .00 / DATA B( 940), B( 941), B( 942) / 30.75, -27.42, .00 / DATA B( 1111), B( 1112), B( 1113) / 34.22, -24.87, .00 / DATA B( 1282), B( 1283), B( 1284) / 35.74, -21.95, .00 / DATA B( 1453), B( 1454), B( 1455) / 25.93, -23.25, .00 / DATA B( 1624), B( 1625), B( 1626) / 25.59, -27.87, .00 / DATA B( 1795), B( 1796), B( 1797) / 23.79, -24.48, .00 / DATA B( 1966), B( 1967), B( 1968) / 18.92, -20.05, .00 / DATA B( 2137), B( 2138), B( 2139) / 10.77, -9.09, .00 / DATA B( 2308), B( 2309), B( 2310) / 14.20, -9.54, .00 / DATA B( 2479), B( 2480), B( 2481) / 13.68, -9.77, .00 / DATA B( 2650), B( 2651), B( 2652) / 12.58, -10.27, .00 / DATA B( 2821), B( 2822), B( 2823) / 14.17, -8.68, .00 / DATA B( 2992), B( 2993), B( 2994) / 16.87, -5.90, .00 / DATA B( 3163), B( 3164), B( 3165) / 12.92, -6.20, .00 / DATA B( 3334), B( 3335), B( 3336) / 9.17, -6.60, .00 / DATA B( 3505), B( 3506), B( 3507) / 7.37, -5.81, .00 / DATA B( 3676), B( 3677), B( 3678) / 7.17, -4.72, .00 / DATA B( 3847), B( 3848), B( 3849) / 6.29, -3.93, .00 / DATA B( 4018), B( 4019), B( 4020) / 3.32, -3.03, .00 / DATA B( 4189), B( 4190), B( 4191) / .46, -1.36, .00 / DATA B( 4360), B( 4361), B( 4362) / 3.71, 1.42, .00 / DATA B( 4531), B( 4532), B( 4533) / 4.21, 2.14, .00 / DATA B( 4702), B( 4703), B( 4704) / 2.68, 1.31, .00 / DATA B( 4873), B( 4874), B( 4875) / .52, -.19, .00 / DATA B( 5044), B( 5045), B( 5046) / -1.07, -1.90, .00 / DATA B( 5215), B( 5216), B( 5217) / -.07, -3.47, .00 / DATA B( 5386), B( 5387), B( 5388) / 1.12, -4.66, .00 / DATA B( 5557), B( 5558), B( 5559) / 1.77, -5.19, .00 / DATA B( 5728), B( 5729), B( 5730) / 1.61, -5.01, .00 / DATA B( 5899), B( 5900), B( 5901) / 1.00, -4.45, .00 / DATA B( 6070), B( 6071), B( 6072) / .43, -3.90, .00 / DATA B( 6241), B( 6242), B( 6243) / .13, -3.56, .00 / DATA B( 6412), B( 6413), B( 6414) / .07, -3.37, .00 / DATA B( 6583), B( 6584), B( 6585) / .16, -3.26, .00 / DATA B( 6754), B( 6755), B( 6756) / .32, -3.19, .00 / DATA B( 6925), B( 6926), B( 6927) / .50, -3.13, .00 / DATA B( 7096), B( 7097), B( 7098) / .66, -3.08, .00 / DATA B( 7267), B( 7268), B( 7269) / .79, -3.04, .00 / DATA B( 7438), B( 7439), B( 7440) / .89, -3.03, .00 / DATA B( 7609), B( 7610), B( 7611) / .99, -3.04, .00 / DATA B( 7780), B( 7781), B( 7782) / 1.15, -3.07, .00 / DATA B( 7951), B( 7952), B( 7953) / 1.33, -3.13, .00 / DATA B( 8122), B( 8123), B( 8124) / 1.51, -3.21, .00 / DATA B( 8293), B( 8294), B( 8295) / 1.68, -3.31, .00 / DATA B( 8464), B( 8465), B( 8466) / 1.81, -3.40, .00 / DATA B( 8635), B( 8636), B( 8637) / 1.90, -3.47, .00 / DATA B( 8806), B( 8807), B( 8808) / 1.94, -3.51, .00 / DATA B( 8977), B( 8978), B( 8979) / 1.92, -3.48, .00 / DATA B( 9148), B( 9149), B( 9150) / 1.84, -3.40, .00 / DATA B( 9319), B( 9320), B( 9321) / 1.72, -3.25, .00 / DATA B( 9490), B( 9491), B( 9492) / 1.56, -3.05, .00 / DATA B( 9661), B( 9662), B( 9663) / 1.38, -2.81, .00 / DATA B( 9832), B( 9833), B( 9834) / 1.21, -2.54, .00 / DATA B(10003), B(10004), B(10005) / 1.07, -2.25, .00 / DATA B(10174), B(10175), B(10176) / .95, -1.96, .00 / DATA B(10345), B(10346), B(10347) / .88, -1.66, .00 / DATA B(10516), B(10517), B(10518) / .84, -1.37, .00 / DATA B(10687), B(10688), B(10689) / .82, -1.07, .00 / DATA B(10858), B(10859), B(10860) / .83, -.79, .00 / DATA B(11029), B(11030), B(11031) / .85, -.50, .00 / DATA B(11200), B(11201), B(11202) / .87, -.23, .00 / DATA B(11371), B(11372), B(11373) / .90, .04, .00 / DATA B(11542), B(11543), B(11544) / .93, .29, .00 / DATA B(11713), B(11714), B(11715) / .96, .51, .00 / DATA B(11884), B(11885), B(11886) / .99, .71, .00 / DATA B(12055), B(12056), B(12057) / 1.01, .87, .00 / DATA B(12226), B(12227), B(12228) / 1.03, .99, .00 / DATA B(12397), B(12398), B(12399) / 1.05, 1.06, .00 / DATA B(12568), B(12569), B(12570) / 1.05, 1.10, .00 / DATA B( 88), B( 89), B( 90) / 29.51, -33.57, .00 / DATA B( 259), B( 260), B( 261) / 29.38, -32.95, .00 / DATA B( 430), B( 431), B( 432) / 28.98, -31.93, .00 / DATA B( 601), B( 602), B( 603) / 28.39, -30.48, .00 / DATA B( 772), B( 773), B( 774) / 28.34, -28.31, .00 / DATA B( 943), B( 944), B( 945) / 29.75, -25.43, .00 / DATA B( 1114), B( 1115), B( 1116) / 31.62, -23.07, .00 / DATA B( 1285), B( 1286), B( 1287) / 29.44, -29.17, .00 / DATA B( 1456), B( 1457), B( 1458) / 26.38, -27.65, .00 / DATA B( 1627), B( 1628), B( 1629) / 27.71, -23.75, .00 / DATA B( 1798), B( 1799), B( 1800) / 17.80, -25.01, .00 / DATA B( 1969), B( 1970), B( 1971) / 19.38, -14.23, .00 / DATA B( 2140), B( 2141), B( 2142) / 13.61, -17.30, .00 / DATA B( 2311), B( 2312), B( 2313) / 12.23, -11.56, .00 / DATA B( 2482), B( 2483), B( 2484) / 11.74, -9.78, .00 / DATA B( 2653), B( 2654), B( 2655) / 10.58, -8.13, .00 / DATA B( 2824), B( 2825), B( 2826) / 11.33, -5.98, .00 / DATA B( 2995), B( 2996), B( 2997) / 14.85, -3.60, .00 / DATA B( 3166), B( 3167), B( 3168) / 9.06, -5.60, .00 / DATA B( 3337), B( 3338), B( 3339) / 6.19, -6.69, .00 / DATA B( 3508), B( 3509), B( 3510) / 5.74, -4.89, .00 / DATA B( 3679), B( 3680), B( 3681) / 5.44, -3.80, .00 / DATA B( 3850), B( 3851), B( 3852) / 4.18, -3.28, .00 / DATA B( 4021), B( 4022), B( 4023) / 1.90, -2.61, .00 / DATA B( 4192), B( 4193), B( 4194) / .42, -1.35, .00 / DATA B( 4363), B( 4364), B( 4365) / 1.19, .19, .00 / DATA B( 4534), B( 4535), B( 4536) / 1.74, .97, .00 / DATA B( 4705), B( 4706), B( 4707) / .90, .68, .00 / DATA B( 4876), B( 4877), B( 4878) / -.58, -.35, .00 / DATA B( 5047), B( 5048), B( 5049) / -1.43, -1.76, .00 / DATA B( 5218), B( 5219), B( 5220) / -.15, -3.26, .00 / DATA B( 5389), B( 5390), B( 5391) / 1.52, -4.56, .00 / DATA B( 5560), B( 5561), B( 5562) / 2.43, -5.16, .00 / DATA B( 5731), B( 5732), B( 5733) / 2.05, -4.82, .00 / DATA B( 5902), B( 5903), B( 5904) / 1.17, -4.11, .00 / DATA B( 6073), B( 6074), B( 6075) / .42, -3.51, .00 / DATA B( 6244), B( 6245), B( 6246) / -.02, -3.17, .00 / DATA B( 6415), B( 6416), B( 6417) / -.17, -3.05, .00 / DATA B( 6586), B( 6587), B( 6588) / -.12, -3.03, .00 / DATA B( 6757), B( 6758), B( 6759) / .02, -3.05, .00 / DATA B( 6928), B( 6929), B( 6930) / .19, -3.07, .00 / DATA B( 7099), B( 7100), B( 7101) / .34, -3.07, .00 / DATA B( 7270), B( 7271), B( 7272) / .47, -3.07, .00 / DATA B( 7441), B( 7442), B( 7443) / .57, -3.07, .00 / DATA B( 7612), B( 7613), B( 7614) / .68, -3.08, .00 / DATA B( 7783), B( 7784), B( 7785) / .85, -3.10, .00 / DATA B( 7954), B( 7955), B( 7956) / 1.03, -3.14, .00 / DATA B( 8125), B( 8126), B( 8127) / 1.21, -3.20, .00 / DATA B( 8296), B( 8297), B( 8298) / 1.37, -3.26, .00 / DATA B( 8467), B( 8468), B( 8469) / 1.50, -3.32, .00 / DATA B( 8638), B( 8639), B( 8640) / 1.59, -3.36, .00 / DATA B( 8809), B( 8810), B( 8811) / 1.63, -3.37, .00 / DATA B( 8980), B( 8981), B( 8982) / 1.63, -3.33, .00 / DATA B( 9151), B( 9152), B( 9153) / 1.58, -3.25, .00 / DATA B( 9322), B( 9323), B( 9324) / 1.48, -3.11, .00 / DATA B( 9493), B( 9494), B( 9495) / 1.36, -2.93, .00 / DATA B( 9664), B( 9665), B( 9666) / 1.22, -2.71, .00 / DATA B( 9835), B( 9836), B( 9837) / 1.09, -2.46, .00 / DATA B(10006), B(10007), B(10008) / .96, -2.20, .00 / DATA B(10177), B(10178), B(10179) / .87, -1.92, .00 / DATA B(10348), B(10349), B(10350) / .80, -1.64, .00 / DATA B(10519), B(10520), B(10521) / .75, -1.36, .00 / DATA B(10690), B(10691), B(10692) / .73, -1.08, .00 / DATA B(10861), B(10862), B(10863) / .73, -.80, .00 / DATA B(11032), B(11033), B(11034) / .74, -.53, .00 / DATA B(11203), B(11204), B(11205) / .76, -.26, .00 / DATA B(11374), B(11375), B(11376) / .78, -.01, .00 / DATA B(11545), B(11546), B(11547) / .81, .22, .00 / DATA B(11716), B(11717), B(11718) / .83, .43, .00 / DATA B(11887), B(11888), B(11889) / .85, .61, .00 / DATA B(12058), B(12059), B(12060) / .87, .76, .00 / DATA B(12229), B(12230), B(12231) / .89, .88, .00 / DATA B(12400), B(12401), B(12402) / .90, .95, .00 / DATA B(12571), B(12572), B(12573) / .90, .98, .00 / DATA B( 91), B( 92), B( 93) / 30.23, -33.04, .00 / DATA B( 262), B( 263), B( 264) / 30.19, -32.22, .00 / DATA B( 433), B( 434), B( 435) / 30.06, -30.96, .00 / DATA B( 604), B( 605), B( 606) / 29.26, -29.64, .00 / DATA B( 775), B( 776), B( 777) / 27.90, -27.77, .00 / DATA B( 946), B( 947), B( 948) / 28.35, -24.98, .00 / DATA B( 1117), B( 1118), B( 1119) / 30.15, -23.67, .00 / DATA B( 1288), B( 1289), B( 1290) / 32.28, -26.62, .00 / DATA B( 1459), B( 1460), B( 1461) / 24.25, -25.96, .00 / DATA B( 1630), B( 1631), B( 1632) / 28.70, -22.93, .00 / DATA B( 1801), B( 1802), B( 1803) / 17.07, -22.09, .00 / DATA B( 1972), B( 1973), B( 1974) / 21.25, -18.29, .00 / DATA B( 2143), B( 2144), B( 2145) / 15.46, -16.16, .00 / DATA B( 2314), B( 2315), B( 2316) / 12.00, -12.58, .00 / DATA B( 2485), B( 2486), B( 2487) / 10.51, -10.53, .00 / DATA B( 2656), B( 2657), B( 2658) / 8.51, -7.89, .00 / DATA B( 2827), B( 2828), B( 2829) / 6.59, -6.39, .00 / DATA B( 2998), B( 2999), B( 3000) / 2.80, -6.69, .00 / DATA B( 3169), B( 3170), B( 3171) / 3.23, -4.73, .00 / DATA B( 3340), B( 3341), B( 3342) / 3.50, -5.03, .00 / DATA B( 3511), B( 3512), B( 3513) / 4.29, -3.69, .00 / DATA B( 3682), B( 3683), B( 3684) / 3.86, -2.88, .00 / DATA B( 3853), B( 3854), B( 3855) / 2.35, -3.31, .00 / DATA B( 4024), B( 4025), B( 4026) / .83, -2.81, .00 / DATA B( 4195), B( 4196), B( 4197) / .01, -1.94, .00 / DATA B( 4366), B( 4367), B( 4368) / .17, -.97, .00 / DATA B( 4537), B( 4538), B( 4539) / .33, -.28, .00 / DATA B( 4708), B( 4709), B( 4710) / -.17, -.15, .00 / DATA B( 4879), B( 4880), B( 4881) / -.91, -.63, .00 / DATA B( 5050), B( 5051), B( 5052) / -.98, -1.62, .00 / DATA B( 5221), B( 5222), B( 5223) / .19, -2.91, .00 / DATA B( 5392), B( 5393), B( 5394) / 1.99, -4.27, .00 / DATA B( 5563), B( 5564), B( 5565) / 3.11, -5.04, .00 / DATA B( 5734), B( 5735), B( 5736) / 2.17, -4.37, .00 / DATA B( 5905), B( 5906), B( 5907) / 1.10, -3.60, .00 / DATA B( 6076), B( 6077), B( 6078) / .25, -3.02, .00 / DATA B( 6247), B( 6248), B( 6249) / -.22, -2.77, .00 / DATA B( 6418), B( 6419), B( 6420) / -.36, -2.77, .00 / DATA B( 6589), B( 6590), B( 6591) / -.31, -2.87, .00 / DATA B( 6760), B( 6761), B( 6762) / -.17, -2.97, .00 / DATA B( 6931), B( 6932), B( 6933) / -.02, -3.05, .00 / DATA B( 7102), B( 7103), B( 7104) / .12, -3.08, .00 / DATA B( 7273), B( 7274), B( 7275) / .25, -3.10, .00 / DATA B( 7444), B( 7445), B( 7446) / .35, -3.10, .00 / DATA B( 7615), B( 7616), B( 7617) / .47, -3.10, .00 / DATA B( 7786), B( 7787), B( 7788) / .62, -3.11, .00 / DATA B( 7957), B( 7958), B( 7959) / .78, -3.12, .00 / DATA B( 8128), B( 8129), B( 8130) / .95, -3.15, .00 / DATA B( 8299), B( 8300), B( 8301) / 1.10, -3.18, .00 / DATA B( 8470), B( 8471), B( 8472) / 1.22, -3.21, .00 / DATA B( 8641), B( 8642), B( 8643) / 1.31, -3.22, .00 / DATA B( 8812), B( 8813), B( 8814) / 1.36, -3.21, .00 / DATA B( 8983), B( 8984), B( 8985) / 1.36, -3.16, .00 / DATA B( 9154), B( 9155), B( 9156) / 1.33, -3.08, .00 / DATA B( 9325), B( 9326), B( 9327) / 1.26, -2.95, .00 / DATA B( 9496), B( 9497), B( 9498) / 1.17, -2.78, .00 / DATA B( 9667), B( 9668), B( 9669) / 1.06, -2.58, .00 / DATA B( 9838), B( 9839), B( 9840) / .95, -2.35, .00 / DATA B(10009), B(10010), B(10011) / .85, -2.11, .00 / DATA B(10180), B(10181), B(10182) / .77, -1.85, .00 / DATA B(10351), B(10352), B(10353) / .70, -1.59, .00 / DATA B(10522), B(10523), B(10524) / .66, -1.32, .00 / DATA B(10693), B(10694), B(10695) / .64, -1.06, .00 / DATA B(10864), B(10865), B(10866) / .63, -.79, .00 / DATA B(11035), B(11036), B(11037) / .63, -.53, .00 / DATA B(11206), B(11207), B(11208) / .65, -.28, .00 / DATA B(11377), B(11378), B(11379) / .66, -.05, .00 / DATA B(11548), B(11549), B(11550) / .68, .17, .00 / DATA B(11719), B(11720), B(11721) / .70, .37, .00 / DATA B(11890), B(11891), B(11892) / .72, .54, .00 / DATA B(12061), B(12062), B(12063) / .74, .68, .00 / DATA B(12232), B(12233), B(12234) / .75, .78, .00 / DATA B(12403), B(12404), B(12405) / .76, .85, .00 / DATA B(12574), B(12575), B(12576) / .76, .88, .00 / DATA B( 94), B( 95), B( 96) / 30.82, -32.48, .00 / DATA B( 265), B( 266), B( 267) / 30.85, -31.37, .00 / DATA B( 436), B( 437), B( 438) / 31.00, -29.55, .00 / DATA B( 607), B( 608), B( 609) / 31.10, -28.17, .00 / DATA B( 778), B( 779), B( 780) / 27.40, -28.00, .00 / DATA B( 949), B( 950), B( 951) / 27.01, -25.20, .00 / DATA B( 1120), B( 1121), B( 1122) / 29.86, -25.68, .00 / DATA B( 1291), B( 1292), B( 1293) / 28.92, -22.42, .00 / DATA B( 1462), B( 1463), B( 1464) / 31.11, -22.82, .00 / DATA B( 1633), B( 1634), B( 1635) / 20.90, -22.05, .00 / DATA B( 1804), B( 1805), B( 1806) / 17.52, -17.26, .00 / DATA B( 1975), B( 1976), B( 1977) / 11.45, -11.56, .00 / DATA B( 2146), B( 2147), B( 2148) / 13.60, -14.78, .00 / DATA B( 2317), B( 2318), B( 2319) / 12.39, -16.87, .00 / DATA B( 2488), B( 2489), B( 2490) / 10.14, -9.44, .00 / DATA B( 2659), B( 2660), B( 2661) / 6.71, -7.40, .00 / DATA B( 2830), B( 2831), B( 2832) / 3.00, -6.78, .00 / DATA B( 3001), B( 3002), B( 3003) / -.04, -5.61, .00 / DATA B( 3172), B( 3173), B( 3174) / .40, -2.70, .00 / DATA B( 3343), B( 3344), B( 3345) / 4.60, -.81, .00 / DATA B( 3514), B( 3515), B( 3516) / 4.44, -2.53, .00 / DATA B( 3685), B( 3686), B( 3687) / 2.20, -3.00, .00 / DATA B( 3856), B( 3857), B( 3858) / .95, -3.59, .00 / DATA B( 4027), B( 4028), B( 4029) / -.16, -3.22, .00 / DATA B( 4198), B( 4199), B( 4200) / -.57, -2.62, .00 / DATA B( 4369), B( 4370), B( 4371) / -.33, -2.05, .00 / DATA B( 4540), B( 4541), B( 4542) / -.32, -1.38, .00 / DATA B( 4711), B( 4712), B( 4713) / -.69, -.88, .00 / DATA B( 4882), B( 4883), B( 4884) / -.95, -.88, .00 / DATA B( 5053), B( 5054), B( 5055) / -.66, -1.38, .00 / DATA B( 5224), B( 5225), B( 5226) / .37, -2.33, .00 / DATA B( 5395), B( 5396), B( 5397) / 1.70, -3.41, .00 / DATA B( 5566), B( 5567), B( 5568) / 2.34, -3.98, .00 / DATA B( 5737), B( 5738), B( 5739) / 1.78, -3.64, .00 / DATA B( 5908), B( 5909), B( 5910) / .73, -2.94, .00 / DATA B( 6079), B( 6080), B( 6081) / -.09, -2.46, .00 / DATA B( 6250), B( 6251), B( 6252) / -.44, -2.42, .00 / DATA B( 6421), B( 6422), B( 6423) / -.48, -2.60, .00 / DATA B( 6592), B( 6593), B( 6594) / -.39, -2.81, .00 / DATA B( 6763), B( 6764), B( 6765) / -.25, -2.97, .00 / DATA B( 6934), B( 6935), B( 6936) / -.11, -3.07, .00 / DATA B( 7105), B( 7106), B( 7107) / .01, -3.12, .00 / DATA B( 7276), B( 7277), B( 7278) / .12, -3.13, .00 / DATA B( 7447), B( 7448), B( 7449) / .22, -3.12, .00 / DATA B( 7618), B( 7619), B( 7620) / .32, -3.10, .00 / DATA B( 7789), B( 7790), B( 7791) / .45, -3.08, .00 / DATA B( 7960), B( 7961), B( 7962) / .59, -3.08, .00 / DATA B( 8131), B( 8132), B( 8133) / .73, -3.08, .00 / DATA B( 8302), B( 8303), B( 8304) / .86, -3.08, .00 / DATA B( 8473), B( 8474), B( 8475) / .97, -3.08, .00 / DATA B( 8644), B( 8645), B( 8646) / 1.05, -3.07, .00 / DATA B( 8815), B( 8816), B( 8817) / 1.10, -3.04, .00 / DATA B( 8986), B( 8987), B( 8988) / 1.12, -2.98, .00 / DATA B( 9157), B( 9158), B( 9159) / 1.10, -2.89, .00 / DATA B( 9328), B( 9329), B( 9330) / 1.05, -2.77, .00 / DATA B( 9499), B( 9500), B( 9501) / .98, -2.61, .00 / DATA B( 9670), B( 9671), B( 9672) / .90, -2.43, .00 / DATA B( 9841), B( 9842), B( 9843) / .81, -2.22, .00 / DATA B(10012), B(10013), B(10014) / .73, -1.99, .00 / DATA B(10183), B(10184), B(10185) / .66, -1.76, .00 / DATA B(10354), B(10355), B(10356) / .60, -1.51, .00 / DATA B(10525), B(10526), B(10527) / .56, -1.26, .00 / DATA B(10696), B(10697), B(10698) / .54, -1.01, .00 / DATA B(10867), B(10868), B(10869) / .53, -.76, .00 / DATA B(11038), B(11039), B(11040) / .53, -.52, .00 / DATA B(11209), B(11210), B(11211) / .53, -.29, .00 / DATA B(11380), B(11381), B(11382) / .55, -.07, .00 / DATA B(11551), B(11552), B(11553) / .56, .14, .00 / DATA B(11722), B(11723), B(11724) / .58, .32, .00 / DATA B(11893), B(11894), B(11895) / .59, .48, .00 / DATA B(12064), B(12065), B(12066) / .61, .61, .00 / DATA B(12235), B(12236), B(12237) / .62, .71, .00 / DATA B(12406), B(12407), B(12408) / .62, .77, .00 / DATA B(12577), B(12578), B(12579) / .63, .80, .00 / DATA B( 97), B( 98), B( 99) / 31.09, -31.84, .00 / DATA B( 268), B( 269), B( 270) / 30.98, -30.51, .00 / DATA B( 439), B( 440), B( 441) / 31.12, -28.01, .00 / DATA B( 610), B( 611), B( 612) / 30.96, -25.04, .00 / DATA B( 781), B( 782), B( 783) / 29.71, -24.85, .00 / DATA B( 952), B( 953), B( 954) / 30.29, -24.78, .00 / DATA B( 1123), B( 1124), B( 1125) / 30.52, -29.92, .00 / DATA B( 1294), B( 1295), B( 1296) / 25.48, -21.62, .00 / DATA B( 1465), B( 1466), B( 1467) / 24.38, -21.12, .00 / DATA B( 1636), B( 1637), B( 1638) / 20.20, -14.95, .00 / DATA B( 1807), B( 1808), B( 1809) / 13.82, -14.79, .00 / DATA B( 1978), B( 1979), B( 1980) / 11.60, -12.28, .00 / DATA B( 2149), B( 2150), B( 2151) / 10.00, -.75, .00 / DATA B( 2320), B( 2321), B( 2322) / 12.04, -11.19, .00 / DATA B( 2491), B( 2492), B( 2493) / 9.71, -2.86, .00 / DATA B( 2662), B( 2663), B( 2664) / 5.42, -7.15, .00 / DATA B( 2833), B( 2834), B( 2835) / 2.29, -5.92, .00 / DATA B( 3004), B( 3005), B( 3006) / -.15, -4.51, .00 / DATA B( 3175), B( 3176), B( 3177) / 1.35, -3.71, .00 / DATA B( 3346), B( 3347), B( 3348) / 6.20, -2.49, .00 / DATA B( 3517), B( 3518), B( 3519) / 4.33, -2.48, .00 / DATA B( 3688), B( 3689), B( 3690) / 2.96, -3.06, .00 / DATA B( 3859), B( 3860), B( 3861) / -.14, -3.73, .00 / DATA B( 4030), B( 4031), B( 4032) / -1.11, -3.51, .00 / DATA B( 4201), B( 4202), B( 4203) / -1.21, -3.10, .00 / DATA B( 4372), B( 4373), B( 4374) / -.95, -2.67, .00 / DATA B( 4543), B( 4544), B( 4545) / -.86, -2.07, .00 / DATA B( 4714), B( 4715), B( 4716) / -.98, -1.45, .00 / DATA B( 4885), B( 4886), B( 4887) / -.97, -1.07, .00 / DATA B( 5056), B( 5057), B( 5058) / -.57, -1.08, .00 / DATA B( 5227), B( 5228), B( 5229) / .27, -1.65, .00 / DATA B( 5398), B( 5399), B( 5400) / 1.19, -2.55, .00 / DATA B( 5569), B( 5570), B( 5571) / 1.59, -3.11, .00 / DATA B( 5740), B( 5741), B( 5742) / 1.17, -2.97, .00 / DATA B( 5911), B( 5912), B( 5913) / .24, -2.37, .00 / DATA B( 6082), B( 6083), B( 6084) / -.46, -2.02, .00 / DATA B( 6253), B( 6254), B( 6255) / -.55, -2.28, .00 / DATA B( 6424), B( 6425), B( 6426) / -.47, -2.62, .00 / DATA B( 6595), B( 6596), B( 6597) / -.34, -2.90, .00 / DATA B( 6766), B( 6767), B( 6768) / -.21, -3.08, .00 / DATA B( 6937), B( 6938), B( 6939) / -.10, -3.16, .00 / DATA B( 7108), B( 7109), B( 7110) / -.01, -3.18, .00 / DATA B( 7279), B( 7280), B( 7281) / .07, -3.16, .00 / DATA B( 7450), B( 7451), B( 7452) / .14, -3.12, .00 / DATA B( 7621), B( 7622), B( 7623) / .23, -3.08, .00 / DATA B( 7792), B( 7793), B( 7794) / .33, -3.04, .00 / DATA B( 7963), B( 7964), B( 7965) / .44, -3.00, .00 / DATA B( 8134), B( 8135), B( 8136) / .55, -2.97, .00 / DATA B( 8305), B( 8306), B( 8307) / .66, -2.95, .00 / DATA B( 8476), B( 8477), B( 8478) / .76, -2.92, .00 / DATA B( 8647), B( 8648), B( 8649) / .83, -2.89, .00 / DATA B( 8818), B( 8819), B( 8820) / .88, -2.84, .00 / DATA B( 8989), B( 8990), B( 8991) / .90, -2.78, .00 / DATA B( 9160), B( 9161), B( 9162) / .89, -2.68, .00 / DATA B( 9331), B( 9332), B( 9333) / .85, -2.57, .00 / DATA B( 9502), B( 9503), B( 9504) / .80, -2.42, .00 / DATA B( 9673), B( 9674), B( 9675) / .74, -2.25, .00 / DATA B( 9844), B( 9845), B( 9846) / .67, -2.06, .00 / DATA B(10015), B(10016), B(10017) / .60, -1.85, .00 / DATA B(10186), B(10187), B(10188) / .54, -1.63, .00 / DATA B(10357), B(10358), B(10359) / .50, -1.41, .00 / DATA B(10528), B(10529), B(10530) / .46, -1.18, .00 / DATA B(10699), B(10700), B(10701) / .44, -.94, .00 / DATA B(10870), B(10871), B(10872) / .42, -.71, .00 / DATA B(11041), B(11042), B(11043) / .42, -.49, .00 / DATA B(11212), B(11213), B(11214) / .42, -.27, .00 / DATA B(11383), B(11384), B(11385) / .43, -.07, .00 / DATA B(11554), B(11555), B(11556) / .44, .12, .00 / DATA B(11725), B(11726), B(11727) / .46, .29, .00 / DATA B(11896), B(11897), B(11898) / .47, .44, .00 / DATA B(12067), B(12068), B(12069) / .48, .56, .00 / DATA B(12238), B(12239), B(12240) / .49, .65, .00 / DATA B(12409), B(12410), B(12411) / .49, .71, .00 / DATA B(12580), B(12581), B(12582) / .49, .73, .00 / DATA B( 100), B( 101), B( 102) / 31.23, -30.53, .00 / DATA B( 271), B( 272), B( 273) / 30.54, -29.61, .00 / DATA B( 442), B( 443), B( 444) / 30.40, -26.90, .00 / DATA B( 613), B( 614), B( 615) / 30.48, -23.87, .00 / DATA B( 784), B( 785), B( 786) / 30.20, -24.53, .00 / DATA B( 955), B( 956), B( 957) / 28.77, -24.96, .00 / DATA B( 1126), B( 1127), B( 1128) / 25.04, -23.26, .00 / DATA B( 1297), B( 1298), B( 1299) / 30.96, -22.85, .00 / DATA B( 1468), B( 1469), B( 1470) / 24.14, -14.52, .00 / DATA B( 1639), B( 1640), B( 1641) / 25.25, -7.86, .00 / DATA B( 1810), B( 1811), B( 1812) / 24.41, -8.77, .00 / DATA B( 1981), B( 1982), B( 1983) / 13.08, -16.60, .00 / DATA B( 2152), B( 2153), B( 2154) / 6.36, -16.71, .00 / DATA B( 2323), B( 2324), B( 2325) / 7.45, -.74, .00 / DATA B( 2494), B( 2495), B( 2496) / 6.86, -4.64, .00 / DATA B( 2665), B( 2666), B( 2667) / 5.28, -3.85, .00 / DATA B( 2836), B( 2837), B( 2838) / 3.32, -3.84, .00 / DATA B( 3007), B( 3008), B( 3009) / 1.03, -3.42, .00 / DATA B( 3178), B( 3179), B( 3180) / 2.98, -2.28, .00 / DATA B( 3349), B( 3350), B( 3351) / 3.92, -4.35, .00 / DATA B( 3520), B( 3521), B( 3522) / .59, -3.88, .00 / DATA B( 3691), B( 3692), B( 3693) / -.62, -4.79, .00 / DATA B( 3862), B( 3863), B( 3864) / -1.50, -3.88, .00 / DATA B( 4033), B( 4034), B( 4035) / -1.83, -3.57, .00 / DATA B( 4204), B( 4205), B( 4206) / -1.74, -3.32, .00 / DATA B( 4375), B( 4376), B( 4377) / -1.49, -3.00, .00 / DATA B( 4546), B( 4547), B( 4548) / -1.31, -2.53, .00 / DATA B( 4717), B( 4718), B( 4719) / -1.21, -1.94, .00 / DATA B( 4888), B( 4889), B( 4890) / -1.01, -1.38, .00 / DATA B( 5059), B( 5060), B( 5061) / -.60, -.96, .00 / DATA B( 5230), B( 5231), B( 5232) / .08, -1.20, .00 / DATA B( 5401), B( 5402), B( 5403) / .79, -2.16, .00 / DATA B( 5572), B( 5573), B( 5574) / 1.09, -2.75, .00 / DATA B( 5743), B( 5744), B( 5745) / .80, -2.79, .00 / DATA B( 5914), B( 5915), B( 5916) / .08, -2.38, .00 / DATA B( 6085), B( 6086), B( 6087) / -.44, -2.16, .00 / DATA B( 6256), B( 6257), B( 6258) / -.40, -2.53, .00 / DATA B( 6427), B( 6428), B( 6429) / -.27, -2.90, .00 / DATA B( 6598), B( 6599), B( 6600) / -.15, -3.15, .00 / DATA B( 6769), B( 6770), B( 6771) / -.06, -3.27, .00 / DATA B( 6940), B( 6941), B( 6942) / .00, -3.30, .00 / DATA B( 7111), B( 7112), B( 7113) / .05, -3.26, .00 / DATA B( 7282), B( 7283), B( 7284) / .08, -3.19, .00 / DATA B( 7453), B( 7454), B( 7455) / .12, -3.11, .00 / DATA B( 7624), B( 7625), B( 7626) / .18, -3.03, .00 / DATA B( 7795), B( 7796), B( 7797) / .24, -2.96, .00 / DATA B( 7966), B( 7967), B( 7968) / .33, -2.90, .00 / DATA B( 8137), B( 8138), B( 8139) / .41, -2.84, .00 / DATA B( 8308), B( 8309), B( 8310) / .50, -2.79, .00 / DATA B( 8479), B( 8480), B( 8481) / .58, -2.74, .00 / DATA B( 8650), B( 8651), B( 8652) / .64, -2.69, .00 / DATA B( 8821), B( 8822), B( 8823) / .68, -2.63, .00 / DATA B( 8992), B( 8993), B( 8994) / .70, -2.56, .00 / DATA B( 9163), B( 9164), B( 9165) / .70, -2.46, .00 / DATA B( 9334), B( 9335), B( 9336) / .67, -2.35, .00 / DATA B( 9505), B( 9506), B( 9507) / .63, -2.21, .00 / DATA B( 9676), B( 9677), B( 9678) / .58, -2.06, .00 / DATA B( 9847), B( 9848), B( 9849) / .53, -1.88, .00 / DATA B(10018), B(10019), B(10020) / .48, -1.69, .00 / DATA B(10189), B(10190), B(10191) / .43, -1.49, .00 / DATA B(10360), B(10361), B(10362) / .39, -1.28, .00 / DATA B(10531), B(10532), B(10533) / .35, -1.07, .00 / DATA B(10702), B(10703), B(10704) / .33, -.86, .00 / DATA B(10873), B(10874), B(10875) / .32, -.65, .00 / DATA B(11044), B(11045), B(11046) / .31, -.44, .00 / DATA B(11215), B(11216), B(11217) / .31, -.24, .00 / DATA B(11386), B(11387), B(11388) / .32, -.05, .00 / DATA B(11557), B(11558), B(11559) / .33, .13, .00 / DATA B(11728), B(11729), B(11730) / .34, .28, .00 / DATA B(11899), B(11900), B(11901) / .35, .41, .00 / DATA B(12070), B(12071), B(12072) / .36, .52, .00 / DATA B(12241), B(12242), B(12243) / .36, .61, .00 / DATA B(12412), B(12413), B(12414) / .37, .66, .00 / DATA B(12583), B(12584), B(12585) / .37, .68, .00 / DATA B( 103), B( 104), B( 105) / 31.41, -27.25, .00 / DATA B( 274), B( 275), B( 276) / 30.26, -27.32, .00 / DATA B( 445), B( 446), B( 447) / 29.31, -26.55, .00 / DATA B( 616), B( 617), B( 618) / 29.22, -21.41, .00 / DATA B( 787), B( 788), B( 789) / 29.90, -26.63, .00 / DATA B( 958), B( 959), B( 960) / 27.16, -27.62, .00 / DATA B( 1129), B( 1130), B( 1131) / 28.00, -24.00, .00 / DATA B( 1300), B( 1301), B( 1302) / 17.75, -18.01, .00 / DATA B( 1471), B( 1472), B( 1473) / 20.88, -12.82, .00 / DATA B( 1642), B( 1643), B( 1644) / 23.74, -7.81, .00 / DATA B( 1813), B( 1814), B( 1815) / 11.15, .69, .00 / DATA B( 1984), B( 1985), B( 1986) / 25.68, -9.90, .00 / DATA B( 2155), B( 2156), B( 2157) / 7.14, -17.49, .00 / DATA B( 2326), B( 2327), B( 2328) / 1.41, 5.15, .00 / DATA B( 2497), B( 2498), B( 2499) / 2.95, 6.81, .00 / DATA B( 2668), B( 2669), B( 2670) / 5.78, 2.40, .00 / DATA B( 2839), B( 2840), B( 2841) / 5.97, -.79, .00 / DATA B( 3010), B( 3011), B( 3012) / -.57, -3.62, .00 / DATA B( 3181), B( 3182), B( 3183) / 1.43, -5.24, .00 / DATA B( 3352), B( 3353), B( 3354) / 2.52, -5.26, .00 / DATA B( 3523), B( 3524), B( 3525) / 1.07, -3.58, .00 / DATA B( 3694), B( 3695), B( 3696) / -.51, -4.20, .00 / DATA B( 3865), B( 3866), B( 3867) / -1.79, -3.61, .00 / DATA B( 4036), B( 4037), B( 4038) / -1.97, -3.43, .00 / DATA B( 4207), B( 4208), B( 4209) / -1.92, -3.34, .00 / DATA B( 4378), B( 4379), B( 4380) / -1.76, -3.22, .00 / DATA B( 4549), B( 4550), B( 4551) / -1.57, -2.95, .00 / DATA B( 4720), B( 4721), B( 4722) / -1.34, -2.50, .00 / DATA B( 4891), B( 4892), B( 4893) / -1.03, -1.98, .00 / DATA B( 5062), B( 5063), B( 5064) / -.56, -1.60, .00 / DATA B( 5233), B( 5234), B( 5235) / .05, -1.75, .00 / DATA B( 5404), B( 5405), B( 5406) / .63, -2.40, .00 / DATA B( 5575), B( 5576), B( 5577) / .92, -2.97, .00 / DATA B( 5746), B( 5747), B( 5748) / .80, -3.18, .00 / DATA B( 5917), B( 5918), B( 5919) / .41, -3.06, .00 / DATA B( 6088), B( 6089), B( 6090) / .09, -2.97, .00 / DATA B( 6259), B( 6260), B( 6261) / .05, -3.15, .00 / DATA B( 6430), B( 6431), B( 6432) / .12, -3.40, .00 / DATA B( 6601), B( 6602), B( 6603) / .18, -3.52, .00 / DATA B( 6772), B( 6773), B( 6774) / .19, -3.52, .00 / DATA B( 6943), B( 6944), B( 6945) / .17, -3.44, .00 / DATA B( 7114), B( 7115), B( 7116) / .15, -3.33, .00 / DATA B( 7285), B( 7286), B( 7287) / .14, -3.20, .00 / DATA B( 7456), B( 7457), B( 7458) / .14, -3.08, .00 / DATA B( 7627), B( 7628), B( 7629) / .16, -2.96, .00 / DATA B( 7798), B( 7799), B( 7800) / .19, -2.85, .00 / DATA B( 7969), B( 7970), B( 7971) / .24, -2.76, .00 / DATA B( 8140), B( 8141), B( 8142) / .30, -2.68, .00 / DATA B( 8311), B( 8312), B( 8313) / .36, -2.60, .00 / DATA B( 8482), B( 8483), B( 8484) / .42, -2.54, .00 / DATA B( 8653), B( 8654), B( 8655) / .47, -2.47, .00 / DATA B( 8824), B( 8825), B( 8826) / .50, -2.40, .00 / DATA B( 8995), B( 8996), B( 8997) / .52, -2.32, .00 / DATA B( 9166), B( 9167), B( 9168) / .52, -2.22, .00 / DATA B( 9337), B( 9338), B( 9339) / .50, -2.11, .00 / DATA B( 9508), B( 9509), B( 9510) / .47, -1.99, .00 / DATA B( 9679), B( 9680), B( 9681) / .44, -1.84, .00 / DATA B( 9850), B( 9851), B( 9852) / .39, -1.69, .00 / DATA B(10021), B(10022), B(10023) / .35, -1.51, .00 / DATA B(10192), B(10193), B(10194) / .31, -1.33, .00 / DATA B(10363), B(10364), B(10365) / .27, -1.14, .00 / DATA B(10534), B(10535), B(10536) / .25, -.95, .00 / DATA B(10705), B(10706), B(10707) / .23, -.76, .00 / DATA B(10876), B(10877), B(10878) / .21, -.56, .00 / DATA B(11047), B(11048), B(11049) / .21, -.37, .00 / DATA B(11218), B(11219), B(11220) / .21, -.19, .00 / DATA B(11389), B(11390), B(11391) / .21, -.02, .00 / DATA B(11560), B(11561), B(11562) / .22, .14, .00 / DATA B(11731), B(11732), B(11733) / .22, .28, .00 / DATA B(11902), B(11903), B(11904) / .23, .41, .00 / DATA B(12073), B(12074), B(12075) / .24, .50, .00 / DATA B(12244), B(12245), B(12246) / .24, .58, .00 / DATA B(12415), B(12416), B(12417) / .25, .63, .00 / DATA B(12586), B(12587), B(12588) / .25, .65, .00 / DATA B( 106), B( 107), B( 108) / 29.46, -25.23, .00 / DATA B( 277), B( 278), B( 279) / 28.70, -25.58, .00 / DATA B( 448), B( 449), B( 450) / 28.21, -25.56, .00 / DATA B( 619), B( 620), B( 621) / 28.47, -24.94, .00 / DATA B( 790), B( 791), B( 792) / 26.80, -27.34, .00 / DATA B( 961), B( 962), B( 963) / 25.98, -26.51, .00 / DATA B( 1132), B( 1133), B( 1134) / 21.09, -20.04, .00 / DATA B( 1303), B( 1304), B( 1305) / 18.92, -16.12, .00 / DATA B( 1474), B( 1475), B( 1476) / 15.06, -10.37, .00 / DATA B( 1645), B( 1646), B( 1647) / 3.28, -7.18, .00 / DATA B( 1816), B( 1817), B( 1818) / 25.96, 2.36, .00 / DATA B( 1987), B( 1988), B( 1989) / 8.87, -.92, .00 / DATA B( 2158), B( 2159), B( 2160) / -2.53, 13.18, .00 / DATA B( 2329), B( 2330), B( 2331) / -5.47, 22.38, .00 / DATA B( 2500), B( 2501), B( 2502) / -.17, 14.28, .00 / DATA B( 2671), B( 2672), B( 2673) / 5.03, 7.61, .00 / DATA B( 2842), B( 2843), B( 2844) / 8.83, 2.14, .00 / DATA B( 3013), B( 3014), B( 3015) / -4.38, -3.68, .00 / DATA B( 3184), B( 3185), B( 3186) / -.63, -5.09, .00 / DATA B( 3355), B( 3356), B( 3357) / 2.61, -6.19, .00 / DATA B( 3526), B( 3527), B( 3528) / 1.20, -3.35, .00 / DATA B( 3697), B( 3698), B( 3699) / .94, -2.83, .00 / DATA B( 3868), B( 3869), B( 3870) / -.67, -3.19, .00 / DATA B( 4039), B( 4040), B( 4041) / -1.44, -3.14, .00 / DATA B( 4210), B( 4211), B( 4212) / -1.71, -3.23, .00 / DATA B( 4381), B( 4382), B( 4383) / -1.75, -3.38, .00 / DATA B( 4552), B( 4553), B( 4554) / -1.63, -3.39, .00 / DATA B( 4723), B( 4724), B( 4725) / -1.38, -3.16, .00 / DATA B( 4894), B( 4895), B( 4896) / -.98, -2.80, .00 / DATA B( 5065), B( 5066), B( 5067) / -.46, -2.56, .00 / DATA B( 5236), B( 5237), B( 5238) / .14, -2.68, .00 / DATA B( 5407), B( 5408), B( 5409) / .67, -3.12, .00 / DATA B( 5578), B( 5579), B( 5580) / 1.00, -3.59, .00 / DATA B( 5749), B( 5750), B( 5751) / 1.06, -3.90, .00 / DATA B( 5920), B( 5921), B( 5922) / .91, -3.92, .00 / DATA B( 6091), B( 6092), B( 6093) / .70, -3.81, .00 / DATA B( 6262), B( 6263), B( 6264) / .64, -3.88, .00 / DATA B( 6433), B( 6434), B( 6435) / .63, -3.97, .00 / DATA B( 6604), B( 6605), B( 6606) / .57, -3.92, .00 / DATA B( 6775), B( 6776), B( 6777) / .47, -3.75, .00 / DATA B( 6946), B( 6947), B( 6948) / .37, -3.55, .00 / DATA B( 7117), B( 7118), B( 7119) / .28, -3.36, .00 / DATA B( 7288), B( 7289), B( 7290) / .22, -3.17, .00 / DATA B( 7459), B( 7460), B( 7461) / .17, -3.00, .00 / DATA B( 7630), B( 7631), B( 7632) / .15, -2.84, .00 / DATA B( 7801), B( 7802), B( 7803) / .16, -2.71, .00 / DATA B( 7972), B( 7973), B( 7974) / .18, -2.59, .00 / DATA B( 8143), B( 8144), B( 8145) / .21, -2.48, .00 / DATA B( 8314), B( 8315), B( 8316) / .25, -2.39, .00 / DATA B( 8485), B( 8486), B( 8487) / .29, -2.31, .00 / DATA B( 8656), B( 8657), B( 8658) / .32, -2.23, .00 / DATA B( 8827), B( 8828), B( 8829) / .35, -2.15, .00 / DATA B( 8998), B( 8999), B( 9000) / .36, -2.06, .00 / DATA B( 9169), B( 9170), B( 9171) / .36, -1.97, .00 / DATA B( 9340), B( 9341), B( 9342) / .35, -1.87, .00 / DATA B( 9511), B( 9512), B( 9513) / .33, -1.75, .00 / DATA B( 9682), B( 9683), B( 9684) / .30, -1.62, .00 / DATA B( 9853), B( 9854), B( 9855) / .26, -1.48, .00 / DATA B(10024), B(10025), B(10026) / .23, -1.32, .00 / DATA B(10195), B(10196), B(10197) / .19, -1.16, .00 / DATA B(10366), B(10367), B(10368) / .16, -.99, .00 / DATA B(10537), B(10538), B(10539) / .14, -.81, .00 / DATA B(10708), B(10709), B(10710) / .12, -.64, .00 / DATA B(10879), B(10880), B(10881) / .11, -.46, .00 / DATA B(11050), B(11051), B(11052) / .10, -.29, .00 / DATA B(11221), B(11222), B(11223) / .10, -.13, .00 / DATA B(11392), B(11393), B(11394) / .10, .03, .00 / DATA B(11563), B(11564), B(11565) / .11, .17, .00 / DATA B(11734), B(11735), B(11736) / .11, .30, .00 / DATA B(11905), B(11906), B(11907) / .12, .41, .00 / DATA B(12076), B(12077), B(12078) / .12, .50, .00 / DATA B(12247), B(12248), B(12249) / .13, .57, .00 / DATA B(12418), B(12419), B(12420) / .13, .61, .00 / DATA B(12589), B(12590), B(12591) / .13, .63, .00 / DATA B( 109), B( 110), B( 111) / 28.05, -24.90, .00 / DATA B( 280), B( 281), B( 282) / 27.11, -24.43, .00 / DATA B( 451), B( 452), B( 453) / 26.59, -26.48, .00 / DATA B( 622), B( 623), B( 624) / 27.23, -26.89, .00 / DATA B( 793), B( 794), B( 795) / 27.03, -25.05, .00 / DATA B( 964), B( 965), B( 966) / 21.12, -23.06, .00 / DATA B( 1135), B( 1136), B( 1137) / 18.88, -12.87, .00 / DATA B( 1306), B( 1307), B( 1308) / 12.86, -10.22, .00 / DATA B( 1477), B( 1478), B( 1479) / 3.17, -3.82, .00 / DATA B( 1648), B( 1649), B( 1650) / 2.61, -.74, .00 / DATA B( 1819), B( 1820), B( 1821) / 1.97, 5.34, .00 / DATA B( 1990), B( 1991), B( 1992) / -6.36, 11.05, .00 / DATA B( 2161), B( 2162), B( 2163) / -.40, -4.93, .00 / DATA B( 2332), B( 2333), B( 2334) / -4.33, 12.92, .00 / DATA B( 2503), B( 2504), B( 2505) / -1.52, 13.84, .00 / DATA B( 2674), B( 2675), B( 2676) / 2.88, 8.65, .00 / DATA B( 2845), B( 2846), B( 2847) / 3.59, 3.13, .00 / DATA B( 3016), B( 3017), B( 3018) / -.13, -1.33, .00 / DATA B( 3187), B( 3188), B( 3189) / -.21, -3.74, .00 / DATA B( 3358), B( 3359), B( 3360) / 2.05, -6.03, .00 / DATA B( 3529), B( 3530), B( 3531) / 2.54, -6.37, .00 / DATA B( 3700), B( 3701), B( 3702) / 1.49, -3.98, .00 / DATA B( 3871), B( 3872), B( 3873) / .33, -2.97, .00 / DATA B( 4042), B( 4043), B( 4044) / -.67, -2.76, .00 / DATA B( 4213), B( 4214), B( 4215) / -1.25, -2.98, .00 / DATA B( 4384), B( 4385), B( 4386) / -1.54, -3.45, .00 / DATA B( 4555), B( 4556), B( 4557) / -1.57, -3.82, .00 / DATA B( 4726), B( 4727), B( 4728) / -1.33, -3.81, .00 / DATA B( 4897), B( 4898), B( 4899) / -.89, -3.60, .00 / DATA B( 5068), B( 5069), B( 5070) / -.31, -3.51, .00 / DATA B( 5239), B( 5240), B( 5241) / .31, -3.65, .00 / DATA B( 5410), B( 5411), B( 5412) / .84, -3.96, .00 / DATA B( 5581), B( 5582), B( 5583) / 1.20, -4.28, .00 / DATA B( 5752), B( 5753), B( 5754) / 1.36, -4.51, .00 / DATA B( 5923), B( 5924), B( 5925) / 1.33, -4.50, .00 / DATA B( 6094), B( 6095), B( 6096) / 1.20, -4.32, .00 / DATA B( 6265), B( 6266), B( 6267) / 1.17, -4.39, .00 / DATA B( 6436), B( 6437), B( 6438) / 1.13, -4.42, .00 / DATA B( 6607), B( 6608), B( 6609) / .93, -4.16, .00 / DATA B( 6778), B( 6779), B( 6780) / .73, -3.85, .00 / DATA B( 6949), B( 6950), B( 6951) / .55, -3.57, .00 / DATA B( 7120), B( 7121), B( 7122) / .41, -3.31, .00 / DATA B( 7291), B( 7292), B( 7293) / .29, -3.08, .00 / DATA B( 7462), B( 7463), B( 7464) / .21, -2.87, .00 / DATA B( 7633), B( 7634), B( 7635) / .16, -2.68, .00 / DATA B( 7804), B( 7805), B( 7806) / .13, -2.52, .00 / DATA B( 7975), B( 7976), B( 7977) / .12, -2.38, .00 / DATA B( 8146), B( 8147), B( 8148) / .13, -2.25, .00 / DATA B( 8317), B( 8318), B( 8319) / .15, -2.15, .00 / DATA B( 8488), B( 8489), B( 8490) / .17, -2.05, .00 / DATA B( 8659), B( 8660), B( 8661) / .19, -1.96, .00 / DATA B( 8830), B( 8831), B( 8832) / .21, -1.88, .00 / DATA B( 9001), B( 9002), B( 9003) / .22, -1.79, .00 / DATA B( 9172), B( 9173), B( 9174) / .21, -1.70, .00 / DATA B( 9343), B( 9344), B( 9345) / .20, -1.60, .00 / DATA B( 9514), B( 9515), B( 9516) / .19, -1.50, .00 / DATA B( 9685), B( 9686), B( 9687) / .16, -1.38, .00 / DATA B( 9856), B( 9857), B( 9858) / .14, -1.25, .00 / DATA B(10027), B(10028), B(10029) / .11, -1.11, .00 / DATA B(10198), B(10199), B(10200) / .08, -.97, .00 / DATA B(10369), B(10370), B(10371) / .05, -.82, .00 / DATA B(10540), B(10541), B(10542) / .03, -.66, .00 / DATA B(10711), B(10712), B(10713) / .02, -.51, .00 / DATA B(10882), B(10883), B(10884) / .01, -.35, .00 / DATA B(11053), B(11054), B(11055) / .00, -.20, .00 / DATA B(11224), B(11225), B(11226) / .00, -.05, .00 / DATA B(11395), B(11396), B(11397) / .00, .09, .00 / DATA B(11566), B(11567), B(11568) / .00, .22, .00 / DATA B(11737), B(11738), B(11739) / .00, .33, .00 / DATA B(11908), B(11909), B(11910) / .01, .43, .00 / DATA B(12079), B(12080), B(12081) / .01, .51, .00 / DATA B(12250), B(12251), B(12252) / .02, .57, .00 / DATA B(12421), B(12422), B(12423) / .02, .61, .00 / DATA B(12592), B(12593), B(12594) / .02, .62, .00 / DATA B( 112), B( 113), B( 114) / 28.25, -27.06, .00 / DATA B( 283), B( 284), B( 285) / 27.34, -26.65, .00 / DATA B( 454), B( 455), B( 456) / 26.18, -26.56, .00 / DATA B( 625), B( 626), B( 627) / 26.24, -22.61, .00 / DATA B( 796), B( 797), B( 798) / 27.10, -20.70, .00 / DATA B( 967), B( 968), B( 969) / 23.42, -15.09, .00 / DATA B( 1138), B( 1139), B( 1140) / 11.20, -9.78, .00 / DATA B( 1309), B( 1310), B( 1311) / 5.72, -11.06, .00 / DATA B( 1480), B( 1481), B( 1482) / 1.12, -.70, .00 / DATA B( 1651), B( 1652), B( 1653) / 3.13, 1.76, .00 / DATA B( 1822), B( 1823), B( 1824) / 5.34, 1.44, .00 / DATA B( 1993), B( 1994), B( 1995) / 1.70, .84, .00 / DATA B( 2164), B( 2165), B( 2166) / -3.44, 1.95, .00 / DATA B( 2335), B( 2336), B( 2337) / -3.07, 5.69, .00 / DATA B( 2506), B( 2507), B( 2508) / -1.55, 8.57, .00 / DATA B( 2677), B( 2678), B( 2679) / .88, 6.34, .00 / DATA B( 2848), B( 2849), B( 2850) / 1.75, 2.66, .00 / DATA B( 3019), B( 3020), B( 3021) / 1.14, -.36, .00 / DATA B( 3190), B( 3191), B( 3192) / 1.34, -2.26, .00 / DATA B( 3361), B( 3362), B( 3363) / 2.28, -4.39, .00 / DATA B( 3532), B( 3533), B( 3534) / 2.60, -5.16, .00 / DATA B( 3703), B( 3704), B( 3705) / 1.98, -3.96, .00 / DATA B( 3874), B( 3875), B( 3876) / .98, -2.63, .00 / DATA B( 4045), B( 4046), B( 4047) / .00, -2.18, .00 / DATA B( 4216), B( 4217), B( 4218) / -.76, -2.52, .00 / DATA B( 4387), B( 4388), B( 4389) / -1.25, -3.30, .00 / DATA B( 4558), B( 4559), B( 4560) / -1.44, -4.14, .00 / DATA B( 4729), B( 4730), B( 4731) / -1.23, -4.22, .00 / DATA B( 4900), B( 4901), B( 4902) / -.77, -4.16, .00 / DATA B( 5071), B( 5072), B( 5073) / -.15, -4.23, .00 / DATA B( 5242), B( 5243), B( 5244) / .50, -4.46, .00 / DATA B( 5413), B( 5414), B( 5415) / 1.06, -4.71, .00 / DATA B( 5584), B( 5585), B( 5586) / 1.41, -4.84, .00 / DATA B( 5755), B( 5756), B( 5757) / 1.55, -4.76, .00 / DATA B( 5926), B( 5927), B( 5928) / 1.53, -4.52, .00 / DATA B( 6097), B( 6098), B( 6099) / 1.46, -4.29, .00 / DATA B( 6268), B( 6269), B( 6270) / 1.47, -4.36, .00 / DATA B( 6439), B( 6440), B( 6441) / 1.42, -4.43, .00 / DATA B( 6610), B( 6611), B( 6612) / 1.15, -4.08, .00 / DATA B( 6781), B( 6782), B( 6783) / .90, -3.75, .00 / DATA B( 6952), B( 6953), B( 6954) / .68, -3.45, .00 / DATA B( 7123), B( 7124), B( 7125) / .50, -3.17, .00 / DATA B( 7294), B( 7295), B( 7296) / .35, -2.92, .00 / DATA B( 7465), B( 7466), B( 7467) / .24, -2.68, .00 / DATA B( 7636), B( 7637), B( 7638) / .16, -2.48, .00 / DATA B( 7807), B( 7808), B( 7809) / .11, -2.29, .00 / DATA B( 7978), B( 7979), B( 7980) / .08, -2.13, .00 / DATA B( 8149), B( 8150), B( 8151) / .07, -1.99, .00 / DATA B( 8320), B( 8321), B( 8322) / .07, -1.87, .00 / DATA B( 8491), B( 8492), B( 8493) / .07, -1.77, .00 / DATA B( 8662), B( 8663), B( 8664) / .08, -1.68, .00 / DATA B( 8833), B( 8834), B( 8835) / .08, -1.59, .00 / DATA B( 9004), B( 9005), B( 9006) / .09, -1.50, .00 / DATA B( 9175), B( 9176), B( 9177) / .08, -1.42, .00 / DATA B( 9346), B( 9347), B( 9348) / .07, -1.33, .00 / DATA B( 9517), B( 9518), B( 9519) / .06, -1.23, .00 / DATA B( 9688), B( 9689), B( 9690) / .04, -1.13, .00 / DATA B( 9859), B( 9860), B( 9861) / .01, -1.02, .00 / DATA B(10030), B(10031), B(10032) / -.01, -.90, .00 / DATA B(10201), B(10202), B(10203) / -.03, -.77, .00 / DATA B(10372), B(10373), B(10374) / -.05, -.64, .00 / DATA B(10543), B(10544), B(10545) / -.07, -.50, .00 / DATA B(10714), B(10715), B(10716) / -.08, -.37, .00 / DATA B(10885), B(10886), B(10887) / -.09, -.23, .00 / DATA B(11056), B(11057), B(11058) / -.10, -.09, .00 / DATA B(11227), B(11228), B(11229) / -.10, .04, .00 / DATA B(11398), B(11399), B(11400) / -.10, .16, .00 / DATA B(11569), B(11570), B(11571) / -.10, .27, .00 / DATA B(11740), B(11741), B(11742) / -.10, .37, .00 / DATA B(11911), B(11912), B(11913) / -.10, .46, .00 / DATA B(12082), B(12083), B(12084) / -.09, .53, .00 / DATA B(12253), B(12254), B(12255) / -.09, .58, .00 / DATA B(12424), B(12425), B(12426) / -.09, .62, .00 / DATA B(12595), B(12596), B(12597) / -.09, .63, .00 / DATA B( 115), B( 116), B( 117) / 28.59, -28.22, .00 / DATA B( 286), B( 287), B( 288) / 28.32, -27.60, .00 / DATA B( 457), B( 458), B( 459) / 28.81, -25.57, .00 / DATA B( 628), B( 629), B( 630) / 28.09, -20.78, .00 / DATA B( 799), B( 800), B( 801) / 24.04, -17.22, .00 / DATA B( 970), B( 971), B( 972) / 4.31, -.15, .00 / DATA B( 1141), B( 1142), B( 1143) / -.51, -1.62, .00 / DATA B( 1312), B( 1313), B( 1314) / -6.14, 6.74, .00 / DATA B( 1483), B( 1484), B( 1485) / 3.25, -.25, .00 / DATA B( 1654), B( 1655), B( 1656) / 2.74, -.05, .00 / DATA B( 1825), B( 1826), B( 1827) / 2.98, -.30, .00 / DATA B( 1996), B( 1997), B( 1998) / 1.21, .02, .00 / DATA B( 2167), B( 2168), B( 2169) / -1.47, 1.37, .00 / DATA B( 2338), B( 2339), B( 2340) / -2.18, 3.33, .00 / DATA B( 2509), B( 2510), B( 2511) / -1.23, 4.30, .00 / DATA B( 2680), B( 2681), B( 2682) / .16, 2.93, .00 / DATA B( 2851), B( 2852), B( 2853) / 1.10, .91, .00 / DATA B( 3022), B( 3023), B( 3024) / 1.52, -.93, .00 / DATA B( 3193), B( 3194), B( 3195) / 2.11, -1.93, .00 / DATA B( 3364), B( 3365), B( 3366) / 2.52, -3.52, .00 / DATA B( 3535), B( 3536), B( 3537) / 2.56, -4.10, .00 / DATA B( 3706), B( 3707), B( 3708) / 2.12, -3.14, .00 / DATA B( 3877), B( 3878), B( 3879) / 1.35, -1.82, .00 / DATA B( 4048), B( 4049), B( 4050) / .45, -1.34, .00 / DATA B( 4219), B( 4220), B( 4221) / -.38, -1.87, .00 / DATA B( 4390), B( 4391), B( 4392) / -.97, -2.87, .00 / DATA B( 4561), B( 4562), B( 4563) / -1.25, -3.83, .00 / DATA B( 4732), B( 4733), B( 4734) / -1.11, -4.16, .00 / DATA B( 4903), B( 4904), B( 4905) / -.68, -4.31, .00 / DATA B( 5074), B( 5075), B( 5076) / -.03, -4.58, .00 / DATA B( 5245), B( 5246), B( 5247) / .69, -4.98, .00 / DATA B( 5416), B( 5417), B( 5418) / 1.27, -5.25, .00 / DATA B( 5587), B( 5588), B( 5589) / 1.58, -5.17, .00 / DATA B( 5758), B( 5759), B( 5760) / 1.65, -4.77, .00 / DATA B( 5929), B( 5930), B( 5931) / 1.58, -4.21, .00 / DATA B( 6100), B( 6101), B( 6102) / 1.48, -3.76, .00 / DATA B( 6271), B( 6272), B( 6273) / 1.43, -3.67, .00 / DATA B( 6442), B( 6443), B( 6444) / 1.36, -3.75, .00 / DATA B( 6613), B( 6614), B( 6615) / 1.18, -3.67, .00 / DATA B( 6784), B( 6785), B( 6786) / .95, -3.46, .00 / DATA B( 6955), B( 6956), B( 6957) / .74, -3.20, .00 / DATA B( 7126), B( 7127), B( 7128) / .55, -2.94, .00 / DATA B( 7297), B( 7298), B( 7299) / .39, -2.68, .00 / DATA B( 7468), B( 7469), B( 7470) / .26, -2.44, .00 / DATA B( 7639), B( 7640), B( 7641) / .16, -2.22, .00 / DATA B( 7810), B( 7811), B( 7812) / .09, -2.02, .00 / DATA B( 7981), B( 7982), B( 7983) / .04, -1.85, .00 / DATA B( 8152), B( 8153), B( 8154) / .01, -1.70, .00 / DATA B( 8323), B( 8324), B( 8325) / -.01, -1.57, .00 / DATA B( 8494), B( 8495), B( 8496) / -.02, -1.46, .00 / DATA B( 8665), B( 8666), B( 8667) / -.02, -1.37, .00 / DATA B( 8836), B( 8837), B( 8838) / -.03, -1.28, .00 / DATA B( 9007), B( 9008), B( 9009) / -.03, -1.20, .00 / DATA B( 9178), B( 9179), B( 9180) / -.04, -1.12, .00 / DATA B( 9349), B( 9350), B( 9351) / -.05, -1.04, .00 / DATA B( 9520), B( 9521), B( 9522) / -.06, -.96, .00 / DATA B( 9691), B( 9692), B( 9693) / -.08, -.87, .00 / DATA B( 9862), B( 9863), B( 9864) / -.10, -.77, .00 / DATA B(10033), B(10034), B(10035) / -.12, -.67, .00 / DATA B(10204), B(10205), B(10206) / -.14, -.56, .00 / DATA B(10375), B(10376), B(10377) / -.16, -.45, .00 / DATA B(10546), B(10547), B(10548) / -.17, -.33, .00 / DATA B(10717), B(10718), B(10719) / -.18, -.22, .00 / DATA B(10888), B(10889), B(10890) / -.19, -.10, .00 / DATA B(11059), B(11060), B(11061) / -.20, .02, .00 / DATA B(11230), B(11231), B(11232) / -.20, .13, .00 / DATA B(11401), B(11402), B(11403) / -.20, .24, .00 / DATA B(11572), B(11573), B(11574) / -.20, .34, .00 / DATA B(11743), B(11744), B(11745) / -.20, .43, .00 / DATA B(11914), B(11915), B(11916) / -.20, .50, .00 / DATA B(12085), B(12086), B(12087) / -.20, .56, .00 / DATA B(12256), B(12257), B(12258) / -.19, .61, .00 / DATA B(12427), B(12428), B(12429) / -.19, .64, .00 / DATA B(12598), B(12599), B(12600) / -.19, .65, .00 / DATA B( 118), B( 119), B( 120) / 24.89, -23.30, .00 / DATA B( 289), B( 290), B( 291) / 26.69, -23.94, .00 / DATA B( 460), B( 461), B( 462) / 28.26, -18.38, .00 / DATA B( 631), B( 632), B( 633) / 17.13, -7.93, .00 / DATA B( 802), B( 803), B( 804) / .43, -1.01, .00 / DATA B( 973), B( 974), B( 975) / -5.40, 2.04, .00 / DATA B( 1144), B( 1145), B( 1146) / .69, -1.39, .00 / DATA B( 1315), B( 1316), B( 1317) / -1.56, -2.41, .00 / DATA B( 1486), B( 1487), B( 1488) / 2.41, -.88, .00 / DATA B( 1657), B( 1658), B( 1659) / -.09, -1.63, .00 / DATA B( 1828), B( 1829), B( 1830) / .45, -.98, .00 / DATA B( 1999), B( 2000), B( 2001) / .30, -.05, .00 / DATA B( 2170), B( 2171), B( 2172) / -.62, 1.01, .00 / DATA B( 2341), B( 2342), B( 2343) / -1.07, 1.87, .00 / DATA B( 2512), B( 2513), B( 2514) / -.68, 1.83, .00 / DATA B( 2683), B( 2684), B( 2685) / .12, .56, .00 / DATA B( 2854), B( 2855), B( 2856) / .89, -1.01, .00 / DATA B( 3025), B( 3026), B( 3027) / 1.49, -2.59, .00 / DATA B( 3196), B( 3197), B( 3198) / 2.00, -3.82, .00 / DATA B( 3367), B( 3368), B( 3369) / 2.32, -4.36, .00 / DATA B( 3538), B( 3539), B( 3540) / 2.33, -3.91, .00 / DATA B( 3709), B( 3710), B( 3711) / 2.02, -2.56, .00 / DATA B( 3880), B( 3881), B( 3882) / 1.46, -.91, .00 / DATA B( 4051), B( 4052), B( 4053) / .66, -.49, .00 / DATA B( 4222), B( 4223), B( 4224) / -.18, -1.28, .00 / DATA B( 4393), B( 4394), B( 4395) / -.79, -2.32, .00 / DATA B( 4564), B( 4565), B( 4566) / -1.09, -3.21, .00 / DATA B( 4735), B( 4736), B( 4737) / -1.03, -3.71, .00 / DATA B( 4906), B( 4907), B( 4908) / -.66, -3.99, .00 / DATA B( 5077), B( 5078), B( 5079) / -.03, -4.41, .00 / DATA B( 5248), B( 5249), B( 5250) / .78, -5.08, .00 / DATA B( 5419), B( 5420), B( 5421) / 1.43, -5.51, .00 / DATA B( 5590), B( 5591), B( 5592) / 1.67, -5.25, .00 / DATA B( 5761), B( 5762), B( 5763) / 1.66, -4.59, .00 / DATA B( 5932), B( 5933), B( 5934) / 1.52, -3.78, .00 / DATA B( 6103), B( 6104), B( 6105) / 1.33, -3.00, .00 / DATA B( 6274), B( 6275), B( 6276) / 1.23, -2.80, .00 / DATA B( 6445), B( 6446), B( 6447) / 1.20, -3.03, .00 / DATA B( 6616), B( 6617), B( 6618) / 1.09, -3.14, .00 / DATA B( 6787), B( 6788), B( 6789) / .92, -3.06, .00 / DATA B( 6958), B( 6959), B( 6960) / .73, -2.87, .00 / DATA B( 7129), B( 7130), B( 7131) / .55, -2.64, .00 / DATA B( 7300), B( 7301), B( 7302) / .39, -2.39, .00 / DATA B( 7471), B( 7472), B( 7473) / .25, -2.15, .00 / DATA B( 7642), B( 7643), B( 7644) / .14, -1.92, .00 / DATA B( 7813), B( 7814), B( 7815) / .06, -1.71, .00 / DATA B( 7984), B( 7985), B( 7986) / -.01, -1.53, .00 / DATA B( 8155), B( 8156), B( 8157) / -.05, -1.38, .00 / DATA B( 8326), B( 8327), B( 8328) / -.08, -1.25, .00 / DATA B( 8497), B( 8498), B( 8499) / -.10, -1.14, .00 / DATA B( 8668), B( 8669), B( 8670) / -.12, -1.04, .00 / DATA B( 8839), B( 8840), B( 8841) / -.13, -.96, .00 / DATA B( 9010), B( 9011), B( 9012) / -.14, -.89, .00 / DATA B( 9181), B( 9182), B( 9183) / -.15, -.82, .00 / DATA B( 9352), B( 9353), B( 9354) / -.16, -.75, .00 / DATA B( 9523), B( 9524), B( 9525) / -.18, -.68, .00 / DATA B( 9694), B( 9695), B( 9696) / -.19, -.60, .00 / DATA B( 9865), B( 9866), B( 9867) / -.21, -.52, .00 / DATA B(10036), B(10037), B(10038) / -.23, -.44, .00 / DATA B(10207), B(10208), B(10209) / -.24, -.35, .00 / DATA B(10378), B(10379), B(10380) / -.26, -.26, .00 / DATA B(10549), B(10550), B(10551) / -.27, -.16, .00 / DATA B(10720), B(10721), B(10722) / -.28, -.06, .00 / DATA B(10891), B(10892), B(10893) / -.29, .04, .00 / DATA B(11062), B(11063), B(11064) / -.29, .14, .00 / DATA B(11233), B(11234), B(11235) / -.30, .24, .00 / DATA B(11404), B(11405), B(11406) / -.30, .33, .00 / DATA B(11575), B(11576), B(11577) / -.30, .41, .00 / DATA B(11746), B(11747), B(11748) / -.30, .49, .00 / DATA B(11917), B(11918), B(11919) / -.29, .55, .00 / DATA B(12088), B(12089), B(12090) / -.29, .60, .00 / DATA B(12259), B(12260), B(12261) / -.29, .64, .00 / DATA B(12430), B(12431), B(12432) / -.29, .67, .00 / DATA B(12601), B(12602), B(12603) / -.29, .68, .00 / DATA B( 121), B( 122), B( 123) / 15.73, -12.15, .00 / DATA B( 292), B( 293), B( 294) / 13.92, -9.35, .00 / DATA B( 463), B( 464), B( 465) / 10.12, -7.41, .00 / DATA B( 634), B( 635), B( 636) / -2.70, -2.99, .00 / DATA B( 805), B( 806), B( 807) / .84, .27, .00 / DATA B( 976), B( 977), B( 978) / -4.11, -.25, .00 / DATA B( 1147), B( 1148), B( 1149) / -2.14, -1.68, .00 / DATA B( 1318), B( 1319), B( 1320) / -1.98, -.85, .00 / DATA B( 1489), B( 1490), B( 1491) / -.86, -.40, .00 / DATA B( 1660), B( 1661), B( 1662) / -.20, -1.00, .00 / DATA B( 1831), B( 1832), B( 1833) / -.32, -.33, .00 / DATA B( 2002), B( 2003), B( 2004) / -.09, .56, .00 / DATA B( 2173), B( 2174), B( 2175) / -.10, 1.21, .00 / DATA B( 2344), B( 2345), B( 2346) / -.20, 1.31, .00 / DATA B( 2515), B( 2516), B( 2517) / -.08, .62, .00 / DATA B( 2686), B( 2687), B( 2688) / .30, -.75, .00 / DATA B( 2857), B( 2858), B( 2859) / .80, -2.46, .00 / DATA B( 3028), B( 3029), B( 3030) / 1.27, -4.24, .00 / DATA B( 3199), B( 3200), B( 3201) / 1.63, -5.91, .00 / DATA B( 3370), B( 3371), B( 3372) / 1.89, -5.64, .00 / DATA B( 3541), B( 3542), B( 3543) / 1.92, -4.29, .00 / DATA B( 3712), B( 3713), B( 3714) / 1.68, -2.56, .00 / DATA B( 3883), B( 3884), B( 3885) / 1.23, -.92, .00 / DATA B( 4054), B( 4055), B( 4056) / .54, -.44, .00 / DATA B( 4225), B( 4226), B( 4227) / -.20, -1.05, .00 / DATA B( 4396), B( 4397), B( 4398) / -.76, -1.92, .00 / DATA B( 4567), B( 4568), B( 4569) / -1.04, -2.67, .00 / DATA B( 4738), B( 4739), B( 4740) / -1.01, -3.12, .00 / DATA B( 4909), B( 4910), B( 4911) / -.73, -3.37, .00 / DATA B( 5080), B( 5081), B( 5082) / -.24, -3.62, .00 / DATA B( 5251), B( 5252), B( 5253) / .62, -4.49, .00 / DATA B( 5422), B( 5423), B( 5424) / 1.44, -5.37, .00 / DATA B( 5593), B( 5594), B( 5595) / 1.58, -4.92, .00 / DATA B( 5764), B( 5765), B( 5766) / 1.57, -4.28, .00 / DATA B( 5935), B( 5936), B( 5937) / 1.41, -3.47, .00 / DATA B( 6106), B( 6107), B( 6108) / 1.20, -2.63, .00 / DATA B( 6277), B( 6278), B( 6279) / 1.08, -2.36, .00 / DATA B( 6448), B( 6449), B( 6450) / 1.04, -2.57, .00 / DATA B( 6619), B( 6620), B( 6621) / .96, -2.69, .00 / DATA B( 6790), B( 6791), B( 6792) / .83, -2.66, .00 / DATA B( 6961), B( 6962), B( 6963) / .68, -2.52, .00 / DATA B( 7132), B( 7133), B( 7134) / .51, -2.30, .00 / DATA B( 7303), B( 7304), B( 7305) / .36, -2.06, .00 / DATA B( 7474), B( 7475), B( 7476) / .23, -1.81, .00 / DATA B( 7645), B( 7646), B( 7647) / .11, -1.58, .00 / DATA B( 7816), B( 7817), B( 7818) / .02, -1.37, .00 / DATA B( 7987), B( 7988), B( 7989) / -.05, -1.18, .00 / DATA B( 8158), B( 8159), B( 8160) / -.11, -1.03, .00 / DATA B( 8329), B( 8330), B( 8331) / -.15, -.90, .00 / DATA B( 8500), B( 8501), B( 8502) / -.18, -.79, .00 / DATA B( 8671), B( 8672), B( 8673) / -.20, -.70, .00 / DATA B( 8842), B( 8843), B( 8844) / -.22, -.62, .00 / DATA B( 9013), B( 9014), B( 9015) / -.24, -.56, .00 / DATA B( 9184), B( 9185), B( 9186) / -.25, -.50, .00 / DATA B( 9355), B( 9356), B( 9357) / -.27, -.44, .00 / DATA B( 9526), B( 9527), B( 9528) / -.28, -.39, .00 / DATA B( 9697), B( 9698), B( 9699) / -.30, -.33, .00 / DATA B( 9868), B( 9869), B( 9870) / -.31, -.27, .00 / DATA B(10039), B(10040), B(10041) / -.33, -.20, .00 / DATA B(10210), B(10211), B(10212) / -.34, -.13, .00 / DATA B(10381), B(10382), B(10383) / -.35, -.06, .00 / DATA B(10552), B(10553), B(10554) / -.36, .02, .00 / DATA B(10723), B(10724), B(10725) / -.37, .10, .00 / DATA B(10894), B(10895), B(10896) / -.38, .19, .00 / DATA B(11065), B(11066), B(11067) / -.38, .27, .00 / DATA B(11236), B(11237), B(11238) / -.39, .35, .00 / DATA B(11407), B(11408), B(11409) / -.39, .42, .00 / DATA B(11578), B(11579), B(11580) / -.39, .49, .00 / DATA B(11749), B(11750), B(11751) / -.39, .56, .00 / DATA B(11920), B(11921), B(11922) / -.39, .61, .00 / DATA B(12091), B(12092), B(12093) / -.38, .66, .00 / DATA B(12262), B(12263), B(12264) / -.38, .69, .00 / DATA B(12433), B(12434), B(12435) / -.38, .71, .00 / DATA B(12604), B(12605), B(12606) / -.38, .72, .00 / DATA B( 124), B( 125), B( 126) / 6.25, -1.52, .00 / DATA B( 295), B( 296), B( 297) / 4.65, -.40, .00 / DATA B( 466), B( 467), B( 468) / 2.49, -.61, .00 / DATA B( 637), B( 638), B( 639) / 3.83, .28, .00 / DATA B( 808), B( 809), B( 810) / -.61, -1.51, .00 / DATA B( 979), B( 980), B( 981) / -2.14, -2.74, .00 / DATA B( 1150), B( 1151), B( 1152) / -.70, -2.75, .00 / DATA B( 1321), B( 1322), B( 1323) / 2.29, -3.23, .00 / DATA B( 1492), B( 1493), B( 1494) / 2.29, -1.98, .00 / DATA B( 1663), B( 1664), B( 1665) / .37, .00, .00 / DATA B( 1834), B( 1835), B( 1836) / -.20, .99, .00 / DATA B( 2005), B( 2006), B( 2007) / .04, 1.57, .00 / DATA B( 2176), B( 2177), B( 2178) / .46, 1.86, .00 / DATA B( 2347), B( 2348), B( 2349) / .43, 1.34, .00 / DATA B( 2518), B( 2519), B( 2520) / .35, .18, .00 / DATA B( 2689), B( 2690), B( 2691) / .44, -1.40, .00 / DATA B( 2860), B( 2861), B( 2862) / .68, -3.20, .00 / DATA B( 3031), B( 3032), B( 3033) / .97, -5.00, .00 / DATA B( 3202), B( 3203), B( 3204) / 1.21, -6.32, .00 / DATA B( 3373), B( 3374), B( 3375) / 1.38, -6.00, .00 / DATA B( 3544), B( 3545), B( 3546) / 1.39, -4.58, .00 / DATA B( 3715), B( 3716), B( 3717) / 1.19, -2.90, .00 / DATA B( 3886), B( 3887), B( 3888) / .78, -1.53, .00 / DATA B( 4057), B( 4058), B( 4059) / .20, -.98, .00 / DATA B( 4228), B( 4229), B( 4230) / -.41, -1.24, .00 / DATA B( 4399), B( 4400), B( 4401) / -.87, -1.82, .00 / DATA B( 4570), B( 4571), B( 4572) / -1.08, -2.33, .00 / DATA B( 4741), B( 4742), B( 4743) / -1.04, -2.62, .00 / DATA B( 4912), B( 4913), B( 4914) / -.82, -2.71, .00 / DATA B( 5083), B( 5084), B( 5085) / -.49, -2.67, .00 / DATA B( 5254), B( 5255), B( 5256) / -.25, -2.32, .00 / DATA B( 5425), B( 5426), B( 5427) / .85, -3.87, .00 / DATA B( 5596), B( 5597), B( 5598) / 1.33, -4.26, .00 / DATA B( 5767), B( 5768), B( 5769) / 1.41, -3.95, .00 / DATA B( 5938), B( 5939), B( 5940) / 1.31, -3.36, .00 / DATA B( 6109), B( 6110), B( 6111) / 1.14, -2.77, .00 / DATA B( 6280), B( 6281), B( 6282) / 1.00, -2.46, .00 / DATA B( 6451), B( 6452), B( 6453) / .92, -2.43, .00 / DATA B( 6622), B( 6623), B( 6624) / .84, -2.43, .00 / DATA B( 6793), B( 6794), B( 6795) / .73, -2.35, .00 / DATA B( 6964), B( 6965), B( 6966) / .60, -2.18, .00 / DATA B( 7135), B( 7136), B( 7137) / .46, -1.95, .00 / DATA B( 7306), B( 7307), B( 7308) / .32, -1.69, .00 / DATA B( 7477), B( 7478), B( 7479) / .19, -1.44, .00 / DATA B( 7648), B( 7649), B( 7650) / .07, -1.20, .00 / DATA B( 7819), B( 7820), B( 7821) / -.02, -.99, .00 / DATA B( 7990), B( 7991), B( 7992) / -.10, -.81, .00 / DATA B( 8161), B( 8162), B( 8163) / -.17, -.65, .00 / DATA B( 8332), B( 8333), B( 8334) / -.22, -.53, .00 / DATA B( 8503), B( 8504), B( 8505) / -.25, -.42, .00 / DATA B( 8674), B( 8675), B( 8676) / -.28, -.34, .00 / DATA B( 8845), B( 8846), B( 8847) / -.31, -.28, .00 / DATA B( 9016), B( 9017), B( 9018) / -.33, -.22, .00 / DATA B( 9187), B( 9188), B( 9189) / -.35, -.18, .00 / DATA B( 9358), B( 9359), B( 9360) / -.36, -.13, .00 / DATA B( 9529), B( 9530), B( 9531) / -.38, -.09, .00 / DATA B( 9700), B( 9701), B( 9702) / -.39, -.05, .00 / DATA B( 9871), B( 9872), B( 9873) / -.41, -.01, .00 / DATA B(10042), B(10043), B(10044) / -.42, .04, .00 / DATA B(10213), B(10214), B(10215) / -.43, .09, .00 / DATA B(10384), B(10385), B(10386) / -.44, .15, .00 / DATA B(10555), B(10556), B(10557) / -.45, .21, .00 / DATA B(10726), B(10727), B(10728) / -.46, .27, .00 / DATA B(10897), B(10898), B(10899) / -.47, .33, .00 / DATA B(11068), B(11069), B(11070) / -.47, .40, .00 / DATA B(11239), B(11240), B(11241) / -.47, .46, .00 / DATA B(11410), B(11411), B(11412) / -.48, .52, .00 / DATA B(11581), B(11582), B(11583) / -.48, .58, .00 / DATA B(11752), B(11753), B(11754) / -.47, .63, .00 / DATA B(11923), B(11924), B(11925) / -.47, .68, .00 / DATA B(12094), B(12095), B(12096) / -.47, .71, .00 / DATA B(12265), B(12266), B(12267) / -.47, .74, .00 / DATA B(12436), B(12437), B(12438) / -.47, .76, .00 / DATA B(12607), B(12608), B(12609) / -.47, .76, .00 / DATA B( 127), B( 128), B( 129) / .61, 4.62, .00 / DATA B( 298), B( 299), B( 300) / .51, 4.17, .00 / DATA B( 469), B( 470), B( 471) / .84, 3.31, .00 / DATA B( 640), B( 641), B( 642) / 1.53, 1.85, .00 / DATA B( 811), B( 812), B( 813) / .76, -.28, .00 / DATA B( 982), B( 983), B( 984) / .10, -2.11, .00 / DATA B( 1153), B( 1154), B( 1155) / 1.34, -2.93, .00 / DATA B( 1324), B( 1325), B( 1326) / 3.21, -2.99, .00 / DATA B( 1495), B( 1496), B( 1497) / 2.91, -1.43, .00 / DATA B( 1666), B( 1667), B( 1668) / .67, 1.35, .00 / DATA B( 1837), B( 1838), B( 1839) / .07, 2.18, .00 / DATA B( 2008), B( 2009), B( 2010) / .29, 2.41, .00 / DATA B( 2179), B( 2180), B( 2181) / .74, 2.38, .00 / DATA B( 2350), B( 2351), B( 2352) / .67, 1.52, .00 / DATA B( 2521), B( 2522), B( 2523) / .48, .12, .00 / DATA B( 2692), B( 2693), B( 2694) / .41, -1.54, .00 / DATA B( 2863), B( 2864), B( 2865) / .47, -3.28, .00 / DATA B( 3034), B( 3035), B( 3036) / .60, -4.84, .00 / DATA B( 3205), B( 3206), B( 3207) / .74, -5.75, .00 / DATA B( 3376), B( 3377), B( 3378) / .83, -5.57, .00 / DATA B( 3547), B( 3548), B( 3549) / .81, -4.52, .00 / DATA B( 3718), B( 3719), B( 3720) / .63, -3.18, .00 / DATA B( 3889), B( 3890), B( 3891) / .28, -2.08, .00 / DATA B( 4060), B( 4061), B( 4062) / -.21, -1.57, .00 / DATA B( 4231), B( 4232), B( 4233) / -.72, -1.63, .00 / DATA B( 4402), B( 4403), B( 4404) / -1.07, -1.94, .00 / DATA B( 4573), B( 4574), B( 4575) / -1.16, -2.19, .00 / DATA B( 4744), B( 4745), B( 4746) / -1.05, -2.32, .00 / DATA B( 4915), B( 4916), B( 4917) / -.82, -2.31, .00 / DATA B( 5086), B( 5087), B( 5088) / -.52, -2.19, .00 / DATA B( 5257), B( 5258), B( 5259) / -.08, -2.32, .00 / DATA B( 5428), B( 5429), B( 5430) / .61, -3.10, .00 / DATA B( 5599), B( 5600), B( 5601) / 1.11, -3.69, .00 / DATA B( 5770), B( 5771), B( 5772) / 1.27, -3.71, .00 / DATA B( 5941), B( 5942), B( 5943) / 1.22, -3.41, .00 / DATA B( 6112), B( 6113), B( 6114) / 1.08, -3.04, .00 / DATA B( 6283), B( 6284), B( 6285) / .94, -2.72, .00 / DATA B( 6454), B( 6455), B( 6456) / .84, -2.49, .00 / DATA B( 6625), B( 6626), B( 6627) / .74, -2.31, .00 / DATA B( 6796), B( 6797), B( 6798) / .63, -2.10, .00 / DATA B( 6967), B( 6968), B( 6969) / .51, -1.86, .00 / DATA B( 7138), B( 7139), B( 7140) / .39, -1.59, .00 / DATA B( 7309), B( 7310), B( 7311) / .26, -1.31, .00 / DATA B( 7480), B( 7481), B( 7482) / .13, -1.04, .00 / DATA B( 7651), B( 7652), B( 7653) / .02, -.80, .00 / DATA B( 7822), B( 7823), B( 7824) / -.07, -.58, .00 / DATA B( 7993), B( 7994), B( 7995) / -.15, -.40, .00 / DATA B( 8164), B( 8165), B( 8166) / -.22, -.25, .00 / DATA B( 8335), B( 8336), B( 8337) / -.28, -.14, .00 / DATA B( 8506), B( 8507), B( 8508) / -.32, -.04, .00 / DATA B( 8677), B( 8678), B( 8679) / -.36, .03, .00 / DATA B( 8848), B( 8849), B( 8850) / -.39, .08, .00 / DATA B( 9019), B( 9020), B( 9021) / -.41, .12, .00 / DATA B( 9190), B( 9191), B( 9192) / -.43, .15, .00 / DATA B( 9361), B( 9362), B( 9363) / -.45, .18, .00 / DATA B( 9532), B( 9533), B( 9534) / -.47, .20, .00 / DATA B( 9703), B( 9704), B( 9705) / -.48, .22, .00 / DATA B( 9874), B( 9875), B( 9876) / -.50, .25, .00 / DATA B(10045), B(10046), B(10047) / -.51, .28, .00 / DATA B(10216), B(10217), B(10218) / -.52, .31, .00 / DATA B(10387), B(10388), B(10389) / -.53, .35, .00 / DATA B(10558), B(10559), B(10560) / -.54, .39, .00 / DATA B(10729), B(10730), B(10731) / -.55, .44, .00 / DATA B(10900), B(10901), B(10902) / -.55, .48, .00 / DATA B(11071), B(11072), B(11073) / -.55, .53, .00 / DATA B(11242), B(11243), B(11244) / -.56, .58, .00 / DATA B(11413), B(11414), B(11415) / -.56, .63, .00 / DATA B(11584), B(11585), B(11586) / -.56, .67, .00 / DATA B(11755), B(11756), B(11757) / -.56, .71, .00 / DATA B(11926), B(11927), B(11928) / -.56, .75, .00 / DATA B(12097), B(12098), B(12099) / -.56, .78, .00 / DATA B(12268), B(12269), B(12270) / -.56, .80, .00 / DATA B(12439), B(12440), B(12441) / -.55, .81, .00 / DATA B(12610), B(12611), B(12612) / -.56, .81, .00 / DATA B( 130), B( 131), B( 132) / -1.84, 7.46, .00 / DATA B( 301), B( 302), B( 303) / -1.32, 6.61, .00 / DATA B( 472), B( 473), B( 474) / -.46, 5.23, .00 / DATA B( 643), B( 644), B( 645) / .45, 3.29, .00 / DATA B( 814), B( 815), B( 816) / .97, 1.09, .00 / DATA B( 985), B( 986), B( 987) / 1.43, -.77, .00 / DATA B( 1156), B( 1157), B( 1158) / 2.24, -1.80, .00 / DATA B( 1327), B( 1328), B( 1329) / 3.00, -1.71, .00 / DATA B( 1498), B( 1499), B( 1500) / 2.60, -.38, .00 / DATA B( 1669), B( 1670), B( 1671) / 1.29, 1.49, .00 / DATA B( 1840), B( 1841), B( 1842) / .51, 2.51, .00 / DATA B( 2011), B( 2012), B( 2013) / .43, 2.73, .00 / DATA B( 2182), B( 2183), B( 2184) / .54, 2.43, .00 / DATA B( 2353), B( 2354), B( 2355) / .48, 1.55, .00 / DATA B( 2524), B( 2525), B( 2526) / .30, .21, .00 / DATA B( 2695), B( 2696), B( 2697) / .15, -1.34, .00 / DATA B( 2866), B( 2867), B( 2868) / .12, -2.89, .00 / DATA B( 3037), B( 3038), B( 3039) / .16, -4.18, .00 / DATA B( 3208), B( 3209), B( 3210) / .23, -4.89, .00 / DATA B( 3379), B( 3380), B( 3381) / .28, -4.83, .00 / DATA B( 3550), B( 3551), B( 3552) / .24, -4.14, .00 / DATA B( 3721), B( 3722), B( 3723) / .09, -3.19, .00 / DATA B( 3892), B( 3893), B( 3894) / -.20, -2.37, .00 / DATA B( 4063), B( 4064), B( 4065) / -.59, -1.95, .00 / DATA B( 4234), B( 4235), B( 4236) / -1.00, -1.95, .00 / DATA B( 4405), B( 4406), B( 4407) / -1.25, -2.11, .00 / DATA B( 4576), B( 4577), B( 4578) / -1.19, -2.15, .00 / DATA B( 4747), B( 4748), B( 4749) / -.99, -2.19, .00 / DATA B( 4918), B( 4919), B( 4920) / -.69, -2.20, .00 / DATA B( 5089), B( 5090), B( 5091) / -.29, -2.26, .00 / DATA B( 5260), B( 5261), B( 5262) / .20, -2.53, .00 / DATA B( 5431), B( 5432), B( 5433) / .71, -3.05, .00 / DATA B( 5602), B( 5603), B( 5604) / 1.07, -3.48, .00 / DATA B( 5773), B( 5774), B( 5775) / 1.20, -3.62, .00 / DATA B( 5944), B( 5945), B( 5946) / 1.15, -3.52, .00 / DATA B( 6115), B( 6116), B( 6117) / 1.02, -3.31, .00 / DATA B( 6286), B( 6287), B( 6288) / .88, -3.00, .00 / DATA B( 6457), B( 6458), B( 6459) / .76, -2.60, .00 / DATA B( 6628), B( 6629), B( 6630) / .65, -2.24, .00 / DATA B( 6799), B( 6800), B( 6801) / .55, -1.90, .00 / DATA B( 6970), B( 6971), B( 6972) / .43, -1.56, .00 / DATA B( 7141), B( 7142), B( 7143) / .31, -1.23, .00 / DATA B( 7312), B( 7313), B( 7314) / .19, -.92, .00 / DATA B( 7483), B( 7484), B( 7485) / .08, -.63, .00 / DATA B( 7654), B( 7655), B( 7656) / -.03, -.37, .00 / DATA B( 7825), B( 7826), B( 7827) / -.13, -.16, .00 / DATA B( 7996), B( 7997), B( 7998) / -.21, .02, .00 / DATA B( 8167), B( 8168), B( 8169) / -.28, .16, .00 / DATA B( 8338), B( 8339), B( 8340) / -.34, .27, .00 / DATA B( 8509), B( 8510), B( 8511) / -.39, .35, .00 / DATA B( 8680), B( 8681), B( 8682) / -.43, .40, .00 / DATA B( 8851), B( 8852), B( 8853) / -.46, .44, .00 / DATA B( 9022), B( 9023), B( 9024) / -.49, .47, .00 / DATA B( 9193), B( 9194), B( 9195) / -.51, .48, .00 / DATA B( 9364), B( 9365), B( 9366) / -.53, .49, .00 / DATA B( 9535), B( 9536), B( 9537) / -.55, .49, .00 / DATA B( 9706), B( 9707), B( 9708) / -.56, .50, .00 / DATA B( 9877), B( 9878), B( 9879) / -.58, .51, .00 / DATA B(10048), B(10049), B(10050) / -.59, .52, .00 / DATA B(10219), B(10220), B(10221) / -.60, .53, .00 / DATA B(10390), B(10391), B(10392) / -.61, .55, .00 / DATA B(10561), B(10562), B(10563) / -.62, .58, .00 / DATA B(10732), B(10733), B(10734) / -.62, .60, .00 / DATA B(10903), B(10904), B(10905) / -.63, .63, .00 / DATA B(11074), B(11075), B(11076) / -.63, .67, .00 / DATA B(11245), B(11246), B(11247) / -.63, .70, .00 / DATA B(11416), B(11417), B(11418) / -.64, .73, .00 / DATA B(11587), B(11588), B(11589) / -.64, .77, .00 / DATA B(11758), B(11759), B(11760) / -.63, .80, .00 / DATA B(11929), B(11930), B(11931) / -.63, .82, .00 / DATA B(12100), B(12101), B(12102) / -.63, .84, .00 / DATA B(12271), B(12272), B(12273) / -.63, .86, .00 / DATA B(12442), B(12443), B(12444) / -.63, .87, .00 / DATA B(12613), B(12614), B(12615) / -.63, .87, .00 / DATA B( 133), B( 134), B( 135) / -2.64, 8.48, .00 / DATA B( 304), B( 305), B( 306) / -2.04, 7.60, .00 / DATA B( 475), B( 476), B( 477) / -1.11, 6.15, .00 / DATA B( 646), B( 647), B( 648) / -.07, 4.25, .00 / DATA B( 817), B( 818), B( 819) / .87, 2.24, .00 / DATA B( 988), B( 989), B( 990) / 1.67, .55, .00 / DATA B( 1159), B( 1160), B( 1161) / 2.31, -.43, .00 / DATA B( 1330), B( 1331), B( 1332) / 2.62, -.45, .00 / DATA B( 1501), B( 1502), B( 1503) / 2.28, .40, .00 / DATA B( 1672), B( 1673), B( 1674) / 1.46, 1.59, .00 / DATA B( 1843), B( 1844), B( 1845) / .76, 2.41, .00 / DATA B( 2014), B( 2015), B( 2016) / .41, 2.64, .00 / DATA B( 2185), B( 2186), B( 2187) / .25, 2.32, .00 / DATA B( 2356), B( 2357), B( 2358) / .09, 1.52, .00 / DATA B( 2527), B( 2528), B( 2529) / -.11, .36, .00 / DATA B( 2698), B( 2699), B( 2700) / -.27, -.98, .00 / DATA B( 2869), B( 2870), B( 2871) / -.35, -2.28, .00 / DATA B( 3040), B( 3041), B( 3042) / -.35, -3.33, .00 / DATA B( 3211), B( 3212), B( 3213) / -.30, -3.92, .00 / DATA B( 3382), B( 3383), B( 3384) / -.26, -3.96, .00 / DATA B( 3553), B( 3554), B( 3555) / -.29, -3.55, .00 / DATA B( 3724), B( 3725), B( 3726) / -.40, -2.93, .00 / DATA B( 3895), B( 3896), B( 3897) / -.61, -2.37, .00 / DATA B( 4066), B( 4067), B( 4068) / -.88, -2.05, .00 / DATA B( 4237), B( 4238), B( 4239) / -1.13, -1.99, .00 / DATA B( 4408), B( 4409), B( 4410) / -1.24, -2.05, .00 / DATA B( 4579), B( 4580), B( 4581) / -1.14, -2.10, .00 / DATA B( 4750), B( 4751), B( 4752) / -.87, -2.16, .00 / DATA B( 4921), B( 4922), B( 4923) / -.49, -2.26, .00 / DATA B( 5092), B( 5093), B( 5094) / .00, -2.47, .00 / DATA B( 5263), B( 5264), B( 5265) / .53, -2.84, .00 / DATA B( 5434), B( 5435), B( 5436) / .93, -3.24, .00 / DATA B( 5605), B( 5606), B( 5607) / 1.13, -3.52, .00 / DATA B( 5776), B( 5777), B( 5778) / 1.18, -3.64, .00 / DATA B( 5947), B( 5948), B( 5949) / 1.11, -3.61, .00 / DATA B( 6118), B( 6119), B( 6120) / .97, -3.44, .00 / DATA B( 6289), B( 6290), B( 6291) / .83, -3.11, .00 / DATA B( 6460), B( 6461), B( 6462) / .70, -2.64, .00 / DATA B( 6631), B( 6632), B( 6633) / .58, -2.16, .00 / DATA B( 6802), B( 6803), B( 6804) / .47, -1.69, .00 / DATA B( 6973), B( 6974), B( 6975) / .36, -1.26, .00 / DATA B( 7144), B( 7145), B( 7146) / .25, -.86, .00 / DATA B( 7315), B( 7316), B( 7317) / .13, -.50, .00 / DATA B( 7486), B( 7487), B( 7488) / .02, -.19, .00 / DATA B( 7657), B( 7658), B( 7659) / -.08, .08, .00 / DATA B( 7828), B( 7829), B( 7830) / -.18, .29, .00 / DATA B( 7999), B( 8000), B( 8001) / -.26, .46, .00 / DATA B( 8170), B( 8171), B( 8172) / -.34, .59, .00 / DATA B( 8341), B( 8342), B( 8343) / -.40, .68, .00 / DATA B( 8512), B( 8513), B( 8514) / -.45, .75, .00 / DATA B( 8683), B( 8684), B( 8685) / -.49, .79, .00 / DATA B( 8854), B( 8855), B( 8856) / -.53, .81, .00 / DATA B( 9025), B( 9026), B( 9027) / -.56, .81, .00 / DATA B( 9196), B( 9197), B( 9198) / -.59, .81, .00 / DATA B( 9367), B( 9368), B( 9369) / -.61, .80, .00 / DATA B( 9538), B( 9539), B( 9540) / -.63, .78, .00 / DATA B( 9709), B( 9710), B( 9711) / -.64, .77, .00 / DATA B( 9880), B( 9881), B( 9882) / -.66, .76, .00 / DATA B(10051), B(10052), B(10053) / -.67, .75, .00 / DATA B(10222), B(10223), B(10224) / -.68, .75, .00 / DATA B(10393), B(10394), B(10395) / -.69, .75, .00 / DATA B(10564), B(10565), B(10566) / -.69, .76, .00 / DATA B(10735), B(10736), B(10737) / -.70, .77, .00 / DATA B(10906), B(10907), B(10908) / -.70, .78, .00 / DATA B(11077), B(11078), B(11079) / -.71, .80, .00 / DATA B(11248), B(11249), B(11250) / -.71, .82, .00 / DATA B(11419), B(11420), B(11421) / -.71, .84, .00 / DATA B(11590), B(11591), B(11592) / -.71, .86, .00 / DATA B(11761), B(11762), B(11763) / -.71, .88, .00 / DATA B(11932), B(11933), B(11934) / -.71, .90, .00 / DATA B(12103), B(12104), B(12105) / -.71, .91, .00 / DATA B(12274), B(12275), B(12276) / -.71, .92, .00 / DATA B(12445), B(12446), B(12447) / -.71, .93, .00 / DATA B(12616), B(12617), B(12618) / -.71, .93, .00 / DATA B( 136), B( 137), B( 138) / -2.65, 8.49, .00 / DATA B( 307), B( 308), B( 309) / -2.14, 7.71, .00 / DATA B( 478), B( 479), B( 480) / -1.29, 6.40, .00 / DATA B( 649), B( 650), B( 651) / -.30, 4.74, .00 / DATA B( 820), B( 821), B( 822) / .67, 3.01, .00 / DATA B( 991), B( 992), B( 993) / 1.47, 1.56, .00 / DATA B( 1162), B( 1163), B( 1164) / 2.02, .68, .00 / DATA B( 1333), B( 1334), B( 1335) / 2.19, .51, .00 / DATA B( 1504), B( 1505), B( 1506) / 1.92, .95, .00 / DATA B( 1675), B( 1676), B( 1677) / 1.34, 1.66, .00 / DATA B( 1846), B( 1847), B( 1848) / .72, 2.22, .00 / DATA B( 2017), B( 2018), B( 2019) / .25, 2.40, .00 / DATA B( 2188), B( 2189), B( 2190) / -.10, 2.13, .00 / DATA B( 2359), B( 2360), B( 2361) / -.39, 1.48, .00 / DATA B( 2530), B( 2531), B( 2532) / -.64, .54, .00 / DATA B( 2701), B( 2702), B( 2703) / -.82, -.55, .00 / DATA B( 2872), B( 2873), B( 2874) / -.90, -1.60, .00 / DATA B( 3043), B( 3044), B( 3045) / -.89, -2.45, .00 / DATA B( 3214), B( 3215), B( 3216) / -.83, -2.95, .00 / DATA B( 3385), B( 3386), B( 3387) / -.78, -3.05, .00 / DATA B( 3556), B( 3557), B( 3558) / -.76, -2.84, .00 / DATA B( 3727), B( 3728), B( 3729) / -.81, -2.46, .00 / DATA B( 3898), B( 3899), B( 3900) / -.93, -2.11, .00 / DATA B( 4069), B( 4070), B( 4071) / -1.07, -1.90, .00 / DATA B( 4240), B( 4241), B( 4242) / -1.19, -1.85, .00 / DATA B( 4411), B( 4412), B( 4413) / -1.19, -1.91, .00 / DATA B( 4582), B( 4583), B( 4584) / -1.03, -2.00, .00 / DATA B( 4753), B( 4754), B( 4755) / -.72, -2.12, .00 / DATA B( 4924), B( 4925), B( 4926) / -.30, -2.32, .00 / DATA B( 5095), B( 5096), B( 5097) / .22, -2.63, .00 / DATA B( 5266), B( 5267), B( 5268) / .76, -3.07, .00 / DATA B( 5437), B( 5438), B( 5439) / 1.10, -3.41, .00 / DATA B( 5608), B( 5609), B( 5610) / 1.18, -3.59, .00 / DATA B( 5779), B( 5780), B( 5781) / 1.17, -3.69, .00 / DATA B( 5950), B( 5951), B( 5952) / 1.07, -3.65, .00 / DATA B( 6121), B( 6122), B( 6123) / .92, -3.46, .00 / DATA B( 6292), B( 6293), B( 6294) / .78, -3.10, .00 / DATA B( 6463), B( 6464), B( 6465) / .64, -2.58, .00 / DATA B( 6634), B( 6635), B( 6636) / .53, -2.01, .00 / DATA B( 6805), B( 6806), B( 6807) / .41, -1.44, .00 / DATA B( 6976), B( 6977), B( 6978) / .30, -.92, .00 / DATA B( 7147), B( 7148), B( 7149) / .19, -.45, .00 / DATA B( 7318), B( 7319), B( 7320) / .07, -.05, .00 / DATA B( 7489), B( 7490), B( 7491) / -.04, .28, .00 / DATA B( 7660), B( 7661), B( 7662) / -.14, .55, .00 / DATA B( 7831), B( 7832), B( 7833) / -.23, .76, .00 / DATA B( 8002), B( 8003), B( 8004) / -.31, .92, .00 / DATA B( 8173), B( 8174), B( 8175) / -.39, 1.03, .00 / DATA B( 8344), B( 8345), B( 8346) / -.45, 1.10, .00 / DATA B( 8515), B( 8516), B( 8517) / -.51, 1.15, .00 / DATA B( 8686), B( 8687), B( 8688) / -.55, 1.17, .00 / DATA B( 8857), B( 8858), B( 8859) / -.59, 1.17, .00 / DATA B( 9028), B( 9029), B( 9030) / -.63, 1.15, .00 / DATA B( 9199), B( 9200), B( 9201) / -.65, 1.13, .00 / DATA B( 9370), B( 9371), B( 9372) / -.68, 1.10, .00 / DATA B( 9541), B( 9542), B( 9543) / -.70, 1.07, .00 / DATA B( 9712), B( 9713), B( 9714) / -.71, 1.04, .00 / DATA B( 9883), B( 9884), B( 9885) / -.73, 1.01, .00 / DATA B(10054), B(10055), B(10056) / -.74, .98, .00 / DATA B(10225), B(10226), B(10227) / -.75, .96, .00 / DATA B(10396), B(10397), B(10398) / -.76, .94, .00 / DATA B(10567), B(10568), B(10569) / -.76, .93, .00 / DATA B(10738), B(10739), B(10740) / -.77, .93, .00 / DATA B(10909), B(10910), B(10911) / -.77, .93, .00 / DATA B(11080), B(11081), B(11082) / -.77, .93, .00 / DATA B(11251), B(11252), B(11253) / -.78, .94, .00 / DATA B(11422), B(11423), B(11424) / -.78, .95, .00 / DATA B(11593), B(11594), B(11595) / -.78, .96, .00 / DATA B(11764), B(11765), B(11766) / -.78, .97, .00 / DATA B(11935), B(11936), B(11937) / -.77, .97, .00 / DATA B(12106), B(12107), B(12108) / -.77, .98, .00 / DATA B(12277), B(12278), B(12279) / -.77, .99, .00 / DATA B(12448), B(12449), B(12450) / -.77, .99, .00 / DATA B(12619), B(12620), B(12621) / -.78, .99, .00 / DATA B( 139), B( 140), B( 141) / -2.30, 7.92, .00 / DATA B( 310), B( 311), B( 312) / -1.89, 7.28, .00 / DATA B( 481), B( 482), B( 483) / -1.19, 6.19, .00 / DATA B( 652), B( 653), B( 654) / -.34, 4.81, .00 / DATA B( 823), B( 824), B( 825) / .50, 3.39, .00 / DATA B( 994), B( 995), B( 996) / 1.19, 2.18, .00 / DATA B( 1165), B( 1166), B( 1167) / 1.64, 1.39, .00 / DATA B( 1336), B( 1337), B( 1338) / 1.76, 1.11, .00 / DATA B( 1507), B( 1508), B( 1509) / 1.54, 1.27, .00 / DATA B( 1678), B( 1679), B( 1680) / 1.07, 1.66, .00 / DATA B( 1849), B( 1850), B( 1851) / .51, 2.00, .00 / DATA B( 2020), B( 2021), B( 2022) / -.03, 2.12, .00 / DATA B( 2191), B( 2192), B( 2193) / -.50, 1.92, .00 / DATA B( 2362), B( 2363), B( 2364) / -.91, 1.43, .00 / DATA B( 2533), B( 2534), B( 2535) / -1.22, .71, .00 / DATA B( 2704), B( 2705), B( 2706) / -1.41, -.12, .00 / DATA B( 2875), B( 2876), B( 2877) / -1.47, -.94, .00 / DATA B( 3046), B( 3047), B( 3048) / -1.43, -1.61, .00 / DATA B( 3217), B( 3218), B( 3219) / -1.33, -2.02, .00 / DATA B( 3388), B( 3389), B( 3390) / -1.23, -2.16, .00 / DATA B( 3559), B( 3560), B( 3561) / -1.15, -2.07, .00 / DATA B( 3730), B( 3731), B( 3732) / -1.13, -1.86, .00 / DATA B( 3901), B( 3902), B( 3903) / -1.16, -1.67, .00 / DATA B( 4072), B( 4073), B( 4074) / -1.20, -1.57, .00 / DATA B( 4243), B( 4244), B( 4245) / -1.20, -1.59, .00 / DATA B( 4414), B( 4415), B( 4416) / -1.12, -1.68, .00 / DATA B( 4585), B( 4586), B( 4587) / -.92, -1.84, .00 / DATA B( 4756), B( 4757), B( 4758) / -.59, -2.04, .00 / DATA B( 4927), B( 4928), B( 4929) / -.16, -2.31, .00 / DATA B( 5098), B( 5099), B( 5100) / .32, -2.66, .00 / DATA B( 5269), B( 5270), B( 5271) / .78, -3.05, .00 / DATA B( 5440), B( 5441), B( 5442) / 1.07, -3.38, .00 / DATA B( 5611), B( 5612), B( 5613) / 1.17, -3.59, .00 / DATA B( 5782), B( 5783), B( 5784) / 1.14, -3.68, .00 / DATA B( 5953), B( 5954), B( 5955) / 1.03, -3.64, .00 / DATA B( 6124), B( 6125), B( 6126) / .88, -3.43, .00 / DATA B( 6295), B( 6296), B( 6297) / .73, -3.02, .00 / DATA B( 6466), B( 6467), B( 6468) / .60, -2.44, .00 / DATA B( 6637), B( 6638), B( 6639) / .49, -1.78, .00 / DATA B( 6808), B( 6809), B( 6810) / .37, -1.12, .00 / DATA B( 6979), B( 6980), B( 6981) / .26, -.52, .00 / DATA B( 7150), B( 7151), B( 7152) / .14, .00, .00 / DATA B( 7321), B( 7322), B( 7323) / .03, .43, .00 / DATA B( 7492), B( 7493), B( 7494) / -.08, .77, .00 / DATA B( 7663), B( 7664), B( 7665) / -.19, 1.03, .00 / DATA B( 7834), B( 7835), B( 7836) / -.28, 1.23, .00 / DATA B( 8005), B( 8006), B( 8007) / -.36, 1.38, .00 / DATA B( 8176), B( 8177), B( 8178) / -.44, 1.47, .00 / DATA B( 8347), B( 8348), B( 8349) / -.50, 1.52, .00 / DATA B( 8518), B( 8519), B( 8520) / -.56, 1.55, .00 / DATA B( 8689), B( 8690), B( 8691) / -.61, 1.54, .00 / DATA B( 8860), B( 8861), B( 8862) / -.65, 1.52, .00 / DATA B( 9031), B( 9032), B( 9033) / -.69, 1.49, .00 / DATA B( 9202), B( 9203), B( 9204) / -.71, 1.44, .00 / DATA B( 9373), B( 9374), B( 9375) / -.74, 1.39, .00 / DATA B( 9544), B( 9545), B( 9546) / -.76, 1.34, .00 / DATA B( 9715), B( 9716), B( 9717) / -.78, 1.29, .00 / DATA B( 9886), B( 9887), B( 9888) / -.79, 1.24, .00 / DATA B(10057), B(10058), B(10059) / -.80, 1.20, .00 / DATA B(10228), B(10229), B(10230) / -.81, 1.16, .00 / DATA B(10399), B(10400), B(10401) / -.82, 1.13, .00 / DATA B(10570), B(10571), B(10572) / -.83, 1.10, .00 / DATA B(10741), B(10742), B(10743) / -.83, 1.08, .00 / DATA B(10912), B(10913), B(10914) / -.83, 1.07, .00 / DATA B(11083), B(11084), B(11085) / -.84, 1.06, .00 / DATA B(11254), B(11255), B(11256) / -.84, 1.05, .00 / DATA B(11425), B(11426), B(11427) / -.84, 1.05, .00 / DATA B(11596), B(11597), B(11598) / -.84, 1.05, .00 / DATA B(11767), B(11768), B(11769) / -.84, 1.05, .00 / DATA B(11938), B(11939), B(11940) / -.84, 1.05, .00 / DATA B(12109), B(12110), B(12111) / -.84, 1.05, .00 / DATA B(12280), B(12281), B(12282) / -.84, 1.05, .00 / DATA B(12451), B(12452), B(12453) / -.84, 1.05, .00 / DATA B(12622), B(12623), B(12624) / -.84, 1.05, .00 / DATA B( 142), B( 143), B( 144) / -1.77, 7.02, .00 / DATA B( 313), B( 314), B( 315) / -1.46, 6.52, .00 / DATA B( 484), B( 485), B( 486) / -.92, 5.64, .00 / DATA B( 655), B( 656), B( 657) / -.26, 4.54, .00 / DATA B( 826), B( 827), B( 828) / .41, 3.40, .00 / DATA B( 997), B( 998), B( 999) / .96, 2.40, .00 / DATA B( 1168), B( 1169), B( 1170) / 1.29, 1.71, .00 / DATA B( 1339), B( 1340), B( 1341) / 1.37, 1.38, .00 / DATA B( 1510), B( 1511), B( 1512) / 1.17, 1.37, .00 / DATA B( 1681), B( 1682), B( 1683) / .77, 1.55, .00 / DATA B( 1852), B( 1853), B( 1854) / .24, 1.75, .00 / DATA B( 2023), B( 2024), B( 2025) / -.34, 1.82, .00 / DATA B( 2194), B( 2195), B( 2196) / -.90, 1.70, .00 / DATA B( 2365), B( 2366), B( 2367) / -1.40, 1.37, .00 / DATA B( 2536), B( 2537), B( 2538) / -1.78, .87, .00 / DATA B( 2707), B( 2708), B( 2709) / -1.99, .26, .00 / DATA B( 2878), B( 2879), B( 2880) / -2.01, -.35, .00 / DATA B( 3049), B( 3050), B( 3051) / -1.91, -.86, .00 / DATA B( 3220), B( 3221), B( 3222) / -1.75, -1.19, .00 / DATA B( 3391), B( 3392), B( 3393) / -1.59, -1.31, .00 / DATA B( 3562), B( 3563), B( 3564) / -1.46, -1.28, .00 / DATA B( 3733), B( 3734), B( 3735) / -1.37, -1.19, .00 / DATA B( 3904), B( 3905), B( 3906) / -1.32, -1.13, .00 / DATA B( 4075), B( 4076), B( 4077) / -1.28, -1.14, .00 / DATA B( 4246), B( 4247), B( 4248) / -1.20, -1.24, .00 / DATA B( 4417), B( 4418), B( 4419) / -1.06, -1.41, .00 / DATA B( 4588), B( 4589), B( 4590) / -.82, -1.62, .00 / DATA B( 4759), B( 4760), B( 4761) / -.49, -1.89, .00 / DATA B( 4930), B( 4931), B( 4932) / -.09, -2.20, .00 / DATA B( 5101), B( 5102), B( 5103) / .33, -2.56, .00 / DATA B( 5272), B( 5273), B( 5274) / .72, -2.92, .00 / DATA B( 5443), B( 5444), B( 5445) / .98, -3.24, .00 / DATA B( 5614), B( 5615), B( 5616) / 1.10, -3.49, .00 / DATA B( 5785), B( 5786), B( 5787) / 1.09, -3.61, .00 / DATA B( 5956), B( 5957), B( 5958) / 1.00, -3.58, .00 / DATA B( 6127), B( 6128), B( 6129) / .85, -3.35, .00 / DATA B( 6298), B( 6299), B( 6300) / .70, -2.90, .00 / DATA B( 6469), B( 6470), B( 6471) / .59, -2.24, .00 / DATA B( 6640), B( 6641), B( 6642) / .48, -1.48, .00 / DATA B( 6811), B( 6812), B( 6813) / .36, -.73, .00 / DATA B( 6982), B( 6983), B( 6984) / .23, -.06, .00 / DATA B( 7153), B( 7154), B( 7155) / .11, .49, .00 / DATA B( 7324), B( 7325), B( 7326) / -.01, .94, .00 / DATA B( 7495), B( 7496), B( 7497) / -.12, 1.28, .00 / DATA B( 7666), B( 7667), B( 7668) / -.23, 1.53, .00 / DATA B( 7837), B( 7838), B( 7839) / -.32, 1.72, .00 / DATA B( 8008), B( 8009), B( 8010) / -.41, 1.84, .00 / DATA B( 8179), B( 8180), B( 8181) / -.48, 1.91, .00 / DATA B( 8350), B( 8351), B( 8352) / -.55, 1.94, .00 / DATA B( 8521), B( 8522), B( 8523) / -.61, 1.94, .00 / DATA B( 8692), B( 8693), B( 8694) / -.66, 1.91, .00 / DATA B( 8863), B( 8864), B( 8865) / -.70, 1.87, .00 / DATA B( 9034), B( 9035), B( 9036) / -.74, 1.81, .00 / DATA B( 9205), B( 9206), B( 9207) / -.77, 1.74, .00 / DATA B( 9376), B( 9377), B( 9378) / -.80, 1.67, .00 / DATA B( 9547), B( 9548), B( 9549) / -.82, 1.60, .00 / DATA B( 9718), B( 9719), B( 9720) / -.84, 1.53, .00 / DATA B( 9889), B( 9890), B( 9891) / -.85, 1.47, .00 / DATA B(10060), B(10061), B(10062) / -.86, 1.41, .00 / DATA B(10231), B(10232), B(10233) / -.87, 1.35, .00 / DATA B(10402), B(10403), B(10404) / -.88, 1.30, .00 / DATA B(10573), B(10574), B(10575) / -.89, 1.26, .00 / DATA B(10744), B(10745), B(10746) / -.89, 1.23, .00 / DATA B(10915), B(10916), B(10917) / -.89, 1.20, .00 / DATA B(11086), B(11087), B(11088) / -.89, 1.18, .00 / DATA B(11257), B(11258), B(11259) / -.90, 1.16, .00 / DATA B(11428), B(11429), B(11430) / -.90, 1.15, .00 / DATA B(11599), B(11600), B(11601) / -.90, 1.14, .00 / DATA B(11770), B(11771), B(11772) / -.90, 1.13, .00 / DATA B(11941), B(11942), B(11943) / -.89, 1.12, .00 / DATA B(12112), B(12113), B(12114) / -.89, 1.12, .00 / DATA B(12283), B(12284), B(12285) / -.89, 1.11, .00 / DATA B(12454), B(12455), B(12456) / -.89, 1.11, .00 / DATA B(12625), B(12626), B(12627) / -.90, 1.11, .00 / DATA B( 145), B( 146), B( 147) / -1.16, 5.93, .00 / DATA B( 316), B( 317), B( 318) / -.94, 5.54, .00 / DATA B( 487), B( 488), B( 489) / -.56, 4.87, .00 / DATA B( 658), B( 659), B( 660) / -.07, 4.01, .00 / DATA B( 829), B( 830), B( 831) / .41, 3.11, .00 / DATA B( 1000), B( 1001), B( 1002) / .80, 2.30, .00 / DATA B( 1171), B( 1172), B( 1173) / 1.03, 1.70, .00 / DATA B( 1342), B( 1343), B( 1344) / 1.06, 1.37, .00 / DATA B( 1513), B( 1514), B( 1515) / .87, 1.27, .00 / DATA B( 1684), B( 1685), B( 1686) / .50, 1.33, .00 / DATA B( 1855), B( 1856), B( 1857) / .00, 1.44, .00 / DATA B( 2026), B( 2027), B( 2028) / -.59, 1.50, .00 / DATA B( 2197), B( 2198), B( 2199) / -1.22, 1.45, .00 / DATA B( 2368), B( 2369), B( 2370) / -1.82, 1.28, .00 / DATA B( 2539), B( 2540), B( 2541) / -2.28, .97, .00 / DATA B( 2710), B( 2711), B( 2712) / -2.48, .56, .00 / DATA B( 2881), B( 2882), B( 2883) / -2.45, .13, .00 / DATA B( 3052), B( 3053), B( 3054) / -2.28, -.24, .00 / DATA B( 3223), B( 3224), B( 3225) / -2.06, -.47, .00 / DATA B( 3394), B( 3395), B( 3396) / -1.84, -.56, .00 / DATA B( 3565), B( 3566), B( 3567) / -1.66, -.54, .00 / DATA B( 3736), B( 3737), B( 3738) / -1.52, -.52, .00 / DATA B( 3907), B( 3908), B( 3909) / -1.41, -.55, .00 / DATA B( 4078), B( 4079), B( 4080) / -1.31, -.67, .00 / DATA B( 4249), B( 4250), B( 4251) / -1.19, -.85, .00 / DATA B( 4420), B( 4421), B( 4422) / -1.01, -1.09, .00 / DATA B( 4591), B( 4592), B( 4593) / -.76, -1.37, .00 / DATA B( 4762), B( 4763), B( 4764) / -.44, -1.68, .00 / DATA B( 4933), B( 4934), B( 4935) / -.08, -2.02, .00 / DATA B( 5104), B( 5105), B( 5106) / .30, -2.38, .00 / DATA B( 5275), B( 5276), B( 5277) / .63, -2.72, .00 / DATA B( 5446), B( 5447), B( 5448) / .87, -3.04, .00 / DATA B( 5617), B( 5618), B( 5619) / 1.01, -3.31, .00 / DATA B( 5788), B( 5789), B( 5790) / 1.04, -3.48, .00 / DATA B( 5959), B( 5960), B( 5961) / 1.00, -3.47, .00 / DATA B( 6130), B( 6131), B( 6132) / .87, -3.24, .00 / DATA B( 6301), B( 6302), B( 6303) / .72, -2.73, .00 / DATA B( 6472), B( 6473), B( 6474) / .65, -1.96, .00 / DATA B( 6643), B( 6644), B( 6645) / .52, -1.09, .00 / DATA B( 6814), B( 6815), B( 6816) / .38, -.25, .00 / DATA B( 6985), B( 6986), B( 6987) / .23, .47, .00 / DATA B( 7156), B( 7157), B( 7158) / .09, 1.04, .00 / DATA B( 7327), B( 7328), B( 7329) / -.04, 1.48, .00 / DATA B( 7498), B( 7499), B( 7500) / -.16, 1.81, .00 / DATA B( 7669), B( 7670), B( 7671) / -.26, 2.04, .00 / DATA B( 7840), B( 7841), B( 7842) / -.36, 2.20, .00 / DATA B( 8011), B( 8012), B( 8013) / -.45, 2.29, .00 / DATA B( 8182), B( 8183), B( 8184) / -.53, 2.33, .00 / DATA B( 8353), B( 8354), B( 8355) / -.59, 2.34, .00 / DATA B( 8524), B( 8525), B( 8526) / -.65, 2.31, .00 / DATA B( 8695), B( 8696), B( 8697) / -.71, 2.26, .00 / DATA B( 8866), B( 8867), B( 8868) / -.75, 2.20, .00 / DATA B( 9037), B( 9038), B( 9039) / -.79, 2.12, .00 / DATA B( 9208), B( 9209), B( 9210) / -.82, 2.03, .00 / DATA B( 9379), B( 9380), B( 9381) / -.85, 1.94, .00 / DATA B( 9550), B( 9551), B( 9552) / -.87, 1.85, .00 / DATA B( 9721), B( 9722), B( 9723) / -.89, 1.76, .00 / DATA B( 9892), B( 9893), B( 9894) / -.90, 1.68, .00 / DATA B(10063), B(10064), B(10065) / -.92, 1.60, .00 / DATA B(10234), B(10235), B(10236) / -.93, 1.53, .00 / DATA B(10405), B(10406), B(10407) / -.93, 1.47, .00 / DATA B(10576), B(10577), B(10578) / -.94, 1.41, .00 / DATA B(10747), B(10748), B(10749) / -.94, 1.36, .00 / DATA B(10918), B(10919), B(10920) / -.95, 1.32, .00 / DATA B(11089), B(11090), B(11091) / -.95, 1.29, .00 / DATA B(11260), B(11261), B(11262) / -.95, 1.26, .00 / DATA B(11431), B(11432), B(11433) / -.95, 1.24, .00 / DATA B(11602), B(11603), B(11604) / -.95, 1.22, .00 / DATA B(11773), B(11774), B(11775) / -.95, 1.20, .00 / DATA B(11944), B(11945), B(11946) / -.95, 1.19, .00 / DATA B(12115), B(12116), B(12117) / -.95, 1.18, .00 / DATA B(12286), B(12287), B(12288) / -.95, 1.18, .00 / DATA B(12457), B(12458), B(12459) / -.95, 1.17, .00 / DATA B(12628), B(12629), B(12630) / -.95, 1.16, .00 / DATA B( 148), B( 149), B( 150) / -.54, 4.73, .00 / DATA B( 319), B( 320), B( 321) / -.39, 4.45, .00 / DATA B( 490), B( 491), B( 492) / -.14, 3.95, .00 / DATA B( 661), B( 662), B( 663) / .18, 3.30, .00 / DATA B( 832), B( 833), B( 834) / .50, 2.60, .00 / DATA B( 1003), B( 1004), B( 1005) / .75, 1.95, .00 / DATA B( 1174), B( 1175), B( 1176) / .87, 1.45, .00 / DATA B( 1345), B( 1346), B( 1347) / .85, 1.13, .00 / DATA B( 1516), B( 1517), B( 1518) / .66, .99, .00 / DATA B( 1687), B( 1688), B( 1689) / .33, .99, .00 / DATA B( 1858), B( 1859), B( 1860) / -.14, 1.06, .00 / DATA B( 2029), B( 2030), B( 2031) / -.72, 1.12, .00 / DATA B( 2200), B( 2201), B( 2202) / -1.38, 1.15, .00 / DATA B( 2371), B( 2372), B( 2373) / -2.06, 1.12, .00 / DATA B( 2542), B( 2543), B( 2544) / -2.61, .99, .00 / DATA B( 2713), B( 2714), B( 2715) / -2.82, .76, .00 / DATA B( 2884), B( 2885), B( 2886) / -2.70, .46, .00 / DATA B( 3055), B( 3056), B( 3057) / -2.47, .22, .00 / DATA B( 3226), B( 3227), B( 3228) / -2.21, .08, .00 / DATA B( 3397), B( 3398), B( 3399) / -1.97, .06, .00 / DATA B( 3568), B( 3569), B( 3570) / -1.76, .11, .00 / DATA B( 3739), B( 3740), B( 3741) / -1.59, .12, .00 / DATA B( 3910), B( 3911), B( 3912) / -1.45, .01, .00 / DATA B( 4081), B( 4082), B( 4083) / -1.32, -.21, .00 / DATA B( 4252), B( 4253), B( 4254) / -1.16, -.47, .00 / DATA B( 4423), B( 4424), B( 4425) / -.97, -.77, .00 / DATA B( 4594), B( 4595), B( 4596) / -.72, -1.10, .00 / DATA B( 4765), B( 4766), B( 4767) / -.42, -1.45, .00 / DATA B( 4936), B( 4937), B( 4938) / -.09, -1.80, .00 / DATA B( 5107), B( 5108), B( 5109) / .23, -2.16, .00 / DATA B( 5278), B( 5279), B( 5280) / .53, -2.49, .00 / DATA B( 5449), B( 5450), B( 5451) / .76, -2.80, .00 / DATA B( 5620), B( 5621), B( 5622) / .92, -3.09, .00 / DATA B( 5791), B( 5792), B( 5793) / 1.01, -3.27, .00 / DATA B( 5962), B( 5963), B( 5964) / 1.04, -3.30, .00 / DATA B( 6133), B( 6134), B( 6135) / 1.00, -3.08, .00 / DATA B( 6304), B( 6305), B( 6306) / .89, -2.51, .00 / DATA B( 6475), B( 6476), B( 6477) / .79, -1.61, .00 / DATA B( 6646), B( 6647), B( 6648) / .61, -.60, .00 / DATA B( 6817), B( 6818), B( 6819) / .41, .32, .00 / DATA B( 6988), B( 6989), B( 6990) / .24, 1.06, .00 / DATA B( 7159), B( 7160), B( 7161) / .08, 1.62, .00 / DATA B( 7330), B( 7331), B( 7332) / -.06, 2.04, .00 / DATA B( 7501), B( 7502), B( 7503) / -.18, 2.33, .00 / DATA B( 7672), B( 7673), B( 7674) / -.29, 2.54, .00 / DATA B( 7843), B( 7844), B( 7845) / -.39, 2.66, .00 / DATA B( 8014), B( 8015), B( 8016) / -.48, 2.73, .00 / DATA B( 8185), B( 8186), B( 8187) / -.56, 2.74, .00 / DATA B( 8356), B( 8357), B( 8358) / -.63, 2.72, .00 / DATA B( 8527), B( 8528), B( 8529) / -.69, 2.67, .00 / DATA B( 8698), B( 8699), B( 8700) / -.75, 2.59, .00 / DATA B( 8869), B( 8870), B( 8871) / -.79, 2.50, .00 / DATA B( 9040), B( 9041), B( 9042) / -.83, 2.40, .00 / DATA B( 9211), B( 9212), B( 9213) / -.87, 2.30, .00 / DATA B( 9382), B( 9383), B( 9384) / -.89, 2.19, .00 / DATA B( 9553), B( 9554), B( 9555) / -.92, 2.08, .00 / DATA B( 9724), B( 9725), B( 9726) / -.94, 1.97, .00 / DATA B( 9895), B( 9896), B( 9897) / -.95, 1.87, .00 / DATA B(10066), B(10067), B(10068) / -.96, 1.78, .00 / DATA B(10237), B(10238), B(10239) / -.97, 1.70, .00 / DATA B(10408), B(10409), B(10410) / -.98, 1.62, .00 / DATA B(10579), B(10580), B(10581) / -.99, 1.55, .00 / DATA B(10750), B(10751), B(10752) / -.99, 1.49, .00 / DATA B(10921), B(10922), B(10923) / -.99, 1.44, .00 / DATA B(11092), B(11093), B(11094) / -.99, 1.39, .00 / DATA B(11263), B(11264), B(11265) / -.99, 1.35, .00 / DATA B(11434), B(11435), B(11436) / -.99, 1.32, .00 / DATA B(11605), B(11606), B(11607) / -.99, 1.30, .00 / DATA B(11776), B(11777), B(11778) / -.99, 1.27, .00 / DATA B(11947), B(11948), B(11949) / -.99, 1.26, .00 / DATA B(12118), B(12119), B(12120) / -.99, 1.24, .00 / DATA B(12289), B(12290), B(12291) / -.99, 1.23, .00 / DATA B(12460), B(12461), B(12462) / -.99, 1.22, .00 / DATA B(12631), B(12632), B(12633) / -.99, 1.22, .00 / DATA B( 151), B( 152), B( 153) / .09, 3.51, .00 / DATA B( 322), B( 323), B( 324) / .16, 3.31, .00 / DATA B( 493), B( 494), B( 495) / .30, 2.95, .00 / DATA B( 664), B( 665), B( 666) / .48, 2.47, .00 / DATA B( 835), B( 836), B( 837) / .65, 1.95, .00 / DATA B( 1006), B( 1007), B( 1008) / .77, 1.44, .00 / DATA B( 1177), B( 1178), B( 1179) / .80, 1.02, .00 / DATA B( 1348), B( 1349), B( 1350) / .73, .73, .00 / DATA B( 1519), B( 1520), B( 1521) / .56, .59, .00 / DATA B( 1690), B( 1691), B( 1692) / .27, .57, .00 / DATA B( 1861), B( 1862), B( 1863) / -.14, .62, .00 / DATA B( 2032), B( 2033), B( 2034) / -.65, .69, .00 / DATA B( 2203), B( 2204), B( 2205) / -1.27, .77, .00 / DATA B( 2374), B( 2375), B( 2376) / -1.97, .83, .00 / DATA B( 2545), B( 2546), B( 2547) / -2.68, .90, .00 / DATA B( 2716), B( 2717), B( 2718) / -2.84, .79, .00 / DATA B( 2887), B( 2888), B( 2889) / -2.65, .61, .00 / DATA B( 3058), B( 3059), B( 3060) / -2.42, .50, .00 / DATA B( 3229), B( 3230), B( 3231) / -2.18, .47, .00 / DATA B( 3400), B( 3401), B( 3402) / -1.96, .51, .00 / DATA B( 3571), B( 3572), B( 3573) / -1.76, .60, .00 / DATA B( 3742), B( 3743), B( 3744) / -1.58, .67, .00 / DATA B( 3913), B( 3914), B( 3915) / -1.44, .45, .00 / DATA B( 4084), B( 4085), B( 4086) / -1.30, .18, .00 / DATA B( 4255), B( 4256), B( 4257) / -1.14, -.13, .00 / DATA B( 4426), B( 4427), B( 4428) / -.94, -.47, .00 / DATA B( 4597), B( 4598), B( 4599) / -.70, -.83, .00 / DATA B( 4768), B( 4769), B( 4770) / -.42, -1.20, .00 / DATA B( 4939), B( 4940), B( 4941) / -.13, -1.57, .00 / DATA B( 5110), B( 5111), B( 5112) / .16, -1.93, .00 / DATA B( 5281), B( 5282), B( 5283) / .42, -2.26, .00 / DATA B( 5452), B( 5453), B( 5454) / .64, -2.56, .00 / DATA B( 5623), B( 5624), B( 5625) / .82, -2.82, .00 / DATA B( 5794), B( 5795), B( 5796) / .96, -2.99, .00 / DATA B( 5965), B( 5966), B( 5967) / 1.09, -3.04, .00 / DATA B( 6136), B( 6137), B( 6138) / 1.21, -2.85, .00 / DATA B( 6307), B( 6308), B( 6309) / 1.20, -2.24, .00 / DATA B( 6478), B( 6479), B( 6480) / 1.00, -1.17, .00 / DATA B( 6649), B( 6650), B( 6651) / .71, .00, .00 / DATA B( 6820), B( 6821), B( 6822) / .46, .97, .00 / DATA B( 6991), B( 6992), B( 6993) / .25, 1.69, .00 / DATA B( 7162), B( 7163), B( 7164) / .09, 2.22, .00 / DATA B( 7333), B( 7334), B( 7335) / -.06, 2.59, .00 / DATA B( 7504), B( 7505), B( 7506) / -.19, 2.85, .00 / DATA B( 7675), B( 7676), B( 7677) / -.31, 3.02, .00 / DATA B( 7846), B( 7847), B( 7848) / -.41, 3.11, .00 / DATA B( 8017), B( 8018), B( 8019) / -.51, 3.14, .00 / DATA B( 8188), B( 8189), B( 8190) / -.59, 3.13, .00 / DATA B( 8359), B( 8360), B( 8361) / -.66, 3.08, .00 / DATA B( 8530), B( 8531), B( 8532) / -.73, 3.00, .00 / DATA B( 8701), B( 8702), B( 8703) / -.78, 2.90, .00 / DATA B( 8872), B( 8873), B( 8874) / -.83, 2.79, .00 / DATA B( 9043), B( 9044), B( 9045) / -.87, 2.66, .00 / DATA B( 9214), B( 9215), B( 9216) / -.91, 2.54, .00 / DATA B( 9385), B( 9386), B( 9387) / -.93, 2.41, .00 / DATA B( 9556), B( 9557), B( 9558) / -.96, 2.28, .00 / DATA B( 9727), B( 9728), B( 9729) / -.98, 2.16, .00 / DATA B( 9898), B( 9899), B( 9900) / -.99, 2.05, .00 / DATA B(10069), B(10070), B(10071) / -1.00, 1.94, .00 / DATA B(10240), B(10241), B(10242) / -1.01, 1.84, .00 / DATA B(10411), B(10412), B(10413) / -1.02, 1.75, .00 / DATA B(10582), B(10583), B(10584) / -1.03, 1.67, .00 / DATA B(10753), B(10754), B(10755) / -1.03, 1.60, .00 / DATA B(10924), B(10925), B(10926) / -1.03, 1.54, .00 / DATA B(11095), B(11096), B(11097) / -1.03, 1.49, .00 / DATA B(11266), B(11267), B(11268) / -1.04, 1.44, .00 / DATA B(11437), B(11438), B(11439) / -1.04, 1.40, .00 / DATA B(11608), B(11609), B(11610) / -1.03, 1.37, .00 / DATA B(11779), B(11780), B(11781) / -1.03, 1.34, .00 / DATA B(11950), B(11951), B(11952) / -1.03, 1.32, .00 / DATA B(12121), B(12122), B(12123) / -1.03, 1.30, .00 / DATA B(12292), B(12293), B(12294) / -1.03, 1.28, .00 / DATA B(12463), B(12464), B(12465) / -1.03, 1.27, .00 / DATA B(12634), B(12635), B(12636) / -1.03, 1.27, .00 / DATA B( 154), B( 155), B( 156) / .68, 2.31, .00 / DATA B( 325), B( 326), B( 327) / .70, 2.19, .00 / DATA B( 496), B( 497), B( 498) / .75, 1.95, .00 / DATA B( 667), B( 668), B( 669) / .80, 1.62, .00 / DATA B( 838), B( 839), B( 840) / .85, 1.23, .00 / DATA B( 1009), B( 1010), B( 1011) / .86, .84, .00 / DATA B( 1180), B( 1181), B( 1182) / .81, .49, .00 / DATA B( 1351), B( 1352), B( 1353) / .71, .24, .00 / DATA B( 1522), B( 1523), B( 1524) / .55, .12, .00 / DATA B( 1693), B( 1694), B( 1695) / .32, .09, .00 / DATA B( 1864), B( 1865), B( 1866) / .02, .13, .00 / DATA B( 2035), B( 2036), B( 2037) / -.38, .21, .00 / DATA B( 2206), B( 2207), B( 2208) / -.88, .30, .00 / DATA B( 2377), B( 2378), B( 2379) / -1.45, .41, .00 / DATA B( 2548), B( 2549), B( 2550) / -2.01, .53, .00 / DATA B( 2719), B( 2720), B( 2721) / -2.26, .57, .00 / DATA B( 2890), B( 2891), B( 2892) / -2.24, .57, .00 / DATA B( 3061), B( 3062), B( 3063) / -2.13, .60, .00 / DATA B( 3232), B( 3233), B( 3234) / -1.99, .68, .00 / DATA B( 3403), B( 3404), B( 3405) / -1.84, .78, .00 / DATA B( 3574), B( 3575), B( 3576) / -1.69, .89, .00 / DATA B( 3745), B( 3746), B( 3747) / -1.54, .91, .00 / DATA B( 3916), B( 3917), B( 3918) / -1.41, .75, .00 / DATA B( 4087), B( 4088), B( 4089) / -1.27, .48, .00 / DATA B( 4258), B( 4259), B( 4260) / -1.11, .15, .00 / DATA B( 4429), B( 4430), B( 4431) / -.91, -.21, .00 / DATA B( 4600), B( 4601), B( 4602) / -.69, -.58, .00 / DATA B( 4771), B( 4772), B( 4773) / -.44, -.97, .00 / DATA B( 4942), B( 4943), B( 4944) / -.18, -1.34, .00 / DATA B( 5113), B( 5114), B( 5115) / .08, -1.69, .00 / DATA B( 5284), B( 5285), B( 5286) / .32, -2.01, .00 / DATA B( 5455), B( 5456), B( 5457) / .53, -2.29, .00 / DATA B( 5626), B( 5627), B( 5628) / .71, -2.50, .00 / DATA B( 5797), B( 5798), B( 5799) / .87, -2.62, .00 / DATA B( 5968), B( 5969), B( 5970) / 1.05, -2.63, .00 / DATA B( 6139), B( 6140), B( 6141) / 1.34, -2.50, .00 / DATA B( 6310), B( 6311), B( 6312) / 1.48, -1.91, .00 / DATA B( 6481), B( 6482), B( 6483) / 1.16, -.61, .00 / DATA B( 6652), B( 6653), B( 6654) / .78, .72, .00 / DATA B( 6823), B( 6824), B( 6825) / .49, 1.68, .00 / DATA B( 6994), B( 6995), B( 6996) / .28, 2.32, .00 / DATA B( 7165), B( 7166), B( 7167) / .10, 2.79, .00 / DATA B( 7336), B( 7337), B( 7338) / -.05, 3.11, .00 / DATA B( 7507), B( 7508), B( 7509) / -.19, 3.33, .00 / DATA B( 7678), B( 7679), B( 7680) / -.32, 3.46, .00 / DATA B( 7849), B( 7850), B( 7851) / -.43, 3.52, .00 / DATA B( 8020), B( 8021), B( 8022) / -.53, 3.52, .00 / DATA B( 8191), B( 8192), B( 8193) / -.61, 3.48, .00 / DATA B( 8362), B( 8363), B( 8364) / -.69, 3.40, .00 / DATA B( 8533), B( 8534), B( 8535) / -.76, 3.29, .00 / DATA B( 8704), B( 8705), B( 8706) / -.81, 3.17, .00 / DATA B( 8875), B( 8876), B( 8877) / -.86, 3.04, .00 / DATA B( 9046), B( 9047), B( 9048) / -.90, 2.90, .00 / DATA B( 9217), B( 9218), B( 9219) / -.94, 2.75, .00 / DATA B( 9388), B( 9389), B( 9390) / -.97, 2.61, .00 / DATA B( 9559), B( 9560), B( 9561) / -.99, 2.47, .00 / DATA B( 9730), B( 9731), B( 9732) / -1.01, 2.33, .00 / DATA B( 9901), B( 9902), B( 9903) / -1.03, 2.20, .00 / DATA B(10072), B(10073), B(10074) / -1.04, 2.08, .00 / DATA B(10243), B(10244), B(10245) / -1.05, 1.97, .00 / DATA B(10414), B(10415), B(10416) / -1.06, 1.87, .00 / DATA B(10585), B(10586), B(10587) / -1.06, 1.78, .00 / DATA B(10756), B(10757), B(10758) / -1.07, 1.70, .00 / DATA B(10927), B(10928), B(10929) / -1.07, 1.63, .00 / DATA B(11098), B(11099), B(11100) / -1.07, 1.57, .00 / DATA B(11269), B(11270), B(11271) / -1.07, 1.51, .00 / DATA B(11440), B(11441), B(11442) / -1.07, 1.47, .00 / DATA B(11611), B(11612), B(11613) / -1.07, 1.43, .00 / DATA B(11782), B(11783), B(11784) / -1.07, 1.40, .00 / DATA B(11953), B(11954), B(11955) / -1.07, 1.37, .00 / DATA B(12124), B(12125), B(12126) / -1.07, 1.35, .00 / DATA B(12295), B(12296), B(12297) / -1.07, 1.33, .00 / DATA B(12466), B(12467), B(12468) / -1.07, 1.32, .00 / DATA B(12637), B(12638), B(12639) / -1.07, 1.31, .00 / DATA B( 157), B( 158), B( 159) / 1.24, 1.20, .00 / DATA B( 328), B( 329), B( 330) / 1.21, 1.15, .00 / DATA B( 499), B( 500), B( 501) / 1.17, 1.01, .00 / DATA B( 670), B( 671), B( 672) / 1.12, .80, .00 / DATA B( 841), B( 842), B( 843) / 1.06, .53, .00 / DATA B( 1012), B( 1013), B( 1014) / .99, .24, .00 / DATA B( 1183), B( 1184), B( 1185) / .89, -.05, .00 / DATA B( 1354), B( 1355), B( 1356) / .75, -.27, .00 / DATA B( 1525), B( 1526), B( 1527) / .63, -.37, .00 / DATA B( 1696), B( 1697), B( 1698) / .48, -.39, .00 / DATA B( 1867), B( 1868), B( 1869) / .28, -.35, .00 / DATA B( 2038), B( 2039), B( 2040) / .03, -.29, .00 / DATA B( 2209), B( 2210), B( 2211) / -.27, -.21, .00 / DATA B( 2380), B( 2381), B( 2382) / -.62, -.11, .00 / DATA B( 2551), B( 2552), B( 2553) / -1.00, .03, .00 / DATA B( 2722), B( 2723), B( 2724) / -1.36, .21, .00 / DATA B( 2893), B( 2894), B( 2895) / -1.57, .39, .00 / DATA B( 3064), B( 3065), B( 3066) / -1.66, .57, .00 / DATA B( 3235), B( 3236), B( 3237) / -1.67, .74, .00 / DATA B( 3406), B( 3407), B( 3408) / -1.63, .91, .00 / DATA B( 3577), B( 3578), B( 3579) / -1.56, 1.03, .00 / DATA B( 3748), B( 3749), B( 3750) / -1.46, 1.04, .00 / DATA B( 3919), B( 3920), B( 3921) / -1.36, .92, .00 / DATA B( 4090), B( 4091), B( 4092) / -1.23, .68, .00 / DATA B( 4261), B( 4262), B( 4263) / -1.08, .37, .00 / DATA B( 4432), B( 4433), B( 4434) / -.90, .01, .00 / DATA B( 4603), B( 4604), B( 4605) / -.69, -.37, .00 / DATA B( 4774), B( 4775), B( 4776) / -.46, -.76, .00 / DATA B( 4945), B( 4946), B( 4947) / -.22, -1.13, .00 / DATA B( 5116), B( 5117), B( 5118) / .01, -1.47, .00 / DATA B( 5287), B( 5288), B( 5289) / .23, -1.76, .00 / DATA B( 5458), B( 5459), B( 5460) / .42, -2.00, .00 / DATA B( 5629), B( 5630), B( 5631) / .59, -2.15, .00 / DATA B( 5800), B( 5801), B( 5802) / .75, -2.19, .00 / DATA B( 5971), B( 5972), B( 5973) / .91, -2.08, .00 / DATA B( 6142), B( 6143), B( 6144) / 1.08, -1.78, .00 / DATA B( 6313), B( 6314), B( 6315) / 1.34, -1.22, .00 / DATA B( 6484), B( 6485), B( 6486) / 1.31, -.06, .00 / DATA B( 6655), B( 6656), B( 6657) / .79, 1.51, .00 / DATA B( 6826), B( 6827), B( 6828) / .54, 2.30, .00 / DATA B( 6997), B( 6998), B( 6999) / .32, 2.87, .00 / DATA B( 7168), B( 7169), B( 7170) / .13, 3.29, .00 / DATA B( 7339), B( 7340), B( 7341) / -.03, 3.57, .00 / DATA B( 7510), B( 7511), B( 7512) / -.19, 3.75, .00 / DATA B( 7681), B( 7682), B( 7683) / -.32, 3.85, .00 / DATA B( 7852), B( 7853), B( 7854) / -.44, 3.88, .00 / DATA B( 8023), B( 8024), B( 8025) / -.54, 3.85, .00 / DATA B( 8194), B( 8195), B( 8196) / -.63, 3.78, .00 / DATA B( 8365), B( 8366), B( 8367) / -.71, 3.68, .00 / DATA B( 8536), B( 8537), B( 8538) / -.78, 3.55, .00 / DATA B( 8707), B( 8708), B( 8709) / -.84, 3.41, .00 / DATA B( 8878), B( 8879), B( 8880) / -.89, 3.26, .00 / DATA B( 9049), B( 9050), B( 9051) / -.93, 3.10, .00 / DATA B( 9220), B( 9221), B( 9222) / -.97, 2.94, .00 / DATA B( 9391), B( 9392), B( 9393) / -1.00, 2.78, .00 / DATA B( 9562), B( 9563), B( 9564) / -1.02, 2.62, .00 / DATA B( 9733), B( 9734), B( 9735) / -1.04, 2.48, .00 / DATA B( 9904), B( 9905), B( 9906) / -1.06, 2.34, .00 / DATA B(10075), B(10076), B(10077) / -1.07, 2.21, .00 / DATA B(10246), B(10247), B(10248) / -1.08, 2.08, .00 / DATA B(10417), B(10418), B(10419) / -1.09, 1.97, .00 / DATA B(10588), B(10589), B(10590) / -1.09, 1.87, .00 / DATA B(10759), B(10760), B(10761) / -1.10, 1.79, .00 / DATA B(10930), B(10931), B(10932) / -1.10, 1.71, .00 / DATA B(11101), B(11102), B(11103) / -1.10, 1.64, .00 / DATA B(11272), B(11273), B(11274) / -1.10, 1.58, .00 / DATA B(11443), B(11444), B(11445) / -1.10, 1.52, .00 / DATA B(11614), B(11615), B(11616) / -1.10, 1.48, .00 / DATA B(11785), B(11786), B(11787) / -1.10, 1.44, .00 / DATA B(11956), B(11957), B(11958) / -1.10, 1.41, .00 / DATA B(12127), B(12128), B(12129) / -1.10, 1.39, .00 / DATA B(12298), B(12299), B(12300) / -1.10, 1.37, .00 / DATA B(12469), B(12470), B(12471) / -1.10, 1.36, .00 / DATA B(12640), B(12641), B(12642) / -1.10, 1.35, .00 / DATA B( 160), B( 161), B( 162) / 1.71, .25, .00 / DATA B( 331), B( 332), B( 333) / 1.65, .24, .00 / DATA B( 502), B( 503), B( 504) / 1.53, .20, .00 / DATA B( 673), B( 674), B( 675) / 1.41, .08, .00 / DATA B( 844), B( 845), B( 846) / 1.28, -.09, .00 / DATA B( 1015), B( 1016), B( 1017) / 1.14, -.31, .00 / DATA B( 1186), B( 1187), B( 1188) / 1.00, -.53, .00 / DATA B( 1357), B( 1358), B( 1359) / .87, -.72, .00 / DATA B( 1528), B( 1529), B( 1530) / .77, -.80, .00 / DATA B( 1699), B( 1700), B( 1701) / .69, -.81, .00 / DATA B( 1870), B( 1871), B( 1872) / .61, -.79, .00 / DATA B( 2041), B( 2042), B( 2043) / .50, -.75, .00 / DATA B( 2212), B( 2213), B( 2214) / .38, -.69, .00 / DATA B( 2383), B( 2384), B( 2385) / .26, -.62, .00 / DATA B( 2554), B( 2555), B( 2556) / .06, -.48, .00 / DATA B( 2725), B( 2726), B( 2727) / -.45, -.17, .00 / DATA B( 2896), B( 2897), B( 2898) / -.86, .15, .00 / DATA B( 3067), B( 3068), B( 3069) / -1.14, .45, .00 / DATA B( 3238), B( 3239), B( 3240) / -1.30, .72, .00 / DATA B( 3409), B( 3410), B( 3411) / -1.38, .94, .00 / DATA B( 3580), B( 3581), B( 3582) / -1.40, 1.08, .00 / DATA B( 3751), B( 3752), B( 3753) / -1.36, 1.12, .00 / DATA B( 3922), B( 3923), B( 3924) / -1.29, 1.02, .00 / DATA B( 4093), B( 4094), B( 4095) / -1.19, .82, .00 / DATA B( 4264), B( 4265), B( 4266) / -1.05, .52, .00 / DATA B( 4435), B( 4436), B( 4437) / -.88, .17, .00 / DATA B( 4606), B( 4607), B( 4608) / -.69, -.20, .00 / DATA B( 4777), B( 4778), B( 4779) / -.48, -.58, .00 / DATA B( 4948), B( 4949), B( 4950) / -.27, -.94, .00 / DATA B( 5119), B( 5120), B( 5121) / -.05, -1.27, .00 / DATA B( 5290), B( 5291), B( 5292) / .15, -1.53, .00 / DATA B( 5461), B( 5462), B( 5463) / .33, -1.72, .00 / DATA B( 5632), B( 5633), B( 5634) / .49, -1.80, .00 / DATA B( 5803), B( 5804), B( 5805) / .64, -1.75, .00 / DATA B( 5974), B( 5975), B( 5976) / .77, -1.52, .00 / DATA B( 6145), B( 6146), B( 6147) / .91, -1.09, .00 / DATA B( 6316), B( 6317), B( 6318) / 1.56, -.79, .00 / DATA B( 6487), B( 6488), B( 6489) / 1.43, .39, .00 / DATA B( 6658), B( 6659), B( 6660) / .94, 1.85, .00 / DATA B( 6829), B( 6830), B( 6831) / .63, 2.71, .00 / DATA B( 7000), B( 7001), B( 7002) / .39, 3.28, .00 / DATA B( 7171), B( 7172), B( 7173) / .18, 3.68, .00 / DATA B( 7342), B( 7343), B( 7344) / -.01, 3.95, .00 / DATA B( 7513), B( 7514), B( 7515) / -.17, 4.11, .00 / DATA B( 7684), B( 7685), B( 7686) / -.32, 4.18, .00 / DATA B( 7855), B( 7856), B( 7857) / -.44, 4.18, .00 / DATA B( 8026), B( 8027), B( 8028) / -.55, 4.13, .00 / DATA B( 8197), B( 8198), B( 8199) / -.65, 4.03, .00 / DATA B( 8368), B( 8369), B( 8370) / -.73, 3.91, .00 / DATA B( 8539), B( 8540), B( 8541) / -.80, 3.76, .00 / DATA B( 8710), B( 8711), B( 8712) / -.86, 3.60, .00 / DATA B( 8881), B( 8882), B( 8883) / -.91, 3.43, .00 / DATA B( 9052), B( 9053), B( 9054) / -.95, 3.26, .00 / DATA B( 9223), B( 9224), B( 9225) / -.99, 3.09, .00 / DATA B( 9394), B( 9395), B( 9396) / -1.02, 2.92, .00 / DATA B( 9565), B( 9566), B( 9567) / -1.05, 2.75, .00 / DATA B( 9736), B( 9737), B( 9738) / -1.07, 2.59, .00 / DATA B( 9907), B( 9908), B( 9909) / -1.08, 2.44, .00 / DATA B(10078), B(10079), B(10080) / -1.09, 2.30, .00 / DATA B(10249), B(10250), B(10251) / -1.10, 2.17, .00 / DATA B(10420), B(10421), B(10422) / -1.11, 2.06, .00 / DATA B(10591), B(10592), B(10593) / -1.12, 1.95, .00 / DATA B(10762), B(10763), B(10764) / -1.12, 1.85, .00 / DATA B(10933), B(10934), B(10935) / -1.12, 1.77, .00 / DATA B(11104), B(11105), B(11106) / -1.12, 1.69, .00 / DATA B(11275), B(11276), B(11277) / -1.12, 1.63, .00 / DATA B(11446), B(11447), B(11448) / -1.12, 1.57, .00 / DATA B(11617), B(11618), B(11619) / -1.12, 1.52, .00 / DATA B(11788), B(11789), B(11790) / -1.12, 1.48, .00 / DATA B(11959), B(11960), B(11961) / -1.12, 1.45, .00 / DATA B(12130), B(12131), B(12132) / -1.12, 1.42, .00 / DATA B(12301), B(12302), B(12303) / -1.12, 1.40, .00 / DATA B(12472), B(12473), B(12474) / -1.12, 1.39, .00 / DATA B(12643), B(12644), B(12645) / -1.12, 1.38, .00 / DATA B( 163), B( 164), B( 165) / 2.05, -.47, .00 / DATA B( 334), B( 335), B( 336) / 1.97, -.45, .00 / DATA B( 505), B( 506), B( 507) / 1.81, -.43, .00 / DATA B( 676), B( 677), B( 678) / 1.64, -.48, .00 / DATA B( 847), B( 848), B( 849) / 1.46, -.59, .00 / DATA B( 1018), B( 1019), B( 1020) / 1.29, -.74, .00 / DATA B( 1189), B( 1190), B( 1191) / 1.14, -.91, .00 / DATA B( 1360), B( 1361), B( 1362) / 1.02, -1.05, .00 / DATA B( 1531), B( 1532), B( 1533) / .94, -1.13, .00 / DATA B( 1702), B( 1703), B( 1704) / .92, -1.16, .00 / DATA B( 1873), B( 1874), B( 1875) / .91, -1.15, .00 / DATA B( 2044), B( 2045), B( 2046) / .92, -1.12, .00 / DATA B( 2215), B( 2216), B( 2217) / .93, -1.08, .00 / DATA B( 2386), B( 2387), B( 2388) / .92, -1.00, .00 / DATA B( 2557), B( 2558), B( 2559) / .77, -.83, .00 / DATA B( 2728), B( 2729), B( 2730) / .25, -.46, .00 / DATA B( 2899), B( 2900), B( 2901) / -.26, -.06, .00 / DATA B( 3070), B( 3071), B( 3072) / -.67, .33, .00 / DATA B( 3241), B( 3242), B( 3243) / -.97, .66, .00 / DATA B( 3412), B( 3413), B( 3414) / -1.15, .93, .00 / DATA B( 3583), B( 3584), B( 3585) / -1.25, 1.10, .00 / DATA B( 3754), B( 3755), B( 3756) / -1.27, 1.15, .00 / DATA B( 3925), B( 3926), B( 3927) / -1.23, 1.08, .00 / DATA B( 4096), B( 4097), B( 4098) / -1.15, .90, .00 / DATA B( 4267), B( 4268), B( 4269) / -1.03, .63, .00 / DATA B( 4438), B( 4439), B( 4440) / -.87, .30, .00 / DATA B( 4609), B( 4610), B( 4611) / -.70, -.07, .00 / DATA B( 4780), B( 4781), B( 4782) / -.50, -.44, .00 / DATA B( 4951), B( 4952), B( 4953) / -.30, -.79, .00 / DATA B( 5122), B( 5123), B( 5124) / -.11, -1.10, .00 / DATA B( 5293), B( 5294), B( 5295) / .08, -1.34, .00 / DATA B( 5464), B( 5465), B( 5466) / .25, -1.49, .00 / DATA B( 5635), B( 5636), B( 5637) / .41, -1.51, .00 / DATA B( 5806), B( 5807), B( 5808) / .57, -1.39, .00 / DATA B( 5977), B( 5978), B( 5979) / .74, -1.09, .00 / DATA B( 6148), B( 6149), B( 6150) / 1.00, -.66, .00 / DATA B( 6319), B( 6320), B( 6321) / 1.36, -.13, .00 / DATA B( 6490), B( 6491), B( 6492) / 1.37, .84, .00 / DATA B( 6661), B( 6662), B( 6663) / 1.07, 2.01, .00 / DATA B( 6832), B( 6833), B( 6834) / .74, 2.93, .00 / DATA B( 7003), B( 7004), B( 7005) / .46, 3.55, .00 / DATA B( 7174), B( 7175), B( 7176) / .22, 3.97, .00 / DATA B( 7345), B( 7346), B( 7347) / .02, 4.23, .00 / DATA B( 7516), B( 7517), B( 7518) / -.16, 4.38, .00 / DATA B( 7687), B( 7688), B( 7689) / -.31, 4.43, .00 / DATA B( 7858), B( 7859), B( 7860) / -.45, 4.41, .00 / DATA B( 8029), B( 8030), B( 8031) / -.56, 4.34, .00 / DATA B( 8200), B( 8201), B( 8202) / -.66, 4.23, .00 / DATA B( 8371), B( 8372), B( 8373) / -.74, 4.09, .00 / DATA B( 8542), B( 8543), B( 8544) / -.81, 3.93, .00 / DATA B( 8713), B( 8714), B( 8715) / -.87, 3.75, .00 / DATA B( 8884), B( 8885), B( 8886) / -.93, 3.57, .00 / DATA B( 9055), B( 9056), B( 9057) / -.97, 3.39, .00 / DATA B( 9226), B( 9227), B( 9228) / -1.01, 3.20, .00 / DATA B( 9397), B( 9398), B( 9399) / -1.04, 3.02, .00 / DATA B( 9568), B( 9569), B( 9570) / -1.06, 2.85, .00 / DATA B( 9739), B( 9740), B( 9741) / -1.08, 2.68, .00 / DATA B( 9910), B( 9911), B( 9912) / -1.10, 2.52, .00 / DATA B(10081), B(10082), B(10083) / -1.11, 2.38, .00 / DATA B(10252), B(10253), B(10254) / -1.12, 2.24, .00 / DATA B(10423), B(10424), B(10425) / -1.13, 2.12, .00 / DATA B(10594), B(10595), B(10596) / -1.13, 2.01, .00 / DATA B(10765), B(10766), B(10767) / -1.14, 1.90, .00 / DATA B(10936), B(10937), B(10938) / -1.14, 1.82, .00 / DATA B(11107), B(11108), B(11109) / -1.14, 1.74, .00 / DATA B(11278), B(11279), B(11280) / -1.14, 1.67, .00 / DATA B(11449), B(11450), B(11451) / -1.14, 1.61, .00 / DATA B(11620), B(11621), B(11622) / -1.14, 1.56, .00 / DATA B(11791), B(11792), B(11793) / -1.14, 1.51, .00 / DATA B(11962), B(11963), B(11964) / -1.14, 1.48, .00 / DATA B(12133), B(12134), B(12135) / -1.14, 1.45, .00 / DATA B(12304), B(12305), B(12306) / -1.14, 1.43, .00 / DATA B(12475), B(12476), B(12477) / -1.14, 1.41, .00 / DATA B(12646), B(12647), B(12648) / -1.14, 1.40, .00 / DATA B( 166), B( 167), B( 168) / 2.26, -.92, .00 / DATA B( 337), B( 338), B( 339) / 2.16, -.87, .00 / DATA B( 508), B( 509), B( 510) / 2.00, -.85, .00 / DATA B( 679), B( 680), B( 681) / 1.80, -.86, .00 / DATA B( 850), B( 851), B( 852) / 1.59, -.93, .00 / DATA B( 1021), B( 1022), B( 1023) / 1.40, -1.04, .00 / DATA B( 1192), B( 1193), B( 1194) / 1.25, -1.17, .00 / DATA B( 1363), B( 1364), B( 1365) / 1.14, -1.28, .00 / DATA B( 1534), B( 1535), B( 1536) / 1.09, -1.36, .00 / DATA B( 1705), B( 1706), B( 1707) / 1.09, -1.39, .00 / DATA B( 1876), B( 1877), B( 1878) / 1.15, -1.40, .00 / DATA B( 2047), B( 2048), B( 2049) / 1.23, -1.38, .00 / DATA B( 2218), B( 2219), B( 2220) / 1.30, -1.33, .00 / DATA B( 2389), B( 2390), B( 2391) / 1.30, -1.23, .00 / DATA B( 2560), B( 2561), B( 2562) / 1.11, -1.00, .00 / DATA B( 2731), B( 2732), B( 2733) / .67, -.64, .00 / DATA B( 2902), B( 2903), B( 2904) / .14, -.21, .00 / DATA B( 3073), B( 3074), B( 3075) / -.34, .23, .00 / DATA B( 3244), B( 3245), B( 3246) / -.72, .61, .00 / DATA B( 3415), B( 3416), B( 3417) / -.98, .91, .00 / DATA B( 3586), B( 3587), B( 3588) / -1.13, 1.10, .00 / DATA B( 3757), B( 3758), B( 3759) / -1.19, 1.17, .00 / DATA B( 3928), B( 3929), B( 3930) / -1.19, 1.12, .00 / DATA B( 4099), B( 4100), B( 4101) / -1.12, .96, .00 / DATA B( 4270), B( 4271), B( 4272) / -1.01, .70, .00 / DATA B( 4441), B( 4442), B( 4443) / -.87, .38, .00 / DATA B( 4612), B( 4613), B( 4614) / -.70, .02, .00 / DATA B( 4783), B( 4784), B( 4785) / -.52, -.35, .00 / DATA B( 4954), B( 4955), B( 4956) / -.33, -.69, .00 / DATA B( 5125), B( 5126), B( 5127) / -.14, -.99, .00 / DATA B( 5296), B( 5297), B( 5298) / .04, -1.21, .00 / DATA B( 5467), B( 5468), B( 5469) / .21, -1.33, .00 / DATA B( 5638), B( 5639), B( 5640) / .37, -1.31, .00 / DATA B( 5809), B( 5810), B( 5811) / .54, -1.15, .00 / DATA B( 5980), B( 5981), B( 5982) / .74, -.81, .00 / DATA B( 6151), B( 6152), B( 6153) / 1.00, -.33, .00 / DATA B( 6322), B( 6323), B( 6324) / 1.26, .29, .00 / DATA B( 6493), B( 6494), B( 6495) / 1.30, 1.16, .00 / DATA B( 6664), B( 6665), B( 6666) / 1.11, 2.17, .00 / DATA B( 6835), B( 6836), B( 6837) / .81, 3.06, .00 / DATA B( 7006), B( 7007), B( 7008) / .52, 3.72, .00 / DATA B( 7177), B( 7178), B( 7179) / .26, 4.16, .00 / DATA B( 7348), B( 7349), B( 7350) / .04, 4.43, .00 / DATA B( 7519), B( 7520), B( 7521) / -.15, 4.57, .00 / DATA B( 7690), B( 7691), B( 7692) / -.31, 4.61, .00 / DATA B( 7861), B( 7862), B( 7863) / -.45, 4.58, .00 / DATA B( 8032), B( 8033), B( 8034) / -.56, 4.49, .00 / DATA B( 8203), B( 8204), B( 8205) / -.67, 4.37, .00 / DATA B( 8374), B( 8375), B( 8376) / -.75, 4.21, .00 / DATA B( 8545), B( 8546), B( 8547) / -.82, 4.04, .00 / DATA B( 8716), B( 8717), B( 8718) / -.89, 3.86, .00 / DATA B( 8887), B( 8888), B( 8889) / -.94, 3.66, .00 / DATA B( 9058), B( 9059), B( 9060) / -.98, 3.47, .00 / DATA B( 9229), B( 9230), B( 9231) / -1.02, 3.28, .00 / DATA B( 9400), B( 9401), B( 9402) / -1.05, 3.09, .00 / DATA B( 9571), B( 9572), B( 9573) / -1.08, 2.91, .00 / DATA B( 9742), B( 9743), B( 9744) / -1.10, 2.74, .00 / DATA B( 9913), B( 9914), B( 9915) / -1.11, 2.58, .00 / DATA B(10084), B(10085), B(10086) / -1.13, 2.43, .00 / DATA B(10255), B(10256), B(10257) / -1.13, 2.29, .00 / DATA B(10426), B(10427), B(10428) / -1.14, 2.16, .00 / DATA B(10597), B(10598), B(10599) / -1.15, 2.04, .00 / DATA B(10768), B(10769), B(10770) / -1.15, 1.94, .00 / DATA B(10939), B(10940), B(10941) / -1.15, 1.85, .00 / DATA B(11110), B(11111), B(11112) / -1.15, 1.76, .00 / DATA B(11281), B(11282), B(11283) / -1.15, 1.69, .00 / DATA B(11452), B(11453), B(11454) / -1.15, 1.63, .00 / DATA B(11623), B(11624), B(11625) / -1.15, 1.58, .00 / DATA B(11794), B(11795), B(11796) / -1.15, 1.53, .00 / DATA B(11965), B(11966), B(11967) / -1.15, 1.50, .00 / DATA B(12136), B(12137), B(12138) / -1.15, 1.47, .00 / DATA B(12307), B(12308), B(12309) / -1.15, 1.44, .00 / DATA B(12478), B(12479), B(12480) / -1.15, 1.43, .00 / DATA B(12649), B(12650), B(12651) / -1.15, 1.41, .00 / DATA B( 169), B( 170), B( 171) / 2.37, -1.14, .00 / DATA B( 340), B( 341), B( 342) / 2.26, -1.08, .00 / DATA B( 511), B( 512), B( 513) / 2.09, -1.05, .00 / DATA B( 682), B( 683), B( 684) / 1.88, -1.05, .00 / DATA B( 853), B( 854), B( 855) / 1.66, -1.10, .00 / DATA B( 1024), B( 1025), B( 1026) / 1.46, -1.19, .00 / DATA B( 1195), B( 1196), B( 1197) / 1.30, -1.30, .00 / DATA B( 1366), B( 1367), B( 1368) / 1.20, -1.41, .00 / DATA B( 1537), B( 1538), B( 1539) / 1.16, -1.48, .00 / DATA B( 1708), B( 1709), B( 1710) / 1.18, -1.52, .00 / DATA B( 1879), B( 1880), B( 1881) / 1.27, -1.53, .00 / DATA B( 2050), B( 2051), B( 2052) / 1.38, -1.51, .00 / DATA B( 2221), B( 2222), B( 2223) / 1.49, -1.46, .00 / DATA B( 2392), B( 2393), B( 2394) / 1.49, -1.34, .00 / DATA B( 2563), B( 2564), B( 2565) / 1.29, -1.10, .00 / DATA B( 2734), B( 2735), B( 2736) / .87, -.73, .00 / DATA B( 2905), B( 2906), B( 2907) / .34, -.28, .00 / DATA B( 3076), B( 3077), B( 3078) / -.18, .18, .00 / DATA B( 3247), B( 3248), B( 3249) / -.60, .59, .00 / DATA B( 3418), B( 3419), B( 3420) / -.90, .90, .00 / DATA B( 3589), B( 3590), B( 3591) / -1.08, 1.11, .00 / DATA B( 3760), B( 3761), B( 3762) / -1.16, 1.20, .00 / DATA B( 3931), B( 3932), B( 3933) / -1.17, 1.15, .00 / DATA B( 4102), B( 4103), B( 4104) / -1.11, .99, .00 / DATA B( 4273), B( 4274), B( 4275) / -1.01, .74, .00 / DATA B( 4444), B( 4445), B( 4446) / -.87, .42, .00 / DATA B( 4615), B( 4616), B( 4617) / -.71, .06, .00 / DATA B( 4786), B( 4787), B( 4788) / -.53, -.31, .00 / DATA B( 4957), B( 4958), B( 4959) / -.34, -.65, .00 / DATA B( 5128), B( 5129), B( 5130) / -.16, -.94, .00 / DATA B( 5299), B( 5300), B( 5301) / .02, -1.15, .00 / DATA B( 5470), B( 5471), B( 5472) / .18, -1.26, .00 / DATA B( 5641), B( 5642), B( 5643) / .35, -1.23, .00 / DATA B( 5812), B( 5813), B( 5814) / .53, -1.04, .00 / DATA B( 5983), B( 5984), B( 5985) / .74, -.69, .00 / DATA B( 6154), B( 6155), B( 6156) / 1.01, -.19, .00 / DATA B( 6325), B( 6326), B( 6327) / 1.23, .46, .00 / DATA B( 6496), B( 6497), B( 6498) / 1.28, 1.31, .00 / DATA B( 6667), B( 6668), B( 6669) / 1.12, 2.27, .00 / DATA B( 6838), B( 6839), B( 6840) / .85, 3.14, .00 / DATA B( 7009), B( 7010), B( 7011) / .55, 3.81, .00 / DATA B( 7180), B( 7181), B( 7182) / .28, 4.27, .00 / DATA B( 7351), B( 7352), B( 7353) / .05, 4.54, .00 / DATA B( 7522), B( 7523), B( 7524) / -.15, 4.67, .00 / DATA B( 7693), B( 7694), B( 7695) / -.31, 4.70, .00 / DATA B( 7864), B( 7865), B( 7866) / -.45, 4.66, .00 / DATA B( 8035), B( 8036), B( 8037) / -.57, 4.57, .00 / DATA B( 8206), B( 8207), B( 8208) / -.67, 4.44, .00 / DATA B( 8377), B( 8378), B( 8379) / -.76, 4.28, .00 / DATA B( 8548), B( 8549), B( 8550) / -.83, 4.10, .00 / DATA B( 8719), B( 8720), B( 8721) / -.89, 3.91, .00 / DATA B( 8890), B( 8891), B( 8892) / -.94, 3.71, .00 / DATA B( 9061), B( 9062), B( 9063) / -.99, 3.51, .00 / DATA B( 9232), B( 9233), B( 9234) / -1.03, 3.32, .00 / DATA B( 9403), B( 9404), B( 9405) / -1.06, 3.13, .00 / DATA B( 9574), B( 9575), B( 9576) / -1.08, 2.94, .00 / DATA B( 9745), B( 9746), B( 9747) / -1.10, 2.77, .00 / DATA B( 9916), B( 9917), B( 9918) / -1.12, 2.60, .00 / DATA B(10087), B(10088), B(10089) / -1.13, 2.45, .00 / DATA B(10258), B(10259), B(10260) / -1.14, 2.31, .00 / DATA B(10429), B(10430), B(10431) / -1.15, 2.18, .00 / DATA B(10600), B(10601), B(10602) / -1.15, 2.06, .00 / DATA B(10771), B(10772), B(10773) / -1.16, 1.95, .00 / DATA B(10942), B(10943), B(10944) / -1.16, 1.86, .00 / DATA B(11113), B(11114), B(11115) / -1.16, 1.78, .00 / DATA B(11284), B(11285), B(11286) / -1.16, 1.70, .00 / DATA B(11455), B(11456), B(11457) / -1.16, 1.64, .00 / DATA B(11626), B(11627), B(11628) / -1.16, 1.59, .00 / DATA B(11797), B(11798), B(11799) / -1.16, 1.54, .00 / DATA B(11968), B(11969), B(11970) / -1.16, 1.50, .00 / DATA B(12139), B(12140), B(12141) / -1.16, 1.47, .00 / DATA B(12310), B(12311), B(12312) / -1.15, 1.45, .00 / DATA B(12481), B(12482), B(12483) / -1.16, 1.43, .00 / DATA B(12652), B(12653), B(12654) / -1.16, 1.42, .00 / DATA GRDLX( 2) / 197.00000000000 /, * GRDUX( 2) / 229.00000000000 /, * GRDLY( 2) / 55.00000000000 /, * GRDUY( 2) / 66.00000000000 /, * ICNTX( 2) / 32 /, * ICNTY( 2) / 11 /, * NBASE( 2) /12654 / DATA B(12655), B(12656), B(12657) / -2.97, -3.31, .00 / DATA B(12754), B(12755), B(12756) / -8.96, -1.23, .00 / DATA B(12853), B(12854), B(12855) / -17.94, 1.80, .00 / DATA B(12952), B(12953), B(12954) / -28.51, 5.17, .00 / DATA B(13051), B(13052), B(13053) / -39.77, 8.35, .00 / DATA B(13150), B(13151), B(13152) / -51.01, 10.86, .00 / DATA B(13249), B(13250), B(13251) / -61.66, 12.32, .00 / DATA B(13348), B(13349), B(13350) / -71.25, 12.55, .00 / DATA B(13447), B(13448), B(13449) / -79.43, 11.67, .00 / DATA B(13546), B(13547), B(13548) / -85.89, 10.10, .00 / DATA B(13645), B(13646), B(13647) / -90.36, 8.48, .00 / DATA B(13744), B(13745), B(13746) / -92.71, 7.43, .00 / DATA B(12658), B(12659), B(12660) / -4.89, -2.71, .00 / DATA B(12757), B(12758), B(12759) / -9.99, -.91, .00 / DATA B(12856), B(12857), B(12858) / -18.40, 1.95, .00 / DATA B(12955), B(12956), B(12957) / -28.62, 5.23, .00 / DATA B(13054), B(13055), B(13056) / -39.65, 8.37, .00 / DATA B(13153), B(13154), B(13155) / -50.72, 10.85, .00 / DATA B(13252), B(13253), B(13254) / -61.25, 12.28, .00 / DATA B(13351), B(13352), B(13353) / -70.77, 12.45, .00 / DATA B(13450), B(13451), B(13452) / -78.91, 11.48, .00 / DATA B(13549), B(13550), B(13551) / -85.35, 9.80, .00 / DATA B(13648), B(13649), B(13650) / -89.83, 8.08, .00 / DATA B(13747), B(13748), B(13749) / -92.16, 6.97, .00 / DATA B(12661), B(12662), B(12663) / -6.82, -2.16, .00 / DATA B(12760), B(12761), B(12762) / -11.16, -.59, .00 / DATA B(12859), B(12860), B(12861) / -18.87, 2.11, .00 / DATA B(12958), B(12959), B(12960) / -28.63, 5.32, .00 / DATA B(13057), B(13058), B(13059) / -39.35, 8.45, .00 / DATA B(13156), B(13157), B(13158) / -50.20, 10.96, .00 / DATA B(13255), B(13256), B(13257) / -60.56, 12.36, .00 / DATA B(13354), B(13355), B(13356) / -69.97, 12.41, .00 / DATA B(13453), B(13454), B(13455) / -78.06, 11.20, .00 / DATA B(13552), B(13553), B(13554) / -84.50, 9.21, .00 / DATA B(13651), B(13652), B(13653) / -89.00, 7.20, .00 / DATA B(13750), B(13751), B(13752) / -91.35, 5.95, .00 / DATA B(12664), B(12665), B(12666) / -8.11, -1.86, .00 / DATA B(12763), B(12764), B(12765) / -11.93, -.42, .00 / DATA B(12862), B(12863), B(12864) / -19.07, 2.17, .00 / DATA B(12961), B(12962), B(12963) / -28.38, 5.37, .00 / DATA B(13060), B(13061), B(13062) / -38.76, 8.57, .00 / DATA B(13159), B(13160), B(13161) / -49.35, 11.16, .00 / DATA B(13258), B(13259), B(13260) / -59.51, 12.56, .00 / DATA B(13357), B(13358), B(13359) / -68.79, 12.43, .00 / DATA B(13456), B(13457), B(13458) / -76.84, 10.82, .00 / DATA B(13555), B(13556), B(13557) / -83.31, 8.31, .00 / DATA B(13654), B(13655), B(13656) / -87.87, 5.83, .00 / DATA B(13753), B(13754), B(13755) / -90.26, 4.33, .00 / DATA B(12667), B(12668), B(12669) / -8.40, -1.92, .00 / DATA B(12766), B(12767), B(12768) / -11.91, -.54, .00 / DATA B(12865), B(12866), B(12867) / -18.67, 2.02, .00 / DATA B(12964), B(12965), B(12966) / -27.65, 5.29, .00 / DATA B(13063), B(13064), B(13065) / -37.75, 8.66, .00 / DATA B(13162), B(13163), B(13164) / -48.08, 11.42, .00 / DATA B(13261), B(13262), B(13263) / -58.03, 12.87, .00 / DATA B(13360), B(13361), B(13362) / -67.17, 12.53, .00 / DATA B(13459), B(13460), B(13461) / -75.19, 10.38, .00 / DATA B(13558), B(13559), B(13560) / -81.72, 7.10, .00 / DATA B(13657), B(13658), B(13659) / -86.39, 3.91, .00 / DATA B(13756), B(13757), B(13758) / -88.85, 2.03, .00 / DATA B(12670), B(12671), B(12672) / -7.45, -2.40, .00 / DATA B(12769), B(12770), B(12771) / -10.83, -1.02, .00 / DATA B(12868), B(12869), B(12870) / -17.44, 1.58, .00 / DATA B(12967), B(12968), B(12969) / -26.26, 5.00, .00 / DATA B(13066), B(13067), B(13068) / -36.18, 8.63, .00 / DATA B(13165), B(13166), B(13167) / -46.28, 11.70, .00 / DATA B(13264), B(13265), B(13266) / -56.00, 13.31, .00 / DATA B(13363), B(13364), B(13365) / -64.99, 12.75, .00 / DATA B(13462), B(13463), B(13464) / -73.01, 9.89, .00 / DATA B(13561), B(13562), B(13563) / -79.69, 5.57, .00 / DATA B(13660), B(13661), B(13662) / -84.52, 1.39, .00 / DATA B(13759), B(13760), B(13761) / -87.09, -1.01, .00 / DATA B(12673), B(12674), B(12675) / -5.08, -3.32, .00 / DATA B(12772), B(12773), B(12774) / -8.47, -1.92, .00 / DATA B(12871), B(12872), B(12873) / -15.16, .76, .00 / DATA B(12970), B(12971), B(12972) / -24.05, 4.39, .00 / DATA B(13069), B(13070), B(13071) / -33.90, 8.40, .00 / DATA B(13168), B(13169), B(13170) / -43.81, 11.93, .00 / DATA B(13267), B(13268), B(13269) / -53.29, 13.87, .00 / DATA B(13366), B(13367), B(13368) / -62.14, 13.15, .00 / DATA B(13465), B(13466), B(13467) / -70.21, 9.40, .00 / DATA B(13564), B(13565), B(13566) / -77.13, 3.68, .00 / DATA B(13663), B(13664), B(13665) / -82.22, -1.81, .00 / DATA B(13762), B(13763), B(13764) / -84.94, -4.89, .00 / DATA B(12676), B(12677), B(12678) / -1.16, -4.64, .00 / DATA B(12775), B(12776), B(12777) / -4.68, -3.21, .00 / DATA B(12874), B(12875), B(12876) / -11.67, -.47, .00 / DATA B(12973), B(12974), B(12975) / -20.87, 3.38, .00 / DATA B(13072), B(13073), B(13074) / -30.77, 7.85, .00 / DATA B(13171), B(13172), B(13173) / -40.54, 12.01, .00 / DATA B(13270), B(13271), B(13272) / -49.78, 14.51, .00 / DATA B(13369), B(13370), B(13371) / -58.45, 13.76, .00 / DATA B(13468), B(13469), B(13470) / -66.67, 8.95, .00 / DATA B(13567), B(13568), B(13569) / -73.98, 1.42, .00 / DATA B(13666), B(13667), B(13668) / -79.44, -5.76, .00 / DATA B(13765), B(13766), B(13767) / -82.34, -9.69, .00 / DATA B(12679), B(12680), B(12681) / 4.31, -6.27, .00 / DATA B(12778), B(12779), B(12780) / .62, -4.86, .00 / DATA B(12877), B(12878), B(12879) / -6.82, -2.12, .00 / DATA B(12976), B(12977), B(12978) / -16.62, 1.90, .00 / DATA B(13075), B(13076), B(13077) / -26.63, 6.84, .00 / DATA B(13174), B(13175), B(13176) / -36.32, 11.77, .00 / DATA B(13273), B(13274), B(13275) / -45.31, 15.14, .00 / DATA B(13372), B(13373), B(13374) / -53.76, 14.65, .00 / DATA B(13471), B(13472), B(13473) / -62.25, 8.59, .00 / DATA B(13570), B(13571), B(13572) / -70.20, -1.28, .00 / DATA B(13669), B(13670), B(13671) / -76.13, -10.53, .00 / DATA B(13768), B(13769), B(13770) / -79.21, -15.42, .00 / DATA B(12682), B(12683), B(12684) / 11.07, -8.06, .00 / DATA B(12781), B(12782), B(12783) / 7.39, -6.71, .00 / DATA B(12880), B(12881), B(12882) / -.40, -4.12, .00 / DATA B(12979), B(12980), B(12981) / -11.17, -.06, .00 / DATA B(13078), B(13079), B(13080) / -21.19, 5.24, .00 / DATA B(13177), B(13178), B(13179) / -30.98, 10.91, .00 / DATA B(13276), B(13277), B(13278) / -39.75, 15.50, .00 / DATA B(13375), B(13376), B(13377) / -47.82, 15.83, .00 / DATA B(13474), B(13475), B(13476) / -56.84, 8.34, .00 / DATA B(13573), B(13574), B(13575) / -65.78, -4.55, .00 / DATA B(13672), B(13673), B(13674) / -72.26, -16.16, .00 / DATA B(13771), B(13772), B(13773) / -75.41, -21.96, .00 / DATA B(12685), B(12686), B(12687) / 18.53, -9.80, .00 / DATA B(12784), B(12785), B(12786) / 15.25, -8.56, .00 / DATA B(12883), B(12884), B(12885) / 7.96, -6.28, .00 / DATA B(12982), B(12983), B(12984) / -4.18, -2.37, .00 / DATA B(13081), B(13082), B(13083) / -13.99, 3.01, .00 / DATA B(13180), B(13181), B(13182) / -24.42, 9.05, .00 / DATA B(13279), B(13280), B(13281) / -32.99, 15.06, .00 / DATA B(13378), B(13379), B(13380) / -40.34, 17.26, .00 / DATA B(13477), B(13478), B(13479) / -50.40, 8.09, .00 / DATA B(13576), B(13577), B(13578) / -60.84, -8.64, .00 / DATA B(13675), B(13676), B(13677) / -67.80, -22.63, .00 / DATA B(13774), B(13775), B(13776) / -70.72, -28.90, .00 / DATA B(12688), B(12689), B(12690) / 25.76, -11.32, .00 / DATA B(12787), B(12788), B(12789) / 22.98, -10.14, .00 / DATA B(12886), B(12887), B(12888) / 18.01, -8.17, .00 / DATA B(12985), B(12986), B(12987) / 6.98, -4.67, .00 / DATA B(13084), B(13085), B(13086) / -5.33, .36, .00 / DATA B(13183), B(13184), B(13185) / -16.45, 5.74, .00 / DATA B(13282), B(13283), B(13284) / -24.74, 12.68, .00 / DATA B(13381), B(13382), B(13383) / -30.98, 18.62, .00 / DATA B(13480), B(13481), B(13482) / -43.14, 7.38, .00 / DATA B(13579), B(13580), B(13581) / -55.68, -14.03, .00 / DATA B(13678), B(13679), B(13680) / -62.68, -29.68, .00 / DATA B(13777), B(13778), B(13779) / -64.69, -35.30, .00 / DATA B(12691), B(12692), B(12693) / 31.82, -12.57, .00 / DATA B(12790), B(12791), B(12792) / 29.33, -11.35, .00 / DATA B(12889), B(12890), B(12891) / 24.30, -9.22, .00 / DATA B(12988), B(12989), B(12990) / 15.04, -6.01, .00 / DATA B(13087), B(13088), B(13089) / 3.92, -2.26, .00 / DATA B(13186), B(13187), B(13188) / -6.46, 1.06, .00 / DATA B(13285), B(13286), B(13287) / -13.53, 6.39, .00 / DATA B(13384), B(13385), B(13386) / -20.08, 18.70, .00 / DATA B(13483), B(13484), B(13485) / -35.88, 4.81, .00 / DATA B(13582), B(13583), B(13584) / -50.78, -21.32, .00 / DATA B(13681), B(13682), B(13683) / -56.69, -36.55, .00 / DATA B(13780), B(13781), B(13782) / -56.60, -39.41, .00 / DATA B(12694), B(12695), B(12696) / 36.20, -13.66, .00 / DATA B(12793), B(12794), B(12795) / 33.76, -12.32, .00 / DATA B(12892), B(12893), B(12894) / 28.95, -9.99, .00 / DATA B(12991), B(12992), B(12993) / 21.33, -6.92, .00 / DATA B(13090), B(13091), B(13092) / 12.38, -4.22, .00 / DATA B(13189), B(13190), B(13191) / 4.56, -3.41, .00 / DATA B(13288), B(13289), B(13290) / .14, -4.01, .00 / DATA B(13387), B(13388), B(13389) / -10.85, 11.20, .00 / DATA B(13486), B(13487), B(13488) / -30.21, -2.85, .00 / DATA B(13585), B(13586), B(13587) / -46.42, -30.13, .00 / DATA B(13684), B(13685), B(13686) / -49.23, -41.46, .00 / DATA B(13783), B(13784), B(13785) / -45.39, -38.43, .00 / DATA B(12697), B(12698), B(12699) / 38.81, -14.82, .00 / DATA B(12796), B(12797), B(12798) / 36.49, -13.36, .00 / DATA B(12895), B(12896), B(12897) / 32.20, -10.82, .00 / DATA B(12994), B(12995), B(12996) / 26.02, -7.60, .00 / DATA B(13093), B(13094), B(13095) / 19.10, -5.10, .00 / DATA B(13192), B(13193), B(13194) / 13.13, -5.98, .00 / DATA B(13291), B(13292), B(13293) / 7.56, -8.83, .00 / DATA B(13390), B(13391), B(13392) / -5.79, -1.95, .00 / DATA B(13489), B(13490), B(13491) / -26.21, -13.44, .00 / DATA B(13588), B(13589), B(13590) / -42.03, -37.50, .00 / DATA B(13687), B(13688), B(13689) / -38.74, -40.58, .00 / DATA B(13786), B(13787), B(13788) / -30.00, -29.03, .00 / DATA B(12700), B(12701), B(12702) / 39.78, -16.27, .00 / DATA B(12799), B(12800), B(12801) / 37.68, -14.76, .00 / DATA B(12898), B(12899), B(12900) / 33.99, -12.10, .00 / DATA B(12997), B(12998), B(12999) / 28.98, -8.57, .00 / DATA B(13096), B(13097), B(13098) / 23.45, -5.22, .00 / DATA B(13195), B(13196), B(13197) / 18.27, -5.77, .00 / DATA B(13294), B(13295), B(13296) / 12.11, -13.74, .00 / DATA B(13393), B(13394), B(13395) / -1.76, -9.84, .00 / DATA B(13492), B(13493), B(13494) / -21.48, -17.16, .00 / DATA B(13591), B(13592), B(13593) / -35.50, -37.18, .00 / DATA B(13690), B(13691), B(13692) / -20.93, -25.02, .00 / DATA B(13789), B(13790), B(13791) / -11.05, -10.03, .00 / DATA B(12703), B(12704), B(12705) / 39.28, -18.13, .00 / DATA B(12802), B(12803), B(12804) / 37.45, -16.69, .00 / DATA B(12901), B(12902), B(12903) / 34.30, -14.16, .00 / DATA B(13000), B(13001), B(13002) / 30.14, -10.60, .00 / DATA B(13099), B(13100), B(13101) / 25.46, -6.45, .00 / DATA B(13198), B(13199), B(13200) / 20.47, -3.35, .00 / DATA B(13297), B(13298), B(13299) / 15.30, -19.45, .00 / DATA B(13396), B(13397), B(13398) / 2.27, -10.44, .00 / DATA B(13495), B(13496), B(13497) / -15.39, -10.68, .00 / DATA B(13594), B(13595), B(13596) / -22.30, -20.54, .00 / DATA B(13693), B(13694), B(13695) / 17.78, 32.08, .00 / DATA B(13792), B(13793), B(13794) / 3.11, 6.43, .00 / DATA B(12706), B(12707), B(12708) / 37.49, -20.33, .00 / DATA B(12805), B(12806), B(12807) / 35.91, -19.11, .00 / DATA B(12904), B(12905), B(12906) / 33.22, -17.10, .00 / DATA B(13003), B(13004), B(13005) / 29.65, -14.23, .00 / DATA B(13102), B(13103), B(13104) / 25.49, -10.52, .00 / DATA B(13201), B(13202), B(13203) / 20.90, -7.71, .00 / DATA B(13300), B(13301), B(13302) / 15.73, -17.58, .00 / DATA B(13399), B(13400), B(13401) / 5.52, -5.48, .00 / DATA B(13498), B(13499), B(13500) / -9.92, 1.48, .00 / DATA B(13597), B(13598), B(13599) / -9.38, -.37, .00 / DATA B(13696), B(13697), B(13698) / 13.15, 25.21, .00 / DATA B(13795), B(13796), B(13797) / 5.83, 9.15, .00 / DATA B(12709), B(12710), B(12711) / 34.61, -22.60, .00 / DATA B(12808), B(12809), B(12810) / 33.25, -21.73, .00 / DATA B(12907), B(12908), B(12909) / 30.92, -20.61, .00 / DATA B(13006), B(13007), B(13008) / 27.76, -19.18, .00 / DATA B(13105), B(13106), B(13107) / 23.95, -17.39, .00 / DATA B(13204), B(13205), B(13206) / 19.56, -16.15, .00 / DATA B(13303), B(13304), B(13305) / 13.97, -15.59, .00 / DATA B(13402), B(13403), B(13404) / 4.51, -2.25, .00 / DATA B(13501), B(13502), B(13503) / -6.51, 7.38, .00 / DATA B(13600), B(13601), B(13602) / -6.15, 4.73, .00 / DATA B(13699), B(13700), B(13701) / .97, 7.33, .00 / DATA B(13798), B(13799), B(13800) / -2.54, -3.26, .00 / DATA B(12712), B(12713), B(12714) / 30.86, -24.53, .00 / DATA B(12811), B(12812), B(12813) / 29.70, -24.06, .00 / DATA B(12910), B(12911), B(12912) / 27.65, -23.98, .00 / DATA B(13009), B(13010), B(13011) / 24.81, -24.31, .00 / DATA B(13108), B(13109), B(13110) / 21.24, -24.97, .00 / DATA B(13207), B(13208), B(13209) / 16.88, -24.62, .00 / DATA B(13306), B(13307), B(13308) / 11.29, -18.01, .00 / DATA B(13405), B(13406), B(13407) / 3.25, -4.95, .00 / DATA B(13504), B(13505), B(13506) / -4.89, 3.57, .00 / DATA B(13603), B(13604), B(13605) / -7.25, 1.17, .00 / DATA B(13702), B(13703), B(13704) / -7.57, -5.26, .00 / DATA B(13801), B(13802), B(13803) / -10.34, -13.79, .00 / DATA B(12715), B(12716), B(12717) / 26.48, -25.62, .00 / DATA B(12814), B(12815), B(12816) / 25.50, -25.51, .00 / DATA B(12913), B(12914), B(12915) / 23.72, -26.34, .00 / DATA B(13012), B(13013), B(13014) / 21.18, -28.15, .00 / DATA B(13111), B(13112), B(13113) / 17.86, -30.73, .00 / DATA B(13210), B(13211), B(13212) / 13.61, -32.35, .00 / DATA B(13309), B(13310), B(13311) / 8.57, -22.35, .00 / DATA B(13408), B(13409), B(13410) / 1.91, -9.90, .00 / DATA B(13507), B(13508), B(13509) / -4.79, -2.70, .00 / DATA B(13606), B(13607), B(13608) / -8.90, -4.69, .00 / DATA B(13705), B(13706), B(13707) / -11.80, -11.93, .00 / DATA B(13804), B(13805), B(13806) / -14.47, -18.71, .00 / DATA B(12718), B(12719), B(12720) / 21.73, -25.47, .00 / DATA B(12817), B(12818), B(12819) / 20.92, -25.60, .00 / DATA B(12916), B(12917), B(12918) / 19.40, -26.96, .00 / DATA B(13015), B(13016), B(13017) / 17.22, -29.52, .00 / DATA B(13114), B(13115), B(13116) / 14.31, -32.85, .00 / DATA B(13213), B(13214), B(13215) / 10.54, -34.86, .00 / DATA B(13312), B(13313), B(13314) / 6.21, -25.10, .00 / DATA B(13411), B(13412), B(13413) / .66, -14.27, .00 / DATA B(13510), B(13511), B(13512) / -5.18, -8.34, .00 / DATA B(13609), B(13610), B(13611) / -9.92, -9.71, .00 / DATA B(13708), B(13709), B(13710) / -13.64, -15.57, .00 / DATA B(13807), B(13808), B(13809) / -16.20, -20.58, .00 / DATA B(12721), B(12722), B(12723) / 16.87, -23.89, .00 / DATA B(12820), B(12821), B(12822) / 16.23, -24.09, .00 / DATA B(12919), B(12920), B(12921) / 14.97, -25.51, .00 / DATA B(13018), B(13019), B(13020) / 13.20, -28.05, .00 / DATA B(13117), B(13118), B(13119) / 10.92, -30.94, .00 / DATA B(13216), B(13217), B(13218) / 8.00, -31.39, .00 / DATA B(13315), B(13316), B(13317) / 4.39, -24.74, .00 / DATA B(13414), B(13415), B(13416) / -.26, -16.58, .00 / DATA B(13513), B(13514), B(13515) / -5.42, -12.09, .00 / DATA B(13612), B(13613), B(13614) / -10.17, -12.99, .00 / DATA B(13711), B(13712), B(13713) / -14.00, -17.25, .00 / DATA B(13810), B(13811), B(13812) / -16.38, -20.75, .00 / DATA B(12724), B(12725), B(12726) / 12.17, -20.93, .00 / DATA B(12823), B(12824), B(12825) / 11.66, -21.04, .00 / DATA B(12922), B(12923), B(12924) / 10.65, -22.12, .00 / DATA B(13021), B(13022), B(13023) / 9.34, -24.04, .00 / DATA B(13120), B(13121), B(13122) / 7.81, -26.02, .00 / DATA B(13219), B(13220), B(13221) / 5.87, -25.93, .00 / DATA B(13318), B(13319), B(13320) / 3.14, -21.84, .00 / DATA B(13417), B(13418), B(13419) / -.70, -16.57, .00 / DATA B(13516), B(13517), B(13518) / -5.26, -13.67, .00 / DATA B(13615), B(13616), B(13617) / -9.74, -14.45, .00 / DATA B(13714), B(13715), B(13716) / -13.39, -17.50, .00 / DATA B(13813), B(13814), B(13815) / -15.56, -19.88, .00 / DATA B(12727), B(12728), B(12729) / 7.88, -16.90, .00 / DATA B(12826), B(12827), B(12828) / 7.46, -16.78, .00 / DATA B(12925), B(12926), B(12927) / 6.62, -17.22, .00 / DATA B(13024), B(13025), B(13026) / 5.73, -18.25, .00 / DATA B(13123), B(13124), B(13125) / 5.05, -19.42, .00 / DATA B(13222), B(13223), B(13224) / 4.22, -19.42, .00 / DATA B(13321), B(13322), B(13323) / 2.48, -17.36, .00 / DATA B(13420), B(13421), B(13422) / -.62, -14.64, .00 / DATA B(13519), B(13520), B(13521) / -4.65, -13.35, .00 / DATA B(13618), B(13619), B(13620) / -8.79, -14.35, .00 / DATA B(13717), B(13718), B(13719) / -12.18, -16.68, .00 / DATA B(13816), B(13817), B(13818) / -14.13, -18.33, .00 / DATA B(12730), B(12731), B(12732) / 4.27, -12.31, .00 / DATA B(12829), B(12830), B(12831) / 3.88, -11.88, .00 / DATA B(12928), B(12929), B(12930) / 3.08, -11.50, .00 / DATA B(13027), B(13028), B(13029) / 2.49, -11.51, .00 / DATA B(13126), B(13127), B(13128) / 2.68, -12.05, .00 / DATA B(13225), B(13226), B(13227) / 3.10, -12.43, .00 / DATA B(13324), B(13325), B(13326) / 2.41, -12.00, .00 / DATA B(13423), B(13424), B(13425) / -.05, -11.40, .00 / DATA B(13522), B(13523), B(13524) / -3.68, -11.62, .00 / DATA B(13621), B(13622), B(13623) / -7.49, -13.08, .00 / DATA B(13720), B(13721), B(13722) / -10.61, -15.09, .00 / DATA B(13819), B(13820), B(13821) / -12.38, -16.32, .00 / DATA B(12733), B(12734), B(12735) / 1.56, -7.76, .00 / DATA B(12832), B(12833), B(12834) / 1.14, -6.98, .00 / DATA B(12931), B(12932), B(12933) / .26, -5.71, .00 / DATA B(13030), B(13031), B(13032) / -.27, -4.60, .00 / DATA B(13129), B(13130), B(13131) / .76, -4.68, .00 / DATA B(13228), B(13229), B(13230) / 2.56, -5.53, .00 / DATA B(13327), B(13328), B(13329) / 2.93, -6.37, .00 / DATA B(13426), B(13427), B(13428) / .87, -7.49, .00 / DATA B(13525), B(13526), B(13527) / -2.49, -9.04, .00 / DATA B(13624), B(13625), B(13626) / -6.03, -11.05, .00 / DATA B(13723), B(13724), B(13725) / -8.90, -13.02, .00 / DATA B(13822), B(13823), B(13824) / -10.50, -14.07, .00 / DATA B(12736), B(12737), B(12738) / -.10, -3.83, .00 / DATA B(12835), B(12836), B(12837) / -.57, -2.71, .00 / DATA B(12934), B(12935), B(12936) / -1.52, -.65, .00 / DATA B(13033), B(13034), B(13035) / -2.29, 1.63, .00 / DATA B(13132), B(13133), B(13134) / -.52, 1.89, .00 / DATA B(13231), B(13232), B(13233) / 2.58, .62, .00 / DATA B(13330), B(13331), B(13332) / 3.87, -1.03, .00 / DATA B(13429), B(13430), B(13431) / 1.90, -3.51, .00 / DATA B(13528), B(13529), B(13530) / -1.27, -6.13, .00 / DATA B(13627), B(13628), B(13629) / -4.56, -8.67, .00 / DATA B(13726), B(13727), B(13728) / -7.22, -10.74, .00 / DATA B(13825), B(13826), B(13827) / -8.68, -11.75, .00 / DATA B(12739), B(12740), B(12741) / -.65, -.97, .00 / DATA B(12838), B(12839), B(12840) / -1.18, .48, .00 / DATA B(12937), B(12938), B(12939) / -2.11, 3.10, .00 / DATA B(13036), B(13037), B(13038) / -2.55, 5.81, .00 / DATA B(13135), B(13136), B(13137) / -.58, 6.52, .00 / DATA B(13234), B(13235), B(13236) / 2.83, 5.44, .00 / DATA B(13333), B(13334), B(13335) / 4.63, 3.41, .00 / DATA B(13432), B(13433), B(13434) / 2.71, .04, .00 / DATA B(13531), B(13532), B(13533) / -.19, -3.30, .00 / DATA B(13630), B(13631), B(13632) / -3.23, -6.28, .00 / DATA B(13729), B(13730), B(13731) / -5.68, -8.51, .00 / DATA B(13828), B(13829), B(13830) / -7.02, -9.54, .00 / DATA B(12742), B(12743), B(12744) / -.22, .61, .00 / DATA B(12841), B(12842), B(12843) / -.87, 2.42, .00 / DATA B(12940), B(12941), B(12942) / -1.74, 5.46, .00 / DATA B(13039), B(13040), B(13041) / -1.79, 8.31, .00 / DATA B(13138), B(13139), B(13140) / .01, 9.45, .00 / DATA B(13237), B(13238), B(13239) / 2.85, 8.66, .00 / DATA B(13336), B(13337), B(13338) / 4.38, 6.39, .00 / DATA B(13435), B(13436), B(13437) / 3.16, 2.87, .00 / DATA B(13534), B(13535), B(13536) / .64, -.86, .00 / DATA B(13633), B(13634), B(13635) / -2.12, -4.14, .00 / DATA B(13732), B(13733), B(13734) / -4.39, -6.53, .00 / DATA B(13831), B(13832), B(13833) / -5.63, -7.62, .00 / DATA B(12745), B(12746), B(12747) / .91, .93, .00 / DATA B(12844), B(12845), B(12846) / .01, 3.24, .00 / DATA B(12943), B(12944), B(12945) / -.92, 6.73, .00 / DATA B(13042), B(13043), B(13044) / -.87, 9.81, .00 / DATA B(13141), B(13142), B(13143) / .64, 11.27, .00 / DATA B(13240), B(13241), B(13242) / 2.85, 10.73, .00 / DATA B(13339), B(13340), B(13341) / 4.10, 8.45, .00 / DATA B(13438), B(13439), B(13440) / 3.33, 4.92, .00 / DATA B(13537), B(13538), B(13539) / 1.21, 1.03, .00 / DATA B(13636), B(13637), B(13638) / -1.29, -2.44, .00 / DATA B(13735), B(13736), B(13737) / -3.41, -4.95, .00 / DATA B(13834), B(13835), B(13836) / -4.57, -6.10, .00 / DATA B(12748), B(12749), B(12750) / 2.31, .29, .00 / DATA B(12847), B(12848), B(12849) / .97, 3.35, .00 / DATA B(12946), B(12947), B(12948) / -.14, 7.33, .00 / DATA B(13045), B(13046), B(13047) / -.17, 10.69, .00 / DATA B(13144), B(13145), B(13146) / 1.09, 12.39, .00 / DATA B(13243), B(13244), B(13245) / 2.90, 12.03, .00 / DATA B(13342), B(13343), B(13344) / 3.96, 9.80, .00 / DATA B(13441), B(13442), B(13443) / 3.42, 6.27, .00 / DATA B(13540), B(13541), B(13542) / 1.57, 2.31, .00 / DATA B(13639), B(13640), B(13641) / -.76, -1.29, .00 / DATA B(13738), B(13739), B(13740) / -2.78, -3.89, .00 / DATA B(13837), B(13838), B(13839) / -3.89, -5.08, .00 / DATA B(12751), B(12752), B(12753) / 3.26, -.46, .00 / DATA B(12850), B(12851), B(12852) / 1.55, 3.19, .00 / DATA B(12949), B(12950), B(12951) / .23, 7.58, .00 / DATA B(13048), B(13049), B(13050) / .12, 11.19, .00 / DATA B(13147), B(13148), B(13149) / 1.29, 13.04, .00 / DATA B(13246), B(13247), B(13248) / 2.99, 12.77, .00 / DATA B(13345), B(13346), B(13347) / 4.00, 10.55, .00 / DATA B(13444), B(13445), B(13446) / 3.53, 6.98, .00 / DATA B(13543), B(13544), B(13545) / 1.77, 2.94, .00 / DATA B(13642), B(13643), B(13644) / -.51, -.75, .00 / DATA B(13741), B(13742), B(13743) / -2.51, -3.41, .00 / DATA B(13840), B(13841), B(13842) / -3.62, -4.65, .00 / END BLOCK DATA INITEQ IMPLICIT DOUBLE PRECISION (A-H, O-Z) IMPLICIT INTEGER*4 (I-N) parameter (NDLOC = 400) COMMON /QPARM/ STRIKE(NDLOC), HL(NDLOC), EQLAT(NDLOC), * EQLON(NDLOC), SSLIP(NDLOC), DSLIP(NDLOC), DIP(NDLOC), * DEPTH(NDLOC), WIDTH(NDLOC), EQLATR(50), EQLONR(50), * EQRAD(50), ITEQK(50), NLOC(50), NFP(50), NUMEQ DATA EQLATR( 1) / .5712986241E+00/ * EQLONR( 1) / .2015855286E+01/ * EQRAD( 1) / .2000000000E+06/ * ITEQK( 1) / 42865920/ * NLOC( 1) / 1/ * NFP( 1) / 5/ DATA STRIKE( 1) / .2495820830E+01/ * HL( 1) / .1100000000E+05/ * EQLAT( 1) / .5685458908E+00/ * EQLON( 1) / .2011428957E+01/ * SSLIP( 1) / .2610000000E+01/ * DSLIP( 1) / .6300000000E-01/ * DIP( 1) / .1308996939E+01/ * DEPTH( 1) / .0000000000E+00/ * WIDTH( 1) / .1000000000E+05/ DATA STRIKE( 2) / .2495820830E+01/ * HL( 2) / .4000000000E+04/ * EQLAT( 2) / .5704317190E+00/ * EQLON( 2) / .2013106392E+01/ * SSLIP( 2) / .4331000000E+01/ * DSLIP( 2) / .2535000000E+01/ * DIP( 2) / .1308996939E+01/ * DEPTH( 2) / .0000000000E+00/ * WIDTH( 2) / .1000000000E+05/ DATA STRIKE( 3) / .2495820830E+01/ * HL( 3) / .4000000000E+04/ * EQLAT( 3) / .5714886904E+00/ * EQLON( 3) / .2014003317E+01/ * SSLIP( 3) / .1323000000E+01/ * DSLIP( 3) /-.1008000000E+01/ * DIP( 3) / .1308996939E+01/ * DEPTH( 3) / .0000000000E+00/ * WIDTH( 3) / .1000000000E+05/ DATA STRIKE( 4) / .2495820830E+01/ * HL( 4) / .1000000000E+05/ * EQLAT( 4) / .5731999857E+00/ * EQLON( 4) / .2015574114E+01/ * SSLIP( 4) / .1033000000E+01/ * DSLIP( 4) / .1830000000E+00/ * DIP( 4) / .1308996939E+01/ * DEPTH( 4) / .0000000000E+00/ * WIDTH( 4) / .1000000000E+05/ DATA STRIKE( 5) / .6230825430E+01/ * HL( 5) / .6000000000E+04/ * EQLAT( 5) / .5745768760E+00/ * EQLON( 5) / .2015637120E+01/ * SSLIP( 5) / .1800000000E-01/ * DSLIP( 5) / .3110000000E+00/ * DIP( 5) / .1570796327E+01/ * DEPTH( 5) / .0000000000E+00/ * WIDTH( 5) / .1000000000E+05/ DATA EQLATR( 2) / .5753826945E+00/ * EQLONR( 2) / .2024581932E+01/ * EQRAD( 2) / .2000000000E+06/ * ITEQK( 2) / 44140320/ * NLOC( 2) / 6/ * NFP( 2) / 1/ DATA STRIKE( 6) / .5410520681E+01/ * HL( 6) / .1500000000E+05/ * EQLAT( 6) / .5773549166E+00/ * EQLON( 6) / .2026690814E+01/ * SSLIP( 6) / .4150000000E+00/ * DSLIP( 6) /-.1440000000E+00/ * DIP( 6) / .1570796327E+01/ * DEPTH( 6) / .0000000000E+00/ * WIDTH( 6) / .1000000000E+05/ DATA EQLATR( 3) / .5808979349E+00/ * EQLONR( 3) / .2027775885E+01/ * EQRAD( 3) / .2000000000E+06/ * ITEQK( 3) / 50140800/ * NLOC( 3) / 7/ * NFP( 3) / 1/ DATA STRIKE( 7) / .5480333851E+01/ * HL( 7) / .1500000000E+05/ * EQLAT( 7) / .5816309732E+00/ * EQLON( 7) / .2028523409E+01/ * SSLIP( 7) / .3280000000E+00/ * DSLIP( 7) /-.3940000000E+00/ * DIP( 7) / .1570796327E+01/ * DEPTH( 7) / .0000000000E+00/ * WIDTH( 7) / .1000000000E+05/ DATA EQLATR( 4) / .5792747787E+00/ * EQLONR( 4) / .2026827647E+01/ * EQRAD( 4) / .2000000000E+06/ * ITEQK( 4) / 57535200/ * NLOC( 4) / 8/ * NFP( 4) / 1/ DATA STRIKE( 8) / .2443460953E+01/ * HL( 8) / .1500000000E+05/ * EQLAT( 8) / .5783293339E+00/ * EQLON( 8) / .2026079948E+01/ * SSLIP( 8) / .8930000000E+00/ * DSLIP( 8) / .3800000000E+00/ * DIP( 8) / .1448623279E+01/ * DEPTH( 8) / .1000000000E+04/ * WIDTH( 8) / .9000000000E+04/ DATA EQLATR( 5) / .5692159227E+00/ * EQLONR( 5) / .2012681754E+01/ * EQRAD( 5) / .2000000000E+06/ * ITEQK( 5) / 63591840/ * NLOC( 5) / 9/ * NFP( 5) / 1/ DATA STRIKE( 9) / .2495820830E+01/ * HL( 9) / .2000000000E+05/ * EQLAT( 9) / .5721238157E+00/ * EQLON( 9) / .2014517142E+01/ * SSLIP( 9) / .6480000000E+00/ * DSLIP( 9) / .3950000000E+00/ * DIP( 9) / .1570796327E+01/ * DEPTH( 9) / .0000000000E+00/ * WIDTH( 9) / .1000000000E+05/ DATA EQLATR( 6) / .5998173040E+00/ * EQLONR( 6) / .2087117079E+01/ * EQRAD( 6) / .2000000000E+06/ * ITEQK( 6) / 43453440/ * NLOC( 6) / 10/ * NFP( 6) / 1/ DATA STRIKE( 10) / .1815142422E+01/ * HL( 10) / .1250000000E+05/ * EQLAT( 10) / .5993460651E+00/ * EQLON( 10) / .2083835860E+01/ * SSLIP( 10) / .0000000000E+00/ * DSLIP( 10) / .0000000000E+00/ * DIP( 10) / .5235987756E+00/ * DEPTH( 10) / .1500000000E+04/ * WIDTH( 10) / .1300000000E+05/ DATA EQLATR( 7) / .6005882160E+00/ * EQLONR( 7) / .2066481528E+01/ * EQRAD( 7) / .2000000000E+06/ * ITEQK( 7) / 59027040/ * NLOC( 7) / 11/ * NFP( 7) / 4/ DATA STRIKE( 11) / .1919862177E+01/ * HL( 11) / .6000000000E+04/ * EQLAT( 11) / .5984491404E+00/ * EQLON( 11) / .2066043276E+01/ * SSLIP( 11) / .8130000000E+00/ * DSLIP( 11) /-.2123000000E+01/ * DIP( 11) / .6108652382E+00/ * DEPTH( 11) / .5750000000E+03/ * WIDTH( 11) / .1100000000E+05/ DATA STRIKE( 12) / .1919862177E+01/ * HL( 12) / .6000000000E+04/ * EQLAT( 12) / .5997823974E+00/ * EQLON( 12) / .2065456496E+01/ * SSLIP( 12) /-.1519000000E+01/ * DSLIP( 12) /-.3970000000E+01/ * DIP( 12) / .9075712110E+00/ * DEPTH( 12) / .6900000000E+04/ * WIDTH( 12) / .1127000000E+05/ DATA STRIKE( 13) / .1919862177E+01/ * HL( 13) / .3000000000E+04/ * EQLAT( 13) / .5983910210E+00/ * EQLON( 13) / .2067885471E+01/ * SSLIP( 13) / .5000000000E+00/ * DSLIP( 13) /-.7600000000E+00/ * DIP( 13) / .6108652382E+00/ * DEPTH( 13) / .1720000000E+04/ * WIDTH( 13) / .2100000000E+05/ DATA STRIKE( 14) / .3490658504E+00/ * HL( 14) / .4915000000E+04/ * EQLAT( 14) / .5993752121E+00/ * EQLON( 14) / .2066848047E+01/ * SSLIP( 14) /-.1313000000E+01/ * DSLIP( 14) /-.1320000000E+01/ * DIP( 14) / .1570796327E+01/ * DEPTH( 14) / .1720000000E+04/ * WIDTH( 14) / .5180000000E+04/ DATA EQLATR( 8) / .6108652382E+00/ * EQLONR( 8) / .2079856510E+01/ * EQRAD( 8) / .4000000000E+06/ * ITEQK( 8) / 49268160/ * NLOC( 8) / 15/ * NFP( 8) / 3/ DATA STRIKE( 15) / .4415683008E+01/ * HL( 15) / .1250000000E+05/ * EQLAT( 15) / .6109233577E+00/ * EQLON( 15) / .2077596308E+01/ * SSLIP( 15) / .3220000000E+00/ * DSLIP( 15) /-.3482000000E+01/ * DIP( 15) / .1308996939E+01/ * DEPTH( 15) / .4830000000E+04/ * WIDTH( 15) / .2200000000E+05/ DATA STRIKE( 16) / .4153883620E+01/ * HL( 16) / .1250000000E+05/ * EQLAT( 16) / .6132795522E+00/ * EQLON( 16) / .2072922666E+01/ * SSLIP( 16) /-.1290000000E+01/ * DSLIP( 16) /-.1049000000E+01/ * DIP( 16) / .6108652382E+00/ * DEPTH( 16) / .3440000000E+04/ * WIDTH( 16) / .2000000000E+05/ DATA STRIKE( 17) / .3892084232E+01/ * HL( 17) / .1250000000E+05/ * EQLAT( 17) / .6154030943E+00/ * EQLON( 17) / .2069150835E+01/ * SSLIP( 17) /-.2330000000E+00/ * DSLIP( 17) /-.3230000000E+00/ * DIP( 17) / .3490658504E+00/ * DEPTH( 17) / .2050000000E+04/ * WIDTH( 17) / .2000000000E+05/ DATA EQLATR( 9) / .6248278722E+00/ * EQLONR( 9) / .2100207049E+01/ * EQRAD( 9) / .2000000000E+06/ * ITEQK( 9) / 39738240/ * NLOC( 9) / 18/ * NFP( 9) / 98/ DATA STRIKE( 18) / .2340137461E+01/ * HL( 18) / .1500000000E+04/ * EQLAT( 18) / .6280858783E+00/ * EQLON( 18) / .2103805394E+01/ * SSLIP( 18) / .1614000000E+00/ * DSLIP( 18) / .0000000000E+00/ * DIP( 18) / .1570796327E+01/ * DEPTH( 18) / .0000000000E+00/ * WIDTH( 18) / .2000000000E+04/ DATA STRIKE( 19) / .2340137461E+01/ * HL( 19) / .1500000000E+04/ * EQLAT( 19) / .6280858783E+00/ * EQLON( 19) / .2103805394E+01/ * SSLIP( 19) / .1677000000E+00/ * DSLIP( 19) / .0000000000E+00/ * DIP( 19) / .1570796327E+01/ * DEPTH( 19) / .2000000000E+04/ * WIDTH( 19) / .2000000000E+04/ DATA STRIKE( 20) / .2340137461E+01/ * HL( 20) / .1500000000E+04/ * EQLAT( 20) / .6280858783E+00/ * EQLON( 20) / .2103805394E+01/ * SSLIP( 20) / .1747000000E+00/ * DSLIP( 20) / .0000000000E+00/ * DIP( 20) / .1570796327E+01/ * DEPTH( 20) / .4000000000E+04/ * WIDTH( 20) / .2000000000E+04/ DATA STRIKE( 21) / .2340137461E+01/ * HL( 21) / .1500000000E+04/ * EQLAT( 21) / .6280858783E+00/ * EQLON( 21) / .2103805394E+01/ * SSLIP( 21) / .1744000000E+00/ * DSLIP( 21) / .0000000000E+00/ * DIP( 21) / .1570796327E+01/ * DEPTH( 21) / .6000000000E+04/ * WIDTH( 21) / .2000000000E+04/ DATA STRIKE( 22) / .2340137461E+01/ * HL( 22) / .1500000000E+04/ * EQLAT( 22) / .6280858783E+00/ * EQLON( 22) / .2103805394E+01/ * SSLIP( 22) / .1590000000E+00/ * DSLIP( 22) / .0000000000E+00/ * DIP( 22) / .1570796327E+01/ * DEPTH( 22) / .8000000000E+04/ * WIDTH( 22) / .2000000000E+04/ DATA STRIKE( 23) / .2340137461E+01/ * HL( 23) / .1500000000E+04/ * EQLAT( 23) / .6280858783E+00/ * EQLON( 23) / .2103805394E+01/ * SSLIP( 23) / .1238000000E+00/ * DSLIP( 23) / .0000000000E+00/ * DIP( 23) / .1570796327E+01/ * DEPTH( 23) / .1000000000E+05/ * WIDTH( 23) / .2000000000E+04/ DATA STRIKE( 24) / .2340137461E+01/ * HL( 24) / .1500000000E+04/ * EQLAT( 24) / .6280858783E+00/ * EQLON( 24) / .2103805394E+01/ * SSLIP( 24) / .6880000000E-01/ * DSLIP( 24) / .0000000000E+00/ * DIP( 24) / .1570796327E+01/ * DEPTH( 24) / .1200000000E+05/ * WIDTH( 24) / .2000000000E+04/ DATA STRIKE( 25) / .2340137461E+01/ * HL( 25) / .1500000000E+04/ * EQLAT( 25) / .6277561856E+00/ * EQLON( 25) / .2103388435E+01/ * SSLIP( 25) / .2708000000E+00/ * DSLIP( 25) / .0000000000E+00/ * DIP( 25) / .1570796327E+01/ * DEPTH( 25) / .0000000000E+00/ * WIDTH( 25) / .2000000000E+04/ DATA STRIKE( 26) / .2340137461E+01/ * HL( 26) / .1500000000E+04/ * EQLAT( 26) / .6277561856E+00/ * EQLON( 26) / .2103388435E+01/ * SSLIP( 26) / .2869000000E+00/ * DSLIP( 26) / .0000000000E+00/ * DIP( 26) / .1570796327E+01/ * DEPTH( 26) / .2000000000E+04/ * WIDTH( 26) / .2000000000E+04/ DATA STRIKE( 27) / .2340137461E+01/ * HL( 27) / .1500000000E+04/ * EQLAT( 27) / .6277561856E+00/ * EQLON( 27) / .2103388435E+01/ * SSLIP( 27) / .3067000000E+00/ * DSLIP( 27) / .0000000000E+00/ * DIP( 27) / .1570796327E+01/ * DEPTH( 27) / .4000000000E+04/ * WIDTH( 27) / .2000000000E+04/ DATA STRIKE( 28) / .2340137461E+01/ * HL( 28) / .1500000000E+04/ * EQLAT( 28) / .6277561856E+00/ * EQLON( 28) / .2103388435E+01/ * SSLIP( 28) / .3128000000E+00/ * DSLIP( 28) / .0000000000E+00/ * DIP( 28) / .1570796327E+01/ * DEPTH( 28) / .6000000000E+04/ * WIDTH( 28) / .2000000000E+04/ DATA STRIKE( 29) / .2340137461E+01/ * HL( 29) / .1500000000E+04/ * EQLAT( 29) / .6277561856E+00/ * EQLON( 29) / .2103388435E+01/ * SSLIP( 29) / .2890000000E+00/ * DSLIP( 29) / .0000000000E+00/ * DIP( 29) / .1570796327E+01/ * DEPTH( 29) / .8000000000E+04/ * WIDTH( 29) / .2000000000E+04/ DATA STRIKE( 30) / .2340137461E+01/ * HL( 30) / .1500000000E+04/ * EQLAT( 30) / .6277561856E+00/ * EQLON( 30) / .2103388435E+01/ * SSLIP( 30) / .2265000000E+00/ * DSLIP( 30) / .0000000000E+00/ * DIP( 30) / .1570796327E+01/ * DEPTH( 30) / .1000000000E+05/ * WIDTH( 30) / .2000000000E+04/ DATA STRIKE( 31) / .2340137461E+01/ * HL( 31) / .1500000000E+04/ * EQLAT( 31) / .6277561856E+00/ * EQLON( 31) / .2103388435E+01/ * SSLIP( 31) / .1259000000E+00/ * DSLIP( 31) / .0000000000E+00/ * DIP( 31) / .1570796327E+01/ * DEPTH( 31) / .1200000000E+05/ * WIDTH( 31) / .2000000000E+04/ DATA STRIKE( 32) / .2399653189E+01/ * HL( 32) / .1500000000E+04/ * EQLAT( 32) / .6274216060E+00/ * EQLON( 32) / .2102985962E+01/ * SSLIP( 32) / .3079000000E+00/ * DSLIP( 32) / .0000000000E+00/ * DIP( 32) / .1570796327E+01/ * DEPTH( 32) / .0000000000E+00/ * WIDTH( 32) / .2000000000E+04/ DATA STRIKE( 33) / .2399653189E+01/ * HL( 33) / .1500000000E+04/ * EQLAT( 33) / .6274216060E+00/ * EQLON( 33) / .2102985962E+01/ * SSLIP( 33) / .3424000000E+00/ * DSLIP( 33) / .0000000000E+00/ * DIP( 33) / .1570796327E+01/ * DEPTH( 33) / .2000000000E+04/ * WIDTH( 33) / .2000000000E+04/ DATA STRIKE( 34) / .2399653189E+01/ * HL( 34) / .1500000000E+04/ * EQLAT( 34) / .6274216060E+00/ * EQLON( 34) / .2102985962E+01/ * SSLIP( 34) / .3873000000E+00/ * DSLIP( 34) / .0000000000E+00/ * DIP( 34) / .1570796327E+01/ * DEPTH( 34) / .4000000000E+04/ * WIDTH( 34) / .2000000000E+04/ DATA STRIKE( 35) / .2399653189E+01/ * HL( 35) / .1500000000E+04/ * EQLAT( 35) / .6274216060E+00/ * EQLON( 35) / .2102985962E+01/ * SSLIP( 35) / .4116000000E+00/ * DSLIP( 35) / .0000000000E+00/ * DIP( 35) / .1570796327E+01/ * DEPTH( 35) / .6000000000E+04/ * WIDTH( 35) / .2000000000E+04/ DATA STRIKE( 36) / .2399653189E+01/ * HL( 36) / .1500000000E+04/ * EQLAT( 36) / .6274216060E+00/ * EQLON( 36) / .2102985962E+01/ * SSLIP( 36) / .3901000000E+00/ * DSLIP( 36) / .0000000000E+00/ * DIP( 36) / .1570796327E+01/ * DEPTH( 36) / .8000000000E+04/ * WIDTH( 36) / .2000000000E+04/ DATA STRIKE( 37) / .2399653189E+01/ * HL( 37) / .1500000000E+04/ * EQLAT( 37) / .6274216060E+00/ * EQLON( 37) / .2102985962E+01/ * SSLIP( 37) / .3097000000E+00/ * DSLIP( 37) / .0000000000E+00/ * DIP( 37) / .1570796327E+01/ * DEPTH( 37) / .1000000000E+05/ * WIDTH( 37) / .2000000000E+04/ DATA STRIKE( 38) / .2399653189E+01/ * HL( 38) / .1500000000E+04/ * EQLAT( 38) / .6274216060E+00/ * EQLON( 38) / .2102985962E+01/ * SSLIP( 38) / .1732000000E+00/ * DSLIP( 38) / .0000000000E+00/ * DIP( 38) / .1570796327E+01/ * DEPTH( 38) / .1200000000E+05/ * WIDTH( 38) / .2000000000E+04/ DATA STRIKE( 39) / .2399653189E+01/ * HL( 39) / .1500000000E+04/ * EQLAT( 39) / .6270725402E+00/ * EQLON( 39) / .2102593263E+01/ * SSLIP( 39) / .2808000000E+00/ * DSLIP( 39) / .0000000000E+00/ * DIP( 39) / .1570796327E+01/ * DEPTH( 39) / .0000000000E+00/ * WIDTH( 39) / .2000000000E+04/ DATA STRIKE( 40) / .2399653189E+01/ * HL( 40) / .1500000000E+04/ * EQLAT( 40) / .6270725402E+00/ * EQLON( 40) / .2102593263E+01/ * SSLIP( 40) / .3490000000E+00/ * DSLIP( 40) / .0000000000E+00/ * DIP( 40) / .1570796327E+01/ * DEPTH( 40) / .2000000000E+04/ * WIDTH( 40) / .2000000000E+04/ DATA STRIKE( 41) / .2399653189E+01/ * HL( 41) / .1500000000E+04/ * EQLAT( 41) / .6270725402E+00/ * EQLON( 41) / .2102593263E+01/ * SSLIP( 41) / .4346000000E+00/ * DSLIP( 41) / .0000000000E+00/ * DIP( 41) / .1570796327E+01/ * DEPTH( 41) / .4000000000E+04/ * WIDTH( 41) / .2000000000E+04/ DATA STRIKE( 42) / .2399653189E+01/ * HL( 42) / .1500000000E+04/ * EQLAT( 42) / .6270725402E+00/ * EQLON( 42) / .2102593263E+01/ * SSLIP( 42) / .4883000000E+00/ * DSLIP( 42) / .0000000000E+00/ * DIP( 42) / .1570796327E+01/ * DEPTH( 42) / .6000000000E+04/ * WIDTH( 42) / .2000000000E+04/ DATA STRIKE( 43) / .2399653189E+01/ * HL( 43) / .1500000000E+04/ * EQLAT( 43) / .6270725402E+00/ * EQLON( 43) / .2102593263E+01/ * SSLIP( 43) / .4760000000E+00/ * DSLIP( 43) / .0000000000E+00/ * DIP( 43) / .1570796327E+01/ * DEPTH( 43) / .8000000000E+04/ * WIDTH( 43) / .2000000000E+04/ DATA STRIKE( 44) / .2399653189E+01/ * HL( 44) / .1500000000E+04/ * EQLAT( 44) / .6270725402E+00/ * EQLON( 44) / .2102593263E+01/ * SSLIP( 44) / .3829000000E+00/ * DSLIP( 44) / .0000000000E+00/ * DIP( 44) / .1570796327E+01/ * DEPTH( 44) / .1000000000E+05/ * WIDTH( 44) / .2000000000E+04/ DATA STRIKE( 45) / .2399653189E+01/ * HL( 45) / .1500000000E+04/ * EQLAT( 45) / .6270725402E+00/ * EQLON( 45) / .2102593263E+01/ * SSLIP( 45) / .2152000000E+00/ * DSLIP( 45) / .0000000000E+00/ * DIP( 45) / .1570796327E+01/ * DEPTH( 45) / .1200000000E+05/ * WIDTH( 45) / .2000000000E+04/ DATA STRIKE( 46) / .2399653189E+01/ * HL( 46) / .1500000000E+04/ * EQLAT( 46) / .6267234743E+00/ * EQLON( 46) / .2102200564E+01/ * SSLIP( 46) / .2348000000E+00/ * DSLIP( 46) / .0000000000E+00/ * DIP( 46) / .1570796327E+01/ * DEPTH( 46) / .0000000000E+00/ * WIDTH( 46) / .2000000000E+04/ DATA STRIKE( 47) / .2399653189E+01/ * HL( 47) / .1500000000E+04/ * EQLAT( 47) / .6267234743E+00/ * EQLON( 47) / .2102200564E+01/ * SSLIP( 47) / .3555000000E+00/ * DSLIP( 47) / .0000000000E+00/ * DIP( 47) / .1570796327E+01/ * DEPTH( 47) / .2000000000E+04/ * WIDTH( 47) / .2000000000E+04/ DATA STRIKE( 48) / .2399653189E+01/ * HL( 48) / .1500000000E+04/ * EQLAT( 48) / .6267234743E+00/ * EQLON( 48) / .2102200564E+01/ * SSLIP( 48) / .4878000000E+00/ * DSLIP( 48) / .0000000000E+00/ * DIP( 48) / .1570796327E+01/ * DEPTH( 48) / .4000000000E+04/ * WIDTH( 48) / .2000000000E+04/ DATA STRIKE( 49) / .2399653189E+01/ * HL( 49) / .1500000000E+04/ * EQLAT( 49) / .6267234743E+00/ * EQLON( 49) / .2102200564E+01/ * SSLIP( 49) / .5683000000E+00/ * DSLIP( 49) / .0000000000E+00/ * DIP( 49) / .1570796327E+01/ * DEPTH( 49) / .6000000000E+04/ * WIDTH( 49) / .2000000000E+04/ DATA STRIKE( 50) / .2399653189E+01/ * HL( 50) / .1500000000E+04/ * EQLAT( 50) / .6267234743E+00/ * EQLON( 50) / .2102200564E+01/ * SSLIP( 50) / .5605000000E+00/ * DSLIP( 50) / .0000000000E+00/ * DIP( 50) / .1570796327E+01/ * DEPTH( 50) / .8000000000E+04/ * WIDTH( 50) / .2000000000E+04/ DATA STRIKE( 51) / .2399653189E+01/ * HL( 51) / .1500000000E+04/ * EQLAT( 51) / .6267234743E+00/ * EQLON( 51) / .2102200564E+01/ * SSLIP( 51) / .4521000000E+00/ * DSLIP( 51) / .0000000000E+00/ * DIP( 51) / .1570796327E+01/ * DEPTH( 51) / .1000000000E+05/ * WIDTH( 51) / .2000000000E+04/ DATA STRIKE( 52) / .2399653189E+01/ * HL( 52) / .1500000000E+04/ * EQLAT( 52) / .6267234743E+00/ * EQLON( 52) / .2102200564E+01/ * SSLIP( 52) / .2541000000E+00/ * DSLIP( 52) / .0000000000E+00/ * DIP( 52) / .1570796327E+01/ * DEPTH( 52) / .1200000000E+05/ * WIDTH( 52) / .2000000000E+04/ DATA STRIKE( 53) / .2399653189E+01/ * HL( 53) / .1500000000E+04/ * EQLAT( 53) / .6263744085E+00/ * EQLON( 53) / .2101807865E+01/ * SSLIP( 53) / .3467000000E+00/ * DSLIP( 53) / .0000000000E+00/ * DIP( 53) / .1570796327E+01/ * DEPTH( 53) / .0000000000E+00/ * WIDTH( 53) / .2000000000E+04/ DATA STRIKE( 54) / .2399653189E+01/ * HL( 54) / .1500000000E+04/ * EQLAT( 54) / .6263744085E+00/ * EQLON( 54) / .2101807865E+01/ * SSLIP( 54) / .4530000000E+00/ * DSLIP( 54) / .0000000000E+00/ * DIP( 54) / .1570796327E+01/ * DEPTH( 54) / .2000000000E+04/ * WIDTH( 54) / .2000000000E+04/ DATA STRIKE( 55) / .2399653189E+01/ * HL( 55) / .1500000000E+04/ * EQLAT( 55) / .6263744085E+00/ * EQLON( 55) / .2101807865E+01/ * SSLIP( 55) / .5794000000E+00/ * DSLIP( 55) / .0000000000E+00/ * DIP( 55) / .1570796327E+01/ * DEPTH( 55) / .4000000000E+04/ * WIDTH( 55) / .2000000000E+04/ DATA STRIKE( 56) / .2399653189E+01/ * HL( 56) / .1500000000E+04/ * EQLAT( 56) / .6263744085E+00/ * EQLON( 56) / .2101807865E+01/ * SSLIP( 56) / .6534000000E+00/ * DSLIP( 56) / .0000000000E+00/ * DIP( 56) / .1570796327E+01/ * DEPTH( 56) / .6000000000E+04/ * WIDTH( 56) / .2000000000E+04/ DATA STRIKE( 57) / .2399653189E+01/ * HL( 57) / .1500000000E+04/ * EQLAT( 57) / .6263744085E+00/ * EQLON( 57) / .2101807865E+01/ * SSLIP( 57) / .6331000000E+00/ * DSLIP( 57) / .0000000000E+00/ * DIP( 57) / .1570796327E+01/ * DEPTH( 57) / .8000000000E+04/ * WIDTH( 57) / .2000000000E+04/ DATA STRIKE( 58) / .2399653189E+01/ * HL( 58) / .1500000000E+04/ * EQLAT( 58) / .6263744085E+00/ * EQLON( 58) / .2101807865E+01/ * SSLIP( 58) / .5051000000E+00/ * DSLIP( 58) / .0000000000E+00/ * DIP( 58) / .1570796327E+01/ * DEPTH( 58) / .1000000000E+05/ * WIDTH( 58) / .2000000000E+04/ DATA STRIKE( 59) / .2399653189E+01/ * HL( 59) / .1500000000E+04/ * EQLAT( 59) / .6263744085E+00/ * EQLON( 59) / .2101807865E+01/ * SSLIP( 59) / .2821000000E+00/ * DSLIP( 59) / .0000000000E+00/ * DIP( 59) / .1570796327E+01/ * DEPTH( 59) / .1200000000E+05/ * WIDTH( 59) / .2000000000E+04/ DATA STRIKE( 60) / .2399653189E+01/ * HL( 60) / .1500000000E+04/ * EQLAT( 60) / .6260253426E+00/ * EQLON( 60) / .2101420053E+01/ * SSLIP( 60) / .3319000000E+00/ * DSLIP( 60) / .0000000000E+00/ * DIP( 60) / .1570796327E+01/ * DEPTH( 60) / .0000000000E+00/ * WIDTH( 60) / .2000000000E+04/ DATA STRIKE( 61) / .2399653189E+01/ * HL( 61) / .1500000000E+04/ * EQLAT( 61) / .6260253426E+00/ * EQLON( 61) / .2101420053E+01/ * SSLIP( 61) / .4632000000E+00/ * DSLIP( 61) / .0000000000E+00/ * DIP( 61) / .1570796327E+01/ * DEPTH( 61) / .2000000000E+04/ * WIDTH( 61) / .2000000000E+04/ DATA STRIKE( 62) / .2399653189E+01/ * HL( 62) / .1500000000E+04/ * EQLAT( 62) / .6260253426E+00/ * EQLON( 62) / .2101420053E+01/ * SSLIP( 62) / .5964000000E+00/ * DSLIP( 62) / .0000000000E+00/ * DIP( 62) / .1570796327E+01/ * DEPTH( 62) / .4000000000E+04/ * WIDTH( 62) / .2000000000E+04/ DATA STRIKE( 63) / .2399653189E+01/ * HL( 63) / .1500000000E+04/ * EQLAT( 63) / .6260253426E+00/ * EQLON( 63) / .2101420053E+01/ * SSLIP( 63) / .6656000000E+00/ * DSLIP( 63) / .0000000000E+00/ * DIP( 63) / .1570796327E+01/ * DEPTH( 63) / .6000000000E+04/ * WIDTH( 63) / .2000000000E+04/ DATA STRIKE( 64) / .2399653189E+01/ * HL( 64) / .1500000000E+04/ * EQLAT( 64) / .6260253426E+00/ * EQLON( 64) / .2101420053E+01/ * SSLIP( 64) / .6377000000E+00/ * DSLIP( 64) / .0000000000E+00/ * DIP( 64) / .1570796327E+01/ * DEPTH( 64) / .8000000000E+04/ * WIDTH( 64) / .2000000000E+04/ DATA STRIKE( 65) / .2399653189E+01/ * HL( 65) / .1500000000E+04/ * EQLAT( 65) / .6260253426E+00/ * EQLON( 65) / .2101420053E+01/ * SSLIP( 65) / .5047000000E+00/ * DSLIP( 65) / .0000000000E+00/ * DIP( 65) / .1570796327E+01/ * DEPTH( 65) / .1000000000E+05/ * WIDTH( 65) / .2000000000E+04/ DATA STRIKE( 66) / .2399653189E+01/ * HL( 66) / .1500000000E+04/ * EQLAT( 66) / .6260253426E+00/ * EQLON( 66) / .2101420053E+01/ * SSLIP( 66) / .2805000000E+00/ * DSLIP( 66) / .0000000000E+00/ * DIP( 66) / .1570796327E+01/ * DEPTH( 66) / .1200000000E+05/ * WIDTH( 66) / .2000000000E+04/ DATA STRIKE( 67) / .2399653189E+01/ * HL( 67) / .1500000000E+04/ * EQLAT( 67) / .6256762768E+00/ * EQLON( 67) / .2101027354E+01/ * SSLIP( 67) / .3412000000E+00/ * DSLIP( 67) / .0000000000E+00/ * DIP( 67) / .1570796327E+01/ * DEPTH( 67) / .0000000000E+00/ * WIDTH( 67) / .2000000000E+04/ DATA STRIKE( 68) / .2399653189E+01/ * HL( 68) / .1500000000E+04/ * EQLAT( 68) / .6256762768E+00/ * EQLON( 68) / .2101027354E+01/ * SSLIP( 68) / .4197000000E+00/ * DSLIP( 68) / .0000000000E+00/ * DIP( 68) / .1570796327E+01/ * DEPTH( 68) / .2000000000E+04/ * WIDTH( 68) / .2000000000E+04/ DATA STRIKE( 69) / .2399653189E+01/ * HL( 69) / .1500000000E+04/ * EQLAT( 69) / .6256762768E+00/ * EQLON( 69) / .2101027354E+01/ * SSLIP( 69) / .5118000000E+00/ * DSLIP( 69) / .0000000000E+00/ * DIP( 69) / .1570796327E+01/ * DEPTH( 69) / .4000000000E+04/ * WIDTH( 69) / .2000000000E+04/ DATA STRIKE( 70) / .2399653189E+01/ * HL( 70) / .1500000000E+04/ * EQLAT( 70) / .6256762768E+00/ * EQLON( 70) / .2101027354E+01/ * SSLIP( 70) / .5620000000E+00/ * DSLIP( 70) / .0000000000E+00/ * DIP( 70) / .1570796327E+01/ * DEPTH( 70) / .6000000000E+04/ * WIDTH( 70) / .2000000000E+04/ DATA STRIKE( 71) / .2399653189E+01/ * HL( 71) / .1500000000E+04/ * EQLAT( 71) / .6256762768E+00/ * EQLON( 71) / .2101027354E+01/ * SSLIP( 71) / .5368000000E+00/ * DSLIP( 71) / .0000000000E+00/ * DIP( 71) / .1570796327E+01/ * DEPTH( 71) / .8000000000E+04/ * WIDTH( 71) / .2000000000E+04/ DATA STRIKE( 72) / .2399653189E+01/ * HL( 72) / .1500000000E+04/ * EQLAT( 72) / .6256762768E+00/ * EQLON( 72) / .2101027354E+01/ * SSLIP( 72) / .4250000000E+00/ * DSLIP( 72) / .0000000000E+00/ * DIP( 72) / .1570796327E+01/ * DEPTH( 72) / .1000000000E+05/ * WIDTH( 72) / .2000000000E+04/ DATA STRIKE( 73) / .2399653189E+01/ * HL( 73) / .1500000000E+04/ * EQLAT( 73) / .6256762768E+00/ * EQLON( 73) / .2101027354E+01/ * SSLIP( 73) / .2364000000E+00/ * DSLIP( 73) / .0000000000E+00/ * DIP( 73) / .1570796327E+01/ * DEPTH( 73) / .1200000000E+05/ * WIDTH( 73) / .2000000000E+04/ DATA STRIKE( 74) / .2399653189E+01/ * HL( 74) / .1500000000E+04/ * EQLAT( 74) / .6253320978E+00/ * EQLON( 74) / .2100639541E+01/ * SSLIP( 74) / .1551000000E+00/ * DSLIP( 74) / .0000000000E+00/ * DIP( 74) / .1570796327E+01/ * DEPTH( 74) / .0000000000E+00/ * WIDTH( 74) / .2000000000E+04/ DATA STRIKE( 75) / .2399653189E+01/ * HL( 75) / .1500000000E+04/ * EQLAT( 75) / .6253320978E+00/ * EQLON( 75) / .2100639541E+01/ * SSLIP( 75) / .2130000000E+00/ * DSLIP( 75) / .0000000000E+00/ * DIP( 75) / .1570796327E+01/ * DEPTH( 75) / .2000000000E+04/ * WIDTH( 75) / .2000000000E+04/ DATA STRIKE( 76) / .2399653189E+01/ * HL( 76) / .1500000000E+04/ * EQLAT( 76) / .6253320978E+00/ * EQLON( 76) / .2100639541E+01/ * SSLIP( 76) / .2877000000E+00/ * DSLIP( 76) / .0000000000E+00/ * DIP( 76) / .1570796327E+01/ * DEPTH( 76) / .4000000000E+04/ * WIDTH( 76) / .2000000000E+04/ DATA STRIKE( 77) / .2399653189E+01/ * HL( 77) / .1500000000E+04/ * EQLAT( 77) / .6253320978E+00/ * EQLON( 77) / .2100639541E+01/ * SSLIP( 77) / .3398000000E+00/ * DSLIP( 77) / .0000000000E+00/ * DIP( 77) / .1570796327E+01/ * DEPTH( 77) / .6000000000E+04/ * WIDTH( 77) / .2000000000E+04/ DATA STRIKE( 78) / .2399653189E+01/ * HL( 78) / .1500000000E+04/ * EQLAT( 78) / .6253320978E+00/ * EQLON( 78) / .2100639541E+01/ * SSLIP( 78) / .3414000000E+00/ * DSLIP( 78) / .0000000000E+00/ * DIP( 78) / .1570796327E+01/ * DEPTH( 78) / .8000000000E+04/ * WIDTH( 78) / .2000000000E+04/ DATA STRIKE( 79) / .2399653189E+01/ * HL( 79) / .1500000000E+04/ * EQLAT( 79) / .6253320978E+00/ * EQLON( 79) / .2100639541E+01/ * SSLIP( 79) / .2795000000E+00/ * DSLIP( 79) / .0000000000E+00/ * DIP( 79) / .1570796327E+01/ * DEPTH( 79) / .1000000000E+05/ * WIDTH( 79) / .2000000000E+04/ DATA STRIKE( 80) / .2399653189E+01/ * HL( 80) / .1500000000E+04/ * EQLAT( 80) / .6253320978E+00/ * EQLON( 80) / .2100639541E+01/ * SSLIP( 80) / .1584000000E+00/ * DSLIP( 80) / .0000000000E+00/ * DIP( 80) / .1570796327E+01/ * DEPTH( 80) / .1200000000E+05/ * WIDTH( 80) / .2000000000E+04/ DATA STRIKE( 81) / .2685538120E+01/ * HL( 81) / .1500000000E+04/ * EQLAT( 81) / .6249442857E+00/ * EQLON( 81) / .2100314736E+01/ * SSLIP( 81) / .0000000000E+00/ * DSLIP( 81) / .0000000000E+00/ * DIP( 81) / .1570796327E+01/ * DEPTH( 81) / .0000000000E+00/ * WIDTH( 81) / .2000000000E+04/ DATA STRIKE( 82) / .2685538120E+01/ * HL( 82) / .1500000000E+04/ * EQLAT( 82) / .6249442857E+00/ * EQLON( 82) / .2100314736E+01/ * SSLIP( 82) / .2600000000E-01/ * DSLIP( 82) / .0000000000E+00/ * DIP( 82) / .1570796327E+01/ * DEPTH( 82) / .2000000000E+04/ * WIDTH( 82) / .2000000000E+04/ DATA STRIKE( 83) / .2685538120E+01/ * HL( 83) / .1500000000E+04/ * EQLAT( 83) / .6249442857E+00/ * EQLON( 83) / .2100314736E+01/ * SSLIP( 83) / .7550000000E-01/ * DSLIP( 83) / .0000000000E+00/ * DIP( 83) / .1570796327E+01/ * DEPTH( 83) / .4000000000E+04/ * WIDTH( 83) / .2000000000E+04/ DATA STRIKE( 84) / .2685538120E+01/ * HL( 84) / .1500000000E+04/ * EQLAT( 84) / .6249442857E+00/ * EQLON( 84) / .2100314736E+01/ * SSLIP( 84) / .1218000000E+00/ * DSLIP( 84) / .0000000000E+00/ * DIP( 84) / .1570796327E+01/ * DEPTH( 84) / .6000000000E+04/ * WIDTH( 84) / .2000000000E+04/ DATA STRIKE( 85) / .2685538120E+01/ * HL( 85) / .1500000000E+04/ * EQLAT( 85) / .6249442857E+00/ * EQLON( 85) / .2100314736E+01/ * SSLIP( 85) / .1458000000E+00/ * DSLIP( 85) / .0000000000E+00/ * DIP( 85) / .1570796327E+01/ * DEPTH( 85) / .8000000000E+04/ * WIDTH( 85) / .2000000000E+04/ DATA STRIKE( 86) / .2685538120E+01/ * HL( 86) / .1500000000E+04/ * EQLAT( 86) / .6249442857E+00/ * EQLON( 86) / .2100314736E+01/ * SSLIP( 86) / .1332000000E+00/ * DSLIP( 86) / .0000000000E+00/ * DIP( 86) / .1570796327E+01/ * DEPTH( 86) / .1000000000E+05/ * WIDTH( 86) / .2000000000E+04/ DATA STRIKE( 87) / .2685538120E+01/ * HL( 87) / .1500000000E+04/ * EQLAT( 87) / .6249442857E+00/ * EQLON( 87) / .2100314736E+01/ * SSLIP( 87) / .8070000000E-01/ * DSLIP( 87) / .0000000000E+00/ * DIP( 87) / .1570796327E+01/ * DEPTH( 87) / .1200000000E+05/ * WIDTH( 87) / .2000000000E+04/ DATA STRIKE( 88) / .2685538120E+01/ * HL( 88) / .1500000000E+04/ * EQLAT( 88) / .6245224396E+00/ * EQLON( 88) / .2100062536E+01/ * SSLIP( 88) / .0000000000E+00/ * DSLIP( 88) / .0000000000E+00/ * DIP( 88) / .1570796327E+01/ * DEPTH( 88) / .0000000000E+00/ * WIDTH( 88) / .2000000000E+04/ DATA STRIKE( 89) / .2685538120E+01/ * HL( 89) / .1500000000E+04/ * EQLAT( 89) / .6245224396E+00/ * EQLON( 89) / .2100062536E+01/ * SSLIP( 89) / .0000000000E+00/ * DSLIP( 89) / .0000000000E+00/ * DIP( 89) / .1570796327E+01/ * DEPTH( 89) / .2000000000E+04/ * WIDTH( 89) / .2000000000E+04/ DATA STRIKE( 90) / .2685538120E+01/ * HL( 90) / .1500000000E+04/ * EQLAT( 90) / .6245224396E+00/ * EQLON( 90) / .2100062536E+01/ * SSLIP( 90) / .0000000000E+00/ * DSLIP( 90) / .0000000000E+00/ * DIP( 90) / .1570796327E+01/ * DEPTH( 90) / .4000000000E+04/ * WIDTH( 90) / .2000000000E+04/ DATA STRIKE( 91) / .2685538120E+01/ * HL( 91) / .1500000000E+04/ * EQLAT( 91) / .6245224396E+00/ * EQLON( 91) / .2100062536E+01/ * SSLIP( 91) / .0000000000E+00/ * DSLIP( 91) / .0000000000E+00/ * DIP( 91) / .1570796327E+01/ * DEPTH( 91) / .6000000000E+04/ * WIDTH( 91) / .2000000000E+04/ DATA STRIKE( 92) / .2685538120E+01/ * HL( 92) / .1500000000E+04/ * EQLAT( 92) / .6245224396E+00/ * EQLON( 92) / .2100062536E+01/ * SSLIP( 92) / .1290000000E-01/ * DSLIP( 92) / .0000000000E+00/ * DIP( 92) / .1570796327E+01/ * DEPTH( 92) / .8000000000E+04/ * WIDTH( 92) / .2000000000E+04/ DATA STRIKE( 93) / .2685538120E+01/ * HL( 93) / .1500000000E+04/ * EQLAT( 93) / .6245224396E+00/ * EQLON( 93) / .2100062536E+01/ * SSLIP( 93) / .2470000000E-01/ * DSLIP( 93) / .0000000000E+00/ * DIP( 93) / .1570796327E+01/ * DEPTH( 93) / .1000000000E+05/ * WIDTH( 93) / .2000000000E+04/ DATA STRIKE( 94) / .2685538120E+01/ * HL( 94) / .1500000000E+04/ * EQLAT( 94) / .6245224396E+00/ * EQLON( 94) / .2100062536E+01/ * SSLIP( 94) / .2040000000E-01/ * DSLIP( 94) / .0000000000E+00/ * DIP( 94) / .1570796327E+01/ * DEPTH( 94) / .1200000000E+05/ * WIDTH( 94) / .2000000000E+04/ DATA STRIKE( 95) / .2513099590E+01/ * HL( 95) / .1500000000E+04/ * EQLAT( 95) / .6241152543E+00/ * EQLON( 95) / .2099761990E+01/ * SSLIP( 95) / .0000000000E+00/ * DSLIP( 95) / .0000000000E+00/ * DIP( 95) / .1570796327E+01/ * DEPTH( 95) / .0000000000E+00/ * WIDTH( 95) / .2000000000E+04/ DATA STRIKE( 96) / .2513099590E+01/ * HL( 96) / .1500000000E+04/ * EQLAT( 96) / .6241152543E+00/ * EQLON( 96) / .2099761990E+01/ * SSLIP( 96) / .0000000000E+00/ * DSLIP( 96) / .0000000000E+00/ * DIP( 96) / .1570796327E+01/ * DEPTH( 96) / .2000000000E+04/ * WIDTH( 96) / .2000000000E+04/ DATA STRIKE( 97) / .2513099590E+01/ * HL( 97) / .1500000000E+04/ * EQLAT( 97) / .6241152543E+00/ * EQLON( 97) / .2099761990E+01/ * SSLIP( 97) / .0000000000E+00/ * DSLIP( 97) / .0000000000E+00/ * DIP( 97) / .1570796327E+01/ * DEPTH( 97) / .4000000000E+04/ * WIDTH( 97) / .2000000000E+04/ DATA STRIKE( 98) / .2513099590E+01/ * HL( 98) / .1500000000E+04/ * EQLAT( 98) / .6241152543E+00/ * EQLON( 98) / .2099761990E+01/ * SSLIP( 98) / .0000000000E+00/ * DSLIP( 98) / .0000000000E+00/ * DIP( 98) / .1570796327E+01/ * DEPTH( 98) / .6000000000E+04/ * WIDTH( 98) / .2000000000E+04/ DATA STRIKE( 99) / .2513099590E+01/ * HL( 99) / .1500000000E+04/ * EQLAT( 99) / .6241152543E+00/ * EQLON( 99) / .2099761990E+01/ * SSLIP( 99) / .0000000000E+00/ * DSLIP( 99) / .0000000000E+00/ * DIP( 99) / .1570796327E+01/ * DEPTH( 99) / .8000000000E+04/ * WIDTH( 99) / .2000000000E+04/ DATA STRIKE(100) / .2513099590E+01/ * HL(100) / .1500000000E+04/ * EQLAT(100) / .6241152543E+00/ * EQLON(100) / .2099761990E+01/ * SSLIP(100) / .6600000000E-02/ * DSLIP(100) / .0000000000E+00/ * DIP(100) / .1570796327E+01/ * DEPTH(100) / .1000000000E+05/ * WIDTH(100) / .2000000000E+04/ DATA STRIKE(101) / .2513099590E+01/ * HL(101) / .1500000000E+04/ * EQLAT(101) / .6241152543E+00/ * EQLON(101) / .2099761990E+01/ * SSLIP(101) / .8100000000E-02/ * DSLIP(101) / .0000000000E+00/ * DIP(101) / .1570796327E+01/ * DEPTH(101) / .1200000000E+05/ * WIDTH(101) / .2000000000E+04/ DATA STRIKE(102) / .2513099590E+01/ * HL(102) / .1500000000E+04/ * EQLAT(102) / .6237370414E+00/ * EQLON(102) / .2099427410E+01/ * SSLIP(102) / .1600000000E-01/ * DSLIP(102) / .0000000000E+00/ * DIP(102) / .1570796327E+01/ * DEPTH(102) / .0000000000E+00/ * WIDTH(102) / .2000000000E+04/ DATA STRIKE(103) / .2513099590E+01/ * HL(103) / .1500000000E+04/ * EQLAT(103) / .6237370414E+00/ * EQLON(103) / .2099427410E+01/ * SSLIP(103) / .0000000000E+00/ * DSLIP(103) / .0000000000E+00/ * DIP(103) / .1570796327E+01/ * DEPTH(103) / .2000000000E+04/ * WIDTH(103) / .2000000000E+04/ DATA STRIKE(104) / .2513099590E+01/ * HL(104) / .1500000000E+04/ * EQLAT(104) / .6237370414E+00/ * EQLON(104) / .2099427410E+01/ * SSLIP(104) / .0000000000E+00/ * DSLIP(104) / .0000000000E+00/ * DIP(104) / .1570796327E+01/ * DEPTH(104) / .4000000000E+04/ * WIDTH(104) / .2000000000E+04/ DATA STRIKE(105) / .2513099590E+01/ * HL(105) / .1500000000E+04/ * EQLAT(105) / .6237370414E+00/ * EQLON(105) / .2099427410E+01/ * SSLIP(105) / .2780000000E-01/ * DSLIP(105) / .0000000000E+00/ * DIP(105) / .1570796327E+01/ * DEPTH(105) / .6000000000E+04/ * WIDTH(105) / .2000000000E+04/ DATA STRIKE(106) / .2513099590E+01/ * HL(106) / .1500000000E+04/ * EQLAT(106) / .6237370414E+00/ * EQLON(106) / .2099427410E+01/ * SSLIP(106) / .5500000000E-01/ * DSLIP(106) / .0000000000E+00/ * DIP(106) / .1570796327E+01/ * DEPTH(106) / .8000000000E+04/ * WIDTH(106) / .2000000000E+04/ DATA STRIKE(107) / .2513099590E+01/ * HL(107) / .1500000000E+04/ * EQLAT(107) / .6237370414E+00/ * EQLON(107) / .2099427410E+01/ * SSLIP(107) / .6080000000E-01/ * DSLIP(107) / .0000000000E+00/ * DIP(107) / .1570796327E+01/ * DEPTH(107) / .1000000000E+05/ * WIDTH(107) / .2000000000E+04/ DATA STRIKE(108) / .2513099590E+01/ * HL(108) / .1500000000E+04/ * EQLAT(108) / .6237370414E+00/ * EQLON(108) / .2099427410E+01/ * SSLIP(108) / .4030000000E-01/ * DSLIP(108) / .0000000000E+00/ * DIP(108) / .1570796327E+01/ * DEPTH(108) / .1200000000E+05/ * WIDTH(108) / .2000000000E+04/ DATA STRIKE(109) / .2513099590E+01/ * HL(109) / .1500000000E+04/ * EQLAT(109) / .6233541162E+00/ * EQLON(109) / .2099088118E+01/ * SSLIP(109) / .1770000000E-01/ * DSLIP(109) / .0000000000E+00/ * DIP(109) / .1570796327E+01/ * DEPTH(109) / .0000000000E+00/ * WIDTH(109) / .2000000000E+04/ DATA STRIKE(110) / .2513099590E+01/ * HL(110) / .1500000000E+04/ * EQLAT(110) / .6233541162E+00/ * EQLON(110) / .2099088118E+01/ * SSLIP(110) / .2360000000E-01/ * DSLIP(110) / .0000000000E+00/ * DIP(110) / .1570796327E+01/ * DEPTH(110) / .2000000000E+04/ * WIDTH(110) / .2000000000E+04/ DATA STRIKE(111) / .2513099590E+01/ * HL(111) / .1500000000E+04/ * EQLAT(111) / .6233541162E+00/ * EQLON(111) / .2099088118E+01/ * SSLIP(111) / .7460000000E-01/ * DSLIP(111) / .0000000000E+00/ * DIP(111) / .1570796327E+01/ * DEPTH(111) / .4000000000E+04/ * WIDTH(111) / .2000000000E+04/ DATA STRIKE(112) / .2513099590E+01/ * HL(112) / .1500000000E+04/ * EQLAT(112) / .6233541162E+00/ * EQLON(112) / .2099088118E+01/ * SSLIP(112) / .1180000000E+00/ * DSLIP(112) / .0000000000E+00/ * DIP(112) / .1570796327E+01/ * DEPTH(112) / .6000000000E+04/ * WIDTH(112) / .2000000000E+04/ DATA STRIKE(113) / .2513099590E+01/ * HL(113) / .1500000000E+04/ * EQLAT(113) / .6233541162E+00/ * EQLON(113) / .2099088118E+01/ * SSLIP(113) / .1305000000E+00/ * DSLIP(113) / .0000000000E+00/ * DIP(113) / .1570796327E+01/ * DEPTH(113) / .8000000000E+04/ * WIDTH(113) / .2000000000E+04/ DATA STRIKE(114) / .2513099590E+01/ * HL(114) / .1500000000E+04/ * EQLAT(114) / .6233541162E+00/ * EQLON(114) / .2099088118E+01/ * SSLIP(114) / .1109000000E+00/ * DSLIP(114) / .0000000000E+00/ * DIP(114) / .1570796327E+01/ * DEPTH(114) / .1000000000E+05/ * WIDTH(114) / .2000000000E+04/ DATA STRIKE(115) / .2513099590E+01/ * HL(115) / .1500000000E+04/ * EQLAT(115) / .6233541162E+00/ * EQLON(115) / .2099088118E+01/ * SSLIP(115) / .6470000000E-01/ * DSLIP(115) / .0000000000E+00/ * DIP(115) / .1570796327E+01/ * DEPTH(115) / .1200000000E+05/ * WIDTH(115) / .2000000000E+04/ DATA EQLATR( 10) / .6268494871E+00/ * EQLONR( 10) / .2103703467E+01/ * EQRAD( 10) / .2000000000E+06/ * ITEQK( 10) / 56597760/ * NLOC( 10) / 116/ * NFP( 10) / 98/ DATA STRIKE(116) / .2340137461E+01/ * HL(116) / .1500000000E+04/ * EQLAT(116) / .6280858783E+00/ * EQLON(116) / .2103805394E+01/ * SSLIP(116) / .1260000000E+00/ * DSLIP(116) / .0000000000E+00/ * DIP(116) / .1570796327E+01/ * DEPTH(116) / .0000000000E+00/ * WIDTH(116) / .2000000000E+04/ DATA STRIKE(117) / .2340137461E+01/ * HL(117) / .1500000000E+04/ * EQLAT(117) / .6280858783E+00/ * EQLON(117) / .2103805394E+01/ * SSLIP(117) / .1253000000E+00/ * DSLIP(117) / .0000000000E+00/ * DIP(117) / .1570796327E+01/ * DEPTH(117) / .2000000000E+04/ * WIDTH(117) / .2000000000E+04/ DATA STRIKE(118) / .2340137461E+01/ * HL(118) / .1500000000E+04/ * EQLAT(118) / .6280858783E+00/ * EQLON(118) / .2103805394E+01/ * SSLIP(118) / .1218000000E+00/ * DSLIP(118) / .0000000000E+00/ * DIP(118) / .1570796327E+01/ * DEPTH(118) / .4000000000E+04/ * WIDTH(118) / .2000000000E+04/ DATA STRIKE(119) / .2340137461E+01/ * HL(119) / .1500000000E+04/ * EQLAT(119) / .6280858783E+00/ * EQLON(119) / .2103805394E+01/ * SSLIP(119) / .1124000000E+00/ * DSLIP(119) / .0000000000E+00/ * DIP(119) / .1570796327E+01/ * DEPTH(119) / .6000000000E+04/ * WIDTH(119) / .2000000000E+04/ DATA STRIKE(120) / .2340137461E+01/ * HL(120) / .1500000000E+04/ * EQLAT(120) / .6280858783E+00/ * EQLON(120) / .2103805394E+01/ * SSLIP(120) / .9530000000E-01/ * DSLIP(120) / .0000000000E+00/ * DIP(120) / .1570796327E+01/ * DEPTH(120) / .8000000000E+04/ * WIDTH(120) / .2000000000E+04/ DATA STRIKE(121) / .2340137461E+01/ * HL(121) / .1500000000E+04/ * EQLAT(121) / .6280858783E+00/ * EQLON(121) / .2103805394E+01/ * SSLIP(121) / .6980000000E-01/ * DSLIP(121) / .0000000000E+00/ * DIP(121) / .1570796327E+01/ * DEPTH(121) / .1000000000E+05/ * WIDTH(121) / .2000000000E+04/ DATA STRIKE(122) / .2340137461E+01/ * HL(122) / .1500000000E+04/ * EQLAT(122) / .6280858783E+00/ * EQLON(122) / .2103805394E+01/ * SSLIP(122) / .3720000000E-01/ * DSLIP(122) / .0000000000E+00/ * DIP(122) / .1570796327E+01/ * DEPTH(122) / .1200000000E+05/ * WIDTH(122) / .2000000000E+04/ DATA STRIKE(123) / .2340137461E+01/ * HL(123) / .1500000000E+04/ * EQLAT(123) / .6277561856E+00/ * EQLON(123) / .2103388435E+01/ * SSLIP(123) / .2204000000E+00/ * DSLIP(123) / .0000000000E+00/ * DIP(123) / .1570796327E+01/ * DEPTH(123) / .0000000000E+00/ * WIDTH(123) / .2000000000E+04/ DATA STRIKE(124) / .2340137461E+01/ * HL(124) / .1500000000E+04/ * EQLAT(124) / .6277561856E+00/ * EQLON(124) / .2103388435E+01/ * SSLIP(124) / .2210000000E+00/ * DSLIP(124) / .0000000000E+00/ * DIP(124) / .1570796327E+01/ * DEPTH(124) / .2000000000E+04/ * WIDTH(124) / .2000000000E+04/ DATA STRIKE(125) / .2340137461E+01/ * HL(125) / .1500000000E+04/ * EQLAT(125) / .6277561856E+00/ * EQLON(125) / .2103388435E+01/ * SSLIP(125) / .2170000000E+00/ * DSLIP(125) / .0000000000E+00/ * DIP(125) / .1570796327E+01/ * DEPTH(125) / .4000000000E+04/ * WIDTH(125) / .2000000000E+04/ DATA STRIKE(126) / .2340137461E+01/ * HL(126) / .1500000000E+04/ * EQLAT(126) / .6277561856E+00/ * EQLON(126) / .2103388435E+01/ * SSLIP(126) / .2022000000E+00/ * DSLIP(126) / .0000000000E+00/ * DIP(126) / .1570796327E+01/ * DEPTH(126) / .6000000000E+04/ * WIDTH(126) / .2000000000E+04/ DATA STRIKE(127) / .2340137461E+01/ * HL(127) / .1500000000E+04/ * EQLAT(127) / .6277561856E+00/ * EQLON(127) / .2103388435E+01/ * SSLIP(127) / .1724000000E+00/ * DSLIP(127) / .0000000000E+00/ * DIP(127) / .1570796327E+01/ * DEPTH(127) / .8000000000E+04/ * WIDTH(127) / .2000000000E+04/ DATA STRIKE(128) / .2340137461E+01/ * HL(128) / .1500000000E+04/ * EQLAT(128) / .6277561856E+00/ * EQLON(128) / .2103388435E+01/ * SSLIP(128) / .1268000000E+00/ * DSLIP(128) / .0000000000E+00/ * DIP(128) / .1570796327E+01/ * DEPTH(128) / .1000000000E+05/ * WIDTH(128) / .2000000000E+04/ DATA STRIKE(129) / .2340137461E+01/ * HL(129) / .1500000000E+04/ * EQLAT(129) / .6277561856E+00/ * EQLON(129) / .2103388435E+01/ * SSLIP(129) / .6750000000E-01/ * DSLIP(129) / .0000000000E+00/ * DIP(129) / .1570796327E+01/ * DEPTH(129) / .1200000000E+05/ * WIDTH(129) / .2000000000E+04/ DATA STRIKE(130) / .2399653189E+01/ * HL(130) / .1500000000E+04/ * EQLAT(130) / .6274216060E+00/ * EQLON(130) / .2102985962E+01/ * SSLIP(130) / .2672000000E+00/ * DSLIP(130) / .0000000000E+00/ * DIP(130) / .1570796327E+01/ * DEPTH(130) / .0000000000E+00/ * WIDTH(130) / .2000000000E+04/ DATA STRIKE(131) / .2399653189E+01/ * HL(131) / .1500000000E+04/ * EQLAT(131) / .6274216060E+00/ * EQLON(131) / .2102985962E+01/ * SSLIP(131) / .2727000000E+00/ * DSLIP(131) / .0000000000E+00/ * DIP(131) / .1570796327E+01/ * DEPTH(131) / .2000000000E+04/ * WIDTH(131) / .2000000000E+04/ DATA STRIKE(132) / .2399653189E+01/ * HL(132) / .1500000000E+04/ * EQLAT(132) / .6274216060E+00/ * EQLON(132) / .2102985962E+01/ * SSLIP(132) / .2737000000E+00/ * DSLIP(132) / .0000000000E+00/ * DIP(132) / .1570796327E+01/ * DEPTH(132) / .4000000000E+04/ * WIDTH(132) / .2000000000E+04/ DATA STRIKE(133) / .2399653189E+01/ * HL(133) / .1500000000E+04/ * EQLAT(133) / .6274216060E+00/ * EQLON(133) / .2102985962E+01/ * SSLIP(133) / .2597000000E+00/ * DSLIP(133) / .0000000000E+00/ * DIP(133) / .1570796327E+01/ * DEPTH(133) / .6000000000E+04/ * WIDTH(133) / .2000000000E+04/ DATA STRIKE(134) / .2399653189E+01/ * HL(134) / .1500000000E+04/ * EQLAT(134) / .6274216060E+00/ * EQLON(134) / .2102985962E+01/ * SSLIP(134) / .2242000000E+00/ * DSLIP(134) / .0000000000E+00/ * DIP(134) / .1570796327E+01/ * DEPTH(134) / .8000000000E+04/ * WIDTH(134) / .2000000000E+04/ DATA STRIKE(135) / .2399653189E+01/ * HL(135) / .1500000000E+04/ * EQLAT(135) / .6274216060E+00/ * EQLON(135) / .2102985962E+01/ * SSLIP(135) / .1660000000E+00/ * DSLIP(135) / .0000000000E+00/ * DIP(135) / .1570796327E+01/ * DEPTH(135) / .1000000000E+05/ * WIDTH(135) / .2000000000E+04/ DATA STRIKE(136) / .2399653189E+01/ * HL(136) / .1500000000E+04/ * EQLAT(136) / .6274216060E+00/ * EQLON(136) / .2102985962E+01/ * SSLIP(136) / .8870000000E-01/ * DSLIP(136) / .0000000000E+00/ * DIP(136) / .1570796327E+01/ * DEPTH(136) / .1200000000E+05/ * WIDTH(136) / .2000000000E+04/ DATA STRIKE(137) / .2399653189E+01/ * HL(137) / .1500000000E+04/ * EQLAT(137) / .6270725402E+00/ * EQLON(137) / .2102593263E+01/ * SSLIP(137) / .2551000000E+00/ * DSLIP(137) / .0000000000E+00/ * DIP(137) / .1570796327E+01/ * DEPTH(137) / .0000000000E+00/ * WIDTH(137) / .2000000000E+04/ DATA STRIKE(138) / .2399653189E+01/ * HL(138) / .1500000000E+04/ * EQLAT(138) / .6270725402E+00/ * EQLON(138) / .2102593263E+01/ * SSLIP(138) / .2728000000E+00/ * DSLIP(138) / .0000000000E+00/ * DIP(138) / .1570796327E+01/ * DEPTH(138) / .2000000000E+04/ * WIDTH(138) / .2000000000E+04/ DATA STRIKE(139) / .2399653189E+01/ * HL(139) / .1500000000E+04/ * EQLAT(139) / .6270725402E+00/ * EQLON(139) / .2102593263E+01/ * SSLIP(139) / .2876000000E+00/ * DSLIP(139) / .0000000000E+00/ * DIP(139) / .1570796327E+01/ * DEPTH(139) / .4000000000E+04/ * WIDTH(139) / .2000000000E+04/ DATA STRIKE(140) / .2399653189E+01/ * HL(140) / .1500000000E+04/ * EQLAT(140) / .6270725402E+00/ * EQLON(140) / .2102593263E+01/ * SSLIP(140) / .2828000000E+00/ * DSLIP(140) / .0000000000E+00/ * DIP(140) / .1570796327E+01/ * DEPTH(140) / .6000000000E+04/ * WIDTH(140) / .2000000000E+04/ DATA STRIKE(141) / .2399653189E+01/ * HL(141) / .1500000000E+04/ * EQLAT(141) / .6270725402E+00/ * EQLON(141) / .2102593263E+01/ * SSLIP(141) / .2499000000E+00/ * DSLIP(141) / .0000000000E+00/ * DIP(141) / .1570796327E+01/ * DEPTH(141) / .8000000000E+04/ * WIDTH(141) / .2000000000E+04/ DATA STRIKE(142) / .2399653189E+01/ * HL(142) / .1500000000E+04/ * EQLAT(142) / .6270725402E+00/ * EQLON(142) / .2102593263E+01/ * SSLIP(142) / .1876000000E+00/ * DSLIP(142) / .0000000000E+00/ * DIP(142) / .1570796327E+01/ * DEPTH(142) / .1000000000E+05/ * WIDTH(142) / .2000000000E+04/ DATA STRIKE(143) / .2399653189E+01/ * HL(143) / .1500000000E+04/ * EQLAT(143) / .6270725402E+00/ * EQLON(143) / .2102593263E+01/ * SSLIP(143) / .1009000000E+00/ * DSLIP(143) / .0000000000E+00/ * DIP(143) / .1570796327E+01/ * DEPTH(143) / .1200000000E+05/ * WIDTH(143) / .2000000000E+04/ DATA STRIKE(144) / .2399653189E+01/ * HL(144) / .1500000000E+04/ * EQLAT(144) / .6267234743E+00/ * EQLON(144) / .2102200564E+01/ * SSLIP(144) / .1918000000E+00/ * DSLIP(144) / .0000000000E+00/ * DIP(144) / .1570796327E+01/ * DEPTH(144) / .0000000000E+00/ * WIDTH(144) / .2000000000E+04/ DATA STRIKE(145) / .2399653189E+01/ * HL(145) / .1500000000E+04/ * EQLAT(145) / .6267234743E+00/ * EQLON(145) / .2102200564E+01/ * SSLIP(145) / .2339000000E+00/ * DSLIP(145) / .0000000000E+00/ * DIP(145) / .1570796327E+01/ * DEPTH(145) / .2000000000E+04/ * WIDTH(145) / .2000000000E+04/ DATA STRIKE(146) / .2399653189E+01/ * HL(146) / .1500000000E+04/ * EQLAT(146) / .6267234743E+00/ * EQLON(146) / .2102200564E+01/ * SSLIP(146) / .2721000000E+00/ * DSLIP(146) / .0000000000E+00/ * DIP(146) / .1570796327E+01/ * DEPTH(146) / .4000000000E+04/ * WIDTH(146) / .2000000000E+04/ DATA STRIKE(147) / .2399653189E+01/ * HL(147) / .1500000000E+04/ * EQLAT(147) / .6267234743E+00/ * EQLON(147) / .2102200564E+01/ * SSLIP(147) / .2837000000E+00/ * DSLIP(147) / .0000000000E+00/ * DIP(147) / .1570796327E+01/ * DEPTH(147) / .6000000000E+04/ * WIDTH(147) / .2000000000E+04/ DATA STRIKE(148) / .2399653189E+01/ * HL(148) / .1500000000E+04/ * EQLAT(148) / .6267234743E+00/ * EQLON(148) / .2102200564E+01/ * SSLIP(148) / .2591000000E+00/ * DSLIP(148) / .0000000000E+00/ * DIP(148) / .1570796327E+01/ * DEPTH(148) / .8000000000E+04/ * WIDTH(148) / .2000000000E+04/ DATA STRIKE(149) / .2399653189E+01/ * HL(149) / .1500000000E+04/ * EQLAT(149) / .6267234743E+00/ * EQLON(149) / .2102200564E+01/ * SSLIP(149) / .1981000000E+00/ * DSLIP(149) / .0000000000E+00/ * DIP(149) / .1570796327E+01/ * DEPTH(149) / .1000000000E+05/ * WIDTH(149) / .2000000000E+04/ DATA STRIKE(150) / .2399653189E+01/ * HL(150) / .1500000000E+04/ * EQLAT(150) / .6267234743E+00/ * EQLON(150) / .2102200564E+01/ * SSLIP(150) / .1075000000E+00/ * DSLIP(150) / .0000000000E+00/ * DIP(150) / .1570796327E+01/ * DEPTH(150) / .1200000000E+05/ * WIDTH(150) / .2000000000E+04/ DATA STRIKE(151) / .2399653189E+01/ * HL(151) / .1500000000E+04/ * EQLAT(151) / .6263744085E+00/ * EQLON(151) / .2101807865E+01/ * SSLIP(151) / .1839000000E+00/ * DSLIP(151) / .0000000000E+00/ * DIP(151) / .1570796327E+01/ * DEPTH(151) / .0000000000E+00/ * WIDTH(151) / .2000000000E+04/ DATA STRIKE(152) / .2399653189E+01/ * HL(152) / .1500000000E+04/ * EQLAT(152) / .6263744085E+00/ * EQLON(152) / .2101807865E+01/ * SSLIP(152) / .2279000000E+00/ * DSLIP(152) / .0000000000E+00/ * DIP(152) / .1570796327E+01/ * DEPTH(152) / .2000000000E+04/ * WIDTH(152) / .2000000000E+04/ DATA STRIKE(153) / .2399653189E+01/ * HL(153) / .1500000000E+04/ * EQLAT(153) / .6263744085E+00/ * EQLON(153) / .2101807865E+01/ * SSLIP(153) / .2740000000E+00/ * DSLIP(153) / .0000000000E+00/ * DIP(153) / .1570796327E+01/ * DEPTH(153) / .4000000000E+04/ * WIDTH(153) / .2000000000E+04/ DATA STRIKE(154) / .2399653189E+01/ * HL(154) / .1500000000E+04/ * EQLAT(154) / .6263744085E+00/ * EQLON(154) / .2101807865E+01/ * SSLIP(154) / .2935000000E+00/ * DSLIP(154) / .0000000000E+00/ * DIP(154) / .1570796327E+01/ * DEPTH(154) / .6000000000E+04/ * WIDTH(154) / .2000000000E+04/ DATA STRIKE(155) / .2399653189E+01/ * HL(155) / .1500000000E+04/ * EQLAT(155) / .6263744085E+00/ * EQLON(155) / .2101807865E+01/ * SSLIP(155) / .2729000000E+00/ * DSLIP(155) / .0000000000E+00/ * DIP(155) / .1570796327E+01/ * DEPTH(155) / .8000000000E+04/ * WIDTH(155) / .2000000000E+04/ DATA STRIKE(156) / .2399653189E+01/ * HL(156) / .1500000000E+04/ * EQLAT(156) / .6263744085E+00/ * EQLON(156) / .2101807865E+01/ * SSLIP(156) / .2108000000E+00/ * DSLIP(156) / .0000000000E+00/ * DIP(156) / .1570796327E+01/ * DEPTH(156) / .1000000000E+05/ * WIDTH(156) / .2000000000E+04/ DATA STRIKE(157) / .2399653189E+01/ * HL(157) / .1500000000E+04/ * EQLAT(157) / .6263744085E+00/ * EQLON(157) / .2101807865E+01/ * SSLIP(157) / .1150000000E+00/ * DSLIP(157) / .0000000000E+00/ * DIP(157) / .1570796327E+01/ * DEPTH(157) / .1200000000E+05/ * WIDTH(157) / .2000000000E+04/ DATA STRIKE(158) / .2399653189E+01/ * HL(158) / .1500000000E+04/ * EQLAT(158) / .6260253426E+00/ * EQLON(158) / .2101420053E+01/ * SSLIP(158) / .1918000000E+00/ * DSLIP(158) / .0000000000E+00/ * DIP(158) / .1570796327E+01/ * DEPTH(158) / .0000000000E+00/ * WIDTH(158) / .2000000000E+04/ DATA STRIKE(159) / .2399653189E+01/ * HL(159) / .1500000000E+04/ * EQLAT(159) / .6260253426E+00/ * EQLON(159) / .2101420053E+01/ * SSLIP(159) / .2510000000E+00/ * DSLIP(159) / .0000000000E+00/ * DIP(159) / .1570796327E+01/ * DEPTH(159) / .2000000000E+04/ * WIDTH(159) / .2000000000E+04/ DATA STRIKE(160) / .2399653189E+01/ * HL(160) / .1500000000E+04/ * EQLAT(160) / .6260253426E+00/ * EQLON(160) / .2101420053E+01/ * SSLIP(160) / .3070000000E+00/ * DSLIP(160) / .0000000000E+00/ * DIP(160) / .1570796327E+01/ * DEPTH(160) / .4000000000E+04/ * WIDTH(160) / .2000000000E+04/ DATA STRIKE(161) / .2399653189E+01/ * HL(161) / .1500000000E+04/ * EQLAT(161) / .6260253426E+00/ * EQLON(161) / .2101420053E+01/ * SSLIP(161) / .3294000000E+00/ * DSLIP(161) / .0000000000E+00/ * DIP(161) / .1570796327E+01/ * DEPTH(161) / .6000000000E+04/ * WIDTH(161) / .2000000000E+04/ DATA STRIKE(162) / .2399653189E+01/ * HL(162) / .1500000000E+04/ * EQLAT(162) / .6260253426E+00/ * EQLON(162) / .2101420053E+01/ * SSLIP(162) / .3058000000E+00/ * DSLIP(162) / .0000000000E+00/ * DIP(162) / .1570796327E+01/ * DEPTH(162) / .8000000000E+04/ * WIDTH(162) / .2000000000E+04/ DATA STRIKE(163) / .2399653189E+01/ * HL(163) / .1500000000E+04/ * EQLAT(163) / .6260253426E+00/ * EQLON(163) / .2101420053E+01/ * SSLIP(163) / .2358000000E+00/ * DSLIP(163) / .0000000000E+00/ * DIP(163) / .1570796327E+01/ * DEPTH(163) / .1000000000E+05/ * WIDTH(163) / .2000000000E+04/ DATA STRIKE(164) / .2399653189E+01/ * HL(164) / .1500000000E+04/ * EQLAT(164) / .6260253426E+00/ * EQLON(164) / .2101420053E+01/ * SSLIP(164) / .1285000000E+00/ * DSLIP(164) / .0000000000E+00/ * DIP(164) / .1570796327E+01/ * DEPTH(164) / .1200000000E+05/ * WIDTH(164) / .2000000000E+04/ DATA STRIKE(165) / .2399653189E+01/ * HL(165) / .1500000000E+04/ * EQLAT(165) / .6256762768E+00/ * EQLON(165) / .2101027354E+01/ * SSLIP(165) / .2688000000E+00/ * DSLIP(165) / .0000000000E+00/ * DIP(165) / .1570796327E+01/ * DEPTH(165) / .0000000000E+00/ * WIDTH(165) / .2000000000E+04/ DATA STRIKE(166) / .2399653189E+01/ * HL(166) / .1500000000E+04/ * EQLAT(166) / .6256762768E+00/ * EQLON(166) / .2101027354E+01/ * SSLIP(166) / .3206000000E+00/ * DSLIP(166) / .0000000000E+00/ * DIP(166) / .1570796327E+01/ * DEPTH(166) / .2000000000E+04/ * WIDTH(166) / .2000000000E+04/ DATA STRIKE(167) / .2399653189E+01/ * HL(167) / .1500000000E+04/ * EQLAT(167) / .6256762768E+00/ * EQLON(167) / .2101027354E+01/ * SSLIP(167) / .3713000000E+00/ * DSLIP(167) / .0000000000E+00/ * DIP(167) / .1570796327E+01/ * DEPTH(167) / .4000000000E+04/ * WIDTH(167) / .2000000000E+04/ DATA STRIKE(168) / .2399653189E+01/ * HL(168) / .1500000000E+04/ * EQLAT(168) / .6256762768E+00/ * EQLON(168) / .2101027354E+01/ * SSLIP(168) / .3872000000E+00/ * DSLIP(168) / .0000000000E+00/ * DIP(168) / .1570796327E+01/ * DEPTH(168) / .6000000000E+04/ * WIDTH(168) / .2000000000E+04/ DATA STRIKE(169) / .2399653189E+01/ * HL(169) / .1500000000E+04/ * EQLAT(169) / .6256762768E+00/ * EQLON(169) / .2101027354E+01/ * SSLIP(169) / .3538000000E+00/ * DSLIP(169) / .0000000000E+00/ * DIP(169) / .1570796327E+01/ * DEPTH(169) / .8000000000E+04/ * WIDTH(169) / .2000000000E+04/ DATA STRIKE(170) / .2399653189E+01/ * HL(170) / .1500000000E+04/ * EQLAT(170) / .6256762768E+00/ * EQLON(170) / .2101027354E+01/ * SSLIP(170) / .2705000000E+00/ * DSLIP(170) / .0000000000E+00/ * DIP(170) / .1570796327E+01/ * DEPTH(170) / .1000000000E+05/ * WIDTH(170) / .2000000000E+04/ DATA STRIKE(171) / .2399653189E+01/ * HL(171) / .1500000000E+04/ * EQLAT(171) / .6256762768E+00/ * EQLON(171) / .2101027354E+01/ * SSLIP(171) / .1468000000E+00/ * DSLIP(171) / .0000000000E+00/ * DIP(171) / .1570796327E+01/ * DEPTH(171) / .1200000000E+05/ * WIDTH(171) / .2000000000E+04/ DATA STRIKE(172) / .2399653189E+01/ * HL(172) / .1500000000E+04/ * EQLAT(172) / .6253320978E+00/ * EQLON(172) / .2100639541E+01/ * SSLIP(172) / .1956000000E+00/ * DSLIP(172) / .0000000000E+00/ * DIP(172) / .1570796327E+01/ * DEPTH(172) / .0000000000E+00/ * WIDTH(172) / .2000000000E+04/ DATA STRIKE(173) / .2399653189E+01/ * HL(173) / .1500000000E+04/ * EQLAT(173) / .6253320978E+00/ * EQLON(173) / .2100639541E+01/ * SSLIP(173) / .2962000000E+00/ * DSLIP(173) / .0000000000E+00/ * DIP(173) / .1570796327E+01/ * DEPTH(173) / .2000000000E+04/ * WIDTH(173) / .2000000000E+04/ DATA STRIKE(174) / .2399653189E+01/ * HL(174) / .1500000000E+04/ * EQLAT(174) / .6253320978E+00/ * EQLON(174) / .2100639541E+01/ * SSLIP(174) / .3819000000E+00/ * DSLIP(174) / .0000000000E+00/ * DIP(174) / .1570796327E+01/ * DEPTH(174) / .4000000000E+04/ * WIDTH(174) / .2000000000E+04/ DATA STRIKE(175) / .2399653189E+01/ * HL(175) / .1500000000E+04/ * EQLAT(175) / .6253320978E+00/ * EQLON(175) / .2100639541E+01/ * SSLIP(175) / .4147000000E+00/ * DSLIP(175) / .0000000000E+00/ * DIP(175) / .1570796327E+01/ * DEPTH(175) / .6000000000E+04/ * WIDTH(175) / .2000000000E+04/ DATA STRIKE(176) / .2399653189E+01/ * HL(176) / .1500000000E+04/ * EQLAT(176) / .6253320978E+00/ * EQLON(176) / .2100639541E+01/ * SSLIP(176) / .3848000000E+00/ * DSLIP(176) / .0000000000E+00/ * DIP(176) / .1570796327E+01/ * DEPTH(176) / .8000000000E+04/ * WIDTH(176) / .2000000000E+04/ DATA STRIKE(177) / .2399653189E+01/ * HL(177) / .1500000000E+04/ * EQLAT(177) / .6253320978E+00/ * EQLON(177) / .2100639541E+01/ * SSLIP(177) / .2958000000E+00/ * DSLIP(177) / .0000000000E+00/ * DIP(177) / .1570796327E+01/ * DEPTH(177) / .1000000000E+05/ * WIDTH(177) / .2000000000E+04/ DATA STRIKE(178) / .2399653189E+01/ * HL(178) / .1500000000E+04/ * EQLAT(178) / .6253320978E+00/ * EQLON(178) / .2100639541E+01/ * SSLIP(178) / .1609000000E+00/ * DSLIP(178) / .0000000000E+00/ * DIP(178) / .1570796327E+01/ * DEPTH(178) / .1200000000E+05/ * WIDTH(178) / .2000000000E+04/ DATA STRIKE(179) / .2685538120E+01/ * HL(179) / .1500000000E+04/ * EQLAT(179) / .6249442857E+00/ * EQLON(179) / .2100314736E+01/ * SSLIP(179) / .2415000000E+00/ * DSLIP(179) / .0000000000E+00/ * DIP(179) / .1570796327E+01/ * DEPTH(179) / .0000000000E+00/ * WIDTH(179) / .2000000000E+04/ DATA STRIKE(180) / .2685538120E+01/ * HL(180) / .1500000000E+04/ * EQLAT(180) / .6249442857E+00/ * EQLON(180) / .2100314736E+01/ * SSLIP(180) / .3093000000E+00/ * DSLIP(180) / .0000000000E+00/ * DIP(180) / .1570796327E+01/ * DEPTH(180) / .2000000000E+04/ * WIDTH(180) / .2000000000E+04/ DATA STRIKE(181) / .2685538120E+01/ * HL(181) / .1500000000E+04/ * EQLAT(181) / .6249442857E+00/ * EQLON(181) / .2100314736E+01/ * SSLIP(181) / .3836000000E+00/ * DSLIP(181) / .0000000000E+00/ * DIP(181) / .1570796327E+01/ * DEPTH(181) / .4000000000E+04/ * WIDTH(181) / .2000000000E+04/ DATA STRIKE(182) / .2685538120E+01/ * HL(182) / .1500000000E+04/ * EQLAT(182) / .6249442857E+00/ * EQLON(182) / .2100314736E+01/ * SSLIP(182) / .4177000000E+00/ * DSLIP(182) / .0000000000E+00/ * DIP(182) / .1570796327E+01/ * DEPTH(182) / .6000000000E+04/ * WIDTH(182) / .2000000000E+04/ DATA STRIKE(183) / .2685538120E+01/ * HL(183) / .1500000000E+04/ * EQLAT(183) / .6249442857E+00/ * EQLON(183) / .2100314736E+01/ * SSLIP(183) / .3908000000E+00/ * DSLIP(183) / .0000000000E+00/ * DIP(183) / .1570796327E+01/ * DEPTH(183) / .8000000000E+04/ * WIDTH(183) / .2000000000E+04/ DATA STRIKE(184) / .2685538120E+01/ * HL(184) / .1500000000E+04/ * EQLAT(184) / .6249442857E+00/ * EQLON(184) / .2100314736E+01/ * SSLIP(184) / .3024000000E+00/ * DSLIP(184) / .0000000000E+00/ * DIP(184) / .1570796327E+01/ * DEPTH(184) / .1000000000E+05/ * WIDTH(184) / .2000000000E+04/ DATA STRIKE(185) / .2685538120E+01/ * HL(185) / .1500000000E+04/ * EQLAT(185) / .6249442857E+00/ * EQLON(185) / .2100314736E+01/ * SSLIP(185) / .1651000000E+00/ * DSLIP(185) / .0000000000E+00/ * DIP(185) / .1570796327E+01/ * DEPTH(185) / .1200000000E+05/ * WIDTH(185) / .2000000000E+04/ DATA STRIKE(186) / .2685538120E+01/ * HL(186) / .1500000000E+04/ * EQLAT(186) / .6245224396E+00/ * EQLON(186) / .2100062536E+01/ * SSLIP(186) / .2458000000E+00/ * DSLIP(186) / .0000000000E+00/ * DIP(186) / .1570796327E+01/ * DEPTH(186) / .0000000000E+00/ * WIDTH(186) / .2000000000E+04/ DATA STRIKE(187) / .2685538120E+01/ * HL(187) / .1500000000E+04/ * EQLAT(187) / .6245224396E+00/ * EQLON(187) / .2100062536E+01/ * SSLIP(187) / .3065000000E+00/ * DSLIP(187) / .0000000000E+00/ * DIP(187) / .1570796327E+01/ * DEPTH(187) / .2000000000E+04/ * WIDTH(187) / .2000000000E+04/ DATA STRIKE(188) / .2685538120E+01/ * HL(188) / .1500000000E+04/ * EQLAT(188) / .6245224396E+00/ * EQLON(188) / .2100062536E+01/ * SSLIP(188) / .3758000000E+00/ * DSLIP(188) / .0000000000E+00/ * DIP(188) / .1570796327E+01/ * DEPTH(188) / .4000000000E+04/ * WIDTH(188) / .2000000000E+04/ DATA STRIKE(189) / .2685538120E+01/ * HL(189) / .1500000000E+04/ * EQLAT(189) / .6245224396E+00/ * EQLON(189) / .2100062536E+01/ * SSLIP(189) / .4081000000E+00/ * DSLIP(189) / .0000000000E+00/ * DIP(189) / .1570796327E+01/ * DEPTH(189) / .6000000000E+04/ * WIDTH(189) / .2000000000E+04/ DATA STRIKE(190) / .2685538120E+01/ * HL(190) / .1500000000E+04/ * EQLAT(190) / .6245224396E+00/ * EQLON(190) / .2100062536E+01/ * SSLIP(190) / .3819000000E+00/ * DSLIP(190) / .0000000000E+00/ * DIP(190) / .1570796327E+01/ * DEPTH(190) / .8000000000E+04/ * WIDTH(190) / .2000000000E+04/ DATA STRIKE(191) / .2685538120E+01/ * HL(191) / .1500000000E+04/ * EQLAT(191) / .6245224396E+00/ * EQLON(191) / .2100062536E+01/ * SSLIP(191) / .2958000000E+00/ * DSLIP(191) / .0000000000E+00/ * DIP(191) / .1570796327E+01/ * DEPTH(191) / .1000000000E+05/ * WIDTH(191) / .2000000000E+04/ DATA STRIKE(192) / .2685538120E+01/ * HL(192) / .1500000000E+04/ * EQLAT(192) / .6245224396E+00/ * EQLON(192) / .2100062536E+01/ * SSLIP(192) / .1616000000E+00/ * DSLIP(192) / .0000000000E+00/ * DIP(192) / .1570796327E+01/ * DEPTH(192) / .1200000000E+05/ * WIDTH(192) / .2000000000E+04/ DATA STRIKE(193) / .2513099590E+01/ * HL(193) / .1500000000E+04/ * EQLAT(193) / .6241152543E+00/ * EQLON(193) / .2099761990E+01/ * SSLIP(193) / .2764000000E+00/ * DSLIP(193) / .0000000000E+00/ * DIP(193) / .1570796327E+01/ * DEPTH(193) / .0000000000E+00/ * WIDTH(193) / .2000000000E+04/ DATA STRIKE(194) / .2513099590E+01/ * HL(194) / .1500000000E+04/ * EQLAT(194) / .6241152543E+00/ * EQLON(194) / .2099761990E+01/ * SSLIP(194) / .3299000000E+00/ * DSLIP(194) / .0000000000E+00/ * DIP(194) / .1570796327E+01/ * DEPTH(194) / .2000000000E+04/ * WIDTH(194) / .2000000000E+04/ DATA STRIKE(195) / .2513099590E+01/ * HL(195) / .1500000000E+04/ * EQLAT(195) / .6241152543E+00/ * EQLON(195) / .2099761990E+01/ * SSLIP(195) / .3814000000E+00/ * DSLIP(195) / .0000000000E+00/ * DIP(195) / .1570796327E+01/ * DEPTH(195) / .4000000000E+04/ * WIDTH(195) / .2000000000E+04/ DATA STRIKE(196) / .2513099590E+01/ * HL(196) / .1500000000E+04/ * EQLAT(196) / .6241152543E+00/ * EQLON(196) / .2099761990E+01/ * SSLIP(196) / .3973000000E+00/ * DSLIP(196) / .0000000000E+00/ * DIP(196) / .1570796327E+01/ * DEPTH(196) / .6000000000E+04/ * WIDTH(196) / .2000000000E+04/ DATA STRIKE(197) / .2513099590E+01/ * HL(197) / .1500000000E+04/ * EQLAT(197) / .6241152543E+00/ * EQLON(197) / .2099761990E+01/ * SSLIP(197) / .3627000000E+00/ * DSLIP(197) / .0000000000E+00/ * DIP(197) / .1570796327E+01/ * DEPTH(197) / .8000000000E+04/ * WIDTH(197) / .2000000000E+04/ DATA STRIKE(198) / .2513099590E+01/ * HL(198) / .1500000000E+04/ * EQLAT(198) / .6241152543E+00/ * EQLON(198) / .2099761990E+01/ * SSLIP(198) / .2771000000E+00/ * DSLIP(198) / .0000000000E+00/ * DIP(198) / .1570796327E+01/ * DEPTH(198) / .1000000000E+05/ * WIDTH(198) / .2000000000E+04/ DATA STRIKE(199) / .2513099590E+01/ * HL(199) / .1500000000E+04/ * EQLAT(199) / .6241152543E+00/ * EQLON(199) / .2099761990E+01/ * SSLIP(199) / .1504000000E+00/ * DSLIP(199) / .0000000000E+00/ * DIP(199) / .1570796327E+01/ * DEPTH(199) / .1200000000E+05/ * WIDTH(199) / .2000000000E+04/ DATA STRIKE(200) / .2513099590E+01/ * HL(200) / .1500000000E+04/ * EQLAT(200) / .6237370414E+00/ * EQLON(200) / .2099427410E+01/ * SSLIP(200) / .1822000000E+00/ * DSLIP(200) / .0000000000E+00/ * DIP(200) / .1570796327E+01/ * DEPTH(200) / .0000000000E+00/ * WIDTH(200) / .2000000000E+04/ DATA STRIKE(201) / .2513099590E+01/ * HL(201) / .1500000000E+04/ * EQLAT(201) / .6237370414E+00/ * EQLON(201) / .2099427410E+01/ * SSLIP(201) / .2694000000E+00/ * DSLIP(201) / .0000000000E+00/ * DIP(201) / .1570796327E+01/ * DEPTH(201) / .2000000000E+04/ * WIDTH(201) / .2000000000E+04/ DATA STRIKE(202) / .2513099590E+01/ * HL(202) / .1500000000E+04/ * EQLAT(202) / .6237370414E+00/ * EQLON(202) / .2099427410E+01/ * SSLIP(202) / .3241000000E+00/ * DSLIP(202) / .0000000000E+00/ * DIP(202) / .1570796327E+01/ * DEPTH(202) / .4000000000E+04/ * WIDTH(202) / .2000000000E+04/ DATA STRIKE(203) / .2513099590E+01/ * HL(203) / .1500000000E+04/ * EQLAT(203) / .6237370414E+00/ * EQLON(203) / .2099427410E+01/ * SSLIP(203) / .3345000000E+00/ * DSLIP(203) / .0000000000E+00/ * DIP(203) / .1570796327E+01/ * DEPTH(203) / .6000000000E+04/ * WIDTH(203) / .2000000000E+04/ DATA STRIKE(204) / .2513099590E+01/ * HL(204) / .1500000000E+04/ * EQLAT(204) / .6237370414E+00/ * EQLON(204) / .2099427410E+01/ * SSLIP(204) / .3007000000E+00/ * DSLIP(204) / .0000000000E+00/ * DIP(204) / .1570796327E+01/ * DEPTH(204) / .8000000000E+04/ * WIDTH(204) / .2000000000E+04/ DATA STRIKE(205) / .2513099590E+01/ * HL(205) / .1500000000E+04/ * EQLAT(205) / .6237370414E+00/ * EQLON(205) / .2099427410E+01/ * SSLIP(205) / .2270000000E+00/ * DSLIP(205) / .0000000000E+00/ * DIP(205) / .1570796327E+01/ * DEPTH(205) / .1000000000E+05/ * WIDTH(205) / .2000000000E+04/ DATA STRIKE(206) / .2513099590E+01/ * HL(206) / .1500000000E+04/ * EQLAT(206) / .6237370414E+00/ * EQLON(206) / .2099427410E+01/ * SSLIP(206) / .1224000000E+00/ * DSLIP(206) / .0000000000E+00/ * DIP(206) / .1570796327E+01/ * DEPTH(206) / .1200000000E+05/ * WIDTH(206) / .2000000000E+04/ DATA STRIKE(207) / .2513099590E+01/ * HL(207) / .1500000000E+04/ * EQLAT(207) / .6233541162E+00/ * EQLON(207) / .2099088118E+01/ * SSLIP(207) / .1942000000E+00/ * DSLIP(207) / .0000000000E+00/ * DIP(207) / .1570796327E+01/ * DEPTH(207) / .0000000000E+00/ * WIDTH(207) / .2000000000E+04/ DATA STRIKE(208) / .2513099590E+01/ * HL(208) / .1500000000E+04/ * EQLAT(208) / .6233541162E+00/ * EQLON(208) / .2099088118E+01/ * SSLIP(208) / .2079000000E+00/ * DSLIP(208) / .0000000000E+00/ * DIP(208) / .1570796327E+01/ * DEPTH(208) / .2000000000E+04/ * WIDTH(208) / .2000000000E+04/ DATA STRIKE(209) / .2513099590E+01/ * HL(209) / .1500000000E+04/ * EQLAT(209) / .6233541162E+00/ * EQLON(209) / .2099088118E+01/ * SSLIP(209) / .2162000000E+00/ * DSLIP(209) / .0000000000E+00/ * DIP(209) / .1570796327E+01/ * DEPTH(209) / .4000000000E+04/ * WIDTH(209) / .2000000000E+04/ DATA STRIKE(210) / .2513099590E+01/ * HL(210) / .1500000000E+04/ * EQLAT(210) / .6233541162E+00/ * EQLON(210) / .2099088118E+01/ * SSLIP(210) / .2087000000E+00/ * DSLIP(210) / .0000000000E+00/ * DIP(210) / .1570796327E+01/ * DEPTH(210) / .6000000000E+04/ * WIDTH(210) / .2000000000E+04/ DATA STRIKE(211) / .2513099590E+01/ * HL(211) / .1500000000E+04/ * EQLAT(211) / .6233541162E+00/ * EQLON(211) / .2099088118E+01/ * SSLIP(211) / .1813000000E+00/ * DSLIP(211) / .0000000000E+00/ * DIP(211) / .1570796327E+01/ * DEPTH(211) / .8000000000E+04/ * WIDTH(211) / .2000000000E+04/ DATA STRIKE(212) / .2513099590E+01/ * HL(212) / .1500000000E+04/ * EQLAT(212) / .6233541162E+00/ * EQLON(212) / .2099088118E+01/ * SSLIP(212) / .1345000000E+00/ * DSLIP(212) / .0000000000E+00/ * DIP(212) / .1570796327E+01/ * DEPTH(212) / .1000000000E+05/ * WIDTH(212) / .2000000000E+04/ DATA STRIKE(213) / .2513099590E+01/ * HL(213) / .1500000000E+04/ * EQLAT(213) / .6233541162E+00/ * EQLON(213) / .2099088118E+01/ * SSLIP(213) / .7190000000E-01/ * DSLIP(213) / .0000000000E+00/ * DIP(213) / .1570796327E+01/ * DEPTH(213) / .1200000000E+05/ * WIDTH(213) / .2000000000E+04/ DATA EQLATR( 11) / .6493158888E+00/ * EQLONR( 11) / .2122461044E+01/ * EQRAD( 11) / .2000000000E+06/ * ITEQK( 11) / 65972160/ * NLOC( 11) / 214/ * NFP( 11) / 1/ DATA STRIKE(214) / .2617993878E+01/ * HL(214) / .8450000000E+04/ * EQLAT(214) / .6493158888E+00/ * EQLON(214) / .2122461044E+01/ * SSLIP(214) / .7490000000E+00/ * DSLIP(214) /-.1590000000E+00/ * DIP(214) / .1483529864E+01/ * DEPTH(214) / .5080000000E+04/ * WIDTH(214) / .1310000000E+05/ DATA EQLATR( 12) / .6464456949E+00/ * EQLONR( 12) / .2120584815E+01/ * EQRAD( 12) / .2000000000E+06/ * ITEQK( 12) / 63491040/ * NLOC( 12) / 215/ * NFP( 12) / 1/ DATA STRIKE(215) / .2722713633E+01/ * HL(215) / .1000000000E+05/ * EQLAT(215) / .6464456949E+00/ * EQLON(215) / .2120584815E+01/ * SSLIP(215) / .2360000000E+00/ * DSLIP(215) /-.1040000000E+00/ * DIP(215) / .1570796327E+01/ * DEPTH(215) / .4000000000E+04/ * WIDTH(215) / .8000000000E+04/ DATA EQLATR( 13) / .6471729736E+00/ * EQLONR( 13) / .2126974640E+01/ * EQRAD( 13) / .2000000000E+06/ * ITEQK( 13) / 68856480/ * NLOC( 13) / 216/ * NFP( 13) / 1/ DATA STRIKE(216) / .5515240436E+01/ * HL(216) / .1850000000E+05/ * EQLAT(216) / .6471729736E+00/ * EQLON(216) / .2127231552E+01/ * SSLIP(216) / .1660000000E+01/ * DSLIP(216) /-.1190000000E+01/ * DIP(216) / .1221730476E+01/ * DEPTH(216) / .5000000000E+04/ * WIDTH(216) / .1330000000E+05/ DATA EQLATR( 14) / .7046185660E+00/ * EQLONR( 14) / .2171199363E+01/ * EQRAD( 14) / .2000000000E+06/ * ITEQK( 14) / 70181280/ * NLOC( 14) / 217/ * NFP( 14) / 1/ DATA STRIKE(217) / .2967059728E+01/ * HL(217) / .1075000000E+05/ * EQLAT(217) / .7046185660E+00/ * EQLON(217) / .2171199363E+01/ * SSLIP(217) / .1900000000E+00/ * DSLIP(217) /-.2690000000E+01/ * DIP(217) / .2094395102E+00/ * DEPTH(217) / .6300000000E+04/ * WIDTH(217) / .1600000000E+05/ DATA EQLATR( 15) / .5972516700E+00/ * EQLONR( 15) / .2032086848E+01/ * EQRAD( 15) / .5000000000E+06/ * ITEQK( 15) / 70273440/ * NLOC( 15) / 218/ * NFP( 15) / 26/ DATA STRIKE(218) / .2653598595E+01/ * HL(218) / .2482000000E+04/ * EQLAT(218) / .6044850126E+00/ * EQLON(218) / .2036134965E+01/ * SSLIP(218) / .2000000000E+01/ * DSLIP(218) / .0000000000E+00/ * DIP(218) / .1570796327E+01/ * DEPTH(218) / .0000000000E+00/ * WIDTH(218) / .1000000000E+05/ DATA STRIKE(219) / .2215171887E+01/ * HL(219) / .4336000000E+04/ * EQLAT(219) / .6037336483E+00/ * EQLON(219) / .2035252701E+01/ * SSLIP(219) / .2700000000E+01/ * DSLIP(219) / .0000000000E+00/ * DIP(219) / .1570796327E+01/ * DEPTH(219) / .0000000000E+00/ * WIDTH(219) / .1000000000E+05/ DATA STRIKE(220) / .2572615317E+01/ * HL(220) / .1720000000E+04/ * EQLAT(220) / .6030985230E+00/ * EQLON(220) / .2034413896E+01/ * SSLIP(220) / .6400000000E+01/ * DSLIP(220) / .0000000000E+00/ * DIP(220) / .1570796327E+01/ * DEPTH(220) / .0000000000E+00/ * WIDTH(220) / .1000000000E+05/ DATA STRIKE(221) / .2445380815E+01/ * HL(221) / .1444000000E+04/ * EQLAT(221) / .6026960501E+00/ * EQLON(221) / .2034064830E+01/ * SSLIP(221) / .5800000000E+01/ * DSLIP(221) / .0000000000E+00/ * DIP(221) / .1570796327E+01/ * DEPTH(221) / .0000000000E+00/ * WIDTH(221) / .1000000000E+05/ DATA STRIKE(222) / .2469117293E+01/ * HL(222) / .1340000000E+04/ * EQLAT(222) / .6023567581E+00/ * EQLON(222) / .2033725538E+01/ * SSLIP(222) / .2550000000E+01/ * DSLIP(222) / .0000000000E+00/ * DIP(222) / .1570796327E+01/ * DEPTH(222) / .0000000000E+00/ * WIDTH(222) / .1000000000E+05/ DATA STRIKE(223) / .2465801167E+01/ * HL(223) / .2256000000E+04/ * EQLAT(223) / .6019155389E+00/ * EQLON(223) / .2033303692E+01/ * SSLIP(223) / .4800000000E+01/ * DSLIP(223) / .0000000000E+00/ * DIP(223) / .1570796327E+01/ * DEPTH(223) / .0000000000E+00/ * WIDTH(223) / .1000000000E+05/ DATA STRIKE(224) / .2702293281E+01/ * HL(224) / .2185000000E+04/ * EQLAT(224) / .6013338206E+00/ * EQLON(224) / .2032857760E+01/ * SSLIP(224) / .3600000000E+01/ * DSLIP(224) / .0000000000E+00/ * DIP(224) / .1570796327E+01/ * DEPTH(224) / .0000000000E+00/ * WIDTH(224) / .1000000000E+05/ DATA STRIKE(225) / .3135484001E+01/ * HL(225) / .1349000000E+04/ * EQLAT(225) / .6023131249E+00/ * EQLON(225) / .2033885584E+01/ * SSLIP(225) / .3750000000E+01/ * DSLIP(225) / .0000000000E+00/ * DIP(225) / .1570796327E+01/ * DEPTH(225) / .0000000000E+00/ * WIDTH(225) / .1000000000E+05/ DATA STRIKE(226) / .3136182133E+01/ * HL(226) / .1680000000E+04/ * EQLAT(226) / .6019301996E+00/ * EQLON(226) / .2033565491E+01/ * SSLIP(226) / .1300000000E+01/ * DSLIP(226) / .0000000000E+00/ * DIP(226) / .1570796327E+01/ * DEPTH(226) / .0000000000E+00/ * WIDTH(226) / .1000000000E+05/ DATA STRIKE(227) / .3294483496E+01/ * HL(227) / .2290000000E+04/ * EQLAT(227) / .6006695483E+00/ * EQLON(227) / .2032746233E+01/ * SSLIP(227) / .3450000000E+01/ * DSLIP(227) / .0000000000E+00/ * DIP(227) / .1570796327E+01/ * DEPTH(227) / .0000000000E+00/ * WIDTH(227) / .1000000000E+05/ DATA STRIKE(228) / .2456027323E+01/ * HL(228) / .8650000000E+03/ * EQLAT(228) / .6022015983E+00/ * EQLON(228) / .2033987337E+01/ * SSLIP(228) / .1500000000E+01/ * DSLIP(228) / .0000000000E+00/ * DIP(228) / .1570796327E+01/ * DEPTH(228) / .0000000000E+00/ * WIDTH(228) / .1000000000E+05/ DATA STRIKE(229) / .2596526328E+01/ * HL(229) / .1612000000E+04/ * EQLAT(229) / .6018816795E+00/ * EQLON(229) / .2033725538E+01/ * SSLIP(229) / .2400000000E+01/ * DSLIP(229) / .0000000000E+00/ * DIP(229) / .1570796327E+01/ * DEPTH(229) / .0000000000E+00/ * WIDTH(229) / .1000000000E+05/ DATA STRIKE(230) / .2711194460E+01/ * HL(230) / .2380000000E+04/ * EQLAT(230) / .6013046736E+00/ * EQLON(230) / .2033366698E+01/ * SSLIP(230) / .2250000000E+01/ * DSLIP(230) / .0000000000E+00/ * DIP(230) / .1570796327E+01/ * DEPTH(230) / .0000000000E+00/ * WIDTH(230) / .1000000000E+05/ DATA STRIKE(231) / .2711368993E+01/ * HL(231) / .2375000000E+04/ * EQLAT(231) / .6006259151E+00/ * EQLON(231) / .2032988660E+01/ * SSLIP(231) / .6150000000E+01/ * DSLIP(231) / .0000000000E+00/ * DIP(231) / .1570796327E+01/ * DEPTH(231) / .0000000000E+00/ * WIDTH(231) / .1000000000E+05/ DATA STRIKE(232) / .2311339528E+01/ * HL(232) / .1472000000E+04/ * EQLAT(232) / .6001557234E+00/ * EQLON(232) / .2032605560E+01/ * SSLIP(232) / .9000000000E+00/ * DSLIP(232) / .0000000000E+00/ * DIP(232) / .1570796327E+01/ * DEPTH(232) / .0000000000E+00/ * WIDTH(232) / .1000000000E+05/ DATA STRIKE(233) / .3187145747E+01/ * HL(233) / .7880000000E+03/ * EQLAT(233) / .5998745508E+00/ * EQLON(233) / .2032406767E+01/ * SSLIP(233) / .1400000000E+01/ * DSLIP(233) / .0000000000E+00/ * DIP(233) / .1570796327E+01/ * DEPTH(233) / .0000000000E+00/ * WIDTH(233) / .1000000000E+05/ DATA STRIKE(234) / .2727775088E+01/ * HL(234) / .2692000000E+04/ * EQLAT(234) / .5993654383E+00/ * EQLON(234) / .2032207974E+01/ * SSLIP(234) / .3800000000E+01/ * DSLIP(234) / .0000000000E+00/ * DIP(234) / .1570796327E+01/ * DEPTH(234) / .0000000000E+00/ * WIDTH(234) / .1000000000E+05/ DATA STRIKE(235) / .3250675732E+01/ * HL(235) / .2898000000E+04/ * EQLAT(235) / .5993024319E+00/ * EQLON(235) / .2032474660E+01/ * SSLIP(235) / .3200000000E+01/ * DSLIP(235) / .0000000000E+00/ * DIP(235) / .1570796327E+01/ * DEPTH(235) / .0000000000E+00/ * WIDTH(235) / .1000000000E+05/ DATA STRIKE(236) / .2739643327E+01/ * HL(236) / .1732000000E+04/ * EQLAT(236) / .5985994133E+00/ * EQLON(236) / .2032402055E+01/ * SSLIP(236) / .4100000000E+01/ * DSLIP(236) / .0000000000E+00/ * DIP(236) / .1570796327E+01/ * DEPTH(236) / .0000000000E+00/ * WIDTH(236) / .1000000000E+05/ DATA STRIKE(237) / .3051708197E+01/ * HL(237) / .1959000000E+04/ * EQLAT(237) / .5980419551E+00/ * EQLON(237) / .2032242008E+01/ * SSLIP(237) / .2800000000E+01/ * DSLIP(237) / .0000000000E+00/ * DIP(237) / .1570796327E+01/ * DEPTH(237) / .0000000000E+00/ * WIDTH(237) / .1000000000E+05/ DATA STRIKE(238) / .3189763741E+01/ * HL(238) / .2006000000E+04/ * EQLAT(238) / .5974262030E+00/ * EQLON(238) / .2032227522E+01/ * SSLIP(238) / .1900000000E+01/ * DSLIP(238) / .0000000000E+00/ * DIP(238) / .1570796327E+01/ * DEPTH(238) / .0000000000E+00/ * WIDTH(238) / .1000000000E+05/ DATA STRIKE(239) / .2920284904E+01/ * HL(239) / .2070000000E+04/ * EQLAT(239) / .5967910776E+00/ * EQLON(239) / .2032159628E+01/ * SSLIP(239) / .3100000000E+01/ * DSLIP(239) / .0000000000E+00/ * DIP(239) / .1570796327E+01/ * DEPTH(239) / .0000000000E+00/ * WIDTH(239) / .1000000000E+05/ DATA STRIKE(240) / .2750289835E+01/ * HL(240) / .3578000000E+04/ * EQLAT(240) / .5960397134E+00/ * EQLON(240) / .2031694149E+01/ * SSLIP(240) / .1300000000E+01/ * DSLIP(240) / .0000000000E+00/ * DIP(240) / .1570796327E+01/ * DEPTH(240) / .0000000000E+00/ * WIDTH(240) / .1000000000E+05/ DATA STRIKE(241) / .2836509100E+01/ * HL(241) / .3025000000E+04/ * EQLAT(241) / .5944348832E+00/ * EQLON(241) / .2030991130E+01/ * SSLIP(241) / .1000000000E+00/ * DSLIP(241) / .0000000000E+00/ * DIP(241) / .1570796327E+01/ * DEPTH(241) / .0000000000E+00/ * WIDTH(241) / .1000000000E+05/ DATA STRIKE(242) / .8377580410E+00/ * HL(242) / .1400000000E+05/ * EQLAT(242) / .5969753844E+00/ * EQLON(242) / .2038253620E+01/ * SSLIP(242) /-.4400000000E+00/ * DSLIP(242) / .0000000000E+00/ * DIP(242) / .1570796327E+01/ * DEPTH(242) / .0000000000E+00/ * WIDTH(242) / .1000000000E+05/ DATA STRIKE(243) / .1402197521E+01/ * HL(243) / .5807000000E+04/ * EQLAT(243) / .6044705264E+00/ * EQLON(243) / .2034399409E+01/ * SSLIP(243) /-.2300000000E+00/ * DSLIP(243) / .0000000000E+00/ * DIP(243) / .1570796327E+01/ * DEPTH(243) / .0000000000E+00/ * WIDTH(243) / .1000000000E+05/ DATA EQLATR( 16) / .5759586532E+00/ * EQLONR( 16) / .2020218609E+01/ * EQRAD( 16) / .2000000000E+06/ * ITEQK( 16) / 67857120/ * NLOC( 16) / 244/ * NFP( 16) / 2/ DATA STRIKE(244) / .2268928028E+01/ * HL(244) / .1250000000E+05/ * EQLAT(244) / .5752071144E+00/ * EQLON(244) / .2020097483E+01/ * SSLIP(244) / .1300000000E+01/ * DSLIP(244) / .0000000000E+00/ * DIP(244) / .1570796327E+01/ * DEPTH(244) / .0000000000E+00/ * WIDTH(244) / .1000000000E+05/ DATA STRIKE(245) / .6981317008E+00/ * HL(245) / .1250000000E+05/ * EQLAT(245) / .5778397690E+00/ * EQLON(245) / .2020228383E+01/ * SSLIP(245) /-.3000000000E+00/ * DSLIP(245) / .0000000000E+00/ * DIP(245) / .1570796327E+01/ * DEPTH(245) / .0000000000E+00/ * WIDTH(245) / .1000000000E+05/ DATA EQLATR( 17) / .6321757084E+00/ * EQLONR( 17) / .2097013096E+01/ * EQRAD( 17) / .2000000000E+06/ * ITEQK( 17) / 65456640/ * NLOC( 17) / 246/ * NFP( 17) / 1/ DATA STRIKE(246) / .5672320069E+01/ * HL(246) / .1000000000E+05/ * EQLAT(246) / .6321776282E+00/ * EQLON(246) / .2099490417E+01/ * SSLIP(246) / .0000000000E+00/ * DSLIP(246) /-.2250000000E+01/ * DIP(246) / .3054326191E+00/ * DEPTH(246) / .7500000000E+04/ * WIDTH(246) / .5000000000E+04/ DATA EQLATR( 18) / .6303780192E+00/ * EQLONR( 18) / .2097013096E+01/ * EQRAD( 18) / .2000000000E+06/ * ITEQK( 18) / 66644640/ * NLOC( 18) / 247/ * NFP( 18) / 1/ DATA STRIKE(247) / .5672320069E+01/ * HL(247) / .1100000000E+05/ * EQLAT(247) / .6290845557E+00/ * EQLON(247) / .2095078748E+01/ * SSLIP(247) / .0000000000E+00/ * DSLIP(247) /-.2400000000E+00/ * DIP(247) / .2617993878E+00/ * DEPTH(247) / .4500000000E+04/ * WIDTH(247) / .6000000000E+04/ DATA EQLATR( 19) / .5939355445E+00/ * EQLONR( 19) / .2060361182E+01/ * EQRAD( 19) / .2000000000E+06/ * ITEQK( 19) / 67779360/ * NLOC( 19) / 248/ * NFP( 19) / 1/ DATA STRIKE(248) / .1570796327E+01/ * HL(248) / .2250000000E+04/ * EQLAT(248) / .5939355445E+00/ * EQLON(248) / .2060361182E+01/ * SSLIP(248) / .0000000000E+00/ * DSLIP(248) /-.1090000000E+01/ * DIP(248) / .5235987756E+00/ * DEPTH(248) / .1200000000E+05/ * WIDTH(248) / .6000000000E+04/ DATA EQLATR( 20) / .6559528524E+00/ * EQLONR( 20) / .2066760781E+01/ * EQRAD( 20) / .2000000000E+06/ * ITEQK( 20) / 67150080/ * NLOC( 20) / 249/ * NFP( 20) / 2/ DATA STRIKE(249) / .5724679947E+01/ * HL(249) / .7500000000E+04/ * EQLAT(249) / .6557057137E+00/ * EQLON(249) / .2066629881E+01/ * SSLIP(249) / .5160000000E+00/ * DSLIP(249) / .0000000000E+00/ * DIP(249) / .9599310886E+00/ * DEPTH(249) / .1000000000E+04/ * WIDTH(249) / .8000000000E+04/ DATA STRIKE(250) / .8377580410E+00/ * HL(250) / .3750000000E+04/ * EQLAT(250) / .6560256326E+00/ * EQLON(250) / .2067095186E+01/ * SSLIP(250) /-.8240000000E+00/ * DSLIP(250) / .0000000000E+00/ * DIP(250) / .1570796327E+01/ * DEPTH(250) / .2000000000E+04/ * WIDTH(250) / .6000000000E+04/ DATA EQLATR( 21) / .6005580218E+00/ * EQLONR( 21) / .2069276847E+01/ * EQRAD( 21) / .2000000000E+06/ * ITEQK( 21) / 71091360/ * NLOC( 21) / 251/ * NFP( 21) / 1/ DATA STRIKE(251) / .5100724739E+01/ * HL(251) / .5045000000E+04/ * EQLAT(251) / .5998551777E+00/ * EQLON(251) / .2068602976E+01/ * SSLIP(251) / .0000000000E+00/ * DSLIP(251) /-.2410000000E+01/ * DIP(251) / .7365289443E+00/ * DEPTH(251) / .5494000000E+04/ * WIDTH(251) / .1351000000E+05/ DATA EQLATR( 22) / .5991715322E+00/ * EQLONR( 22) / .2032261381E+01/ * EQRAD( 22) / .1000000000E+06/ * ITEQK( 22) / 63283680/ * NLOC( 22) / 252/ * NFP( 22) / 1/ DATA STRIKE(252) / .6178465552E+01/ * HL(252) / .3000000000E+04/ * EQLAT(252) / .5991715322E+00/ * EQLON(252) / .2032246895E+01/ * SSLIP(252) / .5400000000E+00/ * DSLIP(252) /-.1800000000E+00/ * DIP(252) / .1483529864E+01/ * DEPTH(252) / .7500000000E+03/ * WIDTH(252) / .4250000000E+04/ DATA EQLATR( 23) / .5923647481E+00/ * EQLONR( 23) / .2035752040E+01/ * EQRAD( 23) / .2000000000E+06/ * ITEQK( 23) / 67131360/ * NLOC( 23) / 253/ * NFP( 23) / 1/ DATA STRIKE(253) / .1867502300E+01/ * HL(253) / .5500000000E+04/ * EQLAT(253) / .5932374128E+00/ * EQLON(253) / .2035432121E+01/ * SSLIP(253) / .1800000000E+00/ * DSLIP(253) /-.2400000000E+00/ * DIP(253) / .8028514559E+00/ * DEPTH(253) / .6000000000E+04/ * WIDTH(253) / .7000000000E+04/ DATA EQLATR( 24) / .5934119457E+00/ * EQLONR( 24) / .2030341519E+01/ * EQRAD( 24) / .2000000000E+06/ * ITEQK( 24) / 70176960/ * NLOC( 24) / 254/ * NFP( 24) / 19/ DATA STRIKE(254) / .3001966313E+01/ * HL(254) / .2500000000E+04/ * EQLAT(254) / .5947891850E+00/ * EQLON(254) / .2030526873E+01/ * SSLIP(254) / .6900000000E-02/ * DSLIP(254) / .0000000000E+00/ * DIP(254) / .1570796327E+01/ * DEPTH(254) / .0000000000E+00/ * WIDTH(254) / .5000000000E+04/ DATA STRIKE(255) / .3001966313E+01/ * HL(255) / .2500000000E+04/ * EQLAT(255) / .5947891850E+00/ * EQLON(255) / .2030526873E+01/ * SSLIP(255) / .3000000000E-02/ * DSLIP(255) / .0000000000E+00/ * DIP(255) / .1570796327E+01/ * DEPTH(255) / .5000000000E+04/ * WIDTH(255) / .5000000000E+04/ DATA STRIKE(256) / .3001966313E+01/ * HL(256) / .2500000000E+04/ * EQLAT(256) / .5940100700E+00/ * EQLON(256) / .2030395275E+01/ * SSLIP(256) / .1143000000E+00/ * DSLIP(256) / .0000000000E+00/ * DIP(256) / .1570796327E+01/ * DEPTH(256) / .0000000000E+00/ * WIDTH(256) / .5000000000E+04/ DATA STRIKE(257) / .3001966313E+01/ * HL(257) / .2500000000E+04/ * EQLAT(257) / .5940100700E+00/ * EQLON(257) / .2030395275E+01/ * SSLIP(257) / .1613000000E+00/ * DSLIP(257) / .0000000000E+00/ * DIP(257) / .1570796327E+01/ * DEPTH(257) / .5000000000E+04/ * WIDTH(257) / .5000000000E+04/ DATA STRIKE(258) / .3001966313E+01/ * HL(258) / .2500000000E+04/ * EQLAT(258) / .5940100700E+00/ * EQLON(258) / .2030395275E+01/ * SSLIP(258) / .1053000000E+00/ * DSLIP(258) / .0000000000E+00/ * DIP(258) / .1570796327E+01/ * DEPTH(258) / .1000000000E+05/ * WIDTH(258) / .5000000000E+04/ DATA STRIKE(259) / .3001966313E+01/ * HL(259) / .2500000000E+04/ * EQLAT(259) / .5940100700E+00/ * EQLON(259) / .2030395275E+01/ * SSLIP(259) / .3250000000E-01/ * DSLIP(259) / .0000000000E+00/ * DIP(259) / .1570796327E+01/ * DEPTH(259) / .1500000000E+05/ * WIDTH(259) / .5000000000E+04/ DATA STRIKE(260) / .3001966313E+01/ * HL(260) / .2500000000E+04/ * EQLAT(260) / .5932311296E+00/ * EQLON(260) / .2030264026E+01/ * SSLIP(260) / .9660000000E-01/ * DSLIP(260) / .0000000000E+00/ * DIP(260) / .1570796327E+01/ * DEPTH(260) / .0000000000E+00/ * WIDTH(260) / .5000000000E+04/ DATA STRIKE(261) / .3001966313E+01/ * HL(261) / .2500000000E+04/ * EQLAT(261) / .5932311296E+00/ * EQLON(261) / .2030264026E+01/ * SSLIP(261) / .5406000000E+00/ * DSLIP(261) / .0000000000E+00/ * DIP(261) / .1570796327E+01/ * DEPTH(261) / .5000000000E+04/ * WIDTH(261) / .5000000000E+04/ DATA STRIKE(262) / .3001966313E+01/ * HL(262) / .2500000000E+04/ * EQLAT(262) / .5932311296E+00/ * EQLON(262) / .2030264026E+01/ * SSLIP(262) / .5760000000E+00/ * DSLIP(262) / .0000000000E+00/ * DIP(262) / .1570796327E+01/ * DEPTH(262) / .1000000000E+05/ * WIDTH(262) / .5000000000E+04/ DATA STRIKE(263) / .3001966313E+01/ * HL(263) / .2500000000E+04/ * EQLAT(263) / .5932311296E+00/ * EQLON(263) / .2030264026E+01/ * SSLIP(263) / .2093000000E+00/ * DSLIP(263) / .0000000000E+00/ * DIP(263) / .1570796327E+01/ * DEPTH(263) / .1500000000E+05/ * WIDTH(263) / .5000000000E+04/ DATA STRIKE(264) / .3001966313E+01/ * HL(264) / .2500000000E+04/ * EQLAT(264) / .5924520146E+00/ * EQLON(264) / .2030132777E+01/ * SSLIP(264) / .6710000000E-01/ * DSLIP(264) / .0000000000E+00/ * DIP(264) / .1570796327E+01/ * DEPTH(264) / .0000000000E+00/ * WIDTH(264) / .5000000000E+04/ DATA STRIKE(265) / .3001966313E+01/ * HL(265) / .2500000000E+04/ * EQLAT(265) / .5924520146E+00/ * EQLON(265) / .2030132777E+01/ * SSLIP(265) / .4750000000E+00/ * DSLIP(265) / .0000000000E+00/ * DIP(265) / .1570796327E+01/ * DEPTH(265) / .5000000000E+04/ * WIDTH(265) / .5000000000E+04/ DATA STRIKE(266) / .3001966313E+01/ * HL(266) / .2500000000E+04/ * EQLAT(266) / .5924520146E+00/ * EQLON(266) / .2030132777E+01/ * SSLIP(266) / .5283000000E+00/ * DSLIP(266) / .0000000000E+00/ * DIP(266) / .1570796327E+01/ * DEPTH(266) / .1000000000E+05/ * WIDTH(266) / .5000000000E+04/ DATA STRIKE(267) / .3001966313E+01/ * HL(267) / .2500000000E+04/ * EQLAT(267) / .5924520146E+00/ * EQLON(267) / .2030132777E+01/ * SSLIP(267) / .1803000000E+00/ * DSLIP(267) / .0000000000E+00/ * DIP(267) / .1570796327E+01/ * DEPTH(267) / .1500000000E+05/ * WIDTH(267) / .5000000000E+04/ DATA STRIKE(268) / .3001966313E+01/ * HL(268) / .2500000000E+04/ * EQLAT(268) / .5916728996E+00/ * EQLON(268) / .2030001529E+01/ * SSLIP(268) / .1930000000E-01/ * DSLIP(268) / .0000000000E+00/ * DIP(268) / .1570796327E+01/ * DEPTH(268) / .5000000000E+04/ * WIDTH(268) / .5000000000E+04/ DATA STRIKE(269) / .3001966313E+01/ * HL(269) / .2500000000E+04/ * EQLAT(269) / .5916728996E+00/ * EQLON(269) / .2030001529E+01/ * SSLIP(269) / .4110000000E-01/ * DSLIP(269) / .0000000000E+00/ * DIP(269) / .1570796327E+01/ * DEPTH(269) / .1000000000E+05/ * WIDTH(269) / .5000000000E+04/ DATA STRIKE(270) / .3001966313E+01/ * HL(270) / .2500000000E+04/ * EQLAT(270) / .5916728996E+00/ * EQLON(270) / .2030001529E+01/ * SSLIP(270) / .1070000000E-01/ * DSLIP(270) / .0000000000E+00/ * DIP(270) / .1570796327E+01/ * DEPTH(270) / .1500000000E+05/ * WIDTH(270) / .5000000000E+04/ DATA STRIKE(271) / .3001966313E+01/ * HL(271) / .2500000000E+04/ * EQLAT(271) / .5908936101E+00/ * EQLON(271) / .2029870629E+01/ * SSLIP(271) / .3780000000E-01/ * DSLIP(271) / .0000000000E+00/ * DIP(271) / .1570796327E+01/ * DEPTH(271) / .0000000000E+00/ * WIDTH(271) / .5000000000E+04/ DATA STRIKE(272) / .3001966313E+01/ * HL(272) / .2500000000E+04/ * EQLAT(272) / .5901144951E+00/ * EQLON(272) / .2029739729E+01/ * SSLIP(272) / .9400000000E-02/ * DSLIP(272) / .0000000000E+00/ * DIP(272) / .1570796327E+01/ * DEPTH(272) / .0000000000E+00/ * WIDTH(272) / .5000000000E+04/ DATA EQLATR( 25) / .1047197551E+01/ * EQLONR( 25) / .2617993878E+01/ * EQRAD( 25) / .1500000000E+07/ * ITEQK( 25) / 55414080/ * NLOC( 25) / 273/ * NFP( 25) / 68/ DATA STRIKE(273) / .6667157743E+00/ * HL(273) / .2500000000E+05/ * EQLAT(273) / .9787806445E+00/ * EQLON(273) / .2642355707E+01/ * SSLIP(273) /-.1019000000E+00/ * DSLIP(273) /-.1873700000E+01/ * DIP(273) / .1396263402E+00/ * DEPTH(273) / .1100000000E+05/ * WIDTH(273) / .5000000000E+05/ DATA STRIKE(274) / .6667157743E+00/ * HL(274) / .2500000000E+05/ * EQLAT(274) / .9849474164E+00/ * EQLON(274) / .2633614575E+01/ * SSLIP(274) /-.1069000000E+00/ * DSLIP(274) /-.1859500000E+01/ * DIP(274) / .1396263402E+00/ * DEPTH(274) / .1100000000E+05/ * WIDTH(274) / .5000000000E+05/ DATA STRIKE(275) / .6667157743E+00/ * HL(275) / .2500000000E+05/ * EQLAT(275) / .9911143627E+00/ * EQLON(275) / .2624786176E+01/ * SSLIP(275) /-.1586000000E+00/ * DSLIP(275) /-.2004300000E+01/ * DIP(275) / .1396263402E+00/ * DEPTH(275) / .1100000000E+05/ * WIDTH(275) / .5000000000E+05/ DATA STRIKE(276) / .6667157743E+00/ * HL(276) / .2500000000E+05/ * EQLAT(276) / .9972811346E+00/ * EQLON(276) / .2615880110E+01/ * SSLIP(276) /-.1112000000E+00/ * DSLIP(276) /-.1771880000E+02/ * DIP(276) / .1396263402E+00/ * DEPTH(276) / .1100000000E+05/ * WIDTH(276) / .5000000000E+05/ DATA STRIKE(277) / .6667157743E+00/ * HL(277) / .2500000000E+05/ * EQLAT(277) / .1003447906E+01/ * EQLON(277) / .2606881890E+01/ * SSLIP(277) /-.1663000000E+00/ * DSLIP(277) /-.1773250000E+02/ * DIP(277) / .1396263402E+00/ * DEPTH(277) / .1100000000E+05/ * WIDTH(277) / .5000000000E+05/ DATA STRIKE(278) / .6667157743E+00/ * HL(278) / .2500000000E+05/ * EQLAT(278) / .1009614853E+01/ * EQLON(278) / .2597796579E+01/ * SSLIP(278) /-.1153000000E+00/ * DSLIP(278) /-.2955300000E+01/ * DIP(278) / .1396263402E+00/ * DEPTH(278) / .1100000000E+05/ * WIDTH(278) / .5000000000E+05/ DATA STRIKE(279) / .6667157743E+00/ * HL(279) / .2500000000E+05/ * EQLAT(279) / .1015776738E+01/ * EQLON(279) / .2588623826E+01/ * SSLIP(279) /-.1926000000E+00/ * DSLIP(279) /-.3025200000E+01/ * DIP(279) / .1396263402E+00/ * DEPTH(279) / .1100000000E+05/ * WIDTH(279) / .5000000000E+05/ DATA STRIKE(280) / .6632251158E+00/ * HL(280) / .2493100000E+05/ * EQLAT(280) / .9835851869E+00/ * EQLON(280) / .2652662924E+01/ * SSLIP(280) /-.1081000000E+00/ * DSLIP(280) /-.1519600000E+01/ * DIP(280) / .1396263402E+00/ * DEPTH(280) / .1795900000E+05/ * WIDTH(280) / .5000000000E+05/ DATA STRIKE(281) / .6632251158E+00/ * HL(281) / .2493000000E+05/ * EQLAT(281) / .9897519587E+00/ * EQLON(281) / .2644004171E+01/ * SSLIP(281) /-.3355000000E+00/ * DSLIP(281) /-.1913000000E+01/ * DIP(281) / .1396263402E+00/ * DEPTH(281) / .1795900000E+05/ * WIDTH(281) / .5000000000E+05/ DATA STRIKE(282) / .6632251158E+00/ * HL(282) / .2492900000E+05/ * EQLAT(282) / .9959187306E+00/ * EQLON(282) / .2635262864E+01/ * SSLIP(282) /-.1997000000E+00/ * DSLIP(282) /-.2201700000E+01/ * DIP(282) / .1396263402E+00/ * DEPTH(282) / .1795900000E+05/ * WIDTH(282) / .5000000000E+05/ DATA STRIKE(283) / .6632251158E+00/ * HL(283) / .2492800000E+05/ * EQLAT(283) / .1002085677E+01/ * EQLON(283) / .2626448951E+01/ * SSLIP(283) /-.1335000000E+00/ * DSLIP(283) /-.1784090000E+02/ * DIP(283) / .1396263402E+00/ * DEPTH(283) / .1795900000E+05/ * WIDTH(283) / .5000000000E+05/ DATA STRIKE(284) / .6632251158E+00/ * HL(284) / .2492800000E+05/ * EQLAT(284) / .1008252449E+01/ * EQLON(284) / .2617543059E+01/ * SSLIP(284) /-.1604000000E+00/ * DSLIP(284) /-.1770760000E+02/ * DIP(284) / .1396263402E+00/ * DEPTH(284) / .1795900000E+05/ * WIDTH(284) / .5000000000E+05/ DATA STRIKE(285) / .6632251158E+00/ * HL(285) / .2492700000E+05/ * EQLAT(285) / .1014419221E+01/ * EQLON(285) / .2608554614E+01/ * SSLIP(285) /-.2107000000E+00/ * DSLIP(285) /-.2912700000E+01/ * DIP(285) / .1396263402E+00/ * DEPTH(285) / .1795900000E+05/ * WIDTH(285) / .5000000000E+05/ DATA STRIKE(286) / .6632251158E+00/ * HL(286) / .2492500000E+05/ * EQLAT(286) / .1020586167E+01/ * EQLON(286) / .2599478902E+01/ * SSLIP(286) /-.1689000000E+00/ * DSLIP(286) /-.2529400000E+01/ * DIP(286) / .1396263402E+00/ * DEPTH(286) / .1795900000E+05/ * WIDTH(286) / .5000000000E+05/ DATA STRIKE(287) / .6597344573E+00/ * HL(287) / .2486300000E+05/ * EQLAT(287) / .9883750685E+00/ * EQLON(287) / .2662625787E+01/ * SSLIP(287) /-.5409000000E+00/ * DSLIP(287) /-.1267000000E+01/ * DIP(287) / .1396263402E+00/ * DEPTH(287) / .2491700000E+05/ * WIDTH(287) / .5000000000E+05/ DATA STRIKE(288) / .6597344573E+00/ * HL(288) / .2486200000E+05/ * EQLAT(288) / .9945420149E+00/ * EQLON(288) / .2654049413E+01/ * SSLIP(288) /-.1013600000E+01/ * DSLIP(288) /-.4670100000E+01/ * DIP(288) / .1396263402E+00/ * DEPTH(288) / .2491700000E+05/ * WIDTH(288) / .5000000000E+05/ DATA STRIKE(289) / .6597344573E+00/ * HL(289) / .2486000000E+05/ * EQLAT(289) / .1000703900E+01/ * EQLON(289) / .2645390660E+01/ * SSLIP(289) / .3133000000E+00/ * DSLIP(289) /-.9657400000E+01/ * DIP(289) / .1396263402E+00/ * DEPTH(289) / .2491700000E+05/ * WIDTH(289) / .5000000000E+05/ DATA STRIKE(290) / .6597344573E+00/ * HL(290) / .2485800000E+05/ * EQLAT(290) / .1006870672E+01/ * EQLON(290) / .2636649528E+01/ * SSLIP(290) / .6830000000E-01/ * DSLIP(290) /-.1250590000E+02/ * DIP(290) / .1396263402E+00/ * DEPTH(290) / .2491700000E+05/ * WIDTH(290) / .5000000000E+05/ DATA STRIKE(291) / .6597344573E+00/ * HL(291) / .2485600000E+05/ * EQLAT(291) / .1013042505E+01/ * EQLON(291) / .2627830728E+01/ * SSLIP(291) / .7000000000E-02/ * DSLIP(291) /-.6801100000E+01/ * DIP(291) / .1396263402E+00/ * DEPTH(291) / .2491700000E+05/ * WIDTH(291) / .5000000000E+05/ DATA STRIKE(292) / .6597344573E+00/ * HL(292) / .2485400000E+05/ * EQLAT(292) / .1019209277E+01/ * EQLON(292) / .2618924662E+01/ * SSLIP(292) /-.3081000000E+00/ * DSLIP(292) /-.7947200000E+01/ * DIP(292) / .1396263402E+00/ * DEPTH(292) / .2491700000E+05/ * WIDTH(292) / .5000000000E+05/ DATA STRIKE(293) / .6597344573E+00/ * HL(293) / .2485200000E+05/ * EQLAT(293) / .1025376049E+01/ * EQLON(293) / .2609936216E+01/ * SSLIP(293) /-.3791000000E+00/ * DSLIP(293) /-.5466700000E+01/ * DIP(293) / .1396263402E+00/ * DEPTH(293) / .2491700000E+05/ * WIDTH(293) / .5000000000E+05/ DATA STRIKE(294) / .6562437987E+00/ * HL(294) / .2479600000E+05/ * EQLAT(294) / .9931310907E+00/ * EQLON(294) / .2672166978E+01/ * SSLIP(294) /-.1489100000E+01/ * DSLIP(294) /-.3051500000E+01/ * DIP(294) / .1570796327E+00/ * DEPTH(294) / .3230800000E+05/ * WIDTH(294) / .5000000000E+05/ DATA STRIKE(295) / .6562437987E+00/ * HL(295) / .2479300000E+05/ * EQLAT(295) / .9992980371E+00/ * EQLON(295) / .2663658498E+01/ * SSLIP(295) /-.1456000000E+01/ * DSLIP(295) /-.3652700000E+01/ * DIP(295) / .1570796327E+00/ * DEPTH(295) / .3230800000E+05/ * WIDTH(295) / .5000000000E+05/ DATA STRIKE(296) / .6562437987E+00/ * HL(296) / .2479000000E+05/ * EQLAT(296) / .1005464809E+01/ * EQLON(296) / .2655067638E+01/ * SSLIP(296) / .4759000000E+00/ * DSLIP(296) /-.2532000000E+01/ * DIP(296) / .1570796327E+00/ * DEPTH(296) / .3230800000E+05/ * WIDTH(296) / .5000000000E+05/ DATA STRIKE(297) / .6562437987E+00/ * HL(297) / .2478800000E+05/ * EQLAT(297) / .1011626694E+01/ * EQLON(297) / .2646403998E+01/ * SSLIP(297) /-.8200000000E-01/ * DSLIP(297) /-.5151600000E+01/ * DIP(297) / .1570796327E+00/ * DEPTH(297) / .3230800000E+05/ * WIDTH(297) / .5000000000E+05/ DATA STRIKE(298) / .6562437987E+00/ * HL(298) / .2478500000E+05/ * EQLAT(298) / .1017798527E+01/ * EQLON(298) / .2637657979E+01/ * SSLIP(298) / .5500000000E-01/ * DSLIP(298) /-.3341300000E+01/ * DIP(298) / .1570796327E+00/ * DEPTH(298) / .3230800000E+05/ * WIDTH(298) / .5000000000E+05/ DATA STRIKE(299) / .6562437987E+00/ * HL(299) / .2478200000E+05/ * EQLAT(299) / .1023960412E+01/ * EQLON(299) / .2628829406E+01/ * SSLIP(299) /-.1146000000E+00/ * DSLIP(299) /-.1733670000E+02/ * DIP(299) / .1570796327E+00/ * DEPTH(299) / .3230800000E+05/ * WIDTH(299) / .5000000000E+05/ DATA STRIKE(300) / .6562437987E+00/ * HL(300) / .2477900000E+05/ * EQLAT(300) / .1030127184E+01/ * EQLON(300) / .2619908853E+01/ * SSLIP(300) /-.8620000000E-01/ * DSLIP(300) /-.3891200000E+01/ * DIP(300) / .1570796327E+00/ * DEPTH(300) / .3230800000E+05/ * WIDTH(300) / .5000000000E+05/ DATA STRIKE(301) / .7888888219E+00/ * HL(301) / .2000000000E+05/ * EQLAT(301) / .1016247104E+01/ * EQLON(301) / .2572717070E+01/ * SSLIP(301) /-.2278000000E+00/ * DSLIP(301) /-.1993220000E+02/ * DIP(301) / .1396263402E+00/ * DEPTH(301) / .4000000000E+04/ * WIDTH(301) / .5000000000E+05/ DATA STRIKE(302) / .8761552845E+00/ * HL(302) / .2000000000E+05/ * EQLAT(302) / .1020464867E+01/ * EQLON(302) / .2563874185E+01/ * SSLIP(302) /-.2191000000E+00/ * DSLIP(302) /-.2011580000E+02/ * DIP(302) / .1396263402E+00/ * DEPTH(302) / .4000000000E+04/ * WIDTH(302) / .5000000000E+05/ DATA STRIKE(303) / .9808750396E+00/ * HL(303) / .2000000000E+05/ * EQLAT(303) / .1024222211E+01/ * EQLON(303) / .2554240840E+01/ * SSLIP(303) / .1012000000E+00/ * DSLIP(303) /-.1412720000E+02/ * DIP(303) / .1396263402E+00/ * DEPTH(303) / .4000000000E+04/ * WIDTH(303) / .5000000000E+05/ DATA STRIKE(304) / .1087340124E+01/ * HL(304) / .2000000000E+05/ * EQLAT(304) / .1027426810E+01/ * EQLON(304) / .2543846532E+01/ * SSLIP(304) / .1074000000E+00/ * DSLIP(304) /-.1317610000E+02/ * DIP(304) / .1396263402E+00/ * DEPTH(304) / .4000000000E+04/ * WIDTH(304) / .5000000000E+05/ DATA STRIKE(305) / .1209513172E+01/ * HL(305) / .2000000000E+05/ * EQLAT(305) / .1029996284E+01/ * EQLON(305) / .2532773290E+01/ * SSLIP(305) / .1648000000E+00/ * DSLIP(305) /-.2407700000E+01/ * DIP(305) / .1396263402E+00/ * DEPTH(305) / .4000000000E+04/ * WIDTH(305) / .5000000000E+05/ DATA STRIKE(306) / .1331686219E+01/ * HL(306) / .2000000000E+05/ * EQLAT(306) / .1031853140E+01/ * EQLON(306) / .2521132991E+01/ * SSLIP(306) / .3620000000E-01/ * DSLIP(306) /-.2325600000E+01/ * DIP(306) / .1396263402E+00/ * DEPTH(306) / .4000000000E+04/ * WIDTH(306) / .5000000000E+05/ DATA STRIKE(307) / .7836528341E+00/ * HL(307) / .2241000000E+05/ * EQLAT(307) / .1021759377E+01/ * EQLON(307) / .2582830380E+01/ * SSLIP(307) /-.3950000000E+00/ * DSLIP(307) /-.2349190000E+02/ * DIP(307) / .1396263402E+00/ * DEPTH(307) / .1095900000E+05/ * WIDTH(307) / .5000000000E+05/ DATA STRIKE(308) / .8709192967E+00/ * HL(308) / .2238500000E+05/ * EQLAT(308) / .1026437907E+01/ * EQLON(308) / .2573095283E+01/ * SSLIP(308) / .6610000000E-01/ * DSLIP(308) /-.2273440000E+02/ * DIP(308) / .1396263402E+00/ * DEPTH(308) / .1095900000E+05/ * WIDTH(308) / .5000000000E+05/ DATA STRIKE(309) / .9773843811E+00/ * HL(309) / .2235300000E+05/ * EQLAT(309) / .1030684817E+01/ * EQLON(309) / .2562274242E+01/ * SSLIP(309) / .1282000000E+01/ * DSLIP(309) /-.1435200000E+02/ * DIP(309) / .1396263402E+00/ * DEPTH(309) / .1095900000E+05/ * WIDTH(309) / .5000000000E+05/ DATA STRIKE(310) / .1082104136E+01/ * HL(310) / .2232100000E+05/ * EQLAT(310) / .1034306375E+01/ * EQLON(310) / .2550595022E+01/ * SSLIP(310) /-.2238000000E+00/ * DSLIP(310) /-.1812040000E+02/ * DIP(310) / .1396263402E+00/ * DEPTH(310) / .1095900000E+05/ * WIDTH(310) / .5000000000E+05/ DATA STRIKE(311) / .1204277184E+01/ * HL(311) / .2228800000E+05/ * EQLAT(311) / .1037268548E+01/ * EQLON(311) / .2537912412E+01/ * SSLIP(311) /-.9678000000E+00/ * DSLIP(311) /-.4154600000E+01/ * DIP(311) / .1396263402E+00/ * DEPTH(311) / .1095900000E+05/ * WIDTH(311) / .5000000000E+05/ DATA STRIKE(312) / .1328195561E+01/ * HL(312) / .2226100000E+05/ * EQLAT(312) / .1039401689E+01/ * EQLON(312) / .2524580017E+01/ * SSLIP(312) /-.2491700000E+01/ * DSLIP(312) /-.5336200000E+01/ * DIP(312) / .1396263402E+00/ * DEPTH(312) / .1095900000E+05/ * WIDTH(312) / .5000000000E+05/ DATA STRIKE(313) / .7801621756E+00/ * HL(313) / .2482100000E+05/ * EQLAT(313) / .1027257164E+01/ * EQLON(313) / .2592599337E+01/ * SSLIP(313) / .1743000000E+00/ * DSLIP(313) /-.1264160000E+02/ * DIP(313) / .1396263402E+00/ * DEPTH(313) / .1791700000E+05/ * WIDTH(313) / .5000000000E+05/ DATA STRIKE(314) / .8674286382E+00/ * HL(314) / .2477000000E+05/ * EQLAT(314) / .1032386513E+01/ * EQLON(314) / .2581977089E+01/ * SSLIP(314) / .2028400000E+01/ * DSLIP(314) /-.1658740000E+02/ * DIP(314) / .1396263402E+00/ * DEPTH(314) / .1791700000E+05/ * WIDTH(314) / .5000000000E+05/ DATA STRIKE(315) / .9721483934E+00/ * HL(315) / .2470600000E+05/ * EQLAT(315) / .1037123162E+01/ * EQLON(315) / .2569992437E+01/ * SSLIP(315) / .2138900000E+01/ * DSLIP(315) /-.1823890000E+02/ * DIP(315) / .1396263402E+00/ * DEPTH(315) / .1791700000E+05/ * WIDTH(315) / .5000000000E+05/ DATA STRIKE(316) / .1076868148E+01/ * HL(316) / .2464300000E+05/ * EQLAT(316) / .1041166391E+01/ * EQLON(316) / .2557067401E+01/ * SSLIP(316) /-.1315800000E+01/ * DSLIP(316) /-.1477380000E+02/ * DIP(316) / .1396263402E+00/ * DEPTH(316) / .1791700000E+05/ * WIDTH(316) / .5000000000E+05/ DATA STRIKE(317) / .1200786525E+01/ * HL(317) / .2457500000E+05/ * EQLAT(317) / .1044521438E+01/ * EQLON(317) / .2542828307E+01/ * SSLIP(317) /-.5067000000E+00/ * DSLIP(317) /-.8131500000E+01/ * DIP(317) / .1396263402E+00/ * DEPTH(317) / .1791700000E+05/ * WIDTH(317) / .5000000000E+05/ DATA STRIKE(318) / .1324704902E+01/ * HL(318) / .2452100000E+05/ * EQLAT(318) / .1046945526E+01/ * EQLON(318) / .2527876769E+01/ * SSLIP(318) /-.7069000000E+00/ * DSLIP(318) /-.9321200000E+01/ * DIP(318) / .1396263402E+00/ * DEPTH(318) / .1791700000E+05/ * WIDTH(318) / .5000000000E+05/ DATA STRIKE(319) / .1450368608E+01/ * HL(319) / .2448700000E+05/ * EQLAT(319) / .1048399909E+01/ * EQLON(319) / .2512435318E+01/ * SSLIP(319) / .9059000000E+00/ * DSLIP(319) /-.1408620000E+02/ * DIP(319) / .1396263402E+00/ * DEPTH(319) / .1791700000E+05/ * WIDTH(319) / .5000000000E+05/ DATA STRIKE(320) / .7749261879E+00/ * HL(320) / .2723200000E+05/ * EQLAT(320) / .1032716205E+01/ * EQLON(320) / .2601965996E+01/ * SSLIP(320) / .9104000000E+00/ * DSLIP(320) /-.8145000000E+01/ * DIP(320) / .1396263402E+00/ * DEPTH(320) / .2487600000E+05/ * WIDTH(320) / .5000000000E+05/ DATA STRIKE(321) / .8621926505E+00/ * HL(321) / .2715600000E+05/ * EQLAT(321) / .1038315745E+01/ * EQLON(321) / .2590461309E+01/ * SSLIP(321) / .4737400000E+01/ * DSLIP(321) /-.1347200000E+02/ * DIP(321) / .1396263402E+00/ * DEPTH(321) / .2487600000E+05/ * WIDTH(321) / .5000000000E+05/ DATA STRIKE(322) / .9669124056E+00/ * HL(322) / .2706000000E+05/ * EQLAT(322) / .1043542134E+01/ * EQLON(322) / .2577332593E+01/ * SSLIP(322) / .2496000000E+01/ * DSLIP(322) /-.2960350000E+02/ * DIP(322) / .1396263402E+00/ * DEPTH(322) / .2487600000E+05/ * WIDTH(322) / .5000000000E+05/ DATA STRIKE(323) / .1071632161E+01/ * HL(323) / .2696400000E+05/ * EQLAT(323) / .1048012096E+01/ * EQLON(323) / .2563190539E+01/ * SSLIP(323) /-.4036000000E+00/ * DSLIP(323) /-.1632030000E+02/ * DIP(323) / .1396263402E+00/ * DEPTH(323) / .2487600000E+05/ * WIDTH(323) / .5000000000E+05/ DATA STRIKE(324) / .1197295867E+01/ * HL(324) / .2686300000E+05/ * EQLAT(324) / .1051769267E+01/ * EQLON(324) / .2547468090E+01/ * SSLIP(324) / .2986000000E+00/ * DSLIP(324) /-.5632000000E+01/ * DIP(324) / .1396263402E+00/ * DEPTH(324) / .2487600000E+05/ * WIDTH(324) / .5000000000E+05/ DATA STRIKE(325) / .1322959573E+01/ * HL(325) / .2678100000E+05/ * EQLAT(325) / .1054489188E+01/ * EQLON(325) / .2530969842E+01/ * SSLIP(325) /-.3800200000E+01/ * DSLIP(325) /-.1071970000E+02/ * DIP(325) / .1396263402E+00/ * DEPTH(325) / .2487600000E+05/ * WIDTH(325) / .5000000000E+05/ DATA STRIKE(326) / .1448623279E+01/ * HL(326) / .2672900000E+05/ * EQLAT(326) / .1056113217E+01/ * EQLON(326) / .2513957768E+01/ * SSLIP(326) /-.7076000000E+00/ * DSLIP(326) /-.1434350000E+02/ * DIP(326) / .1396263402E+00/ * DEPTH(326) / .2487600000E+05/ * WIDTH(326) / .5000000000E+05/ DATA STRIKE(327) / .7714355294E+00/ * HL(327) / .2964400000E+05/ * EQLAT(327) / .1038155698E+01/ * EQLON(327) / .2610823542E+01/ * SSLIP(327) / .3292000000E+01/ * DSLIP(327) /-.6754100000E+01/ * DIP(327) / .1570796327E+00/ * DEPTH(327) / .3226600000E+05/ * WIDTH(327) / .5000000000E+05/ DATA STRIKE(328) / .8569566627E+00/ * HL(328) / .2954300000E+05/ * EQLAT(328) / .1044206231E+01/ * EQLON(328) / .2598441303E+01/ * SSLIP(328) / .5912900000E+01/ * DSLIP(328) /-.1538440000E+02/ * DIP(328) / .1570796327E+00/ * DEPTH(328) / .3226600000E+05/ * WIDTH(328) / .5000000000E+05/ DATA STRIKE(329) / .9616764178E+00/ * HL(329) / .2941500000E+05/ * EQLAT(329) / .1049927072E+01/ * EQLON(329) / .2584192610E+01/ * SSLIP(329) / .4312700000E+01/ * DSLIP(329) /-.1654700000E+02/ * DIP(329) / .1570796327E+00/ * DEPTH(329) / .3226600000E+05/ * WIDTH(329) / .5000000000E+05/ DATA STRIKE(330) / .1066396173E+01/ * HL(330) / .2928700000E+05/ * EQLAT(330) / .1054828480E+01/ * EQLON(330) / .2568877346E+01/ * SSLIP(330) /-.9762000000E+00/ * DSLIP(330) /-.1471710000E+02/ * DIP(330) / .1570796327E+00/ * DEPTH(330) / .3226600000E+05/ * WIDTH(330) / .5000000000E+05/ DATA STRIKE(331) / .1192059879E+01/ * HL(331) / .2915000000E+05/ * EQLAT(331) / .1058997897E+01/ * EQLON(331) / .2551753746E+01/ * SSLIP(331) /-.5810000000E-01/ * DSLIP(331) /-.9923200000E+01/ * DIP(331) / .1570796327E+00/ * DEPTH(331) / .3226600000E+05/ * WIDTH(331) / .5000000000E+05/ DATA STRIKE(332) / .1319468915E+01/ * HL(332) / .2904100000E+05/ * EQLAT(332) / .1062008590E+01/ * EQLON(332) / .2533820488E+01/ * SSLIP(332) / .4920000000E-01/ * DSLIP(332) /-.3943600000E+01/ * DIP(332) / .1570796327E+00/ * DEPTH(332) / .3226600000E+05/ * WIDTH(332) / .5000000000E+05/ DATA STRIKE(333) / .1446877950E+01/ * HL(333) / .2897000000E+05/ * EQLAT(333) / .1063821812E+01/ * EQLON(333) / .2515349145E+01/ * SSLIP(333) /-.1381600000E+01/ * DSLIP(333) /-.4455500000E+01/ * DIP(333) / .1570796327E+00/ * DEPTH(333) / .3226600000E+05/ * WIDTH(333) / .5000000000E+05/ DATA STRIKE(334) / .8517206750E+00/ * HL(334) / .3193100000E+05/ * EQLAT(334) / .1050062858E+01/ * EQLON(334) / .2606683097E+01/ * SSLIP(334) / .4959000000E+00/ * DSLIP(334) /-.9483400000E+01/ * DIP(334) / .2094395102E+00/ * DEPTH(334) / .4008800000E+05/ * WIDTH(334) / .5000000000E+05/ DATA STRIKE(335) / .9564404301E+00/ * HL(335) / .3177000000E+05/ * EQLAT(335) / .1056287750E+01/ * EQLON(335) / .2591309714E+01/ * SSLIP(335) /-.1091000000E+01/ * DSLIP(335) /-.5017200000E+01/ * DIP(335) / .2094395102E+00/ * DEPTH(335) / .4008800000E+05/ * WIDTH(335) / .5000000000E+05/ DATA STRIKE(336) / .1062905514E+01/ * HL(336) / .3161000000E+05/ * EQLAT(336) / .1061615891E+01/ * EQLON(336) / .2574806753E+01/ * SSLIP(336) / .4420000000E+00/ * DSLIP(336) /-.1080910000E+02/ * DIP(336) / .2094395102E+00/ * DEPTH(336) / .4008800000E+05/ * WIDTH(336) / .6718700000E+05/ DATA STRIKE(337) / .1188569221E+01/ * HL(337) / .3143800000E+05/ * EQLAT(337) / .1066197380E+01/ * EQLON(337) / .2556233483E+01/ * SSLIP(337) /-.5380000000E+01/ * DSLIP(337) /-.5816300000E+01/ * DIP(337) / .2094395102E+00/ * DEPTH(337) / .4008800000E+05/ * WIDTH(337) / .5000000000E+05/ DATA STRIKE(338) / .1315978256E+01/ * HL(338) / .3130000000E+05/ * EQLAT(338) / .1069518392E+01/ * EQLON(338) / .2536806921E+01/ * SSLIP(338) /-.1587600000E+01/ * DSLIP(338) /-.9149000000E+00/ * DIP(338) / .2094395102E+00/ * DEPTH(338) / .4008800000E+05/ * WIDTH(338) / .5000000000E+05/ DATA STRIKE(339) / .1445132621E+01/ * HL(339) / .3121100000E+05/ * EQLAT(339) / .1071511035E+01/ * EQLON(339) / .2516822901E+01/ * SSLIP(339) /-.1638700000E+01/ * DSLIP(339) /-.5341700000E+01/ * DIP(339) / .2094395102E+00/ * DEPTH(339) / .4008800000E+05/ * WIDTH(339) / .5000000000E+05/ DATA STRIKE(340) / .6894050545E+00/ * HL(340) / .3000000000E+05/ * EQLAT(340) / .1043711780E+01/ * EQLON(340) / .2578733744E+01/ * SSLIP(340) /-.3708000000E+00/ * DSLIP(340) /-.8595200000E+01/ * DIP(340) / .1047197551E+01/ * DEPTH(340) / .8700000000E+02/ * WIDTH(340) / .2990000000E+05/ DATA EQLATR( 26) / .6031730486E+00/ * EQLONR( 26) / .2030199275E+01/ * EQRAD( 26) / .5000000000E+06/ * ITEQK( 26) / 74112480/ * NLOC( 26) / 341/ * NFP( 26) / 1/ DATA STRIKE(341) / .2617993878E+01/ * HL(341) / .2310000000E+05/ * EQLAT(341) / .6031730486E+00/ * EQLON(341) / .2030199275E+01/ * SSLIP(341) / .3010000000E+01/ * DSLIP(341) /-.1450000000E+01/ * DIP(341) / .1469567230E+01/ * DEPTH(341) / .0000000000E+00/ * WIDTH(341) / .8200000000E+04/ DATA NUMEQ / 26/ END