       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
