Download this file

***** File EPGIOTTO.DOC                                                                                                           
                                                                                                                                  
           GIOTTO EXPERIMENTER SUPPORT DATA.                                                                                      
                                                                                                                                  
I. Abstract:                                                                                                                      
                                                                                                                                  
A new experimenter support tape (EXSUP5) was made available to                                                                    
investigating teams and was provided for this disk by Trevor Morley.                                                              
The Giotto Ephemeris on that tape represented the most recent                                                                     
predicted orbit.   The Comet Halley orbit corresponded to the latest                                                              
ephemeris estimated in ESOC 17.03.86.                                                                                             
                                                                                                                                  
The documentation enclosed is adapted from the documentation                                                                      
for tape EXSUP5, which updated EXSUP4 with the following amendments:-                                                             
a detailed tape layout, a sample listing of part of the position data                                                             
file, and a sample of position/velocities.   In addition, for EXSUP5,                                                             
the subroutine PETRA, used to compute Kepler orbits at the home sites                                                             
of experimenters, was contained on the tape and is provided here                                                                  
as a source listing found in appendix A4.                                                                                         
                                                                                                                                  
                                                                                                                                  
II. Table of Contents:                                                                                                            
                                                                                                                                  
                                                                                                                                  
1.    Introduction.                                                                                                               
                                                                                                                                  
                                                                                                                                  
2.    Description of Tape EXSUP5.                                                                                                 
                                                                                                                                  
                                                                                                                                  
3.    The Position Data File.                                                                                                     
                                                                                                                                  
3.1   The Control Record.                                                                                                         
3.2   The Position Data Record.                                                                                                   
                                                                                                                                  
                                                                                                                                  
4.    The Interface/Auxiliary Software.                                                                                           
                                                                                                                                  
4.1   Subroutine GIODAT ( interface routine to the sequential                                                                     
      formatted Position Data File ).                                                                                             
4.2   Subroutine TRAVEL ( generation of experimenter support data ).                                                              
4.3   Subroutine PETRA ( compute Kepler Orbits ).                                                                                 
                                                                                                                                  
                                                                                                                                  
5.    Station Coordinates.                                                                                                        
                                                                                                                                  
5.1   General.                                                                                                                    
5.2   Table of Station Coordinates.                                                                                               
                                                                                                                                  
                                                                                                                                  
                                                                                                                                  
Appendix:                                                                                                                         
                                                                                                                                  
A1    The Position Data File                                                                                                      
A2    Source listing of subroutine GIODAT.                                                                                        
A3    Source listing of subroutine TRAVEL.                                                                                        
A4    Source listing of subroutine PETRA.                                                                                         
                                                                                                                                  
                                                                                                                                  
                                                                                                                                  
                                                                                                                                  
                                                                                                                                  
1.  Introduction.                                                                                                                 
                                                                                                                                  
In this document, the Position Data, the interface routine to this data                                                           
and the software for generation of experimenter support data, will                                                                
be described.                                                                                                                     
                                                                                                                                  
To ensure a safe 'transport' of the Position Data and to limit                                                                    
potential conversion problems between different computers it has been                                                             
decided to deliver this as a sequential access file containing                                                                    
formatted data.                                                                                                                   
                                                                                                                                  
In addition to this data file the following interface/auxiliary                                                                   
software can be found on the tape:-                                                                                               
                                                                                                                                  
Software for:-                                                                                                                    
                                                                                                                                  
    -  Acquisition of Position Data from the sequential file and                                                                  
       determination of the approximate velocities derived from                                                                   
       the position data.                                                                                                         
                                                                                                                                  
    -  Generation of Giotto experimenter support data ( signal                                                                    
       travel time,  etc. ).                                                                                                      
                                                                                                                                  
In order to reduce the processing time, the use of a binary direct                                                                
access file for the Position Data is recommended.                                                                                 
                                                                                                                                  
Software for generation of a direct access file from the                                                                          
formatted sequential file, and for acquisition of Position Data                                                                   
from this, is not included in this export package.                                                                                
                                                                                                                                  
                                                                                                                                  
Please note that the subroutine PETRA is now enclosed in this                                                                     
export package.  See section 4.3 and Appendix A4.                                                                                 
                                                                                                                                  
                                                                                                                                  
                                                                                                                                  
2. Description of tape EXSUP5                                                                                                     
                                                                                                                                  
Tape EXSUP5 is not described, since the Position data                                                                             
file and subroutine listings are included in the Appendices.                                                                      
                                                                                                                                  
                                                                                                                                  
                                                                                                                                  
3.  The Position Data File.                                                                                                       
                                                                                                                                  
In this section the data layout for the position data and control                                                                 
data for this will be described.                                                                                                  
                                                                                                                                  
                                                                                                                                  
3.1 The Control Record.                                                                                                           
                                                                                                                                  
The logical Control Record consists of two physical records                                                                       
each totaling 80 characters per line as shown below by :-                                                                         
                                                                                                                                  
                                                                                                                                  
Variable        Format        Description                                                                                         
                                                                                                                                  
--------------------------------------------------------                                                                          
IY              I5            Year in which the tape was                                                                          
      generated.                                                                                                               
MO              I5            Ditto for month.                                                                                    
                                                                                                                                  
DA              D16.10        Ditto for day.                                                                                      
                                                                                                                                  
NS              I5            Size of Position Record in                                                                          
                              characters.                                                                                         
NR              I5            Number of logical Position                                                                          
                              Records.                                                                                            
---------------------------------------------------------                                                                         
ET1             D16.10        Earliest Epoch - MJD ( E.T )                                                                        
                                                                                                                                  
ET2             D16.10        Latest Epoch - MJD ( E.T )                                                                          
                                                                                                                                  
SUTC            D16.10        MJD ( E.T ) at which UTC jumps.                                                                     
                                                                                                                                  
ETUTC1          D16.10        E.T - UTC before SUTC.                                                                              
                                                                                                                                  
ETUTC2          D16.10        E.T - UTC after SUTC.                                                                               
-----------------------------------------------------------                                                                       
                                                                                                                                  
Note:  SUTC and ETUTC2 are T.B.D at present.                                                                                      
       SUTC is preset to mjd 13230 ( after latest epoch on file ).                                                                
       ETUTC2 is preset to ETUTC1.                                                                                                
                                                                                                                                  
3.2 The Position Data Record.                                                                                                     
                                                                                                                                  
                                                                                                                                  
The logical Position Data Record consists of three physical                                                                       
records each totaling 80 characters.                                                                                              
                                                                                                                                  
Each logical Position Record is shown below by -:                                                                                 
                                                                                                                                  
                                                                                                                                  
Variable        Format        Description                                                                                         
------------------------------------------------------------------------                                                          
ET               D16.10       Epoch = MJD ( E.T )                                                                                 
                                                                                                                                  
PG(1)            D16.10       Component of position vector of the Giotto                                                          
      probe at ET.                                                                                                             
                                                                                                                                  
PG(2)            D16.10       Component of position vector of the Giotto                                                          
                              probe at ET.                                                                                        
                                                                                                                                  
PG(3)            D16.10       Component of position vector of the Giotto                                                          
                              probe at ET.                                                                                        
                                                                                                                                  
PH(1)            D16.10       Component of position vector of the Giotto                                                          
                              for Halley's comet.                                                                                 
------------------------------------------------------------------------                                                          
                                                                                                                                  
PH(2)            D16.10       Component of position vector of the Giotto                                                          
                              for Halley's comet.                                                                                 
                                                                                                                                  
PH(3)            D16.10       Component of position vector of the Giotto                                                          
                              for Halley's comet.                                                                                 
                                                                                                                                  
PE(1)            D16.10       Component of position vector of the Giotto                                                          
                              for Earth.                                                                                          
                                                                                                                                  
PE(2)            D16.10       Component of position vector of the Giotto                                                          
                              for Earth.                                                                                          
                                                                                                                                  
PE(3)            D16.10       Component of position vector of the Giotto                                                          
                              for Earth.                                                                                          
------------------------------------------------------------------------                                                          
                                                                                                                                  
PS(1)            D16.10       Component of position vector of the Giotto                                                          
                              for Sun.                                                                                            
                                                                                                                                  
PS(2)            D16.10       Component of position vector of the Giotto                                                          
                              for Sun.                                                                                            
                                                                                                                                  
PS(3)            D16.10       Component of position vector of the Giotto                                                          
                              for Sun.                                                                                            
------------------------------------------------------------------------                                                          
Note:  Reference frame:  M.E.S of 1950.                                                                                           
 Origin = solar system barycenter.                                                                                             
 Position units: km                                                                                                            
 Time units: days                                                                                                              
                                                                                                                                  
The Position Data File is stored in Appendix A1.                                                                                  
                                                                                                                                  
                                                                                                                                  
                                                                                                                                  
4.  Interface/Auxiliary Software.                                                                                                 
                                                                                                                                  
In this section the auxiliary software found on the tape                                                                          
will be described.                                                                                                                
                                                                                                                                  
                                                                                                                                  
4.1  Subroutine GIODAT ( interface routine to the sequential                                                                      
     formatted Position Data File).                                                                                               
                                                                                                                                  
Input variable:                                                                                                                   
                                                                                                                                  
TUTC :  Universal coordinated time since 1950.0 in days.                                                                          
                                                                                                                                  
                                                                                                                                  
Output variables:                                                                                                                 
                                                                                                                                  
PVG(1-3) : Position of the Giotto probe at time TUTC ( units: km ).                                                               
PVG(4-6) : Approximate velocity of the Giotto probe                                                                               
   at time TUTC ( units: km/s ).                                                                                                 
PVH(1-3) :                                                                                                                        
PVH(4-6) : Ditto for Halley's comet.                                                                                              
PVE(1-3) :                                                                                                                        
PVE(4-6) : Ditto for Earth.                                                                                                       
PVS(1-3) :                                                                                                                        
PVS(4-6) : Ditto for Sun.                                                                                                         
                                                                                                                                  
The positions will be acquired from the sequential file using                                                                     
quadratic interpolation.                                                                                                          
                                                                                                                                  
For the Position Records on the file a time step size was selected                                                                
which will give an accuracy better than 1 sigma-error limit.                                                                      
                                                                                                                                  
The approximate velocities are derived from the position data.                                                                    
                                                                                                                                  
A source listing of subroutine GIODAT can be seen in Appendix A2.                                                                 
                                                                                                                                  
                                                                                                                                  
                                                                                                                                  
                                                                                                                                  
4.2  Subroutine TRAVEL ( generation of Experimenter Support Data ).                                                               
                                                                                                                                  
Subroutine TRAVEL provides the signal travel time between a                                                                       
station of Earth and the Giotto S/C as well as position of                                                                        
station and S/C at the times of signal reception and transmission.                                                                
                                                                                                                                  
The states of the Giotto S/C, the Earth and the sun are acquired                                                                  
from the formatted Position Data File on unit 7 ( described in                                                                    
section 3 ) via subroutine GIODAT (described in section 4.1 ).                                                                    
                                                                                                                                  
The station coordinates are computed without precession. Thus an                                                                  
accuracy of approx. 1 msec for the travel times computed can be                                                                   
expected.                                                                                                                         
                                                                                                                                  
                                                                                                                                  
Input variables:                                                                                                                  
                                                                                                                                  
TUTC  : Signal reception time ( Universal Coordinated Time since                                                                  
        1950.0 in days ).                                                                                                         
                                                                                                                                  
S(3)  : Cartesian Coordinates of station in the body fixed system                                                                 
        at Epoch TUTC ( units: km ).                                                                                              
                                                                                                                                  
                                                                                                                                  
Output variables:                                                                                                                 
                                                                                                                                  
DTG   : Signal travel time ( sec ) Giotto S/C - Station                                                                           
                                                                                                                                  
P(1-3): Position of station at TUTC in Heliocentric EME50 ( units: km ).                                                          
                                                                                                                                  
G(1-3): Ditto for the Giotto S/C at TUTC-DTG.                                                                                     
                                                                                                                                  
                                                                                                                                  
                                                                                                                                  
See Appendix A3 for a source listing of subroutine TRAVEL.                                                                        
                                                                                                                                  
                                                                                                                                  
                                                                                                                                  
                                                                                                                                  
4.3  Subroutine PETRA ( computing of Kepler Orbits ).                                                                             
                                                                                                                                  
About one day prior to the encounter, position and velocity data                                                                  
for the relevant bodies as well as misc. data, was sent to                                                                        
the experimenters.                                                                                                                
                                                                                                                                  
Subroutine PETRA can be used to compute a Kepler orbit, thus                                                                      
obtaining position/velocities at the Encounter Epoch.                                                                             
                                                                                                                                  
See Appendix A4 for a source listing.                                                                                             
                                                                                                                                  
                                                                                                                                  
                                                                                                                                  
5.  The Station Coordinates.                                                                                                      
                                                                                                                                  
In this section some general comments on station coordinates                                                                      
will be given as well as a table of coordinates for stations                                                                      
relevant to the Giotto mission.                                                                                                   
                                                                                                                                  
                                                                                                                                  
5.1  General.                                                                                                                     
                                                                                                                                  
Section 5.2 contains a table with the coordinates of some                                                                         
stations that are involved in the Giotto mission.                                                                                 
These coordinates are needed in the computation of the signal                                                                     
travel times between the Giotto S/C and the station ( see                                                                         
also subroutine TRAVEL ).                                                                                                         
The coordinates are Cartesian position vectors ( X,Y,Z ) in                                                                       
the Body Fixed System.                                                                                                            
The X-Y plane of this system is the equatorial plane of                                                                           
the Earth with the X-axis going through the Greenwich                                                                             
Meridian.                                                                                                                         
                                                                                                                                  
                                                                                                                                  
5.2  Table of Station Coordinates.                                                                                                
                                                                                                                                  
                                                                                                                                  
                                                                                                                                  
Station name        X ( km )         Y ( km )         Z ( km )                                                                    
                                                                                                                                  
                                                                                                                                  
Carnarvon           -2328             5302             -2666                                                                      
                                                                                                                                  
Tidbinbilla         -4461             2682             -3675                                                                      
                                                                                                                                  
Madrid               4847             -370              4117                                                                      
                                                                                                                                  
Goldstone           -2350            -4652              3666                                                                      
                                                                                                                                  
                                                                                                                                  
                                                                                                                                  
**********************************************************************                                                            
Note added to explanation:                                                                                                        
                                                                                                                                  
The orbital data applicable to P/Halley encounter were set up using                                                               
exactly the same ESOC orbit files as were used at the time for                                                                    
providing the data tapes to the experimenters. However, for your                                                                  
purposes, I have increased the number of steps per day (to 27) and                                                                
restricted the interval to 5 - 17 March. So that there is no                                                                      
misunderstanding concerning our definition of MJD:                                                                                
              14 March 1986 = MJD 13221.                                                                                          
   Logically speaking, the data set consists of one header record and                                                             
325 data records. The total number of physical records is thus 977,                                                               
each 80 bytes long.                                                                                                               
                                                                                                                                  
   Use of the interpolation routine GIODAT will result in small                                                                   
differences compared with the data on the original ESOC files. I have                                                             
tested this over the interval and find the average differences to be                                                              
7 km for both the spacecraft and the Earth, 10 km for the comet and                                                               
only 3 m for the Sun. Around the time of closest approach, because of                                                             
the way the ESOC files were set up, these differences are much smaller                                                            
than the average, being only a fraction of a km (negligible for the Sun).                                                         
                                                                                                                                  
   To give you a better idea of the accuracy of the data, they are                                                                
consistent with a time of closest approach of 1986/03/14 00:02:59.5 UTC                                                           
and a miss distance of 629 km. (In March 1986 we did some detailed                                                                
analysis, not reflected by the data on the orbit files, and made a best                                                           
estimate of 1986/03/14 00:03:00.4 UTC +/- 2 s (1-sigma) and                                                                       
610 km +/- 40 km (1-sigma)). According to W. Curdt et al. in A & A 191,                                                           
L1-L3, 1998, using the HMC data the best estimates are                                                                            
1986/03/14 00:03:01.84 UTC +/- 0.2 s and 596 km +/- 2 km.                                                                         
                                                                                                                                  
Trevor Morley                                                                                                                     
ESOC                                                                                                                              
*************************************************************************                                                         
                            Appendix A1                                                                                           
                                                                                                                                  
                       The Position Data File                                                                                     
                                                                                                                                  
 1992    40.3000000000D+01  208  325                                                                                              
0.1321200000D+050.1322400000D+050.1323000000D+050.6387037038D-030.6387037038D-03                                                  
0.1321200000D+05-.9601636683D+08-.7906490418D+08-.3867273476D+08-.4678284441D+08                                                  
-.9843252167D+08-.3689730827D+08-.1427640334D+090.3939800010D+080.1707778408D+08                                                  
-.4190252668D+060.1003521211D+070.4287756995D+06                                                                                  
0.1321203704D+05-.9596091678D+08-.7914441085D+08-.3870579532D+08-.4692866173D+08                                                  
-.9843528587D+08-.3693827435D+08-.1427925150D+090.3931374281D+080.1704125398D+08                                                  
-.4190536459D+060.1003491221D+070.4287636026D+06                                                                                  
0.1321207407D+05-.9590541005D+08-.7922391260D+08-.3873873515D+08-.4707443852D+08                                                  
-.9843796341D+08-.3697920787D+08-.1428209374D+090.3922946927D+080.1700471679D+08                                                  
-.4190820230D+060.1003461230D+070.4287515053D+06                                                                                  
0.1321211111D+05-.9584984160D+08-.7930336248D+08-.3877164966D+08-.4722017473D+08                                                  
-.9844055446D+08-.3702010885D+08-.1428493005D+090.3914517951D+080.1696817254D+08                                                  
-.4191103982D+060.1003431238D+070.4287394074D+06                                                                                  
0.1321214815D+05-.9579421511D+08-.7938276353D+08-.3880454033D+08-.4736587030D+08                                                  
-.9844305918D+08-.3706097732D+08-.1428776043D+090.3906087355D+080.1693162124D+08                                                  
-.4191387713D+060.1003401246D+070.4287273091D+06                                                                                  
0.1321218519D+05-.9573853065D+08-.7946211570D+08-.3883740715D+08-.4751152520D+08                                                  
-.9844547774D+08-.3710181331D+08-.1429058489D+090.3897655145D+080.1689506291D+08                                                  
-.4191671425D+060.1003371252D+070.4287152103D+06                                                                                  
0.1321222222D+05-.9568278827D+08-.7954141898D+08-.3887025011D+08-.4765713937D+08                                                  
-.9844781029D+08-.3714261684D+08-.1429340341D+090.3889221323D+080.1685849755D+08                                                  
-.4191955118D+060.1003341257D+070.4287031110D+06                                                                                  
0.1321225926D+05-.9562698803D+08-.7962067334D+08-.3890306921D+08-.4780271276D+08                                                  
-.9845005700D+08-.3718338795D+08-.1429621600D+090.3880785893D+080.1682192519D+08                                                  
-.4192238790D+060.1003311261D+070.4286910112D+06                                                                                  
0.1321229630D+05-.9557112998D+08-.7969987875D+08-.3893586442D+08-.4794824533D+08                                                  
-.9845221802D+08-.3722412665D+08-.1429902265D+090.3872348859D+080.1678534584D+08                                                  
-.4192522444D+060.1003281264D+070.4286789109D+06                                                                                  
0.1321233333D+05-.9551521419D+08-.7977903518D+08-.3896863574D+08-.4809373702D+08                                                  
-.9845429354D+08-.3726483297D+08-.1430182337D+090.3863910224D+080.1674875951D+08                                                  
-.4192806077D+060.1003251266D+070.4286668102D+06                                                                                  
0.1321237037D+05-.9545924072D+08-.7985814261D+08-.3900138317D+08-.4823918781D+08                                                  
-.9845628369D+08-.3730550694D+08-.1430461815D+090.3855469992D+080.1671216623D+08                                                  
-.4193089691D+060.1003221267D+070.4286547090D+06                                                                                  
0.1321240741D+05-.9540320961D+08-.7993720101D+08-.3903410668D+08-.4838459762D+08                                                  
-.9845818865D+08-.3734614860D+08-.1430740699D+090.3847028167D+080.1667556601D+08                                                  
-.4193373285D+060.1003191267D+070.4286426073D+06                                                                                  
0.1321244444D+05-.9534712093D+08-.8001621035D+08-.3906680628D+08-.4852996643D+08                                                  
-.9846000858D+08-.3738675796D+08-.1431018990D+090.3838584752D+080.1663895886D+08                                                  
-.4193656859D+060.1003161266D+070.4286305050D+06                                                                                  
0.1321248148D+05-.9529097473D+08-.8009517061D+08-.3909948195D+08-.4867529418D+08                                                  
-.9846174364D+08-.3742733505D+08-.1431296686D+090.3830139750D+080.1660234479D+08                                                  
-.4193940414D+060.1003131264D+070.4286184024D+06                                                                                  
0.1321251852D+05-.9523477108D+08-.8017408175D+08-.3913213368D+08-.4882058084D+08                                                  
-.9846339398D+08-.3746787989D+08-.1431573789D+090.3821693166D+080.1656572384D+08                                                  
-.4194223950D+060.1003101261D+070.4286062992D+06                                                                                  
0.1321255556D+05-.9517851003D+08-.8025294375D+08-.3916476146D+08-.4896582634D+08                                                  
-.9846495978D+08-.3750839253D+08-.1431850297D+090.3813245003D+080.1652909600D+08                                                  
-.4194507465D+060.1003071257D+070.4285941955D+06                                                                                  
0.1321259259D+05-.9512219163D+08-.8033175659D+08-.3919736529D+08-.4911103066D+08                                                  
-.9846644118D+08-.3754887298D+08-.1432126210D+090.3804795264D+080.1649246130D+08                                                  
-.4194790961D+060.1003041252D+070.4285820914D+06                                                                                  
0.1321262963D+05-.9506581596D+08-.8041052023D+08-.3922994514D+08-.4925619375D+08                                                  
-.9846783836D+08-.3758932127D+08-.1432401529D+090.3796343954D+080.1645581974D+08                                                  
-.4195074437D+060.1003011246D+070.4285699868D+06                                                                                  
0.1321266667D+05-.9500938305D+08-.8048923465D+08-.3926250102D+08-.4940131555D+08                                                  
-.9846915146D+08-.3762973743D+08-.1432676253D+090.3787891075D+080.1641917136D+08                                                  
-.4195357894D+060.1002981239D+070.4285578817D+06                                                                                  
0.1321270370D+05-.9495289298D+08-.8056789982D+08-.3929503292D+08-.4954639604D+08                                                  
-.9847038066D+08-.3767012149D+08-.1432950382D+090.3779436632D+080.1638251616D+08                                                  
-.4195641331D+060.1002951231D+070.4285457761D+06                                                                                  
0.1321274074D+05-.9489634580D+08-.8064651571D+08-.3932754081D+08-.4969143516D+08                                                  
-.9847152610D+08-.3771047347D+08-.1433223917D+090.3770980629D+080.1634585416D+08                                                  
-.4195924749D+060.1002921222D+070.4285336700D+06                                                                                  
0.1321277778D+05-.9483974156D+08-.8072508230D+08-.3936002470D+08-.4983643287D+08                                                  
-.9847258795D+08-.3775079339D+08-.1433496856D+090.3762523068D+080.1630918537D+08                                                  
-.4196208147D+060.1002891212D+070.4285215635D+06                                                                                  
0.1321281481D+05-.9478308033D+08-.8080359956D+08-.3939248458D+08-.4998138913D+08                                                  
-.9847356637D+08-.3779108130D+08-.1433769200D+090.3754063953D+080.1627250981D+08                                                  
-.4196491525D+060.1002861201D+070.4285094564D+06                                                                                  
0.1321285185D+05-.9472636216D+08-.8088206746D+08-.3942492042D+08-.5012630390D+08                                                  
-.9847446151D+08-.3783133721D+08-.1434040949D+090.3745603289D+080.1623582749D+08                                                  
-.4196774884D+060.1002831188D+070.4284973489D+06                                                                                  
0.1321288889D+05-.9466958712D+08-.8096048597D+08-.3945733223D+08-.5027117714D+08                                                  
-.9847527354D+08-.3787156116D+08-.1434312102D+090.3737141078D+080.1619913844D+08                                                  
-.4197058223D+060.1002801175D+070.4284852409D+06                                                                                  
0.1321292593D+05-.9461275525D+08-.8103885507D+08-.3948972000D+08-.5041600881D+08                                                  
-.9847600261D+08-.3791175317D+08-.1434582660D+090.3728677325D+080.1616244266D+08                                                  
-.4197341542D+060.1002771161D+070.4284731324D+06                                                                                  
0.1321296296D+05-.9455586661D+08-.8111717473D+08-.3952208371D+08-.5056079885D+08                                                  
-.9847664889D+08-.3795191326D+08-.1434852622D+090.3720212033D+080.1612574018D+08                                                  
-.4197624842D+060.1002741146D+070.4284610234D+06                                                                                  
0.1321300000D+05-.9449892127D+08-.8119544493D+08-.3955442336D+08-.5070554725D+08                                                  
-.9847721251D+08-.3799204147D+08-.1435121988D+090.3711745206D+080.1608903101D+08                                                  
-.4197908122D+060.1002711129D+070.4284489140D+06                                                                                  
0.1321303704D+05-.9444191928D+08-.8127366563D+08-.3958673892D+08-.5085025394D+08                                                  
-.9847769366D+08-.3803213783D+08-.1435390758D+090.3703276847D+080.1605231516D+08                                                  
-.4198191383D+060.1002681112D+070.4284368040D+06                                                                                  
0.1321307407D+05-.9438486074D+08-.8135183679D+08-.3961903039D+08-.5099491890D+08                                                  
-.9847809248D+08-.3807220235D+08-.1435658932D+090.3694806960D+080.1601559265D+08                                                  
-.4198474624D+060.1002651094D+070.4284246936D+06                                                                                  
0.1321311111D+05-.9432774568D+08-.8142995839D+08-.3965129776D+08-.5113954208D+08                                                  
-.9847840913D+08-.3811223508D+08-.1435926510D+090.3686335548D+080.1597886350D+08                                                  
-.4198757845D+060.1002621075D+070.4284125827D+06                                                                                  
0.1321314815D+05-.9427057414D+08-.8150803041D+08-.3968354102D+08-.5128412344D+08                                                  
-.9847864376D+08-.3815223603D+08-.1436193491D+090.3677862617D+080.1594212771D+08                                                  
-.4199041047D+060.1002591054D+070.4284004713D+06                                                                                  
0.1321318519D+05-.9421334618D+08-.8158605284D+08-.3971576017D+08-.5142866295D+08                                                  
-.9847879654D+08-.3819220523D+08-.1436459876D+090.3669388168D+080.1590538532D+08                                                  
-.4199324229D+060.1002561033D+070.4283883594D+06                                                                                  
0.1321322222D+05-.9415606186D+08-.8166402563D+08-.3974795519D+08-.5157316057D+08                                                  
-.9847886762D+08-.3823214272D+08-.1436725665D+090.3660912206D+080.1586863633D+08                                                  
-.4199607392D+060.1002531010D+070.4283762471D+06                                                                                  
0.1321325926D+05-.9409872124D+08-.8174194877D+08-.3978012608D+08-.5171761625D+08                                                  
-.9847885716D+08-.3827204852D+08-.1436990856D+090.3652434734D+080.1583188076D+08                                                  
-.4199890535D+060.1002500987D+070.4283641342D+06                                                                                  
0.1321329630D+05-.9404132437D+08-.8181982222D+08-.3981227283D+08-.5186202996D+08                                                  
-.9847876530D+08-.3831192266D+08-.1437255451D+090.3643955757D+080.1579511863D+08                                                  
-.4200173658D+060.1002470963D+070.4283520209D+06                                                                                  
0.1321333333D+05-.9398387132D+08-.8189764597D+08-.3984439543D+08-.5200640167D+08                                                  
-.9847859222D+08-.3835176516D+08-.1437519449D+090.3635475277D+080.1575834994D+08                                                  
-.4200456762D+060.1002440937D+070.4283399071D+06                                                                                  
0.1321337037D+05-.9392636213D+08-.8197541999D+08-.3987649387D+08-.5215073133D+08                                                  
-.9847833806D+08-.3839157606D+08-.1437782850D+090.3626993299D+080.1572157473D+08                                                  
-.4200739847D+060.1002410911D+070.4283277928D+06                                                                                  
0.1321340741D+05-.9386879687D+08-.8205314425D+08-.3990856814D+08-.5229501891D+08                                                  
-.9847800297D+08-.3843135538D+08-.1438045654D+090.3618509826D+080.1568479300D+08                                                  
-.4201022912D+060.1002380883D+070.4283156780D+06                                                                                  
0.1321344444D+05-.9381117559D+08-.8213081872D+08-.3994061824D+08-.5243926437D+08                                                  
-.9847758712D+08-.3847110315D+08-.1438307860D+090.3610024862D+080.1564800477D+08                                                  
-.4201305957D+060.1002350855D+070.4283035628D+06                                                                                  
0.1321348148D+05-.9375349836D+08-.8220844339D+08-.3997264414D+08-.5258346767D+08                                                  
-.9847709066D+08-.3851081940D+08-.1438569469D+090.3601538411D+080.1561121005D+08                                                  
-.4201588982D+060.1002320825D+070.4282914470D+06                                                                                  
0.1321351852D+05-.9369576522D+08-.8228601822D+08-.4000464585D+08-.5272762878D+08                                                  
-.9847651373D+08-.3855050416D+08-.1438830480D+090.3593050475D+080.1557440886D+08                                                  
-.4201871988D+060.1002290795D+070.4282793308D+06                                                                                  
0.1321355556D+05-.9363797624D+08-.8236354319D+08-.4003662335D+08-.5287174767D+08                                                  
-.9847585651D+08-.3859015745D+08-.1439090894D+090.3584561060D+080.1553760123D+08                                                  
-.4202154975D+060.1002260763D+070.4282672141D+06                                                                                  
0.1321359259D+05-.9358013147D+08-.8244101827D+08-.4006857664D+08-.5301582429D+08                                                  
-.9847511913D+08-.3862977930D+08-.1439350710D+090.3576070168D+080.1550078715D+08                                                  
-.4202437942D+060.1002230731D+070.4282550969D+06                                                                                  
0.1321362963D+05-.9352223098D+08-.8251844343D+08-.4010050571D+08-.5315985862D+08                                                  
-.9847430176D+08-.3866936975D+08-.1439609928D+090.3567577804D+080.1546396666D+08                                                  
-.4202720889D+060.1002200697D+070.4282429792D+06                                                                                  
0.1321366667D+05-.9346427481D+08-.8259581866D+08-.4013241054D+08-.5330385061D+08                                                  
-.9847340455D+08-.3870892881D+08-.1439868548D+090.3559083971D+080.1542713976D+08                                                  
-.4203003817D+060.1002170663D+070.4282308610D+06                                                                                  
0.1321370370D+05-.9340626303D+08-.8267314393D+08-.4016429113D+08-.5344780023D+08                                                  
-.9847242764D+08-.3874845652D+08-.1440126569D+090.3550588673D+080.1539030647D+08                                                  
-.4203286725D+060.1002140627D+070.4282187424D+06                                                                                  
0.1321374074D+05-.9334819569D+08-.8275041920D+08-.4019614746D+08-.5359170746D+08                                                  
-.9847137120D+08-.3878795291D+08-.1440383993D+090.3542091913D+080.1535346682D+08                                                  
-.4203569614D+060.1002110590D+070.4282066233D+06                                                                                  
0.1321377778D+05-.9329007285D+08-.8282764446D+08-.4022797954D+08-.5373557225D+08                                                  
-.9847023538D+08-.3882741800D+08-.1440640818D+090.3533593695D+080.1531662080D+08                                                  
-.4203852483D+060.1002080553D+070.4281945036D+06                                                                                  
0.1321381481D+05-.9323189457D+08-.8290481968D+08-.4025978735D+08-.5387939457D+08                                                  
-.9846902033D+08-.3886685182D+08-.1440897045D+090.3525094023D+080.1527976845D+08                                                  
-.4204135333D+060.1002050514D+070.4281823835D+06                                                                                  
0.1321385185D+05-.9317366091D+08-.8298194482D+08-.4029157088D+08-.5402317439D+08                                                  
-.9846772619D+08-.3890625441D+08-.1441152673D+090.3516592901D+080.1524290977D+08                                                  
-.4204418163D+060.1002020474D+070.4281702630D+06                                                                                  
0.1321388889D+05-.9311537192D+08-.8305901988D+08-.4032333012D+08-.5416691167D+08                                                  
-.9846635313D+08-.3894562578D+08-.1441407702D+090.3508090333D+080.1520604478D+08                                                  
-.4204700973D+060.1001990434D+070.4281581419D+06                                                                                  
0.1321392593D+05-.9305702766D+08-.8313604481D+08-.4035506506D+08-.5431060639D+08                                                  
-.9846490130D+08-.3898496597D+08-.1441662133D+090.3499586321D+080.1516917350D+08                                                  
-.4204983764D+060.1001960392D+070.4281460204D+06                                                                                  
0.1321396296D+05-.9299862819D+08-.8321301960D+08-.4038677570D+08-.5445425850D+08                                                  
-.9846337084D+08-.3902427501D+08-.1441915964D+090.3491080871D+080.1513229595D+08                                                  
-.4205266536D+060.1001930349D+070.4281338983D+06                                                                                  
0.1321400000D+05-.9294017356D+08-.8328994422D+08-.4041846202D+08-.5459786799D+08                                                  
-.9846176191D+08-.3906355292D+08-.1442169196D+090.3482573984D+080.1509541214D+08                                                  
-.4205549288D+060.1001900305D+070.4281217758D+06                                                                                  
0.1321403704D+05-.9288166384D+08-.8336681865D+08-.4045012402D+08-.5474143481D+08                                                  
-.9846007465D+08-.3910279974D+08-.1442421830D+090.3474065667D+080.1505852209D+08                                                  
-.4205832020D+060.1001870261D+070.4281096528D+06                                                                                  
0.1321407407D+05-.9282309913D+08-.8344364283D+08-.4048176166D+08-.5488495893D+08                                                  
-.9845830923D+08-.3914201548D+08-.1442673864D+090.3465555921D+080.1502162581D+08                                                  
-.4206114733D+060.1001840215D+070.4280975293D+06                                                                                  
0.1321411111D+05-.9276447943D+08-.8352041675D+08-.4051337496D+08-.5502844033D+08                                                  
-.9845646579D+08-.3918120019D+08-.1442925298D+090.3457044751D+080.1498472331D+08                                                  
-.4206397426D+060.1001810168D+070.4280854054D+06                                                                                  
0.1321414815D+05-.9270580482D+08-.8359714040D+08-.4054496390D+08-.5517187898D+08                                                  
-.9845454448D+08-.3922035388D+08-.1443176133D+090.3448532161D+080.1494781463D+08                                                  
-.4206680100D+060.1001780120D+070.4280732809D+06                                                                                  
0.1321418519D+05-.9264707534D+08-.8367381376D+08-.4057652849D+08-.5531527483D+08                                                  
-.9845254544D+08-.3925947659D+08-.1443426368D+090.3440018153D+080.1491089977D+08                                                  
-.4206962754D+060.1001750071D+070.4280611560D+06                                                                                  
0.1321422222D+05-.9258829104D+08-.8375043678D+08-.4060806870D+08-.5545862787D+08                                                  
-.9845046884D+08-.3929856835D+08-.1443676004D+090.3431502733D+080.1487397874D+08                                                  
-.4207245389D+060.1001720021D+070.4280490306D+06                                                                                  
0.1321425926D+05-.9252945200D+08-.8382700946D+08-.4063958454D+08-.5560193806D+08                                                  
-.9844831482D+08-.3933762918D+08-.1443925040D+090.3422985904D+080.1483705157D+08                                                  
-.4207528004D+060.1001689970D+070.4280369047D+06                                                                                  
0.1321429630D+05-.9247055826D+08-.8390353177D+08-.4067107598D+08-.5574520538D+08                                                  
-.9844608353D+08-.3937665912D+08-.1444173476D+090.3414467669D+080.1480011827D+08                                                  
-.4207810600D+060.1001659919D+070.4280247783D+06                                                                                  
0.1321433333D+05-.9241160988D+08-.8398000368D+08-.4070254304D+08-.5588842979D+08                                                  
-.9844377511D+08-.3941565818D+08-.1444421311D+090.3405948032D+080.1476317886D+08                                                  
-.4208093176D+060.1001629866D+070.4280126514D+06                                                                                  
0.1321437037D+05-.9235260692D+08-.8405642516D+08-.4073398569D+08-.5603161126D+08                                                  
-.9844138973D+08-.3945462641D+08-.1444668547D+090.3397426998D+080.1472623335D+08                                                  
-.4208375732D+060.1001599812D+070.4280005240D+06                                                                                  
0.1321440741D+05-.9229354943D+08-.8413279620D+08-.4076540393D+08-.5617474977D+08                                                  
-.9843892752D+08-.3949356383D+08-.1444915182D+090.3388904569D+080.1468928176D+08                                                  
-.4208658270D+060.1001569757D+070.4279883962D+06                                                                                  
0.1321444444D+05-.9223443748D+08-.8420911677D+08-.4079679775D+08-.5631784528D+08                                                  
-.9843638863D+08-.3953247046D+08-.1445161217D+090.3380380750D+080.1465232411D+08                                                  
-.4208940787D+060.1001539701D+070.4279762679D+06                                                                                  
0.1321448148D+05-.9217527111D+08-.8428538685D+08-.4082816713D+08-.5646089778D+08                                                  
-.9843377321D+08-.3957134634D+08-.1445406651D+090.3371855544D+080.1461536041D+08                                                  
-.4209223285D+060.1001509644D+070.4279641391D+06                                                                                  
0.1321451852D+05-.9211605040D+08-.8436160641D+08-.4085951208D+08-.5660390723D+08                                                  
-.9843108142D+08-.3961019150D+08-.1445651485D+090.3363328955D+080.1457839068D+08                                                  
-.4209505764D+060.1001479586D+070.4279520098D+06                                                                                  
0.1321455556D+05-.9205677538D+08-.8443777542D+08-.4089083259D+08-.5674687360D+08                                                  
-.9842831339D+08-.3964900595D+08-.1445895718D+090.3354800986D+080.1454141493D+08                                                  
-.4209788223D+060.1001449527D+070.4279398800D+06                                                                                  
0.1321459259D+05-.9199744613D+08-.8451389387D+08-.4092212864D+08-.5688979686D+08                                                  
-.9842546928D+08-.3968778975D+08-.1446139350D+090.3346271643D+080.1450443319D+08                                                  
-.4210070662D+060.1001419467D+070.4279277498D+06                                                                                  
0.1321462963D+05-.9193806270D+08-.8458996172D+08-.4095340022D+08-.5703267700D+08                                                  
-.9842254923D+08-.3972654290D+08-.1446382381D+090.3337740928D+080.1446744546D+08                                                  
-.4210353083D+060.1001389405D+070.4279156190D+06                                                                                  
0.1321466667D+05-.9187862515D+08-.8466597896D+08-.4098464734D+08-.5717551398D+08                                                  
-.9841955339D+08-.3976526544D+08-.1446624811D+090.3329208844D+080.1443045177D+08                                                  
-.4210635483D+060.1001359343D+070.4279034878D+06                                                                                  
0.1321470370D+05-.9181913352D+08-.8474194556D+08-.4101586997D+08-.5731830778D+08                                                  
-.9841648191D+08-.3980395741D+08-.1446866640D+090.3320675397D+080.1439345213D+08                                                  
-.4210917864D+060.1001329280D+070.4278913561D+06                                                                                  
0.1321474074D+05-.9175958789D+08-.8481786149D+08-.4104706812D+08-.5746105836D+08                                                  
-.9841333493D+08-.3984261882D+08-.1447107868D+090.3312140589D+080.1435644656D+08                                                  
-.4211200226D+060.1001299216D+070.4278792239D+06                                                                                  
0.1321477778D+05-.9169998830D+08-.8489372673D+08-.4107824177D+08-.5760376571D+08                                                  
-.9841011260D+08-.3988124971D+08-.1447348494D+090.3303604425D+080.1431943507D+08                                                  
-.4211482568D+060.1001269151D+070.4278670912D+06                                                                                  
0.1321481481D+05-.9164033482D+08-.8496954126D+08-.4110939091D+08-.5774642980D+08                                                  
-.9840681506D+08-.3991985010D+08-.1447588519D+090.3295066908D+080.1428241768D+08                                                  
-.4211764890D+060.1001239085D+070.4278549581D+06                                                                                  
0.1321485185D+05-.9158062750D+08-.8504530505D+08-.4114051554D+08-.5788905060D+08                                                  
-.9840344246D+08-.3995842003D+08-.1447827942D+090.3286528042D+080.1424539441D+08                                                  
-.4212047193D+060.1001209018D+070.4278428244D+06                                                                                  
0.1321488889D+05-.9152086639D+08-.8512101808D+08-.4117161564D+08-.5803162809D+08                                                  
-.9839999495D+08-.3999695952D+08-.1448066764D+090.3277987831D+080.1420836527D+08                                                  
-.4212329477D+060.1001178949D+070.4278306903D+06                                                                                  
0.1321492593D+05-.9146105157D+08-.8519668033D+08-.4120269121D+08-.5817416224D+08                                                  
-.9839647267D+08-.4003546861D+08-.1448304984D+090.3269446278D+080.1417133028D+08                                                  
-.4212611741D+060.1001148880D+070.4278185557D+06                                                                                  
0.1321496296D+05-.9140118307D+08-.8527229176D+08-.4123374225D+08-.5831665304D+08                                                  
-.9839287576D+08-.4007394731D+08-.1448542602D+090.3260903388D+080.1413428946D+08                                                  
-.4212893986D+060.1001118810D+070.4278064206D+06                                                                                  
0.1321500000D+05-.9134126097D+08-.8534785235D+08-.4126476873D+08-.5845910044D+08                                                  
-.9838920438D+08-.4011239567D+08-.1448779618D+090.3252359164D+080.1409724282D+08                                                  
-.4213176211D+060.1001088739D+070.4277942850D+06                                                                                  
0.1321503704D+05-.9128128531D+08-.8542336209D+08-.4129577066D+08-.5860150444D+08                                                  
-.9838545866D+08-.4015081371D+08-.1449016032D+090.3243813610D+080.1406019037D+08                                                  
-.4213458416D+060.1001058666D+070.4277821490D+06                                                                                  
0.1321507407D+05-.9122125620D+08-.8549882092D+08-.4132674800D+08-.5874386500D+08                                                  
-.9838163874D+08-.4018920145D+08-.1449251844D+090.3235266729D+080.1402313215D+08                                                  
-.4213740603D+060.1001028593D+070.4277700124D+06                                                                                  
0.1321511111D+05-.9116117367D+08-.8557422884D+08-.4135770077D+08-.5888618211D+08                                                  
-.9837774479D+08-.4022755894D+08-.1449487053D+090.3226718526D+080.1398606816D+08                                                  
-.4214022769D+060.1000998519D+070.4277578754D+06                                                                                  
0.1321514815D+05-.9110103775D+08-.8564958582D+08-.4138862895D+08-.5902845574D+08                                                  
-.9837377692D+08-.4026588619D+08-.1449721660D+090.3218169004D+080.1394899841D+08                                                  
-.4214304917D+060.1000968443D+070.4277457379D+06                                                                                  
0.1321518519D+05-.9104084850D+08-.8572489185D+08-.4141953254D+08-.5917068586D+08                                                  
-.9836973530D+08-.4030418323D+08-.1449955665D+090.3209618168D+080.1391192293D+08                                                  
-.4214587044D+060.1000938367D+070.4277335999D+06                                                                                  
0.1321522222D+05-.9098060599D+08-.8580014689D+08-.4145041153D+08-.5931287246D+08                                                  
-.9836562006D+08-.4034245010D+08-.1450189067D+090.3201066020D+080.1387484174D+08                                                  
-.4214869152D+060.1000908290D+070.4277214614D+06                                                                                  
0.1321525926D+05-.9092031027D+08-.8587535094D+08-.4148126591D+08-.5945501552D+08                                                  
-.9836143135D+08-.4038068683D+08-.1450421866D+090.3192512565D+080.1383775484D+08                                                  
-.4215151241D+060.1000878211D+070.4277093225D+06                                                                                  
0.1321529630D+05-.9085996140D+08-.8595050395D+08-.4151209568D+08-.5959711500D+08                                                  
-.9835716931D+08-.4041889344D+08-.1450654063D+090.3183957806D+080.1380066225D+08                                                  
-.4215433311D+060.1000848132D+070.4276971830D+06                                                                                  
0.1321533333D+05-.9079955943D+08-.8602560592D+08-.4154290083D+08-.5973917089D+08                                                  
-.9835283408D+08-.4045706996D+08-.1450885656D+090.3175401747D+080.1376356400D+08                                                  
-.4215715360D+060.1000818051D+070.4276850431D+06                                                                                  
0.1321537037D+05-.9073910441D+08-.8610065682D+08-.4157368134D+08-.5988118316D+08                                                  
-.9834842580D+08-.4049521642D+08-.1451116647D+090.3166844393D+080.1372646010D+08                                                  
-.4215997391D+060.1000787970D+070.4276729027D+06                                                                                  
0.1321540741D+05-.9067859642D+08-.8617565662D+08-.4160443722D+08-.6002315181D+08                                                  
-.9834394462D+08-.4053333285D+08-.1451347035D+090.3158285747D+080.1368935056D+08                                                  
-.4216279402D+060.1000757887D+070.4276607618D+06                                                                                  
0.1321544444D+05-.9061803550D+08-.8625060530D+08-.4163516845D+08-.6016507679D+08                                                  
-.9833939068D+08-.4057141928D+08-.1451576819D+090.3149725812D+080.1365223540D+08                                                  
-.4216561393D+060.1000727804D+070.4276486204D+06                                                                                  
0.1321548148D+05-.9055742170D+08-.8632550284D+08-.4166587503D+08-.6030695810D+08                                                  
-.9833476411D+08-.4060947574D+08-.1451806000D+090.3141164593D+080.1361511465D+08                                                  
-.4216843365D+060.1000697719D+070.4276364785D+06                                                                                  
0.1321551852D+05-.9049675510D+08-.8640034922D+08-.4169655694D+08-.6044879571D+08                                                  
-.9833006507D+08-.4064750225D+08-.1452034578D+090.3132602093D+080.1357798830D+08                                                  
-.4217125318D+060.1000667634D+070.4276243362D+06                                                                                  
0.1321555556D+05-.9043603574D+08-.8647514441D+08-.4172721418D+08-.6059058961D+08                                                  
-.9832529369D+08-.4068549886D+08-.1452262553D+090.3124038316D+080.1354085639D+08                                                  
-.4217407251D+060.1000637547D+070.4276121933D+06                                                                                  
0.1321559259D+05-.9037526368D+08-.8654988839D+08-.4175784675D+08-.6073233977D+08                                                  
-.9832045011D+08-.4072346557D+08-.1452489924D+090.3115473266D+080.1350371892D+08                                                  
-.4217689164D+060.1000607460D+070.4276000500D+06                                                                                  
0.1321562963D+05-.9031443898D+08-.8662458114D+08-.4178845463D+08-.6087404617D+08                                                  
-.9831553447D+08-.4076140244D+08-.1452716691D+090.3106906947D+080.1346657593D+08                                                  
-.4217971058D+060.1000577371D+070.4275879062D+06                                                                                  
0.1321566667D+05-.9025356169D+08-.8669922263D+08-.4181903781D+08-.6101570879D+08                                                  
-.9831054692D+08-.4079930948D+08-.1452942854D+090.3098339362D+080.1342942741D+08                                                  
-.4218252933D+060.1000547281D+070.4275757619D+06                                                                                  
0.1321570370D+05-.9019263187D+08-.8677381285D+08-.4184959630D+08-.6115732762D+08                                                  
-.9830548759D+08-.4083718672D+08-.1453168414D+090.3089770516D+080.1339227339D+08                                                  
-.4218534788D+060.1000517191D+070.4275636172D+06                                                                                  
0.1321574074D+05-.9013164958D+08-.8684835176D+08-.4188013007D+08-.6129890263D+08                                                  
-.9830035662D+08-.4087503419D+08-.1453393370D+090.3081200412D+080.1335511388D+08                                                  
-.4218816624D+060.1000487099D+070.4275514719D+06                                                                                  
0.1321577778D+05-.9007061488D+08-.8692283935D+08-.4191063912D+08-.6144043380D+08                                                  
-.9829515415D+08-.4091285193D+08-.1453617722D+090.3072629054D+080.1331794891D+08                                                  
-.4219098440D+060.1000457006D+070.4275393262D+06                                                                                  
0.1321581481D+05-.9000952781D+08-.8699727559D+08-.4194112345D+08-.6158192113D+08                                                  
-.9828988033D+08-.4095063995D+08-.1453841470D+090.3064056446D+080.1328077848D+08                                                  
-.4219380237D+060.1000426913D+070.4275271799D+06                                                                                  
0.1321585185D+05-.8994838845D+08-.8707166046D+08-.4197158305D+08-.6172336458D+08                                                  
-.9828453529D+08-.4098839830D+08-.1454064613D+090.3055482592D+080.1324360262D+08                                                  
-.4219662015D+060.1000396818D+070.4275150332D+06                                                                                  
0.1321588889D+05-.8988719684D+08-.8714599394D+08-.4200201791D+08-.6186476414D+08                                                  
-.9827911917D+08-.4102612700D+08-.1454287152D+090.3046907495D+080.1320642134D+08                                                  
-.4219943773D+060.1000366722D+070.4275028860D+06                                                                                  
0.1321592593D+05-.8982595304D+08-.8722027600D+08-.4203242801D+08-.6200611980D+08                                                  
-.9827363210D+08-.4106382607D+08-.1454509087D+090.3038331159D+080.1316923466D+08                                                  
-.4220225511D+060.1000336625D+070.4274907384D+06                                                                                  
0.1321596296D+05-.8976465711D+08-.8729450662D+08-.4206281336D+08-.6214743153D+08                                                  
-.9826807423D+08-.4110149556D+08-.1454730418D+090.3029753588D+080.1313204259D+08                                                  
-.4220507230D+060.1000306528D+070.4274785902D+06                                                                                  
0.1321600000D+05-.8970330911D+08-.8736868578D+08-.4209317394D+08-.6228869932D+08                                                  
-.9826244570D+08-.4113913548D+08-.1454951144D+090.3021174786D+080.1309484516D+08                                                  
-.4220788930D+060.1000276429D+070.4274664416D+06                                                                                  
0.1321603704D+05-.8964190909D+08-.8744281345D+08-.4212350975D+08-.6242992315D+08                                                  
-.9825674664D+08-.4117674587D+08-.1455171265D+090.3012594758D+080.1305764238D+08                                                  
-.4221070610D+060.1000246329D+070.4274542924D+06                                                                                  
0.1321607407D+05-.8958045716D+08-.8751688960D+08-.4215382076D+08-.6257110300D+08                                                  
-.9825097719D+08-.4121432675D+08-.1455390782D+090.3004013505D+080.1302043425D+08                                                  
-.4221352271D+060.1000216228D+070.4274421428D+06                                                                                  
0.1321611111D+05-.8951895333D+08-.8759091421D+08-.4218410697D+08-.6271223886D+08                                                  
-.9824513749D+08-.4125187816D+08-.1455609693D+090.2995431033D+080.1298322082D+08                                                  
-.4221633912D+060.1000186126D+070.4274299927D+06                                                                                  
0.1321614815D+05-.8945739765D+08-.8766488727D+08-.4221436839D+08-.6285333071D+08                                                  
-.9823922767D+08-.4128940012D+08-.1455828000D+090.2986847346D+080.1294600208D+08                                                  
-.4221915534D+060.1000156024D+070.4274178422D+06                                                                                  
0.1321618519D+05-.8939579018D+08-.8773880875D+08-.4224460500D+08-.6299437854D+08                                                  
-.9823324787D+08-.4132689267D+08-.1456045702D+090.2978262446D+080.1290877805D+08                                                  
-.4222197136D+060.1000125920D+070.4274056911D+06                                                                                  
0.1321622222D+05-.8933413098D+08-.8781267863D+08-.4227481681D+08-.6313538232D+08                                                  
-.9822719823D+08-.4136435582D+08-.1456262799D+090.2969676338D+080.1287154876D+08                                                  
-.4222478719D+060.1000095815D+070.4273935395D+06                                                                                  
0.1321625926D+05-.8927242010D+08-.8788649688D+08-.4230500379D+08-.6327634205D+08                                                  
-.9822107889D+08-.4140178962D+08-.1456479291D+090.2961089027D+080.1283431422D+08                                                  
-.4222760283D+060.1000065709D+070.4273813875D+06                                                                                  
0.1321629630D+05-.8921065760D+08-.8796026350D+08-.4233516594D+08-.6341725770D+08                                                  
-.9821488997D+08-.4143919410D+08-.1456695178D+090.2952500514D+080.1279707444D+08                                                  
-.4223041827D+060.1000035602D+070.4273692350D+06                                                                                  
0.1321633333D+05-.8914884354D+08-.8803397846D+08-.4236530326D+08-.6355812927D+08                                                  
-.9820863163D+08-.4147656927D+08-.1456910459D+090.2943910805D+080.1275982945D+08                                                  
-.4223323352D+060.1000005494D+070.4273570820D+06                                                                                  
0.1321637037D+05-.8908697797D+08-.8810764173D+08-.4239541574D+08-.6369895673D+08                                                  
-.9820230398D+08-.4151391517D+08-.1457125135D+090.2935319904D+080.1272257925D+08                                                  
-.4223604857D+060.9999753849D+060.4273449285D+06                                                                                  
0.1321640741D+05-.8902506095D+08-.8818125329D+08-.4242550337D+08-.6383974008D+08                                                  
-.9819590717D+08-.4155123183D+08-.1457339205D+090.2926727813D+080.1268532388D+08                                                  
-.4223886343D+060.9999452748D+060.4273327745D+06                                                                                  
0.1321644444D+05-.8896309253D+08-.8825481312D+08-.4245556614D+08-.6398047929D+08                                                  
-.9818944134D+08-.4158851928D+08-.1457552670D+090.2918134537D+080.1264806333D+08                                                  
-.4224167809D+060.9999151638D+060.4273206201D+06                                                                                  
0.1321648148D+05-.8890107277D+08-.8832832121D+08-.4248560405D+08-.6412117435D+08                                                  
-.9818290661D+08-.4162577755D+08-.1457765529D+090.2909540081D+080.1261079764D+08                                                  
-.4224449256D+060.9998850518D+060.4273084651D+06                                                                                  
0.1321651852D+05-.8883900173D+08-.8840177752D+08-.4251561709D+08-.6426182526D+08                                                  
-.9817630313D+08-.4166300667D+08-.1457977782D+090.2900944446D+080.1257352681D+08                                                  
-.4224730684D+060.9998549387D+060.4272963097D+06                                                                                  
0.1321655556D+05-.8877687947D+08-.8847518204D+08-.4254560525D+08-.6440243199D+08                                                  
-.9816963102D+08-.4170020666D+08-.1458189430D+090.2892347638D+080.1253625086D+08                                                  
-.4225012092D+060.9998248246D+060.4272841538D+06                                                                                  
0.1321659259D+05-.8871470604D+08-.8854853474D+08-.4257556853D+08-.6454299453D+08                                                  
-.9816289042D+08-.4173737756D+08-.1458400472D+090.2883749661D+080.1249896982D+08                                                  
-.4225293481D+060.9997947095D+060.4272719974D+06                                                                                  
0.1321662963D+05-.8865248149D+08-.8862183561D+08-.4260550691D+08-.6468351287D+08                                                  
-.9815608147D+08-.4177451939D+08-.1458610908D+090.2875150517D+080.1246168369D+08                                                  
-.4225574850D+060.9997645934D+060.4272598405D+06                                                                                  
0.1321666667D+05-.8859020589D+08-.8869508462D+08-.4263542039D+08-.6482398700D+08                                                  
-.9814920430D+08-.4181163219D+08-.1458820738D+090.2866550212D+080.1242439250D+08                                                  
-.4225856200D+060.9997344762D+060.4272476832D+06                                                                                  
0.1321670370D+05-.8852787929D+08-.8876828175D+08-.4266530897D+08-.6496441689D+08                                                  
-.9814225903D+08-.4184871598D+08-.1459029961D+090.2857948748D+080.1238709625D+08                                                  
-.4226137531D+060.9997043580D+060.4272355253D+06                                                                                  
0.1321674074D+05-.8846550174D+08-.8884142698D+08-.4269517263D+08-.6510480255D+08                                                  
-.9813524582D+08-.4188577079D+08-.1459238579D+090.2849346130D+080.1234979498D+08                                                  
-.4226418842D+060.9996742389D+060.4272233670D+06                                                                                  
0.1321677778D+05-.8840307331D+08-.8891452029D+08-.4272501136D+08-.6524514395D+08                                                  
-.9812816478D+08-.4192279666D+08-.1459446590D+090.2840742362D+080.1231248869D+08                                                  
-.4226700133D+060.9996441186D+060.4272112082D+06                                                                                  
0.1321681481D+05-.8834059405D+08-.8898756165D+08-.4275482517D+08-.6538544108D+08                                                  
-.9812101605D+08-.4195979360D+08-.1459653995D+090.2832137446D+080.1227517740D+08                                                  
-.4226981406D+060.9996139974D+060.4271990489D+06                                                                                  
0.1321685185D+05-.8827806401D+08-.8906055105D+08-.4278461404D+08-.6552569394D+08                                                  
-.9811379977D+08-.4199676166D+08-.1459860793D+090.2823531388D+080.1223786113D+08                                                  
-.4227262659D+060.9995838752D+060.4271868891D+06                                                                                  
0.1321688889D+05-.8821548326D+08-.8913348846D+08-.4281437797D+08-.6566590251D+08                                                  
-.9810651606D+08-.4203370086D+08-.1460066985D+090.2814924191D+080.1220053990D+08                                                  
-.4227543892D+060.9995537519D+060.4271747288D+06                                                                                  
0.1321692593D+05-.8815285185D+08-.8920637386D+08-.4284411695D+08-.6580606677D+08                                                  
-.9809916506D+08-.4207061123D+08-.1460272571D+090.2806315859D+080.1216321371D+08                                                  
-.4227825106D+060.9995236276D+060.4271625681D+06                                                                                  
0.1321696296D+05-.8809016983D+08-.8927920723D+08-.4287383096D+08-.6594618673D+08                                                  
-.9809174690D+08-.4210749279D+08-.1460477549D+090.2797706395D+080.1212588260D+08                                                  
-.4228106301D+060.9994935023D+060.4271504069D+06                                                                                  
0.1321700000D+05-.8802743726D+08-.8935198855D+08-.4290352002D+08-.6608626235D+08                                                  
-.9808426172D+08-.4214434559D+08-.1460681921D+090.2789095805D+080.1208854657D+08                                                  
-.4228387476D+060.9994633760D+060.4271382451D+06                                                                                  
0.1321703704D+05-.8796465420D+08-.8942471779D+08-.4293318409D+08-.6622629364D+08                                                  
-.9807670963D+08-.4218116964D+08-.1460885686D+090.2780484090D+080.1205120565D+08                                                  
-.4228668632D+060.9994332486D+060.4271260829D+06                                                                                  
0.1321707407D+05-.8790182075D+08-.8949739492D+08-.4296282317D+08-.6636628059D+08                                                  
-.9806909078D+08-.4221796498D+08-.1461088845D+090.2771871256D+080.1201385984D+08                                                  
-.4228949768D+060.9994031203D+060.4271139202D+06                                                                                  
0.1321711111D+05-.8783893694D+08-.8957001993D+08-.4299243725D+08-.6650622318D+08                                                  
-.9806140529D+08-.4225473163D+08-.1461291396D+090.2763257306D+080.1197650917D+08                                                  
-.4229230885D+060.9993729909D+060.4271017571D+06                                                                                  
0.1321714815D+05-.8777600280D+08-.8964259280D+08-.4302202634D+08-.6664612140D+08                                                  
-.9805365329D+08-.4229146963D+08-.1461493341D+090.2754642243D+080.1193915365D+08                                                  
-.4229511982D+060.9993428605D+060.4270895934D+06                                                                                  
0.1321718519D+05-.8771301839D+08-.8971511350D+08-.4305159042D+08-.6678597524D+08                                                  
-.9804583493D+08-.4232817901D+08-.1461694678D+090.2746026073D+080.1190179331D+08                                                  
-.4229793061D+060.9993127290D+060.4270774293D+06                                                                                  
0.1321722222D+05-.8764998378D+08-.8978758203D+08-.4308112950D+08-.6692578469D+08                                                  
-.9803795031D+08-.4236485979D+08-.1461895408D+090.2737408798D+080.1186442815D+08                                                  
-.4230074119D+060.9992825966D+060.4270652646D+06                                                                                  
0.1321725926D+05-.8758689901D+08-.8985999835D+08-.4311064356D+08-.6706554975D+08                                                  
-.9802999958D+08-.4240151200D+08-.1462095531D+090.2728790423D+080.1182705819D+08                                                  
-.4230355159D+060.9992524631D+060.4270530995D+06                                                                                  
0.1321729630D+05-.8752376414D+08-.8993236246D+08-.4314013259D+08-.6720527040D+08                                                  
-.9802198287D+08-.4243813567D+08-.1462295046D+090.2720170951D+080.1178968346D+08                                                  
-.4230636179D+060.9992223286D+060.4270409339D+06                                                                                  
0.1321733333D+05-.8746057924D+08-.9000467432D+08-.4316959660D+08-.6734494663D+08                                                  
-.9801390030D+08-.4247473084D+08-.1462493955D+090.2711550386D+080.1175230396D+08                                                  
-.4230917179D+060.9991921931D+060.4270287678D+06                                                                                  
0.1321737037D+05-.8739734435D+08-.9007693392D+08-.4319903557D+08-.6748457843D+08                                                  
-.9800575200D+08-.4251129752D+08-.1462692255D+090.2702928732D+080.1171491972D+08                                                  
-.4231198160D+060.9991620566D+060.4270166013D+06                                                                                  
0.1321740741D+05-.8733405952D+08-.9014914124D+08-.4322844949D+08-.6762416580D+08                                                  
-.9799753811D+08-.4254783576D+08-.1462889949D+090.2694305993D+080.1167753075D+08                                                  
-.4231479122D+060.9991319190D+060.4270044342D+06                                                                                  
0.1321744444D+05-.8727072483D+08-.9022129626D+08-.4325783837D+08-.6776370873D+08                                                  
-.9798925875D+08-.4258434558D+08-.1463087034D+090.2685682173D+080.1164013707D+08                                                  
-.4231760065D+060.9991017805D+060.4269922667D+06                                                                                  
0.1321748148D+05-.8720734032D+08-.9029339895D+08-.4328720218D+08-.6790320720D+08                                                  
-.9798091404D+08-.4262082700D+08-.1463283512D+090.2677057275D+080.1160273870D+08                                                  
-.4232040988D+060.9990716409D+060.4269800987D+06                                                                                  
0.1321751852D+05-.8714390604D+08-.9036544930D+08-.4331654094D+08-.6804266121D+08                                                  
-.9797250413D+08-.4265728007D+08-.1463479383D+090.2668431304D+080.1156533564D+08                                                  
-.4232321891D+060.9990415003D+060.4269679302D+06                                                                                  
0.1321755556D+05-.8708042207D+08-.9043744729D+08-.4334585462D+08-.6818207075D+08                                                  
-.9796402912D+08-.4269370480D+08-.1463674645D+090.2659804263D+080.1152792793D+08                                                  
-.4232602775D+060.9990113587D+060.4269557612D+06                                                                                  
0.1321759259D+05-.8701688844D+08-.9050939289D+08-.4337514323D+08-.6832143581D+08                                                  
-.9795548917D+08-.4273010123D+08-.1463869300D+090.2651176157D+080.1149051557D+08                                                  
-.4232883640D+060.9989812160D+060.4269435917D+06                                                                                  
0.1321762963D+05-.8695330522D+08-.9058128609D+08-.4340440675D+08-.6846075639D+08                                                  
-.9794688438D+08-.4276646938D+08-.1464063347D+090.2642546988D+080.1145309858D+08                                                  
-.4233164486D+060.9989510723D+060.4269314217D+06                                                                                  
0.1321766667D+05-.8688967246D+08-.9065312687D+08-.4343364518D+08-.6860003248D+08                                                  
-.9793821489D+08-.4280280929D+08-.1464256785D+090.2633916761D+080.1141567699D+08                                                  
-.4233445312D+060.9989209277D+060.4269192513D+06                                                                                  
0.1321770370D+05-.8682599023D+08-.9072491520D+08-.4346285852D+08-.6873926406D+08                                                  
-.9792948082D+08-.4283912098D+08-.1464449616D+090.2625285480D+080.1137825080D+08                                                  
-.4233726118D+060.9988907819D+060.4269070804D+06                                                                                  
0.1321774074D+05-.8676225856D+08-.9079665106D+08-.4349204674D+08-.6887845114D+08                                                  
-.9792068230D+08-.4287540449D+08-.1464641839D+090.2616653148D+080.1134082004D+08                                                  
-.4234006906D+060.9988606352D+060.4268949089D+06                                                                                  
0.1321777778D+05-.8669847753D+08-.9086833445D+08-.4352120986D+08-.6901759370D+08                                                  
-.9791181947D+08-.4291165984D+08-.1464833453D+090.2608019770D+080.1130338471D+08                                                  
-.4234287673D+060.9988304875D+060.4268827370D+06                                                                                  
0.1321781481D+05-.8663464719D+08-.9093996532D+08-.4355034786D+08-.6915669174D+08                                                  
-.9790289244D+08-.4294788706D+08-.1465024460D+090.2599385349D+080.1126594485D+08                                                  
-.4234568422D+060.9988003387D+060.4268705647D+06                                                                                  
0.1321785185D+05-.8657076759D+08-.9101154367D+08-.4357946074D+08-.6929574525D+08                                                  
-.9789390133D+08-.4298408619D+08-.1465214857D+090.2590749889D+080.1122850046D+08                                                  
-.4234849151D+060.9987701889D+060.4268583918D+06                                                                                  
0.1321788889D+05-.8650683879D+08-.9108306948D+08-.4360854848D+08-.6943475423D+08                                                  
-.9788484629D+08-.4302025724D+08-.1465404647D+090.2582113394D+080.1119105156D+08                                                  
-.4235129861D+060.9987400381D+060.4268462184D+06                                                                                  
0.1321792593D+05-.8644286085D+08-.9115454272D+08-.4363761109D+08-.6957371866D+08                                                  
-.9787572742D+08-.4305640025D+08-.1465593828D+090.2573475868D+080.1115359817D+08                                                  
-.4235410551D+060.9987098863D+060.4268340446D+06                                                                                  
0.1321796296D+05-.8637883382D+08-.9122596337D+08-.4366664855D+08-.6971263855D+08                                                  
-.9786654486D+08-.4309251526D+08-.1465782401D+090.2564837314D+080.1111614030D+08                                                  
-.4235691222D+060.9986797334D+060.4268218703D+06                                                                                  
0.1321800000D+05-.8631475776D+08-.9129733141D+08-.4369566086D+08-.6985151388D+08                                                  
-.9785729874D+08-.4312860228D+08-.1465970365D+090.2556197737D+080.1107867798D+08                                                  
-.4235971874D+060.9986495796D+060.4268096955D+06                                                                                  
0.1321803704D+05-.8625063272D+08-.9136864683D+08-.4372464801D+08-.6999034466D+08                                                  
-.9784798917D+08-.4316466135D+08-.1466157721D+090.2547557140D+080.1104121121D+08                                                  
-.4236252506D+060.9986194247D+060.4267975202D+06                                                                                  
0.1321807407D+05-.8618645881D+08-.9143990958D+08-.4375360997D+08-.7012913086D+08                                                  
-.9783861628D+08-.4320069249D+08-.1466344467D+090.2538915528D+080.1100374002D+08                                                  
-.4236533119D+060.9985892688D+060.4267853444D+06                                                                                  
0.1321811111D+05-.8612223604D+08-.9151111967D+08-.4378254676D+08-.7026787250D+08                                                  
-.9782918020D+08-.4323669574D+08-.1466530606D+090.2530272903D+080.1096626443D+08                                                  
-.4236813712D+060.9985591118D+060.4267731681D+06                                                                                  
0.1321814815D+05-.8605796446D+08-.9158227706D+08-.4381145837D+08-.7040656957D+08                                                  
-.9781968104D+08-.4327267112D+08-.1466716135D+090.2521629270D+080.1092878444D+08                                                  
-.4237094286D+060.9985289539D+060.4267609914D+06                                                                                  
0.1321818519D+05-.8599364414D+08-.9165338174D+08-.4384034479D+08-.7054522205D+08                                                  
-.9781011894D+08-.4330861867D+08-.1466901055D+090.2512984634D+080.1089130009D+08                                                  
-.4237374841D+060.9984987949D+060.4267488142D+06                                                                                  
0.1321822222D+05-.8592927512D+08-.9172443369D+08-.4386920602D+08-.7068382995D+08                                                  
-.9780049402D+08-.4334453841D+08-.1467085367D+090.2504338996D+080.1085381137D+08                                                  
-.4237655376D+060.9984686349D+060.4267366364D+06                                                                                  
0.1321825926D+05-.8586485746D+08-.9179543290D+08-.4389804206D+08-.7082239325D+08                                                  
-.9779080640D+08-.4338043038D+08-.1467269070D+090.2495692362D+080.1081631832D+08                                                  
-.4237935892D+060.9984384739D+060.4267244582D+06                                                                                  
0.1321829630D+05-.8580039121D+08-.9186637935D+08-.4392685289D+08-.7096091196D+08                                                  
-.9778105621D+08-.4341629459D+08-.1467452163D+090.2487044736D+080.1077882094D+08                                                  
-.4238216388D+060.9984083119D+060.4267122795D+06                                                                                  
0.1321833333D+05-.8573587643D+08-.9193727301D+08-.4395563850D+08-.7109938608D+08                                                  
-.9777124356D+08-.4345213109D+08-.1467634648D+090.2478396120D+080.1074131926D+08                                                  
-.4238496866D+060.9983781488D+060.4267001004D+06                                                                                  
0.1321837037D+05-.8567131319D+08-.9200811386D+08-.4398439890D+08-.7123781559D+08                                                  
-.9776136858D+08-.4348793990D+08-.1467816523D+090.2469746520D+080.1070381329D+08                                                  
-.4238777323D+060.9983479848D+060.4266879207D+06                                                                                  
0.1321840741D+05-.8560670152D+08-.9207890189D+08-.4401313408D+08-.7137620049D+08                                                  
-.9775143139D+08-.4352372104D+08-.1467997790D+090.2461095938D+080.1066630305D+08                                                  
-.4239057762D+060.9983178197D+060.4266757406D+06                                                                                  
0.1321844444D+05-.8554204149D+08-.9214963709D+08-.4404184403D+08-.7151454078D+08                                                  
-.9774143212D+08-.4355947455D+08-.1468178447D+090.2452444379D+080.1062878856D+08                                                  
-.4239338181D+060.9982876536D+060.4266635599D+06                                                                                  
0.1321848148D+05-.8547733316D+08-.9222031942D+08-.4407052875D+08-.7165283646D+08                                                  
-.9773137088D+08-.4359520046D+08-.1468358494D+090.2443791847D+080.1059126982D+08                                                  
-.4239618580D+060.9982574864D+060.4266513788D+06                                                                                  
0.1321851852D+05-.8541257657D+08-.9229094887D+08-.4409918822D+08-.7179108751D+08                                                  
-.9772124780D+08-.4363089880D+08-.1468537933D+090.2435138345D+080.1055374687D+08                                                  
-.4239898961D+060.9982273183D+060.4266391972D+06                                                                                  
0.1321855556D+05-.8534777179D+08-.9236152542D+08-.4412782244D+08-.7192929395D+08                                                  
-.9771106301D+08-.4366656958D+08-.1468716762D+090.2426483877D+080.1051621971D+08                                                  
-.4240179322D+060.9981971491D+060.4266270151D+06                                                                                  
0.1321859259D+05-.8528291888D+08-.9243204906D+08-.4415643141D+08-.7206745576D+08                                                  
-.9770081661D+08-.4370221286D+08-.1468894981D+090.2417828448D+080.1047868837D+08                                                  
-.4240459663D+060.9981669789D+060.4266148326D+06                                                                                  
0.1321862963D+05-.8521801787D+08-.9250251976D+08-.4418501512D+08-.7220557295D+08                                                  
-.9769050873D+08-.4373782865D+08-.1469072591D+090.2409172060D+080.1044115285D+08                                                  
-.4240739985D+060.9981368077D+060.4266026495D+06                                                                                  
0.1321866667D+05-.8515306884D+08-.9257293750D+08-.4421357356D+08-.7234364550D+08                                                  
-.9768013950D+08-.4377341697D+08-.1469249592D+090.2400514718D+080.1040361319D+08                                                  
-.4241020288D+060.9981066355D+060.4265904660D+06                                                                                  
0.1321870370D+05-.8508807184D+08-.9264330227D+08-.4424210673D+08-.7248167342D+08                                                  
-.9766970904D+08-.4380897787D+08-.1469425983D+090.2391856425D+080.1036606938D+08                                                  
-.4241300572D+060.9980764622D+060.4265782819D+06                                                                                  
0.1321874074D+05-.8502302692D+08-.9271361405D+08-.4427061463D+08-.7261965671D+08                                                  
-.9765921746D+08-.4384451138D+08-.1469601764D+090.2383197186D+080.1032852146D+08                                                  
-.4241580836D+060.9980462880D+060.4265660974D+06                                                                                  
0.1321877778D+05-.8495793414D+08-.9278387281D+08-.4429909723D+08-.7275759536D+08                                                  
-.9764866488D+08-.4388001750D+08-.1469776935D+090.2374537004D+080.1029096943D+08                                                  
-.4241861081D+060.9980161127D+060.4265539124D+06                                                                                  
0.1321881481D+05-.8489279356D+08-.9285407854D+08-.4432755455D+08-.7289548937D+08                                                  
-.9763805142D+08-.4391549629D+08-.1469951497D+090.2365875884D+080.1025341332D+08                                                  
-.4242141306D+060.9979859364D+060.4265417270D+06                                                                                  
0.1321885185D+05-.8482760523D+08-.9292423122D+08-.4435598656D+08-.7303333873D+08                                                  
-.9762737721D+08-.4395094777D+08-.1470125449D+090.2357213828D+080.1021585315D+08                                                  
-.4242421512D+060.9979557590D+060.4265295410D+06                                                                                  
0.1321888889D+05-.8476236920D+08-.9299433083D+08-.4438439328D+08-.7317114346D+08                                                  
-.9761664237D+08-.4398637196D+08-.1470298791D+090.2348550842D+080.1017828891D+08                                                  
-.4242701699D+060.9979255807D+060.4265173545D+06                                                                                  
0.1321892593D+05-.8469708553D+08-.9306437736D+08-.4441277468D+08-.7330890354D+08                                                  
-.9760584701D+08-.4402176889D+08-.1470471523D+090.2339886927D+080.1014072065D+08                                                  
-.4242981866D+060.9978954013D+060.4265051676D+06                                                                                  
0.1321896296D+05-.8463175428D+08-.9313437077D+08-.4444113077D+08-.7344661897D+08                                                  
-.9759499125D+08-.4405713860D+08-.1470643645D+090.2331222090D+080.1010314837D+08                                                  
-.4243262014D+060.9978652209D+060.4264929802D+06                                                                                  
0.1321900000D+05-.8456637551D+08-.9320431106D+08-.4446946153D+08-.7358428975D+08                                                  
-.9758407521D+08-.4409248112D+08-.1470815158D+090.2322556333D+080.1006557208D+08                                                  
-.4243542142D+060.9978350395D+060.4264807923D+06                                                                                  
0.1321903704D+05-.8450096131D+08-.9327420988D+08-.4449775268D+08-.7372191589D+08                                                  
-.9757309900D+08-.4412779646D+08-.1470986060D+090.2313889660D+080.1002799181D+08                                                  
-.4243822251D+060.9978048571D+060.4264686039D+06                                                                                  
0.1321907407D+05-.8443548811D+08-.9334404484D+08-.4452603675D+08-.7385949737D+08                                                  
-.9756206276D+08-.4416308467D+08-.1471156352D+090.2305222075D+080.9990407579D+07                                                  
-.4244102341D+060.9977746736D+060.4264564150D+06                                                                                  
0.1321911111D+05-.8436996789D+08-.9341382719D+08-.4455429885D+08-.7399703421D+08                                                  
-.9755096659D+08-.4419834576D+08-.1471326034D+090.2296553581D+080.9952819394D+07                                                  
-.4244382412D+060.9977444892D+060.4264442256D+06                                                                                  
0.1321914815D+05-.8430440037D+08-.9348355633D+08-.4458253560D+08-.7413452639D+08                                                  
-.9753981062D+08-.4423357978D+08-.1471495105D+090.2287884184D+080.9915227275D+07                                                  
-.4244662463D+060.9977143037D+060.4264320358D+06                                                                                  
0.1321918519D+05-.8423878563D+08-.9355323224D+08-.4461074699D+08-.7427197392D+08                                                  
-.9752859496D+08-.4426878674D+08-.1471663567D+090.2279213886D+080.9877631240D+07                                                  
-.4244942495D+060.9976841172D+060.4264198455D+06                                                                                  
0.1321922222D+05-.8417312373D+08-.9362285490D+08-.4463893300D+08-.7440937680D+08                                                  
-.9751731972D+08-.4430396667D+08-.1471831418D+090.2270542691D+080.9840031306D+07                                                  
-.4245222507D+060.9976539296D+060.4264076546D+06                                                                                  
0.1321925926D+05-.8410741469D+08-.9369242430D+08-.4466709365D+08-.7454673503D+08                                                  
-.9750598504D+08-.4433911962D+08-.1471998659D+090.2261870604D+080.9802427489D+07                                                  
-.4245502500D+060.9976237411D+060.4263954633D+06                                                                                  
0.1321929630D+05-.8404165856D+08-.9376194042D+08-.4469522892D+08-.7468404860D+08                                                  
-.9749459101D+08-.4437424559D+08-.1472165289D+090.2253197628D+080.9764819806D+07                                                  
-.4245782474D+060.9975935515D+060.4263832715D+06                                                                                  
0.1321933333D+05-.8397585541D+08-.9383140326D+08-.4472333882D+08-.7482131752D+08                                                  
-.9748313776D+08-.4440934463D+08-.1472331309D+090.2244523767D+080.9727208275D+07                                                  
-.4246062428D+060.9975633609D+060.4263710793D+06                                                                                  
0.1321937037D+05-.8391000529D+08-.9390081278D+08-.4475142334D+08-.7495854179D+08                                                  
-.9747162542D+08-.4444441676D+08-.1472496719D+090.2235849024D+080.9689592911D+07                                                  
-.4246342363D+060.9975331693D+060.4263588865D+06                                                                                  
0.1321940741D+05-.8384410825D+08-.9397016898D+08-.4477948247D+08-.7509572141D+08                                                  
-.9746005408D+08-.4447946201D+08-.1472661518D+090.2227173404D+080.9651973733D+07                                                  
-.4246622278D+060.9975029767D+060.4263466933D+06                                                                                  
0.1321944444D+05-.8377816435D+08-.9403947183D+08-.4480751621D+08-.7523285638D+08                                                  
-.9744842387D+08-.4451448041D+08-.1472825706D+090.2218496910D+080.9614350756D+07                                                  
-.4246902175D+060.9974727830D+060.4263344995D+06                                                                                  
0.1321948148D+05-.8371217364D+08-.9410872131D+08-.4483552455D+08-.7536994670D+08                                                  
-.9743673490D+08-.4454947199D+08-.1472989284D+090.2209819547D+080.9576723998D+07                                                  
-.4247182052D+060.9974425883D+060.4263223053D+06                                                                                  
0.1321951852D+05-.8364613618D+08-.9417791742D+08-.4486350748D+08-.7550699236D+08                                                  
-.9742498730D+08-.4458443677D+08-.1473152251D+090.2201141317D+080.9539093475D+07                                                  
-.4247461909D+060.9974123926D+060.4263101106D+06                                                                                  
0.1321955556D+05-.8358005203D+08-.9424706012D+08-.4489146500D+08-.7564399338D+08                                                  
-.9741318117D+08-.4461937479D+08-.1473314608D+090.2192462226D+080.9501459204D+07                                                  
-.4247741747D+060.9973821959D+060.4262979154D+06                                                                                  
0.1321959259D+05-.8351388254D+08-.9431614186D+08-.4491936975D+08-.7578094975D+08                                                  
-.9740131663D+08-.4465428608D+08-.1473476354D+090.2183782276D+080.9463821203D+07                                                  
-.4248021566D+060.9973519982D+060.4262857198D+06                                                                                  
0.1321962963D+05-.8344770511D+08-.9438517754D+08-.4494727683D+08-.7591786148D+08                                                  
-.9738939380D+08-.4468917065D+08-.1473637489D+090.2175101472D+080.9426179488D+07                                                  
-.4248301366D+060.9973217994D+060.4262735236D+06                                                                                  
0.1321966667D+05-.8338148115D+08-.9445415977D+08-.4497515848D+08-.7605472856D+08                                                  
-.9737741278D+08-.4472402855D+08-.1473798013D+090.2166419817D+080.9388534076D+07                                                  
-.4248581146D+060.9972915997D+060.4262613269D+06                                                                                  
0.1321970370D+05-.8331521071D+08-.9452308853D+08-.4500301469D+08-.7619155100D+08                                                  
-.9736537370D+08-.4475885980D+08-.1473957927D+090.2157737315D+080.9350884984D+07                                                  
-.4248860907D+060.9972613989D+060.4262491298D+06                                                                                  
0.1321974074D+05-.8324889386D+08-.9459196379D+08-.4503084547D+08-.7632832880D+08                                                  
-.9735327667D+08-.4479366443D+08-.1474117229D+090.2149053970D+080.9313232228D+07                                                  
-.4249140648D+060.9972311971D+060.4262369322D+06                                                                                  
0.1321977778D+05-.8318253064D+08-.9466078555D+08-.4505865080D+08-.7646506196D+08                                                  
-.9734112180D+08-.4482844246D+08-.1474275921D+090.2140369787D+080.9275575826D+07                                                  
-.4249420370D+060.9972009942D+060.4262247341D+06                                                                                  
0.1321981481D+05-.8311612112D+08-.9472955379D+08-.4508643068D+08-.7660175048D+08                                                  
-.9732890921D+08-.4486319393D+08-.1474434002D+090.2131684767D+080.9237915794D+07                                                  
-.4249700073D+060.9971707904D+060.4262125355D+06                                                                                  
0.1321985185D+05-.8304966534D+08-.9479826848D+08-.4511418511D+08-.7673839437D+08                                                  
-.9731663901D+08-.4489791887D+08-.1474591471D+090.2122998917D+080.9200252149D+07                                                  
-.4249979756D+060.9971405855D+060.4262003364D+06                                                                                  
0.1321988889D+05-.8298316336D+08-.9486692961D+08-.4514191407D+08-.7687499362D+08                                                  
-.9730431131D+08-.4493261729D+08-.1474748330D+090.2114312239D+080.9162584908D+07                                                  
-.4250259420D+060.9971103796D+060.4261881369D+06                                                                                  
0.1321992593D+05-.8291661523D+08-.9493553717D+08-.4516961756D+08-.7701154825D+08                                                  
-.9729192623D+08-.4496728924D+08-.1474904578D+090.2105624736D+080.9124914088D+07                                                  
-.4250539065D+060.9970801727D+060.4261759368D+06                                                                                  
0.1321996296D+05-.8285002102D+08-.9500409113D+08-.4519729558D+08-.7714805825D+08                                                  
-.9727948388D+08-.4500193474D+08-.1475060214D+090.2096936414D+080.9087239706D+07                                                  
-.4250818690D+060.9970499648D+060.4261637363D+06                                                                                  
0.1322000000D+05-.8278338078D+08-.9507259148D+08-.4522494813D+08-.7728452362D+08                                                  
-.9726698437D+08-.4503655382D+08-.1475215240D+090.2088247276D+080.9049561778D+07                                                  
-.4251098296D+060.9970197558D+060.4261515353D+06                                                                                  
0.1322003704D+05-.8271669456D+08-.9514103819D+08-.4525257519D+08-.7742094437D+08                                                  
-.9725442781D+08-.4507114651D+08-.1475369654D+090.2079557325D+080.9011880321D+07                                                  
-.4251377883D+060.9969895459D+060.4261393338D+06                                                                                  
0.1322007407D+05-.8264996241D+08-.9520943126D+08-.4528017675D+08-.7755732050D+08                                                  
-.9724181432D+08-.4510571283D+08-.1475523457D+090.2070866566D+080.8974195353D+07                                                  
-.4251657450D+060.9969593349D+060.4261271318D+06                                                                                  
0.1322011111D+05-.8258318440D+08-.9527777067D+08-.4530775283D+08-.7769365202D+08                                                  
-.9722914401D+08-.4514025282D+08-.1475676649D+090.2062175002D+080.8936506889D+07                                                  
-.4251936998D+060.9969291229D+060.4261149293D+06                                                                                  
0.1322014815D+05-.8251636058D+08-.9534605639D+08-.4533530340D+08-.7782993893D+08                                                  
-.9721641700D+08-.4517476650D+08-.1475829229D+090.2053482637D+080.8898814947D+07                                                  
-.4252216526D+060.9968989098D+060.4261027264D+06                                                                                  
0.1322018519D+05-.8244949099D+08-.9541428842D+08-.4536282847D+08-.7796618122D+08                                                  
-.9720363338D+08-.4520925390D+08-.1475981199D+090.2044789475D+080.8861119544D+07                                                  
-.4252496036D+060.9968686958D+060.4260905230D+06                                                                                  
0.1322022222D+05-.8238257585D+08-.9548246660D+08-.4539032795D+08-.7810237892D+08                                                  
-.9719079328D+08-.4524371506D+08-.1476132556D+090.2036095519D+080.8823420696D+07                                                  
-.4252775526D+060.9968384807D+060.4260783190D+06                                                                                  
0.1322025926D+05-.8231561507D+08-.9555059103D+08-.4541780191D+08-.7823853201D+08                                                  
-.9717789680D+08-.4527814999D+08-.1476283303D+090.2027400775D+080.8785718420D+07                                                  
-.4253054996D+060.9968082646D+060.4260661146D+06                                                                                  
0.1322029630D+05-.8224860871D+08-.9561866171D+08-.4544525036D+08-.7837464050D+08                                                  
-.9716494406D+08-.4531255872D+08-.1476433438D+090.2018705244D+080.8748012732D+07                                                  
-.4253334447D+060.9967780475D+060.4260539097D+06                                                                                  
0.1322033333D+05-.8218155680D+08-.9568667863D+08-.4547267327D+08-.7851070440D+08                                                  
-.9715193516D+08-.4534694130D+08-.1476582962D+090.2010008932D+080.8710303651D+07                                                  
-.4253613879D+060.9967478294D+060.4260417043D+06                                                                                  
0.1322037037D+05-.8211445941D+08-.9575464176D+08-.4550007065D+08-.7864672371D+08                                                  
-.9713887022D+08-.4538129773D+08-.1476731874D+090.2001311841D+080.8672591192D+07                                                  
-.4253893292D+060.9967176102D+060.4260294985D+06                                                                                  
0.1322040741D+05-.8204731659D+08-.9582255109D+08-.4552744249D+08-.7878269844D+08                                                  
-.9712574935D+08-.4541562806D+08-.1476880174D+090.1992613977D+080.8634875372D+07                                                  
-.4254172685D+060.9966873901D+060.4260172921D+06                                                                                  
0.1322044444D+05-.8198012840D+08-.9589040660D+08-.4555478879D+08-.7891862858D+08                                                  
-.9711257266D+08-.4544993231D+08-.1477027864D+090.1983915342D+080.8597156208D+07                                                  
-.4254452059D+060.9966571689D+060.4260050853D+06                                                                                  
0.1322048148D+05-.8191289489D+08-.9595820827D+08-.4558210953D+08-.7905451415D+08                                                  
-.9709934025D+08-.4548421050D+08-.1477174941D+090.1975215940D+080.8559433717D+07                                                  
-.4254731413D+060.9966269467D+060.4259928779D+06                                                                                  
0.1322051852D+05-.8184561612D+08-.9602595610D+08-.4560940473D+08-.7919035515D+08                                                  
-.9708605224D+08-.4551846268D+08-.1477321407D+090.1966515776D+080.8521707915D+07                                                  
-.4255010748D+060.9965967234D+060.4259806701D+06                                                                                  
0.1322055556D+05-.8177829214D+08-.9609365005D+08-.4563667436D+08-.7932615159D+08                                                  
-.9707270873D+08-.4555268886D+08-.1477467261D+090.1957814852D+080.8483978820D+07                                                  
-.4255290064D+060.9965664992D+060.4259684618D+06                                                                                  
0.1322059259D+05-.8171092300D+08-.9616129012D+08-.4566391843D+08-.7946190346D+08                                                  
-.9705930984D+08-.4558688907D+08-.1477612504D+090.1949113174D+080.8446246447D+07                                                  
-.4255569361D+060.9965362739D+060.4259562530D+06                                                                                  
0.1322062963D+05-.8164350877D+08-.9622887629D+08-.4569113693D+08-.7959761077D+08                                                  
-.9704585568D+08-.4562106334D+08-.1477757135D+090.1940410744D+080.8408510815D+07                                                  
-.4255848638D+060.9965060476D+060.4259440438D+06                                                                                  
0.1322066667D+05-.8157604949D+08-.9629640854D+08-.4571832985D+08-.7973327353D+08                                                  
-.9703234635D+08-.4565521171D+08-.1477901154D+090.1931707566D+080.8370771939D+07                                                  
-.4256127895D+060.9964758203D+060.4259318340D+06                                                                                  
0.1322070370D+05-.8150854523D+08-.9636388685D+08-.4574549719D+08-.7986889175D+08                                                  
-.9701878196D+08-.4568933419D+08-.1478044562D+090.1923003645D+080.8333029836D+07                                                  
-.4256407134D+060.9964455920D+060.4259196238D+06                                                                                  
0.1322074074D+05-.8144099603D+08-.9643131121D+08-.4577263895D+08-.8000446543D+08                                                  
-.9700516261D+08-.4572343082D+08-.1478187357D+090.1914298984D+080.8295284523D+07                                                  
-.4256686353D+060.9964153627D+060.4259074131D+06                                                                                  
0.1322077778D+05-.8137340195D+08-.9649868160D+08-.4579975512D+08-.8013999457D+08                                                  
-.9699148843D+08-.4575750162D+08-.1478329541D+090.1905593586D+080.8257536017D+07                                                  
-.4256965553D+060.9963851323D+060.4258952018D+06                                                                                  
0.1322081481D+05-.8130576305D+08-.9656599801D+08-.4582684569D+08-.8027547918D+08                                                  
-.9697775951D+08-.4579154662D+08-.1478471113D+090.1896887456D+080.8219784334D+07                                                  
-.4257244733D+060.9963549009D+060.4258829901D+06                                                                                  
0.1322085185D+05-.8123807937D+08-.9663326041D+08-.4585391066D+08-.8041091927D+08                                                  
-.9696397597D+08-.4582556586D+08-.1478612074D+090.1888180598D+080.8182029492D+07                                                  
-.4257523894D+060.9963246685D+060.4258707780D+06                                                                                  
0.1322088889D+05-.8117035098D+08-.9670046880D+08-.4588095002D+08-.8054631484D+08                                                  
-.9695013791D+08-.4585955936D+08-.1478752422D+090.1879473015D+080.8144271506D+07                                                  
-.4257803036D+060.9962944351D+060.4258585653D+06                                                                                  
0.1322092593D+05-.8110257793D+08-.9676762316D+08-.4590796377D+08-.8068166590D+08                                                  
-.9693624543D+08-.4589352714D+08-.1478892159D+090.1870764711D+080.8106510394D+07                                                  
-.4258082158D+060.9962642006D+060.4258463521D+06                                                                                  
0.1322096296D+05-.8103476028D+08-.9683472346D+08-.4593495190D+08-.8081697245D+08                                                  
-.9692229865D+08-.4592746924D+08-.1479031283D+090.1862055689D+080.8068746172D+07                                                  
-.4258361261D+060.9962339652D+060.4258341385D+06                                                                                  
0.1322100000D+05-.8096689807D+08-.9690176970D+08-.4596191442D+08-.8095223451D+08                                                  
-.9690829767D+08-.4596138568D+08-.1479169796D+090.1853345955D+080.8030978857D+07                                                  
-.4258640345D+060.9962037287D+060.4258219244D+06                                                                                  
0.1322103704D+05-.8089899137D+08-.9696876185D+08-.4598885130D+08-.8108745207D+08                                                  
-.9689424260D+08-.4599527649D+08-.1479307696D+090.1844635510D+080.7993208466D+07                                                  
-.4258919409D+060.9961734912D+060.4258097098D+06                                                                                  
0.1322107407D+05-.8083104022D+08-.9703569991D+08-.4601576256D+08-.8122262515D+08                                                  
-.9688013354D+08-.4602914171D+08-.1479444985D+090.1835924360D+080.7955435015D+07                                                  
-.4259198454D+060.9961432527D+060.4257974947D+06                                                                                  
0.1322111111D+05-.8076304469D+08-.9710258384D+08-.4604264818D+08-.8135775374D+08                                                  
-.9686597061D+08-.4606298135D+08-.1479581661D+090.1827212508D+080.7917658522D+07                                                  
-.4259477480D+060.9961130132D+060.4257852791D+06                                                                                  
0.1322114815D+05-.8069500483D+08-.9716941365D+08-.4606950815D+08-.8149283787D+08                                                  
-.9685175390D+08-.4609679544D+08-.1479717726D+090.1818499958D+080.7879879002D+07                                                  
-.4259756486D+060.9960827726D+060.4257730630D+06                                                                                  
0.1322118519D+05-.8062692068D+08-.9723618931D+08-.4609634248D+08-.8162787753D+08                                                  
-.9683748353D+08-.4613058402D+08-.1479853178D+090.1809786713D+080.7842096472D+07                                                  
-.4260035473D+060.9960525310D+060.4257608465D+06                                                                                  
0.1322122222D+05-.8055879232D+08-.9730291081D+08-.4612315116D+08-.8176287273D+08                                                  
-.9682315959D+08-.4616434711D+08-.1479988019D+090.1801072778D+080.7804310950D+07                                                  
-.4260314441D+060.9960222884D+060.4257486294D+06                                                                                  
0.1322125926D+05-.8049061978D+08-.9736957813D+08-.4614993418D+08-.8189782348D+08                                                  
-.9680878220D+08-.4619808474D+08-.1480122247D+090.1792358156D+080.7766522451D+07                                                  
-.4260593390D+060.9959920448D+060.4257364119D+06                                                                                  
0.1322129630D+05-.8042240313D+08-.9743619125D+08-.4617669155D+08-.8203272978D+08                                                  
-.9679435145D+08-.4623179694D+08-.1480255863D+090.1783642850D+080.7728730993D+07                                                  
-.4260872319D+060.9959618002D+060.4257241939D+06                                                                                  
0.1322133333D+05-.8035414242D+08-.9750275016D+08-.4620342324D+08-.8216759165D+08                                                  
-.9677986746D+08-.4626548373D+08-.1480388867D+090.1774926866D+080.7690936591D+07                                                  
-.4261151228D+060.9959315545D+060.4257119754D+06                                                                                  
0.1322137037D+05-.8028583771D+08-.9756925485D+08-.4623012927D+08-.8230240909D+08                                                  
-.9676533033D+08-.4629914514D+08-.1480521258D+090.1766210206D+080.7653139264D+07                                                  
-.4261430119D+060.9959013079D+060.4256997564D+06                                                                                  
0.1322140741D+05-.8021748904D+08-.9763570529D+08-.4625680962D+08-.8243718210D+08                                                  
-.9675074015D+08-.4633278121D+08-.1480653038D+090.1757492874D+080.7615339027D+07                                                  
-.4261708990D+060.9958710602D+060.4256875369D+06                                                                                  
0.1322144444D+05-.8014909648D+08-.9770210148D+08-.4628346428D+08-.8257191071D+08                                                  
-.9673609705D+08-.4636639195D+08-.1480784205D+090.1748774875D+080.7577535896D+07                                                  
-.4261987841D+060.9958408115D+060.4256753170D+06                                                                                  
0.1322148148D+05-.8008066007D+08-.9776844339D+08-.4631009327D+08-.8270659490D+08                                                  
-.9672140112D+08-.4639997740D+08-.1480914760D+090.1740056211D+080.7539729890D+07                                                  
-.4262266674D+060.9958105617D+060.4256630965D+06                                                                                  
0.1322151852D+05-.8001217988D+08-.9783473101D+08-.4633669656D+08-.8284123470D+08                                                  
-.9670665246D+08-.4643353759D+08-.1481044703D+090.1731336887D+080.7501921024D+07                                                  
-.4262545486D+060.9957803110D+060.4256508756D+06                                                                                  
0.1322155556D+05-.7994365596D+08-.9790096432D+08-.4636327416D+08-.8297583011D+08                                                  
-.9669185118D+08-.4646707253D+08-.1481174033D+090.1722616906D+080.7464109314D+07                                                  
-.4262824280D+060.9957500592D+060.4256386542D+06                                                                                  
0.1322159259D+05-.7987508835D+08-.9796714331D+08-.4638982605D+08-.8311038113D+08                                                  
-.9667699738D+08-.4650058227D+08-.1481302751D+090.1713896273D+080.7426294778D+07                                                  
-.4263103054D+060.9957198064D+060.4256264323D+06                                                                                  
0.1322162963D+05-.7980647712D+08-.9803326797D+08-.4641635225D+08-.8324488778D+08                                                  
-.9666209116D+08-.4653406682D+08-.1481430857D+090.1705174990D+080.7388477432D+07                                                  
-.4263381809D+060.9956895526D+060.4256142099D+06                                                                                  
0.1322166667D+05-.7973782232D+08-.9809933828D+08-.4644285273D+08-.8337935007D+08                                                  
-.9664713264D+08-.4656752622D+08-.1481558351D+090.1696453062D+080.7350657293D+07                                                  
-.4263660545D+060.9956592978D+060.4256019871D+06                                                                                  
0.1322170370D+05-.7966912401D+08-.9816535421D+08-.4646932750D+08-.8351376800D+08                                                  
-.9663212190D+08-.4660096049D+08-.1481685232D+090.1687730493D+080.7312834377D+07                                                  
-.4263939261D+060.9956290420D+060.4255897637D+06                                                                                  
0.1322174074D+05-.7960038223D+08-.9823131577D+08-.4649577655D+08-.8364814158D+08                                                  
-.9661705906D+08-.4663436967D+08-.1481811501D+090.1679007286D+080.7275008701D+07                                                  
-.4264217958D+060.9955987851D+060.4255775399D+06                                                                                  
0.1322177778D+05-.7953159705D+08-.9829722292D+08-.4652219988D+08-.8378247082D+08                                                  
-.9660194421D+08-.4666775377D+08-.1481937157D+090.1670283445D+080.7237180281D+07                                                  
-.4264496636D+060.9955685272D+060.4255653155D+06                                                                                  
0.1322181481D+05-.7946276851D+08-.9836307567D+08-.4654859748D+08-.8391675573D+08                                                  
-.9658677747D+08-.4670111283D+08-.1482062201D+090.1661558974D+080.7199349135D+07                                                  
-.4264775294D+060.9955382683D+060.4255530907D+06                                                                                  
0.1322185185D+05-.7939389668D+08-.9842887398D+08-.4657496935D+08-.8405099632D+08                                                  
-.9657155892D+08-.4673444687D+08-.1482186632D+090.1652833877D+080.7161515278D+07                                                  
-.4265053933D+060.9955080084D+060.4255408654D+06                                                                                  
0.1322188889D+05-.7932498160D+08-.9849461785D+08-.4660131548D+08-.8418519259D+08                                                  
-.9655628867D+08-.4676775592D+08-.1482310451D+090.1644108157D+080.7123678728D+07                                                  
-.4265332553D+060.9954777475D+060.4255286397D+06                                                                                  
0.1322192593D+05-.7925602333D+08-.9856030726D+08-.4662763587D+08-.8431934456D+08                                                  
-.9654096683D+08-.4680104001D+08-.1482433658D+090.1635381818D+080.7085839500D+07                                                  
-.4265611153D+060.9954474856D+060.4255164134D+06                                                                                  
0.1322196296D+05-.7918702193D+08-.9862594220D+08-.4665393051D+08-.8445345224D+08                                                  
-.9652559349D+08-.4683429916D+08-.1482556252D+090.1626654864D+080.7047997611D+07                                                  
-.4265889734D+060.9954172226D+060.4255041866D+06                                                                                  
0.1322200000D+05-.7911797744D+08-.9869152264D+08-.4668019940D+08-.8458751563D+08                                                  
-.9651016875D+08-.4686753341D+08-.1482678233D+090.1617927298D+080.7010153079D+07                                                  
-.4266168296D+060.9953869586D+060.4254919594D+06                                                                                  
0.1322203704D+05-.7904888993D+08-.9875704858D+08-.4670644254D+08-.8472153475D+08                                                  
-.9649469272D+08-.4690074278D+08-.1482799603D+090.1609199126D+080.6972305918D+07                                                  
-.4266446838D+060.9953566936D+060.4254797317D+06                                                                                  
0.1322207407D+05-.7897975944D+08-.9882252001D+08-.4673265991D+08-.8485550960D+08                                                  
-.9647916550D+08-.4693392730D+08-.1482920359D+090.1600470349D+080.6934456147D+07                                                  
-.4266725361D+060.9953264276D+060.4254675035D+06                                                                                  
0.1322211111D+05-.7891058603D+08-.9888793689D+08-.4675885153D+08-.8498944019D+08                                                  
-.9646358719D+08-.4696708700D+08-.1483040503D+090.1591740972D+080.6896603782D+07                                                  
-.4267003865D+060.9952961605D+060.4254552748D+06                                                                                  
0.1322214815D+05-.7884136976D+08-.9895329923D+08-.4678501737D+08-.8512332654D+08                                                  
-.9644795789D+08-.4700022190D+08-.1483160035D+090.1583010999D+080.6858748838D+07                                                  
-.4267282349D+060.9952658925D+060.4254430456D+06                                                                                  
0.1322218519D+05-.7877211068D+08-.9901860700D+08-.4681115744D+08-.8525716865D+08                                                  
-.9643227769D+08-.4703333203D+08-.1483278953D+090.1574280434D+080.6820891333D+07                                                  
-.4267560814D+060.9952356234D+060.4254308159D+06                                                                                  
0.1322222222D+05-.7870280884D+08-.9908386020D+08-.4683727173D+08-.8539096653D+08                                                  
-.9641654670D+08-.4706641742D+08-.1483397260D+090.1565549279D+080.6783031283D+07                                                  
-.4267839260D+060.9952053533D+060.4254185858D+06                                                                                  
0.1322225926D+05-.7863346430D+08-.9914905880D+08-.4686336024D+08-.8552472020D+08                                                  
-.9640076502D+08-.4709947809D+08-.1483514954D+090.1556817540D+080.6745168705D+07                                                  
-.4268117686D+060.9951750822D+060.4254063551D+06                                                                                  
0.1322229630D+05-.7856407711D+08-.9921420279D+08-.4688942296D+08-.8565842965D+08                                                  
-.9638493275D+08-.4713251408D+08-.1483632035D+090.1548085220D+080.6707303615D+07                                                  
-.4268396093D+060.9951448100D+060.4253941240D+06                                                                                  
0.1322233333D+05-.7849464732D+08-.9927929216D+08-.4691545989D+08-.8579209492D+08                                                  
-.9636904998D+08-.4716552541D+08-.1483748503D+090.1539352322D+080.6669436029D+07                                                  
-.4268674481D+060.9951145369D+060.4253818924D+06                                                                                  
0.1322237037D+05-.7842517500D+08-.9934432688D+08-.4694147103D+08-.8592571599D+08                                                  
-.9635311682D+08-.4719851210D+08-.1483864359D+090.1530618850D+080.6631565965D+07                                                  
-.4268952849D+060.9950842627D+060.4253696603D+06                                                                                  
0.1322240741D+05-.7835566019D+08-.9940930696D+08-.4696745636D+08-.8605929289D+08                                                  
-.9633713336D+08-.4723147419D+08-.1483979602D+090.1521884808D+080.6593693438D+07                                                  
-.4269231198D+060.9950539875D+060.4253574277D+06                                                                                  
0.1322244444D+05-.7828610294D+08-.9947423237D+08-.4699341589D+08-.8619282563D+08                                                  
-.9632109971D+08-.4726441170D+08-.1484094233D+090.1513150200D+080.6555818466D+07                                                  
-.4269509528D+060.9950237113D+060.4253451947D+06                                                                                  
0.1322248148D+05-.7821650332D+08-.9953910309D+08-.4701934962D+08-.8632631421D+08                                                  
-.9630501596D+08-.4729732466D+08-.1484208251D+090.1504415030D+080.6517941064D+07                                                  
-.4269787838D+060.9949934341D+060.4253329611D+06                                                                                  
0.1322251852D+05-.7814686137D+08-.9960391912D+08-.4704525753D+08-.8645975865D+08                                                  
-.9628888221D+08-.4733021310D+08-.1484321656D+090.1495679300D+080.6480061249D+07                                                  
-.4270066129D+060.9949631559D+060.4253207271D+06                                                                                  
0.1322255556D+05-.7807717715D+08-.9966868044D+08-.4707113962D+08-.8659315895D+08                                                  
-.9627269855D+08-.4736307704D+08-.1484434449D+090.1486943016D+080.6442179037D+07                                                  
-.4270344401D+060.9949328766D+060.4253084925D+06                                                                                  
0.1322259259D+05-.7800745071D+08-.9973338703D+08-.4709699589D+08-.8672651514D+08                                                  
-.9625646510D+08-.4739591652D+08-.1484546629D+090.1478206181D+080.6404294446D+07                                                  
-.4270622653D+060.9949025963D+060.4252962575D+06                                                                                  
0.1322262963D+05-.7793768212D+08-.9979803888D+08-.4712282634D+08-.8685982721D+08                                                  
-.9624018193D+08-.4742873155D+08-.1484658196D+090.1469468798D+080.6366407491D+07                                                  
-.4270900886D+060.9948723150D+060.4252840220D+06                                                                                  
0.1322266667D+05-.7786787141D+08-.9986263598D+08-.4714863095D+08-.8699309518D+08                                                  
-.9622384916D+08-.4746152216D+08-.1484769150D+090.1460730871D+080.6328518188D+07                                                  
-.4271179100D+060.9948420327D+060.4252717861D+06                                                                                  
0.1322270370D+05-.7779801865D+08-.9992717830D+08-.4717440974D+08-.8712631907D+08                                                  
-.9620746688D+08-.4749428839D+08-.1484879492D+090.1451992404D+080.6290626556D+07                                                  
-.4271457294D+060.9948117494D+060.4252595496D+06                                                                                  
0.1322274074D+05-.7772812388D+08-.9999166585D+08-.4720016268D+08-.8725949887D+08                                                  
-.9619103518D+08-.4752703026D+08-.1484989221D+090.1443253401D+080.6252732609D+07                                                  
-.4271735469D+060.9947814651D+060.4252473126D+06                                                                                  
0.1322277778D+05-.7765818717D+08-.1000560986D+09-.4722588978D+08-.8739263461D+08                                                  
-.9617455417D+08-.4755974779D+08-.1485098337D+090.1434513866D+080.6214836364D+07                                                  
-.4272013625D+060.9947511797D+060.4252350752D+06                                                                                  
0.1322281481D+05-.7758820856D+08-.1001204765D+09-.4725159103D+08-.8752572630D+08                                                  
-.9615802393D+08-.4759244102D+08-.1485206841D+090.1425773802D+080.6176937838D+07                                                  
-.4272291761D+060.9947208933D+060.4252228373D+06                                                                                  
0.1322285185D+05-.7751818812D+08-.1001847996D+09-.4727726644D+08-.8765877394D+08                                                  
-.9614144457D+08-.4762510997D+08-.1485314732D+090.1417033212D+080.6139037047D+07                                                  
-.4272569878D+060.9946906059D+060.4252105989D+06                                                                                  
0.1322288889D+05-.7744812589D+08-.1002490679D+09-.4730291598D+08-.8779177756D+08                                                  
-.9612481618D+08-.4765775466D+08-.1485422010D+090.1408292102D+080.6101134007D+07                                                  
-.4272847976D+060.9946603175D+060.4251983600D+06                                                                                  
0.1322292593D+05-.7737802192D+08-.1003132813D+09-.4732853967D+08-.8792473715D+08                                                  
-.9610813886D+08-.4769037513D+08-.1485528675D+090.1399550473D+080.6063228735D+07                                                  
-.4273126054D+060.9946300281D+060.4251861206D+06                                                                                  
0.1322296296D+05-.7730787628D+08-.1003774399D+09-.4735413750D+08-.8805765274D+08                                                  
-.9609141271D+08-.4772297140D+08-.1485634728D+090.1390808331D+080.6025321248D+07                                                  
-.4273404113D+060.9945997376D+060.4251738807D+06                                                                                  
0.1322300000D+05-.7723768901D+08-.1004415435D+09-.4737970946D+08-.8819052433D+08                                                  
-.9607463781D+08-.4775554350D+08-.1485740168D+090.1382065679D+080.5987411561D+07                                                  
-.4273682153D+060.9945694462D+060.4251616404D+06                                                                                  
0.1322303704D+05-.7716746017D+08-.1005055923D+09-.4740525554D+08-.8832335194D+08                                                  
-.9605781427D+08-.4778809145D+08-.1485844995D+090.1373322520D+080.5949499691D+07                                                  
-.4273960173D+060.9945391537D+060.4251493996D+06                                                                                  
0.1322307407D+05-.7709718982D+08-.1005695862D+09-.4743077575D+08-.8845613557D+08                                                  
-.9604094218D+08-.4782061529D+08-.1485949209D+090.1364578859D+080.5911585655D+07                                                  
-.4274238174D+060.9945088602D+060.4251371582D+06                                                                                  
0.1322311111D+05-.7702687800D+08-.1006335251D+09-.4745627008D+08-.8858887525D+08                                                  
-.9602402163D+08-.4785311503D+08-.1486052810D+090.1355834699D+080.5873669468D+07                                                  
-.4274516156D+060.9944785657D+060.4251249164D+06                                                                                  
0.1322314815D+05-.7695652477D+08-.1006974091D+09-.4748173853D+08-.8872157098D+08                                                  
-.9600705273D+08-.4788559071D+08-.1486155799D+090.1347090043D+080.5835751148D+07                                                  
-.4274794118D+060.9944482701D+060.4251126741D+06                                                                                  
0.1322318519D+05-.7688613018D+08-.1007612381D+09-.4750718109D+08-.8885422278D+08                                                  
-.9599003556D+08-.4791804236D+08-.1486258175D+090.1338344897D+080.5797830711D+07                                                  
-.4275072062D+060.9944179736D+060.4251004314D+06                                                                                  
0.1322322222D+05-.7681569429D+08-.1008250122D+09-.4753259776D+08-.8898683065D+08                                                  
-.9597297023D+08-.4795046999D+08-.1486359938D+090.1329599262D+080.5759908172D+07                                                  
-.4275349985D+060.9943876760D+060.4250881881D+06                                                                                  
0.1322325926D+05-.7674521715D+08-.1008887313D+09-.4755798853D+08-.8911939462D+08                                                  
-.9595585681D+08-.4798287363D+08-.1486461088D+090.1320853143D+080.5721983548D+07                                                  
-.4275627890D+060.9943573774D+060.4250759444D+06                                                                                  
0.1322329630D+05-.7667469882D+08-.1009523954D+09-.4758335341D+08-.8925191469D+08                                                  
-.9593869542D+08-.4801525332D+08-.1486561626D+090.1312106544D+080.5684056856D+07                                                  
-.4275905775D+060.9943270778D+060.4250637001D+06                                                                                  
0.1322333333D+05-.7660413934D+08-.1010160045D+09-.4760869238D+08-.8938439087D+08                                                  
-.9592148613D+08-.4804760908D+08-.1486661550D+090.1303359469D+080.5646128112D+07                                                  
-.4276183640D+060.9942967772D+060.4250514554D+06                                                                                  
0.1322337037D+05-.7653353877D+08-.1010795586D+09-.4763400544D+08-.8951682318D+08                                                  
-.9590422906D+08-.4807994093D+08-.1486760862D+090.1294611921D+080.5608197333D+07                                                  
-.4276461487D+060.9942664756D+060.4250392102D+06                                                                                  
0.1322340741D+05-.7646289717D+08-.1011430577D+09-.4765929259D+08-.8964921164D+08                                                  
-.9588692428D+08-.4811224891D+08-.1486859561D+090.1285863903D+080.5570264534D+07                                                  
-.4276739314D+060.9942361729D+060.4250269645D+06                                                                                  
0.1322344444D+05-.7639221459D+08-.1012065017D+09-.4768455382D+08-.8978155625D+08                                                  
-.9586957190D+08-.4814453304D+08-.1486957648D+090.1277115420D+080.5532329732D+07                                                  
-.4277017122D+060.9942058692D+060.4250147183D+06                                                                                  
0.1322348148D+05-.7632149108D+08-.1012698906D+09-.4770978914D+08-.8991385703D+08                                                  
-.9585217200D+08-.4817679334D+08-.1487055121D+090.1268366476D+080.5494392943D+07                                                  
-.4277294910D+060.9941755646D+060.4250024717D+06                                                                                  
0.1322351852D+05-.7625072669D+08-.1013332245D+09-.4773499854D+08-.9004611399D+08                                                  
-.9583472468D+08-.4820902984D+08-.1487151982D+090.1259617073D+080.5456454184D+07                                                  
-.4277572679D+060.9941452589D+060.4249902245D+06                                                                                  
0.1322355556D+05-.7617992148D+08-.1013965032D+09-.4776018200D+08-.9017832714D+08                                                  
-.9581723004D+08-.4824124257D+08-.1487248229D+090.1250867216D+080.5418513470D+07                                                  
-.4277850429D+060.9941149521D+060.4249779769D+06                                                                                  
0.1322359259D+05-.7610907551D+08-.1014597269D+09-.4778533954D+08-.9031049650D+08                                                  
-.9579968816D+08-.4827343156D+08-.1487343864D+090.1242116909D+080.5380570819D+07                                                  
-.4278128159D+060.9940846444D+060.4249657288D+06                                                                                  
0.1322362963D+05-.7603818882D+08-.1015228955D+09-.4781047114D+08-.9044262209D+08                                                  
-.9578209913D+08-.4830559683D+08-.1487438886D+090.1233366154D+080.5342626246D+07                                                  
-.4278405871D+060.9940543357D+060.4249534802D+06                                                                                  
0.1322366667D+05-.7596726147D+08-.1015860089D+09-.4783557681D+08-.9057470390D+08                                                  
-.9576446306D+08-.4833773841D+08-.1487533296D+090.1224614957D+080.5304679768D+07                                                  
-.4278683562D+060.9940240259D+060.4249412311D+06                                                                                  
0.1322370370D+05-.7589629351D+08-.1016490672D+09-.4786065653D+08-.9070674197D+08                                                  
-.9574678003D+08-.4836985632D+08-.1487627092D+090.1215863320D+080.5266731401D+07                                                  
-.4278961235D+060.9939937151D+060.4249289815D+06                                                                                  
0.1322374074D+05-.7582528500D+08-.1017120703D+09-.4788571030D+08-.9083873629D+08                                                  
-.9572905013D+08-.4840195059D+08-.1487720276D+090.1207111247D+080.5228781161D+07                                                  
-.4279238888D+060.9939634033D+060.4249167315D+06                                                                                  
0.1322377778D+05-.7575423598D+08-.1017750183D+09-.4791073813D+08-.9097068690D+08                                                  
-.9571127346D+08-.4843402125D+08-.1487812847D+090.1198358743D+080.5190829065D+07                                                  
-.4279516522D+060.9939330905D+060.4249044809D+06                                                                                  
0.1322381481D+05-.7568314652D+08-.1018379111D+09-.4793574000D+08-.9110259379D+08                                                  
-.9569345010D+08-.4846606833D+08-.1487904805D+090.1189605810D+080.5152875129D+07                                                  
-.4279794136D+060.9939027767D+060.4248922299D+06                                                                                  
0.1322385185D+05-.7561201667D+08-.1019007487D+09-.4796071592D+08-.9123445698D+08                                                  
-.9567558015D+08-.4849809184D+08-.1487996150D+090.1180852452D+080.5114919369D+07                                                  
-.4280071731D+060.9938724618D+060.4248799784D+06                                                                                  
0.1322388889D+05-.7554084647D+08-.1019635311D+09-.4798566588D+08-.9136627649D+08                                                  
-.9565766370D+08-.4853009182D+08-.1488086883D+090.1172098674D+080.5076961800D+07                                                  
-.4280349307D+060.9938421460D+060.4248677264D+06                                                                                  
0.1322392593D+05-.7546963598D+08-.1020262583D+09-.4801058987D+08-.9149805234D+08                                                  
-.9563970084D+08-.4856206830D+08-.1488177002D+090.1163344478D+080.5039002441D+07                                                  
-.4280626863D+060.9938118291D+060.4248554739D+06                                                                                  
0.1322396296D+05-.7539838526D+08-.1020889302D+09-.4803548789D+08-.9162978452D+08                                                  
-.9562169166D+08-.4859402129D+08-.1488266509D+090.1154589869D+080.5001041306D+07                                                  
-.4280904401D+060.9937815112D+060.4248432209D+06                                                                                  
0.1322400000D+05-.7532709436D+08-.1021515469D+09-.4806035995D+08-.9176147307D+08                                                  
-.9560363625D+08-.4862595083D+08-.1488355403D+090.1145834850D+080.4963078413D+07                                                  
-.4281181918D+060.9937511923D+060.4248309675D+06                                                                                  
                                                                                                                                  
                         Appendix A2                                                                                              
                                                                                                                                  
             Source Module for Subroutine GIODAT                                                                                  
                                                                                                                                  
C-----------------------------------------------------------------------                                                          
      SUBROUTINE GIODAT(TUTC,PVG,PVH,PVE,PVS,IERR)                                                                                
C-------------------------------------------------                                                                                
C S.J ISSUE 04 - 14.01.85                                                                                                         
C------------------------                                                                                                         
C                                                                                                                                 
************        SUBROUTINE IDENTIFICATION               ************                                                          
*                                                                      *                                                          
*   GIODAT IS AN INTERFACE ROUTINE TO THE EXPERIMENTER SUPPORT DATA    *                                                          
*   FILE ON LOGICAL UNIT 7 WHICH CONTAINS POSITION DATA FOR THE        *                                                          
*   GIOTTO PROBE, HALLEYS COMET, THE EARTH AND THE SUN GIVEN IN THE    *                                                          
*   BARYCENTRIC REFERENCE FRAME OF 1950 ( UNITS = KM )                 *                                                          
*   THE APPROXIMATE VELOCITIES FOR THE FOUR BODIES WILL BE DERIVED     *                                                          
*   FROM THE POSITION DATA AND GIVEN IN KM/S.                          *                                                          
*                                                                      *                                                          
************************************************************************                                                          
*                                                                      *                                                          
************        VARIABLE IDENTIFICATIONS               *************                                                          
*                                                                      *                                                          
*****            INPUT VARIABLES ( ARGUMENT LIST )                   ***                                                          
*                                                                      *                                                          
*   TUTC      -  UNIVERSAL COORDINATED TIME                            *                                                          
*                                                                      *                                                          
*****            OUTPUT VARIABLES ( ARGUMENT LIST )                  ***                                                          
*                                                                      *                                                          
*   PVG(1-3)  -  POSITION OF THE GIOTTO PROBE AT TIME TUTC             *                                                          
*   PVG(4-6)  -  VELOCITY OF THE GIOTTO PROBE AT TIME TUTC             *                                                          
*   PVH(1-3)                                                           *                                                          
*   PVH(4-6)  -  DITTO FOR HALLEYS COMET                               *                                                          
*   PVE(1-3)                                                           *                                                          
*   PVE(4-6)  -  DITTO FOR THE EARTH                                   *                                                          
*   PVS(1-3)                                                           *                                                          
*   PVS(4-6)  -  DITTO FOR THE SUN                                     *                                                          
*   IERR      -  ERROR CODE                                            *                                                          
*                =0 : NO ERROR                                         *                                                          
*                =1 : TUTC TOO EARLY                                   *                                                          
*                =2 : TUTC TOO LATE                                    *                                                          
*                                                                      *                                                          
*****            LOCAL VARIABLES                                     ***                                                          
*                                                                      *                                                          
*   ET        -  MODIFIED JULIAN DAY ( 1950.0 )                        *                                                          
*   PGI(3,3)  -  TO STORE POSITION DATA FOR THREE SAMPLES FOR THE      *                                                          
*                GIOTTO PROBE. USED IN THE QUADRATIC INTERPOLATION     *                                                          
*   PHI(3,3)  -  DITTO FOR HALLEYS COMET                               *                                                          
*   PEI(3,3)  -  DITTO FOR THE EARTH                                   *                                                          
*   PSI(3,3)  -  DITTO FOR THE SUN                                     *                                                          
*   T(3)      -  TO STORE REFERENCE TIME T0 FOR THE INTERPOLATION.     *                                                          
*   SKIP(3)   -  USED FOR SKIPPING RECORDS ON THE DATA FILE            *                                                          
*                                                                      *                                                          
*****            CONSTANT IDENTIFICATION                             ***                                                          
*                                                                      *                                                          
*   HSEC      -  (STEP SIZE)*86400                                     *                                                          
*   LUN       -  LOGICAL UNIT NUMBER OF FILE/TAPE CONTAINING           *                                                          
*                THE POSITION DATA.                                    *                                                          
*   STPUTC    -  STEP IN UTC AT TIME SUTC                              *                                                          
*                                                                      *                                                          
*****            TEMPORARY VARIABLES                                 ***                                                          
*                                                                      *                                                          
*   (1)                                                                *                                                          
*   TMP(1)    -  0.5*(P-1)*(P-2)                                       *                                                          
*   TMP(2)    -  P*(P-2)                                               *                                                          
*   TMP(3)    -  0.5*P*(P-1)                                           *                                                          
*   (2)                                                                *                                                          
*   TMP(1)    -  (P-1.5)/HSEC                                          *                                                          
*   TMP(2)    -  (2*P-2)/HSEC                                          *                                                          
*   TMP(3)    -  (P-0.5)/HSEC                                          *                                                          
*   WHERE ET(P) IS THE EPOCH FOR WHICH THE POSITIONS ARE REQUIRED.     *                                                          
*   ( RANGE OF P :  0:2 )                                              *                                                          
*                                                                      *                                                          
************************************************************************                                                          
*                                                                      *                                                          
************  TYPE DECLARATION AND STORAGE ALLOCATION       ************                                                          
*                                                                      *                                                          
      IMPLICIT REAL*8(A-H,O-Z)                                                                                                    
      LOGICAL FIRST                                                                                                               
      CHARACTER*1 SKIP(3)                                                                                                         
      DIMENSION PVG(6),PVH(6),PVE(6),PVS(6),PGI(3,3),                                                                             
     &          PHI(3,3),PEI(3,3),PSI(3,3),T(3),TMP(3)                                                                            
      DATA FIRST/.TRUE./                                                                                                          
      DATA LUN/7/                                                                                                                 
*                                                                      *                                                          
************************************************************************                                                          
*                                                                      *                                                          
************  INITIALISE AND VERIFY INPUT DATA              ***BLOCK0000                                                          
*                                                                      *                                                          
      IERR=0                                                                                                                      
C    IF FIRST CALL READ CONTROL RECORD AND SET CONSTANTS                                                                          
      IF(FIRST)THEN                                                                                                               
      READ(LUN,10) IYGEN,MOGEN,DGEN,NS,NR,ET1,ET2,SUTC,ETUTC1,ETUTC2                                                              
   10 FORMAT(2I5,D16.10,2I5,/,5D16.10)                                                                                            
C    DETERMINE STEP IN UTC AT TIME SUTC                                                                                           
      STPUTC=ETUTC2-ETUTC1                                                                                                        
C    DETERMINE STEP SIZE                                                                                                          
      H=(ET2-ET1)/(DFLOAT(NR)-1.D0)                                                                                               
      HSEC=H*86400.D0                                                                                                             
      FIRST=.FALSE.                                                                                                               
      ENDIF                                                                                                                       
C    DETERMINE ET ( MODIFIED JULIAN DAY )                                                                                         
      ET=TUTC+ETUTC1                                                                                                              
      IF(ET.GE.SUTC)ET=ET+STPUTC                                                                                                  
C    VERIFY EPOCH ON FILE                                                                                                         
      IF(ET.LT.ET1-1.D-4)GOTO 910                                                                                                 
      IF(ET.GT.ET2+1.D-4)GOTO 920                                                                                                 
      DO 20 I=1,6                                                                                                                 
      PVG(I)=0.D0                                                                                                                 
      PVH(I)=0.D0                                                                                                                 
      PVE(I)=0.D0                                                                                                                 
      PVS(I)=0.D0                                                                                                                 
   20 CONTINUE                                                                                                                    
*                                                                      *                                                          
************************************************************************                                                          
*                                                                      *                                                          
*******    DETERMINE THE POSITION VECTORS FOR EPOCH ET       **BLOCK0100                                                          
*                                                                      *                                                          
C    FIND RECORD NUMBER                                                                                                           
      IREC=DINT((ET-ET1)/H)+1                                                                                                     
  110 CONTINUE                                                                                                                    
C    POSITION THE T0 SAMPLE TO ENSURE T1 AND T2 AVAILABLE                                                                         
      IF(NR-IREC.LT.2)THEN                                                                                                        
      IREC=IREC-1                                                                                                                 
      GOTO 110                                                                                                                    
      ENDIF                                                                                                                       
      IF(FIRST)THEN                                                                                                               
      IF(IREC.EQ.1)GOTO 135                                                                                                       
      DO 130 I=1,IREC-1                                                                                                           
      READ(LUN,120)SKIP                                                                                                           
  120 FORMAT(A1)                                                                                                                  
  130 CONTINUE                                                                                                                    
      GOTO 135                                                                                                                    
      ENDIF                                                                                                                       
      IDIF=IREC-IRECOL-1                                                                                                          
      IF(IDIF.EQ.0)GOTO 135                                                                                                       
      ISKP=ABS(IDIF)                                                                                                              
      IF(IDIF.LT.0)THEN                                                                                                           
      DO 131 I=1,ISKP*3                                                                                                           
      BACKSPACE LUN                                                                                                               
  131 CONTINUE                                                                                                                    
      ELSE                                                                                                                        
      DO 132 I=1,ISKP                                                                                                             
      READ(LUN,120)SKIP                                                                                                           
  132 CONTINUE                                                                                                                    
      ENDIF                                                                                                                       
  135 CONTINUE                                                                                                                    
      IRECOL=IREC+2                                                                                                               
      DO 150 I=1,3                                                                                                                
      READ(LUN,140)T(I),(PGI(I,J),J=1,3),(PHI(I,J),J=1,3),                                                                        
     &                  (PEI(I,J),J=1,3),(PSI(I,J),J=1,3)                                                                         
  140 FORMAT(5D16.10)                                                                                                             
  150 CONTINUE                                                                                                                    
*                                                                      *                                                          
*                                                                      *                                                          
************************************************************************                                                          
*                                                                      *                                                          
*******  DETERMINE POSITIONS USING QUADRATIC INTERPOLATION   **BLOCK0200                                                          
*                                                                      *                                                          
      P=(ET-T(1))/H                                                                                                               
      TMP(1)=0.5*(P-1.D0)*(P-2.D0)                                                                                                
      TMP(2)=P*(2.D0-P)                                                                                                           
      TMP(3)=0.5D0*P*(P-1.D0)                                                                                                     
      DO 220 I=1,3                                                                                                                
      DO 210 J=1,3                                                                                                                
      PVG(I)=PVG(I)+PGI(J,I)*TMP(J)                                                                                               
      PVH(I)=PVH(I)+PHI(J,I)*TMP(J)                                                                                               
      PVE(I)=PVE(I)+PEI(J,I)*TMP(J)                                                                                               
      PVS(I)=PVS(I)+PSI(J,I)*TMP(J)                                                                                               
  210 CONTINUE                                                                                                                    
  220 CONTINUE                                                                                                                    
*                                                                      *                                                          
************************************************************************                                                          
*                                                                      *                                                          
******* DETERMINE VELOCITIES FROM DERIVATIVES OF POSITIONS   **BLOCK0300                                                          
*                                                                      *                                                          
      TMP(1)=(P-1.5D0)/HSEC                                                                                                       
      TMP(2)=(2.D0-2.D0*P)/HSEC                                                                                                   
      TMP(3)=(P-0.5D0)/HSEC                                                                                                       
      DO 320 I=1,3                                                                                                                
      I1=I+3                                                                                                                      
      DO 310 J=1,3                                                                                                                
      PVG(I1)=PVG(I1)+PGI(J,I)*TMP(J)                                                                                             
      PVH(I1)=PVH(I1)+PHI(J,I)*TMP(J)                                                                                             
      PVE(I1)=PVE(I1)+PEI(J,I)*TMP(J)                                                                                             
      PVS(I1)=PVS(I1)+PSI(J,I)*TMP(J)                                                                                             
  310 CONTINUE                                                                                                                    
  320 CONTINUE                                                                                                                    
*                                                                      *                                                          
************************************************************************                                                          
*                                                                      *                                                          
************             ERROR MESSAGE BLOCK                ***BLOCK0900                                                          
*                                                                      *                                                          
      GOTO 1000                                                                                                                   
  910 CONTINUE                                                                                                                    
      IERR=1                                                                                                                      
      WRITE(6,911)                                                                                                                
  911 FORMAT(/' GIOPOS :  ET TOO EARLY ')                                                                                         
      GOTO 1000                                                                                                                   
  920 CONTINUE                                                                                                                    
      IERR=2                                                                                                                      
      WRITE(6,921)                                                                                                                
  921 FORMAT(/' GIOPOS :  ET TOO LATE ')                                                                                          
 1000 CONTINUE                                                                                                                    
      RETURN                                                                                                                      
      END                                                                                                                         
                                                                                                                                  
                           Appendix A3                                                                                            
                                                                                                                                  
                Source Module for Subroutine TRAVEL                                                                               
                                                                                                                                  
C-----------------------------------------------------------------------                                                          
      SUBROUTINE TRAVEL(TUTC,S,DTG,P,G,IER)                                                                                       
C-------------------------------------------------                                                                                
C   ISSUE 01 - 18.01.85                                                                                                           
C----------------------                                                                                                           
C                                                                                                                                 
************        SUBROUTINE IDENTIFICATION               ************                                                          
*                                                                      *                                                          
*   TRAVEL PROVIDES THE FOLLOWING GIOTTO EXPERIMENTER SUPPORT DATA:    *                                                          
*   - SIGNAL TRAVEL TIME BETWEEN THE GIOTTO S/C AND A STATION ON EARTH *                                                          
*   - POSITIONS OF STATION AND S/C IN THE HELIOCENTRIC EME50           *                                                          
*     AT SIGNAL RECEPTION AND TRANSMISSION TIMES INVOLVED.             *                                                          
*   STATION COORDINATES ARE COMPUTED WITHOUT PRECESSION, I.E.          *                                                          
*   THE TRAVEL TIMES GIVEN ARE ACCURATE TO ABOUT 1 MSEC.               *                                                          
*   TRAVEL RETRIEVES THE STATES OF THE PARTICIPATING BODIES FROM       *                                                          
*   THE POSITION DATA FILE BY MEANS OF THE INTERFACE ROUTINE GIODAT.   *                                                          
*                                                                      *                                                          
************************************************************************                                                          
*                                                                      *                                                          
************        VARIABLE IDENTIFICATIONS               *************                                                          
*                                                                      *                                                          
*****            INPUT VARIABLES ( ARGUMENT LIST )                   ***                                                          
*                                                                      *                                                          
*   TUTC      -  SIGNAL RECEPTION TIME (UTC DAYS SINCE 1950.0)         *                                                          
*   S(1-3)    -  CARTESIAN COORDINATES OF STATION IN BODY-FIXED SYSTEM *                                                          
*                                                                      *                                                          
*****            OUTPUT VARIABLES ( ARGUMENT LIST )                  ***                                                          
*                                                                      *                                                          
*   DTG       -  SIGNAL TRAVEL TIME(SEC) GIOTTO S/C - STATION          *                                                          
*   P(1-3)    -  POSITION OF STATION AT TUTC IN HELIOCENTRIC EME50     *                                                          
*   G(1-3)    -  POSITION OF GIOTTO AT TUTC-DTG IN HELIOCENTRIC EME50  *                                                          
*   IER       -  ERROR CODE                                            *                                                          
*                =0 : NO ERROR                                         *                                                          
*                =1 : TUTC TOO EARLY, NO DATA ON POSITION DATA FILE    *                                                          
*                =2 : TUTC TOO LATE , NO DATA ON POSITION DATA FILE    *                                                          
*                =3 : NO CONVERGENCE IN SOLUTION OF LIGHT TIME EQUATION*                                                          
*                                                                      *                                                          
*****            LOCAL VARIABLES OF SPECIAL INTEREST                 ***                                                          
*                                                                      *                                                          
*   SG(6)        GIOTTO STATE IN BARYCENTRIC EME50                     *                                                          
*   SH(6)     -  DITTO FOR HALLEYS COMET                               *                                                          
*   SU(6)     -  DITTO FOR SUN                                         *                                                          
*                                                                      *                                                          
*****            CONSTANT IDENTIFICATION                             ***                                                          
*                                                                      *                                                          
*   RJ,RK,RL  -  COEFFICIENTS IN FORMULA FOR SIDERIAL ANGLE            *                                                          
*   C         -  VELOCITY OF LIGHT                                     *                                                          
*   TWOPI     -  TWO PI                                                *                                                          
*                                                                      *                                                          
************************************************************************                                                          
*                                                                      *                                                          
************  TYPE DECLARATION AND STORAGE ALLOCATION       ************                                                          
*                                                                      *                                                          
      IMPLICIT REAL*8(A-H,O-Z)                                                                                                    
      DIMENSION S(3),P(3),G(3),SS(6),SG(6),SH(6),SU(6)                                                                            
*                                                                      *                                                          
************************************************************************                                                          
*                                                                      *                                                          
************  SET CONSTANTS                                 ***BLOCK0000                                                          
      DATA RJ,RK,RL /0.2769194D0,100.0021359028D0,0.107523D-5/                                                                    
      DATA C,TWOPI /299792.458D0,6.283185307179587D0/                                                                             
*                                                                      *                                                          
************************************************************************                                                          
*                                                                      *                                                          
*******    STATION STATE AT TUTC                             **BLOCK0100                                                          
*                                                                      *                                                          
      CALL GIODAT(TUTC,SG,SH,SS,SU,IER)                                                                                           
      IF(IER.NE.0) RETURN                                                                                                         
      Y=0.5D0+TUTC/36525.D0                                                                                                       
      IT=TUTC                                                                                                                     
      X=TUTC-IT                                                                                                                   
      X=(X+RJ+(RK+RL*Y)*Y)*TWOPI                                                                                                  
      Y=DCOS(X)                                                                                                                   
      Z=DSIN(X)                                                                                                                   
      P(1)=S(1)*Y-S(2)*Z+SS(1)                                                                                                    
      P(2)=S(1)*Z+S(2)*Y+SS(2)                                                                                                    
      P(3)=S(3)+SS(3)                                                                                                             
      G(1)=SU(1)                                                                                                                  
      G(2)=SU(2)                                                                                                                  
      G(3)=SU(3)                                                                                                                  
*                                                                      *                                                          
************************************************************************                                                          
*                                                                      *                                                          
*******  SOLUTION OF LIGHT TIME EQUATION                     **BLOCK0200                                                          
*                                                                      *                                                          
      DTG=0.D0                                                                                                                    
      DO 210 I=1,5                                                                                                                
      X=SG(1)-P(1)                                                                                                                
      Y=SG(2)-P(2)                                                                                                                
      Z=SG(3)-P(3)                                                                                                                
      DGB=DSQRT(X*X+Y*Y+Z*Z)                                                                                                      
      Z=(X*SG(4)+Y*SG(5)+Z*SG(6))/DGB                                                                                             
      Y=(DTG-DGB/C)/(1.D0-Z/C)                                                                                                    
      DTG=DTG-Y                                                                                                                   
      IF(DABS(Y).LT.1.D-4) GOTO 1000                                                                                              
      X=TUTC-DTG/864.D2                                                                                                           
      CALL GIODAT(X,SG,SH,SS,SU,IER)                                                                                              
      IF(IER.NE.0) RETURN                                                                                                         
  210 CONTINUE                                                                                                                    
*                                                                      *                                                          
************************************************************************                                                          
*                                                                      *                                                          
*******  ERROR MESSAGES                                      **BLOCK0900                                                          
*                                                                      *                                                          
      IER=3                                                                                                                       
      WRITE(6,910) IER                                                                                                            
  910 FORMAT(' TRAVEL ERROR MESSAGE',I3/                                                                                          
     &' = NO CONVERGENCE AFTER 5 ITERATIONS'/                                                                                     
     &'   IN SOLUTION OF LIGHT TIME EQUATION')                                                                                    
*                                                                      *                                                          
************************************************************************                                                          
*                                                                      *                                                          
*******  SET OUTPUT VARIABLES AND RETURN                     **BLOCK1000                                                          
*                                                                      *                                                          
 1000 P(1)=P(1)-G(1)                                                                                                              
      P(2)=P(2)-G(2)                                                                                                              
      P(3)=P(3)-G(3)                                                                                                              
      G(1)=SG(1)-SU(1)                                                                                                            
      G(2)=SG(2)-SU(2)                                                                                                            
      G(3)=SG(3)-SU(3)                                                                                                            
      RETURN                                                                                                                      
      END                                                                                                                         
                                                                                                                                  
                           Appendix A4                                                                                            
                                                                                                                                  
                Source Module for Suroutine PETRA                                                                                 
                                                                                                                                  
      SUBROUTINE PETRA(XMUP,X,INIT,KODE,T,Y,RY,AUT)                                                                               
CP   GIVES STATE VECTOR OF AN ELLIPTICAL, PARABOLICAL OR                                                                          
CP   HYPERBOLICAL TRAJECTORY CENTRED AT THE ORIGIN OF THE COORD. SYST.                                                            
C    SAME AS 'TRAJEC', EXCEPT FOR ADDITIONAL INPUT: 'XMUP'.                                                                       
C                                                                                                                                 
CI  XMUP = GRAVITY POTENTIAL OF CENTRAL BODY                                                                                      
CI  X( ) = POSITION (X(1)..X(3)) AND VELOCITY (X(4)..X(6)), (KM,KM/SEC)                                                           
CI  INIT = 0 FOR EACH NEW X. OLD VALUE SHOULD HAVE INIT.GT.0                                                                      
CI  KODE = 1  ONLY POSITION IN Y(1)..Y(3)                                                                                         
CI       = 2  POSITION + VELOCITY IN Y(1)..Y(6)                                                                                   
CI     E = 14: AS 2 + OUTPUT VECTOR AUT(14) FOR PARTIAL DERIVATIVES.                                                              
CI  T = TIME DIFFERENCE (SEC) BETWEEN X AND Y                                                                                     
C                                                                                                                                 
CO  Y( )     = STATE VECTOR AFTER TIME T                                                                                          
CO  RY       = SQRT(Y(1)**2+Y(2)**2+Y(3)**2)       ONLY IF KODE.GE.2                                                              
CO  AUT(1)   = INVERSE SEMI-MAJ.AXIS; NEGATIVE FOR HYPERBOLAE.                                                                    
CO  AUT(2)...AUT(14) = INPUT TO SUBROUTINE 'PEDER' FOR PARTIAL                                                                    
CO                     DERIVATIVES. ONLY IF KODE.GE.3                                                                             
C                                                                                                                                 
      IMPLICIT REAL*8(A-H,O-Z)                                                                                                    
      DIMENSION X(6),Y(6),AUT(KODE),C2(7),C3(7)                                                                                   
      DATA KNIT/0/                                                                                                                
COEFFICIENTS FOR STUMPFF-FUNCTIONS                                                                                                
      DATA C3/0.7650283228592385 D-12,-0.1605953765319026 D-9,                                                                    
     & 0.2505210785999854 D-7,-0.2755731919939401 D-5,                                                                            
     & 0.1984126984129264 D-3, -0.8333333333333568D-2,                                                                            
     & 0.166666666666666665 D0/,C2/0.1147134108311665 D-10,                                                                       
     & -0.2087759200397967 D-8,0.2755731917059028 D-6,                                                                            
     & -0.2480158725995993 D-4,0.1388888888888999 D-2,                                                                            
     & -0.4166666666667176 D-1,0.4999999999999998 D0/                                                                             
      IF(INIT*KNIT .GT. 0) GOTO 115                                                                                               
      KNIT = 1                                                                                                                    
      WMUP = DSQRT(XMUP)                                                                                                          
      RX = DSQRT(X(1)**2+X(2)**2+X(3)**2)                                                                                         
      A = 2.D0/RX -(X(4)**2+X(5)**2+X(6)**2)/XMUP                                                                                 
      QA = DSQRT(DABS(A))                                                                                                         
      RVWM= (X(1)*X(4)+X(2)*X(5)+X(3)*X(6))/WMUP                                                                                  
115   TM = T*WMUP                                                                                                                 
C  FIND SUITABLE INITIAL VALUE FOR B AND FOR MAXIMUM STEP LENGTH:                                                                 
      DBMAX = DMAX1(DABS(A*TM),DABS(TM)/RX)                                                                                       
C  IF WE ARE FAR OUT ON A PARABOLA:                                                                                               
      ATM6 = 6.D0*DABS(TM)                                                                                                        
      IF(DBMAX**3.LT.ATM6) DBMAX = ATM6**(1.D0/3.D0)                                                                              
      IF(A.GE.-1.D-30) GOTO 135                                                                                                   
C  IF WE ARE FAR OUT ON A HYPERBOLA:                                                                                              
      UP = DABS(TM*QA*A*2.D0)                                                                                                     
      DO = 1.D0 - A*RX                                                                                                            
      IF(UP.LE.DO) GOTO 135                                                                                                       
      DBMAX = DMIN1(DBMAX,DLOG(UP/DO)/QA)                                                                                         
135   B = DSIGN(DBMAX,TM)                                                                                                         
C  MAXIMUM STEP = 1 RAD FOR A PARABOLA:                                                                                           
      IF(A*DBMAX.GT.QA) DBMAX = 1.D0/QA                                                                                           
      DB = 0.D0                                                                                                                   
C  END OF INITIALISATION, START NEWTON'S ITERATION FOR ECC. ANOM.                                                                 
155   W = B*QA                                                                                                                    
C  USE STUMPFF-SERIES WHEN CLOSE TO 0:                                                                                            
      IF(DABS(W).GE.0.3D0) GOTO 242                                                                                               
      BB = B*B                                                                                                                    
      WW = BB*A                                                                                                                   
      G2 = C2(1)                                                                                                                  
      G3 = C3(1)                                                                                                                  
      DO 221 I=2,7                                                                                                                
      G2 = G2*WW + C2(I)                                                                                                          
221   G3 = G3*WW + C3(I)                                                                                                          
      G2 = G2*BB                                                                                                                  
      G3 = G3*BB*B                                                                                                                
      GO = 1.D0-A*G2                                                                                                              
      G1 = B-A*G3                                                                                                                 
      GOTO 595                                                                                                                    
242   IF(A.LT.0.D0) GOTO 511                                                                                                      
C  ONLY ELLIPSES                                                                                                                  
      GO = DCOS(W)                                                                                                                
      G1 = DSIN(W)/QA                                                                                                             
      GOTO 553                                                                                                                    
C  ONLY HYPERBOLAE:                                                                                                               
511   GO = DCOSH(W)                                                                                                               
      G1 = DSINH(W)/QA                                                                                                            
553   G2 = (1.D0-GO)/A                                                                                                            
      G3 = (B-G1)/A                                                                                                               
595   DOLD = DB                                                                                                                   
      DB = (TM-RX*G1-RVWM*G2-G3                                                                                                   
     & )/(RX*GO+RVWM*G1+G2)                                                                                                       
C  DECREASE MAX STEP IF WE HAVE ALTERNATING SIGNS:                                                                                
      IF(DB*DOLD.LT.-1.D-20) DBMAX = DBMAX*0.5D0                                                                                  
C  PUT A LIMIT TO THE STEP LENGTH:                                                                                                
      DB = DMAX1(-DBMAX,DMIN1(DBMAX,DB))                                                                                          
      B = B + DB                                                                                                                  
CHECK IF WE HAVE CONVERGED:                                                                                                       
      IF(DABS(DB).GT.DABS(B)*1.D-8) GOTO 155                                                                                      
C  ITERATION END; UPDATE THE G'S LINEARLY FROM LAST STEP.                                                                         
      GO = GO-DB*G1*A                                                                                                             
      G1 = G1+DB*GO                                                                                                               
      G2 = G2+DB*G1                                                                                                               
      G3 = G3+DB*G2                                                                                                               
      FX = 1.D0-G2/RX                                                                                                             
      GX = T-G3/WMUP                                                                                                              
      DO 635 J = 1,3                                                                                                              
635   Y(J) = FX*X(J)+GX*X(J+3)                                                                                                    
      AUT(1) = A                                                                                                                  
      IF(KODE .LE. 1) RETURN                                                                                                      
      RY = DSQRT(Y(1)**2+Y(2)**2+Y(3)**2)                                                                                         
      FT = -WMUP*G1/(RX*RY)                                                                                                       
      GT = 1.D0-G2/RY                                                                                                             
      DO 660 J=4,6                                                                                                                
660   Y(J) = FT*X(J-3)+GT*X(J)                                                                                                    
      IF(KODE .LE. 2) RETURN                                                                                                      
C  PREPARATION OF PARTIAL DERIVATIVES                                                                                             
      AUT(2)=B                                                                                                                    
      AUT(3)=RVWM                                                                                                                 
      AUT(4)=GO                                                                                                                   
      AUT(5)=G1                                                                                                                   
      AUT(6)=G2                                                                                                                   
      AUT(7)=G3                                                                                                                   
      AUT(8)=RX                                                                                                                   
      AUT(9)=FX                                                                                                                   
      AUT(10)=GX                                                                                                                  
      AUT(11)=FT                                                                                                                  
      AUT(12)=GT                                                                                                                  
      AUT(13)=XMUP                                                                                                                
      AUT(14)=WMUP                                                                                                                
      RETURN                                                                                                                      
      END