diff --git a/Dockerfile.RoR b/Dockerfile.RoR
index d1445ea..1473b08 100644
--- a/Dockerfile.RoR
+++ b/Dockerfile.RoR
@@ -10,8 +10,8 @@ ENV PERL5LIB=.
ENV DEBIAN_FRONTEND=noninteractive
RUN apt-get update && apt-get install -y ssh make gcc git g++ gfortran libopenmpi-dev openmpi-bin libgsl-dev libgsl23 gsl-bin libgsl-dbg libnetcdf-dev libnetcdff-dev nco netcdf-bin python3 python3-pip python-is-python3
-
-RUN pip install numpy==1.21 && pip install spacepy==0.4.1 && pip install netCDF4
+RUN pip install --upgrade pip
+RUN pip install numpy==1.21 && pip install spacepy==0.6.0 && pip install netCDF4
COPY flux-model /SHIELDS/flux-model
WORKDIR /SHIELDS/flux-model
diff --git a/Makefile b/Makefile
index ffe949d..6714465 100755
--- a/Makefile
+++ b/Makefile
@@ -4,11 +4,13 @@ default : RAM_SCB
include Makefile.def
srcDir = src
+GlowDir= srcGlow
+
INSTALLFILES = ${srcDir}/Makefile.DEPEND \
${srcDir}/Makefile.RULES \
srcInterface/Makefile.DEPEND \
- srcExternal/Makefile.DEPEND
-
+ srcExternal/Makefile.DEPEND \
+ ${GlowDir}/Makefile.DEPEND
help:
@echo ' '
@echo ' You can "make" the following:'
@@ -30,6 +32,7 @@ PDF:
RAM_SCB:
@cd ${SHAREDIR}; make LIB
@cd srcExternal; make LIB
+ @cd ${GlowDir}; make LIB
@cd ${srcDir}; make LIB
@cd ${srcDir}; make RAM_SCB
@@ -41,12 +44,14 @@ LIB:
cd ${srcDir}; make LIB
cd srcInterface; make LIB
cd srcExternal; make LIB
+ cd ${GlowDir}; make LIB
clean:
@touch ${INSTALLFILES}
@cd ${srcDir}; make clean
@cd srcInterface; make clean
@cd srcExternal; make clean
+ @cd ${GlowDir}; make clean
@(if [ -d util ]; then cd util; make clean; fi);
@(if [ -d share ]; then cd share; make clean; fi);
@@ -59,6 +64,7 @@ allclean:
@(if [ -d srcPspline ]; then rm -rf srcPspline; fi);
@cd ${srcDir}; make distclean
@cd srcInterface; make distclean
+ @cd ${GlowDir}; make distclean
rm -f *~
rundir:
@@ -75,9 +81,9 @@ rundir:
cd ${RUNDIR}; \
ln -s ../input/bav_diffcoef_chorus_rpa_Kp*.PAonly.dat .
cd ${RUNDIR}/IM/output; \
- mkdir -p ram/Dsbnd scb/Day00
+ mkdir -p ram/Dsbnd scb/Day00 sce/
cd ${RUNDIR}/IM; \
- mkdir input_ram input_scb output_swmf; \
+ mkdir input_ram input_scb input_sce output_swmf; \
mkdir restartIN restartOUT; \
tar xzf ${IMDIR}/input/ramscb_inputs.tgz; \
mv Input_git/EMIC_model input_ram/; \
@@ -89,7 +95,8 @@ rundir:
mv Input_git/*geomlt*.txt input_ram/; \
mv initialization.nc input_ram/; \
mv QinDenton_20130317_1min.txt input_scb/; \
- mv NitrogenCrossSections.dat input_ram/;
+ mv NitrogenCrossSections.dat input_ram/; \
+ cp -r ${IMDIR}/input/glow_data input_sce/;
@(if [ "$(STANDALONE)" != "NO" ]; then \
cd ${RUNDIR} ; \
cp ${IMDIR}/Param/PARAM.in.default ./PARAM.in; \
@@ -98,6 +105,7 @@ rundir:
rm -f output; \
ln -s IM/output/ram output_ram; \
ln -s IM/output/scb output_scb; \
+ ln -s IM/output/sce output_sce;\
fi)
@@ -438,7 +446,6 @@ testEMIC_check:
>> testEMIC.diff
@echo "Test Successful!"
-#TEST EMIC----------------------------------
testSpecies:
@echo "starting..." > testSpecies.diff
@echo "testSpecies_compile..." >> testSpecies.diff
@@ -471,4 +478,39 @@ testSpecies_check:
${TESTDIRC}/output_ram/pressure_d20130317_t001500.dat \
${IMDIR}/output/testSpecies/pressure.ref \
>> testSpecies.diff
+
+#TEST SCE----------------------------------
+testSCE:
+ @echo "starting..." > testSCE.diff
+ @echo "testSCE_compile..." >> testSCE.diff
+ make testSCE_compile
+ @echo "testSCE_rundir..." >> testSCE.diff
+ make testSCE_rundir PARAMFILE=PARAM.in.testSCE
+ @echo "testSCE_run..." >> testSCE.diff
+ make testSCE_run MPIRUN=
+ @echo "testSCE_check..." >> testSCE.diff
+ make testSCE_check
+
+testSCE_compile:
+ make
+
+testSCE_rundir:
+ rm -rf ${TESTDIRC}
+ make rundir RUNDIR=${TESTDIRC} STANDALONE="YES"
+ cp Param/${PARAMFILE} ${TESTDIRC}/PARAM.in
+ cp -r input/glow_data ${TESTDIRC}/=
+
+testSCE_run:
+ cd ${TESTDIRC}; ${MPIRUN} ./ram_scb.exe | tee runlog;
+
+testSCE_check:
+ ${SCRIPTDIR}/DiffNum.pl -b -a=1e-9 \
+ ${TESTDIRC}/output_ram/log_d20130317_t000000.log \
+ ${IMDIR}/output/testSCE/log.ref \
+ > testSCE.diff
+ ${SCRIPTDIR}/DiffNum.pl -b -a=1e-9 \
+ ${TESTDIRC}/output_ram/pressure_d20130317_t001000.dat \
+ ${IMDIR}/output/testSCE/pressure.ref \
+ >> testSCE.diff
+
@echo "Test Successful!"
diff --git a/PARAM.XML b/PARAM.XML
index 06de944..d3a5043 100755
--- a/PARAM.XML
+++ b/PARAM.XML
@@ -137,13 +137,15 @@ If using nitrogen in the species this command will convert a percent of the oxyg
+
#USEWPI
F DoUseWPI
F DoUseBASdiff
F DoUseKpdiff
F DoUseEMIC
+F DoSaveLwgr
-Flag to turn on pitch angle diffusion. The default setting for the Kp-based version uses Kp=0 coefficients. Turning this flag on interpolates Kp-dependent diffusion coefficents for Kp in the range (0-4). Different options are available if selecting DoUseBASDiff. EMIC wave pitch angle diffusion is used for ions wave-particle interaction.
+Flag to turn on pitch angle diffusion. The default setting for the Kp-based version uses Kp=0 coefficients. Turning this flag on interpolates Kp-dependent diffusion coefficents for Kp in the range (0-4). Different options are available if selecting DoUseBASDiff. EMIC wave pitch angle diffusion is used for ions wave-particle interaction. DoSaveLwgr is used to save hourly output for linear wave growth calculations.
@@ -339,6 +341,69 @@ F PressureDetail
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!!!!!!!!!!!SCE group!!!!!!!!!!!!!
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+
+
+
+
+
+#IONOSPHERE
+7 iConductanceModel
+2.5 StarLightPedConductance
+F DoUseFullSpec
+F DoSaveGLOWConductivity
+
+\begin{itemize}
+ \item iConductanceModel: 7 uses Robinson's statistical conductance model; 9 uses S. Solomon's GLOW model. If "9" is used, the last two commands are needed. When the GLOW model is used, parallelizing is recommended.
+ \item StarLightPedConductance: the background conductance due to star light
+ \item DoUseFullSpec: only needed when iConductanceModel=9; It uses full precipitating spectrum as input to the GLOW
+ \item DoSaveGLOWConductivity: only needed when iConductanceModel=9; It saves height-dependent conductivity from GLOW
+
+
+
+
+#BOUNDARY
+50 LatBoundary
+
+Specify the low latitudinal boundary for the ionospheric potential solver. Default is set at 50 degree magnetic latitude.
+
+
+
+
+#SOLVER
+GMRES NameSolver (gmres or bicgstab)
+
+Specify the scheme for the ionospheric potential solver.
+
+
+
+
+
+
+
+
+#KRYLOV
+T UsePreconditioner
+T UseInitialGuess
+0.01 Tolerance
+100 MaxIteration
+
+This command controls the parameters for the Krylov solver used to
+solve the Poisson type equation for the electric potential.
+If UsePreconditioner is true the solver uses a preconditioner.
+If UseInitialGuess is true, the previous solution is used as an
+initial guess. The Tolerance parameter sets the second norm of
+the final (preconditioned) residual. The MaxIteration parameter sets the
+maximum number of iterations before the linear solver gives up.
+In most cases the default values should work fine.
+
+The default values are shown above.
+
+
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!Components group!!!!!!!!!
@@ -476,6 +541,7 @@ Set the source for the convective electric field in RAM-SCB. The choice made wi
\item \textbf{VOLS}: $K_{P}$-based Volland-Stern empirical electric field (internal VS calculation).
\item \textbf{WESC}: Weimer 2001 empirical electric field mapped to the equatorial plane via RAM-SCB field lines (internal W01 calculation).
\item \textbf{W5SC}: Weimer 2005 empirical electric field mapped to the equatorial plane via RAM-SCB field lines (internal W05 calculation).
+ \item \textbf{RSCE}: self-consistently calculated electric field mapped to the equatorial plane via RAM-SCB field lines. If this option is chosen, the following commands are needed: IONOSPHERE, BOUNDARY, SOLVER, KRYLOV. The description of these commands are provided below.
\end{enumerate}
The parameter UseEfInd turns the use of induced electric field on or off. Default is no induced electric field.
diff --git a/Param/PARAM.in.testEMIC b/Param/PARAM.in.testEMIC
index 0ee84c7..01b7c17 100644
--- a/Param/PARAM.in.testEMIC
+++ b/Param/PARAM.in.testEMIC
@@ -36,6 +36,7 @@ F DoUseWPI ! Whether to use wave particle interactions or not (Note, wave par
F DoUseBASDiff ! Whether to use BAS diffusion coefficients for wave particle interactions
F doUseKpDiff ! Whether to use KP based diffusion coefficients for wave particle interactions
T DoUseEMIC ! Whether to turn on AE based EMIC wave pitch angle diffusion
+F DoSaveLwgr
*************************************************
diff --git a/Param/PARAM.in.testSCE b/Param/PARAM.in.testSCE
new file mode 100644
index 0000000..b436b62
--- /dev/null
+++ b/Param/PARAM.in.testSCE
@@ -0,0 +1,232 @@
+Example PARAM file for RSCE simulation
+
+#DESCRIPTION
+A description of your run can go here
+
+#EVENT
+The name of your event can go here
+
+************** REQUIRED BLOCK ***************** ! These are the only required pieces that must be included in every RAM-SCB run (if restarting a run, replace STARTTIME with RESTART)
+#STARTTIME
+2013 iYear ! Sets the year, month, day, hour, and minute for run start
+3 iMonth
+17 iDay
+00 iHour
+00 iMinute
+0 iSecond
+0.0 FracSecond
+
+! Note that the STOP funcionality has been changed. For normal runs there is no difference, but for runs with RESTART the amount of simulation time in tSimulationMax will be added on to instead of kept static.
+STOP
+-1 MaxIteration ! Once RAM has completed this many iterations the code will stop, -1 turns this off. (Note, because RAM time steps are variable by default the amount of time this will run is variable)
+900 tSimulationMax ! Total amount of simulation time to run RAM for, -1 turns this off. You must have one of these set to a non-negative value, or use the STOPTIME command
+
+#STOPTIME
+2013 iYear ! Sets the year, month, day, hour, and minute for run stop
+3 iMonth
+17 iDay
+00 iHour
+10 iMinute
+0 iSecond
+0.0 FracSecond
+
+***********************************************
+
+*************** TIMING BLOCK ******************
+#MAXTIMESTEP
+100.0 MaxHalfStep ! The maximum half time step (in seconds) that RAM will take, regardless of other factors
+
+#MINTIMESTEP
+1.0 MinHalfStep ! The minimum half time step (in seconds) that RAM will take, regardless of other factors
+
+#VARIABLEDT
+T DoVarDt ! If set to T RAM will adjust its time step based on the current fluxes using the Courant condition
+
+#COMPONENT_TIMESTEPS
+300.0 SCBTimeStep ! Amount of time (in seconds) between calls to SCB. If set to 1.0 it will call SCB on every RAM time step
+300.0 BCTimeStep ! Amount of time (in seconds) between reading boundary flux files (or from SWMF). If set to 1.0 will update on every RAM time step
+300.0 EFTimeStep ! Amount of time (in seconds) between updating electric fields. If set to 1.0 it will update every RAM time step
+
+! If this is present then the SCBTimeStep will be read as number of RAM iterations to do, not seconds
+#TIE_SCB_TO_RAM
+
+***********************************************
+
+*************** COMPONENT BLOCK ***************
+#OUTERBOUNDARY
+LANL NameBoundPlasma ! Determines the boundary flux source (LANL, PTM, QDMKP, QDMVBZ)
+DIPS NameBoundMag ! Determines the magnetic field source (DIPL, DIPS, T89D, T96D, T02D, T04D, T89I, T96I, T02I, or T04I)
+MAXW NameDistribution ! Determines the distribution of the flux (MAXW)
+
+#EFIELD
+RSCE NameEfield ! Determines the method for calculation the electric field (VOLS, WESC, W5SC, or RSCE)
+F UseEfInd ! Whether or not to use an inductive electric field
+
+#USEWPI
+F DoUseWPI ! Whether to use wave particle interactions or not (Note, wave particle interactions are not currently working)
+F DoUseBASDiff ! Whether to use BAS diffusion coefficients for wave particle interactions
+F doUseKpDiff ! Whether to use KP based diffusion coefficients for wave particle interactions
+F DoUseEMIC ! Whether to turn on AE based EMIC wave pitch angle diffusion
+
+#USEFLC
+F DoUseFLC ! Enable loss due to field line curvature scattering of ions
+F DoWriteFLCDiffCoeff ! Write diffusion coefficients for FLC scattering of ions to file
+***********************************************
+
+***************** RAM BLOCK *******************
+#SPECIES
+4 nSpecies ! Number of species to use in run
+_H _O He _e NameVar ! List of the species to use, species codes are found in ModRamSpecies.f90
+F FixedComposition ! If false, will use the Young et al. composition to split ions in boundary file
+40 PercentComp ! If FixedComposition is true, apply this percentage to the first species (_H)
+40 PercentComp ! If FixedComposition is true, apply this percentage to the second species (_O)
+20 PercentComp ! If FixedComposition is true, apply this percentage to the third species (He)
+100 PercentComp ! If FixedComposition is true, apply this percentage to the fourth species (_e)
+
+#NITROGEN_PERCENT
+00 OpercentN ! Percentage of oxygen converted to nitrogen if using nitrogen
+
+#MULTISPECIESBCS
+F DoMultiSpeciesBcs ! Whether to use boundary flux files that are split into multiple species (H+, He, O)
+T DoElectrons ! Whether to run electrons
+
+#RAMLIMITER
+1.5 LimiterBeta ! When running, RAM will limit beta to this value
+
+#RAMGRID
+20 nR ! Number of radial grid points used in RAM
+49 nT ! Number of toroidal/local time grid points (25 default; 49 preferred)
+35 nE ! Number of energy bins used
+72 nPa ! Number of pitch angle bins used
+
+#PLASMASPHERE
+F UsePlasmasphere ! Whether to include the plasmasphere
+Carpenter PlasmasphereModel ! Transport model name: Carpenter, Transport
+Analytic RefillingTau ! Refilling model name: Fixed, Analytic, Rasmussen
+
+#COULOMB
+F UseCoulomb ! If True, use Coulomb collisions
+***********************************************
+
+***************** SCB BLOCK *******************
+#SCB_CONVERGENCE
+0.9 ConvergenceDistance ! Minimum accuracy that needs to be reached regardless of other factors (between 0 and 1)
+
+#PRESS_MODE
+SKD PressureMode ! Options are SKD, ROE, EXT, FLT, and BAT. BAT is for use with the SWMF.
+
+#SCB_FIELD
+0.0 ConstZ ! Groups points along the midnight axis using the equation [zetaVal+constZ*SIN(zetaVal)]
+0.0 ConstTheta ! Groups points at the equator using the equation [thetaVal + constTheta*sin(2.*thetaVal)]
+
+#SCBSETTINGS
+1 MinSCBIterations ! Minimum number of outer SOR Iterations performed by SCB
+2 SCBMethod ! Which inner SCB method to use (1 = Direct Matrix Inversion, 2 = SOR Iterations, 3 = No SCB)
+1 OuterMethod ! Which outer SCB method to use (1 = Picard Iteration, 2 = Newton Method)
+1E-10 InnerConvergenceAlpha ! Convergence criteria for the Alpha residual
+1E-8 InnerConvergencePsi ! Convergence Criteria for the Psi residual
+
+#SCBGRID
+71 nTheta ! Number of theta (polar) grid points used in SCB
+45 nPsi ! Number of psi (radial) surfaces used in SCB
+73 nZeta ! Number of zeta (azimuthal) surfaces used in SCB
+
+#SCBFLAGS
+F Isotropic ! Whether to use isotropic pressure mappings in SCB (does not effect RAM)
+F ReduceAnisotropy ! Whether to change the anisotropy to a marginally mirror-stable
+T BetaExtrapolation ! Whether to extrapolate Beta Euler potential values to the outside boundary or use the previous point (Currently unused)
+F AzimuthalOffset ! Whether to set equidistance at most problematic time (if T) or keep it at midnight (if F)
+F EmptyLossCone ! Whether to use a filled loss cone (if F) or a more realistic empty loss cone using M. Liemohn's 2004
+T AdaptiveMesh ! Whether to use Mesh refinement in magnetic flux, so that one has equidistant magnetic flux surfaces
+
+#SCBDETAILS
+F SORDetail ! Whether to compute extra Sucessive Over Relaxation information
+T EnergyDetail ! Whether to compute DPS Dst and other energy information
+F ForceBalanceDetail ! Whether to compute global force balance before and after SCB runs, this will cause additional output
+F PressureDetail ! Whether to compute the full 3D pressure profile before an SCB run, this will cause additional output
+
+#SCBSMOOTHING
+1 PressureSmoothing ! What type of smoothing to perform on the RAM pressure when SCB reads it in (0 = None, 1 = Savitzky-Golay, 2 = B-Spline, 3 = Gaussian Filter, 4 = 1 + 3)
+11 SavitzyGolayIterations ! Number of passes of the Savitzy-Golay filter to use if option 1 or 4 is used above
+
+SCBBOUNDARY
+F FixedRadialBoundary ! Whether to use a fixed radial boundary (outer and inner shell)
+T FixedPolarBoundary ! Whether to use a fixed polar boundary (field line end points)
+
+***********************************************
+
+****************** SCE BLOCK ******************
+
+#IONOSPHERE
+7 ConductanceModel ! choose conductance method: 7--use Robinson's formula; 9--use GLOW model (parallized)
+2.5 StarLightPedConductance ! set up the background Pedersen conductance
+F DoUseFullSpec ! Whether to pass the full energy spectrum of precipitating flux to GLOW model
+F DoSaveGLOWConductivity ! Whether to output the GLOW result of height-dependent profiles
+
+#SOLVER
+GMRES NameSolver ! Choose a solver for electric potential calculation (GMRES or bicgstab)
+
+#KRYLOV
+T UsePreconditioner ! Whether to use Preconditioner in the Krylov solver
+T UseInitialGuess ! Whether to use an initial guess
+0.01 Tolerance ! Set the tolerance parameter for the secodn norm of the residual
+100 MaxIteration ! Set the maximum iteraction of the solver
+
+#BOUNDARY
+50.0 LatBoundary ! Set the lower-latitude boundary for the electric potential solver
+
+***********************************************
+
+
+***************** INPUT BLOCK *****************
+#OMNIFILE
+omni.txt NameOmniFile ! Name of the omni input file (needed if using the WESC, W5SC, or RSCE electric fields)
+
+#OMNIFILESOURCE
+F UseSWMFFormat ! Whether the omni file is in the SMWF format or the older RAM format
+
+#INDICES_FILE
+RamIndices.txt NameIndicesFile ! Name of the KP and F10.7 indices file needed for RAM (included in default installation)
+
+#BOUNDARY_FILE_PATH
+IM/input_ram/ BoundaryPath ! Location where the flux boundary files can be found (needed by RAM)
+
+#QINDENTON_FILE_PATH
+IM/input_scb/ QinDentonPath ! Location where the QinDenton files can be found (Used for the T##X magnetic field models)
+
+#INITIALIZATION_FILE_PATH
+IM/input_ram/ InitializationPath ! Location where the RAM Initialization.nc file can be found (included in default installation)
+
+***********************************************
+
+***************** OUTPUT BLOCK ****************
+#SAVERESTART
+3600.0 DtSaveRestart ! How often a restart file should be written (in seconds), -1.0 will disable restart files
+T DoSaveFinalRestart ! Whether a restart file should be written on RAM finishing
+
+#TIMEDRESTART
+F TimedRestartFiles ! Whether to time stamp the restart files. If F only one restart file will be made and it will be overwritten
+
+#LOGFILE
+60.0 DtLogFileWrite ! How often the log file should be appended (in seconds).
+
+#OUTPUT_FREQUENCY
+300.0 DtPressureFileWrite ! How often RAM equatorial pressures should be written (in seconds)
+300.0 DthIFileWrite ! How often SCB hI files should be written (in seconds)
+3600.0 DtEFieldFileWrite ! How often electric field files should be written
+300.0 DtMAGxyzFileWrite ! How often x, y, and z from SCB should be written
+
+#SAVEFLUX
+3600.0 DoSaveFlux ! Output frequency [s] for writing RAM flux files (-1 turns output off)
+
+#DUMP3DFLUX
+F DoDump3DFlux ! Whether SCB 3D flux files should be written or not (currently outputs 3D flux every hour)
+
+SATELLITE
+60.0 DtOutput ! How often satellite trajectory output files should be written (in seconds)
+2 nSatellite ! How many satellite trajectory input files are being used
+sat1.dat NameTrajectoryFile ! The names of all of the satellite trajectory input files, should be a single line for each of the nSatellite
+sat2.dat NameTrajectoryFile
+F DoUseVAPini ! Whether to initialize based on VAP data (currently disabled)
+
+***********************************************
diff --git a/README.md b/README.md
index d5da825..87dfa7b 100644
--- a/README.md
+++ b/README.md
@@ -14,13 +14,15 @@ The RAM-SCB manual with extended installation and usage information can be found
Researchers who use the RAM-SCB code for scientific research are asked to cite the papers listed below.
-1. Engel, M. A., Morley, S. K., Henderson, M. G., Jordanova, V. K., Woodroffe, J. R., & Mahfuz, R. (2019). Improved simulations of the inner magnetosphere during high geomagnetic activity with the RAM-SCB model. Journal of Geophysical Research: Space Physics, 124, 4233–4248. doi:10.1029/2018JA026260
+1. Jordanova, V. K., S. K. Morley, M. A. Engel, H. C. Godinez, K. Yakymenko, M. G. Henderson, Y. Yu, and Y. Miyoshi (2023), The RAM-SCB model and its applications to advance space weather forecasting, Advances in Space Research, 72, 5596-5606, https://doi.org/10.1016/j.asr.2022.08.077.
+
+2. Engel, M. A., Morley, S. K., Henderson, M. G., Jordanova, V. K., Woodroffe, J. R., & Mahfuz, R. (2019). Improved simulations of the inner magnetosphere during high geomagnetic activity with the RAM-SCB model. Journal of Geophysical Research: Space Physics, 124, 4233–4248. doi:10.1029/2018JA026260.
-2. Jordanova, V. K., S. Zaharia, and D. T. Welling (2010), Comparative study of ring current development using empirical, dipolar, and self-consistent magnetic field simulations, J. Geophys. Res., 115(A14):A00J11, doi:10.1029/2010JA015671.
+3. Jordanova, V. K., S. Zaharia, and D. T. Welling (2010), Comparative study of ring current development using empirical, dipolar, and self-consistent magnetic field simulations, J. Geophys. Res., 115(A14):A00J11, doi:10.1029/2010JA015671.
-3. Welling, D. T., V. K. Jordanova, S. G. Zaharia, A. Glocer, and G. Toth (2011), The effects of dynamic ionospheric outflow on the ring current, J. Geophys. Res., 116, doi:10.1029/2010JA015642.
+4. Welling, D. T., V. K. Jordanova, S. G. Zaharia, A. Glocer, and G. Toth (2011), The effects of dynamic ionospheric outflow on the ring current, J. Geophys. Res., 116, doi:10.1029/2010JA015642.
-4. Jordanova, V. K. et al. (2006), Kinetic simulations of ring current evolution during the Geospace Environment Modeling challenge events, J. Geophys. Res., 111, A11S10, doi:10.1029/2006JA011644.
+5. Jordanova, V. K. et al. (2006), Kinetic simulations of ring current evolution during the Geospace Environment Modeling challenge events, J. Geophys. Res., 111, A11S10, doi:10.1029/2006JA011644.
## Installation
@@ -61,4 +63,4 @@ The RAM-SCB License can be found at [RAM-SCB/LICENSE.txt](LICENSE.txt).
## Contact
-For questions about using RAM-SCB please contact [Vania Jordanova](http://www.lanl.gov/expertise/profiles/view/vania-jordanova).
+For questions about using RAM-SCB please contact [Steve Morley](https://github.com/drsteve).
diff --git a/Scripts/updateRamIndices.py b/Scripts/updateRamIndices.py
index 66658c2..6d30c84 100755
--- a/Scripts/updateRamIndices.py
+++ b/Scripts/updateRamIndices.py
@@ -6,6 +6,8 @@
import ftplib
import io
import re
+import ssl
+from urllib import request
import numpy as np
@@ -47,15 +49,11 @@ def floatkp(kpstring):
outJDs = [startjd + n + 0.5 for n in range(int(endjd-startjd))]
outdates = [lastdate+dt.timedelta(days=n+1) for n in range(int(endjd-startjd))]
- # download updated F10.7 from ftp://ftp.geolab.nrcan.gc.ca/data/solar_flux/daily_flux_values/fluxtable.txt
+ # download updated F10.7 from http://spaceweather.gc.ca/solar_flux_data/daily_flux_values/fluxtable.txt
# only has data from 2004-10-28 (prior data are in different files)
- io_store = io.StringIO()
- ftp = ftplib.FTP('ftp.seismo.nrcan.gc.ca')
- ftp.login()
- ftp.cwd('spaceweather/solar_flux/daily_flux_values')
- ftp.retrlines('RETR {0}'.format('fluxtable.txt'), io_store.write)
- io_store.seek(0)
- conts = io_store.read()
+ f107url = 'http://spaceweather.gc.ca/solar_flux_data/daily_flux_values/fluxtable.txt'
+ gcontext = ssl.SSLContext() # Some systems have certification issues for https - workaround
+ conts = request.urlopen(f107url, context=gcontext).read().decode()
# get first line of data (needs regex as no linebreaks & odd spacing
# then split up, read dates, interpolate to requested JDs
diff --git a/input/RamIndices.txt b/input/RamIndices.txt
index d1ff316..4711eb6 100644
--- a/input/RamIndices.txt
+++ b/input/RamIndices.txt
@@ -23799,3 +23799,553 @@ YYYYMMDD Kp_x8 f10.7
20230226 3.3 2.3 3.0 3.3 3.0 1.7 5.0 5.7 161.4
20230227 5.0 6.0 6.7 6.7 6.3 6.7 6.3 6.0 157.3
20230228 5.7 4.7 3.0 3.0 1.7 1.3 4.0 4.3 163.0
+20230301 3.0 1.0 1.3 2.7 0.7 1.3 2.0 2.0 155.6
+20230302 0.7 1.3 2.0 2.0 1.3 1.7 2.7 3.7 160.9
+20230303 3.7 3.7 3.3 3.3 3.3 2.0 4.0 4.0 171.4
+20230304 3.3 3.0 3.0 3.3 2.0 2.7 3.3 4.0 182.8
+20230305 3.3 3.3 3.7 2.7 4.0 3.3 4.3 3.7 186.2
+20230306 3.7 3.0 2.7 2.0 2.7 3.0 2.7 3.7 183.0
+20230307 2.3 3.0 3.0 2.7 2.0 1.0 1.0 0.7 179.7
+20230308 0.3 1.7 2.0 1.7 1.3 1.3 3.0 2.3 175.4
+20230309 2.0 3.0 4.0 3.3 3.0 3.0 2.3 2.0 176.4
+20230310 3.3 1.7 1.7 0.3 1.0 3.0 2.3 2.7 170.7
+20230311 2.7 1.7 1.3 0.3 1.0 0.7 1.3 2.7 161.6
+20230312 3.0 2.0 3.0 2.3 0.7 0.3 0.7 0.7 148.7
+20230313 0.3 0.0 0.3 0.3 0.7 1.3 0.7 0.3 143.5
+20230314 2.7 3.7 3.3 3.3 3.3 3.0 2.7 4.3 139.0
+20230315 3.7 5.7 4.0 4.0 3.0 2.0 2.0 5.7 133.6
+20230316 3.7 2.3 0.7 1.0 0.0 0.3 0.7 0.3 134.0
+20230317 0.3 1.3 1.7 2.3 2.3 0.7 0.3 2.0 134.2
+20230318 2.0 2.7 2.0 2.3 2.3 1.3 2.3 1.3 134.5
+20230319 1.7 2.7 2.0 1.3 1.7 2.3 3.3 1.7 140.4
+20230320 3.0 0.3 0.3 2.0 3.7 4.0 1.3 2.3 153.2
+20230321 2.3 1.0 1.7 2.0 1.0 2.3 1.3 2.0 150.5
+20230322 3.7 3.7 3.0 3.3 2.3 3.0 3.3 0.3 152.3
+20230323 0.7 1.7 3.0 4.7 6.7 4.7 6.3 7.0 151.4
+20230324 7.3 8.0 6.3 4.0 2.3 3.7 4.7 4.3 156.4
+20230325 3.0 2.0 3.7 3.7 2.7 2.3 2.7 2.3 160.2
+20230326 2.7 2.7 1.7 0.7 0.7 1.0 2.7 1.7 160.0
+20230327 0.3 0.3 0.3 0.3 0.3 0.7 1.0 1.0 158.7
+20230328 1.3 0.3 0.3 0.7 1.7 1.0 0.7 1.0 158.0
+20230329 2.0 0.7 0.7 0.7 1.7 1.3 1.3 1.7 154.1
+20230330 3.0 2.3 2.3 3.0 2.7 3.7 5.0 2.7 140.1
+20230331 4.0 4.3 3.3 3.3 2.3 2.3 3.0 4.0 132.6
+20230401 2.0 1.0 1.7 3.3 3.3 3.7 2.7 3.7 127.0
+20230402 3.7 3.7 2.7 3.3 2.3 0.7 2.0 3.3 126.7
+20230403 3.3 1.3 1.3 1.7 2.7 3.0 3.7 3.0 130.8
+20230404 3.7 3.7 2.3 2.3 2.0 1.3 2.7 3.0 134.9
+20230405 3.0 2.0 1.7 2.0 3.0 3.3 2.7 2.0 135.8
+20230406 1.3 1.3 1.0 2.3 2.0 1.0 3.0 2.0 137.0
+20230407 3.0 2.7 1.7 1.7 1.7 1.0 1.3 2.0 134.3
+20230408 1.0 2.0 1.7 1.0 0.7 1.3 0.3 2.0 139.0
+20230409 3.0 1.0 0.7 1.0 1.0 1.3 1.3 2.0 140.7
+20230410 2.7 3.3 3.3 3.0 2.7 2.7 1.3 1.3 142.0
+20230411 0.3 1.0 2.3 0.7 1.0 1.3 1.7 0.3 144.9
+20230412 0.0 0.0 1.0 0.3 1.3 1.0 0.3 1.0 152.6
+20230413 2.3 1.7 0.3 0.3 0.7 2.0 1.7 2.0 156.4
+20230414 1.3 0.0 1.3 2.0 2.3 2.0 0.7 2.0 168.1
+20230415 2.3 1.3 2.3 1.7 2.0 1.7 1.3 2.0 179.3
+20230416 0.7 0.7 1.7 1.0 1.0 0.3 1.0 1.0 175.9
+20230417 1.3 1.0 1.3 1.3 1.0 1.7 0.3 1.3 174.6
+20230418 0.3 1.0 0.3 0.3 3.7 4.7 3.7 2.7 158.9
+20230419 2.7 1.0 1.0 3.3 3.7 2.3 1.0 0.7 153.0
+20230420 0.3 0.7 0.7 0.7 1.3 2.3 1.0 1.7 150.8
+20230421 2.0 1.3 1.0 1.7 1.7 2.3 3.3 3.0 143.5
+20230422 2.3 2.3 1.3 0.3 0.3 1.7 1.3 2.3 144.8
+20230423 2.3 1.7 1.3 3.3 4.7 5.3 8.3 7.3 137.6
+20230424 6.7 8.0 7.0 5.7 3.7 3.0 2.3 3.0 134.6
+20230425 1.3 0.3 0.3 1.0 2.7 2.7 3.3 2.3 133.3
+20230426 2.7 3.3 2.0 2.3 3.3 3.0 3.3 3.0 139.7
+20230427 4.3 4.0 3.3 3.7 3.3 3.7 2.7 3.0 137.6
+20230428 3.3 4.0 2.7 2.7 3.3 4.0 3.0 3.3 152.0
+20230429 3.3 3.3 3.3 4.0 4.0 3.7 3.3 2.3 160.3
+20230430 3.0 3.0 3.0 1.3 1.7 1.7 0.7 1.3 158.7
+20230501 2.7 1.3 2.0 1.3 1.3 2.3 2.7 3.3 155.9
+20230502 3.3 2.7 1.7 2.7 1.0 1.0 1.7 0.7 155.2
+20230503 0.0 0.0 0.3 0.3 1.0 1.0 0.7 2.0 159.3
+20230504 1.3 1.3 1.7 0.7 0.7 2.0 1.0 2.3 166.2
+20230505 1.7 0.7 0.7 0.7 0.3 0.3 0.7 0.7 163.8
+20230506 4.3 6.0 3.3 4.7 4.3 2.7 3.0 2.0 158.6
+20230507 1.0 1.7 2.0 1.3 2.3 4.0 2.0 2.7 161.0
+20230508 4.3 1.7 1.3 1.0 3.7 3.3 2.3 3.7 170.1
+20230509 3.7 2.7 1.0 1.3 2.3 2.0 1.7 4.3 170.7
+20230510 3.7 5.3 2.7 4.0 4.7 3.3 2.0 2.7 171.8
+20230511 2.7 2.7 2.0 1.7 1.3 1.7 2.0 2.3 168.3
+20230512 2.3 3.0 3.0 2.3 5.3 3.3 2.7 2.3 157.7
+20230513 2.3 2.0 2.0 0.7 1.3 2.3 3.7 4.0 147.6
+20230514 0.7 1.3 0.7 1.0 2.0 3.3 3.0 2.3 142.8
+20230515 1.0 0.3 0.3 0.3 1.0 1.3 2.7 1.7 139.3
+20230516 2.3 2.0 2.7 1.0 1.3 1.3 1.7 1.3 135.0
+20230517 1.0 0.7 0.3 0.7 0.7 0.7 0.7 0.3 138.8
+20230518 0.7 0.3 0.3 0.3 0.3 0.0 0.3 0.0 150.5
+20230519 0.3 0.3 0.3 0.7 1.0 1.7 3.0 4.0 163.8
+20230520 5.7 5.0 4.7 4.7 2.7 3.3 3.0 3.3 166.4
+20230521 2.7 2.0 1.3 1.3 3.0 4.0 5.7 5.7 170.1
+20230522 4.7 3.3 2.7 2.7 2.3 3.3 4.0 4.0 164.9
+20230523 2.7 3.0 2.7 2.0 0.7 1.0 3.3 3.7 163.0
+20230524 2.0 2.3 1.3 2.0 2.7 2.3 3.0 2.7 170.3
+20230525 3.0 2.7 3.0 2.7 2.0 1.3 3.0 1.7 156.5
+20230526 1.7 1.7 1.3 1.0 1.0 1.0 1.3 1.7 152.7
+20230527 0.7 1.0 0.7 0.7 0.3 0.3 1.0 2.0 157.9
+20230528 2.7 3.0 2.0 2.0 3.0 1.3 1.7 1.7 156.1
+20230529 0.7 0.3 0.3 0.7 0.7 1.0 1.0 1.3 157.6
+20230530 0.7 0.3 0.7 1.0 0.7 1.0 1.3 2.0 164.1
+20230531 2.3 1.3 2.3 1.7 2.3 2.7 2.3 3.0 166.5
+20230601 3.7 2.3 3.7 2.0 3.0 2.3 2.3 2.0 164.5
+20230602 2.0 1.3 1.3 0.7 0.7 0.7 1.0 1.7 167.8
+20230603 1.0 0.7 0.7 0.7 0.3 0.3 0.7 1.7 168.2
+20230604 2.0 1.0 2.0 2.3 1.3 1.3 4.0 2.0 169.4
+20230605 0.3 0.7 1.0 1.3 0.3 0.7 1.7 1.7 172.4
+20230606 2.7 2.0 1.0 1.3 2.0 0.7 0.7 0.3 173.9
+20230607 0.3 0.7 0.3 1.0 0.7 0.3 0.7 2.0 173.5
+20230608 1.7 1.3 1.0 1.3 1.7 1.0 1.0 0.3 173.1
+20230609 1.0 0.7 0.0 0.3 0.0 1.0 1.7 1.0 180.2
+20230610 0.7 0.3 0.3 1.3 1.3 1.3 1.3 0.7 166.2
+20230611 2.3 3.0 2.3 1.3 2.0 2.7 1.7 1.3 162.3
+20230612 1.3 1.0 1.3 1.3 2.3 2.0 1.3 1.3 153.4
+20230613 1.0 1.0 1.3 1.3 1.3 2.3 0.7 1.3 150.2
+20230614 2.7 0.7 0.3 0.7 0.3 0.7 0.3 0.3 149.6
+20230615 1.3 1.3 1.3 2.0 4.3 5.0 5.0 5.3 154.3
+20230616 4.7 6.0 4.0 4.7 4.0 3.0 2.7 3.0 159.3
+20230617 2.3 2.0 2.0 2.0 1.7 2.3 2.0 1.7 164.7
+20230618 2.7 2.3 1.3 1.7 1.7 2.3 3.0 2.0 168.2
+20230619 2.3 1.7 1.7 1.3 2.3 3.0 3.3 3.3 174.5
+20230620 2.7 2.0 1.0 1.7 2.0 2.3 1.7 2.7 223.3
+20230621 2.0 2.0 1.0 1.0 1.0 0.7 1.3 2.7 180.2
+20230622 0.7 1.3 2.7 2.7 2.7 2.0 2.3 2.7 183.3
+20230623 2.3 2.0 1.3 2.3 2.0 2.7 2.3 2.0 175.9
+20230624 1.3 3.0 3.0 2.3 2.7 3.0 3.7 4.3 170.4
+20230625 5.0 2.3 1.7 1.0 2.3 3.3 3.3 2.7 160.5
+20230626 2.0 2.3 2.3 2.0 2.7 3.0 2.0 3.0 158.5
+20230627 2.3 2.0 2.3 1.7 2.0 2.0 1.7 2.0 158.9
+20230628 2.0 2.3 1.3 2.3 1.7 1.3 2.0 2.3 156.1
+20230629 2.7 3.3 3.0 3.0 1.7 3.7 3.7 3.3 166.4
+20230630 2.7 1.3 1.7 1.7 3.0 1.7 0.3 0.0 166.6
+20230701 2.0 2.0 0.7 0.7 0.7 0.7 1.0 1.3 168.6
+20230702 0.7 1.3 0.7 1.3 1.7 1.0 0.3 1.0 176.4
+20230703 1.3 0.7 0.7 1.0 1.0 1.0 0.7 1.3 190.7
+20230704 0.7 1.0 0.7 0.7 1.0 1.0 0.7 0.7 171.8
+20230705 1.3 0.7 0.3 0.3 1.3 2.7 1.7 2.3 161.7
+20230706 2.0 2.0 1.7 3.3 3.0 2.3 1.7 2.7 160.1
+20230707 3.0 2.7 3.7 4.0 2.7 2.7 3.7 3.3 164.6
+20230708 3.3 1.3 1.3 1.0 0.3 1.0 1.3 0.7 166.4
+20230709 0.0 0.3 0.3 1.0 1.0 1.3 0.7 1.0 179.4
+20230710 1.0 1.0 0.3 1.0 1.3 1.0 1.3 0.7 189.5
+20230711 2.0 0.7 2.7 1.0 2.0 2.0 1.7 1.7 202.3
+20230712 2.0 1.3 1.3 1.3 1.3 1.7 2.3 1.0 204.6
+20230713 2.0 0.7 1.3 0.7 1.3 3.0 2.3 1.7 203.5
+20230714 3.0 3.3 3.3 1.7 2.7 4.3 4.7 3.7 192.3
+20230715 2.7 1.7 1.0 2.7 2.3 1.0 0.7 0.7 184.3
+20230716 0.7 0.7 0.3 0.3 0.7 0.7 3.3 4.0 188.0
+20230717 2.7 1.7 4.0 4.0 3.0 2.0 4.7 4.3 191.3
+20230718 4.3 2.7 2.0 1.7 3.3 1.3 3.7 1.7 211.9
+20230719 0.7 1.0 1.3 1.0 1.3 1.0 0.7 0.7 199.0
+20230720 0.7 1.0 0.7 0.7 1.3 4.3 3.7 2.0 191.4
+20230721 2.3 3.3 1.7 1.3 1.0 2.0 2.3 4.3 180.4
+20230722 3.0 2.7 2.3 2.0 1.7 0.3 1.0 1.7 180.8
+20230723 0.3 0.7 1.3 1.0 1.7 2.3 2.3 2.0 180.9
+20230724 2.3 1.3 0.7 1.0 1.7 1.0 1.7 2.3 174.4
+20230725 1.0 0.7 1.7 0.7 2.0 1.7 2.3 4.3 172.5
+20230726 3.3 4.7 4.0 3.3 3.0 3.0 2.7 2.3 175.9
+20230727 2.0 1.7 1.3 2.0 1.0 2.0 1.7 1.0 171.4
+20230728 0.3 0.3 0.3 1.0 2.0 1.3 2.3 2.3 176.1
+20230729 2.0 2.3 0.3 1.0 3.0 3.0 2.3 1.7 188.8
+20230730 0.7 2.7 1.3 2.3 2.7 2.0 2.0 1.7 180.2
+20230731 1.0 1.0 1.7 1.3 2.0 2.3 0.7 1.3 180.6
+20230801 2.0 1.7 0.7 1.3 3.0 2.7 2.3 2.0 181.5
+20230802 1.7 1.3 1.0 3.3 4.0 3.7 2.0 1.7 175.7
+20230803 1.3 1.7 1.3 2.0 1.7 1.3 0.3 0.3 170.9
+20230804 0.0 0.7 1.3 1.3 2.7 4.0 4.0 4.0 170.9
+20230805 5.0 6.3 5.3 4.7 3.3 1.7 0.7 0.7 175.9
+20230806 0.0 0.3 0.0 0.0 0.3 0.7 1.0 0.3 182.0
+20230807 3.0 2.0 0.3 1.0 2.0 1.3 2.7 4.0 173.6
+20230808 4.0 1.3 0.7 1.0 1.0 1.7 1.3 1.0 166.0
+20230809 1.7 1.0 1.3 1.0 2.0 1.7 1.7 2.3 158.6
+20230810 1.7 2.0 1.0 1.3 1.3 2.7 1.3 1.7 162.3
+20230811 1.0 0.7 0.7 0.3 1.0 1.3 0.7 1.0 160.0
+20230812 1.7 2.3 2.0 1.0 1.3 1.3 2.0 1.7 151.2
+20230813 2.0 1.0 0.7 0.7 1.0 1.0 0.7 1.0 152.2
+20230814 1.3 0.7 0.3 0.3 1.3 1.0 1.3 1.3 156.7
+20230815 0.3 0.3 0.3 0.7 1.0 0.3 1.0 1.0 160.4
+20230816 1.7 1.0 0.3 1.0 2.7 3.0 1.7 1.3 163.6
+20230817 2.3 1.7 2.0 0.3 1.7 2.0 1.3 0.7 159.2
+20230818 2.0 2.0 3.0 3.0 1.3 2.3 2.3 3.0 152.8
+20230819 2.3 1.3 1.0 1.3 1.3 1.3 3.0 2.0 154.7
+20230820 3.3 2.7 1.3 2.0 1.0 1.3 2.0 2.0 149.3
+20230821 2.0 1.7 2.7 2.3 2.7 1.3 2.0 1.3 151.9
+20230822 2.3 3.3 2.0 1.0 1.3 0.7 0.7 1.0 155.1
+20230823 1.0 0.7 0.3 0.3 0.3 0.3 0.7 1.7 158.0
+20230824 0.0 0.7 0.7 0.7 1.7 3.0 3.0 2.7 147.4
+20230825 2.0 0.7 0.3 0.3 1.0 1.3 0.7 0.7 143.3
+20230826 1.3 2.0 2.0 1.3 1.7 1.7 1.3 1.7 141.9
+20230827 3.3 3.3 2.3 1.0 1.7 2.0 2.3 1.3 143.9
+20230828 1.3 2.0 1.7 1.7 1.3 1.7 2.0 0.7 144.5
+20230829 0.0 0.0 0.3 1.3 2.0 1.0 1.0 2.0 143.3
+20230830 2.0 0.7 1.0 1.3 2.0 1.3 1.3 0.3 144.4
+20230831 0.7 1.3 1.7 1.7 1.0 1.3 2.0 1.7 141.5
+20230901 2.7 2.7 2.7 3.0 3.3 2.7 2.7 1.3 139.7
+20230902 3.3 4.3 4.7 4.7 5.0 4.3 4.3 5.3 135.5
+20230903 5.3 3.7 4.3 3.3 3.3 3.0 1.3 3.0 131.8
+20230904 2.7 2.3 1.0 1.0 1.3 2.0 2.0 0.0 137.9
+20230905 0.7 0.7 0.3 1.0 1.7 4.0 3.7 1.7 138.8
+20230906 1.7 0.7 2.0 0.7 3.3 2.3 0.7 0.3 146.4
+20230907 2.0 0.7 0.7 1.0 1.7 1.7 1.3 1.7 155.5
+20230908 2.7 1.3 0.0 0.7 1.3 2.3 1.3 0.3 160.8
+20230909 2.7 1.3 1.3 2.7 2.7 2.3 0.7 0.3 161.9
+20230910 1.0 0.0 0.0 0.3 0.0 1.0 0.7 1.3 195.3
+20230911 1.0 1.3 0.7 1.7 1.7 1.3 1.3 2.0 175.5
+20230912 0.7 0.3 0.7 3.0 5.3 5.3 3.7 4.0 161.4
+20230913 4.7 3.7 2.3 2.3 2.7 3.0 1.7 3.0 145.5
+20230914 4.3 2.3 3.0 1.3 1.7 2.3 4.0 4.3 147.8
+20230915 2.0 2.0 0.7 0.3 1.7 1.7 1.3 3.0 142.6
+20230916 1.3 0.3 0.7 0.3 0.3 1.7 3.0 2.7 144.5
+20230917 3.3 3.3 2.3 3.0 2.7 2.7 3.3 2.7 143.9
+20230918 4.3 4.0 3.0 2.0 4.7 5.0 5.0 4.0 150.7
+20230919 5.3 6.3 4.7 3.3 6.0 5.3 3.7 2.7 161.4
+20230920 3.7 3.3 3.3 2.7 2.0 2.0 3.0 3.3 165.6
+20230921 2.3 2.3 2.0 1.7 2.0 2.7 1.7 2.7 164.5
+20230922 1.7 1.0 2.0 2.0 2.0 3.3 1.7 2.7 185.3
+20230923 2.7 2.7 1.3 2.3 2.0 1.0 2.0 2.7 178.7
+20230924 2.0 1.3 2.0 1.7 1.0 1.0 5.7 5.7 171.5
+20230925 5.3 4.7 4.0 3.3 3.3 2.7 2.3 2.0 172.4
+20230926 3.0 4.0 4.7 4.7 5.0 3.3 3.3 3.3 168.5
+20230927 3.7 3.0 3.3 3.3 2.7 3.0 2.0 0.7 158.4
+20230928 1.7 3.0 0.3 0.7 0.7 0.3 0.0 2.0 152.7
+20230929 2.0 2.7 3.7 4.0 2.7 1.3 0.7 0.7 149.8
+20230930 1.3 2.0 2.3 2.0 2.3 2.3 2.3 2.3 159.3
+20231001 3.7 1.7 1.7 1.3 2.0 1.0 1.7 1.7 160.2
+20231002 2.7 3.0 1.0 1.3 1.7 1.3 1.3 2.3 157.9
+20231003 0.7 2.0 1.3 1.0 2.0 2.3 2.0 2.0 151.3
+20231004 2.7 2.3 2.7 2.0 1.7 1.7 2.0 3.3 152.3
+20231005 4.0 5.0 2.0 3.0 2.0 0.7 0.7 2.0 155.3
+20231006 2.0 2.3 2.0 1.3 1.3 1.3 0.7 3.0 156.9
+20231007 1.0 1.3 1.0 0.3 0.3 0.7 1.7 1.3 155.3
+20231008 2.3 1.7 2.0 1.3 0.7 1.3 1.3 2.0 157.1
+20231009 2.0 1.7 1.3 1.3 2.0 2.3 3.0 1.3 157.2
+20231010 0.7 2.0 1.0 1.0 0.3 0.7 0.0 0.0 160.5
+20231011 0.0 0.7 0.7 1.0 0.7 0.3 0.3 1.0 158.2
+20231012 1.0 0.0 0.3 0.3 0.0 0.7 0.7 0.7 155.5
+20231013 0.7 2.7 3.3 2.7 3.0 3.7 2.7 2.0 149.7
+20231014 1.3 1.0 1.3 2.0 1.0 0.3 3.0 1.3 102.3
+20231015 0.0 0.0 0.3 0.7 0.3 0.7 1.0 1.7 145.2
+20231016 2.0 0.0 0.3 0.3 1.3 0.0 0.0 0.0 144.0
+20231017 0.0 0.0 0.3 0.3 0.3 0.3 0.0 0.7 138.0
+20231018 0.0 2.0 1.3 2.7 2.7 3.0 2.3 2.0 134.5
+20231019 2.3 3.3 1.3 2.0 1.7 2.3 2.0 0.7 128.9
+20231020 1.0 1.3 1.7 2.0 2.0 1.0 2.0 2.7 125.2
+20231021 4.0 4.7 5.0 3.0 2.7 3.3 1.3 0.7 120.8
+20231022 1.7 1.3 1.7 2.0 1.3 1.7 3.0 1.7 118.0
+20231023 0.3 0.0 0.3 0.0 0.7 0.3 0.3 0.0 117.9
+20231024 0.3 0.0 0.7 1.0 0.7 0.7 1.0 0.7 120.1
+20231025 0.7 0.0 0.0 0.3 0.7 1.0 1.0 1.7 124.3
+20231026 2.3 2.7 2.0 4.0 4.0 3.0 4.3 4.7 124.3
+20231027 3.0 4.0 2.7 2.3 1.3 1.7 1.7 1.0 128.4
+20231028 0.7 3.0 3.3 3.7 3.7 3.0 2.7 4.0 125.1
+20231029 4.7 3.7 4.3 4.0 4.0 4.0 3.3 3.3 128.5
+20231030 4.0 2.3 1.0 3.0 3.3 1.3 2.0 2.3 135.0
+20231031 2.3 2.0 1.7 2.3 2.7 1.0 1.3 1.7 141.1
+20231101 1.7 2.7 1.7 2.7 2.3 2.0 1.3 1.3 155.6
+20231102 1.7 2.3 1.0 1.3 2.0 1.7 1.0 1.0 156.7
+20231103 0.7 0.7 1.0 1.0 0.7 0.3 0.0 0.0 157.1
+20231104 0.7 0.3 1.0 0.7 1.7 2.7 4.7 4.0 154.6
+20231105 2.7 2.0 1.7 5.7 6.3 7.3 6.7 4.7 150.6
+20231106 4.0 5.7 4.7 4.3 2.7 3.7 5.3 4.3 145.4
+20231107 5.0 3.7 2.3 2.3 2.7 3.0 3.0 3.0 141.4
+20231108 2.3 3.7 3.3 3.3 1.3 2.0 4.0 3.0 141.0
+20231109 2.7 2.3 3.0 2.0 2.0 1.7 3.0 2.7 138.7
+20231110 2.3 3.3 2.0 1.7 2.0 1.7 1.0 1.7 136.9
+20231111 1.3 1.3 1.7 0.7 1.0 0.7 0.7 0.3 143.6
+20231112 0.3 1.0 4.0 2.7 2.0 1.3 1.0 2.7 133.9
+20231113 5.0 3.7 1.0 1.7 3.0 2.7 1.7 0.7 131.1
+20231114 2.0 0.7 0.0 0.7 1.7 3.0 2.0 0.7 125.3
+20231115 2.7 2.0 2.3 1.7 3.3 3.0 3.3 2.7 118.1
+20231116 1.3 0.7 2.0 1.7 1.7 2.0 1.3 2.0 115.9
+20231117 0.0 0.0 0.0 0.7 0.7 2.0 1.3 0.0 114.9
+20231118 0.0 0.3 0.0 0.0 0.0 0.0 0.7 1.3 120.2
+20231119 0.3 0.3 1.0 1.0 0.7 0.0 1.0 1.0 133.9
+20231120 0.7 0.7 1.3 1.7 1.3 1.3 1.0 1.0 147.2
+20231121 1.0 2.3 4.3 3.3 3.3 3.7 3.0 4.0 161.9
+20231122 4.0 5.0 5.3 4.3 3.3 4.0 3.7 2.3 178.5
+20231123 3.0 2.7 2.3 1.0 1.3 0.3 0.0 0.3 185.7
+20231124 2.0 1.7 1.0 1.7 2.0 2.0 2.7 2.3 177.3
+20231125 3.0 3.3 4.0 4.7 4.7 4.7 6.3 3.7 175.1
+20231126 4.0 2.7 3.0 1.3 1.7 0.0 0.7 1.3 173.2
+20231127 1.3 1.3 1.7 1.7 2.0 2.3 1.3 2.0 174.4
+20231128 1.3 2.0 2.0 1.7 1.3 2.0 1.7 1.3 175.4
+20231129 0.7 1.7 1.3 0.7 1.0 0.7 1.7 0.7 171.4
+20231130 1.7 2.3 1.0 1.0 1.3 0.3 1.0 0.3 160.3
+20231201 4.3 3.7 4.0 6.7 6.0 4.7 5.3 5.0 156.8
+20231202 5.3 4.0 1.3 0.7 0.7 1.3 0.7 1.3 148.3
+20231203 2.3 2.7 2.7 2.0 2.7 3.0 2.0 1.7 136.7
+20231204 2.0 2.7 2.7 2.7 2.7 1.7 1.3 1.0 134.7
+20231205 3.0 3.3 2.7 3.3 3.3 2.7 2.3 2.3 139.7
+20231206 2.7 2.3 2.3 2.3 2.7 3.0 2.0 1.7 128.2
+20231207 1.0 1.0 1.0 1.0 0.7 0.7 2.0 2.0 129.4
+20231208 1.0 0.3 0.7 1.0 0.7 1.7 2.0 1.3 127.3
+20231209 0.0 0.0 0.7 0.0 0.3 0.7 0.3 0.0 125.4
+20231210 0.7 0.7 0.7 0.3 0.7 0.7 1.3 0.7 121.6
+20231211 0.0 1.0 0.0 0.0 0.3 0.3 0.0 0.0 120.9
+20231212 0.0 1.3 0.7 0.7 3.3 3.3 2.3 0.7 120.9
+20231213 0.7 2.0 1.3 1.0 1.3 2.7 2.3 2.3 127.3
+20231214 3.7 4.3 3.0 3.3 2.7 2.0 1.0 2.0 626.7
+20231215 1.3 0.7 0.3 2.7 3.0 3.0 3.3 3.0 139.6
+20231216 3.3 4.0 3.0 1.7 2.7 0.7 2.7 2.7 142.3
+20231217 3.3 4.7 4.3 4.7 5.3 5.3 2.3 3.3 147.1
+20231218 2.3 3.3 5.3 3.7 3.3 3.0 3.0 4.3 153.3
+20231219 3.7 3.3 2.0 1.7 1.7 2.0 2.0 2.7 167.4
+20231220 4.0 3.0 2.3 1.7 2.0 2.7 1.3 0.7 180.7
+20231221 2.7 0.3 0.3 2.0 0.7 1.3 0.3 0.0 186.4
+20231222 0.3 1.3 1.0 0.3 0.0 0.3 0.3 0.3 182.8
+20231223 0.3 0.3 2.0 0.7 2.0 2.7 0.7 1.0 172.2
+20231224 2.7 2.7 2.7 3.0 2.3 1.0 1.0 0.7 174.0
+20231225 0.3 1.0 0.7 0.3 0.3 1.0 1.3 0.0 162.5
+20231226 0.3 1.7 1.3 1.7 1.7 1.3 1.0 0.7 152.8
+20231227 2.0 1.7 1.0 1.3 0.3 0.7 0.7 0.3 144.9
+20231228 0.0 0.0 0.7 0.3 0.3 0.3 0.0 1.7 141.5
+20231229 1.3 1.0 1.3 2.0 1.7 0.7 1.7 2.3 138.6
+20231230 1.0 2.3 1.3 0.3 0.7 1.0 1.0 0.0 132.2
+20231231 0.0 0.7 0.3 0.3 0.3 0.7 1.0 1.3 134.7
+20240101 0.7 0.3 0.7 1.3 2.0 3.0 3.3 4.0 160.1
+20240102 2.7 2.3 0.7 2.0 2.3 2.7 2.0 0.7 137.6
+20240103 2.7 2.7 1.0 1.7 1.7 2.7 3.3 3.0 131.0
+20240104 1.3 0.7 1.7 0.7 0.7 1.3 1.0 2.7 140.4
+20240105 2.0 1.7 0.3 1.0 1.3 1.7 0.3 0.3 143.9
+20240106 0.3 1.0 0.0 0.0 0.0 0.0 0.7 1.0 152.1
+20240107 0.0 0.0 0.0 0.3 0.3 0.3 0.0 0.0 162.5
+20240108 0.0 0.0 0.0 0.3 1.0 0.7 1.3 2.0 165.1
+20240109 2.3 1.0 2.3 0.7 0.7 1.3 0.3 1.0 166.4
+20240110 1.3 1.7 1.3 2.0 2.3 1.7 2.0 1.7 177.2
+20240111 0.7 1.3 1.7 1.3 2.0 1.3 0.7 1.7 182.3
+20240112 0.0 1.3 0.3 1.0 1.3 1.3 0.7 1.0 181.7
+20240113 0.3 0.0 0.3 0.7 0.7 0.7 0.3 0.7 180.4
+20240114 0.7 1.3 1.7 2.0 1.7 2.0 2.0 2.0 178.1
+20240115 1.0 0.7 1.7 1.7 2.3 0.3 1.3 1.7 178.2
+20240116 2.7 2.0 0.7 0.7 0.7 1.0 1.0 0.3 172.7
+20240117 0.7 0.3 1.3 0.7 0.7 0.7 0.7 1.0 169.3
+20240118 1.0 1.0 1.0 1.7 1.3 1.3 2.3 2.3 162.3
+20240119 1.3 2.7 1.7 1.3 1.7 1.7 1.3 2.3 153.6
+20240120 1.7 2.3 1.3 1.0 2.0 1.7 1.3 1.3 156.2
+20240121 0.0 1.3 1.3 2.0 1.7 1.0 0.7 1.0 168.4
+20240122 0.7 0.3 1.0 1.3 1.7 2.0 3.0 3.3 179.2
+20240123 2.0 2.7 1.7 1.0 1.3 1.0 1.0 2.0 182.3
+20240124 3.3 3.0 3.0 1.7 1.3 0.3 0.3 0.3 170.2
+20240125 0.3 0.7 0.7 1.3 1.7 1.7 1.3 2.3 159.3
+20240126 0.3 1.3 0.3 0.7 2.0 1.7 1.3 1.7 152.7
+20240127 2.3 1.3 1.0 1.0 0.7 0.7 0.7 0.7 146.0
+20240128 0.7 1.0 1.0 2.0 1.3 1.7 3.0 3.0 138.6
+20240129 2.7 2.0 1.0 0.7 2.3 2.0 2.3 2.0 136.4
+20240130 2.0 2.3 1.7 1.7 1.0 1.0 2.3 2.0 131.7
+20240131 2.0 2.3 1.3 1.3 1.3 2.0 2.0 1.0 131.6
+20240201 1.0 1.0 2.0 2.0 1.0 2.0 2.0 0.3 130.7
+20240202 0.3 0.3 1.0 0.7 0.7 0.7 0.3 0.0 140.8
+20240203 0.0 0.7 0.3 0.3 0.0 0.7 0.0 0.3 148.7
+20240204 0.7 1.3 0.7 1.3 0.7 1.3 2.0 3.0 159.3
+20240205 0.0 0.3 1.3 1.0 2.0 2.3 1.7 2.7 169.2
+20240206 3.0 2.0 1.3 1.7 1.7 1.7 2.0 0.7 173.1
+20240207 0.0 0.3 1.3 1.3 1.3 0.7 0.7 0.7 182.8
+20240208 0.7 1.0 0.7 1.3 1.7 1.7 1.7 0.3 180.8
+20240209 0.7 0.0 0.3 1.3 2.0 0.3 1.0 3.0 181.8
+20240210 0.7 0.7 1.3 2.3 1.7 0.7 0.3 0.7 185.9
+20240211 4.3 3.3 3.3 3.0 1.7 2.3 1.7 1.7 177.9
+20240212 1.7 2.3 2.0 0.3 0.3 0.3 0.3 0.3 197.9
+20240213 1.3 2.0 1.0 2.0 2.0 3.7 2.0 2.7 192.3
+20240214 3.0 2.3 0.7 1.0 0.7 0.7 0.3 1.0 183.6
+20240215 1.0 0.3 0.7 0.7 0.7 0.7 1.3 0.7 173.9
+20240216 1.0 0.0 0.7 1.3 2.0 1.3 0.0 0.7 166.0
+20240217 1.0 0.3 0.0 1.3 1.7 0.7 1.3 2.0 161.4
+20240218 3.3 1.7 1.0 1.3 1.0 0.3 0.3 0.0 154.0
+20240219 0.0 0.0 0.0 0.0 0.3 0.0 0.3 0.3 149.6
+20240220 0.3 0.7 2.0 1.7 2.0 1.3 1.0 2.3 149.8
+20240221 0.7 0.0 0.7 0.7 0.7 1.3 1.3 0.3 156.9
+20240222 1.7 1.3 1.7 1.7 1.0 1.0 1.3 1.0 168.2
+20240223 0.0 0.0 0.3 1.0 1.3 0.7 0.3 0.7 177.0
+20240224 0.7 0.3 0.7 1.0 2.0 2.3 2.0 2.3 178.7
+20240225 2.3 3.0 2.0 2.0 3.0 1.7 2.7 2.7 186.3
+20240226 3.0 3.0 2.3 2.7 2.3 1.3 1.3 2.0 170.8
+20240227 3.7 4.3 3.0 0.7 1.0 1.0 3.0 1.0 164.1
+20240228 1.0 1.3 1.7 2.0 0.7 0.7 1.0 1.0 175.3
+20240229 0.3 0.0 1.0 1.3 1.7 1.0 0.3 0.7 162.0
+20240301 2.7 2.7 2.3 1.0 1.3 1.7 1.3 0.7 155.7
+20240302 2.3 1.3 0.7 0.7 1.7 0.3 0.3 0.7 151.5
+20240303 2.7 0.7 0.3 3.3 5.0 5.7 6.3 4.0 144.3
+20240304 4.0 2.3 2.0 1.3 1.3 1.0 1.0 2.3 140.3
+20240305 2.7 1.0 2.0 1.3 1.7 1.0 1.7 0.3 138.8
+20240306 0.7 3.0 1.0 1.7 1.7 1.3 0.0 0.3 137.4
+20240307 2.3 1.3 2.3 2.7 2.0 2.7 3.7 3.0 133.3
+20240308 2.7 3.0 2.0 0.7 1.7 0.7 1.7 3.7 129.1
+20240309 4.0 3.0 2.3 2.0 1.7 1.3 2.7 1.7 131.6
+20240310 1.7 1.3 1.7 2.3 1.7 2.0 2.3 0.7 129.6
+20240311 1.3 1.0 2.0 1.0 0.7 1.0 0.0 0.7 124.4
+20240312 2.3 0.3 1.0 1.3 1.3 1.7 0.3 0.0 127.0
+20240313 1.0 0.3 3.3 2.0 2.3 3.0 2.0 0.7 126.6
+20240314 0.7 2.3 1.3 1.7 1.0 1.7 1.7 3.0 128.8
+20240315 3.3 2.3 2.0 1.3 1.3 0.7 0.3 0.3 129.6
+20240316 0.3 0.0 0.3 0.0 0.7 0.7 0.3 0.0 138.7
+20240317 0.0 0.0 0.3 0.0 0.0 0.0 0.0 0.0 148.6
+20240318 0.0 0.0 0.3 0.0 0.7 0.7 2.0 2.7 163.7
+20240319 2.7 2.0 2.0 2.0 1.3 1.0 1.3 1.3 165.7
+20240320 1.3 0.3 1.3 0.7 0.3 0.0 1.0 2.3 173.7
+20240321 3.0 2.3 3.0 2.0 4.3 4.7 4.3 4.0 179.9
+20240322 3.3 3.0 2.7 3.3 1.0 1.3 0.7 0.3 194.4
+20240323 2.7 4.7 4.0 3.3 4.0 3.7 4.7 5.7 201.8
+20240324 4.3 3.3 3.3 3.7 6.0 8.3 6.7 4.0 201.2
+20240325 4.3 5.0 4.0 4.3 4.0 3.3 2.0 1.7 194.8
+20240326 3.0 2.7 0.7 3.0 2.0 2.0 2.7 2.7 178.9
+20240327 3.0 1.3 2.3 1.3 0.7 0.7 1.0 1.3 174.1
+20240328 2.0 1.3 1.3 1.7 2.7 1.7 2.0 2.3 175.6
+20240329 1.7 1.7 1.7 1.3 1.3 0.7 0.3 0.3 168.2
+20240330 0.0 0.0 0.3 0.7 1.3 1.7 1.0 1.7 146.2
+20240331 3.7 2.0 2.3 1.3 1.0 1.3 1.0 2.3 139.7
+20240401 1.7 3.3 3.7 1.7 1.7 2.0 2.3 1.3 123.2
+20240402 1.0 1.7 1.3 2.7 2.0 2.0 1.7 1.0 114.8
+20240403 2.7 2.3 1.3 0.7 1.7 1.7 0.7 0.3 111.4
+20240404 0.0 0.7 2.0 2.7 2.7 3.0 3.0 3.3 113.3
+20240405 2.0 3.3 2.7 2.7 2.0 2.3 2.3 2.3 119.1
+20240406 3.0 2.7 3.0 1.7 2.0 1.3 1.7 2.0 122.6
+20240407 1.3 1.3 0.7 1.3 2.0 2.3 1.7 2.0 123.5
+20240408 2.3 2.7 3.3 1.3 0.3 1.3 0.3 0.0 125.4
+20240409 0.3 2.3 3.3 1.7 2.3 1.7 2.0 2.7 124.3
+20240410 2.7 1.7 1.3 1.7 1.3 2.7 2.0 1.3 128.7
+20240411 2.0 2.7 0.3 0.7 1.0 1.0 0.7 1.0 140.4
+20240412 1.3 2.3 1.3 1.0 1.0 0.7 0.7 1.3 154.0
+20240413 1.3 2.0 0.3 0.3 1.7 1.7 1.0 1.7 161.4
+20240414 1.7 0.0 1.3 1.3 1.3 1.3 1.3 1.7 173.8
+20240415 1.3 1.3 0.3 1.3 0.7 2.0 2.3 2.7 187.2
+20240416 4.0 3.3 4.0 3.3 3.3 4.7 5.3 5.0 200.4
+20240417 3.0 1.0 0.7 1.3 0.7 1.7 1.3 2.0 212.9
+20240418 1.3 0.3 0.3 0.7 0.7 0.7 0.3 1.7 223.0
+20240419 1.7 2.3 4.7 4.7 5.0 5.7 7.0 3.7 220.3
+20240420 2.0 2.0 2.7 2.7 1.7 2.7 2.3 2.7 220.3
+20240421 3.3 3.0 2.3 3.0 4.0 3.7 3.7 3.0 215.3
+20240422 2.0 2.3 2.3 1.3 1.3 1.7 1.7 2.3 221.2
+20240423 1.3 1.0 1.7 1.7 1.7 1.3 2.7 2.0 229.3
+20240424 1.0 0.7 0.3 0.3 0.7 0.7 0.3 0.7 207.3
+20240425 0.0 0.0 0.0 0.7 0.7 0.3 0.7 0.7 177.5
+20240426 1.0 2.7 3.0 2.0 4.0 5.0 3.3 2.0 156.6
+20240427 3.3 3.0 1.7 1.0 3.3 2.3 3.0 2.7 153.0
+20240428 3.7 2.0 1.0 0.7 0.7 0.7 0.3 1.0 149.3
+20240429 1.7 1.3 1.3 1.3 1.3 1.7 2.7 1.0 140.9
+20240430 1.7 1.3 0.0 0.7 2.7 3.3 4.0 4.3 138.8
+20240501 3.7 2.0 1.7 0.3 1.0 1.0 2.0 1.0 137.6
+20240502 2.3 1.7 2.3 3.3 5.0 6.7 6.7 4.0 141.4
+20240503 4.0 3.0 1.0 1.3 0.7 0.7 1.7 1.3 157.1
+20240504 0.7 0.7 0.3 0.7 0.7 1.0 1.3 3.0 165.7
+20240505 1.7 1.3 2.0 1.7 1.0 1.3 3.0 4.3 180.8
+20240506 5.3 2.3 2.3 2.3 4.0 2.0 2.0 1.3 172.2
+20240507 1.3 1.3 1.0 1.3 2.0 2.7 1.3 1.3 202.0
+20240508 1.0 1.7 1.7 1.7 1.7 2.0 0.7 1.0 211.1
+20240509 0.7 1.3 0.7 1.3 1.0 1.0 2.3 2.0 233.6
+20240510 2.7 2.7 2.3 2.0 3.7 7.7 8.7 8.7 223.9
+20240511 9.0 8.3 8.3 9.0 8.7 8.3 7.7 7.7 253.7
+20240512 6.3 7.0 3.7 4.3 2.0 3.0 4.0 6.3 228.1
+20240513 5.3 6.0 3.3 2.7 3.3 2.7 2.3 2.3 222.8
+20240514 1.3 1.3 1.3 2.3 2.3 1.7 2.0 0.7 216.5
+20240515 1.3 2.0 2.3 2.7 2.0 2.0 3.0 2.3 215.6
+20240516 2.7 3.0 6.0 5.0 4.3 3.0 2.3 1.0 211.1
+20240517 1.3 2.3 1.3 1.7 3.7 5.3 6.0 5.3 209.6
+20240518 4.0 3.3 2.3 3.0 2.0 2.0 1.3 1.0 204.0
+20240519 1.0 2.7 1.0 2.0 2.7 2.0 2.3 1.7 203.2
+20240520 0.7 2.3 2.3 0.7 2.0 0.7 0.7 2.0 195.3
+20240521 1.7 0.7 0.7 2.3 2.7 2.7 1.7 1.3 195.0
+20240522 1.7 0.3 0.3 0.0 0.3 0.7 1.3 1.3 197.7
+20240523 0.7 1.3 1.3 2.0 2.3 1.7 2.3 3.3 189.0
+20240524 2.3 3.0 2.7 3.0 2.0 1.3 0.3 1.0 170.6
+20240525 1.3 1.3 1.3 0.7 0.7 2.0 1.3 2.3 160.2
+20240526 1.3 2.3 0.7 2.3 2.7 2.7 2.7 1.0 166.2
+20240527 1.0 0.3 2.3 3.0 2.3 1.3 1.3 2.0 169.5
+20240528 2.0 1.7 1.7 0.7 0.3 0.7 0.7 0.7 171.1
+20240529 0.3 0.7 1.7 1.7 1.0 1.7 2.3 1.7 192.3
+20240530 0.3 0.7 0.7 1.3 2.0 3.3 2.0 2.7 175.8
+20240531 2.7 4.3 2.3 1.0 1.3 1.7 1.7 1.3 183.2
+20240601 2.7 0.3 0.7 1.0 1.3 1.3 0.7 0.0 191.4
+20240602 0.3 0.7 0.3 1.0 0.7 1.0 1.3 2.3 188.9
+20240603 1.7 1.0 1.3 1.7 1.7 1.3 2.0 4.3 188.8
+20240604 2.3 2.7 2.0 2.0 1.0 0.7 0.3 0.3 191.7
+20240605 0.7 2.0 1.7 1.3 2.3 1.3 1.7 2.3 198.5
+20240606 1.7 1.3 2.0 0.7 1.7 1.7 0.3 0.3 202.6
+20240607 1.0 2.3 2.3 3.7 6.3 5.7 3.0 3.0 202.6
+20240608 4.7 3.0 2.7 2.7 2.0 2.7 2.0 1.7 195.1
+20240609 1.3 0.7 1.0 0.7 2.0 1.0 1.7 1.3 186.4
+20240610 1.3 0.3 0.7 1.0 0.7 3.7 4.0 2.0 179.5
+20240611 3.7 4.3 2.3 1.3 1.0 1.0 0.7 1.3 173.5
+20240612 0.7 0.7 0.7 0.7 1.0 1.3 1.0 1.3 172.8
+20240613 0.3 0.3 0.3 0.3 1.0 1.0 1.0 0.0 178.2
+20240614 0.3 0.7 2.0 1.7 1.0 0.7 1.7 2.3 172.3
+20240615 2.3 2.3 2.0 3.0 4.7 3.3 2.7 4.0 175.3
+20240616 2.7 0.7 2.0 3.3 3.7 3.0 4.0 1.7 174.0
+20240617 2.0 2.3 1.7 1.7 2.3 3.3 3.3 3.0 179.1
+20240618 1.7 2.7 2.7 2.7 2.7 3.3 1.7 1.3 188.4
+20240619 2.7 3.0 2.0 1.3 3.3 2.7 2.0 1.0 201.4
+20240620 2.0 1.3 1.3 1.0 1.7 1.3 2.3 2.3 213.3
+20240621 1.3 1.3 0.7 0.3 0.3 0.3 1.0 0.7 209.0
+20240622 1.3 0.3 0.3 0.3 0.7 1.0 0.7 0.7 202.2
+20240623 1.0 1.7 2.7 3.0 3.3 2.7 2.3 1.7 200.8
+20240624 1.7 0.3 0.3 0.3 0.7 0.7 1.0 1.3 204.9
+20240625 1.3 1.3 2.0 2.0 1.7 2.7 1.7 1.0 199.1
+20240626 1.0 1.3 2.3 2.7 2.7 2.7 2.3 1.3 193.6
+20240627 1.7 1.3 0.7 1.0 2.0 2.3 2.3 3.3 188.0
+20240628 3.7 4.0 4.0 6.0 7.7 5.7 5.3 3.7 187.1
+20240629 4.0 2.3 2.0 2.3 2.0 3.0 3.0 2.7 194.0
+20240630 2.3 2.3 1.3 2.7 3.3 3.7 2.3 1.7 185.0
+20240701 1.3 1.3 1.7 1.3 1.7 1.7 1.0 0.3 178.5
+20240702 1.0 1.3 0.7 0.7 1.3 0.7 1.0 1.3 169.7
+20240703 1.3 1.0 1.3 0.7 1.3 0.7 1.0 1.3 170.1
+20240704 1.7 2.0 1.0 1.3 2.0 3.0 3.0 2.7 176.8
+20240705 1.7 2.7 1.3 2.0 3.0 2.3 0.7 0.3 178.1
+20240706 1.0 0.7 0.3 0.3 0.3 0.3 0.3 0.7 170.5
+20240707 1.7 1.3 1.0 0.3 1.7 1.3 2.7 2.7 176.3
+20240708 1.7 1.7 2.0 3.0 3.3 2.3 2.0 2.3 177.6
+20240709 1.7 1.7 0.7 1.7 2.3 1.0 1.3 1.7 186.7
+20240710 1.7 1.0 1.3 1.0 1.0 1.0 1.0 1.3 209.7
+20240711 2.0 1.3 1.3 0.7 1.7 1.3 1.7 2.0 212.4
+20240712 2.0 1.7 1.7 1.3 1.0 1.0 0.7 0.7 212.3
+20240713 0.7 1.0 0.3 0.3 1.0 1.0 1.3 0.3 239.4
+20240714 1.3 1.0 1.0 1.3 1.3 0.7 1.0 1.3 239.8
+20240715 1.0 1.0 1.3 0.7 1.0 1.0 2.0 3.0 238.7
+20240716 3.3 2.0 2.0 1.0 1.7 2.7 2.0 2.0 244.7
+20240717 0.7 1.3 1.7 1.0 2.3 1.3 1.0 0.7 229.9
+20240718 0.3 0.7 1.0 1.3 1.0 1.0 1.3 0.3 215.1
+20240719 0.3 1.0 1.0 0.7 1.0 1.0 1.3 0.7 212.1
+20240720 1.7 1.7 2.0 1.3 1.0 1.7 2.7 1.0 210.3
+20240721 1.0 0.3 0.3 0.3 1.3 1.3 1.7 1.7 211.5
+20240722 1.7 1.3 1.7 3.0 2.3 1.3 2.3 1.7 197.0
+20240723 0.3 0.3 0.3 0.7 1.0 1.0 2.7 1.7 185.7
+20240724 1.7 1.3 1.3 1.0 1.3 0.7 0.7 1.7 179.7
+20240725 0.7 1.3 0.7 1.0 2.0 2.7 3.0 3.3 173.6
+20240726 4.0 5.0 4.0 2.3 3.7 4.3 3.0 2.7 179.2
+20240727 1.0 2.3 2.3 2.7 4.0 2.7 1.0 1.3 185.7
+20240728 1.3 1.0 1.7 1.3 2.0 1.3 2.7 2.3 211.0
+20240729 2.0 1.7 1.0 1.7 1.3 1.3 1.7 1.7 222.3
+20240730 4.0 5.3 4.0 3.7 3.0 3.3 1.3 2.0 227.9
+20240731 1.3 1.0 1.3 1.0 2.7 4.0 4.7 3.7 240.0
+20240801 5.3 4.3 3.3 2.3 3.0 2.3 2.3 2.0 243.2
+20240802 2.3 2.7 1.7 1.0 1.7 1.7 1.3 2.7 257.2
+20240803 1.7 2.3 1.0 2.0 2.0 2.3 2.0 2.7 244.4
+20240804 2.7 3.7 4.3 4.0 6.7 7.0 4.3 4.0 246.2
+20240805 2.3 2.7 3.0 2.0 2.0 1.7 1.7 1.7 251.5
+20240806 1.7 1.3 1.3 0.3 0.7 1.3 1.3 1.7 267.6
+20240807 1.0 1.7 1.0 2.0 2.0 1.3 1.0 2.3 288.3
+20240808 2.7 1.3 1.3 1.7 1.0 1.0 1.3 1.3 307.0
+20240809 2.0 1.3 0.7 1.3 2.0 1.7 1.0 1.7 313.4
+20240810 1.3 2.0 0.7 0.7 2.3 2.3 1.7 1.3 309.8
+20240811 2.0 2.0 4.7 4.3 5.0 4.3 3.7 4.7 290.8
+20240812 6.7 7.0 7.0 6.7 8.0 7.7 5.7 6.0 276.1
+20240813 4.3 2.7 1.7 1.3 1.0 0.7 3.0 4.3 268.0
+20240814 3.7 3.3 2.0 1.0 1.3 1.3 1.3 3.0 260.4
+20240815 1.3 0.7 0.3 0.3 1.7 1.0 1.3 2.0 240.1
+20240816 2.7 2.0 2.0 2.0 2.7 1.3 0.3 0.7 233.5
+20240817 1.0 0.3 1.3 1.3 3.7 6.3 5.0 5.3 232.2
+20240818 2.3 2.7 2.0 3.3 3.7 2.3 2.0 2.0 233.5
+20240819 0.7 1.3 0.7 1.3 3.0 3.0 3.0 2.7 241.3
+20240820 3.3 1.7 1.7 1.7 2.3 2.3 1.7 1.7 246.9
+20240821 3.3 1.3 1.3 1.7 2.0 2.7 1.7 1.3 242.5
+20240822 3.0 2.7 2.0 2.0 2.0 2.0 1.7 2.3 238.1
+20240823 1.3 1.3 2.3 1.3 2.0 0.7 1.7 1.3 242.6
+20240824 1.7 1.7 2.7 2.7 1.7 3.0 1.3 1.7 229.4
+20240825 2.0 2.3 2.0 1.3 0.7 0.3 0.7 1.0 233.9
+20240826 1.7 1.0 0.3 1.0 1.0 1.3 0.3 0.3 236.4
+20240827 0.0 0.7 2.7 1.7 2.7 3.0 2.3 3.3 230.1
+20240828 5.7 4.0 5.0 2.3 2.7 2.3 1.3 2.7 214.9
+20240829 2.0 1.0 0.7 1.0 1.7 1.0 1.0 1.0 208.8
+20240830 1.3 0.7 3.7 3.0 4.7 4.7 4.7 4.3 213.1
+20240831 4.0 4.3 4.3 1.7 3.7 4.7 4.0 3.0 227.7
diff --git a/input/glow_data/ephoto_xn2.dat b/input/glow_data/ephoto_xn2.dat
new file mode 100644
index 0000000..52cc827
--- /dev/null
+++ b/input/glow_data/ephoto_xn2.dat
@@ -0,0 +1,127 @@
+Output of newbins.pro (FIXED 977 12/00 SCS)
+N2 branching ratios and cross sections.
+
+ Wavelength Bins (A) X A B C F Diss TotIon TotAbs
+ 0.50 1.00 0.01 0.01 0.00 0.00 0.00 0.97 0.00003 0.00003
+ 1.00 2.00 0.01 0.01 0.00 0.00 0.00 0.97 0.00030 0.00030
+ 2.00 4.00 0.01 0.01 0.00 0.00 0.00 0.97 0.00300 0.00300
+ 4.00 8.00 0.01 0.01 0.00 0.00 0.00 0.97 0.01500 0.01500
+ 8.00 18.00 0.01 0.01 0.00 0.00 0.00 0.97 0.09000 0.09000
+ 18.00 23.00 0.01 0.01 0.00 0.00 0.00 0.97 0.70791 0.70791
+ 23.00 32.00 0.01 0.02 0.00 0.00 0.00 0.96 0.97757 0.97757
+ 32.00 44.00 0.22 0.30 0.09 0.02 0.06 0.31 0.14597 0.14597
+ 44.00 60.00 0.23 0.31 0.09 0.02 0.06 0.29 0.27710 0.27710
+ 60.00 70.00 0.23 0.32 0.09 0.02 0.06 0.28 0.43398 0.43398
+ 70.00 80.00 0.23 0.32 0.09 0.01 0.06 0.27 0.61375 0.61375
+ 80.00 90.00 0.24 0.32 0.09 0.01 0.06 0.27 0.85997 0.85997
+ 90.00 100.00 0.24 0.33 0.09 0.01 0.06 0.27 1.12893 1.12893
+ 100.00 110.00 0.24 0.33 0.09 0.01 0.06 0.27 1.40055 1.40055
+ 110.00 120.00 0.24 0.33 0.10 0.01 0.06 0.26 1.73390 1.73390
+ 120.00 130.00 0.25 0.34 0.10 0.01 0.05 0.24 2.18436 2.18436
+ 130.00 140.00 0.25 0.34 0.10 0.01 0.05 0.24 2.42171 2.42171
+ 140.00 150.00 0.26 0.35 0.10 0.01 0.05 0.23 3.02960 3.02960
+ 150.00 160.00 0.25 0.35 0.10 0.01 0.05 0.24 3.50012 3.50012
+ 160.00 170.00 0.25 0.34 0.10 0.01 0.05 0.24 4.10364 4.10364
+ 170.00 180.00 0.25 0.34 0.10 0.01 0.05 0.24 4.45884 4.45884
+ 180.00 190.00 0.25 0.34 0.10 0.01 0.05 0.25 5.07793 5.07793
+ 190.00 200.00 0.24 0.33 0.10 0.01 0.06 0.26 5.73054 5.73054
+ 200.00 210.00 0.24 0.33 0.10 0.01 0.06 0.26 6.39501 6.39501
+ 210.00 220.00 0.24 0.33 0.10 0.01 0.06 0.27 7.39335 7.39335
+ 220.00 230.00 0.23 0.32 0.09 0.01 0.06 0.28 8.32086 8.32086
+ 230.00 240.00 0.23 0.32 0.09 0.01 0.06 0.29 9.08819 9.08819
+ 240.00 250.00 0.23 0.32 0.09 0.01 0.06 0.28 9.71229 9.71229
+ 250.00 260.00 0.24 0.35 0.09 0.01 0.05 0.26 10.20899 10.20899
+ 260.00 270.00 0.24 0.37 0.09 0.01 0.05 0.23 10.35440 10.35440
+ 270.00 280.00 0.24 0.41 0.08 0.02 0.06 0.19 10.61876 10.61876
+ 280.00 290.00 0.24 0.42 0.09 0.02 0.07 0.16 10.91027 10.91027
+ 290.00 300.00 0.24 0.42 0.10 0.02 0.08 0.13 11.23724 11.23724
+ 300.00 310.00 0.24 0.43 0.11 0.02 0.10 0.09 11.69806 11.69806
+ 310.00 320.00 0.25 0.43 0.12 0.03 0.11 0.06 12.53051 12.53051
+ 320.00 330.00 0.25 0.44 0.12 0.03 0.11 0.06 12.77500 12.77500
+ 330.00 340.00 0.26 0.46 0.12 0.03 0.11 0.03 13.98500 13.98500
+ 340.00 350.00 0.28 0.47 0.11 0.03 0.09 0.02 15.01358 15.01358
+ 350.00 360.00 0.30 0.47 0.11 0.03 0.08 0.01 15.82100 15.82100
+ 360.00 370.00 0.33 0.47 0.10 0.03 0.06 0.01 16.86292 16.86292
+ 370.00 380.00 0.36 0.46 0.10 0.03 0.05 0.00 17.92595 17.92595
+ 380.00 390.00 0.39 0.45 0.09 0.03 0.03 0.00 18.98897 18.98897
+ 390.00 400.00 0.42 0.43 0.09 0.03 0.02 0.00 20.05200 20.05200
+ 400.00 410.00 0.42 0.44 0.09 0.03 0.02 0.00 20.27693 20.27693
+ 410.00 420.00 0.42 0.45 0.09 0.03 0.01 0.00 21.62100 21.62100
+ 420.00 430.00 0.43 0.44 0.09 0.03 0.01 0.00 22.22701 22.22701
+ 430.00 440.00 0.43 0.44 0.09 0.04 0.00 0.00 22.83301 22.83301
+ 440.00 450.00 0.43 0.44 0.08 0.04 0.00 0.00 22.95151 22.95151
+ 450.00 460.00 0.43 0.45 0.08 0.04 0.00 0.00 23.07000 23.07000
+ 460.00 470.00 0.42 0.46 0.07 0.05 0.00 0.00 23.16447 23.16447
+ 470.00 480.00 0.41 0.46 0.07 0.05 0.00 0.00 23.43337 23.43337
+ 480.00 490.00 0.41 0.47 0.08 0.04 0.00 0.00 23.54288 23.54288
+ 490.00 500.00 0.41 0.49 0.08 0.02 0.00 0.00 23.50000 23.50000
+ 500.00 510.00 0.40 0.51 0.08 0.01 0.00 0.00 23.63629 23.63629
+ 510.00 520.00 0.40 0.52 0.08 0.00 0.00 0.00 24.25000 24.25000
+ 520.00 530.00 0.39 0.52 0.09 0.00 0.00 0.00 24.78333 24.78333
+ 530.00 540.00 0.38 0.52 0.10 0.00 0.00 0.00 25.23100 25.23100
+ 540.00 550.00 0.37 0.53 0.10 0.00 0.00 0.00 25.13200 25.13200
+ 550.00 560.00 0.35 0.54 0.11 0.00 0.00 0.00 24.10864 24.10864
+ 560.00 570.00 0.35 0.55 0.10 0.00 0.00 0.00 22.94948 22.94948
+ 570.00 580.00 0.35 0.56 0.09 0.00 0.00 0.00 22.47700 22.47700
+ 580.00 590.00 0.36 0.54 0.09 0.00 0.00 0.00 22.40000 22.40000
+ 590.00 600.00 0.32 0.58 0.10 0.00 0.00 0.00 22.56107 22.56107
+ 600.00 610.00 0.30 0.59 0.12 0.00 0.00 0.00 22.79500 22.79500
+ 610.00 620.00 0.30 0.58 0.12 0.00 0.00 0.00 22.99800 22.99800
+ 620.00 630.00 0.31 0.58 0.11 0.00 0.00 0.00 23.36362 23.36362
+ 630.00 640.00 0.32 0.57 0.11 0.00 0.00 0.00 23.61800 23.61800
+ 640.00 650.00 0.31 0.58 0.11 0.00 0.00 0.00 23.72167 23.72167
+ 650.00 660.00 0.30 0.59 0.11 0.00 0.00 0.00 24.00749 24.00749
+ 660.00 670.00 0.33 0.64 0.03 0.00 0.00 0.00 23.35600 25.74400
+ 670.00 680.00 0.31 0.69 0.00 0.00 0.00 0.00 33.30000 34.30000
+ 680.00 690.00 0.32 0.68 0.00 0.00 0.00 0.00 30.70006 32.30401
+ 690.00 700.00 0.36 0.64 0.00 0.00 0.00 0.00 27.82805 33.30706
+ 700.00 710.00 0.37 0.63 0.00 0.00 0.00 0.00 25.39828 26.52128
+ 710.00 720.00 0.39 0.61 0.00 0.00 0.00 0.00 16.76258 23.65601
+ 720.00 730.00 0.57 0.43 0.00 0.00 0.00 0.00 17.85484 31.88758
+ 730.00 740.00 0.67 0.33 0.00 0.00 0.00 0.00 12.44050 22.77442
+ 740.00 750.00 0.75 0.25 0.00 0.00 0.00 0.00 8.31765 23.34281
+ 750.00 760.00 0.95 0.05 0.00 0.00 0.00 0.00 13.18993 25.71397
+ 760.00 770.00 1.00 0.00 0.00 0.00 0.00 0.00 41.80604 77.56787
+ 770.00 780.00 1.00 0.00 0.00 0.00 0.00 0.00 10.34370 19.42565
+ 780.00 790.00 1.00 0.00 0.00 0.00 0.00 0.00 9.60785 22.21091
+ 790.00 800.00 1.00 0.00 0.00 0.00 0.00 0.00 10.59727 23.48557
+ 800.00 810.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 21.24351
+ 810.00 820.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 36.57803
+ 820.00 830.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 10.44206
+ 830.00 840.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 15.25881
+ 840.00 850.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 14.26919
+ 850.00 860.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 17.54349
+ 860.00 870.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 11.54681
+ 870.00 880.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 30.08542
+ 880.00 890.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 31.75045
+ 890.00 900.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 12.24226
+ 900.00 910.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 8.00282
+ 910.00 920.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 5.93999
+ 920.00 930.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 18.37253
+ 930.00 940.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 12.78411
+ 940.00 950.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 12.82628
+ 950.00 960.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 11.97076
+ 960.00 970.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 21.56515
+ 970.00 980.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 2.20000
+ 980.00 990.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 4.50233
+ 990.00 1000.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.00000
+ 1000.00 1010.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.00000
+ 1010.00 1020.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.00000
+ 1020.00 1030.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.00000
+ 1030.00 1040.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.00000
+ 1040.00 1050.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.00000
+ 1050.00 1100.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.00000
+ 1100.00 1150.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.00000
+ 1150.00 1210.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.00000
+ 1210.00 1220.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.00000
+ 1220.00 1250.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.00000
+ 1250.00 1300.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.00000
+ 1300.00 1350.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.00000
+ 1350.00 1400.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.00000
+ 1400.00 1450.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.00000
+ 1450.00 1500.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.00000
+ 1500.00 1550.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.00000
+ 1550.00 1600.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.00000
+ 1600.00 1650.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.00000
+ 1650.00 1700.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.00000
+ 1700.00 1750.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.00000
diff --git a/input/glow_data/ephoto_xo.dat b/input/glow_data/ephoto_xo.dat
new file mode 100644
index 0000000..ce936d4
--- /dev/null
+++ b/input/glow_data/ephoto_xo.dat
@@ -0,0 +1,127 @@
+Output of newbins.pro
+O branching ratios and cross sections.
+
+ Wavelength Bins (A) 4s 2Do 2Po 4Pe 2Pe TotIon TotAbs
+ 0.50 1.00 0.29 0.33 0.21 0.10 0.07 0.00 0.00002 0.00002
+ 1.00 2.00 0.29 0.33 0.21 0.10 0.07 0.00 0.00020 0.00020
+ 2.00 4.00 0.29 0.33 0.21 0.10 0.07 0.00 0.00200 0.00200
+ 4.00 8.00 0.29 0.33 0.21 0.10 0.07 0.00 0.01200 0.01200
+ 8.00 18.00 0.29 0.33 0.21 0.10 0.07 0.00 0.70000 0.70000
+ 18.00 23.00 0.29 0.33 0.21 0.10 0.07 0.00 0.01835 0.01835
+ 23.00 32.00 0.30 0.32 0.21 0.10 0.07 0.00 0.06900 0.06900
+ 32.00 44.00 0.30 0.32 0.21 0.10 0.08 0.00 0.13666 0.13666
+ 44.00 60.00 0.30 0.32 0.21 0.10 0.08 0.00 0.24319 0.24319
+ 60.00 70.00 0.30 0.32 0.21 0.10 0.08 0.00 0.42550 0.42550
+ 70.00 80.00 0.30 0.32 0.21 0.10 0.08 0.00 0.64087 0.64087
+ 80.00 90.00 0.30 0.32 0.21 0.10 0.08 0.00 0.90414 0.90414
+ 90.00 100.00 0.30 0.32 0.21 0.10 0.08 0.00 1.12161 1.12161
+ 100.00 110.00 0.30 0.32 0.21 0.10 0.08 0.00 1.34034 1.34034
+ 110.00 120.00 0.30 0.32 0.21 0.10 0.08 0.00 1.61297 1.61297
+ 120.00 130.00 0.30 0.32 0.21 0.10 0.08 0.00 1.91172 1.91172
+ 130.00 140.00 0.30 0.32 0.21 0.10 0.08 0.00 2.08421 2.08421
+ 140.00 150.00 0.29 0.32 0.21 0.10 0.08 0.00 2.23123 2.23123
+ 150.00 160.00 0.28 0.33 0.21 0.10 0.08 0.00 2.32952 2.32952
+ 160.00 170.00 0.28 0.33 0.22 0.10 0.08 0.00 3.01771 3.01771
+ 170.00 180.00 0.27 0.33 0.22 0.10 0.08 0.00 3.44694 3.44694
+ 180.00 190.00 0.27 0.34 0.22 0.10 0.08 0.00 3.88188 3.88188
+ 190.00 200.00 0.27 0.34 0.22 0.10 0.08 0.00 4.20033 4.20033
+ 200.00 210.00 0.26 0.34 0.22 0.10 0.08 0.00 4.49605 4.49605
+ 210.00 220.00 0.26 0.34 0.22 0.10 0.07 0.00 4.86552 4.86552
+ 220.00 230.00 0.26 0.35 0.22 0.10 0.07 0.00 5.16985 5.16985
+ 230.00 240.00 0.26 0.35 0.23 0.10 0.07 0.00 5.42725 5.42725
+ 240.00 250.00 0.25 0.35 0.23 0.10 0.07 0.00 5.67214 5.67214
+ 250.00 260.00 0.25 0.36 0.23 0.10 0.07 0.00 6.05733 6.05733
+ 260.00 270.00 0.25 0.36 0.23 0.10 0.06 0.00 6.25857 6.25857
+ 270.00 280.00 0.25 0.36 0.23 0.10 0.06 0.00 6.66988 6.66988
+ 280.00 290.00 0.25 0.37 0.23 0.10 0.05 0.00 7.09936 7.09936
+ 290.00 300.00 0.25 0.37 0.24 0.09 0.05 0.00 7.45709 7.45709
+ 300.00 310.00 0.25 0.37 0.24 0.09 0.04 0.00 7.69832 7.69832
+ 310.00 320.00 0.26 0.39 0.25 0.10 0.00 0.00 8.15317 8.15317
+ 320.00 330.00 0.26 0.39 0.25 0.10 0.00 0.00 8.27000 8.27000
+ 330.00 340.00 0.26 0.40 0.25 0.09 0.00 0.00 8.77300 8.77300
+ 340.00 350.00 0.26 0.40 0.25 0.09 0.00 0.00 9.15432 9.15432
+ 350.00 360.00 0.26 0.40 0.25 0.09 0.00 0.00 9.44200 9.44200
+ 360.00 370.00 0.26 0.40 0.25 0.08 0.00 0.00 9.82024 9.82024
+ 370.00 380.00 0.26 0.41 0.25 0.08 0.00 0.00 10.47249 10.47249
+ 380.00 390.00 0.26 0.41 0.25 0.08 0.00 0.00 11.12475 11.12475
+ 390.00 400.00 0.26 0.41 0.25 0.07 0.00 0.00 11.77700 11.77700
+ 400.00 410.00 0.26 0.41 0.25 0.07 0.00 0.00 11.62572 11.62572
+ 410.00 420.00 0.26 0.41 0.26 0.07 0.00 0.00 11.21000 11.21000
+ 420.00 430.00 0.27 0.42 0.26 0.05 0.00 0.00 11.31901 11.31901
+ 430.00 440.00 0.27 0.43 0.27 0.03 0.00 0.00 11.42802 11.42802
+ 440.00 450.00 0.28 0.44 0.27 0.01 0.00 0.00 11.73372 11.73372
+ 450.00 460.00 0.28 0.45 0.27 0.00 0.00 0.00 12.03943 12.03943
+ 460.00 470.00 0.28 0.45 0.27 0.00 0.00 0.00 11.92850 11.92850
+ 470.00 480.00 0.28 0.45 0.27 0.00 0.00 0.00 11.95602 11.95602
+ 480.00 490.00 0.28 0.45 0.27 0.00 0.00 0.00 12.78744 12.78744
+ 490.00 500.00 0.28 0.45 0.27 0.00 0.00 0.00 12.01402 12.01402
+ 500.00 510.00 0.28 0.45 0.27 0.00 0.00 0.00 11.83896 11.83896
+ 510.00 520.00 0.28 0.45 0.27 0.00 0.00 0.00 11.95600 11.95600
+ 520.00 530.00 0.28 0.45 0.27 0.00 0.00 0.00 12.04167 12.04167
+ 530.00 540.00 0.29 0.45 0.26 0.00 0.00 0.00 12.24000 12.24000
+ 540.00 550.00 0.29 0.45 0.26 0.00 0.00 0.00 12.35600 12.35600
+ 550.00 560.00 0.29 0.45 0.26 0.00 0.00 0.00 12.59063 12.59063
+ 560.00 570.00 0.29 0.45 0.26 0.00 0.00 0.00 12.80012 12.80012
+ 570.00 580.00 0.29 0.45 0.26 0.00 0.00 0.00 12.92300 12.92300
+ 580.00 590.00 0.29 0.45 0.25 0.00 0.00 0.00 13.08645 13.08645
+ 590.00 600.00 0.30 0.45 0.25 0.00 0.00 0.00 13.28939 13.28939
+ 600.00 610.00 0.30 0.45 0.25 0.00 0.00 0.00 13.39800 13.39800
+ 610.00 620.00 0.30 0.45 0.25 0.00 0.00 0.00 13.40000 13.40000
+ 620.00 630.00 0.31 0.45 0.24 0.00 0.00 0.00 13.40000 13.40000
+ 630.00 640.00 0.31 0.45 0.24 0.00 0.00 0.00 13.31500 13.31500
+ 640.00 650.00 0.31 0.45 0.24 0.00 0.00 0.00 13.23623 13.23623
+ 650.00 660.00 0.31 0.45 0.24 0.00 0.00 0.00 12.90837 12.90837
+ 660.00 670.00 0.32 0.45 0.23 0.00 0.00 0.00 12.44200 12.44200
+ 670.00 680.00 0.42 0.58 0.00 0.00 0.00 0.00 10.98400 10.98400
+ 680.00 690.00 0.42 0.58 0.00 0.00 0.00 0.00 22.36679 22.36679
+ 690.00 700.00 0.43 0.57 0.00 0.00 0.00 0.00 9.23861 9.23861
+ 700.00 710.00 0.43 0.57 0.00 0.00 0.00 0.00 11.43155 11.43155
+ 710.00 720.00 0.44 0.56 0.00 0.00 0.00 0.00 8.99871 8.99871
+ 720.00 730.00 0.44 0.56 0.00 0.00 0.00 0.00 15.86265 15.86265
+ 730.00 740.00 0.90 0.10 0.00 0.00 0.00 0.00 10.87669 10.87669
+ 740.00 750.00 1.00 0.00 0.00 0.00 0.00 0.00 12.93472 12.93472
+ 750.00 760.00 1.00 0.00 0.00 0.00 0.00 0.00 9.92787 9.92787
+ 760.00 770.00 1.00 0.00 0.00 0.00 0.00 0.00 4.01561 4.01561
+ 770.00 780.00 1.00 0.00 0.00 0.00 0.00 0.00 3.87358 3.87358
+ 780.00 790.00 1.00 0.00 0.00 0.00 0.00 0.00 3.72069 3.72069
+ 790.00 800.00 1.00 0.00 0.00 0.00 0.00 0.00 4.37297 4.37297
+ 800.00 810.00 1.00 0.00 0.00 0.00 0.00 0.00 3.54917 3.54917
+ 810.00 820.00 1.00 0.00 0.00 0.00 0.00 0.00 5.89056 5.89056
+ 820.00 830.00 1.00 0.00 0.00 0.00 0.00 0.00 2.92849 2.92849
+ 830.00 840.00 1.00 0.00 0.00 0.00 0.00 0.00 3.30000 3.30000
+ 840.00 850.00 1.00 0.00 0.00 0.00 0.00 0.00 3.25294 3.25294
+ 850.00 860.00 1.00 0.00 0.00 0.00 0.00 0.00 3.12764 3.12764
+ 860.00 870.00 1.00 0.00 0.00 0.00 0.00 0.00 3.10000 3.10000
+ 870.00 880.00 1.00 0.00 0.00 0.00 0.00 0.00 11.19143 11.19143
+ 880.00 890.00 1.00 0.00 0.00 0.00 0.00 0.00 3.44233 3.44233
+ 890.00 900.00 1.00 0.00 0.00 0.00 0.00 0.00 2.75794 2.75794
+ 900.00 910.00 1.00 0.00 0.00 0.00 0.00 0.00 2.74992 2.74992
+ 910.00 920.00 1.00 0.00 0.00 0.00 0.00 0.00 0.29051 0.29051
+ 920.00 930.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.00000
+ 930.00 940.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.00000
+ 940.00 950.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.00000
+ 950.00 960.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.00000
+ 960.00 970.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.00000
+ 970.00 980.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.00000
+ 980.00 990.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.00000
+ 990.00 1000.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.00000
+ 1000.00 1010.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.00000
+ 1010.00 1020.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.00000
+ 1020.00 1030.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.00000
+ 1030.00 1040.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.00000
+ 1040.00 1050.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.00000
+ 1050.00 1100.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.00000
+ 1100.00 1150.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.00000
+ 1150.00 1210.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.00000
+ 1210.00 1220.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.00000
+ 1220.00 1250.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.00000
+ 1250.00 1300.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.00000
+ 1300.00 1350.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.00000
+ 1350.00 1400.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.00000
+ 1400.00 1450.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.00000
+ 1450.00 1500.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.00000
+ 1500.00 1550.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.00000
+ 1550.00 1600.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.00000
+ 1600.00 1650.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.00000
+ 1650.00 1700.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.00000
+ 1700.00 1750.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.00000
diff --git a/input/glow_data/ephoto_xo2.dat b/input/glow_data/ephoto_xo2.dat
new file mode 100644
index 0000000..a96bd9f
--- /dev/null
+++ b/input/glow_data/ephoto_xo2.dat
@@ -0,0 +1,127 @@
+Ouput of newbins.pro
+O2 branching ratios and cross sections.
+
+ Wavelength Bins (A) X a+A b diss TotIon TotAbs
+ 0.50 1.00 0.00 0.00 0.00 1.00 0.00 0.00 0.00004 0.00004
+ 1.00 2.00 0.00 0.00 0.00 1.00 0.00 0.00 0.00040 0.00040
+ 2.00 4.00 0.00 0.00 0.00 1.00 0.00 0.00 0.00400 0.00400
+ 4.00 8.00 0.00 0.00 0.00 1.00 0.00 0.00 0.02400 0.02400
+ 8.00 18.00 0.00 0.00 0.00 1.00 0.00 0.00 0.14000 0.14000
+ 18.00 23.00 0.00 0.00 0.00 1.00 0.00 0.00 0.03570 0.03570
+ 23.00 32.00 0.01 0.01 0.01 0.97 0.00 0.00 0.13691 0.13691
+ 32.00 44.00 0.02 0.02 0.02 0.95 0.00 0.00 0.26918 0.26918
+ 44.00 60.00 0.03 0.03 0.02 0.91 0.00 0.00 0.51550 0.51550
+ 60.00 70.00 0.05 0.04 0.03 0.88 0.00 0.00 0.81332 0.81332
+ 70.00 80.00 0.06 0.06 0.04 0.84 0.00 0.00 1.14249 1.14249
+ 80.00 90.00 0.08 0.07 0.05 0.80 0.00 0.00 1.58335 1.58335
+ 90.00 100.00 0.09 0.08 0.06 0.77 0.00 0.00 2.00842 2.00842
+ 100.00 110.00 0.11 0.10 0.07 0.73 0.00 0.00 2.43685 2.43685
+ 110.00 120.00 0.13 0.11 0.08 0.68 0.00 0.00 2.95809 2.95809
+ 120.00 130.00 0.15 0.13 0.09 0.62 0.00 0.00 3.64328 3.64328
+ 130.00 140.00 0.16 0.14 0.10 0.59 0.00 0.00 4.04450 4.04450
+ 140.00 150.00 0.19 0.17 0.12 0.53 0.00 0.00 5.05316 5.05316
+ 150.00 160.00 0.20 0.17 0.12 0.51 0.00 0.00 5.73250 5.73250
+ 160.00 170.00 0.20 0.18 0.13 0.48 0.00 0.00 6.52935 6.52935
+ 170.00 180.00 0.21 0.19 0.13 0.46 0.00 0.00 6.95131 6.95131
+ 180.00 190.00 0.23 0.20 0.13 0.44 0.00 0.00 7.64624 7.64624
+ 190.00 200.00 0.25 0.19 0.13 0.43 0.00 0.00 8.39623 8.39623
+ 200.00 210.00 0.25 0.20 0.13 0.42 0.00 0.00 9.04111 9.04111
+ 210.00 220.00 0.25 0.20 0.13 0.41 0.00 0.00 9.92071 9.92071
+ 220.00 230.00 0.26 0.21 0.14 0.40 0.00 0.00 10.73821 10.73821
+ 230.00 240.00 0.25 0.22 0.14 0.39 0.00 0.00 11.47570 11.47570
+ 240.00 250.00 0.27 0.21 0.14 0.38 0.00 0.00 12.22704 12.22704
+ 250.00 260.00 0.28 0.22 0.14 0.37 0.00 0.00 13.39503 13.39503
+ 260.00 270.00 0.28 0.21 0.13 0.37 0.00 0.00 14.01024 14.01024
+ 270.00 280.00 0.29 0.20 0.13 0.38 0.00 0.00 15.08846 15.08846
+ 280.00 290.00 0.29 0.21 0.13 0.37 0.00 0.00 15.81720 15.81720
+ 290.00 300.00 0.30 0.21 0.12 0.37 0.00 0.00 16.39007 16.39007
+ 300.00 310.00 0.31 0.21 0.13 0.35 0.00 0.00 16.81247 16.81247
+ 310.00 320.00 0.32 0.22 0.13 0.33 0.00 0.00 17.14463 17.14463
+ 320.00 330.00 0.33 0.22 0.13 0.32 0.00 0.00 17.20600 17.20600
+ 330.00 340.00 0.35 0.23 0.13 0.29 0.00 0.00 17.40800 17.40800
+ 340.00 350.00 0.36 0.23 0.13 0.28 0.00 0.00 17.71310 17.71310
+ 350.00 360.00 0.37 0.23 0.13 0.27 0.00 0.00 17.92000 17.92000
+ 360.00 370.00 0.38 0.24 0.13 0.25 0.00 0.00 18.30381 18.30381
+ 370.00 380.00 0.40 0.23 0.13 0.25 0.00 0.00 18.73354 18.73354
+ 380.00 390.00 0.41 0.22 0.12 0.25 0.00 0.00 19.16327 19.16327
+ 390.00 400.00 0.42 0.22 0.12 0.24 0.00 0.00 19.59300 19.59300
+ 400.00 410.00 0.42 0.22 0.12 0.24 0.00 0.00 19.68734 19.68734
+ 410.00 420.00 0.42 0.23 0.12 0.24 0.00 0.00 20.21700 20.21700
+ 420.00 430.00 0.41 0.24 0.12 0.23 0.00 0.00 20.52141 20.52141
+ 430.00 440.00 0.39 0.25 0.13 0.23 0.00 0.00 20.82582 20.82582
+ 440.00 450.00 0.40 0.25 0.13 0.23 0.00 0.00 21.20291 21.20291
+ 450.00 460.00 0.40 0.25 0.12 0.23 0.00 0.00 21.58000 21.58000
+ 460.00 470.00 0.39 0.25 0.13 0.23 0.00 0.00 21.90804 21.90804
+ 470.00 480.00 0.38 0.26 0.13 0.23 0.00 0.00 22.34753 22.34753
+ 480.00 490.00 0.37 0.27 0.13 0.23 0.00 0.00 22.82849 22.82849
+ 490.00 500.00 0.36 0.28 0.13 0.23 0.00 0.00 23.41873 23.41873
+ 500.00 510.00 0.35 0.29 0.13 0.23 0.00 0.00 23.80841 23.80841
+ 510.00 520.00 0.34 0.30 0.14 0.23 0.00 0.00 24.28000 24.28000
+ 520.00 530.00 0.34 0.31 0.14 0.21 0.00 0.00 24.66605 24.66605
+ 530.00 540.00 0.34 0.32 0.16 0.19 0.00 0.00 25.25100 25.25100
+ 540.00 550.00 0.34 0.31 0.18 0.17 0.00 0.00 25.28100 25.28100
+ 550.00 560.00 0.32 0.28 0.23 0.17 0.00 0.00 26.04140 26.04140
+ 560.00 570.00 0.31 0.26 0.26 0.17 0.00 0.00 25.97280 25.97280
+ 570.00 580.00 0.30 0.27 0.26 0.17 0.00 0.00 25.66200 25.66200
+ 580.00 590.00 0.28 0.29 0.26 0.17 0.00 0.00 22.73516 22.73516
+ 590.00 600.00 0.23 0.30 0.35 0.11 0.00 0.00 27.78559 27.78559
+ 600.00 610.00 0.25 0.37 0.30 0.07 0.00 0.00 26.39000 28.07500
+ 610.00 620.00 0.27 0.39 0.29 0.05 0.00 0.00 25.68800 26.42800
+ 620.00 630.00 0.30 0.35 0.31 0.03 0.00 0.00 30.70125 31.68113
+ 630.00 640.00 0.32 0.32 0.32 0.04 0.00 0.00 25.98600 26.16700
+ 640.00 650.00 0.33 0.31 0.32 0.04 0.00 0.00 24.99543 25.57554
+ 650.00 660.00 0.30 0.33 0.33 0.04 0.00 0.00 26.24485 27.11669
+ 660.00 670.00 0.27 0.38 0.35 0.00 0.00 0.00 25.39100 25.68600
+ 670.00 680.00 0.35 0.40 0.25 0.00 0.00 0.00 20.44100 20.85800
+ 680.00 690.00 0.53 0.47 0.00 0.00 0.00 0.00 20.41122 20.56370
+ 690.00 700.00 0.59 0.41 0.00 0.00 0.00 0.00 19.61648 21.27500
+ 700.00 710.00 0.66 0.34 0.00 0.00 0.00 0.00 23.85330 27.56503
+ 710.00 720.00 0.56 0.44 0.00 0.00 0.00 0.00 24.64139 29.61420
+ 720.00 730.00 0.59 0.41 0.00 0.00 0.00 0.00 25.68427 30.22772
+ 730.00 740.00 0.57 0.43 0.00 0.00 0.00 0.00 29.88164 33.39752
+ 740.00 750.00 0.64 0.36 0.00 0.00 0.00 0.00 15.10738 20.06582
+ 750.00 760.00 0.79 0.21 0.00 0.00 0.00 0.00 12.47806 19.92584
+ 760.00 770.00 0.91 0.09 0.00 0.00 0.00 0.00 10.97807 20.33442
+ 770.00 780.00 1.00 0.00 0.00 0.00 0.00 0.00 9.37360 19.59214
+ 780.00 790.00 1.00 0.00 0.00 0.00 0.00 0.00 10.25003 23.78824
+ 790.00 800.00 1.00 0.00 0.00 0.00 0.00 0.00 9.92727 27.43285
+ 800.00 810.00 1.00 0.00 0.00 0.00 0.00 0.00 11.89056 33.65188
+ 810.00 820.00 1.00 0.00 0.00 0.00 0.00 0.00 14.55569 32.87725
+ 820.00 830.00 1.00 0.00 0.00 0.00 0.00 0.00 7.78809 20.57218
+ 830.00 840.00 1.00 0.00 0.00 0.00 0.00 0.00 4.81160 12.58612
+ 840.00 850.00 1.00 0.00 0.00 0.00 0.00 0.00 4.32305 12.05939
+ 850.00 860.00 1.00 0.00 0.00 0.00 0.00 0.00 3.81993 8.99302
+ 860.00 870.00 1.00 0.00 0.00 0.00 0.00 0.00 4.56355 7.53888
+ 870.00 880.00 1.00 0.00 0.00 0.00 0.00 0.00 5.90823 9.20003
+ 880.00 890.00 1.00 0.00 0.00 0.00 0.00 0.00 6.62418 9.82225
+ 890.00 900.00 1.00 0.00 0.00 0.00 0.00 0.00 5.39738 7.54771
+ 900.00 910.00 1.00 0.00 0.00 0.00 0.00 0.00 6.53806 9.65596
+ 910.00 920.00 1.00 0.00 0.00 0.00 0.00 0.00 8.22776 11.89219
+ 920.00 930.00 1.00 0.00 0.00 0.00 0.00 0.00 5.32170 6.71444
+ 930.00 940.00 1.00 0.00 0.00 0.00 0.00 0.00 19.73679 24.46603
+ 940.00 950.00 1.00 0.00 0.00 0.00 0.00 0.00 10.54179 13.63943
+ 950.00 960.00 1.00 0.00 0.00 0.00 0.00 0.00 21.30165 27.31472
+ 960.00 970.00 1.00 0.00 0.00 0.00 0.00 0.00 18.66043 23.52472
+ 970.00 980.00 1.00 0.00 0.00 0.00 0.00 0.00 16.05609 20.40682
+ 980.00 990.00 1.00 0.00 0.00 0.00 0.00 0.00 5.03341 6.24338
+ 990.00 1000.00 1.00 0.00 0.00 0.00 0.00 0.00 9.67682 13.57317
+ 1000.00 1010.00 1.00 0.00 0.00 0.00 0.00 0.00 2.76065 3.24864
+ 1010.00 1020.00 1.00 0.00 0.00 0.00 0.00 0.00 1.02718 1.32311
+ 1020.00 1030.00 1.00 0.00 0.00 0.00 0.00 0.00 0.98258 1.62110
+ 1030.00 1040.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 1.13530
+ 1040.00 1050.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 1.36344
+ 1050.00 1100.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 1.00000
+ 1100.00 1150.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.40000
+ 1150.00 1210.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 1.40000
+ 1210.00 1220.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.01000
+ 1220.00 1250.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 13.00000
+ 1250.00 1300.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.40000
+ 1300.00 1350.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 2.20000
+ 1350.00 1400.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 12.00000
+ 1400.00 1450.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 15.00000
+ 1450.00 1500.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 13.00000
+ 1500.00 1550.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 10.00000
+ 1550.00 1600.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 6.00000
+ 1600.00 1650.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 3.40000
+ 1650.00 1700.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 1.50000
+ 1700.00 1750.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00000 0.50000
diff --git a/input/glow_data/iri90/ccir11.asc b/input/glow_data/iri90/ccir11.asc
new file mode 100644
index 0000000..7198963
--- /dev/null
+++ b/input/glow_data/iri90/ccir11.asc
@@ -0,0 +1,715 @@
+ 0.52396593E+01-0.56523629E-01-0.18704617E-01 0.12128915E-01
+ 0.79412190E-02-0.10031431E-01 0.21567261E-01-0.68602660E-02
+ 0.37022342E-02 0.78359339E-02 0.63161603E-02-0.10695397E-01
+ 0.29390149E-01 0.93325400E+00-0.28997503E-01 0.10946778E+00
+-0.30769527E+00-0.37993383E+00-0.23273268E+00 0.89480691E-01
+ 0.33896305E-01 0.32839003E+00-0.81993349E-01-0.14348941E+00
+-0.27823284E-01 0.11266428E-01 0.80531130E+01 0.13981724E+01
+ 0.47361958E+00-0.11388183E+00 0.77816737E+00-0.17388150E+00
+ 0.29099104E+00 0.29059123E-01-0.37210885E+00-0.11191850E+00
+-0.43733008E-01 0.12193082E+00-0.32639468E+00-0.13390853E+02
+ 0.62356526E+00 0.24597554E+01 0.44970918E+01 0.85659552E+01
+ 0.40355296E+01-0.79231381E+00-0.67203265E+00-0.47442737E+01
+ 0.21074810E+01 0.33913586E+01-0.10161761E+00-0.69574153E+00
+-0.32273560E+02-0.56248417E+01-0.58702965E+01-0.43174982E+01
+-0.32914643E+01 0.14731911E+01-0.84157687E+00-0.18629679E+00
+ 0.36630037E+01-0.49589828E+00 0.42669845E+00-0.39217409E+00
+ 0.15235479E+01-0.10364820E+00-0.17449905E+02-0.18375044E+02
+-0.16429411E+02-0.42843178E+02-0.18512333E+02 0.29954524E+01
+ 0.44427662E+01 0.22331482E+02-0.11312363E+02-0.17385393E+02
+ 0.13743354E+01 0.49287653E+01 0.35317551E+02 0.78040113E+01
+ 0.22017223E+02 0.19007372E+02 0.51486945E+01-0.32355106E+01
+-0.70289177E+00-0.18949838E-01-0.10833933E+02 0.30533838E+01
+-0.15614654E+01 0.34174812E+00-0.33425496E+01 0.10955015E+03
+ 0.64495300E+02 0.39307384E+02 0.21447481E+02 0.88321732E+02
+ 0.36022030E+02-0.49279366E+01-0.11266347E+02-0.45660416E+02
+ 0.24368761E+02 0.36402855E+02-0.37914002E+01-0.12354781E+02
+-0.15069658E+02-0.54928751E+01-0.30891773E+02-0.26297506E+02
+-0.28576374E+01 0.23907247E+01 0.27161193E+01 0.10669554E+01
+ 0.12239296E+02-0.43662004E+01 0.20293267E+01 0.21851628E+00
+ 0.34469433E+01-0.18371085E+03-0.78854736E+02-0.32724571E+02
+-0.86944246E+01-0.80539780E+02-0.31638607E+02 0.32864110E+01
+ 0.12187758E+02 0.42042595E+02-0.23398046E+02-0.33907742E+02
+ 0.42148323E+01 0.12834593E+02 0.22537875E+01 0.19722799E+01
+ 0.14214872E+02 0.11752549E+02 0.97573824E-01-0.41853258E+00
+-0.14487737E+01-0.91950291E+00-0.47050514E+01 0.19138944E+01
+-0.85748482E+00-0.30080923E+00-0.13293968E+01 0.86102806E+02
+ 0.31215933E+02 0.92085867E+01-0.52750909E+00 0.26795364E+02
+ 0.10308076E+02-0.60259044E+00-0.47401175E+01-0.14323977E+02
+ 0.83509979E+01 0.11643826E+02-0.16808408E+01-0.47212696E+01
+ 0.53214836E-02 0.17079000E+01 0.16235816E+01 0.33274181E-01
+-0.12954264E-01-0.36316011E-02 0.45543164E-01-0.43191575E-02
+-0.25532667E-01 0.89464840E-02 0.23123844E-01 0.16921325E-01
+ 0.33485752E-01-0.22577250E+00-0.16961778E+01 0.17585011E+01
+-0.36464985E-01-0.46494432E-01-0.19080851E-02-0.31143922E-01
+ 0.10176010E-01-0.69593927E-02-0.66427351E-02 0.23588389E-02
+-0.55617536E-02-0.19860143E-01-0.17363087E+01 0.18277783E+01
+ 0.16650461E+01-0.48928317E-01-0.43136498E+00-0.47681876E-01
+ 0.25482827E+00-0.18712924E+00 0.47013280E+00-0.17417172E+00
+ 0.78237861E-01 0.10381135E+00 0.17819388E-01-0.14371649E+01
+-0.80177718E+00 0.61360812E+00-0.59573984E+00 0.52904451E+00
+-0.10058827E+00 0.21083134E+00 0.78204811E-01 0.61967522E-02
+ 0.11077180E+00-0.40769756E-01 0.21807816E-01 0.20648648E-02
+ 0.46911736E+01 0.78173614E+01 0.12199426E+02-0.16422656E+01
+ 0.37755153E+01-0.40263680E+00-0.52920246E+00-0.21391793E+00
+ 0.57929236E+00 0.80246784E-01-0.18910319E+00-0.50804520E+00
+-0.88265932E+00 0.69275224E+00-0.12002475E+02 0.57374411E+01
+ 0.13528378E+01 0.44981871E+01-0.47366244E+00 0.36056972E+00
+ 0.79039741E+00-0.22344507E-01-0.64753883E-01 0.46970192E+00
+-0.40660375E+00 0.44191428E-01 0.39014656E+02-0.28619871E+02
+-0.15200562E+01-0.19682378E+01 0.13416008E+02 0.27089481E+01
+-0.59305787E+01 0.31192074E+01-0.91367588E+01 0.26589971E+01
+-0.11606407E+00-0.35579140E+01-0.89003706E+00 0.34678040E+02
+-0.52889085E+00-0.57936335E+01 0.87519836E+01-0.10267422E+02
+ 0.12299103E+01-0.30112040E+01 0.11044223E+01-0.21466107E+01
+ 0.45218792E-01 0.30407925E+01-0.71307260E+00-0.15156338E+01
+-0.52359825E+02-0.65902946E+02-0.30542086E+02 0.45587659E+01
+-0.33256973E+02 0.32021556E+01 0.60264249E+01 0.39931140E+01
+-0.21957397E+01-0.14460717E+01-0.62892991E+00 0.19364247E+01
+ 0.71591692E+01 0.99375763E+01 0.36078590E+02-0.38465443E+02
+-0.34042759E+01-0.46145630E+02 0.20836172E+01-0.37764747E+01
+-0.62155070E+01-0.36285675E+00 0.83748114E+00-0.11298743E+01
+ 0.38863559E+01 0.14642847E+01-0.22182343E+03 0.11115142E+03
+-0.16951048E+02 0.17158335E+02-0.61797066E+02-0.21725040E+02
+ 0.33751064E+02-0.20662024E+02 0.52077259E+02-0.10576082E+02
+ 0.19523579E+00 0.24283333E+02 0.39174995E+01-0.22131866E+03
+ 0.17304182E+02-0.28861012E+02-0.44697052E+02 0.53147095E+02
+-0.61317348E+01 0.16753126E+02-0.89905128E+01 0.20872980E+02
+-0.63277907E+01-0.26276550E+02 0.64804440E+01 0.11094950E+02
+ 0.17550497E+03 0.16372993E+03-0.21463629E+02 0.27199810E+01
+ 0.99251183E+02-0.79424796E+01-0.21751915E+02-0.18336351E+02
+ 0.69923621E+00 0.50953045E+01 0.72605686E+01-0.15412294E+01
+-0.22803534E+02-0.56229095E+02 0.14818197E+01 0.69807755E+02
+ 0.33564434E+01 0.14655196E+03-0.27966247E+01 0.12579897E+02
+ 0.17929468E+02 0.43725858E+01-0.22176220E+01-0.37626834E+01
+-0.10943099E+02-0.52088380E+01 0.53665625E+03-0.20060770E+03
+ 0.17310247E+02-0.54237488E+02 0.99595345E+02 0.66468887E+02
+-0.80023064E+02 0.58134552E+02-0.12709147E+03 0.15493525E+02
+-0.31282263E+01-0.65706467E+02-0.49680519E+01 0.55392444E+03
+-0.46329002E+02 0.14449484E+03 0.10233988E+03-0.11556944E+03
+ 0.13084748E+02-0.44251144E+02 0.22732943E+02-0.62439163E+02
+ 0.21050632E+02 0.77459229E+02-0.19942715E+02-0.28916513E+02
+-0.23239845E+03-0.18225694E+03 0.10545853E+03-0.16537470E+02
+-0.12225861E+03 0.72478418E+01 0.29107874E+02 0.29596212E+02
+ 0.43757663E+01-0.56305561E+01-0.14893911E+02-0.16775293E+01
+ 0.30470707E+02 0.95573692E+02-0.82114143E+02-0.54173027E+02
+-0.28702703E+01-0.18174019E+03-0.33480763E+00-0.15407213E+02
+-0.20705093E+02-0.86905804E+01 0.13393050E+01 0.11856750E+02
+ 0.11862597E+02 0.56412406E+01-0.58746796E+03 0.17872774E+03
+ 0.44170815E+02 0.71773781E+02-0.55947525E+02-0.85275742E+02
+ 0.84508293E+02-0.71050819E+02 0.13868575E+03-0.73421726E+01
+ 0.69255672E+01 0.76826965E+02 0.51061606E+00-0.58909216E+03
+ 0.41609570E+02-0.19081412E+03-0.10350248E+03 0.11202155E+03
+-0.11497140E+02 0.53446163E+02-0.24178514E+02 0.73052414E+02
+-0.24337910E+02-0.93695763E+02 0.24911678E+02 0.31728121E+02
+ 0.10805177E+03 0.77080933E+02-0.67569344E+02 0.11093394E+02
+ 0.53251934E+02-0.18096049E+01-0.12874349E+02-0.15589551E+02
+-0.36182413E+01 0.18153871E+01 0.87414274E+01 0.19512452E+01
+-0.14214747E+02-0.53066933E+02 0.58636524E+02 0.16770851E+02
+ 0.15051444E+01 0.77045029E+02 0.18778749E+01 0.61496325E+01
+ 0.81532841E+01 0.46847639E+01 0.32412454E+00-0.78524041E+01
+-0.42911925E+01-0.19247583E+01 0.23769147E+03-0.61533985E+02
+-0.47820061E+02-0.34214542E+02 0.40193143E+01 0.38487625E+02
+-0.32399452E+02 0.30905638E+02-0.55419487E+02-0.24066789E+00
+-0.41797304E+01-0.32275726E+02 0.15222611E+01 0.22423343E+03
+-0.12581701E+02 0.80397057E+02 0.37280334E+02-0.41082157E+02
+ 0.31536264E+01-0.23678221E+02 0.94953613E+01-0.29353230E+02
+ 0.94907122E+01 0.40155750E+02-0.10989323E+02-0.12388154E+02
+ 0.20844085E-01-0.80697089E-01 0.30533599E-01-0.64598656E+00
+-0.16657443E+00-0.21123195E-01 0.92248200E-02-0.25574602E-02
+-0.73007592E-02 0.12166507E-01-0.12164736E-01 0.68045142E-02
+-0.77586402E-02-0.69821566E-01 0.10285664E-01 0.30625435E-01
+ 0.12556811E+00-0.77144945E+00 0.14403922E-01 0.32232669E-02
+-0.18554740E-01 0.41907090E-02-0.10089985E-02 0.43220972E-02
+ 0.18566685E-02-0.25719402E-01-0.36431205E+00-0.18156898E+00
+-0.11474409E+00 0.64775425E+00 0.20361809E+00 0.58565461E-02
+-0.85165583E-01-0.11972090E+00-0.25655270E+00-0.12931146E+00
+-0.37106670E-01-0.15892604E+00-0.45120206E-01 0.10515987E+01
+ 0.61001372E+00 0.23907986E+00-0.96539223E+00 0.35442737E+00
+-0.22381260E+00 0.19057482E+00-0.75943330E-02 0.47220100E-01
+-0.86490205E-02 0.44078577E-01-0.37896223E-01-0.78807129E-02
+ 0.27450144E+00-0.69624442E+00-0.14316448E+01 0.18575617E+01
+ 0.37408116E+01-0.57409221E+00-0.48675659E+00 0.22489709E+00
+-0.55995405E-01 0.24701399E+00 0.39949957E-01 0.95097050E-02
+ 0.15562671E+00 0.29598875E+01-0.22428038E+01 0.16291965E+01
+-0.38134632E+01 0.55432544E+01-0.76043957E+00-0.81076163E+00
+ 0.97178990E+00 0.18208525E+00-0.16950764E-01 0.58102113E+00
+-0.36129999E+00 0.14220279E+00 0.34898536E+01 0.21215761E+01
+ 0.22773728E+01-0.46729574E+01 0.32191403E+01 0.10207694E+01
+ 0.40245906E+00 0.71286887E+00 0.25590413E+01 0.10251747E+01
+-0.47245717E+00 0.82578117E+00-0.63747823E-01-0.69263606E+01
+-0.71795802E+01 0.26847789E+01 0.42841086E+01-0.33002298E+01
+ 0.25364313E+01-0.16150088E+01 0.56352544E+00 0.55770433E+00
+ 0.44689545E+00-0.62278980E+00-0.38403094E+00-0.24888094E+00
+-0.28185658E+01 0.10438052E+02 0.53413100E+01 0.12666808E+02
+ 0.10997744E+02 0.27631536E+01 0.28622413E+01-0.12079479E+01
+ 0.16985104E+01-0.21927736E+01 0.75003189E+00 0.98793454E-01
+-0.10628952E+01-0.15150089E+02 0.23410828E+02-0.12058938E+02
+-0.97661982E+01-0.59994440E+01 0.12919568E+01 0.10240656E+01
+-0.46654758E+01-0.17236120E+01 0.58620757E+00-0.33529608E+01
+ 0.26049089E+01-0.11627923E+00-0.76791863E+01-0.53989253E+01
+-0.93963947E+01 0.89348888E+01-0.13714699E+02-0.40793180E+01
+-0.13703756E+01-0.11329166E+01-0.66214280E+01-0.19741457E+01
+ 0.19676812E+01-0.15802444E+01 0.74486417E+00 0.10005783E+02
+ 0.22066399E+02-0.93126631E+01-0.34220302E+01 0.73809199E+01
+-0.56643796E+01 0.28039861E+01-0.20841560E+01-0.25536554E+01
+-0.20768545E+01 0.14609894E+01 0.22773330E+01 0.10445656E+01
+ 0.88902111E+01-0.21831713E+02-0.75237002E+01-0.45947899E+02
+-0.52254841E+02-0.43777122E+01-0.65832415E+01 0.27934115E+01
+-0.51957211E+01 0.45358448E+01-0.29035003E+01-0.80293524E+00
+ 0.31588891E+01 0.30450523E+02-0.57946457E+02 0.24090494E+02
+ 0.50759991E+02-0.16110195E+02 0.35295739E+01 0.28397505E+01
+ 0.93683434E+01 0.46508346E+01-0.98472559E+00 0.71794248E+01
+-0.56259923E+01 0.42344132E+00 0.37496376E+01 0.41398544E+01
+ 0.89929867E+01-0.21592083E+01 0.15710482E+02 0.37366185E+01
+ 0.12688895E+01 0.56009912E+00 0.45878363E+01 0.10043666E+01
+-0.15857160E+01 0.11541928E+01-0.63341975E+00-0.16841691E+01
+-0.19766069E+02 0.61021037E+01-0.47736259E+01-0.30741682E+01
+ 0.37985227E+01-0.14054892E+01 0.19982285E+01 0.24144678E+01
+ 0.21827767E+01-0.78220928E+00-0.24638696E+01-0.81352621E+00
+-0.86120291E+01 0.12768568E+02 0.40449328E+01 0.35735741E+02
+ 0.45281525E+02 0.14536483E+01 0.48580317E+01-0.21178229E+01
+ 0.40526733E+01-0.26759613E+01 0.23512807E+01 0.86008638E+00
+-0.27273736E+01-0.23491453E+02 0.42392094E+02-0.13589549E+02
+-0.45290329E+02 0.22402483E+02-0.52239609E+01-0.39634597E+01
+-0.66355700E+01-0.30386250E+01 0.24522121E+00-0.52094841E+01
+ 0.38612597E+01-0.76240212E+00-0.14890511E+00-0.24325432E-01
+-0.38893390E-01 0.66723570E-01 0.59333660E-01-0.36929664E+00
+-0.60848296E+00 0.94836196E-02 0.54205763E-02-0.15333358E-01
+-0.11106117E-02 0.22575622E-02 0.23593083E-02-0.22660287E-01
+ 0.45373976E-01 0.50671652E-01-0.36677148E-01 0.63135192E-01
+ 0.61916250E+00-0.39381266E+00-0.22737507E-01 0.37895903E-01
+-0.11128758E-01-0.91112573E-02-0.10985604E-01 0.15489354E-01
+-0.22802021E+00 0.26512158E+00-0.22216140E+00 0.10585243E+00
+-0.16293724E+00-0.69953322E+00-0.20355964E+00 0.23573788E-01
+ 0.29221939E-01-0.58141425E-01-0.10479219E+00 0.38031027E-01
+ 0.34238581E-01-0.32278037E+00 0.10433105E+00-0.70636101E-01
+-0.45763806E-01 0.49903285E-01 0.49318537E+00-0.80187595E+00
+-0.83227634E-01 0.23710161E-01-0.30420637E-01-0.10782068E-01
+ 0.52331045E-01 0.40990692E-01 0.75721157E+00-0.10054682E+00
+-0.43790352E+00 0.35622928E-01-0.68008196E+00 0.13344156E+01
+ 0.10325201E+01 0.21211481E+00-0.52811496E-01 0.58822650E-01
+-0.29041562E-01 0.13278130E+00 0.60832474E-01-0.51921064E+00
+ 0.73404215E-01-0.14045806E+00 0.56511676E+00-0.10780083E+01
+-0.90128416E+00 0.18347827E+01 0.23589993E-01 0.19664790E+00
+ 0.10371149E+00 0.16768134E+00 0.25422749E+00-0.27516479E-01
+ 0.47642750E+00-0.12712888E+01 0.50919574E+00-0.37558299E-01
+ 0.41861004E+00 0.72344553E+00 0.58304822E+00-0.37630741E-01
+-0.21993767E-01 0.15301681E+00 0.14597137E+00-0.88676058E-01
+-0.34135389E-02 0.10227042E+01-0.10414064E+00 0.21676075E+00
+-0.18772216E+00 0.27981552E+00-0.11495651E+01 0.94243652E+00
+ 0.13660996E+00-0.18090218E+00 0.32121949E-01 0.75706489E-01
+-0.24605010E+00-0.13862634E+00-0.76268691E+00 0.10962813E+01
+ 0.10399640E+01 0.96028954E-01 0.77267742E+00-0.18069416E+01
+-0.60100126E+00-0.48312178E+00-0.72206438E-01 0.13322057E-02
+-0.17916759E-01-0.28112444E+00-0.19206632E-02 0.68990123E+00
+-0.17288908E+00 0.42733526E+00-0.42356339E+00 0.20443857E+01
+ 0.25324249E+00-0.22968805E+01 0.21025427E+00-0.64606416E+00
+-0.20289107E+00-0.37085348E+00-0.52354544E+00-0.47585368E-01
+ 0.59121337E-01 0.75014145E-02 0.32973826E-01 0.16474618E-01
+ 0.32099034E-02 0.20523887E-01 0.14850210E-01 0.15989561E+00
+-0.22012538E+00 0.11682349E-01 0.37532360E-02 0.28839896E-02
+ 0.90501476E-02 0.25123442E-01-0.54974113E-01-0.40254004E-01
+-0.64294338E-01 0.18476812E-01 0.54143360E-02 0.26773563E-01
+ 0.22185430E+00 0.18453135E+00 0.40824950E-03-0.20066464E-01
+ 0.10584317E-01-0.42071915E-02-0.11119860E-01-0.84521756E-01
+-0.72065502E-01-0.10357253E+00 0.25481060E-01-0.31697039E-01
+-0.34495186E-01-0.12500069E+00-0.29316071E+00-0.50189231E-01
+ 0.20690957E-01 0.20984372E-01 0.46142563E-01 0.31204326E-02
+-0.15957630E+00-0.45523688E-01 0.11955297E-02 0.21015655E-01
+ 0.35082828E-01-0.32445975E-01 0.22741143E+00-0.11440502E+00
+ 0.16439863E-01-0.42733331E-02 0.36579225E-01-0.35476536E-01
+ 0.20448800E-01 0.88741951E-01-0.45464959E-01-0.15399729E-01
+ 0.49765386E-01-0.19545292E-01 0.20340797E-01-0.11448290E-01
+ 0.21605456E-01 0.11625878E+00 0.15443808E+00-0.68518179E-02
+ 0.68731960E-02 0.44177953E-01 0.17190436E-01-0.34843344E-01
+-0.55796955E-01-0.18618047E-01-0.13446327E-02-0.13807907E-01
+ 0.16442720E-01-0.63370585E-01-0.13994679E+00 0.10775572E+00
+ 0.18059421E-01-0.11631262E-02 0.56581877E-01-0.43296669E-01
+ 0.87594809E-02-0.19183895E-01 0.22148756E-01 0.16138326E-01
+ 0.35961125E-01 0.62827743E-02-0.29091935E-02 0.17914118E-01
+ 0.23472050E-01-0.40293451E-01 0.52220732E-01-0.28325748E-01
+ 0.18121796E-01-0.55669233E-01-0.43550450E-01-0.41511986E-01
+ 0.28219909E-03-0.45169748E-01 0.30541521E-01-0.75302455E-02
+ 0.11561214E-01-0.71855863E-02-0.42805452E-01-0.74895360E-01
+-0.40362079E-01 0.39089788E-02-0.43586571E-01-0.13430195E-01
+ 0.19074345E-01-0.14927471E-02-0.83385846E-02 0.12412880E-01
+-0.39789891E-02-0.93350494E-02 0.31809614E-03 0.69165085E-02
+ 0.16948413E-01 0.40239409E-01 0.21818378E-02-0.23886045E-01
+-0.19706257E-02 0.17834106E-01 0.75256284E-02-0.88512655E-02
+ 0.25555318E-01 0.24699425E-01-0.68906411E-02-0.15585792E-02
+ 0.12531394E-01-0.15920257E-01 0.71578033E-01 0.36469545E-01
+-0.18202318E-01 0.23860386E-01-0.15428271E-02-0.31324875E-01
+ 0.12997811E-01 0.49806456E-02-0.13169400E-01 0.15163812E-01
+ 0.45060008E-02 0.96705575E-02 0.32339197E-01-0.71236528E-01
+ 0.24793777E-03 0.38303085E-01 0.23001375E-01-0.34666590E-02
+ 0.19711124E-01 0.14156577E-01-0.15163544E-02 0.14914329E-01
+-0.16906057E-01 0.68336162E-02 0.72287614E-02-0.10352528E-01
+ 0.84432182E+01-0.17606992E-01-0.12995030E-01 0.30051462E-01
+ 0.45477942E-01 0.12136347E-01-0.20886991E-01-0.25218520E-01
+ 0.38802756E-02 0.50634779E-02 0.17426111E-01-0.19343946E-01
+ 0.21120729E-01 0.13067631E+01-0.19031613E+00-0.47110280E+00
+ 0.15309569E+00-0.25000983E+00-0.21639533E+00 0.13572131E+00
+ 0.16442597E-01 0.29920632E+00-0.35695668E-01 0.72213798E-02
+ 0.36948250E-03-0.19350252E+00 0.20192820E+02 0.10371314E+00
+-0.12936909E+01-0.47384906E+00 0.43617851E+00-0.88357627E+00
+ 0.84384918E+00 0.40130630E+00-0.24254835E+00 0.19504283E+00
+-0.32403544E+00 0.68768036E+00-0.70447671E+00 0.10385976E+02
+ 0.26844606E+01 0.91865940E+01-0.28847570E+01 0.69040632E+01
+ 0.30880930E+01-0.16791331E+01-0.77926904E+00-0.40792027E+01
+ 0.16587726E+01 0.11048369E+01 0.56877963E-01 0.26553495E+01
+-0.94894234E+02-0.74020910E+00 0.97572689E+01-0.13988616E+01
+-0.48308020E+01 0.61252832E+01-0.29142206E+01-0.31117852E+01
+ 0.10199926E+01-0.25860064E+01 0.15488667E+01-0.52199402E+01
+ 0.62431121E+01-0.15947099E+03-0.33153683E+02-0.38277382E+02
+ 0.16296080E+02-0.37176064E+02-0.16504719E+02 0.97844954E+01
+ 0.60243282E+01 0.18602617E+02-0.88784866E+01-0.70023069E+01
+-0.85667688E+00-0.10270858E+02 0.14434691E+03 0.40043654E+01
+-0.22543146E+02 0.10819620E+02 0.13452056E+02-0.14324649E+02
+ 0.14989966E+01 0.83210297E+01-0.11521393E+01 0.86834040E+01
+-0.32280769E+01 0.13568054E+02-0.17570894E+02 0.46371674E+03
+ 0.11013431E+03 0.54929173E+02-0.38762981E+02 0.82882599E+02
+ 0.38311665E+02-0.25024160E+02-0.15210931E+02-0.36635254E+02
+ 0.18874268E+02 0.14921486E+02 0.31062043E+01 0.17111540E+02
+-0.10361338E+03-0.10559738E+02 0.20353815E+02-0.17083015E+02
+-0.12879775E+02 0.13625260E+02 0.28179276E+01-0.85639162E+01
+-0.39836466E+00-0.10996532E+02 0.32205973E+01-0.14092367E+02
+ 0.19663298E+02-0.51334308E+03-0.13410316E+03-0.27003073E+02
+ 0.40749172E+02-0.81037025E+02-0.38719093E+02 0.27226254E+02
+ 0.15593900E+02 0.32171307E+02-0.18132610E+02-0.12962888E+02
+-0.39625747E+01-0.13030040E+02 0.30432690E+02 0.74267569E+01
+-0.65251384E+01 0.81919823E+01 0.35932457E+01-0.45463281E+01
+-0.21767290E+01 0.29457211E+01 0.77555543E+00 0.47232051E+01
+-0.12480311E+01 0.50437918E+01-0.76494961E+01 0.19720856E+03
+ 0.54842201E+02 0.14811361E+01-0.15508772E+02 0.28584126E+02
+ 0.13968620E+02-0.10371297E+02-0.56411085E+01-0.10385420E+02
+ 0.65630751E+01 0.39054112E+01 0.16419491E+01 0.37288151E+01
+ 0.73617727E-01 0.15868278E+01 0.15948020E+01-0.51909208E-01
+ 0.10965753E+00 0.42061005E-01 0.86369058E-02-0.35956562E-01
+-0.24439633E-01 0.13813865E-01 0.33473477E-01-0.12541716E-01
+ 0.13831583E-01-0.22122271E+00-0.16716869E+01 0.17568765E+01
+-0.10806262E+00-0.60551725E-01 0.32627724E-01-0.40097758E-01
+ 0.32800335E-01-0.22351671E-01-0.30436333E-01 0.85034929E-02
+ 0.44959588E-02-0.57923377E-01-0.13319713E+01 0.20320992E+00
+ 0.28417442E+01-0.26053941E+00 0.41736737E-01 0.48073849E+00
+ 0.30752096E+00 0.27773425E+00 0.58028370E+00-0.27988768E+00
+ 0.20987786E+00 0.21454689E+00-0.21824501E+00-0.32366142E+00
+-0.18102030E+01 0.73649567E+00-0.12784365E+01 0.13987561E+00
+ 0.29401943E+00-0.11734486E+00 0.30285731E+00 0.47187995E-01
+-0.40725458E+00 0.69726735E-01-0.14392924E-01-0.16440730E+00
+ 0.43222728E+01 0.25277067E+02-0.94375896E+01 0.12424446E+01
+ 0.19729581E-01-0.89677191E+00-0.36436412E+00 0.90389627E+00
+-0.13076818E+00 0.15358768E+00-0.36496457E+00 0.83983088E+00
+-0.97137824E-01-0.39563198E+01 0.94551926E+01 0.17336029E+02
+ 0.19375322E+01 0.29811153E+01 0.36434084E+00 0.96826065E+00
+ 0.76319680E-01 0.63908470E+00 0.66578782E+00-0.31862479E+00
+-0.63156575E+00 0.88741764E-01 0.31899084E+02 0.26338453E+02
+-0.26924992E+02-0.28954151E+01 0.11245874E+01-0.62383070E+01
+-0.71671276E+01-0.44009361E+01-0.11893276E+02 0.59641714E+01
+-0.12007704E+01-0.48183508E+01 0.41470280E+01 0.29249310E+01
+ 0.10189669E+02 0.64222164E+01 0.16846102E+02-0.56195569E+01
+-0.38048911E+01 0.29025004E+01-0.38915317E+01-0.16548055E+01
+ 0.71972709E+01 0.18794578E+01 0.20752627E+00 0.15136871E+01
+-0.47960709E+02-0.14527844E+03 0.13558260E+03-0.15012978E+02
+-0.89980879E+01 0.33358767E+01 0.65263834E+01-0.57562585E+01
+ 0.23737571E+01-0.32089403E+01 0.66337514E+00-0.98810377E+01
+-0.12185401E+01 0.54375412E+02-0.13382069E+03-0.69432632E+02
+-0.15594945E+02-0.28076584E+02-0.55643253E+01-0.81322355E+01
+-0.26028937E+00-0.52387090E+01-0.39641640E+01 0.58208838E+01
+ 0.58059587E+01 0.43214092E+01-0.18676460E+03-0.16449841E+03
+ 0.18679526E+03 0.44028065E+02 0.67239275E+01 0.20764881E+02
+ 0.43572437E+02 0.15105406E+02 0.72933273E+02-0.35417358E+02
+-0.33102422E+01 0.33491127E+02-0.28131252E+02 0.13132272E+02
+-0.71697983E+02-0.14838391E+02-0.88297775E+02 0.35739063E+02
+ 0.24429436E+02-0.19637230E+02 0.15767020E+02 0.12106133E+02
+-0.38460899E+02-0.17444717E+02-0.57627004E+00-0.71105013E+01
+ 0.16358971E+03 0.30532544E+03-0.45578516E+03 0.51725403E+02
+ 0.42052006E+02-0.12835170E+01-0.28778358E+02 0.11572843E+02
+-0.11792854E+02 0.97184315E+01 0.28023026E+01 0.34010338E+02
+ 0.76306810E+01-0.19060997E+03 0.45207547E+03 0.60605202E+02
+ 0.49964787E+02 0.83181343E+02 0.17889486E+02 0.23796255E+02
+-0.10524486E+01 0.17759972E+02 0.98242826E+01-0.24883154E+02
+-0.17036594E+02-0.18363985E+02 0.47393274E+03 0.36210413E+03
+-0.54417682E+03-0.15719064E+03-0.48869652E+02-0.19227535E+02
+-0.11137081E+03-0.14016641E+02-0.18484474E+03 0.86145981E+02
+ 0.26243605E+02-0.93299721E+02 0.76153831E+02-0.10607853E+03
+ 0.18373109E+03-0.71254395E+02 0.21552979E+03-0.88725677E+02
+-0.66744774E+02 0.48730526E+02-0.28787111E+02-0.34096436E+02
+ 0.84370399E+02 0.52670143E+02-0.46487325E+00 0.18449718E+02
+-0.22080930E+03-0.29196872E+03 0.61042780E+03-0.71494499E+02
+-0.68313850E+02-0.85744381E+01 0.44273830E+02-0.82676754E+01
+ 0.20448513E+02-0.80523005E+01-0.84449396E+01-0.45622372E+02
+-0.12797120E+02 0.25156476E+03-0.59986975E+03 0.34923374E+02
+-0.63288609E+02-0.98415474E+02-0.20724583E+02-0.28114664E+02
+ 0.44651847E+01-0.23789305E+02-0.11882715E+02 0.37959538E+02
+ 0.19314947E+02 0.25713858E+02-0.54166937E+03-0.33657809E+03
+ 0.70614557E+03 0.21372903E+03 0.80236282E+02-0.66625953E+01
+ 0.12710117E+03-0.65174923E+01 0.20572482E+03-0.91904800E+02
+-0.43451694E+02 0.11079334E+03-0.87262184E+02 0.19350169E+03
+-0.21782204E+03 0.19717972E+03-0.23897552E+03 0.95249496E+02
+ 0.76332985E+02-0.49345135E+02 0.26176369E+02 0.39268757E+02
+-0.81754929E+02-0.66510406E+02 0.24783335E+01-0.23144762E+02
+ 0.10398347E+03 0.10713031E+03-0.28724725E+03 0.34307171E+02
+ 0.36974197E+02 0.81658230E+01-0.22095419E+02 0.13036780E+01
+-0.11200826E+02 0.97571468E+00 0.54882064E+01 0.21151997E+02
+ 0.67120991E+01-0.11383261E+03 0.27709833E+03-0.45287556E+02
+ 0.26823547E+02 0.40176460E+02 0.79526610E+01 0.11477461E+02
+-0.35184112E+01 0.10715305E+02 0.56945720E+01-0.19063519E+02
+-0.72694077E+01-0.11852451E+02 0.22522438E+03 0.11369879E+03
+-0.33281451E+03-0.10020547E+03-0.39448936E+02 0.11468914E+02
+-0.53004147E+02 0.10001610E+02-0.83203133E+02 0.35805698E+02
+ 0.21695692E+02-0.46803165E+02 0.35515347E+02-0.10584347E+03
+ 0.98553574E+02-0.12213636E+03 0.96482056E+02-0.38166542E+02
+-0.30556103E+02 0.17174086E+02-0.97377214E+01-0.15434036E+02
+ 0.29186680E+02 0.30085251E+02-0.17299670E+01 0.10782919E+02
+-0.27865281E-01-0.14160953E+00-0.46167344E-01-0.83359647E+00
+ 0.54028988E+00 0.17667174E-01-0.23999680E-02-0.50582860E-01
+-0.34205623E-01 0.24929952E-01-0.20637264E-01-0.54828986E-02
+-0.16638445E-02-0.99061303E-01-0.61199144E-02 0.16169669E-01
+-0.50423771E+00-0.87746030E+00-0.14626432E-02 0.91258921E-02
+ 0.41810900E-01 0.27339887E-02-0.15622666E-02 0.32905261E-02
+ 0.18039158E-01-0.38937837E-01-0.11977397E+00-0.37973851E-01
+ 0.51543677E+00-0.18759683E+01 0.63566899E+00 0.28123093E+00
+-0.29566622E+00-0.18840617E-01-0.36266062E-01-0.26874974E+00
+-0.17266946E+00 0.10599524E-01-0.83736926E-01 0.49956435E+00
+ 0.68339938E+00 0.18975423E+00-0.11983259E+01-0.20601561E+01
+ 0.58113441E-01 0.15165167E+00 0.12512311E+00 0.19267312E+00
+-0.55146988E-01 0.15980954E+00 0.82305297E-01-0.42632781E-01
+ 0.23057373E+01 0.76537257E+00 0.43733449E+01-0.50523310E+01
+ 0.28448110E+01 0.51284897E+00-0.16459599E+01 0.74293798E+00
+ 0.66224128E-01-0.41510153E+00 0.26375905E+00 0.37355468E+00
+-0.17590469E+00 0.11372099E+01-0.12647940E+00 0.25441618E+01
+-0.39932528E+01-0.41477337E+01 0.13616855E+01-0.13583241E+00
+-0.12699013E+01-0.66975029E-02-0.43774159E-02 0.72404754E+00
+-0.79435611E+00 0.15491714E+00 0.19683877E+01 0.29083934E+01
+-0.72367439E+01 0.59465566E+01-0.19175700E+01-0.14585569E+01
+ 0.16693540E+01-0.56365860E+00 0.17722517E+01 0.32326121E+01
+ 0.53729033E+00-0.88220710E+00-0.56293678E+00-0.41296825E+01
+-0.31065300E+01 0.19166176E+01 0.91364346E+01 0.66980739E+01
+ 0.77398407E+00-0.30196124E+00-0.13194689E+01-0.16660863E+01
+ 0.88819361E+00-0.11270262E+01-0.17106761E+01 0.95284730E-01
+-0.11591570E+02 0.10206953E+02-0.44386238E+02 0.47346340E+02
+-0.79038370E+00-0.90883474E+01 0.11115670E+02-0.19898731E+01
+ 0.37733054E+00 0.13326268E+01-0.29739472E+00-0.21107407E+01
+ 0.19746448E+01-0.77565346E+01 0.19142870E+02-0.19318724E+02
+ 0.79751496E+01 0.45732677E+02-0.11700178E+02-0.21409187E+01
+ 0.95194101E+01-0.12891829E+01-0.70309061E+00-0.49068875E+01
+ 0.54949450E+01 0.72287112E+00-0.51350603E+01-0.88256512E+01
+ 0.16213120E+02-0.95362787E+01-0.49770875E+01 0.10020863E+01
+-0.38989060E+01 0.27658885E+01-0.65731020E+01-0.83604755E+01
+-0.15559013E+00 0.25949471E+01 0.29289787E+01 0.96731539E+01
+ 0.52264996E+01-0.65303130E+01-0.14551664E+02-0.86602306E+01
+-0.16371939E+01-0.16511111E+01 0.34544625E+01 0.35504460E+01
+-0.31492507E+01 0.25533750E+01 0.52310605E+01-0.48787493E-01
+ 0.20374853E+02-0.30132755E+02 0.10810119E+03-0.10528988E+03
+-0.18006445E+02 0.24039795E+02-0.24310305E+02 0.27824404E+01
+-0.91876078E+00-0.13190975E+01-0.37454176E+00 0.39671352E+01
+-0.47484903E+01 0.22527531E+02-0.60154240E+02 0.38476719E+02
+ 0.45293006E+00-0.10749376E+03 0.29633495E+02 0.56231313E+01
+-0.19200817E+02 0.49150085E+01 0.26779370E+01 0.99957170E+01
+-0.12485248E+02-0.21405015E+01 0.15377275E+01 0.74568505E+01
+-0.10354218E+02 0.10922906E+02 0.13785338E+02 0.83337110E+00
+ 0.27636354E+01-0.27910285E+01 0.50508113E+01 0.60138631E+01
+-0.15283442E+00-0.17226232E+01-0.27341883E+01-0.54970169E+01
+-0.42347341E+01 0.50668473E+01 0.30705661E+00 0.80789337E+01
+ 0.52706480E+00 0.30988753E+01-0.23904357E+01-0.23165927E+01
+ 0.27464480E+01-0.15124305E+01-0.44464526E+01 0.11784693E+00
+-0.12952716E+02 0.21251139E+02-0.73948364E+02 0.71904915E+02
+ 0.22982941E+02-0.17152084E+02 0.16589590E+02-0.19711390E+01
+ 0.14029673E+00 0.53307498E+00 0.45210415E+00-0.22865257E+01
+ 0.31447535E+01-0.21541494E+02 0.48531136E+02-0.20743677E+02
+-0.97520990E+01 0.76132256E+02-0.22496307E+02-0.30357060E+01
+ 0.11248891E+02-0.39207585E+01-0.22813702E+01-0.63165536E+01
+ 0.86511211E+01 0.12434313E+01-0.15622102E+00-0.59632380E-01
+-0.90208650E-01 0.19414164E-01 0.73269002E-01-0.56129473E+00
+-0.63541585E+00-0.16588993E-01-0.34606468E-01-0.21938419E-02
+-0.21088144E-01-0.10219838E-01 0.62936130E-02 0.10229758E+00
+ 0.31424812E-02 0.12619580E+00-0.10478984E-01 0.10643311E+00
+ 0.63880980E+00-0.58100104E+00-0.80984796E-03-0.32982638E-02
+-0.10336742E-01-0.12900264E-01-0.13739295E-01 0.22639144E-01
+ 0.11596611E+00 0.24706095E+00-0.15466779E+00-0.18783578E+00
+-0.65919489E-01-0.62681031E+00-0.66545194E+00 0.32444045E-01
+ 0.13160099E+00 0.13321731E-01-0.10927579E+00 0.71161732E-01
+ 0.11962270E-01-0.13758811E+00-0.70412166E-01 0.23057573E+00
+-0.63733466E-01-0.23197371E-02 0.77353519E+00-0.66607153E+00
+-0.11856486E+00 0.19452100E+00 0.44829205E-01 0.53664832E-02
+ 0.81992827E-01-0.22440353E-01 0.17074040E+01 0.56844890E+00
+-0.19279140E+00-0.48811182E+00-0.82032895E+00 0.17906553E+01
+ 0.46447378E+00 0.62934273E+00 0.11496823E+00 0.72347268E-01
+ 0.16785286E+00 0.25202709E+00 0.64511701E-01-0.21264596E+01
+ 0.78551662E+00-0.27990738E+00 0.20393796E+00-0.17369808E+01
+-0.49138665E+00 0.25081100E+01-0.13376953E+00 0.84815377E+00
+ 0.67785099E-01-0.21081494E-01 0.27407336E+00-0.19572496E+00
+ 0.22916576E+00-0.89228165E+00 0.14403734E+00 0.62578565E+00
+ 0.42053275E-01-0.14299740E+00 0.10011269E+01-0.10695215E+00
+-0.26902208E+00 0.31509314E-01 0.18015152E+00-0.22677259E+00
+ 0.45944661E-01 0.78097403E+00 0.17563751E+00-0.79983306E+00
+-0.23202594E-01 0.51307887E+00-0.12497675E+01 0.63095026E-01
+ 0.27101776E+00-0.64966005E+00-0.12470666E+00 0.57328966E-01
+-0.25540158E+00 0.30125923E-01-0.36262932E+01 0.51153991E-04
+ 0.65369076E+00 0.12630241E+01 0.59161860E+00-0.33515153E+01
+ 0.12459384E+00-0.92280024E+00 0.16300046E+00-0.98683946E-02
+-0.39698192E+00-0.33663470E+00-0.30247193E-01 0.35409751E+01
+-0.94228369E+00 0.59330601E+00-0.47572304E-01 0.26288931E+01
+-0.11341671E+00-0.40985465E+01 0.55726737E+00-0.15782918E+01
+-0.92821464E-01-0.86877599E-01-0.41220182E+00 0.23814109E+00
+ 0.40369980E-01 0.69174074E-01 0.90490915E-02 0.33020664E-01
+ 0.11527482E-01 0.12345885E-01 0.26705259E-01 0.19554184E+00
+-0.36173043E+00 0.22097254E-01-0.12866687E-01 0.62658121E-02
+ 0.24714425E-01 0.16548369E-01-0.36080949E-01-0.25610084E-01
+-0.21156788E-01 0.43353230E-01-0.31337328E-01 0.13042549E-01
+ 0.34459081E+00 0.21506374E+00 0.16185859E-01-0.13301040E-01
+ 0.14696219E-01 0.17140709E-01 0.11640607E+00-0.35488162E-01
+-0.61050300E-01-0.10260254E+00 0.45410369E-01-0.78796092E-02
+-0.90719406E-02-0.14850970E+00-0.58185756E+00-0.61733756E-01
+-0.32026162E-02 0.21957425E-01 0.52263454E-01 0.55307180E-01
+-0.17401587E-01-0.41585356E-01 0.76646626E-01-0.57702390E-02
+-0.12208957E+00 0.50012428E-01 0.47269493E+00 0.20059482E-02
+ 0.50178025E-01-0.18123774E-02 0.58514785E-01-0.23311080E-01
+ 0.39524496E-01 0.80552071E-01-0.42998645E-01 0.16749263E-01
+ 0.31579159E-01-0.44717076E-02-0.84887655E-03-0.49433589E-01
+ 0.10765205E-01 0.21353492E+00 0.13728055E+00-0.10284929E-01
+ 0.20548493E-01 0.99338487E-01 0.17302408E-02 0.41451098E-04
+-0.84679388E-01-0.11557483E-01-0.22574198E-01-0.23921095E-01
+-0.82226349E-02-0.69644853E-01-0.13849451E+00 0.20419706E+00
+ 0.16953168E-01 0.82117142E-02 0.72829023E-01-0.41823316E-01
+ 0.10375716E-01-0.56614611E-01 0.41825403E-01 0.20270178E-01
+ 0.12032609E-01-0.24085421E-01-0.12075845E-01 0.61627743E-02
+ 0.59546165E-01-0.69686007E-02 0.10623483E+00 0.54462738E-02
+-0.64947754E-02-0.79987003E-02-0.12688862E-01-0.63994959E-01
+-0.21709125E-01-0.43794498E-01 0.31835452E-01-0.27470827E-01
+-0.70910002E-02 0.91979457E-02-0.11307489E+00-0.22885030E-01
+-0.13536142E-01 0.18244112E-01-0.90564989E-01 0.45806570E-02
+ 0.17037233E-01 0.58723753E-02-0.15382156E-01-0.81376935E-03
+-0.10111791E-01-0.13766921E-01 0.88332891E-02-0.10245698E-01
+ 0.28617415E-02 0.21085773E-01 0.25080677E-01-0.33543896E-01
+ 0.24984222E-01-0.45952465E-01-0.19729603E-01 0.25285017E-01
+ 0.50980866E-01-0.13921154E-01-0.91980677E-02 0.12159725E-01
+-0.17162612E-03-0.10890553E-01 0.40087324E-01 0.82861669E-01
+-0.52096929E-01-0.26000416E-01-0.59353504E-01-0.32921359E-01
+ 0.14816161E-01-0.14302545E-01-0.12839498E-01 0.24855364E-01
+-0.25451362E-01 0.88601554E-03 0.27688909E-01-0.54229580E-01
+ 0.40404364E-01 0.11072406E+00 0.53175781E-01-0.27590901E-01
+ 0.21070372E-01 0.30208087E-01 0.12800893E-01 0.44277799E-02
+-0.28233783E-01 0.11693147E-02 0.20908635E-01-0.11176485E-01
+ 0.30831590E+01 0.36423469E-02 0.95374268E-02-0.43797647E-02
+-0.18526374E-02 0.12529454E-02-0.21983865E-02 0.29568156E-03
+ 0.14598125E-02 0.46192214E+00 0.57096808E-03 0.68593971E-01
+ 0.65610953E-01-0.10962675E-01-0.29499030E-01-0.40161178E-01
+ 0.90372534E-02 0.10792332E-01 0.59456217E+00-0.58928527E-01
+-0.10835457E+00 0.15614104E-01 0.38582690E-01 0.23725567E-01
+ 0.37873339E-01-0.45640215E-01-0.25683858E-01-0.58345467E+00
+-0.27269027E+00-0.13519897E+00-0.14928319E+00 0.25888463E-01
+ 0.10878225E+00 0.17128439E+00-0.17555457E-01-0.41636076E-01
+-0.47605807E+00 0.18886384E+00 0.18850458E+00 0.15938819E-02
+-0.82812428E-01-0.16693853E-01-0.74811786E-01 0.13277733E+00
+ 0.68222940E-01 0.97611375E-01 0.27176991E+00 0.73444307E-01
+ 0.79687804E-01-0.56013255E-02-0.85544743E-01-0.14200655E+00
+ 0.61242115E-02 0.28192669E-01-0.89809746E-01-0.11081778E+00
+-0.60269386E-01-0.10322292E-01 0.58627542E-01-0.12565220E-01
+ 0.40889379E-01-0.88073589E-01-0.47065701E-01 0.50374349E-02
+-0.12933061E+00-0.36687320E+00 0.13463667E-02-0.39664879E-02
+ 0.91926754E-02-0.25788704E-02 0.42144703E-02 0.51479922E-02
+ 0.33288829E-01 0.38233611E+00-0.14407398E+00 0.14271198E-01
+ 0.11049573E-01-0.93471622E-02-0.82618268E-02-0.22260593E-02
+-0.10530115E-02-0.19392334E-02 0.48438212E+00 0.80777749E-01
+ 0.84854387E-01 0.67027077E-01 0.96795214E-02-0.77769174E-02
+-0.18757645E-01-0.34126833E-02 0.10197649E-01-0.10353541E-01
+ 0.50584143E+00-0.11593369E+00-0.44522554E-01 0.55989962E-01
+-0.29334029E-01 0.31971790E-01-0.19206982E-01-0.19130749E+00
+ 0.67898899E+00 0.13500415E+01-0.41417088E-01-0.41389436E-01
+-0.11354158E+00 0.12479115E+00-0.15671545E+00-0.16941839E+00
+-0.69109064E+00-0.15827085E+01 0.77499503E+00-0.54360222E-01
+-0.76154426E-01 0.21804528E-01 0.12542558E+00 0.97710431E-01
+ 0.15336756E-01 0.46886271E+00-0.25143082E+01 0.51227117E+00
+ 0.20739187E+00-0.24356622E+00-0.41955873E+00-0.88255458E-01
+-0.11599702E+00-0.16374972E+00 0.60307807E+00-0.83648968E+00
+-0.31556292E+01 0.47265437E+00 0.62394643E+00-0.54705179E+00
+ 0.20412104E+00-0.19938691E+00 0.61526425E-01 0.66733706E+00
+-0.84022284E+00-0.36363804E+00-0.47948975E-01 0.91792926E-01
+ 0.36664313E+00-0.50559223E+00 0.43860993E+00 0.55686808E+00
+ 0.20355382E+01 0.71406555E+00-0.12435471E+01 0.21483092E+00
+-0.53310115E-01-0.59347369E-01-0.33315611E+00-0.25482255E+00
+-0.24464151E-02-0.78910613E+00 0.37705996E+01-0.86769462E+00
+-0.12256935E+01 0.33561519E+00 0.13111099E+01 0.17731486E+00
+ 0.52530521E+00 0.42007926E+00-0.23053181E+01 0.16463206E+01
+ 0.60083599E+01-0.67770940E+00-0.16302882E+01 0.13140205E+01
+-0.39495325E+00 0.35773265E+00-0.20983079E-01-0.48089162E+00
+ 0.39525765E+00-0.48140696E+00 0.16104813E+00-0.11935355E-01
+-0.33358160E+00 0.43848920E+00-0.33588856E+00-0.45440468E+00
+-0.16640769E+01 0.70364147E+00 0.72135723E+00-0.26408896E+00
+ 0.13320316E+00 0.60090333E-01 0.20128188E+00 0.18900408E+00
+-0.34622148E-01 0.22574455E+00-0.15068560E+01 0.90492386E+00
+ 0.10402929E+01-0.16921978E+00-0.10404446E+01-0.66429354E-01
+-0.44397834E+00-0.24560237E+00 0.19569390E+01-0.13762980E+01
+-0.33979950E+01 0.37711099E+00 0.11398213E+01-0.88892829E+00
+ 0.24327640E+00-0.19420274E+00-0.70902784E-02-0.20724727E-01
+-0.35504639E-01-0.82354777E-03 0.36352221E-01-0.11773663E+00
+-0.11033534E-01 0.95688127E-03-0.97791515E-02-0.58923671E-02
+ 0.11510791E-01-0.53077191E-02-0.21679617E-01 0.12743253E+00
+ 0.43944508E-01-0.99055991E-02-0.21604956E-02-0.19020389E-02
+ 0.15028869E-02 0.34215365E-01 0.19715223E+00 0.12483910E+00
+-0.11022672E+00-0.31943321E-01 0.11501916E-02-0.29224209E-01
+-0.21727003E-01-0.48656184E-01-0.12077173E+00 0.44407237E-01
+-0.50276604E-01 0.74237496E-01-0.13876393E+00 0.50061855E-01
+-0.89441317E-04-0.19618968E-01 0.77808690E-02 0.11498174E+00
+ 0.30138892E+00 0.84145188E-01 0.52387480E-01-0.16962323E+00
+ 0.13028961E-01 0.83306350E-01 0.12248267E+00-0.22928387E-01
+-0.18141045E+00-0.73630512E-01 0.12350223E-01 0.22824010E+00
+ 0.88408612E-01-0.56969866E-01 0.44197991E-01 0.42088978E-01
+-0.97412907E-01-0.15992832E+00-0.10725375E+01-0.37769392E+00
+ 0.20365877E+00-0.10712838E+00-0.52147180E-01 0.11348375E+00
+ 0.12272292E+00 0.21829335E+00 0.90741438E+00 0.27918214E+00
+ 0.21284491E+00-0.16413610E+00 0.20872620E+00-0.26607731E-01
+-0.13638993E+00 0.10097218E+00-0.90743758E-01-0.16678724E+00
+-0.49267471E+00-0.25228688E+00-0.20995039E+00 0.35344949E+00
+-0.42392898E-01-0.14291544E+00-0.18131788E+00 0.37399542E-01
+ 0.22921523E+00-0.11525336E-01 0.10362252E+00-0.50349134E+00
+-0.24221870E+00 0.16809084E+00-0.94889142E-01-0.70770048E-01
+ 0.13145503E+00 0.21850903E+00 0.14192160E+01 0.37012824E+00
+-0.17118199E-01 0.49541610E+00 0.17686056E+00-0.86773776E-01
+-0.13545221E+00-0.20977929E+00-0.10618936E+01-0.52702361E+00
+-0.14100182E+00-0.16452017E+00 0.87792031E-01-0.11034585E+00
+ 0.22220004E+00-0.97200051E-01 0.10797976E+00-0.20363385E-01
+-0.53697578E-02 0.68575093E-02 0.68112370E-02 0.10468053E-01
+ 0.19557819E-01-0.29966215E-01 0.26615837E-02-0.39665838E-03
+-0.27748954E-02-0.12629431E-01-0.34522379E-02-0.19603441E-01
+-0.74741081E-02 0.36278360E-01 0.38917966E-01 0.62133339E-02
+ 0.52181524E-02 0.47905695E-01 0.42130247E-01 0.10669809E-01
+-0.42659171E-01-0.48365989E-02-0.12414151E+00 0.83759082E-02
+ 0.88774720E-02-0.24281682E-02 0.65088286E-02-0.18100817E-01
+-0.99380631E-02-0.49212319E-02 0.54735452E-03-0.14428278E-01
+-0.12441483E+00-0.92067998E-02-0.31998189E-03 0.24574004E-01
+-0.10163294E+00 0.31056121E-01 0.11012295E-01-0.45570403E-01
+-0.14161536E+00-0.41898366E-01 0.22085367E-02-0.13771434E-01
+-0.37635207E-01-0.79316162E-02-0.12239707E-01 0.54416325E-01
+-0.23432048E-01 0.64405173E-01-0.15231898E+00-0.39993403E-02
+ 0.10142059E-01-0.18101418E-01-0.84799835E-02 0.34984993E-03
+ 0.89346385E-02 0.47468557E-03 0.28572041E-02-0.35473125E-02
+ 0.14134602E-01-0.84402598E-02-0.24490006E-01 0.59575271E-02
+-0.83975289E-02-0.10783280E-01 0.10519189E-01 0.37295434E-02
+ 0.78448253E-02 0.11155130E-01 0.20005925E-01 0.62797785E-01
+ 0.11900892E-01-0.27039561E-01-0.19209160E-01 0.50548892E-02
+-0.49631188E-04-0.94857474E-03-0.61566597E-02-0.72145365E-01
+ 0.32358173E-01-0.47734085E-01 0.26209857E-01 0.28988877E-01
+ 0.74443221E-02-0.39548054E-02 0.37050038E-02 0.76541923E-01
+-0.17525801E-02 0.52079731E-02-0.92345122E-02 0.14466225E-02
+-0.19333605E-02-0.76571708E-02 0.36316388E-02-0.43371287E-02
+-0.36561657E-02 0.67056152E-02 0.16525778E-02 0.18420495E-01
+-0.17318184E-01-0.72389068E-02-0.36425991E-02 0.67126690E-02
+ 0.62284856E-02-0.25143016E-02-0.54201265E-02-0.49585272E-02
+ 0.72677066E-02 0.95763793E-02 0.33443144E-02 0.68702078E-02
+ 0.38347980E-02-0.47801477E-02-0.56901621E-02 0.15504239E-02
+-0.65200361E-02-0.13484796E-01-0.16534761E-01-0.93058543E-02
+-0.70031788E-02 0.61732728E-03 0.68263346E-02 0.85278694E-02
+ 0.13020536E-03 0.26661365E+01-0.11117877E-02 0.34222321E-02
+-0.20794710E-02 0.24010155E-02-0.40831408E-02-0.47719344E-02
+-0.29675064E-02-0.20296483E-02 0.41117510E+00 0.10291318E-01
+ 0.47319636E-01 0.31215122E-01 0.78935334E-02-0.25743436E-01
+-0.38405076E-01 0.98825051E-02 0.67149191E-02 0.74506956E+00
+ 0.48187740E-01-0.71195945E-01 0.25079396E-01-0.21259580E-01
+ 0.67766912E-01 0.48439432E-01-0.66096769E-02 0.20697504E-01
+-0.39045444E+00-0.26972118E+00-0.70841588E-01-0.73414013E-01
+-0.12673208E-01 0.81827506E-01 0.14244869E+00-0.26457297E-01
+-0.33021890E-01-0.66143775E+00-0.15479179E+00 0.11289432E+00
+-0.54646458E-01 0.28970562E-01-0.14369094E+00-0.10134431E+00
+ 0.25818255E-01-0.48019908E-01 0.53726800E-01 0.25038397E+00
+ 0.37336465E-01 0.40437397E-01 0.14270316E-01-0.59865799E-01
+-0.11061210E+00 0.18749857E-01 0.24053220E-01-0.40976707E-01
+ 0.14224784E+00-0.30323656E-01 0.30423727E-01-0.44295667E-02
+ 0.87912515E-01 0.58721401E-01-0.13916852E-01 0.28919090E-01
+ 0.74064271E-02-0.27877745E+00-0.28779912E+00 0.39281864E-02
+-0.14419556E-02-0.11547093E-02 0.31535963E-02-0.72778366E-03
+ 0.34911863E-02 0.19075764E-01 0.28820461E+00-0.28949183E+00
+ 0.22228628E-01 0.63713072E-02-0.21684170E-02-0.55248677E-02
+-0.13032343E-02 0.91081448E-02-0.81327841E-01 0.27268976E+00
+ 0.13500665E+00 0.54546636E-01 0.37922066E-01-0.32600060E-01
+-0.10949604E-01 0.19963372E-01 0.26835289E-01 0.87298211E-02
+-0.22350943E-01 0.29820484E+00 0.20726329E-01-0.52162141E-01
+ 0.49364645E-01-0.39931941E-02 0.40589698E-01-0.22952456E-02
+-0.10790928E+00 0.83676583E+00 0.63060778E+00-0.68363361E-01
+-0.99837855E-02-0.66430098E-02-0.12207449E-01-0.76347262E-01
+-0.15965886E+00-0.35241818E+00-0.65478712E+00 0.11052341E+01
+-0.12858538E+00 0.48155166E-01 0.30722397E-02 0.79846002E-01
+ 0.70853211E-01-0.98708250E-01 0.10073023E+01-0.17845337E+01
+-0.80092168E+00-0.46188459E-01-0.14296983E+00 0.64327158E-01
+-0.35780571E-01-0.21253628E+00-0.38209790E+00 0.28986445E+00
+ 0.20012251E+00-0.21629679E+01-0.28332931E+00 0.53812021E+00
+-0.36693877E+00 0.39688271E-01-0.34019363E+00-0.44371117E-01
+ 0.21445227E+00-0.62239212E+00 0.50726289E+00 0.12845744E+00
+-0.50081648E-01 0.10264898E-01-0.10842126E-01 0.25324762E+00
+ 0.47339380E+00 0.98013788E+00-0.77179390E+00-0.15949878E+01
+ 0.26540795E+00-0.23207283E+00-0.71822710E-01-0.27238446E+00
+-0.25130799E+00 0.26421374E+00-0.21762612E+01 0.31028821E+01
+ 0.20128744E+01-0.15856740E+00 0.15671612E+00-0.83239703E-02
+ 0.12464356E+00 0.52468282E+00 0.88304269E+00-0.13928696E+01
+-0.54484439E+00 0.43236532E+01 0.72512794E+00-0.13013941E+01
+ 0.80244911E+00-0.15787378E+00 0.71791559E+00 0.87640740E-01
+-0.90506822E-01 0.29343450E+00-0.64716011E+00-0.85126469E-02
+ 0.86700074E-01-0.19545069E-01 0.22539426E-01-0.21825901E+00
+-0.35119224E+00-0.77049851E+00 0.13025295E+01 0.10195137E+01
+-0.17070553E+00 0.19100779E+00 0.10148965E+00 0.19473387E+00
+ 0.22605897E+00-0.21595261E+00 0.12541903E+01-0.14151653E+01
+-0.76735270E+00 0.20479736E+00-0.57303514E-01-0.61315097E-01
+-0.67472473E-01-0.35682014E+00-0.55211598E+00 0.12503939E+01
+-0.19497246E+00-0.25232329E+01-0.48834419E+00 0.95700103E+00
+-0.50639701E+00 0.15538096E+00-0.43736929E+00-0.24403557E-02
+ 0.58859168E-02-0.32317564E-01 0.18789638E-02 0.81562921E-01
+-0.10188310E+00-0.16970166E-02 0.10929941E-01-0.80213174E-02
+-0.64339088E-02 0.12977694E-01-0.20233879E-01-0.87966016E-02
+ 0.10940550E+00 0.84022991E-01-0.43360288E-02 0.49938275E-02
+-0.24055217E-02 0.34415221E-02 0.13273510E-01 0.11690062E+00
+ 0.11301346E+00-0.53855572E-01 0.71545341E-02 0.26712853E-02
+-0.65927980E-02-0.43166103E-02-0.16314678E-01-0.76610744E-01
+ 0.31374011E-01-0.51425263E-01 0.29726738E-01-0.10468841E+00
+ 0.35839197E-02 0.31228568E-01-0.15449940E-02 0.10545071E-01
+ 0.31877279E-01 0.21496819E+00 0.69084771E-01-0.39078769E+00
+ 0.10721206E+00-0.50794119E-02-0.28492521E-01 0.88592894E-01
+ 0.17780269E-01-0.14039850E+00-0.13015021E-01-0.97526431E-01
+-0.13987683E+00-0.35487783E+00-0.44129573E-01 0.44898996E-02
+ 0.47013644E-01-0.73569492E-01-0.59302974E-01-0.65177011E+00
+-0.36309096E+00-0.23424511E+00-0.13430981E+00-0.32746039E-01
+ 0.60699228E-01 0.33282310E-01 0.85893124E-01 0.49057353E+00
+ 0.21044838E+00 0.23838104E+00 0.10888345E-01-0.39147530E-01
+ 0.10908667E+00-0.18488690E+00 0.53481314E-01-0.13602662E+00
+-0.10266943E+00-0.34125081E+00-0.22209170E+00 0.21323264E+00
+-0.73764898E-01-0.42999983E-01 0.28910641E-01-0.12368568E+00
+-0.24522578E-01 0.17222378E+00-0.45565147E-01 0.26528457E+00
+ 0.10084933E+00 0.18232718E+00 0.10636824E+00-0.40960647E-01
+-0.71175881E-01 0.91745026E-01 0.48435759E-01 0.88375968E+00
+ 0.36494932E+00 0.37522808E+00 0.38870537E+00 0.11076623E+00
+-0.87760679E-01-0.44668164E-01-0.12374668E+00-0.56823593E+00
+-0.31550634E+00-0.23784252E+00-0.28017625E+00 0.20619076E+00
+-0.18672663E+00 0.23123896E+00-0.66964269E-01 0.16415413E+00
+-0.73595000E-02-0.61682197E-02 0.89407256E-02 0.50872318E-02
+ 0.11877637E-01 0.35297502E-01-0.39307773E-01 0.14423406E-02
+ 0.44433944E-03-0.74655698E-04-0.16662820E-02-0.57203509E-02
+-0.14137458E-01-0.46855919E-02 0.45804936E-01 0.35633929E-01
+ 0.30760856E-02-0.23319600E-02 0.12941354E-01 0.44963390E-01
+ 0.54211006E-02-0.12041884E-01-0.95001562E-02-0.11241351E+00
+-0.19248098E-01 0.27269039E-02-0.30035619E-02 0.59964410E-02
+-0.13195523E-02-0.46101669E-02 0.39474596E-02-0.64694295E-02
+ 0.15680529E-01-0.11271558E+00-0.32720950E-02-0.51417295E-02
+ 0.48678972E-01-0.73544301E-01 0.30441817E-01 0.96263876E-02
+-0.39520711E-01-0.17735021E+00-0.45016337E-01 0.51114690E-02
+-0.11839547E-01-0.81728892E-02-0.23926420E-01 0.60986411E-02
+ 0.40335935E-01-0.35920464E-02 0.41258320E-01-0.14260805E+00
+-0.34774819E-02 0.18476740E-01-0.10441234E-01-0.13517550E-01
+ 0.34676618E-02-0.14249106E-02 0.14872112E-02-0.32633506E-02
+-0.21993518E-02 0.17342664E-01-0.17490787E-02-0.15205597E-01
+ 0.49438239E-02-0.87333824E-02-0.87372363E-02 0.14296352E-02
+ 0.37051606E-03 0.55464786E-02 0.15304491E-03 0.21174494E-01
+ 0.39107330E-01 0.80265282E-02-0.22919752E-01-0.76330574E-02
+-0.77880705E-02-0.70988761E-04 0.10868077E-01 0.58998396E-02
+-0.64436145E-01 0.41344304E-01-0.33050463E-01 0.35609432E-01
+ 0.15621077E-01 0.52525150E-02-0.76148482E-02 0.10637491E-01
+ 0.63588083E-01 0.85605606E-02 0.37736224E-02-0.12569182E-02
+-0.73067157E-03-0.55869166E-02-0.57651363E-02-0.35552061E-03
+-0.52995873E-02-0.63682459E-02 0.34755855E-02 0.33890572E-02
+ 0.20352295E-01-0.10258360E-01-0.16343703E-02-0.76323333E-02
+ 0.61682411E-02 0.74977572E-02-0.10669790E-02-0.31994097E-02
+-0.56459666E-02 0.10195384E-01 0.95578721E-02 0.39921715E-02
+ 0.18846111E-02-0.28111471E-03-0.14161777E-03-0.63958345E-02
+-0.16010746E-03 0.83076116E-02-0.32676375E-02-0.81046103E-02
+-0.20230603E-02-0.86054020E-02 0.55735982E-02 0.49315910E-02
+ 0.46230308E-02 0.80582756E-03
diff --git a/input/glow_data/iri90/ccir12.asc b/input/glow_data/iri90/ccir12.asc
new file mode 100644
index 0000000..2b01777
--- /dev/null
+++ b/input/glow_data/iri90/ccir12.asc
@@ -0,0 +1,715 @@
+ 0.58852773E+01-0.96291333E-01-0.24346260E-02 0.59140641E-01
+-0.63641076E-02-0.26449412E-02-0.31942986E-01-0.10096008E-02
+ 0.14919642E-01-0.31421110E-02-0.46499600E-02-0.67822053E-02
+ 0.15032781E-01 0.16458440E+01-0.18067592E+00 0.30474961E+00
+-0.21605857E+00-0.49374822E+00-0.62353790E-01-0.34158051E-01
+-0.12912387E+00 0.10613752E+00 0.29181531E-01-0.23050727E-01
+ 0.40541522E-01-0.11224715E+00 0.10501716E+02 0.15741066E+01
+-0.14308903E+01-0.48761311E+00 0.94652450E+00-0.30434468E+00
+ 0.10839933E+01-0.10534965E+00-0.51447499E+00-0.91966093E-01
+ 0.29239580E+00 0.20149432E-01-0.39589244E+00-0.23581297E+02
+ 0.36677198E+01-0.80632642E-01 0.43846774E+01 0.81138687E+01
+ 0.20209019E+01 0.32430317E+01 0.27812088E+01-0.52667046E+00
+ 0.26251921E+00 0.75711900E+00-0.62242740E+00 0.95958692E+00
+-0.55303654E+02-0.63127465E+01 0.83682976E+01-0.49186325E+01
+-0.69345760E+01 0.62089677E+01-0.60723081E+01 0.13838018E+01
+ 0.38213999E+01-0.14319529E+00-0.18019359E+01 0.50669366E+00
+ 0.23809679E+01 0.59686283E+02-0.30755751E+02-0.12747594E+02
+-0.16911802E+02-0.32807728E+02-0.12712322E+02-0.21192408E+02
+-0.12855251E+02-0.71364388E-01-0.14239579E+01-0.39535253E+01
+ 0.33811421E+01-0.32126002E+01 0.87687027E+02 0.13251464E+02
+-0.15531278E+02 0.25012060E+02 0.18020908E+02-0.21276220E+02
+ 0.13908660E+02-0.47290397E+01-0.11022418E+02 0.16285949E+01
+ 0.42395010E+01-0.24118855E+01-0.54046264E+01-0.23993408E+02
+ 0.89517502E+02 0.42279510E+02 0.22479494E+02 0.54392288E+02
+ 0.30301125E+02 0.50255486E+02 0.23656767E+02 0.32564282E+01
+ 0.28625791E+01 0.82307177E+01-0.78404694E+01 0.53785987E+01
+-0.66045982E+02-0.16009594E+02 0.10073885E+02-0.35849022E+02
+-0.18812138E+02 0.25561331E+02-0.14358003E+02 0.62677326E+01
+ 0.13022478E+02-0.24407010E+01-0.45216794E+01 0.35019362E+01
+ 0.52684317E+01-0.57186363E+02-0.10306866E+03-0.47426033E+02
+-0.90657454E+01-0.39237549E+02-0.30380714E+02-0.50804012E+02
+-0.19044092E+02-0.49842196E+01-0.29108648E+01-0.74697671E+01
+ 0.79306436E+01-0.42882524E+01 0.20778374E+02 0.76332736E+01
+-0.15185139E+01 0.16232574E+02 0.66888428E+01-0.10187649E+02
+ 0.54846730E+01-0.28345735E+01-0.53408065E+01 0.10432419E+01
+ 0.18286176E+01-0.16316253E+01-0.18638300E+01 0.42999359E+02
+ 0.40907448E+02 0.17649250E+02-0.67038941E+00 0.99691086E+01
+ 0.10768867E+02 0.18582966E+02 0.55952592E+01 0.21914599E+01
+ 0.12064843E+01 0.24707305E+01-0.28870997E+01 0.12680758E+01
+ 0.10030658E+00 0.17061027E+01 0.14686522E+01 0.67665540E-01
+ 0.21641403E-01 0.18892784E-01 0.10023636E-01-0.12924850E-01
+-0.28599406E-01-0.64662793E-02 0.11706679E-01-0.93984343E-02
+ 0.17487410E-01-0.23059970E+00-0.14013827E+01 0.18092790E+01
+-0.91769502E-01 0.27110616E-01 0.17508439E-02-0.26233229E-02
+ 0.22305546E-01 0.89679928E-02 0.32947335E-01 0.14318242E-01
+ 0.24811620E-01-0.15941351E-02-0.90277523E+00 0.23125539E+01
+ 0.16092964E+01-0.14453238E+00-0.20665842E+00 0.51915783E+00
+ 0.49450490E+00-0.19916792E+00 0.18426664E+00 0.25234304E-01
+ 0.38722817E-01-0.42649661E-02-0.26182031E-01-0.56744313E+00
+ 0.44611600E+00 0.11730177E+01-0.47925121E+00 0.65121371E+00
+-0.45957804E-01 0.45501205E+00 0.25943026E+00 0.15283296E+00
+ 0.99556014E-01-0.21310527E-01 0.37541655E+00-0.42286009E-01
+ 0.20739954E+01 0.21575235E+02 0.34665103E+01-0.20396402E+01
+ 0.26834292E+01 0.28675493E-01 0.42604324E+00 0.28829846E+00
+ 0.78976136E+00 0.17124640E-01-0.31698342E-01 0.52003258E+00
+-0.44703317E+00-0.10670326E+00-0.74782805E+01 0.15177947E+02
+ 0.26179512E+01 0.20770681E+01-0.10762349E+01-0.44632065E+00
+ 0.60240370E+00-0.58553094E+00-0.10602016E+01-0.88225491E-01
+-0.11664101E+01-0.34999716E+00 0.25958813E+02-0.27454485E+02
+-0.54103351E+01 0.15304747E+01 0.93126850E+01-0.87061596E+01
+-0.62785430E+01 0.45617943E+01-0.37337399E+01-0.49913475E+00
+ 0.41627291E+00-0.20554547E+00 0.59320398E-01 0.14931066E+02
+-0.24322105E+02-0.18978451E+02 0.66896195E+01-0.11191239E+02
+ 0.25101948E+01-0.91349773E+01-0.48819108E+01-0.36994448E+01
+ 0.46167007E+00 0.15925080E+01-0.77618051E+01-0.19510709E+01
+-0.18649813E+02-0.15214691E+03 0.53326965E+02 0.57327814E+01
+-0.26576279E+02-0.19274548E+00 0.15754475E+00 0.28831229E+01
+-0.84430466E+01-0.36592329E+00 0.27528572E+01-0.42047176E+01
+ 0.30515225E+01 0.14867091E+02-0.28944750E+02-0.87118622E+02
+-0.89018812E+01-0.27807983E+02 0.10147781E+02 0.44683981E+01
+-0.29643438E+01 0.63139424E+01 0.88454924E+01-0.19191800E+01
+ 0.97981710E+01 0.39162433E+01-0.15608711E+03 0.10050726E+03
+ 0.31733864E+02 0.67168102E+01-0.41432091E+02 0.47361160E+02
+ 0.28008722E+02-0.28612593E+02 0.24360193E+02 0.73379183E+01
+-0.59432845E+01 0.31006491E+01 0.61421555E+00-0.10763945E+03
+ 0.12835529E+03 0.69382744E+02-0.43361359E+02 0.56389217E+02
+-0.13272401E+02 0.51118816E+02 0.27908688E+02 0.29593452E+02
+-0.90813322E+01-0.13741107E+02 0.45609165E+02 0.17076014E+02
+ 0.49405956E+02 0.36311176E+03-0.26420923E+03 0.41176744E+01
+ 0.81804565E+02-0.21720428E+01-0.76053777E+01-0.19046164E+02
+ 0.28341925E+02 0.31033659E+01-0.15050348E+02 0.12041607E+02
+-0.86199579E+01-0.58249134E+02 0.21876076E+03 0.15515247E+03
+ 0.21008591E+02 0.99964432E+02-0.32595772E+02-0.15503604E+02
+ 0.48927865E+01-0.20159599E+02-0.26689791E+02 0.95943127E+01
+-0.29238544E+02-0.13632691E+02 0.39192972E+03-0.18186565E+03
+-0.12129234E+03-0.57435074E+02 0.56430367E+02-0.11213171E+03
+-0.54315083E+02 0.70347794E+02-0.67493736E+02-0.30095579E+02
+ 0.18334648E+02-0.94074984E+01-0.31521268E+01 0.27239188E+03
+-0.28597064E+03-0.12101062E+03 0.12336749E+03-0.12470569E+03
+ 0.26024103E+02-0.12104427E+03-0.59888294E+02-0.85995743E+02
+ 0.29719172E+02 0.37946323E+02-0.11199417E+03-0.46891853E+02
+-0.50657452E+02-0.37947943E+03 0.38515732E+03-0.23199799E+02
+-0.10095910E+03 0.50711770E+01 0.14311047E+02 0.33573044E+02
+-0.37079788E+02-0.60635815E+01 0.25830387E+02-0.14170277E+02
+ 0.10315926E+02 0.79237267E+02-0.35955161E+03-0.10834153E+03
+-0.33607841E+02-0.13744238E+03 0.42688866E+02 0.22823519E+02
+-0.24746652E+01 0.25041647E+02 0.33539783E+02-0.14638429E+02
+ 0.35408268E+02 0.18950537E+02-0.44368756E+03 0.16978250E+03
+ 0.19025841E+03 0.10587995E+03-0.16499306E+02 0.12066158E+03
+ 0.45466454E+02-0.74402390E+02 0.81906021E+02 0.44979858E+02
+-0.21132385E+02 0.10045572E+02 0.49591422E+01-0.27212534E+03
+ 0.29296640E+03 0.10778039E+03-0.14709779E+03 0.12872285E+03
+-0.21798769E+02 0.12947227E+03 0.51874657E+02 0.10150548E+03
+-0.36791374E+02-0.41881748E+02 0.12185918E+03 0.52135880E+02
+ 0.17340685E+02 0.14838107E+03-0.17882977E+03 0.15429540E+02
+ 0.43413673E+02-0.26469874E+01-0.74090319E+01-0.18376600E+02
+ 0.16659889E+02 0.33483205E+01-0.13998299E+02 0.58607697E+01
+-0.43770027E+01-0.36554958E+02 0.17909183E+03 0.23982536E+02
+ 0.19982359E+02 0.63960342E+02-0.19503317E+02-0.11998042E+02
+-0.21119624E+00-0.10841630E+02-0.14879585E+02 0.71827703E+01
+-0.14873817E+02-0.91093102E+01 0.18463353E+03-0.63689983E+02
+-0.10000366E+03-0.59487541E+02-0.83337955E+01-0.48281857E+02
+-0.12824591E+02 0.28396828E+02-0.35691708E+02-0.22169371E+02
+ 0.81618071E+01-0.34571950E+01-0.25228517E+01 0.91842926E+02
+-0.11355025E+03-0.39262459E+02 0.60758072E+02-0.51565228E+02
+ 0.64481277E+01-0.51903679E+02-0.14617392E+02-0.41567421E+02
+ 0.15849867E+02 0.16073263E+02-0.48541443E+02-0.20367502E+02
+ 0.33230793E-01-0.53760577E-02-0.43271579E-01-0.82253754E+00
+ 0.10927148E+00-0.62830341E-02 0.32827888E-01 0.20675356E-02
+ 0.11074953E-01 0.14030251E-01-0.93817338E-02 0.58153598E-02
+-0.90415105E-02-0.72160540E-02 0.44827171E-01 0.94338991E-01
+-0.15674749E+00-0.88599294E+00 0.21040715E-01 0.11656060E-01
+-0.43813023E-02 0.28248457E-02 0.18651808E-01 0.15717305E-01
+ 0.10290854E-01-0.74585471E-02 0.32696807E+00 0.55384904E+00
+-0.20601006E+00 0.22753012E+00-0.38133556E+00 0.28293085E+00
+-0.22165217E+00-0.19600345E+00-0.30326167E+00-0.53036101E-01
+-0.64323887E-01-0.25258502E-01 0.27758265E-01 0.84868371E+00
+ 0.71870285E+00 0.10409747E+00-0.34669647E+00 0.68305522E-01
+ 0.17950530E+00 0.17103158E+00-0.16034061E+00 0.11909673E+00
+-0.90939038E-01 0.77516790E-02 0.50704526E-02-0.44594165E-01
+ 0.19773264E+01-0.63938504E+00 0.54355240E+00 0.34600697E+01
+ 0.14479409E+01-0.65015870E+00-0.12161551E+01 0.79876208E+00
+-0.60558927E+00 0.30918708E+00 0.64186800E+00 0.23445684E+00
+ 0.25567999E+00-0.23858164E+00-0.21537189E+01-0.21538348E+00
+ 0.19827148E+00 0.62378974E+01-0.14610817E+01-0.79967242E+00
+ 0.97321606E+00 0.28241432E+00-0.71557999E+00-0.40822551E-01
+-0.35631898E+00-0.30096257E+00 0.27642247E+00-0.35841665E+01
+ 0.20953624E+01 0.21262348E+01 0.82936811E+01-0.25825257E+01
+ 0.12673424E+01 0.22965710E+01 0.32046340E+01 0.59451181E+00
+ 0.29327148E+00 0.60926776E-01-0.18911134E+00-0.77316437E+01
+-0.86913109E+01 0.70329523E+00 0.29154107E+00 0.37658503E+01
+-0.15267447E+01-0.19037495E+01 0.18705777E+01-0.38128939E+00
+ 0.16374694E+01 0.94264515E-01-0.12111475E+01 0.54479063E+00
+-0.11841908E+02 0.12982108E+02-0.46878176E+01 0.11409554E+02
+ 0.11456189E+02 0.28962121E+01 0.70374961E+01-0.53894963E+01
+ 0.32251689E+01-0.26807201E+01-0.33563082E+01-0.14099928E+01
+-0.16444161E+01 0.45781121E+01 0.22667099E+02 0.25675006E+01
+-0.19983486E+02-0.88170242E+00 0.60731277E+01 0.46235948E+01
+-0.60956397E+01-0.36376829E+01 0.50197077E+01 0.35221526E+00
+ 0.22886684E+01 0.17762291E+01-0.40170121E+01 0.62177038E+01
+-0.81950235E+01-0.85565033E+01-0.26114573E+02 0.52662058E+01
+-0.33671968E+01-0.57750220E+01-0.89394646E+01-0.96039099E+00
+-0.44176674E+00-0.38639593E+00 0.38240880E+00 0.16040434E+02
+ 0.22648796E+02-0.38160076E+01 0.32987599E+01-0.11050160E+02
+ 0.41704860E+01 0.42172189E+01-0.41252751E+01 0.30131927E+00
+-0.52030268E+01-0.83111125E+00 0.49567075E+01-0.11959333E+01
+ 0.23355219E+02-0.34282352E+02 0.11538242E+02-0.49848263E+02
+-0.40598743E+02-0.39050004E+01-0.14526564E+02 0.10634094E+02
+-0.49407711E+01 0.58253703E+01 0.57160439E+01 0.24022803E+01
+ 0.39250429E+01-0.89171867E+01-0.57658352E+02-0.79275866E+01
+ 0.56511944E+02-0.33630772E+02-0.73403568E+01-0.97860651E+01
+ 0.12670938E+02 0.95948782E+01-0.10938619E+02-0.13207883E+01
+-0.39759080E+01-0.31204889E+01 0.31317453E+01-0.26248660E+01
+ 0.75624285E+01 0.10054381E+02 0.23560154E+02-0.29456441E+01
+ 0.29910414E+01 0.40049529E+01 0.69776058E+01 0.23051453E+00
+ 0.35383257E+00 0.45363480E+00-0.17931676E+00-0.85573292E+01
+-0.16594076E+02 0.34918075E+01-0.66410427E+01 0.96621037E+01
+-0.31863921E+01-0.24729841E+01 0.26573007E+01 0.11516500E+00
+ 0.40185380E+01 0.10184885E+01-0.46337085E+01 0.70501119E+00
+-0.15520618E+02 0.24251535E+02-0.78417487E+01 0.39622379E+02
+ 0.31915640E+02 0.84966403E+00 0.10047779E+02-0.63451653E+01
+ 0.19262159E+01-0.35821593E+01-0.31948893E+01-0.13733149E+01
+-0.27612700E+01 0.26133041E+01 0.42539505E+02 0.70027027E+01
+-0.41647896E+02 0.34347599E+02 0.24487431E+01 0.63871117E+01
+-0.86457167E+01-0.66765871E+01 0.73050599E+01 0.12362036E+01
+ 0.21852674E+01 0.16885310E+01-0.16071810E+00 0.14123527E-01
+-0.13230798E+00 0.34138896E-01 0.59729513E-01-0.50168329E+00
+-0.57280529E+00 0.43802693E-01-0.13694671E-01 0.17453475E-01
+ 0.33055807E-02 0.23122183E-02 0.62880949E-02 0.53357907E-01
+-0.19458123E-01 0.69014654E-01 0.63686967E-02 0.54668400E-01
+ 0.58147484E+00-0.50669259E+00-0.12543346E-01 0.45777824E-01
+-0.29289942E-01-0.17757392E-01-0.45786155E-03-0.10528302E-01
+-0.54030935E-02 0.18703187E+00-0.11604700E+00-0.90121031E-01
+-0.24077909E+00-0.58423525E+00-0.78927018E-01-0.25518278E-01
+ 0.17570584E+00 0.64967521E-01-0.28771313E-01 0.21496497E-01
+ 0.58259081E-01-0.21440378E+00 0.46478152E-01 0.59997041E-01
+-0.10545159E+00 0.87879352E-01 0.31408742E+00-0.76883548E+00
+-0.22707506E+00 0.97065166E-01-0.84792078E-01-0.42242599E-02
+-0.36972161E-01 0.13577213E-01 0.13984452E+01 0.21562593E+00
+ 0.81785202E+00 0.42129427E-01-0.45740336E+00 0.19257108E+01
+ 0.10962818E+01-0.13253964E+00 0.64441629E-01-0.76614603E-01
+ 0.80381967E-01 0.60075335E-01-0.42204820E-02-0.88858914E+00
+ 0.68705350E+00-0.11165400E+00-0.39081043E-02-0.11788681E+01
+-0.96058542E+00 0.22603960E+01 0.79304010E-01-0.20290291E+00
+ 0.10524015E+00 0.22646762E+00 0.12000297E-01 0.20639112E-02
+-0.38604550E-01-0.64558333E+00 0.15047131E+00 0.23604788E+00
+ 0.51776189E+00 0.65631807E+00-0.64743772E-01 0.23293781E+00
+-0.31635416E+00-0.24677651E+00 0.73522218E-01-0.12383265E+00
+-0.23125414E-01 0.63801259E+00-0.17993659E+00 0.41443504E-01
+-0.30626392E+00 0.13222785E+00-0.38505167E+00 0.11026433E+01
+ 0.38552052E+00-0.14338492E+00 0.16477841E+00 0.44638623E-01
+-0.27766574E-01-0.14409494E-01-0.16779745E+01 0.35500047E+00
+-0.75000972E+00 0.44501577E-01 0.16619511E+00-0.29565687E+01
+-0.11524156E+01 0.10906345E+00 0.63353598E-01 0.74749373E-01
+-0.98273449E-01-0.23684590E+00 0.99928290E-01 0.12862395E+01
+-0.10268888E+01-0.34922286E-03 0.42514104E+00 0.18869687E+01
+ 0.92553735E+00-0.33864348E+01-0.96434183E-01 0.88395439E-01
+-0.27669014E-01-0.47842038E+00-0.87917507E-01-0.50919611E-01
+ 0.67794308E-01 0.43764468E-01-0.85234791E-02 0.55448759E-01
+-0.75007221E-02 0.26949584E-02 0.40005311E-01 0.17787793E+00
+-0.21966216E+00 0.13119747E-01 0.17033216E-01 0.48258617E-02
+ 0.93731331E-02 0.41226272E-01-0.45745876E-01-0.44874894E-02
+-0.56989055E-01 0.66878618E-03 0.49436111E-02-0.93553104E-02
+ 0.20852254E+00 0.17780304E+00-0.10008897E-01 0.40826789E-03
+-0.44579688E-02-0.96555213E-02 0.32994185E-01-0.50840318E-01
+-0.82209967E-01-0.16789146E+00-0.35853390E-01-0.74349888E-01
+ 0.36870703E-01-0.67959286E-01-0.23842365E+00-0.75435199E-01
+ 0.58410540E-01 0.19143853E-01 0.72812706E-01-0.35581663E-01
+-0.75313292E-01-0.37497939E-02-0.53745732E-02 0.86594537E-01
+-0.85272796E-01-0.75303704E-01 0.15578288E+00-0.57227295E-01
+-0.19145612E-01 0.38526919E-01-0.33226525E-02-0.25027826E-01
+-0.24258215E-01 0.56879047E-01-0.87987788E-01-0.18437518E-01
+-0.26629930E-02 0.94258245E-02 0.11299050E-01-0.10933794E-01
+ 0.11623712E-02 0.17373119E+00 0.16964652E+00-0.10166550E-01
+-0.62725325E-02 0.30380953E-01-0.23155006E-01-0.33405375E-01
+-0.44372205E-01 0.21909758E-01-0.50504357E-02-0.34750249E-01
+ 0.32919927E-02-0.52613996E-01-0.17605481E+00 0.17251751E+00
+ 0.14515134E-01 0.11617797E-01 0.42745028E-01-0.67311842E-02
+-0.12199854E-01-0.23588119E-01 0.42619001E-01 0.23207851E-01
+ 0.16206969E-01-0.71131140E-02-0.15745321E-01 0.93277032E-02
+ 0.54416276E-03-0.92576854E-01 0.75096644E-01-0.57170991E-01
+-0.11325012E-01-0.45626007E-01-0.51696181E-01-0.54596667E-02
+ 0.18047408E-02-0.57304051E-01 0.28688202E-01-0.29154113E-02
+-0.48920629E-02-0.11745230E-02-0.72187759E-01-0.10533948E+00
+-0.46112318E-01-0.93352431E-02-0.77548169E-01 0.10806181E-01
+ 0.16295983E-01-0.91340821E-02-0.37854966E-01 0.59323609E-02
+-0.70786551E-02 0.43499945E-02-0.12444421E-01-0.23848300E-02
+ 0.11797853E-01-0.69076233E-02-0.14922633E-01-0.16607357E-01
+-0.28959988E-01 0.37629224E-01 0.27335903E-02-0.21362375E-01
+ 0.14246407E-01 0.54619005E-02 0.60001425E-02 0.29482830E-01
+-0.15042797E-01-0.14008236E-01-0.39528869E-02 0.18516526E-02
+-0.39649025E-01 0.28208220E-01-0.11501377E-01-0.40830545E-01
+ 0.14463947E-01 0.18475296E-02-0.75901337E-02 0.18725945E-01
+ 0.10570663E-01-0.12890499E-04 0.23008062E-01-0.51339738E-01
+ 0.28110512E-01-0.61789113E-02 0.81891287E-02-0.29036777E-01
+ 0.28971057E-01 0.64823423E-02 0.76583945E-02 0.27483683E-02
+-0.17355928E-01 0.15277426E-01 0.51793233E-02-0.15141426E-01
+ 0.88938065E+01-0.15078264E-01-0.25140066E-01 0.22020804E-01
+ 0.25030833E-02-0.20642305E-01-0.30851010E-01 0.35875994E-02
+-0.87216607E-03 0.24480885E-01 0.15102470E-01-0.19631794E-01
+ 0.20391542E-01 0.61357880E+00 0.13776004E+00-0.57032752E+00
+-0.28906608E-01-0.35331145E+00-0.21978439E+00-0.14012583E+00
+ 0.54715615E-01 0.14554127E+00-0.24320902E-02-0.52757952E-01
+-0.18868657E-01-0.78913517E-01 0.26584980E+02-0.91476983E+00
+-0.10767018E+01 0.83116639E+00 0.18041835E+01-0.63989371E+00
+ 0.51932621E+00 0.50343698E+00-0.63642442E+00-0.97818619E+00
+-0.29772168E+00 0.35066122E+00-0.68079138E+00 0.31529946E+01
+-0.22581005E+01 0.95738211E+01 0.81222594E+00 0.97320185E+01
+ 0.23350554E+01 0.16431698E+01 0.61718774E+00-0.20582492E+01
+-0.12018207E-01 0.19452527E+01-0.24020819E+00 0.93675071E+00
+-0.12845282E+03 0.76379828E+01 0.81046038E+01-0.12054643E+02
+-0.15387237E+02 0.68140392E+01-0.15058470E+01-0.48598957E+01
+ 0.49816790E+01 0.52011762E+01 0.22433043E+01-0.60794902E+00
+ 0.40673318E+01-0.78451271E+02-0.14396160E+02-0.34657215E+02
+-0.25212047E+01-0.49333851E+02-0.11871571E+02-0.53334084E+01
+-0.59590955E+01 0.88634005E+01 0.10821542E+01-0.11399439E+02
+ 0.47652416E+01-0.32855816E+01 0.21243150E+03-0.14004525E+02
+-0.17843674E+02 0.43910168E+02 0.43445202E+02-0.19488865E+02
+ 0.13466698E+01 0.12091710E+02-0.13215184E+02-0.10340988E+02
+-0.57268853E+01-0.15506169E+01-0.88107119E+01 0.24853136E+03
+ 0.78768333E+02 0.34186371E+02 0.19544324E+01 0.10425354E+03
+ 0.27955261E+02 0.85331831E+01 0.15262192E+02-0.16240059E+02
+-0.35532913E+01 0.25211710E+02-0.16891586E+02 0.51664090E+01
+-0.16578394E+03 0.30796990E+01 0.14645020E+02-0.58538593E+02
+-0.48412685E+02 0.21371475E+02-0.61169732E+00-0.10880286E+02
+ 0.14118615E+02 0.89713211E+01 0.56740236E+01 0.40566039E+01
+ 0.80941858E+01-0.28710046E+03-0.11082728E+03 0.47830529E+01
+ 0.12881908E+01-0.99203979E+02-0.28727617E+02-0.78436465E+01
+-0.15181051E+02 0.13331136E+02 0.39052055E+01-0.23992605E+02
+ 0.21218477E+02-0.36269221E+01 0.51397850E+02 0.44691315E+01
+-0.40350652E+01 0.25961407E+02 0.18408005E+02-0.80434484E+01
+ 0.32910940E+00 0.31243167E+01-0.52550664E+01-0.28733051E+01
+-0.18864105E+01-0.22640367E+01-0.26912494E+01 0.11311129E+03
+ 0.48871571E+02-0.13456262E+02-0.14472980E+01 0.34871849E+02
+ 0.10456634E+02 0.32485316E+01 0.52217917E+01-0.40892677E+01
+-0.13860580E+01 0.83094473E+01-0.88487806E+01 0.87602508E+00
+ 0.69597103E-01 0.16769730E+01 0.15545819E+01-0.55449349E-02
+ 0.69705747E-01 0.23653561E-01 0.12845129E-01 0.86718919E-02
+-0.45932859E-01 0.31570107E-01 0.45554500E-01-0.21642283E-01
+ 0.12889816E-01-0.21921287E+00-0.16087893E+01 0.17624192E+01
+-0.13460632E+00-0.59290775E-02-0.83502904E-02-0.34621302E-01
+ 0.11610980E-01-0.14968859E-01-0.25111865E-01 0.17095666E-01
+-0.55068266E-02-0.23103973E-01-0.48869601E+00 0.17512943E+01
+ 0.14671189E+01-0.29812467E+00 0.43485570E+00 0.74070942E+00
+ 0.47886825E+00-0.15530139E-01 0.28587043E+00-0.90405986E-01
+ 0.12089233E+00-0.10466526E+00-0.22864467E+00 0.26475123E+00
+-0.10255442E+01 0.12023131E+01-0.79612106E+00-0.14503480E+00
+ 0.48347488E-01 0.24352114E+00 0.33930928E+00 0.17734116E+00
+-0.29564553E+00-0.23605779E-01 0.26259270E+00-0.14518072E+00
+ 0.32442267E+01 0.19304132E+02-0.17855993E+02 0.15392791E+01
+ 0.12891808E+01-0.13034651E+01 0.78133240E-01-0.28128734E+00
+ 0.13791049E+01-0.29651865E+00-0.13774163E+01 0.90447134E+00
+-0.48520055E+00-0.38545475E+01 0.17391617E+02 0.15856245E+02
+ 0.32506826E+01 0.17471519E+01 0.54408711E+00-0.87338269E-01
+ 0.11546892E+01-0.39241776E+00 0.82400136E-01-0.41304421E+00
+-0.31734011E+00-0.47280574E+00 0.15891956E+02-0.71328111E+01
+-0.82937202E+01-0.10363106E+01-0.37894361E+01-0.13196981E+02
+-0.97192078E+01 0.57880574E+00-0.50687685E+01 0.15093237E+00
+-0.15454117E+01 0.22428346E+01 0.37367301E+01-0.37251842E+01
+ 0.30780756E+00-0.38300519E+01 0.13541659E+02-0.41292334E+01
+ 0.24990664E+01-0.36101906E+01-0.68872380E+01-0.33844929E+01
+ 0.48587584E+01 0.16653656E+01-0.54408031E+01-0.14610332E+01
+-0.35525444E+02-0.55185818E+02 0.18234506E+03-0.17191862E+02
+-0.18231380E+02 0.10715060E+02 0.41820860E+00 0.49597664E+01
+-0.10105695E+02 0.44890794E+00 0.11448022E+02-0.59232845E+01
+ 0.21196377E+01 0.48971519E+02-0.17984668E+03-0.10086093E+02
+-0.28173100E+02-0.18571411E+02-0.34781046E+01 0.46446908E+00
+-0.91365309E+01 0.32334213E+01 0.29283717E+00 0.53791575E+01
+ 0.33645318E+01 0.52979574E+01-0.98831841E+02 0.35010017E+02
+ 0.81809647E+02 0.42378185E+02 0.32127880E+02 0.71276741E+02
+ 0.47292530E+02-0.79754658E+01 0.26064089E+02 0.57404060E+01
+ 0.62453079E+01-0.13935455E+02-0.23157148E+02 0.37681507E+02
+-0.22015532E+02 0.41568684E+02-0.89377480E+02 0.34201309E+02
+-0.14441486E+02 0.12126778E+02 0.37069691E+02 0.21612261E+02
+-0.29737093E+02-0.11194304E+02 0.31738426E+02 0.18420141E+02
+ 0.11772128E+03-0.16025244E+02-0.54052008E+03 0.52717884E+02
+ 0.66749588E+02-0.31852327E+02-0.27905669E+01-0.18864178E+02
+ 0.26960806E+02 0.23407796E+00-0.36213844E+02 0.12973186E+02
+-0.41116295E+01-0.15707156E+03 0.53367804E+03-0.18824304E+03
+ 0.96771606E+02 0.59688560E+02 0.96216154E+01 0.33605173E+01
+ 0.27191839E+02-0.63597393E+01-0.57947147E+00-0.20041174E+02
+-0.10695272E+02-0.15405689E+02 0.25402480E+03-0.12169586E+03
+-0.29696808E+03-0.17765755E+03-0.10246051E+03-0.16805841E+03
+-0.91728348E+02 0.29707182E+02-0.58331951E+02-0.25739067E+02
+-0.14582021E+02 0.34748569E+02 0.59372269E+02-0.14180334E+03
+ 0.90961342E+02-0.17497099E+03 0.24299307E+03-0.93683586E+02
+ 0.25937101E+02-0.10940236E+02-0.83610329E+02-0.59765331E+02
+ 0.78051521E+02 0.30359779E+02-0.77565620E+02-0.57330196E+02
+-0.15175063E+03 0.14136122E+03 0.67243622E+03-0.63942410E+02
+-0.95142883E+02 0.37566513E+02 0.25746937E+01 0.25226887E+02
+-0.30201876E+02 0.11459297E+01 0.47971264E+02-0.10312352E+02
+ 0.43723435E+01 0.18913745E+03-0.64964203E+03 0.40084787E+03
+-0.13516272E+03-0.75677673E+02-0.12140692E+02-0.98627472E+01
+-0.34648926E+02 0.30085969E+01-0.86283243E+00 0.28143951E+02
+ 0.13283780E+02 0.17091984E+02-0.29154059E+03 0.17865944E+03
+ 0.44016376E+03 0.25832797E+03 0.12581499E+03 0.18186659E+03
+ 0.75668427E+02-0.42528137E+02 0.58712421E+02 0.38270672E+02
+ 0.19351198E+02-0.37923859E+02-0.65868088E+02 0.21195496E+03
+-0.14264771E+03 0.25605206E+03-0.27863412E+03 0.10939057E+03
+-0.14928993E+02-0.43717604E+01 0.85104988E+02 0.72570885E+02
+-0.90291161E+02-0.36729885E+02 0.84085503E+02 0.70076569E+02
+ 0.67721512E+02-0.90769173E+02-0.30035886E+03 0.26721811E+02
+ 0.47102436E+02-0.15028220E+02-0.20477100E+00-0.11208223E+02
+ 0.12107578E+02-0.20266440E+01-0.22364059E+02 0.21444893E+01
+-0.19921613E+01-0.77146408E+02 0.27997412E+03-0.22317946E+03
+ 0.64471100E+02 0.32618526E+02 0.58598595E+01 0.59874973E+01
+ 0.15801620E+02 0.81914449E+00 0.12750365E+01-0.13325417E+02
+-0.56135464E+01-0.63814468E+01 0.12182439E+03-0.87194756E+02
+-0.22319070E+03-0.12528762E+03-0.51943058E+02-0.73651070E+02
+-0.21513721E+02 0.20706060E+02-0.21602533E+02-0.18770321E+02
+-0.10114022E+02 0.15116210E+02 0.26225403E+02-0.10590909E+03
+ 0.75341286E+02-0.12101205E+03 0.11209223E+03-0.47404507E+02
+ 0.42671257E+00 0.63914065E+01-0.32075302E+02-0.31445272E+02
+ 0.37990154E+02 0.16272755E+02-0.33418064E+02-0.29758162E+02
+ 0.24743646E-01-0.24780034E+00 0.32477383E-01-0.70758212E+00
+ 0.77269542E+00 0.21704473E-01 0.73262020E-02-0.54433793E-02
+-0.36484734E-02 0.15552454E-01 0.11511402E-01 0.95175020E-02
+-0.77193896E-02-0.48369352E-01-0.53220801E-01 0.27144585E-01
+-0.81413311E+00-0.71973467E+00-0.70226772E-04-0.60768458E-02
+ 0.16783381E-01-0.50986288E-02-0.15607438E-01 0.57154228E-02
+ 0.16545281E-01-0.27624261E-01 0.42223513E+00-0.98611221E-01
+ 0.50277317E+00-0.16155951E+01 0.44995168E+00 0.60947478E+00
+-0.26007742E+00-0.34951422E+00-0.61507735E-01-0.29398164E+00
+-0.57447203E-01-0.17995073E-01-0.72372705E-01 0.12762964E+01
+ 0.26164582E+00 0.47269124E+00-0.10257167E+01-0.19976238E+01
+ 0.18526942E+00 0.29332149E+00-0.20163956E+00 0.15762205E+00
+-0.21016265E+00-0.20759076E-01 0.75109035E-01-0.30883980E+00
+ 0.23981123E+01 0.29899118E+01 0.38449600E+01-0.60386233E+01
+ 0.53788686E+01-0.93953538E+00-0.15277848E+01 0.59264237E+00
+ 0.45906556E+00 0.24649295E+00-0.10305211E+00 0.32214963E+00
+ 0.46169207E+00 0.16696631E+01 0.25706765E+00 0.28278365E+01
+-0.46109791E+01-0.72205920E+01 0.34772471E+00-0.62179738E+00
+-0.14041898E-01 0.11932110E+01 0.11926308E+00 0.61168361E-01
+-0.12217858E+00 0.74488103E-01-0.42425346E+01 0.35861960E+00
+-0.69054904E+01 0.77307906E+01 0.14447305E+01-0.51289444E+01
+ 0.42940632E+00 0.37216494E+01 0.11370006E+01 0.24206262E+01
+-0.55311292E-01 0.61113574E-01 0.43589985E+00-0.11186955E+02
+ 0.14551842E+01-0.46096087E+01 0.70924859E+01 0.82799072E+01
+ 0.54562348E+00-0.19091228E+01 0.63213462E+00-0.97554809E+00
+ 0.27594109E+01 0.64862490E-01-0.13592871E+01 0.23405161E+01
+-0.17754059E+02-0.32034547E+01-0.41930241E+02 0.41079243E+02
+-0.18051516E+02 0.25384116E+01 0.90485382E+01-0.25573390E+01
+-0.52479219E+01-0.22733593E+01 0.16716585E+01-0.19437449E+01
+-0.34734039E+01-0.11303488E+02 0.17556179E+02-0.22370165E+02
+ 0.15778043E+02 0.52471008E+02-0.31812954E+01 0.27775536E+01
+-0.23356988E+00-0.10081247E+02 0.12472678E+01-0.56565022E+00
+ 0.53981122E-01 0.12582926E+00 0.12362515E+02-0.29632866E+01
+ 0.15124092E+02-0.18801899E+02-0.13831272E+02 0.12536344E+02
+ 0.10004860E+01-0.93945045E+01-0.36175582E+01-0.51194916E+01
+ 0.14203264E+01-0.24957810E-01-0.76139688E+00 0.25606970E+02
+-0.82127504E+01 0.11993701E+02-0.10493736E+02-0.15479230E+02
+-0.24436879E+01 0.37523029E+01 0.70967054E+00 0.28187840E+01
+-0.75910454E+01 0.22493189E-01 0.46240821E+01-0.53346510E+01
+ 0.38124302E+02-0.81857109E+01 0.10164820E+03-0.78550056E+02
+ 0.12163009E+02 0.46451297E-01-0.17560549E+02 0.37782583E+01
+ 0.13861211E+02 0.52900162E+01-0.42033973E+01 0.37402480E+01
+ 0.76729035E+01 0.27311661E+02-0.54518929E+02 0.45628468E+02
+-0.14268176E+02-0.10502533E+03 0.78711667E+01-0.59193988E+01
+ 0.21227322E+01 0.23136654E+02-0.59244928E+01 0.94676512E+00
+ 0.14095348E+01 0.77875800E-01-0.12606331E+02 0.52987642E+01
+-0.10864910E+02 0.19476118E+02 0.18500385E+02-0.88927727E+01
+-0.17200902E+01 0.67320638E+01 0.26062746E+01 0.29826615E+01
+-0.15832294E+01-0.24634519E+00 0.30302539E+00-0.16824041E+02
+ 0.83268948E+01-0.88709040E+01 0.17254645E+00 0.14521973E+02
+ 0.19288079E+01-0.16344380E+01-0.16025696E+01-0.28889387E+01
+ 0.53860931E+01 0.74160628E-01-0.41329098E+01 0.36643453E+01
+-0.25644232E+02 0.11694123E+02-0.68230270E+02 0.47731461E+02
+ 0.49299583E+01-0.33478410E+01 0.10701688E+02-0.15946394E+01
+-0.10438581E+02-0.35907745E+01 0.26091225E+01-0.24007337E+01
+-0.50249095E+01-0.22422714E+02 0.41399738E+02-0.25003633E+02
+ 0.22523800E+00 0.66093285E+02-0.54813409E+01 0.45410838E+01
+-0.25613079E+01-0.15686406E+02 0.53152466E+01-0.38827559E+00
+-0.17855603E+01-0.56493247E+00-0.25739521E+00-0.51444806E-01
+-0.39007924E-01 0.43471336E-01 0.74577101E-01-0.69018120E+00
+-0.77091724E+00 0.18789891E-01-0.30679217E-01 0.34278046E-01
+ 0.70777461E-02 0.17007646E-02 0.12116459E-01 0.30931152E-01
+ 0.82304358E-01 0.23780592E-01-0.61587142E-02 0.14854147E+00
+ 0.73189169E+00-0.68215245E+00 0.67674126E-02 0.98737925E-02
+-0.13763633E-01-0.28919926E-01-0.11603950E-02 0.28128898E-01
+ 0.15583675E+00-0.97631486E-02-0.42719718E-01 0.55609424E-01
+-0.76401152E-01-0.72838420E+00-0.35610983E+00 0.81875414E-01
+ 0.17080715E+00-0.30333633E-01-0.31908482E-01 0.57391785E-01
+ 0.27769849E-01-0.52173845E-01 0.24948262E+00 0.12350982E+00
+-0.15202740E+00 0.21870527E+00 0.53911513E+00-0.62828916E+00
+-0.21726982E+00-0.81490837E-02-0.29228795E-01-0.10110049E-01
+-0.15235767E-01 0.31288322E-01 0.17942052E+01-0.47697356E+00
+-0.24683045E-01-0.73759890E+00-0.31411227E-01 0.23973184E+01
+ 0.15254406E+01 0.46166003E+00-0.19089140E+00-0.40453413E+00
+ 0.24325491E+00 0.47338758E-01-0.12414197E+00-0.10261521E+01
+ 0.34687656E+00-0.13719416E+00-0.56109297E+00-0.19106919E+01
+-0.12889602E+01 0.28899510E+01 0.31973645E+00 0.39896643E+00
+ 0.91862530E-01 0.74149244E-01 0.17311741E+00-0.22030464E+00
+ 0.19139686E+00-0.29637602E+00-0.89744121E-01 0.34440780E-03
+ 0.12633979E+00 0.17837116E+00 0.34260508E+00-0.52784592E-01
+-0.35431859E+00 0.11950550E+00 0.18184212E+00-0.15287527E+00
+-0.12142629E-02 0.38059655E+00-0.70801187E+00-0.47004503E+00
+ 0.36706582E-01-0.10262799E+00-0.90509468E+00-0.71891233E-01
+ 0.41418588E+00 0.51909392E-02 0.73546261E-01 0.61649170E-01
+-0.10198504E+00-0.11583487E+00-0.30275664E+01 0.20220103E+01
+ 0.34253958E+00 0.11947123E+01-0.63510936E+00-0.44640880E+01
+-0.18234404E+01-0.84736711E+00 0.57081997E+00 0.75149286E+00
+-0.48013139E+00-0.24022443E-01 0.20686179E+00 0.15877696E+01
+-0.71108854E+00 0.99898326E+00 0.13696940E+01 0.26519346E+01
+ 0.18384987E+01-0.53081517E+01-0.50006735E+00-0.82502490E+00
+-0.16206498E+00-0.16357306E+00-0.40980041E+00 0.16522449E+00
+-0.80586374E-02 0.50992239E-01-0.46632238E-01 0.57858139E-01
+ 0.29589590E-01-0.29866926E-01 0.44593327E-01 0.20724247E+00
+-0.33956417E+00 0.48757136E-01 0.48252712E-02 0.75157746E-02
+ 0.82745338E-02 0.56242988E-01-0.98413797E-02-0.85247047E-02
+-0.81652971E-02 0.10179361E-01-0.32878406E-01 0.63941120E-02
+ 0.30926964E+00 0.19301084E+00 0.51544094E-02-0.95572891E-02
+ 0.14922715E-01-0.64172191E-02 0.19160556E-02-0.24454545E-02
+-0.16382514E+00-0.21728696E-01 0.84944502E-01-0.70919216E-01
+ 0.61331507E-01-0.12808955E+00-0.38097063E+00-0.58370437E-01
+ 0.67949370E-01 0.16139146E-01 0.56471489E-01-0.82536153E-02
+-0.59724025E-01 0.79807997E-01 0.33527713E-01 0.72642304E-01
+-0.10801914E+00-0.34897956E-02 0.36352578E+00-0.57958063E-01
+-0.35505172E-01 0.12366363E-02 0.40800598E-01-0.18490655E-01
+-0.46349317E-02 0.14545528E-01-0.12120489E+00 0.26173390E-01
+ 0.17550857E-02-0.28536871E-01 0.22547282E-01-0.36351152E-01
+-0.60174363E-02 0.28420082E+00 0.16398448E+00-0.12288245E-01
+ 0.14442492E-01 0.60371339E-01 0.38244709E-01 0.32651130E-01
+-0.77243634E-01-0.35003498E-01 0.14984454E-01 0.15117691E-01
+-0.19099513E-01-0.49697436E-01-0.15599817E+00 0.25729859E+00
+ 0.33024959E-02-0.99182769E-03 0.71319506E-01-0.75824670E-01
+ 0.36760561E-01-0.49347986E-01 0.15868425E-01 0.38285628E-01
+ 0.23324162E-01-0.39113779E-01-0.30983375E-01 0.13260117E-01
+ 0.37964746E-01-0.74268147E-01 0.11632289E+00-0.17346490E-01
+ 0.15348023E-01-0.14875906E-01-0.52558880E-01-0.71550235E-01
+-0.61885449E-02-0.24182137E-01 0.37889171E-02-0.25238233E-01
+-0.21548860E-02 0.12035027E-01-0.14105137E+00-0.92943028E-01
+-0.53878661E-01-0.32849424E-01-0.84194556E-01 0.31174347E-01
+-0.46395538E-02 0.12672110E-01-0.28512165E-01-0.13265373E-01
+-0.14615447E-01 0.36233847E-02-0.12471826E-01 0.34783301E-02
+ 0.54068253E-02-0.35035559E-02 0.55042438E-01 0.23584509E-01
+-0.25574235E-01 0.69150315E-02-0.15520843E-01 0.11701881E-01
+ 0.12512361E-01-0.23976658E-01 0.11502410E-02 0.91396850E-02
+ 0.85549625E-02-0.30781742E-01 0.11815184E-01 0.77101663E-01
+ 0.19891476E-01-0.14418868E-01-0.48151329E-01-0.46777282E-01
+ 0.32677677E-01 0.10109333E-01 0.22690778E-03 0.29887985E-01
+-0.23127506E-01 0.21396790E-01 0.23422489E-01-0.10521832E+00
+ 0.46248104E-01-0.85954962E-04 0.24128256E-01 0.10098126E-01
+ 0.15944390E-01 0.24146425E-01 0.21453386E-01 0.39750654E-02
+-0.21658875E-01 0.59070806E-02 0.15631018E-01-0.13315894E-01
+ 0.30724745E+01 0.76932684E-02 0.10582104E-01-0.58678435E-02
+ 0.86863544E-02 0.23237041E-02-0.16314250E-02 0.22063474E-02
+ 0.30517471E-02 0.31540647E+00-0.10881314E-01 0.51532704E-01
+ 0.60170814E-01 0.84916512E-02-0.18651348E-01-0.24970861E-01
+ 0.24080003E-01-0.41201661E-03 0.70605505E+00-0.14244080E+00
+-0.29646529E-01-0.12706631E-01-0.95824571E-02-0.33969921E-02
+ 0.17386436E-01-0.78530975E-01-0.11982952E-01-0.42120489E+00
+-0.20498924E+00-0.70140377E-01-0.13760924E+00-0.42224452E-01
+ 0.85511714E-01 0.73424190E-01-0.67239940E-01 0.15587630E-01
+-0.89627123E+00 0.41788438E+00-0.50209500E-01 0.68723954E-01
+ 0.28690726E-01 0.34792382E-01-0.43728635E-01 0.22312871E+00
+ 0.29185694E-01 0.65906473E-01 0.19188379E+00 0.25963048E-01
+ 0.69747426E-01 0.35327666E-01-0.73112071E-01-0.53085875E-01
+ 0.43332018E-01-0.21014430E-01 0.26427588E+00-0.27628177E+00
+ 0.10059510E+00-0.50584864E-01-0.29864950E-01-0.44461355E-01
+ 0.33647098E-01-0.14697210E+00-0.26645195E-01 0.16860802E-01
+-0.18605264E+00-0.38714597E+00-0.19328046E-03 0.40253001E-03
+ 0.75271179E-03 0.54476932E-02 0.79560261E-02 0.55059040E-03
+ 0.20514991E-01 0.39720568E+00-0.19083656E+00-0.12558009E-01
+ 0.56398655E-02-0.12297944E-01-0.14556028E-01-0.61569130E-02
+ 0.10029857E-01 0.10009073E-01 0.30681634E+00 0.34232047E+00
+ 0.98892421E-01 0.69215246E-01 0.82950536E-02-0.18969623E-01
+ 0.55852693E-01-0.31100798E-01 0.77327024E-02-0.19496195E+00
+ 0.34152469E+00-0.10556676E+00-0.18567836E-01 0.55548723E-03
+-0.31484790E-01 0.53078610E-01 0.60641043E-01-0.30647790E+00
+ 0.81640363E+00 0.18649312E+01-0.98093107E-01 0.15951095E-01
+ 0.17376818E-01-0.39560460E-01-0.20320363E+00-0.74637689E-01
+-0.73014015E+00-0.19144686E+01 0.81253171E+00 0.19620964E+00
+-0.52492674E-01 0.88517673E-01 0.17049298E+00 0.12281351E+00
+-0.20673332E+00 0.48533568E+00-0.15024738E+01-0.17705139E+01
+-0.81606116E-03-0.53666764E+00-0.37227347E+00 0.75344280E-02
+-0.40956607E+00 0.40251580E+00 0.89858896E+00 0.10686440E+01
+-0.16356423E+01 0.29005781E+00 0.37916356E+00-0.13871599E-01
+ 0.33012232E+00-0.34580472E+00-0.33433393E+00 0.10481230E+01
+-0.77934951E+00-0.19115534E+01 0.12393999E+00 0.55828355E-01
+-0.70680223E-01 0.11313992E+00 0.58049357E+00 0.31924832E+00
+ 0.22701538E+01 0.16197052E+01-0.96915621E+00-0.33665845E+00
+-0.14552668E+00-0.21495460E+00-0.52067465E+00-0.32353064E+00
+ 0.57284433E+00-0.12134343E+01 0.19404646E+01 0.37635965E+01
+-0.62870938E+00 0.10511738E+01 0.11378073E+01-0.29707570E-01
+ 0.86152846E+00-0.11126765E+01-0.29988582E+01-0.20589967E+01
+ 0.24830685E+01-0.22141758E-01-0.89734024E+00 0.17300197E+00
+-0.71507871E+00 0.67783284E+00 0.56816947E+00-0.79848272E+00
+ 0.23965521E+00 0.80937093E+00 0.18386710E-01-0.11181234E+00
+ 0.65899365E-01-0.10855011E+00-0.42357123E+00-0.30929345E+00
+-0.19041708E+01-0.49399413E-01 0.43354791E+00 0.93478829E-01
+ 0.24635497E+00 0.13785353E+00 0.41312331E+00 0.21510728E+00
+-0.42922243E+00 0.70117193E+00-0.47726721E+00-0.19355594E+01
+ 0.54693979E+00-0.56250012E+00-0.84684205E+00 0.39356496E-01
+-0.54770625E+00 0.81452745E+00 0.24183495E+01 0.72689992E+00
+-0.10589318E+01-0.23238608E+00 0.54398221E+00-0.20291325E+00
+ 0.43034214E+00-0.41715705E+00-0.29115310E+00-0.90023009E-02
+-0.35391398E-01-0.47154608E-02 0.19855529E-01-0.11723321E+00
+-0.10261102E-01 0.60877344E-02-0.11590884E-01-0.67245788E-02
+ 0.96493689E-02-0.22004317E-01-0.56211897E-02 0.11911504E+00
+ 0.25769388E-01-0.13206676E-01-0.57847810E-03-0.63171289E-02
+-0.14825935E-02 0.97160034E-01 0.14064242E+00 0.12654921E+00
+ 0.90184147E-02 0.10824892E+00 0.98466850E-03-0.39058451E-01
+ 0.21360939E-01-0.68189781E-02-0.69581389E-01 0.23204980E-01
+-0.33772092E-01-0.23201568E-01-0.16431106E-01 0.35661325E-01
+-0.24787607E-01-0.15851652E-01 0.41659139E-01-0.95431058E-03
+ 0.32939354E+00 0.11949618E+00-0.34582306E-01-0.11245041E+00
+ 0.58247324E-01 0.44278201E-01 0.32697480E-01 0.79446398E-02
+-0.27802193E+00 0.99982269E-01-0.18884204E+00 0.14989616E+00
+-0.30045878E-01-0.12822229E-01 0.70558451E-01 0.67012236E-02
+-0.54927107E-01-0.52163047E+00-0.76617777E+00-0.38275307E+00
+ 0.93988568E-01-0.80029559E+00-0.46852093E-01 0.19828326E+00
+-0.19820786E+00-0.20384854E-01 0.73622519E+00 0.23355688E+00
+ 0.24254851E+00 0.40519950E+00 0.11749786E-01-0.76143019E-01
+ 0.65943278E-01 0.78227133E-01-0.24041747E+00-0.48859108E-01
+-0.53506434E+00-0.33032450E+00-0.10122342E+00 0.79143211E-01
+-0.14064236E+00-0.84364615E-01 0.29860295E-02-0.22253854E-01
+ 0.39246804E+00-0.24812710E+00 0.40944198E+00-0.17673942E+00
+-0.78235663E-01 0.72178833E-01-0.16227914E+00 0.10302575E-01
+ 0.85755751E-01 0.64045298E+00 0.11233286E+01 0.36713567E+00
+-0.16331942E+00 0.12432953E+01 0.20128106E+00-0.23927681E+00
+ 0.27385575E+00 0.72312951E-01-0.94199336E+00-0.33690757E+00
+-0.17330156E+00-0.81343490E+00 0.69725722E-01 0.41456182E-01
+-0.43618813E-03-0.84605128E-01 0.24982797E+00-0.22805035E-01
+-0.59726271E-02 0.38705333E-02 0.30002026E-02 0.19159815E-02
+ 0.18420041E-01-0.37724916E-01 0.35234531E-02-0.43825819E-02
+-0.67331134E-02-0.10876593E-01-0.79003610E-02-0.13564546E-01
+-0.40359148E-02 0.42511482E-01 0.42690061E-01 0.78176362E-02
+-0.44241268E-02 0.61757568E-01 0.38225956E-01 0.16911132E-01
+-0.45007326E-01 0.18286875E-01-0.83427288E-01 0.43182421E-01
+ 0.80693150E-02-0.15373636E-02 0.29610468E-01-0.18918579E-01
+-0.18943191E-01-0.15242503E-01-0.12218372E-01-0.21460386E-01
+-0.98122187E-01-0.44038394E-03 0.17151907E-01 0.91914488E-02
+-0.88108525E-01 0.29710799E-01 0.37761092E-01-0.42912245E-01
+-0.14925539E+00-0.86556077E-01 0.32728366E-02-0.97887143E-02
+-0.35554547E-01-0.30815808E-01-0.29502632E-01 0.11506282E-01
+-0.96649574E-02 0.11226377E+00-0.22778022E+00 0.95754518E-03
+ 0.19735217E-01-0.19949598E-01-0.14575391E-01 0.80723669E-02
+ 0.10257792E-01 0.98831486E-03 0.21253310E-02 0.44467166E-03
+ 0.30331459E-01-0.68215737E-02-0.16475892E-01 0.66600149E-02
+-0.96909413E-02-0.23368848E-02 0.10803202E-01 0.18352592E-03
+ 0.94600813E-02 0.34825657E-02 0.29143477E-01 0.68724401E-01
+ 0.15268687E-01-0.34583665E-02-0.26248895E-01-0.41180071E-02
+-0.69923680E-02 0.78354776E-02-0.15067245E-01-0.50502356E-01
+ 0.26632205E-01-0.38117900E-01 0.12489504E-01 0.38269710E-01
+-0.23778917E-01-0.45978669E-02-0.10741331E-01 0.55188518E-01
+-0.19089222E-01 0.50233081E-02-0.68038455E-02 0.13171528E-01
+-0.79407496E-02-0.15828494E-02 0.69405884E-02-0.26731647E-02
+-0.18833794E-02 0.10679700E-01 0.77929986E-02 0.25170868E-01
+-0.12785459E-01-0.85407840E-02-0.88489456E-02 0.11496038E-01
+-0.64758729E-03-0.79743098E-02-0.92306349E-03-0.26192807E-03
+ 0.58631459E-02 0.11213572E-01 0.88310177E-02 0.19518093E-02
+ 0.98038837E-03-0.22055174E-02 0.15052836E-02 0.49419207E-02
+-0.49593612E-02-0.28198517E-02-0.11953374E-01-0.12248964E-01
+-0.72131357E-02 0.10401811E-01-0.17990725E-02-0.28054372E-02
+ 0.18662043E-02 0.27312081E+01-0.36635617E-03 0.16809828E-02
+ 0.35598597E-02 0.75279046E-02 0.53007563E-03 0.95740217E-03
+-0.22847112E-02-0.28182086E-03 0.21439911E+00 0.15668221E-01
+ 0.39947953E-01 0.18864455E-01 0.18349148E-01-0.73838946E-02
+-0.29964812E-01 0.16750785E-01 0.58596502E-02 0.98324704E+00
+-0.38888179E-01-0.89483615E-02-0.30634863E-01-0.57423547E-01
+ 0.13029807E-01 0.31853255E-01-0.39872225E-01 0.66098981E-02
+-0.71482211E-01-0.26525632E+00-0.19658718E-01-0.33415090E-01
+-0.51787488E-01 0.35274658E-01 0.85669100E-01-0.48909988E-01
+-0.21501379E-01-0.13290060E+01 0.17191923E+00-0.47023818E-01
+ 0.52566610E-01 0.13115127E+00-0.12865191E-01-0.10077955E+00
+ 0.11846802E+00 0.88568972E-02-0.13872875E+00 0.21173365E+00
+-0.49534766E-02 0.75430055E-02 0.31798299E-01-0.33703383E-01
+-0.59091616E-01 0.35570819E-01 0.11184796E-01 0.40687090E+00
+-0.11250211E+00 0.64376906E-01-0.24939286E-01-0.85930578E-01
+-0.26775303E-02 0.72211958E-01-0.74090555E-01-0.24171596E-01
+ 0.18235693E-01-0.32615599E+00-0.29267040E+00 0.70642778E-02
+ 0.11300360E-02-0.19541867E-02 0.65887659E-02 0.25641054E-03
+ 0.29901171E-03 0.10992618E-01 0.29850316E+00-0.32224572E+00
+-0.13626590E-01-0.15000732E-02-0.56463708E-02-0.13415891E-01
+ 0.31011614E-02 0.13834988E-01-0.92273327E-02 0.24425700E+00
+ 0.56881353E-01 0.36258149E-03 0.63643664E-01-0.37808134E-03
+-0.32947324E-01 0.38247403E-01 0.19941090E-01-0.57335582E-01
+ 0.87612174E-01 0.25150666E+00-0.19707844E-01-0.44863459E-01
+ 0.16167358E-01-0.10398516E-01 0.50344802E-01 0.68640865E-01
+-0.23492485E+00 0.11852225E+01 0.87067664E+00-0.62521182E-01
+ 0.42712395E-02 0.31809572E-01 0.21999139E-01-0.92716359E-01
+-0.10461421E+00-0.57572049E+00-0.91379106E+00 0.12106148E+01
+ 0.14713533E+00 0.49721982E-01 0.31173525E-01 0.14988387E+00
+ 0.74236974E-01-0.24920762E+00 0.37146536E+00-0.15066245E+01
+-0.33582768E+00 0.13240382E+00-0.49595794E+00-0.17519762E+00
+ 0.14915365E-01-0.31701419E+00-0.11277883E+00 0.11722958E+01
+-0.33704272E+00-0.16070234E+01-0.73385984E-01 0.44775617E+00
+-0.89496598E-01 0.11555021E+00-0.42885178E+00-0.43839565E+00
+ 0.61520100E+00-0.11530799E+01 0.13902967E+00 0.11537025E+00
+-0.13625573E-01-0.11211418E+00-0.90618208E-01 0.34417906E+00
+ 0.43181029E+00 0.19090471E+01-0.30285779E+00-0.14655380E+01
+-0.29066685E+00-0.22451898E+00-0.12008682E+00-0.50865197E+00
+-0.31707212E+00 0.65367371E+00-0.86626554E+00 0.25727086E+01
+ 0.11919091E+01-0.25942805E+00 0.98266923E+00 0.50214672E+00
+ 0.11235259E+00 0.75492084E+00 0.13290592E+00-0.35606391E+01
+ 0.50929976E+00 0.30332544E+01 0.46690202E+00-0.93843836E+00
+ 0.33491963E+00-0.23293011E+00 0.92977613E+00 0.81740057E+00
+-0.38443810E+00 0.52484918E+00-0.42313319E+00-0.31547219E-01
+-0.23082055E-01 0.98553799E-01 0.48045248E-01-0.29371861E+00
+-0.38383645E+00-0.16131206E+01 0.93166280E+00 0.74328411E+00
+ 0.15688561E+00 0.21910542E+00 0.11658286E+00 0.44385305E+00
+ 0.28195140E+00-0.46593127E+00 0.43430272E+00-0.11887656E+01
+-0.43771577E+00 0.14430624E+00-0.56061119E+00-0.36049953E+00
+-0.12475537E+00-0.52396154E+00-0.43358773E-01 0.28472085E+01
+-0.78438592E+00-0.16446294E+01-0.40643516E+00 0.59259111E+00
+-0.32095200E+00 0.95902123E-01-0.59256905E+00-0.44462144E+00
+ 0.10362735E-02-0.26521128E-01 0.73475315E-03 0.78305684E-01
+-0.87907061E-01-0.87850457E-02 0.68914322E-02-0.58439686E-02
+-0.10781294E-01 0.83343238E-02-0.22290355E-01 0.50302162E-02
+ 0.79541668E-01 0.76331988E-01-0.69553126E-02-0.10722160E-02
+-0.23844005E-02-0.24587914E-03 0.73374845E-01 0.11703365E+00
+ 0.75943522E-01-0.60151584E-01 0.15490431E+00 0.13585863E-01
+-0.18192250E-01 0.11195567E-01 0.70080832E-02-0.29040046E-01
+ 0.32617461E-01-0.60124036E-01-0.11059102E+00-0.43481726E-01
+ 0.27728144E-01 0.21420596E-01-0.26929742E-01 0.35609290E-01
+-0.37986711E-01 0.21261556E+00 0.65299794E-01-0.47157770E+00
+ 0.18923242E+00 0.89936638E-02 0.30793028E-02 0.21662014E-01
+ 0.45056507E-01-0.18105258E+00 0.52625749E-01-0.21388224E+00
+-0.12751260E+00-0.44269633E+00-0.68748944E-01 0.48228782E-01
+ 0.46695493E-01-0.61157331E-01-0.31314614E+00-0.65667820E+00
+-0.16174650E+00 0.18607917E+00-0.82700682E+00-0.49523894E-01
+ 0.11539982E+00-0.11283565E+00-0.42533660E-02 0.31864041E+00
+ 0.13107453E+00 0.33589387E+00 0.72368956E+00 0.48834573E-01
+-0.47290842E-02-0.90480998E-01 0.11117186E+00-0.19858018E+00
+ 0.16404297E-01-0.35947222E+00-0.23393697E+00 0.24125105E+00
+-0.40167990E+00-0.59507195E-01-0.12976588E-01 0.16296888E-02
+-0.64027645E-01 0.21480629E+00-0.16956283E+00 0.42124182E+00
+ 0.31029803E+00 0.24321973E+00 0.14924949E+00-0.11708120E+00
+-0.62503330E-01 0.91057926E-01 0.29138744E+00 0.99653769E+00
+ 0.11597233E+00-0.23700126E+00 0.11012855E+01 0.13280974E+00
+-0.17497236E+00 0.16628051E+00-0.11821241E-01-0.40243325E+00
+-0.14012007E+00-0.34927446E+00-0.10288903E+01-0.43111134E-01
+-0.44211321E-01 0.12559946E+00-0.10422827E+00 0.19184583E+00
+-0.12884370E-01-0.28929866E-02 0.62589170E-02-0.43417537E-02
+ 0.16956747E-02 0.30290781E-01-0.54206152E-01 0.47972486E-02
+-0.54383771E-02-0.18483959E-02-0.49267081E-02-0.35054756E-02
+-0.10494787E-02-0.31706650E-03 0.53946707E-01 0.46015918E-01
+ 0.77006100E-02-0.74489904E-02 0.28184274E-01 0.48737317E-01
+ 0.56083137E-02-0.11658832E-01 0.10535412E-01-0.77447735E-01
+ 0.14809875E-01-0.54364088E-02 0.26957258E-02 0.12003129E-01
+-0.48028270E-03-0.13672524E-01-0.10574406E-01-0.94266171E-02
+-0.67775045E-02-0.85156538E-01 0.66752793E-04 0.83940942E-02
+ 0.25840148E-01-0.82805589E-01 0.31506196E-01 0.41513219E-01
+-0.28803995E-01-0.18279599E+00-0.70030414E-01 0.43120938E-02
+-0.44541989E-03-0.10199835E-01-0.34188926E-01-0.19336939E-01
+ 0.11237562E-01-0.19958831E-01 0.87408088E-01-0.20651507E+00
+-0.62467060E-02 0.28983794E-01-0.82333675E-02-0.15517812E-01
+ 0.84783202E-02 0.52443543E-03 0.13247513E-02 0.27244100E-02
+ 0.20155314E-03 0.27045680E-01 0.32722121E-02-0.98290918E-02
+ 0.24848564E-02-0.12258626E-01 0.43838951E-02 0.21730985E-02
+ 0.14691027E-03 0.10895627E-01-0.70574167E-02 0.27331531E-01
+ 0.34686182E-01 0.11546563E-01-0.10812423E-01-0.11996835E-01
+-0.61492608E-02-0.16286846E-01 0.90343263E-02-0.16508182E-02
+-0.44392467E-01 0.24883408E-01-0.41023172E-01 0.30125706E-01
+ 0.19361736E-01-0.84361620E-02-0.86162388E-02-0.12216836E-01
+ 0.51103357E-01-0.75027507E-04 0.11774480E-01-0.37965027E-02
+ 0.73318430E-02-0.37572165E-02-0.29526060E-02 0.51077693E-02
+-0.20714712E-02-0.67285765E-02 0.69300095E-02 0.76303934E-02
+ 0.18072840E-01-0.92502227E-02-0.23002878E-02-0.76491982E-02
+ 0.66094738E-02 0.57324427E-02-0.36398084E-02 0.18937787E-02
+ 0.12494961E-03 0.95274886E-02 0.79445858E-02 0.87751141E-02
+-0.22462981E-02 0.10836435E-02 0.13684512E-02-0.88894583E-03
+ 0.21372179E-02-0.11187471E-02-0.17962216E-02-0.84776217E-02
+-0.32081937E-02-0.57096705E-02 0.51954137E-02 0.20163737E-02
+-0.19013528E-02 0.13429531E-02
diff --git a/input/glow_data/iri90/ccir13.asc b/input/glow_data/iri90/ccir13.asc
new file mode 100644
index 0000000..741260a
--- /dev/null
+++ b/input/glow_data/iri90/ccir13.asc
@@ -0,0 +1,715 @@
+ 0.65998969E+01-0.96180730E-01-0.18148595E-01 0.64034291E-01
+-0.14069435E-01-0.11540678E-01 0.66070836E-02 0.26406836E-01
+-0.39686030E-03 0.23210552E-01-0.22450823E-02-0.10104239E-01
+-0.12631579E-01-0.42413343E-01 0.80642931E-01 0.27393836E+00
+-0.16345827E+00-0.16899700E+00-0.32240987E+00 0.70448697E-01
+-0.77763997E-01-0.13244358E-01 0.30214982E-01-0.13424671E+00
+-0.17871724E-01 0.15353709E-01 0.17452030E+02 0.14823139E+01
+-0.10489835E+01-0.31613788E+00 0.14407470E+01-0.17907827E+00
+ 0.29510629E+00-0.22444358E-01 0.21991573E+00-0.10238969E+01
+ 0.21552382E+00 0.43258831E+00 0.30413870E-01-0.42824140E+01
+-0.43370719E+01 0.27843063E+01 0.32597795E+01 0.52011843E+01
+ 0.38541880E+01-0.19715509E+01 0.21992905E+01 0.23029692E+01
+-0.60228556E+00 0.22066264E+01 0.23972336E-01-0.80908841E+00
+-0.11069540E+03-0.47234511E+01 0.81807337E+01-0.57918835E+01
+-0.15985530E+02 0.41825180E+01 0.31950969E+00-0.15979006E+01
+-0.29805335E+00 0.65984240E+01-0.15701975E+01-0.28786166E+01
+-0.55098748E+00 0.53160348E+01 0.72372947E+01-0.31718040E+02
+-0.84363041E+01-0.20782209E+02-0.15876794E+02 0.10275279E+02
+-0.12953021E+02-0.18293257E+02 0.30118990E+01-0.10225961E+02
+ 0.10002422E+01 0.57159657E+01 0.22316840E+03 0.88046808E+01
+-0.19268261E+02 0.27535299E+02 0.49745659E+02-0.14210365E+02
+-0.63509369E+01 0.59100389E+01-0.75693429E+00-0.15410734E+02
+ 0.43323641E+01 0.69434185E+01 0.26285546E+01 0.29579544E+02
+ 0.18237551E+02 0.82377556E+02 0.84427804E+00 0.30343164E+02
+ 0.29563707E+02-0.19898548E+02 0.30717596E+02 0.48212425E+02
+-0.59438219E+01 0.19914419E+02-0.42029824E+01-0.14977191E+02
+-0.20669727E+03-0.11006776E+02 0.17986933E+02-0.39454205E+02
+-0.59185928E+02 0.16635517E+02 0.11510051E+02-0.69961228E+01
+ 0.14310032E+01 0.15335248E+02-0.50885744E+01-0.70506644E+01
+-0.39190328E+01-0.65092957E+02-0.45056271E+02-0.80958855E+02
+ 0.13474419E+02-0.17513617E+02-0.25489252E+02 0.16221642E+02
+-0.31921728E+02-0.51784859E+02 0.50485601E+01-0.17261196E+02
+ 0.55830841E+01 0.16545364E+02 0.74110527E+02 0.55856385E+01
+-0.58897896E+01 0.18034472E+02 0.23959206E+02-0.63647890E+01
+-0.57852674E+01 0.26369393E+01-0.59193814E+00-0.55258875E+01
+ 0.21282353E+01 0.25619016E+01 0.18311784E+01 0.34186604E+02
+ 0.23974506E+02 0.27236195E+02-0.89847775E+01 0.29195013E+01
+ 0.82554817E+01-0.46716986E+01 0.12058103E+02 0.19580334E+02
+-0.15368044E+01 0.54791775E+01-0.23879936E+01-0.65005140E+01
+-0.24007400E-01 0.21675975E+01 0.11725757E+01 0.50758090E-01
+ 0.13093476E-01-0.23201449E-01 0.38342886E-01 0.48389513E-01
+ 0.63410657E-02 0.44442564E-01 0.19522274E-01-0.27899284E-01
+-0.14491891E-02-0.34519996E-01-0.11496038E+01 0.21471732E+01
+-0.14192484E+00 0.68746604E-01-0.33114925E-01-0.61117645E-01
+ 0.42638432E-01 0.90309959E-02-0.28206121E-01-0.93916431E-02
+-0.10890185E-01 0.86654341E-02-0.62337194E-01 0.79887128E+00
+ 0.91313583E+00-0.18493378E+00 0.26627880E+00 0.28355405E+00
+ 0.51949298E+00 0.11120747E+00 0.27354652E+00-0.12354252E+00
+-0.27485764E-01-0.33132059E-02 0.10892819E+00-0.26281741E+00
+ 0.44478518E+00 0.60648137E+00-0.41248816E+00 0.25587833E+00
+-0.95881902E-01-0.33539433E-01 0.57145733E+00 0.13682042E+00
+-0.25388572E+00-0.10539193E+00 0.25895587E+00-0.85921496E-01
+ 0.27832451E+01 0.16864960E+02 0.40619507E+01-0.20387976E+01
+ 0.93537444E+00 0.16030459E+01 0.35865560E+00-0.70939946E+00
+ 0.63179672E+00-0.16262046E+01 0.22060844E+00 0.10916179E+01
+-0.26890588E+00-0.38157611E+01-0.31960356E+01 0.17024626E+02
+ 0.35198452E+01 0.14320093E+01-0.42652923E+00 0.44432792E+00
+-0.12067032E+00-0.51051909E+00 0.10688665E+01 0.34004807E+00
+ 0.25413656E+00-0.20112856E+00 0.69541912E+01-0.18067736E+02
+ 0.91149321E+01 0.38701576E+00 0.36137350E+01-0.53189068E+01
+-0.11495462E+02-0.10826284E+01-0.27792187E+01 0.27802820E+01
+ 0.12037225E+01-0.14036686E+01-0.12014115E+01 0.12424923E+02
+-0.22949505E+02-0.12072407E+02 0.37552617E+01-0.35413680E+01
+ 0.57876983E+01 0.79935116E+00-0.93507385E+01-0.10703611E+01
+ 0.37773585E+01 0.11066062E+01-0.40062089E+01-0.51845562E+00
+-0.17640097E+02-0.10663563E+03 0.76676788E+02 0.15154503E+02
+-0.11779245E+02-0.14249015E+02-0.23536947E+01 0.50884314E+01
+-0.77559652E+01 0.10476252E+02-0.28326011E+01-0.80197392E+01
+ 0.17742889E+01 0.41513287E+02-0.97553841E+02-0.95567078E+02
+-0.19530249E+02-0.16382975E+02 0.50004249E+01 0.46859521E+00
+ 0.59307051E+00 0.33864222E+01-0.85503206E+01-0.49351854E+01
+-0.36469856E+00 0.17972651E+01-0.50485680E+02 0.11387515E+03
+-0.35196548E+02 0.13647220E+02-0.18866581E+02 0.35348217E+02
+ 0.61966629E+02 0.28466079E+01 0.12943146E+02-0.17173031E+02
+-0.69480538E+01 0.11160711E+02 0.54356551E+01-0.10127907E+03
+ 0.11782328E+03 0.68567123E+02-0.27491049E+02 0.10630718E+02
+-0.37230160E+02-0.21067333E+01 0.51232288E+02 0.83989620E+01
+-0.19422342E+02-0.21974294E+01 0.19062983E+02 0.78485546E+01
+ 0.37536377E+02 0.21429555E+03-0.35160019E+03-0.42891769E+02
+ 0.40961739E+02 0.44047215E+02 0.81962329E+00-0.13827250E+02
+ 0.28208015E+02-0.26970650E+02 0.91622019E+01 0.21888941E+02
+-0.39068761E+01-0.13467381E+03 0.43239706E+03 0.16293761E+03
+ 0.55668144E+02 0.53183456E+02-0.12969423E+02-0.54627337E+01
+-0.22841866E+01-0.78471823E+01 0.25674978E+02 0.17792437E+02
+-0.14446113E+01-0.57079659E+01 0.15792365E+03-0.30741367E+03
+ 0.12066244E+02-0.73300522E+02 0.21158731E+02-0.10123546E+03
+-0.13733231E+03 0.33357602E-01-0.29374790E+02 0.42309250E+02
+ 0.14585931E+02-0.30827669E+02-0.13427900E+02 0.27333496E+03
+-0.24579082E+03-0.17028867E+03 0.87392265E+02-0.19682516E+02
+ 0.87100410E+02 0.28480635E+01-0.12049124E+03-0.31395855E+02
+ 0.46579369E+02-0.16486955E+01-0.39088516E+02-0.23570745E+02
+-0.31926086E+02-0.18912199E+03 0.49377734E+03 0.51254738E+02
+-0.55447197E+02-0.56824291E+02 0.64984670E+01 0.14788384E+02
+-0.39874298E+02 0.31675289E+02-0.11539883E+02-0.25417494E+02
+ 0.36541965E+01 0.17872554E+03-0.60567108E+03-0.10871112E+03
+-0.77059822E+02-0.71071373E+02 0.11870968E+02 0.10181161E+02
+ 0.38203001E+01 0.61157165E+01-0.31524561E+02-0.23383059E+02
+ 0.37743144E+01 0.61833124E+01-0.22133595E+03 0.37228479E+03
+ 0.54766731E+02 0.12162727E+03 0.21483109E+01 0.12726328E+03
+ 0.13672382E+03-0.70452433E+01 0.30163021E+02-0.44665485E+02
+-0.12745265E+02 0.35419662E+02 0.16225985E+02-0.29494229E+03
+ 0.23506215E+03 0.19200447E+03-0.10832544E+03 0.29829510E+02
+-0.84662743E+02-0.59570804E+01 0.12735707E+03 0.48301052E+02
+-0.52132950E+02 0.77952442E+01 0.36343361E+02 0.26745314E+02
+ 0.91377707E+01 0.66141739E+02-0.22206757E+03-0.21895306E+02
+ 0.25961342E+02 0.26107534E+02-0.57225599E+01-0.50952439E+01
+ 0.19250315E+02-0.14170377E+02 0.50944929E+01 0.10638086E+02
+-0.13205591E+01-0.84391235E+02 0.27314240E+03 0.24791868E+02
+ 0.38730942E+02 0.33692513E+02-0.33924561E+01-0.61104679E+01
+-0.23151672E+01-0.92081583E+00 0.13415736E+02 0.10256060E+02
+-0.23337302E+01-0.19138920E+01 0.11088846E+03-0.16574039E+03
+-0.44082218E+02-0.64954468E+02-0.86842918E+01-0.57481571E+02
+-0.51243740E+02 0.55801930E+01-0.11060497E+02 0.16775259E+02
+ 0.39023740E+01-0.14520377E+02-0.73669624E+01 0.11177200E+03
+-0.84463303E+02-0.81101242E+02 0.44699486E+02-0.19768431E+02
+ 0.28911020E+02 0.49595222E+01-0.49829720E+02-0.25354982E+02
+ 0.21757786E+02-0.52241926E+01-0.12592972E+02-0.10411530E+02
+ 0.30574529E-01-0.31148717E-01-0.33901516E-01-0.87049460E+00
+ 0.20368204E+00-0.32607842E-01-0.16634515E-01 0.27669171E-01
+ 0.36947880E-01 0.47631604E-02 0.34091142E-02-0.23116291E-01
+ 0.21287642E-01 0.58895037E-01 0.15586518E-01 0.69088846E-01
+-0.21127127E+00-0.80712038E+00-0.14075822E-01-0.17555034E-01
+-0.16835840E-01 0.10679643E-01-0.12162154E-01-0.73469672E-02
+-0.37808849E-02 0.10991140E-02 0.62006795E+00 0.13560387E+00
+ 0.16468419E+00 0.99273920E-01-0.26552621E+00 0.37287197E+00
+-0.35812023E+00-0.19624999E-01 0.44019237E-01-0.16461620E+00
+ 0.20510979E-01-0.11776922E+00 0.38004402E-01 0.10694618E+01
+ 0.31023821E+00 0.14203931E+00-0.43358117E-01 0.10166671E+00
+ 0.41650143E+00 0.48760930E+00-0.12005379E+00 0.97967356E-01
+-0.15563516E+00-0.22586857E+00 0.49013641E-01-0.20813970E-01
+ 0.18206578E+01-0.41084620E+00 0.27921236E+01 0.24209125E+01
+ 0.16685303E+01-0.28808552E+00-0.90014291E+00-0.50827670E+00
+-0.45300135E+00-0.35001542E-01 0.36338080E-01 0.24220033E+00
+-0.31733364E+00 0.43253836E+00-0.63174385E+00 0.50231868E+00
+-0.17871255E+01 0.42565956E+01-0.41577759E+00-0.12443371E-01
+ 0.90635931E+00-0.81871720E-02 0.12240939E+00-0.58664852E+00
+ 0.16192600E-01-0.34534615E-01-0.39647148E+01 0.33445108E+00
+-0.17875113E+01 0.35496018E+01 0.51491537E+01-0.33950496E+01
+ 0.13043875E+01 0.25871399E+00 0.68523347E-01 0.13834658E+01
+ 0.79948354E+00 0.91803938E+00-0.45803875E-01-0.64467540E+01
+-0.20690763E+01 0.49838591E+00-0.82725680E+00 0.50504017E+01
+-0.24308875E+01-0.33799708E+01 0.58349323E+00-0.12550083E+01
+ 0.10462335E+01 0.23345358E+01-0.70762014E+00 0.51471233E+00
+-0.15008719E+02 0.14641236E+02-0.20451660E+02 0.19731981E+02
+ 0.55634995E+01 0.25407569E+01 0.62443280E+01 0.28349652E+01
+ 0.24219623E+01-0.96738261E+00-0.41830257E+00-0.83132789E-01
+ 0.83228946E+00-0.45921922E+01 0.10040653E+02-0.35055692E+01
+-0.40767598E+01 0.60929508E+01 0.75083405E+00 0.31848945E-01
+-0.46174974E+01-0.34868580E+00 0.49051598E+00 0.39066932E+01
+ 0.55248684E+00-0.44293070E+00 0.63590775E+01-0.54019079E+01
+ 0.35216527E+01-0.11525576E+02-0.16511587E+02 0.75384369E+01
+-0.19127115E+01-0.46861181E+00-0.16359047E+01-0.28776963E+01
+-0.27371666E+01-0.23561432E+01-0.15143438E+00 0.10229012E+02
+ 0.11192629E+01-0.24896045E+01 0.21574695E+01-0.16082794E+02
+ 0.50335708E+01 0.60995483E+01 0.46528451E-01 0.44228539E+01
+-0.24760296E+01-0.58701057E+01 0.17978436E+01-0.14681013E+01
+ 0.34721951E+02-0.42912174E+02 0.43504799E+02-0.63420731E+02
+-0.24599474E+02-0.63787656E+01-0.11826031E+02-0.60871482E+01
+-0.45813766E+01 0.32331924E+01 0.11356505E+01-0.13086146E+01
+-0.20494525E+00 0.13705240E+02-0.26223623E+02 0.63174248E+01
+ 0.21032364E+02-0.33421906E+02 0.69371116E+00 0.33373719E+00
+ 0.82973967E+01 0.57793902E-02-0.35463052E+01-0.80484915E+01
+-0.15746634E+01 0.11740108E+01-0.34624617E+01 0.80138206E+01
+-0.30727046E+01 0.99697714E+01 0.14296803E+02-0.47378635E+01
+ 0.91392756E+00 0.25849405E+00 0.23256736E+01 0.17453274E+01
+ 0.22083228E+01 0.17524531E+01 0.13290420E+00-0.44886589E+01
+ 0.27600312E+01 0.26766870E+01-0.16193961E+01 0.12873305E+02
+-0.35492828E+01-0.32382324E+01-0.82338858E+00-0.40521255E+01
+ 0.16536398E+01 0.42015963E+01-0.11780934E+01 0.11460971E+01
+-0.24425175E+02 0.32594193E+02-0.26974190E+02 0.44860214E+02
+ 0.18794016E+02 0.41103082E+01 0.71137915E+01 0.43121295E+01
+ 0.26971650E+01-0.24290116E+01-0.88320661E+00 0.13616098E+01
+-0.47190940E+00-0.12868726E+02 0.17487787E+02-0.35085900E+01
+-0.16604246E+02 0.24305555E+02-0.93955803E+00-0.42676285E+00
+-0.49368086E+01 0.68438685E+00 0.36197155E+01 0.52519341E+01
+ 0.11007043E+01-0.74931699E+00-0.15135266E+00-0.28601021E-02
+-0.89310557E-01-0.33103667E-01 0.79293363E-01-0.50901473E+00
+-0.82532144E+00 0.27812915E-01 0.20369733E-01 0.24551898E-01
+ 0.18150743E-01-0.15981859E-01 0.17871849E-01 0.47308975E-02
+-0.10820430E+00 0.30828558E-01 0.20033805E-01 0.29000906E-01
+ 0.75493073E+00-0.47701424E+00 0.32587885E-02 0.46372235E-01
+-0.10304347E-01-0.20734092E-01 0.25965128E-01-0.58355234E-02
+-0.30175501E-01 0.29149768E+00-0.15922238E+00-0.23880073E+00
+-0.31934550E+00-0.21410786E+00-0.14080049E+00-0.13714211E+00
+ 0.11907785E+00 0.39285958E-01 0.14231239E+00 0.47506593E-01
+-0.21241790E-01-0.11470716E+00 0.12420133E+00-0.40786356E-01
+-0.17982394E+00 0.13026784E+00 0.35654244E+00-0.31161553E+00
+-0.22107504E+00 0.22054937E-01-0.22563413E-01-0.27322270E-01
+ 0.78594657E-02 0.29850721E-01 0.91586936E+00 0.45026922E+00
+ 0.85786003E+00 0.57185078E+00-0.34676486E+00 0.13745323E+01
+ 0.23583150E+01-0.16617003E+00-0.55329833E-01-0.98012596E-01
+-0.80390774E-01 0.74126594E-01-0.24377277E-01-0.41545358E+00
+ 0.12106431E+01-0.93434161E+00 0.17056143E+00-0.64522797E+00
+-0.23836486E+01 0.16357204E+01-0.10281745E+00-0.50418901E+00
+ 0.29982610E-01-0.91422498E-01-0.29078582E+00 0.26920128E-02
+-0.32012030E+00-0.33131790E+00 0.44400707E+00 0.35786450E+00
+ 0.46332926E+00 0.39637893E+00 0.22233669E+00 0.42943186E+00
+-0.11153209E+00-0.72281212E-01-0.15658084E+00-0.14401633E+00
+ 0.95212579E-01 0.34326747E+00-0.40543489E-01 0.20303135E+00
+-0.67969397E-01-0.69856882E-01-0.80425566E+00 0.52323300E+00
+ 0.22219919E+00 0.59583042E-01 0.29945867E-01 0.43922316E-01
+-0.15566495E-01-0.91002490E-02-0.44131538E+00-0.30327237E+00
+-0.92330801E+00-0.77402663E+00 0.13792758E+00-0.20475721E+01
+-0.27376485E+01 0.10802826E+00-0.65257788E-01 0.78867815E-01
+ 0.10399983E+00 0.14911513E-01-0.53068724E-01 0.66848314E+00
+-0.16395499E+01 0.17826374E+01-0.61707690E-01 0.10942951E+01
+ 0.34093125E+01-0.27390239E+01 0.11946615E+00 0.77287668E+00
+ 0.62772550E-01 0.15083092E+00 0.45553604E+00-0.37019581E-01
+ 0.21583674E-01 0.64543181E-03-0.51576743E-03 0.58179975E-01
+ 0.27645398E-01 0.17042680E-01 0.23695769E-01 0.30250359E+00
+-0.15979145E+00 0.11132521E-01 0.16834151E-01-0.14365312E-01
+-0.20031256E-02 0.37123345E-01 0.31039350E-01-0.32179166E-01
+ 0.90723867E-02-0.57725228E-01 0.15170093E-01 0.13725638E-01
+ 0.11982990E+00 0.30412433E+00 0.16133197E-01 0.21785465E-02
+ 0.67538638E-02-0.11140665E-01-0.14433794E-02 0.11381988E+00
+-0.10765873E+00-0.10239576E+00-0.81107587E-01-0.61356392E-01
+ 0.38089089E-01 0.56286909E-01 0.27529791E-01-0.90354122E-01
+ 0.81266269E-01 0.29821135E-03 0.13847735E-01 0.18724556E+00
+ 0.95570683E-02-0.21760223E-01 0.13237505E+00 0.12431903E+00
+-0.66988245E-01-0.10429621E+00-0.10871855E-01-0.82563132E-03
+-0.46499770E-01-0.35336360E-01 0.74498006E-02-0.50428421E-02
+-0.87156013E-01 0.10371949E-01-0.10520714E+00 0.13535339E-01
+-0.12469280E-01 0.89040743E-02 0.31624246E-01 0.37560670E-02
+-0.11854895E-01 0.15747434E+00 0.22601800E+00-0.16246822E-01
+-0.11745606E-01 0.61789237E-01 0.55235770E-01-0.75306934E-02
+-0.16015360E-01-0.22144977E-01 0.42483758E-01-0.94584087E-02
+-0.29955334E-04-0.20362385E-01-0.22954023E+00 0.14123079E+00
+ 0.11846971E-01-0.48866938E-02 0.41830935E-01-0.25836842E-01
+ 0.33995997E-01-0.30328436E-02-0.43513537E-02 0.32394242E-01
+ 0.24555236E-01 0.15828688E-01-0.14602708E-01 0.79171928E-02
+-0.24579484E-02-0.12720145E+00 0.61430719E-01 0.11831303E-01
+ 0.48629563E-01-0.36074687E-01 0.10915471E-01 0.65989299E-02
+ 0.81955465E-02-0.26336169E-01-0.81899911E-02-0.11951329E-01
+-0.18219600E-01-0.14673570E-01-0.55252794E-01-0.12856482E+00
+-0.18628046E-01-0.58445823E-02-0.82438067E-01 0.24269113E-01
+ 0.24777478E-01-0.10445634E-01-0.56395708E-02 0.88527258E-02
+-0.72764154E-02 0.19107535E-03-0.24804156E-01 0.88188238E-02
+ 0.33777929E-02 0.22041786E-01 0.75239100E-01 0.32701142E-01
+-0.36235764E-02 0.28052095E-01 0.17236874E-01 0.44026822E-03
+-0.37383433E-01 0.11369155E-02 0.21209640E-02 0.54265251E-02
+ 0.13008385E-02 0.85698189E-02 0.10458428E-01-0.10118044E-02
+-0.77243894E-01 0.30200144E-04 0.16539751E-01-0.37585138E-02
+ 0.45206282E-01-0.19975781E-01 0.64657149E-02 0.45526298E-02
+-0.13365079E-01 0.17035095E-01 0.60681752E-02-0.31197891E-01
+ 0.27110072E-01-0.81724217E-02 0.53124398E-01-0.37347758E-03
+-0.60616857E-02 0.15380551E-01 0.24982348E-01 0.43096016E-02
+-0.35201445E-01-0.23587819E-01-0.47319382E-02 0.29201475E-02
+ 0.93594637E+01 0.11758081E-01 0.84277675E-01 0.73569529E-01
+ 0.11903162E-01-0.44155386E-02-0.15138906E-01 0.74017155E-02
+-0.15588634E-01 0.36506962E-01-0.14251899E-02-0.65558045E-02
+-0.18775851E-02 0.88674414E+00 0.51994503E-01 0.62100869E-02
+-0.30662936E+00-0.13489079E+00-0.16742069E+00-0.27921739E+00
+-0.73416762E-01-0.51260434E-01 0.34743927E-01-0.64074233E-01
+-0.14990614E-01-0.33514559E-01 0.29466911E+02-0.10430388E+01
+-0.17538368E+01 0.64629501E+00 0.15527004E+01-0.81919432E+00
+ 0.24933697E+00 0.21972425E+00 0.14215918E+00-0.14595740E+01
+ 0.24961294E+00 0.30417073E+00-0.55456981E-01-0.67446027E+01
+ 0.40613857E+00 0.46058164E+01 0.29142275E+01 0.43435960E+01
+ 0.19936315E+01 0.27405980E+01 0.19893142E+01 0.26587334E+01
+-0.36289024E+00 0.87958097E+00 0.43432501E+00 0.45760855E+00
+-0.14369508E+03 0.82375011E+01 0.86440678E+01-0.11147148E+02
+-0.15416179E+02 0.78732028E+01 0.98172742E+00-0.10455229E+01
+ 0.79332030E+00 0.88577414E+01-0.20928278E+01-0.17485448E+01
+-0.37013805E+00-0.38804274E+01-0.24045439E+02-0.22236847E+02
+-0.39119647E+01-0.14422157E+02-0.11314327E+02-0.11605090E+02
+-0.11023640E+02-0.19990587E+02 0.18404472E+01-0.36433988E+01
+-0.19584160E+01-0.16701306E+01 0.24726463E+03-0.13912273E+02
+-0.16638878E+02 0.39193115E+02 0.45437634E+02-0.20975456E+02
+-0.71870809E+01 0.10358952E+01-0.41288266E+01-0.20344755E+02
+ 0.61743193E+01 0.37249963E+01 0.23654854E+01 0.73438400E+02
+ 0.85878952E+02 0.28821287E+02-0.12087472E+02 0.15061758E+02
+ 0.27009087E+02 0.25284414E+02 0.25017273E+02 0.52237434E+02
+-0.39412918E+01 0.60525670E+01 0.32629383E+01 0.20258255E+01
+-0.20673763E+03 0.37566130E+01 0.14237963E+02-0.50470264E+02
+-0.52279778E+02 0.21282154E+02 0.11163842E+02 0.52002543E+00
+ 0.55029087E+01 0.20240622E+02-0.74278593E+01-0.33429351E+01
+-0.35941296E+01-0.11962262E+03-0.10679832E+03-0.54719863E+01
+ 0.29441711E+02-0.20143695E+01-0.27501472E+02-0.26564098E+02
+-0.25437061E+02-0.56287434E+02 0.34835873E+01-0.41210556E+01
+-0.22583303E+01-0.41311565E+00 0.69616798E+02 0.29591665E+01
+-0.46051245E+01 0.21710459E+02 0.20603981E+02-0.72812696E+01
+-0.51570253E+01-0.75040758E+00-0.23034899E+01-0.73399339E+01
+ 0.31145618E+01 0.10590287E+01 0.16675494E+01 0.55920959E+02
+ 0.44685562E+02-0.57169757E+01-0.16177469E+02-0.28279176E+01
+ 0.99622288E+01 0.10504270E+02 0.95728416E+01 0.21457167E+02
+-0.10309284E+01 0.88172013E+00 0.53643727E+00-0.38652459E+00
+-0.91051519E-01 0.16604546E+01 0.15699625E+01 0.76715745E-01
+ 0.43537375E-01-0.13598571E-01 0.49196340E-01 0.54983906E-02
+-0.43234859E-01 0.35610504E-01 0.33476464E-01-0.23877524E-01
+-0.35067947E-03 0.12912868E+00-0.15785012E+01 0.15362040E+01
+-0.14700162E+00 0.59193391E-01-0.35832047E-01-0.21853298E-01
+ 0.66302014E-02 0.16508466E-01 0.10124203E-01 0.11756688E-01
+-0.16161023E-01-0.59979502E-02-0.84079015E+00 0.12545848E+01
+-0.53319615E+00-0.38466421E+00 0.71295905E+00 0.44927454E+00
+ 0.46575686E+00 0.96385442E-01 0.24827370E+00-0.49310956E-01
+-0.60446393E-01-0.82794242E-01 0.53030346E-01 0.93256634E+00
+-0.20340858E+00 0.24310616E+00-0.10172791E+00 0.75127995E+00
+ 0.97861588E-01 0.30854341E+00 0.39208809E+00 0.25966071E-01
+-0.73293775E-01-0.10588093E+00 0.91211334E-01-0.16803257E+00
+ 0.31397121E+01 0.17180098E+02-0.13800441E+02 0.70740975E-01
+ 0.46341306E+00 0.14315274E+00-0.44296429E-01 0.59252042E+00
+ 0.15348610E+01-0.11630143E+01-0.22830707E+00 0.94050133E+00
+-0.27207699E+00-0.83226357E+01 0.16027706E+02 0.18227182E+02
+ 0.24127638E+01 0.16124903E+01 0.64143932E+00-0.48962837E+00
+ 0.14949485E+01-0.68322599E+00-0.83393383E+00-0.21246544E+00
+ 0.36369675E+00 0.15471225E-01 0.25553751E+02-0.20131190E+01
+ 0.26365784E+02-0.37747600E+01-0.64699745E+01-0.78558393E+01
+-0.10889877E+02-0.23848505E+00-0.30194924E+01 0.15077212E+01
+ 0.17867323E+01 0.61363947E+00-0.83897740E+00-0.97228460E+01
+-0.83611345E+01 0.63290434E+01 0.16351886E+01-0.20032827E+02
+ 0.44843369E+01-0.30204687E+01-0.67688684E+01 0.79144502E+00
+ 0.25467318E+00 0.99470073E+00-0.17565970E+01 0.14626296E+01
+-0.19355894E+02-0.47454216E+02 0.12098093E+03-0.89022665E+01
+-0.42745748E+01-0.45515871E+01 0.30617993E-01-0.31281152E+01
+-0.12787308E+02 0.67629743E+01 0.81136113E+00-0.72239995E+01
+ 0.21611481E+01 0.77719887E+02-0.15284087E+03-0.28094072E+02
+-0.12935537E+02-0.18593321E+02-0.32531598E+01 0.55940328E+01
+-0.11318358E+02 0.32409825E+01 0.75526614E+01 0.48537755E+00
+-0.15223314E+01 0.88688987E+00-0.16509648E+03-0.13600343E+02
+-0.14347475E+03 0.67285439E+02 0.29329416E+02 0.45942951E+02
+ 0.55822559E+02-0.64459381E+01 0.13185073E+02-0.11480048E+02
+-0.14453205E+02-0.30418870E+00 0.47256918E+01 0.55850414E+02
+ 0.47293289E+02-0.38787140E+02-0.14584154E+02 0.12430083E+03
+-0.31622999E+02 0.13420869E+02 0.35762138E+02-0.36125880E+00
+-0.15479681E+01-0.12744308E+01 0.86030378E+01-0.44953423E+01
+ 0.38700024E+02-0.28222193E+02-0.30419247E+03 0.39386944E+02
+ 0.15715430E+02 0.20906570E+02-0.27541671E+01 0.65622759E+01
+ 0.40180477E+02-0.16013824E+02-0.15492724E+01 0.20418951E+02
+-0.60262113E+01-0.24083032E+03 0.41435196E+03-0.13463223E+03
+ 0.38008816E+02 0.62823856E+02 0.78923759E+01-0.17364424E+02
+ 0.29752794E+02-0.36583562E+01-0.22033194E+02-0.86091971E+00
+ 0.23167665E+01-0.40712471E+01 0.43789868E+03 0.37758240E+02
+ 0.30222437E+03-0.25211705E+03-0.68283501E+02-0.12247941E+03
+-0.11544855E+03 0.29691120E+02-0.26862541E+02 0.32532574E+02
+ 0.40526028E+02-0.55368447E+01-0.12097772E+02-0.16987953E+03
+-0.98175888E+02 0.93504860E+02 0.44424995E+02-0.31534625E+03
+ 0.75678284E+02-0.27929533E+02-0.75439156E+02-0.14984094E+02
+ 0.86548948E+01-0.38562276E+01-0.19092201E+02 0.82323360E+01
+-0.28264292E+02 0.16086139E+03 0.33062650E+03-0.60156818E+02
+-0.25561420E+02-0.33909615E+02 0.69856234E+01-0.67728324E+01
+-0.52560555E+02 0.17889961E+02 0.16138614E+01-0.24223919E+02
+ 0.70134716E+01 0.30368719E+03-0.46959631E+03 0.33666513E+03
+-0.55255219E+02-0.86959816E+02-0.90647640E+01 0.22722628E+02
+-0.31628498E+02-0.20313892E+01 0.26141891E+02 0.15387295E+01
+-0.10764118E+01 0.55649915E+01-0.51269446E+03-0.24774500E+02
+-0.26924051E+03 0.35456693E+03 0.72959488E+02 0.14845412E+03
+ 0.10644101E+03-0.44661758E+02 0.25646076E+02-0.38323627E+02
+-0.45829033E+02 0.11802900E+02 0.13949016E+02 0.23760629E+03
+ 0.85215302E+02-0.10850819E+03-0.47027061E+02 0.35732697E+03
+-0.74357651E+02 0.24879040E+02 0.67221268E+02 0.34626274E+02
+-0.15760853E+02 0.95299788E+01 0.20570358E+02-0.99656239E+01
+ 0.57932053E+01-0.10340132E+03-0.13253651E+03 0.30239813E+02
+ 0.14212955E+02 0.18223082E+02-0.44180136E+01 0.29476216E+01
+ 0.24200890E+02-0.79207344E+01-0.70972711E+00 0.10236231E+02
+-0.29160755E+01-0.13413786E+03 0.19037309E+03-0.19506718E+03
+ 0.28727461E+02 0.42836147E+02 0.36783912E+01-0.11200485E+02
+ 0.11366664E+02 0.33454440E+01-0.10977008E+02-0.10146281E+01
+-0.15341072E+00-0.23435018E+01 0.21834229E+03-0.54074174E+00
+ 0.81919060E+02-0.17072711E+03-0.27865332E+02-0.65729042E+02
+-0.36894901E+02 0.22338470E+02-0.91411514E+01 0.15863236E+02
+ 0.18038870E+02-0.67405629E+01-0.59032989E+01-0.11627517E+03
+-0.24264631E+02 0.48176723E+02 0.13980582E+02-0.15089851E+03
+ 0.25507414E+02-0.73551226E+01-0.20702442E+02-0.20904865E+02
+ 0.87487831E+01-0.55933886E+01-0.86189528E+01 0.53419061E+01
+ 0.78886345E-01-0.29637566E+00-0.60464900E-01-0.71206862E+00
+ 0.59372735E+00-0.20558244E-01 0.48958015E-01 0.17571801E-01
+ 0.42676944E-02-0.61578038E-02 0.21608399E-01 0.51746960E-03
+-0.57962183E-02-0.11099774E-01-0.77226818E-01-0.35840608E-01
+-0.68324232E+00-0.71531457E+00-0.41512378E-01-0.81707286E-02
+-0.76341666E-02 0.20536058E-01 0.75761302E-04 0.10275762E-01
+-0.93738467E-03 0.10511260E-02 0.13842398E+01-0.49234234E-01
+ 0.12677437E-01-0.10571032E+01 0.10398120E+00 0.59301776E+00
+-0.14417675E+00-0.12642118E+00-0.50918173E-01-0.13518077E+00
+ 0.30521570E-01-0.12413521E+00-0.55086080E-01 0.13468280E+01
+ 0.45321479E+00 0.33050817E-01-0.19486007E+00-0.84212863E+00
+ 0.33315787E+00 0.56156081E+00-0.21251965E+00 0.18369167E+00
+-0.45716692E-01-0.15525161E+00-0.21887375E-02-0.13814416E-01
+ 0.13547544E+01 0.35052302E+01 0.39791517E+01-0.39452157E+01
+ 0.91488066E+01-0.59917301E+00-0.23404021E+01 0.19902436E+00
+ 0.28914595E+00 0.32449687E+00-0.30973130E+00-0.13093148E+00
+ 0.24543998E+00 0.93270177E+00 0.10100644E+01 0.21535051E+01
+-0.79689913E+01-0.27236195E+01 0.71202469E+00-0.46545181E+00
+ 0.11434031E+01-0.18245190E+00-0.40822005E+00-0.56782430E+00
+-0.14069527E-01-0.91296121E-01-0.10542483E+02 0.11633001E+00
+-0.27338638E+01 0.60308566E+01 0.38688369E+01-0.47813067E+01
+-0.80322623E-01 0.11000689E+01 0.13760308E+01 0.10471877E+01
+-0.10195704E+00 0.84878850E+00 0.67848611E+00-0.11052456E+02
+-0.35547700E+01-0.17437516E+01-0.14164073E+01 0.29000556E+01
+-0.17477272E+00-0.31872108E+01 0.15479761E+01-0.11199074E+01
+ 0.35770193E-01 0.15186522E+01-0.51870143E+00 0.42309412E+00
+-0.12578057E+02-0.68359613E+01-0.30894140E+02 0.29231524E+02
+-0.37497784E+02 0.42103472E+01 0.13634277E+02-0.23105447E+01
+-0.25411386E+01-0.20200241E+01 0.17991817E+01 0.12031139E+01
+-0.22861779E+01-0.45937929E+01 0.20954571E+01-0.12322830E+02
+ 0.30053967E+02 0.19175726E+02-0.63447361E+01 0.20542054E+01
+-0.71390734E+01-0.82132196E+00 0.34279492E+01 0.34167354E+01
+ 0.95250791E+00-0.24310125E+00 0.24285011E+02-0.33831913E+01
+ 0.87184391E+01-0.14099850E+02-0.16883636E+02 0.11646293E+02
+ 0.59411901E+00-0.24929807E+01-0.56281371E+01-0.20639105E+01
+ 0.36040890E+00-0.18116419E+01-0.17643514E+01 0.24702211E+02
+ 0.38919735E+01 0.61029816E+01 0.65146122E+01-0.22756846E+01
+-0.12218447E+01 0.49939814E+01-0.24445646E+01 0.28680899E+01
+-0.10368446E+00-0.39225392E+01 0.16193440E+01-0.12233027E+01
+ 0.28191441E+02 0.78694773E+00 0.64988586E+02-0.59622383E+02
+ 0.50546680E+02-0.93377047E+01-0.25691008E+02 0.49692044E+01
+ 0.66733646E+01 0.38342435E+01-0.33193257E+01-0.28077452E+01
+ 0.59086132E+01 0.68308530E+01-0.11145398E+02 0.20142715E+02
+-0.35770203E+02-0.34637836E+02 0.14650714E+02-0.28380070E+01
+ 0.14030188E+02 0.30224795E+01-0.93840456E+01-0.67304063E+01
+-0.30187075E+01 0.13366692E+01-0.19719049E+02 0.68867254E+01
+-0.97942524E+01 0.12571602E+02 0.16866741E+02-0.80991716E+01
+-0.60612911E+00 0.14781255E+01 0.55502706E+01 0.12907434E+01
+-0.25038749E+00 0.10915368E+01 0.11269934E+01-0.16954172E+02
+ 0.31211653E+01-0.45404301E+01-0.60521469E+01 0.81650001E+00
+ 0.11353194E+01-0.19928211E+01 0.10430180E+01-0.25809250E+01
+ 0.46962984E-01 0.30409884E+01-0.11915781E+01 0.96175605E+00
+-0.18254309E+02 0.40652580E+01-0.38976635E+02 0.37998058E+02
+-0.22253872E+02 0.54544687E+01 0.15347375E+02-0.28659797E+01
+-0.52428341E+01-0.22536197E+01 0.18733271E+01 0.18808317E+01
+-0.43471789E+01-0.42598801E+01 0.68740029E+01-0.86680889E+01
+ 0.13091699E+02 0.19776112E+02-0.94230890E+01 0.93041652E+00
+-0.87512522E+01-0.19371971E+01 0.73051834E+01 0.41424298E+01
+ 0.23743393E+01-0.12347583E+01-0.10308004E+00-0.11345814E+00
+-0.42388607E-01-0.54478396E-01 0.37894849E-01-0.71249014E+00
+-0.99690706E+00 0.42135198E-01-0.17244507E-01 0.18175337E-01
+ 0.22615835E-01 0.40037422E-02-0.35507255E-02-0.27820380E-01
+-0.77944390E-01 0.14688867E+00 0.16636178E-01 0.53211000E-01
+ 0.95628875E+00-0.70051461E+00 0.17104762E-01 0.31993400E-01
+-0.93262866E-02-0.18731829E-01 0.20413624E-01-0.50872733E-03
+ 0.29756284E+00 0.12934245E+00-0.18983012E+00 0.71824878E-01
+-0.41808215E+00-0.11720640E+00-0.41143602E+00-0.28631784E-01
+ 0.21437567E+00 0.25426921E-01 0.33951670E-01 0.75097620E-01
+-0.22934020E-01 0.60831457E-01 0.26703396E+00 0.11492737E+00
+-0.14872836E+00 0.15820681E+00 0.73452604E+00-0.15326773E+00
+-0.20186380E+00 0.79028957E-01-0.39597573E-02-0.69052177E-02
+-0.35170142E-02 0.39248485E-01 0.77993286E+00 0.11083744E+01
+ 0.43744072E+00 0.59175074E+00 0.27468514E+00 0.27732401E+01
+ 0.21687400E+01-0.25144777E+00 0.20495271E-01-0.25761271E-01
+ 0.13951994E-02-0.70093565E-01 0.10886874E+00-0.10175124E+01
+ 0.14403582E+01-0.19194679E+01 0.23482410E-01-0.27122623E+00
+-0.25169380E+01 0.30849991E+01-0.93018368E-01-0.32557723E+00
+-0.32845687E-01 0.71069151E-01-0.18071032E+00-0.11195786E+00
+-0.68460888E+00 0.29701370E+00 0.60023886E+00 0.74086197E-01
+ 0.98181754E+00 0.17232137E-01 0.71498251E+00 0.15950713E+00
+-0.32126063E+00-0.25459521E-01 0.10034926E+00-0.21438281E+00
+ 0.80607370E-01 0.29350964E-01-0.52844387E+00-0.36183974E+00
+-0.28149527E+00 0.92464551E-01-0.15573705E+01-0.51209643E-01
+ 0.32866797E+00-0.38855325E-01 0.12696608E-01 0.45670737E-01
+-0.69922097E-02-0.22250839E-01-0.49448678E+00-0.11309274E+01
+-0.43056571E+00-0.97913963E+00-0.75081772E+00-0.50914221E+01
+-0.24884198E+01 0.29986811E+00 0.74715838E-02-0.13069284E-01
+-0.12120257E+00 0.20640135E+00-0.19321387E+00 0.16908376E+01
+-0.17448000E+01 0.30932491E+01-0.34096658E+00 0.17136328E-01
+ 0.35928824E+01-0.54552412E+01 0.32137137E-01 0.51082975E+00
+ 0.19546562E+00-0.10672491E+00 0.28139511E+00 0.41073278E-01
+-0.29096520E-01 0.21864381E-01 0.12243150E-01 0.32921236E-01
+ 0.26921557E-01-0.18893564E-01 0.16802772E-02 0.28694057E+00
+-0.29211941E+00 0.16393879E-01 0.94393184E-02-0.60703461E-02
+-0.10121063E-02 0.22870019E-01 0.40416889E-01 0.20207793E-02
+ 0.28009053E-01-0.47511235E-01 0.16151302E-01 0.41487203E-02
+ 0.24980807E+00 0.29251510E+00-0.41429587E-02 0.31435888E-02
+ 0.86209821E-02-0.10191371E-01-0.31774394E-01 0.34211457E-01
+-0.82030557E-01 0.80120198E-01 0.52378416E-01-0.12363158E+00
+ 0.10513846E+00 0.79557329E-01-0.65318130E-01-0.10646767E+00
+ 0.76470129E-01 0.25804231E-02 0.20964760E-01 0.12791419E+00
+ 0.45520272E-02 0.28757790E-01 0.62985376E-01 0.84955081E-01
+-0.12073985E+00-0.98188937E-01 0.52158490E-01 0.69911316E-01
+-0.42228647E-01-0.41942727E-01-0.53663673E-04 0.20629911E-01
+-0.84972277E-01 0.74791508E-02-0.72876997E-01 0.54825362E-01
+ 0.78998553E-02 0.21651424E-02 0.11295615E-01-0.22708066E-01
+-0.24967110E-01 0.23709922E+00 0.20721011E+00-0.75820675E-02
+-0.66711716E-02 0.91338418E-01 0.75325817E-01-0.11707541E-01
+-0.18225781E-02-0.68179360E-02 0.26803995E-01 0.29882748E-01
+-0.50773583E-02-0.38290662E-02-0.20912644E+00 0.21416292E+00
+-0.53014228E-03 0.60032657E-02 0.42857230E-01-0.81398398E-01
+-0.70250421E-02 0.28814852E-01 0.10183385E-01 0.45627076E-01
+ 0.34210838E-01-0.13469204E-01-0.16962208E-01 0.95584551E-02
+ 0.76674414E-02-0.11811175E+00 0.10944934E+00 0.37916854E-01
+ 0.34320731E-01-0.38995236E-01-0.11582067E-01 0.56862938E-02
+ 0.19178797E-01-0.19646440E-01-0.19834880E-02-0.70472504E-02
+-0.87856855E-02-0.38532328E-02-0.12558445E+00-0.99743478E-01
+-0.44582158E-01-0.84324472E-01-0.50034769E-01 0.46942960E-01
+ 0.46193022E-02 0.71702013E-02-0.12611548E-01 0.95665868E-03
+-0.12036865E-01-0.67090063E-04-0.20105047E-01 0.25720501E-02
+ 0.19281610E-02-0.26651995E-01 0.87436706E-01 0.20321304E-01
+-0.69048993E-01 0.10091052E-02 0.10883666E-01-0.17108636E-01
+-0.87443851E-02 0.57800952E-02 0.46012336E-02 0.20599568E-01
+-0.53997170E-02 0.58125644E-02-0.57532750E-02 0.34642294E-01
+ 0.31471007E-01-0.11714598E-01-0.16319931E-01-0.50641306E-01
+ 0.25461499E-01 0.27247524E-01 0.11968782E-01 0.18001130E-01
+-0.22403058E-01 0.21385524E-01 0.13279283E-01-0.25084522E-01
+ 0.21860242E-01 0.28222946E-02 0.35862558E-01 0.60812447E-01
+ 0.43446873E-02 0.19660845E-01 0.30596415E-01-0.88513829E-02
+-0.24848016E-01-0.96459324E-02-0.90757394E-02-0.20335526E-02
+ 0.29977396E+01-0.81961853E-02 0.18906312E-01 0.31932625E-02
+-0.40838039E-02-0.23357221E-03 0.76571512E-02-0.79752160E-02
+ 0.34400288E-03 0.20014945E+00-0.29716199E-01 0.52193105E-01
+ 0.37738375E-01-0.50039222E-02-0.29981710E-01-0.13986629E-01
+ 0.22926540E-02-0.21308563E-02 0.13428990E+01 0.44498194E-01
+-0.18523586E+00-0.17925259E+00 0.45948785E-01 0.47860365E-01
+-0.33176940E-01 0.42967819E-01 0.43051202E-01-0.47216845E+00
+-0.16368178E+00-0.10566967E+00-0.59037436E-01-0.33112377E-01
+ 0.11583864E+00 0.14226819E-01 0.78643629E-04 0.69223372E-02
+-0.23492818E+01 0.67165658E-01 0.47879127E+00 0.52358502E+00
+-0.15943331E+00-0.14764257E+00 0.48829701E-01-0.51714528E-01
+-0.10612427E+00 0.24342524E+00 0.16540094E+00 0.64394549E-01
+ 0.85904840E-02 0.40568676E-01-0.88596366E-01-0.20141602E-02
+-0.10498879E-02-0.26079479E-02 0.11590286E+01-0.87880895E-01
+-0.30248937E+00-0.36426729E+00 0.13489676E+00 0.10174665E+00
+-0.20617876E-01 0.17740101E-01 0.64807892E-01 0.14391306E-01
+-0.21309042E+00-0.33884123E+00 0.10892765E-01-0.42811530E-02
+-0.25248926E-02 0.12565411E-01-0.44771405E-02 0.69199535E-02
+ 0.26753715E-02 0.35680091E+00-0.20014954E+00-0.98086214E-02
+ 0.87794177E-02-0.34690208E-02-0.91818944E-02 0.56939302E-02
+ 0.10811757E-01-0.10302394E+00 0.19964647E+00 0.12284161E+00
+ 0.62227905E-01 0.39830696E-01-0.31292230E-01-0.18277895E-01
+ 0.34071945E-01-0.24559934E-01 0.73183656E-01-0.31019021E-01
+ 0.22225291E+00-0.79470731E-01-0.39866902E-01 0.20936769E-01
+-0.13295945E-01 0.57061128E-01 0.55259675E-01-0.22905074E+00
+ 0.90782636E+00 0.16330606E+01 0.19163447E-02 0.35776563E-01
+ 0.49570456E-01-0.11902388E+00 0.45402091E-01-0.11314365E+00
+-0.39456546E+00-0.17365061E+01 0.86957514E+00 0.16775037E+00
+-0.85004143E-01 0.42578947E-01 0.72186656E-01-0.78504875E-01
+-0.12058398E+00 0.13912698E+01-0.96152496E+00-0.60672927E+00
+-0.13106681E-01-0.41902941E+00 0.11963305E+00 0.62974300E-02
+-0.18483321E+00 0.25544432E+00 0.54170632E+00 0.34240028E+00
+-0.99347818E+00 0.24775450E+00 0.47574925E+00-0.18045484E+00
+ 0.13595828E+00-0.61139083E+00-0.26010543E+00 0.74438137E+00
+-0.80979353E+00-0.17163999E+01-0.35758594E+00-0.14151997E-01
+-0.13134675E+00 0.27793384E+00-0.11998469E+00 0.27071473E+00
+ 0.13506950E+01 0.16267354E+01-0.12598553E+01-0.31339702E+00
+ 0.68517044E-01-0.18701576E+00-0.86923413E-01 0.14469229E+00
+ 0.22702868E+00-0.34414785E+01 0.10698559E+01 0.14466070E+01
+-0.78836642E-01 0.10688086E+01-0.78987226E-01 0.20188455E+00
+ 0.36264941E+00-0.72390538E+00-0.21533570E+01-0.86708015E+00
+ 0.16319656E+01-0.28797507E+00-0.10868007E+01 0.50646031E+00
+-0.39900690E+00 0.15120949E+01 0.29860815E+00-0.48577079E+00
+ 0.13015094E+00 0.95722884E+00 0.44391346E+00-0.32366667E-01
+ 0.12413590E+00-0.17610566E+00 0.96929386E-01-0.16703936E+00
+-0.11894507E+01-0.38839000E+00 0.71710134E+00 0.12543808E+00
+ 0.23892194E-01 0.17996967E+00-0.33655792E-01-0.64367644E-01
+-0.11553254E+00 0.22641020E+01-0.19882113E-01-0.99476331E+00
+-0.88516802E-01-0.73695379E+00 0.47051879E-02-0.22439910E+00
+-0.23656236E+00 0.55085856E+00 0.17834074E+01 0.62063682E+00
+-0.85358530E+00 0.12144197E+00 0.67288089E+00-0.39924723E+00
+ 0.35274625E+00-0.10284065E+01-0.55081531E-01-0.42461534E-02
+-0.19090576E-01-0.21750687E-02 0.77972598E-01-0.10230899E+00
+-0.61414940E-02-0.60802395E-02-0.60765678E-02-0.31842440E-02
+ 0.36602344E-02-0.20476623E-01 0.19559988E-02 0.12126583E+00
+ 0.80235869E-01-0.91823516E-02-0.76314104E-02 0.35730617E-02
+-0.18788265E-02 0.73799282E-01 0.18658288E+00 0.25844129E-01
+ 0.38106717E-01 0.13187513E-01 0.33492066E-01-0.36260985E-01
+-0.13196414E-01-0.99324873E-02 0.14192873E-01-0.25389520E-01
+-0.18034412E-01 0.66986732E-01 0.37657667E-01 0.83836555E-01
+-0.19943716E-01-0.24610309E-01 0.22301378E-01-0.17031059E+00
+ 0.24293567E+00-0.47562119E-01-0.18710293E+00-0.21173187E+00
+ 0.45424961E-01 0.10562468E+00 0.11877582E-01 0.27717501E-01
+-0.23334758E+00 0.18515380E-01-0.18031678E+00 0.16339774E+00
+-0.16562817E+00 0.22401256E-01 0.12215625E+00-0.20599376E-01
+-0.22505935E-01-0.23864314E+00-0.10410759E+01 0.20875806E+00
+ 0.41495808E-02-0.14400753E+00-0.13934614E-01 0.98016091E-01
+ 0.64151272E-01-0.90540049E-03 0.43185464E+00 0.47100690E+00
+ 0.23188816E+00-0.12820059E+00 0.30625871E+00-0.37186635E+00
+ 0.27746350E-01 0.18685450E+00-0.14788827E+00 0.31099787E+00
+-0.51439357E+00 0.33028484E-02-0.17644372E-01 0.89867815E-01
+-0.63249975E-01-0.14556959E+00-0.11969471E-01-0.39798412E-01
+ 0.37246844E+00-0.99704146E-01 0.28348404E+00-0.27310552E-01
+-0.17952356E-02 0.30666633E-01-0.20847893E+00-0.28230352E-02
+ 0.19477863E-01 0.20202787E+00 0.14707644E+01-0.31790829E+00
+-0.87093808E-01 0.18147080E+00-0.21470476E-01-0.88236138E-01
+-0.84560640E-01 0.35590544E-01-0.68945140E+00-0.61575735E+00
+-0.83507515E-01 0.61113432E-01-0.57205093E+00 0.39900196E+00
+ 0.70120350E-01-0.22128372E+00 0.17749649E+00-0.23316426E-01
+ 0.12048603E-01 0.23783310E-02 0.92227728E-03 0.47883224E-02
+ 0.22830907E-01-0.44083364E-01-0.45512458E-02 0.17387259E-02
+-0.70657874E-02-0.15885700E-01-0.40105851E-02-0.69217128E-02
+-0.58886250E-02 0.35231218E-01 0.42952802E-01 0.33667521E-02
+-0.20392444E-02 0.59208658E-01 0.63783467E-01 0.12437732E-01
+-0.64228050E-01 0.13783633E-01-0.51416833E-01 0.18383345E-01
+ 0.69502792E-02 0.81083290E-02 0.40749948E-01-0.75332168E-02
+-0.27416045E-01-0.33444658E-01-0.19954119E-01 0.60441419E-02
+-0.56821901E-01 0.11292337E-02 0.17509496E-01-0.67723908E-01
+-0.14539140E+00-0.30557400E-01 0.45087757E-02-0.46182219E-01
+-0.15280160E+00-0.10240623E+00 0.26795991E-01-0.21112165E-02
+-0.47966205E-01 0.10730190E-01-0.31358361E-01 0.15586140E-01
+-0.61677694E-02 0.13321459E+00-0.20194066E+00 0.10347781E-01
+-0.12390453E-01-0.18478956E-01-0.15848843E-01 0.85952645E-02
+ 0.16202679E-01 0.12485572E-02-0.19915239E-02 0.31446822E-02
+ 0.44241477E-01-0.30390822E-03-0.94869835E-02 0.91496035E-02
+-0.60107494E-02-0.70505976E-02-0.37957488E-02 0.63174270E-03
+ 0.55268044E-02-0.33853750E-03 0.48207454E-01 0.65101489E-01
+ 0.29953860E-01-0.47032386E-02-0.26011158E-01-0.31840345E-02
+ 0.30755354E-02 0.13277406E-02 0.22132441E-01 0.82672704E-02
+-0.78570237E-02-0.45788117E-01 0.51256320E-02 0.33361401E-01
+-0.11823519E-01-0.16863131E-02-0.15676618E-01 0.17375020E-01
+ 0.15721165E-01 0.64684800E-02-0.96570859E-02 0.89065656E-02
+-0.50537391E-02-0.49813055E-02 0.20753632E-02 0.76234308E-02
+-0.90143485E-02 0.38806573E-02 0.70466385E-02 0.23270652E-01
+-0.98308958E-02-0.23814661E-02-0.12868521E-02 0.14961665E-01
+ 0.29478413E-02-0.25250819E-02 0.35902048E-02 0.68825735E-02
+ 0.69126990E-02 0.12519725E-01 0.12947415E-01-0.24092742E-02
+ 0.11634666E-02-0.38903584E-02-0.92853449E-03 0.12939579E-02
+-0.27606012E-02-0.23899183E-02-0.13654518E-01-0.14725209E-02
+ 0.18952837E-02 0.95515465E-02 0.27220524E-02-0.41225250E-02
+ 0.64941798E-02 0.26891699E+01-0.77640088E-02 0.11127225E-01
+ 0.56581018E-02 0.55255590E-03 0.19188958E-02 0.38992222E-02
+-0.63712653E-02-0.10736038E-02 0.89743264E-01 0.20814057E-01
+ 0.49664252E-01 0.12002765E-01 0.16872061E-01-0.14828340E-01
+-0.20098081E-01-0.71201292E-02-0.10063166E-01 0.14451987E+01
+ 0.18207384E-01-0.12469007E+00-0.77557176E-01 0.96017895E-02
+ 0.50489246E-02 0.77703637E-02 0.43605078E-01 0.20670578E-01
+-0.10420049E+00-0.30086073E+00-0.98388202E-01-0.17734094E-01
+-0.10223059E+00 0.44458374E-01 0.44485763E-01 0.28927306E-01
+ 0.21576228E-01-0.26058183E+01 0.11795595E+00 0.28667596E+00
+ 0.16859519E+00-0.69919094E-01-0.51369867E-02-0.43885093E-01
+-0.75206392E-01-0.15287774E-01 0.39084069E-02 0.23944090E+00
+ 0.64139619E-01 0.46739038E-02 0.91723315E-01-0.28238665E-01
+-0.27856352E-01-0.21242142E-01-0.13344122E-01 0.13095468E+01
+-0.10214921E+00-0.16770977E+00-0.98850533E-01 0.73869824E-01
+-0.47578220E-02 0.37430078E-01 0.40278375E-01-0.92505598E-02
+ 0.23524527E-01-0.34971893E+00-0.28617576E+00 0.24448626E-02
+ 0.10531447E-02-0.24429685E-02 0.79786703E-02-0.32044223E-02
+ 0.65662437E-02-0.49985661E-02 0.30120927E+00-0.33876929E+00
+-0.98431129E-02-0.94157760E-03-0.78012803E-04-0.10437771E-01
+ 0.98567735E-02 0.11818309E-01-0.57822518E-01 0.21672082E+00
+ 0.88802382E-01-0.38946371E-02 0.58250647E-01-0.24885843E-01
+-0.17417107E-01 0.15775116E-01-0.64615905E-02 0.32139458E-01
+ 0.32517146E-01 0.21158411E+00-0.15073596E-01-0.36884345E-01
+ 0.46076268E-01 0.17812065E-02 0.35551559E-01 0.46800584E-01
+-0.24651740E+00 0.11098006E+01 0.93898606E+00 0.13167660E+00
+ 0.78329649E-02 0.21393843E-01 0.26152806E-01 0.99524148E-02
+-0.16420493E+00-0.35180086E+00-0.94679403E+00 0.12385637E+01
+ 0.81863344E-01 0.52147958E-01-0.94125001E-02 0.86879626E-01
+-0.13224545E+00-0.17574912E+00 0.77992594E+00-0.13512278E+01
+-0.66809833E+00 0.17822575E-01-0.50182998E+00 0.64230546E-01
+-0.65235958E-01-0.17756595E+00 0.55901699E-01 0.60895658E+00
+-0.39232608E-01-0.12162886E+01-0.19391639E-01 0.24424776E+00
+-0.32840198E+00 0.16300706E-01-0.27074844E+00-0.22464836E+00
+ 0.55456519E+00-0.69234842E+00-0.40266684E+00-0.63226157E+00
+ 0.10810311E-01-0.15206470E-01-0.15813012E+00 0.76063015E-01
+ 0.54846871E+00 0.12965285E+01-0.14871565E+00-0.16574056E+01
+-0.77499501E-01-0.24706507E+00-0.49161386E-01-0.18116425E+00
+ 0.29508817E+00 0.42510369E+00-0.19151396E+01 0.23017201E+01
+ 0.19343640E+01 0.18132132E+00 0.97290933E+00-0.32005332E-01
+ 0.30257878E+00 0.47717166E+00-0.22451325E+00-0.23164320E+01
+-0.23464796E-02 0.23696494E+01 0.11396227E+00-0.30829358E+00
+ 0.81678474E+00-0.14368920E+00 0.57714278E+00 0.30708337E+00
+-0.28491089E+00 0.36383953E-01 0.31162423E+00 0.57425320E+00
+-0.42527661E-01 0.73678866E-02 0.16507234E+00-0.12021207E+00
+-0.42351913E+00-0.11174608E+01 0.66397589E+00 0.92702854E+00
+-0.17574133E-01 0.21021613E+00 0.75819165E-01 0.74323684E-01
+-0.16377261E+00-0.30484450E+00 0.11824274E+01-0.11248287E+01
+-0.14524229E+01-0.21500514E+00-0.54644227E+00-0.13700272E-01
+-0.25452733E+00-0.35112619E+00 0.19990946E+00 0.20050185E+01
+ 0.13328118E-01-0.14572992E+01-0.51557049E-01 0.12367892E+00
+-0.57814145E+00 0.17719761E+00-0.37120983E+00-0.99483021E-01
+-0.84307930E-03-0.17258719E-01-0.53407173E-02 0.81290640E-01
+-0.76485693E-01-0.47752857E-02 0.17251115E-02-0.37566551E-02
+-0.43733157E-02 0.26733198E-02-0.18344466E-01 0.50127055E-02
+ 0.71141437E-01 0.87314069E-01-0.61744666E-02-0.70299716E-02
+ 0.26243473E-02-0.23496000E-02 0.28444359E-01 0.11505325E+00
+-0.33933113E-02 0.28973157E-02 0.92887551E-01 0.31396382E-01
+-0.23507848E-01-0.87130796E-02-0.41673426E-02 0.46873268E-01
+ 0.13442473E-01-0.25793346E-01-0.76118015E-01 0.18148199E-01
+ 0.74972913E-01 0.14298553E-01-0.31826302E-01 0.11931223E-01
+-0.10709218E+00 0.17803708E+00 0.89736991E-02-0.42456055E+00
+ 0.21876013E+00-0.10819510E-01 0.28348537E-01-0.17255733E-01
+ 0.18319869E-01-0.19474298E+00 0.41860364E-01-0.13339257E+00
+-0.18719760E+00-0.42420575E+00-0.77197952E-02 0.99332146E-01
+-0.31550217E-01-0.35813104E-01 0.40004592E-01-0.68339717E+00
+ 0.27681801E+00-0.17132305E-01-0.32585517E+00 0.31075010E-02
+ 0.79180390E-01 0.84248841E-01-0.97170295E-02 0.93430899E-01
+ 0.14520720E+00 0.17805339E+00 0.36324471E+00 0.13691723E+00
+-0.32484740E+00-0.81565991E-01 0.24830067E+00-0.83268017E-01
+ 0.17182921E+00-0.39017051E+00-0.75088419E-01 0.10350134E+00
+-0.59314120E+00 0.26216136E-01-0.36645230E-01 0.51128760E-01
+-0.23116680E-01 0.29115209E+00-0.16628721E+00 0.17287152E+00
+ 0.57455140E+00 0.10316521E+00 0.24566704E-01-0.18611246E+00
+ 0.36977723E-01 0.51306799E-01-0.20561792E+00 0.10611655E+01
+-0.37965357E+00 0.59568016E-02 0.27356151E+00-0.27140494E-01
+-0.93819186E-01-0.12059696E+00 0.53143971E-01-0.24612656E+00
+-0.89114860E-01-0.68045080E-01-0.36101612E+00-0.25655359E+00
+ 0.38696358E+00 0.15423262E+00-0.32276914E+00 0.91858663E-01
+-0.19476928E-01 0.73561035E-02 0.17873573E-02-0.35678830E-02
+-0.33237985E-02 0.33766452E-01-0.63296571E-01-0.19452671E-02
+-0.13239883E-02-0.42364779E-02-0.10886639E-01 0.13287691E-02
+ 0.24953796E-03-0.21379865E-02 0.55756997E-01 0.50980330E-01
+ 0.43777414E-02-0.78862291E-02 0.35293180E-01 0.57927500E-01
+ 0.91379685E-02-0.24990179E-01 0.15874520E-01-0.32756235E-01
+-0.91940789E-02 0.63448343E-02 0.59108045E-02 0.20577457E-01
+ 0.78460500E-02-0.80252262E-02-0.28437277E-01-0.12757894E-01
+ 0.18312816E-01-0.39697696E-01-0.13474633E-02 0.13109337E-01
+-0.83176987E-02-0.11117948E+00-0.57078397E-03 0.10578160E-01
+-0.20841746E-01-0.17377385E+00-0.81262551E-01 0.16026536E-01
+ 0.58632647E-02-0.14602411E-01-0.52710978E-03-0.37079420E-01
+ 0.15373140E-01 0.46844836E-03 0.11484052E+00-0.20478855E+00
+-0.60416027E-02 0.15950160E-01-0.92366859E-02-0.13327929E-01
+ 0.76846951E-02 0.44647725E-02 0.99554425E-03-0.25372533E-02
+ 0.11280873E-02 0.34911953E-01 0.61604744E-02-0.65696407E-02
+ 0.27554489E-02-0.89025469E-02-0.58459694E-03-0.36023045E-02
+ 0.17695033E-02 0.71463874E-02-0.67619323E-02 0.35612658E-01
+ 0.37786972E-01 0.27549380E-01-0.10036921E-01-0.17617412E-01
+-0.51135998E-02-0.85136052E-02 0.82170218E-02 0.34347039E-01
+ 0.35131623E-02 0.34137515E-02-0.39485246E-01 0.19134531E-01
+ 0.13404503E-01-0.16808830E-01-0.10705445E-01-0.19780356E-01
+ 0.15510093E-01 0.21839621E-01 0.12911428E-01-0.73543200E-02
+ 0.50285622E-02 0.59204112E-03-0.34981014E-02 0.37478306E-02
+ 0.20511295E-02-0.60793972E-02 0.34043847E-02 0.10783734E-01
+ 0.17769093E-01-0.77495449E-02 0.85491629E-03-0.31315386E-02
+ 0.84124962E-02 0.57312618E-02 0.12188161E-02 0.74360068E-02
+ 0.63715721E-02 0.54682349E-02 0.96778516E-02 0.52643046E-02
+-0.51632943E-02 0.32400473E-02-0.58748294E-03-0.52953459E-03
+ 0.25913932E-02 0.41622827E-02-0.12601028E-02-0.82769860E-02
+ 0.12908098E-02-0.11074101E-02 0.28636472E-02 0.26873229E-02
+-0.14917087E-02 0.50641391E-02
diff --git a/input/glow_data/iri90/ccir14.asc b/input/glow_data/iri90/ccir14.asc
new file mode 100644
index 0000000..40f6bf8
--- /dev/null
+++ b/input/glow_data/iri90/ccir14.asc
@@ -0,0 +1,715 @@
+ 0.64934897E+01-0.60000785E-01 0.15284570E+00 0.42398740E-01
+ 0.80449143E-02-0.12943848E-02-0.18471053E-01 0.14364937E-01
+-0.27232725E-01 0.34205071E-02 0.44790650E-03 0.49032934E-03
+-0.11499410E-01-0.88309318E+00-0.13880616E+00 0.72883040E+00
+-0.23786409E+00 0.56492403E-01-0.44968966E+00 0.27552197E-01
+-0.10558825E+00-0.26403388E+00-0.71968939E-02-0.76252706E-01
+-0.75245716E-01 0.36521424E-01 0.10725157E+02 0.11520151E+01
+-0.29717491E+01 0.77741110E+00 0.10456994E+01-0.56724101E+00
+ 0.10612051E+01-0.19255696E-01 0.20865384E+00 0.83688861E-02
+ 0.17841756E+00 0.38568929E-01-0.13791542E+00 0.65042410E+01
+-0.35215244E+01-0.41706271E+01 0.52065024E+01 0.25852561E+00
+ 0.73438549E+01-0.40593761E+00 0.99215275E+00 0.34198158E+01
+ 0.59768510E+00 0.13837192E+01 0.21450295E+01-0.30246952E+00
+-0.73952766E+02-0.10371047E+02 0.20006662E+02-0.58430343E+01
+-0.17244541E+02 0.25785179E+01-0.66231856E+01-0.10432464E+01
+ 0.73055929E+00 0.10648139E+01-0.16124163E+01 0.77939086E-01
+ 0.78449029E+00 0.16648845E+00 0.12172329E+02-0.27850802E+01
+-0.25546795E+02 0.91742992E+01-0.32795715E+02 0.28933215E+00
+-0.56761956E+01-0.18448353E+02-0.33526461E+01-0.67829127E+01
+-0.12907632E+02-0.90398967E+00 0.15081433E+03 0.33412430E+02
+-0.50513580E+02 0.15113485E+02 0.58774567E+02-0.36906857E+01
+ 0.14214766E+02 0.30996857E+01-0.45489955E+01-0.52512527E+01
+ 0.42320633E+01-0.65626699E+00-0.12561433E+01-0.37230701E+02
+-0.76325502E+01 0.37164608E+02 0.49207062E+02-0.43934433E+02
+ 0.60087318E+02 0.41347008E+01 0.15909638E+02 0.43547508E+02
+ 0.70065861E+01 0.12691342E+02 0.29472052E+02 0.48083038E+01
+-0.14633238E+03-0.42288403E+02 0.54256516E+02-0.17434313E+02
+-0.73183670E+02 0.16437659E+01-0.12896775E+02-0.25577700E+01
+ 0.64732404E+01 0.78860893E+01-0.44402709E+01 0.10190881E+01
+ 0.83452731E+00 0.52198563E+02-0.78648896E+01-0.54521660E+02
+-0.41549355E+02 0.62281200E+02-0.48637409E+02-0.83191090E+01
+-0.19453861E+02-0.45155918E+02-0.66038699E+01-0.10019678E+02
+-0.28811026E+02-0.57783585E+01 0.55789318E+02 0.18161959E+02
+-0.20868525E+02 0.74471416E+01 0.30560638E+02 0.63638061E-01
+ 0.42821302E+01 0.46981829E+00-0.28367572E+01-0.37410161E+01
+ 0.16539934E+01-0.48298737E+00-0.21111564E+00-0.20312288E+02
+ 0.70529175E+01 0.23697180E+02 0.12980741E+02-0.27796104E+02
+ 0.14427422E+02 0.43019180E+01 0.83882170E+01 0.16908133E+02
+ 0.23868093E+01 0.27971561E+01 0.10196642E+02 0.21167967E+01
+-0.23634213E+00 0.20315306E+01 0.14751929E+01 0.51506594E-01
+-0.41991584E-01-0.66530528E-02 0.60239173E-01 0.42047124E-01
+ 0.14694092E-01 0.14501678E-01 0.22909958E-01 0.50705005E-02
+-0.13813758E-01 0.24778880E-01-0.13336085E+01 0.20401320E+01
+-0.29250428E-01 0.11255962E+00-0.27715957E-01-0.61806727E-01
+ 0.33551306E-02 0.49672600E-01-0.88648414E-02 0.15672091E-01
+-0.17772952E-01 0.25840361E-01-0.94002926E+00 0.96187347E+00
+-0.48695213E+00-0.14855824E-01 0.85204057E-01 0.68687528E-01
+ 0.59923762E+00-0.17397812E+00 0.52780789E+00-0.97602285E-01
+-0.50955068E-01 0.97110130E-01 0.78837104E-01-0.15056743E+00
+ 0.25372839E+00 0.77975589E+00 0.44844508E-01 0.66648591E+00
+ 0.29808590E-01-0.28804496E-01 0.27313724E+00 0.57353723E+00
+-0.14783476E+00-0.54335695E-01 0.18213356E+00-0.17622781E+00
+ 0.44821749E+01 0.12306819E+02 0.71697435E+01-0.92180455E+00
+ 0.17149884E+01 0.12936370E+01-0.14673869E+00-0.16734644E+01
+-0.90978986E+00-0.64830935E+00-0.10648321E+01 0.25684693E+00
+-0.10137751E+00 0.85512914E-01-0.10835258E+02 0.85481062E+01
+ 0.11747242E+01 0.18459188E+01 0.27393374E+00 0.21028144E+01
+-0.48073640E+00-0.68387592E+00 0.73008960E+00-0.79940535E-01
+ 0.11825157E+01-0.94839269E+00 0.13821822E+02-0.18135992E+02
+ 0.25114826E+02 0.74971118E+01 0.18632157E+01 0.13507416E+01
+-0.10556159E+02 0.19317433E+01-0.81330175E+01 0.36078362E+01
+ 0.21540523E+00-0.27909291E+01-0.10886441E+01 0.62252507E+01
+-0.13018351E+02-0.10101440E+02-0.10007334E+01-0.14628852E+02
+ 0.11357673E+01 0.36046584E+01-0.42910991E+01-0.89776678E+01
+-0.89598792E-02-0.42933542E+00-0.15849814E+01 0.34161615E+01
+-0.17371538E+02-0.66748375E+02 0.62607899E+02 0.20953897E+02
+-0.16884054E+02-0.15206277E+02-0.11621350E+01 0.13002543E+02
+ 0.13039217E+02 0.52742462E+01 0.93021603E+01-0.34476848E+01
+ 0.56655067E+00-0.56244588E+00-0.33539303E+02-0.27122942E+02
+-0.17939253E+02-0.18481981E+02-0.38500461E+00-0.14842595E+02
+-0.31616006E+01 0.47638435E+01-0.45677834E+01-0.55476618E+00
+-0.94443140E+01 0.57917881E+01-0.74924995E+02 0.14071364E+03
+-0.14038925E+03-0.58120224E+02 0.71764197E+01-0.49531412E+01
+ 0.62206001E+02-0.40747013E+01 0.32049103E+02-0.27928366E+02
+ 0.17490292E+01 0.17929644E+02 0.32690539E+01-0.65806305E+02
+ 0.54215317E+02 0.98710693E+02-0.88018885E+01 0.75170929E+02
+-0.11637873E+02-0.30119808E+02 0.31769405E+02 0.47102097E+02
+ 0.81819410E+01 0.76862321E+01 0.71875310E+01-0.20791466E+02
+ 0.89678268E+01 0.10135834E+03-0.35098581E+03-0.86679405E+02
+ 0.51673248E+02 0.53351051E+02 0.76851803E+00-0.36545685E+02
+-0.47825413E+02-0.15288162E+02-0.24478294E+02 0.11542589E+02
+ 0.20585668E+01 0.16705963E+02 0.25283752E+03-0.40345543E+02
+ 0.73295845E+02 0.65839951E+02 0.55188236E+01 0.37025734E+02
+ 0.24288336E+02-0.10951288E+02 0.91241064E+01 0.23609199E+00
+ 0.27590469E+02-0.15265544E+02 0.19687543E+03-0.38724133E+03
+ 0.30177777E+03 0.15378911E+03-0.65229530E+02-0.34766839E+01
+-0.15835892E+03 0.39712989E+01-0.47045303E+02 0.82022125E+02
+-0.10522800E+02-0.45835922E+02-0.15153832E+01 0.19607632E+03
+-0.66794991E+02-0.28728564E+03 0.45004837E+02-0.16881575E+03
+ 0.29734268E+02 0.87140694E+02-0.93818230E+02-0.11390152E+03
+-0.33501694E+02-0.25811827E+02-0.17500467E+02 0.51393471E+02
+ 0.36721821E+02-0.58378582E+02 0.52954004E+03 0.12650403E+03
+-0.61309460E+02-0.72215317E+02 0.55067840E+01 0.43052776E+02
+ 0.65146362E+02 0.18467991E+02 0.23828384E+02-0.14804021E+02
+-0.66496506E+01-0.41053894E+02-0.39513184E+03 0.14958513E+03
+-0.11126383E+03-0.10337821E+03-0.17559303E+02-0.34940395E+02
+-0.43032936E+02 0.85262613E+01-0.69466352E+01 0.36357474E+01
+-0.34809723E+02 0.18168346E+02-0.24683015E+03 0.44674811E+03
+-0.29277634E+03-0.16985976E+03 0.11071173E+03 0.20931087E+02
+ 0.18121008E+03-0.38683255E+01 0.23711794E+02-0.10216876E+03
+ 0.16843342E+02 0.51287098E+02-0.42596765E+01-0.21369885E+03
+ 0.15854466E+02 0.32373230E+03-0.56573444E+02 0.18293462E+03
+-0.24894985E+02-0.10696294E+03 0.11558176E+03 0.12890714E+03
+ 0.48120480E+02 0.32083454E+02 0.20970270E+02-0.55741127E+02
+-0.36825500E+02 0.12671242E+02-0.24902853E+03-0.60534359E+02
+ 0.24415829E+02 0.33357067E+02-0.56761322E+01-0.18138479E+02
+-0.29999857E+02-0.79702997E+01-0.73311758E+01 0.64502964E+01
+ 0.43373952E+01 0.26744591E+02 0.18625591E+03-0.93930122E+02
+ 0.56447613E+02 0.58127296E+02 0.13249874E+02 0.98932362E+01
+ 0.23001041E+02-0.14396309E+01 0.16029669E+01-0.36048818E+01
+ 0.15927850E+02-0.79116158E+01 0.11669273E+03-0.18738850E+03
+ 0.10586761E+03 0.65915176E+02-0.55447582E+02-0.14503896E+02
+-0.76371826E+02 0.23939581E+01-0.49679360E+00 0.45396572E+02
+-0.83436613E+01-0.20962414E+02 0.35527298E+01 0.76042992E+02
+ 0.11706135E+02-0.12662367E+03 0.20020100E+02-0.78973969E+02
+ 0.45572462E+01 0.47576389E+02-0.49966724E+02-0.54524891E+02
+-0.23131273E+02-0.13527062E+02-0.95180111E+01 0.22111988E+02
+ 0.19034376E-01 0.98584309E-01 0.10540415E-01-0.10316912E+01
+-0.50497755E-01-0.28466880E-02 0.14425301E-01 0.89508243E-03
+ 0.40291805E-01-0.58668968E-02-0.37617797E-02 0.81910536E-03
+ 0.14230346E-01 0.55068702E-01-0.61659035E-02 0.25711088E-01
+ 0.34259062E-01-0.75383478E+00 0.40433593E-02-0.13901708E-01
+-0.40712301E-01-0.29276965E-01-0.10735627E-01-0.72969968E-03
+-0.98825945E-02-0.17654425E-02 0.12820829E+00 0.71660620E+00
+ 0.71653306E+00 0.37673324E+00-0.52130508E+00 0.26109612E+00
+-0.33626252E+00 0.12658983E+00 0.23496895E+00 0.45112655E-01
+ 0.10876163E-01-0.79171509E-01-0.49059778E-01 0.84820724E+00
+ 0.11983800E+00 0.93958420E+00 0.63321990E+00 0.95848083E+00
+ 0.16888373E+00 0.38933194E+00-0.13175000E+00-0.13978599E+00
+-0.28500167E+00-0.16895266E+00 0.28273294E-01-0.13272938E+00
+ 0.10719464E+01-0.10473355E+01 0.16151112E+01 0.88533993E+01
+ 0.29226627E+01-0.44834813E+00-0.18926809E+01-0.10330509E+01
+ 0.70661664E-01 0.34604049E+00 0.24440205E+00-0.55603737E+00
+-0.15387839E+00 0.15618073E+01 0.14701888E+00-0.74968077E-01
+-0.39555376E+01 0.69049392E+01-0.19420260E+00 0.57892245E+00
+-0.79809892E+00 0.60062045E+00 0.22479720E-01-0.32704258E+00
+ 0.23038152E+00 0.36810508E+00-0.29060516E+01-0.35181143E+01
+-0.57364321E+01 0.55235324E+01 0.45822948E+00-0.15032139E+01
+ 0.21021144E+01-0.25328857E+00-0.18473371E+01-0.84338069E-01
+ 0.39706534E+00 0.18311095E+00 0.12498163E+01-0.99295187E+01
+-0.10716367E+01-0.49983807E+01-0.20832248E+01 0.18830384E+01
+ 0.86717820E+00-0.15240573E+01 0.21804466E+01 0.58699912E+00
+ 0.14913265E+01 0.91169506E+00 0.18899290E+00 0.18160110E+01
+-0.94457245E+01 0.17658319E+02-0.11660739E+02-0.68379431E+01
+-0.55005379E+01 0.43817210E+01 0.11818675E+02 0.47689600E+01
+ 0.28519669E+00-0.19000353E+01-0.25939715E+01 0.37662926E+01
+ 0.75847077E+00-0.56515350E+01 0.91205730E+01-0.19686940E+01
+ 0.13128128E+02-0.68311524E+00 0.99185145E+00-0.16249559E+01
+ 0.51543722E+01-0.11013597E+01-0.84779017E-01 0.18501135E+01
+-0.38142797E+00-0.30122881E+01 0.75019464E+01 0.35646596E+01
+ 0.11501075E+02-0.18637688E+02-0.69856608E+00 0.35613034E+01
+-0.47264366E+01-0.46824551E+00 0.42374134E+01-0.10472504E+00
+-0.11728551E+01-0.23341645E+00-0.39178739E+01 0.26873817E+02
+-0.89032382E+00 0.74988832E+01 0.33407247E+01-0.96325502E+01
+-0.34091041E+01 0.21045973E+01-0.56645589E+01 0.19026136E+00
+-0.22414279E+01-0.13311152E+01-0.59583026E+00-0.46499009E+01
+ 0.21163473E+02-0.48009987E+02 0.25364653E+02-0.28718987E+02
+ 0.28193629E+00-0.14275020E+02-0.20585054E+02-0.64663568E+01
+-0.17794694E+01 0.29850135E+01 0.60325065E+01-0.71860552E+01
+-0.16418031E+01 0.39766910E+01-0.27315857E+02 0.82747126E+01
+-0.15480450E+02-0.37333546E+02-0.14049913E+01-0.78134075E-01
+-0.88510962E+01-0.22243371E+01 0.97602409E+00-0.25714512E+01
+-0.92084908E+00 0.73255792E+01-0.59779377E+01 0.12392722E+01
+-0.78840604E+01 0.12213486E+02-0.45400086E+00-0.31542869E+01
+ 0.34382269E+01 0.87975073E+00-0.27262006E+01 0.43419167E+00
+ 0.68464506E+00 0.22095339E+00 0.30523138E+01-0.20467285E+02
+ 0.39570870E+01-0.23940721E+01 0.22183473E+00 0.45692406E+01
+ 0.23968148E+01-0.16324166E+01 0.37603843E+01-0.13567244E+01
+ 0.12711176E+01 0.64020485E+00 0.41453242E+00 0.32386906E+01
+-0.14195784E+02 0.34288692E+02-0.15830330E+02 0.32217907E+02
+ 0.34044676E+01 0.12452764E+02 0.10785024E+02 0.26360891E+01
+ 0.13603797E+01-0.15146811E+01-0.39355423E+01 0.41184163E+01
+ 0.11697747E+01 0.83907932E+00 0.17864233E+02-0.90199413E+01
+ 0.53105712E+01 0.36594128E+02 0.70343792E+00 0.17940173E+01
+ 0.47861300E+01 0.37236953E+01-0.12472179E+01 0.73165965E+00
+ 0.12939287E+01-0.52513423E+01-0.64029008E-01 0.89368589E-01
+-0.10483639E+00-0.41617226E-01 0.42851824E-01-0.37522101E+00
+-0.74830681E+00-0.35888155E-02 0.50473481E-01 0.39554734E-01
+ 0.17244495E-01-0.62780860E-02 0.40925271E-02 0.47223818E-01
+-0.15007500E+00-0.77078842E-01 0.23586081E-01-0.40981129E-01
+ 0.73113239E+00-0.37994549E+00-0.29909762E-01 0.14559225E-01
+ 0.11881361E-01-0.21748168E-01 0.17178882E-01 0.25832307E-01
+-0.12422315E+00 0.75573784E+00 0.11975990E+00-0.26279071E+00
+-0.63855439E+00-0.10346416E+00-0.24757487E+00 0.83832882E-01
+-0.37987664E-01 0.47420461E-01 0.51827621E-01-0.82543463E-01
+-0.48918199E-01-0.25143120E-01-0.32514688E+00-0.23532422E+00
+-0.13309413E-01-0.85015304E-01 0.38035685E+00 0.60264971E-01
+-0.13409159E-01-0.31570796E-01-0.10386517E+00-0.10889217E-01
+ 0.21442087E-01-0.58925855E-02 0.51993853E+00-0.57693455E-01
+ 0.28187773E+00-0.73443003E-01-0.19520199E+00-0.11351212E-01
+ 0.58080941E+00-0.54905391E+00 0.22085562E+00-0.66554368E-01
+-0.17385939E+00 0.18870950E-03-0.11992918E+00-0.21958467E+00
+ 0.21047795E+01-0.20394135E+00-0.57054359E+00 0.54538924E-01
+-0.12259457E+01 0.53822305E-01-0.47958690E+00-0.65027052E+00
+-0.24385016E-01 0.14002994E+00-0.22192319E+00-0.13525110E+00
+-0.54393631E+00-0.13514569E+01 0.26100159E+00 0.43233761E+00
+ 0.97404122E+00 0.40088597E+00 0.80763835E+00-0.98028913E-01
+ 0.11027520E+00-0.10748786E+00-0.36647193E-01 0.19190548E+00
+ 0.88344067E-01-0.25658110E+00 0.72416735E+00 0.57697695E+00
+-0.34691748E+00 0.32392946E+00-0.13627889E+01 0.11442543E+00
+-0.10774225E+00 0.10521625E+00 0.98740987E-01 0.29976496E-01
+ 0.26290998E-01-0.56078196E-01 0.27019140E+00 0.45024633E+00
+-0.17958543E+00 0.12233192E+00 0.51881069E+00 0.42524201E+00
+ 0.30084953E+00 0.94178420E+00-0.65111023E+00-0.27122760E-01
+ 0.76508380E-01-0.85360545E-04 0.12641452E+00 0.79744786E-01
+-0.28821568E+01 0.73260629E+00 0.53177392E+00 0.33241987E+00
+ 0.14034445E+01 0.37998933E+00 0.94033825E+00 0.12633942E+01
+-0.60186643E-01-0.11780193E+00 0.26741916E+00 0.93822643E-01
+-0.40619418E-01 0.80723641E-02-0.33849481E-01 0.31438507E-01
+ 0.26720112E-01 0.34434196E-01 0.15387811E-01 0.30153814E+00
+-0.68199985E-01 0.15819095E-01 0.84541179E-02-0.12130376E-01
+-0.27178498E-02 0.10475045E+00 0.49542687E-02 0.35022680E-01
+ 0.87533630E-01-0.61479896E-01-0.14135311E-01-0.12770660E-01
+ 0.36308039E-01 0.26710710E+00 0.10513934E-01-0.55483915E-02
+ 0.76266043E-02-0.12753191E-01-0.21390147E-02 0.58438715E-01
+-0.11032433E+00 0.12841828E+00-0.22302932E+00-0.96188486E-01
+ 0.17974999E-01 0.29908022E+00 0.44135422E+00-0.46303540E-01
+ 0.41154433E-01-0.14057259E-01 0.87432843E-02 0.30396742E+00
+ 0.75595453E-01-0.15522315E+00-0.17690331E-02 0.20859620E+00
+-0.87131839E-02-0.10404948E+00-0.36777064E+00 0.11611282E+00
+-0.29208448E-02-0.80868147E-01 0.16911151E-01 0.13700172E-01
+-0.13175465E+00-0.61796591E-01-0.48755106E-01-0.12370612E-01
+-0.54931860E-01-0.18966548E-01 0.25214590E-01 0.38970198E-01
+-0.42744722E-01 0.83304532E-01 0.22285062E+00-0.54338336E-03
+ 0.11550711E-02 0.12497649E-01 0.33643261E-01-0.49855210E-01
+ 0.77534869E-01-0.20823942E-01 0.56232158E-02-0.27867474E-01
+ 0.31055154E-01 0.45609649E-01-0.22880867E+00 0.88289447E-01
+ 0.14045586E-01-0.77454462E-02-0.15834920E-01-0.47239352E-01
+ 0.55206638E-01-0.21747222E-01 0.19386897E-01 0.35340972E-01
+ 0.19234702E-01 0.55831406E-01 0.12493882E-01-0.18281758E-01
+-0.14992007E-01-0.12327413E+00 0.10836018E-01 0.29655593E-01
+ 0.94482973E-02-0.85593509E-02 0.62130149E-02 0.62354233E-01
+ 0.73285494E-02-0.53194746E-01-0.14881391E-01 0.54990896E-02
+-0.13634078E-01-0.12771355E-01 0.14701579E-02-0.12577879E+00
+ 0.20759542E-01 0.37858854E-02-0.38624063E-01 0.25079571E-01
+ 0.28830525E-01 0.14798064E-01 0.11077589E-01 0.17425489E-01
+ 0.35621811E-01-0.25656393E-01-0.24061346E-01 0.10520253E-01
+ 0.45533017E-02 0.66021487E-01-0.21064222E-01-0.72724107E-02
+ 0.14031813E-01 0.59114888E-01 0.15700987E-01 0.68930597E-02
+-0.33762053E-01-0.16519623E-01-0.90381289E-02-0.59326985E-02
+ 0.11942729E-01 0.13869079E-01 0.63189775E-01 0.68125673E-01
+-0.60883962E-01-0.21250362E-01-0.66251666E-02-0.73823389E-02
+ 0.39793655E-01-0.44493157E-01 0.10462924E-01-0.12947634E-01
+-0.25500301E-02-0.15238015E-01 0.15929751E-01-0.17856486E-01
+-0.52744098E-01-0.53626947E-01 0.39534133E-01 0.30350417E-01
+ 0.46890290E-02-0.20292008E-02 0.65144026E-02 0.41108787E-01
+-0.98453555E-02-0.10881119E-01 0.51510613E-03 0.14489324E-01
+ 0.97736454E+01 0.14032146E+00 0.20471638E+00 0.45970183E-01
+ 0.19347202E-01 0.34263041E-02-0.56153454E-01 0.16434982E-01
+-0.13611992E-01 0.26763946E-01 0.57403501E-02 0.63922638E-02
+-0.11557203E-01 0.21873847E+00-0.40463670E-02 0.25696555E+00
+-0.28938836E+00 0.35062745E+00 0.15157066E+00-0.29073560E+00
+ 0.10218962E+00-0.17300349E+00-0.40608421E-01-0.18231006E-01
+-0.10038075E-01 0.41188154E-01 0.30748093E+02-0.22748404E+01
+-0.31234460E+01 0.27615957E+01 0.15846493E+01-0.34613076E+00
+ 0.56108177E+00 0.11689792E+00 0.14760590E+00-0.10534291E+01
+-0.31982246E+00 0.22981022E+00-0.44722270E-01-0.14903673E+02
+ 0.10495951E+00 0.34792299E+01 0.47500277E+01-0.45592580E+01
+-0.62566572E+00 0.40229535E+01-0.11005296E+01 0.26008980E+01
+-0.20069683E+00 0.20519117E+00 0.83855027E+00-0.12517659E+00
+-0.15924529E+03 0.13519261E+02 0.10932475E+02-0.29060259E+02
+-0.17306383E+02 0.23026779E+01-0.11505018E+01 0.89456850E+00
+ 0.19126704E+00 0.56772127E+01 0.24429238E+01-0.23409443E+01
+ 0.10148532E+01 0.11584834E+03-0.17900440E+02-0.13041323E+02
+-0.16672869E+02 0.35105484E+02-0.30701976E+01-0.21194830E+02
+ 0.64325070E+01-0.15774626E+02 0.32018068E+01 0.94925404E+00
+-0.46957250E+01-0.13125659E+01 0.29437540E+03-0.25372292E+02
+-0.15352101E+02 0.91963020E+02 0.53816139E+02-0.39363284E+01
+-0.11707987E+01-0.62234478E+01-0.21492360E+01-0.11163957E+02
+-0.70858817E+01 0.70973535E+01-0.29095371E+01-0.29224625E+03
+ 0.61603146E+02-0.42039781E+01 0.19493481E+02-0.98674675E+02
+ 0.13333192E+02 0.47858620E+02-0.16327671E+02 0.39196560E+02
+-0.93861637E+01-0.60532708E+01 0.96561794E+01 0.45459685E+01
+-0.26182547E+03 0.17990252E+02 0.11552253E+02-0.11288570E+03
+-0.65355690E+02 0.19973891E+01 0.40330243E+01 0.10058838E+02
+ 0.31824422E+01 0.93387594E+01 0.84235001E+01-0.84775333E+01
+ 0.29146054E+01 0.29994781E+03-0.74359123E+02 0.36368931E+02
+-0.57280774E+01 0.11249139E+03-0.15975358E+02-0.48075100E+02
+ 0.17203218E+02-0.41371578E+02 0.10335050E+02 0.90007267E+01
+-0.86931496E+01-0.47164741E+01 0.91385628E+02-0.41139150E+01
+-0.41653366E+01 0.47360004E+02 0.27213379E+02-0.10529798E-02
+-0.22038872E+01-0.48922997E+01-0.13381232E+01-0.28368783E+01
+-0.34559801E+01 0.34892297E+01-0.93806028E+00-0.10869084E+03
+ 0.30786814E+02-0.22838774E+02-0.15038877E+01-0.44714828E+02
+ 0.61636329E+01 0.17758163E+02-0.62771416E+01 0.15508571E+02
+-0.38858967E+01-0.40972447E+01 0.29156959E+01 0.15558701E+01
+-0.13369410E+00 0.17268354E+01 0.14351931E+01 0.76106519E-01
+-0.28437419E-01-0.11006788E-01 0.26756642E-01 0.27960541E-01
+ 0.89221104E-03 0.14117885E-01 0.26185049E-01-0.14624753E-02
+-0.14191492E-01 0.24574746E+00-0.14273102E+01 0.15711827E+01
+-0.83912954E-01 0.46123277E-01-0.25364889E-01-0.29690681E-01
+-0.29524004E-01 0.19983063E-01-0.17720954E-01 0.16691638E-01
+-0.70638601E-02-0.72944113E-02 0.39862120E+00-0.13170791E+00
+-0.64909148E+00-0.32600096E+00 0.21109910E+00-0.12451132E+00
+ 0.43011883E+00-0.18416311E+00 0.24612106E+00-0.10645313E+00
+ 0.16143291E+00-0.21634487E-01 0.63935556E-01 0.92620957E+00
+-0.49406093E+00 0.64722395E+00-0.72104082E-01 0.28068078E+00
+ 0.60120350E+00 0.27893120E+00 0.30756903E+00 0.17852144E-01
+-0.17372723E+00-0.12843073E-01 0.60005605E-01-0.44218376E+00
+ 0.10201948E+01 0.13495907E+02-0.10630937E+02-0.10683585E+01
+ 0.58663207E+00-0.10076985E+01-0.52236602E-01-0.47220096E+00
+ 0.46965632E+00-0.10257162E+01-0.77649891E+00 0.21886133E+00
+-0.13192793E-01-0.63123832E+01 0.98021412E+01 0.17635956E+02
+ 0.41804461E+01 0.17669466E+01 0.96404308E+00-0.45744419E-01
+ 0.97980118E+00-0.73717684E+00-0.27884778E+00-0.14686050E+00
+ 0.75753582E+00 0.43112877E+00-0.29365113E+01-0.14322780E+01
+ 0.14004352E+02 0.79823327E+00-0.58754277E+01 0.25628228E+01
+-0.86770887E+01 0.29869020E+01-0.79320574E+00 0.71983641E+00
+-0.20778570E+01 0.96054983E+00-0.10125142E+01-0.14787666E+02
+ 0.89715195E+01-0.16094648E+02 0.62427344E+01-0.78737440E+01
+-0.20880353E+01-0.53182220E+00-0.72572389E+01 0.20186639E+01
+-0.28493693E+00-0.16519644E+01-0.56926078E+00 0.75286026E+01
+ 0.38437169E+01 0.23742902E+01 0.10843651E+03 0.32352233E+01
+ 0.29753842E+01 0.82216110E+01-0.24196384E+01 0.54554963E+01
+-0.16184169E+00 0.67759509E+01 0.53559599E+01-0.44717285E+00
+-0.89659041E+00 0.51552006E+02-0.11602977E+03-0.19592438E+02
+-0.36331181E+02-0.12795036E+02-0.63453674E+01 0.43711376E+01
+-0.10106875E+02 0.51247444E+01 0.35840931E+01 0.18366957E+01
+-0.68241401E+01-0.46224647E+01-0.85184917E+01 0.16360107E+02
+-0.82426064E+02 0.12709790E+02 0.42946472E+02-0.15440465E+02
+ 0.50130878E+02-0.12952686E+02-0.69280114E+01-0.39795120E+01
+ 0.73542218E+01-0.55133834E+01 0.81558447E+01 0.96721992E+02
+-0.39015026E+02 0.11213722E+03-0.45417725E+02 0.37435158E+02
+-0.13082533E+01-0.10213682E+02 0.49293102E+02-0.15153333E+02
+ 0.73512311E+01 0.14430303E+02 0.19037811E+01-0.38897942E+02
+-0.43353905E+02-0.20246556E+03-0.28853781E+03 0.21355968E+01
+-0.19108803E+02-0.21631128E+02 0.12639037E+02-0.18742435E+02
+-0.96571703E+01-0.16555702E+02-0.14417870E+02 0.12324684E+00
+ 0.51283345E+01-0.14933170E+03 0.32959485E+03-0.18182323E+03
+ 0.11664076E+03 0.33371815E+02 0.17004457E+02-0.19989794E+02
+ 0.32714710E+02-0.11863819E+02-0.12437937E+02-0.82264671E+01
+ 0.19701031E+02 0.14783766E+02 0.80268501E+02-0.52966335E+02
+ 0.19053438E+03-0.56769230E+02-0.11784628E+03 0.38850357E+02
+-0.12247976E+03 0.22450397E+02 0.35795444E+02 0.12220045E+02
+-0.89107647E+01 0.82319517E+01-0.27355555E+02-0.27648264E+03
+ 0.89760971E+02-0.27464084E+03 0.11196627E+03-0.69628716E+02
+ 0.97918758E+01 0.44225208E+02-0.12664152E+03 0.35483727E+02
+-0.18650520E+02-0.41325413E+02-0.23082571E+01 0.85997475E+02
+ 0.88594856E+02 0.39292142E+03 0.33457990E+03-0.12988249E+02
+ 0.27334524E+02 0.24206512E+02-0.20228155E+02 0.24981485E+02
+ 0.22630320E+02 0.17233301E+02 0.16416178E+02-0.32048091E+00
+-0.83845139E+01 0.18617633E+03-0.39346274E+03 0.42378693E+03
+-0.15928719E+03-0.40951443E+02-0.20998573E+02 0.32289707E+02
+-0.42694340E+02 0.11828459E+02 0.17220362E+02 0.13173159E+02
+-0.22972109E+02-0.18645224E+02-0.14528056E+03 0.72072128E+02
+-0.21711536E+03 0.77514603E+02 0.13667310E+03-0.45385811E+02
+ 0.13474231E+03-0.16270960E+02-0.53262211E+02-0.17100195E+02
+ 0.23942339E+01-0.10488991E+01 0.37738712E+02 0.35145352E+03
+-0.85622932E+02 0.26572525E+03-0.10509781E+03 0.58970482E+02
+-0.46502337E+01-0.66478355E+02 0.13732690E+03-0.33438587E+02
+ 0.15821194E+02 0.48546875E+02 0.14652005E+01-0.85408585E+02
+-0.52937946E+02-0.20882060E+03-0.14351868E+03 0.98669796E+01
+-0.11305204E+02-0.10061109E+02 0.10184311E+02-0.11492324E+02
+-0.13785835E+02-0.64393106E+01-0.66763282E+01 0.56769723E+00
+ 0.43437328E+01-0.82705460E+02 0.16970370E+03-0.24499571E+03
+ 0.77111313E+02 0.21147839E+02 0.97495165E+01-0.17787193E+02
+ 0.19586727E+02-0.44074783E+01-0.82658730E+01-0.68889670E+01
+ 0.94197063E+01 0.82319374E+01 0.79956360E+02-0.38184700E+02
+ 0.95916229E+02-0.35911259E+02-0.56887783E+02 0.20183622E+02
+-0.54853699E+02 0.38453090E+01 0.25204611E+02 0.86927290E+01
+ 0.11558259E+01-0.29337678E+01-0.18029606E+02-0.15973770E+03
+ 0.28304308E+02-0.87137711E+02 0.30577978E+02-0.21899446E+02
+-0.35690374E+01 0.34283478E+02-0.53517769E+02 0.10929289E+02
+-0.38510764E+01-0.20168242E+02-0.64146167E+00 0.31352381E+02
+ 0.29265393E-01-0.24591343E+00 0.14553222E+00-0.84675032E+00
+ 0.61966658E+00-0.31919140E-01 0.56226421E-01 0.23503466E-01
+ 0.53592073E-02-0.20415217E-01 0.15285027E-01-0.63779615E-02
+ 0.55775273E-03 0.90108313E-01-0.20454387E+00-0.73520780E-01
+-0.64477378E+00-0.82056785E+00-0.32559566E-01-0.23924757E-01
+-0.15155605E-01-0.23472775E-01-0.29544417E-01 0.71342289E-02
+-0.47043166E-02-0.47027934E-02 0.52882087E+00 0.75878024E+00
+ 0.37392050E+00 0.52214783E+00-0.73013431E+00 0.44710663E+00
+ 0.54939032E-01 0.22959816E+00 0.20311107E+00-0.81182420E-01
+-0.88519581E-01-0.12205946E+00-0.90271063E-01 0.76053393E+00
+ 0.47488001E+00 0.52843851E+00 0.69257706E+00 0.27872598E+00
+ 0.68038344E-01 0.28850755E+00-0.78320973E-01 0.16159263E+00
+-0.23097005E+00-0.32177996E-01 0.43377087E-01-0.46754386E-01
+ 0.45139912E+00 0.33630769E+01-0.12169751E+01-0.37143755E+01
+ 0.72003312E+01-0.30781597E+00-0.21212363E+01-0.96283758E+00
+ 0.84034169E+00 0.23972341E+00-0.28099918E+00 0.56343917E-01
+-0.53734177E+00-0.14882063E+01 0.13920959E+01 0.12130704E+01
+-0.79513636E+01-0.25826595E+01-0.42678672E+00 0.51285851E+00
+ 0.19756992E+00 0.12423240E+01 0.54061139E+00-0.37421107E-01
+ 0.29954505E+00 0.11390962E+00-0.56358533E+01-0.57385144E+01
+-0.52712636E+01-0.10486714E+01 0.53347268E+01-0.35143905E+01
+-0.12000906E+01-0.28657036E+01-0.12631081E+01 0.94290608E+00
+ 0.92692262E+00 0.13676528E+01 0.12747043E+01-0.10084604E+02
+-0.83411729E+00-0.68800192E+01-0.56028543E+01-0.31238866E+00
+ 0.13777543E+01-0.14698855E+01 0.52827829E+00-0.40625021E+00
+ 0.18055102E+01-0.78214049E+00-0.69355123E-01 0.65176880E+00
+ 0.11241800E+01-0.65113230E+01-0.21158099E+01 0.29776365E+02
+-0.24963110E+02 0.54256268E+01 0.11766754E+02 0.49691448E+01
+-0.47331429E+01 0.25715870E+00 0.14093016E+01-0.11038080E+01
+ 0.35657845E+01 0.14730919E+02-0.30367286E+01-0.11354827E+02
+ 0.30109867E+02 0.22487963E+02 0.39788237E+01-0.24708533E+01
+-0.19585212E+01-0.73399401E+01-0.29647706E+01 0.20387471E+00
+-0.30212843E+01-0.14654021E+01 0.14754129E+02 0.11049473E+02
+ 0.13400968E+02 0.58017559E+01-0.10485391E+02 0.91833000E+01
+ 0.26157830E+01 0.80078135E+01 0.25257504E+01-0.23380883E+01
+-0.18219419E+01-0.34472325E+01-0.37856765E+01 0.27359425E+02
+-0.55443020E+01 0.20240791E+02 0.79822865E+01 0.63297043E+01
+-0.35024116E+01 0.38299043E+01 0.60368818E+00 0.41653635E-02
+-0.47033868E+01 0.24803977E+01-0.54888380E+00-0.18400835E+01
+-0.71220417E+01-0.11084239E+01 0.93044796E+01-0.59619061E+02
+ 0.21860548E+02-0.16687052E+02-0.19368769E+02-0.89723320E+01
+ 0.81729593E+01-0.26830549E+01-0.22497013E+01 0.32522850E+01
+-0.77899055E+01-0.42522598E+02 0.84326611E+01 0.25657207E+02
+-0.35328533E+02-0.45498726E+02-0.12340075E+02 0.45494366E+01
+ 0.38336654E+01 0.14014010E+02 0.50293469E+01-0.80758733E+00
+ 0.73919759E+01 0.33322282E+01-0.14168424E+02-0.38411441E+01
+-0.11940656E+02-0.86237640E+01 0.33731959E+01-0.65763731E+01
+-0.14734651E+01-0.60773010E+01-0.16627012E+01 0.18981390E+01
+ 0.91158038E+00 0.23963671E+01 0.29741066E+01-0.22353624E+02
+ 0.11713838E+02-0.14435802E+02 0.11054903E+01-0.10635337E+02
+ 0.18735406E+01-0.32202849E+01-0.17535979E+01 0.22505578E+00
+ 0.38518550E+01-0.17070565E+01 0.92721128E+00 0.15198689E+01
+ 0.53186111E+01 0.61862016E+01-0.31186655E+01 0.37600212E+02
+-0.35645136E+00 0.12633383E+02 0.96007862E+01 0.52255836E+01
+-0.41970530E+01 0.22828405E+01 0.11919301E+01-0.24510043E+01
+ 0.52333202E+01 0.34840076E+02-0.12539686E+02-0.16330975E+02
+ 0.10885726E+02 0.29065947E+02 0.10912358E+02-0.25189373E+01
+-0.15795352E+01-0.82213926E+01-0.28210602E+01 0.71790761E+00
+-0.55111480E+01-0.20255141E+01-0.19228468E-01-0.13114972E+00
+ 0.15714884E-01-0.59424613E-01 0.61318103E-01-0.58697629E+00
+-0.10644103E+01 0.20145899E-01-0.13622616E-01-0.18642439E-01
+ 0.22151224E-01 0.47150520E-02 0.11869197E-02 0.58520351E-01
+-0.16852538E+00-0.50097305E-01 0.11990506E-01-0.65762773E-02
+ 0.10272388E+01-0.58508122E+00 0.10597577E-01 0.35774235E-01
+-0.15361957E-02-0.45238879E-01-0.18923517E-01-0.59281811E-02
+ 0.25976369E+00 0.61606842E+00 0.13208783E-01 0.22894323E+00
+-0.39829186E+00 0.10561230E+00-0.10849887E+00 0.61109383E-01
+ 0.13916729E+00 0.60511831E-01 0.12184703E-01 0.34330254E-02
+ 0.49652576E-01 0.33294815E+00 0.93975160E-02-0.15443997E-01
+ 0.12950849E-01-0.53923000E-01 0.16462359E+00 0.16396619E+00
+-0.73470592E-01 0.80365367E-01-0.35155836E-01-0.88913888E-01
+-0.47349852E-01 0.39145373E-01 0.11885962E+01 0.70961654E+00
+ 0.16401079E+00 0.73770237E+00-0.50291091E+00 0.21559596E+01
+ 0.16197531E+01-0.89583582E+00 0.20669129E+00 0.29641485E+00
+ 0.17593935E+00 0.21165982E-01-0.99231154E-02-0.12865351E+01
+ 0.23329020E+01-0.46353462E+00-0.75524963E-01 0.23183054E+00
+-0.19695925E+01 0.19060562E+01-0.13436994E+00-0.10136840E+01
+ 0.37376542E-01 0.39470100E+00 0.21998765E+00-0.11666382E-01
+-0.71975428E+00-0.56198847E+00 0.62459812E-01-0.95555380E-01
+ 0.97378629E+00 0.58153582E+00 0.55926204E+00-0.48008882E-01
+-0.39891291E+00-0.46037629E-01 0.33642620E-01 0.59914336E-01
+-0.43716524E-01-0.10643944E+01-0.18275885E+00-0.33081704E+00
+-0.55505341E+00 0.37782079E+00-0.80053759E+00 0.45424259E+00
+-0.85584493E-02-0.85956886E-01 0.12678237E+00 0.19393581E+00
+ 0.18442687E+00-0.24153914E-01-0.15753589E+01-0.46785453E+00
+-0.12589587E+01-0.16451536E+01 0.12443190E+01-0.42283177E+01
+-0.14672083E+01 0.14503810E+01-0.24458455E+00-0.60518199E+00
+-0.42549494E+00-0.76019049E-01-0.11163369E+00 0.21944077E+01
+-0.25643041E+01 0.99713415E+00-0.11333123E+00-0.71992117E+00
+ 0.24609313E+01-0.36890426E+01 0.18535003E+00 0.17068619E+01
+-0.43102510E-01-0.49058500E+00-0.35204008E+00-0.33120699E-01
+-0.58546931E-01-0.61199530E-02 0.13920870E-01-0.22593593E-01
+ 0.60600404E-01-0.26639467E-01-0.16022459E-01 0.32998070E+00
+-0.22570471E+00 0.51776585E-02 0.17488200E-01-0.34345095E-02
+-0.48399698E-02 0.23667336E-01 0.10178508E+00-0.29486222E-01
+ 0.57037488E-01-0.34963217E-01 0.11159874E-01-0.30660912E-01
+ 0.19712472E+00 0.30310646E+00-0.16301766E-01 0.55935443E-03
+-0.90922392E-03 0.42374507E-02-0.16880974E+00 0.95758550E-01
+-0.14629462E+00 0.12069291E+00 0.56210205E-01-0.12945679E+00
+ 0.17435406E+00 0.96609093E-01 0.45201021E+00-0.36387533E-01
+-0.25372004E-01 0.18637785E-02-0.35717620E-02 0.18735176E+00
+-0.15473643E-01 0.31935621E-01 0.47426168E-02 0.11311485E+00
+-0.13744952E+00-0.12981303E+00-0.40770856E+00 0.16419126E-01
+ 0.27462881E-03-0.82576886E-01-0.18355066E-01-0.51394594E-02
+-0.22159746E-01-0.74835721E-03-0.36677279E-01 0.25976226E-01
+ 0.33930016E-02 0.16898612E-01 0.23251474E-02 0.38304754E-01
+-0.42265587E-01 0.20900027E+00 0.22713178E+00-0.21249074E-02
+-0.10710889E-01 0.22197489E-01 0.83272249E-01-0.76565236E-01
+ 0.21317841E-02-0.13129898E-01 0.16477922E-01 0.48060704E-01
+ 0.35126519E-02 0.52965067E-01-0.20686191E+00 0.17197247E+00
+-0.42362534E-02-0.16804585E-01 0.21828212E-01-0.31586766E-01
+ 0.81997104E-01 0.30568482E-01 0.17527269E-01 0.51112954E-01
+-0.15168884E-02 0.15925393E-02-0.10897530E-01-0.70789969E-02
+ 0.73832730E-02-0.12407729E+00 0.85962117E-01 0.66300765E-01
+ 0.51962450E-01-0.13351660E-01-0.23629975E-01 0.20142781E-01
+ 0.38463738E-01-0.13412732E-01-0.93066981E-02-0.41893595E-02
+ 0.41461214E-02-0.17357355E-01-0.11255018E+00-0.12668885E+00
+-0.59766680E-01-0.32285359E-01-0.46988070E-01 0.39100412E-01
+ 0.98173115E-02 0.30527687E-01-0.36675990E-01-0.82789976E-02
+ 0.30238917E-01-0.19059830E-02-0.11280150E-01-0.14733355E-01
+-0.83649457E-02 0.45781240E-01 0.46038061E-01 0.41310016E-01
+-0.11225826E+00-0.28089361E-01 0.13309368E-01-0.41037355E-01
+-0.30710904E-01-0.95726689E-02-0.23963351E-01 0.16758924E-01
+ 0.11331435E-01 0.23001438E-01 0.68212301E-02 0.87390676E-01
+ 0.28464913E-01-0.32604266E-01-0.19913841E-01-0.69480464E-01
+-0.14800048E-01 0.22902381E-01 0.37979659E-01 0.20491343E-01
+-0.21194531E-01-0.35256979E-02-0.19661651E-02-0.39640926E-01
+ 0.19599617E-01-0.60924832E-01-0.32056216E-01 0.47802251E-01
+ 0.17946452E-01-0.80087418E-02 0.32511208E-01-0.46744170E-02
+ 0.21583992E-02-0.19618925E-01-0.14446047E-01-0.65722289E-02
+ 0.30586901E+01-0.16637227E-01 0.11471306E-01 0.27490901E-02
+ 0.25678012E-02 0.37677912E-02 0.98502170E-02-0.31296548E-02
+-0.10140381E-02-0.13978875E+00 0.40312845E-01 0.71543925E-01
+ 0.19734301E-01-0.78674164E-02-0.28102145E-01-0.14239720E-01
+-0.12600211E-01 0.16756015E-01 0.90984887E+00 0.30035329E+00
+-0.44702735E-01-0.11969292E+00-0.10557233E+00-0.41341111E-01
+-0.80306910E-01 0.44076685E-01 0.34757949E-01 0.86042881E-01
+-0.43596470E+00-0.28588781E+00-0.25438232E-01 0.25069173E-01
+ 0.82588397E-01 0.67566939E-01 0.33206843E-01-0.41824643E-01
+-0.12932888E+01-0.72340810E+00 0.77358051E-02 0.28751051E+00
+ 0.31436363E+00 0.10259442E+00 0.24149394E+00-0.12717050E+00
+-0.11702042E+00-0.22331176E-01 0.38658845E+00 0.28259498E+00
+ 0.19711521E-02-0.24714001E-01-0.56775019E-01-0.61311480E-01
+-0.21844221E-01 0.23831621E-01 0.39463902E+00 0.47750130E+00
+ 0.76429829E-01-0.16718166E+00-0.21960321E+00-0.68737417E-01
+-0.17916369E+00 0.90928286E-01 0.88356271E-01 0.15348783E-01
+-0.19566035E+00-0.33543330E+00 0.15999714E-01-0.25417623E-02
+ 0.83187250E-02 0.10059298E-01-0.18240046E-02-0.25734284E-02
+ 0.16147807E-01 0.36533716E+00-0.16898610E+00-0.20461163E-01
+ 0.10633610E-01-0.42438932E-03-0.20938257E-01-0.21641953E-02
+ 0.55525000E-02-0.45814320E-01 0.26786938E-01 0.10879262E+00
+ 0.84931575E-01 0.15261321E-01-0.21805953E-01-0.14455589E-01
+ 0.77350605E-02 0.63701227E-01 0.53684928E-01 0.14995110E-01
+-0.27922710E-01-0.33047084E-01 0.29755291E-01-0.18964428E-01
+-0.24144307E-01 0.18880604E-01 0.58857322E-01-0.22821718E+00
+ 0.75741506E+00 0.14800967E+01 0.46163443E-01-0.14732170E+00
+-0.15568149E+00-0.56558043E-01 0.70298553E-01 0.11026065E+00
+-0.79187071E+00-0.15295109E+01 0.65210593E+00 0.17441598E+00
+ 0.41551366E-01-0.66639587E-01 0.12556066E+00-0.61385304E-01
+ 0.27926465E-01 0.87673557E+00-0.39955699E+00-0.11206909E+01
+-0.28584492E+00-0.59748320E-02 0.23729971E+00-0.19509710E+00
+ 0.81449501E-01-0.73962659E+00 0.28284615E+00 0.89057451E+00
+ 0.18807463E+00-0.24254571E+00-0.17398730E-01 0.79301950E-02
+ 0.20122550E+00 0.40711228E-01-0.34922609E+00 0.67434180E+00
+-0.67298329E+00-0.74801010E+00-0.38288945E+00 0.36076793E+00
+ 0.47676265E+00 0.13727280E+00-0.16624431E+00-0.43988281E+00
+ 0.26705718E+01 0.34237185E+00-0.97559363E+00-0.27165601E+00
+-0.16340867E+00 0.21915103E+00-0.12436141E+00 0.95994301E-01
+-0.12902556E+00-0.24572020E+01 0.30924758E+00 0.28079758E+01
+ 0.50721401E+00-0.17149813E+00-0.52098680E+00 0.85138261E+00
+-0.28973010E+00 0.17749029E+01-0.11304549E+01-0.23089054E+01
+-0.42302907E+00 0.84942168E+00 0.32151359E+00 0.73436782E-01
+-0.39552429E+00-0.25851825E+00 0.62756401E+00-0.39601427E+00
+ 0.25266504E+00-0.31376165E+00 0.29245359E+00-0.21280552E+00
+-0.37739208E+00-0.73750824E-01 0.96640058E-01 0.40330350E+00
+-0.21711268E+01 0.10492510E+01 0.67013448E+00 0.88845745E-01
+ 0.71819268E-01-0.15133914E+00-0.11708713E-01-0.57785516E-02
+ 0.95103070E-01 0.18162587E+01 0.38207385E+00-0.23117478E+01
+-0.38997951E+00 0.19229445E+00 0.28452805E+00-0.74004084E+00
+ 0.22057386E+00-0.11552705E+01 0.10284771E+01 0.18343008E+01
+ 0.33841428E+00-0.62726456E+00-0.48801002E+00-0.87205552E-01
+ 0.21157789E+00 0.21693024E+00-0.32993799E+00-0.18698256E-01
+-0.71124723E-02-0.16465351E-02 0.46282008E-01-0.15294395E+00
+-0.13111427E-03-0.99337585E-02-0.43608667E-02-0.90814838E-02
+ 0.45116893E-02-0.97028855E-02 0.12505715E-01 0.16136165E+00
+ 0.81213906E-01-0.58312347E-03-0.18872097E-01-0.72849258E-02
+ 0.14784365E-02 0.11196061E+00 0.20533665E+00 0.13476495E+00
+ 0.33945632E+00-0.11701981E+00 0.27578942E-01-0.47568362E-01
+ 0.25997533E-01 0.16754409E-01-0.93068995E-01 0.18283080E-01
+ 0.31589814E-01 0.22644915E+00 0.42842603E+00 0.72851159E-01
+ 0.11030859E-01 0.23866531E-02 0.14397724E-01 0.61859138E-01
+ 0.55517521E-01-0.38489584E-01-0.42788506E-01-0.22592755E+00
+-0.99609442E-01 0.99531204E-01 0.29087320E-01 0.16361941E+00
+-0.23381135E+00 0.14897207E-01-0.29369393E+00 0.21109748E+00
+-0.18685365E+00-0.38392194E-01 0.10634159E+00-0.28300032E-02
+ 0.66435995E-03-0.47440812E+00-0.11250492E+01-0.27856839E+00
+-0.13569555E+01 0.21064770E+00-0.44342969E-01 0.76229990E-01
+-0.24290409E-01-0.11261434E+00 0.10018148E+01 0.22767542E+00
+-0.75611047E-01-0.59486103E+00-0.14215121E+01-0.24381903E+00
+-0.25383967E+00 0.49857941E-01-0.13947746E+00-0.18549798E+00
+-0.21002911E+00-0.15347001E-01-0.16834821E+00 0.21803890E+00
+ 0.20929639E+00-0.10061080E+00-0.31904507E-01-0.28207496E+00
+ 0.25608513E+00-0.18180054E+00 0.42851421E+00-0.17312264E+00
+-0.17903680E-01 0.86439624E-01-0.80150083E-01 0.17098183E-01
+-0.30419683E-01 0.51279235E+00 0.15700254E+01 0.14896685E+00
+ 0.12490706E+01-0.17830937E+00 0.75656466E-01-0.44224098E-01
+-0.61300103E-01 0.12280394E+00-0.14596163E+01-0.35159817E+00
+ 0.27934030E+00 0.59198815E+00 0.11541491E+01 0.17868274E+00
+ 0.44150430E+00-0.87764300E-01 0.17973503E+00-0.24559209E-01
+ 0.12929835E-01 0.68207067E-02-0.12768010E-01-0.38065603E-02
+ 0.26851548E-01-0.10830905E-01 0.77535969E-03-0.17365512E-02
+-0.15774000E-01-0.33989731E-01-0.11249687E-01 0.58662505E-02
+-0.10439691E-01 0.19332505E-02 0.34207720E-01-0.10329138E-01
+-0.22380955E-02 0.55513047E-01 0.53344555E-01 0.27011273E-01
+-0.84630392E-01 0.11442303E-01 0.11869611E-01 0.18336920E-01
+ 0.21410547E-02 0.52863415E-02 0.21707227E-01-0.38661321E-02
+-0.25270691E-01-0.34020606E-01-0.14334359E-02-0.38540121E-02
+ 0.28737679E-01 0.37115016E-02-0.18286736E-02-0.17681256E-02
+-0.14221156E+00-0.59075002E-01 0.19836439E-01-0.76047629E-02
+-0.12995811E+00-0.11560405E+00-0.16809883E-01 0.35188191E-01
+ 0.23344200E-01 0.10418752E+00-0.43988552E-01-0.21166109E-01
+-0.33218442E-02 0.14282972E+00-0.15798105E+00 0.98103182E-02
+ 0.10149175E-01-0.20782379E-01-0.12256938E-01 0.90859635E-02
+ 0.14533856E-01-0.24522969E-02 0.11254709E-01 0.13583394E-02
+ 0.43356489E-01 0.26643327E-02-0.14128673E-01 0.47900616E-02
+-0.10882850E-01-0.47548087E-02-0.53821979E-02 0.31365620E-02
+ 0.12613773E-01-0.60953344E-02 0.45044251E-01 0.63900851E-01
+-0.59823156E-02 0.71507203E-02-0.16160239E-01-0.33681545E-01
+-0.40392941E-02 0.60944878E-02 0.60271841E-01 0.34214541E-01
+ 0.23164382E-01-0.68351336E-01 0.12046548E-01 0.31958293E-01
+ 0.36123714E-02-0.11482013E-01-0.12627610E-01-0.46289042E-01
+ 0.64354017E-01 0.10392379E-02-0.16863159E-02 0.73957373E-02
+-0.10698938E-02-0.64807963E-02 0.99908616E-02 0.22006985E-02
+-0.50359694E-02-0.14203113E-02 0.12199912E-01 0.20179294E-01
+-0.62138624E-02 0.78815650E-02-0.74640587E-02 0.73885913E-02
+ 0.22004370E-02 0.85453289E-02 0.76826192E-02 0.31520717E-02
+-0.12767011E-02 0.30879308E-02 0.64275470E-02-0.43601147E-02
+ 0.98584695E-02 0.17043862E-02 0.84848665E-02 0.36111218E-02
+-0.43704277E-02-0.78293349E-03-0.17360970E-01-0.11529316E-02
+ 0.11252892E-01-0.21595629E-02-0.14455176E-02 0.98986849E-04
+ 0.87585188E-02 0.26772809E+01-0.86198850E-02 0.94552236E-02
+ 0.55961576E-02 0.43859920E-02 0.41296384E-02 0.46669282E-02
+-0.20577968E-02-0.24387249E-03-0.65158509E-01 0.74515760E-01
+ 0.72828352E-01 0.12489909E-01 0.58226571E-02-0.11427455E-01
+-0.15949465E-01-0.65154112E-02 0.17882379E-02 0.12957149E+01
+ 0.13960780E+00-0.44050530E-01-0.51063329E-01-0.63741840E-01
+-0.59596483E-01-0.53228300E-01 0.46188686E-01 0.11657926E-01
+-0.15501007E+00-0.51885819E+00-0.24664447E+00-0.34158930E-01
+-0.38116850E-01 0.12921122E-01 0.49244039E-01 0.17124636E-01
+-0.53521986E-02-0.20537572E+01-0.26769561E+00 0.49208454E-02
+ 0.11124684E+00 0.16032118E+00 0.16892996E+00 0.16521209E+00
+-0.12701942E+00-0.60623229E-01 0.17818429E+00 0.42037153E+00
+ 0.23076217E+00 0.26306644E-01 0.27854430E-01-0.14802126E-02
+-0.40314917E-01-0.73871380E-02 0.24690884E-02 0.82360959E+00
+ 0.18576214E+00 0.74848384E-01-0.66371389E-01-0.10588888E+00
+-0.11814051E+00-0.11794991E+00 0.87646529E-01 0.56451142E-01
+ 0.19192193E-01-0.34562644E+00-0.26493758E+00 0.78390101E-02
+-0.45823748E-02 0.45295575E-03 0.74164444E-02-0.11921156E-02
+ 0.17643599E-02 0.59155165E-04 0.28991437E+00-0.32774398E+00
+-0.21361131E-01 0.55374289E-02 0.53592436E-02-0.18224832E-01
+-0.22406343E-02 0.48251497E-02 0.43235659E-02 0.13838615E+00
+ 0.46312861E-01 0.21590933E-01 0.16815718E-01-0.19970588E-01
+ 0.64824068E-04-0.19745342E-03 0.47364235E-01 0.35681468E-01
+ 0.49083747E-01 0.10480716E+00 0.58407634E-02 0.63248561E-02
+ 0.33869767E-02-0.22746570E-01 0.86412365E-02 0.40659290E-01
+-0.36743322E+00 0.11957974E+01 0.91784447E+00 0.13865001E+00
+-0.27913701E-01-0.31462729E-01-0.16293770E-01 0.48463598E-01
+-0.73108380E-03-0.61130720E+00-0.93153477E+00 0.12323002E+01
+ 0.17962562E+00 0.92122052E-02-0.88324815E-01 0.12294372E+00
+-0.67933217E-01-0.18161764E-01 0.24850307E+00-0.11966048E+01
+-0.56054062E+00-0.38083974E-01-0.12794180E+00 0.15602164E+00
+-0.32316092E+00 0.64251274E-01-0.52134240E+00 0.38644767E+00
+ 0.52516818E+00-0.71278828E+00-0.22031011E+00 0.48846070E-01
+-0.63622043E-01 0.20911933E+00 0.87847181E-01-0.20944715E+00
+ 0.10246786E+01-0.12937899E+01-0.40522784E+00-0.58681512E+00
+ 0.13400623E+00 0.13890813E+00 0.50930053E-01-0.12004627E-01
+-0.18637219E-01 0.22995977E+01-0.29405490E+00-0.19752228E+01
+-0.36606318E+00-0.36992472E-01 0.18337315E+00-0.16064256E+00
+ 0.12423857E+00 0.50655352E-02-0.79235864E+00 0.22702663E+01
+ 0.19082406E+01 0.38968597E-01 0.33631064E-01-0.34791511E+00
+ 0.11422637E+01-0.18621103E+00 0.13048165E+01-0.16866664E+01
+-0.17086961E+01 0.15004869E+01 0.64295954E+00 0.89812361E-01
+ 0.19795394E+00-0.47849467E+00-0.32040602E+00 0.35970518E+00
+-0.68489271E+00 0.76091516E+00 0.12355461E+00 0.44687083E+00
+-0.14212961E+00-0.13827266E+00-0.91967387E-02-0.65421730E-01
+ 0.32495581E-01-0.19574792E+01 0.92517078E+00 0.13603250E+01
+ 0.23316291E+00-0.27497089E-01-0.11032374E+00 0.18738519E-01
+-0.33233728E-01-0.10697253E-01 0.59273267E+00-0.12416369E+01
+-0.19759161E+01 0.18526608E-01 0.10760016E+00 0.19402064E+00
+-0.95974118E+00 0.11718221E+00-0.88802713E+00 0.15903203E+01
+ 0.16918579E+01-0.10219685E+01-0.45557439E+00-0.17555867E+00
+-0.13787279E+00 0.30494553E+00 0.23491570E+00-0.17701098E+00
+-0.17107019E-01-0.11062065E-01 0.93461676E-02 0.72881304E-01
+-0.11495988E+00-0.24580231E-02-0.34615425E-02-0.27623498E-02
+-0.68666781E-02-0.95973676E-02-0.17075194E-01 0.91627231E-02
+ 0.10242627E+00 0.92916168E-01 0.24848136E-02-0.11218095E-01
+-0.55938442E-02 0.10607603E-03 0.10907742E+00 0.13264808E+00
+ 0.73107131E-01 0.13814703E+00 0.24720404E-01 0.25445605E-01
+-0.19353466E-01-0.68268122E-03 0.79990206E-02 0.44637113E-02
+ 0.49218766E-01-0.18194420E-01 0.33405833E-01 0.20319274E+00
+ 0.36236916E-01 0.17274117E-01-0.63722855E-02 0.33721287E-01
+ 0.25666658E-01 0.92364043E-01-0.91084383E-01-0.36218074E+00
+ 0.19792330E+00-0.52057378E-01 0.40467951E-01-0.31956337E-01
+ 0.12260315E+00-0.15529650E+00 0.11941776E+00-0.13577776E+00
+-0.17587660E+00-0.45683962E+00-0.65770708E-01 0.69410942E-01
+-0.18389063E-01 0.85385451E-02-0.37895921E+00-0.73540902E+00
+-0.56422465E-01-0.47111732E+00-0.20011030E+00-0.17941417E-01
+ 0.27807336E-01 0.76329634E-01-0.42905848E-01 0.33812630E+00
+-0.11257858E+00 0.52691784E-01 0.99168252E-02-0.50797993E+00
+-0.69310442E-01-0.12250749E+00 0.10490370E+00-0.24429388E+00
+-0.96905559E-01-0.29989800E+00 0.95130719E-01 0.83204031E-01
+-0.46254903E+00 0.10771059E+00-0.16102755E-01 0.71079575E-01
+-0.19646353E+00 0.21520536E+00-0.41078597E+00 0.15975517E+00
+ 0.48532072E+00 0.16240959E+00 0.74154310E-01-0.57246845E-01
+ 0.45167182E-01-0.30693915E-01 0.27020487E+00 0.10784189E+01
+-0.53013716E-01 0.46552581E+00 0.92620172E-01 0.51729448E-01
+-0.36019329E-01-0.14987502E+00 0.62644877E-01-0.55153680E+00
+ 0.28454646E+00 0.94641276E-01 0.93170024E-01 0.38448083E+00
+ 0.47209587E-01 0.20970257E+00-0.13942525E+00 0.29898921E+00
+-0.25534306E-01 0.54413616E-02 0.14065277E-01-0.76298043E-02
+-0.10420343E-01 0.29778404E-01-0.41098725E-01-0.40198048E-02
+-0.51609301E-02-0.10902795E-01-0.23414372E-01-0.62101181E-02
+ 0.97503457E-02-0.91798007E-02 0.33085518E-01 0.36749907E-01
+-0.47427085E-02-0.77581666E-02 0.33572678E-01 0.60052566E-01
+ 0.14006686E-01-0.36195546E-01 0.13402758E-01 0.33575904E-01
+ 0.35400663E-02-0.38376546E-02 0.42043719E-02 0.25882047E-01
+ 0.10295448E-01-0.20480629E-02-0.22618541E-01-0.37360494E-02
+ 0.12422180E-02 0.29957978E-01 0.19331203E-02 0.71227252E-02
+ 0.44606984E-01-0.10304903E+00-0.50200410E-01-0.11642319E-02
+ 0.27468766E-02-0.13490731E+00-0.85447587E-01-0.19251921E-02
+ 0.38483702E-01 0.11273085E-01 0.55817258E-01-0.40558748E-01
+-0.12057238E-02 0.39492734E-02 0.10076770E+00-0.14639939E+00
+-0.27176535E-02 0.11188758E-01-0.19127030E-01-0.16049713E-01
+ 0.92721246E-02 0.23639505E-02-0.56997489E-03 0.52273925E-02
+ 0.54570334E-03 0.32571722E-01 0.92297168E-02-0.76535931E-02
+ 0.41365675E-02-0.10613388E-01 0.34963775E-02-0.13046856E-02
+ 0.11616315E-02 0.74619632E-02-0.10147394E-01 0.32333374E-01
+ 0.38845401E-01 0.55554281E-02-0.41929283E-02-0.15542838E-01
+-0.18608436E-01-0.68834010E-02 0.12991249E-01 0.47244698E-01
+ 0.51083591E-01 0.33533398E-01-0.61769698E-01 0.22310423E-01
+ 0.10246638E-01-0.62199375E-02-0.11598877E-01-0.16985392E-01
+-0.50428756E-01 0.41603886E-01 0.17688370E-02-0.36227442E-02
+ 0.84820492E-02 0.28933492E-02-0.58887932E-02 0.68608033E-02
+ 0.30614494E-03-0.15316576E-02-0.24033547E-02 0.92781493E-02
+ 0.14051887E-01-0.10239172E-01 0.53211111E-02-0.21397618E-02
+ 0.44980948E-02 0.54727206E-02 0.70043919E-02 0.11711870E-01
+ 0.68015773E-02 0.21883957E-02 0.35151727E-02 0.67476844E-02
+-0.67525292E-02 0.54354891E-02 0.19866449E-02 0.76344414E-02
+ 0.59919464E-02-0.26257581E-02-0.48037629E-04-0.10798140E-01
+ 0.56925311E-03 0.80262767E-02-0.51455793E-03-0.93577243E-03
+-0.71163801E-03 0.78903772E-02
diff --git a/input/glow_data/iri90/ccir15.asc b/input/glow_data/iri90/ccir15.asc
new file mode 100644
index 0000000..2dc770f
--- /dev/null
+++ b/input/glow_data/iri90/ccir15.asc
@@ -0,0 +1,715 @@
+ 0.56421361E+01-0.81572428E-01 0.20138618E+00 0.42779669E-01
+ 0.44377025E-01 0.38025160E-02-0.87150786E-03 0.21708569E-01
+-0.23025220E-01-0.33594195E-02 0.21446483E-03-0.18263943E-02
+-0.12104558E-01-0.10026588E+01-0.77602589E+00 0.80115181E+00
+-0.27182043E+00 0.54614949E+00-0.18997940E+00 0.82413152E-01
+-0.38998052E-01-0.97885408E-01 0.13837354E+00 0.10652158E+00
+-0.15692274E+00 0.99289812E-01 0.80236692E+01 0.19602764E+01
+-0.35586731E+01 0.28472129E+00-0.56597894E+00-0.44183967E+00
+ 0.13710301E+00 0.35544112E-01 0.41852084E+00 0.63865769E+00
+-0.19955039E+00 0.11715313E+00 0.86535461E-01 0.14375471E+02
+ 0.64524765E+01-0.62800088E+01 0.55624423E+01-0.81383467E+01
+ 0.28389122E+01-0.18190529E+01 0.17703345E+00 0.13019991E+01
+-0.19010282E+01-0.25744607E+01 0.22809548E+01-0.81978828E+00
+-0.53995434E+02-0.20322048E+02 0.18375986E+02-0.74895936E+00
+-0.51071935E+01 0.81174737E+00-0.39087531E+00-0.14415859E+01
+-0.10194235E+01-0.38520768E+01 0.11969794E+01-0.14105285E+01
+-0.62901032E+00-0.18940151E+02-0.23667875E+02 0.88806610E+01
+-0.27459188E+02 0.41921669E+02-0.13132250E+02 0.69411273E+01
+-0.15238301E+01-0.77653646E+01 0.84578733E+01 0.15979069E+02
+-0.12099964E+02 0.12503768E+01 0.11738895E+03 0.68091232E+02
+-0.39820190E+02-0.16654693E+01 0.25928150E+02 0.13787634E+01
+-0.43914926E+00 0.40016642E+01 0.47450104E+00 0.83207235E+01
+-0.34342322E+01 0.43038507E+01 0.21257403E+01-0.37460907E+02
+ 0.41022415E+02 0.10812599E+02 0.51976315E+02-0.94334923E+02
+ 0.25150223E+02-0.89467859E+01 0.58774261E+01 0.20332344E+02
+-0.17085917E+02-0.38310886E+02 0.27109829E+02 0.87873173E+00
+-0.12372593E+03-0.87597099E+02 0.38698399E+02 0.42182999E+01
+-0.37059380E+02-0.34062238E+01 0.15188286E+01-0.37199290E+01
+ 0.36815086E+00-0.74235358E+01 0.42371931E+01-0.49250031E+01
+-0.28798954E+01 0.87714088E+02-0.30394653E+02-0.28824894E+02
+-0.42016949E+02 0.95767807E+02-0.21253895E+02 0.34847987E+01
+-0.83288565E+01-0.22973545E+02 0.15845953E+02 0.39268745E+02
+-0.26755207E+02-0.26882515E+01 0.49962570E+02 0.37968533E+02
+-0.13776732E+02-0.21174350E+01 0.16793774E+02 0.16195391E+01
+-0.80588609E+00 0.10947104E+01-0.22045150E+00 0.22938368E+01
+-0.17940499E+01 0.19093058E+01 0.13130230E+01-0.43963936E+02
+ 0.73540716E+01 0.14685716E+02 0.12209099E+02-0.35778717E+02
+ 0.65739970E+01 0.25819159E+00 0.38785126E+01 0.92260513E+01
+-0.54415417E+01-0.14486173E+02 0.96487923E+01 0.12716563E+01
+-0.21124800E+00 0.17043127E+01 0.20464387E+01 0.56599015E-02
+-0.10268541E+00 0.23923576E-01 0.46511523E-01 0.47292676E-01
+-0.43041897E-02-0.13252716E-01 0.11830020E-02 0.10728045E-01
+-0.11813324E-01 0.11713128E+00-0.18258561E+01 0.17008826E+01
+-0.15215686E-01 0.11784354E+00-0.43866588E-02-0.22057734E-01
+-0.63331686E-02 0.49470387E-01-0.17963713E-01-0.59963893E-02
+-0.16910573E-01 0.36876634E-01-0.67201293E+00 0.13338754E+00
+-0.21074166E+01 0.51338410E+00-0.38658473E+00 0.81445105E-01
+-0.95247170E-02-0.41881129E+00 0.26037970E+00 0.10410904E+00
+ 0.31723064E+00 0.19097517E+00 0.45013998E-01-0.20128696E+00
+ 0.15844090E+01-0.83317590E+00 0.54410454E-01 0.24460571E+00
+-0.36854930E-01-0.48869914E+00 0.82281917E-01 0.58834499E+00
+ 0.92693098E-01 0.62349554E-01 0.23411550E+00 0.29134646E+00
+ 0.55470839E+01 0.96163158E+01 0.50997686E+01 0.68665922E+00
+ 0.65423720E-01-0.24311846E+00-0.12406635E+01-0.11371589E+01
+ 0.11067604E+01-0.51531062E-01-0.74737412E+00 0.54248173E-01
+ 0.63131139E-01-0.68635064E+00-0.12532818E+02 0.31381702E+01
+ 0.58695197E+00-0.89948498E-01-0.52485317E+00 0.11644162E+01
+-0.24193650E+00 0.99850368E+00 0.73659611E+00 0.30205196E+00
+ 0.79808694E+00-0.56268388E+00 0.84152431E+01-0.18351845E+01
+ 0.22851471E+02-0.62919526E+01 0.38386998E+00-0.11887341E+01
+-0.32209761E+01 0.62786980E+01-0.32539845E+01 0.33874832E-01
+-0.68638234E+01-0.39917052E+01 0.50753254E+00 0.54675989E+01
+-0.14342614E+02 0.20977676E+02-0.40119495E-01-0.43394451E+01
+ 0.13764828E+01 0.10244990E+02 0.31333181E+00-0.92915649E+01
+-0.30012243E+01-0.67161626E+00-0.32468977E+01-0.40313520E+01
+-0.35370174E+02-0.69950500E+02 0.26502401E+02 0.31762896E+01
+-0.11033854E+01-0.33225198E+01 0.66381388E+01 0.81779928E+01
+-0.61022053E+01-0.22130617E+00 0.75198293E+01 0.25410479E+00
+ 0.76021153E+00-0.13441768E+01 0.27343557E+02 0.47622552E+01
+-0.13991564E+02 0.15639170E+01 0.82513838E+01-0.82063255E+01
+-0.34090364E+01-0.11663890E+02-0.46683278E+01-0.29037738E+01
+-0.57367353E+01 0.13532746E+01-0.48274441E+02 0.83131844E+02
+-0.96900970E+02 0.27448704E+02 0.21074257E+02 0.43562355E+01
+ 0.23491089E+02-0.30603300E+02 0.98027277E+01-0.17388166E+01
+ 0.41459393E+02 0.21956772E+02-0.74577127E+01-0.57677406E+02
+ 0.61015911E+02-0.67599236E+02-0.76322885E+01 0.15360656E+02
+-0.13954189E+02-0.63971962E+02-0.57594633E+00 0.46648548E+02
+ 0.18534496E+02-0.11813200E+01 0.14227717E+02 0.16818104E+02
+ 0.80797073E+02 0.17325121E+03-0.21808232E+03-0.25066273E+02
+ 0.77090278E+01 0.19229862E+02-0.16147860E+02-0.21793207E+02
+ 0.11739250E+02 0.27427473E+01-0.23950100E+02-0.14955986E+01
+-0.43279033E+01 0.23412638E+02 0.63171879E+02-0.99681198E+02
+ 0.62766190E+02-0.79878149E+01-0.30435446E+02 0.21497587E+02
+ 0.20054741E+02 0.38359371E+02 0.92688770E+01 0.10108423E+02
+ 0.14417062E+02-0.20493574E+01 0.14545422E+03-0.31993140E+03
+ 0.20626822E+03-0.59260872E+02-0.98615173E+02-0.91029177E+01
+-0.61238270E+02 0.69641464E+02-0.53348732E+01 0.55038424E+01
+-0.10444603E+03-0.51997677E+02 0.24604845E+02 0.17732971E+03
+-0.14906339E+03 0.97182152E+02 0.28640442E+02-0.17308891E+02
+ 0.45831375E+02 0.16195528E+03-0.62566624E+01-0.10428041E+03
+-0.45196327E+02 0.11912194E+02-0.28687082E+02-0.28267488E+02
+-0.71918938E+02-0.20264278E+03 0.37785242E+03 0.43567059E+02
+-0.15192982E+02-0.31795984E+02 0.19159107E+02 0.24578568E+02
+-0.10395302E+02-0.54584193E+01 0.29443462E+02 0.18643064E+01
+ 0.73603716E+01-0.46939167E+02-0.19401114E+03 0.19549149E+03
+-0.98742599E+02 0.65470691E+01 0.41411484E+02-0.23003340E+02
+-0.32262764E+02-0.48849609E+02-0.63948112E+01-0.14122622E+02
+-0.15711078E+02 0.33360174E+01-0.20310941E+03 0.43382684E+03
+-0.22873076E+03 0.61049896E+02 0.15113927E+03 0.12178139E+02
+ 0.69404495E+02-0.76307945E+02-0.99914246E+01-0.87610970E+01
+ 0.11714094E+03 0.56842529E+02-0.31153524E+02-0.20313609E+03
+ 0.19473550E+03-0.81566399E+02-0.31190516E+02 0.46536431E+01
+-0.60174667E+02-0.17905360E+03 0.15700250E+02 0.10812027E+03
+ 0.48076645E+02-0.19411180E+02 0.28377907E+02 0.18879490E+02
+ 0.18400129E+02 0.92124519E+02-0.19595229E+03-0.22818579E+02
+ 0.91224928E+01 0.16459476E+02-0.86445189E+01-0.10113220E+02
+ 0.36470227E+01 0.31096530E+01-0.12310074E+02-0.65811318E+00
+-0.39445660E+01 0.27785633E+02 0.12070577E+03-0.10845207E+03
+ 0.50968784E+02 0.20172384E+01-0.18991886E+02 0.84511404E+01
+ 0.16190018E+02 0.21269348E+02 0.98832011E+00 0.67662487E+01
+ 0.63501000E+01-0.22222323E+01 0.10348282E+03-0.20003775E+03
+ 0.10056244E+03-0.24191299E+02-0.75551025E+02-0.66165800E+01
+-0.28941280E+02 0.32210011E+02 0.89458332E+01 0.52425108E+01
+-0.48151104E+02-0.23473763E+02 0.13704450E+02 0.76933624E+02
+-0.97199905E+02 0.34218758E+02 0.94315853E+01-0.39759991E+00
+ 0.27437757E+02 0.72066147E+02-0.95865564E+01-0.42264874E+02
+-0.18651270E+02 0.93191538E+01-0.11183516E+02-0.35364709E+01
+ 0.97871020E-01 0.20281778E+00 0.90489715E-01-0.95290929E+00
+-0.27933320E+00 0.52461393E-01 0.72199428E-02 0.15705125E-01
+ 0.41039664E-01-0.36827065E-01-0.15596761E-01-0.21006119E-01
+-0.74302865E-03 0.18413863E+00-0.22145297E-01-0.21845268E-01
+ 0.28004029E+00-0.71528941E+00-0.12112075E-01-0.43858774E-02
+-0.32223654E-02-0.29513298E-02-0.20680975E-01-0.50281603E-02
+-0.97669261E-02 0.16754756E-01-0.50228141E-01 0.86401850E+00
+ 0.37329832E+00-0.43455347E-01-0.37337765E+00 0.31667180E-01
+-0.33294806E+00 0.19361353E+00-0.14481428E+00 0.17382690E+00
+-0.27535016E-01-0.52372944E-01 0.51665086E-01 0.77041340E+00
+-0.10802412E+00 0.78209734E+00 0.82496119E+00-0.11585006E+00
+-0.95668048E-01 0.54860033E-01 0.16625006E+00-0.91622919E-01
+-0.65615319E-01 0.60415332E-03 0.15374319E+00 0.46706021E-01
+ 0.54401726E+00-0.93265307E+00-0.56378675E+00 0.10645507E+02
+ 0.57229429E+00-0.12630768E+01-0.64789832E+00-0.60353708E+00
+-0.18424869E+00 0.13993631E+00 0.48576195E-01 0.22784832E+00
+-0.42130151E+00 0.27307931E+00 0.10153091E+01 0.11288965E+01
+-0.25885277E+01 0.76768188E+01 0.73958021E+00 0.39947239E+00
+-0.11303554E+01 0.74285984E+00 0.42960650E+00-0.46359366E-02
+ 0.57497424E+00-0.24941255E+00-0.27576047E+00-0.49189267E+01
+-0.30248418E+01 0.82247725E+01-0.40766196E+01 0.37377694E+00
+ 0.15920104E+01-0.10867124E+01 0.17805321E+01-0.15497746E+01
+ 0.73062021E+00 0.45829788E-01 0.16331393E+00-0.90494785E+01
+-0.15745066E+00-0.52452645E+01-0.91057497E+00 0.86765213E+01
+ 0.23414004E+01-0.92353123E+00-0.28763181E+00 0.22783259E-01
+-0.82801855E+00-0.28931600E+00-0.10174736E+01 0.16624613E+00
+-0.10378919E+02 0.58001833E+01-0.22736102E+00-0.23410555E+02
+ 0.69524856E+01 0.71683693E+01 0.60270047E+01 0.22774773E+01
+ 0.14830394E+01 0.16389118E+01-0.30775643E-02-0.78709882E+00
+ 0.30579998E+01-0.15465743E-02-0.94203407E+00-0.70205545E+01
+ 0.62845588E+01-0.72446790E+01-0.44833145E+01-0.13172768E+01
+ 0.54477401E+01-0.26917975E+01-0.22063324E+01 0.88429081E+00
+-0.25067618E+01 0.70779270E+00-0.41653025E+00 0.77432489E+01
+ 0.44009709E+01-0.26288893E+02 0.11670718E+02-0.90083349E+00
+-0.26713226E+01 0.27358816E+01-0.44873104E+01 0.38639853E+01
+-0.20221062E+01 0.50795317E+00-0.10303019E+01 0.25454908E+02
+-0.35198110E+00 0.91766758E+01 0.36100191E+00-0.26752708E+02
+-0.79657893E+01 0.40400887E+01-0.13829775E+00 0.47660896E+00
+ 0.37345989E+01 0.49525353E+00 0.16495343E+01-0.32004577E+00
+ 0.26923609E+02-0.12705561E+02 0.77154827E+01 0.47243571E+01
+-0.21181990E+02-0.15098260E+02-0.13009450E+02-0.24404039E+01
+-0.28010442E+01-0.60208449E+01-0.58497292E+00 0.13716583E+01
+-0.60833530E+01-0.75704546E+01-0.52916546E+01 0.16575653E+02
+-0.68116546E+01-0.28722118E+02 0.83101597E+01 0.55782187E+00
+-0.92281694E+01 0.28159809E+01 0.46327081E+01-0.30307541E+01
+ 0.37459197E+01-0.88170326E+00 0.22301376E+00-0.31962299E+01
+-0.10003719E+01 0.17513151E+02-0.10250562E+02 0.30598539E+00
+ 0.16885284E+01-0.19954596E+01 0.31069324E+01-0.28071928E+01
+ 0.13887666E+01-0.67095476E+00 0.10415512E+01-0.20710796E+02
+ 0.89437598E+00-0.42360606E+01 0.20117793E+01 0.17224691E+02
+ 0.66144185E+01-0.45690055E+01-0.18276887E+00-0.40452820E+00
+-0.32121379E+01-0.92587329E-01-0.48688596E+00-0.14324804E+00
+-0.18712111E+02 0.78072848E+01-0.87452765E+01 0.12498962E+02
+ 0.17300501E+02 0.10375720E+02 0.82283955E+01 0.58782387E+00
+ 0.11830972E+01 0.48081841E+01 0.77937973E+00-0.73815542E+00
+ 0.35488698E+01 0.98545418E+01 0.57349968E+01-0.14113446E+02
+ 0.14990284E+01 0.34328514E+02-0.51231594E+01 0.11489596E+01
+ 0.57513089E+01-0.11141500E+01-0.30930831E+01 0.25668890E+01
+-0.20892141E+01 0.63647670E+00-0.29918633E-01 0.19186273E+00
+-0.70395455E-01-0.77079989E-01 0.31567018E-01-0.38534543E+00
+-0.50261647E+00-0.21860762E-01 0.62904462E-01-0.54080831E-02
+-0.92705982E-02-0.40175516E-01-0.11157575E-01 0.72898664E-01
+-0.50168093E-01-0.10570346E+00-0.67150467E-02-0.14133672E+00
+ 0.50753140E+00-0.42581895E+00-0.46848822E-01 0.22408159E-02
+ 0.83338562E-02 0.41946103E-02-0.58955308E-02-0.26281827E-03
+-0.26040110E+00 0.76159227E+00 0.23537507E-01-0.80746651E-01
+-0.17011431E+00 0.11547460E+00-0.15361232E+00 0.17724212E+00
+ 0.76225460E-01-0.13381564E-01-0.60893386E-02-0.11518117E+00
+-0.31129291E-01-0.51667415E-01-0.24441694E+00-0.31773397E+00
+ 0.81835248E-01-0.46549350E+00 0.17142838E+00 0.30523732E+00
+-0.57707924E-01-0.20797607E-01-0.15126070E-01-0.33176012E-01
+-0.42346753E-01-0.11050799E-01 0.59186459E-01-0.11252819E+01
+ 0.44319230E+00-0.11809949E+00-0.14963280E+00 0.52666683E-01
+-0.52684325E+00-0.40326202E+00 0.12269677E+00 0.28846711E+00
+ 0.12978290E+00 0.32258502E+00-0.14862968E+00-0.80570722E+00
+ 0.17221979E+01 0.46162105E+00-0.34327608E+00 0.13253006E+01
+ 0.44412488E+00 0.28846559E+00-0.34307161E+00-0.36704317E+00
+ 0.56617562E-01 0.18177399E+00 0.25099775E+00-0.99185131E-01
+-0.19901596E+00-0.17126943E+01 0.37629980E+00 0.45409298E+00
+ 0.27510104E+00 0.15234837E-01 0.65682179E+00-0.45590812E+00
+-0.21512812E+00 0.90877265E-01-0.33986196E-01 0.28594887E+00
+ 0.92194878E-01-0.24209818E+00 0.65725392E+00 0.75583166E+00
+-0.39450571E+00 0.12069463E+01-0.75257272E+00-0.52532136E+00
+ 0.99424221E-01 0.93963951E-01 0.45424551E-02 0.14965154E+00
+ 0.19529074E+00 0.89346744E-01 0.76194292E+00 0.21998913E+01
+-0.61996305E+00 0.38401404E+00 0.65990424E+00 0.10685669E+01
+ 0.16874920E+01 0.10111738E+01-0.47734886E+00-0.55955160E+00
+-0.36574565E-01-0.54719472E+00 0.21022716E+00 0.96725523E+00
+-0.21709857E+01-0.58654177E+00 0.52371088E-01-0.19939440E+01
+-0.13083379E+01 0.97265768E+00 0.10472490E+01 0.79788148E+00
+-0.23003300E+00-0.31732571E+00-0.59758753E+00 0.17752629E-01
+-0.48324671E-01-0.39871577E-01 0.35558338E-02-0.26979163E-01
+ 0.43359697E-01 0.12917671E-01 0.17010419E-01 0.27531299E+00
+-0.38564362E-01-0.34878931E-02-0.61485823E-02-0.97274072E-02
+-0.18774368E-01 0.92524938E-01-0.57997428E-01 0.36104083E-01
+ 0.66196665E-01-0.40818259E-01 0.68578757E-02 0.56706844E-02
+ 0.14657995E-01 0.25169230E+00 0.17018361E-01-0.13085437E-02
+ 0.40550678E-03-0.75565781E-02-0.27891763E-01-0.61812479E-01
+-0.66995524E-01 0.60951114E-01-0.16235442E+00-0.18117538E+00
+-0.63721985E-01 0.19130240E+00 0.34930453E+00 0.10013775E-03
+-0.18040525E-01 0.93262065E-02 0.29071178E-01 0.37352061E+00
+ 0.23084080E+00-0.11973947E+00 0.39940480E-01 0.16606483E+00
+-0.25743233E-01-0.50882917E-01-0.38867268E+00 0.90072393E-01
+-0.18342920E-01-0.16830478E-01 0.65812245E-02-0.11528600E-01
+-0.17556234E+00-0.39191529E-01 0.14456748E-01-0.31045396E-01
+-0.29462801E-01 0.17225457E-02 0.81582461E-02 0.32372467E-01
+-0.37683394E-01 0.90681992E-01 0.16984081E+00-0.56379475E-02
+-0.16191302E-01 0.32786489E-02 0.13823365E-01-0.58228850E-01
+ 0.46045277E-01-0.32285951E-01-0.29173903E-01-0.13254940E-02
+ 0.33482354E-01 0.14193523E-01-0.18655913E+00 0.75768754E-01
+ 0.28235951E-01-0.12667628E-01-0.63085563E-01-0.16578859E-01
+-0.65637636E-02 0.90851039E-02-0.29999416E-01 0.40609598E-01
+-0.12365533E-01 0.32348711E-01 0.48897574E-02-0.33822318E-02
+-0.95927659E-02-0.10472462E+00-0.49497215E-02 0.13566672E-01
+ 0.51126843E-02 0.69563393E-02 0.21742018E-01 0.64151838E-01
+-0.15110991E-01-0.11155133E-01-0.23500491E-02-0.49487525E-02
+-0.34136429E-01-0.13634215E-01-0.51828269E-02-0.11964961E+00
+ 0.16280914E-01-0.15323651E-01 0.11045886E-01 0.15388856E-01
+ 0.71778158E-02 0.13341840E-01 0.86160125E-02 0.35415865E-01
+ 0.20430239E-01-0.12541118E-01 0.64188964E-02 0.69954526E-02
+ 0.14519762E-01 0.26640084E-01-0.81357203E-01-0.82582489E-01
+ 0.33618689E-02-0.22538289E-01-0.19978173E-01 0.16238056E-01
+-0.12985623E-01 0.16977180E-01-0.14756378E-01-0.48074991E-03
+ 0.21765309E-02 0.14442624E-01 0.29858338E-01 0.81244618E-01
+-0.43053649E-01 0.27717860E-01 0.12420647E-01-0.21559792E-01
+ 0.41899722E-01-0.27755309E-01 0.32173231E-01-0.28853366E-01
+ 0.96155703E-02 0.35324396E-03-0.10962152E-01-0.35660431E-01
+-0.20827377E-01-0.27171995E-01-0.39691202E-01 0.78898314E-02
+-0.13305612E-01-0.33514686E-02-0.12471182E-01 0.22468641E-01
+ 0.17353624E-01-0.10118406E-01-0.17869116E-02 0.15280945E-01
+ 0.90913858E+01 0.84599406E-01 0.16230763E+00 0.69487393E-01
+-0.29570591E-02-0.92661269E-02-0.40300194E-01 0.30152716E-01
+-0.22117848E-01 0.44199214E-02-0.37470509E-02 0.57405089E-02
+-0.12053542E-01-0.76227540E+00-0.81212771E+00 0.16045764E-01
+-0.18294992E-01 0.17572674E+00 0.21314566E+00 0.27046995E-01
+ 0.82527503E-01-0.28845841E+00 0.24496240E-02 0.97445555E-01
+-0.39677333E-01 0.67152999E-01 0.24650427E+02-0.44397229E+00
+-0.17870303E+01 0.55547500E+00 0.10984249E+01 0.28475463E+00
+ 0.69275779E+00-0.18453959E+00 0.40410057E+00 0.59705932E-01
+-0.23535267E+00 0.43878641E-01 0.11331538E+00-0.10896392E+02
+ 0.80607300E+01 0.99370747E+01 0.28089604E+00-0.36042504E+01
+-0.39281123E+01-0.43405023E+00-0.12527297E+00 0.35088420E+01
+-0.13881062E+01-0.10145779E+01 0.22173715E+00-0.23965409E+00
+-0.13814932E+03-0.35444760E+01 0.49864116E+01-0.73278651E+01
+-0.15269502E+02-0.34637457E+00-0.28207886E+01 0.86998552E+00
+-0.19370019E+01 0.66754687E+00 0.17929994E+01-0.26302782E+00
+-0.35202691E+00 0.14604482E+03-0.40838085E+02-0.57767654E+02
+ 0.57909651E+01 0.29187016E+02 0.18583534E+02 0.96246183E+00
+-0.31996384E+01-0.18213390E+02 0.86978769E+01 0.45727201E+01
+ 0.29856852E+00-0.23486688E+01 0.25891187E+03 0.25923477E+02
+-0.39683554E+01 0.22933840E+02 0.49968544E+02-0.23614740E+01
+ 0.36843927E+01-0.18787698E+01 0.36446035E+01-0.35390708E+01
+-0.51340876E+01 0.95419985E+00 0.99823630E+00-0.41596628E+03
+ 0.86813042E+02 0.11431066E+03-0.30645103E+02-0.82427086E+02
+-0.37951321E+02 0.10900590E+01 0.11784755E+02 0.41145611E+02
+-0.19994535E+02-0.94752426E+01-0.28417885E+01 0.96225624E+01
+-0.22837682E+03-0.43467033E+02 0.16895311E+01-0.27585829E+02
+-0.61419991E+02 0.55255609E+01-0.12157919E+01 0.21039855E+01
+-0.30910072E+01 0.53918390E+01 0.60075970E+01-0.13708730E+01
+-0.16586262E+01 0.45341833E+03-0.79230301E+02-0.95844460E+02
+ 0.45088043E+02 0.94350952E+02 0.35473499E+02-0.38808095E+01
+-0.14583707E+02-0.40570156E+02 0.19583448E+02 0.89746466E+01
+ 0.42096753E+01-0.11760089E+02 0.78894501E+02 0.21365410E+02
+-0.97209376E+00 0.11413410E+02 0.25590933E+02-0.31731806E+01
+-0.29654628E+00-0.94074392E+00 0.10037756E+01-0.26313784E+01
+-0.24205432E+01 0.61006391E+00 0.94114125E+00-0.17161839E+03
+ 0.26147404E+02 0.29388216E+02-0.20523869E+02-0.37670624E+02
+-0.12390260E+02 0.22395270E+01 0.60695238E+01 0.14398425E+02
+-0.68785167E+01-0.31523423E+01-0.18456868E+01 0.46553698E+01
+-0.17224808E+00 0.15295334E+01 0.16319659E+01 0.16117379E-01
+-0.11191823E+00-0.55230491E-01-0.11635203E-01 0.23330303E-01
+ 0.14298861E-01 0.73818795E-04-0.13618111E-01 0.40551308E-02
+-0.13926427E-01 0.25908184E+00-0.15589666E+01 0.15277148E+01
+-0.52449096E-01 0.15074499E+00 0.48045823E-02 0.26224246E-01
+-0.31880584E-01 0.30712897E-01-0.15925413E-01 0.30503899E-01
+-0.15572473E-01 0.10377554E-01-0.44175947E+00-0.14467432E+00
+-0.23857009E+01-0.93523920E-01 0.39645356E+00 0.34704551E+00
+-0.23056675E+00-0.74715160E-01-0.10230460E-01 0.67601532E-01
+ 0.24271284E+00-0.83723627E-02 0.27769657E-01 0.43120182E+00
+ 0.15971814E+01-0.11812301E+01-0.19957671E-01 0.79163861E+00
+ 0.32819316E+00 0.47173291E-01 0.10105979E+00 0.29491344E+00
+ 0.12614381E+00-0.77709101E-01 0.28120133E+00-0.83021149E-01
+ 0.28239892E+01 0.20100613E+02-0.53325434E+01 0.45510817E+00
+ 0.10075530E+01 0.19475687E+01 0.87764084E+00-0.28519857E+00
+-0.21241654E+00-0.31646341E+00-0.12565173E+00-0.32961044E-01
+ 0.23946792E+00-0.30458715E+01 0.34423187E+01 0.15719871E+02
+ 0.27821069E+01-0.24117477E+01-0.53116071E+00-0.93346071E+00
+ 0.38857710E+00-0.41621810E+00 0.30858749E+00-0.85805213E+00
+ 0.56975406E+00-0.45797646E+00 0.64062252E+01-0.17833441E+02
+ 0.38745689E+02 0.15681111E+01-0.13188357E+02-0.35303750E+01
+ 0.42505393E+01 0.23458998E+01 0.36971977E+00-0.15250417E+01
+-0.25250385E+01 0.11713949E+01-0.25048587E+00-0.47601018E+01
+-0.14131312E+02 0.16657829E+02 0.26456211E+01-0.20797195E+02
+-0.33104246E+01 0.13996363E+01-0.86525661E+00-0.32111042E+01
+-0.41198349E+01-0.53699982E+00-0.44991617E+01 0.22725008E+01
+-0.15645193E+02-0.83720718E+02 0.81215302E+02-0.40556893E+01
+ 0.73948927E+01-0.12809274E+02-0.93950243E+01 0.31676583E+01
+ 0.58742332E+01 0.21229396E+01 0.13009325E+01 0.20239291E+01
+-0.53447652E+00 0.26276909E+02-0.75438370E+02-0.32025635E+02
+-0.30627806E+02 0.26027321E+02 0.33012908E+01 0.51888561E+01
+-0.51801095E+01 0.33771536E+01-0.15328786E+01 0.53555956E+01
+-0.47251158E+01 0.42387228E+01-0.45288258E+02 0.15141853E+03
+-0.23644781E+03-0.37938159E+01 0.85512016E+02 0.71108932E+01
+-0.15790138E+02-0.14872607E+02-0.79568539E+01 0.77140079E+01
+ 0.65682583E+01-0.10868766E+02-0.11020887E+01 0.15142425E+02
+ 0.92271660E+02-0.60111969E+02-0.21405069E+02 0.12360047E+03
+ 0.14346115E+02-0.23227024E+02 0.11077701E+02 0.13304357E+02
+ 0.28648264E+02 0.70955434E+01 0.23707230E+02-0.13942078E+02
+ 0.22773668E+02 0.94970367E+02-0.27014450E+03 0.13208767E+02
+-0.51395786E+02 0.31416155E+02 0.32453068E+02-0.10277439E+02
+-0.23690439E+02-0.66481109E+01-0.47724204E+01-0.81575747E+01
+-0.47356147E-01-0.76574455E+02 0.26398227E+03-0.96341965E+02
+ 0.11079182E+03-0.88914604E+02-0.30642164E+01-0.13225583E+02
+ 0.17785391E+02-0.11198152E+02 0.20659568E+01-0.13020063E+02
+ 0.14299355E+02-0.16164017E+02 0.15472884E+03-0.41988278E+03
+ 0.56520874E+03 0.14640667E+01-0.21045242E+03 0.49664984E+01
+ 0.16372763E+02 0.38117653E+02 0.34166718E+02-0.15126781E+02
+-0.92465889E+00 0.30510057E+02 0.76909704E+01-0.28304167E+02
+-0.24170132E+03 0.12176568E+03 0.48061871E+02-0.29643774E+03
+-0.33637665E+02 0.83702583E+02-0.42672482E+02-0.25475426E+02
+-0.74082893E+02-0.21089073E+02-0.52561008E+02 0.36209114E+02
+ 0.58211665E+01-0.10134482E+02 0.36446863E+03-0.14913530E+02
+ 0.88607018E+02-0.31856615E+02-0.45381077E+02 0.13251899E+02
+ 0.32890629E+02 0.99184685E+01 0.62132945E+01 0.10968967E+02
+ 0.11417336E+01 0.98582275E+02-0.37036868E+03 0.28047604E+03
+-0.16251318E+03 0.11509062E+03-0.60012803E+01 0.18846554E+02
+-0.23316351E+02 0.17238712E+02-0.60839558E+00 0.14205902E+02
+-0.18185123E+02 0.25047588E+02-0.21569096E+03 0.48272430E+03
+-0.61942755E+03-0.80701262E-01 0.22225163E+03-0.23381893E+02
+ 0.46022134E+01-0.43023670E+02-0.49467533E+02 0.12000541E+02
+-0.11647184E+02-0.33798725E+02-0.12033131E+02 0.35190132E+02
+ 0.30408795E+03-0.15077676E+03-0.33036247E+02 0.31228766E+03
+ 0.41757622E+02-0.11409177E+03 0.61402256E+02 0.21682520E+02
+ 0.81727142E+02 0.24596991E+02 0.52422810E+02-0.42727203E+02
+-0.19147324E+02-0.20564623E+02-0.17347337E+03 0.61360617E+01
+-0.46458740E+02 0.11141960E+02 0.22063715E+02-0.60768661E+01
+-0.15222783E+02-0.52150383E+01-0.25772462E+01-0.48167362E+01
+-0.76443511E+00-0.44532223E+02 0.18376117E+03-0.17429190E+03
+ 0.82279617E+02-0.48177139E+02 0.71741357E+01-0.10823287E+02
+ 0.10417562E+02-0.95174761E+01-0.11475333E+00-0.57856946E+01
+ 0.82347708E+01-0.13050280E+02 0.10409344E+03-0.20178984E+03
+ 0.25817352E+03-0.14944650E+00-0.85363350E+02 0.14998612E+02
+-0.99766254E+01 0.17693336E+02 0.23184240E+02-0.29896560E+01
+ 0.85577002E+01 0.12933767E+02 0.56063805E+01-0.18578611E+02
+-0.14634050E+03 0.76995132E+02 0.21686547E+01-0.12222349E+03
+-0.20490656E+02 0.53517189E+02-0.29491062E+02-0.64766569E+01
+-0.32628654E+02-0.10126882E+02-0.19581978E+02 0.18641266E+02
+ 0.73967703E-01-0.14112779E+00 0.17739686E+00-0.10380149E+01
+ 0.46758762E+00-0.52029893E-01 0.38553629E-01-0.19935209E-01
+ 0.24950037E-01-0.20095922E-01-0.28559000E-02-0.27403604E-01
+-0.97574195E-03 0.11055296E+00-0.16600928E+00-0.32541618E-01
+-0.43835488E+00-0.84406424E+00-0.22534750E-01 0.29131178E-01
+-0.11667867E-01-0.34039460E-01-0.32340210E-01 0.11184864E-01
+-0.23590121E-01 0.87832250E-02 0.91149993E-01 0.97471708E+00
+ 0.51438361E+00 0.13833370E+01-0.50698072E+00 0.27014571E+00
+ 0.11282755E+00 0.54294676E-01-0.75866021E-02 0.12068818E+00
+ 0.16455030E-01 0.90567581E-01 0.75802878E-01 0.34389898E+00
+ 0.55841506E+00 0.90160257E+00 0.12392099E+01 0.17093930E+01
+ 0.13808005E+00 0.10166630E+00 0.20844191E+00-0.15551122E+00
+ 0.10595880E-01-0.34317158E-01 0.91806263E-01 0.14963972E-01
+ 0.16836854E+01 0.24811437E+01-0.16475384E+01 0.17249215E+01
+ 0.30530896E+01 0.75067306E+00-0.15300773E+01-0.39954576E+00
+ 0.12609008E+00-0.23109366E+00-0.14283510E+00 0.11207330E+00
+-0.23422834E+00 0.22920127E+01-0.15677989E+00 0.10574989E+01
+-0.47031479E+01 0.83145690E+00 0.60532081E+00-0.75335938E+00
+ 0.72133221E-01 0.13619457E+01 0.90937072E+00-0.11166501E+00
+ 0.18261883E+00-0.90696365E-01-0.31183465E+01-0.60279012E+01
+-0.40491314E+01 0.21722064E+01-0.14826589E+01-0.20925791E+01
+-0.12620353E+01-0.50687373E+00-0.72735786E+00-0.18294009E+01
+ 0.10776019E+01-0.65747297E+00-0.52606915E-02-0.83851500E+01
+-0.95547777E+00-0.60184135E+01-0.85619497E+01 0.61534148E+00
+ 0.10074309E+01-0.85972464E+00-0.75723243E+00 0.14236768E+01
+-0.71778768E+00-0.21167088E-01-0.60213548E+00 0.36463749E+00
+-0.12601962E+02-0.60230761E+01-0.29406281E+01 0.11637723E+02
+-0.90889711E+01-0.18631748E+01 0.10832180E+02 0.28277893E+01
+ 0.15355181E+01 0.26887271E+01-0.92505731E-01 0.11178880E+00
+ 0.12021805E+01-0.11314941E+02 0.27979467E+01-0.14773956E+02
+ 0.20741819E+02 0.14875138E+02-0.32533488E+01 0.46425400E+01
+-0.30427511E+01-0.68344517E+01-0.52124023E+01-0.58438945E+00
+-0.31132221E+00-0.11308281E+01 0.78239317E+01 0.12827962E+02
+ 0.60509434E+01-0.11737222E+02 0.10860994E+02 0.64112983E+01
+ 0.23935566E+01 0.18167053E+01 0.33579202E+01 0.52217593E+01
+-0.41448812E+01 0.17888294E+01-0.79165143E+00 0.24079092E+02
+-0.46660581E+01 0.13022430E+02 0.13900978E+02-0.91128855E+01
+-0.40291896E+01 0.34799480E+01 0.18368626E+01-0.34240825E+01
+ 0.28355694E+01 0.16054691E+00 0.70973271E+00-0.11734304E+01
+ 0.24227192E+02 0.57047434E+01 0.18991457E+02-0.39872898E+02
+ 0.15416595E+01-0.74747860E+00-0.19494642E+02-0.59575405E+01
+-0.70911956E+01-0.68836184E+01 0.16940249E+01-0.13717374E+01
+-0.21887500E+01 0.13924574E+02-0.16587017E+01 0.38369900E+02
+-0.27500231E+02-0.43234756E+02 0.34732475E+01-0.10127350E+02
+ 0.84686279E+01 0.12072734E+02 0.89818316E+01 0.23602653E+01
+-0.55452925E+00 0.37565517E+01-0.70313997E+01-0.75539041E+01
+-0.29214725E+01 0.47263317E+01-0.15518660E+02-0.53729682E+01
+-0.81937367E+00-0.13753450E+01-0.31669335E+01-0.39806004E+01
+ 0.32713692E+01-0.14239472E+01 0.86429405E+00-0.19807907E+02
+ 0.82111835E+01-0.75345130E+01-0.12458882E+01 0.27180896E+01
+ 0.28920496E+01-0.37135229E+01-0.16157656E+01 0.26609850E+01
+-0.22828846E+01-0.28764549E+00 0.47844201E-01 0.77955002E+00
+-0.14075713E+02-0.23986549E+01-0.14268916E+02 0.32392254E+02
+ 0.10021720E+02 0.22754657E+01 0.98033123E+01 0.34065833E+01
+ 0.62487297E+01 0.50818644E+01-0.16391834E+01 0.16020304E+01
+ 0.12680324E+01-0.18211569E+01-0.56535420E+01-0.28800457E+02
+ 0.73658066E+01 0.32735832E+02-0.24511378E+00 0.70626469E+01
+-0.58881278E+01-0.75028081E+01-0.46169567E+01-0.17588331E+01
+ 0.63301569E+00-0.28427830E+01 0.76349199E-01-0.75198315E-01
+-0.50871223E-02-0.72312318E-01 0.48052013E-01-0.58207494E+00
+-0.75327557E+00-0.42022016E-01 0.18120332E-01-0.16880617E-01
+ 0.73444042E-02-0.28194983E-01-0.15638337E-01 0.39461084E-01
+-0.13488993E+00-0.10055972E+00 0.46493847E-01-0.93732879E-01
+ 0.74668914E+00-0.58071917E+00-0.26067192E-01 0.20636749E-01
+ 0.86305896E-02 0.54170616E-03-0.23148715E-01-0.52713491E-02
+-0.97694404E-01 0.93344510E+00 0.29393701E-01 0.73514744E-02
+-0.34737319E+00 0.26163518E+00 0.36970001E+00 0.14785510E+00
+-0.55417154E-01 0.31292816E-02 0.78705736E-01-0.81819005E-01
+ 0.33747096E-01-0.56032654E-01-0.46219949E-01-0.64890347E-01
+ 0.13689564E+00-0.56143868E+00-0.29345471E+00 0.32432055E+00
+ 0.15689895E-01 0.65602973E-01 0.60567804E-01-0.10864880E-01
+-0.10147065E+00-0.35914693E-01 0.67012018E+00 0.42257118E+00
+ 0.19467359E-01 0.89575797E-02-0.10516388E+01 0.78924227E+00
+ 0.37479475E+00-0.40912420E+00 0.42230487E+00 0.17606600E+00
+ 0.89392833E-01 0.30513483E+00-0.95638916E-01-0.71605802E+00
+ 0.26266012E+01 0.52779651E+00-0.18734942E+00 0.10323124E+01
+-0.91403717E+00 0.53446960E+00-0.13627081E+00-0.66635752E+00
+-0.12717301E+00 0.21606894E+00 0.22295696E+00 0.47271583E-01
+-0.82142699E+00-0.15194725E+01 0.36633497E+00 0.13400576E+00
+ 0.29195154E+00 0.53095353E+00 0.40886421E-01-0.17716572E+00
+ 0.17803183E+00 0.71642324E-01-0.24857517E+00 0.35629210E+00
+-0.15162340E-01-0.43191445E+00 0.30332151E+00 0.67259073E-01
+-0.42061138E+00 0.12614172E+01-0.33652726E+00 0.57137632E+00
+-0.20697652E+00-0.75853616E-01-0.11044272E+00 0.11320280E+00
+ 0.41475806E+00 0.16160649E+00-0.10161493E+00 0.58983707E+00
+-0.84979522E+00 0.30489936E+00 0.25749736E+01-0.91752881E+00
+-0.53623151E-02 0.80623126E+00-0.10490124E+01-0.38548842E+00
+ 0.44795712E-02-0.58598870E+00 0.16041683E+00 0.97775286E+00
+-0.35922375E+01-0.79198337E+00-0.14946298E+00-0.18443063E+01
+ 0.13141613E+01-0.25741628E+00 0.35331422E+00 0.10484736E+01
+ 0.61409295E-01-0.38274255E+00-0.52102482E+00-0.16893646E+00
+ 0.26682647E-01-0.44999905E-01-0.30429330E-01-0.24290942E-01
+ 0.55203110E-01-0.96770590E-02-0.37339274E-01 0.31498066E+00
+-0.17359960E+00-0.28275497E-01 0.76047601E-02-0.17485568E-01
+-0.21701658E-01 0.19067446E-01 0.82480900E-01-0.24417976E-01
+ 0.60341705E-01-0.76737002E-01 0.30098597E-01-0.14800011E-01
+ 0.16694994E+00 0.29754844E+00 0.60499981E-02-0.65341271E-02
+-0.12154019E-02-0.32120442E-02-0.31834999E+00-0.10176746E+00
+-0.12919512E+00 0.57349347E-01-0.38777705E-01-0.16754001E+00
+ 0.71787603E-01 0.55727322E-01 0.48854449E+00 0.43341171E-01
+-0.26241627E-01 0.33198107E-01 0.25002802E-01 0.26534075E+00
+ 0.13981649E+00 0.81587816E-03-0.29231967E-01 0.14419927E+00
+-0.16403934E+00-0.73877536E-01-0.48972750E+00-0.57703011E-01
+-0.12619291E-01-0.23607044E-01-0.51552523E-01-0.31952363E-01
+-0.93206882E-01-0.45213788E-02 0.22315690E-02 0.23447252E-02
+-0.55114511E-01 0.20760903E-01 0.28086805E-02 0.39981101E-01
+-0.25381871E-01 0.16350323E+00 0.20666330E+00 0.96418187E-02
+-0.18114807E-01 0.34151793E-01 0.49445402E-01-0.71330421E-01
+-0.45091002E-02-0.17531471E-01-0.32351278E-01 0.23442954E-02
+ 0.62810970E-02 0.84683262E-01-0.18843912E+00 0.15088977E+00
+ 0.14799476E-01-0.90895388E-02 0.39233349E-01 0.67935758E-02
+ 0.17726658E-01 0.13225300E-01 0.48658162E-01 0.31417664E-01
+-0.39813090E-01 0.35820976E-01 0.27609885E-01 0.68485285E-02
+-0.42618301E-01-0.11170206E+00 0.59159048E-01 0.40888876E-01
+ 0.11376599E+00 0.16162302E-01-0.29816031E-01 0.62418427E-01
+-0.13326484E-01-0.32052249E-01-0.99713812E-02 0.28484600E-01
+-0.10098713E-02-0.12852327E-01-0.85706830E-01-0.11604415E+00
+-0.68437657E-02 0.27410646E-02-0.60129546E-01 0.18074039E-01
+ 0.18273348E-01 0.19582406E-01-0.92187580E-02 0.13423235E-01
+ 0.26095778E-01 0.18187763E-01-0.19140057E-01-0.84481649E-02
+ 0.25512718E-02 0.86681031E-01-0.42338647E-01-0.20124212E-01
+-0.68186219E-02-0.59652332E-01 0.32581393E-01-0.32793738E-01
+-0.16700966E-01 0.26844621E-01-0.54568769E-02 0.35884832E-02
+-0.91454759E-02 0.69946642E-02 0.57878252E-01 0.23915995E-01
+ 0.12776043E-02 0.33935215E-01-0.24363872E-01-0.43215800E-01
+-0.14799070E-01-0.12832981E-01 0.26710723E-01 0.12159403E-02
+-0.57877437E-02-0.20406270E-01-0.79121506E-02-0.46333019E-01
+ 0.68355016E-01-0.24444332E-01-0.56031704E-01 0.86708978E-01
+ 0.14629347E-01 0.63353748E-03 0.32699492E-03 0.16688421E-01
+ 0.15034921E-01-0.95454603E-03-0.14304600E-01 0.29492131E-02
+ 0.30829437E+01-0.95623417E-03 0.14071414E-01 0.67336978E-02
+ 0.16362238E-02 0.31438053E-02 0.11660823E-01-0.21267915E-02
+-0.41597779E-02-0.42748913E+00 0.24467647E-01 0.60202345E-01
+ 0.19219477E-01-0.36522668E-01-0.30637039E-02-0.21544660E-01
+-0.25534466E-01 0.19556645E-01 0.83016407E+00 0.10246895E+00
+-0.80737822E-01-0.11050681E+00-0.88695347E-01-0.43044806E-01
+-0.54705851E-01 0.12666488E+00 0.29847229E-01 0.79621750E+00
+-0.35017520E+00-0.20669055E+00-0.10942011E+00 0.13936011E+00
+ 0.12803758E-02 0.82603864E-01 0.60857706E-01-0.45860834E-01
+-0.10769858E+01-0.21080144E+00 0.11818612E+00 0.17931351E+00
+ 0.22275142E+00 0.15942883E+00 0.81478491E-01-0.35534877E+00
+-0.45454629E-01-0.48894572E+00 0.31695545E+00 0.18177135E+00
+ 0.96843764E-01-0.10721572E+00 0.11368042E-02-0.67227729E-01
+-0.28057726E-01 0.24773201E-01 0.21707885E+00 0.13230781E+00
+ 0.58709583E-02-0.66172384E-01-0.14059685E+00-0.13175756E+00
+-0.37203427E-01 0.24195625E+00 0.17272590E-01 0.22961402E-01
+-0.11863714E+00-0.35007322E+00 0.12821091E-01-0.12189340E-01
+-0.68265543E-03 0.62941569E-02-0.44815377E-02-0.26578419E-02
+ 0.14728447E-01 0.37473145E+00-0.96780010E-01-0.27384372E-01
+ 0.10581867E-01 0.22666370E-02-0.17687570E-01 0.68567963E-02
+ 0.72228303E-02-0.12491125E+00-0.71489297E-01 0.97123340E-01
+ 0.34888726E-01 0.35563158E-02-0.51503751E-01-0.51774520E-01
+-0.26012940E-01 0.61413504E-01 0.35958029E-01 0.11307500E-01
+-0.75540908E-01 0.68435147E-02 0.20799374E-01-0.41120008E-01
+ 0.33827305E-01 0.36062390E-01 0.14471351E-01-0.33956641E+00
+ 0.54326749E+00 0.19545006E+01 0.74205472E-03-0.80778316E-01
+-0.77715360E-01-0.50010346E-01 0.22858028E+00 0.87244682E-01
+-0.63539225E+00-0.19151980E+01 0.43575630E+00 0.33090886E+00
+-0.24209768E-02-0.12964347E+00 0.15143993E+00-0.32082044E-01
+ 0.21434763E-01 0.14364071E+01 0.52485019E-01-0.16226660E+01
+-0.25793177E+00-0.36766967E+00 0.67354387E+00 0.12053780E+00
+ 0.38931045E+00-0.57873863E+00 0.38684511E+00 0.14660304E+01
+ 0.38292372E+00 0.73202103E-02 0.29484910E+00 0.21471724E+00
+-0.17507131E+00-0.18583956E+00-0.20088874E+00 0.86518139E+00
+-0.70394367E+00-0.22149346E+01-0.19477078E+00 0.22440962E+00
+ 0.24766719E+00 0.11958317E+00-0.63776320E+00-0.41532379E+00
+ 0.21289845E+01 0.17928966E+01-0.76989651E+00-0.93120408E+00
+-0.15367731E+00 0.42717677E+00-0.41677803E+00 0.60080402E-01
+-0.10584719E+00-0.35660176E+01-0.61952978E+00 0.36163361E+01
+ 0.49679780E+00 0.11595428E+01-0.17288561E+01 0.13930221E+00
+-0.92723536E+00 0.12680798E+01-0.96336013E+00-0.35305631E+01
+-0.10435582E+01-0.91957055E-01-0.86425048E+00-0.35838720E+00
+ 0.15090416E+00 0.41967389E+00 0.41672745E+00-0.42783877E+00
+ 0.46139610E+00 0.61414963E+00 0.16084965E+00-0.10869228E+00
+-0.21873859E+00-0.10980464E+00 0.42953312E+00 0.41603583E+00
+-0.16682128E+01-0.58972288E-01 0.53959042E+00 0.71032184E+00
+ 0.12974617E+00-0.31926504E+00 0.34129691E+00-0.30647589E-01
+ 0.58991492E-01 0.24329290E+01 0.10756953E+01-0.27146754E+01
+-0.27721620E+00-0.90134066E+00 0.11445333E+01-0.27922100E+00
+ 0.58598697E+00-0.78309441E+00 0.52151656E+00 0.27146018E+01
+ 0.98834449E+00 0.13908830E+00 0.59049463E+00 0.22968982E+00
+-0.30222910E-01-0.30343634E+00-0.20505387E+00-0.91355713E-02
+ 0.29706708E-02-0.31272422E-02 0.22377572E-02-0.16692504E+00
+-0.71510244E-02-0.62363604E-02 0.17446436E-02-0.74244705E-02
+-0.95079606E-03-0.17749453E-01 0.95796930E-02 0.16611043E+00
+ 0.34745239E-01-0.31304036E-02-0.20624200E-01-0.34306971E-02
+ 0.38484319E-02 0.50973926E-01 0.18939672E+00 0.45086402E-01
+ 0.27533084E+00-0.25414023E+00 0.19070908E-01-0.36821201E-01
+ 0.30477703E-01 0.12377640E-01-0.62895715E-01 0.65114923E-01
+ 0.16306715E-01 0.36566287E+00 0.41203955E+00 0.24824467E-01
+-0.14574272E-01-0.27033810E-02-0.31155946E-01 0.35454988E-01
+ 0.60413000E-02-0.18199088E-01 0.76078407E-01-0.16603535E+00
+ 0.15787179E-01 0.39357701E-02-0.27306402E-01 0.80539152E-01
+-0.28398255E+00 0.76125801E-01-0.20132874E+00 0.19440579E+00
+-0.70742458E-01 0.12295902E-01 0.14769582E+00 0.96357893E-02
+ 0.31613465E-01-0.23468396E+00-0.99008822E+00 0.71097992E-01
+-0.12017087E+01 0.50148809E+00-0.10378635E+00 0.77810965E-01
+-0.91363624E-01-0.11122116E+00 0.67196661E+00-0.91745377E-01
+ 0.13793392E+00-0.85245258E+00-0.14946311E+01-0.28373862E-01
+-0.16134294E-01 0.76116845E-01 0.61346978E-01-0.15103582E+00
+-0.18279678E+00-0.22154266E-01-0.34824383E+00 0.38926736E+00
+ 0.52207313E-01 0.68610243E-01 0.53184792E-01-0.12627009E+00
+ 0.39844444E+00-0.27108863E+00 0.32306048E+00-0.42485851E+00
+-0.19756165E+00-0.24037840E-01-0.15082456E+00 0.23419553E-03
+-0.81081510E-01 0.24415769E+00 0.13665473E+01-0.11141641E+00
+ 0.11919484E+01-0.32598576E+00 0.14885177E+00-0.22232583E-01
+ 0.77452868E-01 0.11268586E+00-0.99769139E+00 0.24313284E-01
+-0.25469135E-01 0.58631575E+00 0.13545561E+01 0.77170582E-03
+ 0.12235342E+00-0.77348314E-01 0.12083619E-01-0.14412698E-01
+ 0.11934513E-01 0.10500170E-01-0.19674214E-01-0.95874164E-02
+ 0.18518902E-01 0.13004042E-01 0.67524160E-02 0.29727495E-02
+-0.11646161E-01-0.37059538E-01-0.13889452E-01 0.17757954E-01
+-0.19775612E-01-0.20395935E-01 0.16103785E-01-0.75430768E-02
+ 0.19750383E-02 0.60488075E-01 0.41547071E-01 0.15083943E-01
+-0.27579306E-01 0.15362628E-01 0.45602046E-01 0.11825938E-01
+ 0.46184431E-02 0.33622717E-02 0.20156203E-01 0.11467540E-01
+-0.14934420E-01-0.22406610E-01 0.51867850E-02-0.21814423E-01
+ 0.54861706E-01-0.98177865E-02 0.35655340E-02-0.18438589E-01
+-0.11210715E+00-0.77830158E-01 0.20839000E-01 0.28409932E-02
+-0.75307317E-01-0.12357456E+00-0.36384016E-01 0.30860552E-02
+ 0.94958721E-02 0.14035341E+00-0.26280927E-01-0.39201953E-01
+ 0.32175556E-01 0.13319464E+00-0.63215457E-01 0.32919317E-02
+ 0.36654861E-02-0.24621338E-01-0.67079356E-02 0.15665390E-01
+-0.16562494E-02-0.48217624E-02 0.42397496E-02-0.47429493E-02
+ 0.29692261E-01 0.93461300E-03-0.17562089E-01 0.82685566E-02
+-0.17116127E-02 0.37179261E-02-0.40929308E-02 0.27845460E-02
+ 0.11334968E-01-0.89295959E-03 0.25569776E-01 0.54277506E-01
+-0.23874678E-01 0.16083041E-01-0.17546413E-01-0.15783805E-01
+ 0.44590095E-02 0.11278612E-01 0.31083820E-01 0.20818269E-01
+ 0.31938594E-01-0.67811191E-01 0.65194801E-02 0.25008731E-01
+ 0.63123470E-02 0.44389213E-02-0.66350435E-03-0.64168908E-01
+ 0.25633674E-01 0.53379317E-02 0.13877489E-03 0.42313864E-02
+-0.18789083E-02-0.55933762E-02 0.72038206E-02-0.30773245E-02
+-0.21693164E-02-0.23185892E-02 0.16698711E-01 0.15778277E-01
+-0.79104668E-02 0.66635874E-02-0.56811650E-02 0.11245554E-02
+ 0.19182810E-02 0.65909019E-02-0.23176591E-02 0.10475382E-01
+ 0.17943383E-02 0.12603857E-01 0.36077972E-02-0.10011117E-01
+ 0.22700520E-02 0.29119304E-02 0.28559086E-02-0.42581139E-02
+ 0.80381511E-02 0.52013630E-02-0.15140937E-01 0.62007951E-02
+ 0.13680374E-01-0.36166117E-02-0.32075443E-02-0.44594007E-02
+ 0.68366108E-03 0.27214456E+01-0.59877997E-02 0.48487321E-02
+ 0.11528316E-01 0.83281239E-03 0.11694297E-02 0.40655504E-02
+-0.12881265E-02-0.53722416E-02-0.32532126E+00 0.63253954E-01
+ 0.72628997E-01 0.17123209E-01-0.41282631E-01-0.95136929E-03
+-0.11847535E-01-0.15334175E-01 0.25392929E-02 0.11310599E+01
+ 0.56544151E-01-0.42942472E-01-0.46731703E-01-0.11823614E-01
+-0.18031187E-01-0.14277424E-01 0.86189993E-01 0.44520613E-01
+ 0.39499840E+00-0.47727019E+00-0.22805473E+00-0.68672247E-01
+ 0.14230086E+00-0.33062331E-01 0.33439875E-01 0.30319517E-01
+-0.60412716E-02-0.15841742E+01 0.48886333E-01 0.48712164E-01
+ 0.24080880E-01-0.28131995E-01 0.11339512E+00 0.49910150E-01
+-0.21996433E+00-0.95440678E-01-0.17072472E+00 0.39422408E+00
+ 0.19510727E+00 0.54062922E-01-0.10195932E+00 0.36064230E-01
+-0.24015130E-01-0.89633605E-02 0.65473379E-02 0.46993488E+00
+-0.63174419E-01 0.38383942E-01 0.14852938E-01 0.32509878E-01
+-0.10623866E+00-0.43911122E-01 0.13939916E+00 0.55493016E-01
+ 0.23913419E-01-0.28132305E+00-0.27718166E+00 0.13927994E-01
+-0.82893772E-02-0.20239395E-02 0.55825445E-02-0.44232481E-02
+-0.53990549E-04-0.56995903E-02 0.29952064E+00-0.25091380E+00
+-0.14151807E-01 0.12410180E-01 0.29630894E-02-0.19999536E-01
+ 0.42727250E-02 0.10325929E-01 0.28787147E-01 0.21169320E-01
+-0.18652616E-01-0.22639667E-02 0.15749900E-01-0.35053190E-01
+-0.11501440E-01-0.28702248E-01 0.50729234E-01 0.13469434E-01
+ 0.11982938E+00-0.71723476E-01 0.38758967E-01 0.65331496E-02
+-0.35491824E-01 0.78479424E-02 0.58513922E-02 0.13235763E-01
+-0.45237130E+00 0.98882270E+00 0.10768780E+01-0.19403292E-01
+ 0.32672111E-01 0.33263270E-01-0.44367231E-01 0.15512651E+00
+-0.33647958E-02-0.50860500E+00-0.11076277E+01 0.85086280E+00
+ 0.18959832E+00-0.88933870E-01-0.87038308E-01 0.14959402E+00
+-0.85117795E-01-0.10071342E+00 0.16840751E+00-0.55341917E+00
+-0.18681356E+00 0.46795160E-01-0.36465406E+00 0.34773061E+00
+-0.56421123E-01 0.41546983E+00-0.37943959E+00 0.48950046E+00
+ 0.17589639E+00 0.51375562E+00-0.19277123E+00 0.27112055E+00
+ 0.27518129E+00 0.19615915E-03 0.11075651E+00-0.41206829E-01
+ 0.12937419E+01-0.11020116E+01-0.64798677E+00-0.75120479E-01
+-0.96557952E-01-0.93400031E-01 0.93651280E-01-0.38147634E+00
+ 0.10117626E-01 0.18461685E+01 0.29588601E+00-0.11936399E+01
+-0.57821631E+00 0.12842540E+00 0.21288218E+00-0.31878108E+00
+ 0.19306193E+00 0.21284461E+00-0.75016105E+00 0.11026198E+01
+ 0.58122629E+00-0.15455300E+00 0.91149658E+00-0.80885851E+00
+ 0.42632446E+00-0.10352906E+01 0.75210643E+00-0.14370759E+01
+-0.69056630E+00-0.11955296E+01 0.39424512E+00-0.76573443E+00
+-0.49984264E+00-0.18155196E+00-0.34026536E+00-0.81930935E-01
+-0.85781968E+00 0.72457278E+00-0.22283772E-02 0.71129121E-01
+ 0.41598022E-01 0.46153598E-01-0.39733808E-01 0.24633887E+00
+-0.84825670E-02-0.14810368E+01 0.54091024E+00 0.79484820E+00
+ 0.49584129E+00-0.65858573E-01-0.14391363E+00 0.22043347E+00
+-0.11268485E+00-0.12970915E+00 0.58107245E+00-0.53847790E+00
+-0.96545213E+00 0.15799177E+00-0.56166148E+00 0.47301409E+00
+-0.46004382E+00 0.66261995E+00-0.41957995E+00 0.10437909E+01
+ 0.10547332E+01 0.84057873E+00-0.25376251E+00 0.53126270E+00
+ 0.30007434E+00 0.16683571E+00 0.24391644E+00 0.14497797E+00
+-0.10355590E-01-0.59964433E-02 0.24918828E-02 0.40248983E-01
+-0.11974522E+00-0.68878066E-02 0.52973459E-03 0.16610487E-02
+-0.47631026E-02-0.80973590E-02-0.23301819E-01 0.16890654E-01
+ 0.10705962E+00 0.74931182E-01 0.11066468E-02-0.15185948E-01
+-0.26813566E-02 0.41845441E-02 0.87334573E-01 0.17434020E+00
+ 0.29009607E-01 0.16647445E+00-0.85534535E-01-0.42410148E-02
+-0.62163905E-02 0.25638817E-01-0.72888704E-02 0.21463536E-01
+ 0.82178161E-01-0.59707514E-02 0.14109133E+00 0.29117456E+00
+-0.18742292E-02-0.28855884E-04 0.78286685E-03-0.20326763E-01
+-0.23505557E-01 0.50627660E-01-0.42973336E-01-0.24614643E+00
+ 0.68570442E-01 0.36111508E-01-0.65725469E-02-0.73447876E-01
+ 0.73012590E-01-0.22136711E+00 0.12092493E+00-0.19790530E+00
+-0.13838495E-01-0.37348422E+00-0.22489665E-01 0.12434304E+00
+-0.84679516E-04 0.23986567E-02-0.23487779E+00-0.88596624E+00
+ 0.60993783E-01-0.40152115E+00 0.38432073E-01 0.25088888E-01
+-0.47009036E-01-0.10053905E+00 0.56201056E-01 0.26335394E+00
+-0.29947615E+00 0.83331093E-01-0.21753137E+00-0.68338555E+00
+ 0.12236043E+00-0.42072836E-01 0.58362342E-01 0.13270973E-01
+-0.91692032E-02-0.24499676E+00 0.31347323E-01 0.55245612E-01
+-0.95426172E-01-0.17419253E-01 0.71632415E-01 0.13672970E+00
+-0.10337002E+00 0.32925227E+00-0.42062321E+00 0.24600771E+00
+ 0.48706904E-01 0.17111088E+00-0.23537112E-01-0.12686042E+00
+ 0.21002434E-01-0.16690811E-01 0.69676243E-01 0.11886312E+01
+-0.81857055E-01 0.28926817E+00-0.38532227E-01 0.34839232E-01
+ 0.56403339E-01 0.85259937E-01-0.75022250E-01-0.51328564E+00
+ 0.48400918E+00 0.22977814E-01 0.13689673E+00 0.42785177E+00
+-0.13421567E+00 0.10484700E+00-0.73551662E-01 0.30889113E-01
+-0.18197976E-01 0.72729443E-02 0.12053806E-01-0.14377148E-01
+-0.17075215E-01 0.18109780E-01-0.17175833E-01-0.27712116E-02
+-0.34635665E-03-0.13854426E-01-0.35453096E-01-0.12559115E-01
+ 0.11651063E-01-0.17490545E-01 0.12271131E-01 0.17724304E-01
+-0.37607695E-02-0.41570398E-02 0.43509074E-01 0.63937917E-01
+ 0.10682798E-01-0.17563932E-01 0.50647352E-02 0.68679936E-01
+ 0.10368119E-02 0.18375491E-03 0.41448488E-02 0.25249584E-01
+ 0.15560197E-01 0.24144184E-02-0.15688732E-01 0.11401277E-02
+-0.10834954E-01 0.62144563E-01-0.63146567E-02 0.39895601E-02
+ 0.55234623E-02-0.11332307E+00-0.56373134E-01 0.11459470E-01
+ 0.22336069E-01-0.10773219E+00-0.61456602E-01-0.12642963E-01
+ 0.19825991E-01 0.55266679E-02 0.10650305E+00-0.20077813E-01
+-0.12482653E-01 0.13799644E-01 0.59804551E-01-0.83235875E-01
+-0.92901830E-02 0.25422184E-03-0.16490787E-01-0.12288227E-01
+ 0.15624606E-01-0.15590733E-02-0.44173814E-03 0.32792636E-02
+-0.54032323E-02 0.23649098E-01 0.65248716E-02-0.10436538E-01
+ 0.51402622E-02-0.10056754E-01 0.46160161E-02-0.17697068E-02
+ 0.29858900E-02 0.63185222E-02-0.59197075E-02 0.20331379E-01
+ 0.39676785E-01-0.77944589E-02 0.29491605E-02-0.97978339E-02
+ 0.13357931E-02 0.31436787E-02 0.15301985E-01 0.28650684E-01
+ 0.43868300E-01 0.33646043E-01-0.66603132E-01 0.23036173E-01
+ 0.62092445E-02-0.26638312E-02-0.65160957E-02-0.45676758E-02
+-0.67288466E-01 0.19755878E-01 0.65249880E-02-0.74825557E-02
+ 0.43182308E-02 0.69805081E-02-0.67913304E-02 0.64756777E-02
+-0.16087731E-02 0.93622401E-03-0.20369282E-02 0.11612056E-01
+ 0.10057593E-01-0.81270486E-02 0.65685674E-02 0.31718882E-02
+ 0.40957397E-02 0.22977332E-02 0.49984353E-02 0.35048136E-02
+ 0.72671412E-02 0.54456848E-02 0.84348572E-02 0.48800143E-02
+-0.11012992E-01-0.88449667E-03 0.15507995E-02 0.17194895E-02
+-0.80987962E-03-0.22724713E-04 0.86002506E-03-0.96425554E-02
+ 0.45933654E-02 0.12882300E-01 0.65020460E-03-0.29192658E-02
+-0.44633718E-02 0.21139076E-02
diff --git a/input/glow_data/iri90/ccir16.asc b/input/glow_data/iri90/ccir16.asc
new file mode 100644
index 0000000..d4c41db
--- /dev/null
+++ b/input/glow_data/iri90/ccir16.asc
@@ -0,0 +1,715 @@
+ 0.53135514E+01-0.61482415E-01 0.75109832E-01 0.34710813E-01
+ 0.22684038E-01-0.57048872E-02-0.84173474E-02 0.44471744E-01
+-0.16074698E-01 0.85667998E-03 0.22791712E-03 0.92006745E-02
+-0.97777117E-02-0.19316612E+01-0.42007375E+00 0.51300526E+00
+-0.14258102E+00 0.31701854E+00-0.88729514E-02 0.24743211E+00
+-0.80617800E-01-0.12699057E+00-0.17045531E-01 0.84008286E-02
+-0.75328685E-01 0.18828200E-01 0.46763873E+01 0.11320518E+01
+-0.18580437E+01-0.27329683E+00-0.90213805E+00-0.61084539E+00
+ 0.23694906E+00-0.46116051E+00 0.34168661E+00 0.33637661E+00
+-0.19169091E+00-0.11774270E+00 0.24918503E+00 0.28097292E+02
+ 0.26754222E+01-0.14834358E+01 0.31701112E+01-0.53412337E+01
+ 0.76283532E+00-0.51419859E+01 0.73323458E+00 0.33136436E+00
+ 0.64914894E+00 0.56351509E-01 0.17945926E+01 0.51091266E+00
+-0.29699144E+02-0.10468776E+02 0.11762651E+02 0.23983593E+01
+-0.62706685E+00 0.43435154E+01-0.74329567E+00 0.25396516E+01
+-0.11957142E+01-0.22866728E+01 0.13279625E+01 0.59059352E+00
+-0.12482961E+01-0.74450401E+02-0.65370393E+01-0.13106404E+02
+-0.16474710E+02 0.30279955E+02-0.35481794E+01 0.26479380E+02
+-0.35002706E+01 0.19646826E+01-0.25204167E+01-0.10204962E+01
+-0.11526494E+02-0.46005092E+01 0.57885025E+02 0.38123917E+02
+-0.29894230E+02-0.82557545E+01 0.11295097E+02-0.11428127E+02
+-0.59597737E+00-0.69582043E+01 0.21485796E+01 0.51051588E+01
+-0.42251997E+01-0.11586436E+01 0.25822914E+01 0.64745682E+02
+ 0.56215553E+01 0.52016819E+02 0.30449734E+02-0.71321335E+02
+ 0.47431431E+01-0.54951233E+02 0.77081962E+01-0.85594635E+01
+ 0.24655552E+01 0.34039283E+01 0.28274258E+02 0.11945585E+02
+-0.61265751E+02-0.52918648E+02 0.32995888E+02 0.10468823E+02
+-0.18554152E+02 0.12917597E+02 0.30349872E+01 0.83194733E+01
+-0.23343971E+01-0.44490862E+01 0.54735060E+01 0.93166763E+00
+-0.25764549E+01 0.18634470E+01 0.28486409E+01-0.62127373E+02
+-0.22524527E+02 0.73664352E+02-0.11603888E+01 0.50629311E+02
+-0.74867887E+01 0.10972483E+02 0.44247410E+00-0.41348748E+01
+-0.29279104E+02-0.12263268E+02 0.26340647E+02 0.24130861E+02
+-0.13063382E+02-0.43806276E+01 0.87424278E+01-0.52607641E+01
+-0.19757253E+01-0.35192804E+01 0.10667630E+01 0.12665039E+01
+-0.23884971E+01-0.25039810E+00 0.10172306E+01-0.17573338E+02
+-0.41650991E+01 0.24150318E+02 0.54928117E+01-0.27598324E+02
+-0.83179241E+00-0.17326010E+02 0.26191671E+01-0.46037669E+01
+-0.10153755E+01 0.16939994E+01 0.10823385E+02 0.43800306E+01
+-0.18334110E+00 0.16058656E+01 0.18451380E+01 0.23984671E-01
+-0.77645235E-01-0.71523450E-02-0.39501633E-02 0.48090607E-01
+ 0.10382491E-02-0.10124075E-02-0.98467534E-02 0.16033929E-01
+-0.86858859E-02 0.11624959E+00-0.18097712E+01 0.16314628E+01
+-0.21510409E-01 0.10980082E+00 0.23303006E-01-0.40793312E-02
+-0.20446820E-01 0.77379011E-01-0.18653555E-01 0.93311332E-02
+-0.12022865E-02 0.20225255E-01-0.59684879E+00-0.33499169E+00
+-0.13415632E+01 0.50301838E+00-0.44692445E+00 0.90694763E-01
+-0.62957235E-01-0.15851028E+00 0.21268469E+00 0.11720025E+00
+ 0.27619761E+00 0.42360511E-01 0.29771827E-01-0.34701595E+00
+ 0.15442055E+01-0.20425926E+00 0.16489644E+00 0.11285269E+00
+ 0.20746952E+00-0.82578465E-01 0.18210283E+00 0.43843952E+00
+ 0.80315150E-01 0.14707121E+00 0.18282767E+00 0.11922825E+00
+ 0.64125867E+01 0.73759170E+01 0.92153292E+01-0.22129582E+00
+-0.95621055E+00 0.99270296E+00-0.32091096E+00-0.50337327E+00
+ 0.87898248E+00-0.46062678E+00-0.19489811E+00-0.40433988E+00
+ 0.12082740E+00-0.33119065E+00-0.12071861E+02 0.27483230E+01
+-0.50224137E+00-0.92419714E+00-0.15161744E+01 0.67563355E+00
+ 0.55171251E+00-0.55627638E+00 0.47423026E+00 0.14856794E+00
+ 0.11773849E+00-0.19019896E+00 0.57699900E+01 0.14562860E+01
+ 0.80994415E+01-0.70281959E+01 0.21438148E+01 0.44327801E+00
+-0.11645912E+01 0.24570403E+01-0.35969975E+01-0.75412291E+00
+-0.54496884E+01-0.50559856E-01 0.71804142E+00 0.59823146E+01
+-0.11598491E+02 0.66550407E+01 0.14041714E+00-0.62558069E+01
+-0.17235842E+01 0.17961844E+01-0.20923460E+01-0.71783361E+01
+-0.25725663E+01-0.15988770E+01-0.18210272E+01-0.11821673E+01
+-0.42838211E+02-0.50422752E+02-0.27591564E+02 0.72362642E+01
+ 0.67548871E+01-0.13753628E+02 0.42630401E+01 0.29996941E+01
+-0.36755970E+01 0.23023808E+01 0.17583880E+01 0.28728533E+01
+ 0.73049802E+00-0.27694557E+01 0.49150024E+02-0.67315660E+01
+ 0.31819255E+01 0.76478081E+01 0.15908955E+02-0.70412917E+01
+-0.81684484E+01 0.24692976E+01-0.28794234E+01-0.24862816E+01
+-0.21675971E+00-0.54332763E+00-0.26377701E+02 0.61225288E+02
+-0.36126202E+02 0.34660233E+02 0.78493519E+01-0.54490952E+01
+ 0.13300788E+02-0.13281824E+02 0.18924454E+02 0.30061636E+01
+ 0.32234249E+02-0.37474296E+01-0.85291586E+01-0.58997833E+02
+ 0.78057648E+02 0.12184751E+02-0.11472317E+02 0.42532295E+02
+ 0.64326682E+01-0.15016547E+02 0.18534817E+02 0.30961195E+02
+ 0.14846240E+02 0.53940797E+01 0.65931735E+01 0.31726680E+01
+ 0.10302815E+03 0.10765425E+03-0.18549156E+02-0.29647400E+02
+-0.18905441E+02 0.51032181E+02-0.18045750E+02-0.76261740E+01
+ 0.33367565E+01-0.33117504E+01-0.46762824E+01-0.70676723E+01
+-0.52129989E+01 0.19405296E+02-0.37196632E+02-0.30845879E+02
+-0.12045132E+01-0.24903931E+02-0.52441917E+02 0.21243822E+02
+ 0.32386875E+02-0.61232271E+01 0.69945936E+01 0.10995952E+02
+-0.16689281E+01 0.32438049E+01 0.83281013E+02-0.24887656E+03
+ 0.94408211E+02-0.81634117E+02-0.56857452E+02 0.11548672E+02
+-0.39307831E+02 0.35773415E+02-0.44039265E+02-0.80293608E+01
+-0.81032394E+02 0.15755465E+02 0.29912725E+02 0.17956213E+03
+-0.25433278E+03-0.10402868E+03 0.38665817E+02-0.10846452E+03
+-0.16294807E+02 0.43562103E+02-0.65742599E+02-0.52942467E+02
+-0.32878132E+02-0.90460014E+01-0.10402137E+02-0.99966192E+00
+-0.99776047E+02-0.10776513E+03 0.93763397E+02 0.41308418E+02
+ 0.23109884E+02-0.71873962E+02 0.29615770E+02 0.85741634E+01
+ 0.15823607E+01 0.56734997E+00 0.39712129E+01 0.65275764E+01
+ 0.91736221E+01-0.30059841E+02-0.42904842E+02 0.75276306E+02
+-0.11297899E+02 0.29414515E+02 0.68314957E+02-0.24166710E+02
+-0.47956135E+02 0.79749370E+01-0.81939878E+01-0.17279491E+02
+ 0.42007875E+01-0.36308939E+01-0.12822026E+03 0.33393097E+03
+-0.12717429E+03 0.89460068E+02 0.95602333E+02-0.56442857E+01
+ 0.46425873E+02-0.45104004E+02 0.47921806E+02 0.10032402E+02
+ 0.92091537E+02-0.21654915E+02-0.41252964E+02-0.20665901E+03
+ 0.35750424E+03 0.15833980E+03-0.42081184E+02 0.11878425E+03
+ 0.21206402E+02-0.51555927E+02 0.93430550E+02 0.37203754E+02
+ 0.32163887E+02 0.86474857E+01 0.69033074E+01-0.54782982E+01
+ 0.31105921E+02 0.42761517E+02-0.58713291E+02-0.18812452E+02
+-0.99255018E+01 0.34368755E+02-0.16233343E+02-0.36081984E+01
+-0.22873654E+01 0.10863211E+01-0.70161188E+00-0.17797345E+01
+-0.49097610E+01 0.14821376E+02 0.46732437E+02-0.43093964E+02
+ 0.10727091E+02-0.10283649E+02-0.30857159E+02 0.94555550E+01
+ 0.23968437E+02-0.39821031E+01 0.38799286E+01 0.87662678E+01
+-0.24545429E+01 0.99674916E+00 0.70579102E+02-0.14992651E+03
+ 0.64224586E+02-0.36984921E+02-0.49639442E+02-0.14587626E+01
+-0.19475060E+02 0.20724131E+02-0.19756748E+02-0.44517136E+01
+-0.38782745E+02 0.96913366E+01 0.19572958E+02 0.79299797E+02
+-0.17635577E+03-0.73442924E+02 0.14171571E+02-0.48244438E+02
+-0.10028917E+02 0.21243670E+02-0.45515968E+02-0.82364569E+01
+-0.11869068E+02-0.36658957E+01-0.14194759E+01 0.46354752E+01
+ 0.10682828E+00 0.15335342E+00 0.24009713E-02-0.94681269E+00
+-0.20006712E+00 0.35301302E-01-0.26023917E-01-0.17329574E-01
+ 0.51625643E-01-0.21257993E-01-0.38532102E-02-0.74463747E-02
+ 0.90640932E-02 0.19327568E+00-0.18736569E-01 0.22726156E-01
+ 0.25009137E+00-0.72113854E+00 0.99601615E-02-0.55031674E-02
+-0.26947472E-01 0.28790315E-02-0.16322194E-01-0.36808793E-03
+-0.56895283E-02 0.75899302E-02-0.55829501E+00 0.74548769E+00
+ 0.33699301E+00-0.38933989E+00-0.11029156E+01 0.14290258E+00
+-0.13941409E-01 0.13658305E+00-0.56958534E-02 0.14612201E+00
+-0.36390368E-01 0.34695819E-04 0.22696797E-01-0.19936664E-01
+ 0.11800451E+00 0.74418652E+00 0.16391089E+01-0.22145706E+00
+ 0.27896428E-01 0.86451977E-01 0.23700632E+00-0.18414943E-01
+ 0.22026940E-03-0.35097837E-01 0.70859253E-01 0.16451158E-01
+ 0.78674906E+00 0.40604296E+00 0.13178561E+01 0.94937210E+01
+ 0.35943595E+00-0.45602840E+00 0.23751763E+00 0.16641727E+00
+-0.49453366E+00-0.13433233E+00-0.40668243E+00-0.21240635E-01
+-0.36346906E+00 0.72496071E-01 0.11956791E+01 0.17677049E+00
+-0.21435833E+01 0.64546747E+01 0.49960443E+00 0.50610906E+00
+-0.10921649E+00 0.65923679E+00 0.13551632E+00-0.21280682E+00
+ 0.16277494E+00 0.11476960E+00 0.45960088E+01-0.63736382E+01
+-0.17190388E+01 0.82465286E+01 0.17915984E+01-0.91923392E+00
+-0.91493428E+00-0.46042120E+00-0.24589279E+00-0.14275963E+01
+ 0.90770066E+00 0.12878948E+00 0.27167577E+00-0.16134089E+01
+-0.31690547E+01-0.59042554E+01-0.66804452E+01 0.78570251E+01
+ 0.24046221E+01-0.80951697E+00-0.12263418E+01-0.75266880E+00
+-0.16484741E+01 0.21213526E+00-0.13156597E+00 0.31026939E+00
+-0.10191396E+02-0.35821579E+01-0.67020483E+01-0.21100809E+02
+ 0.50712733E+01 0.15026681E+01 0.15030552E+01-0.14051753E+01
+ 0.43638811E+01 0.14188287E+01 0.20353065E+01 0.83522245E-01
+ 0.18233762E+01-0.14807859E+00-0.29033175E+01 0.49544346E+00
+ 0.72752118E+01-0.59718432E+01-0.30980995E+01-0.21497185E+01
+-0.39590228E+00-0.21902370E+01-0.58068059E-01 0.13292863E+01
+-0.71125287E+00-0.20930350E+01-0.11946964E+02 0.14842890E+02
+-0.15085144E+00-0.26015095E+02-0.11381587E+00 0.23868535E+01
+ 0.37237940E+01 0.10595403E+01 0.15183357E+01 0.36690791E+01
+-0.32947772E+01-0.13435316E+00-0.86445820E+00 0.70006118E+01
+ 0.88694229E+01 0.11823129E+02 0.99858646E+01-0.25837082E+02
+-0.93706493E+01 0.37652469E+01 0.22050340E+01 0.24930382E+01
+ 0.60392127E+01-0.10250652E+01-0.25152349E+00-0.87281799E+00
+ 0.25511642E+02 0.61066298E+01 0.16452080E+02 0.43983407E+01
+-0.15019115E+02-0.25166245E+01-0.56915488E+01 0.42986555E+01
+-0.11266659E+02-0.37101965E+01-0.29099541E+01 0.31099221E+00
+-0.24174685E+01-0.37529130E+01-0.29049420E+01-0.49277145E+00
+-0.12283454E+02-0.22927643E+02 0.58630066E+01 0.24241989E+01
+ 0.20458815E+01 0.14258064E+01-0.27732790E+00-0.25777242E+01
+ 0.11977600E+01 0.57707081E+01 0.85478735E+01-0.10505727E+02
+ 0.35088875E+01 0.18057755E+02-0.31088126E+01-0.20258300E+01
+-0.33768830E+01-0.75583994E+00-0.16262639E+01-0.27519293E+01
+ 0.28147068E+01-0.59420045E-01 0.66975570E+00-0.69251733E+01
+-0.75538425E+01-0.68501964E+01-0.25737543E+01 0.18046787E+02
+ 0.80261040E+01-0.44093361E+01-0.15761824E+01-0.17725418E+01
+-0.48975239E+01 0.11016632E+01 0.48760176E+00 0.51885700E+00
+-0.17836386E+02-0.32042096E+01-0.13130729E+02 0.11606612E+02
+ 0.12947696E+02 0.19340641E+01 0.47053881E+01-0.35811558E+01
+ 0.81174049E+01 0.28834205E+01 0.10804650E+01-0.32320696E+00
+ 0.74705285E+00 0.50985780E+01 0.60607548E+01-0.27176561E+01
+ 0.50116320E+01 0.27655184E+02-0.36654398E+01 0.24630740E+00
+-0.14518211E+01 0.14266887E+00 0.26619384E+00 0.16181467E+01
+-0.81003147E+00-0.41553168E+01 0.44094801E-01 0.12518990E+00
+-0.13474181E+00-0.11440214E+00 0.75728670E-01-0.35541511E+00
+-0.50099200E+00-0.55849489E-01 0.62280174E-01-0.11978948E-01
+-0.18889341E-03-0.37581697E-01-0.79547213E-02 0.80496319E-01
+-0.75641625E-01-0.15093005E+00-0.28906606E-01-0.13633297E+00
+ 0.48335886E+00-0.39124358E+00-0.51529985E-01-0.16674163E-01
+ 0.13538418E-01 0.16163324E-02-0.82436623E-02-0.84085455E-04
+-0.27754477E+00 0.71311891E+00-0.89700386E-01-0.21103679E+00
+-0.17687225E+00 0.15123169E+00 0.22682615E-01 0.21121208E+00
+-0.16462816E-01-0.60570084E-01 0.39293535E-01-0.10021122E+00
+ 0.95546981E-02-0.29436976E+00-0.28597829E+00-0.23569670E+00
+-0.61088581E-01-0.30247924E+00 0.42297073E-01 0.29653084E+00
+-0.27596239E-01-0.62871657E-01-0.64206328E-02-0.10770185E+00
+-0.35808660E-01-0.16216652E-01-0.14272901E+00-0.95003837E+00
+ 0.14099309E+01 0.34587759E+00-0.58685106E+00-0.53814942E+00
+-0.16351078E+00 0.94250903E-01 0.10865152E+00 0.25800949E+00
+ 0.30995958E-01 0.31330404E+00-0.10657041E+00-0.97229975E+00
+ 0.19243021E+01 0.96367663E+00-0.21867950E+00 0.12699347E+01
+ 0.10597437E+00-0.20831758E+00-0.16814458E+00 0.64819470E-01
+-0.26897462E-01 0.20455129E+00 0.10330691E+00-0.44147037E-01
+-0.15029612E+00-0.14936835E+01 0.13109908E+00 0.61500740E+00
+ 0.24869451E+00-0.14464337E+00 0.21722548E+00-0.44552392E+00
+ 0.24300979E-02 0.12858246E+00-0.11394108E+00 0.26291013E+00
+-0.14204117E-01 0.23137939E+00 0.89680660E+00 0.70877725E+00
+ 0.72342165E-01 0.90643167E+00-0.44160914E+00-0.38550001E+00
+ 0.47713518E-01 0.66411771E-01-0.97876545E-02 0.23822626E+00
+ 0.20062061E+00 0.58113962E-01 0.85560966E+00 0.20959485E+01
+-0.21306541E+01-0.25514224E+00 0.12787257E+01 0.20966003E+01
+ 0.11189801E+01 0.11804737E+00-0.47789565E+00-0.44577163E+00
+ 0.65643959E-01-0.56391513E+00 0.21226558E+00 0.11625001E+01
+-0.24074843E+01-0.14329216E+01-0.33291936E-01-0.19074674E+01
+-0.82054245E+00 0.16421086E+01 0.59356934E+00-0.19039523E-01
+-0.14523591E+00-0.37697402E+00-0.36098781E+00 0.90530626E-01
+ 0.41392002E-01-0.41367438E-01-0.56517832E-01-0.29723020E-01
+ 0.45230564E-01 0.29130369E-01-0.52787438E-02 0.22493723E+00
+-0.37028406E-01-0.76311780E-02 0.66862693E-02-0.14504310E-01
+-0.11098138E-01 0.60032666E-01-0.52753162E-01 0.69005713E-02
+ 0.17640466E-01-0.42814646E-01 0.10649805E-02-0.16114800E-02
+ 0.41139279E-01 0.21040384E+00 0.91859568E-02-0.34672103E-02
+ 0.49885898E-02-0.36266081E-02-0.22909485E-01-0.57594564E-01
+-0.49758352E-01 0.40956624E-01-0.18536091E+00-0.12244110E+00
+ 0.80677725E-01 0.27833149E+00 0.26716733E+00-0.18367633E-01
+-0.48983745E-01-0.45404307E-03 0.61136829E-02 0.23329218E+00
+ 0.21748865E+00-0.60024496E-01-0.60173009E-01 0.15808193E+00
+ 0.48826919E-02-0.13135211E-01-0.34629282E+00 0.13930210E+00
+-0.11054378E-01-0.39946426E-01-0.16428996E-01-0.25691027E-01
+-0.12797327E+00-0.13176106E-01 0.16579621E-01-0.26598467E-01
+-0.44626016E-01 0.11000606E-01-0.68844962E-02 0.30088242E-01
+-0.21648988E-01 0.85243776E-01 0.13738230E+00 0.71503147E-02
+-0.82375538E-02 0.41204984E-02-0.28827868E-02-0.10035298E-01
+ 0.48501052E-01-0.72628535E-01-0.31241590E-01-0.27600962E-02
+ 0.50012227E-01 0.15929714E-01-0.15858254E+00 0.73988296E-01
+ 0.60939570E-02-0.19759694E-01-0.29281452E-01-0.43308523E-01
+-0.50946777E-02 0.35335834E-03-0.43678591E-02 0.27276650E-02
+-0.24702514E-01 0.39685573E-01 0.26893996E-01 0.11443176E-02
+ 0.35606234E-03-0.97904116E-01 0.17392356E-01 0.29230772E-01
+ 0.30779630E-01 0.66181175E-01 0.33190589E-01 0.54724183E-01
+-0.13985308E-01-0.75963368E-02-0.36636444E-02-0.11163543E-01
+-0.28938515E-01-0.19950645E-01-0.18290415E-01-0.11451925E+00
+ 0.25555792E-02 0.33711719E-02-0.17088523E-01 0.12914094E-01
+ 0.22545582E-01-0.11638348E-01 0.84269810E-02 0.31605013E-01
+ 0.43525486E-02-0.14523819E-01-0.11092685E-01 0.72272657E-03
+ 0.65107662E-02 0.73336594E-01-0.65333776E-01-0.23503136E-01
+ 0.45837099E-02 0.15234247E-01-0.57932669E-02 0.15654413E-02
+-0.23898358E-01 0.22590397E-01-0.16863436E-01-0.25549070E-02
+-0.54761791E-02 0.18356221E-01 0.17226540E-01 0.12007785E+00
+-0.12394503E+00 0.27426206E-01 0.75115939E-02-0.23556633E-01
+ 0.14968693E-01-0.76391217E-02 0.15911356E-01-0.28241746E-01
+-0.31705524E-02-0.28219888E-01-0.10984738E-01-0.51771577E-01
+-0.57098405E-02 0.31669147E-01-0.37942089E-01 0.34906853E-01
+ 0.10111721E-01-0.26458624E-03-0.22664923E-01 0.10375086E-01
+ 0.15457364E-01-0.95300321E-02 0.46850368E-02 0.10677025E-01
+ 0.80510998E+01-0.25949422E-01 0.21837340E+00 0.76524161E-01
+-0.26052505E-01-0.19464865E-01-0.11594040E-01 0.40525004E-01
+-0.83783437E-02 0.77255415E-02-0.43546511E-02 0.13457161E-01
+-0.19088319E-01-0.62016821E+00-0.67613447E+00 0.24612109E+00
+-0.29176807E+00 0.24085705E+00-0.57791073E-01 0.25819287E+00
+ 0.50516576E-01-0.14634442E+00 0.24345282E-02 0.78144493E-02
+-0.72793506E-01 0.15928514E-01 0.17819746E+02 0.14743440E+01
+-0.27259543E+01-0.13425981E+00 0.37347874E+00 0.50698123E-02
+ 0.27457744E+00-0.32091236E+00 0.19228476E+00 0.13757847E+00
+-0.13359857E+00-0.24793717E+00 0.29714280E+00-0.11858767E+02
+ 0.69419298E+01 0.46298509E+01 0.42721686E+01-0.35434074E+01
+ 0.75084180E+00-0.42302465E+01-0.70975661E+00 0.99484891E+00
+-0.40930372E+00-0.47602188E-01 0.14345567E+01 0.58592618E+00
+-0.97920853E+02-0.13692502E+02 0.91235781E+01-0.14460938E+01
+-0.85480909E+01 0.18136225E+01-0.40499854E+00 0.23285608E+01
+ 0.21228252E+00-0.17068177E+01 0.10739388E+01 0.17055205E+01
+-0.15911946E+01 0.13621458E+03-0.31045456E+02-0.30203131E+02
+-0.16606495E+02 0.24689091E+02-0.46569004E+01 0.19129166E+02
+ 0.27777817E+01-0.42672701E+01 0.31055405E+01 0.20506692E+00
+-0.88754292E+01-0.49245520E+01 0.18260400E+03 0.48245602E+02
+-0.12680835E+02 0.67058239E+01 0.30385052E+02-0.77466555E+01
+-0.24252276E+01-0.74331207E+01-0.30216341E+01 0.50820293E+01
+-0.34738324E+01-0.39474041E+01 0.36654823E+01-0.37284259E+03
+ 0.57534088E+02 0.59615005E+02 0.21586212E+02-0.65765862E+02
+ 0.11232314E+02-0.35051090E+02-0.48223314E+01 0.10247663E+02
+-0.89555550E+01 0.19287635E-01 0.21166868E+02 0.12303819E+02
+-0.16647343E+03-0.65894676E+02 0.92080431E+01-0.95255365E+01
+-0.38242653E+02 0.10814571E+02 0.54566917E+01 0.95939255E+01
+ 0.48733854E+01-0.54909315E+01 0.43026366E+01 0.36398020E+01
+-0.39649410E+01 0.40097147E+03-0.42800575E+02-0.49323971E+02
+-0.69891477E+01 0.72595741E+02-0.11016485E+02 0.28427053E+02
+ 0.38504643E+01-0.11370510E+02 0.10496172E+02-0.38129082E+00
+-0.21485941E+02-0.12095145E+02 0.60411118E+02 0.29807955E+02
+-0.30553248E+01 0.43338375E+01 0.16042967E+02-0.49058828E+01
+-0.29349284E+01-0.42607260E+01-0.22481444E+01 0.19431134E+01
+-0.17624894E+01-0.11618649E+01 0.16431694E+01-0.15156676E+03
+ 0.10127841E+02 0.15031334E+02-0.20478544E+01-0.28253370E+02
+ 0.37018678E+01-0.85423803E+01-0.11203144E+01 0.45561490E+01
+-0.42304101E+01 0.19091371E+00 0.78487253E+01 0.40897169E+01
+-0.36684188E+00 0.12926129E+01 0.19531890E+01 0.42412702E-01
+-0.14427768E+00-0.23068365E-01 0.24992963E-02 0.48195336E-01
+-0.24228871E-02 0.57797058E-03-0.24764627E-01 0.62236316E-02
+-0.12336963E-01 0.35460928E+00-0.17541237E+01 0.13221329E+01
+-0.24655612E-04 0.17179137E+00 0.25261961E-01 0.78048166E-02
+-0.28375529E-01 0.45270234E-01-0.58390521E-02 0.73639741E-02
+-0.46915747E-02 0.16659260E-01-0.69456911E+00 0.28679106E+00
+-0.34354627E+01 0.52327073E+00 0.16810082E+00-0.47624176E-02
+-0.91403551E-01-0.16691753E+00 0.12325200E-01 0.15972370E+00
+ 0.14241000E+00 0.19505944E-01 0.13720220E+00-0.31720053E-02
+ 0.21107395E+01-0.78734863E+00-0.80523528E-02 0.38587731E+00
+ 0.15747765E+00 0.84543660E-01 0.20151427E+00 0.25630075E+00
+ 0.16800867E+00 0.43668777E-01 0.15243682E+00 0.24071131E-01
+ 0.73923025E+01 0.16647623E+02-0.37959800E+01 0.78674835E+00
+ 0.54041618E+00 0.10678436E+01-0.19122691E+00-0.94048089E+00
+ 0.97269678E+00-0.43552950E+00 0.79522692E-01-0.37138738E-01
+-0.29479025E-01-0.34290457E+01-0.85238671E+00 0.14262810E+02
+ 0.15189956E+01-0.36586006E+01-0.14248925E+01-0.20277178E+00
+ 0.64990950E+00-0.36768889E+00 0.84792279E-01-0.21742781E+00
+-0.16557669E-01 0.12499936E+00 0.73744383E+01-0.12027929E+02
+ 0.55477055E+02-0.12374017E+02-0.89327345E+01 0.21117227E+01
+-0.63658524E+00 0.36965864E+01-0.23416463E+00-0.27068796E+01
+-0.28190041E+01 0.65999812E+00-0.12989928E+01 0.79730363E+01
+-0.21980247E+02 0.14381426E+02 0.35661685E+01-0.12320098E+02
+-0.91450326E-01 0.10625300E+01-0.12245990E+01-0.24598341E+01
+-0.45958142E+01-0.12662302E+01-0.16750321E+01 0.63961756E+00
+-0.44315506E+02-0.68935883E+02 0.51209675E+02-0.96216927E+01
+ 0.28568304E+01-0.88125429E+01 0.41833620E+01 0.88361034E+01
+-0.57595100E+01 0.20263133E+01 0.30380830E+00 0.13347017E+01
+ 0.20728569E+01 0.27656660E+02-0.24090044E+02-0.49807522E+02
+-0.16521885E+02 0.37152962E+02 0.12428595E+02 0.23935599E+01
+-0.96629171E+01 0.31866329E+01-0.14910942E+00-0.12049040E+01
+ 0.13381022E+01-0.26929400E+01-0.27525063E+02 0.94771980E+02
+-0.32496066E+03 0.86580139E+02 0.72477280E+02-0.22168686E+02
+ 0.94462023E+01-0.26052528E+02 0.84192997E+00 0.15367923E+02
+ 0.14202004E+02-0.84568520E+01 0.30221646E+01-0.95830826E+02
+ 0.13345288E+03-0.56603416E+02-0.34000439E+02 0.71806602E+02
+-0.46853423E+01-0.18473898E+02 0.10775526E+02 0.38866134E+01
+ 0.27761209E+02 0.10534242E+02 0.68109131E+01-0.58825417E+01
+ 0.10576842E+03 0.75757675E+02-0.18107726E+03 0.35365593E+02
+-0.19049076E+02 0.26869581E+02-0.20695049E+02-0.29340977E+02
+ 0.12610971E+02-0.15228617E+01-0.24438107E+01-0.53549356E+01
+-0.92385302E+01-0.89127052E+02 0.11649306E+03 0.99241447E+01
+ 0.59149529E+02-0.12863148E+03-0.36652939E+02-0.66132178E+01
+ 0.37069744E+02-0.13132428E+02-0.28511498E+01 0.12527537E+02
+-0.64466619E+01 0.80187778E+01 0.66444099E+02-0.26490027E+03
+ 0.78100250E+03-0.24294917E+03-0.21248206E+03 0.73090462E+02
+-0.29586170E+02 0.75238579E+02 0.11143709E+01-0.39969158E+02
+-0.29317850E+02 0.27842539E+02 0.15493094E+01 0.31403052E+03
+-0.33532126E+03 0.10940713E+03 0.94474915E+02-0.15778313E+03
+ 0.12858322E+02 0.64601768E+02-0.41679054E+02 0.12144041E+02
+-0.63168148E+02-0.34294418E+02-0.11578428E+02 0.18609144E+02
+-0.10748645E+03-0.73261108E+01 0.25742560E+03-0.49046207E+02
+ 0.29797882E+02-0.34313000E+02 0.34743034E+02 0.39293594E+02
+-0.13067580E+02-0.31035950E+01 0.34878824E+01 0.69859462E+01
+ 0.13996960E+02 0.12487012E+03-0.19734895E+03 0.10182087E+03
+-0.88575996E+02 0.17575227E+03 0.44216854E+02 0.75572181E+01
+-0.53957497E+02 0.22110167E+02 0.75596704E+01-0.24996717E+02
+ 0.10142770E+02-0.73031473E+01-0.81616684E+02 0.30472897E+03
+-0.86462183E+03 0.28986890E+03 0.26276410E+03-0.95904716E+02
+ 0.36672890E+02-0.93806793E+02-0.43140082E+01 0.47584782E+02
+ 0.27736128E+02-0.35119770E+02-0.99922857E+01-0.39365311E+03
+ 0.40164426E+03-0.12205155E+03-0.98447792E+02 0.14291895E+03
+-0.10083131E+02-0.84789528E+02 0.63032337E+02-0.34860493E+02
+ 0.60776482E+02 0.46811893E+02 0.81084528E+01-0.25287830E+02
+ 0.36671532E+02-0.15971799E+02-0.12797734E+03 0.23251619E+02
+-0.13679494E+02 0.15429979E+02-0.18713863E+02-0.18289385E+02
+ 0.52698426E+01 0.33367665E+01-0.13960910E+01-0.28204956E+01
+-0.69832816E+01-0.59758083E+02 0.11212505E+03-0.80015900E+02
+ 0.45999847E+02-0.81153366E+02-0.18856775E+02-0.28614230E+01
+ 0.26849733E+02-0.12275286E+02-0.47784538E+01 0.14424383E+02
+-0.51218362E+01 0.15706040E+01 0.38644615E+02-0.12562950E+03
+ 0.36313803E+03-0.12401902E+03-0.11666864E+03 0.43718800E+02
+-0.16167812E+02 0.41872963E+02 0.27231398E+01-0.20851528E+02
+-0.99890919E+01 0.15157324E+02 0.68729215E+01 0.16797034E+03
+-0.18619617E+03 0.57807312E+02 0.33903023E+02-0.45472706E+02
+ 0.14138937E+01 0.37569668E+02-0.32199303E+02 0.21854696E+02
+-0.20931599E+02-0.22431284E+02-0.17632341E+01 0.12280620E+02
+ 0.67577185E-02-0.38690273E-01 0.12910472E+00-0.96712691E+00
+ 0.28352141E+00-0.23064802E-02-0.67802047E-03-0.94842110E-02
+ 0.16349863E-01-0.21919638E-01 0.69284305E-03-0.18507710E-01
+ 0.65062190E-02 0.98213874E-01-0.86133815E-01-0.43852173E-01
+-0.25530991E+00-0.75969112E+00 0.14430066E-02 0.11108719E-01
+-0.26231494E-01-0.16866442E-01-0.13983527E-01 0.39212308E-02
+-0.13768057E-01 0.86285966E-02 0.52556640E+00 0.14199088E+01
+ 0.23482423E+00 0.12398671E+01-0.11701978E+01 0.22943036E+00
+ 0.19906037E-01 0.14976382E+00-0.83794696E-02 0.12005270E+00
+-0.11553056E+00 0.17222632E-01 0.61729096E-01 0.25419283E+00
+ 0.50038338E+00 0.77746254E+00 0.17081389E+01 0.14862339E+01
+-0.36264654E-01 0.18140624E+00 0.25878024E+00 0.94825074E-01
+ 0.19079769E-01-0.11765101E-01 0.11579243E+00 0.53563844E-01
+ 0.29051917E+01 0.17165275E+01-0.23254345E+00 0.30379848E+01
+ 0.28690646E+01 0.66818811E-01-0.14130628E+00-0.79569364E+00
+ 0.35532689E+00-0.21288022E+00-0.17567311E+00 0.18693624E-01
+-0.56478500E+00 0.17097101E+01-0.15680478E+01 0.19375648E+01
+-0.37112069E+01 0.15600331E+01 0.15556124E+00-0.19353969E+00
+-0.24991187E+00 0.85250163E+00 0.35902387E+00-0.43576801E+00
+ 0.26326782E+00 0.53666756E-01-0.71911683E+01-0.10550578E+02
+ 0.53046633E-01 0.34881504E+01 0.18754406E+01-0.14867971E+01
+-0.13179111E+01-0.11313314E+01-0.38169405E+00-0.14188350E+01
+ 0.18088046E+01 0.11685710E+00 0.16416541E+00-0.77558784E+01
+-0.51033101E+01-0.53945317E+01-0.79216189E+01 0.20668960E+01
+ 0.22548456E+01-0.17693250E+01-0.83705181E+00-0.15927854E+01
+-0.11773171E+01-0.69688298E-01-0.17553112E+00 0.24276218E+00
+-0.18529564E+02-0.49476762E+01-0.80366945E+01-0.59576052E+00
+-0.12046759E+02 0.84566593E+00 0.37427566E+01 0.49305139E+01
+-0.11143556E+01 0.25452406E+01-0.23028915E+00 0.14220794E+00
+ 0.31511154E+01-0.19755463E+00 0.14758796E+02-0.15246205E+02
+ 0.17099882E+02 0.68206816E+01-0.16745818E+01 0.30730574E+01
+ 0.30909929E+00-0.25502460E+01-0.20344477E+01 0.21614161E+01
+-0.16361508E+01-0.19083089E+01 0.17850922E+02 0.23550045E+02
+-0.43193951E+01-0.17244564E+02 0.45090499E+01 0.36393521E+01
+ 0.38667064E+01 0.35419881E+01 0.14072553E+01 0.40633569E+01
+-0.58945403E+01-0.35010526E+00-0.12329621E+01 0.25905699E+02
+ 0.12087793E+02 0.13750561E+02 0.92878151E+01-0.13878139E+02
+-0.71122155E+01 0.60348301E+01 0.10128769E+01 0.49910145E+01
+ 0.45441375E+01-0.48133820E+00-0.69957542E+00-0.12999972E+01
+ 0.35084892E+02 0.58390584E+01 0.27396364E+02-0.14684110E+02
+ 0.16126560E+02-0.30175450E+01-0.90232534E+01-0.10018678E+02
+ 0.10488937E+01-0.65118580E+01 0.26540687E+01-0.18480808E+00
+-0.52721381E+01-0.17716702E+02-0.33102341E+02 0.34046539E+02
+-0.25810240E+02-0.28638424E+02 0.30514753E+01-0.93732405E+01
+ 0.12338361E+00 0.99789155E+00 0.36990767E+01-0.32632139E+01
+ 0.32731326E+01 0.55128732E+01-0.13897304E+02-0.15651490E+02
+ 0.54399266E+01 0.10493177E+02-0.10791659E+02-0.24484687E+01
+-0.28806729E+01-0.28858256E+01-0.10917011E+01-0.32969794E+01
+ 0.47821879E+01 0.21285339E+00 0.13126817E+01-0.23277504E+02
+-0.86345367E+01-0.10629125E+02 0.21820576E+01 0.74627986E+01
+ 0.50995250E+01-0.59439478E+01-0.66435319E+00-0.40929780E+01
+-0.37793703E+01 0.67755610E+00 0.11436670E+01 0.11544902E+01
+-0.19324162E+02-0.31898675E+01-0.20808168E+02 0.17447025E+02
+-0.33315101E+01 0.21073177E+01 0.58234086E+01 0.62877498E+01
+-0.35331634E+00 0.48601122E+01-0.26413305E+01 0.93884856E-01
+ 0.25990388E+01 0.21725630E+02 0.20295200E+02-0.24284405E+02
+ 0.83008165E+01 0.26109770E+02-0.13780729E+01 0.82305450E+01
+ 0.23272064E+00 0.11319129E+01-0.20607281E+01 0.17115957E+01
+-0.22145329E+01-0.40296369E+01 0.11448875E+00 0.53372294E-01
+-0.10701045E-01-0.74131079E-01 0.42126238E-01-0.47183973E+00
+-0.62683088E+00-0.49725015E-01 0.23906445E-01-0.18615820E-01
+ 0.69484608E-02-0.43719456E-01-0.12143527E-01 0.18777304E-03
+-0.18922636E+00-0.75974211E-01-0.15254694E-01-0.11909236E+00
+ 0.59676683E+00-0.50491786E+00-0.35921060E-01 0.58115725E-02
+ 0.59416122E-02 0.95220320E-02-0.17321225E-01 0.72834064E-03
+-0.31445304E+00 0.10098319E+01-0.87438963E-01-0.22055499E+00
+-0.36901802E+00 0.44668826E+00 0.42858791E+00 0.21535960E+00
+-0.43418493E-01-0.49117277E-02 0.10932283E+00-0.98627552E-01
+ 0.37286639E-01-0.16686460E+00-0.16635004E+00-0.32959878E-01
+-0.37202913E-01-0.50687611E+00-0.32216674E+00 0.34823060E+00
+ 0.52472215E-01 0.84805384E-01 0.22642313E-01-0.84570244E-01
+-0.48971225E-01 0.45566838E-01-0.63517235E-01-0.32054949E+00
+ 0.87246031E-01 0.14539485E+00-0.43560812E+00 0.26938108E+00
+ 0.18754629E-01-0.34433404E+00 0.29875723E+00 0.17472742E+00
+ 0.54090742E-01 0.38365376E+00-0.13843028E+00-0.48946375E+00
+ 0.28971550E+01-0.20743754E-01-0.83255611E-01 0.11938328E+01
+ 0.55411711E-01 0.60760695E+00-0.29698908E+00-0.55650949E+00
+ 0.20695293E-01 0.36676876E-01 0.14274941E+00-0.98814443E-01
+-0.46403563E+00-0.19422119E+01 0.36596009E+00 0.68322176E+00
+ 0.45094913E+00 0.16012102E+00-0.40091038E+00-0.46582344E+00
+ 0.89832827E-01 0.94689272E-01-0.34453103E+00 0.32739177E+00
+-0.56781594E-01-0.38054120E-01 0.52844387E+00 0.19522023E+00
+ 0.33836249E-01 0.12656829E+01-0.14137593E-01 0.38812596E+00
+-0.22139823E+00-0.17572556E+00-0.40329311E-01 0.20087887E+00
+ 0.30446243E+00-0.45953188E-01 0.10138659E+01 0.14339803E+01
+-0.45818272E+00-0.24776068E+00 0.95378476E+00 0.11445934E+00
+ 0.66230971E+00 0.79100257E+00-0.76573831E+00-0.34316742E+00
+ 0.80294624E-01-0.70623606E+00 0.29327330E+00 0.63751262E+00
+-0.37546885E+01-0.70940018E-01-0.13639070E+00-0.21821494E+01
+-0.36584163E+00-0.49187639E+00 0.82650185E+00 0.85966331E+00
+-0.19263405E+00-0.79641826E-01-0.47789237E+00 0.15595616E+00
+ 0.34587827E-01-0.33244256E-01-0.54627232E-01-0.24314072E-01
+ 0.39300185E-01 0.12838095E-01-0.27576180E-01 0.22983019E+00
+-0.15771292E+00-0.23307070E-01 0.17552825E-01-0.18896224E-01
+-0.17950874E-01 0.24897996E-01-0.81121093E-02-0.34756999E-01
+ 0.31306081E-01-0.67682348E-01 0.25938660E-01-0.15375219E-01
+ 0.15197173E+00 0.24201533E+00-0.26705752E-02 0.45459899E-02
+ 0.56280023E-02-0.77642538E-02-0.17782798E+00-0.95260762E-01
+ 0.24179123E-01 0.14758726E-01-0.92235729E-01-0.15296949E+00
+ 0.94236672E-01 0.82640037E-01 0.50521767E+00 0.33969387E-01
+-0.62877722E-01 0.20034479E-01 0.95262146E-02 0.32055417E+00
+ 0.20525834E+00-0.76902891E-02-0.64364143E-01 0.19882102E+00
+-0.81640065E-01-0.71830384E-01-0.49157616E+00-0.57283647E-01
+ 0.12709680E-01-0.30256083E-01-0.39767653E-01-0.55746748E-02
+-0.16962911E+00-0.24519250E-01 0.53539060E-01-0.22426639E-01
+-0.52650891E-01 0.57139243E-02-0.12633940E-01 0.43505147E-01
+-0.18997150E-01 0.14223887E+00 0.16691910E+00 0.28885426E-02
+-0.21186968E-01 0.75518645E-01 0.52836422E-01-0.81654236E-01
+ 0.27446862E-01-0.50890606E-01-0.17863950E-01-0.73899115E-02
+ 0.33153400E-01 0.59054721E-01-0.16145012E+00 0.14286152E+00
+ 0.14969439E-01-0.21417528E-01-0.22653613E-01-0.57655737E-01
+-0.41951939E-01 0.21979176E-01 0.39826494E-01 0.30946506E-02
+-0.23654750E-01 0.27493823E-01 0.20307899E-01 0.68600680E-03
+-0.30355731E-01-0.89675814E-01 0.58423135E-01 0.93922287E-01
+ 0.68419144E-01 0.33733767E-01-0.72773839E-02 0.48324339E-01
+-0.24635356E-02-0.89860288E-02-0.79068150E-02 0.14755895E-01
+-0.16021999E-01-0.71704332E-02-0.60977753E-01-0.10361492E+00
+ 0.12631768E-01-0.49197290E-01 0.24660140E-01 0.43001071E-01
+ 0.69695385E-02-0.31781915E-03 0.53595994E-02 0.34497995E-01
+ 0.24565097E-01-0.50819240E-03-0.10135818E-01-0.16772541E-02
+ 0.32331720E-02 0.38050801E-01-0.56574538E-01-0.31323060E-01
+-0.14262537E-01-0.38575940E-01 0.97641703E-02-0.77285576E-02
+-0.27659681E-01 0.20871909E-01-0.15837995E-01 0.18971974E-01
+-0.38362518E-02 0.23249378E-01 0.32181796E-01 0.80461048E-01
+-0.23041502E-01 0.28507439E-01-0.57646193E-01-0.25178518E-01
+ 0.10214640E-01-0.14632375E-02 0.22060374E-01-0.57708239E-02
+ 0.16520452E-01-0.30608475E-01-0.77883643E-02-0.38133394E-01
+ 0.41286569E-01 0.27755771E-01-0.51213089E-01 0.75025320E-01
+ 0.91396663E-02-0.18474469E-02-0.56077321E-02 0.64123259E-02
+ 0.22182658E-01-0.65464103E-02-0.81443517E-02 0.73059131E-02
+ 0.30632045E+01-0.57797851E-02 0.91647813E-02 0.41370955E-02
+-0.19437239E-02 0.24532698E-03 0.60106777E-02-0.21756680E-02
+-0.31438239E-02-0.41220626E+00 0.29579294E-02 0.18636411E-01
+ 0.37512437E-01-0.35412803E-01 0.96220765E-02-0.19383488E-01
+-0.20679396E-02 0.28241726E-02 0.10044123E+01 0.77929936E-01
+-0.67139186E-01-0.42513080E-01-0.39895583E-01-0.43510310E-01
+ 0.13425289E-01 0.35680491E-01 0.17047495E-01 0.43130204E+00
+-0.24383721E+00-0.48306435E-01-0.16724011E+00 0.17723440E+00
+-0.52420892E-01 0.50915804E-01-0.49679428E-02 0.87580746E-02
+-0.12934322E+01 0.17085487E-01 0.12944695E+00-0.12789106E-01
+ 0.11405879E+00 0.17716755E+00-0.93909204E-01-0.11515923E+00
+-0.44955883E-01-0.30758275E-01 0.21726264E+00 0.53814311E-01
+ 0.14063519E+00-0.15107477E+00 0.41386593E-01-0.35365798E-01
+ 0.10928157E-01-0.13283265E-01 0.26758054E+00-0.95864914E-01
+-0.27972437E-01 0.68929851E-01-0.87709561E-01-0.14526750E+00
+ 0.82934819E-01 0.83224915E-01 0.33448048E-01 0.21264717E-01
+-0.10639626E+00-0.32184544E+00 0.10739344E-01-0.15501696E-01
+ 0.23128907E-02-0.49819713E-02 0.26865129E-02 0.11654526E-02
+ 0.12853952E-02 0.34511042E+00-0.64418115E-01-0.11180845E-01
+ 0.79391981E-02 0.22869739E-02-0.77759842E-02 0.74287609E-03
+ 0.91153430E-02-0.58623929E-01-0.22482648E+00-0.12649196E+00
+ 0.18788284E-01-0.15773132E-01-0.67276560E-01-0.85366756E-01
+ 0.54488275E-01 0.43759987E-01 0.15944013E-01 0.91821142E-01
+-0.17644204E+00 0.27534859E-01 0.95351227E-02-0.37926875E-01
+-0.12159072E-02 0.34995351E-01 0.62579088E-01-0.14691392E+00
+ 0.48885843E+00 0.11924573E+01-0.97168460E-01-0.39609086E-01
+-0.14198712E+00 0.43608997E-01 0.92370085E-01-0.18335907E-01
+-0.61437911E+00-0.14346495E+01-0.14602734E-01 0.17535535E+00
+-0.40383213E-02-0.13587080E+00-0.25987262E-01-0.29818421E-01
+-0.44571441E-01 0.85389566E+00 0.11196742E+01-0.79580927E+00
+ 0.13261000E-01-0.15927894E+00 0.72401887E+00 0.55747724E+00
+-0.33719021E+00-0.25143474E+00 0.10345604E+01 0.16206180E+01
+ 0.10684304E+01-0.67587040E-01 0.19474277E+00 0.26491645E+00
+ 0.16167685E-01-0.36782002E+00-0.53570050E+00 0.32261285E+00
+-0.64737231E+00-0.90475298E-01 0.17187940E+00 0.13722499E+00
+ 0.50946969E+00-0.93138762E-01-0.32658824E+00-0.66461273E-01
+ 0.22725639E+01 0.69083470E+00 0.48083431E+00-0.49758098E+00
+-0.84927388E-01 0.52185225E+00 0.19340727E+00 0.32786693E-01
+ 0.78221820E-01-0.20661349E+01-0.26972232E+01 0.25274463E+01
+-0.41764119E+00 0.75514770E+00-0.17189139E+01-0.10526706E+01
+ 0.63819683E+00 0.37426770E+00-0.32621279E+01-0.44142714E+01
+-0.25552752E+01-0.18484338E+00-0.58688587E+00-0.73055243E+00
+-0.17521368E+00 0.10259843E+01 0.11375989E+01-0.73171481E-01
+ 0.42583603E+00-0.10637463E+01-0.14348125E+00-0.74651487E-01
+-0.45749301E+00 0.43486070E-01 0.28321269E+00 0.10276017E+00
+-0.18371630E+01 0.76073569E+00-0.44730103E+00 0.35803327E+00
+ 0.80352314E-01-0.40243587E+00-0.17068449E+00 0.65292539E-02
+-0.63528381E-01 0.13972975E+01 0.22084525E+01-0.22679477E+01
+ 0.48937282E+00-0.68422282E+00 0.11014562E+01 0.64520347E+00
+-0.39747542E+00-0.17840618E+00 0.23154075E+01 0.34323814E+01
+ 0.20233507E+01 0.38661447E+00 0.40558794E+00 0.58963746E+00
+ 0.15238740E+00-0.77325076E+00-0.66182941E+00 0.40216600E-02
+ 0.81703132E-02-0.19011486E-01-0.47476284E-01-0.14503382E+00
+-0.59457687E-02-0.60895034E-02 0.35825928E-02-0.50007328E-02
+-0.10892768E-01-0.62809291E-03-0.17020314E-03 0.16835703E+00
+-0.23484120E-01 0.19963286E-02-0.22885388E-01 0.47483742E-02
+ 0.63064597E-02 0.95548488E-01 0.15581782E+00 0.46200905E-01
+ 0.19114015E+00-0.25267342E+00 0.37239853E-02 0.66554118E-02
+ 0.20674267E-02-0.10625846E-01 0.15886465E-01-0.15695851E-01
+-0.18671377E-01 0.40752470E+00 0.28736994E+00 0.15669392E-01
+-0.44707544E-01 0.49465522E-02 0.24645288E-01-0.16001102E+00
+ 0.39749850E-01 0.11758360E+00 0.14307669E+00-0.21471813E+00
+ 0.79647778E-02 0.41321028E-01-0.32722354E-02 0.57371218E-01
+-0.38416374E+00-0.51390864E-01-0.17938653E+00 0.15849835E+00
+ 0.80724046E-01-0.29265678E-02 0.96612900E-01-0.67667104E-01
+ 0.22370834E-01-0.27011070E+00-0.86970943E+00-0.26902573E-01
+-0.77681959E+00 0.69076121E+00 0.41663114E-01-0.10570973E+00
+ 0.84764361E-01 0.69376291E-02 0.42020214E+00 0.23183244E+00
+ 0.38358140E+00-0.11147493E+01-0.10411042E+01 0.53920228E-01
+ 0.16102199E+00-0.14279890E-01-0.27331126E+00 0.14651980E+00
+-0.24204558E+00-0.19398539E+00-0.30382502E+00 0.62044007E+00
+ 0.47480121E-01-0.15849266E-01-0.10659328E-01-0.80701113E-01
+ 0.72861421E+00-0.92455231E-01 0.29580644E+00-0.54386604E+00
+-0.24819843E+00 0.39313916E-01-0.49355179E-01 0.44585172E-01
+-0.85791960E-01 0.11903773E+00 0.12535146E+01 0.82356326E-01
+ 0.67133921E+00-0.63358366E+00-0.49258057E-01 0.10747476E+00
+-0.10950665E+00 0.64388467E-02-0.83330280E+00-0.29580790E+00
+-0.38530514E+00 0.86506933E+00 0.80623895E+00-0.13946185E+00
+-0.10462884E+00 0.11260598E-01 0.38791931E+00-0.10402253E-01
+ 0.13346081E-01 0.63475878E-02-0.27291005E-01-0.13256154E-02
+ 0.17733403E-01 0.11105449E-01-0.21581961E-03-0.40799612E-03
+-0.13009773E-01-0.28726665E-01-0.28361091E-01 0.41243983E-02
+-0.13775193E-01-0.92879981E-02 0.12643198E-01-0.23260165E-02
+ 0.20666828E-02 0.73535770E-01 0.55688366E-01 0.99641196E-02
+-0.35065774E-01 0.18284770E-01 0.44654209E-01 0.16372960E-01
+-0.12499312E-02 0.70338654E-04 0.43763254E-01-0.15740022E-01
+-0.13505678E-01-0.87119667E-02 0.10261146E-01-0.21680510E-01
+ 0.51671389E-01-0.18428918E-01 0.62357122E-02-0.52719351E-01
+-0.13156223E+00-0.79338402E-01 0.49488008E-01 0.24957510E-01
+-0.92251182E-01-0.94008923E-01 0.44068401E-02 0.33692043E-01
+-0.60246535E-01 0.86852990E-01 0.20347420E-01-0.17174080E-02
+ 0.17042400E-01 0.74888632E-01-0.72979771E-01 0.60993590E-03
+-0.11566933E-02-0.14518532E-01-0.12442473E-01 0.85507222E-02
+ 0.22372473E-02-0.15677895E-02 0.13057685E-01-0.67228526E-02
+ 0.22530334E-01 0.29998149E-02-0.19739617E-01 0.10189696E-01
+-0.83538266E-02 0.88368857E-03-0.46331584E-02 0.45361207E-03
+ 0.11164929E-01-0.60726954E-02 0.22200333E-01 0.76710410E-01
+ 0.17538734E-01 0.20874044E-01-0.30737719E-01-0.15248102E-01
+ 0.13212540E-01 0.14518229E-01 0.43812137E-01 0.32291189E-01
+-0.13844927E-01-0.34613054E-01 0.59420760E-02 0.18336574E-01
+ 0.12362840E-01 0.78165001E-03 0.94650965E-02-0.54954968E-01
+ 0.48140671E-01 0.21998519E-02-0.30175578E-02-0.21670593E-02
+ 0.24198068E-02-0.30340797E-02 0.98152589E-02-0.65381783E-02
+ 0.18372700E-02-0.32104759E-02 0.15909625E-01 0.17480101E-01
+ 0.73182187E-03 0.53907954E-02-0.10893663E-01-0.14815384E-02
+ 0.32584106E-02 0.13903450E-02-0.29880791E-02 0.18037504E-01
+-0.34718488E-02 0.86077778E-02 0.51989104E-02-0.11354344E-01
+ 0.33079886E-02-0.26848447E-02 0.73557561E-02 0.26780984E-03
+ 0.12174977E-02 0.38145680E-02-0.32383250E-02 0.11604379E-01
+ 0.10995209E-01-0.69180368E-02 0.18747009E-02-0.57764836E-02
+-0.31420870E-02 0.27280636E+01-0.75169103E-02 0.63383449E-02
+ 0.95558316E-02-0.28542201E-02-0.33672303E-02 0.22478853E-02
+ 0.12390611E-02-0.25694482E-02-0.34184477E+00 0.26675481E-01
+ 0.36192123E-01 0.17344089E-01-0.27918063E-01 0.46071778E-02
+-0.19322153E-01 0.14321898E-02-0.45877192E-02 0.11131347E+01
+ 0.26039990E-01-0.86778462E-01-0.36485463E-01 0.39370175E-01
+ 0.96002901E-02 0.23496447E-01 0.10478078E-01 0.15071011E-01
+ 0.26609913E+00-0.37570027E+00-0.76007955E-01-0.84936224E-01
+ 0.13073616E+00-0.46946578E-01 0.45213178E-01-0.10088617E-01
+ 0.15226900E-01-0.13583761E+01 0.24481584E+00 0.19391088E+00
+-0.25062395E-01-0.17285113E+00 0.35910089E-01-0.83230503E-01
+-0.49273174E-01-0.39427180E-01-0.86215436E-02 0.33480579E+00
+ 0.59670329E-01 0.72379611E-01-0.10527881E+00 0.40745031E-01
+-0.27480911E-01 0.10371030E-01-0.11401369E-01 0.24424902E+00
+-0.25925013E+00-0.73127270E-01 0.64353183E-01 0.13510229E+00
+-0.47481738E-01 0.65662742E-01 0.38441211E-01 0.27695235E-01
+ 0.26992045E-01-0.27138302E+00-0.25009316E+00 0.13358043E-01
+-0.99321315E-02-0.14139374E-02-0.65408170E-03 0.11991658E-02
+ 0.26755203E-02-0.18171994E-01 0.28280777E+00-0.23699513E+00
+-0.49411627E-02 0.77506038E-02 0.32914598E-02-0.10480203E-01
+ 0.53377454E-02 0.11933497E-01 0.55335838E-01-0.93998998E-01
+-0.40524747E-01-0.86126318E-02 0.32151006E-01-0.25418943E-01
+-0.56042250E-01 0.22723371E-01 0.48075102E-01 0.21400840E-02
+ 0.54945960E-02-0.11576591E+00 0.33427548E-01 0.10076365E-01
+-0.27823556E-01 0.87937471E-02 0.16767824E-01 0.51116429E-01
+-0.27947503E+00 0.93270457E+00 0.78121406E+00-0.63873820E-01
+ 0.13776053E-01-0.41885123E-01-0.14760400E-01 0.49246795E-01
+-0.38276151E-01-0.38543758E+00-0.12443132E+01 0.63409525E+00
+ 0.10198897E+00-0.18275555E-01-0.13154987E+00 0.44033036E-01
+-0.12012166E+00-0.11587386E+00-0.24930301E+00 0.41436785E+00
+-0.42938063E+00 0.14058124E+00-0.51638871E+00 0.26499906E+00
+ 0.30564678E+00-0.35653755E-01-0.30761656E+00 0.96339178E+00
+ 0.17102709E+01 0.64794040E+00-0.14055821E+00 0.10397163E+00
+ 0.27128929E+00-0.49434416E-01-0.15722241E+00-0.39522058E+00
+ 0.71117145E+00-0.79698235E+00 0.35370767E+00 0.88413291E-01
+ 0.65246043E-02 0.25285155E+00 0.90608612E-01-0.12623823E+00
+ 0.72437324E-01 0.16189957E+01 0.92443705E+00-0.42564002E+00
+-0.32307896E+00-0.47557414E-01 0.47201774E+00-0.36377423E-01
+ 0.27063537E+00 0.27386218E+00 0.49492338E+00-0.11964587E+01
+ 0.11970491E+01-0.51224530E+00 0.14279464E+01-0.65490454E+00
+-0.49377796E+00-0.79987206E-01 0.57029313E+00-0.29584346E+01
+-0.44350519E+01-0.13688515E+01 0.90590253E-01-0.28306559E+00
+-0.70212859E+00-0.48325151E-01 0.42926690E+00 0.80071324E+00
+-0.36841384E+00 0.36017466E+00-0.10382642E+01-0.75529769E-01
+-0.65040000E-01-0.29723659E+00-0.82611166E-01 0.96393012E-01
+-0.45457043E-01-0.13651522E+01 0.12593678E+00 0.79192951E-01
+ 0.25124004E+00 0.63250221E-01-0.38624293E+00 0.94562238E-02
+-0.15385661E+00-0.18089309E+00-0.32429627E+00 0.10307864E+01
+-0.13849024E+01 0.49472693E+00-0.10159550E+01 0.43086207E+00
+ 0.25678623E+00 0.93890756E-01-0.33852810E+00 0.21680369E+01
+ 0.36000590E+01 0.99755543E+00 0.11148506E+00 0.17308816E+00
+ 0.52738160E+00 0.95052890E-01-0.32424158E+00-0.48464921E+00
+-0.40881429E-02 0.31389890E-02 0.18125862E-02 0.19379327E-01
+-0.11340187E+00-0.64218352E-02-0.21440715E-02 0.86666498E-03
+-0.48338207E-02-0.12114726E-01-0.90989377E-02 0.15213010E-01
+ 0.11901259E+00 0.44593573E-01 0.35579519E-02-0.16553327E-01
+ 0.31294818E-02 0.35295503E-02 0.96299417E-01 0.16172042E+00
+ 0.36571477E-01 0.13853014E+00-0.11524634E+00 0.13647977E-01
+ 0.85650487E-02 0.21059543E-02-0.88550262E-02 0.78764156E-01
+ 0.23560308E-01-0.20360565E-01 0.20476563E+00 0.23432060E+00
+ 0.29904551E-02-0.21854280E-01 0.12916533E-02 0.17185966E-01
+-0.13958269E+00 0.61252635E-01-0.22732537E-01-0.22977982E+00
+-0.42527966E-01 0.48952647E-01 0.13864973E-01-0.26283702E-01
+ 0.68163075E-01-0.25024179E+00-0.60532674E-01-0.19260155E+00
+ 0.39119691E-01-0.26626396E+00-0.44200186E-01 0.90043500E-01
+-0.57880651E-01 0.20709954E-01-0.24203920E+00-0.77736235E+00
+-0.10913799E-01-0.15193807E+00 0.20603824E+00-0.31180762E-01
+-0.11680545E+00 0.67744017E-01 0.44562139E-01 0.29965173E-01
+ 0.71288981E-01 0.24611737E+00-0.42808515E+00-0.44561577E+00
+ 0.12265429E+00 0.95303804E-01 0.38496863E-01-0.18627241E+00
+ 0.16500773E+00-0.28346860E+00 0.19127062E-01 0.85767560E-01
+ 0.18231672E+00-0.66293105E-01 0.29998733E-01 0.59395704E-01
+-0.82480334E-01 0.46248379E+00-0.12290555E+00 0.23955330E+00
+-0.17114018E+00 0.85420050E-01 0.51798742E-01-0.63089624E-01
+ 0.69193467E-01-0.49095791E-01 0.49044739E-01 0.10698808E+01
+ 0.55030648E-01-0.20411465E-01-0.20164534E+00 0.81138603E-01
+ 0.11107465E+00-0.91995150E-01-0.63594230E-01-0.31178156E+00
+ 0.25681297E-02-0.21641961E+00 0.26155630E+00 0.19081634E+00
+-0.18793817E+00-0.63471727E-01-0.60597725E-01 0.24745049E+00
+-0.20798016E-01 0.15350298E-01 0.10828707E-01-0.18462822E-01
+-0.11293224E-01 0.18085541E-01-0.18076560E-01-0.26808286E-02
+-0.14639653E-02-0.94376355E-02-0.31904358E-01-0.19534955E-01
+ 0.60758656E-02-0.13963651E-01 0.17930444E-01 0.15960965E-01
+-0.58656308E-03-0.17829806E-02 0.50320923E-01 0.85855640E-01
+-0.37249629E-03-0.27981598E-01 0.27195103E-02 0.81393354E-01
+ 0.11739279E-01-0.58815950E-02-0.22160930E-02 0.30873053E-01
+-0.98756980E-02 0.89320733E-03-0.10296550E-01-0.80322934E-03
+-0.16821079E-01 0.74325636E-01-0.80107599E-02 0.32815721E-02
+-0.20960687E-01-0.15283193E+00-0.57994306E-01 0.26183322E-01
+ 0.26019171E-01-0.12097655E+00-0.35915900E-01-0.33830630E-02
+ 0.31820308E-01-0.43779407E-01 0.92425197E-01-0.36082782E-02
+ 0.10040569E-01 0.69529493E-02 0.14791758E-01-0.99151865E-01
+-0.59039001E-02-0.60759163E-02-0.11967236E-01-0.15639639E-01
+ 0.11332542E-01 0.19568345E-03-0.19746975E-02 0.52477429E-02
+-0.68195597E-02 0.18582528E-01 0.10505051E-01-0.10374394E-01
+ 0.77973618E-02-0.14768258E-01 0.33124851E-02-0.50527342E-02
+ 0.13333512E-02 0.80117164E-02-0.10721104E-01 0.16201984E-01
+ 0.51714681E-01 0.20969117E-01 0.20908019E-01-0.21666186E-01
+-0.65546874E-02 0.10858584E-01 0.19092079E-01 0.34162614E-01
+ 0.63728623E-01-0.17780149E-01-0.39414037E-01 0.19805619E-01
+ 0.27769320E-02 0.32051459E-02-0.13837150E-02 0.38510279E-02
+-0.78942724E-01 0.31475380E-01 0.72736945E-02-0.99098906E-02
+ 0.94700296E-03 0.49195858E-02-0.48104613E-02 0.46512815E-02
+-0.50494503E-02 0.46232669E-02-0.99206646E-03 0.11354908E-01
+ 0.14260411E-01-0.41098539E-02 0.63321404E-02-0.46809567E-02
+ 0.28002951E-02 0.52125915E-02 0.95991232E-03 0.42521297E-02
+ 0.14690466E-01 0.30270962E-02 0.53093689E-02 0.74441070E-02
+-0.92850029E-02 0.12141704E-02-0.84077264E-03 0.41119582E-02
+ 0.30829709E-02-0.49859304E-02-0.33042641E-03-0.43395390E-02
+ 0.45590200E-02 0.91798063E-02-0.12648865E-02 0.12946193E-02
+-0.44219219E-02 0.19899376E-02
diff --git a/input/glow_data/iri90/ccir17.asc b/input/glow_data/iri90/ccir17.asc
new file mode 100644
index 0000000..474b0a7
--- /dev/null
+++ b/input/glow_data/iri90/ccir17.asc
@@ -0,0 +1,715 @@
+ 0.47669554E+01-0.72017536E-01 0.13942049E+00 0.19542389E-01
+-0.16752634E-01-0.16510993E-01-0.43158536E-03 0.28941497E-01
+-0.32931969E-01 0.10719537E-02 0.56658965E-02 0.12240363E-01
+-0.93685742E-02-0.99394917E+00-0.35927990E+00 0.43325570E+00
+-0.22593535E+00 0.49836481E+00-0.91735348E-01 0.10013926E+00
+-0.16090275E+00-0.16553175E+00-0.32432500E-01-0.38297892E-01
+-0.82239382E-01-0.42720828E-02 0.12144961E+02 0.79801214E+00
+-0.25601573E+01-0.68445534E-01 0.18775876E+00 0.16825244E+00
+ 0.18251759E+00-0.42203125E+00 0.31813495E-01 0.75639360E-01
+-0.42337403E+00-0.16204225E+00 0.93350336E-01 0.12359418E+02
+ 0.26116188E+01-0.71795487E+00 0.47592411E+01-0.74272795E+01
+ 0.17137471E+01-0.29525971E+01 0.15546530E+01 0.12446737E+01
+ 0.55519021E+00-0.42093495E+00 0.19277966E+01 0.44809118E+00
+-0.81837517E+02-0.65713782E+01 0.11112719E+02 0.46813384E+00
+-0.61830668E+01-0.12024459E+01-0.17724164E+01 0.16484222E+01
+ 0.20026155E+01-0.97772136E-01 0.29807785E+01 0.10582246E+01
+-0.70731813E+00-0.72209411E+01-0.77260118E+01-0.15136260E+02
+-0.22104202E+02 0.39128777E+02-0.83586140E+01 0.14526752E+02
+-0.68457294E+01-0.29666450E+01-0.23397076E+01 0.42374215E+01
+-0.12021458E+02-0.40962782E+01 0.19595665E+03 0.24501345E+02
+-0.20282061E+02-0.20203459E+01 0.23160069E+02 0.31945641E+01
+ 0.48780818E+01-0.33812382E+01-0.74402051E+01-0.85799468E+00
+-0.81885357E+01-0.29702859E+01 0.22015822E+01-0.64242828E+02
+ 0.68489776E+01 0.53867455E+02 0.37935581E+02-0.88741364E+02
+ 0.16450567E+02-0.26521566E+02 0.13563215E+02 0.29131477E+01
+ 0.35748591E+01-0.11355737E+02 0.28946178E+02 0.11574268E+02
+-0.21447914E+03-0.34901211E+02 0.17094313E+02 0.27981231E+01
+-0.29804564E+02-0.32461698E+01-0.52834835E+01 0.37156496E+01
+ 0.90832834E+01 0.20808840E+01 0.93321514E+01 0.36256206E+01
+-0.27270098E+01 0.11643464E+03 0.41456490E+01-0.62626999E+02
+-0.26506950E+02 0.89930573E+02-0.14143736E+02 0.20422012E+02
+-0.11808813E+02-0.10933266E+01-0.21905138E+01 0.12235158E+02
+-0.29777472E+02-0.13072017E+02 0.86740616E+02 0.16090628E+02
+-0.54182315E+01-0.11867726E+01 0.12633715E+02 0.11003165E+01
+ 0.20218921E+01-0.16267680E+01-0.36661091E+01-0.12221850E+01
+-0.37074435E+01-0.15805085E+01 0.11606567E+01-0.55534855E+02
+-0.55097966E+01 0.24141411E+02 0.61227908E+01-0.33446136E+02
+ 0.44106121E+01-0.55466518E+01 0.36874857E+01 0.85909329E-01
+ 0.44831970E+00-0.46812630E+01 0.11031492E+02 0.51603775E+01
+-0.17869551E+00 0.13910967E+01 0.19192034E+01 0.11573006E-01
+-0.15976201E+00-0.94560003E-02 0.15693951E-01 0.52722126E-01
+-0.85014366E-02-0.97233402E-02 0.14873112E-02-0.89176523E-03
+ 0.52959193E-02 0.14833479E+00-0.18277854E+01 0.14350961E+01
+ 0.30985156E-01 0.15200675E+00 0.21492884E-01-0.96385013E-02
+-0.21557527E-01 0.68189330E-01 0.68523240E-03-0.16917478E-02
+-0.20286474E-01 0.11845784E-01-0.40418360E+00 0.81630504E+00
+-0.15781780E+01 0.64889038E+00-0.37128392E+00 0.77008136E-01
+ 0.69604263E-01-0.34736013E+00 0.32418558E+00 0.33138849E-01
+ 0.30220786E+00-0.44437163E-01 0.15520661E+00-0.41341978E+00
+ 0.15498554E+01-0.13387534E+00 0.92664844E+00-0.41743796E-01
+ 0.40571007E+00-0.87894253E-01-0.86675435E-01 0.41113243E+00
+ 0.72546639E-01 0.17126939E+00 0.89121640E-01 0.15699174E+00
+ 0.41381030E+01 0.69626184E+01 0.53660226E+01 0.43502375E+00
+ 0.14352136E+01 0.10049860E+01-0.11870514E+01-0.10593939E+01
+ 0.46142328E+00 0.64426951E-01 0.14919201E+00 0.15421334E+00
+-0.24009842E+00-0.21884575E+01-0.73620200E+01 0.25206361E+01
+ 0.66348322E-01-0.16518012E+01-0.94297117E+00 0.68582207E+00
+ 0.67841366E-01-0.10439430E+01 0.77655651E-01 0.36230335E+00
+ 0.63397574E+00-0.54638183E+00 0.53683534E+01-0.93815575E+01
+ 0.17646755E+02-0.46907468E+01 0.32573049E+01 0.13132706E+00
+-0.36337693E+01 0.69651113E+01-0.32140777E+01 0.10166423E+01
+-0.68326788E+01-0.89097261E+00-0.18256758E+01 0.64158630E+01
+-0.17649351E+02 0.56288085E+01-0.14704763E+02-0.18327432E+01
+-0.44618912E+01 0.16981554E+01 0.28276656E+01-0.73030243E+01
+-0.36753397E+01-0.28609183E+01-0.84641004E+00-0.27507968E+01
+-0.22282154E+02-0.46678989E+02-0.15916713E+02 0.96986282E+00
+-0.12215256E+02-0.11022174E+02 0.93760414E+01 0.61606741E+01
+-0.46595785E+00-0.15873922E+01-0.12295980E+01-0.86355746E+00
+ 0.31697853E+01 0.11682695E+02 0.20335405E+02-0.30051084E+01
+-0.24479063E+01 0.95660801E+01 0.90430307E+01-0.53547616E+01
+-0.27718673E+01 0.75180225E+01 0.14638613E+00-0.37047281E+01
+-0.48737941E+01 0.41346002E+01-0.28579910E+02 0.87348892E+02
+-0.86842323E+02 0.14033395E+02-0.40439680E-01 0.79252595E+00
+ 0.26493780E+02-0.41706631E+02 0.64251800E+01-0.86240749E+01
+ 0.41827084E+02 0.86550608E+01 0.81083364E+01-0.62369034E+02
+ 0.10966636E+03 0.57230368E+01 0.72633636E+02 0.11584758E+02
+ 0.18804466E+02-0.13280591E+02-0.17550068E+02 0.34799728E+02
+ 0.25178934E+02 0.15181874E+02 0.13891364E+01 0.13887790E+02
+ 0.38604603E+02 0.10207992E+03-0.29230875E+02-0.10485903E+02
+ 0.40149216E+02 0.39026348E+02-0.27193357E+02-0.14548298E+02
+-0.53476868E+01 0.69869070E+01 0.42715588E+01 0.28882394E+01
+-0.10630176E+02-0.17743690E+02 0.38365269E+02-0.44383980E+02
+ 0.14417901E+02-0.26099285E+02-0.29533575E+02 0.11660138E+02
+ 0.13445920E+02-0.22865898E+02-0.37443502E+01 0.11432396E+02
+ 0.13121328E+02-0.13328956E+02 0.83295593E+02-0.27551205E+03
+ 0.20297762E+03-0.27005564E+02-0.36729797E+02-0.95780029E+01
+-0.72624352E+02 0.10681412E+03 0.42937274E+01 0.23383394E+02
+-0.10540522E+03-0.25344908E+02-0.16387964E+02 0.19820599E+03
+-0.31570514E+03-0.72060852E+02-0.15624391E+03-0.26451447E+02
+-0.37654526E+02 0.41089275E+02 0.39953007E+02-0.67739883E+02
+-0.63928482E+02-0.35235271E+02 0.25527909E+01-0.27388004E+02
+-0.16694485E+02-0.10372476E+03 0.99343521E+02 0.17906614E+02
+-0.54899918E+02-0.54147346E+02 0.33478874E+02 0.15286818E+02
+ 0.11120189E+02-0.10826112E+02-0.68150578E+01-0.49306626E+01
+ 0.13716017E+02 0.77929759E+01-0.13942567E+03 0.99441032E+02
+-0.28234491E+02 0.29203568E+02 0.39281445E+02-0.71675448E+01
+-0.22050737E+02 0.30663433E+02 0.86184502E+01-0.13269634E+02
+-0.14924605E+02 0.19169945E+02-0.11517070E+03 0.34904071E+03
+-0.23037421E+03 0.29416445E+02 0.71594467E+02 0.19957907E+02
+ 0.86077232E+02-0.12215864E+03-0.19588717E+02-0.26783237E+02
+ 0.11752483E+03 0.30323790E+02 0.14876017E+02-0.23966219E+03
+ 0.41143326E+03 0.11223404E+03 0.15691782E+03 0.27349728E+02
+ 0.35871052E+02-0.54274956E+02-0.36422298E+02 0.56854435E+02
+ 0.68983749E+02 0.36825100E+02-0.73194642E+01 0.21632607E+02
+-0.64012694E+01 0.41037807E+02-0.62049179E+02-0.87074289E+01
+ 0.26557791E+02 0.25656239E+02-0.14669993E+02-0.59758453E+01
+-0.57773538E+01 0.55395350E+01 0.37282646E+01 0.29195380E+01
+-0.61014247E+01 0.11938375E+01 0.93779282E+02-0.58239254E+02
+ 0.16913059E+02-0.99648829E+01-0.18439867E+02 0.14224555E-02
+ 0.11951701E+02-0.14707023E+02-0.52538481E+01 0.50785527E+01
+ 0.62320628E+01-0.98415794E+01 0.59114883E+02-0.15509395E+03
+ 0.99913818E+02-0.13110655E+02-0.38926403E+02-0.11956065E+02
+-0.37092178E+02 0.51071323E+02 0.12083856E+02 0.11144695E+02
+-0.47916153E+02-0.12860417E+02-0.49043174E+01 0.97261864E+02
+-0.19500647E+03-0.51127705E+02-0.60541309E+02-0.11995492E+02
+-0.12932009E+02 0.25311089E+02 0.10825487E+02-0.16840401E+02
+-0.26814421E+02-0.14202532E+02 0.40943551E+01-0.52332826E+01
+ 0.59779093E-01 0.60269125E-01 0.43412182E-02-0.86104780E+00
+-0.28442442E+00 0.38802601E-01-0.24069672E-01 0.61457353E-02
+ 0.26447732E-01-0.10484729E-01-0.16964691E-01-0.17687945E-01
+ 0.11072901E-01 0.88018358E-01-0.24598600E-01-0.90877013E-03
+ 0.27645341E+00-0.60979271E+00-0.11868040E-01-0.52261841E-02
+-0.38976759E-01 0.42610688E-03 0.50539705E-02-0.27756458E-02
+-0.37858905E-02 0.15917744E-01 0.24479559E-01 0.64580876E+00
+ 0.88117726E-01-0.19167215E+00-0.63693744E+00 0.20008095E+00
+ 0.13274206E+00 0.14893281E+00 0.11748412E+00 0.23986910E+00
+-0.11419377E+00 0.55741396E-01 0.13194546E+00 0.31363299E+00
+ 0.28544968E+00 0.47836196E+00 0.13769221E+01-0.44855464E+00
+ 0.14112352E+00 0.25663987E+00 0.10438135E+00-0.10474421E+00
+ 0.16550185E-01-0.23519803E-01 0.12023649E+00 0.87688930E-01
+ 0.15380675E+01 0.14324548E+01 0.13127990E+01 0.88563509E+01
+ 0.12689075E+01-0.85907197E+00-0.37547376E-01-0.15601891E+00
+ 0.33903081E-01 0.14706784E+00 0.37223580E+00 0.14558417E+00
+-0.20162193E+00 0.20672157E+01 0.85868543E+00 0.20100529E+01
+-0.15593593E+01 0.54521675E+01 0.74721974E+00 0.24748008E+00
+ 0.22941186E+00 0.41224465E+00 0.10947402E+00 0.19377372E+00
+ 0.53652622E-01-0.26892835E+00-0.85527790E+00-0.59873829E+01
+ 0.82442212E+00 0.72160811E+01-0.55486888E+00-0.11447293E+01
+-0.21035647E+01-0.41455364E+00-0.13146853E+01-0.19809873E+01
+ 0.17242732E+01-0.57977825E+00-0.89161646E+00-0.37543094E+01
+-0.52248607E+01-0.48182120E+01-0.46627312E+01 0.96200695E+01
+ 0.14079694E+01-0.24980745E+01-0.34461054E+00 0.31529835E+00
+-0.14311078E+01 0.84543675E+00-0.79500079E+00 0.87758198E-01
+-0.14999284E+02-0.91342783E+01-0.57922735E+01-0.19058977E+02
+ 0.25543198E+00 0.45159869E+01 0.29069436E+01 0.59061384E+00
+-0.35207078E+00-0.85799408E+00-0.22677574E+01-0.35971817E+00
+ 0.99695718E+00-0.13004522E+02-0.14058595E+01-0.92240829E+01
+ 0.49196196E+01-0.47094283E+01-0.47235041E+01-0.11311457E+01
+-0.21206169E+01-0.10868499E+01-0.12165101E+01-0.93641424E+00
+-0.54299787E-01 0.10610462E+01 0.39302894E+00 0.14020730E+02
+-0.63046670E+01-0.23180601E+02 0.46417074E+01 0.19860531E+01
+ 0.61314015E+01 0.10478191E+01 0.39981802E+01 0.44316478E+01
+-0.51703086E+01 0.15147123E+01 0.18553241E+01 0.10761917E+02
+ 0.15200618E+02 0.10380513E+02 0.55815134E+01-0.28787245E+02
+-0.61082196E+01 0.76987019E+01 0.63724285E+00-0.10391539E+00
+ 0.52535143E+01-0.30186067E+01 0.21368234E+01-0.69694448E+00
+ 0.33612606E+02 0.17597853E+02 0.12092536E+02 0.56274945E+00
+-0.44205179E+01-0.89462976E+01-0.83171101E+01-0.39124992E+00
+ 0.78949368E+00 0.13598933E+01 0.44765353E+01 0.34951830E+00
+-0.16460216E+01 0.24521830E+02-0.49467854E+01 0.14729335E+02
+-0.94777203E+01-0.24623814E+02 0.99676733E+01 0.11067480E+01
+ 0.53398237E+01 0.20645846E+00 0.34774735E+01 0.12603258E+01
+-0.11288598E+00-0.20366173E+01 0.48746821E+00-0.93833942E+01
+ 0.79512820E+01 0.16153667E+02-0.65026054E+01-0.10142500E+01
+-0.47579007E+01-0.93598449E+00-0.33259747E+01-0.30019803E+01
+ 0.39455864E+01-0.10857137E+01-0.10412169E+01-0.85157776E+01
+-0.12449425E+02-0.60487118E+01 0.28868362E+00 0.19360544E+02
+ 0.52751713E+01-0.72028527E+01-0.67789567E+00-0.26337564E+00
+-0.44146733E+01 0.24460630E+01-0.18024994E+01 0.45497325E+00
+-0.22045063E+02-0.11040361E+02-0.89635525E+01 0.14214537E+02
+ 0.54145708E+01 0.58426008E+01 0.63665800E+01-0.24814361E+00
+-0.69569623E+00-0.63997215E+00-0.28150806E+01 0.38981918E-01
+ 0.74708533E+00-0.14405212E+02 0.67465463E+01-0.91972771E+01
+ 0.44302187E+01 0.29674311E+02-0.69829130E+01 0.78397954E+00
+-0.36686268E+01 0.63624251E+00-0.25999174E+01-0.36813948E+00
+ 0.81634127E-01 0.15097922E+01 0.19783931E-01 0.11059830E+00
+-0.11023654E+00-0.75270355E-01 0.54907449E-01-0.38886008E+00
+-0.41173506E+00-0.22116266E-01 0.64385377E-01 0.88824835E-02
+-0.96755140E-02-0.36646105E-01-0.59598195E-02 0.64539403E-01
+-0.11785930E+00-0.12389943E+00-0.48941523E-01-0.10718920E+00
+ 0.40435502E+00-0.40478399E+00-0.61611693E-01 0.38958149E-03
+ 0.99619920E-03-0.42985836E-02 0.18320024E-02 0.19367568E-01
+-0.32544461E+00 0.51384830E+00-0.25873068E+00-0.29849005E+00
+-0.10000073E+00-0.15430472E-01 0.58037211E-03 0.10718274E+00
+-0.16415427E-01-0.15686333E-01 0.29702716E-01-0.29885124E-01
+-0.15864320E-01-0.14868063E+00-0.11868401E+00-0.14044303E+00
+-0.17538846E+00-0.13476025E+00 0.57173114E-01 0.18623371E+00
+-0.32387108E-01-0.34499161E-01-0.32388661E-01-0.80245815E-01
+ 0.56267913E-01 0.15138485E-01-0.47861069E-01-0.77162355E+00
+ 0.16360250E+01 0.50554228E+00-0.63924365E-01-0.10863320E+00
+-0.60092205E+00 0.49819637E-01-0.82271285E-02 0.98940387E-01
+-0.35185188E-01 0.12983482E+00-0.19542508E+00-0.76338345E+00
+ 0.19630162E+01-0.10691432E+00-0.60503505E-01 0.13289427E+01
+ 0.43475190E+00 0.11329929E+00-0.10821795E-01-0.62644839E-01
+ 0.12987889E+00 0.13167375E+00 0.77864654E-01-0.24797525E+00
+ 0.24173480E+00-0.10378166E+01 0.63027930E+00 0.74880987E+00
+ 0.33605361E+00 0.35392138E+00 0.33974937E+00-0.25777468E+00
+ 0.61715249E-03 0.44684775E-01-0.11695752E+00 0.11965482E+00
+ 0.14105978E-01-0.24457288E+00 0.41991296E+00 0.31134152E+00
+ 0.22164924E+00 0.72564882E+00-0.43179068E+00-0.61885383E-01
+ 0.49443066E-01 0.54404356E-01 0.31738911E-01 0.19574244E+00
+ 0.27847867E-02-0.16355213E-01 0.63239706E+00 0.16469691E+01
+-0.27302732E+01-0.85581708E+00 0.37954584E+00 0.11399052E+01
+ 0.17348310E+01 0.94211541E-01-0.21935873E+00-0.23572168E+00
+ 0.16577183E+00-0.19861729E+00 0.35016689E+00 0.68477434E+00
+-0.23878093E+01 0.44941813E+00-0.84276356E-01-0.20325942E+01
+-0.13022912E+01 0.10930405E+01 0.38093248E+00 0.19024202E+00
+-0.33430806E+00-0.23511814E+00-0.28587615E+00 0.32850736E+00
+ 0.67689978E-01-0.20780521E-01-0.29032283E-01-0.13323180E-01
+ 0.28254269E-01 0.84414100E-02-0.15326820E-01 0.25174028E+00
+-0.40093143E-01 0.27145154E-02-0.66505717E-02-0.13159065E-01
+-0.18460391E-01 0.69634892E-01-0.45518778E-01 0.13114978E-03
+-0.10398069E-01-0.32790072E-01-0.10675941E-01-0.56565069E-02
+ 0.37150957E-01 0.23021942E+00 0.76370039E-02-0.43002558E-02
+ 0.90373280E-02-0.44722832E-02-0.81032980E-02-0.43692399E-01
+-0.10039860E-01 0.17762598E-01-0.13719068E+00-0.41710932E-01
+ 0.31929690E-01 0.24983566E+00 0.21474642E+00-0.19966746E-02
+ 0.15482435E-02-0.80155046E-03 0.30076524E-01 0.23039341E+00
+ 0.19240947E+00-0.78822196E-01-0.48037753E-01 0.23808508E+00
+-0.85829999E-02-0.15761973E-01-0.27143875E+00 0.14898765E+00
+ 0.10034035E-01-0.17262492E-01 0.28459651E-02-0.29851828E-01
+-0.92098333E-01-0.30134434E-01-0.82727504E-03-0.17205035E-01
+-0.25473502E-01 0.82982341E-02-0.11164435E-01 0.28170865E-01
+-0.21050289E-01 0.71516864E-01 0.11752138E+00-0.58911447E-02
+-0.18760277E-01 0.83058653E-02 0.17495196E-01-0.28589493E-01
+ 0.34168422E-01-0.72476611E-01-0.29382722E-02 0.76811700E-02
+ 0.45096446E-01 0.30133612E-02-0.14231350E+00 0.89629523E-01
+ 0.86848531E-02-0.99676484E-02-0.47373831E-01-0.30634219E-01
+ 0.16800816E-02 0.18063534E-01-0.41148610E-01 0.12769086E-01
+-0.67251893E-02 0.29845899E-01 0.57053417E-02-0.11818508E-02
+-0.55645364E-02-0.10559253E+00 0.37416615E-01 0.55516444E-01
+ 0.15834859E-01 0.20975683E-01 0.30448465E-01 0.37793189E-01
+ 0.77342098E-02-0.49891463E-02-0.35565118E-02-0.14904852E-01
+-0.27537171E-01-0.54248427E-02-0.32515921E-01-0.11524391E+00
+-0.27006501E-01-0.25322475E-01 0.14191590E-01 0.12788468E-01
+ 0.57791113E-02-0.54317171E-03-0.15069270E-02 0.22591196E-01
+-0.38332655E-02-0.25445297E-01 0.13055151E-01 0.71395235E-02
+ 0.97428244E-02 0.17405979E-01-0.11919928E-01-0.45696460E-02
+-0.54349615E-02-0.26084450E-02-0.11787944E-01-0.67170402E-02
+-0.12048977E-01 0.12912758E-01-0.51113814E-02 0.12004339E-02
+ 0.12741836E-01 0.13009419E-01 0.38855115E-02 0.78748085E-01
+-0.10889452E+00-0.12783662E-01-0.66305078E-02-0.20848872E-01
+ 0.30470356E-01-0.30254409E-01-0.69153430E-02-0.26659120E-01
+ 0.13413356E-01 0.29060601E-02-0.56839683E-02-0.37495904E-01
+ 0.66720471E-02-0.68216706E-02 0.11667379E-01 0.37586469E-01
+ 0.30343615E-01-0.39814594E-02-0.21826498E-01 0.24977464E-01
+ 0.14075888E-01-0.11293185E-01-0.50641843E-02 0.14215916E-01
+ 0.80071468E+01 0.23540020E-01 0.14707807E+00 0.61012927E-01
+-0.19648800E-01-0.79102488E-02-0.12570567E-01 0.60084999E-01
+-0.31929113E-01 0.15448347E-01-0.50893174E-02 0.16869301E-01
+-0.57898671E-02-0.21232369E+01-0.46706444E+00-0.10000438E+00
+-0.10564299E+00 0.28760383E+00 0.85470997E-01 0.23103155E+00
+ 0.48029888E-02-0.14235696E+00 0.14473069E+00 0.36030032E-01
+-0.35992347E-01-0.17253455E-01 0.16923178E+02 0.12374104E+01
+-0.25139482E+01 0.29843819E+00 0.55985516E+00 0.69062692E+00
+ 0.48571926E+00-0.87643987E+00 0.75207931E+00 0.19640107E-01
+-0.28679374E+00-0.58915937E+00-0.28327841E+00 0.14983639E+02
+ 0.24837055E+01 0.10404690E+02 0.21364896E+01-0.29136975E+01
+-0.39514872E+00-0.35909803E+01 0.20056395E+00 0.15654199E+01
+-0.34472339E+01-0.59020323E+00 0.87846285E+00 0.14721909E+01
+-0.94911194E+02-0.13008690E+02 0.14315582E+02-0.42997451E+01
+-0.10056245E+02-0.40604191E+01-0.27439721E+01 0.63601122E+01
+-0.44736714E+01-0.78184110E+00 0.28047204E+01 0.52159157E+01
+ 0.21123674E+01 0.30943274E+01-0.11885342E+02-0.64855026E+02
+-0.10654855E+02 0.19201283E+02-0.13944058E+01 0.16869150E+02
+-0.27809067E+01-0.75264554E+01 0.20107191E+02 0.25993383E+01
+-0.68293734E+01-0.10687795E+02 0.16992487E+03 0.46145271E+02
+-0.36491428E+02 0.13116936E+02 0.34286945E+02 0.78730626E+01
+ 0.54953218E+01-0.18412989E+02 0.11174599E+02 0.26052146E+01
+-0.87555580E+01-0.14695855E+02-0.49863572E+01-0.86712395E+02
+ 0.28112967E+02 0.14459599E+03 0.19851633E+02-0.51848770E+02
+ 0.83207064E+01-0.31751226E+02 0.81608305E+01 0.16190430E+02
+-0.46680210E+02-0.44772248E+01 0.18257042E+02 0.26758467E+02
+-0.14461774E+03-0.62235676E+02 0.42808392E+02-0.15741500E+02
+-0.42179947E+02-0.63173599E+01-0.47827044E+01 0.21872601E+02
+-0.12338368E+02-0.28421400E+01 0.10545931E+02 0.16512472E+02
+ 0.45623174E+01 0.12349963E+03-0.25484196E+02-0.13910371E+03
+-0.15541058E+02 0.57951984E+02-0.11481497E+02 0.25678280E+02
+-0.90002031E+01-0.15541973E+02 0.46808899E+02 0.34660118E+01
+-0.19979811E+02-0.27687761E+02 0.49242916E+02 0.27691017E+02
+-0.18267742E+02 0.66256733E+01 0.17394239E+02 0.18268524E+01
+ 0.15869142E+01-0.90256739E+01 0.49349022E+01 0.95967901E+00
+-0.43152213E+01-0.64874339E+01-0.13755007E+01-0.52184998E+02
+ 0.73005271E+01 0.49102627E+02 0.43267603E+01-0.22683687E+02
+ 0.48243718E+01-0.74036064E+01 0.34105940E+01 0.54719052E+01
+-0.16946058E+02-0.10452632E+01 0.77386184E+01 0.10162491E+02
+-0.28234264E+00 0.15047417E+01 0.16470916E+01-0.48499373E-02
+-0.99328689E-01-0.19733939E-01-0.57898001E-02 0.54610927E-01
+ 0.14524219E-02 0.27774854E-02 0.19980098E-03 0.76767760E-02
+-0.83661648E-02 0.36049801E+00-0.15487713E+01 0.14352394E+01
+-0.28597059E-01 0.10506235E+00-0.50372839E-01-0.33528510E-01
+-0.47886573E-01 0.57634916E-01-0.36588252E-01 0.12803383E-01
+-0.29328017E-01 0.12255316E-01-0.45544675E+00 0.12475321E+01
+-0.27271132E+01 0.53092772E+00-0.37300754E-01-0.15156125E+00
+-0.12215277E+00-0.25236827E+00 0.13521501E+00 0.36329892E+00
+ 0.22915353E+00-0.17122564E+00 0.20348294E+00 0.99758154E+00
+ 0.18983068E+01-0.12141097E+00 0.98354695E-02 0.15336272E+00
+ 0.17870606E+00-0.72830565E-01 0.17440289E+00 0.29191229E+00
+-0.11306345E-01 0.49621547E-02-0.26877809E-01-0.59098396E-02
+ 0.66613059E+01 0.10923632E+02-0.65970397E+00 0.15522877E+01
+-0.40954612E-01 0.10254952E+01-0.66243565E+00-0.82247669E+00
+ 0.49483865E+00-0.44243667E+00-0.27341887E+00-0.15122773E+00
+-0.44921702E-02-0.38886521E+01 0.54575652E+00 0.10046308E+02
+ 0.23151209E+01-0.10080287E+01 0.23143321E+00 0.23112388E+01
+ 0.82673109E+00-0.13583063E+01 0.51237226E+00-0.59203404E+00
+ 0.10641146E+01-0.16020350E-01 0.38286211E+01-0.29793097E+02
+ 0.47293575E+02-0.99862328E+01-0.12771469E+01 0.57090254E+01
+ 0.90686393E+00 0.46967688E+01-0.48249456E+00-0.78903108E+01
+-0.37669451E+01 0.33611767E+01-0.28549347E+01-0.42156825E+01
+-0.18497114E+02 0.43299971E+01 0.12616365E+01-0.74922557E+01
+ 0.18494391E+01 0.33060460E+01-0.33028397E+00-0.44510746E+01
+-0.27160680E+00 0.20754679E+00 0.16191085E+00 0.37127814E+00
+-0.39047291E+02-0.20917377E+02 0.41411633E+02-0.88546057E+01
+ 0.36347630E+01-0.46501169E+01 0.43165107E+01 0.63377647E+01
+-0.79014248E+00 0.20996790E+01 0.26977179E+01 0.49547371E-01
+-0.80331719E+00 0.24417505E+02-0.50597050E+02-0.12887446E+02
+-0.25855635E+02 0.15060377E+02 0.16648369E+01-0.19734503E+02
+-0.85645714E+01 0.11742890E+02 0.24708913E+00 0.30122676E+01
+-0.88011379E+01-0.45888126E-01-0.12037977E+02 0.18195720E+03
+-0.30125452E+03 0.56718910E+02 0.25235325E+02-0.37847782E+02
+-0.31361133E+00-0.27802044E+02-0.43944149E+01 0.44352974E+02
+ 0.19799467E+02-0.20778854E+02 0.12326245E+02-0.41416504E+02
+ 0.12508257E+03-0.62992988E+01-0.16054337E+02 0.42519859E+02
+-0.22424593E+02-0.25135471E+02 0.28161285E+01 0.19682430E+02
+ 0.15035913E+01-0.35815947E+01 0.37708406E+01-0.11817546E+01
+ 0.89285217E+02-0.69640999E+02-0.17817468E+03 0.21492142E+02
+-0.17860403E+02 0.67075515E+01-0.15617906E+02-0.20148720E+02
+-0.40488234E+01-0.17107679E+01-0.83144178E+01 0.30443573E+01
+ 0.37432699E+01-0.67462074E+02 0.21829535E+03-0.10266725E+03
+ 0.90444672E+02-0.59647964E+02-0.10293538E+02 0.61297581E+02
+ 0.29657206E+02-0.38800804E+02-0.93168879E+01-0.34729412E+01
+ 0.26925245E+02-0.22017689E+01 0.41186665E+02-0.43663583E+03
+ 0.76321771E+03-0.13260320E+03-0.96994392E+02 0.98809723E+02
+-0.51419187E+01 0.72419868E+02 0.21797657E+02-0.10391363E+03
+-0.44690708E+02 0.50902679E+02-0.22424061E+02 0.19840215E+03
+-0.35004047E+03-0.27337153E+01 0.44635445E+02-0.85559502E+02
+ 0.67447411E+02 0.67286049E+02-0.17907366E+02-0.35397381E+02
+ 0.19058682E+01 0.13237237E+02-0.18305573E+02 0.25211602E+00
+-0.86747185E+02 0.17347545E+03 0.27344232E+03-0.22800623E+02
+ 0.27914158E+02-0.33933644E+01 0.26151587E+02 0.27388149E+02
+ 0.97586889E+01-0.34674821E+01 0.91410255E+01-0.73688040E+01
+-0.56035948E+01 0.89096458E+02-0.34042059E+03 0.24030518E+03
+-0.12773231E+03 0.86151863E+02 0.17995501E+02-0.78346107E+02
+-0.41468628E+02 0.53289478E+02 0.18957485E+02-0.17327203E+01
+-0.35620258E+02 0.71820140E+01-0.68477409E+02 0.45522491E+03
+-0.86998053E+03 0.13320493E+03 0.13828078E+03-0.11296691E+03
+ 0.83289499E+01-0.84006424E+02-0.30078983E+02 0.10894444E+03
+ 0.46073669E+02-0.53107388E+02 0.18520054E+02-0.27914142E+03
+ 0.44985599E+03-0.11727840E+01-0.40542358E+02 0.65773628E+02
+-0.78929565E+02-0.74833633E+02 0.33005203E+02 0.26883795E+02
+-0.96850271E+01-0.17542385E+02 0.28257006E+02 0.11094317E+01
+ 0.28169247E+02-0.94577866E+02-0.13985548E+03 0.92719965E+01
+-0.13244056E+02 0.46153149E+00-0.14713109E+02-0.13108560E+02
+-0.55679369E+01 0.39470751E+01-0.31173911E+01 0.46963744E+01
+ 0.28085086E+01-0.41424831E+02 0.17922871E+03-0.13824788E+03
+ 0.62719311E+02-0.40361134E+02-0.99571943E+01 0.35196617E+02
+ 0.20173746E+02-0.25507154E+02-0.10779361E+02 0.30331249E+01
+ 0.17037985E+02-0.52984161E+01 0.38881653E+02-0.17535535E+03
+ 0.36977036E+03-0.48800972E+02-0.67534874E+02 0.46994465E+02
+-0.36084449E+01 0.35268539E+02 0.12913198E+02-0.42146160E+02
+-0.17815418E+02 0.19775288E+02-0.58432074E+01 0.12580310E+03
+-0.21518388E+03 0.61443510E+01 0.98084249E+01-0.15733668E+02
+ 0.32032814E+02 0.29372606E+02-0.18224518E+02-0.68510780E+01
+ 0.68954396E+01 0.76545310E+01-0.14303968E+02-0.45466852E+00
+ 0.14912950E+00-0.37197623E-01 0.86089209E-01-0.99689066E+00
+ 0.34358004E+00 0.41757068E-02 0.11042265E-01-0.31665795E-01
+ 0.28434340E-01-0.40736802E-01 0.25358051E-01-0.47866986E-02
+-0.79530235E-02 0.48351955E-01-0.13903272E+00 0.35033248E-01
+-0.24141113E+00-0.73474455E+00-0.21165458E-02 0.14233136E-01
+-0.48750002E-01-0.17404562E-01-0.13931587E-01 0.45621013E-02
+-0.16081575E-01 0.18449978E-02 0.15439525E+00 0.10494125E+01
+ 0.53804463E+00 0.16673172E+01-0.14299715E+01 0.68726435E-01
+-0.16137257E+00 0.13222758E+00 0.19399203E-01-0.11860881E-01
+-0.47297385E-01 0.52892003E-01 0.16677070E-01 0.36067051E+00
+ 0.11057934E+01 0.61169720E+00 0.19141263E+01 0.20964134E+01
+ 0.23646539E+00 0.27404869E+00 0.19712859E+00-0.11474232E+00
+ 0.12215359E+00-0.76190814E-01 0.15382162E+00 0.43123838E-01
+ 0.10588363E+01 0.11870986E+01 0.88391542E+00 0.23195529E+01
+ 0.29367788E+01 0.42034310E+00-0.13270929E+01-0.13814926E+00
+ 0.26789281E+00-0.76729983E-01-0.62709659E+00-0.13922800E+00
+-0.22054443E+00 0.26687746E+01 0.14925655E+01-0.10293322E+01
+-0.60973663E+01 0.13214234E-01-0.80502622E-01-0.20025112E+00
+ 0.51012868E+00 0.36622775E+00 0.50678074E+00-0.61252302E+00
+ 0.36497283E+00 0.66087967E+00-0.18513010E+01-0.84644527E+01
+-0.22534673E+01 0.16729214E+01 0.59963422E+01 0.83362734E+00
+-0.32418764E+00-0.12634010E+01-0.21761373E+00-0.32083201E+00
+ 0.10582196E+01-0.40086418E-01 0.34409949E+00-0.56983318E+01
+-0.85301552E+01-0.62716293E+01-0.10336222E+02-0.12337216E+01
+ 0.14525561E+01-0.27670050E+01-0.61272615E+00 0.89260936E-02
+-0.17194246E+01 0.48456728E+00-0.75325119E+00-0.12380633E+00
+-0.10879601E+02 0.18890285E+00-0.12624624E+02 0.85096445E+01
+-0.14647897E+02-0.11804613E+01 0.11204756E+02 0.11301163E+01
+-0.65179712E+00 0.20850821E+01 0.33798697E+01 0.68264633E+00
+ 0.13606979E+01-0.41109333E+01-0.76429524E+01 0.31357608E+01
+ 0.33289852E+02 0.18736217E+02 0.52604097E+00 0.32423337E+01
+-0.39312522E+01-0.42085305E+00-0.20370185E+01 0.46622753E+01
+-0.20514877E+01-0.67121148E+01 0.33330195E+01 0.19760462E+02
+ 0.13707290E+01-0.15091409E+02-0.44948006E+01-0.37715893E+01
+ 0.19507859E+01 0.41595783E+01 0.84614331E+00 0.17263756E+01
+-0.36580293E+01-0.27227202E+00-0.15076882E+01 0.17205370E+02
+ 0.15522379E+02 0.18444885E+02 0.14610297E+02-0.95373640E+01
+-0.77903051E+01 0.75731368E+01 0.10421705E+01 0.14117401E+01
+ 0.51428719E+01-0.15598035E+01 0.11522195E+01 0.33083048E+00
+ 0.23841166E+02-0.88205357E+01 0.33722401E+02-0.35630077E+02
+ 0.22245089E+02 0.98581381E-01-0.23630219E+02-0.24590368E+01
+-0.60612363E+00-0.56737971E+01-0.57873211E+01-0.94312793E+00
+-0.20955913E+01-0.14294488E+02 0.16591463E+02-0.36211152E+01
+-0.58140308E+02-0.52787479E+02-0.87697142E+00-0.86255169E+01
+ 0.79262271E+01-0.16103133E+01 0.19649650E+01-0.10198181E+02
+ 0.28549724E+01 0.16818821E+02-0.28521106E+01-0.13874240E+02
+ 0.60465282E+00 0.88589296E+01-0.56679926E+01 0.32743344E+01
+-0.16497432E+01-0.34437387E+01-0.67558551E+00-0.17088107E+01
+ 0.29519806E+01 0.42225948E+00 0.13573281E+01-0.15705806E+02
+-0.77159276E+01-0.15102554E+02-0.16817579E+01 0.56376777E+01
+ 0.67993746E+01-0.60265536E+01-0.10358450E+01-0.14570483E+01
+-0.36746924E+01 0.12936862E+01-0.37998509E+00-0.32503825E+00
+-0.14731427E+02 0.91323881E+01-0.23522758E+02 0.31281187E+02
+-0.66921196E+01 0.88023257E+00 0.14684581E+02 0.14542351E+01
+ 0.11787513E+01 0.40096455E+01 0.31103556E+01 0.42140290E+00
+ 0.75577301E+00 0.22154350E+02-0.13379253E+02 0.43898410E+00
+ 0.28501005E+02 0.40360855E+02 0.30411851E+00 0.64322257E+01
+-0.44322767E+01 0.17975950E+01-0.39312956E+00 0.68860784E+01
+-0.11438121E+01-0.11947880E+02 0.27685111E-01-0.40053260E-01
+-0.17839098E-01-0.57812698E-01 0.70409186E-01-0.50432491E+00
+-0.61618298E+00-0.51988091E-01 0.36189247E-01-0.57952993E-01
+ 0.35770409E-01-0.30052310E-01-0.15522750E-01-0.99234711E-02
+-0.25411305E+00-0.98816864E-01 0.27671959E-01-0.90068385E-01
+ 0.64124870E+00-0.49534273E+00-0.23844037E-01 0.90174731E-02
+ 0.16274264E-01 0.13823560E-02-0.16471019E-01 0.77255028E-02
+-0.29735389E+00 0.89244604E+00 0.47042780E-01-0.19908190E+00
+-0.20957834E+00 0.48498312E+00 0.34726390E+00 0.14254756E+00
+-0.51067263E-01-0.74147590E-01 0.43129999E-01-0.94624739E-02
+ 0.69399804E-01-0.27613023E+00 0.39687451E-01-0.22952503E+00
+-0.17188592E+00-0.37711376E+00-0.37344018E+00 0.44496518E+00
+ 0.49825110E-01 0.50268643E-01 0.10268872E-01-0.15096737E+00
+-0.18276261E-02 0.57382856E-01 0.55527079E+00 0.49626112E+00
+ 0.41093677E+00-0.36513752E+00-0.92810732E+00 0.45406213E+00
+ 0.39471567E+00-0.30232587E+00 0.54300815E+00 0.59649146E+00
+-0.42978968E-01 0.16226175E+00-0.37429817E-01-0.20489936E+00
+ 0.37278998E+01-0.70701146E+00-0.19198212E+00 0.71857435E+00
+-0.99595582E+00 0.54645717E+00-0.43600601E+00-0.46274224E+00
+ 0.24707445E-02 0.20912142E+00 0.10534024E+00-0.15043882E-01
+-0.54460263E+00-0.15500151E+01 0.16229698E-01 0.42883778E+00
+ 0.12063434E+00-0.49502440E-01-0.30448535E+00-0.20664476E+00
+ 0.19829325E+00 0.26275936E+00-0.19895925E+00 0.21524690E+00
+-0.15297687E+00 0.29179329E+00 0.17002033E+00 0.72335619E+00
+ 0.31211472E+00 0.96879709E+00 0.17340130E+00 0.76188266E-01
+-0.18247452E+00-0.35377108E-01-0.23166701E-01 0.31477252E+00
+ 0.19326968E+00-0.67122035E-01 0.96205816E-01 0.37230721E+00
+-0.99004132E+00 0.10045286E+01 0.21211245E+01-0.90331696E-01
+ 0.57627037E-01 0.65079659E+00-0.12693567E+01-0.96175170E+00
+ 0.58023080E-01-0.35038722E+00 0.14534500E+00-0.79609752E-01
+-0.49538903E+01 0.14437783E+01 0.20078922E-01-0.11813406E+01
+ 0.14132198E+01-0.34010509E+00 0.10204923E+01 0.75110745E+00
+-0.16915599E+00-0.33175179E+00-0.33036423E+00-0.20429282E-01
+-0.10897010E-01-0.49416184E-01-0.44178925E-01-0.84936572E-02
+ 0.51277783E-01 0.19495703E-01-0.32920949E-01 0.21518527E+00
+-0.17939478E+00-0.32887351E-01 0.33539165E-01-0.19388679E-01
+-0.20020414E-01 0.20877963E-01 0.27526090E-01-0.37257954E-01
+ 0.32353066E-01-0.61392702E-01 0.98865917E-02-0.21773189E-01
+ 0.17957857E+00 0.23242453E+00 0.58700140E-02 0.39826785E-02
+ 0.25550261E-01 0.60049252E-03-0.15558755E+00-0.54346319E-01
+-0.56051023E-01 0.19358875E-01-0.15182693E+00-0.10598335E+00
+ 0.37775725E-01 0.16895783E+00 0.51459491E+00-0.84568355E-02
+-0.67650639E-01 0.27996898E-02-0.11083936E-01 0.30534738E+00
+ 0.23073228E+00-0.16615911E+00-0.73981099E-01 0.17580722E+00
+-0.86328842E-01-0.72317007E-02-0.50074303E+00-0.23022939E-02
+ 0.22110448E-02-0.61923102E-01-0.39555937E-01 0.32912306E-01
+-0.12910460E+00-0.22992328E-01-0.24645030E-01-0.16976858E-01
+-0.48633263E-01 0.24791237E-01-0.44906000E-02 0.44549942E-01
+-0.13423373E-01 0.14574012E+00 0.18071000E+00 0.22294498E-02
+-0.21888547E-01 0.82140617E-01 0.60347050E-01-0.69422051E-01
+ 0.34339996E-02-0.79234779E-01-0.41237101E-01-0.28514843E-01
+ 0.24108853E-01 0.40748831E-01-0.15513334E+00 0.15307407E+00
+ 0.99850390E-02-0.27682120E-01 0.54472767E-01-0.43857154E-01
+-0.53891961E-01-0.13284815E-01 0.35775442E-01 0.40358426E-02
+-0.27592603E-01 0.31445228E-01 0.15491653E-01 0.28190129E-02
+-0.24603689E-01-0.92626899E-01 0.67674026E-01 0.71794264E-01
+ 0.95135733E-01 0.50922348E-02-0.13623560E-01 0.23757331E-01
+-0.47744387E-02 0.46965736E-02-0.67392141E-02-0.48691975E-02
+-0.11122855E-02-0.13454689E-01-0.77131763E-01-0.98624110E-01
+ 0.48160724E-01 0.16543763E-01-0.49138770E-01 0.17461605E-01
+ 0.26750349E-01 0.39088377E-02 0.55514900E-02 0.43032456E-01
+ 0.60738609E-02-0.25063993E-02-0.15855387E-01-0.94612045E-02
+-0.41879309E-03 0.32233037E-01-0.19281844E-01 0.20792220E-01
+ 0.94251204E-02-0.47330942E-01 0.23148457E-01 0.49970322E-02
+-0.24953449E-01 0.21466170E-01-0.37387648E-03 0.19118547E-01
+ 0.32155174E-02 0.16403269E-01 0.35219163E-01 0.13113920E+00
+-0.96734829E-01 0.13746214E-01-0.28147859E-01 0.16202064E-01
+ 0.51043965E-01-0.35983652E-02-0.52156085E-02-0.96815266E-02
+-0.55470653E-02-0.20149490E-01-0.10250242E-01-0.27565159E-01
+ 0.56680135E-01-0.28701194E-01-0.58173505E-02 0.27876016E-01
+ 0.27989307E-01-0.13116185E-01-0.12744517E-01 0.25175970E-01
+ 0.43719960E-02 0.16126093E-02-0.25717752E-01 0.67674026E-01
+ 0.30802848E+01-0.46980400E-02 0.10328545E-01-0.13646303E-02
+-0.13921593E-02 0.46656518E-02 0.75738039E-02-0.13919175E-02
+ 0.18014414E-02-0.73226583E+00 0.12279886E-01 0.34578342E-01
+ 0.33941451E-01 0.73212688E-03-0.21163456E-01 0.32289596E-02
+-0.18333461E-01 0.91965441E-02 0.79729569E+00 0.13542826E+00
+-0.11436112E+00-0.70079923E-01 0.79188850E-02-0.77631488E-01
+-0.55221070E-01 0.45033410E-01-0.30216960E-01 0.18268728E+01
+-0.31209853E+00-0.70338599E-01-0.13058031E+00 0.52127116E-02
+ 0.59936713E-01-0.18583011E-01 0.56642335E-01 0.17623593E-02
+-0.78476065E+00-0.25712866E+00 0.25612435E+00 0.15128808E+00
+-0.38681533E-01 0.24744213E+00 0.14993742E+00-0.11375405E+00
+ 0.66822320E-01-0.13493091E+01 0.30580220E+00 0.73491491E-01
+ 0.89370720E-01 0.54565580E-02-0.46355233E-01 0.13624964E-01
+-0.36061008E-01-0.18066941E-01-0.12063475E+00 0.14794455E+00
+-0.10244069E+00-0.80330491E-01 0.43026242E-01-0.18751287E+00
+-0.10860286E+00 0.70955373E-01-0.43552943E-01 0.86388132E-02
+-0.10469254E+00-0.35336661E+00 0.68503232E-02-0.22832712E-01
+ 0.74300254E-02-0.25587229E-02 0.51693595E-02-0.12979574E-03
+ 0.82351686E-02 0.37010682E+00-0.82846217E-01-0.23642721E-01
+ 0.21374708E-01 0.24881929E-02-0.14439701E-01 0.34175650E-02
+ 0.15466106E-01-0.13728087E+00-0.90724178E-01-0.25918829E+00
+ 0.55246770E-01 0.28049927E-01-0.48293497E-01-0.40341385E-01
+ 0.25727993E-01 0.12118476E-01 0.87273709E-01 0.31198278E+00
+-0.16230865E+00 0.16893700E-01 0.17322816E-02-0.83513986E-02
+ 0.22217995E-01 0.15569704E-01 0.63724130E-01 0.55732697E-01
+ 0.28494719E+00 0.15282595E+01-0.20563173E+00 0.30643355E-01
+-0.10549944E+00 0.10248962E+00 0.31379037E-01-0.74367374E-02
+-0.61427230E+00-0.15684907E+01 0.10502628E+00 0.25299487E+00
+-0.15594783E+00-0.50039280E-01 0.76203002E-02-0.49784355E-01
+-0.12944193E+00 0.15699542E+01 0.26262048E+00 0.62663382E+00
+ 0.22692803E-01-0.51594186E+00 0.51364642E+00 0.29827582E-01
+-0.80818407E-01-0.30650470E+00 0.24862222E+00-0.59349144E+00
+ 0.11204494E+01-0.97968966E-01 0.33110031E+00 0.38167056E-01
+-0.16308677E+00 0.54526995E-02-0.50980163E+00-0.47659847E+00
+-0.55125346E-02-0.95217299E+00 0.47925776E+00-0.42554024E-02
+ 0.30441788E+00-0.30924687E+00-0.12380421E+00-0.70827238E-01
+ 0.20973926E+01 0.99478257E+00 0.27451342E+00-0.55617458E+00
+ 0.29574648E+00 0.15973371E+00 0.80506027E-01 0.57603039E-01
+ 0.32256550E+00-0.38655005E+01-0.90660799E+00-0.59841734E+00
+-0.50917405E+00 0.14092973E+01-0.11617564E+01 0.28998095E+00
+ 0.36635254E-01 0.80191475E+00-0.10721380E+01 0.55519497E+00
+-0.26079962E+01 0.24563982E+00-0.10116768E+01-0.10343829E+00
+ 0.17780776E+00-0.81209339E-01 0.10334632E+01 0.69367838E+00
+-0.10222288E+00-0.55200565E+00-0.34082192E+00 0.15705701E-01
+-0.24950403E+00 0.24499443E+00 0.78426957E-01 0.83322436E-01
+-0.16341933E+01 0.60357797E+00-0.35521424E+00 0.34881729E+00
+-0.18382023E+00-0.85821614E-01-0.79250164E-01 0.24138987E-02
+-0.23403056E+00 0.27014959E+01 0.11459872E+01-0.33060220E+00
+ 0.46477214E+00-0.97078705E+00 0.67035884E+00-0.35578537E+00
+ 0.13218268E-01-0.56398720E+00 0.62231594E+00 0.28681967E+00
+ 0.19950296E+01-0.16715036E+00 0.70967084E+00 0.80056027E-01
+-0.58295801E-01 0.67210004E-01-0.60891330E+00-0.86633563E-02
+-0.13671836E-02-0.19294512E-01-0.29737541E-01-0.15660122E+00
+-0.86753992E-02 0.21384902E-03 0.20422880E-02-0.96033914E-02
+ 0.10736866E-02 0.13963470E-02 0.80128183E-03 0.16088326E+00
+-0.86053144E-02 0.60172728E-03-0.22198915E-01-0.37762453E-03
+ 0.10805884E-02 0.39740406E-01 0.17161980E+00 0.12527364E+00
+ 0.13852577E+00-0.44440904E+00-0.17778879E-01-0.20324275E-01
+ 0.42344291E-01-0.20028139E-01-0.42737368E-01 0.44157285E-01
+ 0.24216682E-01 0.59995002E+00 0.19375703E+00 0.41468341E-01
+-0.40872436E-01-0.31848896E-01-0.14190458E-01-0.27813461E-01
+ 0.34570392E-01 0.91654710E-01 0.33465780E-01-0.93962334E-01
+ 0.60697462E-01-0.45351591E-01-0.58084037E-02 0.61074000E-01
+-0.37716964E+00-0.15043245E+00-0.14817756E+00 0.47543745E-01
+-0.86728200E-01 0.59861321E-01 0.14234369E+00 0.12710453E-01
+ 0.17827239E-01-0.24680117E+00-0.86096442E+00-0.37145874E+00
+-0.49700645E+00 0.13920882E+01 0.93504988E-01 0.44289514E-01
+-0.18447290E+00 0.17054563E-01 0.70487481E+00-0.10964639E-01
+ 0.19685283E+00-0.18399014E+01-0.80342036E+00-0.18387800E+00
+ 0.39359804E-01 0.17004316E+00-0.85180625E-01-0.19522337E-01
+-0.21377654E+00-0.14989559E+00-0.97864687E-01 0.37941441E+00
+-0.63822173E-01 0.14001627E+00 0.39011661E-02-0.85912690E-01
+ 0.60058129E+00 0.10312814E+00 0.23901564E+00-0.29843274E+00
+ 0.10723197E-01-0.10886107E+00-0.15636367E+00-0.39202116E-01
+-0.35129011E-01 0.25636184E+00 0.11735374E+01 0.45907420E+00
+ 0.33341327E+00-0.12187766E+01-0.59096042E-01-0.59066504E-01
+ 0.20547853E+00 0.14204452E-01-0.11265887E+01-0.48129063E-01
+-0.23462927E+00 0.14852360E+01 0.70783460E+00 0.19520159E+00
+ 0.13287680E+00-0.18437938E+00 0.19562475E+00-0.32194812E-01
+ 0.65475008E-02 0.37131528E-02-0.14261339E-01-0.12782280E-02
+ 0.23382235E-01 0.15923720E-01 0.40608902E-04 0.66276081E-03
+ 0.31999865E-03-0.42041160E-01-0.23349874E-01 0.11027430E-01
+-0.22927441E-01-0.20414442E-01 0.19795489E-01-0.69397581E-02
+ 0.38036958E-02 0.65187119E-01 0.50789274E-01 0.12329996E-01
+-0.14014617E-01 0.19207697E-01 0.54233067E-01 0.19744506E-01
+ 0.45834291E-02 0.72671259E-02 0.29568112E-01-0.95958523E-02
+-0.18973609E-01-0.41401144E-02 0.17457606E-01-0.15092639E-01
+ 0.75680852E-01-0.13022618E-01 0.67012999E-02 0.77274968E-02
+-0.82368053E-01-0.58961112E-01 0.20770151E-01-0.13150994E-02
+-0.13049465E+00-0.10597041E+00 0.16197849E-01 0.15678909E-01
+-0.72845094E-01 0.12490302E+00-0.20829698E-02-0.25820648E-01
+ 0.39102312E-01 0.10707958E+00-0.13309467E+00 0.15458102E-01
+ 0.37044154E-02-0.31673741E-01-0.62940731E-02 0.84093548E-02
+-0.41974136E-02-0.33746944E-02 0.80712140E-02-0.77740918E-02
+ 0.31657413E-01 0.36994985E-02-0.28113980E-01 0.10798969E-01
+-0.56396737E-02-0.16900625E-02-0.34986283E-02 0.40706303E-02
+ 0.11442027E-01-0.97587286E-02 0.27690606E-01 0.79382271E-01
+-0.30479811E-01 0.32784846E-01-0.26296770E-01-0.10788017E-01
+ 0.10917043E-01 0.14642074E-01 0.22470199E-01 0.14176787E-01
+ 0.31412635E-01-0.57085998E-01 0.26893871E-01 0.37701238E-01
+-0.21372926E-02-0.14738973E-01 0.80593152E-03-0.38642716E-01
+ 0.31024845E-01 0.50734030E-03-0.64163841E-02-0.12042396E-01
+ 0.22190325E-02-0.28449393E-03 0.62294272E-02-0.91660712E-02
+ 0.21545021E-02-0.10553715E-02 0.14355371E-01 0.12396547E-01
+-0.10789397E-01-0.44431705E-02-0.94738062E-02 0.47621662E-02
+ 0.40972382E-02 0.32042819E-02-0.99020661E-03 0.49181809E-02
+ 0.23562347E-02 0.40638875E-02 0.27082455E-02-0.65866150E-02
+ 0.62013259E-02 0.16731292E-02 0.18732373E-02-0.48593818E-02
+ 0.13873120E-01-0.13107671E-02-0.19071303E-01 0.38780418E-03
+ 0.61205011E-02-0.50388812E-02 0.68964978E-03-0.54935296E-02
+ 0.18295188E-02 0.27496719E+01-0.11850115E-01 0.73418082E-02
+ 0.64126854E-02-0.29800744E-02 0.10921643E-02 0.41902238E-02
+ 0.14759843E-02-0.22041446E-02-0.51172680E+00 0.35100680E-01
+ 0.40524267E-01 0.30474843E-01-0.65487823E-02-0.66860467E-02
+-0.82540857E-02-0.16374506E-01 0.66717844E-02 0.10756888E+01
+ 0.95197663E-01-0.99020548E-01-0.55270936E-01 0.56841303E-01
+-0.30476358E-01-0.44919342E-01 0.41535314E-01 0.14882590E-01
+ 0.96904379E+00-0.45030373E+00-0.81589915E-01-0.10445018E+00
+ 0.13437195E-01-0.15732037E-01 0.23781391E-01 0.42177223E-01
+-0.97438293E-02-0.12668188E+01-0.14799927E-01 0.23314634E+00
+ 0.87992266E-01-0.20218949E+00 0.13027802E+00 0.13615835E+00
+-0.11343505E+00-0.31153904E-01-0.63311547E+00 0.41507858E+00
+ 0.64436302E-01 0.67502894E-01 0.85417582E-02 0.24351122E-01
+-0.25230847E-01-0.23825040E-01 0.86125854E-03 0.16201258E+00
+-0.35472833E-01-0.86220764E-01-0.37761636E-01 0.15207741E+00
+-0.11216554E+00-0.97735316E-01 0.73955752E-01 0.15572720E-01
+ 0.19004470E-01-0.27081847E+00-0.25790614E+00 0.95325941E-02
+-0.15033994E-01 0.27574443E-02-0.25284474E-02 0.38412474E-02
+ 0.23758332E-02-0.15574141E-01 0.28764451E+00-0.24723634E+00
+-0.21190660E-01 0.19187475E-01-0.14577296E-02-0.13602387E-01
+ 0.47102780E-02 0.15887067E-01 0.15916567E-01-0.13094133E-01
+-0.18341503E+00-0.20860847E-01 0.39675791E-01-0.68267519E-02
+-0.66249087E-01-0.62741726E-02 0.41506059E-01 0.33226557E-01
+ 0.21242505E+00-0.11735039E+00 0.20106252E-01 0.14337774E-01
+ 0.52691698E-02 0.18621637E-01-0.20861311E-02 0.50332192E-01
+-0.32793215E+00 0.81487375E+00 0.84182167E+00-0.12698558E+00
+ 0.33453379E-01-0.25510749E-01 0.89533143E-01 0.24488725E-01
+-0.31261619E-01-0.37190884E+00-0.10941412E+01 0.68853664E+00
+ 0.24537718E+00-0.12240302E+00-0.18654227E-01 0.40675946E-01
+-0.11932018E+00-0.14532743E+00 0.39973900E-01-0.20130175E+00
+ 0.98582131E+00 0.46249530E+00-0.45445198E+00 0.95881127E-01
+ 0.30371648E+00 0.18240003E+00-0.36862892E+00 0.49964002E+00
+-0.55297488E+00 0.81649625E+00-0.15544052E+00 0.17243408E+00
+-0.80211408E-01-0.12309635E+00 0.14403760E+00-0.36307234E+00
+ 0.92932731E+00-0.43920514E+00 0.27505100E+00 0.24573041E+00
+ 0.31845255E-02 0.79882346E-01-0.29909259E+00-0.48250318E-01
+ 0.84246330E-01 0.15329826E+01 0.19085544E+00-0.40697181E+00
+-0.55546308E+00 0.18732370E+00 0.17146086E-01 0.14358910E-01
+ 0.27570710E+00 0.33728591E+00-0.16367953E+00 0.20679381E+00
+-0.20812731E+01-0.13375096E+01 0.10512470E+01-0.18085140E+00
+-0.35574475E+00-0.50738007E+00 0.78306991E+00-0.15351163E+01
+ 0.11400683E+01-0.19037578E+01 0.40057018E+00-0.52411419E+00
+ 0.25429851E+00 0.26375519E-01-0.37648410E+00 0.65987456E+00
+-0.54566395E+00 0.74088342E-01-0.10294523E+01-0.16286100E+00
+-0.72648101E-01-0.86193547E-01 0.27236110E+00 0.20283155E-01
+-0.70224538E-01-0.12850333E+01 0.83220738E+00-0.85517123E-01
+ 0.36889663E+00-0.78059815E-01 0.37251141E-01-0.59753969E-01
+-0.16131189E+00-0.22452673E+00 0.14172664E+00 0.15790805E+00
+ 0.79502696E+00 0.10112376E+01-0.61172265E+00 0.34335397E-01
+ 0.59816524E-01 0.33198726E+00-0.48746240E+00 0.10491930E+01
+-0.24701853E+00 0.15002282E+01-0.29250708E+00 0.31989691E+00
+-0.20179859E+00 0.11427309E+00 0.24893668E+00-0.36306697E+00
+-0.13550294E-01-0.45300750E-02 0.10528672E-02 0.16152516E-01
+-0.12370551E+00-0.59309341E-02 0.40165852E-02 0.45750680E-03
+-0.59628934E-02-0.12362761E-01-0.79272036E-02 0.50656572E-02
+ 0.11978005E+00 0.42122323E-01 0.62554074E-03-0.15799779E-01
+-0.46376414E-02 0.30326883E-02 0.40974230E-01 0.18386219E+00
+ 0.66352732E-01 0.13339929E+00-0.20539436E+00 0.68436977E-02
+ 0.56280051E-02 0.26018705E-01-0.77441498E-02 0.30746153E-01
+ 0.64624652E-01 0.41689617E-02 0.32169458E+00 0.19580451E+00
+ 0.16591450E-01-0.15418100E-01-0.22828069E-01 0.79204692E-02
+-0.79213560E-01 0.82305610E-01-0.45376107E-01-0.24927042E+00
+ 0.59723146E-01 0.52313942E-01-0.31539883E-01-0.39117865E-01
+ 0.51201828E-01-0.16604353E+00-0.34118190E-01-0.95448852E-01
+-0.24441021E-01-0.38288221E+00 0.89257881E-02 0.12591472E+00
+ 0.38770281E-01 0.11474446E-01-0.95860370E-01-0.84688097E+00
+-0.15334813E+00-0.17581967E+00 0.49173304E+00-0.18058453E-01
+-0.11134413E+00-0.12453195E+00 0.18030409E-01 0.21763852E+00
+-0.97603641E-01 0.88954560E-01-0.84687620E+00-0.32350314E+00
+ 0.37710898E-01 0.73295427E-02 0.13443394E+00-0.16885924E+00
+ 0.10223650E+00-0.29878554E+00 0.48473828E-01 0.14142914E+00
+-0.96604209E-02-0.75192235E-01 0.95178723E-01 0.81541315E-01
+-0.61776754E-01 0.29203841E+00-0.17904034E+00 0.66509947E-01
+-0.33817422E-01 0.29854304E+00-0.61735559E-01-0.15191223E+00
+-0.53076677E-01-0.26007971E-01-0.22676747E-01 0.11153493E+01
+ 0.22664391E+00-0.13381992E-01-0.44242853E+00 0.69775105E-01
+ 0.11397256E+00 0.13336641E+00-0.25085449E-01-0.44642001E+00
+ 0.18625054E+00-0.79894532E-02 0.63482380E+00 0.70025556E-01
+-0.66104084E-01 0.85890360E-01-0.14158376E+00 0.24665558E+00
+-0.29041942E-01 0.10848622E-01 0.89042038E-02-0.12965817E-01
+-0.79534082E-02 0.20859802E-01-0.14016238E-01-0.29190006E-02
+-0.91342576E-03-0.55187498E-02-0.40372211E-01-0.21171888E-01
+ 0.10458578E-01-0.23211660E-01 0.95567387E-02 0.19028161E-01
+-0.29276188E-02-0.41621849E-02 0.39665487E-01 0.72864085E-01
+ 0.10825509E-01-0.18992426E-01 0.10280470E-01 0.83170965E-01
+ 0.42992984E-02 0.93182252E-03 0.22329555E-02 0.22737475E-01
+-0.66708000E-02-0.27572964E-02-0.16470218E-01 0.29193019E-02
+-0.60508568E-02 0.88432148E-01-0.63352720E-02 0.46102949E-02
+ 0.47638151E-02-0.11769389E+00-0.53772289E-01 0.17596751E-01
+ 0.23333792E-03-0.14802746E+00-0.58708407E-01 0.86851157E-02
+ 0.21828359E-01-0.43172285E-01 0.11592652E+00-0.16070418E-02
+-0.11035030E-01 0.17440675E-01 0.57708938E-01-0.13491406E+00
+-0.18783395E-03 0.19392852E-01-0.20160457E-01-0.94742822E-02
+ 0.71759149E-02 0.22431763E-03-0.19019587E-02 0.46471963E-02
+-0.72945268E-02 0.25696186E-01 0.10441859E-01-0.15380017E-01
+ 0.67414884E-02-0.12804105E-01 0.24585058E-02-0.51557599E-02
+ 0.37254030E-02 0.76002465E-02-0.13046168E-01 0.20730097E-01
+ 0.57154182E-01-0.87949578E-02 0.30844212E-01-0.17324708E-01
+-0.67216763E-03 0.66427323E-02 0.19945210E-01 0.24971852E-01
+ 0.30873109E-01 0.13570253E-01-0.68256535E-01 0.30832380E-01
+ 0.22241361E-01-0.16376127E-02-0.12042126E-01-0.16067507E-02
+-0.53055108E-01 0.24462879E-01 0.78554545E-02-0.98696323E-02
+-0.61809998E-02 0.83083156E-02-0.34189986E-02 0.37059986E-02
+-0.70023979E-02 0.45059728E-02-0.20708663E-02 0.94396900E-02
+ 0.11253028E-01-0.92065604E-02 0.81361667E-03-0.75608422E-03
+ 0.33125300E-02 0.41626222E-02 0.37212600E-02 0.41885455E-02
+ 0.60033705E-02 0.81377747E-02 0.13521597E-02 0.25659315E-02
+-0.80228671E-02 0.31734100E-02 0.90754894E-03 0.38459085E-03
+-0.12874377E-02-0.29407945E-02-0.58028940E-02-0.11697264E-01
+ 0.18782510E-02 0.10815329E-01-0.28420230E-02 0.76707790E-03
+-0.40857978E-02 0.25540697E-02
diff --git a/input/glow_data/iri90/ccir18.asc b/input/glow_data/iri90/ccir18.asc
new file mode 100644
index 0000000..191740c
--- /dev/null
+++ b/input/glow_data/iri90/ccir18.asc
@@ -0,0 +1,715 @@
+ 0.51813760E+01-0.10739883E+00 0.18743367E+00 0.31032026E-01
+-0.31483453E-01 0.46369401E-02-0.17831052E-01 0.25944985E-01
+-0.39442893E-01 0.11673883E-01 0.13706181E-01 0.52697590E-03
+-0.25141253E-02-0.16610043E+01-0.63904011E+00 0.52825075E+00
+-0.35923615E+00 0.32526955E+00 0.38260385E-01 0.74715331E-01
+-0.12071173E+00-0.12027262E+00-0.22109205E-01-0.18548496E-02
+ 0.25158874E-02 0.43518778E-01 0.11134710E+02 0.21947019E+01
+-0.38336279E+01 0.41743028E+00 0.46625581E+00-0.36733770E+00
+ 0.96669585E+00-0.55345803E+00 0.46823847E+00-0.48935539E+00
+-0.64198560E+00-0.11552801E+00 0.34517925E-01 0.20840195E+02
+ 0.53288760E+01-0.30419121E+01 0.70807428E+01-0.30199430E+01
+ 0.25945339E-01-0.33274748E+01 0.13975244E+01 0.53362620E+00
+ 0.27826801E+00 0.33125132E-01 0.62786597E+00-0.52923745E+00
+-0.79337822E+02-0.14883757E+02 0.22834850E+02-0.51182194E+01
+-0.11177418E+02 0.16302793E+01-0.79739599E+01 0.32296658E+01
+-0.12089566E+01 0.36283174E+01 0.44965773E+01 0.86827540E+00
+-0.31795710E+00-0.60320335E+02-0.19182150E+02-0.33956966E+01
+-0.32669117E+02 0.17268829E+02-0.60134012E+00 0.18945456E+02
+-0.86268539E+01-0.11386640E+01-0.19328128E+01 0.17548665E+01
+-0.65107803E+01 0.11776744E+01 0.18447604E+03 0.42060055E+02
+-0.56183029E+02 0.14291060E+02 0.41250343E+02-0.34360697E+01
+ 0.21798124E+02-0.76566525E+01 0.13683516E+01-0.94252605E+01
+-0.11468615E+02-0.22709808E+01 0.12029746E+01 0.74724304E+02
+ 0.34598545E+02 0.32904587E+02 0.59504917E+02-0.45993324E+02
+-0.96503580E+00-0.41161522E+02 0.22533396E+02 0.26252196E+01
+ 0.52893238E+01-0.82092028E+01 0.18131802E+02-0.36847976E+00
+-0.19413287E+03-0.49194946E+02 0.61412071E+02-0.15853179E+02
+-0.53150242E+02 0.39649019E+01-0.23896528E+02 0.79412022E+01
+-0.10084863E+01 0.10269410E+02 0.12102466E+02 0.25096750E+01
+-0.16858004E+01-0.42284904E+02-0.29988331E+02-0.47852016E+02
+-0.47470257E+02 0.53297440E+02 0.41365795E+01 0.38657391E+02
+-0.24937689E+02-0.36407509E+01-0.61866503E+01 0.11591171E+02
+-0.19596478E+02-0.89709473E+00 0.75968063E+02 0.19798077E+02
+-0.24477795E+02 0.62807326E+01 0.22585154E+02-0.18408319E+01
+ 0.91339474E+01-0.30013289E+01 0.41616115E+00-0.40143032E+01
+-0.44904690E+01-0.10010843E+01 0.77694696E+00 0.95251894E+01
+ 0.10003698E+02 0.20788961E+02 0.13931005E+02-0.21926090E+02
+-0.26575904E+01-0.13174495E+02 0.97861652E+01 0.17670221E+01
+ 0.25980010E+01-0.51927876E+01 0.73529782E+01 0.56848937E+00
+-0.20119770E+00 0.15843167E+01 0.18475239E+01-0.47732759E-03
+-0.13149090E+00-0.13344645E-01 0.26832491E-01 0.30770525E-01
+-0.20653838E-01 0.10311009E-02 0.70003867E-02-0.62839808E-02
+-0.99203400E-02 0.70720062E-01-0.16220536E+01 0.15745577E+01
+ 0.24463184E-01 0.20518380E+00 0.19001585E-01 0.56619728E-02
+-0.39436924E-02 0.51251244E-01-0.10332140E-01 0.11076461E-01
+-0.14877492E-01 0.19403499E-01-0.90413511E+00 0.15951061E+01
+-0.32156929E+00 0.67641193E+00-0.58352768E+00 0.14265889E+00
+ 0.43839268E-01-0.37467858E+00 0.20368481E+00 0.66211246E-01
+ 0.16507994E+00 0.45068026E-01 0.21851064E+00-0.25522104E+00
+ 0.10744387E+01 0.77017993E+00 0.52008659E+00 0.31209913E+00
+ 0.15328670E+00-0.16450721E+00 0.30181509E-01 0.98174199E-01
+-0.20944310E-01-0.68538651E-01 0.44294223E-01 0.10606261E+00
+ 0.43100529E+01 0.10209758E+02 0.10042840E+02 0.17070240E+01
+ 0.11407772E+00 0.15409266E+01-0.69876671E+00-0.72542679E+00
+ 0.74991882E+00-0.28893912E+00-0.34130789E-01 0.30699372E+00
+ 0.49604353E+00-0.37056020E+00-0.13278563E+02 0.55308051E+01
+ 0.54367453E+00-0.10339448E+01-0.52278483E+00 0.11216925E+01
+-0.80142033E+00-0.27339029E+00 0.27401743E-01 0.37330829E-02
+ 0.88551909E+00-0.19130912E+00 0.15317790E+02-0.13764858E+02
+ 0.45487285E+01-0.40844550E+01 0.10961870E+02-0.27308998E+01
+-0.39546218E+01 0.59212508E+01-0.20589113E+01-0.41854739E+00
+-0.23430898E+01-0.11522582E+01-0.30893290E+01 0.34036417E+01
+-0.14668043E+02-0.73346114E+01-0.88265228E+01-0.11719311E+02
+-0.30766165E+01 0.42914267E+01-0.19813076E+01-0.91186047E+00
+-0.14789377E+01 0.34925082E+00 0.82151622E+00-0.14842312E+01
+-0.21855589E+02-0.65027206E+02-0.30625284E+02-0.61926742E+01
+-0.35101626E+01-0.17476919E+02 0.71970272E+00 0.40459504E+01
+-0.35212376E+01 0.19424437E+01-0.18655061E+01-0.29581990E+01
+-0.35298369E+01 0.45670981E+01 0.37643353E+02-0.25258648E+02
+-0.83348694E+01 0.25785327E+01 0.53328462E+01-0.97375669E+01
+ 0.63686438E+01 0.81883103E+00-0.19984325E+01-0.17359768E+01
+-0.85691080E+01 0.44630432E+00-0.83068283E+02 0.81330490E+02
+-0.13745291E+02-0.39484618E+01-0.48257332E+02 0.27937885E+02
+ 0.28801771E+02-0.31976980E+02 0.32318890E+01 0.10558324E+01
+ 0.14404617E+02 0.91635990E+01 0.14174400E+02-0.37831264E+02
+ 0.88615479E+02 0.85113358E+02 0.45270039E+02 0.76213264E+02
+ 0.17117207E+02-0.29024532E+02 0.17087751E+02 0.68407333E+00
+ 0.12642257E+02 0.57222117E-01-0.97055807E+01 0.69868464E+01
+ 0.33955742E+02 0.13318353E+03-0.21473759E+02 0.25355750E+00
+ 0.13797762E+02 0.59645039E+02 0.50354247E+01-0.86467590E+01
+ 0.35548909E+01-0.50609388E+01 0.10475528E+02 0.11849051E+02
+ 0.96025867E+01-0.88309050E+01 0.25575996E+02 0.12401312E+02
+ 0.32052364E+02-0.87352157E+00-0.18661947E+02 0.23053522E+02
+-0.18508951E+02-0.16507331E+01 0.99664297E+01 0.73132496E+01
+ 0.25814552E+02-0.15154300E+01 0.21601781E+03-0.21782782E+03
+ 0.13970534E+02 0.51641003E+02 0.82136398E+02-0.96018127E+02
+-0.80168480E+02 0.78118790E+02 0.89466515E+01 0.96090563E-01
+-0.40393982E+02-0.29548920E+02-0.28057667E+02 0.11636549E+03
+-0.24491010E+03-0.28724524E+03-0.10040260E+03-0.19873129E+03
+-0.43567253E+02 0.75220818E+02-0.51479694E+02 0.52787185E+01
+-0.37214550E+02-0.12265165E+01 0.29498684E+02-0.13845214E+02
+-0.66059847E+01-0.12299647E+03 0.11331442E+03 0.16227594E+02
+-0.18005981E+02-0.79721268E+02-0.89493876E+01 0.85854511E+01
+ 0.19708027E+01 0.53805790E+01-0.17981739E+02-0.18486019E+02
+-0.10671741E+02 0.65107279E+01-0.14133873E+03 0.35762993E+02
+-0.47331753E+02-0.99259748E+01 0.24949978E+02-0.18619167E+02
+ 0.21813089E+02 0.29833362E+01-0.15825300E+02-0.94992371E+01
+-0.31681845E+02 0.30539851E+01-0.26602240E+03 0.25943344E+03
+-0.85672159E+01-0.89114342E+02-0.59151909E+02 0.12887794E+03
+ 0.96713982E+02-0.87241043E+02-0.24014769E+02-0.39270320E+01
+ 0.50494331E+02 0.40384113E+02 0.24323547E+02-0.12623465E+03
+ 0.30866837E+03 0.37077533E+03 0.10442806E+03 0.23109668E+03
+ 0.52738197E+02-0.84341431E+02 0.64608040E+02-0.10220551E+02
+ 0.46504440E+02 0.22121127E+00-0.34443577E+02 0.11775063E+02
+-0.12208918E+02 0.45470352E+02-0.71684982E+02-0.12210121E+02
+ 0.75946212E+01 0.36560390E+02 0.36604092E+01-0.33766203E+01
+-0.28442261E+01-0.19091837E+01 0.96889944E+01 0.94606447E+01
+ 0.40775514E+01-0.14950647E+01 0.93858498E+02-0.31066874E+02
+ 0.23789320E+02 0.11685203E+02-0.11222384E+02 0.36598971E+01
+-0.87570076E+01-0.21024263E+01 0.80605850E+01 0.36843083E+01
+ 0.13835386E+02-0.17752295E+01 0.12323454E+03-0.11393223E+03
+ 0.28638356E+01 0.45115490E+02 0.14615677E+02-0.59010235E+02
+-0.42132607E+02 0.35980793E+02 0.14087955E+02 0.33986540E+01
+-0.22851339E+02-0.19381165E+02-0.74500413E+01 0.42877964E+02
+-0.14127107E+03-0.16386626E+03-0.42104141E+02-0.10067329E+03
+-0.24085188E+02 0.34423313E+02-0.28762308E+02 0.50822926E+01
+-0.20915609E+02 0.88597655E+00 0.13771997E+02-0.35257232E+01
+ 0.42188969E-01 0.94234280E-01-0.10187069E-02-0.95930177E+00
+-0.19991234E+00 0.58659386E-01 0.31168277E-02-0.84970305E-02
+ 0.53929232E-01-0.65914979E-02 0.57587521E-02-0.14161857E-01
+ 0.11686263E-03 0.43799311E-01 0.11469412E-01 0.45734111E-01
+ 0.27424732E+00-0.63086385E+00 0.69261733E-02 0.10186278E-02
+-0.43821827E-01 0.95467009E-02-0.14789114E-01 0.76593342E-02
+-0.46657752E-02 0.73617133E-02 0.49559942E+00 0.82897675E+00
+ 0.47035179E+00 0.17087352E+00-0.12786779E+01 0.15497789E-01
+-0.29272199E+00 0.50515074E-01 0.95190831E-01 0.12434431E+00
+ 0.34540424E-02-0.43415297E-01 0.11710780E+00 0.91401197E-01
+ 0.34288970E+00 0.77033257E+00 0.19686368E+01 0.12333189E-02
+ 0.10140464E+00 0.14774442E+00-0.73128659E-02-0.67382760E-01
+-0.95939159E-01 0.81297606E-01 0.10078107E+00 0.75467929E-01
+ 0.15210741E+01 0.97265679E+00-0.11593559E+00 0.81999540E+01
+ 0.12909287E+00-0.11842973E+01-0.96201396E+00 0.31217158E+00
+-0.70322382E+00-0.43442760E-01-0.39182207E+00-0.10794251E+00
+-0.17477946E-01 0.28209305E+01 0.63783765E+00 0.71414834E+00
+-0.10531855E+01 0.46761045E+01 0.80202073E+00 0.12529795E-01
+ 0.56188387E+00-0.26510638E+00 0.43705702E+00 0.11708755E+00
+-0.95809540E-02 0.27964649E+00-0.60612836E+01-0.50309405E+01
+-0.43330379E+01 0.93652105E+01 0.22353725E+01 0.19453353E+00
+ 0.13129736E+01-0.80170625E+00-0.83791220E+00-0.26327208E+00
+ 0.91290653E+00 0.65617907E+00-0.94384933E+00-0.78995579E+00
+-0.36866460E+01-0.43037763E+01-0.60018635E+01 0.95902605E+01
+ 0.52022409E+00-0.14935763E+01-0.27530113E+00 0.18274926E+00
+ 0.21199745E+00-0.55878675E+00-0.25891751E+00 0.83397602E-03
+-0.13319073E+02-0.63696756E+01 0.26987333E+01-0.92368822E+01
+ 0.32915807E+01 0.60375071E+01 0.76720295E+01-0.18980306E+01
+ 0.46611791E+01 0.43055254E+00 0.20732810E+01 0.14235936E+01
+ 0.31788766E+00-0.14097284E+02-0.46897783E+01-0.82707202E+00
+-0.41121367E+00 0.23824086E+01-0.26390638E+01 0.35508257E+00
+-0.23547945E+01 0.10697405E+01-0.21197121E+01-0.27898791E+01
+ 0.12480121E+01-0.18391019E+01 0.15204087E+02 0.78556147E+01
+ 0.88966312E+01-0.30797503E+02 0.23227117E+01-0.58457482E+00
+-0.71814245E+00 0.30694103E+01 0.22050869E+01-0.34793630E+00
+-0.29825599E+01-0.19286658E+01 0.21556101E+01 0.39697590E+01
+ 0.58501611E+01 0.62696495E+01 0.49510407E+01-0.31089190E+02
+-0.24617631E+01 0.39447894E+01 0.16149390E+01-0.56727923E-01
+ 0.75868088E+00 0.79545927E+00 0.32469195E+00-0.90026625E-01
+ 0.27027122E+02 0.11467045E+02-0.84330359E+01-0.24010477E+02
+-0.80087805E+01-0.12543470E+02-0.15589190E+02 0.42210331E+01
+-0.10726813E+02-0.14858339E+01-0.43507633E+01-0.34340184E+01
+-0.92487770E+00 0.23143436E+02 0.78808756E+01-0.27895360E+01
+ 0.60927572E+01-0.40888386E+02 0.94554806E+00-0.24960201E+01
+ 0.34536648E+01-0.18722475E+01 0.37619510E+01 0.80734539E+01
+-0.44939146E+01 0.28656080E+01-0.11953168E+02-0.27238479E+01
+-0.52568307E+01 0.21050129E+02-0.68679848E+01 0.32113910E+00
+-0.58306420E+00-0.27074990E+01-0.17911482E+01 0.77064550E+00
+ 0.22215376E+01 0.15297557E+01-0.14433203E+01-0.47204428E+01
+-0.10654535E+01-0.18083954E+01 0.15844553E+01 0.20997583E+02
+ 0.19634615E+01-0.33727379E+01-0.18170273E+01-0.17987987E+00
+-0.10957071E+01-0.20409736E+00-0.20305949E+00-0.28999722E+00
+-0.15884968E+02-0.64883618E+01 0.73605752E+01 0.31496780E+02
+ 0.69600091E+01 0.86443911E+01 0.96710367E+01-0.29579740E+01
+ 0.75072083E+01 0.12868271E+01 0.29590070E+01 0.23414221E+01
+ 0.84001136E+00-0.11925214E+02-0.50585051E+01 0.18607297E+01
+-0.73451662E+01 0.40590572E+02 0.12435257E+01 0.30310061E+01
+-0.15552270E+01 0.12240763E+01-0.21083274E+01-0.60944834E+01
+ 0.37612362E+01-0.10206302E+01 0.64615183E-01 0.78795552E-01
+-0.15892947E+00-0.10464617E+00 0.10353974E+00-0.41167954E+00
+-0.43749309E+00 0.20638651E-02 0.74383467E-01-0.43644945E-03
+-0.90350350E-03-0.19853504E-01-0.59061525E-02 0.81961580E-01
+-0.21425916E+00-0.38655456E-01-0.88595822E-02-0.14763263E+00
+ 0.46912336E+00-0.45955449E+00-0.42392034E-01-0.80482624E-02
+ 0.18471889E-01-0.14141251E-01 0.55350456E-02 0.16753854E-01
+-0.24682516E+00 0.65146202E+00-0.45703122E+00-0.23654184E+00
+-0.30039293E+00-0.82151897E-01-0.20593224E+00-0.13945434E-01
+ 0.16855291E+00 0.32676257E-01 0.80637790E-01-0.79479448E-01
+-0.61515283E-01-0.29577321E+00-0.25834915E+00 0.53513624E-01
+ 0.29484292E-01-0.17856269E+00 0.19976071E+00 0.16096137E+00
+-0.13107130E+00-0.10473933E+00-0.19589696E-01 0.30329490E-01
+ 0.64674303E-01-0.38300402E-01-0.60273278E+00-0.20669493E+00
+ 0.82746637E+00 0.46272588E+00-0.10339417E+00 0.15778165E+00
+-0.30000055E+00-0.28547913E+00 0.21799399E-01-0.91843419E-01
+-0.55076419E-02 0.13837788E-01-0.14949028E+00-0.13389989E+01
+ 0.26402633E+01-0.13628585E+01-0.36753692E-01 0.15853026E+01
+ 0.13760415E+00 0.79008830E+00-0.23089467E+00 0.14146335E+00
+-0.11153022E+00 0.23030405E+00-0.12568083E+00-0.15787458E+00
+-0.16602457E+00-0.13449451E+01 0.96737868E+00 0.40215719E+00
+ 0.72849149E+00 0.41462141E+00 0.71418375E+00 0.10896401E+00
+-0.35342368E+00-0.11979083E+00-0.10750519E+00 0.23451699E+00
+ 0.13568750E+00 0.14382593E-01 0.82095027E+00-0.72794154E-01
+-0.23630470E+00 0.75462168E+00-0.65143400E+00 0.49917012E-01
+ 0.24157877E+00 0.31928110E+00-0.23850443E-01-0.63626952E-01
+-0.70730507E-01 0.35635930E-01 0.16258487E+01 0.63477248E+00
+-0.11753286E+01-0.52329248E+00 0.51585090E+00 0.42656636E+00
+ 0.12154765E+01 0.54212022E+00-0.33579046E+00 0.13298018E+00
+-0.58626540E-01-0.93792476E-01 0.21695583E+00 0.19641677E+01
+-0.34773593E+01 0.24826541E+01-0.47208840E+00-0.22139666E+01
+-0.79506546E+00-0.24327517E+00 0.67086709E+00-0.30561268E-01
+ 0.17824247E+00-0.29080093E+00 0.13225445E+00 0.22372004E+00
+ 0.78067645E-01-0.53872090E-01-0.60876328E-01-0.20090356E-01
+ 0.19590052E-01 0.37616719E-01-0.21996699E-01 0.30491668E+00
+-0.21350857E-01 0.73222145E-02 0.10664701E-01-0.17186703E-01
+-0.79840180E-02 0.54252598E-01-0.42442694E-01 0.41468631E-01
+ 0.11270581E-01-0.79623416E-01-0.27057895E-01 0.20517232E-01
+ 0.19652473E-01 0.27900285E+00 0.76455669E-02-0.26138762E-02
+ 0.26082578E-02-0.48174490E-02 0.37738148E-01 0.49505927E-01
+ 0.45610685E-01-0.40265694E-01-0.23026168E+00-0.11767189E+00
+-0.47708195E-01 0.25821838E+00 0.16750067E+00-0.34544688E-01
+-0.48518635E-01 0.20903081E-01 0.94813956E-02 0.18504436E+00
+ 0.13707677E+00-0.76823071E-01 0.73215045E-01 0.25763610E+00
+-0.57229973E-01-0.43995194E-01-0.27386624E+00 0.97568236E-01
+ 0.11287920E-01-0.45958824E-01-0.17281851E-01-0.18543916E-01
+-0.10852473E+00-0.31554475E-01-0.29181827E-01-0.35038237E-01
+-0.30168429E-01 0.12917520E-01 0.94219139E-02 0.38543744E-02
+-0.17429788E-01 0.97568251E-01 0.17038140E+00-0.22542167E-02
+-0.68581281E-02-0.16812027E-01 0.67123897E-01-0.14856836E-01
+ 0.52298285E-01-0.10310156E+00-0.40235251E-01-0.89705503E-02
+ 0.38926877E-01-0.10838482E-02-0.16985069E+00 0.76311469E-01
+ 0.69150580E-02-0.63182632E-02-0.48873704E-01-0.22341227E-01
+ 0.31494450E-01-0.74725705E-02-0.32325108E-01 0.47166054E-02
+ 0.15750030E-01 0.19931326E-01 0.61885430E-02-0.89711556E-02
+-0.22252218E-02-0.13308422E+00 0.20251697E-01-0.45145783E-02
+ 0.35775520E-01-0.10440513E-01 0.63793033E-01 0.43009203E-01
+-0.34634177E-01-0.14203522E-01 0.64703203E-02-0.13139685E-01
+-0.32075319E-01-0.19045237E-01-0.12680903E-01-0.13717172E+00
+ 0.29166550E-02 0.11035411E-01 0.24293691E-01 0.25893958E-01
+-0.13120287E-02-0.17062493E-01-0.69651459E-02 0.15115200E-01
+-0.12452925E-01-0.28048914E-01-0.81404569E-02 0.14331407E-01
+ 0.12644852E-01 0.24846908E-01-0.53721450E-01 0.16348697E-01
+ 0.18280599E-01-0.24520375E-01-0.36987716E-02 0.18260539E-01
+-0.72437376E-02 0.14151407E-01-0.22939686E-01 0.24036895E-02
+ 0.15635617E-01 0.12054204E-01 0.11425200E-01 0.64702697E-01
+-0.10536327E+00 0.15012830E-01-0.28842267E-01 0.11042488E-01
+ 0.13311166E-01-0.21481495E-02 0.73922775E-02-0.16001927E-01
+ 0.10468615E-01-0.66283136E-02-0.15343135E-02-0.30380554E-01
+-0.51950170E-02-0.93821893E-02 0.29672759E-01 0.30377174E-01
+ 0.16042337E-01-0.11458547E-01-0.95287329E-02 0.13136099E-01
+ 0.89334687E-02-0.17647015E-01-0.20479793E-02 0.17140299E-01
+ 0.84415445E+01 0.26355572E-01 0.16610390E+00 0.69635049E-01
+ 0.77834222E-02-0.25760174E-01-0.21441121E-01 0.21861907E-01
+-0.43986645E-01 0.11674735E-01 0.56952261E-02 0.28399102E-01
+-0.13653146E-01-0.68217140E+00-0.62160009E+00 0.28212479E+00
+-0.24901924E+00 0.21900199E+00 0.24887722E-01 0.72718799E-01
+-0.13336083E+00-0.78881793E-01 0.14562245E+00 0.74521393E-01
+-0.27514610E-01 0.10257617E+00 0.17437782E+02 0.79321623E+00
+-0.35100787E+01 0.84811628E-01 0.70552386E-01 0.47351521E+00
+ 0.83660269E+00-0.47608498E+00 0.52839464E+00-0.69492771E-02
+-0.20629799E+00-0.32985020E+00 0.31779465E+00-0.81596603E+01
+ 0.80805292E+01 0.59097290E+01 0.42979136E+01-0.42025328E+01
+-0.14056302E+01-0.12244359E+01 0.21699390E+01 0.52206904E+00
+-0.24186170E+01-0.21609974E+01 0.93807650E+00-0.84871131E+00
+-0.89978989E+02-0.97939730E+01 0.20942669E+02-0.55313463E+01
+-0.76858745E+01-0.21651825E+00-0.45114717E+01 0.38345082E+01
+-0.16243830E+01-0.89623278E+00 0.11692472E+01 0.93201983E+00
+-0.17749968E+01 0.10546338E+03-0.44166641E+02-0.43877007E+02
+-0.16669228E+02 0.34683037E+02 0.49835873E+01 0.66487484E+01
+-0.12427212E+02-0.19051713E+01 0.11908665E+02 0.12564396E+02
+-0.36486394E+01 0.21449244E+01 0.13710806E+03 0.36479836E+02
+-0.52778606E+02 0.21492033E+02 0.30154282E+02-0.53919759E+01
+ 0.90821161E+01-0.11428968E+02 0.14775454E+01 0.36835520E+01
+-0.33135943E+01-0.38186175E+00 0.41576314E+01-0.28806189E+03
+ 0.10074989E+03 0.97997749E+02 0.22048018E+02-0.10003945E+03
+-0.56709027E+01-0.15209171E+02 0.29163034E+02 0.34512579E+01
+-0.24924685E+02-0.28658514E+02 0.41394582E+01-0.29731119E+01
+-0.92897758E+02-0.49600414E+02 0.61100552E+02-0.29214361E+02
+-0.39369938E+02 0.10823676E+02-0.76445956E+01 0.13982789E+02
+ 0.32520753E+00-0.46346078E+01 0.43214622E+01-0.86068255E+00
+-0.42901020E+01 0.30256940E+03-0.99049271E+02-0.91175804E+02
+-0.90334110E+01 0.11542465E+03 0.17341838E+01 0.15239948E+02
+-0.29818983E+02-0.28255911E+01 0.23323519E+02 0.28412251E+02
+-0.63854128E+00 0.26830745E+01 0.24605694E+02 0.22045202E+02
+-0.26002682E+02 0.13213135E+02 0.16756659E+02-0.57091608E+01
+ 0.22745020E+01-0.59658070E+01-0.66697073E+00 0.18124434E+01
+-0.19950210E+01 0.59119934E+00 0.16144733E+01-0.11073072E+03
+ 0.35112747E+02 0.30812071E+02-0.38981718E+00-0.46086620E+02
+ 0.31463280E+00-0.55018616E+01 0.11076973E+02 0.82669556E+00
+-0.80218763E+01-0.10252825E+02-0.76681507E+00-0.11369579E+01
+-0.24553841E+00 0.17193551E+01 0.16381207E+01 0.33417907E-01
+-0.87884702E-01-0.44835400E-01 0.15925823E-02 0.49698550E-01
+-0.38588453E-01-0.72526657E-02 0.15999507E-01 0.17281709E-01
+-0.23321385E-01 0.24167123E+00-0.16023287E+01 0.16606361E+01
+-0.45682013E-01 0.11704248E+00-0.18465983E-01 0.11106687E-01
+-0.60868151E-02 0.61217647E-01-0.20567151E-01 0.24912491E-01
+-0.28536351E-01 0.29306814E-01-0.10224926E+01 0.14925382E+01
+-0.19260072E+01 0.61678416E+00 0.13985469E-01 0.10479474E+00
+-0.49587530E-02-0.18433394E+00 0.11050394E+00 0.21527071E+00
+ 0.22213718E+00 0.34993712E-01 0.57391070E-01 0.10419737E+01
+ 0.66445446E+00 0.14948963E+01 0.38029797E-01 0.27230132E+00
+ 0.42719600E+00-0.11771204E+00 0.30687597E+00 0.19784185E+00
+ 0.22538267E+00 0.75966686E-01 0.23985893E-01 0.45384716E-01
+ 0.53208251E+01 0.75190620E+01-0.22172494E+01-0.12778753E+00
+ 0.56682128E-01 0.18827899E+01 0.72104907E+00-0.80092132E+00
+ 0.77964395E+00-0.24134891E+00-0.46352610E+00 0.28311205E+00
+ 0.10742375E+01-0.41045341E+01 0.57498431E+01 0.83945713E+01
+ 0.23423393E+01-0.14150887E+01-0.54918933E+00-0.10221728E+01
+ 0.26822236E+00-0.12929893E+01 0.97145742E+00-0.42177832E+00
+ 0.68537563E+00-0.58753085E+00 0.14998870E+02-0.16657772E+02
+ 0.37549644E+02-0.95424957E+01-0.54443731E+01-0.14911759E+01
+ 0.17992316E+01 0.51960616E+01 0.45644295E+00-0.39563315E+01
+-0.49043798E+01 0.12105607E+00 0.70748419E+00-0.60123081E+01
+ 0.27362645E+01-0.13724414E+02 0.12894962E+01-0.14900351E+02
+-0.52518587E+01 0.34944665E+01-0.55088906E+01-0.13576542E+01
+-0.56548223E+01-0.14211199E+01-0.34091601E+00 0.21933839E+00
+-0.29305424E+02 0.13374522E+02 0.44242222E+02 0.50953383E+01
+ 0.65631719E+01-0.14111629E+02-0.65622892E+01 0.39515307E+01
+-0.34545369E+01-0.12505515E+00 0.29348438E+01-0.32276697E+01
+-0.90113583E+01 0.43037151E+02-0.89085785E+02 0.11644012E+02
+-0.24075853E+02 0.19164951E+02 0.77643185E+01 0.86020861E+01
+-0.46943688E+01 0.93667440E+01-0.74655390E+01 0.14679497E+01
+-0.47342935E+01 0.18102796E+01-0.85623055E+02 0.92817024E+02
+-0.23375591E+03 0.44671661E+02 0.45343346E+02 0.83043785E+01
+-0.13587065E+02-0.29296474E+02-0.10942899E+02 0.20286388E+02
+ 0.29787083E+02-0.44528899E+00-0.79419918E+01-0.14370024E+02
+-0.23429798E+02 0.72968773E+02-0.15687455E+02 0.10109998E+03
+ 0.26097256E+02-0.26932791E+02 0.35635754E+02-0.34211284E+00
+ 0.35934021E+02 0.61775665E+01 0.22777042E+01-0.23924460E+01
+ 0.57428696E+02-0.17855730E+03-0.15708559E+03-0.22408588E+02
+-0.40592297E+02 0.40333138E+02 0.14209915E+02-0.89817600E+01
+ 0.57742748E+01 0.57205853E+01-0.63581610E+01 0.10133678E+02
+ 0.26636444E+02-0.14794983E+03 0.30004440E+03-0.19929813E+03
+ 0.84621696E+02-0.69814247E+02-0.29103554E+02-0.25958654E+02
+ 0.20315407E+02-0.28830307E+02 0.23460487E+02-0.31325624E+01
+ 0.13810139E+02-0.21702385E+01 0.23797343E+03-0.23116394E+03
+ 0.57393121E+03-0.83598228E+02-0.12368264E+03-0.19707600E+02
+ 0.34384033E+02 0.70111160E+02 0.39034550E+02-0.41825325E+02
+-0.75330421E+02-0.22089810E+01 0.25101606E+02 0.10284250E+03
+ 0.69117165E+02-0.15603969E+03 0.39777988E+02-0.25606186E+03
+-0.60250473E+02 0.77766205E+02-0.99222710E+02 0.16326077E+02
+-0.91902000E+02-0.83012609E+01-0.85460234E+01 0.51328115E+01
+-0.39939327E+02 0.31202109E+03 0.21929730E+03 0.33807743E+02
+ 0.73635201E+02-0.49816437E+02-0.86225977E+01 0.10290629E+02
+-0.33790231E+01-0.12311239E+02 0.48300257E+01-0.12229668E+02
+-0.32109089E+02 0.20875215E+03-0.39679617E+03 0.38521735E+03
+-0.12168412E+03 0.91634483E+02 0.41888870E+02 0.34228813E+02
+-0.33702576E+02 0.39293419E+02-0.32169025E+02 0.41854286E+01
+-0.18185402E+02 0.11737410E+01-0.29656155E+03 0.26091183E+03
+-0.63637982E+03 0.62630611E+02 0.13731348E+03 0.20191547E+02
+-0.35748486E+02-0.76228554E+02-0.50450886E+02 0.36267136E+02
+ 0.83756058E+02 0.57476335E+01-0.32509529E+02-0.15768517E+03
+-0.66360435E+02 0.12792127E+03-0.30300962E+02 0.27846167E+03
+ 0.64009613E+02-0.94658752E+02 0.12312606E+03-0.32563572E+02
+ 0.10454442E+03 0.17428432E+01 0.15118477E+02-0.33578801E+01
+ 0.47491126E+01-0.15489160E+03-0.10394126E+03-0.16034281E+02
+-0.40621128E+02 0.22269804E+02-0.31044576E+00-0.47275276E+01
+ 0.55015851E-01 0.71959572E+01-0.86488312E+00 0.50432911E+01
+ 0.13676483E+02-0.10171490E+03 0.18161353E+03-0.21165048E+03
+ 0.60878799E+02-0.37977203E+02-0.20529871E+02-0.16520407E+02
+ 0.18732552E+02-0.19229500E+02 0.15826124E+02-0.22000675E+01
+ 0.87317457E+01-0.31610513E+00 0.13370317E+03-0.11240935E+03
+ 0.26245120E+03-0.15337643E+02-0.54398438E+02-0.74560561E+01
+ 0.13048158E+02 0.30778091E+02 0.21956047E+02-0.10538049E+02
+-0.33810032E+02-0.32820210E+01 0.14922835E+02 0.75884071E+02
+ 0.17452677E+02-0.31479095E+02 0.36800358E+01-0.11180386E+03
+-0.25325590E+02 0.41215767E+02-0.55677891E+02 0.18475767E+02
+-0.44003674E+02 0.18647236E+01-0.90560875E+01 0.22126122E+00
+ 0.59121020E-01-0.38882446E-01 0.10154726E+00-0.99066663E+00
+ 0.50862730E+00 0.37865343E-02-0.13369663E-01-0.14525892E-01
+ 0.73863156E-02-0.30057946E-01 0.92732534E-02-0.24269311E-01
+ 0.67565674E-02-0.24163937E-01-0.20808218E+00 0.18645240E-02
+-0.51261657E+00-0.78584683E+00-0.29707689E-01-0.29643602E-02
+-0.43101724E-01 0.92033194E-02-0.20032544E-01 0.12454584E-01
+-0.10859430E-01 0.14212405E-01-0.20849434E+00 0.50730848E+00
+ 0.54870909E+00 0.17681440E+01-0.10749120E+01 0.42078006E+00
+-0.26223657E+00 0.33963424E+00 0.82626760E-01 0.92897750E-01
+-0.60189381E-01-0.76034263E-01 0.18571973E-01 0.42013156E+00
+ 0.22726022E+00 0.90818733E+00 0.16409394E+01 0.20787294E+01
+ 0.16166556E+00 0.25318131E+00 0.91371499E-03-0.12026191E+00
+ 0.11957009E-01-0.17968928E-01 0.20824531E+00 0.10581681E+00
+ 0.18979921E+01 0.71559265E-01 0.89219481E+00-0.64803618E+00
+ 0.19108589E+01 0.61305553E-01-0.76099968E+00 0.66523030E-02
+ 0.38209528E+00-0.37404042E+00-0.24693862E-01-0.15020821E-01
+-0.21455880E+00 0.42901478E+01 0.27137227E+01 0.18731354E+01
+-0.25761666E+01-0.37876692E-01 0.42818061E+00-0.39081356E+00
+ 0.64281893E+00 0.43348350E-01 0.28045836E+00-0.51489584E-01
+ 0.33649018E+00 0.13021860E+00 0.61204880E+00-0.18564703E+01
+-0.39929540E+01 0.96122243E-01 0.16075824E+01-0.39626312E+01
+ 0.11777747E+01-0.33050480E+01-0.11639585E+01-0.89641178E+00
+ 0.77148652E+00 0.10184772E+01 0.13489571E+00-0.77427740E+01
+-0.11954879E+01-0.10486695E+02-0.58320417E+01-0.18617257E+01
+ 0.74399304E+00-0.28453026E+01-0.58667099E+00 0.11166003E+01
+-0.77045232E+00 0.64419031E+00-0.96420527E+00-0.97287238E+00
+-0.14225009E+02 0.82643967E+01-0.12470506E+02 0.23383005E+02
+-0.65144601E+01 0.16238860E+01 0.87209654E+01 0.49000898E+00
+-0.16810759E+01 0.40386558E+01-0.54124254E+00 0.10109010E+00
+ 0.19018241E+01-0.21727472E+02-0.96902895E+01-0.16478348E+02
+ 0.13098322E+02 0.13914478E+02-0.20104990E+01 0.37096817E+01
+-0.27436793E+01-0.43885440E-01-0.13556918E+01 0.84448802E+00
+-0.14343554E+01-0.20107965E+01-0.89594114E+00 0.10083544E+01
+ 0.83134689E+01-0.92639027E+01 0.61116376E+01 0.10380750E+02
+-0.26651862E+01 0.87228279E+01 0.38335390E+01 0.22555156E+01
+-0.13236306E+01-0.31068852E+01-0.87246418E+00 0.23570587E+02
+-0.42556520E+01 0.28354004E+02 0.33738234E+01-0.40777335E+01
+-0.38387177E+01 0.82230272E+01 0.30383515E+01-0.22789021E+01
+ 0.26750424E+01-0.16830761E+01 0.11110405E+01 0.25620415E+01
+ 0.29727594E+02-0.24605175E+02 0.28340710E+02-0.59987556E+02
+-0.22684792E+00-0.73963881E+01-0.18819962E+02-0.99585795E+00
+ 0.24640315E+01-0.93489466E+01 0.17905924E+01 0.29973716E+00
+-0.48281670E+01 0.32501541E+02 0.18787926E+02 0.36723728E+02
+-0.15535311E+02-0.37230057E+02 0.20521283E+01-0.89159498E+01
+ 0.26074269E+01-0.13309879E+01 0.20207708E+01-0.26565912E+01
+ 0.20663900E+01 0.51164727E+01-0.40171739E+00 0.11958817E+01
+-0.70398526E+01 0.46672320E+01-0.12406041E+02-0.77181621E+01
+ 0.25220163E+01-0.60711088E+01-0.32043297E+01-0.13135966E+01
+ 0.27531669E+00 0.25722663E+01 0.94680876E+00-0.20347054E+02
+ 0.94924231E+01-0.21017023E+02 0.51578898E+01 0.91074489E-01
+ 0.31714413E+01-0.65355906E+01-0.32284212E+01 0.13073928E+01
+-0.20606008E+01 0.10267882E+01-0.13762021E+00-0.18398629E+01
+-0.18292107E+02 0.18030376E+02-0.15053249E+02 0.42048473E+02
+ 0.93764210E+01 0.66455450E+01 0.11065763E+02 0.21237047E+00
+-0.12657822E+01 0.58830400E+01-0.11597257E+01-0.38042429E+00
+ 0.34563775E+01-0.12867409E+02-0.16812653E+02-0.25532946E+02
+ 0.17166659E+01 0.26918324E+02-0.10111470E+00 0.59210205E+01
+ 0.11573966E+00 0.15903757E+01-0.98362416E+00 0.20214050E+01
+-0.12598089E+01-0.36495934E+01 0.28310280E-01 0.48973437E-01
+-0.48619840E-01-0.72511427E-01 0.58058472E-02-0.57069111E+00
+-0.71659225E+00-0.18692106E-02 0.42772554E-01-0.31100757E-01
+ 0.13589856E-01-0.41641410E-01-0.74718855E-02-0.28761316E-01
+-0.29289359E+00-0.91049284E-01 0.28099608E-01-0.29132949E-01
+ 0.69334489E+00-0.55960542E+00-0.21222344E-01 0.24635848E-01
+ 0.21211600E-01-0.15531605E-02 0.26932620E-02 0.16090758E-01
+ 0.20954400E+00 0.73779237E+00-0.42621502E+00-0.23507123E+00
+-0.37294054E+00 0.17519316E+00 0.57431810E-01-0.47046978E-01
+ 0.15076196E-01-0.54287319E-02 0.58389850E-01-0.86825825E-01
+-0.17713912E-01-0.23256958E+00-0.20628646E+00 0.74116617E-01
+ 0.43207306E-01-0.11664169E+00-0.47020305E-01 0.75928085E-01
+-0.98211251E-01 0.93043060E-03 0.55244029E-01-0.46837240E-01
+-0.95012728E-02-0.13064935E-01 0.87182951E+00 0.98459274E-02
+ 0.13477666E+01 0.84805533E-01-0.90552852E-01 0.11711707E+01
+ 0.11748557E+01-0.12035688E+00 0.12323441E+00 0.49199241E+00
+-0.20814496E+00 0.27044243E+00-0.61024815E-01-0.74558862E-01
+ 0.37783556E+01-0.26144087E+00 0.38623143E-01 0.53248072E+00
+-0.10437831E+01 0.90481389E+00-0.44594201E+00-0.40208280E+00
+-0.60124949E-01-0.48902173E-01-0.11441462E+00-0.19880749E+00
+-0.13543634E+01-0.10415508E+01 0.12016990E+01 0.31708425E+00
+ 0.61210239E+00 0.58425140E+00 0.41064870E+00 0.33918127E+00
+ 0.11345342E-01 0.93263805E-01-0.17820968E+00 0.18072975E+00
+ 0.96731916E-01 0.32778770E+00 0.61795223E+00 0.38936533E-01
+-0.50377148E+00 0.31532276E+00-0.38423333E+00 0.74498868E+00
+ 0.17342281E+00 0.20069090E+00-0.13456018E+00 0.16104504E+00
+ 0.72342478E-01 0.79420209E-01-0.31249234E+00 0.92828923E+00
+-0.26748803E+01 0.70246682E-01 0.58934122E+00-0.16105400E+01
+-0.14977306E+01-0.18931707E-01-0.31899455E+00-0.82864511E+00
+ 0.36326492E+00-0.42674014E+00-0.46573725E-01 0.81409059E-01
+-0.52734656E+01 0.76651889E+00-0.32308713E+00-0.10347863E+01
+ 0.13800038E+01-0.11256927E+01 0.89915168E+00 0.71173912E+00
+ 0.48457179E-01 0.25199077E+00 0.14797410E+00 0.20402835E+00
+ 0.24246454E-01 0.33298835E-01-0.51717691E-01-0.14058649E-01
+ 0.17725911E-01-0.72037068E-03-0.37894547E-02 0.30802149E+00
+-0.16611566E+00-0.17199373E-01 0.13114575E-01-0.76011149E-02
+-0.20986781E-01 0.43441545E-01 0.33683844E-01-0.34691116E-02
+ 0.59443168E-01-0.51950090E-01 0.14247886E-01-0.17108589E-01
+ 0.14792427E+00 0.28507856E+00 0.35790657E-02 0.32111532E-02
+ 0.13911074E-02-0.73967529E-02-0.19056965E+00-0.73565212E-02
+-0.24821372E+00 0.15964326E-01-0.97779892E-01-0.89113951E-01
+ 0.58998290E-01 0.14977667E+00 0.37016949E+00-0.46572641E-01
+-0.31782843E-01-0.32574493E-02 0.12899466E-01 0.37356037E+00
+ 0.15084852E+00-0.12477553E+00 0.29166037E-01 0.21163251E+00
+-0.11922070E+00-0.11764953E+00-0.38922527E+00 0.26210438E-01
+ 0.71545686E-02-0.61420333E-01-0.20083405E-01-0.11609336E-01
+-0.15726325E+00 0.20085622E-01-0.33992976E-01-0.16686320E-01
+-0.15578196E-01-0.89996764E-02 0.52281570E-01 0.24140203E-01
+-0.13938872E-01 0.15512536E+00 0.19358249E+00 0.49229502E-02
+-0.39371615E-02 0.14834774E+00 0.25739465E-01-0.83402745E-01
+ 0.18065708E-01-0.55616297E-01-0.52165301E-02-0.17087549E-01
+ 0.21788107E-01 0.38194988E-01-0.19343592E+00 0.16540502E+00
+-0.46783774E-02-0.27857188E-01 0.57891991E-01-0.67955382E-01
+ 0.42646252E-01 0.22683810E-01 0.79109436E-02 0.28160231E-01
+-0.27141111E-01 0.41366834E-01-0.74150283E-02 0.70931404E-02
+-0.23410007E-01-0.12303041E+00 0.72064400E-01 0.10394365E+00
+ 0.57514329E-01-0.21865284E-01 0.21552900E-02 0.56937981E-01
+-0.20307319E-02 0.91909728E-03-0.14761715E-01 0.11957444E-01
+-0.14504174E-01-0.67575327E-02-0.97156227E-01-0.12803575E+00
+-0.39362207E-01-0.32046013E-01-0.55135102E-02 0.48773892E-01
+ 0.35422139E-01-0.15434346E-01-0.21533076E-01 0.26582329E-01
+-0.12274754E-01-0.12937960E-01-0.11175702E-01 0.53416751E-02
+ 0.67404481E-02 0.73514357E-01-0.38842116E-01 0.64909115E-01
+ 0.56321872E-02-0.52885335E-01 0.41649371E-01-0.11770996E-02
+-0.26402390E-01 0.25709886E-01-0.13926198E-02 0.27511716E-01
+ 0.84407153E-02 0.18437810E-01 0.43839946E-01 0.51004354E-01
+-0.11362996E+00-0.25646824E-01-0.38826078E-01-0.55158515E-02
+ 0.62045278E-02-0.30429460E-01 0.18208286E-01-0.11582433E-01
+ 0.17949345E-01-0.15534251E-01 0.51459920E-03-0.43065980E-01
+ 0.55039483E-02 0.27189227E-02 0.13957473E-01 0.87091923E-01
+ 0.10603105E-01 0.77987841E-03-0.24959501E-02 0.29643327E-01
+ 0.11370151E-01-0.18617267E-01-0.15555475E-01 0.72064400E-01
+ 0.30766914E+01-0.92550134E-02 0.13718505E-01 0.25895583E-02
+ 0.33574869E-03 0.78745289E-02 0.86438525E-02-0.60896222E-02
+-0.74246735E-03-0.50321376E+00 0.22363435E-01 0.60551178E-01
+ 0.54579623E-01-0.33105440E-01-0.27306173E-01-0.16869433E-01
+-0.11755095E-01 0.34014808E-02 0.10928845E+01 0.24034415E+00
+-0.11382686E+00-0.20328368E+00-0.24367245E-01-0.92177808E-01
+-0.59212130E-01 0.92386231E-01 0.51138084E-02 0.11338211E+01
+-0.36324242E+00-0.20184082E+00-0.19428015E+00 0.12432440E+00
+ 0.92264690E-01 0.44125546E-01 0.36674652E-01 0.35087094E-02
+-0.19719753E+01-0.64643306E+00 0.26046559E+00 0.49098560E+00
+ 0.92803150E-01 0.28286198E+00 0.15693869E+00-0.19568925E+00
+-0.20824329E-02-0.74346578E+00 0.34690487E+00 0.19643439E+00
+ 0.14222169E+00-0.96713386E-01-0.67438833E-01-0.23977172E-01
+-0.20441962E-01-0.10335058E-01 0.92457843E+00 0.46374896E+00
+-0.11210353E+00-0.29201853E+00-0.79533793E-01-0.21276265E+00
+-0.10755368E+00 0.10385718E+00-0.11526103E-02 0.57956658E-03
+-0.12857877E+00-0.37720919E+00 0.71668392E-02-0.15985873E-01
+ 0.35551095E-02-0.34057416E-03 0.14429940E-04 0.77074156E-02
+ 0.16609097E-01 0.39636013E+00-0.11226575E+00-0.17938472E-01
+ 0.14924302E-01-0.20589654E-02-0.79512065E-02 0.89895235E-04
+ 0.10084794E-01-0.84668107E-01 0.76170884E-01 0.11493012E+00
+ 0.58139663E-01-0.90520024E-01-0.49981788E-01-0.52669294E-01
+ 0.67823958E-02 0.27890796E-01 0.11318666E+00-0.73709123E-01
+ 0.20983368E-01-0.12963885E-01 0.24992188E-01-0.32588847E-02
+ 0.19097012E-02 0.37765738E-01 0.79129241E-01 0.79023778E-01
+ 0.42699623E+00 0.21301763E+01-0.24369007E+00-0.14716794E+00
+-0.96097685E-01-0.25467388E-01 0.65074660E-01-0.70087478E-01
+-0.67493325E+00-0.20482519E+01 0.44933867E+00 0.34022969E+00
+-0.98558955E-01 0.39792750E-01 0.53783178E-01-0.29130100E-03
+-0.84323861E-01 0.10565306E+01-0.90792572E+00-0.15945410E+01
+ 0.52398443E-01 0.60421151E+00 0.41048077E+00-0.23732608E-01
+ 0.20138571E+00-0.27786821E+00-0.57795197E-01 0.20736563E+01
+-0.39351213E+00 0.12668329E+00 0.84951319E-01 0.28178258E-01
+-0.23711748E-01-0.16345520E+00-0.57944131E+00-0.20411162E+00
+-0.13376068E+00-0.29449091E+01 0.41258937E+00 0.56290030E+00
+ 0.31165561E+00 0.20544067E+00-0.21796127E+00 0.47752853E-01
+ 0.20179317E+01 0.24129705E+01-0.70617986E+00-0.83160406E+00
+ 0.22868297E+00-0.11227272E+00-0.42454861E-01-0.91994748E-01
+ 0.24011090E+00-0.28024802E+01 0.13774416E+01 0.36972830E+01
+-0.59003949E+00-0.13606600E+01-0.84793615E+00 0.57913697E+00
+-0.74747223E+00 0.55327827E+00-0.22295168E+00-0.52054830E+01
+ 0.60161120E+00-0.30097663E+00-0.41190431E+00-0.10745584E+00
+-0.66798493E-01 0.33825681E+00 0.10680364E+01 0.27225360E+00
+-0.13481601E+00 0.12781663E+01-0.17782266E+00-0.43654701E+00
+-0.28031033E+00-0.21654996E+00 0.18418586E+00 0.50952464E-01
+-0.13763983E+01-0.62647796E+00 0.42017722E+00 0.53561598E+00
+-0.22507687E+00 0.83096340E-01-0.32817584E-01 0.12693739E+00
+-0.21098842E+00 0.21004002E+01-0.19308670E+00-0.28420036E+01
+ 0.45582688E+00 0.97629905E+00 0.47537673E+00-0.57095116E+00
+ 0.58855778E+00-0.29641420E+00 0.67884624E-01 0.40048332E+01
+-0.36370404E-01 0.15666211E+00 0.35521010E+00 0.11299833E+00
+ 0.86527780E-01-0.22095665E+00-0.55126411E+00-0.88387989E-02
+-0.10312352E-01-0.61113387E-02-0.20343257E-01-0.15003505E+00
+-0.10647348E-01-0.78879838E-03 0.66963251E-03-0.76038600E-02
+ 0.41395663E-02-0.34112083E-02 0.10996495E-01 0.17316753E+00
+-0.10291023E-01-0.73754769E-02-0.14292508E-01-0.21934167E-02
+ 0.18509438E-02 0.63759461E-01 0.23891982E+00 0.63553944E-01
+ 0.18635046E+00-0.57529569E+00 0.23344524E-01-0.40877607E-01
+ 0.17844956E-01-0.39308965E-01-0.51171139E-01 0.10197276E+00
+ 0.71252682E-02 0.72727478E+00 0.15855432E+00 0.49558837E-01
+-0.45434017E-01-0.18780010E-01 0.50435401E-02 0.15530051E-01
+ 0.14170410E+00-0.61096840E-01-0.37090287E-01-0.10134680E+00
+ 0.43753270E-01 0.16147131E-01 0.11646984E-01 0.15542092E-01
+-0.36590850E+00-0.32496876E-02-0.23358011E+00-0.45408837E-01
+-0.12131418E+00 0.92704944E-01 0.10798852E+00-0.10122197E-01
+ 0.33092615E-03-0.40528265E+00-0.12369304E+01-0.24165794E-01
+-0.74351096E+00 0.17940987E+01-0.18066379E+00 0.10244836E+00
+-0.25582047E-01 0.19211514E+00 0.76301038E+00-0.20792608E+00
+ 0.27201289E+00-0.23394880E+01-0.62358546E+00-0.24235266E+00
+ 0.63761316E-01 0.15015985E+00-0.11706612E+00-0.10061766E+00
+-0.37011167E+00 0.14104469E+00-0.26392074E-01 0.25978979E+00
+ 0.53946935E-02 0.15027906E-01-0.45017198E-01 0.68766944E-03
+ 0.53705126E+00-0.14921010E+00 0.35961419E+00-0.32242209E-01
+ 0.42051267E-01-0.12954605E+00-0.89045294E-01 0.19702064E-04
+-0.23211284E-01 0.49777216E+00 0.15834332E+01 0.39794613E-01
+ 0.63238031E+00-0.15466079E+01 0.28480631E+00-0.73767789E-01
+ 0.22335300E-01-0.21944922E+00-0.12544603E+01 0.71595207E-01
+-0.24489100E+00 0.20173306E+01 0.51294672E+00 0.28983241E+00
+ 0.99735051E-01-0.18368557E+00 0.18341650E+00-0.42410571E-01
+-0.52171294E-02 0.19085895E-02-0.95514078E-02 0.75655179E-02
+ 0.16171318E-01 0.16939323E-01 0.22008182E-02-0.19602047E-02
+-0.60261209E-02-0.52024610E-01-0.89434842E-02 0.10327846E-01
+-0.25033876E-01-0.14511695E-01 0.23334123E-01-0.61932360E-02
+ 0.28024365E-02 0.82942434E-01 0.45942049E-01 0.93686730E-02
+-0.41635599E-01 0.30467382E-01 0.41355919E-01 0.26757890E-01
+ 0.10544643E-01 0.57960446E-02 0.58556028E-01-0.45138933E-02
+-0.20666830E-01-0.21553095E-01 0.11791925E-01-0.26258841E-01
+ 0.53928331E-01-0.11998913E-01 0.21382065E-01 0.77182382E-01
+-0.48827209E-01-0.91188706E-01 0.14237206E-01-0.10213549E-01
+-0.94213583E-01-0.15220276E+00-0.12513259E-02 0.21464357E-01
+-0.15465503E-01 0.13954592E+00-0.39753947E-01-0.45017153E-01
+ 0.57116088E-01 0.15541755E+00-0.12666646E+00 0.11608529E-01
+ 0.80760103E-02-0.41384086E-01-0.10227784E-01 0.80588767E-02
+-0.46442337E-02-0.21833975E-02 0.53496994E-02-0.68548233E-02
+ 0.41308586E-01 0.59219892E-02-0.27170403E-01 0.62266630E-02
+-0.46112244E-02-0.12002573E-01 0.16872867E-02 0.85898452E-02
+ 0.16054403E-01-0.50134775E-02 0.41393556E-01 0.69590531E-01
+-0.37438667E-02 0.20416295E-01-0.48384883E-01-0.18482743E-01
+-0.26152568E-03 0.12390666E-01 0.16554868E-01 0.15767444E-01
+ 0.27102111E-01-0.50822388E-01 0.19041890E-01 0.45237873E-01
+-0.61440300E-02-0.86206961E-02-0.41923290E-02-0.37406992E-01
+ 0.99841179E-02-0.49510780E-02-0.68882159E-02-0.39861626E-02
+-0.19369667E-02-0.11413929E-02 0.49859667E-02-0.92119956E-02
+ 0.47657973E-03 0.34508729E-03 0.18523857E-01 0.17887400E-01
+-0.11042763E-01-0.10345280E-01-0.11657286E-01 0.51686917E-02
+ 0.27109310E-02 0.35306651E-02 0.11049252E-02 0.36995022E-02
+ 0.33790923E-02 0.36772604E-02-0.24134079E-02-0.38045826E-02
+ 0.39723795E-02 0.10341560E-02 0.54815668E-02-0.16316446E-02
+ 0.22392916E-01 0.57393694E-02-0.18493544E-01 0.23872721E-03
+ 0.48304014E-02-0.32244358E-03 0.17225273E-02-0.32498674E-02
+-0.64918457E-03 0.27327437E+01-0.15785564E-01 0.97018043E-02
+ 0.48172278E-02-0.28546432E-02 0.45274911E-02 0.34621279E-02
+-0.15102919E-02-0.27329123E-02-0.25903657E+00 0.55780217E-01
+ 0.65728329E-01 0.32537010E-01-0.25246153E-01-0.58772466E-02
+-0.21703182E-01-0.43969019E-02-0.69272384E-03 0.11714929E+01
+ 0.16338734E+00-0.89373522E-01-0.10331998E+00 0.13328508E-01
+-0.56765247E-01-0.25298420E-01 0.44980552E-01 0.17588584E-01
+ 0.33108100E+00-0.49494028E+00-0.18589833E+00-0.10610254E+00
+ 0.78505076E-01-0.88712927E-02 0.33990052E-01 0.10129429E-01
+ 0.43824976E-02-0.17302923E+01-0.27473363E+00 0.17417511E+00
+ 0.22498931E+00-0.11839691E-01 0.17832267E+00 0.89640006E-01
+-0.92783161E-01-0.12903627E-01-0.15330756E+00 0.43055135E+00
+ 0.16011506E+00 0.73783807E-01-0.51124744E-01 0.16581139E-01
+-0.11291335E-01-0.22684636E-02-0.43424224E-02 0.63714796E+00
+ 0.18350784E+00-0.42438373E-01-0.12726226E+00-0.10468658E-01
+-0.13165224E+00-0.66993155E-01 0.44999924E-01-0.64978427E-02
+ 0.79358937E-02-0.29707021E+00-0.28992331E+00 0.80166208E-02
+-0.15802497E-01-0.19063946E-02 0.49845497E-02 0.27219285E-03
+ 0.67873574E-02 0.62516500E-03 0.32199055E+00-0.27686164E+00
+-0.15336918E-01 0.17286168E-01 0.12508899E-02-0.14910120E-01
+ 0.12231509E-02 0.14304347E-01 0.16834082E-01 0.10278944E+00
+-0.63203834E-01 0.10091765E-01-0.13688602E-01-0.95551871E-02
+-0.36618944E-01-0.14316996E-01 0.35773881E-01 0.76245844E-01
+ 0.77808850E-01-0.12024795E-01 0.12149659E-01 0.17534763E-01
+ 0.12295829E-02-0.60971705E-02 0.14225282E-01 0.82393371E-01
+-0.15534867E+00 0.80440164E+00 0.12503365E+01-0.12217534E+00
+-0.85220747E-01-0.29276054E-01-0.48868369E-01 0.28717835E-01
+-0.10331116E+00-0.52347887E+00-0.13314192E+01 0.89782566E+00
+ 0.28488895E+00-0.12012097E+00-0.21137984E-01 0.12435994E+00
+-0.14031794E-01-0.16417257E+00 0.76694377E-01-0.93182540E+00
+ 0.25457191E+00 0.19702044E+00 0.48383981E-01 0.41341368E-01
+-0.14367604E-01 0.36359438E+00-0.25973442E+00 0.16930665E+00
+ 0.43561876E+00 0.67502417E-01-0.75919375E-01-0.20566436E-01
+ 0.45070466E-01 0.74356943E-01-0.47366299E-01-0.56628042E+00
+ 0.58145106E+00-0.34549749E+00-0.13091027E+01 0.17559958E+00
+ 0.43319133E+00 0.16244146E+00 0.20602815E+00-0.41776557E-01
+ 0.30710989E+00 0.17932121E+01 0.97565883E+00-0.11525728E+01
+-0.74104398E+00 0.24997143E+00 0.52191265E-01-0.24265365E+00
+-0.61648171E-01 0.39528716E+00-0.39080113E+00 0.15962688E+01
+-0.17618662E+00-0.74545747E+00-0.20102003E+00-0.15913907E-01
+ 0.36910924E+00-0.10008817E+01 0.41477209E+00-0.10000013E+01
+-0.15626558E+01-0.33813745E+00 0.20472082E+00 0.47138073E-01
+-0.14620386E+00-0.33509147E+00 0.74930072E-01 0.10780282E+01
+-0.40786570E+00 0.21695097E-02 0.61571985E+00-0.87222412E-01
+-0.40252182E+00-0.18569061E+00-0.16891396E+00 0.19968783E-01
+-0.22394384E+00-0.13754953E+01-0.63793459E-02 0.60612941E+00
+ 0.53394854E+00-0.20959119E+00-0.59920955E-01 0.10459418E+00
+ 0.97062908E-01-0.27976444E+00 0.39142886E+00-0.65925485E+00
+-0.55752856E+00 0.61146140E+00 0.21277002E+00-0.66732608E-01
+-0.38353363E+00 0.67082864E+00-0.16077600E+00 0.87837434E+00
+ 0.18233119E+01 0.43625033E+00-0.18887997E+00-0.19754047E-01
+ 0.14874180E+00 0.31835011E+00-0.25374444E-01-0.59807515E+00
+-0.35858257E-02-0.18426422E-01 0.11940397E-01 0.35249278E-01
+-0.11406703E+00-0.12094727E-01 0.12369556E-02 0.28486021E-02
+-0.41241115E-02-0.44571543E-02-0.12385954E-01 0.10621492E-01
+ 0.11439821E+00 0.52063718E-01-0.31545039E-02-0.91192275E-02
+-0.23166044E-02 0.18062951E-02 0.77467859E-01 0.19298270E+00
+ 0.57610362E-02 0.17876288E+00-0.28498143E+00 0.33583455E-01
+-0.21250669E-02 0.40939944E-02-0.17955484E-01 0.18605869E-01
+ 0.88920861E-01-0.16398907E-01 0.37881327E+00 0.19283801E+00
+ 0.35964742E-01-0.57503371E-03-0.16725548E-01 0.14335946E-01
+-0.39326932E-01 0.15444148E+00-0.13056353E+00-0.27956468E+00
+ 0.53259443E-01 0.70716918E-01 0.21401586E-01-0.33642214E-01
+ 0.21223655E-01-0.20482560E+00 0.36653712E-01-0.11544807E+00
+-0.96398272E-01-0.40236861E+00 0.14114498E-01 0.74856617E-01
+ 0.13251967E-01 0.58944183E-02-0.22919865E+00-0.93992049E+00
+ 0.22374582E+00-0.53515422E+00 0.77677137E+00-0.16614506E+00
+-0.86691096E-01 0.29328503E-01 0.12252356E+00 0.30133858E+00
+-0.19458076E+00 0.14997202E+00-0.10709431E+01-0.48711553E+00
+-0.11093743E+00-0.55874560E-01 0.11211873E+00-0.14200687E+00
+ 0.17139059E-01-0.40209791E+00 0.19722582E+00 0.75891189E-01
+-0.96643463E-01-0.82315318E-01-0.36470420E-02 0.47883753E-01
+-0.17165303E-01 0.32197592E+00-0.29618844E+00 0.99401399E-01
+ 0.21706817E+00 0.22001296E+00-0.53230442E-01-0.68153217E-01
+-0.20923691E-01-0.37170000E-01 0.10419927E+00 0.12077615E+01
+-0.25412044E+00 0.44525284E+00-0.71311611E+00 0.24982084E+00
+ 0.11983401E+00-0.38160987E-01-0.16348417E+00-0.60997337E+00
+ 0.27142987E+00-0.35729647E-01 0.90510237E+00 0.34794793E+00
+ 0.13886355E+00 0.16090356E+00-0.10832496E+00 0.19660074E+00
+-0.28633850E-01-0.51487325E-03 0.12486504E-01-0.59260265E-02
+-0.30928615E-02 0.16670747E-01-0.18133426E-01 0.13137640E-02
+-0.29191643E-02-0.73401621E-02-0.43932945E-01-0.60264287E-02
+ 0.11825816E-01-0.20122048E-01 0.13404754E-01 0.25719734E-01
+-0.27513448E-02-0.39640418E-02 0.54108258E-01 0.62069230E-01
+ 0.32028572E-02-0.30705713E-01 0.21409197E-01 0.68470776E-01
+ 0.18883282E-01 0.12196345E-02-0.59491460E-03 0.44463780E-01
+ 0.15322219E-02-0.11973175E-01-0.23743760E-01 0.23724630E-02
+-0.18886378E-01 0.65881431E-01-0.61001866E-02 0.12625720E-01
+ 0.42619128E-01-0.87218329E-01-0.71985729E-01 0.61123907E-02
+-0.80230413E-02-0.94753467E-01-0.10718403E+00 0.44616999E-03
+ 0.18477114E-01-0.49196170E-02 0.10727092E+00-0.36542352E-01
+-0.19530224E-01 0.29819097E-01 0.11121344E+00-0.11566354E+00
+-0.12570542E-02 0.71676592E-02-0.28708642E-01-0.12917655E-01
+ 0.10160701E-01-0.15056655E-02-0.51682289E-02 0.13105695E-02
+-0.69624763E-02 0.31344198E-01 0.13837171E-01-0.15254789E-01
+ 0.17759033E-02-0.10812398E-01-0.43772645E-02-0.18710297E-02
+ 0.43232990E-02 0.13123615E-01-0.15094435E-01 0.28170321E-01
+ 0.47917835E-01 0.23561502E-02 0.78526502E-02-0.31751979E-01
+-0.63430383E-02-0.38912459E-02 0.14013788E-01 0.21223193E-01
+ 0.36825228E-01 0.24586657E-01-0.54429136E-01 0.31562790E-01
+ 0.22680206E-01 0.70566137E-03-0.58405814E-02-0.98891770E-02
+-0.44559006E-01 0.10059295E-01 0.96068269E-03-0.11706586E-01
+ 0.22053521E-02 0.32256660E-02-0.55763084E-02 0.31189667E-02
+-0.83871549E-02 0.37916502E-03 0.65405335E-03 0.91339229E-02
+ 0.15419393E-01-0.98529020E-02-0.21402466E-02-0.34411531E-02
+ 0.44119060E-02 0.64586932E-02 0.16170664E-02 0.65145995E-02
+ 0.20680716E-02 0.92757810E-02 0.41878442E-02 0.99740468E-03
+-0.10964575E-01 0.11091142E-03 0.14305855E-02 0.14857621E-02
+ 0.76322776E-03 0.71551851E-02-0.16748263E-02-0.11113628E-01
+ 0.20171816E-02 0.70238686E-02 0.14452589E-02 0.47303335E-03
+-0.38445606E-02 0.29371867E-02
diff --git a/input/glow_data/iri90/ccir19.asc b/input/glow_data/iri90/ccir19.asc
new file mode 100644
index 0000000..5ef4df3
--- /dev/null
+++ b/input/glow_data/iri90/ccir19.asc
@@ -0,0 +1,715 @@
+ 0.60445695E+01-0.13494897E+00 0.96523471E-01 0.30800914E-01
+-0.25691688E-02-0.24381364E-01-0.20869752E-01 0.36958508E-01
+-0.24559852E-01 0.99607911E-02 0.18155642E-02 0.16870741E-04
+-0.14172103E-01-0.72683138E+00-0.18670639E+00 0.51046336E+00
+-0.36924446E+00-0.19951835E+00-0.26578641E+00 0.36712724E+00
+-0.13204169E+00-0.27474661E-02 0.22398602E-01-0.15810436E+00
+ 0.48819307E-01 0.84509522E-01 0.13992862E+02 0.23779745E+01
+-0.22226188E+01 0.20291131E+01 0.90447301E+00 0.73813629E+00
+ 0.10136298E+01-0.49498451E+00 0.72660756E+00-0.77001888E+00
+-0.32229844E+00 0.19383496E+00 0.34973943E+00 0.33502454E+00
+-0.41584191E+01-0.30603714E+01 0.73569479E+01 0.64584503E+01
+ 0.61389766E+01-0.67864485E+01 0.15375274E+01 0.11104467E+01
+ 0.45180345E+00 0.31834459E+01-0.39800099E+00-0.16252377E+01
+-0.98461967E+02-0.11804735E+02 0.13932345E+02-0.21968882E+02
+-0.18346836E+02-0.64648104E+01-0.44017797E+01 0.21018789E+01
+-0.50670667E+01 0.55518346E+01 0.14706390E+01-0.12416881E+01
+-0.32495730E+01 0.24509441E+02 0.18994970E+02-0.48482704E+01
+-0.31010715E+02-0.24011599E+02-0.33442169E+02 0.34668297E+02
+-0.85968723E+01-0.92274466E+01-0.22783225E+01-0.16358894E+02
+ 0.99501222E+00 0.78107009E+01 0.21546281E+03 0.30437609E+02
+-0.30536016E+02 0.66628876E+02 0.65871796E+02 0.18404390E+02
+ 0.62645345E+01-0.42978358E+01 0.12689314E+02-0.13794364E+02
+-0.23129451E+01 0.28023379E+01 0.10037551E+02-0.63695538E+02
+-0.22283279E+02 0.36996841E+02 0.50817825E+02 0.28390305E+02
+ 0.72428009E+02-0.71910110E+02 0.21617928E+02 0.24796774E+02
+ 0.37806880E+01 0.33501648E+02-0.13203067E+01-0.16414623E+02
+-0.21614815E+03-0.35832664E+02 0.27470688E+02-0.79447624E+02
+-0.83696152E+02-0.21164886E+02-0.25409181E+01 0.43153014E+01
+-0.12989493E+02 0.14197570E+02 0.14302781E+01-0.27501328E+01
+-0.12051160E+02 0.50732521E+02 0.19075854E+01-0.50831139E+02
+-0.35323662E+02-0.81260357E+01-0.68726357E+02 0.65579124E+02
+-0.23836714E+02-0.26761435E+02-0.26312616E+01-0.30050358E+02
+ 0.11140531E+01 0.15877548E+02 0.83067856E+02 0.14992576E+02
+-0.86386423E+01 0.32848270E+02 0.35260712E+02 0.85520496E+01
+-0.31619912E+00-0.16816278E+01 0.46327853E+01-0.52116356E+01
+-0.27778086E+00 0.10079776E+01 0.49246526E+01-0.10440203E+02
+ 0.58246608E+01 0.21354177E+02 0.85120945E+01-0.24493570E+01
+ 0.23852114E+02-0.21972420E+02 0.94112186E+01 0.10090175E+02
+ 0.65944129E+00 0.98899641E+01-0.44724047E+00-0.57489376E+01
+-0.63381091E-01 0.20475085E+01 0.15625848E+01-0.13729405E-01
+-0.65938756E-01-0.35532121E-01-0.29464888E-02 0.79189196E-01
+ 0.18604737E-02 0.96583366E-02 0.30324928E-01 0.14240874E-02
+-0.19405013E-01-0.23046065E-01-0.14310176E+01 0.19285048E+01
+-0.16601916E-01 0.18041897E+00-0.12310948E-01-0.66375285E-01
+ 0.31838231E-01-0.65732598E-02-0.13759874E-01 0.18407125E-01
+-0.24185097E-01 0.10961994E-01-0.74787430E-01 0.16353496E+01
+-0.22924951E+00 0.47504836E+00-0.96047330E+00-0.33705956E+00
+ 0.11720680E+00-0.35202015E-01 0.46376839E+00-0.10265652E-01
+-0.14193834E+00 0.55663763E-02 0.19628496E+00-0.12596104E+00
+ 0.14582266E+01-0.98657086E-01 0.94749078E-01 0.78419155E+00
+-0.29752413E-01-0.19540650E+00 0.36470249E+00 0.27288207E+00
+ 0.13509390E+00-0.56428380E-01-0.11677991E+00-0.53491343E-01
+ 0.19545885E+01 0.11435436E+02 0.84868221E+01 0.32103235E+00
+ 0.12959203E+01 0.88761157E+00 0.49820134E+00-0.11861235E+01
+-0.71958087E-01-0.25178078E+00-0.12668631E+01-0.35598647E-01
+ 0.32306072E+00-0.32294741E+01-0.95716171E+01 0.12515850E+02
+ 0.23365383E+01 0.91575392E-01-0.88255316E+00 0.17265298E+01
+-0.47084525E+00 0.12570558E+01 0.15405376E+00 0.85922658E+00
+ 0.83317697E+00-0.39139026E+00 0.11067981E+01-0.20162714E+02
+ 0.14454757E+02-0.86500759E+01 0.16342585E+02 0.64312339E+01
+-0.42658453E+01-0.13463537E+00-0.77128196E+01 0.24014208E+01
+ 0.39491782E+01 0.46762183E+00-0.34915750E+01 0.46240864E+01
+-0.27222712E+02 0.80155439E+01-0.32276535E+01-0.17326429E+02
+ 0.45502667E+01 0.41100821E+01-0.76522098E+01-0.50376501E+01
+-0.25007749E+01 0.33137116E+00 0.32376506E+01 0.32104585E+00
+ 0.24788020E+01-0.65718430E+02 0.30561613E+02 0.72700047E+01
+-0.19604420E+02-0.72012863E+01-0.44401312E+01 0.93486271E+01
+ 0.33760922E+01 0.81467517E-01 0.93344440E+01 0.74155289E+00
+-0.13300089E+01 0.34563679E+02-0.28905020E+02-0.76245705E+02
+-0.21742231E+02-0.73547716E+01 0.10644203E+02-0.10774131E+02
+ 0.45778413E+01-0.11885620E+02-0.60007966E+00-0.11258645E+02
+-0.67847219E+01 0.38254924E+01-0.19042896E+02 0.11207795E+03
+-0.28545294E+02 0.46980576E+02-0.61684097E+02-0.24524796E+02
+ 0.27351971E+02 0.67426047E+01 0.44498322E+02-0.20013243E+02
+-0.25409010E+02-0.27430830E+01 0.19376114E+02-0.52723091E+02
+ 0.99575500E+02-0.13353540E+02 0.95136633E+01 0.99035027E+02
+-0.30965115E+02-0.18851999E+02 0.40043255E+02 0.25284658E+02
+ 0.14075030E+02 0.11309584E+01-0.20960064E+02-0.15822057E+01
+-0.48169975E+02 0.94947174E+02-0.23541681E+03-0.43397125E+02
+ 0.64458717E+02 0.22686687E+02 0.10289151E+02-0.30886675E+02
+-0.14552165E+02 0.30687971E+01-0.24410389E+02-0.24599547E+01
+ 0.13256648E+01-0.10717301E+03 0.22662590E+03 0.13886285E+03
+ 0.76127411E+02 0.35750031E+02-0.36212978E+02 0.21812931E+02
+-0.18747749E+02 0.38481537E+02 0.29832237E+01 0.37119461E+02
+ 0.18805193E+02-0.13755708E+02 0.97456581E+02-0.27367038E+03
+-0.62144730E+02-0.11783699E+03 0.86211739E+02 0.28845253E+02
+-0.65351234E+02-0.25876451E+02-0.10882457E+03 0.56715382E+02
+ 0.64410553E+02 0.43075614E+01-0.45408981E+02 0.15016524E+03
+-0.12772850E+03-0.25741722E+02-0.16592799E+01-0.24547108E+03
+ 0.70262955E+02 0.35663345E+02-0.83696991E+02-0.53332424E+02
+-0.35324783E+02-0.94713192E+01 0.54111397E+02 0.49722629E+01
+ 0.10506150E+03-0.35246891E+02 0.37882608E+03 0.76265465E+02
+-0.77831039E+02-0.30161860E+02-0.64913325E+01 0.43002579E+02
+ 0.21760742E+02-0.60918565E+01 0.27057970E+02 0.25830400E+01
+ 0.15233262E+01 0.13615527E+03-0.35940277E+03-0.10190280E+03
+-0.10915962E+03-0.63814045E+02 0.46641560E+02-0.12899118E+02
+ 0.29911598E+02-0.51161182E+02-0.58345952E+01-0.46785748E+02
+-0.20363272E+02 0.19093109E+02-0.17207220E+03 0.30198877E+03
+ 0.17715979E+03 0.13847585E+03-0.45248798E+02-0.24912093E+01
+ 0.66965683E+02 0.35798885E+02 0.11744838E+03-0.66378052E+02
+-0.71170624E+02-0.11229161E+01 0.46958759E+02-0.15008180E+03
+ 0.48165199E+02 0.66421715E+02-0.11201522E+02 0.28107013E+03
+-0.61901672E+02-0.33674416E+02 0.75491982E+02 0.52029320E+02
+ 0.41378738E+02 0.16554775E+02-0.61346951E+02-0.63890009E+01
+-0.64716988E+02-0.60834203E+01-0.18212560E+03-0.42207047E+02
+ 0.31869562E+02 0.14135931E+02-0.47822112E+00-0.21003960E+02
+-0.10799576E+02 0.31178300E+01-0.10885387E+02-0.69965732E+00
+-0.20979679E+01-0.62125351E+02 0.17012572E+03 0.26723660E+02
+ 0.53963669E+02 0.37830799E+02-0.20305946E+02-0.10621082E+01
+-0.15930128E+02 0.23917713E+02 0.34242952E+01 0.20282827E+02
+ 0.73727045E+01-0.88406191E+01 0.97107460E+02-0.12479255E+03
+-0.10509427E+03-0.61543755E+02 0.48847432E+01-0.85133734E+01
+-0.24883598E+02-0.16887283E+02-0.46089825E+02 0.27499294E+02
+ 0.28551277E+02-0.10849844E+01-0.17723860E+02 0.46780483E+02
+ 0.82450275E+01-0.36148045E+02 0.53822312E+01-0.12206293E+03
+ 0.17168350E+02 0.13732118E+02-0.24196617E+02-0.19565023E+02
+-0.18214315E+02-0.86782436E+01 0.25485151E+02 0.25449452E+01
+ 0.95903993E-01 0.12766166E+00-0.18699701E+00-0.10404546E+01
+-0.33024654E-01 0.64295433E-01-0.23013584E-01-0.10285793E-01
+ 0.37326079E-01 0.31895945E-02 0.30733405E-01-0.10633793E-01
+ 0.97853728E-02 0.52426510E-01-0.93061021E-02-0.71888246E-01
+ 0.19813684E+00-0.72505492E+00-0.19345094E-02-0.19068209E-01
+-0.36769819E-01 0.53982814E-02-0.14521895E-01 0.23320390E-01
+-0.12640823E-02 0.60315416E-02 0.46948263E+00 0.12817408E+01
+ 0.52438563E+00 0.58714247E+00-0.23273043E+00 0.46726218E+00
+-0.28142142E+00 0.50233081E-01-0.11847415E+00-0.78053989E-01
+-0.36326803E-01-0.14682151E+00 0.96851006E-01 0.68315560E+00
+ 0.54635304E+00 0.54994017E+00 0.64071083E+00 0.38787290E+00
+ 0.12569439E+00 0.33838964E+00-0.25519842E+00-0.18448704E+00
+-0.18360077E+00-0.28392771E+00 0.12267494E+00 0.58491524E-01
+ 0.66295362E+00-0.11465982E+01 0.44839840E+01 0.63690023E+01
+-0.21015067E+01-0.15754128E+01 0.21561065E+00 0.82991850E+00
+-0.24949779E+00 0.12380320E+00-0.32161883E+00-0.23786856E+00
+-0.31155005E+00 0.14305441E+01 0.57962000E+00 0.32569954E+01
+-0.28792398E+01 0.34138973E+01-0.71248835E+00-0.62034968E-01
+ 0.14145756E+01 0.23729173E-01-0.19871333E+00-0.66435295E+00
+ 0.17309137E-01 0.12985046E-02-0.47963367E+01-0.89218206E+01
+-0.36218772E+01 0.90268250E+01-0.87401462E+00-0.29467752E+01
+ 0.10264589E+01-0.11269215E+01 0.13553836E+01 0.10891480E+01
+ 0.17733830E+01 0.15696553E+01-0.47471687E+00-0.50660028E+01
+-0.33092887E+01-0.32716267E+01-0.14229895E+01 0.11620011E+02
+ 0.96331590E+00-0.26582198E+01 0.10442986E+01 0.50223678E+00
+ 0.14703425E+01 0.40092273E+01-0.53163874E+00-0.32783002E+00
+-0.91051664E+01 0.17604088E+02-0.22866295E+02-0.28144238E+01
+ 0.20614243E+02 0.94886522E+01-0.77871466E+00-0.35348945E+01
+ 0.17768615E+01-0.16262704E+01-0.12231375E+00 0.21009269E+01
+ 0.29577000E+01-0.74458656E+01 0.18080215E+01-0.13265327E+02
+ 0.81773024E+01 0.70696664E+01 0.32722304E+01 0.41111064E+01
+-0.59407196E+01-0.56068152E+00 0.22052250E+01 0.37547357E+01
+-0.12558265E+01 0.11403291E+01 0.10656018E+02 0.17880117E+02
+ 0.63293304E+01-0.30708920E+02 0.19644450E+01 0.56080647E+01
+-0.20938640E+01 0.40487800E+01-0.39456055E+01-0.30156834E+01
+-0.52191610E+01-0.42830544E+01 0.71889979E+00 0.10659558E+02
+ 0.14922249E+01 0.54132767E+01 0.28934119E+01-0.37208477E+02
+-0.38359447E+01 0.57908921E+01-0.21831961E+00 0.91132575E+00
+-0.33404295E+01-0.10999828E+02 0.95123515E-01 0.62245464E+00
+ 0.21184179E+02-0.49009296E+02 0.41135643E+02-0.23144958E+02
+-0.44450764E+02-0.21969942E+02 0.31099708E+01 0.57433114E+01
+-0.42183104E+01 0.41270490E+01 0.23304346E+01-0.47546310E+01
+-0.74363651E+01 0.14705822E+02-0.11686625E+02 0.15904526E+02
+-0.11272635E+02-0.37194714E+02-0.40984364E+01-0.12301613E+02
+ 0.77951894E+01 0.56480533E+00-0.55646262E+01-0.60771265E+01
+ 0.43992543E+01-0.39650044E+01-0.80576096E+01-0.10058566E+02
+-0.42752757E+01 0.22247026E+02-0.14402002E+01-0.33199692E+01
+ 0.17421428E+01-0.34508293E+01 0.32978044E+01 0.24247870E+01
+ 0.38595335E+01 0.32630551E+01-0.44972682E+00-0.69929409E+01
+ 0.46824846E+01-0.20134742E+01-0.25459471E+01 0.26119644E+02
+ 0.29910052E+01-0.36391468E+01-0.93128592E+00-0.17195288E+01
+ 0.21541712E+01 0.83281469E+01 0.72017050E+00-0.27138808E+00
+-0.15138537E+02 0.36185287E+02-0.22484388E+02 0.22932758E+02
+ 0.28119076E+02 0.15488616E+02-0.30330801E+01-0.34491429E+01
+ 0.28721263E+01-0.30168860E+01-0.23003569E+01 0.31897192E+01
+ 0.54570012E+01-0.10177624E+02 0.91815348E+01-0.54682875E+01
+ 0.65655260E+01 0.30150761E+02 0.12102582E+01 0.89690657E+01
+-0.31353066E+01 0.28226671E+00 0.41323018E+01 0.27218044E+01
+-0.37113197E+01 0.31892061E+01-0.56241829E-01 0.73317058E-01
+-0.23292311E+00-0.61917238E-01 0.11740326E+00-0.28218538E+00
+-0.69195360E+00 0.36205132E-01 0.38509484E-01 0.25892833E-01
+ 0.39562065E-01-0.88990778E-02-0.71549118E-02 0.10465758E+00
+-0.25458544E+00-0.65254413E-01 0.92262980E-02-0.97085372E-01
+ 0.68069780E+00-0.31799850E+00-0.16797258E-01 0.35726070E-01
+ 0.86577646E-02-0.35667919E-01 0.55345451E-02-0.37628175E-02
+-0.15063886E+00 0.63173950E+00 0.58640532E-01-0.11310439E+00
+-0.56205934E+00-0.12007036E+00-0.60520858E+00-0.13778128E+00
+ 0.53372163E-01 0.55302665E-01 0.43478370E-01 0.42523559E-01
+-0.29654521E-01-0.46249099E-01-0.18232642E+00 0.18445110E+00
+ 0.11651336E+00-0.13888021E+00 0.77584624E+00-0.20802420E+00
+-0.27784950E+00-0.12532072E+00-0.95613144E-01-0.53957444E-01
+ 0.21425946E-01-0.73493482E-02 0.32895875E+00 0.57959902E+00
+ 0.17125003E+01 0.64916812E-01-0.66671216E+00 0.42497212E+00
+ 0.10747848E+01-0.29168382E+00-0.33504639E-02-0.39606754E-01
+-0.48538277E+00-0.46966869E-01 0.79471610E-01-0.63520753E+00
+ 0.35119760E+01-0.12184794E+01 0.14708529E+00 0.32728174E+00
+-0.13452771E+01 0.91351074E+00-0.10723860E+00-0.46364650E+00
+-0.17759089E+00 0.33546487E-03-0.68300068E-01 0.33596814E-01
+-0.32629791E+00-0.10383365E+01 0.18383627E+00-0.12193326E+00
+ 0.95989013E+00 0.17567472E+00 0.10174921E+01 0.54608107E+00
+-0.69135964E-01-0.16146509E+00-0.69958568E-01-0.12977321E+00
+ 0.74624196E-01-0.34265670E+00 0.70992500E+00-0.20130862E+00
+-0.87979764E+00 0.27189708E+00-0.16422273E+01 0.42830017E+00
+ 0.45904860E+00 0.39268953E+00 0.97692028E-01 0.53528871E-01
+-0.25272183E-02-0.82533369E-02 0.30163246E+00-0.75499952E+00
+-0.23318834E+01 0.28877845E+00 0.12862626E+01-0.79786736E+00
+-0.10814675E+01 0.10795548E+00-0.14806841E+00 0.30484816E-01
+ 0.60364807E+00 0.24701132E+00-0.16554859E+00 0.75564712E+00
+-0.49911842E+01 0.25221035E+01-0.50133252E+00-0.11462419E+00
+ 0.19772404E+01-0.17406584E+01 0.17858028E+00 0.75754690E+00
+ 0.32222256E+00 0.12655260E+00 0.14917502E+00-0.11977191E+00
+ 0.76102793E-01-0.43147720E-01-0.81818521E-01 0.19644612E-01
+ 0.33825956E-01 0.25999684E-01 0.32359265E-01 0.29988968E+00
+-0.63901916E-01 0.23167776E-02 0.22926815E-01-0.77330978E-02
+ 0.10746138E-02 0.12264740E+00 0.20447599E-01 0.59562452E-01
+ 0.19856852E-01-0.11300006E+00-0.29754141E-01-0.44352575E-02
+ 0.56839380E-01 0.25084686E+00-0.56135736E-03-0.54703793E-02
+ 0.48170928E-02-0.36291028E-02 0.24246810E-01 0.65477557E-01
+ 0.12209361E+00-0.99905565E-01-0.29400787E+00-0.25406672E-01
+ 0.31711336E-01 0.17040537E+00 0.24152596E+00-0.77344932E-01
+ 0.33627842E-01-0.97614238E-02 0.20799657E-01 0.12910360E+00
+ 0.27060756E-01-0.15518239E+00 0.15885320E+00 0.30369675E+00
+-0.49701214E-01-0.10029802E+00-0.28022015E+00 0.36929357E-02
+ 0.24210740E-01-0.16487345E-01 0.94972895E-02-0.56310687E-02
+-0.11048770E+00-0.25132010E-01-0.74848481E-01-0.36955964E-01
+-0.84306849E-02 0.59861795E-03 0.43695938E-01 0.46816003E-02
+-0.12226735E-01 0.69531336E-01 0.23915982E+00-0.52309283E-02
+-0.14996283E-01 0.29184736E-01 0.55157773E-01 0.20157386E-01
+ 0.30791920E-01-0.58250558E-01-0.56456961E-02-0.21537563E-01
+ 0.28616695E-01-0.26698606E-02-0.25978240E+00 0.62796988E-01
+ 0.22548081E-02-0.23580464E-02 0.47859617E-01-0.17690947E-01
+-0.53106416E-02-0.21001626E-01-0.39911261E-02 0.21716015E-01
+-0.17059458E-01 0.28004622E-01 0.10446360E-01-0.44645024E-02
+-0.42491471E-02-0.13451762E+00-0.59785281E-03-0.11083220E-01
+ 0.54354630E-01-0.40297960E-02 0.53323619E-01 0.48851684E-01
+ 0.93341740E-02-0.30359656E-05-0.13635743E-01-0.13263462E-01
+-0.91869375E-02-0.23183506E-01 0.10026116E-02-0.14598797E+00
+-0.39637778E-01 0.34675904E-01-0.13779508E-01 0.31649983E-02
+ 0.24430851E-01-0.10841477E-01-0.87321568E-02 0.24531895E-01
+-0.39002334E-02-0.10708721E-01-0.32987449E-01 0.29985204E-02
+ 0.48053171E-02 0.86180255E-01 0.39627044E-02 0.22435104E-01
+ 0.21348750E-01-0.34228362E-01-0.53658383E-03 0.33991758E-01
+-0.37611157E-01 0.23497487E-02-0.50931578E-02 0.65411784E-03
+ 0.11545370E-01-0.11957943E-02-0.27704688E-01 0.11326194E-01
+-0.12809221E+00 0.25609735E-01-0.43673404E-01-0.19919191E-01
+ 0.57441801E-01 0.13651283E-02 0.99236434E-02 0.11110033E-02
+-0.88214837E-02 0.10099307E-01 0.23763576E-03-0.32913532E-01
+ 0.35655253E-01-0.93667448E-01 0.22362642E-01 0.35769939E-01
+ 0.23009181E-01 0.10751249E-01 0.21540695E-02-0.16343425E-02
+-0.27889894E-01-0.19826155E-01-0.16842147E-02 0.94351284E-02
+ 0.89623709E+01 0.19730670E-01 0.21596248E+00 0.50009090E-01
+-0.21762836E-02-0.36576837E-01-0.37319519E-01 0.31727146E-01
+-0.24356844E-01 0.29576533E-01 0.85489517E-02-0.13777472E-01
+-0.97738234E-02 0.33469999E+00-0.24697515E+00 0.48163033E+00
+-0.35931331E+00-0.15751718E-01-0.13071296E+00 0.29412560E-01
+-0.13171205E+00-0.74888915E-01-0.31300247E-01-0.69453977E-01
+ 0.31701785E-01 0.48052177E-01 0.24180008E+02-0.59165543E+00
+-0.37481437E+01 0.27094533E+01 0.17237262E+01 0.33680838E+00
+ 0.12361391E+01-0.40080991E+00 0.24777052E+00-0.11386623E+01
+-0.26397088E+00 0.51696777E+00 0.26516542E+00-0.45573082E+01
+ 0.22108464E+01-0.33646340E+01 0.54219594E+01 0.28218365E+01
+ 0.23740580E+01-0.16911587E+01 0.25113804E+01 0.21021688E+01
+ 0.10237397E+00 0.14552329E+01-0.97442865E-01-0.11147535E+01
+-0.11681603E+03 0.18470577E+01 0.18251852E+02-0.25811161E+02
+-0.20601797E+02-0.18826652E+01-0.56787043E+01 0.29563882E+01
+-0.94193526E-01 0.73134317E+01 0.93215400E+00-0.28211844E+01
+-0.22883477E+01 0.19154861E+02-0.18602942E+02 0.20144350E+02
+-0.16414492E+02-0.60010877E+01-0.12694320E+02 0.97623625E+01
+-0.14265865E+02-0.14238819E+02 0.14062835E+00-0.69437256E+01
+-0.15784086E+00 0.63612428E+01 0.18642741E+03 0.41710634E+01
+-0.36739273E+02 0.75611092E+02 0.65239151E+02 0.62713485E+01
+ 0.90178194E+01-0.86719627E+01-0.24287522E+01-0.17567657E+02
+-0.38892239E+00 0.58335896E+01 0.67666426E+01-0.25843210E+02
+ 0.54234547E+02-0.64408768E+02 0.10873847E+02-0.72628431E+01
+ 0.26647579E+02-0.19763281E+02 0.33570370E+02 0.35707272E+02
+-0.12532645E-01 0.12849774E+02 0.64608556E+00-0.15312591E+02
+-0.14083356E+03-0.12821358E+02 0.34492329E+02-0.88502136E+02
+-0.78154541E+02-0.92759399E+01-0.48082018E+01 0.10566218E+02
+ 0.48087645E+01 0.18066017E+02-0.13238797E+01-0.51708665E+01
+-0.80225296E+01 0.59901586E+01-0.64209244E+02 0.83126961E+02
+ 0.10725402E+02 0.23379948E+02-0.23843412E+02 0.16165714E+02
+-0.34889957E+02-0.37377113E+02-0.10515053E+01-0.10207627E+02
+-0.58196390E+00 0.16365570E+02 0.43592426E+02 0.73433652E+01
+-0.12409451E+02 0.35991268E+02 0.31727673E+02 0.46962137E+01
+ 0.23304205E+00-0.45286808E+01-0.25499396E+01-0.67354417E+01
+ 0.10447700E+01 0.16423652E+01 0.32990837E+01 0.50915036E+01
+ 0.26708822E+02-0.35995022E+02-0.10378606E+02-0.12888997E+02
+ 0.75558434E+01-0.44697514E+01 0.13253450E+02 0.13915670E+02
+ 0.88236904E+00 0.29039440E+01 0.16834038E+00-0.63849540E+01
+-0.26160195E+00 0.16475309E+01 0.18607447E+01 0.27880883E-01
+-0.80495954E-01-0.39654482E-01 0.19887313E-01 0.60452126E-01
+-0.19153394E-01 0.13035006E-01 0.31249687E-01-0.75434586E-02
+-0.15125268E-01 0.27377906E+00-0.17763206E+01 0.15071578E+01
+-0.19758046E-01 0.10182646E+00-0.26982676E-01-0.23550984E-01
+ 0.36379886E-02-0.36529673E-02 0.11719952E-01 0.14171905E-01
+-0.14677171E-01-0.14988882E-02-0.11673796E+01 0.21813788E+01
+-0.90088534E+00 0.22404641E+00-0.33333287E+00-0.52520949E-01
+ 0.29254219E+00 0.10636131E+00 0.68046279E-01 0.12188297E-02
+-0.82268119E-01-0.86118124E-01 0.65291584E-01 0.17419060E+01
+ 0.69445306E+00 0.54693860E+00-0.17051892E-01 0.58553481E+00
+-0.22795539E-01 0.11075487E+00 0.25393158E+00 0.15103640E+00
+ 0.17391805E+00-0.11656546E+00-0.77986225E-01-0.58590692E-01
+ 0.73945637E+01 0.12272065E+02-0.10930670E+02 0.13587241E+01
+ 0.17232165E+01 0.35481679E+00 0.61459994E+00-0.78423440E+00
+ 0.48749742E+00-0.26622641E+00-0.94569325E+00 0.14302284E+00
+ 0.17925684E+00-0.94064894E+01 0.11073936E+02 0.13409169E+02
+ 0.13028538E+01 0.65245140E+00 0.19972022E+00 0.22320145E+00
+ 0.11397737E+01 0.71284533E+00-0.11684898E+01 0.29646003E+00
+ 0.81502265E+00-0.25439862E-01 0.23263647E+02-0.16287771E+02
+ 0.19715300E+02-0.70920930E+01 0.32130179E+01 0.31002333E+01
+-0.58355947E+01-0.65897214E+00 0.11365482E+00-0.26643327E+00
+ 0.25300441E+01 0.20917065E+01-0.21054513E+01-0.25114740E+02
+-0.66058850E+01 0.86541386E+01-0.41537158E-01-0.17567032E+02
+ 0.47047324E+01-0.51503760E+00-0.63852286E+01-0.29741337E+01
+-0.44764342E+01 0.62373561E+00 0.24865687E+01 0.47261235E+00
+-0.46814045E+02-0.12041885E+02 0.99752289E+02-0.64495907E+01
+-0.92173414E+01-0.46798882E+01-0.54954991E+01 0.61131954E+01
+-0.16522959E+01-0.54570884E+00 0.57664261E+01-0.13666019E+01
+-0.71777904E+00 0.84022469E+02-0.11194759E+03-0.39507432E+01
+-0.16203300E+02-0.66421180E+01-0.14821443E+00-0.78339767E+00
+-0.83775568E+01-0.87370195E+01 0.92152634E+01-0.33313084E+01
+-0.74441700E+01 0.18862633E+00-0.14273080E+03 0.62041721E+02
+-0.79482536E+02 0.51631123E+02-0.57821947E+00-0.19178213E+02
+ 0.29178068E+02 0.33035190E+01-0.28263030E+01 0.34217317E-01
+-0.18571112E+02-0.10850002E+02 0.14315627E+02 0.12893007E+03
+-0.33273048E+01-0.50037964E+02-0.18768166E+01 0.10671618E+03
+-0.27278667E+02 0.50431371E+01 0.36296223E+02 0.19505959E+02
+ 0.25242184E+02 0.24296870E+01-0.16299253E+02-0.30654261E+01
+ 0.11099849E+03-0.12857597E+03-0.27917538E+03 0.11415404E+02
+ 0.13686012E+02 0.19129147E+02 0.14277333E+02-0.19621246E+02
+ 0.15207518E+01 0.56465182E+01-0.13264232E+02 0.55628519E+01
+ 0.15896335E+01-0.26209372E+03 0.31271347E+03-0.18712296E+03
+ 0.61504059E+02 0.26230099E+02-0.22624297E+01 0.91929603E+00
+ 0.19573435E+02 0.32240540E+02-0.23829140E+02 0.96026239E+01
+ 0.23164410E+02-0.11098813E+01 0.37926721E+03-0.13912029E+03
+ 0.11385747E+03-0.15078870E+03-0.28678265E+02 0.41981728E+02
+-0.61708336E+02-0.99502068E+01 0.10072963E+02 0.43251381E+01
+ 0.50344307E+02 0.20761368E+02-0.38384724E+02-0.31183640E+03
+ 0.80717461E+02 0.11177303E+03 0.91798124E+01-0.26519113E+03
+ 0.57131924E+02-0.17250916E+02-0.80624062E+02-0.53986412E+02
+-0.57842266E+02-0.15444742E+02 0.40284004E+02 0.98377438E+01
+-0.10636666E+03 0.27624472E+03 0.33518640E+03-0.90313139E+01
+-0.29404740E+01-0.29340532E+02-0.13130365E+02 0.27019056E+02
+ 0.83808237E+00-0.92540722E+01 0.13138417E+02-0.91429548E+01
+-0.16192185E+01 0.33913440E+03-0.35920078E+03 0.38479999E+03
+-0.92527618E+02-0.46624046E+02 0.41366453E+01 0.18275695E+01
+-0.17915739E+02-0.46472927E+02 0.25177954E+02-0.10816146E+02
+-0.29169777E+02 0.18046658E+01-0.44847644E+03 0.16557732E+03
+-0.59701851E+02 0.19198531E+03 0.51862465E+02-0.38352905E+02
+ 0.59586216E+02 0.13888144E+02-0.13456491E+02-0.92949009E+01
+-0.56630112E+02-0.15786907E+02 0.44390171E+02 0.35611423E+03
+-0.13994145E+03-0.12520427E+03-0.78124218E+01 0.29974640E+03
+-0.48495983E+02 0.19427450E+02 0.77247574E+02 0.66220634E+02
+ 0.59678249E+02 0.23805574E+02-0.41955189E+02-0.13117631E+02
+ 0.34567719E+02-0.14869554E+03-0.14342838E+03 0.30032880E+01
+-0.36467550E+01 0.15035783E+02 0.32215376E+01-0.13186405E+02
+-0.12452888E+01 0.43014369E+01-0.46899452E+01 0.50963411E+01
+ 0.54561722E+00-0.15541122E+03 0.14388922E+03-0.21015965E+03
+ 0.47509956E+02 0.29349554E+02-0.19194942E+01-0.30574071E+01
+ 0.53069601E+01 0.22960079E+02-0.95035095E+01 0.42254791E+01
+ 0.12840061E+02-0.78551632E+00 0.19336099E+03-0.79162109E+02
+ 0.28272572E+01-0.89598595E+02-0.26287643E+02 0.12450287E+02
+-0.21709846E+02-0.69439921E+01 0.60890908E+01 0.54649796E+01
+ 0.22320847E+02 0.36850126E+01-0.18504169E+02-0.15068378E+03
+ 0.72892563E+02 0.55283623E+02-0.76779521E+00-0.12916338E+03
+ 0.13477338E+02-0.61723790E+01-0.26636496E+02-0.29567837E+02
+-0.23007311E+02-0.11395707E+02 0.15494074E+02 0.59043760E+01
+ 0.97768597E-01-0.21706764E+00-0.14598057E+00-0.98067135E+00
+ 0.56929809E+00 0.43482479E-01 0.11748247E-01-0.63081672E-02
+ 0.20523420E-01-0.19572712E-01 0.17729735E-03 0.11943498E-02
+ 0.66722082E-02-0.22512754E-01-0.17544612E+00-0.19724552E+00
+-0.56630099E+00-0.77338606E+00-0.35187386E-01 0.10012046E-01
+-0.27610054E-01 0.89784892E-03-0.95248339E-03 0.29487306E-01
+ 0.15489024E-01 0.32603152E-02 0.90035915E+00 0.50192165E+00
+ 0.39231557E+00 0.72755909E+00 0.34172869E+00 0.64472872E+00
+-0.24112161E-01-0.37124623E-01-0.18246342E+00-0.95317356E-01
+-0.20045063E-01-0.81074119E-01 0.11073198E-01 0.55172008E+00
+ 0.20146661E+00 0.44691011E+00 0.65697357E-01 0.77415019E+00
+ 0.60446817E-01 0.51282352E+00-0.15366629E+00-0.22197446E+00
+-0.59145335E-01-0.21178664E+00 0.11207618E+00-0.13108963E-01
+ 0.10676382E+01 0.29645822E+01 0.37952478E+01-0.78678852E+00
+ 0.32439947E+01-0.16431471E+01-0.11421096E+01 0.17130587E+00
+ 0.37664506E+00 0.55448914E+00 0.10976688E+00-0.48771808E+00
+-0.32246506E+00 0.27298226E+01 0.24008121E+01 0.60759602E+01
+-0.47121968E+01-0.16266237E+01-0.13724278E+00-0.14916685E+01
+ 0.16014088E+01 0.21585748E+00-0.35771871E+00-0.89440823E+00
+-0.45400912E+00-0.29001749E+00-0.74832025E+01-0.29968793E+01
+-0.42970152E+01 0.20118179E+01-0.21555855E+01-0.44935822E+01
+-0.38260967E+00-0.88122147E+00 0.21959436E+01 0.85298419E+00
+ 0.65500510E+00 0.64462608E+00 0.34080345E-01-0.58604355E+01
+-0.17552921E+01-0.46983767E+01-0.19348935E+01 0.24940045E+01
+ 0.21718979E+01-0.40221734E+01 0.73567528E+00 0.19161574E+01
+-0.13397838E+00 0.25529764E+01-0.50712591E+00 0.23999058E+00
+-0.10549742E+02-0.37017422E+01-0.24552065E+02 0.14676774E+02
+-0.11914489E+02 0.10997478E+02 0.74938984E+01-0.25663313E+00
+-0.35813992E+01-0.28400996E+01-0.93953723E+00 0.33387854E+01
+ 0.20984364E+01-0.14897774E+02-0.62908635E+01-0.32800335E+02
+ 0.18528563E+02 0.12417139E+02-0.69420964E+00 0.11475649E+02
+-0.82309322E+01-0.28264165E+01 0.27254322E+01 0.45255299E+01
+ 0.22271841E+01 0.21908436E+01 0.17852583E+02 0.30649593E+01
+ 0.11477947E+02-0.67365303E+01 0.28456860E+01 0.10238112E+02
+ 0.33093038E+00 0.40141964E+01-0.65592384E+01-0.24417315E+01
+-0.14772207E+01-0.15737491E+01-0.74067026E-01 0.15307250E+02
+-0.26185241E+01 0.12405679E+02 0.62960510E+01-0.67733917E+01
+-0.70792394E+01 0.91405792E+01 0.88415743E-03-0.37179437E+01
+ 0.90935570E+00-0.69149547E+01 0.18560132E+00-0.67503846E+00
+ 0.21599215E+02-0.46994729E+01 0.46027321E+02-0.36294868E+02
+ 0.96739960E+01-0.24945257E+02-0.13759644E+02-0.24616983E-01
+ 0.89603739E+01 0.54308796E+01 0.24014454E+01-0.70196056E+01
+-0.44327598E+01 0.24843397E+02 0.92978916E+01 0.56579742E+02
+-0.19334846E+02-0.24256990E+02 0.30407271E+01-0.25068012E+02
+ 0.13572435E+02 0.68599362E+01-0.67986002E+01-0.75372796E+01
+-0.38506787E+01-0.46823874E+01-0.14843636E+02 0.19837296E+01
+-0.11109138E+02 0.31957550E+01-0.17539186E+01-0.67461467E+01
+ 0.35601419E+00-0.37653399E+01 0.55061636E+01 0.21600037E+01
+ 0.83115494E+00 0.11146947E+01-0.17095937E+00-0.12286270E+02
+ 0.98170996E+01-0.81901531E+01-0.38168242E+01 0.12576302E+01
+ 0.55010004E+01-0.60531683E+01-0.10407491E+01 0.18965904E+01
+-0.94105482E+00 0.53762965E+01 0.51917458E+00 0.65497190E+00
+-0.13637304E+02 0.65925388E+01-0.23569542E+02 0.25342230E+02
+ 0.71028113E+00 0.16614403E+02 0.75715604E+01 0.19589573E-01
+-0.64481812E+01-0.36762245E+01-0.19363295E+01 0.46145444E+01
+ 0.30328979E+01-0.13089158E+02-0.10095703E+02-0.30684874E+02
+ 0.39198732E+01 0.14732669E+02-0.24675801E+01 0.16160910E+02
+-0.72000704E+01-0.45575032E+01 0.50762730E+01 0.37089520E+01
+ 0.21473510E+01 0.29847896E+01-0.14737675E-01-0.25679311E-01
+-0.16136080E+00-0.33218786E-01 0.27244406E-01-0.47106108E+00
+-0.91915029E+00 0.38202498E-01 0.29088611E-01 0.31560920E-02
+ 0.18914854E-01 0.52554188E-02-0.11544408E-02 0.72901808E-01
+-0.22339118E+00 0.53658471E-01 0.85221520E-02-0.27125636E-01
+ 0.88938648E+00-0.52879435E+00 0.87448508E-02 0.30740051E-01
+ 0.10852590E-01-0.27724359E-01 0.31586990E-02-0.96590295E-02
+ 0.20115213E+00 0.69436580E+00-0.17900576E+00 0.66310994E-01
+-0.75164104E+00 0.13775501E+00-0.21529463E+00-0.14966124E+00
+ 0.16769144E+00 0.77871263E-01 0.51278979E-01 0.15873125E-01
+ 0.21192819E-01 0.77322774E-01-0.42061176E-01 0.45077723E+00
+ 0.66685408E-01-0.15208274E+00 0.44830185E+00-0.12592126E+00
+-0.13366275E+00-0.90220653E-01-0.61910573E-01-0.25508961E-01
+ 0.12957442E-01-0.12587028E-01 0.74074906E+00 0.65904367E+00
+ 0.15433567E+01-0.63742287E-02-0.98790757E-01 0.18118404E+01
+ 0.15583321E+01-0.43290365E+00-0.20866205E+00 0.95957085E-01
+-0.65422811E-01-0.14005326E+00-0.20921381E-01-0.11043867E+01
+ 0.32856829E+01-0.19886183E+01 0.40116802E+00 0.26653954E+00
+-0.17676287E+01 0.24231007E+01-0.21656232E+00-0.57338196E+00
+-0.14849383E+00 0.14925669E+00-0.52936438E-01 0.73655564E-02
+-0.71928334E+00-0.94114923E+00 0.78959525E+00-0.13111615E+00
+ 0.16068588E+01-0.33002041E-01 0.42055130E+00 0.56223714E+00
+-0.28989446E+00-0.17253461E+00 0.78965602E-02-0.94987266E-01
+-0.70541412E-01-0.24910378E+00 0.25402689E+00-0.95344973E+00
+-0.80586588E+00 0.43270764E+00-0.10406414E+01 0.31384522E+00
+ 0.15633456E+00 0.34068555E+00 0.12060667E+00 0.44971276E-01
+ 0.29588670E-01 0.46364356E-01-0.51294982E+00-0.29964095E+00
+-0.28561344E+01-0.11806239E+00 0.18849920E+00-0.34402866E+01
+-0.21050479E+01 0.34388900E+00 0.30473164E+00-0.14386865E+00
+-0.43631759E-01 0.33641663E+00-0.22661610E-01 0.15949913E+01
+-0.41355290E+01 0.32266247E+01-0.85630828E+00-0.50795478E+00
+ 0.28716083E+01-0.42127266E+01 0.28837740E+00 0.93107861E+00
+ 0.27240244E+00-0.13775127E+00 0.13223094E+00-0.13103773E+00
+-0.49044993E-01-0.24295989E-02-0.71430229E-01 0.35413116E-01
+ 0.47498848E-01-0.13454735E-01 0.98276092E-02 0.32753569E+00
+-0.18088369E+00 0.19360161E-02 0.13374137E-01-0.94158677E-02
+-0.30937691E-02 0.55371165E-01 0.24911972E-01 0.41393071E-01
+ 0.39408021E-01-0.64998358E-01-0.18124787E-01-0.27285462E-01
+ 0.16500179E+00 0.29878315E+00 0.13220957E-02-0.14755523E-02
+ 0.31277381E-02 0.15555121E-03-0.56562969E-02 0.10716920E-01
+ 0.58698531E-01-0.22612128E-02-0.11211977E+00-0.11326517E+00
+ 0.88223264E-01 0.13487896E+00 0.22745983E+00-0.64147316E-01
+ 0.13011377E-01-0.15176603E-01 0.37889306E-01 0.18017766E+00
+ 0.76493047E-01-0.57414532E-01-0.15384177E-01 0.19273417E+00
+-0.67927875E-01-0.18422922E+00-0.22047012E+00 0.14405789E-01
+ 0.12134630E-01-0.35937384E-01-0.15340685E-02 0.19010877E-01
+-0.14448559E+00-0.33150800E-02-0.10132004E-01 0.44721063E-01
+-0.38510407E-02 0.65288940E-02 0.30064268E-01-0.13620453E-01
+-0.25559587E-01 0.13974449E+00 0.27066708E+00-0.86301874E-03
+-0.15927410E-01 0.85362434E-01 0.48635934E-01-0.30831050E-01
+ 0.35901424E-02-0.16469320E-01-0.93949521E-02 0.62366962E-02
+ 0.42513665E-02 0.16225785E-01-0.26053265E+00 0.12521908E+00
+-0.24030069E-02-0.12820498E-02 0.42795010E-01-0.88504680E-01
+-0.15416031E-01 0.35100665E-01 0.10118750E-01 0.25384672E-01
+-0.40251631E-02 0.18797457E-02-0.41919933E-02-0.62470161E-02
+-0.65072584E-02-0.15718541E+00 0.42815138E-01 0.51770523E-01
+ 0.23641726E-01-0.22212747E-01 0.52224710E-02 0.48885681E-01
+ 0.18276574E-01-0.21028422E-01-0.14288486E-01-0.28683112E-02
+ 0.25293042E-03-0.83165923E-02-0.44567961E-01-0.16046225E+00
+-0.36254805E-01-0.75680152E-01 0.11980511E-01 0.15882116E-03
+ 0.22734884E-01-0.10775125E-01-0.22750691E-01 0.10671292E-01
+-0.29391658E-02-0.48969565E-02-0.22469327E-01 0.37602372E-02
+ 0.80211431E-03 0.21320259E-01-0.17746110E-01 0.20988828E-02
+-0.17451579E-01-0.29435143E-01 0.10905027E-01-0.15734235E-01
+-0.13093308E-01 0.74879108E-02-0.76296972E-02 0.12714958E-01
+ 0.12751132E-01 0.24891517E-02-0.13963948E-01 0.43464817E-01
+-0.57666734E-01 0.98980134E-02-0.56504559E-01-0.33702858E-01
+ 0.28680092E-01 0.24618777E-01 0.21952307E-01 0.17210137E-01
+-0.88103274E-02 0.80375150E-02 0.10196300E-01-0.33362068E-01
+-0.18013632E-01-0.50624602E-01 0.88627376E-02 0.10242135E+00
+ 0.11714541E-01 0.93254829E-02 0.93967225E-02-0.15307956E-01
+-0.24555840E-01-0.17302781E-01 0.19131057E-02 0.42815138E-01
+ 0.30401049E+01-0.11382078E-01 0.13699237E-01 0.13619756E-01
+-0.15344954E-03-0.39020018E-03 0.33493678E-02-0.11851718E-02
+ 0.34948639E-03-0.82672872E-01-0.32174747E-01 0.38680803E-01
+ 0.55962011E-01 0.32362810E-03-0.41486818E-01-0.11401795E-01
+-0.68960893E-02 0.10805070E-01 0.14065900E+01 0.15397176E+00
+-0.18210937E+00-0.31921729E+00-0.54489747E-02 0.57063509E-01
+ 0.12826703E-01-0.53385347E-02 0.62804609E-02 0.22763485E+00
+-0.14647670E+00-0.14446510E+00-0.12818100E+00 0.18414596E-01
+ 0.14890826E+00 0.45125451E-01 0.18452298E-01-0.38831923E-01
+-0.28037069E+01-0.28717342E+00 0.53387308E+00 0.77303892E+00
+ 0.49879473E-01-0.18796812E+00-0.46676476E-01-0.11675812E-02
+-0.18786209E-01-0.20530869E+00 0.14871514E+00 0.13572893E+00
+ 0.65998554E-01-0.31058760E-01-0.12001267E+00-0.36234986E-01
+-0.10483883E-01 0.33103835E-01 0.15812294E+01 0.16315398E+00
+-0.34262037E+00-0.47133777E+00-0.53432129E-01 0.13809934E+00
+ 0.39644614E-01 0.98345075E-02 0.13404462E-01 0.11054382E-01
+-0.15015076E+00-0.34573376E+00 0.15864993E-01 0.12899942E-02
+ 0.38709242E-02-0.75407006E-04 0.21587815E-02 0.61787381E-02
+ 0.11099253E-01 0.36393246E+00-0.14289594E+00-0.51004002E-02
+ 0.82212426E-02 0.36659569E-02-0.50246581E-02 0.64045354E-03
+ 0.93177753E-02-0.18676747E+00 0.13912369E+00 0.92345759E-01
+ 0.45837265E-01-0.24934011E-01-0.26602110E-01-0.30030532E-01
+ 0.49917046E-02 0.12582732E-01 0.13173369E+00-0.10819068E+00
+ 0.15030783E+00-0.23040416E-01 0.13999088E-01-0.53261607E-02
+-0.43439619E-01-0.90245353E-02 0.10945592E+00 0.33914685E-01
+ 0.47822487E+00 0.16972907E+01-0.97674638E-01-0.25269112E+00
+-0.44677760E-01 0.67510251E-02 0.25692284E-01-0.82349569E-01
+-0.35780886E+00-0.18699245E+01 0.49952665E+00 0.71142484E-02
+ 0.22229070E-01-0.12980822E+00 0.70356480E-02-0.14538261E-01
+-0.14582597E+00 0.21972475E+01-0.59621954E+00-0.96930653E+00
+-0.94870478E-01 0.64373899E+00 0.14172481E+00-0.12882969E+00
+ 0.14451261E+00-0.11963338E+00-0.23363806E+00 0.16209319E+01
+-0.70229024E+00 0.12993802E+00-0.48182800E-01 0.18711828E+00
+ 0.38275993E+00 0.53427994E-01-0.70009434E+00-0.24579667E+00
+ 0.24078412E-01-0.16323544E+01-0.19505771E+00 0.68362409E+00
+ 0.15810391E+00 0.11939487E+00-0.77476732E-01 0.17349911E+00
+ 0.10717825E+01 0.19524435E+01-0.70215613E+00 0.40747777E+00
+-0.14923325E+00 0.51048869E+00 0.74851766E-01-0.32693017E-01
+ 0.38650307E+00-0.58413815E+01 0.16597109E+00 0.27413237E+01
+ 0.22096719E+00-0.18455598E+01-0.18398350E+00 0.69714391E+00
+-0.38460970E+00 0.25037786E+00 0.16911915E+00-0.42069697E+01
+ 0.91982204E+00-0.53290057E+00 0.25880048E+00-0.68226004E+00
+-0.97130626E+00 0.19385042E-01 0.14533879E+01 0.40299878E+00
+-0.48112997E+00 0.52594155E+00 0.29526755E+00-0.43825641E+00
+-0.12281952E+00-0.15333907E+00 0.56682952E-01-0.86398900E-01
+-0.75084627E+00-0.45546556E+00 0.44570705E+00-0.53101832E+00
+ 0.12392121E-01-0.47902694E+00-0.12242783E+00 0.79856642E-01
+-0.28643292E+00 0.42676086E+01 0.75077915E+00-0.22261817E+01
+-0.27955213E+00 0.13397520E+01 0.14111669E+00-0.55246305E+00
+ 0.23521648E+00-0.18291542E+00-0.12076446E+00 0.32277856E+01
+-0.13160841E+00 0.44515896E+00-0.28191578E+00 0.62046933E+00
+ 0.68323207E+00-0.10502839E+00-0.91661125E+00 0.27267998E-02
+-0.37316999E-02 0.35979025E-03 0.47388568E-03-0.13095340E+00
+ 0.21076865E-03 0.52354215E-02 0.26401207E-02-0.60893549E-02
+-0.61952616E-02 0.12154616E-02 0.40964223E-02 0.15712863E+00
+ 0.24770111E-01 0.38494696E-02-0.92166457E-02 0.62270334E-03
+-0.54044821E-02 0.42403363E-01 0.16611996E+00 0.80097161E-01
+ 0.56755996E+00-0.33011404E+00 0.29526917E-01-0.65970644E-01
+-0.28990030E-01 0.46952786E-02-0.80264293E-01 0.20948894E-01
+-0.29410383E-01 0.50466293E+00 0.66722238E+00 0.76955371E-01
+-0.33780285E-02-0.26567908E-01 0.40409271E-01-0.15232775E+00
+ 0.13101333E+00-0.91356911E-01 0.89222513E-01-0.36949329E-02
+-0.17322950E-01 0.55812236E-01-0.38744360E-01 0.16779214E-01
+-0.24620678E+00-0.79602763E-01-0.20739435E+00-0.15338077E+00
+-0.47849964E-01-0.14388233E-01 0.94271958E-01-0.29404018E-01
+ 0.18598402E-01-0.18558075E+00-0.83184230E+00 0.13150723E-01
+-0.22259934E+01 0.66283786E+00-0.31915799E-01 0.28466687E+00
+ 0.21174742E+00-0.12655893E-01 0.94725484E+00 0.19020595E+00
+ 0.40080431E+00-0.13141518E+01-0.27080829E+01-0.34854394E+00
+-0.15705083E+00 0.14084280E+00-0.21892302E+00 0.17485859E+00
+-0.35491335E+00 0.11176544E+00-0.19686691E+00-0.70896432E-01
+ 0.47556851E-01-0.74512035E-01 0.51269028E-01-0.11006738E-01
+ 0.36457384E+00-0.93383693E-04 0.29480577E+00 0.35257223E+00
+-0.10449865E+00 0.26363550E-01-0.74307755E-01 0.54344729E-01
+-0.63038334E-01 0.20447034E+00 0.11452413E+01-0.16736257E+00
+ 0.20206418E+01-0.30654338E+00 0.28216397E-01-0.26526570E+00
+-0.28426144E+00 0.90763699E-02-0.14910082E+01-0.37116313E+00
+-0.24615522E+00 0.88091087E+00 0.25278471E+01 0.36680901E+00
+ 0.36790523E+00-0.11417954E+00 0.26816338E+00-0.24069045E-01
+-0.37140232E-02 0.59421258E-02-0.14975986E-01 0.38167016E-03
+ 0.24848035E-01-0.14859644E-01 0.81578468E-03-0.90723382E-02
+-0.75797653E-02-0.47509167E-01-0.53818156E-02 0.15393181E-01
+-0.22171626E-01 0.20891447E-01 0.37496552E-01-0.90530521E-03
+-0.27469555E-02 0.87826133E-01 0.61553407E-01 0.20494960E-01
+-0.68606257E-01 0.31154953E-01-0.22373168E-01 0.19868614E-01
+-0.36711791E-02 0.80109155E-02 0.58815431E-01-0.10893079E-02
+-0.23224903E-01-0.16784027E-01-0.12939301E-02-0.17937096E-01
+-0.30362142E-01-0.11328247E-01 0.18137729E-01-0.83675431E-02
+-0.66944212E-01-0.99108607E-01 0.53046636E-01 0.11491635E-02
+-0.97788624E-01-0.19152731E+00-0.73964251E-02 0.37721645E-01
+-0.16437825E-01 0.10426622E+00-0.13097627E-01-0.31341720E-01
+ 0.33724148E-01 0.20263115E+00-0.17441693E+00-0.13966219E-01
+ 0.81566256E-03-0.30277975E-01-0.14341920E-01 0.34723729E-02
+ 0.66115148E-02-0.40517421E-02 0.80762738E-02 0.77816513E-02
+ 0.50833821E-01 0.10282873E-01-0.26500834E-01 0.64238147E-02
+-0.28022844E-02-0.14088667E-01-0.54610550E-03 0.28645764E-02
+ 0.12587353E-01-0.20940429E-01 0.47031794E-01 0.57847179E-01
+ 0.32054439E-01 0.12395522E-01-0.61136406E-01-0.11976909E-01
+ 0.27411242E-03 0.54735653E-02 0.39643612E-01 0.14503116E-01
+-0.14846103E-01-0.43443698E-01-0.62784306E-02 0.66622496E-01
+ 0.10906368E-01-0.16276255E-01-0.74495091E-02-0.27881341E-01
+ 0.35522427E-01-0.26395649E-02-0.95528336E-02-0.20187974E-02
+ 0.48234980E-02-0.36433239E-02 0.73964102E-02 0.43250853E-02
+-0.13721441E-04-0.82670292E-03 0.13747018E-01 0.26495285E-01
+-0.12389235E-01 0.13934656E-03-0.12922279E-01 0.92590265E-02
+ 0.30354068E-02 0.11110849E-02 0.40769838E-02 0.33883248E-02
+ 0.76762335E-02 0.87840520E-02 0.22252684E-02-0.17388515E-02
+ 0.65976731E-02-0.13436445E-02 0.53181122E-02 0.17218638E-02
+ 0.12250467E-01 0.88767400E-02-0.20778641E-01 0.91415541E-02
+-0.31969624E-02 0.82466059E-03 0.72336243E-02-0.23431671E-02
+ 0.52077025E-02 0.27045255E+01-0.13861433E-01 0.10853585E-01
+ 0.13674901E-01 0.45255958E-02 0.96232325E-04 0.28539707E-02
+-0.50630595E-04-0.10792224E-02 0.33882726E-01 0.16726006E-01
+ 0.41411079E-01 0.21762999E-01 0.13571894E-01-0.18095523E-01
+-0.13972076E-01-0.26165762E-02-0.44640922E-03 0.13936986E+01
+ 0.10243688E+00-0.12836154E+00-0.18260194E+00-0.46525557E-01
+ 0.44762935E-01 0.57317317E-02 0.11237833E-01 0.40574851E-02
+-0.14981104E+00-0.25437304E+00-0.14702123E+00-0.51582754E-01
+-0.47143351E-01 0.47940180E-01 0.27028264E-01 0.77501182E-02
+-0.80215288E-02-0.24028523E+01-0.13707371E+00 0.35199860E+00
+ 0.39832273E+00 0.85571006E-01-0.12622128E+00-0.67097712E-02
+-0.48906956E-01 0.55381274E-02 0.77955551E-01 0.19398201E+00
+ 0.13605739E+00 0.29710919E-01 0.28151933E-01-0.32603387E-01
+-0.11237349E-01-0.34127152E-02 0.13379143E-01 0.11976627E+01
+ 0.86586386E-01-0.22247823E+00-0.23125169E+00-0.42487212E-01
+ 0.83616689E-01 0.73067646E-03 0.40582355E-01-0.96359570E-02
+ 0.17483035E-01-0.30285546E+00-0.29345882E+00 0.99322964E-02
+-0.17893454E-02 0.10022582E-02 0.11504443E-02 0.16644030E-02
+ 0.72499416E-02 0.13540727E-02 0.32227382E+00-0.29328412E+00
+-0.80812844E-02 0.39960979E-02 0.65438594E-02-0.11646176E-01
+ 0.39998051E-02 0.15032205E-01-0.36074266E-01 0.11459168E+00
+ 0.90131857E-01 0.35216373E-02-0.96506746E-02-0.11520932E-01
+-0.12881164E-01 0.99653052E-03 0.34462839E-01 0.89647539E-01
+ 0.63354815E-02 0.12553091E+00 0.24806114E-01 0.23215953E-01
+ 0.13266702E-01 0.39352668E-02 0.90735722E-02 0.86630374E-01
+-0.22010055E+00 0.76199836E+00 0.10411052E+01 0.79058155E-01
+-0.99691860E-01-0.41243132E-01 0.57794455E-01-0.16476742E-02
+-0.94741918E-01-0.32839933E+00-0.12193962E+01 0.87339061E+00
+-0.75224414E-02 0.83490223E-01-0.14356729E+00 0.13259062E+00
+-0.44737361E-01-0.20198126E+00 0.54963994E+00-0.52403355E+00
+-0.74558896E+00-0.96110024E-01 0.27973866E+00 0.15445522E-01
+-0.24832048E+00 0.65243810E-01-0.22887573E+00-0.19111110E-01
+ 0.47740996E+00-0.63515687E+00-0.18528543E+00-0.21004455E+00
+ 0.61389271E-01 0.34061927E-01-0.37664600E-01-0.56488287E+00
+ 0.61485970E+00-0.31153601E+00-0.85383409E+00-0.55827850E+00
+ 0.24451426E+00 0.20632704E+00-0.12735528E+00 0.49136013E-01
+ 0.29886141E+00 0.12342763E+01 0.80860949E+00-0.12855700E+01
+ 0.31017226E+00-0.24868594E+00 0.44440651E+00-0.30813733E+00
+ 0.23854533E-01 0.45323089E+00-0.15821571E+01 0.43670562E+00
+ 0.22294593E+01 0.54407924E+00-0.86818773E+00-0.27222033E-02
+ 0.87385136E+00-0.10560450E+00 0.39706621E+00-0.65258825E+00
+-0.15170186E+01 0.12435969E+01 0.19180834E+00 0.70927751E+00
+-0.27004617E+00-0.20135774E+00 0.98844670E-01 0.11511528E+01
+-0.35777101E+00-0.10984187E+00 0.54976183E+00 0.51074892E+00
+-0.15392701E+00-0.20111597E+00 0.95634453E-01-0.59104066E-01
+-0.22803462E+00-0.10545499E+01-0.27652279E-01 0.84639686E+00
+-0.34254837E+00 0.83599433E-01-0.39442429E+00 0.17786869E+00
+ 0.49440950E-01-0.29044276E+00 0.11647863E+01 0.19355892E+00
+-0.19237444E+01-0.51354492E+00 0.63591230E+00 0.36586221E-01
+-0.67268568E+00 0.16708907E-01-0.21348131E+00 0.78157800E+00
+ 0.13963382E+01-0.70771319E+00-0.20638825E-01-0.56146246E+00
+ 0.25821999E+00 0.18338437E+00-0.10435095E+00-0.70114332E+00
+ 0.33377009E-02-0.85557243E-02 0.53263279E-02 0.48212931E-01
+-0.96097551E-01 0.16747259E-02 0.45310468E-02 0.21136762E-02
+-0.20766114E-02-0.66840369E-02-0.10856335E-01-0.23787534E-02
+ 0.92386574E-01 0.68768784E-01 0.10402149E-02-0.86118113E-02
+ 0.32925498E-03 0.57025033E-03 0.51790807E-01 0.13119574E+00
+ 0.47563083E-01 0.28507447E+00-0.11513667E+00 0.31583652E-01
+-0.17520612E-01-0.31817120E-01 0.82542188E-02 0.19457083E-01
+ 0.16882727E-01-0.44377230E-01 0.21419054E+00 0.39532006E+00
+ 0.44337548E-01 0.33838246E-01-0.26187995E-01 0.26135845E-01
+-0.13655464E+00 0.12530467E+00-0.43442167E-01-0.23065427E+00
+ 0.20435360E+00-0.63712358E-01 0.23470277E-01-0.50777260E-01
+ 0.77459794E-02-0.15135796E+00 0.11079714E-01-0.65361388E-01
+-0.20480011E+00-0.31951770E+00-0.43420333E-01 0.58943622E-01
+-0.19627888E-01-0.11768199E-01-0.15009120E+00-0.68192893E+00
+ 0.62561356E-01-0.10389147E+01 0.10595896E+00-0.14849147E-01
+ 0.53832039E-01 0.23531134E+00-0.12635956E-01 0.28327590E+00
+ 0.38813151E-01 0.31918576E+00-0.46337992E+00-0.14411012E+01
+-0.15281472E+00-0.21893854E+00 0.14097042E+00-0.14544623E+00
+ 0.15800914E+00-0.34267643E+00 0.18755988E-02-0.56562793E-01
+-0.48462987E+00 0.95949911E-01-0.30947629E-01 0.87747708E-01
+-0.19303991E-01 0.24605586E+00-0.13650826E+00 0.21064965E-01
+ 0.58473659E+00-0.75870594E-02 0.39007965E-01-0.65296404E-01
+ 0.41345578E-01-0.19478334E-01 0.78472018E-01 0.91951132E+00
+-0.16342767E+00 0.91248029E+00 0.87954272E-02-0.59618726E-02
+-0.40209666E-01-0.31057978E+00 0.18426050E-01-0.60459119E+00
+-0.10414231E-01-0.18814395E+00 0.27712169E+00 0.13081124E+01
+ 0.17085785E+00 0.34071115E+00-0.14231364E+00 0.17387938E+00
+-0.20386552E-01 0.21182620E-02 0.10177098E-01-0.11378626E-01
+-0.98456312E-02 0.34398962E-01-0.42581428E-01 0.34251876E-03
+-0.68609137E-02-0.90750623E-02-0.32029830E-01-0.47561587E-02
+ 0.14946333E-01-0.16567832E-01 0.42375118E-01 0.41583791E-01
+ 0.13377547E-03-0.61774603E-02 0.45967977E-01 0.61088778E-01
+ 0.14942785E-01-0.37811134E-01 0.15868828E-01 0.47008302E-02
+ 0.46885707E-02 0.11044603E-02 0.83790062E-03 0.33965636E-01
+ 0.12285841E-01-0.15363421E-01-0.20721937E-01-0.11257234E-01
+-0.34942648E-02-0.12950346E-01-0.59640319E-02 0.12831651E-01
+ 0.60491147E-03-0.74729361E-01-0.69819920E-01 0.26307790E-01
+ 0.17833915E-01-0.10292423E+00-0.14374946E+00-0.44204816E-02
+ 0.32788616E-01-0.15078791E-01 0.62297020E-01-0.27057173E-01
+-0.22026932E-01 0.26395356E-01 0.16220757E+00-0.12398390E+00
+-0.14915660E-01 0.10779776E-01-0.22808822E-01-0.15335506E-01
+ 0.21026686E-02 0.44900649E-02-0.13017196E-02 0.27200764E-02
+ 0.10563135E-02 0.33134330E-01 0.16995138E-01-0.15292642E-01
+ 0.24188119E-02-0.86551392E-02-0.19452726E-02-0.34849253E-02
+ 0.35679105E-02 0.10176241E-01-0.22009404E-01 0.29706346E-01
+ 0.43338250E-01 0.19471711E-01 0.19346902E-03-0.33331003E-01
+-0.12334583E-01-0.12015219E-01 0.14972220E-02 0.39651532E-01
+ 0.19308904E-01 0.14977311E-02-0.34002740E-01 0.13617956E-02
+ 0.26084950E-01 0.37475578E-02-0.10403191E-01-0.17990541E-01
+-0.22997433E-01 0.27994959E-01 0.22576404E-03-0.16536338E-01
+-0.75725868E-03 0.69075981E-02-0.14428189E-02 0.61770566E-02
+ 0.60216250E-03-0.43525919E-03-0.13888464E-02 0.90428498E-02
+ 0.19430207E-01-0.10300137E-01 0.35099406E-02-0.42426982E-02
+ 0.60566198E-02 0.52108942E-02-0.11467599E-03 0.65590143E-02
+ 0.49651740E-02 0.11645567E-01 0.83609400E-02 0.52899164E-02
+-0.47522220E-02 0.55126837E-02 0.35592569E-02 0.34613642E-02
+ 0.36597401E-02 0.45108609E-02 0.48094862E-02-0.14215787E-01
+ 0.53761145E-02 0.45948825E-02 0.83546591E-03 0.53303521E-02
+-0.26749300E-02 0.29056252E-02
diff --git a/input/glow_data/iri90/ccir20.asc b/input/glow_data/iri90/ccir20.asc
new file mode 100644
index 0000000..7f3b445
--- /dev/null
+++ b/input/glow_data/iri90/ccir20.asc
@@ -0,0 +1,715 @@
+ 0.67417641E+01-0.11025394E+00 0.42666834E-01 0.69521941E-01
+ 0.38874124E-02 0.29258806E-01-0.31417802E-01 0.35931028E-01
+ 0.11918333E-01 0.29975636E-01 0.11452777E-01-0.29228499E-01
+-0.76055541E-02 0.17436563E+01 0.40657678E+00 0.59440559E+00
+-0.81161804E-01-0.12061444E+00-0.42257652E-01-0.16804051E-01
+-0.13078281E+00 0.99271558E-01-0.51369164E-01-0.85818343E-01
+ 0.20449582E-01-0.34776747E-01 0.15906835E+02 0.21122408E+01
+-0.30194516E+01-0.18164214E+00 0.21544621E+01-0.77579105E+00
+ 0.10776812E+01-0.65275151E+00-0.18329655E+00-0.10741085E+01
+-0.21992724E+00 0.54272276E+00 0.26474300E+00-0.21567724E+02
+-0.10071519E+02-0.46050444E+01 0.22639155E+01 0.77192564E+01
+ 0.70966089E+00-0.21318839E+01 0.47265267E+00-0.24995817E-01
+ 0.65379196E+00 0.20589564E+01-0.17014968E+00 0.56020799E-02
+-0.10173342E+03-0.68225641E+01 0.18339714E+02-0.96500959E+01
+-0.22774458E+02 0.70135794E+01-0.57714853E+01 0.20234113E+01
+ 0.98741543E+00 0.70813155E+01 0.75227982E+00-0.31741402E+01
+-0.28904328E+01 0.65307861E+02 0.35732182E+02 0.99326601E+01
+-0.70676713E+01-0.35474052E+02-0.48456573E+01 0.10269098E+02
+ 0.14416782E+01-0.37578681E+01-0.17822330E+01-0.10741420E+02
+ 0.18747391E+01 0.18222950E+01 0.20845084E+03 0.83894491E+01
+-0.37941162E+02 0.42702366E+02 0.68335434E+02-0.22162090E+02
+ 0.11464567E+02-0.11181591E+01-0.30024517E+01-0.17626598E+02
+-0.13377714E+00 0.74559193E+01 0.94865475E+01-0.69698105E+02
+-0.40740063E+02-0.12088245E+02 0.55066094E+01 0.60161949E+02
+ 0.12805878E+02-0.14906711E+02-0.69451771E+01 0.13351114E+02
+ 0.15886544E+01 0.22924721E+02-0.65486469E+01-0.64081602E+01
+-0.19967574E+03-0.47658625E+01 0.32122219E+02-0.59845806E+02
+-0.79271217E+02 0.26973694E+02-0.94852943E+01-0.13761377E+01
+ 0.42310858E+01 0.18761662E+02-0.14811943E+01-0.75402808E+01
+-0.11900676E+02 0.14291371E+02 0.10281889E+02 0.12892766E+02
+ 0.20141015E+01-0.43246784E+02-0.13862740E+02 0.66849313E+01
+ 0.83780088E+01-0.16522486E+02-0.29590270E+00-0.21744144E+02
+ 0.82283382E+01 0.76309428E+01 0.74218613E+02 0.12529610E+01
+-0.98135452E+01 0.27000690E+02 0.31554647E+02-0.11102576E+02
+ 0.27184381E+01 0.10648201E+01-0.20641975E+01-0.71944165E+01
+ 0.10889814E+01 0.27322817E+01 0.50644026E+01 0.97484446E+01
+ 0.43847666E+01-0.68491726E+01-0.25755978E+01 0.10981911E+02
+ 0.51441727E+01 0.12638378E+00-0.31936567E+01 0.68834958E+01
+-0.72948217E-01 0.75957398E+01-0.34138052E+01-0.30203903E+01
+-0.17938741E-01 0.19350545E+01 0.15287569E+01 0.26359454E-01
+-0.69553903E-02 0.48199920E-02 0.15078617E-01 0.53562142E-01
+ 0.21571161E-01 0.32001279E-01 0.37023298E-01-0.33349071E-01
+ 0.10461510E-01-0.71816571E-01-0.14951198E+01 0.19070232E+01
+-0.90120353E-01 0.83764896E-01-0.22245713E-01-0.61692059E-01
+ 0.29028347E-01-0.15067049E-03 0.12577567E-01-0.22862754E-02
+ 0.29112538E-01-0.23672460E-01-0.51051003E+00 0.87592429E+00
+ 0.11411304E+01 0.22836588E+00 0.10007082E+00-0.85580871E-02
+ 0.14482203E+00 0.23493987E+00 0.12527980E+00-0.16819620E+00
+-0.48568074E-01 0.24008988E+00 0.96231982E-01 0.10973550E+00
+ 0.93418971E-01-0.70641696E-01-0.53768361E+00 0.48843423E+00
+ 0.34973875E+00-0.26007736E+00 0.36855582E-01 0.41532871E+00
+ 0.89809448E-01-0.23388444E-01 0.20598353E+00 0.13492872E+00
+ 0.54216437E+01 0.19527584E+02 0.53556581E+01-0.20208032E+01
+ 0.27149031E+01 0.11244015E+01-0.42923173E+00-0.90001625E+00
+-0.22988829E+00-0.79169679E+00 0.95905103E-01 0.54770768E+00
+ 0.40796738E-01-0.49918337E+01-0.68213148E+01 0.20141775E+02
+ 0.33453064E+01 0.20416534E+01-0.18846661E+00 0.78771967E+00
+ 0.12231276E+01 0.63756788E+00-0.58407247E+00-0.35017237E+00
+-0.12065351E+01-0.24117194E+00 0.15664848E+02-0.58232422E+01
+ 0.16471388E+01-0.85785646E+01 0.65734754E+01 0.10979421E+01
+-0.61561337E+01-0.41306434E+01-0.25767187E-01 0.22381325E+01
+ 0.16197391E+01-0.47094798E+01-0.19486105E+01 0.54404092E+01
+-0.23112692E+02 0.87230244E+01 0.41379757E+01-0.82567225E+01
+-0.59944463E+00 0.49454799E+01 0.98528072E-01-0.69704366E+01
+-0.26175516E+01 0.21983194E+01-0.85137612E+00-0.48446989E+01
+-0.34786564E+02-0.13385123E+03 0.53099270E+02 0.98495770E+01
+-0.21858513E+02-0.12796616E+02 0.21972885E+01 0.71941557E+01
+ 0.17378716E+01 0.38053644E+01-0.41692481E+01-0.43841825E+01
+-0.76313013E+00 0.52958324E+02-0.62617264E+02-0.13794221E+03
+-0.20468203E+02-0.26598701E+02 0.76006281E+00-0.45324337E+00
+-0.73798909E+01-0.68499522E+01 0.43220587E+01 0.26352139E+01
+ 0.11029831E+02 0.39386227E+01-0.10278553E+03-0.11709525E+02
+ 0.43092846E+02 0.72482162E+02-0.24375433E+02-0.46230431E+01
+ 0.37790916E+02 0.18252401E+02 0.32258278E+00-0.98822670E+01
+-0.65691562E+01 0.26157690E+02 0.14764631E+02-0.63290554E+02
+ 0.11773388E+03-0.50047344E+02-0.31375063E+02 0.31207630E+02
+-0.13806309E+02-0.21457752E+02-0.76790338E+01 0.33817787E+02
+ 0.16895014E+02-0.18257301E+02-0.33989453E+01 0.31438547E+02
+ 0.73195847E+02 0.30527811E+03-0.27625671E+03-0.13173969E+02
+ 0.52327705E+02 0.43725922E+02-0.53056192E+01-0.26080379E+02
+-0.80343571E+01-0.59193101E+01 0.15645749E+02 0.14612919E+02
+ 0.19771434E+01-0.16780865E+03 0.33273395E+03 0.31980917E+03
+ 0.61927944E+02 0.10291243E+03-0.41476986E+00-0.10810330E+02
+ 0.16019861E+02 0.22894283E+02-0.96919661E+01-0.76568937E+01
+-0.35144093E+02-0.13620372E+02 0.27711322E+03 0.76293732E+02
+-0.24416869E+03-0.23412332E+03 0.59856181E+01 0.27036533E+01
+-0.85468987E+02-0.32569973E+02-0.93770189E+01 0.22770227E+02
+ 0.79303355E+01-0.62524040E+02-0.43537697E+02 0.18402339E+03
+-0.25016977E+03 0.72703697E+02 0.10605528E+03-0.51503254E+02
+ 0.54460190E+02 0.38909683E+02 0.36796562E+02-0.68024529E+02
+-0.41103397E+02 0.53216114E+02 0.20626389E+02-0.76586349E+02
+-0.53355736E+02-0.31135284E+03 0.40809729E+03 0.22601173E+01
+-0.48498844E+02-0.60832169E+02 0.60337324E+01 0.38279335E+02
+ 0.14871668E+02 0.28498704E+01-0.20230135E+02-0.19879827E+02
+-0.18497735E+01 0.21465652E+03-0.48994763E+03-0.32978488E+03
+-0.86516556E+02-0.15399602E+03-0.53305179E+00 0.26561083E+02
+-0.14605586E+02-0.29598482E+02 0.74684277E+01 0.98743944E+01
+ 0.45331917E+02 0.17090784E+02-0.33723950E+03-0.97724586E+02
+ 0.38985550E+03 0.31390698E+03 0.46843403E+02 0.78864837E+01
+ 0.82173851E+02 0.24357899E+02 0.20966228E+02-0.26853407E+02
+-0.14723213E+01 0.67029839E+02 0.53401054E+02-0.18740387E+03
+ 0.25239400E+03-0.10743400E+02-0.13630225E+03 0.44591602E+02
+-0.69500046E+02-0.34749329E+02-0.57859837E+02 0.60593739E+02
+ 0.43181362E+02-0.64212608E+02-0.31543680E+02 0.79737732E+02
+ 0.79219427E+01 0.12230792E+03-0.19162122E+03 0.30479712E+01
+ 0.14701435E+02 0.29905254E+02-0.25530334E+01-0.18944752E+02
+-0.87824144E+01-0.98065168E-01 0.87094259E+01 0.93237696E+01
+ 0.71487147E+00-0.98071724E+02 0.22642126E+03 0.13037717E+03
+ 0.42995682E+02 0.77473969E+02 0.44055769E+00-0.17098782E+02
+ 0.44686174E+01 0.12881230E+02-0.12471923E+01-0.46582799E+01
+-0.20446924E+02-0.70700450E+01 0.15115994E+03 0.37530956E+02
+-0.19583463E+03-0.14785715E+03-0.36896564E+02-0.74833941E+01
+-0.28641958E+02-0.58377399E+01-0.12369586E+02 0.12254857E+02
+-0.14293088E+01-0.26398525E+02-0.23067722E+02 0.59227791E+02
+-0.99076767E+02-0.24037251E+02 0.57410080E+02-0.17986750E+02
+ 0.29093678E+02 0.13013299E+02 0.29289719E+02-0.19803263E+02
+-0.16676153E+02 0.27448059E+02 0.15189789E+02-0.29994450E+02
+ 0.11391176E+00 0.11553436E+00-0.13704097E+00-0.10008467E+01
+-0.24247713E-01 0.66881222E-02-0.69679026E-02-0.18138342E-01
+ 0.27570529E-01 0.35871942E-01 0.73015732E-02-0.69541764E-02
+ 0.26003541E-01-0.63337181E-02 0.59983626E-01-0.62968001E-01
+-0.78753326E-02-0.75065094E+00-0.37398331E-01-0.44260029E-01
+-0.36373198E-01 0.74006170E-02-0.10022034E-02 0.77789617E-02
+ 0.12514464E-01-0.10064091E-01 0.86539829E+00 0.32539025E+00
+-0.91669343E-01-0.73207444E+00 0.26933301E-01 0.13879360E+00
+-0.26311162E+00-0.37850922E+00-0.21304099E+00-0.14258491E+00
+-0.13731001E+00-0.30468129E-01 0.92138372E-01 0.98262489E+00
+-0.15070742E+00 0.71532860E-01-0.49188623E+00-0.57117575E+00
+ 0.43504018E+00 0.19652760E+00-0.13652391E-02-0.67386083E-01
+-0.13397166E+00-0.20012897E+00 0.14705022E+00 0.10473770E-01
+ 0.65290123E+00-0.26946282E+01 0.31813004E+01 0.30024579E+01
+-0.75441279E-01-0.15592440E+01-0.21163237E+00-0.12697160E+00
+-0.19921806E+00-0.66176975E+00 0.10346518E+00-0.18251108E+00
+ 0.17797954E-01 0.18768592E+00-0.25953684E+01 0.43567185E+01
+-0.59679967E+00 0.19172314E+01-0.20841491E+00 0.28366706E+00
+ 0.23806677E+01-0.16260111E+00 0.13395765E+00-0.83577555E+00
+-0.23089887E+00-0.83205447E-03-0.53307676E+01 0.61688054E+00
+ 0.14718913E+01 0.10001513E+02 0.29644825E+01-0.11001223E+01
+ 0.14558415E+01 0.26624279E+01 0.21787982E+01 0.13549827E+01
+ 0.16713557E+01-0.15284111E+00-0.52187556E+00-0.72269955E+01
+ 0.91789746E+00 0.22233882E+01-0.45572978E+00 0.10729968E+02
+-0.29951901E+01-0.21556865E+00 0.35207564E+00 0.13136928E+01
+ 0.57696944E+00 0.23771760E+01-0.17125853E+01-0.86974633E+00
+-0.36376338E+01 0.24080009E+02-0.22185778E+02 0.18825312E+02
+ 0.14852665E+02 0.13149285E+02 0.78031552E+00 0.31474850E+01
+ 0.90485042E+00 0.16362022E+01-0.48030415E+00 0.18465122E+01
+-0.83016783E+00-0.18757300E+01 0.21337709E+02-0.17421923E+02
+-0.10823549E+02 0.15082483E+02-0.15371397E+01-0.41927969E+00
+-0.11322726E+02 0.11449955E+01-0.39108786E+00 0.54798636E+01
+ 0.16054937E+01 0.82940835E+00 0.90842657E+01-0.63919301E+01
+-0.66001620E+01-0.23100986E+02-0.12172362E+02 0.22952433E+01
+-0.42773733E+01-0.51716614E+01-0.57398787E+01-0.32952104E+01
+-0.44157414E+01 0.97596109E+00 0.49134457E+00 0.14462518E+02
+-0.52479367E+01-0.77367229E+01 0.63962259E+01-0.26448858E+02
+ 0.69845829E+01-0.13445467E+01-0.86556637E+00-0.37851818E+01
+-0.59372693E+00-0.62924967E+01 0.47564263E+01 0.29345119E+01
+ 0.36482801E+01-0.54122810E+02 0.51179451E+02-0.67288895E+02
+-0.36518002E+02-0.31562344E+02-0.62648946E+00-0.97915506E+01
+-0.14420407E+01-0.11084070E+01 0.88024229E+00-0.53258376E+01
+ 0.19962699E+01 0.75823536E+01-0.47701122E+02 0.20454948E+02
+ 0.31747019E+02-0.50241886E+02 0.81888828E+01 0.43072930E+00
+ 0.17209768E+02-0.32296555E+01-0.40862790E+00-0.11610971E+02
+-0.27689962E+01-0.20991716E+01-0.50960884E+01 0.83177357E+01
+ 0.55298500E+01 0.15825745E+02 0.13216482E+02-0.14331723E+01
+ 0.36789041E+01 0.29861968E+01 0.41942501E+01 0.21892414E+01
+ 0.33499987E+01-0.10724663E+01 0.32862183E-01-0.85228519E+01
+ 0.73134866E+01 0.61695185E+01-0.86385641E+01 0.17545185E+02
+-0.52412457E+01 0.18066072E+01 0.71043044E+00 0.29276321E+01
+-0.61344326E-01 0.45447369E+01-0.35246754E+01-0.23307092E+01
+-0.14690654E+01 0.35724678E+02-0.35846252E+02 0.50520844E+02
+ 0.23054344E+02 0.21617199E+02 0.42514130E+00 0.79941406E+01
+ 0.58302629E+00 0.34610984E+00-0.60215044E+00 0.39643900E+01
+-0.13188493E+01-0.92348213E+01 0.30514215E+02-0.52573867E+01
+-0.22224283E+02 0.36993191E+02-0.71565070E+01-0.77821231E+00
+-0.85328360E+01 0.27982295E+01 0.89062178E+00 0.76935654E+01
+ 0.13601083E+01 0.11444426E+01-0.74351348E-01 0.11168007E+00
+-0.12678429E+00-0.30625785E-01 0.81547037E-01-0.26790616E+00
+-0.77349359E+00 0.18570652E-01 0.38729448E-01 0.77069057E-02
+ 0.12018093E-01-0.19658063E-01-0.86077964E-02 0.12409092E+00
+-0.10666509E+00 0.45101717E-01 0.15352032E-01 0.32349147E-01
+ 0.78267974E+00-0.29498765E+00-0.52898012E-01 0.61348882E-01
+ 0.11466916E-01 0.13180029E-02 0.22439856E-01 0.54106647E-02
+ 0.23398851E+00 0.64493269E+00-0.25810570E+00-0.12363273E+00
+-0.66201246E+00-0.27819201E+00-0.30108163E+00-0.24624993E+00
+ 0.83835699E-01-0.74149808E-02 0.13186117E+00-0.16377572E-01
+-0.61401571E-02-0.10936357E+00-0.29475041E-01 0.53700852E+00
+ 0.50398592E-01-0.11941080E+00 0.84602892E+00-0.45599923E+00
+-0.29877833E+00-0.10263894E+00-0.88044167E-01-0.85591517E-01
+ 0.64158496E-02 0.54729246E-02 0.34892559E+00 0.13616563E-01
+ 0.68630129E+00 0.92597771E+00-0.78667665E+00 0.75528562E+00
+ 0.13148088E+01 0.89991748E-01-0.31526265E+00 0.76205105E-01
+-0.15212275E+00 0.11211587E+00 0.32542087E-01-0.11553695E+01
+ 0.24110079E+01-0.11516421E+01 0.59397310E+00-0.87734061E+00
+-0.15284475E+01 0.15883173E+01 0.54522204E+00-0.40533349E+00
+ 0.17719109E-01-0.13833664E+00-0.10189562E+00-0.79786859E-01
+-0.51425898E+00-0.15127133E+01 0.96630716E+00 0.11464612E+00
+ 0.11833749E+01 0.31068289E+00-0.74194200E-01 0.72967577E+00
+-0.67832701E-01-0.77846984E-03-0.20988442E+00-0.51187862E-01
+ 0.38249537E-01-0.78501157E-01 0.32682669E+00-0.10028919E+01
+-0.68409115E+00 0.19638067E+00-0.12582335E+01 0.71608400E+00
+ 0.40842831E+00 0.26023892E+00 0.20802367E+00 0.18907779E+00
+-0.95071457E-01-0.14524133E-01 0.70622310E-01-0.23873582E-01
+-0.46930566E+00-0.11361483E+01 0.12044519E+01-0.13642393E+01
+-0.16782405E+01-0.27571243E+00 0.62265939E+00-0.27575913E+00
+ 0.26088655E+00-0.17131169E+00-0.96791862E-02 0.16397073E+01
+-0.35624073E+01 0.21964977E+01-0.69169527E+00 0.17876031E+01
+ 0.23638010E+01-0.29829438E+01-0.65094346E+00 0.50062829E+00
+-0.78845382E-01 0.20135802E+00 0.35707735E-01 0.43332722E-01
+-0.73506460E-02-0.20373339E-01-0.59456583E-02 0.47092013E-01
+ 0.59794255E-01-0.22777202E-01 0.34936242E-01 0.28207561E+00
+-0.12549119E+00 0.68888762E-02 0.73659769E-02-0.16957685E-01
+-0.69591464E-02 0.60888998E-01 0.48170742E-01 0.90240315E-02
+-0.23745389E-02-0.88016756E-01 0.73502366E-02-0.11265669E-02
+ 0.12217470E+00 0.24448656E+00-0.23252072E-02-0.70067816E-02
+-0.43141777E-02-0.13638792E-01-0.21918522E-01 0.39478119E-01
+ 0.21353072E-01-0.17231616E+00-0.24383087E+00-0.18098043E+00
+ 0.78112222E-01-0.96717022E-01-0.21291029E+00-0.78414723E-01
+ 0.27862417E-01 0.96148206E-02 0.23770265E-01-0.13406623E-01
+-0.97504027E-01-0.22518177E-01 0.13743083E+00 0.13689157E+00
+-0.19897047E-01-0.10379756E+00 0.18668231E+00-0.28371491E-01
+-0.66896580E-01-0.45131464E-01 0.52789491E-01-0.40041968E-01
+-0.66618256E-01 0.42511921E-01-0.38794965E-01-0.10955274E-01
+ 0.30871356E-01 0.52086008E-02 0.24081491E-01-0.67935861E-02
+-0.13217943E-01 0.82531139E-01 0.28200027E+00-0.76102950E-02
+-0.90683848E-02 0.23629055E-02-0.10296953E-02-0.14055242E-01
+-0.31999350E-01-0.57006430E-01 0.18182561E-01-0.55214246E-02
+ 0.49740784E-02-0.54625701E-01-0.27094826E+00 0.51207963E-01
+ 0.45274422E-02 0.16952408E-01 0.41054886E-01-0.54486718E-01
+-0.10627154E-01-0.28977985E-01 0.76224119E-02 0.58471583E-01
+-0.90225777E-02 0.22696028E-01-0.16175291E-01 0.21533300E-02
+ 0.36474864E-02-0.14331755E+00-0.11911416E-01-0.35727635E-01
+-0.25858898E-01-0.81544844E-02 0.45217113E-02 0.82371887E-02
+ 0.27359465E-01-0.12122327E-01-0.90430006E-02-0.25242612E-01
+-0.10398197E-01-0.11534831E-01 0.29744126E-01-0.14588501E+00
+-0.27973065E-01-0.17960723E-01-0.72880231E-01-0.13211422E-01
+ 0.74935732E-02 0.40451571E-01-0.13288229E-02 0.23200864E-01
+-0.21652490E-01 0.10630924E-01-0.19871013E-01-0.89811655E-02
+ 0.44909436E-02 0.15431918E-01 0.17651659E-01 0.37659165E-01
+ 0.40000812E-02 0.67411782E-02 0.39261781E-01 0.64045368E-02
+ 0.15160269E-01 0.13118289E-01-0.23408243E-01-0.30519590E-02
+-0.95153069E-02-0.35423130E-01 0.18906865E-01 0.64482591E-02
+-0.96611172E-01 0.15293910E-01-0.54000065E-01 0.30757926E-01
+ 0.59357233E-01 0.36398362E-01 0.25581049E-02 0.11665761E-01
+ 0.56256289E-02 0.57567651E-02 0.31496417E-02-0.46144247E-01
+ 0.41687142E-01-0.34603193E-01 0.53481121E-01 0.11668256E-01
+-0.49698236E-02 0.57190461E-02 0.17202956E-02-0.39180489E-02
+-0.26724448E-01-0.32743976E-01 0.17875217E-01-0.13148283E-01
+ 0.97347717E+01 0.80199363E-02 0.88190660E-01 0.34591865E-01
+-0.20683805E-01 0.29348714E-01-0.21960216E-01-0.94146077E-02
+ 0.15242774E-02 0.18784342E-01-0.42741881E-02-0.11803485E-01
+ 0.89114830E-02 0.17238567E+01-0.14606644E+00-0.23781560E+00
+-0.18891615E+00-0.83614878E-01 0.48989985E-01-0.23082246E+00
+-0.45915204E+00 0.52839011E-01 0.65929607E-01-0.27021214E+00
+ 0.59767954E-01 0.45384470E-01 0.26139549E+02-0.26177337E+01
+-0.18818336E+01 0.28918128E+01 0.26626935E+01-0.13387190E+01
+ 0.35804051E+00 0.61114317E+00-0.39724249E+00-0.34554461E+00
+ 0.11107710E-01 0.46736574E+00-0.14963689E+00-0.14329063E+02
+ 0.17789959E+01 0.11053965E+02 0.40939870E+01 0.74688954E+01
+ 0.81202614E+00 0.18834094E+01 0.78406534E+01 0.12138880E+01
+-0.18455257E+01 0.44079385E+01-0.87374485E+00-0.19130919E+01
+-0.12161191E+03 0.20769333E+02 0.10549552E+02-0.25936485E+02
+-0.22852907E+02 0.10790629E+02 0.59407198E+00-0.15447999E+01
+ 0.52851825E+01 0.17490312E+00 0.17242504E+01-0.27120554E+01
+ 0.20165932E+00 0.56903176E+01-0.30547829E+02-0.53477966E+02
+-0.13067127E+02-0.37363407E+02-0.77788720E+01-0.83473549E+01
+-0.36846283E+02-0.10496927E+02 0.98110600E+01-0.20411940E+02
+ 0.33325286E+01 0.11927084E+02 0.18244954E+03-0.48165424E+02
+-0.24666487E+02 0.77004440E+02 0.64335304E+02-0.29243431E+02
+-0.68443341E+01-0.68185717E+00-0.17612892E+02 0.27443240E+01
+-0.67463579E+01 0.52837248E+01 0.84665340E+00 0.83355324E+02
+ 0.10590702E+03 0.85216660E+02 0.10837219E+02 0.71135712E+02
+ 0.20155458E+02 0.19259611E+02 0.72910683E+02 0.27517429E+02
+-0.19637804E+02 0.41009953E+02-0.52474489E+01-0.27441065E+02
+-0.12251460E+03 0.41699898E+02 0.27045620E+02-0.92491447E+02
+-0.72843239E+02 0.32114170E+02 0.11262262E+02 0.40949612E+01
+ 0.22106949E+02-0.48072939E+01 0.86024685E+01-0.41298609E+01
+-0.18827738E+01-0.14486723E+03-0.13257008E+03-0.48221794E+02
+ 0.35999949E+01-0.58804531E+02-0.19716801E+02-0.20199421E+02
+-0.64824928E+02-0.29064964E+02 0.16903173E+02-0.37667240E+02
+ 0.34804225E+01 0.26898163E+02 0.30944574E+02-0.11548166E+02
+-0.11504376E+02 0.38749798E+02 0.28696703E+02-0.12365782E+02
+-0.53707695E+01-0.24697113E+01-0.94244776E+01 0.22112002E+01
+-0.35927393E+01 0.10858067E+01 0.97322190E+00 0.68757813E+02
+ 0.55788937E+02 0.54013424E+01-0.52038832E+01 0.17593607E+02
+ 0.63505483E+01 0.76194353E+01 0.21402803E+02 0.10745119E+02
+-0.52722220E+01 0.12947476E+02-0.74531823E+00-0.95251179E+01
+-0.11819898E+00 0.16981829E+01 0.17257081E+01-0.46752773E-01
+ 0.31282842E-01-0.48106876E-02 0.42170644E-01 0.12124905E-01
+-0.19874832E-01 0.12629480E-01 0.39389998E-01-0.12933319E-01
+-0.14372598E-01 0.10223607E+00-0.16555769E+01 0.15552585E+01
+-0.12264324E+00 0.65852158E-01-0.47787797E-03-0.17770162E-01
+ 0.24633724E-01-0.14257873E-01-0.19858574E-01 0.25402587E-01
+-0.80514261E-02 0.68274671E-02-0.99085343E+00 0.17199130E+01
+-0.47460574E+00-0.74100316E+00 0.10574152E+01 0.11296365E+00
+ 0.82022703E+00-0.18898286E+00 0.36352620E+00 0.80850042E-01
+-0.19919536E+00-0.40538307E-01 0.16510320E+00 0.11990190E+01
+ 0.51340390E-01 0.75055975E+00-0.12824067E+01 0.86559242E+00
+-0.28388435E-02 0.14062119E-01 0.24629071E+00 0.20781083E+00
+-0.11486780E+00 0.91260616E-02 0.73089264E-01-0.38038802E-02
+ 0.51901360E+01 0.11364080E+02-0.14781400E+02 0.34115415E+01
+ 0.17582846E+01 0.49295741E+00 0.74259001E+00 0.60993052E+00
+ 0.43994176E+00 0.49398413E+00-0.82156599E-01 0.19255295E+00
+ 0.72789848E+00-0.10661777E+02 0.13685346E+02 0.17330500E+02
+ 0.17598805E+01 0.15718225E+01-0.35067117E+00-0.24391625E+01
+ 0.87025601E+00 0.10643625E+01 0.49751109E+00-0.65840626E+00
+ 0.33091986E+00-0.13313615E+01 0.21538338E+02-0.17283089E+02
+ 0.23691774E+02 0.43560233E+01-0.13055443E+02 0.54472351E+00
+-0.12533862E+02 0.69577451E+01-0.59899955E+01-0.24915967E+01
+ 0.48114142E+01-0.15907498E+00-0.37714081E+01-0.12313134E+02
+-0.22617418E+02 0.24490969E+01 0.22901756E+02-0.17509409E+02
+ 0.51498137E+01 0.57923192E+00-0.68807111E+01-0.37194932E+01
+ 0.33164258E+01-0.77732426E+00-0.33252787E-01-0.22301903E+01
+-0.31336721E+02 0.28626883E+01 0.13524348E+03-0.29654032E+02
+-0.11670376E+02-0.11883139E+02-0.67173586E+01-0.26616092E+01
+-0.46543760E+01-0.62572255E+01-0.36758001E+01-0.12831590E+00
+-0.83014069E+01 0.10399525E+03-0.14304045E+03-0.14625183E+02
+-0.12641206E+02-0.18179705E+02 0.63950963E+01 0.24394505E+02
+-0.26621683E+01-0.96777048E+01-0.36132805E+01 0.60474663E+01
+-0.52178507E+01 0.14800138E+02-0.13617873E+03 0.98202393E+02
+-0.52166687E+02 0.82724130E+00 0.79597404E+02-0.97800264E+01
+ 0.51829216E+02-0.55843555E+02 0.30942001E+02 0.15340666E+02
+-0.32310665E+02 0.47805400E+01 0.16678785E+02 0.71018166E+02
+ 0.11442221E+03 0.75697632E+01-0.13351144E+03 0.80042564E+02
+-0.19554031E+02-0.23364079E+01 0.45533413E+02 0.25092596E+02
+-0.27485874E+02 0.11551980E+02-0.85284805E+01 0.22155190E+02
+ 0.72216705E+02-0.18108649E+03-0.35639267E+03 0.91767868E+02
+ 0.27649412E+02 0.51445087E+02 0.16393131E+02 0.84795976E+00
+ 0.11156778E+02 0.21300432E+02 0.15415002E+02-0.20493467E+01
+ 0.29226500E+02-0.33076926E+03 0.39775549E+03-0.19134296E+03
+ 0.43584145E+02 0.63088699E+02-0.25370869E+02-0.73108444E+02
+ 0.75435942E+00 0.30592009E+02 0.11364077E+02-0.18345686E+02
+ 0.19485804E+02-0.48085079E+02 0.35883054E+03-0.27099554E+03
+-0.71656799E+02-0.42929935E+02-0.21730473E+03 0.31643620E+02
+-0.90837830E+02 0.16265657E+03-0.70991798E+02-0.36282787E+02
+ 0.85148849E+02-0.18301117E+02-0.27730669E+02-0.21271365E+03
+-0.24034344E+03-0.90665169E+02 0.33108362E+03-0.14937883E+03
+ 0.15747417E+02 0.58647780E+01-0.11471978E+03-0.71360039E+02
+ 0.83697266E+02-0.38742779E+02 0.33933643E+02-0.68442345E+02
+-0.65536263E+02 0.34354947E+03 0.40484613E+03-0.11488379E+03
+-0.30950413E+02-0.81028809E+02-0.16655785E+02 0.55178194E+01
+-0.82527332E+01-0.27838104E+02-0.20135136E+02 0.50235019E+01
+-0.40293743E+02 0.42467825E+03-0.45499557E+03 0.41682208E+03
+-0.65872879E+02-0.86527466E+02 0.35884357E+02 0.88252113E+02
+ 0.32965231E+01-0.39156567E+02-0.14947558E+02 0.21975187E+02
+-0.26912621E+02 0.60366070E+02-0.41629010E+03 0.33380893E+03
+ 0.27333212E+03 0.82168999E+02 0.25991666E+03-0.40061562E+02
+ 0.73255257E+02-0.19695262E+03 0.74450417E+02 0.36899387E+02
+-0.95648888E+02 0.25082708E+02 0.18237814E+02 0.29320822E+03
+ 0.22077357E+03 0.16044160E+03-0.35729318E+03 0.12526577E+03
+ 0.13969834E+02-0.11527355E+02 0.12376456E+03 0.87678589E+02
+-0.10517470E+03 0.47443066E+02-0.45187057E+02 0.84595184E+02
+ 0.20050932E+02-0.17802786E+03-0.16851566E+03 0.49642143E+02
+ 0.13681282E+02 0.42664768E+02 0.62386675E+01-0.44329839E+01
+ 0.11935354E+01 0.12374495E+02 0.84155293E+01-0.32429960E+01
+ 0.19101906E+02-0.19180679E+03 0.18370607E+03-0.23252710E+03
+ 0.34046066E+02 0.40737797E+02-0.16559662E+02-0.37816505E+02
+-0.23657224E+01 0.17279062E+02 0.67948833E+01-0.89706383E+01
+ 0.12578118E+02-0.25909058E+02 0.17511346E+03-0.14709790E+03
+-0.17955647E+03-0.46925884E+02-0.11192869E+03 0.18169199E+02
+-0.22695395E+02 0.84683502E+02-0.29096594E+02-0.13504688E+02
+ 0.38522060E+02-0.11487776E+02-0.34478912E+01-0.14182312E+03
+-0.71934738E+02-0.81841087E+02 0.13787189E+03-0.40718723E+02
+-0.16116909E+02 0.78342290E+01-0.48472740E+02-0.38284924E+02
+ 0.46472549E+02-0.19452414E+02 0.19880957E+02-0.36534100E+02
+ 0.72543673E-01-0.91503099E-01-0.11593870E+00-0.89834797E+00
+ 0.61833626E+00 0.47313958E-01 0.14711141E-02 0.10285539E-01
+-0.22091963E-02-0.20506838E-01 0.34120739E-01-0.22531549E-01
+-0.78072742E-03-0.96214540E-01-0.54838866E-01-0.14777187E+00
+-0.64081067E+00-0.69528621E+00-0.30307973E-01-0.33019181E-01
+ 0.77059716E-02-0.97604236E-02 0.16391926E-02 0.17542893E-02
+ 0.45385696E-02-0.20407379E-01 0.10522875E+01 0.18861838E+00
+-0.25081074E-01-0.14823078E+01 0.23610927E+00 0.65894437E+00
+-0.24199405E+00-0.87921269E-01-0.54795289E+00-0.14422113E+00
+-0.10366818E+00-0.18718950E+00 0.21545326E-01 0.42069238E+00
+-0.22901510E+00-0.91535009E-01 0.25210852E-01-0.13556504E+01
+ 0.37180072E+00 0.70798683E+00 0.22921542E-01 0.14435732E+00
+ 0.44424638E-01-0.13737643E+00 0.19060686E-01 0.10951717E+00
+ 0.14380064E+01-0.18441191E+00 0.46994653E+01-0.21012435E+01
+ 0.58279996E+01-0.13754472E+01-0.14721313E+01 0.12456217E+00
+-0.15493175E+00 0.83261234E+00-0.55525309E+00-0.44475816E-01
+ 0.58509374E+00 0.19653126E+01-0.75903958E+00 0.46786284E+01
+-0.82793903E+01-0.22516363E+01 0.15342182E+01-0.47626281E+00
+ 0.35320488E+00 0.90423584E+00-0.91187485E-01-0.61380106E+00
+-0.55390352E+00 0.45646802E+00-0.69860544E+01-0.81822312E+00
+-0.18467587E+01 0.76645608E+01 0.19130971E+01-0.54477286E+01
+ 0.15927750E+01 0.45357141E+00 0.58195391E+01 0.14146249E+01
+ 0.78945208E+00 0.14831167E+01-0.24750523E+00-0.21675032E+00
+ 0.16968607E+01-0.38511195E+01-0.57537832E+01 0.97383308E+01
+-0.13728514E+01-0.47436857E+01-0.27548201E+01-0.15055325E+01
+ 0.76347262E-01 0.40537009E+00-0.25368646E+00-0.12546912E+01
+-0.13612036E+02 0.10055150E+02-0.42518852E+02 0.18920910E+02
+-0.25449715E+02 0.61947532E+01 0.10574360E+02 0.17470124E+01
+-0.16524613E+00-0.48321452E+01 0.26428554E+01 0.16906739E+01
+-0.48421707E+01-0.15996868E+02 0.18508348E+02-0.23283045E+02
+ 0.35497883E+02 0.12486041E+02-0.13592185E+02 0.23057771E+01
+-0.33479509E+01-0.91297178E+01 0.20603864E+01 0.30273182E+01
+ 0.47495813E+01-0.24556153E+01 0.14484992E+02-0.12824783E+01
+ 0.20726955E+01-0.13500336E+02-0.13579147E+02 0.12507603E+02
+-0.44871597E+01-0.13822854E+01-0.16225626E+02-0.32869406E+01
+-0.13542657E+01-0.36956699E+01 0.49570027E+00-0.28008471E+01
+-0.72233214E+01 0.16578836E+02 0.20905169E+02-0.18679207E+02
+ 0.21797931E+01 0.85508757E+01 0.10466122E+02 0.37626474E+01
+-0.83420086E+00-0.52542210E+00 0.81247646E+00 0.30173633E+01
+ 0.29996330E+02-0.24423285E+02 0.98381447E+02-0.40458511E+02
+ 0.31081457E+02-0.10232323E+02-0.22379601E+02-0.84146442E+01
+ 0.16865023E+01 0.94843407E+01-0.36858835E+01-0.51620426E+01
+ 0.11019040E+02 0.38974052E+02-0.47553543E+02 0.32823261E+02
+-0.45407307E+02-0.18267160E+02 0.32208038E+02-0.38544316E+01
+ 0.74274793E+01 0.22328951E+02-0.70309253E+01-0.59846663E+01
+-0.10427266E+02 0.56140108E+01-0.11142906E+02 0.50988245E+01
+-0.87233227E+00 0.10051833E+02 0.17175941E+02-0.81438684E+01
+ 0.35580683E+01 0.14108999E+01 0.12470690E+02 0.20998702E+01
+ 0.89491493E+00 0.26432147E+01-0.34282866E+00 0.32492125E+01
+ 0.95376787E+01-0.15285566E+02-0.19982004E+02 0.12006571E+02
+-0.14975014E+01-0.40201006E+01-0.91834297E+01-0.27835941E+01
+ 0.51126963E+00 0.23976563E+00-0.81174558E+00-0.18622959E+01
+-0.20657648E+02 0.16039457E+02-0.63869217E+02 0.26869730E+02
+-0.87734652E+01 0.46892033E+01 0.14171228E+02 0.80630875E+01
+-0.16122298E+01-0.58862243E+01 0.13981988E+01 0.40675755E+01
+-0.73429766E+01-0.29788891E+02 0.30969652E+02-0.10377958E+02
+ 0.15621193E+02 0.83370752E+01-0.22060728E+02 0.21002872E+01
+-0.47829390E+01-0.15391683E+02 0.58026686E+01 0.41257248E+01
+ 0.70328178E+01-0.43682208E+01-0.13153026E+00 0.52396119E-01
+-0.78708120E-01-0.31984996E-01 0.66879772E-01-0.44668841E+00
+-0.11997780E+01 0.44919256E-01-0.21612016E-01-0.85290587E-02
+ 0.40041875E-01-0.18274922E-01-0.12108567E-01 0.68851382E-01
+-0.16586338E+00 0.10567039E+00-0.35489373E-01 0.10825994E+00
+ 0.11110218E+01-0.48024797E+00-0.32602344E-01 0.30053170E-01
+ 0.14435068E-01-0.43142173E-01 0.28743999E-01-0.16354781E-03
+ 0.43814236E+00 0.41187561E+00-0.30113024E+00 0.17926472E+00
+-0.76448750E+00-0.22111153E-01-0.31990391E+00-0.39657485E-01
+ 0.26836851E+00 0.31483594E-01 0.17101410E+00-0.48243791E-01
+ 0.58657944E-01 0.29777789E+00 0.70694327E-01 0.46847123E+00
+ 0.16531505E+00-0.68414465E-01 0.86738020E+00-0.25612119E+00
+-0.27293500E+00 0.91270700E-01 0.98998006E-02-0.54274175E-01
+ 0.55843040E-01 0.87239005E-01 0.14875149E+01 0.18058693E+00
+ 0.96503448E+00 0.38504772E-01-0.81080878E+00 0.23628514E+01
+ 0.31373041E+01 0.35168904E+00 0.17957918E+00 0.99717319E-01
+ 0.12352602E+00-0.28581694E-01 0.32931817E+00-0.18351794E+01
+ 0.33663924E+01-0.17299489E+01 0.30873060E+00-0.10293868E+01
+-0.27952218E+01 0.29568193E+01 0.23304486E+00 0.48831758E+00
+-0.16388200E-01 0.26351678E+00-0.23727889E+00 0.21022537E+00
+-0.37114632E+00-0.61679882E+00 0.70735806E+00-0.31027344E+00
+ 0.14951218E+01-0.35590678E+00-0.21566993E-02 0.32540190E+00
+-0.41896856E+00-0.11011457E+00-0.22550862E+00-0.13376597E+00
+-0.11999568E+00-0.62257117E+00-0.84297568E-01-0.13334845E+01
+-0.10768685E+01 0.16588950E+00-0.11461290E+01-0.81029370E-01
+ 0.43433130E+00-0.16242850E+00-0.12601896E-01 0.15622550E+00
+-0.24858958E+00-0.19455425E+00-0.25591044E+01 0.25164348E+00
+-0.15365639E+01-0.79542905E-01 0.11995534E+01-0.45441856E+01
+-0.45316739E+01-0.10119162E+01-0.80300719E-01-0.52209429E-01
+-0.35192704E+00 0.85065439E-01-0.56523353E+00 0.30118430E+01
+-0.47145052E+01 0.29010694E+01-0.36481506E+00 0.11654499E+01
+ 0.43329029E+01-0.52999201E+01-0.24453495E+00-0.10941246E+01
+ 0.39213534E-01-0.34023368E+00 0.27661625E+00-0.51622367E+00
+-0.63605845E-01 0.50896596E-01 0.11700895E-01 0.43969844E-01
+ 0.13695911E+00-0.28410681E-01-0.93208402E-02 0.34158775E+00
+-0.23341532E+00 0.18170308E-01 0.19188978E-02-0.67197052E-02
+ 0.79181036E-02 0.70990942E-01 0.41841712E-01 0.20218294E-02
+ 0.81035674E-01-0.52733000E-01-0.91757327E-02-0.15658233E-01
+ 0.20307919E+00 0.37615097E+00-0.61855074E-02 0.74328687E-02
+ 0.91638947E-02-0.92550581E-02 0.22771759E+00-0.20004077E-01
+-0.19363023E+00-0.27965687E-02 0.73775589E-02-0.16548780E+00
+ 0.24623014E-01 0.59029967E-01-0.32041299E+00-0.62310666E-01
+-0.22864670E-01 0.68012923E-02 0.41548245E-01 0.16248761E+00
+-0.53943157E-01-0.10124869E+00 0.88020787E-01 0.84402587E-03
+-0.98183513E-01-0.16950405E+00 0.16585672E+00 0.22753301E+00
+-0.47868274E-01-0.62641405E-01 0.39978638E-01-0.17434882E-01
+-0.12619768E+00 0.46246566E-01-0.21488875E-01 0.72626024E-01
+ 0.24535481E-01 0.37770525E-01 0.66443910E-02-0.34785960E-01
+ 0.48899220E-03 0.11222392E+00 0.31389341E+00-0.94639612E-02
+ 0.29937252E-02 0.18342680E+00-0.42065293E-01 0.56304694E-02
+-0.50527258E-02-0.67958511E-01-0.14655957E-01 0.18668728E-01
+ 0.40048421E-02-0.52483652E-01-0.29388085E+00 0.83209299E-01
+ 0.99197831E-02 0.39488561E-02 0.73701084E-01-0.11414203E+00
+ 0.50474752E-01 0.52794013E-02 0.51152506E-02 0.31500902E-01
+ 0.14944745E-01 0.27513613E-02-0.20441337E-01-0.17187309E-01
+ 0.23239015E-01-0.15333304E+00 0.10820904E-01 0.10246071E+00
+-0.10813680E-01-0.28045259E-01 0.85988389E-02-0.66896558E-01
+ 0.20317493E-01-0.25311206E-01 0.21137524E-01-0.59515103E-02
+-0.73466594E-02-0.46075849E-03-0.14882740E-01-0.15001261E+00
+-0.62333126E-01-0.11848945E+00-0.74348420E-01-0.13404631E-02
+-0.22817828E-01-0.10830126E-01-0.48877955E-02 0.12237122E-01
+-0.30541401E-01 0.57756705E-02-0.10295756E-01 0.12080544E-01
+-0.14406471E-01 0.41248910E-01 0.44591889E-01 0.36592875E-01
+ 0.55447145E-03 0.19915281E-01-0.63508269E-02-0.47519132E-01
+ 0.28801892E-01 0.77612209E-02-0.59790271E-02 0.73863971E-02
+ 0.16617060E-01-0.22494165E-01-0.71962871E-01-0.41219030E-01
+-0.70982397E-01 0.12210120E-01-0.87522060E-01-0.47411237E-01
+ 0.57425763E-01 0.45690551E-01 0.26248202E-01 0.28013919E-01
+-0.16828964E-02 0.15796809E-01 0.20284114E-01-0.47389165E-01
+ 0.37087288E-01-0.58108825E-01-0.54313848E-02 0.10483098E+00
+ 0.13532057E-01-0.20340554E-01-0.50312970E-02-0.42387201E-02
+-0.89632040E-02-0.32773022E-01 0.21721894E-01 0.10820904E-01
+ 0.30495803E+01 0.35076546E-02 0.76724417E-02 0.87806750E-02
+ 0.47458550E-02 0.25473754E-02 0.29852835E-02-0.12277642E-03
+-0.32025625E-03 0.10599100E+00-0.21536589E-01 0.46008382E-01
+ 0.78201421E-01 0.22680618E-01-0.46905663E-01-0.96271224E-02
+ 0.12562236E-01 0.24986399E-01 0.10458715E+01-0.25089502E-01
+-0.17962436E+00-0.17404799E+00-0.22410804E-01 0.27813714E-01
+-0.18103598E-01-0.58276366E-01 0.26434981E-02 0.17178220E+00
+-0.15449823E+00-0.10333893E+00-0.18914133E+00-0.13402216E+00
+ 0.16679610E+00 0.46815984E-01-0.91324374E-02-0.10088239E+00
+-0.18385901E+01 0.77625453E-01 0.55216676E+00 0.35753915E+00
+-0.87231752E-02-0.51372502E-01 0.34072302E-01 0.17208675E+00
+-0.13502965E-01-0.32891473E+00 0.15413617E+00 0.46012118E-01
+ 0.10862464E+00 0.12537768E+00-0.12952726E+00-0.47462337E-01
+-0.35870597E-02 0.86061329E-01 0.89103073E+00-0.37754770E-01
+-0.38592705E+00-0.17952418E+00 0.40533390E-01 0.47559445E-02
+-0.18648680E-01-0.11294576E+00 0.12865890E-01-0.69007248E-03
+-0.18691148E+00-0.33661303E+00 0.48614144E-02 0.11631002E-01
+-0.95324073E-03 0.85280649E-02 0.36868376E-02 0.60911463E-02
+ 0.32471757E-01 0.35279295E+00-0.18637425E+00-0.75623016E-02
+-0.97096683E-02 0.31888080E-02-0.51301736E-02-0.62356037E-02
+ 0.11819322E-01-0.84096253E-01 0.25142324E+00-0.35519764E-01
+ 0.26370287E-01 0.97039536E-01-0.31170715E-01-0.37270427E-01
+ 0.46906836E-01 0.65398109E-02 0.45785110E-01 0.13975869E+00
+ 0.26513165E+00-0.29776646E-01-0.25009252E-01 0.36971882E-01
+-0.30679654E-01 0.35375282E-01 0.11662492E+00 0.15254179E+00
+ 0.67530102E+00 0.15002052E+01 0.58707792E-01-0.19350794E+00
+ 0.69749169E-01-0.31615756E-01-0.64090937E-01-0.20062795E+00
+-0.83293790E+00-0.15851485E+01 0.79647267E+00 0.14819029E+00
+ 0.13229819E+00-0.22473099E-01 0.55494748E-01 0.13741881E+00
+-0.30662367E+00 0.15882361E+01-0.10474651E+01 0.56707895E+00
+ 0.21353865E+00-0.70312959E+00 0.67766070E-01 0.13480249E+00
+-0.26861522E+00 0.10558596E+00 0.42528209E+00-0.81927925E+00
+-0.13487948E+01-0.28105810E+00 0.56431311E+00-0.22810178E+00
+ 0.15924788E+00-0.40170720E+00-0.70476109E+00-0.50016040E+00
+-0.57117230E+00-0.95467204E+00-0.63309115E+00 0.40046284E+00
+-0.30428410E+00 0.42816602E-01 0.86010098E-01 0.67586058E+00
+ 0.25389247E+01 0.97007108E+00-0.13116745E+01-0.12303472E+00
+-0.53631330E+00 0.64055860E-01-0.72015218E-01-0.42832959E+00
+ 0.86087793E+00-0.44755645E+01 0.10564411E+01-0.66151208E+00
+-0.45737475E+00 0.15295455E+01 0.55482633E-01-0.10898267E+00
+ 0.44265333E+00-0.39993185E+00-0.14845783E+01 0.12734603E+01
+ 0.23328686E+01 0.94133908E+00-0.13304437E+01 0.53523225E+00
+-0.28171411E+00 0.10899057E+01 0.11757891E+01 0.43657407E+00
+ 0.14657229E+00 0.85669927E-01 0.69275594E+00-0.22207183E+00
+ 0.28957173E+00 0.16122398E-02 0.24003390E-01-0.55424219E+00
+-0.20080192E+01 0.30063149E+00 0.88270497E+00-0.69684193E-01
+ 0.51002681E+00-0.63769467E-01 0.87251076E-02 0.35308439E+00
+-0.61427212E+00 0.32225552E+01-0.25058147E-02 0.50169885E+00
+ 0.13464716E+00-0.10105824E+01-0.71476690E-01 0.32011800E-01
+-0.21982677E+00 0.30498490E+00 0.11992681E+01-0.96706653E+00
+-0.11388683E+01-0.73485720E+00 0.80431402E+00-0.39570120E+00
+ 0.16278829E+00-0.83236420E+00-0.58864450E+00-0.14675558E-01
+-0.23623409E-01-0.17950738E-01 0.66034064E-01-0.11922826E+00
+-0.54179137E-02 0.14375948E-01-0.60841944E-02-0.26708576E-02
+ 0.43763379E-02-0.10887975E-01-0.71096844E-02 0.11585610E+00
+ 0.90701804E-01 0.55126945E-03 0.56899362E-02 0.31451138E-02
+-0.52986522E-02 0.10125032E+00 0.17959675E+00 0.10625629E+00
+-0.50184567E-01 0.10304492E+00 0.24058525E-01-0.32390207E-01
+ 0.75553027E-02-0.20764861E-01-0.11460812E+00 0.79707839E-01
+-0.29399197E-02-0.67522340E-01 0.13258697E+00 0.49736477E-01
+-0.78869835E-02-0.39157858E-02 0.24828205E-01 0.10480853E+00
+ 0.19343019E+00 0.17289962E+00-0.31678677E+00-0.17360756E+00
+ 0.37843499E-01 0.62656075E-01-0.18113919E-02-0.78926899E-01
+-0.26774183E+00-0.22751540E-01-0.13300699E+00 0.24421448E+00
+-0.40151697E+00-0.44680607E-01 0.90509988E-01-0.45797311E-01
+-0.19253580E-01-0.53374827E+00-0.90245152E+00-0.14048404E+00
+ 0.31762448E+00-0.75603151E+00-0.17422198E+00 0.16830654E+00
+-0.67688487E-01 0.83993100E-01 0.92552233E+00-0.17285006E-01
+ 0.26109925E+00 0.74910748E+00-0.50195232E-01-0.18097821E+00
+-0.59655149E-01 0.36261849E-01-0.16167022E+00-0.18626483E+00
+-0.31044501E+00-0.34045997E+00 0.30551198E+00 0.83555371E-01
+-0.10926255E+00-0.14400959E+00 0.99276425E-02 0.17333107E+00
+ 0.29973921E+00-0.38495310E-01 0.25320417E+00-0.16226833E+00
+ 0.34776387E+00 0.68651758E-01-0.18148483E+00 0.94451770E-01
+ 0.44157453E-01 0.68308866E+00 0.12142456E+01 0.23941616E-01
+-0.49178913E+00 0.10317271E+01 0.30297923E+00-0.16258200E+00
+ 0.87277547E-01-0.87765060E-01-0.12280098E+01-0.17898367E+00
+-0.24613486E+00-0.11506540E+01-0.37660384E+00 0.14181741E+00
+ 0.15465291E+00-0.45992363E-01 0.17110234E+00-0.21097982E-01
+ 0.60008105E-03-0.18510208E-02-0.62552849E-02-0.93422104E-02
+ 0.60288724E-01-0.40334366E-01-0.43196464E-02-0.61084577E-02
+-0.83072307E-02-0.34225453E-01-0.11824392E-01-0.13751618E-02
+-0.17261762E-01 0.43971878E-01 0.76659046E-01 0.33106832E-02
+ 0.45388611E-02 0.75911164E-01 0.46962660E-01 0.21635788E-01
+-0.77638470E-01 0.22221388E-01-0.79871550E-01-0.12672771E-01
+ 0.25498134E-02 0.12646123E-02 0.51471148E-01 0.33606584E-02
+-0.13351038E-01-0.24537463E-01-0.35670411E-01 0.14631917E-01
+-0.90372808E-01 0.99615008E-03 0.22813002E-01 0.21750353E-01
+-0.83270617E-01-0.18755151E-02 0.53586468E-01 0.93389477E-03
+-0.19740278E+00-0.11719642E+00 0.33343490E-01 0.22319425E-01
+-0.29066566E-02 0.41417848E-01-0.10801823E-01 0.28476706E-01
+ 0.10270041E-01 0.15855379E+00-0.24726029E+00 0.14735273E-01
+-0.27862186E-01-0.23555486E-01-0.40901415E-02 0.60059442E-02
+ 0.97556552E-02 0.91812024E-02-0.14488046E-02 0.16592178E-02
+ 0.36357131E-01 0.13751269E-01-0.29764045E-01 0.92727989E-02
+-0.86509585E-02-0.18609468E-01-0.27944657E-03 0.31447997E-02
+ 0.75850124E-02-0.18039657E-01 0.38740944E-01 0.79681963E-01
+ 0.48902291E-02 0.57677603E-02-0.33417843E-01-0.68668877E-02
+ 0.22215862E-02-0.40455712E-02 0.36775917E-02-0.22278046E-01
+ 0.10155325E-01-0.54381907E-01 0.22469945E-01 0.53363744E-01
+-0.10555824E-01-0.46219719E-02-0.16068283E-02 0.35136204E-01
+ 0.11071405E-01 0.18289034E-02-0.75299381E-02-0.14482981E-03
+ 0.35247686E-02 0.42061866E-02 0.51727840E-02 0.17811510E-02
+-0.10641967E-01 0.48779794E-02 0.15797319E-01 0.18416291E-01
+ 0.16457362E-05-0.16946379E-02-0.99487100E-02 0.13055210E-01
+-0.14801215E-02-0.56088273E-02-0.40782345E-02-0.35834808E-02
+ 0.71111410E-02 0.12105495E-01-0.45448786E-03 0.62631634E-02
+ 0.36953585E-02-0.28422426E-02-0.19898398E-02 0.48590722E-02
+ 0.11628112E-01 0.28534012E-03-0.12218224E-01 0.24151376E-02
+-0.16151644E-03 0.75605242E-02 0.45826556E-02-0.46821288E-02
+ 0.12317485E-02 0.26966269E+01-0.14578769E-05 0.50493279E-02
+ 0.65831305E-02 0.43787737E-02 0.39015978E-02 0.89700258E-03
+ 0.85402245E-03-0.68476156E-03 0.11744526E+00 0.12448850E-01
+ 0.51003762E-01 0.40138353E-01 0.26125014E-01-0.16533557E-01
+-0.29090958E-01-0.17052057E-02 0.80826618E-02 0.11973118E+01
+-0.65078013E-01-0.99028312E-01-0.81597298E-01-0.32280181E-01
+-0.22603732E-01-0.10447549E-01-0.41825704E-01 0.23424169E-02
+ 0.84804960E-01-0.19440410E+00-0.12508395E+00-0.10045742E+00
+-0.13333432E+00 0.45456056E-01 0.10219767E+00 0.23704873E-01
+-0.32805737E-01-0.18993030E+01 0.22647896E+00 0.26471585E+00
+ 0.15323690E+00 0.31060221E-01 0.91907240E-01 0.40878788E-01
+ 0.95126577E-01 0.45649102E-02-0.19986725E+00 0.13906373E+00
+ 0.85632414E-01 0.60318705E-01 0.11465530E+00-0.33805624E-01
+-0.83187349E-01-0.24020078E-01 0.27057443E-01 0.82170755E+00
+-0.12471489E+00-0.17876776E+00-0.71481489E-01 0.27813890E-02
+-0.87954432E-01-0.34027167E-01-0.52087925E-01-0.90684919E-02
+ 0.43652612E-02-0.33954412E+00-0.28059766E+00-0.48793945E-03
+ 0.57276776E-02-0.32016952E-02 0.50360449E-02 0.29207736E-02
+ 0.43764645E-02 0.85188961E-02 0.30349514E+00-0.33877447E+00
+-0.28169504E-02-0.11583043E-01 0.14881253E-02-0.76294229E-02
+-0.18964122E-02 0.11345063E-01-0.12247941E-01 0.17714764E+00
+-0.34096591E-01-0.22695521E-01 0.67024931E-01-0.39165456E-01
+-0.30592242E-01 0.23541650E-01 0.10291560E-01 0.50195772E-01
+ 0.15112165E+00 0.20722289E+00 0.34769014E-01-0.29959407E-01
+ 0.41639198E-01-0.29532194E-01 0.25578812E-01 0.78463838E-01
+-0.60606830E-01 0.10363140E+01 0.86959022E+00 0.15487760E+00
+-0.99790499E-01 0.41185062E-01 0.15034962E-01-0.47623415E-01
+-0.14509769E+00-0.57434636E+00-0.97933829E+00 0.12581741E+01
+ 0.25207497E-01 0.18004075E+00-0.21284509E-01 0.77311493E-01
+ 0.64989790E-01-0.20855135E+00 0.47468442E+00-0.10885421E+01
+ 0.38821119E+00 0.23283729E+00-0.50951570E+00 0.23506916E+00
+ 0.35243019E-01-0.17403507E+00-0.23718674E-01 0.26270482E+00
+-0.70497757E+00-0.13304210E+01-0.53473514E+00 0.28150737E+00
+-0.26304531E+00 0.18870257E+00-0.23507071E+00-0.43555272E+00
+ 0.11272904E+00-0.99514472E+00-0.34449834E+00-0.71797216E+00
+ 0.18339764E+00-0.18274480E+00-0.63537367E-01 0.10146949E+00
+ 0.48926970E+00 0.20371649E+01 0.22109611E+00-0.20750749E+01
+ 0.11111619E+00-0.56142098E+00 0.42209644E-01-0.19956113E+00
+-0.19299477E+00 0.54810613E+00-0.14952495E+01 0.17684418E+01
+-0.49218816E+00-0.28709847E+00 0.11091636E+01-0.42815658E+00
+ 0.12084533E+00 0.37503195E+00-0.81880488E-01-0.14637735E+01
+ 0.10478177E+01 0.26719489E+01 0.13296674E+01-0.46114388E+00
+ 0.65784061E+00-0.44182307E+00 0.56460422E+00 0.67381424E+00
+-0.28567558E-01 0.46754566E+00 0.17383933E+00 0.67441458E+00
+-0.10554819E+00 0.19837098E+00 0.47730759E-01-0.50233286E-01
+-0.40128100E+00-0.17196779E+01 0.35429364E+00 0.14362482E+01
+-0.16386373E+00 0.45979795E+00-0.21841004E-01 0.13400900E+00
+ 0.14516471E+00-0.39125723E+00 0.10732856E+01-0.75785559E+00
+ 0.52866328E+00 0.71639992E-01-0.73546070E+00 0.24522778E+00
+-0.13535358E+00-0.22979885E+00 0.11654176E+00 0.15114303E+01
+-0.77876258E+00-0.15880039E+01-0.89949375E+00 0.22964896E+00
+-0.49463138E+00 0.30698773E+00-0.40895736E+00-0.29977861E+00
+-0.79477411E-02-0.18472305E-01-0.12967197E-01 0.94843686E-01
+-0.88151120E-01-0.51070806E-02 0.13504693E-01-0.41395505E-02
+ 0.24751091E-03-0.44946186E-02-0.16740741E-01-0.41124807E-02
+ 0.76202437E-01 0.10344878E+00-0.22537799E-02 0.43183658E-02
+ 0.64705717E-04-0.59640518E-03 0.95618159E-01 0.92954643E-01
+ 0.61767250E-01-0.79024971E-01 0.11346289E+00 0.15616628E-01
+-0.56508440E-02 0.42031724E-02 0.24400151E-02 0.96911388E-02
+ 0.29432042E-01-0.46471480E-01-0.12849204E+00 0.22337712E-01
+ 0.15172200E-01 0.14756573E-01-0.10275276E-01 0.32632593E-01
+ 0.90240715E-02 0.98447271E-01 0.13910589E+00-0.49684674E+00
+ 0.73422439E-01 0.23828603E-02 0.33573525E-02-0.72285314E-02
+-0.70686325E-01-0.16957556E+00 0.50366666E-01-0.11485599E+00
+-0.34002479E-01-0.50488788E+00-0.42284265E-01 0.40896658E-01
+-0.22395281E-02-0.41483179E-01-0.39100450E+00-0.52364653E+00
+ 0.81161167E-02 0.23826459E+00-0.69935983E+00-0.49828898E-01
+ 0.58817074E-01-0.30699246E-01 0.18457994E-02 0.18260169E+00
+ 0.12305915E-01 0.35234398E+00 0.78882325E+00 0.17531563E+00
+ 0.12401869E-01-0.94772555E-01 0.70517570E-01-0.18616913E+00
+-0.20249626E-01-0.18173020E+00-0.28802195E+00 0.27763471E+00
+-0.33017445E+00-0.40717527E-01-0.36766961E-01 0.36674999E-01
+ 0.13604657E+00 0.24803011E+00-0.15678068E+00 0.20198597E+00
+ 0.30329382E+00 0.25746182E+00 0.61767373E-01-0.93926691E-01
+ 0.18352006E-01 0.62546603E-01 0.35427305E+00 0.75491345E+00
+-0.11663892E+00-0.31980485E+00 0.90525955E+00 0.89059651E-01
+-0.78885183E-01 0.31197926E-01-0.51024295E-02-0.33548266E+00
+ 0.36326089E-03-0.39684558E+00-0.10250442E+01-0.45261109E+00
+-0.34287624E-01 0.12944759E+00-0.95721230E-01 0.19820654E+00
+-0.17688449E-01 0.15564424E-02 0.39224289E-02-0.38294392E-02
+-0.75140465E-02 0.59528705E-01-0.48654277E-01-0.22800365E-02
+-0.31075822E-02-0.96650571E-02-0.21461820E-01 0.77744690E-03
+ 0.16463975E-02-0.11097819E-01 0.51459324E-01 0.68256907E-01
+ 0.39644483E-02-0.15337553E-02 0.34351684E-01 0.43128196E-01
+ 0.19956021E-01-0.36301594E-01 0.99364547E-02-0.61444476E-01
+-0.24400521E-01 0.44092600E-03 0.13028901E-02 0.22622351E-01
+ 0.11014455E-01-0.81500681E-02-0.17104017E-01-0.29482944E-01
+ 0.26210617E-01-0.75117700E-01-0.28545759E-03 0.11840697E-01
+ 0.17646819E-01-0.77693120E-01 0.38775124E-02 0.28927619E-01
+ 0.27532193E-02-0.16366033E+00-0.96197531E-01 0.21273768E-01
+ 0.86615868E-02 0.72159092E-02 0.12788316E-01-0.31918742E-01
+ 0.10852541E-01 0.17516689E-01 0.12468155E+00-0.17470151E+00
+-0.41061863E-02-0.12752778E-02-0.18442726E-01-0.91943759E-02
+ 0.67788684E-02 0.14435091E-03 0.78480067E-02 0.98523422E-04
+ 0.22894247E-02 0.25241941E-01 0.15407712E-01-0.16817285E-01
+ 0.31028625E-02-0.10441542E-01-0.79444088E-02-0.17821643E-02
+ 0.52367494E-03 0.82076322E-02-0.18905919E-01 0.29213514E-01
+ 0.44744335E-01-0.13247139E-02-0.37604002E-02-0.16222805E-01
+-0.89065684E-02-0.51037166E-02-0.28314355E-02 0.18366748E-01
+-0.27277077E-01 0.19684851E-01-0.35009183E-01 0.23218991E-01
+ 0.28978951E-01-0.10054998E-01-0.95502073E-02-0.97779622E-02
+ 0.31590566E-01 0.18811375E-01 0.27152249E-02-0.10953413E-01
+ 0.43081818E-02 0.26744686E-02 0.12518663E-02 0.79071680E-02
+-0.18357651E-02-0.90767127E-02 0.21241107E-02 0.64085410E-02
+ 0.12395338E-01-0.43195123E-02 0.27304080E-02-0.55480246E-02
+ 0.65472890E-02 0.11660623E-02-0.26218852E-02-0.10962778E-02
+ 0.18541915E-03 0.11536265E-01 0.10362318E-01 0.24194026E-02
+-0.11380968E-02 0.27860261E-02 0.36632185E-03-0.13429242E-02
+ 0.37920703E-02 0.48007774E-02 0.10027210E-02-0.10543189E-01
+ 0.72369934E-02-0.16516771E-02 0.35164719E-02 0.81353862E-03
+-0.30095526E-02 0.13707984E-02
diff --git a/input/glow_data/iri90/ccir21.asc b/input/glow_data/iri90/ccir21.asc
new file mode 100644
index 0000000..efe3537
--- /dev/null
+++ b/input/glow_data/iri90/ccir21.asc
@@ -0,0 +1,715 @@
+ 0.63694148E+01-0.34792226E-01-0.74101150E-01 0.35132650E-01
+ 0.24849806E-01 0.11001032E-01-0.19688884E-01 0.26043868E-01
+ 0.10386006E-01-0.32306511E-02 0.13962947E-01-0.10103378E-01
+ 0.18723549E-01 0.21955316E+01-0.39681266E-02 0.18197685E+00
+ 0.11352257E+00-0.31861094E+00-0.15868060E-02 0.39689042E-01
+ 0.17209752E-01 0.19868961E+00-0.80792844E-01-0.11767738E+00
+ 0.12445180E+00-0.55129856E-01 0.97781305E+01 0.63362435E-01
+-0.53614479E+00-0.49567866E+00 0.11741468E+01-0.63698125E+00
+ 0.52839708E+00-0.11437672E+00-0.15261206E+00-0.13389719E+00
+-0.36991826E+00 0.11427352E+00-0.65866762E+00-0.32809158E+02
+-0.52905566E+00 0.56250453E+00 0.25619733E+00 0.76901011E+01
+-0.76617765E+00 0.13428245E+00-0.12091900E+01-0.15285416E+01
+ 0.67826205E+00 0.23068154E+01-0.12790626E+01-0.21327354E+00
+-0.58018158E+02 0.77569704E+01 0.58701005E+01-0.37597203E+01
+-0.11486585E+02 0.50069208E+01-0.19475280E+01-0.26410751E+01
+ 0.11136000E+01 0.12512259E+00 0.17224880E+01-0.64933658E+00
+ 0.42313733E+01 0.81844147E+02-0.18177500E+02-0.10697339E+02
+ 0.40396552E+01-0.31275728E+02 0.73205338E+01-0.39177847E+01
+ 0.58170772E+01 0.57865572E+01-0.22364533E+01-0.11624065E+02
+ 0.43845687E+01 0.30469108E+01 0.10854137E+03-0.30877756E+02
+-0.10837447E+02 0.22226160E+02 0.34705902E+02-0.13085101E+02
+ 0.15620646E+01 0.11406905E+02-0.31094887E+01 0.85883933E+00
+-0.26042700E+01 0.11922537E+01-0.10150283E+02-0.44580307E+02
+ 0.79383812E+02 0.24413515E+02-0.21338619E+02 0.50065228E+02
+-0.21513105E+02 0.15347665E+02-0.10429506E+02-0.11754140E+02
+ 0.34370358E+01 0.24936632E+02-0.73416333E+01-0.82282839E+01
+-0.10028139E+03 0.37588978E+02 0.43946161E+01-0.33876656E+02
+-0.40892410E+02 0.13890780E+02 0.78339022E+00-0.14895038E+02
+ 0.35314486E+01-0.15978297E+01 0.11808842E+01-0.71185213E+00
+ 0.10538705E+02-0.50124062E+02-0.10354129E+03-0.18342447E+02
+ 0.30102610E+02-0.34501987E+02 0.25331213E+02-0.20694256E+02
+ 0.83078852E+01 0.11584894E+02-0.26216393E+01-0.24104069E+02
+ 0.61813402E+01 0.85840073E+01 0.37392719E+02-0.14476900E+02
+ 0.99496180E+00 0.15965063E+02 0.16501513E+02-0.52093725E+01
+-0.93629724E+00 0.62317777E+01-0.14138385E+01 0.73162246E+00
+ 0.71325324E-01 0.48246250E-01-0.39943352E+01 0.43037422E+02
+ 0.42916580E+02 0.38246312E+01-0.13166988E+02 0.83462524E+01
+-0.10465692E+02 0.90876627E+01-0.24948664E+01-0.43121109E+01
+ 0.83627832E+00 0.86244040E+01-0.20590615E+01-0.31272595E+01
+-0.40967345E-01 0.18442563E+01 0.17633563E+01-0.41515935E-01
+ 0.14598442E-01 0.52640415E-02 0.33678550E-01 0.18317280E-01
+-0.30224023E-01-0.20597542E-01 0.24734342E-01-0.10589097E-01
+ 0.24328345E-01-0.22360490E+00-0.19206479E+01 0.18999895E+01
+-0.99210821E-01 0.13044933E-01 0.23915380E-01 0.10539087E-01
+ 0.34584550E-02 0.12267416E-01 0.57058195E-02 0.42165192E-02
+ 0.10772912E-01-0.26614875E-01-0.84906530E+00 0.15865498E+01
+ 0.22927699E+01-0.33673322E+00 0.19166987E+00 0.64818418E+00
+ 0.42091948E+00-0.16618843E+00 0.78511827E-01-0.64768136E-01
+-0.39221168E-01-0.89224152E-01 0.13744977E+00-0.14338664E+01
+-0.13094720E+01 0.17051713E+01-0.10853502E+01 0.19608435E+00
+ 0.16197301E+00 0.21957265E+00-0.31434265E+00 0.37495288E+00
+ 0.34630176E-01-0.90445802E-01 0.12040331E+00 0.17347548E-01
+ 0.52947850E+01 0.10844605E+02 0.37868409E+01-0.10532480E+01
+ 0.36165705E+01-0.88409197E+00 0.49687558E+00-0.61486661E+00
+ 0.60421681E+00 0.21092279E+00-0.32828119E+00-0.47752506E+00
+-0.94027740E+00-0.25222619E+01-0.46317253E+01 0.80145826E+01
+ 0.24095893E+01 0.39263377E+01 0.25864679E+00-0.13400965E+01
+ 0.52035743E+00 0.38246587E+00-0.92407811E+00-0.74844398E-01
+-0.70236456E+00 0.10894667E+00 0.22070520E+02-0.17723101E+02
+-0.98362646E+01 0.23332732E+01 0.64828506E+01-0.10151888E+02
+-0.41051803E+01 0.79824430E+00-0.15293568E+01-0.26827996E+01
+ 0.52764028E+00 0.14580549E+01-0.35977669E+01 0.25647627E+02
+-0.80371361E+01-0.18844767E+02 0.13793572E+02 0.82348639E+00
+ 0.21338460E+01-0.32136986E+01 0.57288928E+01-0.49189863E+01
+ 0.13956453E+01 0.25248592E+01-0.16098522E+00-0.32238259E+01
+-0.37831741E+02-0.82785957E+02 0.40492912E+02 0.49759912E+01
+-0.32693497E+02 0.38788466E+01-0.55101314E+01 0.52948971E+01
+-0.33069551E+01-0.27049429E+01 0.15614638E+01 0.44462080E+01
+ 0.58480530E+01 0.43074551E+02-0.35585445E+02-0.63008469E+02
+-0.10148061E+02-0.38213272E+02-0.12484533E+01 0.11518609E+02
+-0.16986067E+01-0.44723053E+01 0.66183820E+01 0.27471104E+00
+ 0.51703401E+01 0.16862423E+01-0.12163273E+03 0.35768089E+02
+ 0.79624352E+02-0.42255273E+00-0.29189657E+02 0.46464653E+02
+ 0.11797403E+02-0.35026555E+01 0.71749539E+01 0.28277515E+02
+ 0.89573674E-01-0.11701196E+02 0.20683783E+02-0.14859586E+03
+ 0.73930824E+02 0.46461655E+02-0.73587746E+02-0.38935528E+02
+-0.21367317E+02 0.22717581E+02-0.38625607E+02 0.22611212E+02
+-0.13838289E+02-0.19563032E+02-0.54408684E+01 0.22669931E+02
+ 0.96786781E+02 0.19943217E+03-0.22654292E+03-0.25076122E+01
+ 0.99311028E+02-0.32880912E+01 0.18322615E+02-0.17872757E+02
+ 0.32761443E+01 0.10708526E+02-0.29951110E+01-0.12494042E+02
+-0.13923942E+02-0.15908409E+03 0.22274886E+03 0.14706615E+03
+ 0.20086601E+02 0.12031584E+03-0.89654094E+00-0.32396168E+02
+-0.99818575E+00 0.18598759E+02-0.17126841E+02 0.17582542E+00
+-0.13738128E+02-0.75380640E+01 0.28013394E+03-0.26947153E+02
+-0.30688678E+03-0.24610758E+02 0.25527044E+02-0.90596825E+02
+-0.53650866E+01 0.11049999E+02-0.16220327E+02-0.88406433E+02
+-0.52042227E+01 0.37062027E+02-0.48077995E+02 0.34042722E+03
+-0.20572089E+03-0.69570465E+02 0.17793367E+03 0.15674860E+03
+ 0.55941879E+02-0.64308510E+02 0.11241123E+03-0.44273415E+02
+ 0.41367416E+02 0.56130985E+02 0.22120152E+02-0.57441715E+02
+-0.10435168E+03-0.22239352E+03 0.35573297E+03-0.10317237E+02
+-0.12436950E+03-0.36222422E+01-0.26919477E+02 0.25896906E+02
+ 0.43949404E+01-0.15245827E+02 0.24285519E+01 0.14503664E+02
+ 0.14726946E+02 0.22333339E+03-0.35747256E+03-0.15495203E+03
+-0.19590113E+02-0.15038443E+03 0.54151440E+01 0.37789562E+02
+ 0.71866360E+01-0.28933886E+02 0.18707529E+02-0.73916203E+00
+ 0.14262703E+02 0.99755716E+01-0.29553113E+03 0.18611118E+02
+ 0.45680972E+03 0.50157089E+02 0.23859198E+02 0.80800880E+02
+-0.16151365E+02-0.16563154E+02 0.17871490E+02 0.11023319E+03
+ 0.84442797E+01-0.48368690E+02 0.49598927E+02-0.32021780E+03
+ 0.24028613E+03 0.77732681E+02-0.19011111E+03-0.21534552E+03
+-0.59049309E+02 0.76389923E+02-0.14133389E+03 0.37059875E+02
+-0.50378239E+02-0.66598373E+02-0.30074066E+02 0.62589401E+02
+ 0.41164993E+02 0.96164986E+02-0.17758118E+03 0.96721039E+01
+ 0.54648762E+02 0.41163754E+01 0.14427828E+02-0.13174432E+02
+-0.55630002E+01 0.72903724E+01-0.63024837E+00-0.61418190E+01
+-0.56469097E+01-0.10944715E+03 0.17815541E+03 0.63606415E+02
+ 0.73619609E+01 0.64106522E+02-0.35921402E+01-0.15911514E+02
+-0.52352424E+01 0.14696769E+02-0.72762308E+01 0.22202390E+00
+-0.47575579E+01-0.41712513E+01 0.11644561E+03-0.11094306E+02
+-0.22673264E+03-0.28864283E+02-0.28778976E+02-0.27439207E+02
+ 0.14110433E+02 0.86871843E+01-0.75935063E+01-0.47815193E+02
+-0.36480932E+01 0.22022610E+02-0.18813353E+02 0.10188473E+03
+-0.10228133E+03-0.39122402E+02 0.73224983E+02 0.96420273E+02
+ 0.22319057E+02-0.32373447E+02 0.63122818E+02-0.10419510E+02
+ 0.21842417E+02 0.27861082E+02 0.13659900E+02-0.24893913E+02
+ 0.17436193E-01-0.93482248E-01-0.10793444E+00-0.82785124E+00
+-0.84534422E-01-0.26766161E-03 0.16654745E-01-0.30994598E-01
+-0.11604786E-01 0.13113019E-01-0.68038772E-03 0.19080637E-02
+ 0.26341386E-01 0.13251559E-01-0.39075937E-01 0.66035584E-01
+ 0.18244596E-01-0.78173661E+00-0.11768348E-01-0.53608539E-02
+-0.28954308E-01 0.22645099E-01 0.34665675E-02 0.17233107E-01
+ 0.14634843E-01-0.29612660E-01 0.50487894E+00 0.22164828E+00
+-0.24378799E+00-0.20211710E+00 0.94408840E-01 0.48972866E+00
+-0.23864597E-01-0.27299488E+00-0.34467158E+00-0.14131469E+00
+-0.20775779E+00-0.61760709E-01-0.61581101E-01 0.99109298E+00
+ 0.17821749E+00 0.82714492E+00-0.94977474E+00-0.61216378E+00
+ 0.36868054E+00 0.22957662E+00-0.12434895E+00 0.49470678E-01
+-0.90065990E-02-0.12500758E+00 0.15639452E-01-0.57548754E-01
+ 0.26369982E+01 0.56819504E+00 0.27612624E+01 0.47631841E+01
+ 0.26233945E+01-0.35643741E+00-0.49008372E+00 0.86467236E+00
+ 0.32177621E+00-0.11061669E+00 0.54952288E+00 0.32997720E-01
+-0.70062494E+00 0.11445436E+01-0.10629308E+01 0.18839436E+01
+-0.18157120E+01 0.57845397E+01-0.11576208E+00 0.76202619E+00
+ 0.12073851E+01 0.22669688E-01-0.58742684E+00-0.53316754E+00
+-0.86090761E+00 0.12829594E+00-0.12164210E+00-0.11267498E+00
+ 0.39087934E+01 0.14429278E+01 0.49848485E+01-0.38739052E+01
+ 0.32264167E+00 0.28122408E+01 0.33922617E+01 0.10338417E+01
+ 0.14853586E+01 0.56888652E+00 0.14110199E+00-0.83919153E+01
+-0.36753819E+01-0.42955184E+01 0.33921528E+01 0.80299025E+01
+-0.31461635E+01-0.15146472E+01 0.62426537E+00 0.49127710E+00
+ 0.91559422E+00 0.12294981E+01-0.11871793E+01-0.17221960E+00
+-0.10749142E+02 0.90448103E+01-0.22625639E+02-0.52351284E+01
+ 0.13716090E+02 0.13832469E+00 0.71097839E+00-0.13742863E+01
+-0.29770541E+01-0.49114960E+00-0.18319699E+01 0.83288515E+00
+ 0.42117639E+01-0.74518118E+01 0.20720312E+02-0.12630376E+02
+-0.16478212E+02-0.81918631E+01-0.70487130E+00-0.88454456E+01
+-0.63079481E+01-0.16885533E+01 0.26288922E+01 0.37352061E+01
+ 0.57972150E+01 0.16058006E+01-0.51203427E+01-0.25459335E+01
+-0.16263302E+02-0.22843137E+01-0.19856340E+02 0.82789288E+01
+-0.49226767E+00-0.64728532E+01-0.86539001E+01-0.22938893E+01
+-0.35961869E+01-0.14950491E+01 0.24064369E+00 0.16074701E+02
+ 0.12596722E+02 0.77019687E+01-0.36065149E+01-0.19908415E+02
+ 0.71198821E+01 0.27998273E+01-0.71557932E-01-0.21365404E+01
+-0.29742064E+01-0.35151474E+01 0.40621052E+01 0.22940133E+01
+ 0.13587055E+02-0.25019388E+02 0.54193542E+02-0.97644215E+01
+-0.52721302E+02 0.34096539E+01 0.70795673E+00-0.32761893E+01
+ 0.75477500E+01 0.20922942E+01 0.12183950E+01-0.31462874E+01
+-0.88257294E+01 0.19144426E+02-0.55912872E+02 0.20548437E+02
+ 0.58517231E+02-0.10258888E+02 0.43046956E+01 0.22909641E+02
+ 0.11171076E+02 0.56796517E+01-0.34555612E+01-0.77860579E+01
+-0.11080912E+02-0.49921532E+01 0.50711031E+01 0.36411526E+01
+ 0.15481095E+02 0.27508340E+01 0.21559464E+02-0.52467356E+01
+-0.18340144E+00 0.42208877E+01 0.59293571E+01 0.12054518E+01
+ 0.28709695E+01 0.10667130E+01-0.38529634E+00-0.73677697E+01
+-0.12092901E+02-0.48593469E+01-0.27885952E+01 0.14997449E+02
+-0.45441275E+01-0.15541584E+01-0.77496177E+00 0.20404882E+01
+ 0.22645693E+01 0.28346663E+01-0.32707062E+01-0.27267530E+01
+-0.64316149E+01 0.16303364E+02-0.38149586E+02 0.12910197E+02
+ 0.42223900E+02-0.46120901E+01-0.76996171E+00 0.53413100E+01
+-0.56315417E+01-0.12916847E+01 0.31741199E+00 0.23768795E+01
+ 0.58335042E+01-0.17753616E+02 0.41826595E+02-0.77663765E+01
+-0.46996101E+02 0.16903778E+02-0.39931262E+01-0.17180531E+02
+-0.67168827E+01-0.45003757E+01 0.13160985E+01 0.48622327E+01
+ 0.64542894E+01 0.36038089E+01-0.22608569E+00 0.22383168E-01
+-0.21983469E+00 0.38383208E-01 0.10683269E+00-0.27958038E+00
+-0.72073120E+00-0.13659807E-01-0.94429441E-02-0.40688934E-02
+ 0.14465627E-01-0.12307435E-01 0.84743900E-02 0.77261649E-01
+ 0.52328430E-01-0.33979189E-01 0.24548575E-01 0.15614870E+00
+ 0.68249077E+00-0.32020846E+00-0.23883097E-01 0.48189063E-01
+-0.71453056E-02 0.65714070E-02-0.42875452E-03-0.49787788E-02
+ 0.16318841E+00 0.40782076E+00-0.13131221E+00-0.78088120E-01
+-0.43878078E+00-0.45414293E+00-0.18014473E+00 0.51335122E-01
+ 0.92360303E-01 0.70260219E-01 0.40587511E-01 0.57136446E-01
+-0.38172573E-01-0.32295987E+00-0.36206935E-01 0.54615408E+00
+ 0.15255278E+00 0.10668567E-02 0.59954655E+00-0.58115119E+00
+-0.14064194E+00-0.59324689E-02 0.17862687E-02-0.16501710E+00
+-0.68641931E-01 0.14574032E-01 0.22033205E+01-0.42505041E+00
+ 0.14705453E+01 0.99113494E-01-0.91881227E+00 0.16044205E+01
+ 0.17543232E+01 0.45916408E+00 0.27655859E-02-0.15211327E+00
+ 0.62531821E-01 0.22174665E+00-0.89840271E-01-0.98237640E+00
+ 0.61098063E+00-0.93203463E-01 0.24999487E+00-0.16881289E+01
+-0.12344168E+01 0.17829297E+01 0.27928630E+00-0.16599249E-01
+ 0.71338467E-01-0.15047702E+00 0.21899357E+00 0.51836595E-01
+ 0.34149848E-01-0.11778055E+01 0.41532448E+00 0.15049255E+00
+ 0.86920917E+00 0.51964009E+00-0.20884304E+00 0.89135788E-01
+-0.16401221E+00-0.20817281E+00-0.11379710E+00-0.21582046E+00
+ 0.54201890E-01 0.65804678E+00 0.50968662E-01-0.83104873E+00
+-0.68715566E+00 0.75480483E-01-0.84142131E+00 0.86892831E+00
+ 0.25009820E+00-0.44691864E-01 0.41970626E-01 0.42782474E+00
+ 0.50102556E-02-0.18369292E+00-0.30072827E+01 0.10538676E+01
+-0.18198307E+01 0.25968856E+00 0.99997920E+00-0.23609509E+01
+-0.17743442E+01-0.73138219E+00 0.11850427E+00 0.35192615E+00
+-0.23847862E+00-0.57276577E+00 0.14691012E+00 0.11595041E+01
+-0.71592605E+00 0.47009271E+00 0.22766799E+00 0.25950408E+01
+ 0.12390486E+01-0.26281445E+01-0.37698331E+00-0.21818750E+00
+-0.15531531E+00 0.19898316E+00-0.42630193E+00-0.24251965E+00
+ 0.75564645E-01-0.15819146E-02-0.17070128E-01 0.62731832E-01
+ 0.80122389E-01-0.19053893E-01-0.75502822E-03 0.20281678E+00
+-0.16062942E+00-0.61040525E-02 0.32858420E-01-0.53751818E-02
+ 0.11075356E-01 0.84059753E-01-0.26932992E-02 0.44004381E-01
+-0.30800799E-01 0.69791381E-02 0.19021643E-01-0.30156031E-01
+ 0.18149000E+00 0.21475334E+00-0.98471157E-02-0.55861087E-02
+ 0.48251478E-02-0.33545550E-02 0.15172923E+00-0.10189057E+00
+ 0.25645059E-01-0.52431297E-01-0.31783830E-01-0.11050274E+00
+ 0.11658210E-01-0.22356764E-02-0.46832764E+00-0.37870400E-01
+-0.47675385E-02-0.38657390E-01 0.74187763E-01 0.38575072E-01
+-0.21887577E+00 0.43412637E-01 0.79081804E-01 0.39201990E-01
+ 0.11154531E-01-0.64383946E-01 0.39611334E+00-0.98804720E-02
+ 0.39850544E-01-0.27133226E-01 0.39764382E-01-0.42043138E-01
+-0.27693447E-02 0.97743109E-01-0.95391117E-01 0.11043071E-01
+ 0.31084713E-01-0.40372331E-02 0.13213970E-01-0.24805332E-01
+ 0.15137902E-01 0.56641247E-01 0.22465751E+00-0.23782956E-02
+ 0.96832955E-03 0.56767878E-02 0.27197037E-01 0.41327935E-01
+-0.92214338E-01-0.47889195E-01-0.41702380E-02-0.81137735E-02
+ 0.41315701E-01-0.75267494E-01-0.20449100E+00 0.59991557E-01
+-0.68433122E-02 0.14528462E-01 0.14191374E-01-0.28540870E-01
+ 0.25324695E-01-0.79455242E-01-0.23113195E-01 0.44245183E-01
+ 0.34820773E-01-0.90411389E-02-0.25287878E-01 0.31344425E-02
+ 0.10355319E-01-0.10612031E+00 0.21018282E-01-0.77975765E-02
+-0.76840571E-02 0.15142567E-01-0.22948675E-01-0.47588389E-01
+ 0.11881715E-01-0.63865617E-01 0.30425686E-01-0.82677780E-02
+ 0.21936271E-01 0.12532286E-01-0.44801785E-02-0.13164043E+00
+-0.46902079E-01-0.13513894E-01 0.16624622E-03-0.26316926E-01
+-0.12186967E-02 0.28734948E-01-0.22959083E-02 0.10504897E-01
+-0.78018638E-02 0.84232548E-02-0.90076961E-02-0.66834749E-02
+ 0.13984973E-01-0.61138693E-01 0.11805169E-01 0.78700714E-01
+ 0.18015917E-01 0.28624056E-01-0.76267403E-02-0.46754625E-01
+-0.22486155E-02 0.15880592E-01 0.64636157E-02 0.14192480E-01
+-0.67947758E-03-0.35506718E-01-0.25783082E-01 0.39371252E-01
+-0.79181977E-02-0.47959839E-02-0.34519922E-01-0.25952054E-01
+-0.92375092E-02 0.23945650E-01-0.36872244E-02 0.38071219E-01
+ 0.14242783E-01 0.10948616E-01 0.21540886E-01-0.42456158E-01
+ 0.11031415E-01 0.34051061E-01 0.57469562E-01 0.45886550E-01
+ 0.13773274E-01-0.64351404E-03-0.16607651E-01 0.18327732E-01
+-0.26219755E-02-0.77091181E-02 0.13056586E-01-0.54514217E-02
+ 0.94509640E+01 0.10107969E+00 0.95546111E-01 0.34959666E-01
+-0.25399696E-01 0.18447235E-01-0.18753277E-01-0.21336963E-01
+ 0.20273566E-01-0.74352040E-02 0.86263977E-02-0.19587195E-01
+-0.25863366E-02 0.17576997E+01-0.20958441E+00 0.20107350E+00
+ 0.26883551E+00-0.69596463E+00 0.10864495E+00-0.57094645E-01
+-0.11880032E+00 0.32511491E+00-0.73277988E-01-0.19179016E+00
+ 0.55194344E-01-0.48167195E-01 0.29966228E+02-0.28514745E+01
+-0.27479420E+01 0.16417269E+00 0.23762665E+01-0.24790712E+00
+ 0.38372591E-01 0.68017262E+00-0.64208418E+00 0.19077405E+00
+-0.19376384E+00 0.37586835E+00 0.30274448E+00-0.79763260E+01
+ 0.40185118E+01 0.27582934E+01-0.44167314E+01 0.16556219E+02
+-0.10127513E+01-0.14381729E-01 0.10526127E+01-0.36751299E+01
+ 0.16371242E+01 0.41598487E+01-0.55727178E+00 0.25336441E+00
+-0.15115533E+03 0.20107765E+02 0.16070599E+02-0.69206400E+01
+-0.15509940E+02-0.65745495E-01 0.61048579E+00-0.44110274E+01
+ 0.59234338E+01-0.19652240E+01 0.83969170E+00-0.19654928E+01
+-0.22424846E+01-0.51554680E+02-0.49286888E+02-0.15149562E+02
+ 0.23192854E+02-0.80976891E+02 0.17976050E+01 0.31771953E+01
+-0.22073927E+01 0.17565590E+02-0.79421062E+01-0.22982227E+02
+ 0.20799625E+01 0.11556675E+01 0.26708896E+03-0.49775471E+02
+-0.31839897E+02 0.28108734E+02 0.37422558E+02 0.36079819E+01
+-0.32567403E+01 0.10001911E+02-0.17851255E+02 0.60564766E+01
+-0.76352984E+00 0.37349446E+01 0.60045552E+01 0.22564854E+03
+ 0.16248386E+03 0.12195727E+02-0.51379269E+02 0.16426907E+03
+ 0.24047847E+01-0.12291703E+02-0.43176427E+00-0.39148830E+02
+ 0.16007685E+02 0.51836742E+02-0.38026702E+01-0.54714437E+01
+-0.22505072E+03 0.46291023E+02 0.24638092E+02-0.39034763E+02
+-0.37432152E+02-0.72609534E+01 0.49040074E+01-0.89484711E+01
+ 0.20959160E+02-0.69502692E+01-0.58399487E+00-0.28382370E+01
+-0.64945631E+01-0.28448126E+03-0.19788374E+03 0.13808954E+02
+ 0.50430801E+02-0.14956322E+03-0.69601116E+01 0.16451906E+02
+ 0.45007586E+01 0.39577290E+02-0.14559422E+02-0.51503658E+02
+ 0.33227439E+01 0.67428279E+01 0.75200890E+02-0.13670172E+02
+-0.64882317E+01 0.17861347E+02 0.13128088E+02 0.39957590E+01
+-0.23009706E+01 0.26648011E+01-0.84337873E+01 0.26480327E+01
+ 0.69651747E+00 0.70226914E+00 0.24378769E+01 0.11641260E+03
+ 0.81135353E+02-0.14079868E+02-0.17968302E+02 0.50422318E+02
+ 0.35681407E+01-0.73284211E+01-0.27828982E+01-0.14672050E+02
+ 0.49403863E+01 0.18719210E+02-0.10883954E+01-0.26159148E+01
+-0.12469147E-01 0.13936483E+01 0.20418575E+01-0.22939935E-01
+ 0.33805311E-01 0.10366075E-01 0.52215006E-01-0.36718503E-01
+-0.45215521E-01 0.20861069E-02 0.31817243E-01-0.47385283E-02
+-0.63512935E-02-0.79864658E-01-0.21967120E+01 0.13169786E+01
+-0.49137101E-01 0.79261839E-01 0.56432478E-01-0.11213575E-01
+ 0.39652806E-01-0.29792653E-01 0.64580194E-02-0.23676369E-02
+ 0.21759911E-01-0.17042236E-01-0.10706545E+01 0.23217793E+01
+ 0.22575028E+01-0.52305853E+00 0.33758911E+00 0.40237907E+00
+ 0.70796597E+00-0.25653306E+00 0.18688981E+00-0.25361739E-01
+ 0.87322183E-01 0.24367885E+00 0.40593699E-01-0.15108147E+00
+-0.16911287E+01 0.46142992E+00-0.10303921E+01 0.93612778E+00
+-0.41574039E-02 0.11723827E+00-0.15480372E+00 0.25974426E-01
+-0.10854245E+00-0.14955416E+00 0.20788647E+00 0.12922181E+00
+ 0.45731859E+01 0.24417906E+02-0.21377110E+02-0.15830410E+00
+ 0.28918290E+01-0.90342098E+00-0.10628958E+01 0.70779812E+00
+ 0.28248230E+00 0.51816136E+00-0.36014694E+00-0.21408524E+00
+ 0.44734198E+00-0.10066270E+02 0.24201607E+02 0.22228245E+02
+ 0.18787283E+01 0.35598913E+00-0.81920505E+00-0.45490566E+00
+ 0.21012618E+00 0.17021557E+01-0.23625430E+00-0.15785757E+00
+-0.44948339E+00-0.50422323E+00 0.25363052E+02-0.22388351E+02
+-0.88549417E+00-0.22121559E+00 0.23813438E+01-0.34516563E+01
+-0.12210044E+02 0.55636535E+01-0.32453895E+01 0.19233570E+00
+-0.14384522E+01-0.48079529E+01-0.13344591E+01 0.43639555E+01
+-0.82982798E+01 0.11524791E+02 0.18317818E+02-0.13572060E+02
+ 0.43871188E+01-0.21051328E+01 0.19665152E+01-0.18783902E+01
+ 0.23498127E+01 0.49273577E+01-0.22936010E+01-0.35927687E+01
+-0.33341885E+02-0.11396944E+03 0.19362669E+03 0.21216767E+01
+-0.21863722E+02 0.87932034E+01 0.66870275E+01-0.20778823E+01
+ 0.39056785E+01-0.55137281E+01 0.73257333E+00 0.10095549E+01
+-0.58631840E+01 0.10840975E+03-0.21727190E+03-0.68914238E+02
+-0.21362246E+02-0.86977644E+01 0.82116756E+01 0.49080110E+01
+ 0.17874563E+00-0.12050731E+02 0.51833916E+00 0.31218398E+01
+ 0.36935799E+01 0.80403614E+01-0.15367139E+03 0.11878262E+03
+ 0.51804714E+02 0.41489388E+02-0.92071486E+01 0.51096478E+01
+ 0.64470383E+02-0.44764999E+02 0.16702759E+02 0.28305548E+00
+ 0.86546431E+01 0.29645947E+02 0.80854740E+01-0.86085358E+01
+ 0.41116173E+02-0.47850399E+02-0.11364082E+03 0.49419270E+02
+-0.27409754E+02 0.12218876E+02-0.15123549E+02 0.17315872E+02
+-0.15716614E+02-0.34133495E+02 0.81285315E+01 0.23876568E+02
+ 0.82036057E+02 0.18187785E+03-0.55807098E+03-0.10879265E+02
+ 0.61412319E+02-0.27611143E+02-0.19147324E+02-0.71760750E+00
+-0.27551128E+02 0.17640097E+02-0.56628734E-01-0.14020643E+01
+ 0.21747429E+02-0.34376413E+03 0.61911011E+03 0.88020509E+00
+ 0.80663330E+02 0.33479347E+02-0.29412020E+02-0.12201406E+02
+-0.44523067E+01 0.36756096E+02 0.16952411E+01-0.14172467E+02
+-0.11445619E+02-0.29532711E+02 0.39695712E+03-0.31497382E+03
+-0.28771411E+03-0.17258989E+03-0.86242523E+01 0.11642606E+02
+-0.14586752E+03 0.13591988E+03-0.39550259E+02-0.15524073E+01
+-0.22016012E+02-0.76522240E+02-0.19635260E+02-0.40375984E+02
+-0.67061432E+02 0.28259424E+02 0.29492319E+03-0.67607613E+02
+ 0.62555237E+02-0.28627241E+02 0.50263222E+02-0.52197632E+02
+ 0.39175499E+02 0.90898705E+02-0.12516282E+02-0.61318790E+02
+-0.77070221E+02-0.11974761E+03 0.69099872E+03 0.18479025E+02
+-0.77280106E+02 0.33186859E+02 0.23168581E+02 0.75805955E+01
+ 0.50765301E+02-0.22174515E+02-0.21018499E+00 0.45265010E+00
+-0.30652090E+02 0.42491214E+03-0.73491571E+03 0.15072490E+03
+-0.11781622E+03-0.46392895E+02 0.41384529E+02 0.10866575E+02
+ 0.84837999E+01-0.48217793E+02-0.58226819E+01 0.23120079E+02
+ 0.13756743E+02 0.40079506E+02-0.45912537E+03 0.38094446E+03
+ 0.50466553E+03 0.24710139E+03 0.43194183E+02-0.31068718E+02
+ 0.14789594E+03-0.17133972E+03 0.43186558E+02 0.93547171E+00
+ 0.24350426E+02 0.87021637E+02 0.20689638E+02 0.12518957E+03
+ 0.21702751E+02 0.59070374E+02-0.33266949E+03 0.31520334E+02
+-0.63018490E+02 0.29843792E+02-0.66842224E+02 0.62429546E+02
+-0.40911572E+02-0.10445174E+03 0.77937250E+01 0.66863708E+02
+ 0.23716257E+02 0.26841919E+02-0.31155273E+03-0.99036121E+01
+ 0.36229214E+02-0.13366701E+02-0.94885092E+01-0.60028815E+01
+-0.28343122E+02 0.97320232E+01-0.21416096E+00 0.32326192E+00
+ 0.14711193E+02-0.18264751E+03 0.31139908E+03-0.10778708E+03
+ 0.57750397E+02 0.20604429E+02-0.19741055E+02-0.31399972E+01
+-0.45069766E+01 0.22200363E+02 0.40623951E+01-0.12418812E+02
+-0.53976035E+01-0.18255384E+02 0.19313271E+03-0.16603587E+03
+-0.27830505E+03-0.11844001E+03-0.29174128E+02 0.17652523E+02
+-0.55044979E+02 0.75791016E+02-0.17480881E+02 0.37095240E+00
+-0.96177435E+01-0.35863873E+02-0.79011192E+01-0.83767029E+02
+ 0.14769975E+02-0.53073029E+02 0.13477794E+03-0.10499868E+01
+ 0.24099756E+02-0.11736704E+02 0.30020025E+02-0.25523891E+02
+ 0.15339497E+02 0.43580658E+02-0.11596680E+01-0.26010191E+02
+-0.24157926E-01-0.34682450E+00-0.18939769E+00-0.64226544E+00
+ 0.55502748E+00-0.18019242E-02 0.22090345E-02-0.17449288E-02
+-0.28906872E-01 0.43518983E-01-0.22777419E-02 0.19499291E-01
+ 0.26698962E-01-0.66926338E-01-0.13376318E+00-0.66897385E-01
+-0.60208154E+00-0.70030004E+00-0.11302370E-01 0.22896841E-01
+ 0.18626200E-01 0.16040893E-01 0.18582191E-01-0.50697462E-02
+ 0.14439798E-01-0.25851393E-01 0.14338864E+00-0.20765391E+00
+ 0.20112073E-01-0.19753712E+01 0.36831617E+00 0.33009917E+00
+-0.17354338E+00 0.28956002E-02-0.41839543E+00-0.34900645E-02
+-0.25787419E+00 0.39183512E-01 0.11534757E+00 0.57123256E+00
+ 0.13649093E+00 0.26264960E-01-0.47044334E+00-0.22277884E+01
+ 0.34276772E+00 0.26841480E+00-0.31208158E+00 0.21924429E+00
+-0.73497251E-01-0.54401502E-01 0.14796603E-01-0.10233092E-01
+ 0.26954265E+01 0.43012781E+01 0.75683284E+01-0.86731186E+01
+ 0.55410342E+01-0.34549937E+00-0.13151923E+01 0.79660070E+00
+ 0.91225111E+00-0.41482779E+00 0.31972158E+00-0.65595812E+00
+-0.98114915E-01 0.17693305E+01 0.10319415E+01 0.57046089E+01
+-0.44164987E+01-0.76197066E+01 0.69258058E+00-0.58791065E+00
+-0.44445005E+00 0.10734792E+01-0.10839006E+01 0.18576832E+00
+-0.56307358E+00-0.81509627E-01 0.19725923E+00 0.28090067E+01
+ 0.29866964E-01 0.65746832E+01-0.11214925E+01-0.20306814E+01
+ 0.75946403E+00 0.37662435E+00 0.41457515E+01 0.45575309E+00
+ 0.18497028E+01-0.14746182E+00-0.16188046E+01-0.33737960E+01
+-0.32643378E+00 0.13863986E+01 0.35408862E+01 0.94330416E+01
+-0.89115298E+00-0.36629066E+00 0.16838450E+01-0.21706350E+01
+ 0.13435290E+01 0.55284905E+00-0.85979068E+00-0.11613747E+01
+-0.12316348E+02-0.62260914E+01-0.65585999E+02 0.51939068E+02
+-0.18281101E+02 0.18273875E+00 0.63747220E+01-0.31539526E+01
+-0.72625136E+01-0.33774602E+00-0.64533216E+00 0.45377502E+01
+-0.94161624E+00-0.12553596E+02 0.13752454E+02-0.35581814E+02
+ 0.14409949E+02 0.47376873E+02-0.34375093E+01 0.25728254E+01
+ 0.43016977E+01-0.10728865E+02 0.57186842E+01-0.11502291E+01
+ 0.40079656E+01 0.17250158E+01-0.35611405E+01-0.97855129E+01
+-0.59383321E+01-0.11810493E+02-0.76464243E+01 0.37008057E+01
+-0.16280932E+01-0.65146512E+00-0.10992208E+02-0.11756465E+01
+-0.40906620E+01-0.35428894E+00 0.46568985E+01 0.40749516E+01
+-0.54280490E+00-0.29149284E+01-0.16286656E+01-0.16713770E+02
+ 0.47613055E+00-0.20696537E+01-0.19630735E+01 0.53624787E+01
+-0.44261832E+01-0.13592387E+01 0.33461597E+01 0.42439528E+01
+ 0.19575254E+02-0.26728251E+01 0.15306610E+03-0.97623291E+02
+ 0.11181700E+02 0.33377397E+01-0.11486933E+02 0.41499352E+01
+ 0.16440626E+02 0.37850554E+01-0.18400379E+00-0.10662279E+02
+ 0.31876299E+01 0.31439281E+02-0.47513309E+02 0.64092300E+02
+-0.10152738E+02-0.89982887E+02 0.79072332E+01-0.60005236E+01
+-0.98099136E+01 0.26642679E+02-0.94802303E+01 0.32628336E+01
+-0.80624046E+01-0.41372290E+01 0.24437640E+01 0.10388881E+02
+ 0.68885064E+01 0.12287474E+02 0.17508669E+02-0.15349623E+01
+ 0.13399680E+01 0.89213789E-01 0.77907591E+01 0.79130781E+00
+ 0.28016553E+01 0.53495371E+00-0.36855667E+01 0.68383670E+00
+ 0.14101259E+00 0.12219146E+01-0.87792912E+01 0.14048577E+02
+-0.40416885E-01 0.34328499E+01 0.43522057E+00-0.37442031E+01
+ 0.36730547E+01 0.10144058E+01-0.31850066E+01-0.35276756E+01
+-0.11864492E+02 0.65092659E+01-0.10362085E+03 0.60457390E+02
+ 0.88302031E+01-0.48034692E+01 0.68933558E+01-0.17215779E+01
+-0.11243499E+02-0.31618342E+01 0.66602868E+00 0.76481528E+01
+-0.22676835E+01-0.26041988E+02 0.39193073E+02-0.33144814E+02
+-0.53187180E+01 0.56564884E+02-0.62643838E+01 0.45099568E+01
+ 0.61439466E+01-0.18840761E+02 0.46164675E+01-0.28137391E+01
+ 0.49374666E+01 0.28067627E+01-0.25802639E+00-0.10362916E+00
+-0.14398941E+00 0.58753002E-01 0.12338717E+00-0.46615648E+00
+-0.90974379E+00 0.48583642E-01-0.38379822E-01 0.27855985E-01
+ 0.10477463E-02-0.31467213E-02 0.46931063E-02 0.13942069E+00
+ 0.12052406E-01 0.13556781E+00-0.54092322E-01 0.15451410E+00
+ 0.88882434E+00-0.48357457E+00-0.32771014E-01 0.11079021E-01
+-0.23551969E-01-0.56003863E-02-0.15953735E-01 0.25094349E-02
+ 0.20348473E+00 0.49829680E+00-0.55318739E-01-0.92830181E-01
+-0.18149967E+00-0.54599792E+00-0.81165332E+00 0.41849393E-01
+ 0.22468764E+00 0.12768607E-01-0.45675814E-01 0.34527790E-01
+ 0.90832688E-01 0.19808038E+00 0.24423756E-01 0.55058855E+00
+ 0.96684530E-01 0.14878929E+00 0.10547436E+01-0.62313193E+00
+-0.34745380E+00 0.50657775E-01-0.10458727E+00-0.26829256E-01
+-0.22105072E-01 0.96443847E-01 0.31103616E+01 0.71752518E+00
+ 0.43198234E+00-0.83313775E+00-0.53591412E+00 0.21094110E+01
+ 0.14961641E+01 0.52341461E+00 0.56767017E+00-0.88358931E-01
+-0.25685966E-01-0.62317005E-02 0.82329907E-01-0.23380406E+01
+ 0.12645091E+01-0.13486705E+01 0.41103089E+00-0.19716953E+01
+-0.13170983E+01 0.23266773E+01 0.89183159E-01 0.99011421E+00
+ 0.14776289E+00-0.96008055E-01 0.22073540E+00 0.14917378E-01
+ 0.83357565E-01-0.13930918E+01 0.16632780E+00 0.31476656E+00
+ 0.29862192E+00-0.63334607E-01 0.78159118E+00-0.13982970E-01
+-0.37854099E+00-0.40592089E-01 0.14077954E+00-0.17048199E+00
+-0.20473443E+00-0.39951530E+00 0.38091745E-01-0.17263715E+01
+-0.53047764E+00-0.42756036E-01-0.14003088E+01 0.27357009E+00
+ 0.70787126E+00-0.17673521E+00 0.21879543E+00 0.80344655E-01
+-0.11453548E+00-0.28751436E+00-0.55554628E+01 0.63528180E-01
+ 0.22511274E+00 0.16389220E+01 0.68950057E-01-0.38856034E+01
+-0.18219573E+01-0.12218167E+01-0.72119141E+00 0.12372471E-01
+ 0.60922831E-01-0.13905819E-01-0.64103089E-01 0.34650526E+01
+-0.16690048E+01 0.22416811E+01-0.33316332E+00 0.29141891E+01
+ 0.15945005E+01-0.39390171E+01 0.14417328E+00-0.18604945E+01
+-0.11784468E+00-0.16993752E-01-0.41759604E+00-0.18586282E+00
+ 0.81547573E-02 0.49226344E-01 0.81611373E-01 0.27063418E-01
+ 0.56695234E-01 0.29357164E-02 0.14539908E-01 0.30828521E+00
+-0.25350037E+00 0.32837324E-01 0.15210060E-01-0.29200683E-02
+ 0.44837701E-02 0.63956775E-01 0.18061155E-01 0.10958803E-01
+-0.12470478E-01 0.35997184E-02-0.25639519E-01-0.23812983E-01
+ 0.26933238E+00 0.31840917E+00-0.11766966E-02-0.27984953E-02
+-0.12501192E-02-0.80634849E-02 0.14839776E+00-0.10045361E+00
+ 0.11778341E-01 0.67010596E-01 0.10346636E+00-0.71791507E-01
+ 0.17526034E-01 0.13578543E+00-0.68693244E+00-0.82893714E-01
+ 0.53929277E-02 0.23169667E-02 0.82021438E-01 0.72574534E-01
+-0.60684308E-01-0.86023420E-01 0.90452895E-01 0.34990810E-01
+-0.15001757E+00-0.22994665E-01 0.55149466E+00 0.16523851E+00
+-0.21080254E-01-0.10785421E-01 0.24345174E-01-0.54076161E-01
+-0.14327258E-01 0.63852847E-01-0.25183151E-01 0.29911581E-01
+ 0.37023772E-01 0.14488783E-01-0.15269484E-01-0.60717769E-01
+ 0.13028531E-01 0.14004098E+00 0.26168507E+00-0.16771069E-01
+ 0.91431160E-02 0.12888256E+00 0.18391632E-02-0.29771950E-01
+-0.61108533E-01 0.42996099E-02-0.14745311E-01-0.18162554E-01
+ 0.26890341E-01-0.88421255E-01-0.26770899E+00 0.11803225E+00
+-0.93428353E-02 0.73491596E-02 0.42300068E-01-0.45630768E-01
+ 0.12768690E-01-0.31926125E-01 0.13576030E-01 0.21456007E-01
+ 0.21313623E-01-0.25462057E-01-0.38112130E-01-0.38594943E-02
+ 0.38873557E-01-0.10141932E+00 0.36759220E-01 0.96034102E-01
+ 0.24284817E-01-0.10095998E+00-0.96809138E-02-0.16556034E-01
+ 0.69916956E-02-0.73311739E-01 0.47385052E-01-0.22124328E-01
+-0.81969174E-02 0.11834414E-01-0.44802796E-01-0.12607549E+00
+-0.29452965E-01-0.18742386E-01-0.76822206E-01 0.27353512E-01
+ 0.59363917E-02 0.14614475E-01-0.26352966E-01-0.18402827E-02
+-0.14121162E-01-0.11845143E-01-0.38414609E-02-0.61304052E-02
+-0.21523267E-02 0.61670173E-01 0.75453207E-01 0.65484559E-02
+-0.33840731E-01 0.21261007E-01-0.11356534E-01-0.17962535E-02
+ 0.23999993E-01 0.22581514E-01-0.91374582E-02-0.62641094E-03
+-0.11860891E-01-0.49161039E-01-0.25092568E-01 0.65070137E-01
+-0.17101344E-01-0.30995658E-01-0.48828226E-01-0.25985174E-01
+ 0.12641994E-01 0.94131026E-02 0.50771046E-01 0.10564291E-01
+-0.72512310E-02-0.25239275E-02 0.16289363E-01-0.34294993E-01
+-0.21341737E-01-0.14802243E-01 0.52205998E-01 0.39956398E-01
+ 0.15908470E-01 0.47674975E-02 0.53186305E-02 0.79527143E-02
+-0.18043905E-01 0.74231257E-02 0.87468559E-02 0.36759220E-01
+ 0.30515985E+01 0.18279366E-01 0.17321778E-01 0.13490525E-02
+ 0.54005985E-02-0.12811268E-02-0.19620711E-02 0.16095781E-02
+ 0.14036379E-02 0.36024821E+00-0.26675237E-01 0.60383171E-01
+ 0.85761592E-01 0.32015789E-01-0.64746398E-02-0.23822611E-01
+ 0.12654256E-02 0.19042149E-01 0.84638625E+00-0.16989470E+00
+-0.25357148E+00-0.44812657E-01-0.90480018E-02 0.13199283E-01
+-0.49734190E-02-0.90144098E-01-0.46962071E-01-0.31312117E+00
+-0.13555598E+00-0.11967962E+00-0.20256715E+00-0.13136697E+00
+ 0.48089355E-01 0.87422676E-01 0.93227997E-02-0.46409301E-01
+-0.11959354E+01 0.43471059E+00 0.63000107E+00 0.10890940E+00
+-0.57202525E-01-0.42029072E-01 0.43181811E-01 0.22912052E+00
+ 0.13201462E+00-0.73961414E-01 0.12270621E+00 0.51998906E-01
+ 0.10816619E+00 0.11332868E+00-0.50417311E-01-0.68393320E-01
+-0.12005514E-01 0.23018699E-01 0.42550960E+00-0.27673936E+00
+-0.39599004E+00-0.66320188E-01 0.74589588E-01 0.29583050E-01
+-0.38249172E-01-0.14549865E+00-0.96091665E-01-0.81040589E-02
+-0.14526182E+00-0.32619151E+00 0.83900504E-02 0.61066765E-02
+-0.79448353E-02 0.88535789E-02 0.61606448E-02 0.44978694E-02
+ 0.34204829E-01 0.34175068E+00-0.15657048E+00-0.35750011E-02
+ 0.16515717E-02 0.34812370E-02-0.10691710E-01-0.10663674E-01
+ 0.23136511E-02-0.77340782E-01 0.29641938E+00 0.46389941E-02
+ 0.60751557E-01 0.13668638E+00 0.73995506E-02 0.36284521E-01
+ 0.43617327E-01-0.78822457E-03-0.23608712E-01 0.67810323E-02
+ 0.38915452E+00-0.11137573E+00-0.67211337E-01 0.10261582E+00
+-0.20004436E-01-0.96985581E-03 0.74450895E-01 0.24482937E+00
+ 0.68339103E+00 0.12487189E+01-0.17763805E+00-0.11472326E+00
+ 0.13915654E+00-0.96532442E-01-0.11791184E+00-0.16605750E+00
+-0.76662284E+00-0.14496020E+01 0.84100413E+00 0.16240078E+00
+ 0.76123066E-01-0.33510583E-04 0.83549894E-01 0.23060144E+00
+-0.16083211E+00 0.14090075E+01-0.13704493E+01 0.82855475E+00
+ 0.23537932E+00-0.70777285E+00-0.28288743E+00-0.19857667E+00
+-0.45078415E+00-0.24828870E-01 0.88282007E+00-0.41681415E+00
+-0.20059464E+01 0.15218285E+00 0.75277686E+00-0.67411071E+00
+ 0.11159578E+00-0.46602711E-01-0.56245166E+00-0.76950717E+00
+-0.10647525E+01-0.34677619E+00 0.63541669E+00 0.15894818E+00
+-0.45485401E+00 0.20325267E+00 0.27888203E+00 0.53756195E+00
+ 0.23074839E+01 0.57445264E+00-0.17256494E+01-0.20322417E+00
+-0.25591567E+00-0.21160703E-01-0.19882099E+00-0.64506978E+00
+ 0.51714456E+00-0.38324997E+01 0.20495992E+01-0.12175716E+01
+-0.10217855E+01 0.12773292E+01 0.99618143E+00 0.27631152E+00
+ 0.99627531E+00 0.13893232E-01-0.26958106E+01 0.34171972E+00
+ 0.34515679E+01 0.34862801E+00-0.16408192E+01 0.13690850E+01
+-0.63893899E-01 0.18333472E+00 0.11947597E+01 0.52510667E+00
+ 0.79661417E+00-0.27414501E+00-0.59034508E+00-0.29286742E-01
+ 0.33197421E+00-0.11383864E+00-0.16956963E+00-0.43929490E+00
+-0.18387926E+01 0.63808429E+00 0.13265423E+01-0.18234240E-01
+ 0.18122619E+00 0.92859911E-02 0.90937927E-01 0.46281740E+00
+-0.37837014E+00 0.27536213E+01-0.96891516E+00 0.93679023E+00
+ 0.81044078E+00-0.73057920E+00-0.86545914E+00-0.13849419E+00
+-0.62656611E+00 0.88995732E-02 0.20475008E+01-0.35984865E+00
+-0.18440652E+01-0.44248223E+00 0.98484981E+00-0.84341449E+00
+-0.35579182E-01-0.14597042E+00-0.76683801E+00-0.10489090E-01
+-0.39877072E-01-0.26295239E-01 0.73930889E-01-0.10012757E+00
+-0.76692938E-02 0.43066703E-02-0.10926161E-01-0.48446790E-02
+ 0.18568033E-01-0.17637935E-01-0.15594788E-01 0.10350185E+00
+ 0.84533416E-01-0.65629520E-02-0.97999501E-03 0.40845182E-02
+-0.18347696E-02 0.30939199E-01 0.14365974E+00 0.14420240E+00
+-0.77935576E-01 0.16382048E+00-0.65682996E-02-0.39891735E-01
+ 0.59632142E-02-0.52234367E-01-0.16920580E+00 0.51358785E-01
+ 0.32620181E-02-0.74220739E-01 0.15272126E-01 0.58219019E-01
+ 0.18921616E-01 0.17532919E-01 0.32072235E-01 0.11713439E-01
+ 0.24454077E+00 0.22597702E+00-0.16024730E+00-0.13617696E+00
+ 0.23809751E-01 0.65214179E-01 0.66272601E-01-0.77504419E-01
+-0.36200440E+00 0.25575509E-01-0.46344455E-01 0.24129643E+00
+-0.14844865E+00-0.63828021E-01 0.11078907E+00-0.16530167E-01
+-0.12369106E-01-0.18463311E+00-0.74005991E+00-0.46722332E+00
+ 0.24123137E+00-0.84606230E+00 0.38615707E-01 0.21995303E+00
+-0.47678851E-01 0.23793846E+00 0.10495080E+01 0.73820189E-01
+ 0.17725090E-01 0.56766880E+00 0.60886084E-02-0.12156435E+00
+-0.15492921E+00-0.12488942E+00-0.24417043E+00 0.22861373E-01
+-0.35652456E+00-0.40377608E+00 0.73468529E-01 0.20436759E+00
+-0.63278258E-01-0.14106607E+00-0.82917646E-01 0.15102735E+00
+ 0.48683444E+00-0.13043688E+00 0.14397170E+00-0.34078661E+00
+ 0.98404596E-02 0.12281654E+00-0.21639533E+00 0.21982001E-01
+ 0.36892843E-01 0.22279333E+00 0.97342873E+00 0.53715861E+00
+-0.29357713E+00 0.11556523E+01 0.34201711E-01-0.19304839E+00
+ 0.81136659E-01-0.24921562E+00-0.13376596E+01-0.14052005E+00
+ 0.35047200E-01-0.92397130E+00-0.17662610E+00-0.17981412E-01
+ 0.24125864E+00 0.16264918E+00 0.29551035E+00-0.21483745E-01
+-0.36245286E-02-0.66329092E-02 0.25388638E-02 0.10015321E-01
+ 0.40678948E-01-0.17979136E-01-0.35519518E-02-0.52801091E-02
+ 0.23592529E-02-0.10888859E-01-0.72884997E-02-0.15401221E-01
+-0.82034264E-02 0.22992514E-01 0.55773426E-01 0.39712242E-02
+ 0.38829453E-02 0.69172211E-01 0.48699997E-01 0.27636139E-01
+-0.61428368E-01-0.52963924E-02-0.12855162E+00-0.45400564E-01
+ 0.16215649E-02-0.12359414E-01 0.48297949E-01-0.49748858E-02
+-0.98275091E-03-0.19215355E-01-0.17720040E-01 0.45080960E-01
+-0.12306380E+00 0.50776438E-02 0.61110142E-02 0.41643456E-01
+-0.11696455E+00 0.58375955E-01 0.44971615E-01-0.28971106E-01
+-0.11677378E+00-0.12909587E+00 0.26876843E-01-0.87210005E-02
+-0.27737666E-01-0.31307798E-01-0.67466116E-02 0.54379940E-01
+-0.14625589E-02 0.13169987E+00-0.15068077E+00 0.17126866E-01
+-0.85981060E-02-0.20431230E-01-0.40790266E-02 0.63434639E-02
+ 0.17711798E-01 0.10949640E-01-0.42260378E-02 0.21843901E-02
+ 0.74000163E-02 0.10929640E-01-0.27122835E-01 0.13527165E-01
+-0.41228514E-02-0.12625435E-01-0.37137333E-02-0.90636835E-02
+ 0.47529996E-02-0.73364242E-02 0.13638129E-01 0.87972768E-01
+ 0.10461537E-01-0.20852067E-01-0.11302185E-01-0.18262224E-01
+-0.84132282E-02-0.51975157E-02 0.13170406E-02-0.52717347E-01
+ 0.91586038E-02-0.67112334E-01 0.20436235E-01 0.37548594E-01
+-0.96599301E-02 0.67724632E-02-0.25683215E-02 0.61321169E-01
+ 0.49731391E-02 0.30659314E-03-0.44321292E-02 0.46804580E-02
+-0.64085319E-03 0.67579322E-02 0.63220300E-02-0.32938600E-02
+-0.14760738E-01 0.72151292E-02 0.10289571E-01 0.13664791E-01
+-0.10606593E-01-0.77491556E-02-0.10887925E-01 0.14865423E-01
+ 0.28957613E-02-0.37721093E-02-0.77854278E-02-0.13292247E-01
+ 0.18373661E-02 0.13984727E-01 0.48237410E-02-0.23889195E-03
+ 0.75594457E-05-0.27488936E-02-0.73596179E-02 0.46203346E-02
+ 0.75970124E-02-0.96835792E-02-0.18875452E-01-0.29838530E-02
+-0.54170112E-02 0.12925678E-01 0.10607135E-02-0.30239653E-02
+-0.59676557E-02 0.26920488E+01 0.11389978E-01 0.98317824E-02
+ 0.31620429E-02 0.71236417E-02 0.11406111E-02-0.56722080E-02
+-0.48866012E-04 0.11990918E-03 0.32997811E+00 0.15148186E-01
+ 0.51400617E-01 0.34719396E-01 0.39471131E-01 0.79672048E-02
+-0.34432359E-01-0.70640777E-03 0.12702998E-01 0.10057878E+01
+-0.11234321E+00-0.14979783E+00-0.79824487E-02-0.41622274E-01
+ 0.64391503E-02 0.55315364E-01-0.57274159E-01-0.10790603E-01
+-0.18790220E+00-0.25727227E+00-0.12212502E+00-0.53840321E-01
+-0.13131250E+00-0.32435574E-01 0.12784509E+00 0.15400990E-01
+-0.22077980E-01-0.11739050E+01 0.24142879E+00 0.30385274E+00
+ 0.25107432E-02 0.12746825E-01-0.26694337E-01-0.99654526E-01
+ 0.15097810E+00 0.38390014E-01-0.10511706E+00 0.20301551E+00
+ 0.83070330E-01 0.77093919E-02 0.10205883E+00 0.23708317E-01
+-0.99959821E-01-0.15592851E-01 0.25066223E-02 0.24683730E+00
+-0.11758252E+00-0.16027445E+00 0.14066710E-02 0.35752703E-01
+ 0.23185330E-01 0.48782002E-01-0.95009811E-01-0.37437104E-01
+ 0.88183937E-03-0.30879867E+00-0.27182159E+00 0.20393897E-02
+ 0.69514830E-02-0.93122534E-02 0.51981998E-02 0.39402079E-02
+ 0.44796327E-02 0.87271491E-02 0.28625375E+00-0.31935695E+00
+ 0.52287388E-02-0.67754048E-02 0.86630229E-02-0.77996161E-02
+-0.60802847E-02 0.78002373E-02-0.49862538E-01 0.26634568E+00
+ 0.43451972E-01-0.30126229E-01 0.80953494E-01-0.31576782E-01
+ 0.30366642E-01 0.42546973E-01 0.15590327E-01-0.92389202E-02
+ 0.49252599E-01 0.31745583E+00-0.11614788E-01-0.22583406E-01
+ 0.92642047E-01-0.35509120E-02 0.13614683E-01 0.56305062E-01
+ 0.99343164E-02 0.11374707E+01 0.70455754E+00 0.17588671E-01
+-0.75575434E-01 0.13827311E+00-0.49321633E-01-0.75004660E-01
+-0.13349947E+00-0.42829427E+00-0.84019780E+00 0.13067011E+01
+ 0.34150391E-03 0.15719564E+00-0.40955950E-01 0.75470291E-01
+ 0.13132016E+00-0.17925552E+00 0.84138435E+00-0.15912498E+01
+ 0.10511795E+00 0.54206944E+00-0.38688609E+00 0.17358598E+00
+-0.36708114E+00-0.45672667E+00-0.17131349E+00 0.51538002E+00
+-0.22939309E+00-0.19646254E+01-0.31394237E+00 0.19157244E+00
+-0.59996855E+00-0.45292720E-01-0.13538666E+00-0.45756468E+00
+-0.15232117E+00-0.15745953E+01 0.19509153E+00 0.83998501E-01
+ 0.52878518E-01-0.39462078E+00 0.11502753E+00 0.21379741E+00
+ 0.39088184E+00 0.13416333E+01-0.28084823E+00-0.21697867E+01
+ 0.53006239E-01-0.35013482E+00 0.56974604E-02-0.25478348E+00
+-0.39096361E+00 0.53477621E+00-0.23757496E+01 0.26613855E+01
+ 0.50327115E-01-0.13042608E+01 0.67580837E+00-0.25880238E+00
+ 0.89902413E+00 0.10861776E+01 0.29366979E+00-0.18501281E+01
+ 0.81386849E-01 0.37214670E+01 0.11096135E+01-0.27120560E+00
+ 0.12532763E+01 0.18778534E+00 0.33471352E+00 0.96769452E+00
+ 0.14908600E+00 0.10968636E+01-0.32124093E+00-0.12884712E+00
+ 0.20785201E-01 0.26191479E+00-0.83107598E-01-0.16051687E+00
+-0.30176720E+00-0.10500849E+01 0.92894047E+00 0.14747008E+01
+-0.54342680E-01 0.21156456E+00 0.44004083E-01 0.19760658E+00
+ 0.30182552E+00-0.39921561E+00 0.17400059E+01-0.12493542E+01
+ 0.42433235E+00 0.91900015E+00-0.38044804E+00 0.54337408E-01
+-0.64055729E+00-0.72182900E+00-0.13823685E+00 0.16223973E+01
+-0.39147210E+00-0.21358540E+01-0.86738002E+00 0.11883757E+00
+-0.81355983E+00-0.14370240E+00-0.23106740E+00-0.60141885E+00
+-0.41002692E-02-0.36998648E-01-0.17324733E-01 0.11522978E+00
+-0.77249430E-01-0.40560430E-02 0.70232498E-02-0.66030943E-02
+-0.17369712E-02 0.50536189E-02-0.27059956E-01-0.90134060E-02
+ 0.70231602E-01 0.11070350E+00-0.50629838E-02 0.32779330E-02
+-0.49949071E-03 0.14835848E-02 0.78637168E-01 0.81079379E-01
+ 0.11170681E+00-0.13736880E+00 0.11822002E+00-0.20365615E-02
+ 0.56556158E-03 0.83278008E-02-0.18613596E-01-0.28584436E-01
+-0.58529172E-02-0.46521258E-01-0.11188855E+00-0.86472198E-01
+ 0.11980531E-01 0.47342207E-01 0.28845016E-02 0.28383438E-01
+ 0.11538816E-01 0.23314317E+00 0.19854650E+00-0.54327124E+00
+ 0.38741905E-01 0.24814070E-02-0.65545565E-02 0.54088697E-01
+-0.54012053E-01-0.19324923E+00 0.67288898E-01-0.59418734E-01
+-0.33771223E-02-0.44705462E+00-0.62183533E-01 0.37801322E-01
+ 0.20709286E-01-0.37422135E-01-0.37016487E+00-0.48482874E+00
+-0.33297902E+00 0.26727724E+00-0.59645987E+00 0.24300680E-01
+-0.60210197E-03-0.69528729E-01 0.92760593E-01 0.19207671E+00
+ 0.27005580E+00 0.30531994E+00 0.62059212E+00 0.20099737E+00
+ 0.89472935E-01-0.26362386E+00-0.48994768E-01-0.22086474E+00
+ 0.96757943E-02-0.35891131E+00-0.41006809E+00 0.39764428E+00
+-0.12385339E+00-0.45176540E-01-0.23520408E-01-0.71112022E-01
+ 0.90213269E-01 0.28137875E+00-0.18450230E+00 0.15791111E+00
+ 0.12017469E+00 0.28672829E+00 0.10803044E+00-0.11098100E+00
+-0.24466727E-01 0.60332600E-01 0.31297663E+00 0.70864713E+00
+ 0.34029236E+00-0.29005626E+00 0.79561400E+00 0.39008945E-01
+ 0.32641575E-01 0.97112492E-01-0.11558538E+00-0.27881745E+00
+-0.29964480E+00-0.33964044E+00-0.84683907E+00-0.30862889E+00
+-0.19399051E+00 0.30272609E+00 0.92557348E-01 0.24453788E+00
+-0.15125610E-01-0.41656359E-02-0.18647785E-03 0.33162646E-02
+ 0.50839242E-02 0.39834607E-01-0.29238209E-01-0.27017531E-03
+-0.12010454E-02-0.41408944E-02-0.13943053E-02 0.43188082E-02
+-0.89726988E-02-0.38272680E-02 0.31500991E-01 0.41226041E-01
+ 0.43756245E-02-0.18315912E-03 0.28158762E-01 0.54722499E-01
+ 0.17690169E-01-0.28583935E-01-0.11942321E-01-0.10031212E+00
+-0.44474870E-01 0.96164370E-03-0.99050319E-02 0.20313956E-01
+ 0.83643049E-02 0.24804203E-02-0.18918399E-02-0.15124847E-01
+ 0.43693494E-01-0.10090125E+00 0.51212185E-02 0.10049676E-02
+ 0.44255398E-01-0.71331427E-01 0.36873396E-01 0.20218041E-01
+-0.17782997E-01-0.11550901E+00-0.89868911E-01 0.13469202E-01
+-0.11585846E-01-0.35603975E-02-0.43277528E-01-0.30855784E-01
+ 0.36533542E-01 0.49907360E-02 0.10209156E+00-0.10187620E+00
+ 0.46443972E-02 0.65317191E-02-0.13696849E-01-0.11126058E-01
+ 0.41133645E-02 0.43337820E-02 0.92311008E-02-0.39588860E-02
+ 0.16066917E-02 0.65573328E-02 0.13953523E-01-0.12618544E-01
+ 0.56935060E-02-0.90064071E-02-0.48857494E-02-0.64519118E-02
+-0.68315426E-02 0.63782968E-02-0.12648813E-01 0.11987502E-01
+ 0.40514901E-01 0.76482454E-02-0.16679959E-01-0.22868705E-02
+-0.15372105E-01-0.84379911E-02 0.35069739E-02 0.13873799E-01
+-0.56473475E-01 0.20609386E-01-0.42281467E-01 0.22169946E-01
+ 0.14798193E-01-0.78803375E-02-0.38305379E-02 0.14281864E-02
+ 0.57916559E-01 0.14591149E-01 0.25254390E-02-0.38154577E-02
+ 0.52015893E-02-0.14573345E-02 0.38699114E-02 0.55529494E-02
+-0.52860053E-02-0.12854257E-01 0.48506586E-02 0.82307914E-02
+ 0.14202736E-01-0.94194580E-02 0.12523378E-02-0.89414315E-02
+ 0.87305941E-02 0.66426750E-02-0.21206427E-02-0.49932897E-02
+-0.50855689E-02 0.87064495E-02 0.80340123E-02 0.87542385E-02
+-0.17597808E-02 0.23883770E-03 0.21871652E-03-0.43078689E-02
+ 0.17831495E-02 0.10356435E-01-0.30754986E-02-0.14237600E-01
+ 0.38996674E-02-0.63463412E-02 0.10078620E-01 0.10248976E-02
+ 0.13287502E-04-0.20263768E-02
diff --git a/input/glow_data/iri90/ccir22.asc b/input/glow_data/iri90/ccir22.asc
new file mode 100644
index 0000000..7a9c34d
--- /dev/null
+++ b/input/glow_data/iri90/ccir22.asc
@@ -0,0 +1,715 @@
+ 0.58184547E+01 0.57026275E-01-0.92279583E-01 0.19769210E-02
+-0.63549969E-02 0.41342468E-03-0.16677534E-01 0.29840269E-02
+ 0.19395292E-01-0.31526904E-02 0.83086165E-02-0.21525295E-01
+-0.12466762E-02 0.10098135E+01-0.13401215E+00-0.33394384E+00
+ 0.53832471E+00-0.33256567E+00-0.14199045E+00 0.17917547E+00
+ 0.53553913E-01 0.36476406E+00-0.17950524E+00 0.83029037E-02
+ 0.52691013E-01-0.10528484E+00 0.10512217E+02-0.11169873E+01
+ 0.69445834E-01-0.11768398E+01 0.15896691E+01-0.46408096E+00
+ 0.20050450E+00-0.11498708E+00-0.57279074E+00-0.55499069E-01
+-0.22052056E+00 0.46984813E+00-0.40550134E-02-0.88619490E+01
+ 0.20526533E+01 0.73109612E+01-0.79561610E+01 0.10884787E+02
+ 0.16878909E+01-0.36661744E+01-0.14041631E+01-0.40023403E+01
+ 0.28041875E+01 0.11619287E+01-0.47040588E+00 0.75334054E+00
+-0.62287876E+02 0.10522943E+02 0.70986325E+00 0.65067163E+01
+-0.11479047E+02 0.16810986E+01 0.92432690E+00-0.25512171E+00
+ 0.36646883E+01-0.23676340E+00 0.22571785E-01-0.15189878E+01
+ 0.11747854E+01-0.51741142E+02-0.26478231E+02-0.41005913E+02
+ 0.41161312E+02-0.59304089E+02-0.69479570E+01 0.18469704E+02
+ 0.71893792E+01 0.17059683E+02-0.13025754E+02-0.89780149E+01
+ 0.14681500E+01 0.57374662E+00 0.13726009E+03-0.30932428E+02
+ 0.32160757E+01-0.12439873E+02 0.30461220E+02-0.47828910E+00
+-0.68936372E+01 0.25059500E+01-0.91692266E+01 0.18327304E+01
+ 0.26999156E+01 0.10919596E+01-0.47839489E+01 0.24011169E+03
+ 0.88412567E+02 0.86547073E+02-0.93710808E+02 0.12796277E+03
+ 0.12891210E+02-0.38673927E+02-0.13718105E+02-0.34361622E+02
+ 0.25967365E+02 0.23587971E+02-0.25956814E+01-0.78749714E+01
+-0.15224947E+03 0.34043217E+02-0.10899738E+02 0.94556570E+01
+-0.33112156E+02-0.28386922E+01 0.11093059E+02-0.39166231E+01
+ 0.96845121E+01-0.29332969E+01-0.52627816E+01 0.10346909E+01
+ 0.64608569E+01-0.31515054E+03-0.10496167E+03-0.78569489E+02
+ 0.95572739E+02-0.12133438E+03-0.10754658E+02 0.36431686E+02
+ 0.10801248E+02 0.32190319E+02-0.23463760E+02-0.25738005E+02
+ 0.27011609E+01 0.12155417E+02 0.65124084E+02-0.12487495E+02
+ 0.69259715E+01-0.23780632E+01 0.12499528E+02 0.21069338E+01
+-0.53715777E+01 0.17919514E+01-0.36225002E+01 0.14143248E+01
+ 0.27828605E+01-0.10895599E+01-0.28614464E+01 0.13440363E+03
+ 0.41123314E+02 0.26135244E+02-0.35684410E+02 0.42126480E+02
+ 0.32188382E+01-0.12763022E+02-0.28629279E+01-0.11248032E+02
+ 0.79024072E+01 0.99840336E+01-0.11786457E+01-0.55230813E+01
+ 0.46197325E-01 0.18396910E+01 0.18488530E+01-0.72137311E-01
+-0.22965059E-01 0.49167216E-01-0.88025229E-02-0.14172700E-02
+ 0.23798379E-02 0.10697534E-01-0.86828216E-03-0.11820203E-01
+-0.45507951E-02-0.34407914E+00-0.19840239E+01 0.18451532E+01
+-0.71499117E-01-0.29341163E-01-0.38065258E-02 0.12800088E-02
+ 0.35247207E-01-0.29336326E-01-0.28935510E-02 0.34494635E-01
+ 0.21810072E-01-0.35707127E-01-0.14954211E+01 0.16685070E+01
+ 0.26021440E+01-0.25061376E-01-0.11775342E+00 0.18140525E+00
+ 0.39146900E+00-0.52104045E-01 0.17152113E+00-0.24431722E+00
+ 0.83082154E-01 0.10321481E+00-0.50523303E-01-0.29371035E+01
+-0.11318464E+01 0.17996328E+01-0.12266654E+01 0.44546545E+00
+-0.17469050E-01 0.10839576E+00 0.13065223E+00-0.14671960E+00
+-0.17891817E-01 0.82936779E-01-0.53874258E-01 0.32858126E-01
+ 0.35966065E+01 0.80477695E+01 0.35369372E+01-0.24907688E-01
+ 0.49452472E+01-0.24985828E+01 0.10750397E+01 0.63011825E-01
+-0.19682705E+00 0.48551191E-01-0.24114858E+00 0.44627540E-01
+ 0.18766768E+00-0.88128072E+00-0.42972250E+01 0.32859540E+01
+ 0.79657030E+00 0.30905221E+01 0.28533414E-01-0.50964904E+00
+-0.72284150E+00 0.72344583E+00-0.41555977E+00-0.27640811E+00
+-0.11061147E+01-0.24223343E+00 0.26371164E+02-0.15519335E+02
+-0.16091352E+02-0.61467066E+01 0.11827186E+02-0.18683293E+01
+-0.10109256E+02-0.41066766E+00-0.26999035E+01 0.11567605E+01
+-0.66600835E+00-0.19529310E+01 0.17002133E+00 0.52747944E+02
+-0.59905572E+01-0.19065039E+02 0.19325472E+02-0.37808802E+01
+ 0.25225880E+01-0.50770384E+00-0.24967108E+01 0.18975933E+01
+ 0.15414751E+01 0.46599278E+00 0.26762016E+01-0.23129802E+01
+-0.29581627E+02-0.67340530E+02 0.28578785E+02-0.18400332E+01
+-0.45590832E+02 0.19642672E+02-0.11388482E+02-0.14384048E+01
+ 0.23746016E+01-0.25869808E+01 0.12232533E+01-0.22738206E+00
+-0.13948896E+01 0.25422518E+02-0.24761139E+02-0.18647608E+02
+-0.35908458E+01-0.27576836E+02 0.63180453E+00 0.12264181E+01
+ 0.73593297E+01-0.56782942E+01 0.42023597E+01 0.94908339E+00
+ 0.99610100E+01 0.74102955E+01-0.13301096E+03 0.29004534E+02
+ 0.96729050E+02 0.52969921E+02-0.57015472E+02 0.43563184E+00
+ 0.61022591E+02-0.60143486E-01 0.14871103E+02 0.36482079E+01
+ 0.28649278E+01 0.86638842E+01-0.38194213E+01-0.28812790E+03
+ 0.46469360E+02 0.46227028E+02-0.10875101E+03-0.70202547E+00
+-0.15389408E+02 0.14878047E+01 0.11239145E+02-0.60284514E+01
+-0.76406460E+01-0.82917595E+01-0.18456875E+02 0.17502781E+02
+ 0.90780685E+02 0.17434750E+03-0.17242982E+03 0.74431643E+01
+ 0.14255406E+03-0.58141239E+02 0.39145481E+02 0.34620700E+01
+-0.12430976E+02 0.10840864E+02-0.43649893E-01 0.59502614E+00
+ 0.22078130E+01-0.10493087E+03 0.18064041E+03 0.12570059E+02
+ 0.93478651E+01 0.80625313E+02-0.71573329E+00 0.36804316E+01
+-0.22530621E+02 0.18506762E+02-0.12973787E+02-0.15200816E+01
+-0.31336437E+02-0.28821777E+02 0.29102225E+03-0.17519779E+02
+-0.29855054E+03-0.15717352E+03 0.88891266E+02 0.25252760E+02
+-0.15087782E+03 0.76023388E+01-0.37483158E+02-0.23462990E+02
+-0.69535470E+01-0.14723260E+02 0.18481215E+02 0.65221857E+03
+-0.11774995E+03-0.61445251E+02 0.26809067E+03 0.39994270E+02
+ 0.31199490E+02-0.64933023E+01-0.18023024E+02 0.64583664E+01
+ 0.12623926E+02 0.27021164E+02 0.45272427E+02-0.46571922E+02
+-0.11661733E+03-0.21271249E+03 0.27106604E+03-0.73082743E+01
+-0.18257878E+03 0.73000687E+02-0.54757530E+02-0.16007293E+01
+ 0.22605629E+02-0.14365945E+02-0.50904408E+01-0.98563850E+00
+ 0.61151135E+00 0.15628786E+03-0.29974243E+03 0.10640742E+02
+-0.10775609E+02-0.95066612E+02-0.36515400E+01-0.11473593E+02
+ 0.27438049E+02-0.24867657E+02 0.15603787E+02 0.12937165E+01
+ 0.39795895E+02 0.39510033E+02-0.29016129E+03 0.28823552E+01
+ 0.39856253E+03 0.19402602E+03-0.45091358E+02-0.53616592E+02
+ 0.16660764E+03-0.15165434E+02 0.42398968E+02 0.36244057E+02
+ 0.75232472E+01 0.95507259E+01-0.28676897E+02-0.64159631E+03
+ 0.12781446E+03 0.57046253E+02-0.29240640E+03-0.71489220E+02
+-0.24908289E+02 0.13778471E+02 0.10944452E+02-0.66494685E+00
+-0.74688768E+01-0.32826694E+02-0.46453716E+02 0.50829025E+02
+ 0.52968678E+02 0.99466309E+02-0.13427264E+03 0.10737036E+01
+ 0.81903267E+02-0.32730858E+02 0.26825422E+02-0.69327599E+00
+-0.12845870E+02 0.59912968E+01 0.45008116E+01 0.76359075E+00
+-0.18522649E+01-0.80060051E+02 0.15137988E+03-0.81274099E+01
+ 0.41646919E+01 0.38812267E+02 0.42529483E+01 0.73921485E+01
+-0.11849993E+02 0.11516630E+02-0.64914279E+01-0.51537508E+00
+-0.17529139E+02-0.18062862E+02 0.10677107E+03 0.52536047E+00
+-0.18758057E+03-0.85391655E+02 0.35786375E+00 0.30250124E+02
+-0.67851524E+02 0.84298763E+01-0.17312017E+02-0.17777077E+02
+-0.27602580E+01-0.14503183E+01 0.14062240E+02 0.22694662E+03
+-0.50785782E+02-0.25865496E+02 0.11572225E+03 0.35236393E+02
+ 0.62496061E+01-0.90702019E+01-0.16877422E+01-0.16750351E+01
+ 0.10357891E+01 0.13722246E+02 0.17021441E+02-0.19445265E+02
+-0.39433226E-01-0.21142434E+00-0.90724351E-02-0.83350801E+00
+-0.50699193E-01 0.27291071E-01-0.22223895E-01-0.42128101E-01
+ 0.17714033E-01 0.50699499E-01-0.18712536E-01-0.25406671E-02
+ 0.20049289E-01-0.49931601E-01-0.20490995E-01 0.89790568E-01
+ 0.51811721E-01-0.87662041E+00-0.31257950E-01 0.40552104E-02
+-0.14721376E-01-0.69894153E-02-0.72437213E-02 0.23188520E-01
+ 0.26874647E-01-0.39877024E-01-0.24794403E+00-0.22231767E+00
+ 0.30068848E+00 0.26426491E+00 0.85828662E+00 0.70318066E-01
+-0.19365221E+00-0.67670614E-01-0.44199413E+00-0.11491100E+00
+-0.18138404E+00 0.90832096E-02 0.69318712E-02 0.56248826E+00
+ 0.47823495E+00 0.41573855E+00-0.15119504E+01 0.67963108E-01
+-0.13004091E+00 0.64840458E-01-0.91815062E-01-0.15601902E+00
+-0.78684457E-01-0.90477422E-01 0.76826736E-01-0.65387972E-01
+ 0.36128531E+01 0.25138476E+01 0.35854378E+00 0.26517680E+01
+ 0.23037329E+01-0.11147922E+01-0.63770419E+00 0.86852974E+00
+-0.41232470E+00-0.61307818E+00 0.48212731E+00-0.85765906E-01
+-0.57749575E+00 0.26269414E+01-0.84287798E+00 0.11433274E+01
+-0.36928189E+01 0.54051328E+01 0.74675167E+00-0.73716527E+00
+-0.66338859E-01 0.11560968E+01-0.29391339E+00 0.12733983E+00
+-0.10972692E+01 0.59222376E+00 0.34999065E+01 0.44444332E+01
+-0.94481927E+00-0.35326798E+01-0.27436817E+01 0.56982708E+00
+ 0.76956064E-01 0.31902781E+00 0.52106791E+01 0.92866051E+00
+ 0.87636429E+00-0.33926573E+00-0.11445957E+01-0.32386546E+01
+-0.44973111E+01-0.15676624E+01 0.10158686E+02 0.16184865E+00
+ 0.16182853E+01-0.21049386E+00-0.28675815E+00 0.18338075E+01
+ 0.79065192E+00 0.12128632E+01-0.13835089E+01-0.13644750E-01
+-0.20781828E+02 0.17002146E+01-0.11406076E+02 0.90912104E+01
+ 0.13688050E+02 0.40151911E+01 0.44199939E+01-0.25502865E+01
+ 0.19699675E+01 0.12704998E+01-0.20803688E+01 0.20040412E+01
+ 0.38943079E+01-0.19840216E+02 0.19784559E+02-0.86485300E+01
+-0.49333038E+01-0.39710073E+01-0.40674095E+01 0.28137231E+01
+ 0.38876519E+01-0.90402184E+01 0.19475243E+01-0.10716798E+01
+ 0.62051377E+01-0.18414352E+01-0.83312197E+01-0.13289581E+02
+-0.21736002E+01 0.84501009E+01 0.49111623E+00-0.37395921E+01
+ 0.19115800E+01-0.31825442E-01-0.13818624E+02-0.18343800E+01
+-0.11181920E+01 0.80240744E+00 0.43642979E+01 0.33570621E+01
+ 0.12437586E+02 0.45811825E+01-0.16603788E+02 0.22749799E+00
+-0.40944538E+01-0.53237623E+00 0.23649323E+01-0.41487660E+01
+-0.17448486E+01-0.36165757E+01 0.43271375E+01 0.10559268E+01
+ 0.39056721E+02-0.16090921E+02 0.33891582E+02-0.35210052E+02
+-0.50438084E+02-0.49294519E+01-0.90522985E+01 0.19701451E+01
+-0.41518707E+01-0.19429389E+00 0.29413283E+01-0.64302478E+01
+-0.75884647E+01 0.49585617E+02-0.54486118E+02 0.14613009E+02
+ 0.31883018E+02-0.19175350E+02 0.78750348E+01-0.41738634E+01
+-0.11004766E+02 0.19877577E+02-0.26470737E+01 0.21634009E+01
+-0.10771997E+02 0.26160250E+01 0.42416420E+01 0.10615758E+02
+ 0.38284779E+01-0.26582875E+01 0.61848521E+01 0.39846966E+01
+-0.23324945E+01-0.27493328E+00 0.98930330E+01 0.91430855E+00
+ 0.42881787E+00-0.45336166E+00-0.38754070E+01 0.24860692E+01
+-0.11103153E+02-0.55986381E+01 0.30626101E+01 0.12912285E+01
+ 0.31475737E+01 0.94185495E+00-0.24471545E+01 0.26365435E+01
+ 0.11146898E+01 0.30409727E+01-0.34792864E+01-0.11173525E+01
+-0.24812998E+02 0.12293331E+02-0.24448639E+02 0.25972631E+02
+ 0.41211086E+02 0.13715389E+01 0.59663386E+01-0.71985565E-01
+ 0.29825644E+01-0.41931191E+00-0.13509992E+01 0.51593585E+01
+ 0.43710918E+01-0.40055676E+02 0.40998569E+02-0.62064986E+01
+-0.28469561E+02 0.22959063E+02-0.49932957E+01 0.19243966E+01
+ 0.76674228E+01-0.12809521E+02 0.61497426E+00-0.14364125E+01
+ 0.57304015E+01-0.13400353E+01-0.21295029E+00-0.11400111E+00
+-0.14825793E+00 0.73622137E-01 0.64809769E-01-0.29826665E+00
+-0.60644519E+00-0.13423300E-01 0.10754849E-01 0.98052928E-02
+-0.27152034E-02-0.18311009E-01 0.64233541E-02-0.17358117E-01
+ 0.90460517E-01-0.55983938E-01-0.37680583E-02 0.10464079E+00
+ 0.60645211E+00-0.32411674E+00-0.19527392E-01 0.57433564E-01
+-0.14313875E-01 0.14264599E-01-0.12788296E-01 0.12462893E-01
+ 0.72629370E-01 0.26425889E+00-0.72310239E-01 0.14027588E+00
+-0.22800760E+00-0.82698578E+00-0.59944493E+00 0.41647565E-01
+ 0.10132378E+00 0.10920783E+00-0.92539199E-01 0.54342553E-01
+ 0.23273796E-01-0.79490080E-01-0.41849073E-01 0.11703410E+00
+ 0.22500437E+00 0.79866014E-01 0.79547960E+00-0.68940175E+00
+-0.91365695E-01 0.26474414E-01 0.18633839E-01-0.69830693E-01
+ 0.42015348E-01 0.70129656E-02 0.20651813E+01 0.10757015E+01
+ 0.79591483E+00-0.10709347E+01-0.39959517E+00 0.12449454E+01
+ 0.65018201E+00 0.57454801E+00-0.10787249E+00-0.11827233E+00
+ 0.89393541E-01 0.38926962E+00 0.20278770E-01-0.84885871E+00
+ 0.50201140E-01 0.41724554E+00 0.10930064E+00-0.19860851E+01
+-0.40959147E+00 0.14579872E+01 0.10777475E+00 0.18702915E+00
+ 0.58261946E-01-0.15377997E+00 0.27000561E+00-0.32803483E-01
+ 0.41750300E+00-0.89985055E+00 0.11675123E+00 0.33188909E-01
+ 0.56400406E+00 0.12467124E+01 0.11199267E+01-0.13293042E-01
+-0.56087691E-01-0.28695655E+00 0.14087248E+00-0.16224995E+00
+-0.25811439E-01 0.51898807E+00 0.17738800E+00-0.20662893E+00
+-0.74402356E+00-0.51481444E-02-0.16159163E+01 0.10972348E+01
+ 0.44918306E-01-0.20699680E+00-0.11631241E-01 0.20945826E+00
+-0.16005199E+00-0.11305244E+00-0.41412516E+01-0.14561827E+01
+-0.11091290E+01 0.17685617E+01 0.66921726E-01-0.16768463E+01
+ 0.23649099E+00-0.10593188E+01 0.12860221E+00 0.10053814E+00
+-0.29987147E+00-0.75887227E+00 0.55327021E-01 0.18062499E+01
+ 0.15113790E+00-0.36903124E-01 0.28656241E+00 0.33028457E+01
+-0.43000481E+00-0.17351261E+01-0.96321538E-01-0.62929451E+00
+-0.54888729E-01 0.19858769E+00-0.39517498E+00-0.23517720E-01
+ 0.74075326E-01 0.55286419E-01 0.37950128E-01 0.51930584E-01
+ 0.40860217E-01-0.80779605E-02-0.85725700E-02 0.18911599E+00
+-0.20170498E+00 0.79165380E-02 0.14078500E-01-0.48967579E-03
+ 0.23352634E-01 0.89454815E-01 0.45219720E-02 0.19925103E-01
+-0.36571357E-01 0.47071739E-02-0.22226086E-01 0.12251128E-01
+ 0.23481008E+00 0.19869673E+00-0.52124937E-02-0.27196895E-01
+ 0.11811548E-01 0.11335118E-01 0.20631571E+00-0.40896397E-01
+-0.66134050E-01-0.51769245E-01 0.11315651E+00-0.29828817E-01
+-0.70822775E-01-0.71775690E-01-0.42620280E+00-0.58472637E-01
+-0.11232210E-01-0.11249758E-01 0.20316778E-01 0.17420180E-01
+-0.14574118E+00-0.10202885E+00 0.72233818E-01 0.11322709E-01
+-0.20416332E-01-0.24119224E-02 0.33355662E+00-0.65747298E-01
+-0.34695771E-02-0.40769741E-01 0.66911586E-01-0.37780598E-01
+ 0.43868124E-01 0.14381094E+00-0.61921760E-01-0.12998655E-01
+ 0.31560197E-01 0.31114614E-02 0.38460427E-03-0.28693313E-01
+ 0.34101967E-01 0.90243518E-01 0.18531388E+00-0.13973088E-01
+ 0.10807764E-01 0.87856077E-01 0.35964809E-01 0.23326820E-01
+-0.84922142E-01-0.19689238E-01 0.94046257E-02 0.14910235E-02
+ 0.26861498E-01-0.73656917E-01-0.17092833E+00 0.78958347E-01
+ 0.87024560E-02 0.12014927E-01 0.82137808E-02-0.21466317E-01
+ 0.53214639E-01-0.74789733E-01 0.19152014E-01 0.21119369E-01
+ 0.25541728E-01 0.88134193E-03-0.14540546E-01 0.78659160E-02
+ 0.15383034E-01-0.64573243E-01 0.21328622E-01 0.28671172E-01
+ 0.20090424E-01-0.94851188E-01-0.24305644E-01-0.72831862E-01
+-0.18191807E-01-0.27933948E-01 0.21245504E-01-0.38015399E-01
+ 0.13354953E-01 0.61733276E-02 0.53486875E-02-0.67182191E-01
+ 0.49329074E-02 0.14485019E-01-0.57947930E-01-0.16713040E-01
+ 0.52156751E-02 0.26821880E-01-0.57450021E-02-0.63059921E-02
+-0.14616561E-01-0.94541983E-03-0.15653398E-01-0.63756146E-02
+ 0.19463095E-02 0.91823854E-01 0.34876380E-01-0.81078401E-02
+ 0.40082075E-01 0.11814687E-01-0.21329770E-01 0.22458946E-01
+ 0.65466752E-02 0.32364109E-02-0.13744369E-01 0.66302335E-02
+ 0.16155699E-01-0.14738605E-01 0.45109160E-01 0.52861501E-01
+-0.88001676E-01 0.24178792E-01-0.26224427E-01-0.27569726E-01
+ 0.28009566E-02-0.12213375E-01-0.14918844E-02 0.38230043E-01
+-0.10143310E-01 0.97960318E-02 0.72819605E-02-0.12117780E+00
+ 0.23717241E-01-0.16449519E-01 0.21570399E-01-0.11265770E-02
+ 0.23510948E-01 0.17620750E-01-0.14561802E-01 0.44145947E-02
+-0.19181985E-01 0.15150579E-01 0.23060735E-01-0.34930815E-02
+ 0.85668230E+01 0.58971159E-01-0.37359368E-01 0.98172938E-02
+ 0.60634501E-02-0.19980328E-01-0.32437317E-01 0.73017133E-02
+ 0.21622829E-01-0.31204394E-02 0.86839320E-02-0.15189710E-01
+ 0.15739934E-02 0.15422637E+01-0.45887977E+00-0.63496351E+00
+ 0.17954226E+00-0.36354408E+00-0.81500508E-01 0.53280359E-02
+ 0.13243176E+00 0.38387778E+00-0.11102082E+00-0.78610063E-01
+ 0.94472550E-01-0.58259502E-01 0.24310478E+02-0.11059129E+01
+-0.73916423E+00-0.92551410E+00 0.17832867E+01 0.35105866E+00
+ 0.37704727E+00-0.31123796E+00-0.53970373E+00 0.86808112E-02
+-0.72665714E-01 0.46467739E+00-0.98924175E-01 0.20755560E+02
+ 0.67352271E+01 0.14065329E+02-0.25990703E+01 0.10409377E+02
+ 0.16016326E+01-0.47564018E+00-0.34755881E+01-0.49684534E+01
+ 0.15748028E+01 0.26321311E+01-0.12655041E+01 0.15727635E+00
+-0.12931139E+03 0.12252737E+02 0.60598216E+01 0.50476084E+01
+-0.11773267E+02-0.44770432E+01 0.58385706E+00 0.23724539E+01
+ 0.37232220E+01-0.10170099E+01-0.81260860E-01-0.29869394E+01
+ 0.22409637E+01-0.23669112E+03-0.51905815E+02-0.72058403E+02
+ 0.12511720E+02-0.56770985E+02-0.10931894E+02 0.33293872E+01
+ 0.20718521E+02 0.24318001E+02-0.57881908E+01-0.15459870E+02
+ 0.46247511E+01 0.34875414E+01 0.24901990E+03-0.39882587E+02
+-0.83957424E+01-0.10404231E+02 0.27809801E+02 0.16726303E+02
+-0.68507929E+01-0.69119296E+01-0.97388639E+01 0.47765851E+01
+ 0.10716473E+01 0.72030778E+01-0.82405844E+01 0.65161255E+03
+ 0.14923309E+03 0.14101414E+03-0.29154617E+02 0.12519636E+03
+ 0.29351564E+02-0.84194279E+01-0.48260624E+02-0.53140247E+02
+ 0.90673313E+01 0.35299232E+02-0.72856526E+01-0.14410473E+02
+-0.23240266E+03 0.45167839E+02-0.96814597E+00 0.99426565E+01
+-0.26336687E+02-0.23381857E+02 0.11163598E+02 0.86249828E+01
+ 0.10363331E+02-0.69799447E+01-0.19014372E+01-0.71312876E+01
+ 0.10706991E+02-0.70311969E+03-0.17120168E+03-0.11967136E+03
+ 0.32664330E+02-0.12050853E+03-0.33125164E+02 0.86441698E+01
+ 0.48691650E+02 0.51921913E+02-0.65182605E+01-0.34950245E+02
+ 0.55114870E+01 0.18803883E+02 0.85038689E+02-0.16290762E+02
+ 0.40023508E+01-0.37510366E+01 0.83846464E+01 0.10919796E+02
+-0.52057114E+01-0.38280964E+01-0.38365119E+01 0.32329717E+01
+ 0.99229783E+00 0.24394760E+01-0.46375208E+01 0.26612119E+03
+ 0.67721451E+02 0.37346931E+02-0.13712147E+02 0.41968533E+02
+ 0.13200320E+02-0.30124371E+01-0.17847174E+02-0.18521812E+02
+ 0.17858783E+01 0.12569484E+02-0.17031465E+01-0.80002728E+01
+-0.13380323E+00 0.13366905E+01 0.19891349E+01-0.10753992E-01
+ 0.60303468E-01 0.12918174E-01 0.21262087E-01-0.86736670E-02
+-0.13964107E-01 0.11481032E-01 0.10142981E-01 0.72076609E-02
+-0.85020000E-02-0.14243269E-01-0.21352170E+01 0.13255059E+01
+-0.50178140E-01-0.54384332E-01 0.46576783E-01 0.34636784E-01
+ 0.48959581E-02-0.16821539E-01 0.46431450E-02 0.12051069E-01
+ 0.19954719E-01-0.32330859E-01-0.12649831E+01 0.14815663E+01
+ 0.32681105E+01-0.28774256E+00 0.42832842E+00 0.53366369E+00
+ 0.69917524E+00-0.12640499E+00 0.27914149E+00-0.86231783E-01
+ 0.41828956E-01 0.22610457E+00-0.11857753E+00-0.59289962E+00
+-0.26590743E+01 0.71710646E+00-0.80467057E+00 0.91069084E+00
+ 0.17542484E+00 0.10409195E+00-0.57189096E-01 0.43423317E-01
+-0.84960863E-01-0.95633030E-01 0.33903435E-01-0.36507253E-01
+ 0.83079939E+01 0.22010695E+02-0.11524427E+02-0.11183747E+00
+ 0.25016727E+01-0.13266135E+01 0.22817478E+00 0.46875328E+00
+ 0.34386232E+00 0.40068373E+00-0.31280607E+00-0.36988357E+00
+ 0.16799913E+00-0.83424835E+01 0.11889293E+02 0.16917753E+02
+ 0.39813349E+00 0.21293635E+01-0.16580629E+00-0.91171318E+00
+-0.19491872E-01 0.62579691E+00-0.31269869E+00-0.14522402E+00
+-0.69244891E+00-0.35517254E+00 0.23320499E+02 0.19454935E+01
+-0.32308598E+02-0.22719015E+00-0.26350050E+01-0.75710707E+01
+-0.13849431E+02 0.13357112E+01-0.52987828E+01-0.12208441E+01
+ 0.56600362E+00-0.38908503E+01 0.15157390E+01 0.16239506E+02
+ 0.26882658E+02 0.11697211E+02 0.13142451E+02-0.13128712E+02
+ 0.12815480E+01-0.26485260E+01 0.10252703E+01-0.71769851E+00
+ 0.26684380E+01 0.33325875E+01 0.19368449E+00-0.84864247E+00
+-0.65441612E+02-0.12118099E+03 0.10928064E+03-0.38240664E+01
+-0.23437611E+02 0.10801532E+02-0.57041898E+01-0.27291293E+01
+-0.15678360E+01-0.73939724E+01 0.37768626E+00 0.33962661E+00
+-0.93000340E+00 0.93348366E+02-0.10296486E+03-0.70953468E+02
+-0.35590768E+00-0.17237814E+02 0.94308928E-01 0.38772573E+01
+ 0.26037455E+01-0.46013012E+01 0.14253412E+01 0.20683482E+01
+ 0.66785064E+01 0.57986798E+01-0.11509787E+03-0.40946972E+02
+ 0.20788942E+03 0.28071583E+02 0.24814009E+02 0.32777500E+02
+ 0.80104485E+02-0.11489333E+02 0.29405239E+02 0.16883720E+02
+-0.67208619E+01 0.20167179E+02-0.86552134E+01-0.99561371E+02
+-0.15522029E+03-0.83673103E+02-0.80494255E+02 0.58310280E+02
+-0.12448786E+02 0.17183468E+02-0.89103413E+01 0.53705993E+01
+-0.13733030E+02-0.22880342E+02-0.23245771E+01 0.86334391E+01
+ 0.17955624E+03 0.24499542E+03-0.33905188E+03 0.16499292E+02
+ 0.74469521E+02-0.33439671E+02 0.23443146E+02 0.36955311E+01
+-0.19126467E+00 0.27561241E+02 0.56984258E+01 0.44640994E+01
+ 0.42115948E+00-0.30066251E+03 0.29662677E+03 0.81036797E+02
+-0.27805751E-01 0.43939407E+02 0.27983515E+01-0.60298972E+01
+-0.10772779E+02 0.15233603E+02-0.58941245E+00-0.87549553E+01
+-0.21512075E+02-0.19019295E+02 0.25668509E+03 0.95829285E+02
+-0.60892999E+03-0.11896392E+03-0.95018196E+02-0.59214664E+02
+-0.19752927E+03 0.38122326E+02-0.69384659E+02-0.56728783E+02
+ 0.22776094E+02-0.43739380E+02 0.22105671E+02 0.22645404E+03
+ 0.37045316E+03 0.17037305E+03 0.21269356E+03-0.11409075E+03
+ 0.32559406E+02-0.47628788E+02 0.30940620E+02-0.16595905E+02
+ 0.25164560E+02 0.59392143E+02 0.48828721E+01-0.25786690E+02
+-0.19930544E+03-0.22929100E+03 0.46098517E+03-0.23051146E+02
+-0.99358955E+02 0.43438587E+02-0.36220837E+02 0.10952334E+01
+ 0.52028384E+01-0.36286861E+02-0.15389333E+02-0.10731896E+02
+ 0.32523794E+01 0.36962787E+03-0.36779376E+03-0.39542661E+01
+-0.51138026E+00-0.43776100E+02-0.79711547E+01 0.35742667E+01
+ 0.16140493E+02-0.21209721E+02-0.38114667E+01 0.13219823E+02
+ 0.27240120E+02 0.23259232E+02-0.26610745E+03-0.69780006E+02
+ 0.81476440E+03 0.17288275E+03 0.13693073E+03 0.46457741E+02
+ 0.21848393E+03-0.50798943E+02 0.72315247E+02 0.74823509E+02
+-0.31317862E+02 0.41232723E+02-0.24342672E+02-0.20460796E+03
+-0.41652863E+03-0.12226570E+03-0.24583488E+03 0.10287257E+03
+-0.36260223E+02 0.59697350E+02-0.42112240E+02 0.20332176E+02
+-0.18127939E+02-0.65813683E+02-0.29394605E+01 0.30914236E+02
+ 0.77954071E+02 0.84637459E+02-0.22712354E+03 0.10199258E+02
+ 0.47287090E+02-0.19806791E+02 0.19231525E+02-0.30108094E+01
+-0.38124545E+01 0.15798557E+02 0.10139494E+02 0.67266974E+01
+-0.32354667E+01-0.15642979E+03 0.16548746E+03-0.24017464E+02
+ 0.17524619E+00 0.14203983E+02 0.56363974E+01-0.46004733E+00
+-0.83661394E+01 0.10115620E+02 0.35576582E+01-0.64790502E+01
+-0.11826179E+02-0.96805029E+01 0.10178647E+03 0.11225664E+02
+-0.39543845E+03-0.84101143E+02-0.65480949E+02-0.12942043E+02
+-0.88712433E+02 0.23320219E+02-0.27256409E+02-0.34397594E+02
+ 0.15014293E+02-0.13734142E+02 0.94665298E+01 0.60337921E+02
+ 0.17995731E+03 0.21066154E+02 0.10197303E+03-0.35869057E+02
+ 0.15114552E+02-0.27445200E+02 0.19399147E+02-0.83749247E+01
+ 0.40309701E+01 0.26498037E+02-0.13782138E-01-0.13060991E+02
+-0.10923450E-01-0.34306788E+00-0.50401580E-01-0.53487885E+00
+ 0.29230735E+00 0.21476941E-01 0.15144962E-01-0.43948866E-01
+-0.17394183E-01 0.35130534E-01-0.16292399E-01 0.19373255E-01
+-0.59662841E-03-0.71579292E-01-0.52842975E-01-0.63118017E-02
+-0.39636719E+00-0.73986328E+00 0.37425833E-02 0.59765212E-01
+-0.49656001E-02-0.27551942E-02-0.15596611E-01 0.61703688E-02
+ 0.14522822E-01-0.32979961E-01-0.84795365E-02 0.16810313E-02
+-0.11047077E+00-0.18073320E+01 0.75538784E+00 0.17500804E+00
+-0.17733023E+00-0.16572930E+00-0.33800665E+00-0.15694118E+00
+-0.16335554E+00 0.71416780E-01-0.57195537E-01 0.38296199E+00
+ 0.77749258E+00-0.32756321E-01-0.16789720E+01-0.18577414E+01
+ 0.17541359E+00-0.14601539E-01 0.33322370E-02 0.29737126E-01
+-0.87182283E-01-0.31497914E-01 0.12684085E-01-0.11295188E-01
+ 0.23203259E+01 0.53199558E+01 0.16164668E+01-0.67294307E+01
+ 0.70609212E+01-0.22695801E+00-0.15492891E+01 0.11764526E+01
+ 0.21189202E+00-0.77632385E+00 0.94330899E-01-0.52504981E+00
+ 0.80921426E-01 0.32638378E+01-0.18616734E+00 0.25722713E+01
+-0.63221340E+01-0.21414373E+01 0.87206262E+00-0.12179788E+01
+ 0.13763864E+00 0.67562330E+00-0.19984256E+00 0.40309739E+00
+-0.78906339E+00 0.50545210E+00 0.94253534E+00 0.12683750E+01
+ 0.62755954E+00 0.30156040E+01 0.10006471E+01 0.20007719E+00
+ 0.20150834E+00 0.14695404E+01 0.41846933E+01 0.12572116E+01
+ 0.65958399E+00-0.71903515E+00-0.69292140E+00-0.96949649E+00
+-0.45164185E+01 0.29109006E+01 0.85274162E+01 0.41857915E+01
+-0.27851799E+00 0.91058570E+00-0.63607663E+00-0.55645533E-01
+ 0.10949482E+01 0.38305825E+00-0.72221702E+00-0.53886354E+00
+-0.11483661E+02-0.18448803E+02-0.25420229E+02 0.41966877E+02
+-0.18985954E+02-0.14435635E+01 0.80026455E+01-0.42318783E+01
+-0.10838451E+01 0.28619409E+01 0.61609662E+00 0.37960072E+01
+-0.52905315E+00-0.17035336E+02 0.18621317E+02-0.21966009E+02
+ 0.18735846E+02 0.16747011E+02-0.54307652E+01 0.46619482E+01
+ 0.13719676E+01-0.60610504E+01 0.19186600E+01-0.33431869E+01
+ 0.48622260E+01-0.19352443E+01-0.21383023E+01-0.43643160E+01
+-0.42401314E+01-0.24073770E+01-0.16128111E+02-0.27644095E+01
+ 0.22688612E+00-0.28903916E+01-0.11218066E+02-0.23697209E+01
+-0.47793251E+00 0.14431590E+01 0.33283553E+01-0.29100385E+01
+ 0.97868328E+01-0.62205763E+01-0.72675920E+01-0.31473615E+01
+ 0.19133319E+00-0.38154783E+01 0.26445303E+01-0.82178062E+00
+-0.30948792E+01-0.84835994E+00 0.25783031E+01 0.23090553E+01
+ 0.19434116E+02 0.30117950E+02 0.67169952E+02-0.83444626E+02
+ 0.97705097E+01 0.59132814E+01-0.15886705E+02 0.57373362E+01
+ 0.21024210E+01-0.35821984E+01-0.25029049E+01-0.88817778E+01
+ 0.14393607E+01 0.31481159E+02-0.55233753E+02 0.44615513E+02
+-0.14347218E+02-0.38026085E+02 0.13057509E+02-0.83902435E+01
+-0.42682991E+01 0.14140669E+02-0.35403111E+01 0.79202223E+01
+-0.92711287E+01 0.31921399E+01-0.40178025E+00 0.42423429E+01
+ 0.44495778E+01 0.65041461E+01 0.24042871E+02 0.30938346E+01
+-0.44691342E+00 0.15059996E+01 0.77578301E+01 0.13139611E+01
+-0.14930587E+00-0.67745137E+00-0.30641334E+01 0.71513062E+01
+-0.80155268E+01 0.27227871E+01-0.77887855E+01 0.47823057E+01
+-0.47966767E-01 0.38374758E+01-0.23107648E+01 0.14483806E+01
+ 0.24450035E+01 0.82637250E+00-0.23080869E+01-0.19962353E+01
+-0.12261738E+02-0.18203463E+02-0.47682377E+02 0.55126305E+02
+ 0.94886637E+01-0.50771351E+01 0.10601325E+02-0.30876780E+01
+-0.16409191E+01 0.16010164E+01 0.18693397E+01 0.63582640E+01
+-0.12191840E+01-0.22224463E+02 0.43476688E+02-0.25098253E+02
+-0.41798453E+01 0.30020361E+02-0.10327440E+02 0.55453873E+01
+ 0.28609169E+01-0.91859627E+01 0.17712349E+01-0.55576038E+01
+ 0.54289842E+01-0.16860573E+01-0.18644652E+00-0.13026768E+00
+-0.51389337E-01 0.13972405E+00 0.26259443E-01-0.48280844E+00
+-0.59422386E+00-0.21665383E-01-0.14493400E-01 0.15758840E-01
+-0.17352704E-02-0.41003264E-02 0.18915856E-02 0.57341747E-01
+ 0.42945143E-01 0.96227340E-01-0.34298085E-01 0.13546824E+00
+ 0.63187897E+00-0.47779465E+00 0.20380679E-02 0.22282990E-01
+-0.25250018E-01 0.17265640E-01-0.25108820E-01 0.94693340E-02
+-0.25878796E+00 0.28488120E+00-0.16580707E+00 0.12818602E+00
+ 0.35997484E-01-0.64699262E+00-0.10717692E+01 0.10131285E+00
+ 0.16753370E+00 0.32581434E-01-0.11407858E+00 0.59960652E-01
+-0.77041015E-02-0.41792631E-01 0.13099888E+00 0.21938293E+00
+-0.11784480E+00 0.17003253E+00 0.11506057E+01-0.71615899E+00
+-0.11056098E+00 0.15374933E+00 0.68769425E-01 0.45401078E-01
+ 0.56390647E-01 0.55900361E-01 0.28251824E+01 0.44229245E+00
+-0.81067193E+00-0.12398359E+01-0.28553767E-01 0.22159548E+01
+-0.54317749E+00 0.75851673E+00 0.27122670E+00-0.17409934E+00
+ 0.50550703E-01 0.21512508E+00 0.78091890E-01-0.14035779E+01
+ 0.84380841E+00-0.64104086E+00 0.46829499E-01-0.14327688E+01
+ 0.25394753E+00 0.19480610E+01-0.91148943E-01 0.78488475E+00
+ 0.22460079E+00-0.24968466E+00 0.46386969E+00-0.64009469E-03
+ 0.98801070E+00-0.11307433E+01 0.52810138E+00 0.87130740E-01
+ 0.50161190E-01-0.13517044E+00 0.17106220E+01-0.20004056E+00
+-0.23602618E+00-0.27457481E-01 0.24470349E+00-0.14111978E+00
+ 0.38745444E-01 0.47567675E+00-0.22344865E+00-0.75762641E+00
+-0.57572670E-01 0.84235653E-01-0.19831989E+01 0.25760263E+00
+ 0.19424839E+00-0.48381361E+00-0.13142878E+00-0.88607289E-01
+-0.23240808E+00-0.17395243E+00-0.52569547E+01 0.56680167E+00
+ 0.16630803E+01 0.17917036E+01-0.68722159E+00-0.39917276E+01
+ 0.18925166E+01-0.13140194E+01-0.42374143E+00 0.26679030E+00
+-0.19116408E+00-0.40941295E+00-0.66891648E-01 0.19922812E+01
+-0.13392367E+01 0.13449210E+01 0.34894937E+00 0.20699844E+01
+-0.15274907E+01-0.31885908E+01 0.30454439E+00-0.15603627E+01
+-0.34676239E+00 0.25211805E+00-0.71817315E+00-0.18247532E-01
+ 0.26140720E-01 0.61536264E-01 0.58766458E-01 0.60080968E-01
+ 0.25750723E-01-0.20359196E-01 0.31155759E-01 0.21450184E+00
+-0.28345245E+00 0.30602589E-01 0.73734480E-02-0.73152762E-04
+ 0.24243210E-01 0.19760441E-01 0.36050626E-02 0.31682935E-01
+-0.42440861E-01 0.21866074E-01-0.36474712E-01-0.28035508E-02
+ 0.29943243E+00 0.22910598E+00 0.11597273E-01-0.11098400E-01
+ 0.64757066E-02 0.79353563E-02 0.14553243E+00-0.74297085E-01
+-0.25932562E-01-0.46754810E-02 0.16648775E+00-0.20828387E-01
+-0.15960755E-02-0.84260628E-02-0.61570007E+00-0.76635070E-01
+ 0.38172156E-01-0.21436466E-02 0.33362638E-01 0.16782244E+00
+-0.23373500E+00-0.76538667E-01-0.46066750E-01 0.44487558E-01
+-0.98707631E-01-0.62737954E-02 0.47552589E+00 0.33932384E-01
+-0.10383098E-01 0.54402561E-02 0.42593040E-01-0.40717162E-01
+-0.34468144E-01 0.99032059E-01-0.15680047E-01 0.16594915E-01
+ 0.60266782E-01-0.96315397E-02-0.12239870E-01-0.44720203E-01
+ 0.24779214E-01 0.17988123E+00 0.16323383E+00-0.13639979E-01
+ 0.24354503E-01 0.13295417E+00 0.36607604E-01 0.11295780E-01
+-0.85317560E-01 0.23435000E-01-0.11025268E-01-0.20789802E-01
+ 0.22085607E-01-0.84365681E-01-0.16373871E+00 0.14517102E+00
+-0.26270184E-02 0.10327833E-01 0.39756168E-01-0.21894038E-01
+ 0.32299142E-01-0.25709143E-01 0.46975818E-01 0.91380738E-02
+ 0.45137787E-02-0.18453874E-01-0.16742310E-01 0.62881177E-02
+ 0.31858400E-01-0.52852482E-01 0.64126670E-01 0.70708215E-01
+ 0.26414242E-01-0.95734000E-01-0.51715512E-01-0.61222430E-01
+ 0.32585312E-02-0.72614186E-01 0.29171487E-01-0.30535296E-01
+-0.62957483E-05 0.48962277E-02-0.69674492E-01-0.63961051E-01
+ 0.24603065E-02 0.32394640E-01-0.59477240E-01-0.60001020E-02
+-0.37934547E-03 0.28015230E-01-0.36198471E-01 0.15542215E-01
+-0.82169725E-02-0.18009149E-01-0.15005712E-01-0.68974853E-02
+-0.44691041E-02 0.16535794E-01 0.56647848E-01-0.21545598E-01
+-0.41591849E-01-0.52183713E-02-0.25275357E-01 0.10705411E-01
+ 0.35601035E-01 0.87656369E-02-0.97603891E-02 0.26778039E-02
+ 0.52772003E-03-0.49273390E-02-0.10546016E-02 0.60169496E-01
+-0.38740799E-01-0.21469520E-01 0.29543184E-02-0.40258944E-01
+-0.13036972E-01 0.18623425E-01 0.90010501E-02 0.14114746E-01
+-0.19131180E-01-0.65653445E-03 0.10507869E-01 0.22839565E-01
+-0.56603742E-02 0.63457802E-01 0.13852383E-01 0.19432070E-01
+ 0.25225332E-01 0.21424852E-01-0.25062202E-02 0.82456255E-02
+-0.16133005E-01 0.12762873E-01 0.22965312E-01 0.64126670E-01
+ 0.30660009E+01 0.84245279E-02 0.10416747E-01-0.79152789E-02
+ 0.97902566E-02 0.27440805E-02-0.18010708E-02-0.44805654E-02
+ 0.44099679E-02 0.47937575E+00-0.73863333E-02 0.62492259E-01
+ 0.71070671E-01 0.24661029E-01-0.76728272E-02-0.34576587E-01
+-0.55801393E-02 0.24911568E-01 0.72640646E+00-0.13610825E+00
+-0.92151836E-01 0.57366926E-01-0.79799727E-01 0.15536819E-01
+ 0.29552156E-01-0.23152215E-01-0.71591372E-02-0.52047455E+00
+-0.18002425E+00-0.14835778E+00-0.15261011E+00-0.84134936E-01
+ 0.74266516E-01 0.12540767E+00 0.69134543E-02-0.10695435E+00
+-0.78587282E+00 0.42692187E+00 0.14050616E+00-0.10526546E+00
+ 0.16430844E+00-0.38810812E-01-0.95510431E-01 0.89601807E-01
+ 0.10011222E-01-0.18745262E-01 0.15723652E+00 0.10078381E+00
+ 0.68045869E-01 0.75673684E-01-0.72365344E-01-0.91716684E-01
+-0.11222346E-02 0.89619219E-01 0.83576031E-01-0.30042040E+00
+-0.12336441E-01 0.59537537E-01-0.84578089E-01 0.17366186E-01
+ 0.79638004E-01-0.66486605E-01-0.10213455E-01-0.24552050E-02
+-0.10713033E+00-0.34063554E+00 0.15499518E-03 0.16007205E-01
+-0.43798913E-02 0.56936443E-02 0.65028886E-02 0.10104384E-01
+ 0.11042719E-01 0.37260795E+00-0.10771591E+00 0.56015593E-02
+-0.42281896E-02-0.25236963E-02-0.11927215E-02-0.10831781E-01
+ 0.66218302E-02-0.12299374E+00 0.37923911E+00 0.25219777E+00
+ 0.50730992E-01 0.70875049E-01-0.12099678E-01 0.36568884E-01
+ 0.57058934E-01-0.18947596E-01-0.35674047E-01-0.31694239E+00
+ 0.45843518E+00-0.12794103E+00-0.69748282E-01 0.42822126E-01
+ 0.30879781E-01-0.51876172E-01 0.43667890E-01 0.11940227E+00
+ 0.61209160E+00 0.10119880E+01-0.12578768E+00-0.23280199E+00
+ 0.84285967E-01-0.31325568E-01-0.14911862E+00-0.10552527E+00
+-0.42771018E+00-0.15437865E+01 0.72490811E+00-0.41361243E-01
+ 0.11341509E+00 0.58602658E-02-0.10867080E-01 0.23384985E+00
+-0.18132639E+00 0.14408733E+01-0.15181103E+01-0.70733821E+00
+ 0.22425801E+00-0.20626904E+00-0.23165996E+00-0.24311604E+00
+-0.75157189E+00 0.32163310E+00 0.11034918E+01 0.19018683E+01
+-0.25283425E+01 0.54272127E+00 0.81747144E+00-0.33536407E+00
+-0.28131485E+00 0.44513670E+00-0.38100833E+00-0.49559730E+00
+-0.76724958E+00 0.64328122E+00 0.37971288E+00 0.38863850E+00
+-0.20415752E+00-0.27450986E-01 0.35379422E+00 0.24708341E+00
+ 0.15503995E+01 0.70807004E+00-0.15437074E+01 0.22590764E+00
+-0.22412081E+00 0.70388354E-01 0.28750276E-01-0.59116602E+00
+ 0.65819973E+00-0.31314054E+01 0.15656358E+01 0.18508843E+01
+-0.10490452E+01 0.13597289E+00 0.96911991E+00 0.34504092E+00
+ 0.18334630E+01-0.94316882E+00-0.32625735E+01-0.48891945E+01
+ 0.43436418E+01-0.89692688E+00-0.22180891E+01 0.81275958E+00
+ 0.57701594E+00-0.92923886E+00 0.10023088E+01 0.46660012E+00
+ 0.33790904E+00-0.12450566E+01-0.27982497E+00-0.11594565E+00
+ 0.78048654E-01 0.53353399E-01-0.21656552E+00-0.16291541E+00
+-0.14640079E+01 0.67885804E+00 0.12005756E+01-0.24355866E+00
+ 0.63787431E-01-0.11045193E+00-0.53045399E-01 0.37856793E+00
+-0.54621232E+00 0.18558358E+01-0.15444054E+00-0.95597863E+00
+ 0.83078742E+00 0.86885981E-01-0.86581147E+00-0.98496750E-01
+-0.12377061E+01 0.71731114E+00 0.23264565E+01 0.32293904E+01
+-0.22380531E+01 0.50838184E+00 0.16552072E+01-0.55498052E+00
+-0.29978287E+00 0.58354074E+00-0.75011027E+00-0.18672661E-02
+-0.25456157E-01 0.60223136E-02 0.49720477E-01-0.96478693E-01
+-0.38978413E-02-0.22143553E-03-0.35477506E-02-0.55410183E-03
+-0.34474754E-02-0.11412907E-01-0.14703928E-01 0.10629820E+00
+ 0.38479723E-01-0.11775076E-01 0.24791460E-02-0.13214642E-04
+ 0.54156147E-02 0.17747490E-01 0.85842289E-01 0.12783460E-01
+-0.80395052E-02 0.82914688E-01 0.52115154E-01-0.59585259E-02
+-0.34316640E-01-0.31203479E-01-0.15008713E+00 0.13022913E-01
+-0.13114069E+00-0.98083436E-01 0.43264881E-01 0.23754107E-01
+ 0.40249381E-01-0.25870558E-01 0.10604724E-01-0.11669767E+00
+ 0.18879850E+00 0.85860342E-01-0.80694489E-01-0.14608112E+00
+-0.38452525E-01 0.11943401E+00 0.36737777E-01-0.83100669E-01
+-0.98170832E-01-0.25824536E-01-0.13470170E-01 0.16278113E+00
+ 0.14445356E+00-0.37913606E-01 0.26959060E-01 0.54383244E-01
+-0.33156373E-01-0.69396205E-01-0.29353243E+00 0.12254417E+00
+-0.11734211E-01-0.65991062E+00-0.22865216E+00-0.37296597E-01
+ 0.19098966E+00 0.12578192E+00 0.10914133E+01 0.47314721E+00
+ 0.71602601E+00 0.67153996E+00-0.39010674E+00 0.86237691E-01
+-0.38608781E+00 0.10881895E+00-0.13271818E-01 0.24741711E+00
+-0.29912946E+00-0.27786815E+00 0.58144867E-01 0.35581678E+00
+ 0.53345066E-01-0.22732742E+00-0.30918676E-01 0.11908955E+00
+ 0.87417528E-01-0.19209103E-02 0.12066233E+00-0.37097234E+00
+-0.29199532E+00 0.99688828E-01-0.63901879E-01-0.95861524E-01
+ 0.24224207E-01-0.14814958E-01 0.35126498E+00-0.10779124E+00
+-0.37479263E-01 0.10758766E+01 0.33757868E+00 0.12894204E+00
+-0.21282887E+00-0.11465584E+00-0.14006575E+01-0.77323854E+00
+-0.76969266E+00-0.10458283E+01 0.45393547E+00-0.20995061E+00
+ 0.51989406E+00-0.76540701E-01-0.34076910E-01-0.14458183E-01
+ 0.55377367E-02 0.10118624E-01 0.43726047E-02 0.30203222E-02
+ 0.26917916E-01-0.27824063E-01 0.38613998E-02-0.23288135E-02
+ 0.97673871E-02-0.12221950E-01-0.20525286E-02-0.16824726E-01
+ 0.66913562E-04 0.29891016E-01 0.39633669E-01 0.86441580E-02
+ 0.57085617E-02 0.60076401E-01 0.44391785E-01 0.75440123E-02
+-0.47574192E-01-0.25747169E-01-0.13596806E+00-0.25348425E-01
+-0.39103729E-03-0.79124048E-02 0.47816981E-01-0.12213377E-01
+-0.60907356E-02-0.16249452E-01-0.81891660E-02 0.20783218E-01
+-0.12515883E+00-0.63580880E-02-0.93365340E-02 0.35757348E-01
+-0.11628059E+00 0.23941850E-01 0.39817769E-01 0.22874350E-01
+-0.14632468E+00-0.48552625E-01 0.21140071E-01-0.29413914E-01
+-0.10383629E+00-0.25948141E-01-0.37469424E-01 0.13439357E-01
+-0.65478263E-02 0.93140125E-01-0.17407711E+00-0.22653142E-01
+ 0.20707196E-01-0.12050121E-01-0.76118793E-03 0.14033116E-02
+ 0.10667692E-01 0.31927912E-02-0.39311568E-02 0.34947079E-02
+ 0.25789489E-02 0.31379892E-02-0.14101000E-01 0.78286082E-02
+-0.55754250E-02-0.79506766E-02 0.20916839E-02 0.22414438E-02
+ 0.73174662E-02-0.58244873E-03 0.37509066E-02 0.89371942E-01
+ 0.39174829E-01-0.15044765E-01-0.11416791E-02-0.28407650E-01
+-0.12282236E-01 0.21022290E-02 0.14036150E-01-0.10413602E+00
+-0.34115105E-02-0.33254713E-01 0.22143330E-01 0.35554647E-01
+-0.46583945E-02 0.82491385E-02 0.43415073E-02 0.11600922E+00
+ 0.77101225E-02-0.15329777E-02-0.16291803E-02-0.26436499E-02
+-0.49016397E-02 0.12201109E-02 0.16907734E-02 0.32629367E-03
+-0.15686175E-01 0.86215120E-02 0.87878658E-02 0.13618468E-01
+-0.13227126E-01-0.82996050E-02-0.15946573E-01 0.71573956E-02
+ 0.56405202E-02-0.54664928E-02-0.11713528E-01-0.12917928E-02
+ 0.49148039E-02 0.13711536E-01 0.31793679E-02 0.66184965E-02
+ 0.20440640E-02-0.92955929E-03-0.69237831E-02-0.55623794E-03
+ 0.28278935E-03-0.72326208E-02-0.10317585E-01 0.10494902E-03
+-0.11032540E-01 0.24561610E-02 0.84329043E-02-0.13802494E-02
+-0.10716310E-01 0.26969762E+01 0.32681650E-02 0.43882988E-02
+-0.27695221E-02 0.10836555E-01-0.36222459E-03-0.40186797E-02
+-0.25219587E-02-0.58713165E-04 0.43824396E+00 0.19661849E-02
+ 0.37536167E-01 0.40424865E-01 0.34500234E-01-0.12376064E-01
+-0.37711073E-01-0.25790085E-02 0.21678755E-01 0.90846723E+00
+-0.32327816E-01-0.90745442E-01 0.30759597E-01-0.99251971E-01
+ 0.25366189E-01 0.51679712E-01-0.10518884E-01 0.47520380E-01
+-0.36741725E+00-0.22690707E+00-0.80392964E-01-0.10627037E+00
+-0.96276939E-01 0.56504987E-01 0.13875304E+00-0.96518273E-03
+-0.10057620E+00-0.98529118E+00 0.91059320E-01 0.14998367E+00
+-0.79339772E-01 0.17853460E+00-0.37562929E-01-0.12783723E+00
+ 0.34081671E-01-0.13274518E+00-0.14129069E-01 0.19939514E+00
+ 0.66745520E-01 0.63963860E-01 0.75332023E-01-0.48900589E-01
+-0.10383722E+00 0.38989398E-02 0.86292423E-01 0.10910988E+00
+-0.51262561E-01-0.39895140E-01 0.59805356E-01-0.85471421E-01
+ 0.12946113E-01 0.86364143E-01-0.23241360E-01 0.85489251E-01
+ 0.68126281E-03-0.26906112E+00-0.25801969E+00-0.36406654E-03
+ 0.15821831E-01-0.58499649E-02 0.49455757E-02 0.19876708E-02
+ 0.70102816E-02 0.10385459E-01 0.28189835E+00-0.27379474E+00
+ 0.99617587E-02-0.94898148E-02 0.23341458E-02-0.17798019E-02
+-0.35258995E-02 0.95521472E-02-0.59638537E-01 0.22104724E+00
+ 0.11115756E+00 0.36462764E-02 0.68865590E-01-0.22449013E-01
+ 0.57117860E-02 0.45325380E-01 0.41912273E-02-0.27711060E-01
+-0.10434671E+00 0.26874310E+00-0.27662922E-01-0.48578799E-01
+ 0.34111135E-01 0.36623143E-01-0.33080466E-02 0.34407139E-01
+-0.86527253E-02 0.10166690E+01 0.33211759E+00-0.69901399E-01
+-0.18758866E+00 0.96067429E-01-0.20856796E-01-0.89351051E-01
+-0.11115274E+00-0.27616104E+00-0.77658612E+00 0.11817397E+01
+-0.40753499E-01 0.15753447E+00-0.38351923E-01 0.15354547E-01
+ 0.11337685E+00-0.17565700E+00 0.70202410E+00-0.12175164E+01
+-0.54803377E+00 0.31004715E+00-0.24121673E+00 0.54169376E-02
+-0.16837779E+00-0.57409120E+00-0.40699039E-01 0.73859042E+00
+ 0.11418145E+01-0.18006949E+01-0.92229664E-01 0.44709337E+00
+-0.23921192E+00-0.38646665E+00 0.41334989E-03-0.26683557E+00
+-0.14896899E+00-0.11365073E+01 0.14847133E+01 0.33789396E+00
+ 0.27518693E+00-0.24134621E+00-0.20836785E-01 0.24304211E+00
+ 0.32803184E+00 0.98338109E+00-0.47739923E+00-0.19460961E+01
+ 0.17087240E-01-0.25491282E+00 0.74909970E-01-0.80111466E-01
+-0.28729579E+00 0.55402631E+00-0.14751050E+01 0.17943174E+01
+ 0.17780763E+01-0.91258276E+00 0.23318025E+00 0.18268088E+00
+ 0.40549916E+00 0.14381841E+01 0.42043656E-01-0.24171760E+01
+-0.34031210E+01 0.33957868E+01 0.46847907E+00-0.11220565E+01
+ 0.62169796E+00 0.88092864E+00 0.88447511E-01 0.57009745E+00
+ 0.19369581E+00 0.60008752E+00-0.14411573E+01-0.28396797E+00
+-0.81249483E-01 0.11603205E+00 0.37423864E-01-0.16771762E+00
+-0.25206971E+00-0.87629116E+00 0.11575415E+01 0.13158292E+01
+ 0.61591063E-01 0.67997426E-01-0.37556443E-01 0.51347751E-01
+ 0.18010110E+00-0.45261535E+00 0.80545521E+00-0.58170259E+00
+-0.83205831E+00 0.67988551E+00-0.48437756E-02-0.24384318E+00
+-0.24711609E+00-0.99533564E+00-0.74051530E-03 0.19566715E+01
+ 0.21233406E+01-0.18595179E+01-0.41028827E+00 0.87477672E+00
+-0.47322938E+00-0.53535795E+00-0.10144442E+00-0.34023517E+00
+ 0.19387048E-02-0.24992781E-01 0.41351970E-02 0.82355030E-01
+-0.10060746E+00 0.10565569E-02 0.61386190E-02-0.56847963E-02
+ 0.28516669E-03 0.18765301E-02-0.18433956E-01-0.57170093E-02
+ 0.96418172E-01 0.74403822E-01-0.49711904E-02 0.73961457E-02
+-0.26749184E-02 0.35287787E-02 0.44248577E-01 0.44711590E-01
+ 0.35021894E-01-0.10435295E+00 0.12232722E+00 0.40250495E-01
+ 0.19099291E-01 0.10738099E-02-0.69058025E-02-0.51917080E-01
+-0.27200999E-01-0.10501927E+00-0.16478807E+00-0.83345883E-01
+-0.19203559E-02 0.45351192E-01-0.21076348E-01 0.86140940E-02
+-0.10319305E+00 0.13298593E+00 0.73425964E-01-0.46246278E+00
+ 0.13967551E+00-0.45703530E-01 0.76875174E-02 0.67371532E-01
+-0.46121821E-01-0.71389146E-01-0.35766073E-01-0.66930741E-01
+-0.13037997E+00-0.29186937E+00-0.43604024E-01-0.38124863E-01
+ 0.46981771E-01-0.33583380E-01-0.22479945E+00-0.17325100E+00
+-0.42389341E-01 0.63497208E-01-0.65707499E+00-0.18000965E+00
+-0.13928051E+00 0.92657882E-03 0.32833587E-01 0.35454518E+00
+ 0.56296510E+00 0.54718381E+00 0.87280089E+00-0.95135480E-01
+ 0.18839495E+00-0.28471857E+00 0.99687912E-01-0.74194811E-01
+ 0.22021563E+00-0.19814751E+00-0.26210853E+00 0.38916111E+00
+-0.11701600E+00 0.43736532E-01-0.51089481E-01-0.89396305E-01
+ 0.56751575E-01 0.84288068E-01 0.46980049E-01 0.16849743E+00
+ 0.14809281E+00 0.15139215E+00 0.80832951E-01 0.28207000E-01
+-0.66889457E-01 0.30166352E-01 0.12673169E+00 0.26919132E+00
+ 0.78022078E-01 0.44204059E-03 0.88714296E+00 0.26615989E+00
+ 0.19613440E+00-0.19267652E-01-0.56138389E-01-0.44904345E+00
+-0.76422292E+00-0.58892214E+00-0.11297759E+01 0.21760568E+00
+-0.28634107E+00 0.33985862E+00-0.90833008E-01 0.72062925E-01
+-0.51934798E-02 0.74422540E-03 0.79966486E-02 0.72337938E-02
+-0.33158786E-03 0.32955918E-01-0.36173228E-01 0.37724695E-02
+-0.41374913E-03-0.21712191E-02-0.42578488E-03 0.46815402E-02
+-0.11746973E-01 0.20427755E-02 0.37616257E-01 0.33100210E-01
+ 0.46383860E-02 0.91368466E-03 0.12895065E-01 0.50809748E-01
+ 0.29385984E-02-0.18984521E-01-0.27869942E-01-0.12483256E+00
+-0.34310818E-01-0.27956211E-02-0.34609209E-04 0.11988606E-01
+-0.21017001E-02 0.25302023E-02-0.96779130E-02-0.14333853E-01
+ 0.32475434E-01-0.11795449E+00-0.32607217E-02-0.88285496E-02
+ 0.10866594E-01-0.90187959E-01 0.33737600E-01 0.10237814E-01
+ 0.22867156E-01-0.17877857E+00-0.42381451E-01 0.12767127E-01
+-0.93460009E-02-0.30316098E-01-0.55458799E-01-0.43160249E-01
+ 0.22116292E-01-0.88928174E-02 0.67580663E-01-0.13444774E+00
+-0.15160068E-01 0.16901061E-01-0.74068061E-02-0.93656145E-02
+ 0.16188228E-02 0.28720102E-02 0.59500979E-02-0.38546906E-02
+ 0.22760713E-02 0.99050291E-02 0.50792447E-02-0.11978722E-01
+ 0.60989028E-02-0.10759148E-01-0.51578460E-02-0.61472147E-02
+-0.13215247E-02 0.77774036E-02-0.41620326E-02 0.12450544E-01
+ 0.33062402E-01 0.28125867E-01-0.74927374E-02 0.32324712E-02
+-0.23429561E-01-0.13820422E-02 0.71330271E-02 0.28685573E-01
+-0.87745167E-01 0.55558784E-02-0.37983757E-01 0.23901636E-01
+ 0.20743832E-01-0.81198774E-02-0.32056179E-02 0.81567001E-02
+ 0.96058153E-01 0.33794027E-01 0.55779296E-03-0.44976049E-02
+-0.40536787E-03-0.57768053E-02 0.36962274E-02 0.12729283E-02
+-0.32060328E-02-0.11466083E-01 0.39026923E-02 0.30240275E-02
+ 0.14327827E-01-0.91552837E-02-0.15580239E-02-0.14593671E-01
+ 0.58387034E-02 0.71950480E-02-0.30479324E-02-0.67118248E-02
+-0.39168904E-02 0.10714657E-01 0.97695896E-02 0.44566900E-02
+ 0.11315702E-02-0.24044179E-03-0.57686231E-03-0.59982366E-02
+-0.22883762E-02 0.37045740E-02-0.60077994E-02-0.99031944E-02
+ 0.84312021E-03-0.11128205E-01 0.24483956E-02 0.49151871E-02
+ 0.20255843E-03-0.45773280E-02
diff --git a/input/glow_data/iri90/ursi11.asc b/input/glow_data/iri90/ursi11.asc
new file mode 100644
index 0000000..3e9b0c8
--- /dev/null
+++ b/input/glow_data/iri90/ursi11.asc
@@ -0,0 +1,494 @@
+ 0.54190040E+01 0.40155929E+00-0.29603529E+00 0.13216271E+00
+ 0.19857099E-01 0.24504871E-02 0.39226152E-02 0.57220352E-02
+ 0.11057800E-02 0.38775420E-03-0.15072399E-03 0.15613510E-02
+ 0.76869800E-03 0.45710859E+00 0.15899700E+01 0.24241550E+00
+ 0.28900281E+00 0.17731450E+00 0.21547539E-01-0.30962281E-01
+ 0.22120111E-01 0.37271980E-01-0.18887250E-01-0.46567801E-01
+-0.52647490E-01-0.15346570E-01 0.24909461E+01-0.30641069E+01
+ 0.56540651E+01-0.21365769E+01 0.13887110E+01 0.32383651E-01
+-0.12528241E+00-0.17813151E+00 0.62530152E-01-0.25308380E-01
+-0.53118959E-01-0.63437097E-01-0.35954218E-01-0.92573357E+01
+-0.17688061E+02 0.52862039E+01-0.48433471E+01 0.40500798E+01
+-0.11666180E+00 0.23548470E+00-0.43183851E+00-0.45663330E+00
+ 0.20368630E+00 0.66365629E+00 0.82084322E+00 0.16079690E+00
+-0.49293199E+01 0.13176410E+02-0.31227961E+02 0.15040060E+01
+-0.81915083E+01-0.47081929E-01 0.98614359E+00 0.11535240E+01
+-0.70625091E+00 0.22892749E+00 0.55983090E+00 0.33387679E+00
+ 0.12905310E+00-0.20464880E+02 0.50628681E+02-0.35199951E+02
+ 0.20371140E+02-0.29616871E+02 0.42004350E+00-0.11849930E+01
+ 0.25426209E+01 0.17218310E+01-0.48576039E+00-0.27851789E+01
+-0.37509389E+01-0.54835331E+00-0.14635270E+02-0.33304001E+02
+ 0.74200592E+02 0.17723080E+02 0.17600290E+02-0.55677313E+00
+-0.23560159E+01-0.28910899E+01 0.19600900E+01-0.65995002E+00
+-0.17121820E+01-0.70268571E+00-0.12265520E+00 0.14652870E+03
+-0.36427769E+02 0.58614460E+02-0.38644711E+02 0.71120880E+02
+-0.70909029E+00 0.27993851E+01-0.60273199E+01-0.28147490E+01
+ 0.16351379E+00 0.52066569E+01 0.73627982E+01 0.80994302E+00
+ 0.22451151E+02 0.36014961E+02-0.79356407E+02-0.34634720E+02
+-0.16187860E+02 0.13196120E+01 0.20985739E+01 0.31234300E+01
+-0.20885050E+01 0.76490581E+00 0.20469749E+01 0.66509992E+00
+-0.23039849E-01-0.21507320E+03-0.17915100E+02-0.32093658E+02
+ 0.34826130E+02-0.71033974E+02 0.33137000E+00-0.29148490E+01
+ 0.61978040E+01 0.20955250E+01 0.47897059E+00-0.45605121E+01
+-0.65732288E+01-0.52273411E+00-0.73370361E+01-0.13146030E+02
+ 0.31111309E+02 0.17535761E+02 0.53734388E+01-0.76263469E+00
+-0.59919190E+00-0.12198260E+01 0.77360803E+00-0.31127331E+00
+-0.84646940E+00-0.23469540E+00 0.54086301E-01 0.97026932E+02
+ 0.19855730E+02 0.31774421E+01-0.12031610E+02 0.25321600E+02
+ 0.65505631E-01 0.10998520E+01-0.23096890E+01-0.58183128E+00
+-0.34456211E+00 0.15249270E+01 0.21964910E+01 0.11412870E+00
+ 0.22038110E+00 0.12750840E+01 0.21465249E+01-0.26148921E+00
+ 0.21723820E-01 0.48351991E-02-0.67207523E-01-0.28740431E-02
+ 0.84851003E-04-0.17969360E-03-0.15642029E-02 0.16390680E-02
+-0.26492579E-02-0.35684979E+00-0.20713000E+01 0.16895820E+01
+-0.29730931E-01-0.25822541E+00 0.67076609E-01 0.66577219E-02
+ 0.53541260E-02-0.61506507E-04 0.96062152E-03-0.16328880E-02
+ 0.95156021E-03-0.56116190E-03 0.14962860E+01 0.21299040E+00
+-0.38973710E+00 0.63579530E+00-0.24866700E+00 0.27793500E+00
+ 0.41281280E+00 0.35896070E-01 0.17001029E-01-0.10984950E-01
+-0.71751148E-01-0.10289790E+00-0.65805502E-02-0.55730659E+00
+ 0.82970691E+00 0.20862651E+01 0.10454830E+00 0.64937711E+00
+-0.46682069E+00 0.24798030E+00-0.10039600E-01 0.11384020E-02
+-0.32581210E-01-0.41962110E-01-0.47738981E-01-0.39841101E-01
+ 0.21725509E+01-0.23608069E+01 0.35518630E+01 0.33841779E+01
+-0.97153813E+00-0.11913210E-01 0.23839271E+01 0.85443340E-01
+ 0.10877850E+00-0.84210098E-01 0.15400410E-01-0.55592839E-01
+ 0.81997417E-01 0.79449958E+00-0.12821250E+02-0.66197503E+00
+ 0.10696430E+01 0.30256829E+01-0.22953551E+01-0.10669880E+00
+-0.69943048E-01 0.70357107E-01 0.37193829E-02-0.57262462E-01
+-0.15710751E-01 0.51954828E-01-0.19072450E+01-0.13355340E+00
+ 0.20584141E+02-0.11444190E+02 0.10907490E+02-0.15336010E+01
+-0.39753540E+01-0.74280012E+00-0.25273889E+00 0.21821760E-01
+ 0.89568239E+00 0.15584160E+01 0.53852491E-01 0.32608891E+02
+-0.35872231E+02-0.31712021E+02-0.86717148E+01-0.11259400E+02
+ 0.48512912E+01-0.14564461E+01 0.94828889E-01 0.79788941E+00
+ 0.57511967E+00 0.61151069E+00 0.88046807E+00 0.41721639E+00
+-0.18816210E+02 0.19362450E+02 0.24636339E+02-0.23602930E+02
+ 0.45095190E+00 0.94852531E+00-0.11307860E+02-0.37843060E+00
+-0.89970660E+00 0.11817720E+01-0.13664730E+00-0.13728020E-01
+-0.73554409E+00 0.42130041E+01 0.32254570E+02 0.64252939E+01
+ 0.29464129E+00-0.19400110E+02 0.98271618E+01 0.81577063E+00
+ 0.27943529E-01-0.98466653E+00 0.77503450E-01 0.32633170E+00
+ 0.25753289E+00-0.83959532E+00-0.25444490E+02-0.64766571E+02
+-0.12844189E+03 0.59242210E+02-0.51126369E+02 0.20787351E+01
+ 0.17770840E+02 0.44121580E+01-0.20983700E+00 0.98906839E+00
+-0.29586051E+01-0.70043588E+01-0.19127350E+00-0.22320309E+03
+ 0.20457750E+03 0.10315930E+03 0.47971870E+02 0.52459190E+02
+-0.21756060E+02 0.57693830E+01 0.12453010E+01-0.58859072E+01
+-0.30983250E+01-0.26666200E+01-0.44337330E+01-0.92165500E+00
+ 0.47557541E+02-0.63722679E+02-0.16186490E+03 0.71321411E+02
+ 0.93492556E+01-0.38434379E+01 0.20983120E+02 0.43607301E+00
+ 0.20503931E+01-0.42865272E+01 0.32794109E+00 0.96743971E+00
+ 0.24207330E+01-0.20208960E+02 0.42800732E+02-0.59998562E+02
+-0.14663530E+02 0.56261799E+02-0.15299040E+02-0.15311830E+01
+ 0.90468258E+00 0.32600360E+01-0.35777131E+00-0.58793670E+00
+-0.10686150E+01 0.31746011E+01 0.87565269E+02 0.24130330E+03
+ 0.34008420E+03-0.13621230E+03 0.84198174E+02 0.19607100E+01
+-0.38165020E+02-0.10526970E+02 0.42144580E+01-0.42044411E+01
+ 0.37743461E+01 0.13638040E+02 0.29454029E+00 0.57273529E+03
+-0.48337601E+03-0.13891850E+03-0.93533791E+02-0.10872060E+03
+ 0.45897110E+02-0.14932530E+02-0.65119328E+01 0.15396580E+02
+ 0.71374021E+01 0.50723500E+01 0.94648018E+01-0.19441700E+00
+-0.50932362E+02 0.75632507E+02 0.25930350E+03-0.93147133E+02
+-0.19620230E+02 0.48849640E+01-0.17520460E+02 0.73212087E-01
+-0.17135160E+01 0.58653202E+01-0.28815910E+00-0.19886190E+01
+-0.32340560E+01 0.21133030E+02-0.15309650E+03 0.10893580E+03
+ 0.29533600E+02-0.72873390E+02 0.96811714E+01 0.37464300E+00
+-0.19562340E+01-0.40645232E+01 0.52793908E+00 0.38997120E+00
+ 0.16171410E+01-0.44597430E+01-0.98683449E+02-0.29591379E+03
+-0.38629871E+03 0.14245261E+03-0.55789009E+02-0.47006521E+01
+ 0.37889542E+02 0.10810770E+02-0.77504258E+01 0.57574410E+01
+-0.15863580E+01-0.12106680E+02-0.19440760E+00-0.61631281E+03
+ 0.50197180E+03 0.85476402E+02 0.76544121E+02 0.10441360E+03
+-0.44810951E+02 0.20016960E+02 0.98314075E+01-0.17143290E+02
+-0.75296869E+01-0.45314331E+01-0.91291389E+01 0.21244040E+01
+ 0.20294910E+02-0.30133820E+02-0.12916740E+03 0.42964451E+02
+ 0.11507190E+02-0.20096860E+01 0.55201511E+01-0.23913351E+00
+ 0.43018791E+00-0.27141731E+01 0.81663057E-01 0.11209350E+01
+ 0.14992890E+01-0.68596201E+01 0.94281830E+02-0.57802151E+02
+-0.17068911E+02 0.33640129E+02-0.18971970E+01 0.47557119E+00
+ 0.11326760E+01 0.17297590E+01-0.26539341E+00-0.52269079E-01
+-0.81952012E+00 0.21196849E+01 0.36448189E+02 0.11944180E+03
+ 0.15653090E+03-0.55280861E+02 0.11835380E+02 0.18480580E+01
+-0.14056060E+02-0.39934790E+01 0.40688829E+01-0.25793829E+01
+-0.10130840E+00 0.40180540E+01 0.51241189E-01 0.23554840E+03
+-0.18977879E+03-0.19776819E+02-0.22240870E+02-0.38025051E+02
+ 0.16396429E+02-0.98563709E+01-0.47411461E+01 0.68823662E+01
+ 0.30034320E+01 0.15784800E+01 0.32762821E+01-0.14410400E+01
+-0.45980322E-02 0.73328972E-01-0.37563881E+00-0.69179380E+00
+-0.67792699E-01-0.15841500E+00-0.61464742E-01 0.33235691E-01
+-0.24784829E-01 0.94038970E-03-0.18225660E-02 0.33664140E-02
+-0.26894249E-02 0.10189580E+00 0.37468040E+00 0.82439400E-01
+ 0.31658601E-01-0.69239461E+00 0.58921419E-01-0.14942890E+00
+ 0.21561870E-01 0.31741671E-01 0.21844360E-02 0.20252070E-02
+ 0.24796019E-02 0.35019871E-02 0.18517061E+00 0.51560029E-01
+-0.11882830E+01 0.50844538E+00 0.11529710E+01-0.27317619E+00
+-0.11518340E+00-0.31501882E-01-0.59288129E-01-0.14008700E-01
+-0.22682520E-01-0.35945419E-01 0.10733590E-02 0.31184050E+00
+ 0.13009570E+01 0.10922430E+00-0.11380440E+01 0.54994148E+00
+ 0.14078310E+00-0.24198820E+00 0.95409788E-01 0.32276422E-01
+ 0.20671001E-01-0.23521271E-01-0.22045011E-01-0.11948170E-01
+-0.28590870E+00 0.11475170E+01 0.20294571E+01 0.40507030E+01
+ 0.14904330E+01-0.53521700E-01 0.28755891E+00-0.44767669E+00
+ 0.67226660E+00-0.11026380E+00 0.59086058E-01-0.86835437E-01
+ 0.25045430E-01-0.37058849E+01-0.17233510E+01 0.15332800E+01
+-0.58995372E+00 0.40104752E+01-0.28701079E+00-0.31175631E+00
+-0.61696148E+00-0.26219171E+00-0.62063869E-01-0.17313489E+00
+-0.32026138E-01-0.10759060E+00-0.12716910E+01 0.64725299E+01
+ 0.63425989E+01-0.59778042E+01-0.86475649E+01 0.24380500E+01
+-0.35162839E+00 0.62725621E+00 0.65135390E+00 0.31031629E-01
+ 0.29295620E+00 0.38710690E+00 0.79128243E-01-0.48800559E+01
+-0.71352391E+01 0.55133128E+01 0.85222349E+01-0.66479478E+01
+ 0.40396920E+00 0.22184660E+01-0.12121930E+01 0.20707319E-02
+-0.29893690E+00 0.20787580E+00 0.22478680E+00 0.76032244E-01
+ 0.56034231E+01 0.20633490E+01-0.17191481E+02-0.12770340E+01
+ 0.21520760E+02-0.14516439E+01 0.55825472E+00 0.23828199E+01
+-0.29363880E+01 0.62736303E+00-0.38321081E+00 0.25940490E+00
+-0.10810190E+00 0.21981899E+02 0.15209070E+02-0.89209902E+00
+-0.25710199E+02-0.36638340E+00-0.90313011E+00-0.49699479E+00
+ 0.30440021E+01 0.11729660E+01 0.48787281E+00 0.69873488E+00
+ 0.15626951E+00 0.48070359E+00 0.42686772E+01-0.25609760E+02
+-0.13969440E+02 0.19535700E+02 0.20175051E+02-0.73415580E+01
+ 0.18422340E+01-0.14876870E+01-0.20998540E+01-0.28559860E-01
+-0.73040718E+00-0.94205171E+00-0.28237540E+00 0.11206820E+02
+ 0.15603120E+02-0.23654030E+02-0.19492479E+02 0.21494030E+02
+-0.22481141E+01-0.69147758E+01 0.36414161E+01-0.11955380E-01
+ 0.76328790E+00-0.58114702E+00-0.52699119E+00-0.11759710E+00
+-0.15908620E+02-0.13929390E+02 0.45716190E+02-0.17772739E+02
+-0.68585114E+02 0.67421861E+01-0.31314111E+01-0.43932748E+01
+ 0.41427860E+01-0.11799350E+01 0.78378242E+00-0.12543310E+00
+ 0.21854740E+00-0.40855591E+02-0.42083839E+02-0.71812472E+01
+ 0.75662498E+02-0.20774340E+02 0.43445001E+01 0.55494480E+01
+-0.48617311E+01-0.19587590E+01-0.10446380E+01-0.93111920E+00
+-0.30365369E+00-0.70771867E+00-0.37283080E+01 0.20150009E+02
+ 0.10784190E+02-0.13050560E+02-0.95548697E+01 0.60732450E+01
+-0.11346980E+01 0.94903350E+00 0.17144730E+01-0.46776142E-02
+ 0.52678788E+00 0.65846401E+00 0.24007800E+00-0.61502562E+01
+-0.11711040E+02 0.18634871E+02 0.86779079E+01-0.14676370E+02
+ 0.15149800E+01 0.58006339E+01-0.28666770E+01-0.51705271E-01
+-0.55645603E+00 0.45162219E+00 0.35340980E+00 0.49913660E-01
+ 0.97276888E+01 0.13297390E+02-0.35266392E+02 0.17118000E+02
+ 0.51564800E+02-0.63887482E+01 0.23747611E+01 0.26056371E+01
+-0.18724160E+01 0.74683511E+00-0.49172869E+00-0.13214980E+00
+-0.16091180E+00 0.23414801E+02 0.32887348E+02 0.87210674E+01
+-0.55609509E+02 0.19619270E+02-0.33382850E+01-0.58862309E+01
+ 0.25152271E+01 0.10868880E+01 0.65670872E+00 0.42908350E+00
+ 0.19360469E+00 0.30092490E+00-0.53772912E-03-0.10675490E+00
+ 0.65571547E-01-0.56600980E-01 0.41386221E-01-0.31708200E-01
+-0.57087028E+00 0.12478280E+00-0.15385900E-01-0.42445179E-01
+ 0.29167661E-02-0.11713880E-02-0.26261159E-02 0.40949532E-02
+-0.57700071E-01-0.10264360E+00-0.57536349E-01-0.60527708E-01
+ 0.56917840E+00-0.27450459E-01 0.10263900E-01 0.12419410E+00
+-0.50234599E-02-0.44428729E-01 0.25334910E-02-0.43212820E-03
+ 0.12138120E+00-0.21685199E+00 0.12861431E+00 0.38810510E-01
+-0.44281381E+00-0.51772869E+00-0.33757520E+00-0.18130910E-01
+ 0.84537518E-03-0.60289860E-01-0.16350079E-01-0.18344650E-01
+ 0.28424300E-01-0.13157670E+00-0.12748660E+00-0.26499319E+00
+ 0.43236929E+00 0.80106489E-01 0.35477909E+00-0.50540078E+00
+-0.19884940E-01-0.32362860E-01 0.34819130E-01-0.52641168E-01
+-0.51382710E-02-0.18092070E-01 0.87656692E-01 0.26861441E+00
+-0.19500850E-01-0.12043800E+00-0.57703298E+00 0.90041161E+00
+ 0.96215200E+00-0.19930920E+00 0.23755071E+00 0.39427820E+00
+-0.75778447E-01 0.29550970E-01 0.15583050E-02-0.14239040E+00
+ 0.16892840E+00 0.37946790E+00 0.91173869E+00-0.81380107E-01
+-0.97414923E+00 0.87561899E+00-0.19039720E+00-0.15514170E+00
+ 0.13375340E+00 0.43460941E+00-0.25368281E-01 0.78315530E-02
+-0.17837431E+00 0.92038393E-01-0.41100681E+00-0.28772401E-01
+ 0.12416580E+01 0.64974558E+00 0.57435560E+00 0.33137929E-01
+-0.50825872E-01 0.72608531E-01 0.47762629E-01 0.35967048E-01
+-0.39192092E-01 0.30160081E+00 0.42327490E+00 0.76914437E-01
+-0.12346870E+01-0.93656078E-01-0.61542022E+00 0.61977708E+00
+ 0.70287503E-01 0.53195529E-01-0.74778996E-01 0.60243499E-01
+ 0.83195427E-02 0.29549589E-01-0.15189651E+00 0.42364481E+00
+ 0.13416390E+01 0.55800301E+00-0.15804841E+00-0.16525110E+01
+-0.83656609E+00-0.21622850E-01-0.29619420E+00-0.60471082E+00
+ 0.15078691E+00-0.51645651E-01-0.13856140E-02 0.27881959E+00
+-0.16507260E+01 0.19381730E+00-0.34055629E+00 0.53701961E+00
+ 0.86908013E+00-0.16188520E+01 0.24261260E+00-0.96338041E-01
+-0.23619381E+00-0.66843218E+00 0.38994782E-01-0.82443682E-02
+ 0.88532986E-02-0.25532961E-01 0.87730493E-02 0.84389979E-02
+ 0.19507600E+00-0.30404201E-01 0.78558609E-01 0.18924920E+00
+-0.13184330E+00-0.10872570E-01 0.22425730E-01 0.19765741E-02
+-0.28271661E-02 0.89525748E-02-0.50070779E-02-0.13129280E-01
+-0.19279870E+00 0.11766530E-01-0.77793948E-01-0.33432260E-01
+ 0.12921759E+00 0.18520960E+00-0.20142401E-01-0.90750679E-02
+ 0.27989829E-02 0.27790660E-03-0.56128129E-02 0.45479581E-01
+ 0.31701099E-01-0.62056638E-01-0.30484810E-01 0.20292129E-01
+-0.18823540E-01-0.96686557E-01-0.37258229E+00 0.34919661E-02
+-0.31045569E-01 0.12216680E-01-0.39677352E-01-0.33033730E-02
+-0.25795000E-01 0.84688202E-01 0.29882411E-01-0.43184459E-01
+ 0.18386129E-01 0.22671269E-01 0.36955571E+00-0.84210843E-01
+ 0.36185320E-01 0.85797217E-02 0.26377460E-01 0.70878388E-02
+ 0.30805180E-02-0.70481268E-02-0.10848130E-01 0.43162480E-02
+ 0.46199108E-02 0.88480283E-02-0.34907538E-01-0.61878432E-01
+-0.16083039E-01-0.14716800E-01 0.12323640E+00-0.19767759E-02
+ 0.14076420E-01 0.12384820E-02-0.23129119E-02-0.70388551E-03
+-0.42718640E-02 0.63858558E-02 0.34531001E-01 0.75076362E-02
+ 0.12428380E-01-0.62368039E-01-0.12306190E+00-0.17056219E-01
+-0.16462840E-01-0.14818230E-02-0.23475999E-02 0.15036210E-02
+-0.91516338E-02-0.13874189E-02 0.30014019E-02 0.77150562E-02
+ 0.87036192E-02 0.27396349E-01-0.81416983E-02 0.12603410E-01
+ 0.14163180E-02-0.38375359E-01-0.47861780E-02-0.36178851E-02
+ 0.53405161E-02 0.25086501E-02 0.67190281E-02-0.19843380E-02
+-0.56944340E-02 0.66244332E-02 0.57346839E-02 0.31555489E-01
+-0.33401119E-03 0.10760410E-01 0.47951061E-02-0.37870482E-01
+ 0.30159960E-02 0.77064708E-02-0.31163299E-02-0.51424592E-02
+-0.39191069E-02 0.55340480E-03 0.50353780E-02-0.20171830E-02
+ 0.41946848E-02-0.11095580E-01 0.81813121E-02-0.32609350E-02
+-0.22977840E-01 0.48806048E-02-0.19622180E-02-0.68337400E-02
+ 0.62422600E-03 0.63676140E-02-0.64902389E-02 0.39384952E-02
+-0.51098680E-02-0.56332028E-02-0.89742951E-02-0.13876290E-01
+ 0.24359079E-01-0.43190918E-02 0.78034801E-02 0.85884742E-02
+-0.28867261E-02 0.19155330E-02 0.34355421E-02 0.20982609E-02
+ 0.48516681E-02-0.45108199E-02-0.28415350E-02-0.69876672E-02
+-0.77439630E-02 0.16264060E-02 0.28620041E-02-0.89509683E-02
+-0.89665531E-03 0.16397230E-02-0.14791940E-02-0.55720801E-02
+-0.20052590E-02-0.60491608E-02 0.22437151E-02-0.11318190E-02
+ 0.57193241E-02-0.74869911E-02-0.48700180E-02-0.68236189E-03
+ 0.85109978E+01 0.36661990E-01-0.21875790E+00-0.45687938E-02
+-0.25037641E-01 0.47023599E-02 0.19997100E-02 0.74836221E-02
+ 0.24732470E-02-0.12421050E-02 0.12220270E-05-0.25406029E-03
+ 0.17082810E-02 0.39339679E+00 0.22395480E+00-0.78746778E+00
+ 0.44823449E-01-0.22861500E+00 0.36176600E-01-0.46886571E-01
+ 0.47274730E-02 0.70579849E-01-0.33583380E-01-0.38069051E-01
+-0.20947920E-01 0.10185631E-02 0.74748321E+01 0.30390410E+01
+ 0.34290781E+01 0.10335310E+01-0.79142749E-01-0.28719890E-02
+-0.79190679E-01-0.21617600E+00-0.82730623E-02 0.16090469E-01
+-0.47853790E-01 0.27864370E-01-0.67858279E-01 0.12275020E+02
+-0.29824680E+00 0.20010229E+02 0.18526460E+01 0.83047781E+01
+-0.33331230E+00 0.66794938E+00-0.35183570E+00-0.10323780E+01
+ 0.50355661E+00 0.51405108E+00 0.43600339E+00-0.74865319E-01
+-0.23095510E+02-0.11200590E+02-0.19054211E+02-0.91031027E+01
+ 0.53262739E+01 0.93075760E-01 0.60412240E+00 0.13669250E+01
+-0.33127701E+00 0.93857780E-01 0.52061319E+00-0.29332221E+00
+ 0.32675841E+00-0.13799890E+03-0.18975389E+02-0.93585777E+02
+-0.12553970E+02-0.44236889E+02 0.86720562E+00-0.35754049E+01
+ 0.26383171E+01 0.42594910E+01-0.23736229E+01-0.22652140E+01
+-0.22123260E+01 0.50815719E+00-0.95523453E+01 0.50371408E+01
+ 0.50351429E+02 0.27158930E+02-0.19286209E+02-0.81396008E+00
+-0.14670790E+01-0.34768670E+01 0.12337140E+01-0.58406663E+00
+-0.16321800E+01 0.89021742E+00-0.58487839E+00 0.38575790E+03
+ 0.74070892E+02 0.15655180E+03 0.27038940E+02 0.95044182E+02
+-0.50478083E+00 0.80061522E+01-0.66749539E+01-0.76826291E+01
+ 0.48623161E+01 0.45787778E+01 0.46467409E+01-0.12255189E+01
+ 0.45303970E+02 0.88578644E+01-0.59188721E+02-0.32228920E+02
+ 0.24893740E+02 0.16026810E+01 0.13843900E+01 0.38440919E+01
+-0.14798040E+01 0.90072018E+00 0.19796140E+01-0.10491890E+01
+ 0.43721411E+00-0.42452399E+03-0.91066879E+02-0.10590780E+03
+-0.23646509E+02-0.90199371E+02-0.55587852E+00-0.78847861E+01
+ 0.69627628E+01 0.64199662E+01-0.45331469E+01-0.43497810E+01
+-0.43683109E+01 0.12426170E+01-0.24073139E+02-0.56819210E+01
+ 0.24719139E+02 0.13203740E+02-0.10911590E+02-0.89325750E+00
+-0.44401351E+00-0.15332390E+01 0.58417243E+00-0.43031099E+00
+-0.82590872E+00 0.42616129E+00-0.11159750E+00 0.16396770E+03
+ 0.36045670E+02 0.23735670E+02 0.72476091E+01 0.31346630E+02
+ 0.49852049E+00 0.28375330E+01-0.25833161E+01-0.20370591E+01
+ 0.15783070E+01 0.15650260E+01 0.15215091E+01-0.45249310E+00
+-0.27936119E+00 0.15190589E+01 0.21024971E+01-0.19453600E-02
+ 0.32589209E+00 0.47826711E-01-0.35958331E-01 0.63234090E-03
+ 0.80337878E-02-0.12267720E-02 0.67013811E-03 0.13235020E-02
+ 0.12608489E-03-0.39049101E+00-0.20537450E+01 0.15837830E+01
+-0.32852349E+00 0.99901110E-03 0.20303261E-01 0.43516681E-01
+ 0.28456999E-02-0.30273050E-02-0.14476770E-02-0.62326458E-03
+ 0.80381811E-03-0.10968799E-02 0.25736409E+00 0.40240741E+00
+-0.27325889E-01 0.56418020E+00 0.34357399E+00 0.35173821E+00
+ 0.46729630E+00 0.44382289E-01 0.20489890E-01-0.65336578E-01
+-0.41170161E-01-0.14721160E-01-0.39806189E-02-0.15565120E+01
+ 0.35610351E+00 0.19211169E+01-0.44693950E+00 0.52883971E+00
+-0.44859049E+00 0.25147039E+00-0.34650490E-01 0.85121252E-01
+-0.55700600E-01-0.58013849E-01-0.30654659E-01 0.45574509E-01
+ 0.11474430E+02 0.37097239E+01-0.28503591E+00-0.75463051E+00
+-0.20279551E+01-0.93139237E+00 0.18983240E+01 0.35946149E-01
+-0.18091540E+00-0.62578648E-01-0.77090740E-01-0.25848821E-01
+ 0.66737959E-03 0.39994070E+00-0.28684690E+01 0.81977892E+01
+ 0.18109140E+01-0.11244119E+01-0.14018320E+01-0.97064751E+00
+-0.83111532E-01 0.21408769E+00 0.64344421E-01-0.85449390E-01
+ 0.41149389E-01 0.46767510E-01 0.13058000E+02 0.80903578E+01
+ 0.24909519E+02-0.10209800E+02-0.26425529E+00-0.67433028E+01
+-0.52159028E+01-0.12410851E+01-0.39682361E+00 0.96160781E+00
+ 0.43398309E+00 0.28955120E+00-0.14229760E+00 0.38719501E+02
+-0.21767170E+02-0.15267900E+02 0.76144940E+00-0.83571758E+01
+ 0.55799990E+01-0.57486572E+01 0.42533231E+00-0.59361440E+00
+ 0.94078869E+00 0.81710321E+00 0.70225328E+00-0.66654569E+00
+-0.66819656E+02-0.50270600E+01 0.53700470E+02-0.31519260E+01
+ 0.51073450E+00 0.37716920E+01-0.12730410E+02-0.28632960E+00
+ 0.76842117E+00 0.11677880E+01 0.61611861E+00-0.74266434E-01
+-0.36620951E+00 0.26346371E+02-0.28727890E+02-0.20345051E+02
+ 0.13021580E+01 0.13573620E+01 0.88377924E+01 0.42439919E+01
+ 0.54450059E+00-0.24212811E+01-0.35612330E+00 0.68233162E+00
+-0.45833510E+00-0.63072628E+00-0.76377899E+02-0.71265099E+02
+-0.12508610E+03 0.57914631E+02 0.50314569E+01 0.34088360E+02
+ 0.20582670E+02 0.82170210E+01 0.75565553E+00-0.39198289E+01
+-0.10312550E+01-0.11501189E+01 0.12530200E+01-0.20660410E+03
+ 0.85877296E+02 0.59179192E+02-0.32636681E+00 0.41907478E+02
+-0.24397369E+02 0.34034409E+02-0.50043958E+00-0.11615190E+00
+-0.44063969E+01-0.29556689E+01-0.37448690E+01 0.30408549E+01
+ 0.15023289E+03-0.35481152E+02-0.23284830E+03 0.24502350E+02
+ 0.10157500E+02-0.40293450E+01 0.34103409E+02 0.70704561E+00
+-0.14919300E+01-0.45048108E+01-0.18112490E+01 0.67277873E+00
+ 0.17274719E+01-0.11010050E+03 0.15854170E+03-0.40633362E+02
+-0.16059750E+02 0.80204258E+01-0.22484819E+02-0.47622871E+01
+-0.13102630E+01 0.78486409E+01 0.91867012E+00-0.17730510E+01
+ 0.15147200E+01 0.22660649E+01 0.17072810E+03 0.17727890E+03
+ 0.26567810E+03-0.13917780E+03-0.30694309E+02-0.70945938E+02
+-0.37395050E+02-0.20198099E+02 0.17058200E+01 0.68015838E+01
+ 0.60430169E+00 0.16777689E+01-0.33677461E+01 0.45006760E+03
+-0.15074319E+03-0.12529540E+03 0.91419420E+01-0.91520401E+02
+ 0.48339180E+02-0.80514122E+02-0.26409111E+01 0.61835442E+01
+ 0.86386700E+01 0.41669140E+01 0.81936398E+01-0.61956739E+01
+-0.14753030E+03 0.75809692E+02 0.35537250E+03-0.42973358E+02
+-0.16497499E+02-0.14783040E+01-0.39943130E+02-0.87429202E+00
+ 0.13496190E+01 0.63370051E+01 0.22456720E+01-0.11702620E+01
+-0.26111400E+01 0.13953349E+03-0.25777020E+03 0.13048579E+03
+ 0.25055120E+02-0.20628401E+02 0.25611401E+02-0.15548609E+01
+ 0.15119220E+01-0.99871092E+01-0.11299970E+01 0.18523920E+01
+-0.19883749E+01-0.30983970E+01-0.16800861E+03-0.16570470E+03
+-0.23528680E+03 0.14619141E+03 0.49476669E+02 0.66019028E+02
+ 0.32258389E+02 0.20822880E+02-0.49862318E+01-0.53963108E+01
+ 0.55818772E+00-0.85641271E+00 0.37182989E+01-0.42952499E+03
+ 0.10377440E+03 0.13720660E+03-0.21207010E+02 0.88494308E+02
+-0.44541779E+02 0.83559593E+02 0.61374230E+01-0.11413830E+02
+-0.77352471E+01-0.23701010E+01-0.80543032E+01 0.59031882E+01
+ 0.54244678E+02-0.40646729E+02-0.18111420E+03 0.23019091E+02
+ 0.80768242E+01 0.27842231E+01 0.16921150E+02 0.42258400E+00
+-0.44391721E+00-0.29814579E+01-0.99656433E+00 0.61308300E+00
+ 0.12681460E+01-0.56610828E+02 0.13517390E+03-0.81272476E+02
+-0.12527240E+02 0.12735340E+02-0.10737390E+02 0.31895990E+01
+-0.70032787E+00 0.43993239E+01 0.51882458E+00-0.65333867E+00
+ 0.90850723E+00 0.14492650E+01 0.59197800E+02 0.51228100E+02
+ 0.70354889E+02-0.56005539E+02-0.23865129E+02-0.22817450E+02
+-0.10801510E+02-0.76400719E+01 0.29742401E+01 0.16359950E+01
+-0.56844258E+00 0.35427731E-01-0.14726180E+01 0.14996719E+03
+-0.17095770E+02-0.57044392E+02 0.12007680E+02-0.31743410E+02
+ 0.15519680E+02-0.31761320E+02-0.34719760E+01 0.59775820E+01
+ 0.26547811E+01 0.42931899E+00 0.29588671E+01-0.21462309E+01
+ 0.85317172E-01-0.37022701E+00-0.23107091E+00-0.89860690E+00
+ 0.18063000E+00-0.12598220E+00-0.10949880E+00 0.29456791E-01
+ 0.18539650E-01 0.99259266E-03-0.26533120E-04 0.27306769E-02
+ 0.12578660E-03 0.47028989E-01 0.22364309E+00-0.35386279E+00
+-0.20351119E+00-0.89996117E+00 0.10561590E+00-0.12692609E+00
+-0.18251071E-01 0.30100871E-01-0.51617261E-03 0.21412780E-02
+-0.56417962E-03 0.10353940E-02-0.99707646E-02 0.33909950E-01
+-0.56672239E+00-0.79398692E+00 0.11460310E+01-0.86185493E-01
+-0.45565259E+00-0.26318571E-01 0.45831639E-01-0.30358611E-01
+-0.24070470E-01-0.62026791E-02-0.28614370E-01 0.23126841E+00
+ 0.67163521E+00 0.12073720E+00-0.11599100E+01-0.78945303E+00
+ 0.54649419E+00-0.46671320E-01-0.56055851E-01 0.48033811E-01
+ 0.64837192E-02-0.44331320E-01 0.57720318E-02-0.45976429E-02
+-0.11297590E+01 0.64337258E+01-0.66538858E+00-0.21287420E+01
+ 0.14130419E+01 0.51449221E+00-0.79061460E+00-0.57145189E-01
+ 0.12545830E+00-0.49116042E-01-0.15533190E-01-0.80809020E-01
+-0.73494002E-01-0.24522209E+01 0.11140400E+01 0.63777289E+01
+-0.92649221E+00-0.22025051E+01 0.86178458E+00 0.45577621E+00
+-0.19680440E+00 0.17508460E-01 0.29361060E-01-0.13576880E+00
+ 0.76787807E-01-0.52743819E-01-0.42920479E+00 0.56657591E+01
+ 0.27931669E+00-0.72976989E+00-0.76858110E+01-0.61664778E+00
+ 0.19699759E+01 0.10183110E+01 0.29339579E+00 0.38030621E+00
+ 0.32289210E+00 0.70821963E-01 0.31810990E+00-0.65940619E+01
+-0.39173070E+00 0.39555531E+01 0.74890871E+01-0.12902510E+01
+-0.24369750E+01-0.66838408E+00-0.33592179E+00 0.18806280E+00
+-0.86763777E-01 0.60466510E+00-0.67168050E-01 0.10163500E+00
+ 0.84040422E+01-0.25286409E+02-0.13307350E+02 0.22187450E+02
+ 0.13855060E+02-0.74597378E+01 0.56474109E+01-0.66619539E+00
+-0.83348030E+00 0.13604590E+00 0.24717489E-01 0.32301819E+00
+ 0.50310111E+00 0.12521800E+02 0.11364500E+02-0.25477739E+02
+-0.15876810E+02 0.24264811E+02-0.63273830E+01-0.68624759E+01
+ 0.14729850E+01-0.13985929E+01-0.51229998E-01 0.55076498E+00
+-0.47534129E+00 0.28233051E+00 0.25316019E+01-0.20743750E+02
+-0.79374307E+00 0.65457501E+01 0.11393550E+02 0.19771720E+01
+-0.37882960E+01-0.28468680E+01-0.15594800E+01-0.11544290E+01
+-0.86627018E+00-0.24197569E+00-0.76120007E+00 0.16782850E+02
+-0.40877369E+00-0.15891400E+02-0.99912710E+01 0.83811407E+01
+ 0.45621810E+01 0.17814280E+01 0.17745590E+01-0.80892551E+00
+ 0.25430110E+00-0.18103390E+01 0.13919801E+00-0.35781839E+00
+-0.19171000E+02 0.41135361E+02 0.50784439E+02-0.49405159E+02
+-0.47734661E+02 0.21474710E+02-0.12534010E+02 0.23918099E+01
+ 0.58290309E+00-0.59144638E-01-0.13747710E+00-0.51429600E+00
+-0.10195380E+01-0.22573360E+02-0.47864948E+02 0.42678539E+02
+ 0.51195019E+02-0.55642651E+02 0.14294960E+02 0.20068859E+02
+-0.20276699E+01 0.40811019E+01 0.14286080E+00-0.71375263E+00
+ 0.91828871E+00-0.58762741E+00-0.36715920E+01 0.16449200E+02
+ 0.32954421E+01-0.15292250E+01 0.14429220E+01-0.11395800E+01
+ 0.27654760E+01 0.22418330E+01 0.14254301E+01 0.95775318E+00
+ 0.68023223E+00 0.22670960E+00 0.52009660E+00-0.10095800E+02
+-0.10605530E+01 0.12383430E+02-0.31449821E+01-0.30658889E+01
+-0.32000270E+01-0.89460742E+00-0.16132710E+01 0.82802612E+00
+-0.24104480E+00 0.14756620E+01-0.78988880E-01 0.32225481E+00
+ 0.11556490E+02-0.22750441E+02-0.42370689E+02 0.35366192E+02
+ 0.40184250E+02-0.16449459E+02 0.85530024E+01-0.19099020E+01
+ 0.19363110E+00-0.62415930E-02 0.22635570E+00 0.31897321E+00
+ 0.61940002E+00 0.11400280E+02 0.40485489E+02-0.24144039E+02
+-0.42441669E+02 0.40095169E+02-0.98639593E+01-0.15461580E+02
+ 0.75230652E+00-0.30129030E+01-0.21839380E+00 0.32864410E+00
+-0.54862821E+00 0.42656249E+00-0.63706762E-02 0.49512278E-01
+ 0.15233590E+00 0.28924710E+00 0.93243748E-01-0.19839150E+00
+-0.71811718E+00 0.27721150E-01-0.74298456E-01-0.29901110E-01
+-0.10854340E-01 0.10647960E-02-0.89125981E-03 0.46951030E-02
+-0.15757360E+00 0.59136670E-01-0.10232370E+00 0.28632900E+00
+ 0.71744990E+00-0.19097430E+00 0.69619797E-01 0.31458490E-01
+ 0.97471140E-02-0.30224120E-01-0.94677572E-03 0.22013921E-04
+ 0.14451490E+00-0.91815881E-01 0.50647998E+00 0.16732460E+00
+-0.98065019E-01-0.30473390E+00-0.89016449E+00 0.25915790E+00
+ 0.10978160E+00-0.61575249E-01-0.89049660E-01-0.12006910E-01
+ 0.93397349E-02-0.11014440E+00-0.45658460E+00-0.12488420E+00
+ 0.50239339E-01 0.15891699E+00 0.87763268E+00-0.26538071E+00
+-0.11284070E+00 0.24901290E+00 0.95876373E-01-0.53748969E-01
+ 0.10792960E-01-0.37329751E-02 0.10727070E+00-0.17967510E+00
+-0.37162241E-01-0.19433780E+01-0.50828218E+00 0.14955320E+01
+ 0.97771221E+00 0.71589381E+00 0.61726010E+00 0.80791622E-01
+-0.36159601E-01-0.43251319E-02-0.18235570E-01-0.14582020E+00
+ 0.31529331E+00-0.22242430E+00 0.68621433E+00-0.18460950E+01
+-0.96274692E+00 0.14480300E+01-0.58360410E+00 0.65418428E+00
+ 0.73361523E-01 0.95508359E-01 0.49595680E-01 0.18524930E-03
+-0.28996101E+00 0.71567357E-01-0.80325532E+00-0.11684070E+00
+ 0.30706081E+00-0.79245329E+00 0.15270931E+01-0.59311491E+00
+-0.23966689E+00 0.30238500E-01 0.20066760E+00 0.30854901E-02
+ 0.41336152E-02 0.23286800E+00 0.76137310E+00 0.55251298E-02
+-0.23243929E+00-0.78422099E-01-0.15199250E+01-0.87022901E+00
+ 0.23916189E+00-0.58335191E+00-0.20866320E+00 0.16340939E-01
+-0.30533040E-01-0.13263510E-01-0.23965880E+00 0.12172800E+01
+ 0.23482850E+00 0.25833440E+01 0.97930223E-01-0.33491709E+01
+-0.61515099E+00-0.12746060E+01-0.95658541E+00-0.87586097E-01
+ 0.21497931E+00 0.19161280E-02 0.49631931E-01 0.29376569E+00
+-0.74811608E+00 0.11747440E+01-0.37762731E+00 0.24280879E+01
+ 0.59369200E+00-0.32863460E+01 0.92334980E+00-0.11831760E+01
+-0.27426329E+00-0.11073430E+00-0.93886271E-01 0.21043229E-02
+ 0.37236270E-02-0.34458670E-02 0.13444180E-01-0.14750630E-01
+ 0.10290450E+00-0.48480321E-01 0.12430950E+00 0.27544349E+00
+-0.18795601E+00 0.26734941E-01 0.90650544E-02-0.12811770E-02
+ 0.45583118E-02 0.10335530E-01-0.62437309E-03 0.14220370E-02
+-0.97434349E-01-0.12137350E-01-0.12396200E+00-0.44767179E-01
+ 0.18578710E+00 0.27282211E+00-0.59721768E-02 0.28575240E-01
+-0.39780829E-02-0.20538289E-02-0.34328999E-02 0.65334663E-01
+ 0.41417919E-01 0.97840533E-01 0.11810400E-01-0.13239190E-01
+ 0.79127237E-01-0.23176329E-01-0.47432241E+00 0.96883677E-01
+-0.60904451E-01-0.15921760E-02-0.33064101E-01-0.23278160E-01
+-0.11779090E-01 0.89123420E-01 0.43438589E-02 0.10071940E+00
+-0.81459932E-01-0.15756720E-02 0.47219789E+00-0.15528310E-01
+ 0.60592469E-01 0.94600350E-01 0.26455021E-01-0.41376431E-02
+-0.25719460E-03-0.47748210E-02-0.71913698E-02 0.82402024E-02
+-0.55871499E-02-0.70062429E-02-0.62599927E-01-0.10895930E+00
+-0.73236148E-02 0.41880991E-01 0.13664091E+00-0.18796060E-01
+ 0.22401920E-01 0.64164111E-02-0.24895291E-02 0.62969802E-02
+ 0.50318781E-02 0.11837030E-01 0.63543260E-01-0.89257434E-02
+ 0.51581310E-02-0.11083570E+00-0.13808380E+00 0.36916751E-01
+-0.23864619E-01-0.19642510E-01-0.55096280E-02 0.20432910E-02
+-0.25393590E-02-0.49469399E-03-0.91407616E-02 0.11231080E-01
+ 0.73305531E-02 0.40559031E-01-0.14306670E-01-0.25830499E-02
+-0.19492511E-01-0.59503611E-01 0.30766141E-01-0.18226550E-02
+ 0.16026340E-02 0.46090671E-03 0.80116224E-02 0.52899262E-02
+-0.81490558E-02 0.11110050E-01 0.96455021E-02 0.43941841E-01
+ 0.20466970E-01-0.41653770E-02-0.30918879E-01-0.58614671E-01
+ 0.14632130E-03 0.84446864E-02-0.15742450E-02-0.24531819E-02
+-0.59529501E-02-0.19508020E-02 0.39400831E-02-0.98000718E-02
+ 0.19667400E-02-0.21172441E-02 0.73963241E-02 0.26874710E-01
+-0.27667791E-01 0.18615850E-02-0.25391530E-02-0.64000739E-02
+ 0.48285550E-02 0.80285100E-02-0.36956130E-02 0.27316459E-02
+-0.14182570E-02-0.14065530E-01-0.81607001E-02-0.31460619E-02
+ 0.28695939E-01 0.25228200E-01 0.66402508E-03-0.11599730E-02
+-0.10111070E-02 0.45373188E-02 0.22550861E-02 0.22374540E-03
+ 0.83283391E-02-0.43833191E-02-0.57110842E-02-0.98528108E-02
+-0.50975322E-02-0.17219190E-01-0.99931424E-02-0.75602368E-02
+ 0.52730669E-02 0.77093481E-02-0.25263141E-03-0.15613370E-02
+-0.40945010E-02-0.24014059E-03 0.73716982E-03-0.11942360E-02
+ 0.51287748E-02-0.88617392E-02 0.90263840E-02-0.18785980E-01
diff --git a/input/glow_data/iri90/ursi12.asc b/input/glow_data/iri90/ursi12.asc
new file mode 100644
index 0000000..23e60d7
--- /dev/null
+++ b/input/glow_data/iri90/ursi12.asc
@@ -0,0 +1,494 @@
+ 0.59698410E+01 0.77229917E-01-0.36823890E+00 0.44356439E-01
+-0.32990020E-01-0.48848330E-02 0.30863590E-02 0.39675981E-02
+-0.48029809E-02-0.80667879E-03 0.20485800E-02 0.43433529E-03
+ 0.36564181E-02 0.65832418E+00 0.15786970E+01-0.20101590E+00
+ 0.54957068E+00 0.34420651E+00-0.18664120E-01-0.26453720E-01
+ 0.25271000E-01 0.23806751E-01-0.18945880E-01-0.29859791E-01
+-0.79955701E-02 0.60901581E-02 0.41002188E+01 0.70968002E+00
+ 0.49934902E+01 0.55518252E+00 0.17216760E+01 0.52247810E+00
+-0.15505980E+00-0.17000949E+00 0.34319729E+00-0.50697889E-01
+-0.69787607E-01-0.36326430E-02-0.23420250E+00-0.10848180E+02
+-0.21634081E+02 0.11093520E+02-0.82936563E+01 0.46955948E+01
+ 0.11466730E+01 0.91507159E-01-0.81736022E+00-0.69373730E-03
+ 0.49612291E-01 0.47508860E+00 0.21522480E+00-0.24910469E+00
+-0.19795879E+02-0.26587250E+01-0.22607771E+02-0.14918060E+02
+-0.83622713E+01-0.28784490E+01 0.13603350E+01 0.13587630E+01
+-0.22186930E+01 0.47928020E+00 0.69122672E+00-0.13902590E+00
+ 0.17539680E+01 0.32638400E+01 0.80154587E+02-0.57408798E+02
+ 0.35441120E+02-0.34247200E+02-0.65673838E+01-0.39352921E+00
+ 0.53909979E+01-0.16285681E+01-0.18724609E-01-0.21152239E+01
+-0.11968670E+01 0.15305220E+01 0.13637270E+02-0.36206441E+01
+ 0.46894001E+02 0.52105888E+02 0.15963270E+02 0.60772562E+01
+-0.40362792E+01-0.38426909E+01 0.51583142E+01-0.11643389E+01
+-0.20941241E+01 0.51375860E+00-0.45908418E+01 0.76970390E+02
+-0.11824470E+03 0.10267690E+03-0.65954033E+02 0.78688721E+02
+ 0.15103250E+02 0.10584240E+01-0.13444330E+02 0.60167780E+01
+ 0.21867670E+00 0.41823330E+01 0.25955400E+01-0.36515710E+01
+ 0.20844729E+01 0.11258480E+02-0.45134972E+02-0.64629341E+02
+-0.13536950E+02-0.57360601E+01 0.49398899E+01 0.44022980E+01
+-0.50522661E+01 0.10506650E+01 0.24544661E+01-0.59395689E+00
+ 0.49987369E+01-0.13500050E+03 0.75058617E+02-0.73762589E+02
+ 0.56808311E+02-0.76328140E+02-0.15742720E+02-0.11730540E+01
+ 0.14267690E+02-0.75293322E+01-0.63674390E+00-0.38828990E+01
+-0.24313371E+01 0.37900620E+01-0.25420110E+01-0.57284760E+01
+ 0.16218889E+02 0.26980921E+02 0.42389088E+01 0.20161150E+01
+-0.21282549E+01-0.17548680E+01 0.17727290E+01-0.31485641E+00
+-0.98744953E+00 0.22297500E+00-0.19354790E+01 0.64288811E+02
+-0.16943291E+02 0.17592291E+02-0.18592039E+02 0.26892179E+02
+ 0.61104240E+01 0.44639519E+00-0.54375739E+01 0.31292429E+01
+ 0.41247651E+00 0.13755350E+01 0.82515121E+00-0.14284190E+01
+-0.30261150E-02 0.17002430E+01 0.18986810E+01-0.11265330E+00
+ 0.18268590E+00 0.25347210E-01 0.13144170E-02-0.31423070E-02
+ 0.37283050E-02-0.75766509E-02-0.30474330E-02 0.37377281E-03
+-0.30494281E-02-0.36782110E+00-0.16454780E+01 0.19737780E+01
+-0.20536201E+00-0.11320880E+00-0.68871360E-02-0.17447470E-02
+-0.23429920E-02-0.11456780E-02-0.68003091E-03-0.20467700E-02
+ 0.43471670E-02-0.22848360E-02 0.15027570E+01 0.16749039E+00
+ 0.97870231E-01 0.13137279E+00-0.18984760E+00 0.33868590E+00
+-0.90501256E-01 0.22199711E-01 0.59481882E-01-0.21386320E-01
+-0.60044728E-01 0.58235209E-02 0.14061720E-01-0.40782031E+00
+ 0.82807112E+00 0.23021319E+01 0.12107800E+00 0.14108770E+00
+ 0.25934780E+00 0.16368860E+00-0.82762137E-01 0.31923160E-01
+-0.13378680E-01-0.81942037E-01-0.59151132E-01 0.41899111E-01
+ 0.39022291E+01 0.42247180E-01 0.42911711E+01 0.11774910E+00
+-0.37141230E+01-0.36707479E+00 0.12084960E+01 0.73205337E-01
+-0.94524831E-01 0.34499741E+00 0.16707250E+00 0.73068492E-01
+ 0.15060900E+00 0.21645441E+01-0.13584020E+02 0.34921560E+01
+ 0.47543669E+01-0.14515100E+00-0.12006470E+01 0.23258340E+00
+-0.56670431E-01-0.18589389E+00 0.11681030E+00 0.74204529E-03
+-0.50404120E-01 0.17514201E+00-0.10676800E+02-0.46939931E+01
+ 0.22152290E+02-0.29335971E+01 0.12057040E+02-0.54730940E+01
+ 0.39384840E+01-0.79244649E+00-0.18442160E+01 0.96024251E+00
+ 0.82958972E+00 0.32399911E+00 0.14503101E+00 0.27787680E+02
+-0.33448349E+02-0.29957979E+02-0.91959200E+01-0.32006941E+01
+-0.74421058E+01-0.23251221E+01 0.12891830E+01-0.55014908E+00
+ 0.37051609E+00 0.16917840E+01 0.11767330E+01-0.16604240E+00
+-0.16802549E+02 0.59556928E+01 0.52830132E+02-0.32819619E+01
+ 0.10520800E+02 0.43928952E+01-0.45209489E+01-0.18421830E+00
+-0.73771518E+00-0.12903930E+01-0.16388730E+01-0.10435770E+01
+-0.88572878E+00 0.88807029E+00 0.41008062E+01-0.96479540E+01
+-0.16153290E+02-0.21834449E+00 0.39474349E+01 0.96141309E+00
+ 0.19678460E+01 0.11761400E+01-0.54910648E+00 0.49674979E+00
+ 0.14437860E+00-0.16084440E+01 0.25783739E+02-0.74568300E+01
+-0.13972890E+03 0.21213350E+02-0.63833130E+02 0.27553789E+02
+-0.20751909E+02 0.58320370E+01 0.81602192E+01-0.53103161E+01
+-0.24526529E+01-0.21475561E+01-0.11686790E+01-0.18902670E+03
+ 0.16950310E+03 0.10902380E+03 0.49011848E+02 0.20796989E+02
+ 0.40788559E+02 0.10013440E+02-0.34116340E+01 0.16250130E+01
+-0.20925839E+01-0.86458626E+01-0.59115572E+01-0.33418259E+00
+ 0.24125610E+02-0.57828979E+02-0.29342819E+03 0.18610189E+02
+-0.44548731E+01-0.16186701E+02 0.60239429E+01-0.62631971E+00
+ 0.44056211E+01 0.64084589E+00 0.50779519E+01 0.37175591E+01
+ 0.18122100E+01-0.28479481E+02 0.14972470E+03-0.47064331E+02
+ 0.16620300E+02 0.72637858E+01-0.21710491E+01-0.79397531E+01
+-0.81459455E+01-0.32989080E+01 0.89807612E+00-0.26043890E+01
+-0.17025089E+00 0.51564722E+01-0.23960501E+02 0.45253189E+02
+ 0.33893411E+03-0.61496922E+02 0.13290669E+03-0.57723961E+02
+ 0.44581589E+02-0.16028900E+02-0.12819780E+02 0.10824730E+02
+ 0.20935979E+01 0.48401861E+01 0.22849209E+01 0.47117520E+03
+-0.36351721E+03-0.19253999E+03-0.10019730E+03-0.57575909E+02
+-0.91463829E+02-0.16745319E+02 0.12329280E+00-0.85111362E+00
+ 0.45681930E+01 0.18103540E+02 0.12303430E+02 0.24973309E+01
+-0.16247999E+02 0.10257530E+03 0.45054880E+03-0.30311279E+02
+-0.11720440E+02 0.22041599E+02-0.42208209E+01 0.19129159E+01
+-0.70434570E+01 0.22393899E+01-0.62729378E+01-0.51208372E+01
+-0.15116640E+01 0.46579418E+02-0.29008820E+03 0.12290650E+03
+ 0.20938461E+00-0.14206060E+02-0.30545111E+01 0.13195440E+02
+ 0.11926060E+02 0.43821082E+01-0.56497651E+00 0.44720950E+01
+ 0.11640140E+00-0.68650150E+01 0.45242538E+01-0.45888660E+02
+-0.36414719E+03 0.73446129E+02-0.12660560E+03 0.53433109E+02
+-0.44361980E+02 0.18631140E+02 0.73598719E+01-0.91614428E+01
+ 0.67403322E+00-0.45776172E+01-0.15105430E+01-0.49156299E+03
+ 0.36165302E+03 0.17071700E+03 0.93147919E+02 0.68487991E+02
+ 0.92106903E+02 0.10875760E+02 0.68369708E+01-0.16097080E+01
+-0.44360390E+01-0.16861971E+02-0.11412590E+02-0.38243780E+01
+ 0.50706949E+01-0.51489109E+02-0.21666730E+03 0.15026570E+02
+ 0.94217701E+01-0.10061700E+02 0.16325570E+01-0.11589850E+01
+ 0.35529330E+01-0.20674860E+01 0.26928239E+01 0.24553540E+01
+ 0.46611151E+00-0.21218069E+02 0.15174660E+03-0.72240227E+02
+-0.56731958E+01 0.72741599E+01 0.25379579E+01-0.65584249E+01
+-0.58643289E+01-0.21449790E+01 0.10383420E+00-0.24458940E+01
+-0.60383271E-01 0.32231989E+01 0.29716101E+01 0.12661210E+02
+ 0.14568930E+03-0.30880640E+02 0.45695980E+02-0.18189871E+02
+ 0.16908340E+02-0.76776528E+01-0.83991849E+00 0.26433821E+01
+-0.11563340E+01 0.15748791E+01 0.24925540E+00 0.18267680E+03
+-0.13743089E+03-0.59196690E+02-0.32950500E+02-0.29339430E+02
+-0.34428871E+02-0.19552820E+01-0.49284830E+01 0.14404620E+01
+ 0.16269350E+01 0.58330669E+01 0.38826981E+01 0.17968450E+01
+ 0.13738370E+00-0.34493942E-01-0.36837810E+00-0.85482597E+00
+-0.54966402E-03-0.11250540E+00-0.79503089E-01-0.28576781E-02
+ 0.24703571E-02 0.81851450E-03-0.83722221E-02 0.18083220E-02
+ 0.75119692E-02-0.62196911E-02 0.39378509E+00-0.41661631E-01
+-0.14253630E-01-0.83105969E+00 0.96140623E-01-0.12611690E+00
+-0.10633060E-01-0.12113390E-01 0.79929708E-02 0.19303790E-02
+-0.90719922E-03 0.13754410E-02 0.44581741E+00-0.77249087E-01
+-0.11724390E+01 0.77658629E+00 0.59011132E+00-0.47177239E-02
+-0.35779479E+00 0.51672161E-01-0.61432861E-01 0.58850241E-02
+-0.10049680E-02-0.21943459E-01-0.72895542E-01 0.32617810E+00
+ 0.12157390E+01 0.96490718E-01-0.52442700E+00 0.70686328E+00
+ 0.43483591E+00 0.13194600E-01 0.84690340E-01 0.12865870E+00
+-0.65370619E-01-0.42071589E-02 0.95631601E-02-0.26661649E-01
+-0.10032030E+01 0.23723590E+01 0.25900950E+01 0.55839128E+01
+ 0.17710680E+01-0.46127951E+00 0.62818259E+00 0.97157201E-02
+ 0.18588489E+00-0.83048932E-01 0.34415039E+00-0.11298100E+00
+-0.46788689E+00-0.31847320E+01-0.34010921E+01 0.34698360E+01
+-0.13326170E+01 0.47409530E+01-0.92643720E+00-0.41080359E+00
+ 0.10916670E+00 0.41939780E+00-0.39053121E+00-0.68104006E-01
+ 0.14001070E+00-0.15218700E+00-0.38226590E+01 0.29031079E+01
+ 0.48929038E+01-0.30262990E+01-0.17701480E+01-0.75846839E+00
+ 0.12416440E+01 0.46690899E+00 0.10465170E+01-0.35951349E+00
+ 0.34883869E+00 0.19457491E+00 0.54560888E+00-0.56640592E+01
+-0.54102950E+01 0.58342570E+00 0.17275720E+01-0.31163080E+01
+-0.79980522E+00-0.97405040E+00-0.11768230E+01-0.17435379E+00
+ 0.27812970E+00 0.19417240E+00 0.31105401E-02 0.78894719E-01
+ 0.70940599E+01-0.39776430E+01-0.19062140E+02-0.99672937E+01
+ 0.11266620E+02-0.79173452E+00-0.25871420E+00 0.10029370E+01
+-0.80572373E+00 0.11721870E+00-0.19720989E+01 0.43184450E+00
+ 0.28906620E+01 0.20118299E+02 0.23716841E+02-0.10452050E+02
+-0.13117800E+02-0.55554929E+01 0.22157190E+01-0.35688689E+00
+-0.52228701E+00-0.14196080E+01 0.23155310E+01-0.21600910E+00
+-0.93050361E+00 0.70541543E+00 0.82013092E+01-0.11256470E+02
+-0.85804567E+01 0.59239292E+01 0.74910080E+00 0.16766120E+01
+-0.71202540E+00-0.19190650E+01-0.31771369E+01 0.12826550E+01
+-0.10769430E+01-0.45682460E+00-0.11368660E+01 0.13482890E+02
+ 0.98788919E+01-0.50121851E+01-0.98992127E+00 0.66253171E+01
+-0.15730100E+01 0.21429050E+01 0.34598789E+01-0.50505102E+00
+-0.37661389E+00-0.66444069E+00-0.44902440E-01-0.46401899E-02
+-0.15398050E+02-0.24533640E+00 0.48080849E+02 0.70545778E+01
+-0.39524399E+02 0.94339132E+01-0.31009259E+01-0.30747089E+01
+ 0.79296762E+00 0.58754319E+00 0.38378990E+01-0.51194888E+00
+-0.57352228E+01-0.37718960E+02-0.57322289E+02 0.13773590E+02
+ 0.42384529E+02-0.97165638E+00-0.10717300E+01 0.79395442E+01
+ 0.13765460E+01 0.16557560E+01-0.45812731E+01 0.12793840E+01
+ 0.19977500E+01-0.10812960E+01-0.47057958E+01 0.91408920E+01
+ 0.48191180E+01-0.30317640E+01 0.32294431E+01-0.12951860E+01
+-0.25345731E+00 0.15939440E+01 0.26766059E+01-0.11608740E+01
+ 0.86361259E+00 0.33388120E+00 0.70002329E+00-0.82674322E+01
+-0.52804770E+01 0.42747798E+01-0.29611471E+01-0.37054970E+01
+ 0.23925900E+01-0.15768960E+01-0.28913291E+01 0.67319077E+00
+ 0.12011290E+00 0.53295660E+00 0.11441590E-01-0.71891740E-01
+ 0.89637327E+01 0.32787960E+01-0.34708439E+02-0.40102448E+01
+ 0.30037319E+02-0.10102080E+02 0.32863040E+01 0.25140829E+01
+ 0.19652911E-01-0.82488859E+00-0.23923621E+01 0.12526780E+00
+ 0.35318739E+01 0.21743311E+02 0.40106499E+02-0.62579222E+01
+-0.31518040E+02 0.71222138E+00-0.50869602E+00-0.89379587E+01
+-0.12535330E+01-0.44351399E+00 0.28778491E+01-0.11391211E+01
+-0.13165920E+01 0.47674000E+00-0.83543602E-02 0.23055861E-01
+ 0.11613970E+00-0.43022029E-01 0.11200850E+00-0.12737140E+00
+-0.60508478E+00 0.12774859E+00-0.11781970E+00-0.18901009E-01
+ 0.15137930E-01 0.13222750E-02 0.68059302E-03-0.30744669E-02
+-0.10260440E+00 0.37649360E-01-0.12287770E+00-0.27081160E-01
+ 0.60639781E+00-0.12308000E+00 0.10759240E+00 0.12416170E+00
+-0.14773620E-01-0.22845250E-01 0.57580541E-02 0.44857789E-03
+ 0.88612847E-01-0.18314999E+00 0.43402910E+00 0.30774141E-01
+ 0.31712770E-01-0.57667398E+00-0.16129570E+00-0.96365318E-01
+ 0.28792280E+00-0.37529130E-01-0.42924341E-01 0.67658750E-02
+ 0.86127387E-04-0.90117387E-01-0.45848569E+00-0.18310110E+00
+-0.22972390E-01 0.95658787E-01 0.15501601E+00-0.50936121E+00
+-0.30548140E+00-0.12798131E+00 0.55109419E-01-0.35223778E-01
+ 0.90741888E-02 0.45872912E-01 0.16719580E+00-0.28267640E+00
+-0.28509551E+00-0.46785471E+00-0.10415190E+01 0.10728300E+01
+ 0.14706510E+01-0.75886607E+00 0.66230381E+00-0.70904471E-01
+-0.19227240E-01 0.10949120E-01-0.53324722E-01-0.99137887E-01
+ 0.37696251E+00-0.35350710E+00 0.12500640E+01-0.55113041E+00
+-0.14297080E+01 0.11152411E+01-0.49689859E+00-0.77208871E+00
+ 0.87537616E-01-0.49201000E-01-0.38243290E-01 0.79735279E-01
+-0.13236471E+00 0.15865710E+00-0.93636417E+00 0.10523590E+00
+ 0.11822370E-01 0.66075301E+00 0.32304049E+00 0.35418370E+00
+-0.52009553E+00-0.52098930E-02 0.51039141E-01-0.22308201E-01
+ 0.28697090E-01 0.16555670E+00 0.10036280E+01 0.80655113E-01
+-0.39629601E-01-0.30962080E-02-0.30771121E+00 0.54395193E+00
+ 0.54929489E+00 0.40994960E+00-0.58162019E-01-0.92709418E-02
+-0.42241231E-01-0.89495659E-01-0.29844451E+00 0.65841937E+00
+ 0.58009529E+00 0.11412550E+01 0.77351111E+00-0.20276690E+01
+-0.15668870E+01 0.10390900E+01-0.76075029E+00 0.98033480E-01
+-0.50491840E-02-0.40950198E-02 0.49142689E-01 0.15575090E+00
+-0.81326979E+00 0.82070631E+00-0.10915819E+01 0.12504680E+01
+ 0.15051500E+01-0.21138470E+01 0.51105440E+00 0.10671370E+01
+-0.99881671E-01 0.83221100E-01 0.82344793E-01-0.11568900E+00
+ 0.25281820E-02 0.70543861E-03-0.19398351E-04-0.11598260E-01
+ 0.10623990E+00 0.19813420E-02 0.71149372E-01 0.19701549E+00
+-0.74249908E-01 0.17360710E-01 0.41494131E-01 0.48971828E-02
+ 0.15066380E-01 0.68915740E-03 0.54081138E-02-0.25749940E-02
+-0.10672660E+00-0.10035870E-01-0.60687929E-01 0.59863082E-02
+ 0.65159261E-01 0.20590959E+00-0.46011731E-01 0.15413130E-01
+-0.88243224E-02 0.16120780E-02-0.31636920E-01 0.82213871E-01
+ 0.32025080E-01 0.34674790E-01-0.10923700E-01-0.37999421E-01
+ 0.15864581E-01-0.94129272E-01-0.28126159E+00 0.74566223E-01
+ 0.18070620E-01-0.35375521E-01-0.30873369E-01-0.18392760E-01
+-0.45253590E-01 0.10610680E+00 0.16857481E-01 0.46378981E-01
+-0.20971820E-02-0.26692800E-01 0.27406549E+00-0.81686921E-01
+-0.35443429E-01 0.63157573E-01 0.35563070E-01-0.46026740E-01
+ 0.14996360E-02-0.91388403E-02-0.77106371E-02-0.71839890E-02
+-0.76019001E-03-0.10658400E-01-0.38348999E-01-0.53210620E-01
+-0.13085650E-01-0.12767470E-01 0.15990900E+00-0.33273590E-02
+-0.86879432E-02-0.26320729E-02 0.17186590E-02-0.89476962E-03
+ 0.40063900E-02 0.71603758E-02 0.25682440E-01-0.15784839E-01
+ 0.19904220E-01-0.55874571E-01-0.15678629E+00-0.12265710E-01
+ 0.50492510E-02 0.16385430E-03-0.13390780E-01 0.53078569E-02
+-0.10317280E-01 0.11550080E-01 0.82519408E-02 0.50075422E-02
+ 0.14381130E-01 0.18876661E-01-0.91499425E-02 0.21593880E-01
+-0.94886934E-02-0.50571110E-01 0.16280140E-02-0.46093808E-02
+ 0.17702390E-02-0.51636290E-03 0.52761240E-02 0.35434421E-02
+-0.16231030E-01 0.12478620E-01-0.79772039E-03 0.14736420E-01
+ 0.12026330E-01 0.12569580E-01 0.29719400E-02-0.52397039E-01
+ 0.28832320E-02 0.45434828E-02 0.13109950E-02-0.48288140E-02
+-0.24767290E-02-0.15502850E-02 0.20635719E-02 0.18209009E-02
+-0.73007462E-02-0.19589211E-02 0.13471880E-01 0.54029878E-02
+-0.22513579E-03-0.24055119E-02-0.57370681E-02-0.64930739E-02
+-0.19307820E-02-0.80408771E-02 0.94675487E-02 0.90173521E-03
+ 0.93002869E-02 0.53652488E-02-0.14433650E-01-0.37305590E-03
+-0.19978071E-02 0.80692517E-02 0.16067260E-02 0.60849362E-02
+ 0.42271689E-02-0.27319710E-02 0.27326520E-02 0.41623339E-02
+ 0.31669820E-02-0.64325202E-02-0.24573770E-02-0.79048201E-02
+-0.15740220E-01 0.85993186E-02-0.12048800E-01-0.82501862E-02
+ 0.36735679E-02 0.35892450E-02 0.26812931E-03-0.11285730E-02
+-0.60985889E-02-0.50035440E-02-0.47045690E-02-0.48607429E-02
+ 0.10411750E-01-0.13304540E-01 0.18273240E-01 0.62651238E-02
+ 0.90422602E+01 0.10873230E+00-0.12564380E+00-0.36191162E-01
+-0.66443019E-01 0.68837581E-02 0.40470688E-02 0.31913079E-02
+-0.32862529E-03-0.50926851E-02 0.80527720E-03 0.17690160E-02
+ 0.11466290E-02 0.80379891E+00 0.13532430E+00-0.71362609E+00
+ 0.51028300E-01-0.65205371E+00 0.16817519E-01-0.54859571E-01
+-0.19822340E-01 0.43871202E-01-0.83119301E-02-0.41371681E-01
+ 0.48546702E-01 0.16682290E-01 0.13593420E+02 0.11943740E+01
+ 0.30994669E+00 0.15574030E+01 0.95834062E-01 0.45091022E-01
+-0.17357840E+00-0.57329290E-01 0.10122430E+00 0.12803259E+00
+-0.23208279E-01-0.43687399E-01 0.37251650E-02-0.53997350E+00
+ 0.25382371E+01 0.13404310E+02-0.65952986E-01 0.12368900E+02
+-0.14889979E+00 0.65290308E+00 0.14644240E+00-0.81781828E+00
+ 0.19168469E+00 0.51289439E+00-0.74810690E+00-0.27718240E+00
+-0.50548752E+02-0.12605669E+01-0.13441390E+01-0.12039190E+02
+ 0.32347419E+01-0.46354619E+00 0.13002840E+01 0.27780741E+00
+-0.70523518E+00-0.49316090E+00 0.40579659E+00 0.31089970E+00
+ 0.22903381E-01-0.70567146E+02-0.34215130E+02-0.58993832E+02
+-0.34055719E+00-0.54697319E+02 0.28737110E+00-0.32232909E+01
+ 0.19082900E-01 0.32704110E+01-0.10735610E+01-0.18007370E+01
+ 0.32127471E+01 0.10918630E+01 0.33011650E+02-0.14562630E+02
+ 0.14686910E+02 0.33263592E+02-0.11760910E+02 0.95259750E+00
+-0.33326130E+01-0.66474807E+00 0.15850540E+01 0.69127578E+00
+-0.14637491E+01-0.81531000E+00-0.15601130E+00 0.26537891E+03
+ 0.10421820E+03 0.94113342E+02-0.33116421E+00 0.10315560E+03
+ 0.30756840E+00 0.69189019E+01-0.12018580E+01-0.52822709E+01
+ 0.24009070E+01 0.28248661E+01-0.59546561E+01-0.17667040E+01
+ 0.16018900E+02 0.25193970E+02-0.28320419E+02-0.37667561E+02
+ 0.14897290E+02-0.58306921E+00 0.35068409E+01 0.76373720E+00
+-0.14364480E+01-0.35238391E+00 0.18874490E+01 0.89316529E+00
+ 0.24105270E+00-0.33567651E+03-0.11808660E+03-0.57967510E+02
+ 0.24481461E+01-0.88917236E+02-0.11727509E+01-0.66931019E+01
+ 0.19888620E+01 0.37466519E+01-0.23563621E+01-0.21166620E+01
+ 0.50768571E+01 0.12650790E+01-0.16283390E+02-0.10615460E+02
+ 0.14814440E+02 0.14988760E+02-0.64460168E+01 0.34851849E-01
+-0.13083370E+01-0.32496789E+00 0.45250610E+00 0.28942630E-01
+-0.81192797E+00-0.34772140E+00-0.11411420E+00 0.14065981E+03
+ 0.45487679E+02 0.10145490E+02-0.17964990E+01 0.28761499E+02
+ 0.72389650E+00 0.24076591E+01-0.93684793E+00-0.95770150E+00
+ 0.84814918E+00 0.62164378E+00-0.16378000E+01-0.32870919E+00
+-0.21890371E+00 0.15210220E+01 0.20178809E+01 0.88529587E-01
+ 0.35510990E+00 0.33075832E-01 0.12655600E-01-0.15966900E-02
+ 0.18972571E-02-0.30950420E-02 0.37603290E-02 0.54873340E-02
+ 0.12549229E-02-0.27395821E+00-0.17697480E+01 0.16008790E+01
+-0.35899889E+00 0.91655962E-01-0.26065260E-01 0.20849049E-01
+-0.52326741E-02-0.57049310E-02-0.35548760E-02-0.54192991E-04
+ 0.87333938E-04 0.39989380E-02-0.64300001E+00 0.18723660E+01
+-0.30213749E+00 0.24706770E+00 0.65807581E+00 0.25161380E+00
+ 0.45090351E+00 0.31159060E-01 0.79151317E-02-0.54915000E-01
+-0.17410420E-01 0.26041949E-01-0.32738079E-02-0.14216350E+01
+ 0.14939430E+01 0.25279820E+01-0.72124320E+00 0.22787280E+00
+-0.48594949E+00 0.93069829E-01-0.45852020E-01 0.60682941E-01
+-0.33006091E-01-0.51316570E-01-0.15473850E-01 0.42664722E-01
+ 0.78702040E+01 0.10564060E+02-0.46108751E+01-0.16374069E+01
+-0.13973770E+01-0.99427432E+00 0.14097630E+01 0.13774429E+00
+ 0.29934321E-01-0.17828200E-01-0.59747290E-01-0.93207978E-01
+-0.27803270E-01-0.26003430E+01-0.15223240E+01 0.13168240E+02
+ 0.11516240E+01-0.19036390E+01-0.10915320E+01-0.89012921E+00
+ 0.23284280E+00 0.18069850E+00-0.50528971E-02-0.99037208E-01
+ 0.84247433E-01-0.23835680E-01 0.26162180E+02-0.98964701E+01
+ 0.24371161E+02-0.10111660E+02-0.44410558E+01-0.47531352E+01
+-0.41685572E+01-0.81881732E+00-0.29639530E+00 0.90814412E+00
+-0.11598320E-01-0.41244489E+00 0.39007839E-01 0.38568119E+02
+-0.37163391E+02-0.24298420E+02 0.48238230E+01-0.84907408E+01
+ 0.55675139E+01-0.25678470E+01 0.77801210E+00-0.50262552E+00
+ 0.53892630E+00 0.71586072E+00 0.17017570E+00-0.65219492E+00
+-0.37926270E+02-0.24542601E+02 0.86165489E+02 0.14015080E+01
+-0.87065601E+01 0.76485190E+01-0.10825020E+02-0.12378089E+01
+-0.24174060E+00 0.87757379E+00 0.22278240E+00-0.33749811E-01
+ 0.13370770E+00 0.48693920E+02-0.45643501E+02-0.11254010E+02
+ 0.10411930E+02 0.48307199E+01 0.85036192E+01 0.74940720E+01
+-0.19128290E+01-0.11026040E+01 0.67278409E+00 0.85420412E+00
+-0.86921018E+00-0.42911270E+00-0.14102640E+03 0.48692479E+01
+-0.11752840E+03 0.63484959E+02 0.23456699E+02 0.26837080E+02
+ 0.14327990E+02 0.60450420E+01 0.71415192E+00-0.37213049E+01
+ 0.21607881E+01 0.24466040E+01-0.47771209E+00-0.20612030E+03
+ 0.15523430E+03 0.11182840E+03-0.21437860E+02 0.50070599E+02
+-0.22451771E+02 0.17966280E+02-0.37753839E+01 0.59912223E+00
+-0.22905810E+01-0.22544570E+01-0.17964581E+00 0.29358959E+01
+ 0.68015633E+02-0.40975281E+02-0.31533871E+03 0.15897910E+02
+ 0.41903370E+02-0.21672310E+02 0.30657579E+02 0.36977539E+01
+ 0.56335859E-01-0.37115469E+01-0.22651970E+00 0.13781650E+01
+-0.30770621E+00-0.17467619E+03 0.19946870E+03-0.14347800E+03
+-0.46196720E+02 0.25559731E+01-0.23757759E+02-0.21242790E+02
+ 0.56474409E+01 0.26619020E+01-0.27707100E+01-0.24235001E+01
+ 0.27197180E+01 0.22034330E+01 0.30661649E+03 0.25349550E+02
+ 0.23987781E+03-0.15295100E+03-0.64375969E+02-0.61358608E+02
+-0.24315941E+02-0.16310471E+02 0.10317650E+01 0.62462649E+01
+-0.80966959E+01-0.62246342E+01 0.16344820E+01 0.44361090E+03
+-0.28600549E+03-0.25206931E+03 0.55114639E+02-0.11479790E+03
+ 0.42370789E+02-0.45731758E+02 0.75417252E+01 0.23915310E+01
+ 0.37469821E+01 0.20924649E+01-0.78575683E+00-0.57468128E+01
+-0.54033642E+02 0.13303140E+03 0.43802380E+03-0.35359268E+02
+-0.57596180E+02 0.25129789E+02-0.37498890E+02-0.45535002E+01
+ 0.80361247E+00 0.54071331E+01-0.10947400E+00-0.26886950E+01
+ 0.37557060E+00 0.22037700E+03-0.29308569E+03 0.31285889E+03
+ 0.62415951E+02-0.16437531E+02 0.29155880E+02 0.24126970E+02
+-0.67701321E+01-0.28529539E+01 0.38709090E+01 0.28219531E+01
+-0.33770089E+01-0.34200740E+01-0.29738269E+03-0.25741501E+02
+-0.21598990E+03 0.15804581E+03 0.75584892E+02 0.61361641E+02
+ 0.20847910E+02 0.18277639E+02-0.37689171E+01-0.47236199E+01
+ 0.10464660E+02 0.70023150E+01-0.20991089E+01-0.41570581E+03
+ 0.23781050E+03 0.26597949E+03-0.64765808E+02 0.11369260E+03
+-0.38305630E+02 0.48842239E+02-0.65912871E+01-0.57212420E+01
+-0.25231371E+01 0.22454470E+00 0.16470950E+01 0.51854949E+01
+ 0.17011511E+02-0.79724411E+02-0.20636360E+03 0.19936069E+02
+ 0.26215281E+02-0.10192960E+02 0.16538679E+02 0.19799891E+01
+-0.66527909E+00-0.26009209E+01 0.18388879E+00 0.14784909E+01
+-0.18340860E+00-0.92234741E+02 0.14201939E+03-0.17544150E+03
+-0.28302530E+02 0.10987200E+02-0.13087910E+02-0.95286493E+01
+ 0.27846899E+01 0.11235180E+01-0.17916880E+01-0.11572770E+01
+ 0.14565430E+01 0.17123090E+01 0.10568690E+03 0.38195040E+01
+ 0.72022057E+02-0.59543571E+02-0.30893270E+02-0.22401711E+02
+-0.72371268E+01-0.72466202E+01 0.23740051E+01 0.13654670E+01
+-0.45622482E+01-0.28680630E+01 0.91531998E+00 0.14206360E+03
+-0.72846870E+02-0.10313290E+03 0.27068510E+02-0.41580872E+02
+ 0.13395220E+02-0.18696440E+02 0.20834980E+01 0.32814281E+01
+ 0.56000757E+00-0.72333908E+00-0.84819269E+00-0.17721710E+01
+ 0.12050230E+00-0.27378881E+00-0.20236570E+00-0.90982008E+00
+ 0.49107969E+00-0.13176011E+00-0.47484051E-01 0.42946789E-01
+ 0.82370341E-02-0.15292120E-02-0.24807821E-02 0.51881932E-02
+-0.51541170E-02-0.99139139E-02 0.20364711E+00-0.26392579E+00
+-0.50516790E+00-0.90716261E+00 0.53227112E-01-0.13488050E+00
+-0.10496130E-01 0.38124628E-01 0.11452039E-02-0.82095980E-03
+ 0.57606772E-02 0.15519711E-03 0.31163600E+00-0.74754143E+00
+-0.39294350E+00-0.70032322E+00 0.63700467E+00 0.32091951E+00
+-0.64798981E+00 0.34582552E-01-0.32571740E-01-0.15079690E-01
+ 0.40369481E-02 0.11803160E-01-0.23727849E-01 0.49188200E+00
+ 0.52338147E+00-0.73639780E+00-0.65837532E+00-0.75425023E+00
+ 0.75402212E+00 0.34309590E+00 0.44693790E-01 0.74820369E-01
+-0.33803150E-01-0.27295031E-01 0.18929100E-01 0.23528339E-01
+-0.20640049E+01 0.21319070E+01-0.39885539E+00-0.53489642E+01
+-0.81035018E+00 0.63962601E-01-0.17570210E+01-0.26426250E+00
+ 0.27175310E+00 0.50410248E-01 0.12183930E+00-0.13503760E+00
+ 0.71484081E-01-0.29091430E+01 0.60290289E+00 0.23134990E+01
+ 0.98888659E+00-0.55047741E+01 0.14810120E+01 0.86941153E-01
+-0.27991569E+00-0.59359189E-01-0.13805650E+00-0.83062463E-01
+-0.10230720E+00 0.15259790E-01-0.16918970E+01 0.63980470E+01
+-0.31677120E+01 0.17099650E+01-0.15521320E+01-0.26876850E+01
+ 0.28572030E+01 0.65995240E+00 0.37891561E+00 0.28083339E+00
+ 0.49329240E-01-0.43020371E-01 0.23680860E+00-0.88972626E+01
+ 0.26735711E+01 0.55806732E+01 0.16715940E+01 0.18779490E+01
+-0.32423711E+01-0.26303821E+01-0.70442009E+00 0.11080120E+00
+ 0.42032290E+00 0.56842792E+00-0.13956121E+00-0.19772050E+00
+ 0.10835530E+02-0.54772520E+01-0.15166650E+02 0.34520439E+02
+ 0.17276051E+02-0.53958702E+01 0.10381430E+02 0.15413781E+00
+-0.20078640E+01-0.47419229E+00-0.78040260E+00 0.45157769E+00
+-0.11797190E-01 0.16231920E+02 0.14733320E+02-0.65922570E+01
+-0.17532970E+02 0.36536861E+02-0.92241316E+01-0.54903560E+01
+ 0.22845900E+01-0.83532679E+00 0.12886200E+01 0.44057280E+00
+ 0.21100681E+00-0.16313660E+00 0.35617011E+01-0.16905689E+02
+ 0.99462376E+01-0.37738969E+01-0.40577579E+01 0.53647990E+01
+-0.43982649E+01-0.26467731E+01-0.14821171E+01-0.92927080E+00
+-0.17390271E+00 0.51420301E-01-0.63698280E+00 0.21486271E+02
+-0.10283530E+02-0.14582420E+02 0.43041010E+01-0.39731531E+01
+ 0.46846571E+01 0.49017458E+01 0.24266019E+01-0.12411170E+01
+-0.11005870E+01-0.17905130E+01 0.37277049E+00 0.43442029E+00
+-0.19025249E+02 0.11747420E+02 0.55057011E+02-0.60165791E+02
+-0.45476929E+02 0.19124710E+02-0.20176991E+02 0.11332200E+01
+ 0.35937541E+01 0.12165490E+01 0.15158890E+01-0.53520799E+00
+-0.49102029E+00-0.28725010E+02-0.55084068E+02 0.14860900E+02
+ 0.45536732E+02-0.65565681E+02 0.18742201E+02 0.19329269E+02
+-0.43732328E+01 0.27342830E+01-0.29251609E+01-0.62169409E+00
+ 0.80594860E-01 0.32595330E+00-0.31727619E+01 0.12722330E+02
+-0.66598849E+01 0.68151259E+01 0.10504210E+02-0.29808650E+01
+ 0.22320211E+01 0.23390760E+01 0.14667900E+01 0.77979070E+00
+ 0.16326340E+00-0.11036610E-01 0.50622720E+00-0.13361540E+02
+ 0.86102133E+01 0.10948130E+02-0.11113510E+02 0.68883748E+01
+-0.21828539E+01-0.25350940E+01-0.21821520E+01 0.13548580E+01
+ 0.77561378E+00 0.14458920E+01-0.31376120E+00-0.26953819E+00
+ 0.99584703E+01-0.78763142E+01-0.43890121E+02 0.34215809E+02
+ 0.33701530E+02-0.15807130E+02 0.12080740E+02-0.12383840E+01
+-0.18926750E+01-0.86150962E+00-0.86797559E+00 0.22211391E+00
+ 0.52860492E+00 0.14363050E+02 0.43714031E+02-0.10003600E+02
+-0.33833721E+02 0.38127762E+02-0.11603410E+02-0.15920460E+02
+ 0.24673719E+01-0.20699339E+01 0.18687540E+01 0.27069849E+00
+-0.27246821E+00-0.17282940E+00-0.15394580E-01 0.89755572E-01
+ 0.15725119E+00 0.33422270E+00 0.18331310E-01-0.29867390E+00
+-0.82365489E+00 0.57502821E-01-0.14790469E+00-0.59643619E-01
+ 0.17348970E-02-0.33889059E-03-0.27539730E-02 0.24588141E-03
+-0.15452009E+00 0.10631540E+00-0.26333330E-01 0.33337739E+00
+ 0.82294083E+00-0.29008561E+00 0.14417510E+00 0.59360329E-01
+-0.32000919E-02-0.58657601E-01 0.31226510E-02-0.74663942E-04
+ 0.12689421E+00 0.94751060E-01 0.44015551E+00 0.74385770E-01
+ 0.68827443E-01-0.38288510E+00-0.53040338E+00-0.34268119E-02
+ 0.12104240E+00-0.15094040E+00 0.56340259E-01 0.19287850E-02
+ 0.20315091E-02-0.94477780E-01-0.42965630E+00 0.70738040E-01
+-0.10450130E+00 0.73398091E-01 0.52884960E+00-0.33454850E+00
+-0.13841920E+00-0.35280880E-01-0.54754019E-01-0.14073379E+00
+ 0.25621781E-02 0.64974790E-02 0.20474990E+00-0.30019879E+00
+-0.32266131E+00-0.21690941E+01 0.14470489E+00 0.19073100E+01
+ 0.20940480E+01 0.53976882E+00 0.82936829E+00 0.20443450E+00
+ 0.75529008E-02 0.22281229E-01-0.45338040E-02-0.97926430E-01
+ 0.45969951E+00-0.48980269E+00 0.69392867E-01-0.21059430E+01
+-0.20594800E+01 0.18517200E+01-0.80617738E+00 0.53218752E+00
+ 0.23202650E-01 0.14772791E+00 0.13035000E-01 0.17113879E-01
+-0.29058230E+00-0.10479150E+00-0.11193650E+01 0.71771666E-01
+ 0.12362620E-01-0.56322610E+00 0.86143732E+00 0.67334719E-01
+-0.25596610E+00 0.15172870E+00-0.69007069E-01-0.16438060E-01
+ 0.18325159E-01 0.15749329E+00 0.11724210E+01-0.19153810E+00
+ 0.50315749E-01 0.10243850E+00-0.87488860E+00-0.65283132E+00
+ 0.27993181E+00 0.11391170E+00 0.72599731E-01 0.13338140E+00
+-0.20433331E-01-0.28702300E-01-0.40095091E+00 0.97127509E+00
+ 0.21653610E+00 0.27440679E+01-0.78647482E+00-0.42691770E+01
+-0.26559391E+01-0.10962240E+01-0.97234303E+00-0.29369959E+00
+ 0.10139880E+00-0.56361988E-01 0.11880240E-01 0.17376560E+00
+-0.50467598E+00 0.11932729E+01 0.44207329E+00 0.26272910E+01
+ 0.26086831E+01-0.41981978E+01 0.94231468E+00-0.10936850E+01
+-0.14919481E+00-0.19556920E+00-0.32226030E-01-0.42313069E-01
+ 0.69101909E-02-0.24581170E-02-0.91811392E-03-0.77566773E-01
+ 0.62306982E-01-0.37605479E-01 0.12823901E+00 0.26224151E+00
+-0.17596421E+00-0.96460851E-03 0.45010809E-01 0.17287050E-02
+-0.53479481E-02 0.21080549E-02 0.98113846E-02-0.43369489E-03
+-0.56868050E-01-0.76438732E-01-0.13045651E+00-0.37123881E-01
+ 0.17418480E+00 0.25974461E+00-0.44528048E-01 0.32897180E-04
+ 0.78576077E-02 0.32824050E-02-0.17815940E-01 0.97211368E-01
+ 0.52086622E-01 0.54788750E-01-0.22507999E-02-0.65045371E-02
+ 0.13863251E+00 0.25922099E-01-0.37440339E+00 0.96122749E-01
+ 0.32353099E-01 0.18643631E-01-0.28384401E-01-0.65867128E-02
+-0.26566660E-01 0.12253660E+00 0.27842790E-01 0.54204602E-01
+-0.13557900E+00 0.76108542E-02 0.37120089E+00 0.22602890E-01
+-0.41141391E-01 0.90730570E-01 0.21411709E-01 0.14785450E-01
+ 0.60313090E-03-0.33915610E-03-0.13607380E-01 0.31397541E-02
+-0.55628568E-02 0.17895879E-01-0.78717530E-01-0.90049669E-01
+-0.41802429E-01 0.64401798E-01 0.18355639E+00 0.99251661E-02
+ 0.12562870E-01 0.79447008E-03 0.21181470E-02 0.60813320E-02
+ 0.80300421E-02 0.10146160E-01 0.73713839E-01 0.21197289E-01
+ 0.39980400E-01-0.93890950E-01-0.18485810E+00 0.59507810E-01
+-0.13525770E-01 0.89561800E-02-0.54874402E-02 0.51801242E-02
+-0.40360629E-02 0.59028639E-03-0.67647938E-02 0.86667547E-02
+ 0.15996059E-01 0.21226430E-01-0.21539239E-01 0.24919091E-01
+ 0.35324390E-02-0.77981912E-01 0.35634931E-01-0.24675201E-02
+ 0.26364510E-02 0.22280309E-03 0.99280719E-02 0.24958970E-02
+-0.10871900E-01 0.10495210E-01 0.16286340E-01 0.22830579E-01
+ 0.12411750E-02 0.23048360E-01-0.34991082E-01-0.79560868E-01
+ 0.55300789E-02 0.10044840E-01 0.29411891E-02-0.32009790E-02
+-0.81295474E-02 0.47308451E-03 0.56749489E-02-0.15598011E-02
+-0.10891750E-02-0.18485000E-01 0.25138620E-01 0.16310651E-01
+-0.82232812E-02-0.27623619E-02-0.42189020E-02-0.68515530E-02
+ 0.18530120E-02 0.73544509E-02-0.50117532E-02 0.47660922E-02
+-0.28366440E-02-0.14461690E-03-0.26584281E-01-0.23484821E-01
+ 0.86720083E-02 0.17176650E-01 0.30220360E-02 0.68547381E-02
+-0.49960450E-03 0.32414789E-02 0.61615650E-02 0.26146821E-02
+ 0.56474060E-02-0.12258320E-02-0.74131950E-02-0.89138551E-02
+-0.94883079E-02 0.70434669E-02 0.35733811E-02-0.11637290E-01
+ 0.60404441E-02 0.39776312E-02 0.17675300E-02-0.35215321E-02
+-0.42545161E-03-0.21576360E-02 0.18625300E-02 0.17741109E-02
+ 0.60020718E-02-0.81637399E-02-0.17326110E-02 0.71648969E-02
diff --git a/input/glow_data/iri90/ursi13.asc b/input/glow_data/iri90/ursi13.asc
new file mode 100644
index 0000000..cee89b7
--- /dev/null
+++ b/input/glow_data/iri90/ursi13.asc
@@ -0,0 +1,494 @@
+ 0.64964528E+01 0.35061080E-02-0.21070591E+00 0.25288239E-02
+-0.10453200E+00 0.63203471E-02 0.71051628E-02-0.29488599E-02
+ 0.12296680E-01 0.12004440E-03 0.38899409E-02 0.38935829E-03
+ 0.22481410E-02 0.50713849E+00 0.10499910E+01-0.10720320E+01
+ 0.44854221E+00-0.92736848E-01 0.81215337E-01-0.71415320E-01
+-0.74251860E-01 0.22633789E-01-0.10999420E-01-0.39056301E-01
+ 0.53066551E-02 0.53002529E-01 0.10938150E+02 0.32800810E+01
+ 0.24418340E+01 0.25740230E+01 0.19470470E+01 0.88625081E-01
+-0.28172800E+00 0.46652891E-01-0.27145129E+00-0.16029200E-01
+-0.40774301E-01-0.32561310E-01-0.85102387E-01-0.14604020E+02
+-0.15348650E+02 0.23221319E+02-0.60755482E+01 0.69203191E+01
+-0.13934180E+01 0.73051000E+00 0.64909238E+00-0.64379090E+00
+ 0.19245289E+00 0.62821847E+00-0.10343660E+00-0.71333051E+00
+-0.75663933E+02-0.17234280E+02-0.91555500E+01-0.20868481E+02
+-0.12270860E+02-0.15305181E+01 0.16198860E+01 0.86002401E-03
+ 0.17601740E+01-0.10635530E+00 0.37555441E+00-0.33779360E-01
+ 0.72671378E+00 0.63133732E+02 0.53380959E+02-0.11262630E+03
+ 0.26100010E+02-0.31617559E+02 0.61094799E+01-0.33823791E+01
+-0.18867710E+01 0.36162081E+01-0.83847278E+00-0.28151300E+01
+ 0.14764319E+00 0.29500690E+01 0.15950270E+03 0.28623840E+02
+ 0.15689320E+02 0.54797562E+02 0.29917761E+02 0.52046032E+01
+-0.34216020E+01-0.54284263E+00-0.45658941E+01 0.61052680E+00
+-0.11623210E+01 0.51161528E+00-0.20543661E+01-0.10915910E+03
+-0.64414917E+02 0.21403850E+03-0.51863010E+02 0.55754990E+02
+-0.11595430E+02 0.68602071E+01 0.24721019E+01-0.80411987E+01
+ 0.15228610E+01 0.54344888E+01 0.40378219E+00-0.53407960E+01
+-0.15844009E+03-0.19037970E+02-0.12183630E+02-0.59132679E+02
+-0.31131880E+02-0.65727472E+01 0.31525011E+01 0.98308939E+00
+ 0.50732331E+01-0.89070767E+00 0.14013520E+01-0.85455590E+00
+ 0.23405330E+01 0.81970329E+02 0.21944710E+02-0.17733479E+03
+ 0.48698330E+02-0.44319050E+02 0.10162980E+02-0.61317530E+01
+-0.15019120E+01 0.78377552E+01-0.12441120E+01-0.48045411E+01
+-0.92713380E+00 0.44411702E+01 0.60750969E+02 0.43628211E+01
+ 0.33741300E+01 0.22719509E+02 0.11687300E+02 0.28231480E+01
+-0.10782670E+01-0.48828420E+00-0.20166500E+01 0.40524641E+00
+-0.58079189E+00 0.41250831E+00-0.93402070E+00-0.22056980E+02
+ 0.34774599E+01 0.53870930E+02-0.17362579E+02 0.13377350E+02
+-0.33733349E+01 0.19959360E+01 0.34260249E+00-0.27966371E+01
+ 0.37819919E+00 0.15992880E+01 0.47621399E+00-0.13904620E+01
+-0.72295703E-01 0.21508670E+01 0.14425590E+01 0.62300809E-01
+ 0.27210420E+00 0.31028491E-01 0.24575310E-01-0.84713418E-02
+-0.21269300E-02-0.10818060E-03-0.86507940E-03-0.20885761E-02
+ 0.19204560E-02-0.21767780E+00-0.12037550E+01 0.22015460E+01
+-0.29005590E+00 0.74095599E-01-0.48132680E-01 0.67130509E-02
+-0.10311210E-01 0.26584619E-02 0.72016811E-03-0.64499432E-03
+ 0.25163679E-02-0.18682270E-02 0.84657228E+00-0.36419421E+00
+ 0.13113530E+01-0.24057411E+00 0.40505350E+00-0.17048880E+00
+-0.10375690E+00 0.59797142E-01 0.39413769E-01-0.14255909E-02
+ 0.42085271E-01 0.10074620E-01 0.40228769E-01-0.10786901E+01
+-0.69321170E-01 0.17574180E+01-0.20404090E+00-0.20161180E+00
+ 0.97474903E-01-0.44680399E+00-0.66872068E-01-0.28426079E-01
+ 0.41847308E-02-0.55281971E-01-0.74995093E-01 0.46375990E-01
+ 0.48025990E+01 0.35853529E+01 0.11516280E+02-0.16575730E+01
+-0.64372191E+01-0.29940519E+00 0.17295470E+01 0.91363773E-01
+ 0.27262580E+00-0.47519859E-01 0.13117030E+00 0.13531969E+00
+-0.11862580E+00 0.15653870E+01-0.12212430E+02 0.96776962E+01
+ 0.71825228E+01-0.22745399E+01-0.92197013E+00-0.17923130E+00
+ 0.46068570E+00-0.29100049E+00 0.56631811E-01 0.52781031E-01
+-0.14071549E+00 0.67974843E-01-0.12033230E+02-0.31628790E+01
+ 0.35848761E+01 0.37915239E+01 0.60659451E+01-0.14220759E+00
+-0.43941659E+00-0.77556461E+00-0.12643210E+01 0.51787920E-01
+-0.10158900E+01 0.28947671E-02-0.56450111E+00 0.29002501E+02
+-0.17119989E+02-0.21987740E+02-0.86660099E+01 0.26168530E+01
+ 0.80241150E+00 0.41982121E+01 0.10821750E+00 0.95933521E+00
+-0.26778519E+00 0.96287912E+00 0.11906940E+01-0.60410130E+00
+-0.19310600E+02-0.22216740E+02 0.43439678E+02 0.62683029E+01
+ 0.26859200E+02 0.22495170E+01-0.13852030E+02 0.33026499E+00
+-0.16768540E+01 0.18710481E+00-0.51352149E+00-0.15990590E+01
+ 0.13874100E+01 0.57368622E+01-0.57306820E+02-0.46790771E+02
+-0.33735920E+02 0.10690080E+02 0.68056002E+01 0.35544920E+01
+-0.44099932E+01 0.28005180E+01-0.13134160E+01-0.76831520E+00
+ 0.12427870E+01-0.47067460E+00 0.71644958E+02 0.19772570E+01
+-0.49574791E+02-0.20134720E+02-0.47138489E+02 0.13321110E+02
+ 0.92501144E+01 0.27833970E+01 0.62875562E+01 0.12657890E+01
+ 0.65783620E+01-0.72823972E+00 0.28229899E+01-0.18086560E+03
+ 0.89486992E+02 0.99142609E+02 0.55085468E+02-0.17370520E+02
+-0.12564430E+02-0.80686178E+01 0.29872069E+01-0.50412760E+01
+ 0.21935811E+01-0.33632419E+01-0.51972399E+01 0.27556500E+01
+ 0.23748760E+02 0.32649560E+01-0.31688339E+03-0.53109179E+01
+-0.47222191E+02-0.69223800E+01 0.36305969E+02-0.29686501E+01
+ 0.36738970E+01-0.30596411E+00 0.58521259E+00 0.53214931E+01
+-0.46127362E+01-0.40246101E+02 0.37030011E+03 0.22350880E+02
+ 0.68761429E+02-0.17983891E+02-0.14441090E+02-0.13251460E+02
+ 0.13852170E+02-0.91119490E+01 0.52180972E+01 0.26695521E+01
+-0.37851090E+01 0.12012460E+01-0.18318359E+03 0.23359570E+02
+ 0.14904280E+03 0.41651939E+02 0.11802310E+03-0.46890251E+02
+-0.31452360E+02-0.35554891E+01-0.11975430E+02-0.60910749E+01
+-0.16532101E+02 0.27033191E+01-0.64144721E+01 0.43746921E+03
+-0.19364880E+03-0.19532790E+03-0.12436200E+03 0.43151871E+02
+ 0.40306950E+02-0.59502661E+00-0.12423380E+02 0.10854940E+02
+-0.66942019E+01 0.40090342E+01 0.97693434E+01-0.56387100E+01
+-0.76294241E+01 0.53137321E+02 0.49822791E+03-0.47070122E+01
+ 0.38984879E+02 0.82021122E+01-0.39785091E+02 0.51976018E+01
+-0.34889779E+01 0.21623041E+00-0.10815200E+00-0.68308868E+01
+ 0.59149532E+01 0.60748310E+02-0.56590851E+03 0.75293602E+02
+-0.65878128E+02 0.10865540E+02 0.12336930E+02 0.17385469E+02
+-0.17302410E+02 0.11865620E+02-0.73740931E+01-0.34928999E+01
+ 0.47088962E+01-0.13104510E+01 0.20216521E+03-0.39229000E+02
+-0.18240350E+03-0.35445721E+02-0.12859990E+03 0.57591190E+02
+ 0.39165272E+02 0.11029860E+01 0.97686796E+01 0.88332434E+01
+ 0.17833750E+02-0.34457259E+01 0.66962662E+01-0.44814240E+03
+ 0.19543700E+03 0.17198911E+03 0.12522520E+03-0.42560181E+02
+-0.48545422E+02 0.11762950E+02 0.17063869E+02-0.10670050E+02
+ 0.86008425E+01-0.11263280E+01-0.84294596E+01 0.53161402E+01
+-0.27348940E+01-0.39614120E+02-0.23547740E+03 0.55313559E+01
+-0.11996740E+02-0.32634561E+01 0.15742100E+02-0.26760571E+01
+ 0.12288480E+01-0.47745131E-01-0.88957012E-01 0.30149040E+01
+-0.26075130E+01-0.28108891E+02 0.26465201E+03-0.63852341E+02
+ 0.23526449E+02-0.11986970E+01-0.37567890E+01-0.76322150E+01
+ 0.74837642E+01-0.53233671E+01 0.34732349E+01 0.15549541E+01
+-0.20526891E+01 0.52305400E+00-0.79433090E+02 0.17324619E+02
+ 0.78540680E+02 0.98084707E+01 0.51518242E+02-0.23918699E+02
+-0.16554840E+02 0.41387811E+00-0.28195810E+01-0.41062431E+01
+-0.69493241E+01 0.14657100E+01-0.25981390E+01 0.16406380E+03
+-0.73889412E+02-0.55624790E+02-0.47166828E+02 0.13776890E+02
+ 0.20097820E+02-0.69661021E+01-0.77890248E+01 0.39241080E+01
+-0.39213440E+01-0.46013609E+00 0.27429800E+01-0.18864000E+01
+ 0.18640530E+00-0.78817658E-01-0.18828090E+00-0.94514161E+00
+-0.41105421E-03-0.72706081E-01-0.19474269E+00 0.13817160E-01
+ 0.17483151E-01-0.45930669E-02-0.36783649E-02-0.15742190E-02
+ 0.24342081E-02 0.39496221E-01 0.19197141E+00-0.87926321E-01
+ 0.18786990E-03-0.91718078E+00 0.20876700E+00-0.10285200E+00
+-0.16394630E-01 0.34240440E-02 0.49172761E-02-0.75170058E-02
+ 0.23712700E-02 0.41607209E-03 0.66929239E+00-0.37218171E+00
+-0.99147350E+00 0.50222927E+00 0.37001839E+00 0.19399710E+00
+-0.34683990E+00-0.80852710E-01-0.68721518E-01 0.23832999E-01
+-0.65424279E-02 0.23552040E-02 0.52420641E-02-0.13478720E-01
+ 0.10735570E+01-0.23787721E+00-0.35819319E+00 0.58692878E+00
+ 0.44594541E+00 0.23803280E+00 0.36783021E-01-0.73383458E-01
+ 0.21302860E-01-0.33257291E-01-0.16961501E-02 0.27894459E-03
+-0.30898440E+01 0.23722930E+01 0.20733280E+01 0.49773178E+01
+ 0.44517078E+01-0.20073459E+01 0.23603799E+01-0.58472979E+00
+-0.10594290E+00 0.97939149E-01 0.13561410E+00 0.70581809E-01
+-0.79620443E-01-0.19914900E+01-0.16636580E+01 0.32447779E+01
+-0.45155420E+01 0.44269619E+01-0.28620961E+01-0.13986371E+01
+-0.82539938E-01-0.32871279E+00-0.19426750E+00 0.18906300E+00
+-0.17815551E-01-0.16704100E-02-0.47708979E+01 0.51828270E+01
+ 0.61870079E+01 0.70908678E+00 0.20659650E-01-0.18361501E+01
+-0.35927290E+00 0.47930980E+00 0.38337991E+00-0.16939370E+00
+ 0.12963501E+00 0.56119751E-01-0.52892279E-01-0.33182731E+01
+-0.54458508E+01 0.31814940E+01 0.46123669E+00-0.38148069E+00
+-0.19384129E+00-0.24675219E+01-0.31974220E+00 0.18385030E+00
+-0.39309669E+00 0.46843281E+00-0.11400980E+00-0.21300839E-01
+ 0.14950140E+02 0.43111610E+00-0.14491750E+02 0.30151801E+01
+-0.72990980E+01 0.10036390E+02-0.71460838E+01 0.28234351E+01
+ 0.13762140E+01-0.32230631E+00-0.85698837E+00-0.30385891E+00
+ 0.28273481E+00 0.12592990E+02 0.12978800E+02-0.38709130E+01
+ 0.76529150E+01 0.46606679E+01 0.95298147E+01 0.69960618E+01
+-0.14107330E+00 0.19486570E+01 0.14585360E+01-0.74552190E+00
+-0.26436651E+00-0.49113140E-01 0.94291172E+01-0.15038540E+02
+-0.13287450E+02-0.61422701E+01-0.17660850E+01 0.28048971E+01
+ 0.41283679E+01-0.57533419E+00-0.15343660E+01 0.37436911E+00
+-0.22249401E+00-0.22603330E+00 0.12980860E+00 0.88173933E+01
+ 0.10859740E+02-0.98484898E+01-0.14154710E-01-0.36384480E+01
+-0.32022669E+01 0.43995819E+01 0.16191510E+01 0.34339291E+00
+ 0.98678482E+00-0.11813800E+01 0.36951551E+00 0.71230352E-01
+-0.24822929E+02-0.11713790E+02 0.33656471E+02-0.26554430E+02
+-0.16885890E+01-0.15003720E+02 0.75927558E+01-0.42983832E+01
+-0.39327431E+01 0.34111029E+00 0.16655110E+01 0.45486391E+00
+-0.30929971E+00-0.24867750E+02-0.31563860E+02-0.35601139E+01
+ 0.11967040E+01-0.28261641E+02-0.11328920E+02-0.95060253E+01
+ 0.15001620E+01-0.32666881E+01-0.31572101E+01 0.98043031E+00
+ 0.86708552E+00 0.15577170E+00-0.48860559E+01 0.11856800E+02
+ 0.72399979E+01 0.67167149E+01 0.15915380E+01-0.80947793E+00
+-0.37878921E+01 0.20272849E-01 0.16127909E+01-0.27856520E+00
+ 0.85850179E-01 0.19763809E+00-0.92189036E-01-0.62868309E+01
+-0.52400079E+01 0.81594248E+01-0.52043991E-02 0.51766129E+01
+ 0.32922921E+01-0.19312580E+01-0.17657930E+01-0.69790280E+00
+-0.67197078E+00 0.78943151E+00-0.28432620E+00-0.64674772E-01
+ 0.12936460E+02 0.10572350E+02-0.21898411E+02 0.18663750E+02
+ 0.52537231E+01 0.68958330E+01-0.25637131E+01 0.21538711E+01
+ 0.27685080E+01-0.11922230E+00-0.10159800E+01-0.23231290E+00
+ 0.84545523E-01 0.14873580E+02 0.20254829E+02 0.56908951E+01
+-0.50833230E+01 0.19208990E+02 0.44569278E+01 0.36234920E+01
+-0.12958490E+01 0.17648770E+01 0.20589409E+01-0.42929620E+00
+-0.63658810E+00-0.11453980E+00-0.14363900E-01 0.24052260E-01
+ 0.27219811E+00-0.47243349E-01 0.88868529E-01-0.34597281E-02
+-0.75729179E+00 0.12157910E+00-0.23911991E-02-0.42110719E-01
+-0.15753759E-01-0.55952108E-03 0.66062929E-02-0.20859900E-02
+-0.26963890E+00 0.20715971E-01-0.10196300E+00-0.31866759E-01
+ 0.76210529E+00-0.83977409E-03-0.26766350E-02 0.11438550E+00
+ 0.15947510E-01-0.43472089E-01-0.18435690E-02-0.31055999E-02
+ 0.50375540E-01 0.35493460E+00 0.33330521E+00-0.20024110E+00
+ 0.20044421E+00-0.46901390E+00-0.21213409E+00 0.12766270E+00
+ 0.24531171E+00 0.27000520E-01 0.43465331E-01 0.29189520E-01
+-0.13995580E-02-0.31407900E-01-0.32700169E+00 0.31599030E+00
+-0.19123711E+00-0.20214750E+00 0.23199479E+00-0.46026939E+00
+-0.25206950E+00 0.12745941E+00-0.21618349E-01 0.21590879E-02
+-0.34030571E-02 0.11870880E-01 0.40109941E+00-0.88082001E-01
+-0.13486060E+01 0.43220061E+00-0.10418640E+01 0.99352852E-01
+ 0.21125989E+01-0.43480220E+00 0.14255209E+00 0.79033248E-01
+ 0.33373039E-01 0.40994529E-01-0.13092150E+00-0.15593290E-01
+ 0.15358540E+01 0.10343000E+00 0.12743419E+01 0.27335361E+00
+-0.21080890E+01 0.84897533E-01-0.10630620E+00-0.35034189E+00
+-0.44483300E-01 0.97757593E-01 0.52928280E-01 0.53339541E-01
+-0.13717130E+00-0.34427440E+00-0.82919037E+00 0.58632767E+00
+-0.55650687E+00 0.62158120E+00 0.42323941E+00-0.29531300E+00
+-0.33875260E+00-0.14243449E+00-0.63991807E-01-0.45051850E-01
+-0.15464520E-01 0.20041510E-01 0.88178289E+00-0.36965629E+00
+ 0.55196822E+00 0.61408228E+00-0.46751830E+00 0.59853721E+00
+ 0.34679270E+00-0.29622900E+00 0.32938551E-01-0.10637920E+00
+ 0.17281760E-01-0.23587730E-01-0.73763990E+00 0.33579889E+00
+ 0.20925550E+01-0.21325541E+00 0.93437952E+00-0.13230979E+01
+-0.29066980E+01 0.47380340E+00-0.26432389E+00-0.29881749E-01
+-0.11055020E+00-0.49017679E-01 0.18929280E+00-0.65229513E-01
+-0.24713840E+01 0.47038492E-01-0.12820489E+01-0.84626526E-02
+ 0.28863211E+01-0.13154420E+01 0.22155011E+00 0.34804490E+00
+ 0.12060780E+00-0.53455599E-01-0.72414532E-01-0.62181700E-01
+ 0.72520478E-02-0.68008709E-02-0.18895410E-02-0.49206872E-01
+ 0.22133170E-01-0.39399490E-01 0.73827431E-01 0.26686329E+00
+-0.62295729E-02 0.16642731E-01 0.31365991E-01-0.12909980E-01
+ 0.56737131E-02-0.32509670E-02 0.99651599E-02 0.36948171E-03
+-0.28832041E-01-0.47178552E-01-0.71554147E-01-0.40941492E-01
+ 0.48806490E-02 0.26460391E+00-0.31687770E-01 0.16307250E-01
+-0.11978931E-02-0.13970620E-01-0.72788149E-02 0.67240253E-01
+ 0.89345470E-01-0.66669710E-01-0.16729830E+00-0.63457258E-01
+ 0.16456559E+00-0.95783129E-01-0.10642790E-01-0.71666762E-01
+ 0.26126700E-01-0.16986160E-01-0.80947177E-02 0.79378160E-02
+-0.77990860E-01 0.10032820E+00 0.19100620E+00-0.74023902E-01
+-0.14744809E+00-0.63834064E-01 0.11956610E-01-0.92431404E-01
+-0.29885700E-01-0.86743422E-01 0.10724250E-01-0.14924220E-01
+-0.40993551E-02 0.85376035E-02-0.95699681E-02-0.66010058E-02
+ 0.12648840E-02 0.22884950E-02-0.33944149E-01-0.32145921E-01
+ 0.13464840E-01-0.14671860E-01 0.21670321E+00 0.11220420E-02
+-0.13439360E-01-0.53468551E-02 0.17981390E-02 0.10331180E-01
+-0.35916580E-03-0.21513570E-02 0.29335219E-01 0.45677102E-02
+-0.11280190E-01-0.40251650E-01-0.21399620E+00-0.17965719E-01
+ 0.12942630E-01 0.68522978E-03-0.11765240E-01 0.15343160E-01
+-0.90290168E-02 0.24907130E-02 0.50995531E-02 0.21679669E-02
+ 0.38786109E-02-0.57905522E-03 0.17419171E-01 0.22792511E-02
+-0.94749033E-02-0.82597531E-01-0.33956200E-01 0.30473650E-02
+-0.14842750E-02 0.28076780E-02 0.36698349E-02-0.11604540E-02
+-0.53707352E-02 0.90783918E-02-0.23178380E-01-0.32138320E-04
+ 0.10723760E-01 0.41313209E-02 0.34484830E-01-0.78633837E-01
+ 0.15273130E-02 0.88557964E-02-0.25803000E-02-0.43758960E-02
+-0.59484178E-02 0.55723451E-02 0.49004070E-02-0.80038933E-02
+ 0.66925311E-02-0.11256730E-01 0.17636061E-01 0.10242460E-01
+ 0.10128180E-01-0.34672280E-02 0.85627253E-03-0.57201870E-02
+-0.30031791E-02-0.66873478E-02 0.23144930E-03 0.74646329E-02
+-0.53690439E-02-0.35037480E-02-0.19947410E-01-0.16702570E-01
+-0.94654132E-02 0.87096831E-02 0.10921680E-01 0.53740311E-02
+ 0.74423701E-02-0.43384260E-02 0.61960239E-02 0.57885810E-02
+ 0.24910299E-02-0.35005340E-02-0.14298450E-02-0.38411799E-02
+-0.79299286E-02 0.10289280E-01 0.12049330E-02-0.82924748E-02
+ 0.17799770E-02 0.48576319E-02 0.49866880E-02-0.83169350E-02
+-0.84308516E-02-0.24144461E-02 0.44936099E-03-0.33364720E-02
+ 0.58495449E-02-0.23060280E-02-0.10994010E-02 0.11091250E-01
+ 0.93547707E+01 0.94435424E-01-0.14767210E+00 0.22325320E-01
+-0.66562682E-01 0.64551872E-02 0.71012988E-02 0.15312399E-02
+ 0.52756178E-02-0.43810979E-02 0.78036692E-02 0.82717033E-03
+ 0.32220511E-02 0.14309660E+01-0.55806363E+00-0.93664098E+00
+ 0.87361977E-01-0.11427000E+00 0.95004059E-01-0.61816931E-01
+ 0.29382510E-01 0.26647501E-01-0.19820159E-01-0.67789271E-01
+ 0.34543779E-01 0.35740949E-01 0.22403170E+02 0.11766330E+01
+ 0.82376349E+00 0.19529510E+01 0.22652730E+00 0.17555369E+00
+-0.18350120E+00-0.66431187E-01-0.92821591E-01 0.11012020E+00
+-0.13188531E+00-0.25610650E-01-0.85806943E-01-0.22566540E+02
+ 0.13263060E+02 0.11604850E+02-0.77718630E-01 0.30070400E+01
+-0.14669040E+01 0.54266959E+00-0.84608930E+00-0.57419229E+00
+ 0.35964799E+00 0.11558980E+01-0.52936751E+00-0.49019110E+00
+-0.10281270E+03-0.14699399E+01-0.36512151E+01-0.11031530E+02
+-0.24080000E+01-0.15228790E+01 0.86638421E+00 0.76788390E+00
+ 0.57450140E+00-0.81555820E+00 0.76482791E+00 0.44512771E-01
+ 0.64458847E+00 0.79656731E+02-0.83956902E+02-0.35388828E+02
+-0.70181900E+00-0.96533747E+01 0.59159298E+01-0.27052140E+01
+ 0.44240718E+01 0.24526210E+01-0.17300210E+01-0.51857290E+01
+ 0.23146141E+01 0.22100699E+01 0.16244130E+03-0.11576810E+02
+ 0.13016120E+02 0.22480110E+02 0.93512135E+01 0.39900379E+01
+-0.13231870E+01-0.26015329E+01-0.15997460E+01 0.21655221E+01
+-0.18506221E+01 0.13328239E+00-0.17413990E+01-0.10607080E+03
+ 0.20927130E+03 0.14487420E+02 0.59226370E+00 0.12434720E+02
+-0.10261970E+02 0.61219492E+01-0.91074429E+01-0.42143550E+01
+ 0.35042429E+01 0.99167376E+01-0.44190259E+01-0.43868151E+01
+-0.13010770E+03 0.21941971E+02-0.16742170E+02-0.19974190E+02
+-0.12768410E+02-0.42729392E+01 0.66447687E+00 0.33461461E+01
+ 0.19431520E+01-0.23738630E+01 0.19650980E+01-0.34161970E+00
+ 0.19453820E+01 0.53778221E+02-0.22360291E+03 0.42514332E+02
+ 0.13637609E+01-0.74987049E+01 0.81515656E+01-0.60994072E+01
+ 0.82596903E+01 0.32012229E+01-0.31969941E+01-0.86662340E+01
+ 0.38968310E+01 0.39740779E+01 0.44345161E+02-0.10213470E+02
+ 0.66664901E+01 0.65673261E+01 0.57137508E+01 0.16328560E+01
+-0.25260560E-01-0.14565430E+01-0.83667690E+00 0.92139208E+00
+-0.75927711E+00 0.19097050E+00-0.76939768E+00-0.63921409E+01
+ 0.85842140E+02-0.32378651E+02-0.12869270E+01 0.18333200E+01
+-0.24308519E+01 0.22054369E+01-0.27592289E+01-0.88867527E+00
+ 0.10843440E+01 0.28513479E+01-0.13001550E+01-0.13444920E+01
+-0.25454950E+00 0.16294301E+01 0.19727200E+01 0.12602711E+00
+ 0.28916270E+00 0.66119820E-01 0.25946621E-01 0.75717899E-02
+ 0.69227838E-02-0.17887180E-02 0.39066910E-02 0.39208801E-02
+ 0.34577770E-02-0.10874810E+00-0.16205209E+01 0.15131360E+01
+-0.30761629E+00 0.11592150E+00-0.43206900E-01 0.40799111E-01
+-0.15789440E-01-0.43555112E-02-0.48596528E-02 0.32399721E-02
+-0.40565699E-03 0.18198061E-02-0.21058969E+01 0.20347030E+01
+ 0.45072490E+00 0.25951359E+00 0.68414921E+00 0.35181189E+00
+ 0.27433711E+00 0.65732419E-01 0.87554470E-01-0.37391558E-01
+ 0.19905910E-01 0.38603149E-01 0.11190110E-01-0.88665128E+00
+ 0.26663871E+01 0.23488829E+01-0.65570742E+00 0.30059490E+00
+-0.11432650E+00 0.14961991E+00-0.74486062E-02 0.23148891E-01
+-0.10965490E-01-0.81649072E-01-0.44137299E-01 0.59887089E-01
+ 0.78613310E+01 0.11207220E+02-0.38972349E+01-0.42469791E+00
+-0.12150370E+01-0.10411340E+01 0.20888691E+01-0.29721180E+00
+-0.22406660E+00 0.10835770E-01-0.24859491E-02-0.10010180E+00
+-0.14351679E+00-0.34586531E+00-0.10270400E+01 0.16597750E+02
+ 0.13850880E+01-0.12289770E+00-0.14268310E+01-0.90681762E+00
+ 0.64707339E+00 0.13637510E+00 0.16905530E+00-0.66121191E-01
+ 0.18455820E-01 0.34627069E-01 0.40223240E+02-0.21847240E+02
+ 0.21056931E+02-0.18314730E+02 0.10447670E+01-0.73053031E+01
+-0.55275311E+01-0.11359110E+01-0.13362930E+01 0.83694178E+00
+-0.50075489E+00-0.48170769E+00-0.26580539E+00 0.24416100E+02
+-0.49425621E+02-0.24544781E+02-0.12368391E+01-0.18222250E+02
+ 0.36764369E+01-0.40472312E+01-0.59959602E+00-0.37455268E-01
+ 0.78904569E-01 0.13730600E+01 0.72332168E+00-0.85321403E+00
+-0.39849861E+02-0.17024130E+02 0.60561878E+02-0.79050608E+01
+-0.64610500E+01 0.40380759E+01-0.14608400E+02 0.22936471E+01
+ 0.23707719E+01-0.41451821E+00 0.11717310E+00 0.37324059E+00
+ 0.12872339E+01 0.22597281E+02-0.38161671E+02-0.17275700E+02
+ 0.37955270E+01-0.84898453E+01 0.86587076E+01 0.50051250E+01
+-0.59441242E+01-0.15101370E+01-0.15327500E+01 0.17278470E+00
+ 0.27291659E-01-0.79695749E+00-0.19244389E+03 0.57035229E+02
+-0.14031551E+03 0.11317260E+03-0.14888750E+02 0.39515610E+02
+ 0.27475420E+02 0.54031439E+01 0.48526688E+01-0.31892171E+01
+ 0.42042089E+01 0.20495999E+01 0.18567340E+01-0.11507540E+03
+ 0.24083820E+03 0.10535410E+03 0.14320830E+02 0.11078750E+03
+-0.20546320E+02 0.22854549E+02 0.55304451E+01 0.23623531E+00
+-0.25553361E+00-0.43976779E+01-0.28276920E+01 0.38684371E+01
+ 0.81606201E+02-0.89484573E+02-0.18618919E+03 0.38297878E+02
+ 0.30664070E+02-0.66584339E+01 0.37148750E+02-0.69217811E+01
+-0.81540909E+01 0.16584390E+01-0.64771110E+00-0.35503519E+00
+-0.38645720E+01-0.89106682E+02 0.13662810E+03-0.15981520E+03
+-0.20381300E+02 0.35323830E+02-0.18508829E+02-0.11615120E+02
+ 0.18359480E+02 0.46901770E+01 0.49313908E+01 0.44851389E-01
+-0.50864363E+00 0.31341910E+01 0.40024850E+03-0.45440411E+02
+ 0.35721381E+03-0.26512079E+03 0.33408642E+02-0.88647636E+02
+-0.59285480E+02-0.10264190E+02-0.61725898E+01 0.43615961E+01
+-0.12191660E+02-0.41268182E+01-0.51963038E+01 0.20361670E+03
+-0.51620300E+03-0.20040179E+03-0.27084370E+02-0.25844489E+03
+ 0.46650761E+02-0.51223080E+02-0.16576349E+02-0.96585178E+00
+ 0.53395569E-01 0.41695499E+01 0.46621480E+01-0.78402209E+01
+-0.75416618E+02 0.21635570E+03 0.23208211E+03-0.56864540E+02
+-0.40050961E+02 0.43362899E+01-0.41691891E+02 0.87840958E+01
+ 0.10947530E+02-0.23495171E+01 0.10049340E+01-0.12888549E+00
+ 0.47184649E+01 0.11683670E+03-0.17837041E+03 0.35815189E+03
+ 0.25824820E+02-0.49240891E+02 0.18394199E+02 0.11584140E+02
+-0.22775049E+02-0.55876899E+01-0.63906832E+01-0.57602769E+00
+ 0.10030750E+01-0.44124761E+01-0.38398901E+03-0.79839869E+01
+-0.39852469E+03 0.27194550E+03-0.33445389E+02 0.88522850E+02
+ 0.58473782E+02 0.82799463E+01 0.20352280E+01-0.20685310E+01
+ 0.14457780E+02 0.39883609E+01 0.62014999E+01-0.14077769E+03
+ 0.50829880E+03 0.17304201E+03 0.21245550E+02 0.26601489E+03
+-0.46811340E+02 0.50267921E+02 0.20307859E+02 0.12490360E+01
+ 0.58130020E+00 0.41901881E+00-0.35196719E+01 0.73897071E+01
+ 0.25632120E+02-0.12219300E+03-0.10039580E+03 0.27291531E+02
+ 0.17309320E+02-0.66999638E+00 0.17317860E+02-0.39147880E+01
+-0.50096488E+01 0.11216940E+01-0.47204641E+00 0.22226261E+00
+-0.20306070E+01-0.50033180E+02 0.78215561E+02-0.20110570E+03
+-0.10877300E+02 0.22829700E+02-0.72768641E+01-0.41083140E+01
+ 0.97976494E+01 0.22942390E+01 0.28628531E+01 0.45252049E+00
+-0.55030298E+00 0.20862160E+01 0.13872290E+03 0.16700500E+02
+ 0.16167900E+03-0.10334940E+03 0.13437560E+02-0.32571930E+02
+-0.21487341E+02-0.23172891E+01 0.61454183E+00 0.80908857E-01
+-0.60578270E+01-0.14818929E+01-0.26358840E+01 0.29052340E+02
+-0.18641479E+03-0.55731010E+02-0.66627831E+01-0.10201660E+03
+ 0.17178850E+02-0.18057541E+02-0.87840252E+01-0.51724023E+00
+-0.46594781E+00-0.15355310E+01 0.10055920E+01-0.26488960E+01
+ 0.19166890E+00-0.38992319E+00-0.90179138E-01-0.99864268E+00
+ 0.46941790E+00-0.18217669E+00-0.59367500E-01 0.28427729E-01
+ 0.26606290E-01-0.40350342E-02-0.38554000E-02 0.57037072E-02
+-0.37864989E-03-0.23662210E-01 0.99007271E-01-0.38540739E+00
+-0.47123569E+00-0.98943031E+00 0.73812723E-01-0.19270740E+00
+-0.25629230E-01 0.21731099E-01 0.36118031E-02-0.62006358E-02
+ 0.35662991E-02 0.38442290E-02 0.48420519E+00-0.16255161E+01
+-0.25960681E+00-0.29938000E+00-0.27281681E+00 0.95884460E+00
+-0.94452697E+00-0.92045993E-01 0.12622580E+00 0.17949530E-02
+-0.52652238E-02 0.23287810E-01-0.13761200E-01 0.11375610E+01
+ 0.51148820E+00-0.15628400E+01 0.10464390E+00-0.38675940E+00
+ 0.10567950E+01 0.10569431E+01-0.13864660E+00-0.27695339E-01
+ 0.33617601E-01-0.54856759E-01 0.26322270E-01 0.24837051E-01
+-0.35404711E+01 0.21111650E+01-0.12796490E+00-0.46463180E+01
+ 0.38224089E+01 0.20060310E-01-0.41063660E+00-0.38211781E+00
+ 0.21207580E+00 0.98014988E-01 0.11454040E+00-0.15754791E+00
+-0.23091219E-01-0.30399520E+01 0.24415350E+00 0.22352600E+01
+-0.40578232E+01-0.47980342E+01-0.43834299E-01 0.15578330E+00
+-0.37553489E+00-0.27276659E+00-0.15564001E+00 0.13051450E+00
+-0.66816889E-01-0.10006940E+00-0.38765140E+01 0.11966560E+02
+-0.51347691E+00 0.45283818E+01 0.42639871E+01-0.49687781E+01
+ 0.40466142E+01 0.16145149E+01-0.47199199E+00 0.13927500E+00
+ 0.79474010E-01-0.21209089E+00 0.89506559E-01-0.12437370E+02
+-0.14019910E+01 0.10422450E+02-0.24578171E+01 0.54259748E+01
+-0.46141272E+01-0.59625859E+01 0.42019060E+00 0.78122491E+00
+-0.38790011E+00 0.76803720E+00-0.35609180E+00-0.25897750E+00
+ 0.17841181E+02-0.65704370E+00-0.11340750E+02 0.27988911E+02
+-0.11344540E+02-0.16836470E+01 0.36964970E+01 0.13259100E+01
+-0.11993850E+01-0.49881491E+00-0.64178163E+00 0.78950042E+00
+ 0.83582148E-01 0.17845961E+02 0.11617120E+02-0.17158730E+01
+ 0.12811990E+02 0.28960421E+02-0.20379660E+01-0.19610831E+01
+ 0.18646840E+01 0.67695272E+00 0.10810111E+01-0.20662341E+00
+ 0.24744090E+00 0.43161631E+00 0.81946507E+01-0.28997110E+02
+ 0.21658289E+01-0.14078750E+02-0.12794540E+02 0.75348520E+01
+-0.52474771E+01-0.42727699E+01-0.21187840E-01-0.49833211E+00
+-0.83445311E-01 0.51152313E+00-0.26638770E+00 0.27061609E+02
+ 0.29291661E+01-0.25191700E+02 0.86504011E+01-0.16415590E+02
+ 0.60773520E+01 0.98346872E+01 0.27588829E+00-0.21495881E+01
+ 0.83895159E+00-0.20250189E+01 0.10232199E+01 0.64849210E+00
+-0.32866749E+02-0.12512389E+01 0.34257660E+02-0.40842480E+02
+ 0.12191210E+02 0.90425396E+01-0.79171238E+01-0.15042430E+01
+ 0.15527220E+01 0.91796219E+00 0.10457540E+01-0.14335680E+01
+ 0.24405900E-01-0.35212399E+02-0.36491600E+02 0.22469239E+01
+-0.14777860E+02-0.43216209E+02 0.61541638E+01 0.90968704E+01
+-0.23826480E+01-0.17138989E+00-0.20984731E+01-0.23137090E+00
+-0.45955029E+00-0.72742587E+00-0.60548449E+01 0.20889771E+02
+-0.46476440E+01 0.12564150E+02 0.10998490E+02-0.33720379E+01
+ 0.20944719E+01 0.29385500E+01 0.66770160E+00 0.42201141E+00
+ 0.82655279E-02-0.36884230E+00 0.22974740E+00-0.17000200E+02
+ 0.12012000E+01 0.18296980E+02-0.83228865E+01 0.14325810E+02
+-0.24632931E+01-0.49182529E+01-0.88199562E+00 0.14405590E+01
+-0.53132701E+00 0.14606210E+01-0.79567879E+00-0.47345960E+00
+ 0.19405170E+02 0.14647750E+01-0.21907160E+02 0.16930540E+02
+-0.45841751E+01-0.87197180E+01 0.48121600E+01 0.41978121E+00
+-0.64758569E+00-0.59301841E+00-0.52340752E+00 0.87313271E+00
+-0.13409071E+00 0.20882290E+02 0.23987881E+02-0.12362421E+01
+ 0.59420981E+01 0.18665300E+02-0.43748741E+01-0.85753536E+01
+ 0.93798310E+00-0.42840940E+00 0.12339890E+01 0.34365749E+00
+ 0.33265060E+00 0.44052890E+00-0.17296139E-01 0.85536458E-01
+ 0.30148831E+00 0.19186820E+00 0.10544930E-01-0.13411540E+00
+-0.98203951E+00 0.92303380E-01-0.99146239E-01-0.15671950E-01
+ 0.17502571E-01 0.22134581E-02 0.21222569E-02 0.11187940E-01
+-0.30834559E+00 0.97301371E-01-0.18212670E-01 0.19187640E+00
+ 0.98002487E+00-0.12412600E+00 0.95824271E-01 0.90566151E-01
+-0.15401720E-01-0.16855940E-01 0.49769541E-03-0.91295713E-03
+ 0.10988840E+00 0.26618829E+00 0.45133740E+00 0.17011370E+00
+-0.56576598E-01-0.32227200E+00-0.18251340E+00 0.34211760E-02
+ 0.65861970E-01-0.50513469E-01 0.15994780E-01-0.42952648E-02
+-0.46664411E-02-0.69784470E-01-0.51056498E+00 0.22080401E+00
+ 0.35500672E-01 0.13624580E+00 0.17732410E+00-0.29869381E+00
+-0.69599867E-01-0.23466529E-01 0.64911968E-02-0.52066032E-01
+ 0.82920277E-02-0.11159220E-01 0.35405219E+00-0.31214669E+00
+-0.17567370E+01-0.93545032E+00 0.53183779E-01 0.12695390E+01
+ 0.24644420E+01-0.31944580E-01 0.48049811E+00 0.15449610E+00
+-0.11688760E+00-0.18566379E-01-0.76334149E-01-0.21231310E+00
+ 0.22005379E+01-0.51546592E+00 0.61741069E-01-0.86032039E+00
+-0.23685470E+01 0.12614340E+01-0.47417489E+00-0.70016883E-01
+ 0.56712110E-01 0.15769400E+00 0.25434840E-01 0.26543049E-01
+-0.31962651E+00 0.21535350E+00-0.10917760E+01-0.15515280E+00
+ 0.49390420E-01 0.27333399E-01 0.25486040E+00-0.25006549E-01
+ 0.14577030E-01-0.40570859E-01 0.46907919E-02 0.27666600E-01
+-0.21347690E-02 0.14449920E+00 0.12784560E+01 0.14780360E+00
+-0.53940360E-02-0.47993928E-01-0.25655049E+00-0.16601119E-01
+-0.12642690E-01 0.42974250E-02-0.38182519E-01-0.40410221E-01
+-0.53477711E-02 0.36328830E-01-0.73980170E+00 0.88311511E+00
+ 0.27117360E+01 0.11296880E+01-0.26595280E+00-0.38749700E+01
+-0.34473851E+01-0.81484653E-01-0.51621681E+00-0.30940229E+00
+ 0.93943238E-01 0.50040991E-02 0.12241810E+00 0.36053380E+00
+-0.35324371E+01 0.11858050E+01 0.87118573E-01 0.96435112E+00
+ 0.32956619E+01-0.39007750E+01 0.51950538E+00-0.14154460E-01
+-0.39124298E-02-0.30296579E+00-0.45444801E-01-0.56357749E-01
+ 0.53922320E-02-0.53324769E-02-0.63990452E-02-0.10572130E+00
+-0.15408060E-02-0.73591217E-01 0.10188860E+00 0.30503389E+00
+-0.81326008E-01 0.29231010E-01 0.53476699E-01-0.18781351E-01
+-0.20258620E-01 0.67692338E-02 0.25081940E-01-0.29277650E-02
+-0.72118230E-02-0.11059470E+00-0.10213700E+00-0.69088101E-01
+ 0.85495137E-01 0.30004740E+00-0.53898331E-01 0.29215880E-01
+ 0.22690071E-01-0.20856321E-01-0.87676626E-02 0.11462240E+00
+ 0.89651838E-01-0.30857099E-01-0.29404899E-01-0.73048212E-01
+ 0.21116699E+00 0.23591530E-01-0.92142999E-01-0.14129830E-01
+-0.27145941E-01 0.68665990E-02 0.22813811E-02-0.15904739E-01
+-0.61801720E-01 0.13099350E+00 0.66166759E-01-0.40139861E-01
+-0.19698860E+00-0.60159892E-01 0.88164642E-01 0.23127040E-01
+ 0.17583210E-01-0.23685530E-01-0.54961010E-02 0.64686821E-02
+-0.51511731E-02 0.68826019E-03-0.19989271E-01-0.16562890E-03
+-0.36368170E-02 0.71664013E-01-0.46954181E-01-0.36570251E-01
+-0.37350200E-01 0.49707249E-01 0.22067130E+00-0.39376081E-02
+-0.11027789E-02-0.18578779E-03 0.17547110E-01 0.20651559E-02
+ 0.78212330E-02 0.10205091E-02 0.36112711E-01 0.78165323E-01
+ 0.41763268E-01-0.42489070E-01-0.21988709E+00 0.47334831E-01
+-0.29336201E-03-0.26998890E-02-0.59714471E-02 0.39821300E-02
+-0.41550340E-03 0.36237440E-02 0.63067912E-02 0.81148921E-02
+ 0.14417000E-01-0.80975937E-02 0.17010599E-01 0.25986720E-01
+-0.25539629E-01-0.12136800E+00 0.16201239E-01 0.29684750E-02
+ 0.68779662E-02-0.19962071E-02 0.22969141E-02 0.14741990E-02
+-0.17610440E-01 0.10584620E-01-0.24363911E-01-0.70750141E-02
+ 0.25302920E-01 0.25038211E-01-0.13148150E-01-0.12022550E+00
+-0.68478701E-04-0.58615291E-02 0.13993010E-02 0.18539010E-02
+-0.84123136E-02 0.30030659E-02 0.33575711E-02-0.50316649E-02
+ 0.66559138E-02-0.25532560E-02 0.16248791E-01 0.32696489E-01
+-0.13354380E-02-0.85995178E-03 0.27335349E-02-0.83511584E-02
+-0.79977444E-05 0.75979140E-02-0.12553000E-02 0.82476754E-02
+-0.53233518E-02-0.59170760E-02-0.14535590E-01-0.65860492E-02
+-0.97153173E-03 0.32018151E-01-0.45233448E-02 0.37626430E-03
+ 0.30441509E-03 0.17461960E-02 0.95635206E-02-0.28880259E-02
+ 0.38316890E-02-0.19861360E-02-0.10522470E-02-0.21488541E-02
+-0.57332800E-02 0.33096280E-02-0.22209419E-02-0.78918869E-02
+-0.44432021E-03-0.13927460E-02 0.53621819E-02-0.52622128E-02
+-0.65002390E-02-0.54654032E-02-0.58530141E-02 0.59945171E-03
+ 0.34601099E-02 0.27597570E-03 0.48157112E-02 0.18242270E-02
diff --git a/input/glow_data/iri90/ursi14.asc b/input/glow_data/iri90/ursi14.asc
new file mode 100644
index 0000000..67bded0
--- /dev/null
+++ b/input/glow_data/iri90/ursi14.asc
@@ -0,0 +1,494 @@
+ 0.64899988E+01 0.50178869E-02-0.69321902E-02 0.17638080E-01
+ 0.21982741E-01 0.47351038E-02-0.28465299E-02 0.15985440E-01
+ 0.42822901E-01 0.26407911E-01-0.13050320E-01-0.23967160E-01
+-0.10773160E-01-0.68047529E+00 0.98848748E+00-0.90065841E-02
+ 0.27676361E-01-0.23990580E+00-0.12701730E+00-0.90494134E-01
+-0.38701508E-01 0.13827381E+00 0.63325398E-01-0.30193411E-01
+-0.15440580E+00 0.66317268E-01 0.11870540E+02 0.40570140E+00
+ 0.20949540E+01 0.13432000E+01-0.24496930E+01-0.58164352E+00
+ 0.27426851E+00-0.90289019E-01-0.46283081E+00-0.43063289E+00
+-0.16091719E-01 0.25117949E+00 0.32835001E+00 0.96424131E+01
+-0.18413071E+02 0.85092697E+01 0.40963030E+01 0.23582749E+01
+ 0.77074349E+00 0.29515820E+01 0.55822700E+00-0.19189920E+01
+-0.25062260E+00-0.34167850E+00 0.22713139E+01-0.10884930E+01
+-0.78885818E+02-0.34095900E+01-0.93490486E+01-0.64140158E+01
+ 0.93715820E+01 0.30725889E+01-0.58728421E+00 0.11506830E+01
+ 0.90680349E+00 0.25807209E+01 0.29657310E+00-0.84273863E+00
+-0.18648640E+01-0.20260990E+02 0.71423531E+02-0.52559090E+02
+-0.26476290E+02-0.10414931E+01-0.22052839E+00-0.15583630E+02
+-0.25287299E+01 0.80369272E+01 0.17221510E+00 0.27083521E+01
+-0.10231010E+02 0.42114491E+01 0.15959950E+03 0.63354592E+01
+ 0.18790051E+02 0.11068690E+02-0.13348450E+02-0.56865139E+01
+-0.13559170E+00-0.43157129E+01 0.53892291E+00-0.62733111E+01
+-0.68436378E+00 0.11784670E+01 0.41747079E+01 0.92737478E+00
+-0.10426850E+03 0.11545530E+03 0.56343620E+02-0.12349420E+02
+-0.48600821E+01 0.32150551E+02 0.55670938E+01-0.15127190E+02
+ 0.48118350E+00-0.64243531E+01 0.20070820E+02-0.67342620E+01
+-0.15263470E+03-0.45073652E+01-0.16191710E+02-0.86600676E+01
+ 0.77653699E+01 0.41571522E+01 0.93447411E+00 0.58013449E+01
+-0.24437521E+01 0.65546112E+01 0.60194600E+00-0.67881602E+00
+-0.41042190E+01 0.26191420E+02 0.61067402E+02-0.10887820E+03
+-0.49921429E+02 0.19823160E+02 0.85874138E+01-0.29193451E+02
+-0.58614931E+01 0.13400430E+02-0.81193262E+00 0.63701558E+01
+-0.18006861E+02 0.48205009E+01 0.56833130E+02 0.11609730E+01
+ 0.45632758E+01 0.26611791E+01-0.13215120E+01-0.93993843E+00
+-0.47444740E+00-0.25791800E+01 0.14377960E+01-0.24643281E+01
+-0.18370360E+00 0.11281640E+00 0.14840610E+01-0.15306410E+02
+-0.10732080E+02 0.37625111E+02 0.15935190E+02-0.85632381E+01
+-0.41929612E+01 0.97671061E+01 0.23173089E+01-0.45479112E+01
+ 0.34619781E+00-0.22882161E+01 0.60603490E+01-0.12764291E+01
+-0.17786551E+00 0.20805621E+01 0.19224670E+01 0.40890370E-01
+ 0.96240140E-01-0.62644728E-01-0.36037380E-02-0.45562780E-03
+ 0.41939668E-01 0.44281479E-01-0.37563208E-01-0.41265119E-01
+-0.25936721E-01-0.23707470E+00-0.16078870E+01 0.21715391E+01
+-0.11340490E+00 0.33357318E-01-0.83667040E-02 0.22345340E-01
+ 0.23030300E-01-0.15404500E-01 0.23499939E-02 0.16663531E-01
+ 0.17045509E-01-0.16066059E-01 0.40916851E+00 0.93191701E+00
+ 0.43554780E+00 0.46965289E+00 0.32646441E+00 0.29783601E+00
+ 0.49996570E+00 0.14928150E+00 0.30187979E+00 0.10741830E+00
+-0.12691000E+00-0.15271550E+00-0.13876000E-01-0.95388567E+00
+-0.23492190E+00 0.16283420E+01-0.36919779E+00 0.26188961E+00
+-0.76678598E+00 0.29759589E+00-0.18379401E+00-0.28936461E-01
+-0.21398219E+00 0.17203569E+00 0.14461480E+00-0.13272710E-01
+ 0.28782570E+01 0.63586860E+01 0.66632991E+01 0.13838629E+00
+-0.42467918E+01 0.57699502E+00 0.39607379E+01 0.59885138E+00
+-0.69748789E-01-0.60470682E+00 0.75366467E-01 0.87774378E+00
+ 0.40032089E+00 0.41973972E+01-0.93194008E+01 0.42316270E+01
+ 0.38434861E+01 0.14341830E+00-0.33018260E+01-0.63141513E+00
+-0.70634449E+00 0.56558359E+00 0.10731220E+00 0.18550670E+00
+-0.30568901E+00-0.22303480E+00-0.18298990E+02-0.92852573E+01
+ 0.11389630E+02-0.13827020E+02 0.51291580E+01-0.87131300E+01
+-0.79085212E+01 0.21206160E+00-0.30617671E+01-0.13225110E+01
+ 0.13710140E+01 0.16418110E+01 0.14620230E+00 0.16493460E+02
+ 0.34262819E+01-0.57888298E+01-0.86521912E+01-0.71964092E+01
+ 0.12822940E+02-0.78871460E+01 0.19921989E+01 0.22648029E+01
+ 0.35854459E+01-0.30207050E+01-0.22464671E+01-0.58199388E+00
+-0.11277960E+02-0.39589390E+02 0.63053841E+02 0.72281981E+01
+ 0.24413019E+02-0.30706439E+01-0.31036671E+02-0.21342020E+01
+-0.13338530E+00 0.15528491E+01 0.14686641E+01-0.55043440E+01
+-0.32710350E+01-0.21218800E+02-0.51909180E+02-0.18641451E+02
+-0.28456039E+02 0.10905070E+02 0.26382839E+02 0.14375980E+01
+ 0.33813460E+01-0.36645291E+01-0.53133190E+00-0.33457761E+01
+ 0.12659431E+01 0.13944080E+01 0.11141360E+03 0.59954922E+02
+-0.82605240E+02 0.66889893E+02-0.36224319E+02 0.51258049E+02
+ 0.42679611E+02-0.41947789E+01 0.87270603E+01 0.72543640E+01
+-0.43347168E+01-0.64962502E+01-0.88751292E+00-0.10478220E+03
+-0.30567860E+02 0.57370369E+02 0.60287369E+02 0.31659100E+02
+-0.69509804E+02 0.46892502E+02-0.66201723E+00-0.12534610E+02
+-0.16389509E+02 0.13689080E+02 0.11180720E+02 0.31372361E+01
+ 0.18426250E+02 0.44481312E+02-0.35658459E+03-0.32822571E+02
+-0.60315369E+02 0.88491259E+01 0.82518387E+02 0.11129030E+01
+ 0.51784372E+00-0.86615443E-01-0.65912838E+01 0.13700970E+02
+ 0.10060850E+02 0.51843311E+02 0.32383969E+03-0.24911551E+02
+ 0.85347397E+02-0.50421188E+02-0.69269562E+02 0.23559899E+01
+-0.57414141E+01 0.90936232E+01 0.11440710E+01 0.11766090E+02
+-0.20266180E+01-0.29374030E+01-0.26437479E+03-0.16495540E+03
+ 0.20554340E+03-0.13064909E+03 0.89430801E+02-0.12140630E+03
+-0.97504921E+02 0.11525360E+02-0.83531370E+01-0.18151510E+02
+ 0.54051728E+01 0.11960610E+02 0.24579439E+01 0.26874371E+03
+ 0.81881287E+02-0.18949541E+03-0.14725771E+03-0.55858051E+02
+ 0.15845599E+03-0.11403810E+03-0.17074471E+02 0.26289400E+02
+ 0.31496901E+02-0.26645399E+02-0.24348810E+02-0.59402132E+01
+-0.16536409E+02 0.12563260E+02 0.53788733E+03 0.46315418E+02
+ 0.70976440E+02-0.11748860E+02-0.92227219E+02 0.23150971E+01
+-0.65307438E+00-0.30281420E+01 0.95573874E+01-0.14713770E+02
+-0.12621320E+02-0.57514179E+02-0.49312790E+03 0.10622150E+03
+-0.11127470E+03 0.73259247E+02 0.75788078E+02-0.82411547E+01
+ 0.34982779E+01-0.98995886E+01-0.12917720E+01-0.15491560E+02
+ 0.12897470E+01 0.28194370E+01 0.27649850E+03 0.19206619E+03
+-0.23294679E+03 0.11361840E+03-0.10053550E+03 0.12759430E+03
+ 0.98902512E+02-0.12387370E+02 0.28321370E+00 0.20453609E+02
+-0.23982680E+01-0.10317340E+02-0.29501619E+01-0.28727850E+03
+-0.77026932E+02 0.23287959E+03 0.16096510E+03 0.43534050E+02
+-0.16024989E+03 0.12325470E+03 0.32366890E+02-0.24067730E+02
+-0.27238140E+02 0.24031981E+02 0.24172449E+02 0.48967838E+01
+ 0.62049270E+01-0.26668159E+02-0.25108031E+03-0.20902691E+02
+-0.31474609E+02 0.55651450E+01 0.37195091E+02-0.19004000E+01
+ 0.29873431E+00 0.22171891E+01-0.45718341E+01 0.57095208E+01
+ 0.55362811E+01 0.23498400E+02 0.22993280E+03-0.70892921E+02
+ 0.51512932E+02-0.34013229E+02-0.29855740E+02 0.52336650E+01
+-0.36354581E+00 0.39725530E+01 0.59017420E+00 0.70095410E+01
+-0.22378939E+00-0.10671390E+01-0.10535200E+03-0.79442261E+02
+ 0.98239861E+02-0.36848011E+02 0.42424660E+02-0.49415920E+02
+-0.36909531E+02 0.46820269E+01 0.21856170E+01-0.84684143E+01
+ 0.77767998E-01 0.33628831E+01 0.12521830E+01 0.10757710E+03
+ 0.23991600E+02-0.97396309E+02-0.65689423E+02-0.12761520E+02
+ 0.59584370E+02-0.48960979E+02-0.16732830E+02 0.80664558E+01
+ 0.87522478E+01-0.83274651E+01-0.89574881E+01-0.14926749E+01
+ 0.25331569E+00 0.93557402E-01-0.17018411E+00-0.79615748E+00
+-0.42621720E+00-0.16552120E+00-0.16836740E+00 0.72762050E-01
+ 0.58785051E-01 0.16660230E-01-0.58278549E-02-0.41244239E-01
+-0.32578640E-01-0.51955178E-01 0.19117101E+00 0.92969701E-01
+ 0.34254831E+00-0.80126399E+00 0.14817320E+00-0.12089000E+00
+-0.16902320E-01 0.38504388E-01-0.91594141E-02 0.39130561E-02
+ 0.20818399E-01-0.20448290E-01 0.25952601E+00 0.48651051E-01
+ 0.10253630E+01 0.40701321E+00-0.40697071E+00 0.34225330E+00
+ 0.40755531E+00 0.32944989E+00 0.65031290E-01 0.60106192E-01
+-0.22559540E+00 0.61089192E-02 0.14675130E-01 0.97881913E-01
+-0.90078318E+00-0.27813700E+00 0.31500271E+00 0.48862529E+00
+-0.24107930E+00 0.47401011E+00-0.66500977E-01 0.17987210E+00
+ 0.12795299E+00 0.75902067E-01 0.86777657E-01-0.62511124E-01
+-0.51511278E+01 0.18867580E+01 0.18226470E+01 0.24929900E+01
+ 0.78900208E+01 0.12258980E+01 0.12808070E+01-0.81575757E+00
+ 0.10771830E+01-0.31439129E-01-0.17606661E+00 0.44655651E+00
+ 0.46896040E+00 0.18233269E+00-0.18998220E+01 0.10530130E+01
+-0.72654119E+01 0.26820149E+01-0.81743002E+00 0.96741623E+00
+-0.20824831E+01-0.54539829E+00 0.88485509E+00 0.12598710E+00
+-0.15973830E+00-0.75777799E-01-0.46791868E+01 0.17971890E+01
+-0.65306802E+01 0.64339218E+01 0.16085531E+01-0.13396230E+01
+-0.21529930E+01-0.27304580E+01 0.13934430E+01-0.10093410E+01
+ 0.12057739E+01 0.11928430E+00 0.52998042E+00-0.43391161E+01
+ 0.54421439E+01 0.27139399E+01-0.55862659E+00 0.48776560E+01
+ 0.86430740E+00-0.17695040E+01-0.73424011E+00-0.12487580E+01
+ 0.78165252E-03-0.13104570E+01-0.11163520E+01 0.56253570E+00
+ 0.24321180E+02-0.10339670E+01-0.53387032E+01 0.13128580E+02
+-0.27662451E+02-0.24979761E+01-0.20656819E+01 0.18310421E+01
+-0.64552660E+01-0.10181920E+00 0.13159540E+01-0.17096630E+01
+-0.17340651E+01 0.19536500E+00 0.56300640E+01 0.30611999E+01
+ 0.26086349E+02 0.13041740E+02-0.44003549E+00-0.18742270E+01
+ 0.11254140E+02 0.16987450E+01-0.43142781E+01-0.14149441E+01
+ 0.46163949E+00 0.59003031E+00 0.10720130E+02-0.78931990E+01
+ 0.12580800E+02-0.22526260E+02-0.18516181E+01 0.74274647E+00
+ 0.42351770E+01 0.64315662E+01-0.46716089E+01 0.26592090E+01
+-0.18988310E+01-0.48382279E+00-0.17509170E+01 0.11626560E+02
+-0.93327456E+01-0.81454659E+01-0.78027600E+00-0.18424061E+02
+-0.14913050E+01 0.10226640E+01 0.26423130E+01 0.27382100E+01
+-0.11322080E+01 0.35318389E+01 0.28310690E+01-0.13384020E+01
+-0.40973461E+02-0.53075700E+01 0.59944162E+01-0.43527710E+02
+ 0.37291561E+02 0.10402850E+01 0.58542311E-01-0.14267401E+01
+ 0.10468450E+02 0.26884300E+00-0.27639661E+01 0.25869479E+01
+ 0.25161681E+01-0.87355793E+00-0.69941659E+01-0.11131200E+02
+-0.35884418E+02-0.44712448E+02 0.46042171E+01 0.51252413E+00
+-0.18368210E+02-0.23388250E+01 0.70337009E+01 0.33253570E+01
+-0.67561328E+00-0.10195700E+01-0.65409832E+01 0.81250229E+01
+-0.95066175E+01 0.16291100E+02-0.25669770E+01 0.35353449E+00
+-0.26967471E+01-0.45977998E+01 0.36084559E+01-0.19024889E+01
+ 0.90324330E+00 0.40926960E+00 0.13612610E+01-0.82303181E+01
+ 0.71747251E+01 0.77579088E+01 0.46130600E+01 0.13467330E+02
+ 0.95651102E+00 0.40246221E+00-0.20790830E+01-0.19350930E+01
+ 0.12056520E+01-0.25660920E+01-0.19989130E+01 0.92855799E+00
+ 0.22288200E+02 0.36167431E+01 0.87003917E-01 0.29437679E+02
+-0.15665680E+02 0.50402093E+00 0.12806520E+01 0.49249831E+00
+-0.52314620E+01-0.15154140E+00 0.17435910E+01-0.13350230E+01
+-0.12875450E+01 0.42264310E+00 0.67112023E+00 0.65433588E+01
+ 0.15359420E+02 0.30683710E+02-0.40311160E+01 0.57784760E+00
+ 0.94286213E+01 0.13707510E+01-0.37364640E+01-0.21960690E+01
+ 0.41620690E+00 0.53418767E+00 0.44552941E-03 0.49377680E-01
+ 0.27646509E+00-0.15481409E+00-0.41937441E-01-0.90849899E-01
+-0.66837239E+00-0.30209441E-01-0.63514918E-01-0.52336082E-01
+-0.44370402E-01-0.11789610E-01-0.14281910E-01 0.14780050E-01
+-0.23699330E+00-0.20798590E-01-0.20646920E-01-0.15685169E+00
+ 0.68698150E+00-0.68307906E-01 0.63726380E-01-0.24377421E-01
+ 0.39925780E-01-0.61497532E-01 0.50678351E-02-0.10947430E-01
+ 0.33653289E-01 0.15869179E+00 0.46598470E+00 0.68128139E-01
+-0.34949329E+00-0.35039949E+00 0.12118120E+00 0.44556960E+00
+-0.24035720E-01 0.86970411E-01-0.86786307E-01-0.10305960E+00
+ 0.10042170E+00-0.53532239E-01-0.49071771E+00 0.15344970E+00
+ 0.29031411E+00-0.21914640E-01-0.13915510E+00-0.30863741E+00
+ 0.47132000E-01 0.48206881E+00 0.12552440E+00 0.11157950E+00
+-0.74022040E-01-0.14929660E+00 0.32181180E+00 0.27910241E+00
+-0.12874980E+01 0.13353770E+01-0.10129820E+01-0.39356190E+00
+ 0.13176320E+01-0.19442190E+00 0.61132210E+00 0.40762961E+00
+ 0.40450919E-01-0.40347991E-02 0.10987920E+00-0.18026701E+00
+ 0.97798699E+00 0.72064668E+00 0.13318250E+01 0.13136539E+01
+-0.15031511E+01-0.63050967E+00-0.49028769E+00-0.89295417E-01
+ 0.29514750E-01 0.61451632E+00-0.45330629E-01-0.22190521E-01
+-0.15117370E+00 0.92359290E-01-0.97989368E+00 0.18739571E+00
+ 0.26768270E+00 0.87701881E+00 0.14933650E+00-0.87325901E+00
+ 0.14802320E+00-0.18408020E+00 0.20293580E+00 0.16812231E+00
+-0.15113100E+00 0.12034730E+00 0.10927160E+01 0.56978472E-01
+-0.12487290E+00 0.36319971E+00-0.13350751E+00 0.80182183E+00
+-0.18683641E+00-0.91932982E+00-0.26896161E+00-0.23561190E+00
+ 0.11018860E+00 0.25608259E+00-0.59919858E+00-0.75263518E+00
+ 0.13537050E+01-0.15400860E+01 0.20439990E+01 0.10920950E+00
+-0.16494700E+01 0.66334921E+00-0.91422349E+00-0.46250600E+00
+ 0.90308569E-01 0.64393580E-01-0.15737440E+00 0.30576131E+00
+-0.10252670E+01-0.12986040E+01-0.24391041E+01-0.15608050E+01
+ 0.18973010E+01 0.46523190E+00 0.72931647E+00 0.46063691E+00
+-0.19615750E+00-0.79028159E+00 0.85103773E-01 0.85938171E-01
+ 0.78756707E-02 0.37233699E-01-0.55510532E-02-0.19155679E-01
+-0.41363001E-01-0.49645580E-01 0.73705487E-01 0.32670251E+00
+ 0.12525190E+00-0.24647599E-01 0.13925030E-01-0.15484880E-01
+-0.17251709E-01-0.64786701E-02 0.22347379E-01 0.17815899E-01
+ 0.36615990E-01-0.24931369E-01-0.94378322E-01-0.51750399E-01
+-0.13157080E+00 0.32211620E+00-0.65915589E-02-0.19702300E-01
+ 0.17245850E-01-0.16517140E-01-0.26897520E-01 0.84058531E-01
+ 0.10286890E+00-0.73562659E-01-0.16756579E+00-0.13696100E+00
+ 0.72553173E-01 0.12463110E+00 0.33402109E+00-0.64432487E-01
+-0.81922553E-01-0.68306550E-01 0.26644319E-01-0.25640400E-02
+-0.96000031E-01 0.87481603E-01 0.20068650E+00-0.89309841E-01
+-0.90402611E-01-0.16380860E+00-0.35035551E+00 0.13258970E+00
+ 0.84188931E-01-0.56451902E-01-0.14087620E-01-0.70906892E-01
+ 0.58519458E-02 0.23040431E-01-0.12073840E-01-0.26551499E-02
+-0.22349291E-01-0.38279910E-03 0.87812962E-02 0.46165429E-01
+ 0.16907940E-01-0.38625441E-01 0.11729170E+00-0.37871141E-01
+ 0.61827630E-01-0.68571549E-02 0.96541224E-02 0.12416430E-01
+ 0.31427689E-01-0.22337640E-01-0.60761911E-02-0.92595688E-03
+-0.12977670E-01 0.44882782E-01-0.11933870E+00-0.45979381E-01
+-0.60199071E-01-0.34978420E-01-0.49926541E-02 0.19399369E-01
+ 0.34851029E-02-0.72337049E-02-0.11886960E-01-0.13146390E-01
+ 0.17595259E-01 0.44115439E-01 0.78673609E-01 0.63930921E-01
+-0.40860940E-01-0.19156770E+00-0.45891270E-01 0.11505440E-02
+ 0.10380620E-01 0.14881670E-01 0.33300570E-02-0.66612852E-02
+-0.21599080E-01-0.18246280E-01-0.80048360E-01 0.41816819E-01
+ 0.36202852E-01 0.66889480E-01 0.47596481E-01-0.18829410E+00
+-0.50551319E-02 0.16060259E-01 0.66945851E-02-0.11392740E-01
+-0.11100720E-01-0.12953460E-01 0.13592150E-01 0.80618979E-02
+ 0.16950520E-01-0.36375250E-02-0.18154331E-01-0.13310640E-02
+-0.48648901E-01-0.74662310E-02-0.24213791E-02-0.90809930E-02
+ 0.56513911E-02-0.13565230E-01-0.13911800E-01-0.11124950E-02
+-0.12893990E-01-0.10646899E-02 0.13968130E-01-0.13116760E-01
+ 0.45635041E-01-0.23026359E-02 0.63339188E-02-0.20650141E-02
+ 0.24482880E-02 0.65919978E-03-0.20267139E-02-0.16944560E-02
+ 0.13885510E-01 0.80981124E-02 0.11041090E-01-0.44368152E-02
+-0.16544631E-01-0.12527670E-01-0.19005241E-01-0.62497938E-02
+-0.31255931E-02-0.80982493E-02 0.69489651E-02-0.10902190E-01
+-0.11027650E-01-0.30999391E-02-0.84056025E-02 0.31608790E-02
+ 0.19444350E-01-0.11588780E-02 0.22132030E-01-0.10590870E-01
+ 0.96597519E+01 0.23647510E+00 0.16860931E+00-0.47118299E-01
+-0.16912390E-01 0.14272680E-01 0.98260203E-02 0.33767249E-02
+ 0.35827530E-02-0.86773722E-03 0.91156559E-02-0.22827780E-02
+-0.14894611E-02 0.63464302E+00-0.43337339E+00-0.96747071E+00
+ 0.40666152E-01-0.19837120E+00-0.59948120E-01-0.28977150E-01
+ 0.95723450E-01 0.76419637E-01-0.21590341E-01-0.51965330E-01
+-0.23790630E-01-0.11415870E-01 0.21040110E+02-0.84276778E+00
+-0.27497730E+01 0.34683380E+01-0.14338430E+01-0.34333980E+00
+-0.17775510E+00-0.47968160E-01 0.60201250E-01 0.53726070E-01
+-0.19198860E+00 0.88999309E-01 0.50146438E-01-0.21425230E+02
+ 0.11365390E+02 0.21386730E+02-0.61643022E+00 0.20530260E+01
+ 0.47759441E+00 0.74208337E+00-0.14936270E+01-0.71095699E+00
+ 0.73807120E+00 0.77330542E+00 0.35960850E+00 0.25628781E+00
+-0.93501938E+02 0.46040769E+01 0.13156950E+02-0.16240120E+02
+ 0.76028428E+01 0.23357570E+01 0.14458880E+01 0.16887400E+01
+-0.72062892E+00-0.31579819E+00 0.12221299E+01-0.29657019E-01
+-0.49155051E+00 0.11814080E+03-0.69936668E+02-0.94830658E+02
+ 0.52001648E+01-0.66803470E+01-0.13968560E+01-0.45093870E+01
+ 0.67169080E+01 0.22368820E+01-0.40743742E+01-0.33467939E+01
+-0.19935859E+01-0.13797430E+01 0.13931290E+03-0.17782190E+02
+-0.27018829E+02 0.29054939E+02-0.15329660E+02-0.60099168E+01
+-0.34904850E+01-0.67229199E+01 0.22689300E+01 0.68566948E+00
+-0.31322169E+01-0.92159897E+00 0.14547271E+01-0.24342470E+03
+ 0.17315770E+03 0.15731059E+03-0.16397511E+02 0.14275870E+02
+ 0.16909940E+01 0.10353310E+02-0.12669190E+02-0.34114320E+01
+ 0.89151392E+01 0.63830209E+01 0.47447438E+01 0.29945900E+01
+-0.10938720E+03 0.24913771E+02 0.30375700E+02-0.23066521E+02
+ 0.13607520E+02 0.65141401E+01 0.32295170E+01 0.90461168E+01
+-0.27554049E+01-0.64659041E+00 0.34494910E+01 0.17355460E+01
+-0.16840529E+01 0.21714020E+03-0.18650439E+03-0.11089630E+03
+ 0.20161510E+02-0.17321890E+02-0.82481933E+00-0.10135930E+02
+ 0.10705800E+02 0.26362569E+01-0.86365480E+01-0.56617360E+01
+-0.49933858E+01-0.28724079E+01 0.38454609E+02-0.11282840E+02
+-0.14153690E+02 0.68211322E+01-0.44118671E+01-0.25191109E+01
+-0.10123090E+01-0.39928210E+01 0.11499900E+01 0.22389241E+00
+-0.13624020E+01-0.87927938E+00 0.67558080E+00-0.70979813E+02
+ 0.72649628E+02 0.28169901E+02-0.84089622E+01 0.79450250E+01
+ 0.11346560E+00 0.35838680E+01-0.33501971E+01-0.83002597E+00
+ 0.30870669E+01 0.19087120E+01 0.19145041E+01 0.10146559E+01
+-0.26606801E+00 0.15620511E+01 0.20135450E+01 0.49417231E-01
+ 0.17881900E+00 0.39978221E-01 0.18595081E-01 0.51169661E-02
+-0.65391877E-03-0.34706499E-02 0.23117501E-02-0.17460980E-02
+-0.56259502E-02 0.16736750E+00-0.16591990E+01 0.13997480E+01
+-0.18408880E+00 0.72855100E-01-0.25338801E-01 0.25556089E-01
+-0.10558470E-01 0.15228190E-02-0.12282430E-02 0.25178001E-02
+ 0.32139330E-02 0.19349740E-02-0.13134350E+01 0.20660770E+01
+ 0.42798471E+00 0.11058570E+01 0.38486981E+00 0.26487160E+00
+ 0.69790930E+00 0.10568830E+00 0.20369640E+00 0.25993930E-01
+ 0.34720250E-02-0.62574707E-01 0.38716398E-01-0.23754351E+01
+ 0.10895660E+01 0.18151660E+01-0.65037370E+00 0.96070999E+00
+-0.70252019E+00 0.34431881E+00-0.38864490E-01-0.28164750E-01
+-0.61094161E-01-0.28018620E-01-0.31046750E-01-0.15529460E-01
+ 0.31627400E+01 0.94691763E+01-0.28870111E+01-0.11956390E+01
+-0.10882720E+01-0.48254141E+00 0.25308909E+01-0.81408069E-01
+ 0.32167870E+00 0.16711380E+00-0.97399577E-01 0.79049580E-01
+ 0.82498707E-01 0.10213391E+01-0.10883451E+01 0.11817150E+02
+ 0.77388489E+00-0.22342670E+01-0.20936351E+01-0.23196130E+00
+ 0.25912341E+00 0.97744772E-02 0.22362410E+00 0.17696650E+00
+ 0.69577448E-01-0.16922510E+00 0.21561050E+02-0.31080139E+02
+ 0.70865641E+01-0.24771620E+02 0.15900720E+01-0.82607079E+01
+-0.11033150E+02-0.14691660E+01-0.26402149E+01 0.27317059E+00
+-0.80071282E+00 0.11012130E+01-0.53769749E+00 0.41478149E+02
+-0.95830183E+01-0.23420200E+02 0.13738199E+01-0.19451450E+02
+ 0.12153660E+02-0.82632713E+01-0.50814933E+00 0.15789599E+01
+ 0.15214210E+01 0.80149227E+00 0.42554879E+00 0.22901210E+00
+-0.12770540E+02-0.17447360E+01 0.58491920E+02 0.70609879E+01
+ 0.56776910E+01-0.94400060E+00-0.22537630E+02 0.18881340E+01
+-0.23617909E+01-0.15576280E+01 0.10063900E+01-0.47450799E+00
+-0.65412599E+00-0.13276421E+00-0.28528210E+02 0.12208030E+02
+-0.52594228E+01 0.17623730E+02 0.17157730E+02-0.22908289E+01
+-0.23056619E+01 0.14645940E+00-0.13997819E+01-0.27874100E+01
+-0.94551092E+00 0.16676790E+01-0.10376140E+03 0.11436500E+03
+-0.74738129E+02 0.12125980E+03-0.16883030E+02 0.44989880E+02
+ 0.57682110E+02 0.65795431E+01 0.10207010E+02-0.21321759E+01
+ 0.56201038E+01-0.59696279E+01 0.93771237E+00-0.18976520E+03
+ 0.49813702E+02 0.98536926E+02 0.51349831E+01 0.89356812E+02
+-0.63749439E+02 0.44585758E+02 0.93239870E+01-0.88775330E+01
+-0.68173509E+01-0.27491629E+01-0.12763150E+01-0.14018040E+01
+ 0.23114771E+02-0.13228889E+03-0.19307950E+03-0.16930170E+02
+-0.21266130E+02 0.83494740E+01 0.67452026E+02-0.80571976E+01
+ 0.64742379E+01 0.47526541E+01-0.35892241E+01 0.89708418E+00
+ 0.19025910E+01-0.13691810E+02 0.90441628E+02-0.23142461E+03
+ 0.21941999E+02-0.53119469E+02-0.48287670E+02 0.11423090E+02
+ 0.71002808E+01-0.90050668E+00 0.36517529E+01 0.10053910E+02
+ 0.32336330E+01-0.53077898E+01 0.22719389E+03-0.16568781E+03
+ 0.23497110E+03-0.24063290E+03 0.49916828E+02-0.98205757E+02
+-0.13439709E+03-0.12153520E+02-0.17333050E+02 0.50302162E+01
+-0.13618910E+02 0.13793100E+02 0.15500439E+01 0.36662421E+03
+-0.12142230E+03-0.15381281E+03-0.24144270E+02-0.16646790E+03
+ 0.14479601E+03-0.99159172E+02-0.32439579E+02 0.19294001E+02
+ 0.11290670E+02 0.23917720E+01 0.11426400E+01 0.35558820E+01
+-0.27136419E+02 0.27179700E+03 0.25005791E+03 0.19340830E+02
+ 0.33998520E+02-0.13620560E+02-0.83748070E+02 0.11691950E+02
+-0.75548682E+01-0.58460650E+01 0.49319348E+01-0.60413218E+00
+-0.22419519E+01 0.26643049E+02-0.10524540E+03 0.43930060E+03
+-0.34796928E+02 0.67873032E+02 0.57918652E+02-0.16635059E+02
+-0.88391800E+01 0.12584870E+01-0.43127971E+01-0.13516830E+02
+-0.42291441E+01 0.67359362E+01-0.22461520E+03 0.85737328E+02
+-0.31286929E+03 0.21121970E+03-0.64953041E+02 0.95692772E+02
+ 0.14281960E+03 0.99194164E+01 0.13702850E+02-0.50406141E+01
+ 0.13921870E+02-0.14228550E+02-0.45207019E+01-0.30874109E+03
+ 0.14189140E+03 0.81987694E+02 0.35182449E+02 0.13651221E+03
+-0.14901019E+03 0.98902283E+02 0.41556419E+02-0.18267170E+02
+-0.74312758E+01 0.10206190E+01 0.14866380E+00-0.38277960E+01
+ 0.13890810E+02-0.15049339E+03-0.11015640E+03-0.76545072E+01
+-0.17769730E+02 0.67684522E+01 0.36893990E+02-0.54971251E+01
+ 0.31527669E+01 0.25122261E+01-0.22800889E+01 0.10277860E+00
+ 0.92315590E+00-0.13489730E+02 0.40249699E+02-0.23666670E+03
+ 0.17671680E+02-0.29748409E+02-0.25112940E+02 0.77997551E+01
+ 0.38220890E+01-0.47621179E+00 0.18768539E+01 0.61678109E+01
+ 0.18958740E+01-0.29664590E+01 0.81776260E+02-0.37989080E+01
+ 0.14443539E+03-0.69502823E+02 0.30535910E+02-0.34644218E+02
+-0.56341099E+02-0.29951351E+01-0.41220469E+01 0.18541380E+01
+-0.51621022E+01 0.53851728E+01 0.25782030E+01 0.92633667E+02
+-0.58464001E+02-0.40587640E+01-0.17124140E+02-0.42179981E+02
+ 0.57017139E+02-0.36567261E+02-0.18105640E+02 0.62536778E+01
+ 0.14520210E+01-0.15043041E+01-0.41886300E+00 0.14572099E+01
+ 0.22183840E+00-0.31689471E+00 0.61195079E-01-0.87062722E+00
+ 0.87825477E-01-0.15034950E+00-0.13781381E+00 0.45299381E-01
+ 0.19933900E-01 0.18762450E-02-0.54822973E-03-0.66571059E-02
+-0.30697591E-02-0.73957490E-02-0.68940967E-01-0.31143910E+00
+-0.95504932E-01-0.85916919E+00 0.13392460E+00-0.16640890E+00
+-0.20320211E-01 0.35963669E-01 0.97068259E-03-0.27575290E-02
+-0.16234940E-03-0.49471902E-02 0.41693681E+00-0.78399950E+00
+ 0.31827480E+00 0.45673099E+00 0.81905060E-01 0.54579359E+00
+-0.24396650E+00 0.81486180E-01-0.44785389E-02 0.25983719E-01
+-0.64182013E-01-0.23726180E-01-0.78640768E-03 0.58427793E+00
+-0.11389980E+00-0.90871191E+00-0.22243699E+00 0.45813450E+00
+ 0.27360499E+00 0.61921853E+00-0.21944350E-01 0.12901470E+00
+ 0.59272300E-01-0.10880020E-01 0.12403420E-01-0.29265439E-01
+-0.38205330E+01 0.11238390E+00-0.29645550E+01-0.54582891E+01
+ 0.77885790E+01 0.71963477E+00 0.55946571E+00-0.15425900E+01
+ 0.46000001E+00 0.67319602E-01-0.13116050E+00 0.44859130E-01
+ 0.43946791E-01-0.10797811E+01 0.33397999E+01-0.16446300E+00
+-0.81596432E+01-0.55865722E+01-0.64202368E+00 0.10643080E+01
+-0.63877749E+00-0.14004370E+01 0.15760870E+00 0.17393790E+00
+ 0.11233650E+00-0.48885331E-01-0.63850598E+01 0.79531221E+01
+-0.25656221E+01 0.39320230E+01 0.32879009E+01-0.14255600E+01
+-0.10262000E+00-0.97700560E+00 0.69312072E+00-0.17351881E+00
+ 0.41162211E+00-0.10295030E+00 0.18633030E-01-0.10595560E+02
+ 0.47873259E+00 0.72734041E+01-0.24270351E+01 0.39393260E+01
+ 0.14062260E+00-0.20088711E+01-0.59401691E+00-0.12886339E+01
+-0.26591250E+00 0.17679280E-01-0.82693577E-01-0.71547069E-01
+ 0.20831350E+02 0.11465360E+01 0.83460512E+01 0.32513908E+02
+-0.29472130E+02 0.42015210E+00 0.24957170E+01 0.67919598E+01
+-0.11930211E+01-0.11068960E+01 0.66354001E+00-0.23937210E+00
+-0.45184430E-01 0.10642240E+02-0.11276340E+02 0.27194450E+01
+ 0.32928059E+02 0.33499489E+02-0.35581810E+01-0.14078860E+01
+ 0.24498291E+01 0.68238988E+01-0.59367460E+00-0.13088720E+01
+-0.82775712E+00 0.26601380E+00 0.14593990E+02-0.23980370E+02
+ 0.59424362E+01-0.12964700E+02-0.97658834E+01 0.24459569E-02
+ 0.30693991E+01 0.25981879E+01-0.21292419E+01 0.19435941E+00
+-0.51738173E+00 0.49139491E+00-0.46740469E-01 0.25581640E+02
+ 0.73091850E-01-0.20455820E+02 0.84472990E+01-0.13043850E+02
+-0.35967190E+01 0.11947140E+01 0.20233610E+01 0.31668000E+01
+ 0.70957609E-01-0.14474639E+00 0.13844299E+00 0.41587120E+00
+-0.41094311E+02 0.86852388E+01-0.94359264E+01-0.53010502E+02
+ 0.41217739E+02-0.37192881E+01-0.92166538E+01-0.10806830E+02
+ 0.91087110E-02 0.30164189E+01-0.12803540E+01 0.44116831E+00
+-0.16568901E+00-0.25806271E+02 0.14607070E+02 0.55075288E+01
+-0.49568420E+02-0.55603802E+02 0.13391770E+02-0.23186770E+00
+-0.24807119E+01-0.11812430E+02 0.85828292E+00 0.29514239E+01
+ 0.17522380E+01-0.42947820E+00-0.98848133E+01 0.20541651E+02
+-0.85073023E+01 0.71817060E+01 0.35751390E+01 0.11159070E+01
+-0.34489040E+01-0.21384230E+01 0.17929270E+01-0.21262780E-01
+ 0.90777323E-01-0.42614019E+00 0.33698078E-01-0.17380980E+02
+ 0.42473989E+01 0.16930330E+02-0.29303551E+01 0.72742739E+01
+ 0.40197430E+01 0.37217441E+00-0.17575090E+01-0.24582109E+01
+ 0.25509939E+00 0.19011500E+00-0.61764762E-01-0.36221001E+00
+ 0.25497250E+02-0.12354260E+02 0.93186970E+01 0.28448811E+02
+-0.17412729E+02 0.27297421E+01 0.71112809E+01 0.58288512E+01
+ 0.73543191E+00-0.21923821E+01 0.81601697E+00-0.23612000E+00
+ 0.18969581E+00 0.18097361E+02-0.11795550E+02-0.93267469E+01
+ 0.23312149E+02 0.30417120E+02-0.10512880E+02 0.57435513E+00
+ 0.70422453E+00 0.67959151E+01-0.44532520E+00-0.19950180E+01
+-0.11097840E+01 0.22813711E+00-0.10595430E-01-0.29395171E-01
+ 0.30379140E+00 0.99691629E-01 0.70794158E-01-0.10297440E+00
+-0.91425818E+00 0.34020990E-01-0.78834929E-01-0.50689451E-01
+ 0.37973919E-02 0.11452550E-03 0.30391649E-03 0.14958180E-01
+-0.30929521E+00-0.28953120E-01-0.79802103E-01 0.10653210E+00
+ 0.91102618E+00-0.98335497E-01 0.73236696E-01 0.33898219E-01
+-0.28358840E-02-0.50606430E-01-0.36116501E-02-0.22686271E-02
+ 0.11812950E+00 0.19468850E+00 0.79262000E+00 0.48430401E+00
+-0.38832539E+00-0.23010540E+00 0.29241920E+00 0.21250610E+00
+ 0.36632661E-01 0.98569289E-01-0.75404622E-01-0.95008230E-02
+ 0.31894319E-01-0.81320830E-01-0.89898157E+00 0.38000241E-01
+ 0.35185170E+00 0.40001610E+00-0.30907500E+00-0.25156450E+00
+-0.11079720E-01 0.21408240E+00 0.88367410E-01 0.11612440E+00
+-0.38310420E-01-0.24201190E-01 0.44678649E+00 0.76433510E+00
+-0.19792891E+01-0.12906170E+00-0.10485670E+00 0.13023080E+01
+ 0.13063329E+01-0.53113842E+00 0.37752590E+00 0.32842159E+00
+-0.58889650E-01-0.86875491E-01 0.16473901E-01-0.31795919E+00
+ 0.22584000E+01 0.55740488E+00 0.31517279E+00-0.20841791E+00
+-0.13335330E+01 0.12448790E+01-0.28743139E+00-0.58628583E+00
+ 0.89531533E-01 0.33873171E+00 0.90812007E-02-0.85582048E-01
+-0.32462761E+00 0.55420440E+00-0.15332630E+01-0.45108101E+00
+ 0.30142811E+00 0.95326948E+00-0.16520080E+00-0.47048840E+00
+ 0.91850661E-01-0.23584470E+00 0.13699099E+00 0.17144009E-01
+-0.46475422E-01 0.19230279E+00 0.18529550E+01 0.68866849E+00
+-0.21552680E+00-0.28211570E+00 0.17967440E+00 0.99288410E+00
+-0.13729320E+00-0.49384579E+00-0.15053999E+00-0.25986269E+00
+ 0.62336899E-01 0.37062962E-01-0.81821060E+00-0.13273300E+01
+ 0.25915501E+01-0.18003429E+00 0.64751709E+00-0.38207409E+01
+-0.15378979E+01 0.10648720E+01-0.41274789E+00-0.31622630E+00
+ 0.10327030E+00 0.17790340E+00-0.33550952E-01 0.61909640E+00
+-0.32214179E+01-0.96428472E+00-0.10125040E+01-0.11035940E+00
+ 0.16084390E+01-0.37567849E+01 0.28536341E+00 0.11650350E+01
+-0.16836770E+00-0.33463120E+00 0.38367140E-02 0.18844220E+00
+ 0.18482380E-01 0.60408609E-02-0.18813949E-01-0.71179517E-01
+-0.77630602E-01-0.80971450E-01 0.20359980E-01 0.28383231E+00
+-0.47772549E-01 0.20477129E-02 0.37390780E-01 0.49405191E-02
+-0.20163739E-01-0.99160511E-03 0.43011360E-01 0.11719540E-01
+ 0.85565522E-01-0.84437840E-01-0.28799430E-01-0.79101592E-01
+ 0.48607372E-01 0.27956900E+00-0.31718101E-01 0.63247532E-02
+ 0.22794271E-01 0.35994290E-02-0.26813939E-01 0.12297940E+00
+ 0.12641311E+00-0.15853390E-01-0.32076299E-01-0.18684781E+00
+ 0.17809470E+00 0.43270160E-02 0.26922131E+00-0.46935402E-01
+-0.90224959E-01-0.45105211E-01-0.33408120E-01 0.34830611E-01
+-0.92073031E-01 0.11024820E+00 0.60648199E-01-0.30261630E-01
+-0.16812950E+00-0.18220530E+00-0.29679611E+00 0.38962441E-02
+ 0.91713503E-01-0.50088979E-01 0.33543479E-01-0.48118480E-01
+-0.80544390E-02 0.14342410E-01-0.22136699E-01 0.58957742E-03
+-0.13292390E-01 0.62020078E-01 0.18932359E-01 0.50381370E-01
+-0.85130259E-02-0.64820582E-02 0.23000211E+00-0.48758488E-01
+ 0.99790459E-02-0.50144359E-02 0.23307029E-01 0.30444780E-01
+ 0.20239990E-01-0.78566192E-03-0.24236690E-01 0.61175190E-01
+ 0.11660590E-01 0.42806439E-01-0.23210250E+00-0.80076586E-02
+-0.77029751E-02-0.46974599E-01-0.13498020E-01 0.10521170E-01
+-0.10561380E-02-0.12857560E-01-0.48513468E-02-0.62217389E-03
+ 0.20002451E-01 0.15320900E-01 0.66567592E-01 0.10455160E-01
+-0.36465708E-01-0.95777161E-01-0.20539390E-01 0.75227697E-03
+ 0.12985850E-01-0.61246180E-02 0.15998259E-01 0.67521578E-04
+-0.23887521E-01-0.92728930E-02-0.75117119E-01 0.15833350E-01
+ 0.36960490E-01 0.12904480E-01 0.19094350E-01-0.93408503E-01
+ 0.23434521E-02-0.76548732E-02 0.14150920E-02-0.89850388E-02
+-0.17595930E-02-0.10044680E-01 0.91955401E-02 0.13719450E-02
+ 0.16786130E-01 0.84622239E-03 0.37563400E-03 0.10615240E-02
+ 0.68906820E-02 0.58004912E-03-0.13195630E-01-0.83801253E-02
+ 0.13903010E-02-0.82534901E-03-0.98274658E-02 0.54624368E-03
+-0.11478900E-01-0.31577409E-02 0.76453207E-03-0.99372212E-02
+-0.62431339E-02 0.26847559E-02 0.43437919E-02-0.41167010E-02
+-0.47836639E-02-0.14761930E-02 0.57231369E-02 0.46221539E-02
+ 0.53432281E-02-0.34128169E-02 0.13093020E-01 0.13895230E-02
+-0.17210459E-01-0.21476280E-01-0.13796220E-01-0.10645700E-01
+-0.45823441E-02-0.48501948E-02 0.73472899E-02-0.42551709E-02
+-0.49103531E-02-0.25146641E-02-0.15277000E-01 0.19295440E-02
+ 0.14847750E-01 0.52995039E-02 0.16304830E-01-0.24398761E-01
diff --git a/input/glow_data/iri90/ursi15.asc b/input/glow_data/iri90/ursi15.asc
new file mode 100644
index 0000000..48d9997
--- /dev/null
+++ b/input/glow_data/iri90/ursi15.asc
@@ -0,0 +1,494 @@
+ 0.61469970E+01-0.17623910E+00 0.10778470E+00 0.89381158E-01
+-0.19636629E-01 0.18447440E-02 0.15754160E-02-0.86179543E-02
+ 0.13933540E-02-0.87056439E-02-0.78900368E-03 0.41399379E-02
+ 0.36152541E-02-0.16496969E+01-0.78729600E-01-0.67945858E-02
+ 0.32431379E+00-0.59705369E-01 0.80218337E-01-0.92643097E-01
+ 0.19400461E-01-0.12559199E+00 0.23070879E-01-0.58290320E-02
+ 0.51958580E-01 0.52827042E-01 0.11182110E+02 0.37462790E+01
+ 0.23066610E+00 0.41864669E+00-0.11864570E+01 0.99106140E-01
+-0.92611194E-01 0.20874020E+00-0.64204402E-01 0.71459413E-01
+ 0.84489949E-01-0.18979700E+00-0.84742382E-01 0.19816999E+02
+-0.28625691E+01 0.55124660E+01-0.22169150E+00 0.18992300E+01
+-0.15581750E+01 0.99279588E+00-0.17125399E+00 0.20040751E+01
+-0.18701001E+00-0.67272849E-01-0.98186469E+00-0.86420619E+00
+-0.74386047E+02-0.20516159E+02 0.31484120E+01-0.28223979E+01
+ 0.36323750E+01-0.10090160E+01 0.67368120E+00-0.89369661E+00
+ 0.51735032E+00-0.36464691E+00-0.25105301E+00 0.58455908E+00
+ 0.54241109E+00-0.45241402E+02 0.99988966E+01-0.34963181E+02
+-0.92345133E+01-0.30617559E+01 0.72543359E+01-0.38247659E+01
+ 0.23776320E+00-0.93936090E+01 0.91368876E-01 0.60767943E+00
+ 0.43124928E+01 0.38602860E+01 0.15241611E+03 0.47119732E+02
+-0.17498699E+02 0.44088268E+01-0.38049071E+01 0.29624729E+01
+-0.12577910E+01 0.12461600E+01-0.13242810E+01 0.90186661E+00
+ 0.38744129E-01-0.28317070E+00-0.13367760E+01 0.17391109E+02
+-0.21362481E+01 0.77703171E+02 0.27015511E+02-0.42139621E+01
+-0.14273430E+02 0.64164629E+01 0.79088050E+00 0.18852409E+02
+ 0.11814680E+01-0.15114390E+01-0.78646560E+01-0.73531580E+01
+-0.14632010E+03-0.48258450E+02 0.26521851E+02-0.25226750E+01
+ 0.17343290E+01-0.34665780E+01 0.69035828E+00-0.49385089E+00
+ 0.13575660E+01-0.99621427E+00 0.39831340E+00-0.57299381E+00
+ 0.14132410E+01 0.39393681E+02-0.15095940E+02-0.73359741E+02
+-0.27110600E+02 0.10384130E+02 0.12879020E+02-0.47380471E+01
+-0.19038330E+01-0.17137140E+02-0.21368999E+01 0.15235400E+01
+ 0.65011258E+01 0.63662810E+01 0.54083439E+02 0.18102200E+02
+-0.12677410E+02 0.43551680E+00-0.37191701E+00 0.14251800E+01
+-0.93829650E-02-0.66677041E-01-0.48718780E+00 0.39973640E+00
+-0.26846740E+00 0.46493611E+00-0.53977978E+00-0.29198820E+02
+ 0.10242580E+02 0.25236259E+02 0.92265482E+01-0.49417338E+01
+-0.43974771E+01 0.12437520E+01 0.10388700E+01 0.58063598E+01
+ 0.10331630E+01-0.55049878E+00-0.20216801E+01-0.20634091E+01
+-0.42688981E+00 0.19269500E+01 0.20677230E+01 0.97393878E-01
+-0.20546271E-01 0.37952062E-01-0.53225148E-01 0.60821548E-02
+ 0.84300926E-02-0.14298090E-01 0.18391320E-01-0.22456090E-02
+ 0.46739290E-02-0.28663930E+00-0.18883190E+01 0.19398741E+01
+-0.10958400E-01 0.10457010E+00 0.16085830E-01 0.22252040E-01
+-0.85948743E-02-0.39429571E-02-0.13192750E-01-0.10443931E-02
+-0.42880578E-02-0.90967324E-02-0.29245061E+00 0.27276900E+00
+ 0.30891851E+00 0.75117052E+00 0.33598959E+00 0.15680180E+00
+-0.15950461E+00 0.34688100E-01-0.12025710E-01-0.17211279E+00
+ 0.10984750E+00-0.29974829E-01-0.54192860E-01-0.11842780E+01
+-0.90836138E+00 0.17715070E+01-0.14228339E+00 0.59709960E+00
+ 0.10013880E+00-0.47359809E-01 0.33976462E-01-0.70826277E-01
+ 0.49378350E-01-0.84421523E-01-0.28109500E-01-0.12595230E-01
+ 0.84876194E+01 0.57308359E+01 0.62413058E+01 0.13944130E+01
+-0.25793459E+01 0.24799339E+00 0.27793541E+01-0.38286361E+00
+-0.30907559E+00 0.22096150E+00-0.42935559E+00 0.16731730E+00
+-0.92324153E-01 0.30780210E+01-0.54540491E+01 0.58119221E+01
+ 0.37603259E+01 0.95398229E+00-0.17097430E+01 0.18081111E+00
+ 0.29658210E+00 0.15454590E+00 0.45217001E+00-0.20825370E+00
+-0.78204786E-02 0.45337901E+00-0.84217939E+01-0.76279669E+01
+ 0.13958580E+02-0.10424130E+02 0.15093490E+01-0.23364730E+01
+ 0.18055720E+01-0.85504931E+00 0.66013902E+00 0.26434340E+01
+-0.26123641E+01 0.55014062E+00 0.10300350E+01 0.98079586E+01
+ 0.11654150E+02-0.19276979E+02-0.48425260E+01-0.76952219E+01
+ 0.39631689E+00 0.11191790E+01-0.75099587E+00 0.74073100E+00
+-0.93723989E+00 0.11744090E+01 0.47150460E+00 0.23048910E+00
+-0.50743710E+02-0.55779011E+02 0.66359657E+02-0.11021490E+01
+ 0.16368670E+02-0.32164660E+01-0.21949341E+02 0.33016491E+01
+ 0.25513980E+01-0.80657518E+00 0.14702801E+01-0.16999249E+01
+ 0.74997139E+00-0.91804066E+01-0.67210930E+02-0.40897739E+02
+-0.28950439E+02 0.20953009E+01 0.14516960E+02-0.12215180E+00
+-0.41165352E+01-0.16895700E+01-0.48003082E+01 0.27948639E+01
+ 0.62286790E-01-0.37612219E+01 0.64903091E+02 0.77873161E+02
+-0.10802780E+03 0.48941589E+02-0.16948709E+02 0.12558200E+02
+-0.60406260E+01 0.41670032E+01-0.26982419E+01-0.11624870E+02
+ 0.15267930E+02-0.23094060E+01-0.54159651E+01-0.49994789E+02
+-0.49359020E+02 0.15092461E+03 0.28070030E+02 0.35218521E+02
+-0.79933500E+01-0.30791199E+01 0.43963599E+01-0.25301840E+01
+ 0.50420971E+01-0.42441359E+01-0.16297380E+01-0.17005490E+01
+ 0.12929601E+03 0.13159430E+03-0.39547131E+03-0.16760429E+02
+-0.39815708E+02 0.88148718E+01 0.57794060E+02-0.98693247E+01
+-0.70350499E+01 0.12588470E+01-0.96562022E+00 0.56228518E+01
+-0.21079550E+01 0.19449820E+02 0.38141650E+03 0.57397221E+02
+ 0.81969032E+02-0.26408701E+02-0.37432060E+02-0.31997371E+01
+ 0.14425620E+02 0.60002851E+01 0.15966380E+02-0.95656176E+01
+-0.21531349E+00 0.10990300E+02-0.16204100E+03-0.23303979E+03
+ 0.28815121E+03-0.10386490E+03 0.49990688E+02-0.30111971E+02
+ 0.10723130E+02-0.80060816E+01 0.29180720E+01 0.22099661E+02
+-0.35976631E+02 0.36609330E+01 0.11956130E+02 0.12696960E+03
+ 0.71752602E+02-0.42113171E+03-0.61535542E+02-0.72508812E+02
+ 0.22662790E+02-0.43141860E+00-0.10665520E+02 0.33075471E+01
+-0.12258740E+02 0.61109462E+01 0.19017659E+01 0.48446321E+01
+-0.14547580E+03-0.12651550E+03 0.61843048E+03 0.35280338E+02
+ 0.43908249E+02-0.92410669E+01-0.62275871E+02 0.11930280E+02
+ 0.76405182E+01-0.98560327E+00-0.16001010E+01-0.74821172E+01
+ 0.24113450E+01-0.19704981E+02-0.58945972E+03-0.52244339E+01
+-0.98859413E+02 0.48251438E+02 0.38299530E+02 0.71162829E+01
+-0.18844971E+02-0.85046978E+01-0.20735920E+02 0.12362000E+02
+ 0.37480739E+00-0.13344880E+02 0.17369679E+03 0.27892661E+03
+-0.34257529E+03 0.98789574E+02-0.62797329E+02 0.32634048E+02
+-0.10829860E+02 0.69200730E+01 0.59212983E+00-0.19163589E+02
+ 0.37491920E+02-0.21314080E+01-0.11855170E+02-0.13980060E+03
+-0.13483620E+02 0.47776770E+03 0.63796692E+02 0.65093903E+02
+-0.22985830E+02 0.71970782E+01 0.11441880E+02-0.92299253E+00
+ 0.13700940E+02-0.33755190E+01-0.44493070E+00-0.56884708E+01
+ 0.58569679E+02 0.43315380E+02-0.29885641E+03-0.19013590E+02
+-0.17928280E+02 0.33396511E+01 0.23791880E+02-0.50603638E+01
+-0.28580439E+01 0.33166629E+00 0.16228170E+01 0.34714410E+01
+-0.96285927E+00 0.69625640E+01 0.28335971E+03-0.20552750E+02
+ 0.42357929E+02-0.25264919E+02-0.13669650E+02-0.41658831E+01
+ 0.84004498E+01 0.41375680E+01 0.92503834E+01-0.54409099E+01
+-0.22773270E+00 0.57778349E+01-0.67434677E+02-0.11813550E+03
+ 0.15014059E+03-0.34446251E+02 0.28084539E+02-0.12989770E+02
+ 0.46737428E+01-0.22311611E+01-0.15542490E+01 0.62061038E+01
+-0.14421250E+02 0.20976970E+00 0.43536391E+01 0.53964081E+02
+-0.20703760E+02-0.19164810E+03-0.25359381E+02-0.20661909E+02
+ 0.76528530E+01-0.48102832E+01-0.45336390E+01-0.58511877E+00
+-0.56624761E+01 0.35393250E+00-0.27320021E+00 0.23108580E+01
+ 0.55775440E+00 0.15620370E+00-0.17304420E+00-0.86128002E+00
+-0.44155559E+00-0.73825099E-01-0.61486062E-01 0.11121810E-01
+ 0.12300050E+00-0.42081960E-02-0.29414650E-02 0.10599770E-01
+ 0.10546270E-01-0.34641251E-01 0.15565810E+00 0.15698960E+00
+ 0.44558811E+00-0.88043821E+00 0.67400753E-01-0.95532171E-01
+-0.12126460E+00 0.28256800E-01 0.29799801E-02-0.10545790E-01
+-0.51598069E-02 0.10469230E-01-0.27265051E+00 0.71545057E-01
+ 0.83732450E+00 0.36466461E+00-0.38932669E+00 0.53225871E-01
+-0.23145519E-01-0.18932580E-02-0.32147668E-01-0.26169490E-01
+ 0.17934831E-01-0.16060039E-01 0.29274650E-01-0.26540491E+00
+-0.56582069E+00-0.13360800E+00 0.55764318E+00 0.53140861E+00
+ 0.12094440E+00 0.20111430E+00 0.41201569E-01 0.53070448E-01
+-0.26662240E-01-0.63316748E-01-0.68777807E-01-0.98868906E-02
+-0.71043029E+01 0.11069109E+01 0.25621800E+01 0.51314931E+01
+ 0.70494838E+01-0.35181299E+00-0.10459350E+01-0.35034469E+00
+-0.24479900E+00 0.15665650E+00 0.21135520E-01-0.21409030E+00
+-0.23876619E+00 0.49496002E+01-0.13616550E+01 0.13787150E+01
+-0.73464322E+01 0.57800932E+01 0.62377918E+00-0.21459701E-01
+ 0.68121232E-01-0.10325810E+01-0.56019779E-01 0.18902290E+00
+ 0.62252071E-01-0.23023070E+00 0.59531403E+00 0.15090750E+00
+-0.53647561E+01 0.94953175E+01 0.24810090E+01 0.16425569E+00
+-0.71647620E+00-0.12886140E-01 0.13044021E+00 0.38705400E+00
+ 0.68007450E-03 0.77381507E-01-0.26356301E+00-0.27100489E+01
+ 0.40701518E+01 0.14316000E+01-0.34730480E+01 0.77243371E+01
+-0.15755400E-01-0.95561659E+00-0.17481489E+00-0.10606580E+01
+ 0.23528330E+00 0.97458363E+00 0.76612288E+00 0.75703420E-01
+ 0.28386250E+02 0.46320191E+00-0.53027940E+01 0.37580950E+01
+-0.22390301E+02 0.29642160E+01 0.71591859E+01 0.82743460E+00
+-0.22731919E+01-0.10024770E+01 0.32353550E+00 0.95461971E+00
+ 0.82657832E+00-0.24793819E+02-0.23392281E-01-0.29539080E+01
+ 0.22507111E+02-0.28451240E+00-0.52239251E+01 0.20315311E+01
+ 0.27950771E+01 0.40140200E+01 0.27757359E+00-0.54528260E+00
+ 0.79406044E-02 0.10815459E+01-0.15688730E+01-0.24474211E+01
+ 0.11167260E+02-0.34346889E+02-0.60180378E+01-0.15232520E+01
+ 0.34895530E+01 0.20264660E+00 0.76237500E-01-0.10933380E+01
+ 0.91383241E-01-0.11544310E+00 0.67461407E+00 0.94357500E+01
+-0.89875536E+01-0.57385039E+01 0.78050389E+01-0.30327801E+02
+-0.20464120E+01 0.78732222E+00-0.11185480E+00 0.32305241E+01
+-0.78201681E+00-0.25857430E+01-0.19704940E+01-0.22454100E-01
+-0.46045052E+02-0.91358538E+01 0.14173390E+01-0.36548618E+02
+ 0.23295401E+02-0.51048460E+01-0.13219430E+02-0.10253860E+01
+ 0.68588891E+01 0.21347809E+01-0.12704220E+01-0.16248510E+01
+-0.10202780E+01 0.41190262E+02 0.65486660E+01 0.70396399E+00
+-0.21661329E+02-0.28510429E+02 0.10266220E+02-0.43884740E+01
+-0.71169052E+01-0.62534099E+01-0.30351520E+00 0.43748230E+00
+-0.43773919E+00-0.19869080E+01 0.14442430E+01 0.29629769E+01
+-0.77793231E+01 0.25751011E+02 0.10661910E+01 0.13136810E+01
+-0.33341639E+01-0.18205580E+00-0.17867219E+00 0.84242421E+00
+-0.16166340E+00 0.59417281E-01-0.52833420E+00-0.78069901E+01
+ 0.71290188E+01 0.59769340E+01-0.19492880E+01 0.23232540E+02
+ 0.24950130E+01-0.12548339E+00 0.29877529E+00-0.25111289E+01
+ 0.70223922E+00 0.18552990E+01 0.14471710E+01-0.11657390E+00
+ 0.25284380E+02 0.71711540E+01 0.31897669E+01 0.30861271E+02
+-0.39868720E+01 0.26605120E+01 0.78262181E+01 0.61989701E+00
+-0.48635912E+01-0.13933589E+01 0.10162290E+01 0.94634938E+00
+ 0.45522290E+00-0.21889999E+02-0.74290638E+01-0.32309350E+00
+ 0.23203311E+01 0.25840010E+02-0.63595548E+01 0.26707981E+01
+ 0.46891971E+01 0.35074570E+01 0.64880744E-01-0.87241745E-02
+ 0.41683620E+00 0.12725990E+01-0.12398630E-01 0.58514111E-01
+ 0.97588979E-01-0.31931689E+00 0.16136580E-02 0.10428140E-01
+-0.60916609E+00-0.65855101E-01-0.19158971E-01-0.47767099E-01
+-0.37756290E-01 0.47349902E-02 0.54611722E-02 0.58191922E-02
+-0.67234218E-01 0.58923621E-01-0.93242647E-02-0.30696139E+00
+ 0.60463059E+00 0.12911090E-01 0.23774261E-01-0.63991711E-01
+ 0.36374401E-01-0.48858240E-01 0.48214560E-02 0.26167510E-02
+-0.11958790E+00 0.17539871E+00 0.50548512E+00-0.17784651E+00
+-0.38767400E+00 0.62466809E-02 0.17013970E-02 0.20645221E+00
+ 0.18717080E+00-0.12284510E-01 0.69041620E-02 0.42742841E-01
+-0.56817431E-01-0.10598480E-01-0.47927970E+00 0.19410530E+00
+ 0.42055660E+00-0.18667100E+00 0.32401190E-02 0.54591591E-02
+-0.19128481E+00 0.23686890E+00 0.23770370E-02-0.22585429E-01
+-0.13791280E-01-0.78715403E-02 0.49396369E+00 0.58047408E+00
+-0.41930601E+00 0.21254399E+01-0.89356351E+00-0.53152192E+00
+ 0.15633730E-01-0.44959891E+00 0.75081849E+00 0.22669700E+00
+ 0.15185730E+00 0.19786470E-01-0.13236161E+00-0.13776690E+00
+ 0.28435451E+00 0.42325190E+00 0.10034590E+01 0.18926001E+01
+ 0.14454530E+00-0.61647499E+00-0.84148967E+00-0.51519030E+00
+-0.97675063E-01 0.22901531E+00-0.15691251E+00-0.17485220E-01
+ 0.12824970E+00-0.98230597E-02-0.10266080E+01 0.72144061E+00
+ 0.61898023E+00 0.10314670E+00 0.25060490E+00-0.40601259E+00
+-0.38321230E+00-0.34017310E-01-0.38064050E-02-0.64834312E-01
+ 0.94162598E-01 0.84960721E-01 0.10329680E+01-0.11388590E+00
+-0.63369012E+00 0.72703242E+00-0.26225650E+00 0.94792910E-01
+ 0.38742521E+00-0.45800629E+00 0.12058440E-02-0.20358169E-01
+ 0.10114540E-01 0.48682960E-02-0.83508968E+00-0.87437320E+00
+ 0.29437029E+00-0.27109580E+01 0.20629351E+01 0.78078318E+00
+ 0.10526381E+01 0.12759120E+01-0.13104450E+01-0.20033760E+00
+-0.27019881E-01-0.54871671E-01 0.18701521E+00 0.31222811E+00
+-0.19524550E+00-0.62573218E+00-0.22211001E+01-0.24167781E+01
+-0.13249980E+01 0.91487002E+00 0.14537990E+01 0.13831760E+01
+-0.92302509E-01-0.19515669E+00 0.25982079E+00 0.73656081E-02
+-0.52361848E-03 0.15264240E-01 0.16895970E-01 0.78373300E-02
+ 0.21493139E-02-0.99289464E-02 0.80305971E-01 0.20597890E+00
+ 0.10524930E+00 0.48369829E-01 0.35476532E-01 0.70750471E-02
+-0.15089191E-02-0.13215580E-01-0.44873748E-04 0.27555911E-01
+ 0.35699359E-02 0.12459320E-01-0.87141611E-01-0.15465290E-01
+-0.10534980E+00 0.20734739E+00-0.30985190E-01 0.30180860E-01
+ 0.10235840E-01 0.63791312E-02-0.23774730E-01 0.27269740E-01
+ 0.87765299E-01-0.17620159E-01-0.84487326E-01-0.53567631E-03
+-0.32302339E-01 0.35599601E-01 0.28739601E+00 0.16596400E-02
+-0.55835821E-01-0.52716671E-02 0.33528101E-01 0.25199961E-01
+-0.78000262E-01 0.60336430E-01 0.13077579E+00-0.20248340E-01
+ 0.30809600E-01-0.83578238E-02-0.29084539E+00 0.39622691E-01
+ 0.56826491E-01-0.53131130E-01-0.25305210E-01-0.10783190E-01
+-0.13741230E-01 0.54423842E-02-0.60442003E-03 0.25611529E-02
+-0.10145420E-01 0.10809640E-01-0.65934278E-01 0.37329510E-01
+-0.16497150E-01-0.69746278E-01 0.19816330E+00-0.24604959E-01
+-0.13310540E-01-0.12797360E-01-0.27887700E-02 0.18531900E-01
+ 0.20338940E-01-0.55051460E-02 0.61436418E-01 0.11686910E-01
+ 0.33459160E-01 0.36339011E-01-0.18977059E+00-0.67807890E-01
+ 0.94546443E-02-0.25081510E-01-0.19552670E-01-0.16097090E-02
+ 0.59033590E-02 0.71813902E-02 0.66298479E-03-0.20304490E-02
+ 0.38519329E-02 0.88301552E-02 0.76311097E-01 0.24996310E-01
+-0.42558111E-01-0.49010370E-01-0.50082698E-01 0.12076760E-01
+ 0.46170829E-02-0.38041130E-02-0.40218299E-02-0.12627470E-02
+-0.58254092E-02 0.27486410E-02-0.86623043E-01 0.11432780E-01
+ 0.42947382E-01 0.19414010E-01 0.54648239E-01-0.43307610E-01
+-0.57165809E-02-0.32452480E-02 0.56531681E-02-0.85158376E-02
+-0.73243300E-02-0.44349150E-03-0.32152110E-02-0.11734420E-01
+ 0.63191131E-02-0.11881570E-02-0.53923060E-02-0.72828978E-02
+ 0.15816320E-01-0.14078000E-02 0.60071790E-03-0.28175710E-01
+-0.69095199E-02-0.36836099E-02-0.14283460E-02 0.53706500E-02
+-0.24884320E-02-0.13378590E-01-0.21361620E-02-0.98395755E-03
+-0.17730070E-01-0.37239350E-02 0.16253850E-02 0.90199616E-02
+-0.17559000E-02 0.26907669E-02 0.14155300E-01 0.17799240E-02
+ 0.17301370E-02-0.39301589E-03 0.55579408E-02 0.86451042E-03
+-0.70585869E-02 0.29497179E-02-0.19528011E-01-0.17517300E-01
+-0.38701219E-02-0.17635399E-01-0.64922050E-02-0.15750390E-01
+-0.20372730E-02-0.27376991E-02-0.67396578E-02-0.79073012E-02
+ 0.74273311E-02 0.11909039E-02 0.19409191E-01 0.27749210E-02
+ 0.92684669E+01 0.11180050E+00 0.16332190E+00 0.26229799E-02
+-0.25089510E-01 0.99517433E-02 0.46553730E-03-0.24746379E-02
+ 0.62902798E-02-0.13465059E-02-0.65843540E-03 0.14270151E-02
+-0.14143820E-02 0.44970479E-01-0.59939528E+00-0.13126529E+01
+ 0.21469440E+00-0.44947490E+00 0.55179369E-01-0.60961179E-01
+ 0.63082837E-01 0.16216850E-02 0.44454768E-01 0.35442948E-01
+ 0.32111220E-01 0.93082003E-02 0.22464630E+02 0.25219750E+01
+-0.48720571E+00 0.24492159E+01-0.14447089E+01-0.10257510E+00
+-0.62614568E-01 0.48668280E-01-0.12509941E+00 0.41644470E-03
+ 0.49196400E-01-0.12963019E+00 0.62550962E-01-0.17920349E+02
+ 0.85758963E+01 0.23521709E+02-0.32205970E+01 0.60326281E+01
+-0.95141011E+00 0.61775661E+00-0.12575750E+01-0.99187814E-01
+-0.51601028E+00-0.67350978E+00-0.49535671E+00-0.20013560E+00
+-0.97483269E+02-0.15338420E+02-0.20033021E+01-0.14323930E+02
+ 0.89058189E+01 0.67620713E+00 0.50045937E+00 0.74346638E+00
+ 0.56605881E+00-0.11249490E+00-0.27318889E+00 0.10660430E+01
+-0.32734761E+00 0.12155820E+03-0.44558338E+02-0.10133320E+03
+ 0.16928520E+02-0.23524389E+02 0.39302530E+01-0.26443441E+01
+ 0.53703499E+01 0.21156850E+00 0.17833840E+01 0.33111119E+01
+ 0.18425630E+01 0.94422752E+00 0.12443980E+03 0.28579670E+02
+ 0.11507220E+02 0.31606100E+02-0.21948780E+02-0.18345020E+01
+-0.85376823E+00-0.38773761E+01-0.95604652E+00 0.45503920E+00
+ 0.51628810E+00-0.29435871E+01 0.66066039E+00-0.26973401E+03
+ 0.10458900E+03 0.17414200E+03-0.39594421E+02 0.44186920E+02
+-0.69234772E+01 0.48736358E+01-0.88779230E+01-0.15647270E-02
+-0.25576980E+01-0.67510462E+01-0.27437000E+01-0.18374270E+01
+-0.68019203E+02-0.21950741E+02-0.12059630E+02-0.30775120E+02
+ 0.24059059E+02 0.21004219E+01 0.27145961E+00 0.57094150E+01
+ 0.67718101E+00-0.58373791E+00-0.40829569E+00 0.33186941E+01
+-0.58822638E+00 0.25124910E+03-0.10894400E+03-0.13296181E+03
+ 0.41261730E+02-0.41506100E+02 0.55229292E+01-0.38911209E+01
+ 0.61797171E+01-0.26275611E+00 0.15441880E+01 0.61705589E+01
+ 0.17235500E+01 0.16079021E+01 0.14462000E+02 0.59746151E+01
+ 0.26619871E+01 0.11060470E+02-0.95940056E+01-0.85320169E+00
+ 0.15274329E+00-0.26409941E+01-0.16709650E+00 0.24241950E+00
+ 0.11799690E+00-0.13193210E+01 0.19411930E+00-0.84973900E+02
+ 0.41062851E+02 0.38139030E+02-0.15623540E+02 0.15349220E+02
+-0.16295630E+01 0.11032640E+01-0.14642130E+01 0.15129870E+00
+-0.29515731E+00-0.20971370E+01-0.35539460E+00-0.52367812E+00
+-0.51164931E+00 0.14387940E+01 0.21177149E+01 0.92944287E-01
+ 0.13664840E+00 0.84254943E-01-0.73170424E-01 0.17697980E-02
+ 0.88788364E-02-0.57905479E-02 0.33484821E-02-0.13997840E-02
+ 0.18516040E-02 0.13144150E+00-0.17212930E+01 0.12600110E+01
+-0.14592460E+00 0.97827397E-01 0.46324819E-01 0.64329997E-01
+-0.15277540E-01-0.11715810E-02-0.26419561E-02-0.24205761E-02
+-0.18569320E-02-0.41517881E-02-0.18581090E+01 0.30593910E+01
+ 0.55145520E+00 0.74513757E+00 0.67265922E+00 0.11711510E+00
+ 0.23991920E+00 0.47997379E-04 0.26859811E-01 0.15859880E-01
+ 0.36470171E-01-0.30662470E-01-0.36911119E-01-0.25193501E+01
+ 0.68973500E+00 0.19102750E+01-0.52708209E+00 0.68895799E+00
+-0.35330191E+00-0.96929863E-01 0.42539030E-01-0.40793799E-01
+ 0.54594550E-01 0.55307900E-02 0.51183429E-01-0.30125320E-01
+ 0.54161439E+01 0.13101720E+02-0.60742588E+01-0.57962728E+00
+-0.18714960E+01-0.40495551E+00 0.42644262E+01-0.25536790E+00
+-0.17632741E+00 0.14456220E+00-0.74443728E-01 0.37580181E-01
+-0.68465158E-01 0.14976190E+01 0.40319541E+00 0.14633030E+02
+ 0.20829310E+01-0.88547230E+00-0.34213300E+01-0.51486123E+00
+ 0.56478262E+00-0.54967329E-01 0.23877540E+00 0.56238949E-01
+ 0.24161460E-01 0.17720941E+00 0.25338421E+02-0.49599121E+02
+ 0.94630728E+01-0.14675860E+02-0.20800250E+01-0.28563161E+01
+-0.69499888E+01 0.27613370E-01-0.53759778E+00-0.12500229E+00
+-0.97611791E+00 0.60202819E+00 0.86347163E+00 0.29884970E+02
+-0.25249951E+01-0.32118622E+02-0.69271132E-01-0.11294340E+02
+ 0.92015715E+01 0.83418089E+00-0.12248950E+01 0.80987269E+00
+-0.10016440E+01-0.24749850E+00-0.99090493E+00 0.31171161E+00
+-0.23056620E+02-0.33296810E+02 0.98110817E+02 0.68093171E+01
+ 0.15428480E+02-0.21794319E+01-0.32998661E+02 0.37983201E+01
+ 0.15952650E+01-0.90060151E+00 0.47722310E+00-0.68667960E+00
+ 0.69760013E+00-0.12857569E+01-0.52038101E+02-0.11129300E+02
+-0.19067860E+02 0.10500540E+02 0.25489010E+02 0.59843218E+00
+-0.54855480E+01 0.32393339E+00-0.29603319E+01-0.70206881E+00
+-0.11919240E+00-0.13783640E+01-0.11055860E+03 0.21896980E+03
+-0.94399612E+02 0.75111099E+02-0.31137500E+01 0.16044550E+02
+ 0.41261330E+02-0.17102309E+01 0.28941810E+01 0.18616410E+00
+ 0.65817351E+01-0.35248239E+01-0.54929762E+01-0.11645220E+03
+ 0.78883920E+01 0.17061659E+03 0.12276460E+02 0.51623852E+02
+-0.53222610E+02-0.21430440E+01 0.97174234E+01-0.38397191E+01
+ 0.55248489E+01 0.27584369E+01 0.55831761E+01-0.13638800E+01
+ 0.51381649E+02-0.43068291E+02-0.35343381E+03-0.26432671E+02
+-0.51872608E+02 0.10793730E+02 0.91005737E+02-0.14232530E+02
+-0.47991471E+01 0.22555840E+01-0.14085970E+01 0.26745110E+01
+-0.21690991E+01-0.14005710E+02 0.19382660E+03-0.16519690E+03
+ 0.63594059E+02-0.41071018E+02-0.67290749E+02 0.19494040E+00
+ 0.17093269E+02-0.77023822E+00 0.10432570E+02 0.26656611E+01
+ 0.10898920E+00 0.38739481E+01 0.22529620E+03-0.41474121E+03
+ 0.25881799E+03-0.15846600E+03 0.29395700E+02-0.35504829E+02
+-0.98796501E+02 0.81618328E+01-0.66976728E+01 0.46311969E+00
+-0.16646320E+02 0.84964237E+01 0.13974490E+02 0.20282930E+03
+ 0.10425251E+01-0.35115500E+03-0.42464180E+02-0.97044151E+02
+ 0.12391220E+03 0.31809480E+01-0.27911461E+02 0.77514958E+01
+-0.13672380E+02-0.90364943E+01-0.13025840E+02 0.28955679E+01
+-0.63146221E+02 0.16240190E+03 0.48020990E+03 0.40082310E+02
+ 0.70579590E+02-0.14680200E+02-0.10588590E+03 0.19462231E+02
+ 0.56813879E+01-0.24129260E+01 0.17422450E+01-0.37482860E+01
+ 0.26681249E+01 0.35498260E+02-0.25659259E+03 0.35906631E+03
+-0.83966560E+02 0.61856110E+02 0.75648628E+02 0.24732500E+00
+-0.21032391E+02 0.54966611E+00-0.14029660E+02-0.38236830E+01
+ 0.14250471E+00-0.45341191E+01-0.20623399E+03 0.34714081E+03
+-0.32377020E+03 0.14461200E+03-0.52574032E+02 0.34671841E+02
+ 0.10488370E+03-0.12217110E+02 0.70875492E+01-0.12676851E+01
+ 0.17941990E+02-0.89758549E+01-0.15451230E+02-0.15709500E+03
+ 0.12126271E+01 0.29736230E+03 0.56813332E+02 0.75656883E+02
+-0.12773360E+03-0.31509011E+01 0.33047119E+02-0.67012649E+01
+ 0.15393380E+02 0.11571360E+02 0.13426090E+02-0.28909180E+01
+ 0.29741501E+02-0.10232170E+03-0.22009070E+03-0.19669729E+02
+-0.32615059E+02 0.63851399E+01 0.44296188E+02-0.88529768E+01
+-0.23133640E+01 0.91327161E+00-0.73627239E+00 0.17496810E+01
+-0.11410720E+01-0.21905270E+02 0.11316550E+03-0.20235760E+03
+ 0.37592091E+02-0.30277790E+02-0.30872240E+02-0.80343282E+00
+ 0.89361572E+01 0.21466229E-01 0.64228659E+01 0.18514730E+01
+-0.17122610E+00 0.18796279E+01 0.68403587E+02-0.10403570E+03
+ 0.15124580E+03-0.48270660E+02 0.28069639E+02-0.12476670E+02
+-0.41057621E+02 0.57752242E+01-0.27928059E+01 0.74933273E+00
+-0.69963040E+01 0.34489570E+01 0.61983280E+01 0.42869968E+02
+-0.72174811E+01-0.85583229E+02-0.26057541E+02-0.20310860E+02
+ 0.48573151E+02 0.15537360E+01-0.13803150E+02 0.19233910E+01
+-0.63739200E+01-0.51280589E+01-0.50603180E+01 0.10823801E+01
+ 0.46266270E+00-0.20025280E+00 0.48668232E-01-0.89564723E+00
+ 0.98431043E-01-0.12859251E+00-0.56036860E-01-0.28982690E-01
+ 0.39482810E-01 0.61723811E-03-0.58920630E-02 0.32628251E-02
+ 0.16853180E-02 0.34914311E-01-0.66535421E-01-0.18598260E+00
+-0.81757888E-01-0.89297342E+00 0.64681672E-01-0.15917990E+00
+-0.43037191E-01-0.30802630E-01 0.72427499E-02-0.36796960E-02
+ 0.25260129E-02 0.14912901E-02 0.58589749E-01-0.44922450E+00
+ 0.30920789E+00 0.49037290E+00-0.59654373E+00 0.32908359E+00
+-0.20502080E+00-0.10827670E+00 0.54981541E-01-0.52653179E-01
+ 0.19833150E-02-0.15017560E-01 0.28879290E-01 0.58492249E+00
+-0.27058950E+00-0.49872351E+00 0.61363018E+00 0.62479722E+00
+ 0.29807171E+00 0.36032361E+00-0.51480711E-01-0.51729139E-01
+ 0.49000192E-02-0.56680251E-01-0.20100070E-01-0.70629958E-02
+-0.48833432E+01-0.11514699E+01-0.96068561E+00-0.45520229E+01
+ 0.50019851E+01 0.28408110E+00-0.15041000E+01-0.17877610E+00
+ 0.24172889E-01 0.85627392E-01 0.12500580E+00-0.10140580E+00
+-0.41933041E-01 0.29215550E+01 0.19037150E+01-0.16524360E+01
+-0.57819600E+01-0.43000278E+01 0.10879101E+01 0.83105320E+00
+-0.65760933E-01-0.24160460E+00-0.13483819E+00 0.98260231E-01
+-0.79675607E-01-0.55025399E-01-0.28545570E+01 0.59674530E+01
+-0.24659071E+01 0.82370834E+01 0.83235073E+01-0.46252820E+00
+-0.74933952E+00 0.44404471E+00-0.82825589E+00 0.68437660E+00
+ 0.41961271E-01 0.23380470E+00-0.16892730E+00-0.12026800E+02
+ 0.29689040E+01 0.53715048E+01-0.83282814E+01 0.69495940E+01
+ 0.39606720E+00-0.87507868E+00 0.81293082E+00-0.28791630E+00
+-0.20444430E+00 0.80220640E+00 0.15587370E+00 0.10257020E+00
+ 0.22475121E+02 0.53077989E+01-0.30357311E+01 0.31520029E+02
+-0.19697861E+02 0.11017309E+01 0.12041510E+02 0.11021320E+01
+ 0.11712010E+01-0.10077569E+01-0.38728121E+00 0.36472261E+00
+ 0.15869071E+00-0.10457310E+02-0.29860959E+01 0.82990980E+01
+ 0.24221130E+02 0.29193979E+02-0.10520140E+02-0.93961388E+00
+-0.60416830E+00 0.19502840E+01 0.51366001E+00-0.32635361E+00
+ 0.17281650E+00 0.25444049E+00 0.52106071E+01-0.19239510E+02
+ 0.54762659E+01-0.26930969E+02-0.21186150E+02-0.18258060E+01
+ 0.54325948E+01-0.30297339E+00 0.22218890E+01-0.18762910E+01
+ 0.77199981E-01-0.65322191E+00 0.34135029E+00 0.30723110E+02
+-0.69973311E+01-0.16463320E+02 0.21293560E+02-0.23974310E+02
+-0.51401148E+01-0.82208967E+00-0.22888899E+01 0.15663790E+01
+ 0.35015571E+00-0.21961780E+01-0.36448249E+00-0.27384940E+00
+-0.40966591E+02 0.46451740E+01 0.14772600E+02-0.54272041E+02
+ 0.28934219E+02-0.20478611E+01-0.26122709E+02-0.19823970E+01
+-0.42977991E+01 0.26949339E+01 0.12599370E+00-0.44591001E+00
+-0.21434820E+00 0.11519790E+02-0.34570560E+01-0.15676850E+01
+-0.37935989E+02-0.49166309E+02 0.24483040E+02 0.77334309E+00
+ 0.30076821E+01-0.40973792E+01-0.44457209E+00 0.53317952E+00
+-0.22769310E-01-0.42238209E+00-0.24018400E+01 0.16424231E+02
+-0.56405220E+01 0.16734240E+02 0.10044430E+02 0.20170009E+01
+-0.54584198E+01-0.23975830E+00-0.13594640E+01 0.14106650E+01
+-0.20734110E+00 0.48733959E+00-0.24691200E+00-0.22205940E+02
+ 0.75772748E+01 0.13585360E+02-0.10104190E+02 0.14788500E+02
+ 0.54447889E+01 0.13304490E+01 0.14884520E+01-0.15576510E+01
+-0.73333278E-01 0.16362690E+01 0.27718151E+00 0.19320130E+00
+ 0.24866631E+02-0.12553730E+02-0.75084152E+01 0.30538790E+02
+-0.10575580E+02 0.57282072E+00 0.17366119E+02 0.12316070E+01
+ 0.31916039E+01-0.19717830E+01 0.24861591E+00 0.17737409E+00
+ 0.10687650E+00-0.19611990E+01 0.74587148E+00-0.71528502E+01
+ 0.16315220E+02 0.27291889E+02-0.16871130E+02-0.74192297E+00
+-0.24007900E+01 0.26819589E+01-0.40134821E-01-0.33512589E+00
+-0.96735142E-01 0.23845480E+00-0.11232300E-01 0.46528610E-02
+ 0.26008219E+00-0.69581922E-02 0.67748383E-01-0.46862569E-01
+-0.81563067E+00-0.17367721E-01-0.36117069E-01-0.31678930E-01
+ 0.78015588E-02 0.28192650E-02 0.47435458E-02 0.18393779E-01
+-0.26521000E+00 0.50225202E-03-0.78109637E-01 0.33059539E-02
+ 0.81641781E+00-0.45898661E-01 0.32538451E-01-0.16185651E-01
+-0.96270936E-02-0.31196279E-01-0.34761841E-02 0.77930512E-03
+-0.85941307E-01 0.31724870E+00 0.85669190E+00 0.25051719E+00
+-0.53675193E+00-0.26489639E+00 0.43993479E+00 0.25405061E+00
+ 0.10114160E+00-0.18524000E-01 0.44972938E-02 0.17602351E-01
+-0.31277479E-02-0.18285260E-02-0.93816668E+00 0.20559880E+00
+ 0.50602329E+00 0.18662080E+00-0.44910941E+00-0.25474969E+00
+-0.11528170E+00 0.25669909E+00 0.17850579E-02-0.15397600E-01
+ 0.18693390E-02-0.56997291E-02 0.67460161E+00 0.76616669E+00
+-0.16999919E+01 0.38825101E+00-0.47870240E+00 0.44853720E+00
+ 0.74964041E+00-0.72680360E+00 0.31541461E+00 0.17250749E+00
+-0.10882960E+00-0.44253219E-01-0.78536108E-01-0.32648459E+00
+ 0.20628209E+01 0.77794307E+00 0.67558157E+00 0.36551550E+00
+-0.72139519E+00 0.51440442E+00-0.27380031E+00-0.79421341E+00
+ 0.17400479E+00 0.12996480E+00 0.40845338E-01-0.26752921E-02
+ 0.12562160E+00 0.19126581E+00-0.17068540E+01-0.16180340E-01
+ 0.41747960E+00 0.12875340E+01-0.46246880E+00-0.64411390E+00
+-0.36124028E-01-0.93063973E-02-0.25119530E-01-0.21810140E-01
+-0.11665600E-02 0.46098161E-01 0.19980590E+01 0.25790110E+00
+-0.32337540E+00 0.94207346E-01 0.45735049E+00 0.12766690E+01
+ 0.56018881E-01-0.65458649E+00 0.22463810E-01-0.14125610E-01
+-0.11021390E-02 0.12815600E-01-0.11168770E+01-0.12539740E+01
+ 0.16535090E+01-0.11362290E+01 0.16137400E+01-0.15537900E+01
+-0.78693800E-01 0.16272150E+01-0.54735899E+00-0.92339300E-01
+ 0.26617581E+00 0.74101202E-01 0.12292650E+00 0.58494473E+00
+-0.24194360E+01-0.11965630E+01-0.19527690E+01-0.11602319E+01
+ 0.39097968E-01-0.16827050E+01 0.48580280E+00 0.17405519E+01
+-0.38118440E+00-0.23083851E-01-0.63019253E-01 0.10813840E-01
+ 0.78052962E-02 0.69937310E-02-0.98874066E-02-0.80937847E-01
+-0.44375408E-01-0.62513322E-01 0.90241376E-02 0.26108029E+00
+-0.21970630E-01 0.14366210E-01 0.54098971E-01 0.11035370E-01
+-0.16077571E-01-0.13266730E-01 0.32035708E-01 0.20088511E-01
+ 0.51192772E-01-0.88333972E-01-0.15314730E-01-0.64759210E-01
+ 0.23176121E-01 0.25714019E+00-0.48960902E-01 0.11502640E-01
+ 0.18942039E-01 0.99492138E-02-0.20220080E-01 0.10598750E+00
+ 0.12503099E+00 0.32056239E-01 0.67659207E-01-0.48556991E-01
+ 0.99621899E-01-0.25468869E-01 0.32606161E+00 0.28886201E-01
+-0.91166466E-01-0.19475261E-01 0.10612430E-01 0.61394900E-01
+-0.88352904E-01 0.98372102E-01-0.51263440E-01 0.73958440E-02
+-0.80898017E-01-0.42195112E-01-0.33801660E+00-0.28077340E-01
+ 0.95532171E-01 0.12218310E-01-0.12028130E-01-0.16720630E-01
+-0.16864009E-01 0.14557230E-01-0.15229740E-01 0.10689819E-02
+-0.94463052E-02 0.66327587E-01-0.26912410E-01 0.44397920E-01
+ 0.12464690E-02-0.65388111E-02 0.20936251E+00-0.26058219E-01
+-0.17766999E-01-0.26639320E-01 0.19261930E-01 0.22382420E-01
+ 0.17009690E-01-0.24800131E-03 0.21175509E-01 0.68635978E-01
+ 0.25706049E-02 0.40362202E-01-0.20675400E+00-0.47190390E-02
+ 0.16880371E-01-0.27481260E-01-0.12540890E-01 0.10754480E-01
+ 0.11977670E-01-0.51151519E-02 0.65892371E-02 0.96548302E-02
+ 0.12113660E-01 0.83432496E-02 0.64512812E-01 0.23489401E-01
+-0.20574510E-01-0.89864470E-01-0.44624709E-01 0.15290190E-01
+ 0.69342679E-02-0.52865460E-02 0.10028210E-01 0.10325130E-02
+-0.13719290E-01 0.29905210E-02-0.75256370E-01 0.10183300E-01
+ 0.23355089E-01 0.20418759E-01 0.45392249E-01-0.88688187E-01
+-0.38511809E-02-0.72451201E-02-0.33329481E-02-0.52286088E-02
+-0.60487962E-02-0.14279610E-02 0.44481531E-02-0.12357480E-01
+ 0.71096881E-02-0.31299910E-02 0.78658732E-02-0.52101882E-02
+ 0.21948270E-01 0.21586909E-02-0.14119670E-01-0.70720278E-02
+ 0.13914980E-02-0.42684362E-02-0.66456278E-02 0.89122076E-02
+-0.16074770E-02-0.10053510E-01-0.96186362E-02-0.48433300E-02
+-0.23685100E-01-0.27667370E-02 0.20307070E-02-0.36096231E-02
+-0.60481741E-02-0.73498390E-02 0.14961810E-02 0.49407268E-02
+ 0.34926930E-02-0.63541979E-02 0.63584419E-02-0.16029651E-02
+-0.45363582E-02-0.20814640E-01-0.11440370E-01-0.25262481E-01
+-0.73306249E-02-0.10430720E-01 0.33125849E-02-0.79117892E-02
+-0.70375670E-03-0.20936490E-02-0.79410691E-02-0.50085271E-02
+ 0.66030659E-02-0.91858220E-03 0.15836690E-01-0.22124540E-01
diff --git a/input/glow_data/iri90/ursi16.asc b/input/glow_data/iri90/ursi16.asc
new file mode 100644
index 0000000..141dfdc
--- /dev/null
+++ b/input/glow_data/iri90/ursi16.asc
@@ -0,0 +1,494 @@
+ 0.51743612E+01-0.19434930E+00 0.12941059E+00 0.10428850E+00
+-0.52734099E-01 0.66653341E-02-0.20786379E-02 0.13419690E-02
+ 0.37268321E-02-0.90229401E-03-0.21301219E-02-0.17804200E-02
+-0.70013972E-04-0.34750229E+00 0.89960748E+00 0.20547360E+00
+ 0.16530760E+00 0.32349771E+00 0.96264943E-01-0.43967381E-01
+ 0.34014791E-01-0.49483869E-02 0.24843320E-01-0.18173350E-01
+-0.77059940E-02 0.14177620E-01 0.47858839E+01 0.20319989E+00
+-0.36289640E-01-0.10618720E+01-0.63835390E-01 0.10226750E+00
+ 0.16470410E+00-0.86775160E-03-0.14781500E+00 0.20893641E-01
+ 0.85648127E-01 0.20030130E-01 0.26457250E-01 0.16202290E+02
+-0.16960871E+02-0.20198600E+01-0.11903270E+01-0.64601369E+01
+-0.16152020E+01 0.15618481E+00-0.67457300E+00 0.27513421E+00
+-0.18642910E+00-0.13073240E+00 0.27447861E-01-0.12988859E+00
+-0.27717890E+02 0.14006470E+01-0.18748050E+01 0.65842662E+01
+-0.18621989E+01-0.14219000E+01-0.12072750E+01 0.13285230E+00
+ 0.86778587E+00-0.14605419E+00-0.56786019E+00 0.23946719E-01
+-0.88729588E-02-0.36774220E+02 0.77965958E+02 0.92178278E+01
+-0.28677750E+01 0.33825359E+02 0.69263921E+01 0.92323661E+00
+ 0.41465912E+01-0.17862591E+01-0.19019720E+00 0.15746230E+01
+ 0.13073529E+00 0.45130330E+00 0.58011089E+02 0.72081351E+00
+ 0.67644529E+01-0.17533291E+02 0.69397521E+01 0.48242421E+01
+ 0.35801470E+01-0.79985303E+00-0.18413160E+01 0.40721241E+00
+ 0.14276940E+01-0.26239470E+00-0.36715969E+00-0.95837727E+01
+-0.14730251E+03-0.26691351E+02 0.17492500E+02-0.71821121E+02
+-0.12402170E+02-0.43423829E+01-0.97222462E+01 0.41966052E+01
+ 0.22531469E+01-0.44762549E+01-0.66878903E+00-0.64738548E+00
+-0.70461456E+02-0.73299742E+01-0.93345098E+01 0.19371820E+02
+-0.76388078E+01-0.61845131E+01-0.44477229E+01 0.13192000E+01
+ 0.16070110E+01-0.48100930E+00-0.15231620E+01 0.42470470E+00
+ 0.71602011E+00 0.84250587E+02 0.12664780E+03 0.36777302E+02
+-0.22935459E+02 0.67160988E+02 0.10031490E+02 0.57366028E+01
+ 0.96949348E+01-0.41318421E+01-0.35153420E+01 0.49920802E+01
+ 0.90510410E+00 0.35545889E+00 0.33715752E+02 0.52361560E+01
+ 0.43674831E+01-0.74773722E+01 0.26785619E+01 0.26922979E+01
+ 0.19188451E+01-0.66460502E+00-0.48036110E+00 0.20133869E+00
+ 0.58001077E+00-0.20762210E+00-0.36879569E+00-0.53217522E+02
+-0.41318871E+02-0.17563890E+02 0.93587122E+01-0.23066410E+02
+-0.30429790E+01-0.24379630E+01-0.34806449E+01 0.14479320E+01
+ 0.16187050E+01-0.19475620E+01-0.38750610E+00-0.41555628E-01
+ 0.98768696E-02 0.13448180E+01 0.21432979E+01 0.51872549E-02
+-0.33350639E-01 0.38604770E-01-0.75782448E-01 0.34522300E-02
+ 0.16102670E-01-0.74501598E-03 0.71905548E-03-0.24785860E-02
+ 0.40004971E-02-0.45585658E-01-0.19602970E+01 0.13773440E+01
+ 0.21003500E-01 0.16839660E-02 0.66931747E-01 0.25761440E-01
+-0.80606118E-02-0.71893958E-02-0.42408539E-03-0.32823989E-02
+-0.18670930E-02 0.39139800E-03-0.11103040E+00 0.75689399E+00
+-0.54421371E+00 0.63146639E+00-0.73926628E+00 0.41223079E+00
+-0.13028100E+00-0.22476090E-01-0.25641670E-01-0.56974828E-01
+ 0.88043399E-02-0.21016881E-01 0.27503001E-01-0.62555659E+00
+ 0.51172698E+00 0.21187899E+01 0.79561192E+00 0.57894892E+00
+ 0.14425290E+00 0.23420639E+00-0.28658649E-02-0.38603172E-01
+-0.14844750E-01-0.67902401E-01-0.34903649E-01-0.56883688E-02
+ 0.19382490E+01 0.28125730E+01 0.51724238E+01 0.93080372E+00
+-0.59781432E+00 0.11327389E+01 0.27540510E+01-0.60377099E-01
+-0.63012362E+00 0.11552850E+00-0.61956089E-01-0.28959461E-01
+-0.11721810E+00 0.21866140E+01-0.11953430E+02 0.21296749E+01
+ 0.52192819E+00 0.14830880E+01-0.23746991E+01 0.92719150E+00
+ 0.41866869E+00 0.29091421E+00 0.60148191E-01 0.46211150E-01
+-0.45903951E-01 0.67183608E-02-0.86504841E+01 0.49542341E+01
+-0.17685500E+01-0.10901630E+02 0.11916800E+02-0.73369479E+01
+ 0.29121640E+00 0.13445351E+00 0.10625070E+01 0.13392839E+01
+-0.74737233E+00 0.17483971E+00-0.31160289E+00 0.42615299E+01
+ 0.13201620E+02-0.21915850E+02-0.11780930E+02-0.98505764E+01
+-0.41471410E+00-0.42775931E+01-0.39795351E+00 0.15516721E+00
+ 0.18381490E+00 0.11678040E+01 0.42695209E+00 0.30400990E-01
+-0.16365231E+02-0.31601101E+02 0.71529608E+01-0.15005860E+01
+ 0.42306342E+01-0.11879080E+02-0.22376129E+02 0.39045531E+00
+ 0.53932829E+01-0.13202810E+01 0.53335828E+00 0.38754469E+00
+ 0.12063570E+01-0.15972030E+02 0.42290760E+02-0.12759610E+02
+-0.33869851E+01-0.67286592E+01 0.19600969E+02-0.90255823E+01
+-0.50550508E+01-0.25514300E+01-0.93143612E+00-0.25841710E+00
+ 0.79969758E+00-0.22194581E+00 0.47531380E+02-0.11523520E+02
+ 0.13967220E+02 0.60481098E+02-0.59368149E+02 0.41508610E+02
+ 0.24277439E+01 0.48314579E-01-0.72896762E+01-0.81605101E+01
+ 0.61611891E+01 0.31413880E+00 0.84160441E+00-0.33096668E+02
+-0.10873410E+03 0.15351100E+03 0.52719742E+02 0.54304169E+02
+-0.31425171E+01 0.27598370E+02 0.54371710E+01 0.16346560E+01
+-0.24512130E+00-0.66415410E+01-0.16288400E+01 0.84819302E-01
+ 0.47164669E+02 0.87342751E+02-0.13946280E+03-0.66977091E+01
+-0.13521960E+02 0.35838451E+02 0.66414078E+02-0.33913329E+00
+-0.16499559E+02 0.46988468E+01-0.18482831E+01-0.10212420E+01
+-0.41240048E+01 0.47071152E+02 0.33911281E+01 0.57346768E+01
+ 0.11389270E+02 0.10478930E+02-0.59003712E+02 0.25719080E+02
+ 0.18085779E+02 0.85945845E+01 0.37102320E+01 0.75118673E+00
+-0.32407091E+01 0.12586730E+01-0.85393051E+02-0.23031580E+02
+-0.24418060E+02-0.14389211E+03 0.13061121E+03-0.10254640E+03
+-0.86617479E+01-0.16909990E+01 0.19989639E+02 0.19757759E+02
+-0.17280180E+02-0.34586849E+01-0.33168611E+00 0.10393130E+03
+ 0.28030560E+03-0.42399219E+03-0.10570180E+03-0.12893100E+03
+ 0.13135940E+02-0.74556419E+02-0.20025539E+02-0.89809484E+01
+-0.10381590E+01 0.16231159E+02 0.32490611E+01-0.98945999E+00
+-0.56085918E+02-0.10215320E+03 0.26694299E+03 0.16823290E+02
+ 0.19213430E+02-0.43084919E+02-0.82122208E+02-0.12206980E+01
+ 0.20733170E+02-0.64674802E+01 0.28078511E+01 0.10031490E+01
+ 0.55779042E+01-0.54292301E+02-0.11258120E+03 0.25697050E+02
+-0.17537760E+02-0.63500662E+01 0.73697327E+02-0.29096319E+02
+-0.24954000E+02-0.12286060E+02-0.56634388E+01-0.10822960E+01
+ 0.48855152E+01-0.22056091E+01 0.63675541E+02 0.67460716E+02
+-0.43398471E+01 0.14829190E+03-0.13191341E+03 0.11343040E+03
+ 0.11099940E+02 0.40018759E+01-0.23944920E+02-0.20684271E+02
+ 0.19893749E+02 0.60857668E+01-0.11088120E+01-0.12820081E+03
+-0.27988721E+03 0.48489221E+03 0.10035190E+03 0.13332550E+03
+-0.18220930E+02 0.86357178E+02 0.28007509E+02 0.14925730E+02
+ 0.25737929E+01-0.17551710E+02-0.36032431E+01 0.19702539E+01
+ 0.22455460E+02 0.42826611E+02-0.14528180E+03-0.96722412E+01
+-0.94163237E+01 0.18192751E+02 0.35875111E+02 0.14081330E+01
+-0.90899057E+01 0.30361490E+01-0.15004200E+01-0.32883039E+00
+-0.25829711E+01 0.21774509E+02 0.83787071E+02-0.23448021E+02
+ 0.91282492E+01 0.12021930E+01-0.32407570E+02 0.11598890E+02
+ 0.11688330E+02 0.61892090E+01 0.29495440E+01 0.60835057E+00
+-0.24895489E+01 0.12067230E+01-0.16082371E+02-0.39766258E+02
+ 0.20437120E+02-0.54592621E+02 0.49655319E+02-0.45919479E+02
+-0.52556329E+01-0.27004721E+01 0.10308220E+02 0.77731400E+01
+-0.81228294E+01-0.31766651E+01 0.91862762E+00 0.53513020E+02
+ 0.92083778E+02-0.19560091E+03-0.36506020E+02-0.49442612E+02
+ 0.88052158E+01-0.35658680E+02-0.13209700E+02-0.80393896E+01
+-0.14689480E+01 0.68328910E+01 0.16665910E+01-0.11547379E+01
+ 0.20319970E+00 0.25681609E+00-0.92778921E-01-0.54422629E+00
+-0.56500143E+00-0.90133972E-01-0.14009470E+00-0.27638020E-01
+ 0.12763140E+00 0.33084541E-02-0.80726501E-02-0.54265358E-02
+ 0.47982298E-02-0.59428010E-01 0.11089010E+00 0.25175360E+00
+ 0.55686539E+00-0.52976441E+00 0.14197280E+00-0.99763200E-01
+-0.11763100E+00-0.25134770E-01 0.70773521E-02-0.82406623E-03
+-0.27448840E-02-0.17459580E-02 0.41544169E-01 0.31517529E+00
+ 0.97226366E-01-0.46307531E+00-0.82439649E+00-0.35023749E-01
+ 0.72153769E-02-0.20760140E+00-0.31642739E-01-0.13647880E-01
+ 0.19896779E-01-0.28254359E-02-0.37774488E-01 0.53420711E-01
+-0.10613940E+00 0.19363490E+00 0.97395092E+00-0.43689111E+00
+ 0.10225600E+00-0.38825762E-01-0.13897110E-01-0.20559430E+00
+-0.18656980E-01-0.33780199E-01 0.31553220E-01 0.27244971E-02
+-0.28809030E+01-0.94696701E+00 0.30124440E+01 0.72734928E+01
+ 0.67657051E+01 0.19931480E+01 0.92110202E-01 0.67906272E+00
+-0.11974829E+01-0.11684680E+00 0.12574869E+00 0.13616911E+00
+ 0.57842001E-01 0.38253930E+01-0.33447490E+01-0.51585269E+00
+-0.68851161E+01 0.71684470E+01-0.14246771E+00 0.21807950E+01
+ 0.88299477E+00 0.60840219E+00-0.11077360E+00-0.58252331E-01
+-0.12460130E+00 0.70172288E-01 0.12646280E+00-0.37541511E+01
+-0.35351691E+00 0.10518090E+02 0.38959420E+01 0.33664191E+00
+-0.69358069E+00 0.18840320E+01-0.37244871E+00 0.26806161E+00
+-0.30781180E+00 0.25252670E-02 0.37846220E+00-0.12034550E+01
+ 0.16579061E+01-0.24485531E+01-0.56713982E+01 0.10425530E+02
+-0.52291602E+00 0.37269691E+00 0.10392770E+01 0.19471130E+01
+ 0.21469750E+00 0.49223021E+00-0.38091180E+00-0.45965429E-01
+ 0.10938940E+02 0.25430160E+01-0.10982770E+02-0.18527559E+02
+-0.27305241E+02-0.92443094E+01 0.30549569E+01-0.49003782E+01
+ 0.42376542E+01 0.70536578E+00-0.73766780E+00-0.91004848E+00
+-0.10029140E+01-0.18581539E+02 0.13926080E+02-0.63490641E+00
+ 0.28726910E+02-0.18977190E+02-0.32382841E+01-0.10235860E+02
+-0.27183549E+01-0.43472419E+01 0.10889390E+01 0.55960792E+00
+ 0.12496110E+01-0.56700552E+00-0.19786950E+01 0.10638480E+02
+-0.46986181E+00-0.32844990E+02-0.73653932E+01-0.41686219E+00
+ 0.22920389E+01-0.44202108E+01 0.18959820E+01-0.10216870E+01
+ 0.10574549E+01-0.76053329E-01-0.12136610E+01 0.17321620E+01
+-0.36855519E+01 0.56637921E+01 0.12309640E+02-0.33100880E+02
+ 0.85583448E+00-0.84966338E+00-0.37432189E+01-0.48164468E+01
+-0.70273501E+00-0.15659920E+01 0.12752930E+01 0.61722409E-01
+-0.16115499E+02-0.49128771E+01 0.17830151E+02 0.74965701E+01
+ 0.43997608E+02 0.16307341E+02-0.68517060E+01 0.10752760E+02
+-0.57031732E+01-0.13758820E+01 0.15987819E+01 0.21496320E+01
+ 0.30864480E+01 0.31309950E+02-0.25414850E+02 0.31161289E+01
+-0.47887779E+02 0.98279486E+01 0.74995070E+01 0.18509960E+02
+ 0.32821059E+01 0.97354288E+01-0.29113250E+01-0.13209540E+01
+-0.33753021E+01 0.15692530E+01 0.26282549E+01-0.91777077E+01
+ 0.16874620E+01 0.24010401E+02 0.16019210E+01-0.37994689E+00
+-0.17706980E+01 0.31112380E+01-0.16154770E+01 0.10331420E+01
+-0.94211417E+00 0.91814503E-01 0.10863570E+01-0.28191379E+00
+ 0.21016631E+01-0.37973211E+01-0.53750148E+01 0.24639351E+02
+-0.58803213E+00 0.23319951E+00 0.29866741E+01 0.35885201E+01
+ 0.62469631E+00 0.14172690E+01-0.11689579E+01-0.14977430E-01
+ 0.83359423E+01 0.33219190E+01-0.10483660E+02 0.62233148E+01
+-0.20996441E+02-0.93719444E+01 0.40917311E+01-0.72459412E+01
+ 0.23395870E+01 0.80028439E+00-0.11363810E+01-0.15657550E+01
+-0.25685980E+01-0.17354670E+02 0.16017941E+02-0.27911150E+01
+ 0.24036341E+02 0.39123070E+01-0.44105701E+01-0.11057660E+02
+-0.10984581E+01-0.67882318E+01 0.22529321E+01 0.84225029E+00
+ 0.26772051E+01-0.12744510E+01-0.13703450E-01-0.27854700E-01
+ 0.97254008E-01-0.27617300E+00 0.62581167E-01-0.15934180E+00
+-0.47915161E+00 0.33473771E-01 0.85701749E-01-0.23853140E-01
+-0.36763418E-01-0.91209589E-02 0.16500849E-01-0.46052999E-03
+-0.81430733E-01-0.21860881E-01-0.72488613E-01-0.26602170E+00
+ 0.47526249E+00-0.15281570E+00-0.87037273E-01 0.34213491E-01
+ 0.38960379E-01-0.23042399E-01-0.15577360E-01-0.11226840E-01
+-0.84236793E-01 0.68882190E-01 0.34906229E+00-0.10310340E+00
+-0.23130479E+00-0.54604799E-01 0.16401060E+00 0.26733050E+00
+ 0.84007509E-01-0.45725770E-01 0.11431750E-01-0.65062180E-01
+ 0.68804962E-02 0.52794188E-01-0.38914281E+00 0.64409310E-02
+ 0.22286481E+00-0.11565670E+00-0.22054450E+00-0.59730750E-01
+-0.63109979E-01 0.25587451E+00-0.89845676E-02-0.49956791E-01
+-0.10726540E-01-0.65730393E-01 0.22613630E+00 0.26383409E+00
+-0.74930578E+00 0.13803260E+01-0.19568430E+00 0.46379289E+00
+-0.28354990E+00-0.67827350E+00-0.53924099E-01 0.60292691E-01
+ 0.10278730E+00 0.12397870E+00-0.25287870E+00 0.15931120E-01
+ 0.78430122E+00 0.18545669E+00 0.29585159E+00 0.12621670E+01
+ 0.37190369E+00 0.35305569E+00 0.40912759E-01-0.71358252E+00
+-0.11472000E+00 0.61471321E-01 0.22681470E+00 0.18416791E+00
+ 0.15570749E+00 0.14940441E+00-0.96807748E+00 0.66964108E+00
+ 0.28969610E+00 0.42348811E+00-0.19150390E+00-0.64424920E+00
+-0.14762360E+00 0.95392533E-01-0.85588068E-01 0.16306020E+00
+-0.69807179E-01-0.83840117E-01 0.10634470E+01 0.18780440E+00
+-0.24441350E+00 0.66759080E+00 0.28767189E+00 0.42274851E+00
+ 0.11807000E+00-0.61968768E+00 0.90802357E-01 0.98962188E-01
+ 0.65717362E-01 0.16833900E+00-0.34224281E+00-0.87513678E-01
+ 0.62947762E+00-0.17058170E+01 0.73746228E+00-0.50350147E+00
+ 0.13818800E+01 0.14181240E+01-0.30904230E+00-0.14090189E+00
+ 0.30013891E-02-0.29090261E+00 0.46707049E+00-0.61173970E-02
+-0.73982161E+00 0.69592290E-01-0.89161372E+00-0.15319541E+01
+-0.15458560E+01-0.32714820E+00 0.33393610E+00 0.14685040E+01
+-0.25511259E-03-0.14648260E+00-0.42226189E+00-0.38452750E+00
+ 0.12776389E-02 0.27519090E-02-0.83329401E-03 0.10308000E-01
+-0.44846341E-01-0.20535979E-01 0.37233502E-01 0.16647071E+00
+ 0.33532511E-01 0.94359992E-02 0.57057720E-02 0.11582670E-01
+-0.16958419E-01-0.26362189E-02 0.14484830E-01 0.40915571E-02
+ 0.42054351E-01 0.13004230E-01-0.40790230E-01-0.19140869E-01
+-0.34198038E-01 0.16455650E+00-0.36326749E-02 0.85888039E-02
+ 0.17690331E-01 0.98530529E-02-0.91991648E-02 0.29978160E-01
+ 0.73816396E-01 0.61155751E-01-0.47917292E-01 0.28867240E-02
+ 0.51969100E-01 0.52161861E-01 0.28143561E+00 0.32237291E-02
+-0.62452550E-02-0.42381082E-01 0.12001590E-01 0.21692650E-01
+-0.62785350E-01 0.51061891E-01 0.53049330E-01 0.51862489E-01
+-0.48690058E-01-0.91170780E-02-0.28221661E+00 0.56282122E-01
+ 0.30423549E-02-0.38061419E-02-0.16158160E-01-0.36575180E-01
+-0.30156670E-02 0.10118660E-01-0.52917930E-02-0.72428151E-02
+-0.11755280E-01 0.40744688E-01-0.23027141E-01 0.72674297E-01
+-0.63021816E-01-0.21631360E-01 0.13433400E+00-0.10829980E-01
+-0.20361930E-01-0.34346471E-02-0.60602953E-03 0.64862249E-02
+ 0.14817410E-01-0.93234107E-02 0.24377760E-01 0.42776670E-01
+ 0.60792189E-01 0.66843517E-01-0.13458170E+00-0.26319250E-01
+ 0.18895829E-01-0.11701170E-01-0.31517050E-02 0.12522890E-01
+ 0.86748470E-02-0.86314753E-02-0.16741970E-02 0.11517460E-01
+ 0.14367070E-01-0.20999810E-01 0.39414600E-01-0.16224710E-01
+ 0.38385191E-02-0.57889812E-01-0.49183249E-01 0.18458070E-02
+ 0.47943741E-02 0.13133640E-02 0.51573478E-02-0.32673599E-02
+-0.14111550E-01 0.85545257E-02-0.40083040E-01-0.20196810E-01
+-0.64974139E-02-0.12019950E-01 0.50344352E-01-0.59013281E-01
+ 0.54024631E-03 0.46130759E-02 0.39853011E-02-0.74289390E-02
+-0.35043310E-02-0.71466998E-02 0.18395830E-02-0.46652000E-03
+-0.31984751E-02 0.12979440E-01 0.67535071E-02 0.87131548E-03
+ 0.46992358E-02-0.22361770E-02-0.21885240E-02 0.64184610E-03
+-0.21061399E-02-0.65579969E-02-0.38885791E-02 0.13081310E-02
+ 0.18673229E-02-0.60533802E-02-0.89101363E-02 0.12660420E-01
+-0.35176720E-02 0.32582369E-02-0.46228939E-02-0.27124300E-02
+ 0.66098822E-02-0.47304290E-02 0.46784399E-03-0.35401899E-02
+ 0.25689299E-02 0.19981719E-02 0.61176992E-02-0.18254759E-02
+-0.46556019E-02-0.11600570E-01-0.71666059E-02-0.36501021E-02
+-0.54040272E-03-0.94039710E-02 0.52843271E-02-0.10122880E-01
+-0.27131629E-02-0.19719740E-02-0.39540171E-02-0.13183980E-02
+ 0.82680797E-02-0.75466908E-03 0.85585834E-02-0.12420880E-01
+ 0.81018763E+01-0.16129039E-01 0.32435691E+00 0.59392940E-01
+-0.67634508E-01 0.81243748E-02 0.53831900E-03-0.40469002E-02
+ 0.18215770E-02 0.19499400E-02 0.39771521E-02-0.69917197E-03
+-0.46204710E-02-0.55500281E+00 0.14798920E+00-0.23705010E+00
+ 0.16186281E+00 0.10196910E+00 0.10308940E+00-0.45257829E-01
+ 0.34328330E-01-0.60440879E-01 0.30662820E-01-0.10533930E-01
+-0.31203009E-01-0.33464760E-02 0.12787320E+02 0.36246679E+01
+ 0.85691142E+00 0.20767651E+01-0.45000580E+00-0.83166331E-01
+ 0.80005772E-01 0.11619800E+00-0.25306121E-01-0.79802960E-01
+-0.10202910E+00-0.32646660E-01 0.15197600E+00-0.35067470E+01
+-0.11906650E+02 0.14988180E+02-0.27599511E+01-0.10515690E+01
+-0.18638310E+01 0.64183819E+00-0.62329262E+00 0.85997921E+00
+-0.48738199E+00 0.20673700E+00 0.62675118E+00-0.31589668E-01
+-0.60537418E+02-0.29747370E+02-0.12715670E+02-0.14757050E+02
+ 0.56595182E+00 0.36594301E+00-0.52262658E+00 0.51417440E-01
+-0.23984949E+00 0.50220740E+00 0.64225072E+00 0.64983797E+00
+-0.71338159E+00 0.71695488E+02 0.72207428E+02-0.74912750E+02
+ 0.13290070E+02 0.77740011E+01 0.85020809E+01-0.32466841E+01
+ 0.26587780E+01-0.34794819E+01 0.20955520E+01-0.74597698E+00
+-0.36726420E+01 0.32118770E+00 0.93145172E+02 0.86385834E+02
+ 0.33418400E+02 0.35644840E+02 0.15513700E+01-0.67880207E+00
+ 0.17425840E+01-0.16497459E+01 0.13716140E+01-0.11545820E+01
+-0.16294230E+01-0.22764270E+01 0.12977600E+01-0.20853011E+03
+-0.16715880E+03 0.13783121E+03-0.28677509E+02-0.18427010E+02
+-0.16398640E+02 0.65391321E+01-0.43773322E+01 0.59779439E+01
+-0.38432200E+01 0.10173590E+01 0.86377020E+01-0.91699809E+00
+-0.80349991E+02-0.10407040E+03-0.31788389E+02-0.36473530E+02
+-0.25792451E+01 0.61809719E+00-0.24739339E+01 0.29460969E+01
+-0.20824699E+01 0.11264800E+01 0.17912730E+01 0.28734181E+01
+-0.10325650E+01 0.23253841E+03 0.17157530E+03-0.11051070E+03
+ 0.28355200E+02 0.16656580E+02 0.14303380E+02-0.55542359E+01
+ 0.29732270E+01-0.46146531E+01 0.32114921E+01-0.53867942E+00
+-0.88252983E+01 0.10430230E+01 0.31640659E+02 0.44016842E+02
+ 0.97662716E+01 0.13487700E+02 0.96905398E+00-0.23488051E+00
+ 0.11810800E+01-0.14779381E+01 0.98144192E+00-0.39671320E+00
+-0.71013689E+00-0.12205310E+01 0.29968950E+00-0.91250488E+02
+-0.65143242E+02 0.32989780E+02-0.10394860E+02-0.50228500E+01
+-0.46444411E+01 0.16633490E+01-0.65238881E+00 0.13141561E+01
+-0.10075830E+01 0.70488714E-01 0.32740510E+01-0.41307390E+00
+-0.96928343E-01 0.12186620E+01 0.22047210E+01 0.34900710E-01
+-0.10190880E+00 0.18298389E-01-0.44070061E-01-0.11739520E-03
+ 0.66007408E-02 0.74539999E-02 0.81233745E-02-0.17895870E-02
+-0.18203320E-02 0.35477290E+00-0.16948100E+01 0.11943990E+01
+ 0.91386147E-01 0.25438629E-01 0.29774919E-01 0.89999512E-02
+-0.64007398E-02-0.17448250E-03-0.78473538E-02 0.38824850E-02
+-0.18283920E-03-0.98031313E-04-0.11440099E+01 0.12904780E+01
+-0.15892000E+00 0.67130589E+00-0.55714831E-01 0.12811850E+00
+-0.28918160E-01-0.16429460E-01-0.38358010E-01 0.20111689E-01
+ 0.44779591E-01-0.58966491E-01 0.23327500E-01-0.15710731E+01
+ 0.13023440E+01 0.16079370E+01 0.19027510E+00 0.66884130E+00
+-0.29247550E-02-0.23754509E-02-0.57835728E-02-0.81890531E-01
+-0.96048033E-02-0.45490809E-01 0.49293408E-03-0.58695491E-01
+ 0.34809420E+01 0.90158119E+01-0.22117629E+01 0.13365950E-01
+-0.23127451E+01 0.56729090E+00 0.24108679E+01-0.20182860E+00
+-0.28508890E+00-0.15442440E+00-0.15967131E+00 0.43963298E-01
+ 0.25822571E-01 0.40881662E+01-0.73519192E+01 0.10880220E+02
+ 0.25939820E+01 0.18279681E+00-0.19187950E+01 0.29990441E+00
+ 0.35193640E+00 0.16041970E-01 0.19257560E+00-0.11661230E+00
+ 0.28072460E-01-0.55598840E-01 0.12566520E+01-0.22087589E+02
+ 0.13380930E+02-0.80266294E+01 0.36602449E+01-0.29688129E+01
+-0.37780151E+00 0.58299768E+00 0.86706769E+00-0.55621117E+00
+-0.67128903E+00 0.11468340E+01-0.38333321E+00 0.18714701E+02
+-0.70230880E+01-0.25292931E+02-0.60087719E+01-0.71062341E+01
+ 0.16015130E+01-0.38859791E+00-0.17154090E+00 0.15160840E+01
+-0.18199450E+00 0.55267900E+00-0.17876250E+00 0.96484542E+00
+-0.22160610E+02-0.37077271E+02 0.50480728E+02 0.92999134E+01
+ 0.23307301E+02-0.56743059E+01-0.20269390E+02 0.34288549E+01
+ 0.27540770E+01 0.40814039E+00 0.51685172E+00-0.22153290E+00
+ 0.11595800E+00-0.31267660E+02-0.32456070E+00-0.36598461E+02
+-0.28077999E+02 0.75533009E+01 0.16105471E+02-0.21683631E+01
+-0.43066330E+01 0.67941613E-01-0.18179020E+01 0.43143299E+00
+-0.35938030E+00 0.10866640E+01 0.23105141E+02 0.12464380E+03
+-0.12758520E+03 0.37713310E+02-0.23195311E+02 0.16497980E+02
+ 0.54229312E+01-0.51567059E+01-0.54312992E+01 0.40516238E+01
+ 0.46889601E+01-0.62918119E+01 0.12393600E+01-0.92529373E+02
+ 0.44480770E+02 0.16224820E+03 0.35682961E+02 0.31232210E+02
+-0.13872960E+02 0.34750080E+01 0.42404151E+01-0.72248211E+01
+ 0.24415071E+01-0.20730021E+01 0.15170540E+01-0.54001570E+01
+ 0.59554211E+02 0.30934851E+02-0.21966000E+03-0.42224751E+02
+-0.71013191E+02 0.15793910E+02 0.57348560E+02-0.13018560E+02
+-0.87679005E+01-0.13337740E+00-0.67288572E+00 0.41863301E+00
+-0.87162173E+00 0.72717598E+02 0.97209930E+02 0.55039330E+01
+ 0.88539970E+02-0.36981022E+02-0.44381989E+02 0.40670800E+01
+ 0.15083830E+02-0.39432999E+00 0.62811990E+01-0.54979843E+00
+ 0.10337560E+01-0.40913291E+01-0.65206772E+02-0.30551611E+03
+ 0.36137350E+03-0.81854477E+02 0.62120972E+02-0.36294258E+02
+-0.17368931E+02 0.15937440E+02 0.14456490E+02-0.10718640E+02
+-0.12802270E+02 0.14404450E+02-0.12634749E+01 0.21364030E+03
+-0.11567180E+03-0.40698129E+03-0.89225311E+02-0.64455383E+02
+ 0.37776520E+02-0.85874319E+01-0.17273600E+02 0.14270580E+02
+-0.86464653E+01 0.37474990E+01-0.40652318E+01 0.13020890E+02
+-0.74734306E+02 0.21539450E+02 0.33979330E+03 0.63535019E+02
+ 0.87565567E+02-0.17534670E+02-0.66821350E+02 0.17841900E+02
+ 0.11170320E+02-0.36642799E+00 0.45817140E+00-0.24639760E+00
+ 0.15478220E+01-0.60385052E+02-0.19868210E+03 0.76510429E+02
+-0.11135950E+03 0.57439079E+02 0.50313099E+02-0.23715091E+01
+-0.20268579E+02 0.17766470E+00-0.87418203E+01 0.28231800E+00
+-0.11182580E+01 0.56331511E+01 0.71169510E+02 0.32630539E+03
+-0.45149261E+03 0.77219131E+02-0.74850319E+02 0.35008862E+02
+ 0.21638241E+02-0.19760269E+02-0.17114250E+02 0.11777840E+02
+ 0.14641370E+02-0.14754350E+02-0.58191150E-01-0.22430710E+03
+ 0.15377080E+03 0.42627551E+03 0.10114470E+03 0.57012691E+02
+-0.42124031E+02 0.82582951E+01 0.24846510E+02-0.12086790E+02
+ 0.11829970E+02-0.34373660E+01 0.44367032E+01-0.14066240E+02
+ 0.33816219E+02-0.25676559E+02-0.17493460E+03-0.31112850E+02
+-0.37737431E+02 0.67561002E+01 0.27815260E+02-0.81458569E+01
+-0.49564199E+01 0.22429530E+00-0.17649481E+00-0.10085600E-01
+-0.85368192E+00 0.15762940E+02 0.11369850E+03-0.59072399E+02
+ 0.48657440E+02-0.28547970E+02-0.20472000E+02-0.43233659E-01
+ 0.93037949E+01 0.22365341E+00 0.42131829E+01-0.72041839E-01
+ 0.41392171E+00-0.26248250E+01-0.29163031E+02-0.12558830E+03
+ 0.21034129E+03-0.25792330E+02 0.32578880E+02-0.12281370E+02
+-0.95456390E+01 0.84874153E+01 0.73860130E+01-0.45961089E+01
+-0.59226131E+01 0.55938392E+01 0.48033369E+00 0.84786751E+02
+-0.80214073E+02-0.15818190E+03-0.42149471E+02-0.17305189E+02
+ 0.16865200E+02-0.25928450E+01-0.11859920E+02 0.34911740E+01
+-0.55658288E+01 0.12778670E+01-0.17198290E+01 0.55985789E+01
+ 0.42537950E-01 0.19200381E-01 0.10139690E+00-0.81556427E+00
+-0.36176112E-01-0.12186620E+00-0.10492070E+00 0.98228613E-02
+ 0.22000320E-01 0.37846840E-02 0.19114900E-02-0.47645392E-02
+-0.54054050E-03-0.40812969E-01-0.10843930E+00 0.25391070E-01
+ 0.48629351E-01-0.81269753E+00 0.92983119E-01-0.13510551E+00
+-0.22591081E-01 0.13788590E-01-0.49986420E-02 0.36351869E-02
+-0.23929470E-02-0.39245281E-02 0.15742590E+00 0.56329340E+00
+ 0.31214839E+00 0.99627173E+00-0.67125368E+00-0.10649550E+00
+ 0.28795630E-01-0.10557790E+00-0.12765270E+00-0.41938040E-01
+ 0.10943690E-01 0.36345840E-01 0.25163950E-01 0.57534909E+00
+-0.24204551E+00 0.55395222E+00 0.76517808E+00 0.10155280E+01
+ 0.72419770E-01-0.69676608E-01 0.11145790E+00-0.67721322E-01
+-0.16065059E-01-0.37608929E-01 0.69556641E-02-0.10202409E-02
+-0.41210029E+00 0.30318651E+00 0.76741087E+00 0.23096421E+01
+ 0.34931660E+01 0.19954790E+01 0.20013510E+00-0.59022850E+00
+ 0.51114178E+00-0.10451650E+00 0.19315850E-01 0.68981059E-01
+-0.33681761E-02-0.14315800E+00-0.34705761E+00 0.32503691E+00
+-0.42082009E+01 0.22218750E+01-0.78089662E-01 0.21938789E+01
+-0.59129602E+00-0.74143261E+00 0.15819181E-01-0.11914570E+00
+ 0.45331441E-01 0.72751582E-01-0.45691438E+01-0.21286621E+01
+-0.14436539E+01 0.88372564E+01 0.60409832E+01 0.23840139E+01
+-0.19791909E+01 0.12879260E+01-0.57677109E-01 0.34003571E+00
+-0.24318250E-01-0.40085450E+00-0.38714889E+00-0.88188848E+01
+ 0.15909460E+01-0.27510200E+01-0.67345958E+01 0.86806736E+01
+ 0.10961000E+01 0.17026989E+01 0.34727871E+00 0.89782560E+00
+ 0.12112950E+00 0.32190660E+00-0.73319547E-01-0.69972068E-01
+ 0.37707379E+01-0.15647820E+01-0.70819440E+01-0.22244611E+01
+-0.15613710E+02-0.86520214E+01 0.25634589E+01 0.25320289E+01
+-0.19978210E+01 0.12393510E+00-0.41019779E-01-0.21619301E+00
+ 0.23941340E+00 0.70428028E+01 0.49908099E+01-0.21234069E+01
+ 0.19407160E+02-0.21752551E+01-0.33986821E+01-0.88597364E+01
+ 0.22902801E+01 0.36733899E+01 0.34788570E+00 0.33219329E+00
+-0.12651810E+00-0.74726403E-01 0.98668537E+01 0.19973010E+01
+ 0.73545110E+00-0.35544109E+02-0.12844640E+02-0.72314820E+01
+ 0.71221571E+01-0.32295451E+01 0.13567200E+01-0.77072012E+00
+ 0.24282220E+00 0.98478472E+00 0.98792642E+00 0.21542410E+02
+-0.10428520E+01 0.41902852E+01 0.14589720E+02-0.35305080E+02
+-0.51074691E+01-0.54288201E+01-0.22902679E+01-0.22479711E+01
+-0.52462530E+00-0.70514262E+00 0.24735990E+00 0.28696120E+00
+-0.11086650E+02 0.65275350E+01 0.17693661E+02-0.59422040E+00
+ 0.27713261E+02 0.15775670E+02-0.81486120E+01-0.39445150E+01
+ 0.22132030E+01 0.44683141E+00-0.23357560E+00 0.19054221E+00
+-0.60231680E+00-0.19799080E+02-0.14807070E+02 0.72998271E+01
+-0.34818241E+02-0.33318830E+00 0.10066580E+02 0.15187980E+02
+-0.23644719E+01-0.64968772E+01-0.91593111E+00-0.11683980E+00
+-0.39812859E-01-0.27689400E+00-0.62039251E+01-0.84623212E+00
+ 0.14262290E+01 0.26344351E+02 0.40489612E+01 0.54673820E+01
+-0.59546962E+01 0.22964759E+01-0.12061570E+01 0.53263891E+00
+-0.33551189E+00-0.71241528E+00-0.71459740E+00-0.15393930E+02
+-0.61604828E+00-0.27301469E+01-0.52798648E+01 0.26238489E+02
+ 0.45615869E+01 0.41805568E+01 0.19992160E+01 0.16004339E+01
+ 0.57749122E+00 0.46477991E+00-0.20257010E+00-0.27568150E+00
+ 0.99213028E+01-0.69786720E+01-0.11262400E+02 0.22139239E+01
+-0.12748080E+02-0.10032840E+02 0.64176211E+01 0.19862500E+01
+-0.87383908E+00-0.59252590E+00 0.33977279E+00 0.16694700E-01
+ 0.40230009E+00 0.15727880E+02 0.98385563E+01-0.59170141E+01
+ 0.17135509E+02 0.20637031E+01-0.76783781E+01-0.93120174E+01
+ 0.71532810E+00 0.37107780E+01 0.54275203E+00-0.18364170E+00
+ 0.16640510E+00 0.36639360E+00-0.13025040E-01-0.51858429E-01
+ 0.20857880E+00-0.19087440E+00-0.23299631E-01-0.13507611E+00
+-0.56921059E+00 0.38114931E-01-0.60614240E-02-0.30613100E-01
+-0.15855950E-02-0.16688510E-03-0.17459390E-02 0.15833950E-01
+-0.20500471E+00-0.38282290E-01 0.23627531E-01-0.18416201E+00
+ 0.56072652E+00-0.13315450E+00 0.46945382E-02 0.41374139E-01
+ 0.38056481E-02-0.28217331E-01 0.13383121E-02-0.12168570E-02
+-0.56578580E-01 0.12876020E+00 0.59762472E+00-0.95164798E-01
+-0.58247691E+00-0.26948750E+00 0.67279452E+00 0.20206110E+00
+ 0.53334892E-01-0.50015550E-01 0.64981833E-01 0.86141611E-02
+-0.29462580E-01 0.14082890E-01-0.69842958E+00 0.93310818E-01
+ 0.57605821E+00-0.14046100E+00-0.69265562E+00-0.28360209E+00
+-0.44092041E-01 0.21143390E+00-0.55884000E-01-0.45159709E-01
+ 0.24937000E-01-0.17448410E-01 0.36476091E+00 0.54481387E+00
+-0.97794282E+00 0.77376050E+00-0.30008599E+00 0.44022390E+00
+-0.69199502E+00-0.11753139E+01 0.40543079E+00 0.54925859E-01
+-0.11842820E+00-0.42190149E-01 0.17636130E-01-0.27882969E+00
+ 0.11946100E+01 0.28800321E+00 0.33434871E+00 0.76162457E+00
+ 0.80089688E+00 0.44306120E+00-0.40386361E+00-0.12654490E+01
+ 0.82815073E-01 0.23754230E-01-0.15400900E-01 0.22151090E-01
+ 0.76733872E-01 0.19428180E+00-0.12148420E+01 0.52913362E+00
+ 0.71791410E+00 0.14012870E+01-0.94143140E+00-0.49802440E+00
+-0.88092439E-01 0.30809799E-01-0.15707070E+00-0.37910850E-02
+ 0.46820302E-01 0.55196122E-02 0.15281690E+01 0.17738160E+00
+-0.67945760E+00 0.60381258E+00 0.96698540E+00 0.14228370E+01
+ 0.75497508E-01-0.50435680E+00 0.15821980E+00 0.15235760E-01
+-0.44816598E-01 0.47494572E-01-0.53999168E+00-0.52740669E+00
+ 0.46521780E+00-0.11360950E+01 0.12834359E+01-0.11401060E+01
+ 0.18684100E+01 0.20435801E+01-0.70080322E+00 0.89214809E-01
+ 0.32409370E+00 0.60041349E-01-0.83596073E-02 0.54003203E+00
+-0.96608478E+00-0.46957389E-01-0.13541790E+01-0.11422830E+01
+-0.20266500E+01-0.11601590E+01 0.70495880E+00 0.21907711E+01
+-0.27802920E+00 0.14013900E+00 0.10787990E-01-0.41970961E-01
+ 0.79368996E-02 0.18005579E-02-0.59242821E-02-0.49820062E-01
+-0.26301119E-01-0.46545848E-01-0.66948901E-02 0.19183870E+00
+-0.13829250E-01 0.77224541E-02 0.22584449E-01-0.69500128E-03
+-0.14232740E-01-0.53558368E-02 0.24458550E-01 0.90136761E-02
+ 0.25123650E-01-0.52703261E-01 0.45990110E-02-0.48935190E-01
+ 0.14076630E-01 0.18553920E+00-0.20867750E-01 0.10319520E-01
+ 0.14233250E-01-0.16049150E-02-0.22934670E-01 0.70017479E-01
+ 0.11449140E+00 0.17153171E+00-0.61290950E-01-0.74355677E-01
+ 0.86997710E-01-0.50104611E-01 0.33571169E+00-0.59562949E-02
+-0.56029661E-02 0.26193259E-01 0.59585189E-02 0.45911539E-01
+-0.89878432E-01 0.76058120E-01 0.73447660E-01 0.17330770E+00
+-0.75593643E-01-0.88102020E-01-0.33511180E+00-0.38808860E-01
+-0.11352280E-02-0.75233779E-02-0.14877450E-01 0.38177520E-01
+-0.10454620E-01 0.87235197E-02-0.13136400E-01-0.36159339E-02
+-0.14729480E-01 0.42408358E-01-0.10390850E-01 0.93464859E-01
+-0.18325150E-01 0.19762930E-01 0.17633770E+00-0.67271111E-02
+-0.17024349E-01-0.65004472E-02 0.90500731E-02 0.12560210E-01
+ 0.23710990E-01-0.20794100E-02 0.84362552E-02 0.48055012E-01
+ 0.18231969E-01 0.89958727E-01-0.17703010E+00 0.14883410E-01
+ 0.17742660E-01-0.42433082E-02-0.91818487E-02 0.13621100E-01
+ 0.16029490E-01-0.62581049E-02 0.42793741E-02 0.36344391E-02
+ 0.14989840E-01-0.10905740E-01 0.50069261E-01-0.81023416E-02
+-0.13894620E-01-0.81105419E-01-0.50165419E-01 0.34912510E-02
+ 0.14048890E-01-0.49578291E-02 0.22474469E-02-0.24813791E-02
+-0.17861409E-01-0.33750690E-02-0.55702880E-01-0.10586220E-01
+ 0.12342430E-01-0.52555958E-02 0.48382372E-01-0.84331490E-01
+ 0.84472611E-03-0.31741650E-02 0.38827071E-02-0.34085950E-02
+-0.31684011E-02-0.35002481E-02 0.14038970E-02 0.11445089E-02
+ 0.41538528E-02 0.15595040E-02 0.14562700E-01-0.78455862E-02
+ 0.27321329E-01 0.99933976E-02-0.90612927E-02-0.96024647E-02
+-0.55728629E-02-0.94859331E-03-0.25819361E-02 0.53457348E-02
+-0.13338811E-02-0.60418220E-02-0.13324710E-01-0.17216300E-03
+-0.26457161E-01-0.50572711E-02-0.28875030E-02-0.33634980E-02
+ 0.94106782E-03-0.92140669E-02 0.57701948E-02 0.33084251E-03
+-0.10044820E-02 0.26846610E-03 0.62419372E-02-0.56410050E-02
+-0.54308232E-02-0.28428819E-02-0.99595981E-02-0.11016570E-01
+-0.79162279E-02-0.81131132E-02 0.28776119E-02-0.99624256E-02
+-0.41366619E-03-0.14338520E-02-0.66420259E-02 0.56206068E-03
+ 0.52734511E-02-0.17488500E-02 0.12598830E-01-0.32996880E-02
diff --git a/input/glow_data/iri90/ursi17.asc b/input/glow_data/iri90/ursi17.asc
new file mode 100644
index 0000000..0a6f8c4
--- /dev/null
+++ b/input/glow_data/iri90/ursi17.asc
@@ -0,0 +1,494 @@
+ 0.50693879E+01-0.10426200E+00 0.46350040E-01 0.62245701E-01
+-0.45727279E-01 0.38652960E-02-0.70134061E-02 0.72094090E-02
+ 0.37073330E-02 0.14076020E-02 0.41517508E-02 0.64296280E-02
+-0.16894300E-02-0.41266301E+00 0.80252481E+00 0.41758499E+00
+ 0.33148369E+00 0.10016060E+00 0.11374550E+00-0.68048529E-01
+-0.66156359E-03 0.63699079E-02 0.26480550E-01 0.26813250E-01
+ 0.11200070E-01 0.53416971E-01 0.57852249E+01 0.56429159E-01
+ 0.37627631E+00-0.29696470E+00-0.10120420E+00 0.74756980E-01
+ 0.82238950E-01-0.19601411E+00-0.12145510E+00 0.14858050E-01
+-0.29166371E-01-0.12048290E+00 0.64984500E-01 0.13085140E+02
+-0.16898809E+02-0.95738691E+00-0.53322649E+01-0.16920120E+01
+-0.21181941E+01 0.11601861E+01 0.33930091E-02 0.13009921E+00
+-0.24700080E+00-0.41631129E+00-0.23429750E+00-0.84497797E+00
+-0.40824558E+02-0.28656220E+01-0.42941470E+01 0.99041051E+00
+-0.32981999E+01-0.11391120E+01-0.48628080E+00 0.14697170E+01
+ 0.30500710E+00 0.75986952E-01 0.16463020E+00 0.45418140E+00
+-0.50977051E+00-0.27210810E+02 0.80819740E+02-0.20505431E+01
+ 0.19769449E+02 0.11056190E+02 0.97573977E+01-0.54885082E+01
+-0.49546939E+00-0.12224270E+01 0.77555460E+00 0.22027791E+01
+ 0.95171499E+00 0.37378910E+01 0.92767151E+02 0.17649811E+02
+ 0.13751300E+02-0.20408239E+01 0.13894880E+02 0.39585660E+01
+ 0.12288570E+01-0.42468710E+01 0.95195189E-01-0.56509072E+00
+-0.42406651E+00-0.63605642E+00 0.13621390E+01-0.11517140E+02
+-0.15800909E+03 0.47889071E+01-0.32839699E+02-0.25795240E+02
+-0.19085390E+02 0.11083880E+02 0.23298261E+01 0.32428541E+01
+-0.10111300E+01-0.50321159E+01-0.15438350E+01-0.70608492E+01
+-0.10445030E+03-0.29304979E+02-0.16940420E+02 0.17632620E+01
+-0.17776300E+02-0.51029692E+01-0.12395780E+01 0.50737309E+01
+-0.74078041E+00 0.92189139E+00 0.45520920E+00 0.32783669E+00
+-0.14821121E+01 0.68048248E+02 0.13999361E+03-0.24283540E+00
+ 0.26643681E+02 0.24673170E+02 0.17147129E+02-0.10221890E+02
+-0.34128339E+01-0.34317770E+01 0.50233352E+00 0.51335940E+01
+ 0.11030850E+01 0.60711408E+01 0.44936298E+02 0.14663550E+02
+ 0.70448232E+01-0.46143121E+00 0.73371158E+01 0.22221210E+01
+ 0.41376889E+00-0.21184361E+01 0.46513179E+00-0.45396999E+00
+-0.17141651E+00-0.29286230E-01 0.56724107E+00-0.41200340E+02
+-0.46818039E+02-0.19523510E+01-0.85978107E+01-0.83268290E+01
+-0.58344908E+01 0.35503671E+01 0.15876811E+01 0.12754980E+01
+-0.42871632E-01-0.19201570E+01-0.28771880E+00-0.19573420E+01
+-0.19360350E-01 0.12046460E+01 0.20459239E+01 0.33336930E-01
+-0.87803558E-01 0.48878148E-01-0.45615181E-01 0.51241270E-02
+ 0.94455369E-02-0.10741420E-01 0.78284442E-02-0.86439336E-02
+ 0.31461120E-02 0.31792190E-01-0.18222370E+01 0.13390890E+01
+ 0.79733163E-01 0.32012269E-01 0.24511820E-01 0.30114140E-01
+-0.10184470E-01 0.31247369E-02-0.15019280E-01 0.33620270E-02
+-0.42154901E-02-0.12564690E-01-0.15961330E-01 0.18302140E+01
+ 0.34132171E+00 0.18445800E+00-0.65750432E+00 0.51009530E+00
+ 0.38210200E-02-0.43608830E-02-0.11785550E+00-0.33154421E-01
+ 0.23586029E-01-0.19161571E-01 0.45918941E-01-0.10464520E+00
+ 0.58652389E+00 0.16505851E+01 0.67614651E+00 0.11646190E+00
+ 0.80407917E-01 0.15825389E+00-0.12089210E-01 0.59186950E-01
+-0.19253490E-02-0.26077380E-01 0.61103739E-01-0.33802301E-01
+ 0.33670969E+01 0.42904119E+01 0.48675270E+01 0.44770390E+00
+-0.42548189E+00 0.49196601E+00 0.19231980E+01-0.40625028E-01
+-0.42548129E+00 0.18570501E+00-0.31963500E+00 0.22818160E+00
+ 0.74775298E-02 0.11261770E+01-0.10129460E+02 0.27890761E+01
+ 0.73990428E+00 0.81538242E+00-0.12541060E+01 0.68876612E+00
+ 0.26601949E+00 0.14139549E+00 0.35191730E+00-0.87427780E-01
+ 0.71030431E-02 0.34171739E+00-0.10081360E+02-0.16948740E+02
+-0.71733518E+01-0.40612998E+01 0.16362280E+02-0.80566854E+01
+-0.86877689E-01-0.13100420E+00 0.18712620E+01 0.74645698E+00
+-0.93434340E+00-0.61714798E-01-0.78224570E+00-0.26099761E+01
+ 0.16958210E+01-0.12117080E+02-0.16482201E+02-0.26199541E+01
+-0.86530483E+00-0.24165411E+01-0.59883270E-01-0.15037630E+01
+ 0.19329610E+00 0.14165100E+00-0.88321888E+00 0.22701029E+00
+-0.23845070E+02-0.43379929E+02 0.42435708E+01-0.61311129E-01
+ 0.46024222E+01-0.86582613E+01-0.14237970E+02 0.48883739E+00
+ 0.26359739E+01-0.73999178E+00 0.24372530E+01-0.25497770E+01
+ 0.18895570E-01-0.89254484E+01 0.24702040E+02-0.29939899E+02
+-0.64670482E+01-0.31650801E+01 0.94289036E+01-0.83289976E+01
+-0.30913539E+01-0.23319261E+01-0.24431319E+01 0.85753918E+00
+-0.16799930E+00-0.28919041E+01 0.66130730E+02 0.11140040E+03
+ 0.25701981E+02 0.25221279E+02-0.85635590E+02 0.41113411E+02
+ 0.25388110E+01 0.86686388E-01-0.95039892E+01-0.40685129E+01
+ 0.64502339E+01-0.48245970E-01 0.31198211E+01-0.88900633E+01
+-0.22478600E+02 0.10140740E+03 0.85135338E+02 0.15494500E+02
+-0.61867791E+00 0.13938310E+02 0.18685020E+01 0.78210821E+01
+-0.88966662E+00 0.16465341E+00 0.38471260E+01-0.10750240E+00
+ 0.64655113E+02 0.12540930E+03-0.12742120E+03-0.68602238E+01
+-0.15690990E+02 0.30103251E+02 0.36974781E+02-0.18604831E+01
+-0.63681870E+01 0.97887993E+00-0.68280482E+01 0.87778101E+01
+-0.32792890E+00 0.26519880E+02 0.58351398E+02 0.79049858E+02
+ 0.19975870E+02 0.11539680E+01-0.23990030E+02 0.26398621E+02
+ 0.10847400E+02 0.87320156E+01 0.67673039E+01-0.28562429E+01
+ 0.61426342E+00 0.89252262E+01-0.15125400E+03-0.32112051E+03
+-0.27834490E+02-0.63837360E+02 0.18610170E+03-0.91990677E+02
+-0.84978428E+01 0.15330560E+01 0.21480379E+02 0.96003199E+01
+-0.16828039E+02 0.13792160E+01-0.48933449E+01 0.70206360E+02
+ 0.48822510E+02-0.31674039E+03-0.18274770E+03-0.36557060E+02
+ 0.98288202E+01-0.34907551E+02-0.81789713E+01-0.17208549E+02
+ 0.11498160E+01-0.12347860E+01-0.73792081E+01-0.17748340E+01
+-0.76265953E+02-0.15270039E+03 0.25660910E+03 0.14785370E+02
+ 0.21428400E+02-0.39110809E+02-0.39964409E+02 0.23042979E+01
+ 0.66524019E+01-0.16704360E+00 0.80347404E+01-0.11689040E+02
+ 0.66948092E+00-0.29972410E+02-0.18284171E+03-0.85173698E+02
+-0.25761869E+02 0.68433471E+01 0.25194450E+02-0.32452869E+02
+-0.14508850E+02-0.12398900E+02-0.80397663E+01 0.38610041E+01
+-0.73323888E+00-0.11345130E+02 0.14973900E+03 0.39731320E+03
+-0.17649700E+02 0.65526443E+02-0.18254340E+03 0.93764809E+02
+ 0.10373950E+02-0.28480670E+01-0.22329460E+02-0.10467620E+02
+ 0.18726810E+02-0.24355819E+01 0.31289201E+01-0.10986080E+03
+-0.21672560E+02 0.39682089E+03 0.17786760E+03 0.32332550E+02
+-0.16380541E+02 0.38592339E+02 0.12489020E+02 0.17858299E+02
+-0.10255520E+00 0.14222380E+01 0.65787292E+01 0.37011380E+01
+ 0.31971939E+02 0.66710739E+02-0.14342850E+03-0.86741562E+01
+-0.98149891E+01 0.17386881E+02 0.15530260E+02-0.87052077E+00
+-0.25076239E+01-0.29618201E+00-0.33648901E+01 0.53193970E+01
+-0.37773091E+00 0.12309040E+02 0.11445240E+03 0.32543831E+02
+ 0.11362640E+02-0.60504012E+01-0.95672989E+01 0.13790810E+02
+ 0.65821490E+01 0.60034251E+01 0.34261811E+01-0.18330600E+01
+ 0.26555830E+00 0.50708652E+01-0.54349258E+02-0.17571910E+03
+ 0.29690001E+02-0.22631069E+02 0.66436211E+02-0.35632969E+02
+-0.44498258E+01 0.13700470E+01 0.86736660E+01 0.42971468E+01
+-0.74959750E+01 0.11922630E+01-0.59997177E+00 0.50585602E+02
+-0.94669056E+01-0.17383220E+03-0.64503799E+02-0.81457729E+01
+ 0.81898508E+01-0.15496190E+02-0.62557960E+01-0.71413178E+01
+-0.38955829E+00-0.44536999E+00-0.22208719E+01-0.20869060E+01
+ 0.18947230E+00 0.25421560E+00-0.14166750E+00-0.51950628E+00
+-0.54358792E+00-0.61767850E-01-0.28321780E-01-0.98786363E-02
+ 0.11567490E+00-0.56799301E-02 0.45574158E-02-0.44576610E-02
+-0.26386210E-02-0.39589360E-01 0.15339801E+00 0.24540190E+00
+ 0.54648799E+00-0.51639903E+00 0.53353261E-01-0.73975652E-01
+-0.10375030E+00 0.14170140E-02-0.59724660E-02-0.76953741E-02
+ 0.23219530E-02-0.20601179E-02 0.24566680E-01-0.24648710E+00
+ 0.24514350E+00-0.75073101E-01-0.10241420E+01-0.98819442E-01
+ 0.10954470E+00-0.15133969E+00-0.97361162E-01 0.38734660E-01
+ 0.16445080E-01 0.37177301E-02 0.40976522E-02 0.24472110E+00
+-0.25669599E+00-0.23765691E+00 0.10852979E+01-0.48605502E-01
+ 0.27597900E-02-0.24219099E-01 0.42854398E-01-0.11290100E+00
+ 0.51764478E-02 0.10371090E-01 0.98656211E-02 0.21160031E-01
+-0.25264311E+01-0.10940050E+01 0.25715089E+01 0.72473898E+01
+ 0.54539542E+01 0.10257450E+01-0.83025020E+00 0.38189071E+00
+-0.93376178E+00 0.86227506E-01-0.12032710E+00 0.54694880E-01
+ 0.12818760E+00 0.35217819E+01-0.26135111E+01-0.63485891E+00
+-0.56799622E+01 0.72946939E+01 0.19337070E+00 0.14108340E+01
+ 0.74630493E+00 0.70704497E-01 0.17158280E+00 0.13853650E+00
+-0.11706490E+00-0.59775021E-01-0.18798711E-01-0.39540440E+00
+-0.68940490E+00 0.75875649E+01 0.37319789E+01 0.13789440E+01
+-0.20181000E+01 0.14539760E+01-0.30933470E-01-0.85849367E-01
+-0.25988221E+00 0.15613450E-01 0.38538210E-01-0.19717480E+01
+ 0.18219550E+01-0.42252269E+00-0.44878759E+01 0.77816339E+01
+ 0.84004450E+00 0.73500907E+00 0.53775072E+00 0.10261530E+01
+ 0.76067850E-01 0.11211830E+00-0.22843210E+00-0.25104719E+00
+ 0.95606537E+01 0.44901142E+01-0.61519632E+01-0.16347040E+02
+-0.23341970E+02-0.44865460E+01 0.59092779E+01-0.23788900E+01
+ 0.36994770E+01-0.35938400E+00 0.97195947E+00-0.23441930E+00
+-0.48462069E+00-0.16095320E+02 0.64316211E+01 0.27686779E+01
+ 0.24626381E+02-0.17295340E+02-0.26635010E+01-0.58994808E+01
+-0.31117070E+01-0.10606050E+01-0.11105200E+01-0.40393859E+00
+ 0.53941321E+00 0.51397121E+00-0.24041270E+00 0.36337199E+01
+ 0.56175101E+00-0.25779160E+02-0.57753949E+01-0.43962650E+01
+ 0.54374151E+01-0.35880871E+01 0.11262140E+01 0.14138140E-01
+ 0.92056209E+00-0.11870880E+00-0.15660110E+00 0.36012139E+01
+-0.39342849E+01 0.31649160E+01 0.79113469E+01-0.26754629E+02
+-0.24947879E+01-0.30809419E+01-0.23881471E+01-0.25170970E+01
+-0.50074130E+00-0.35347530E+00 0.64593071E+00 0.61646831E+00
+-0.15239280E+02-0.98585367E+01 0.45605831E+01 0.38496050E+00
+ 0.43052349E+02 0.85553646E+01-0.10647640E+02 0.49287190E+01
+-0.68782768E+01 0.51772738E+00-0.23189280E+01 0.44512090E+00
+ 0.70767951E+00 0.24382700E+02-0.51456871E+01-0.78117828E+01
+-0.45596081E+02 0.30503640E+01 0.48525972E+01 0.10384240E+02
+ 0.63351841E+01 0.28656180E+01 0.23734100E+01 0.26503599E+00
+-0.99253649E+00-0.10959830E+01 0.20128010E+00-0.40502062E+01
+-0.43629691E+00 0.18410891E+02 0.81478482E+00 0.34474010E+01
+-0.36762111E+01 0.25754740E+01-0.11328270E+01 0.57059180E-01
+-0.84599262E+00 0.14075530E+00 0.10661760E+00-0.17621870E+01
+ 0.34214950E+01-0.31691921E+01-0.24310341E+01 0.19322170E+02
+ 0.15799490E+01 0.26751239E+01 0.20635209E+01 0.18356270E+01
+ 0.55314583E+00 0.25157449E+00-0.44823101E+00-0.41977909E+00
+ 0.94589472E+01 0.65113940E+01 0.11305670E+00 0.12526430E+02
+-0.24600491E+02-0.54370689E+01 0.58381801E+01-0.32472730E+01
+ 0.44353700E+01-0.21544661E+00 0.16581380E+01-0.32799220E+00
+-0.36641139E+00-0.11980150E+02-0.10568130E+00 0.61955619E+01
+ 0.26278370E+02 0.10508800E+02-0.24707420E+01-0.62447228E+01
+-0.43742561E+01-0.21531310E+01-0.15946920E+01 0.86157158E-01
+ 0.61760920E+00 0.67342049E+00-0.62941387E-03-0.40325340E-01
+ 0.13431790E+00-0.28892469E+00 0.11713630E+00-0.14556220E+00
+-0.34494349E+00 0.41468952E-01 0.66494662E-03-0.46257518E-01
+-0.37485000E-02-0.19313790E-02-0.19330630E-02-0.93546562E-03
+-0.12267820E+00-0.33987410E-01-0.11955870E+00-0.29477379E+00
+ 0.34817940E+00-0.14885589E+00-0.23087510E-02 0.43404080E-01
+ 0.55586328E-02-0.47994621E-01 0.40427460E-02-0.19119680E-02
+-0.73418948E-02-0.76021291E-01 0.39722869E+00-0.14939930E+00
+-0.81865098E-02 0.37312642E-01 0.18188091E+00 0.12886180E+00
+ 0.98053291E-01-0.27103201E-01 0.38359050E-01 0.20087950E-02
+ 0.33714551E-01 0.64339131E-01-0.40069741E+00-0.75396679E-01
+ 0.43392759E-01-0.16255841E+00-0.20572761E+00 0.42998269E-01
+-0.10037760E+00 0.11735970E+00-0.26686059E-01-0.25409991E-01
+-0.24976751E-01-0.13569000E-01-0.20365620E-01 0.15746780E+00
+-0.10422640E+01 0.12454441E+01-0.53359473E+00-0.68110786E-01
+-0.78539932E+00-0.70336550E+00 0.57861167E+00 0.37416971E+00
+ 0.24465371E-01 0.38202640E-01-0.10756560E-01 0.31204050E-03
+ 0.99907821E+00 0.85593350E-01 0.59350640E+00 0.12325079E+01
+ 0.78743958E+00-0.10471640E+00-0.55103737E+00-0.80144858E+00
+-0.59127130E-01 0.40366101E+00-0.30793101E-01 0.29190131E-01
+-0.21410680E-02 0.37467211E+00-0.89019799E+00 0.64759809E+00
+-0.82413912E-01 0.19180380E+00-0.28611320E+00-0.37960789E+00
+-0.20982111E+00 0.22180419E-01-0.11420100E+00 0.20175580E-01
+-0.63268676E-01-0.12128630E+00 0.94280720E+00 0.35041431E+00
+ 0.33374179E-01 0.65731412E+00 0.32176900E+00 0.17427060E+00
+ 0.22818190E+00-0.36267540E+00 0.90866387E-01 0.18860999E-01
+ 0.44873241E-01 0.34182630E-01 0.93685851E-01-0.80606997E-01
+ 0.12060930E+01-0.14890330E+01 0.11233020E+01 0.44679371E+00
+ 0.20496321E+01 0.13767231E+01-0.10843720E+01-0.47774330E+00
+ 0.21097271E-01-0.85883386E-01 0.51961798E-01 0.16268410E-01
+-0.12144170E+01 0.24947340E-01-0.12164960E+01-0.14716890E+01
+-0.20715530E+01 0.52500629E+00 0.10394180E+01 0.15288540E+01
+ 0.32797761E-01-0.51862741E+00 0.19863890E-01-0.70029236E-01
+ 0.70184479E-02 0.24111450E-03 0.33452851E-03 0.26191181E-01
+-0.41040100E-01-0.22841310E-01 0.35558488E-01 0.12673560E+00
+ 0.45424420E-01 0.26719240E-01 0.30599089E-01-0.17834030E-01
+-0.20829201E-01-0.46034702E-02 0.29957150E-02-0.85657329E-03
+ 0.40325060E-01 0.27852230E-01-0.36858000E-01-0.25250191E-01
+-0.41031022E-01 0.12849580E+00-0.27862880E-01 0.22235921E-01
+ 0.24191480E-01-0.18512711E-01-0.18991491E-01 0.42786351E-02
+ 0.60850840E-01 0.86018950E-01 0.20435721E-01 0.25322860E-01
+ 0.47839869E-01 0.13602230E+00 0.23433070E+00 0.73325881E-02
+-0.24989999E-02-0.20143930E-01 0.23856450E-01 0.19295011E-01
+-0.70693061E-01 0.27886050E-01-0.87093776E-02 0.83659582E-01
+-0.46739880E-01 0.23283090E-01-0.22798850E+00 0.13263960E+00
+-0.70985312E-04 0.19189760E-02-0.25114590E-01-0.11996610E-01
+-0.12155240E-02 0.71192151E-02-0.18978789E-02-0.34548570E-02
+-0.92628691E-02 0.17420569E-01-0.33708479E-01 0.30456251E-01
+-0.41292589E-01 0.82818128E-01 0.83363973E-01-0.24889929E-01
+-0.19063110E-02 0.26789380E-02-0.61674719E-02-0.48794170E-03
+ 0.16806619E-01-0.61021321E-02 0.32124870E-01 0.19597260E-01
+ 0.46416920E-01 0.32068610E-01-0.85356370E-01 0.82658812E-01
+ 0.24411089E-02-0.23411511E-01-0.13848380E-02 0.60163299E-02
+ 0.69091138E-02 0.68882550E-03-0.32043031E-02 0.56700278E-02
+ 0.10040990E-01-0.18225560E-01 0.54694481E-01-0.56542610E-02
+-0.20296929E-01-0.87069117E-01 0.78963652E-01-0.39501791E-02
+-0.56711643E-03-0.66064131E-02 0.11306020E-02 0.36190820E-02
+-0.15796740E-01 0.75468561E-02-0.57343919E-01-0.19913040E-01
+ 0.19026270E-01-0.51397709E-02-0.78801773E-01-0.82669772E-01
+ 0.48065861E-02 0.47868779E-02 0.89692911E-02-0.46758461E-03
+-0.51735151E-02-0.57717678E-02 0.57562948E-02-0.46564718E-02
+ 0.12589181E-03-0.10700280E-01 0.27486540E-02 0.23602810E-01
+ 0.21921020E-01-0.77029350E-02 0.70050480E-02-0.40327678E-02
+ 0.52601858E-02-0.34298890E-02-0.20713189E-02 0.24085130E-03
+ 0.24187609E-02-0.54599382E-02-0.25079469E-02-0.11884460E-01
+-0.18801920E-01 0.21907071E-01-0.42925072E-02 0.36911049E-02
+ 0.10785110E-01-0.19615239E-02 0.22805440E-02 0.32745150E-02
+ 0.45323172E-02-0.59299590E-03 0.40131980E-02-0.86656702E-03
+-0.36454271E-02 0.18870330E-02-0.73226639E-02 0.65623131E-03
+-0.70673502E-02-0.11858320E-02-0.48325569E-02-0.59402501E-02
+-0.53134719E-02 0.97554357E-03-0.70113861E-02-0.49119089E-02
+ 0.42481739E-02-0.36148110E-02 0.98309591E-02 0.36320970E-02
+ 0.78177490E+01-0.30865939E-01 0.20827730E+00 0.44402059E-01
+-0.11011210E+00 0.96579464E-02-0.24085180E-02-0.10466360E-02
+ 0.58883228E-02 0.52138022E-03-0.45846882E-02-0.10860100E-02
+-0.21072831E-02 0.14120810E+00 0.70722479E+00-0.30080321E+00
+-0.11339120E+00-0.21501569E-01 0.14116180E+00-0.10532760E+00
+-0.32248300E-01-0.42655218E-01 0.28348640E-01 0.19903960E-01
+ 0.33623490E-01 0.37380401E-01 0.12432080E+02 0.25370650E+01
+ 0.95882761E+00 0.20472569E+01 0.21018291E+00-0.13299720E+00
+ 0.16793440E+00 0.38909651E-01-0.10232450E+00-0.22316810E-01
+ 0.11287660E+00-0.38865369E-01 0.65234043E-01-0.13103460E+02
+-0.15224880E+02 0.18040251E+02 0.18694280E+01 0.17450989E+01
+-0.24842601E+01 0.14381760E+01 0.52828389E+00 0.76232570E+00
+-0.34371069E+00-0.71723419E+00-0.62273222E+00-0.61942720E+00
+-0.60412350E+02-0.23849960E+02-0.98073645E+01-0.17109909E+02
+-0.26330359E+01 0.70943958E+00-0.10752360E+01 0.35389581E+00
+ 0.30583981E+00 0.12498780E+00-0.27996349E+00 0.42922789E+00
+-0.44453040E+00 0.10688830E+03 0.80286789E+02-0.92686958E+02
+-0.62857699E+01-0.65445948E+01 0.11015840E+02-0.62524271E+01
+-0.29081690E+01-0.38195939E+01 0.11642520E+01 0.44285679E+01
+ 0.28630259E+01 0.30729041E+01 0.10188180E+03 0.75322258E+02
+ 0.20968040E+02 0.45377762E+02 0.91179132E+01-0.13795331E+01
+ 0.29225910E+01-0.20975070E+01-0.15114219E+00-0.27185711E+00
+-0.40940229E-01-0.12731000E+01 0.11120260E+01-0.26601370E+03
+-0.17713570E+03 0.17827480E+03 0.62796988E+01 0.10490240E+02
+-0.20978109E+02 0.11591810E+02 0.70515442E+01 0.79514651E+01
+-0.16164930E+01-0.10442590E+02-0.55060582E+01-0.64914808E+01
+-0.97734154E+02-0.94968857E+02-0.13746900E+02-0.49232479E+02
+-0.10795680E+02 0.10779290E+01-0.34582901E+01 0.32039969E+01
+-0.27516350E+00 0.27204180E+00 0.56403160E+00 0.14725820E+01
+-0.11742790E+01 0.27658621E+03 0.17741820E+03-0.15174620E+03
+-0.41687381E-01-0.90430441E+01 0.18387711E+02-0.96610308E+01
+-0.76134949E+01-0.74097228E+01 0.93392539E+00 0.10613280E+02
+ 0.47897258E+01 0.61740241E+01 0.40892910E+02 0.41159431E+02
+ 0.12044441E+01 0.18936359E+02 0.42108350E+01-0.28070319E+00
+ 0.14531111E+01-0.15100570E+01 0.21959050E+00-0.10513950E+00
+-0.35525471E+00-0.59132820E+00 0.44526929E+00-0.10406280E+03
+-0.66293129E+02 0.48654579E+02-0.17336130E+01 0.34189930E+01
+-0.60924921E+01 0.29909661E+01 0.29883189E+01 0.25630860E+01
+-0.16317360E+00-0.39116349E+01-0.15588959E+01-0.21781571E+01
+-0.15177269E+00 0.12537930E+01 0.21636930E+01 0.26575610E-01
+-0.92795059E-01 0.65137617E-01-0.18705530E-01-0.99732215E-03
+ 0.10291680E-01-0.28687059E-02 0.24003531E-02-0.60656932E-02
+ 0.21290169E-02 0.38801181E+00-0.15650530E+01 0.12842590E+01
+ 0.83785757E-01 0.24485109E-01 0.55266488E-02 0.41355520E-01
+-0.72885612E-02-0.38949279E-02 0.45733870E-03-0.40989821E-02
+-0.55342691E-03-0.34355409E-02-0.29500100E+00 0.25893500E+01
+ 0.31403360E+00 0.44773629E+00-0.49369641E-01 0.53799119E-01
+ 0.13780031E+00-0.93507148E-01-0.91863133E-01-0.36979970E-01
+-0.25988800E-01 0.49247969E-01 0.39953049E-01-0.12784550E+01
+ 0.10265000E+01 0.94702822E+00 0.12119410E+00 0.46113229E+00
+-0.11658360E+00-0.26860461E+00-0.47526721E-01-0.16404040E-01
+-0.26156470E-01 0.24754640E-01 0.41082978E-01 0.37898820E-01
+ 0.35328579E+01 0.98481998E+01-0.57272810E+00 0.58620769E+00
+-0.34391949E+01 0.41463339E+00 0.20742910E+01-0.77165328E-01
+-0.24410219E+00 0.11813550E+00-0.20527300E+00 0.10575160E+00
+-0.82424760E-01 0.25900991E+01-0.89347181E+01 0.96551991E+01
+ 0.34383471E+01 0.65620410E+00-0.15479831E+01 0.55320382E+00
+ 0.30780521E+00 0.14165550E+00 0.66527411E-01-0.90651222E-01
+-0.34932811E-01 0.56566801E-01-0.77079120E+01-0.44155472E+02
+ 0.60526218E+01-0.52989812E+01 0.66356950E+01-0.11545560E+01
+-0.24699221E+01 0.18411959E+01 0.19700950E+01 0.72315949E+00
+-0.24546770E-01-0.89875710E+00-0.47058100E+00 0.16583960E+02
+-0.37017460E+01-0.12887040E+02-0.77104321E+01-0.43575482E+01
+ 0.26652300E+01 0.46643128E+01 0.63699633E+00 0.24469660E+00
+ 0.71589708E+00-0.45114720E+00-0.80152351E+00-0.72088033E+00
+-0.17614611E+02-0.45867340E+02 0.36148430E+02 0.39768579E+01
+ 0.33278301E+02-0.74300480E+01-0.18628941E+02 0.19785440E+01
+ 0.15453089E+01-0.94356120E+00 0.22144661E+01-0.46736300E+00
+ 0.83358228E+00-0.14534000E+02 0.88809195E+01-0.34024559E+02
+-0.34837761E+02 0.26521130E+01 0.13728510E+02-0.54070110E+01
+-0.34660649E+01-0.11606690E+01-0.76499230E+00 0.17660120E+01
+ 0.56709141E+00-0.15189600E+00 0.58515099E+02 0.23323340E+03
+-0.84849678E+02 0.24010309E+02-0.47508678E+02 0.79626141E+01
+ 0.15700040E+02-0.10702520E+02-0.10675000E+02-0.37449341E+01
+ 0.14390070E+01 0.42841430E+01 0.15728110E+01-0.90746353E+02
+ 0.30377069E+02 0.93099876E+02 0.52434528E+02 0.16152781E+02
+-0.17320141E+02-0.21382750E+02-0.12779480E+01-0.43621609E+00
+-0.38055770E+01 0.16904500E+01 0.42644420E+01 0.35884349E+01
+ 0.40232880E+02 0.62061218E+02-0.18114650E+03-0.25633520E+02
+-0.10147090E+03 0.24019609E+02 0.53410782E+02-0.82619066E+01
+-0.35523310E+01 0.26988881E+01-0.73554788E+01 0.98488158E+00
+-0.26669390E+01 0.14989220E+02 0.75410477E+02 0.16939899E+02
+ 0.10814890E+03-0.22172371E+02-0.37785511E+02 0.13399080E+02
+ 0.11279880E+02 0.34696910E+01 0.26765180E+01-0.66257720E+01
+-0.21376109E+01 0.19054270E+00-0.13453799E+03-0.53682452E+03
+ 0.26514230E+03-0.49655449E+02 0.13052341E+03-0.20943510E+02
+-0.41202011E+02 0.26485970E+02 0.23977360E+02 0.85141191E+01
+-0.46840110E+01-0.88108463E+01-0.20610890E+01 0.22232809E+03
+-0.91411583E+02-0.25414880E+03-0.13836240E+03-0.26082560E+02
+ 0.43890911E+02 0.42651730E+02-0.13896530E+01-0.78983909E+00
+ 0.76409578E+01-0.17144810E+01-0.94463024E+01-0.77862058E+01
+-0.48873569E+02-0.20298880E+02 0.29960172E+03 0.43277901E+02
+ 0.12565390E+03-0.29091681E+02-0.62402470E+02 0.11722440E+02
+ 0.33739450E+01-0.31668210E+01 0.95765896E+01-0.10383930E+01
+ 0.34113860E+01 0.12695930E+02-0.17816811E+03 0.45431122E+02
+-0.13519701E+03 0.40614819E+02 0.42558399E+02-0.12532440E+02
+-0.14172990E+02-0.46172128E+01-0.36020269E+01 0.91380301E+01
+ 0.29563539E+01-0.21609120E+00 0.13584509E+03 0.55165363E+03
+-0.35838889E+03 0.41721020E+02-0.15455240E+03 0.23301620E+02
+ 0.47123631E+02-0.28862370E+02-0.24154819E+02-0.89468546E+01
+ 0.54147921E+01 0.83574448E+01 0.92758822E+00-0.24059821E+03
+ 0.13659990E+03 0.28080579E+03 0.15897971E+03 0.12004710E+02
+-0.48169788E+02-0.39647202E+02 0.50572071E+01 0.27426350E+01
+-0.65074372E+01-0.52110487E+00 0.93481665E+01 0.78503351E+01
+ 0.22641211E+02-0.68375711E+01-0.15952879E+03-0.22578279E+02
+-0.54380550E+02 0.12098180E+02 0.25928749E+02-0.53827028E+01
+-0.11466020E+01 0.12954500E+01-0.42822270E+01 0.43114659E+00
+-0.15291250E+01-0.15144800E+02 0.10636000E+03-0.40277241E+02
+ 0.58877029E+02-0.22054930E+02-0.17243311E+02 0.37951341E+01
+ 0.61289930E+01 0.22855029E+01 0.16294140E+01-0.42735929E+01
+-0.13730190E+01 0.13938180E+00-0.51759201E+02-0.20773460E+03
+ 0.17685831E+03-0.11197280E+02 0.65416817E+02-0.92510071E+01
+-0.19576670E+02 0.11366690E+02 0.90559568E+01 0.35345719E+01
+-0.21323450E+01-0.30032811E+01 0.16893020E-01 0.92835571E+02
+-0.75570953E+02-0.10824930E+03-0.65939461E+02 0.19995060E+01
+ 0.19324940E+02 0.14163260E+02-0.30524881E+01-0.18684649E+01
+ 0.19778750E+01 0.10397151E+01-0.34197531E+01-0.30102110E+01
+ 0.59741501E-01-0.54203950E-01 0.34823410E-01-0.80407912E+00
+ 0.48857309E-01-0.13534680E+00-0.10826970E+00-0.91606202E-02
+ 0.67209758E-01 0.24700030E-02-0.46706409E-02 0.38264439E-04
+ 0.68747991E-03 0.17256500E-01-0.41288979E-01-0.58202751E-01
+-0.39443228E-01-0.79741561E+00 0.11919110E+00-0.15006690E+00
+-0.65703377E-01-0.44423761E-02 0.15257070E-02-0.30432830E-02
+ 0.19448270E-02 0.71775710E-03 0.27614039E+00 0.35944679E+00
+ 0.25196671E+00 0.97983342E+00-0.60630488E+00 0.64338580E-01
+ 0.11684050E+00-0.89018680E-02-0.74187219E-01-0.40422011E-01
+-0.17898509E-01 0.17950030E-01 0.16303720E-01 0.55339652E+00
+-0.15070710E+00 0.42172149E+00 0.62433982E+00 0.10193890E+01
+ 0.87407306E-02 0.10111430E+00 0.40741410E-01-0.87279193E-02
+-0.12430610E-01-0.23574879E-01 0.43062400E-02 0.21064680E-01
+-0.16858540E+00 0.91479957E+00 0.11865710E+01 0.27421989E+01
+ 0.21260450E+01 0.13481370E+01-0.41855469E+00-0.22930031E+00
+-0.31084731E+00-0.74401600E-02 0.61723460E-01-0.37170261E-01
+ 0.18810751E-01-0.52188039E+00-0.75408381E+00 0.12609680E+01
+-0.27331600E+01 0.26740601E+01-0.68843402E-02 0.16642650E+01
+ 0.24390340E+00-0.40546590E+00 0.94055317E-01 0.53608619E-01
+-0.68193890E-01-0.45328069E-01-0.61963120E+01-0.25346210E+01
+-0.24861240E+00 0.76636629E+01 0.45905991E+01-0.10128380E+00
+-0.35374460E+01-0.26460561E+00-0.88123061E-01 0.52142769E+00
+ 0.12480090E+00-0.20285930E+00-0.22279881E-02-0.75047441E+01
+ 0.35950100E+00-0.37451870E+01-0.47769070E+01 0.74350300E+01
+ 0.24944041E+01-0.43907699E+00 0.62076920E+00-0.20214321E+00
+ 0.22064000E+00 0.33617911E+00-0.24999399E+00-0.19207960E+00
+-0.81331527E+00-0.24520209E+01-0.62014651E+01-0.38084481E+01
+-0.81247110E+01-0.35902240E+01 0.74193950E+01 0.17783200E+01
+ 0.10410930E+01-0.33671471E+00-0.29937619E+00 0.26204059E+00
+-0.13188490E+00 0.79811230E+01 0.41612601E+01-0.31809890E+01
+ 0.11652270E+02-0.38376150E+01-0.57638030E+01-0.46154962E+01
+-0.13065330E+01 0.29240839E+01-0.65071899E+00-0.39698261E+00
+ 0.49374029E+00 0.36109969E+00 0.14917230E+02 0.35156059E+01
+-0.23992281E+01-0.31297390E+02-0.76514258E+01-0.41399500E+00
+ 0.11175390E+02 0.12126050E+01 0.62385231E+00-0.13585750E+01
+ 0.19694060E-01 0.46203890E+00-0.16747651E+00 0.17387920E+02
+ 0.19141051E+01 0.70412140E+01 0.83346453E+01-0.31031780E+02
+-0.89814758E+01 0.23678949E+00-0.21975169E+01 0.95527500E+00
+-0.84945363E+00-0.84929568E+00 0.81068712E+00 0.40232089E+00
+ 0.20494449E+01 0.69057369E+01 0.11788240E+02 0.35905099E+00
+ 0.12365710E+02 0.45814452E+01-0.18284380E+02-0.41182828E+01
+-0.15464610E+01 0.10914770E+01 0.28448051E+00-0.51443678E+00
+ 0.35261449E+00-0.19294270E+02-0.90884056E+01 0.60731430E+01
+-0.19182100E+02 0.77986193E+00 0.16336781E+02 0.57147369E+01
+ 0.29540291E+01-0.63766012E+01 0.15246921E+01 0.92370927E+00
+-0.11609870E+01-0.76255661E+00-0.96065865E+01-0.11161320E+01
+ 0.29519451E+01 0.22416241E+02-0.58409548E+00 0.38817400E+00
+-0.87718706E+01-0.11099700E+01-0.17789550E+00 0.99586183E+00
+-0.26012999E+00-0.29920769E+00 0.17605799E+00-0.12074570E+02
+-0.19077470E+01-0.39230199E+01 0.69193743E-01 0.22406099E+02
+ 0.74063849E+01 0.33605989E-01 0.14332010E+01-0.86590230E+00
+ 0.81895000E+00 0.60492188E+00-0.63401163E+00-0.24701750E+00
+-0.36829609E+00-0.75432582E+01-0.55190701E+01 0.28695180E+01
+-0.26309719E+01-0.24712479E+01 0.12662690E+02 0.28282490E+01
+ 0.46480611E+00-0.84882128E+00 0.55497609E-01 0.30785081E+00
+-0.28397831E+00 0.13877010E+02 0.42000270E+01-0.49457359E+01
+ 0.68050780E+01 0.25050299E+01-0.12024630E+02-0.28643479E+01
+-0.17266190E+01 0.41793518E+01-0.11338000E+01-0.64184481E+00
+ 0.82247752E+00 0.47544929E+00-0.62424010E-02-0.31837031E-01
+ 0.27633569E+00-0.18906561E+00 0.45994562E-02-0.14079431E+00
+-0.59069008E+00 0.25029860E-01-0.76615592E-02-0.54256111E-01
+-0.10829780E-01-0.11673480E-03 0.18533400E-02 0.10003780E-01
+-0.28152901E+00-0.29905520E-01-0.10220740E-01-0.18484440E+00
+ 0.58708239E+00-0.12912820E+00 0.45499681E-02 0.27188750E-01
+ 0.87480200E-02-0.56376051E-01-0.27290781E-03-0.11301020E-02
+-0.40381830E-01 0.43438330E-01 0.58305758E+00-0.13183270E-01
+-0.35572770E+00-0.23406941E+00 0.62985510E+00 0.11401660E+00
+ 0.21467181E-01-0.63494921E-01 0.34968339E-01 0.23657919E-02
+ 0.16489360E-01 0.35073890E-02-0.68565953E+00-0.90049679E-03
+ 0.30158630E+00-0.61350308E-01-0.67739600E+00-0.21296661E+00
+-0.26754919E-01 0.13686129E+00-0.65701559E-01-0.59825592E-01
+-0.76208231E-02-0.46292199E-02 0.24810541E+00 0.33581060E+00
+-0.17911540E+01 0.63656360E+00-0.83962297E+00 0.20172779E+00
+-0.26465660E+00-0.10581371E+01 0.68955821E+00 0.39158219E+00
+ 0.78111321E-01 0.67301700E-02-0.67623518E-02-0.17261060E+00
+ 0.20746109E+01 0.31695819E+00 0.97940677E+00 0.71180117E+00
+ 0.32551569E+00 0.36759220E-01-0.68348801E+00-0.10926070E+01
+-0.17437659E-01 0.42349860E+00-0.89051118E-02 0.33858981E-01
+ 0.54898780E-01 0.38295019E+00-0.10917710E+01 0.29668969E+00
+ 0.35571390E+00 0.12956020E+01-0.92305011E+00-0.29719779E+00
+ 0.64502411E-01 0.73344693E-01-0.52122839E-01 0.90980140E-03
+-0.50014529E-01-0.91666020E-02 0.13854440E+01 0.38409901E+00
+-0.23884730E+00 0.38627270E+00 0.99115479E+00 0.12581720E+01
+-0.60521752E-01-0.33259600E+00 0.10409790E+00 0.69793738E-01
+ 0.29234620E-01 0.89532277E-02-0.37410739E+00-0.19024310E+00
+ 0.16122071E+01-0.79642701E+00 0.22706189E+01-0.78755891E+00
+ 0.11885730E+01 0.18395650E+01-0.12787300E+01-0.42019600E+00
+-0.58015801E-01-0.29528890E-01 0.32152008E-01 0.32081151E+00
+-0.22049170E+01-0.96976310E-01-0.25187731E+01-0.94849718E+00
+-0.12879220E+01-0.55088139E+00 0.12804830E+01 0.18860630E+01
+-0.44812098E-01-0.46183640E+00-0.80741076E-02-0.69759898E-01
+ 0.85736811E-02-0.43465230E-02-0.33189349E-02-0.62273331E-01
+-0.46773750E-01-0.58006041E-01 0.34264750E-02 0.20895110E+00
+-0.27197590E-01 0.26423439E-01 0.30367710E-01-0.19485319E-02
+-0.18320139E-01-0.53247199E-02 0.18251630E-01 0.50972070E-04
+ 0.48481911E-01-0.62459469E-01-0.31828650E-02-0.59460189E-01
+ 0.27007980E-01 0.20518699E+00-0.30491989E-01 0.29165030E-01
+ 0.21624150E-01-0.51762038E-02-0.21801360E-01 0.70535973E-01
+ 0.10180650E+00 0.22090910E+00-0.12559490E-01-0.25067020E-01
+ 0.98682888E-01 0.32570869E-01 0.37551871E+00-0.33064209E-01
+-0.49184419E-01-0.10509790E-01-0.71439031E-02 0.42054500E-01
+-0.85011199E-01 0.72741181E-01 0.13738360E-01 0.21332820E+00
+-0.93736552E-01-0.40449500E-01-0.37689939E+00 0.28512331E-01
+ 0.43644771E-01-0.35974778E-01 0.61337710E-02-0.67452728E-02
+-0.63595320E-02 0.10942020E-01-0.12164490E-01 0.44325432E-02
+-0.14737460E-01 0.44363331E-01-0.12323850E-01 0.76819472E-01
+-0.89498842E-02 0.20100890E-01 0.16819561E+00-0.19881980E-01
+-0.29838480E-01-0.67734811E-02 0.51745600E-02 0.90926904E-02
+ 0.17805470E-01 0.52411789E-02 0.98038362E-02 0.46316359E-01
+ 0.13372710E-01 0.72192043E-01-0.16898790E+00 0.15570210E-01
+ 0.29614570E-01-0.17785380E-01-0.43092580E-02 0.15251610E-01
+ 0.69599161E-02-0.29220199E-03 0.16574380E-02 0.10584130E-01
+ 0.13367280E-01-0.59346068E-02 0.46245299E-01 0.16017949E-01
+-0.13220970E-01-0.85127071E-01-0.11578340E-02-0.41755149E-03
+ 0.83451075E-02-0.28530529E-02 0.65151788E-02 0.32697821E-02
+-0.15317200E-01 0.80927387E-02-0.54050349E-01-0.47909091E-02
+ 0.14388960E-01 0.15945811E-01 0.52830810E-02-0.83710052E-01
+-0.63315303E-04 0.18727490E-02 0.34474640E-02-0.20222780E-02
+-0.63696881E-02-0.16275850E-02 0.62088021E-02-0.78198332E-02
+ 0.39723990E-02 0.20705089E-02 0.30661530E-02-0.72345100E-02
+ 0.41914680E-02 0.68276669E-02-0.39942600E-02-0.34685989E-02
+-0.19232720E-02-0.17741550E-02-0.65194152E-03 0.56144581E-02
+-0.31547699E-03-0.99467942E-02-0.41547269E-03 0.12788720E-02
+-0.42372178E-02-0.92013804E-02-0.79352799E-03 0.37579439E-03
+ 0.26701221E-02-0.10246420E-01 0.40708180E-02 0.28924011E-02
+ 0.12871959E-02-0.49728528E-03 0.47352058E-02 0.20676860E-03
+-0.42620981E-02-0.13928830E-01 0.55532728E-03-0.11024820E-01
+-0.84073311E-02-0.48687160E-02 0.52162190E-02-0.85956734E-02
+-0.45798891E-02-0.97860792E-03-0.94515337E-02 0.14838580E-02
+ 0.44195671E-02-0.52747600E-04 0.44298642E-02-0.14841700E-01
diff --git a/input/glow_data/iri90/ursi18.asc b/input/glow_data/iri90/ursi18.asc
new file mode 100644
index 0000000..73f5bb1
--- /dev/null
+++ b/input/glow_data/iri90/ursi18.asc
@@ -0,0 +1,494 @@
+ 0.53607378E+01-0.14132920E+00 0.13304260E+00 0.96223928E-01
+-0.85111640E-01 0.71039209E-02-0.14347190E-03-0.92149881E-03
+ 0.20749460E-02-0.31888101E-02-0.15806550E-02-0.10667620E-02
+-0.12799531E-02-0.53194511E+00 0.12198160E+01 0.23476630E+00
+ 0.78395627E-01 0.30958080E+00 0.12725531E+00-0.10584750E+00
+-0.41275442E-01-0.50789841E-01 0.38150240E-01-0.57813921E-02
+-0.38051300E-01 0.28975761E-01 0.65499992E+01 0.32295930E+00
+ 0.16333041E+00-0.71400422E+00 0.70506081E-01 0.69031250E-02
+-0.56343719E-01 0.55421300E-01-0.33091810E-01 0.13893880E-01
+ 0.52029818E-01-0.44390070E-02 0.36976591E-01 0.10925950E+02
+-0.23982679E+02 0.21512990E+01-0.66067302E+00-0.32135460E+00
+-0.22513781E+01 0.16530490E+01 0.77664840E+00 0.70171702E+00
+-0.33058921E+00-0.25744161E+00 0.63235039E+00-0.41569251E+00
+-0.46225590E+02-0.32934451E+01 0.51461309E+00-0.15997990E+01
+-0.29321690E+01-0.66832209E+00 0.72724599E+00 0.28692060E-02
+ 0.15942290E+00 0.12117610E-02-0.19513801E+00 0.23400439E+00
+-0.21317761E+00-0.27536591E+02 0.11409000E+03-0.18256330E+02
+-0.13154940E+00-0.22136049E+01 0.10097050E+02-0.78351250E+01
+-0.39578681E+01-0.31086221E+01 0.88028282E+00 0.19556590E+01
+-0.32118959E+01 0.17476330E+01 0.99075951E+02 0.17500540E+02
+-0.76571808E+01 0.10912060E+02 0.12020700E+02 0.25793140E+01
+-0.20326409E+01-0.78800350E+00-0.31941459E+00-0.92069797E-01
+ 0.20482720E+00-0.91271108E+00 0.48538470E+00 0.19517210E+02
+-0.22016750E+03 0.39638721E+02 0.17031760E+01 0.71712971E+01
+-0.19273260E+02 0.16109150E+02 0.87150259E+01 0.61298070E+01
+-0.84981543E+00-0.48623638E+01 0.69467239E+01-0.32037101E+01
+-0.10143280E+03-0.28116699E+02 0.14395900E+02-0.15263520E+02
+-0.15815860E+02-0.34084680E+01 0.21554041E+01 0.14877230E+01
+ 0.27214029E+00 0.15063560E+00 0.11074400E-01 0.12149529E+01
+-0.48358250E+00 0.64568429E+01 0.18989230E+03-0.34032051E+02
+-0.36240649E+00-0.86009531E+01 0.16876720E+02-0.15117710E+02
+-0.87085800E+01-0.55851011E+01 0.13572350E+00 0.50179448E+01
+-0.67423539E+01 0.27023289E+01 0.39480740E+02 0.13803730E+02
+-0.76443229E+01 0.65987172E+01 0.67730660E+01 0.14934770E+01
+-0.79440558E+00-0.76513070E+00-0.81715509E-01-0.71361311E-01
+-0.72798222E-01-0.53453690E+00 0.17615309E+00-0.73959079E+01
+-0.61138821E+02 0.10317670E+02-0.63636988E+00 0.36896060E+01
+-0.55904608E+01 0.53097382E+01 0.32285881E+01 0.19165111E+01
+ 0.12870149E+00-0.18518100E+01 0.24198551E+01-0.85989511E+00
+-0.13383770E+00 0.14885290E+01 0.21833341E+01 0.32068461E-01
+-0.11877350E+00 0.39757680E-01-0.41041821E-01 0.10816120E-02
+ 0.11255290E-01-0.80561498E-02 0.79250671E-02-0.23285761E-02
+-0.61475183E-03-0.63435748E-01-0.16652100E+01 0.17058131E+01
+ 0.98916769E-01 0.29263230E-01 0.17022081E-01 0.11765230E-01
+-0.53124730E-02-0.92012668E-02-0.52456511E-02-0.69924849E-02
+ 0.20755711E-02-0.21960740E-02 0.18847060E+00 0.15490220E+01
+ 0.69166642E+00 0.36989960E+00-0.33529049E+00 0.24298170E+00
+ 0.11952150E+00-0.81659257E-01-0.48009500E-01-0.66713400E-01
+-0.16548529E-01-0.33065319E-01 0.72066858E-01-0.81197971E+00
+ 0.34950200E+00 0.16377760E+01 0.45617351E+00 0.18450721E+00
+ 0.32861441E-01-0.72806872E-01-0.52309219E-01-0.15878510E-01
+ 0.20523131E-01-0.26049890E-01-0.65284982E-01 0.78787934E-02
+ 0.41506939E+01 0.27277031E+01 0.31202581E+01 0.20132871E+01
+-0.21459651E+01-0.19792730E+00 0.22262499E+01 0.22545960E-01
+-0.42199171E+00 0.16994180E+00-0.37237671E+00 0.47728188E-01
+ 0.22875940E-01 0.26291881E+01-0.13222330E+02 0.40166181E+00
+ 0.26716559E+01 0.19665840E+01-0.12596790E+01 0.31582141E+00
+ 0.30234641E+00 0.35101411E+00 0.21611241E+00 0.82726263E-01
+-0.90957277E-01 0.30471960E-01-0.15469750E+02-0.88158607E+01
+ 0.64028339E+01-0.65962200E+01 0.11856410E+02-0.25800271E+01
+-0.12977459E+01 0.17330420E+01 0.10470980E+01 0.15402091E+01
+-0.24935150E+00 0.59551579E+00-0.10447640E+01 0.11292520E+02
+-0.81657495E+01-0.79770350E+01-0.13553890E+02-0.28711979E+01
+-0.23717490E+00 0.29937069E+01 0.55530632E+00-0.74633136E-01
+-0.27661581E-01 0.25701380E+00 0.10154520E+01-0.21334760E+00
+-0.25286640E+02-0.23991240E+02 0.41337139E+02-0.87407608E+01
+ 0.17148300E+02 0.18850860E+00-0.19972950E+02 0.38268489E+00
+ 0.34589970E+01-0.12748730E+01 0.33698649E+01-0.27934551E+00
+-0.23534030E+00-0.96332006E+01 0.88457956E+01-0.36771140E+01
+-0.20653641E+02-0.74281101E+01 0.11490610E+02-0.17602490E+01
+-0.34715021E+01-0.27199070E+01-0.19371160E+01-0.33785090E+00
+ 0.88070852E+00 0.42721950E-01 0.10061030E+03 0.44370880E+02
+-0.80030998E+02 0.32210140E+02-0.66090027E+02 0.12231220E+02
+ 0.67160649E+01-0.93979540E+01-0.59561582E+01-0.86552277E+01
+ 0.23888760E+01-0.31144631E+01 0.44182329E+01-0.86436996E+02
+ 0.45694950E+02 0.60751350E+02 0.73643402E+02 0.11916620E+02
+-0.24020331E+01-0.14611320E+02-0.77826017E+00 0.28010149E+01
+ 0.35222489E+00-0.49725220E+00-0.48998761E+01 0.12554610E+01
+ 0.63819962E+02 0.39376060E+02-0.26661130E+03 0.11165860E+02
+-0.50127060E+02-0.18471160E+01 0.59650822E+02-0.23397341E+01
+-0.99005957E+01 0.36817181E+01-0.10342350E+02 0.69395500E+00
+ 0.80888772E+00 0.12744060E+02 0.15643961E+03-0.27872570E+02
+ 0.59004601E+02 0.46372800E+01-0.33544609E+02 0.10050440E+01
+ 0.11422730E+02 0.77423110E+01 0.59553270E+01 0.72502142E+00
+-0.29242690E+01-0.54647762E+00-0.24314270E+03-0.11683420E+03
+ 0.24935750E+03-0.67408188E+02 0.14915710E+03-0.27480230E+02
+-0.17934320E+02 0.21386209E+02 0.14119260E+02 0.20031590E+02
+-0.62371430E+01 0.69420171E+01-0.81680021E+01 0.24714619E+03
+-0.11945170E+03-0.17392470E+03-0.16263280E+03-0.19848511E+02
+ 0.13143490E+02 0.27886850E+02-0.24589100E+01-0.10911160E+02
+-0.22472770E+01-0.23729290E+00 0.10490340E+02-0.29327710E+01
+-0.71233330E+02-0.14196830E+02 0.43920410E+03-0.22712290E+01
+ 0.62472462E+02 0.51901231E+01-0.72167473E+02 0.37632129E+01
+ 0.11584500E+02-0.44514408E+01 0.12849990E+02-0.78956121E+00
+-0.10974060E+01-0.43504200E+01-0.32686630E+03 0.77455078E+02
+-0.71703018E+02 0.86349802E+01 0.39377529E+02 0.34604731E+01
+-0.14510050E+02-0.93149500E+01-0.73988209E+01-0.80652291E+00
+ 0.39237840E+01 0.93973589E+00 0.25301280E+03 0.13492010E+03
+-0.31643381E+03 0.60901249E+02-0.15392841E+03 0.28161381E+02
+ 0.22367270E+02-0.21755911E+02-0.14885570E+02-0.20636360E+02
+ 0.64566660E+01-0.69706941E+01 0.69769430E+01-0.28688879E+03
+ 0.14963480E+03 0.19441071E+03 0.16428810E+03 0.10456340E+02
+-0.20356140E+02-0.23989901E+02 0.60767412E+01 0.15033290E+02
+ 0.39271760E+01 0.12831870E+01-0.10414670E+02 0.30149860E+01
+ 0.28343920E+02-0.59510169E+01-0.22018880E+03-0.23315251E+01
+-0.27291950E+02-0.34955349E+01 0.30645550E+02-0.18468750E+01
+-0.47985792E+01 0.18984200E+01-0.55883842E+01 0.33963010E+00
+ 0.51075000E+00-0.78567261E+00 0.17699181E+03-0.49498562E+02
+ 0.30609699E+02-0.81182079E+01-0.16230160E+02-0.31302600E+01
+ 0.63608551E+01 0.40167561E+01 0.32163081E+01 0.35320801E+00
+-0.18315510E+01-0.46581981E+00-0.95148849E+02-0.55310429E+02
+ 0.14170580E+03-0.19393560E+02 0.59775848E+02-0.10652390E+02
+-0.10157610E+02 0.81788168E+01 0.57765350E+01 0.78321438E+01
+-0.23358071E+01 0.25942640E+01-0.22577741E+01 0.11551130E+03
+-0.68471420E+02-0.74837982E+02-0.62681599E+02 0.43015671E+00
+ 0.10003650E+02 0.77784119E+01-0.34293251E+01-0.69059110E+01
+-0.20657771E+01-0.81530893E+00 0.39095731E+01-0.11424330E+01
+ 0.14917301E+00 0.19038589E+00-0.16200410E+00-0.77711350E+00
+-0.50338048E+00-0.45785170E-01-0.16152959E-01-0.41225530E-01
+ 0.47153749E-01-0.75015449E-03-0.82864030E-03-0.15108720E-02
+ 0.14720350E-02-0.49493961E-01 0.17721491E+00 0.17909519E+00
+ 0.50311959E+00-0.76480317E+00 0.28327029E-01-0.63544847E-01
+-0.40142529E-01-0.36403190E-01 0.32093499E-02-0.82279686E-02
+ 0.82283258E-03-0.14444860E-02 0.27436890E-01 0.26576430E+00
+ 0.62896580E+00 0.34003079E+00-0.54813260E+00 0.79770587E-01
+ 0.94791181E-01 0.63057758E-01 0.93182288E-01-0.21099839E-01
+-0.18974509E-01 0.11963200E-01 0.19144099E-01 0.14424630E+00
+-0.61531907E+00 0.32992619E+00 0.65258968E+00 0.39208880E+00
+ 0.39993469E-01 0.19898790E+00-0.14286770E+00 0.37829999E-01
+ 0.31436451E-01-0.15575910E-01-0.24942450E-01 0.14634860E-01
+-0.25148160E+01-0.12972590E-01 0.18603730E+01 0.78894639E+01
+ 0.49505811E+01-0.57308741E-01-0.12569760E+01 0.74736041E+00
+ 0.12054260E-01-0.31186590E-01-0.54493941E-01 0.41187301E-01
+-0.39409079E-01 0.23892820E+01-0.20617440E+01 0.68145519E+00
+-0.50940328E+01 0.77389851E+01 0.87229288E+00 0.35952950E+00
+-0.19132181E+00 0.50530630E+00-0.14253010E-01 0.11890060E+00
+-0.20347690E-01 0.16912360E-01-0.11311270E+01-0.21107759E+01
+-0.45911140E+01 0.10216920E+02-0.15263710E+01-0.90392840E+00
+-0.23467410E+01-0.59436011E+00-0.29551089E+00 0.37636900E+00
+ 0.11979520E+00-0.15773650E+00-0.17160670E+00-0.23309929E+01
+ 0.54960918E+01-0.27978640E+01 0.28308031E+00 0.97306118E+01
+ 0.10721200E+01-0.18147100E+01 0.98742002E+00-0.31411761E+00
+-0.25417790E+00 0.22524670E+00 0.25265110E+00-0.24183039E+00
+ 0.76860881E+01-0.56837279E+00-0.20469770E+01-0.17349220E+02
+-0.15301830E+02 0.15337009E+01 0.82253075E+01-0.35988569E+01
+-0.16621370E+01 0.18495690E-01 0.34484339E+00-0.41129509E+00
+ 0.20926800E+00-0.88623714E+01 0.34792900E+01-0.27649040E+01
+ 0.15880710E+02-0.16584089E+02-0.66777291E+01-0.54117209E+00
+ 0.21843300E+01-0.23340909E+01 0.56646369E-01-0.35927990E+00
+ 0.10988390E+00 0.11634630E-01 0.37432580E+01 0.35939789E+01
+ 0.96871109E+01-0.37097012E+02 0.93597298E+01 0.20337811E+01
+ 0.82417641E+01 0.11606640E+01-0.24293511E+00-0.11201910E+01
+-0.13258950E+00 0.40765879E+00 0.37752590E+00 0.67541308E+01
+-0.12235310E+02 0.52863479E+01-0.60590029E+01-0.35932758E+02
+-0.53893671E+01 0.38693230E+01-0.16608740E+01 0.45714921E+00
+ 0.47707191E+00-0.66029787E+00-0.55408710E+00 0.65054703E+00
+-0.88029146E+01 0.38806191E+00-0.34691739E+01 0.63638539E+01
+ 0.18928659E+02-0.39921660E+01-0.14590150E+02 0.58327379E+01
+ 0.43611951E+01 0.22798930E+00-0.61397481E+00 0.98483390E+00
+-0.38201419E+00 0.11058230E+02 0.52751851E+00 0.24512100E+01
+-0.19810249E+02 0.47187829E+01 0.12522950E+02-0.35536319E+00
+-0.46748281E+01 0.36427391E+01-0.16799539E+00 0.42324761E+00
+-0.21479049E+00-0.13357159E+00-0.31104729E+01-0.15125790E+01
+-0.71420779E+01 0.28700609E+02-0.11237690E+02-0.16438310E+01
+-0.69111748E+01-0.62333220E+00 0.75916988E+00 0.89381742E+00
+ 0.16188679E-01-0.29565951E+00-0.23446549E+00-0.51288581E+01
+ 0.93059454E+01-0.26525309E+01 0.88695574E+01 0.27874920E+02
+ 0.50913348E+01-0.27554359E+01 0.68054873E+00-0.12376210E+00
+-0.26545471E+00 0.53614271E+00 0.32990211E+00-0.47436410E+00
+ 0.43796301E+01-0.48556620E+00 0.55193591E+01 0.38651841E+01
+-0.59592862E+01 0.28656800E+01 0.80549517E+01-0.29790909E+01
+-0.30264399E+01-0.24385279E+00 0.27297309E+00-0.65852278E+00
+ 0.22667870E+00-0.44335899E+01-0.39765620E+01-0.46810341E+00
+ 0.64777069E+01 0.50351748E+01-0.71987181E+01 0.78674728E+00
+ 0.29092579E+01-0.17591410E+01 0.21054509E+00-0.17190319E+00
+ 0.14319880E+00 0.13164940E+00-0.29800970E-02 0.25187369E-01
+ 0.23801289E+00-0.25646609E+00 0.10894180E+00-0.10013720E+00
+-0.47096139E+00 0.20975500E-01 0.66771790E-01-0.19968741E-01
+-0.63758790E-01 0.19340980E-02 0.22227210E-02 0.17831300E-04
+-0.23046450E+00 0.28326990E-01-0.11805060E+00-0.24607480E+00
+ 0.47305790E+00-0.89533918E-01-0.64958222E-01 0.21286510E-01
+ 0.64185940E-01-0.23049770E-01-0.14816080E-02 0.76997362E-03
+-0.75035810E-01 0.20863131E+00 0.34686461E+00-0.13903460E+00
+-0.13279650E+00 0.95647238E-01-0.19958870E+00 0.27649960E-01
+ 0.16969800E+00-0.49234990E-01-0.14801190E-01-0.11279400E-01
+-0.82879089E-03 0.53204171E-01-0.41608369E+00 0.17372020E+00
+ 0.84104612E-01-0.18418591E+00 0.13761160E+00 0.11415840E+00
+-0.16358970E+00 0.44885319E-01 0.21192770E-01-0.57320450E-01
+ 0.37238800E-02-0.96704969E-02 0.10173680E-03-0.33567280E+00
+-0.15223490E+01 0.13428140E+01-0.45110551E+00-0.12907460E+00
+-0.24608199E+00-0.38329300E+00 0.18800309E+00 0.29364189E-01
+ 0.22150449E+00-0.44126932E-01-0.85484050E-02-0.12021200E-01
+ 0.15243630E+01-0.36631250E+00 0.51169503E+00 0.12811860E+01
+ 0.23698060E+00-0.31010991E+00-0.23428389E+00-0.42382321E+00
+-0.20321530E+00 0.91480002E-01 0.62010218E-02-0.60151229E-02
+ 0.11611760E+00 0.93382811E-02-0.82702202E+00 0.42845559E+00
+ 0.18171120E+00 0.45734670E-01 0.62970650E+00 0.38788989E-01
+-0.34991080E+00 0.68752468E-01 0.17899990E-01 0.10560330E-01
+-0.15909600E-02-0.11511070E+00 0.99704129E+00 0.18558720E-01
+-0.79773061E-01 0.50580972E+00-0.53155231E+00 0.36592970E-02
+ 0.34035060E+00 0.10956120E-01-0.25729921E-01 0.80252640E-01
+-0.37804849E-02 0.11084990E-01 0.40130090E-01 0.55426151E+00
+ 0.19888040E+01-0.18076479E+01 0.91547137E+00 0.24552110E+00
+ 0.92845207E+00 0.83685482E+00-0.52995628E+00 0.39619468E-01
+-0.21609290E+00 0.74920900E-01 0.57706302E-02 0.31408370E-01
+-0.20862999E+01 0.60973293E+00-0.10194980E+01-0.17502930E+01
+-0.93277478E+00 0.52175218E+00 0.61000389E+00 0.90134221E+00
+ 0.17802399E+00-0.54648831E-01-0.16100170E-02 0.16852129E-01
+ 0.19079300E-02 0.22711549E-02-0.18530680E-02-0.71273238E-03
+-0.40888719E-01-0.28422100E-02 0.44034861E-01 0.20287091E+00
+ 0.56381632E-01 0.16570769E-01 0.23417519E-01 0.12408850E-01
+-0.49541108E-02-0.48820842E-02 0.18838700E-01-0.31182789E-02
+ 0.38987420E-01 0.13199530E-02-0.45698419E-01-0.67360308E-02
+-0.54043639E-01 0.19950700E+00-0.19671040E-01 0.15931340E-01
+ 0.53830529E-02 0.12926370E-01-0.27929340E-01 0.29353620E-01
+ 0.60651690E-01 0.14442299E+00-0.59963021E-01-0.41737668E-02
+ 0.84015682E-01 0.66840373E-01 0.26642251E+00 0.44934088E-02
+-0.32646079E-01 0.16167071E-01 0.34922741E-02 0.10675720E-01
+-0.49471460E-01 0.37324511E-01 0.67756154E-01 0.12709861E+00
+-0.91080271E-01-0.13668570E-01-0.26492700E+00 0.65800242E-01
+ 0.34989271E-01-0.10323080E-02-0.55825240E-02 0.18423799E-01
+-0.28516650E-02 0.86462302E-02-0.65067541E-02-0.28584960E-02
+-0.10983210E-01-0.22465531E-02-0.28470840E-01 0.63647039E-01
+-0.35895009E-01-0.33323001E-01 0.13979740E+00-0.16522370E-01
+ 0.39485440E-03-0.36722810E-02 0.34457610E-02 0.18016479E-02
+ 0.12980380E-01-0.23306629E-02 0.29882601E-01-0.32410370E-02
+ 0.43320369E-01 0.57129230E-01-0.14056720E+00-0.35561498E-01
+-0.61792071E-03-0.14803320E-01-0.37795000E-02 0.14370560E-01
+-0.12079020E-02 0.19805790E-02-0.34098930E-02 0.72730188E-02
+ 0.11686590E-01-0.19799501E-01 0.34299541E-01-0.58869268E-02
+-0.78243408E-02-0.75316437E-01-0.32324240E-01-0.15759600E-02
+ 0.17680530E-02-0.38886950E-02 0.58969581E-02 0.52226912E-02
+-0.13145540E-01 0.94427979E-02-0.39680321E-01-0.18180560E-01
+ 0.70628361E-02-0.24237719E-02 0.33545770E-01-0.74821576E-01
+ 0.49575269E-02 0.65181432E-02 0.83980309E-02-0.14766140E-02
+-0.55682580E-02-0.54818559E-02 0.70850402E-02-0.23673340E-02
+ 0.32829959E-02-0.12622660E-01 0.10153240E-01 0.40042391E-02
+ 0.51070992E-02-0.85909013E-02 0.66339539E-03-0.13099550E-02
+ 0.24455860E-02-0.38523951E-02-0.53095901E-02 0.62921562E-03
+-0.75403560E-03-0.65010502E-02-0.84578916E-02-0.14818280E-01
+-0.45188218E-02 0.33474499E-02-0.53630308E-02-0.35144910E-02
+ 0.11259760E-01-0.30251411E-02 0.11856310E-02 0.75790362E-03
+ 0.46069212E-02 0.16594559E-02 0.56094551E-02-0.73135849E-02
+-0.73998319E-02 0.76615382E-02-0.97263874E-02-0.45004478E-02
+-0.95885750E-02 0.84822439E-03 0.23450570E-03-0.81328535E-02
+-0.67336578E-02-0.39372188E-02-0.72937310E-02 0.93207011E-04
+ 0.95547214E-02-0.82542216E-02 0.12049660E-01 0.94456561E-02
+ 0.82566452E+01 0.40545039E-01 0.13433090E+00 0.33906668E-01
+-0.73023073E-01 0.99854656E-02 0.13880720E-02 0.37982571E-03
+ 0.33590789E-02-0.18762380E-02 0.14928459E-02-0.23030490E-02
+ 0.65853202E-03 0.16617540E+00 0.10649980E+01-0.39513621E+00
+ 0.14562500E+00-0.19356009E+00 0.74190028E-01-0.82111172E-01
+-0.35553630E-02-0.58700431E-01-0.11326900E-01 0.79419557E-02
+-0.32414921E-01 0.14089120E-01 0.14358150E+02 0.13565741E+01
+ 0.25166960E+01 0.24766381E+01-0.32489130E+00-0.96326880E-01
+-0.42377990E-01-0.34066699E-01-0.69050990E-01 0.15844541E-01
+ 0.43496411E-01 0.68083361E-01-0.45631692E-01-0.67060428E+01
+-0.13109470E+02 0.20021700E+02-0.27994130E+01 0.30424690E+01
+-0.14445120E+01 0.10278170E+01 0.55646051E-01 0.11720480E+01
+ 0.29852059E+00-0.23287220E+00 0.61954743E+00-0.18739250E+00
+-0.76390991E+02-0.17537901E+02-0.16050480E+02-0.21256580E+02
+ 0.67704058E+00 0.18430109E+00 0.29350170E+00 0.75773603E+00
+ 0.24506781E+00-0.24301779E+00-0.34202790E+00-0.13529530E+00
+ 0.22201291E+00 0.61129051E+02 0.54559700E+02-0.10108530E+03
+ 0.18513330E+02-0.13173090E+02 0.68186908E+01-0.42445278E+01
+-0.35638550E+00-0.58487129E+01-0.17371410E+01 0.13015260E+01
+-0.31742301E+01 0.84815788E+00 0.14658659E+03 0.60683411E+02
+ 0.32342529E+02 0.57039330E+02 0.12808050E+01 0.41359600E+00
+-0.25047961E+00-0.29665289E+01-0.33577001E+00 0.88173920E+00
+ 0.76523852E+00-0.15650250E+00-0.42005721E+00-0.16596140E+03
+-0.10472440E+03 0.18856020E+03-0.47820129E+02 0.26964821E+02
+-0.14009860E+02 0.72191362E+01 0.12267300E+01 0.12108900E+02
+ 0.40066180E+01-0.27887280E+01 0.67606549E+01-0.17163620E+01
+-0.14701131E+03-0.78280678E+02-0.22988680E+02-0.62295021E+02
+-0.31547790E+01-0.12294040E+01-0.36731261E+00 0.40446768E+01
+ 0.20197320E+00-0.11391860E+01-0.67268562E+00 0.51266170E+00
+ 0.35384020E+00 0.18241721E+03 0.94898499E+02-0.15390720E+03
+ 0.52016430E+02-0.27155661E+02 0.13292050E+02-0.52401719E+01
+-0.17325300E+01-0.11245940E+02-0.40424442E+01 0.25861671E+01
+-0.64381428E+01 0.15973120E+01 0.59169498E+02 0.33812592E+02
+ 0.38184230E+01 0.24085819E+02 0.16040050E+01 0.72799301E+00
+ 0.37376550E+00-0.18151439E+01-0.46153069E-01 0.48859391E+00
+ 0.20351930E+00-0.29002109E+00-0.11038090E+00-0.70598160E+02
+-0.32732052E+02 0.47034531E+02-0.20112261E+02 0.10589780E+02
+-0.47455649E+01 0.13122780E+01 0.81946999E+00 0.38804381E+01
+ 0.14900060E+01-0.87442899E+00 0.22703600E+01-0.55721569E+00
+-0.12740110E+00 0.12950650E+01 0.20639200E+01 0.45739889E-01
+-0.33442531E-01 0.27581420E-01-0.54214239E-01-0.37424899E-04
+ 0.11065010E-01-0.40543131E-02-0.95491880E-04-0.86730131E-03
+ 0.24137790E-03 0.37754291E+00-0.14900750E+01 0.13145480E+01
+ 0.10914680E-01 0.46426080E-01 0.35526048E-01 0.18047620E-01
+-0.76677450E-02-0.36107460E-02-0.27988991E-02-0.17280650E-02
+ 0.24893819E-02-0.16008239E-02 0.33597451E+00 0.26889040E+01
+ 0.61685169E+00 0.45816541E+00-0.12196260E-01 0.98779738E-01
+ 0.12770960E+00-0.22053050E-01-0.49808860E-01-0.19252799E-01
+ 0.43044262E-01 0.22516171E-01 0.64128093E-01-0.15390630E+01
+ 0.79238182E+00 0.92376548E+00 0.98617673E-02 0.25616869E+00
+-0.12500460E+00-0.78470707E-01-0.59914969E-01-0.47511090E-01
+-0.27352260E-01-0.34519760E-02-0.74249893E-01 0.53676412E-01
+ 0.15417560E+01 0.95858231E+01-0.24020250E+01 0.12473700E+01
+-0.39925439E+01 0.77663708E+00 0.37910650E+01-0.54132909E-01
+-0.37851080E+00 0.99785402E-01 0.98546743E-01-0.68333209E-01
+-0.31572051E-01 0.15044370E+01-0.81247568E+01 0.10586230E+02
+ 0.46770930E+01 0.10431880E+01-0.31780529E+01 0.59402549E+00
+ 0.34776071E+00 0.17251110E+00 0.15388469E+00 0.72082780E-01
+-0.78184577E-02-0.51056530E-01-0.15421750E+02-0.36496220E+02
+ 0.13510510E+02-0.95088100E+01 0.51321359E+01-0.14722151E+01
+-0.58581507E+00 0.24671461E+00 0.14543570E+01 0.55759752E+00
+-0.94389451E+00-0.33896190E+00-0.11477910E+01 0.35047710E+02
+-0.60259600E+01-0.50929302E+00-0.49397631E+01-0.49821601E+01
+ 0.25228590E+00 0.19967470E+01 0.80444348E+00 0.96205622E+00
+ 0.37784070E+00 0.15224610E+00 0.13176050E+01-0.66615731E+00
+-0.76059461E+01-0.27967880E+02 0.50706429E+02-0.47490621E+00
+ 0.30162809E+02-0.53390551E+01-0.29251659E+02 0.14497790E+01
+ 0.32183640E+01-0.12330490E+01-0.49083209E+00 0.11317260E+01
+ 0.48672728E-01-0.79725301E+00 0.27207360E+01-0.24621201E+02
+-0.36940769E+02 0.24533861E+01 0.23315670E+02-0.25489149E+01
+-0.39132710E+01-0.16965500E+01-0.16920270E+01-0.92892897E+00
+-0.23918101E-02 0.69776928E+00 0.94101883E+02 0.16539819E+03
+-0.12734390E+03 0.47431198E+02-0.31291670E+02 0.51792421E+01
+ 0.46179042E+01-0.46124801E+00-0.89861879E+01-0.23961251E+01
+ 0.50836759E+01 0.16029500E+01 0.55611000E+01-0.19158450E+03
+ 0.35968842E+02 0.89649954E+01 0.31639481E+02 0.23883560E+02
+-0.14592880E+01-0.10725100E+02-0.14897389E+01-0.35365620E+01
+-0.99354303E+00-0.32155480E-01-0.63110132E+01 0.23465929E+01
+ 0.20609039E+02-0.18738670E+02-0.21008350E+03-0.16470070E+02
+-0.83732918E+02 0.13099540E+02 0.79879562E+02-0.60085959E+01
+-0.94693832E+01 0.43815169E+01 0.58385170E+00-0.40375161E+01
+ 0.26912341E+00-0.27713301E+02 0.78758278E+02-0.42684261E+02
+ 0.10445470E+03-0.29232790E+02-0.60434639E+02 0.30083611E+01
+ 0.12889770E+02 0.53729858E+01 0.59554539E+01 0.34018421E+01
+-0.14917859E+00-0.22871060E+01-0.20643739E+03-0.33805029E+03
+ 0.35997440E+03-0.95445023E+02 0.78646957E+02-0.64662032E+01
+-0.18754480E+02-0.17464110E+00 0.21995371E+02 0.38870261E+01
+-0.10776340E+02-0.34690559E+01-0.11535070E+02 0.42625650E+03
+-0.89175117E+02-0.36156189E+02-0.80559258E+02-0.43161800E+02
+ 0.77722239E+01 0.24419800E+02-0.21574891E+01 0.42647820E+01
+-0.24160390E+00-0.17562290E+01 0.13046820E+02-0.34429591E+01
+-0.30787279E+02 0.10552510E+03 0.32270480E+03 0.35872879E+02
+ 0.99256302E+02-0.13651850E+02-0.91629921E+02 0.85132465E+01
+ 0.11349720E+02-0.58570161E+01 0.74953750E-01 0.53508120E+01
+-0.64627939E+00 0.57555099E+02-0.16894769E+03 0.14899890E+03
+-0.12421790E+03 0.55880100E+02 0.66387482E+02 0.19912410E+00
+-0.16429470E+02-0.68801732E+01-0.82037506E+01-0.46709328E+01
+ 0.41991249E+00 0.28749759E+01 0.19927380E+03 0.31128021E+03
+-0.44723221E+03 0.79508324E+02-0.91130371E+02 0.18269480E+01
+ 0.28079981E+02 0.11355489E+01-0.23516270E+02-0.26413469E+01
+ 0.99211740E+01 0.34990771E+01 0.10917660E+02-0.41515469E+03
+ 0.11986750E+03 0.33603329E+02 0.92825722E+02 0.26536900E+02
+-0.12897320E+02-0.25814180E+02 0.67707500E+01-0.71922457E+00
+ 0.26873860E+01 0.33875949E+01-0.12393610E+02 0.21449790E+01
+ 0.15898830E+02-0.70744942E+02-0.16312790E+03-0.20260441E+02
+-0.41911190E+02 0.50557561E+01 0.37728130E+02-0.39511490E+01
+-0.47871809E+01 0.26378479E+01-0.27895430E+00-0.24075699E+01
+ 0.36644259E+00-0.30421869E+02 0.95724327E+02-0.95589691E+02
+ 0.52239029E+02-0.30288250E+02-0.26452360E+02-0.14596360E+01
+ 0.72014308E+01 0.30806890E+01 0.38699651E+01 0.21550751E+01
+-0.26964059E+00-0.12450870E+01-0.71682938E+02-0.10439450E+03
+ 0.20278310E+03-0.22814960E+02 0.38989571E+02 0.94205028E+00
+-0.13786850E+02-0.74718338E+00 0.91998997E+01 0.60764718E+00
+-0.33285849E+01-0.13265870E+01-0.38742559E+01 0.14676010E+03
+-0.60993938E+02-0.61159978E+01-0.39210621E+02-0.27921650E+01
+ 0.66669431E+01 0.10392320E+02-0.39786370E+01-0.10121790E+01
+-0.18628531E+01-0.17821810E+01 0.44346809E+01-0.42932060E+00
+ 0.96633308E-01-0.19142550E+00-0.48964530E-01-0.83575612E+00
+ 0.20209980E+00-0.17048730E+00-0.69623493E-01 0.46434328E-04
+ 0.23646720E-01-0.13409310E-02-0.52874582E-02-0.53947452E-02
+ 0.19320620E-02 0.73291577E-01 0.51474132E-01-0.20104431E+00
+-0.18788050E+00-0.85162902E+00 0.65162778E-01-0.18505760E+00
+-0.25991470E-01 0.15614780E-02 0.36682519E-02-0.46176501E-02
+-0.39048621E-02-0.45446279E-02 0.42614740E+00 0.11928680E+00
+ 0.16587619E+00 0.10736980E+01-0.17605810E+00 0.35539141E+00
+ 0.15497980E-01 0.71176179E-02-0.69513284E-01-0.14017690E-01
+-0.33695620E-01 0.29847071E-01-0.17050140E-01 0.81803519E+00
+-0.59999079E-02 0.14019699E+00 0.26004279E+00 0.11630310E+01
+ 0.56840789E-01 0.39687800E+00 0.68369582E-01 0.39847951E-01
+ 0.32004680E-01-0.38226161E-01 0.15366230E-01 0.87395906E-02
+-0.76411629E+00 0.26918120E+01 0.20340459E+01-0.26803070E+00
+ 0.18615720E+01 0.11187921E+01-0.30975619E-01-0.21628080E+00
+ 0.61890390E-01 0.33760790E-01 0.13557270E+00 0.89823723E-01
+-0.99068724E-01-0.43151522E+01-0.18930531E+01 0.32052200E+01
+-0.24437361E+01 0.35633281E+00-0.61296400E-01 0.13747690E+01
+-0.78744501E-01-0.31962720E+00-0.82550183E-01 0.11649050E+00
+ 0.15466720E+00 0.82632147E-01-0.86495295E+01-0.65140432E+00
+-0.23634050E+01 0.88286610E+01 0.45030288E-01-0.20721760E+01
+-0.31292920E+01 0.48553281E-01 0.74483538E+00 0.25049201E+00
+ 0.40112269E+00-0.45885620E+00 0.10565190E+00-0.10064350E+02
+ 0.11687360E+01-0.18842570E+01-0.60924190E+00 0.78837109E+01
+ 0.24871759E+01-0.25192020E+01-0.61909699E+00-0.18305840E+00
+-0.48456040E+00 0.46374479E+00-0.21180150E+00-0.20740619E+00
+ 0.38867331E+00-0.10315870E+02-0.11344100E+02 0.84761105E+01
+-0.66581211E+01 0.34490209E-01 0.47375069E+01 0.10812520E+01
+-0.17050960E+01-0.46086240E+00-0.70360202E+00-0.39697611E+00
+ 0.51627523E+00 0.28245680E+02 0.10009470E+02-0.13107220E+02
+ 0.94277668E+01 0.57952352E+01-0.45927038E+01-0.12651380E+01
+ 0.15916010E+01 0.19810220E+01 0.77906150E+00-0.62352902E+00
+-0.51736158E+00-0.42804700E+00 0.22480209E+02-0.29022419E+01
+ 0.71300449E+01-0.32707489E+02 0.42695460E+01 0.35264630E+01
+ 0.10740050E+02-0.49417350E+00-0.16958680E+01-0.80719328E+00
+-0.86398703E+00 0.12001590E+01-0.26833799E+00 0.22318331E+02
+-0.39919291E+01 0.85689342E+00-0.30412149E+01-0.30506390E+02
+-0.94281378E+01 0.45048370E+01 0.12146291E+01-0.11552380E-01
+ 0.11718520E+01-0.12766860E+01 0.66510558E+00 0.55682218E+00
+ 0.63629848E+00 0.21843210E+02 0.18011440E+02-0.17437059E+02
+ 0.47423191E+01-0.57538929E+01-0.12669770E+02-0.14624230E+01
+ 0.45643172E+01 0.13634620E+01 0.11355270E+01 0.68642938E+00
+-0.81423390E+00-0.54627338E+02-0.14966940E+02 0.27306240E+02
+-0.94500256E+01-0.13696460E+02 0.13168110E+02-0.32890720E+01
+-0.39509780E+01-0.35324111E+01-0.17666910E+01 0.13063290E+01
+ 0.40557110E+00 0.83306623E+00-0.14798240E+02 0.54921942E+01
+-0.77680802E+01 0.22033030E+02-0.90488758E+01-0.18768440E+01
+-0.88506594E+01 0.52220398E+00 0.12090271E+01 0.68534648E+00
+ 0.48186359E+00-0.85914731E+00 0.20316841E+00-0.15280340E+02
+ 0.62212439E+01 0.25816319E+01 0.83520441E+01 0.20591949E+02
+ 0.80732870E+01-0.24804461E+01-0.77671963E+00 0.20856020E+00
+-0.73552638E+00 0.98796362E+00-0.54689628E+00-0.39811739E+00
+-0.33975670E+00-0.17437031E+02-0.53026462E+01 0.10888170E+02
+ 0.41239681E+01 0.50327678E+01 0.92004251E+01 0.45631400E+00
+-0.33090861E+01-0.10700830E+01-0.55270028E+00-0.38705051E+00
+ 0.39516419E+00 0.33975788E+02 0.29028809E+01-0.20398800E+02
+-0.14492490E+01 0.92806826E+01-0.98664265E+01 0.34865420E+01
+ 0.27293589E+01 0.18497140E+01 0.11305940E+01-0.89823550E+00
+ 0.28042659E-01-0.51547623E+00-0.12594010E-01-0.25168071E-01
+ 0.36219549E+00-0.94207108E-01-0.49081411E-01-0.16860530E+00
+-0.70034689E+00 0.12951080E-01 0.99294297E-02-0.37994701E-01
+ 0.94320802E-02 0.24528950E-02 0.99648151E-03 0.62449169E-02
+-0.36975941E+00-0.24342220E-01 0.46872269E-01-0.82818247E-01
+ 0.69777697E+00-0.16115610E+00-0.10838740E-01 0.14446570E-01
+-0.94499793E-02-0.38506020E-01 0.53587410E-04-0.17799780E-02
+ 0.17825380E-01 0.24758360E+00 0.53819180E+00 0.70769481E-01
+-0.46427760E+00-0.31887111E+00 0.39357600E+00-0.13689840E+00
+ 0.61154481E-01-0.96741669E-01-0.91530224E-02-0.12505810E-01
+ 0.39562592E-02-0.81662573E-02-0.60258371E+00 0.12960030E+00
+ 0.38227090E+00 0.27865561E-01-0.43181169E+00-0.31675091E+00
+-0.47885519E-01-0.12614550E+00 0.22022771E-01-0.10887350E+00
+ 0.81515601E-02-0.10537280E-01 0.32432929E+00-0.10562580E+00
+-0.19311730E+01 0.68717211E-01-0.41001970E+00 0.56216168E+00
+ 0.74225050E+00-0.51623720E+00 0.34222019E+00 0.24198011E+00
+-0.12572891E+00-0.93196303E-01-0.18173290E-01-0.89460999E-01
+ 0.21749990E+01-0.21179010E+00 0.49417189E+00 0.13339610E+00
+-0.69724000E+00 0.37396860E+00-0.39492360E+00-0.57351202E+00
+ 0.15361600E+00 0.25703689E+00 0.90427734E-02-0.25188371E-02
+-0.55875849E-01 0.55977769E-01-0.96381390E+00-0.86458446E-02
+ 0.82639331E+00 0.15183060E+01-0.26314640E+00 0.29944831E+00
+-0.13792481E+00 0.12939259E+00 0.15596900E-01 0.32334398E-01
+-0.15572410E-01 0.91282073E-02 0.12102240E+01 0.16289200E+00
+-0.66244638E+00 0.65987691E-01 0.31051400E+00 0.15143280E+01
+ 0.11143340E+00 0.28122780E+00-0.29342910E-01 0.14700490E+00
+-0.37967770E-02 0.28037120E-01-0.53472650E+00 0.55978030E+00
+ 0.15614001E+01 0.92311734E-02 0.16076920E+01-0.17880369E+01
+-0.68291461E+00 0.93114531E+00-0.52071750E+00-0.23565669E+00
+ 0.23817670E+00 0.13068420E+00 0.57578400E-01 0.13749281E+00
+-0.20936091E+01 0.76459110E+00-0.17775160E+01-0.14537810E+00
+ 0.61406749E+00-0.15061450E+01 0.62013191E+00 0.10251710E+01
+-0.29305479E+00-0.25772271E+00-0.36820419E-01 0.22904510E-02
+ 0.13112500E-01 0.22331621E-02-0.68968032E-02-0.59892010E-01
+-0.52667469E-01-0.40493790E-01 0.58508672E-01 0.25027710E+00
+-0.13593430E-01 0.19092770E-01 0.30432809E-01 0.92516178E-02
+-0.17286411E-01-0.20242881E-02 0.30022100E-01 0.73055071E-02
+ 0.52737791E-01-0.57449620E-01-0.59801862E-01-0.43804679E-01
+ 0.12690600E-01 0.24620380E+00-0.27769230E-01 0.21724410E-01
+ 0.18577760E-01 0.71976669E-02-0.30535409E-01 0.96150883E-01
+ 0.10199040E+00 0.17801359E+00-0.80062859E-01-0.68362661E-01
+ 0.16965009E+00 0.90891220E-01 0.24860410E+00-0.22454901E-01
+-0.68675749E-01 0.22542709E-01 0.12044760E-02 0.31474091E-01
+-0.58308251E-01 0.81780396E-01 0.78069448E-01 0.15954851E+00
+-0.16094500E+00-0.75058252E-01-0.25613031E+00 0.93744300E-01
+ 0.64487770E-01-0.33016879E-01-0.10643090E-01 0.29347271E-01
+-0.62846178E-02 0.62612612E-02-0.11579610E-01 0.66892570E-02
+-0.10162170E-01 0.42724561E-01-0.35772319E-02 0.24138691E-01
+-0.24372431E-01 0.13253140E-01 0.20041220E+00-0.40412448E-01
+-0.14165290E-01-0.60320590E-02 0.14048890E-01 0.12936210E-01
+ 0.81619741E-02 0.65441881E-02 0.48248512E-02 0.41742101E-01
+ 0.31960230E-01 0.19032940E-01-0.20127270E+00 0.88211242E-02
+ 0.12824650E-01-0.40747318E-01-0.88961963E-02 0.19926131E-01
+ 0.10499080E-01 0.27511660E-02-0.10761680E-02 0.82379952E-02
+ 0.12963000E-01 0.50602821E-02 0.31581800E-01-0.26250270E-02
+-0.23403300E-01-0.10513770E+00-0.51612649E-02-0.36699609E-02
+ 0.12358310E-01-0.39709168E-02 0.70367190E-02 0.10501130E-01
+-0.12169550E-01 0.82135973E-02-0.39950009E-01 0.72897961E-02
+ 0.24269490E-01 0.15959440E-02 0.51645730E-02-0.10197940E+00
+ 0.13058221E-02 0.82553830E-03 0.25282940E-02-0.23350839E-02
+-0.11911070E-01-0.51754308E-02 0.86768214E-02-0.18088151E-02
+ 0.37472940E-02-0.18837120E-01 0.17104670E-01 0.15166590E-01
+ 0.17589130E-01 0.14165340E-01-0.10923010E-01-0.77062659E-02
+-0.19023240E-02-0.10717100E-02-0.43666679E-02 0.19684699E-02
+-0.24587701E-02-0.70970012E-02-0.17225141E-01-0.26174910E-01
+-0.17618209E-01 0.13286970E-01 0.11937120E-02-0.17555750E-02
+-0.27673021E-02-0.62469072E-02 0.30264501E-02 0.40542600E-02
+ 0.62856842E-02-0.35298921E-03 0.86636841E-02 0.14155729E-02
+-0.60264231E-02-0.80534816E-02-0.16490420E-01-0.11447840E-01
+-0.41265721E-02-0.18497870E-02 0.65050088E-02-0.60114660E-02
+-0.52552810E-02-0.27527150E-02-0.59434208E-02 0.41894261E-02
+ 0.72259111E-02 0.49803630E-02 0.19086260E-01-0.99588577E-02
diff --git a/input/glow_data/iri90/ursi19.asc b/input/glow_data/iri90/ursi19.asc
new file mode 100644
index 0000000..b58ac10
--- /dev/null
+++ b/input/glow_data/iri90/ursi19.asc
@@ -0,0 +1,494 @@
+ 0.63140740E+01-0.17741451E+00 0.28319370E-01 0.10932310E+00
+ 0.49475770E-01 0.38304410E-02 0.58980780E-02 0.70285471E-02
+-0.18596580E-02-0.24621531E-02-0.97592123E-03-0.46223621E-02
+-0.15039110E-02 0.94472401E-01 0.83016360E+00-0.62457871E+00
+ 0.35514101E+00-0.28124419E+00 0.10422980E+00-0.46975922E-01
+ 0.27288949E-01 0.38308021E-01 0.60347671E-03-0.44210382E-01
+-0.48434939E-01 0.89202216E-02 0.77349558E+01 0.10390151E+01
+ 0.34179089E+01 0.47026721E+00-0.14868660E+01 0.11004500E+00
+-0.20997280E+00-0.15094110E+00 0.73901802E-01 0.31495661E-01
+ 0.26674701E-01 0.12335120E+00 0.88348888E-01-0.71155019E+01
+-0.14515710E+02 0.14021820E+02-0.58294058E+01 0.82251616E+01
+-0.16469730E+01 0.47302380E+00-0.46913350E+00-0.51618248E+00
+ 0.35796171E+00 0.48898089E+00 0.61020207E+00 0.10756300E-01
+-0.59684711E+02 0.34115751E+01-0.13864080E+02-0.12215290E+02
+ 0.45996170E+01-0.15266870E+01 0.11425740E+01 0.75187492E+00
+-0.34142429E+00-0.14077839E+00 0.16718000E+00-0.67541969E+00
+-0.59800982E+00 0.47781239E+02 0.56245541E+02-0.73008041E+02
+ 0.26872410E+02-0.38034851E+02 0.71318941E+01-0.28780961E+01
+ 0.25500171E+01 0.17645770E+01-0.26389260E+01-0.19222190E+01
+-0.27305241E+01-0.18244040E+00 0.11909250E+03-0.19951839E+02
+ 0.19038000E+02 0.39785728E+02-0.37670641E+01 0.51324372E+01
+-0.20895610E+01-0.15411490E+01 0.43991020E+00 0.28472719E+00
+-0.98689061E+00 0.14679120E+01 0.15017940E+01-0.94528687E+02
+-0.79776207E+02 0.14703751E+03-0.55409790E+02 0.71503441E+02
+-0.13303850E+02 0.74003320E+01-0.57756391E+01-0.22732689E+01
+ 0.66464829E+01 0.36060171E+01 0.55239992E+01 0.35791430E+00
+-0.10840930E+03 0.27747561E+02-0.90776672E+01-0.46722061E+02
+-0.81359011E+00-0.65905638E+01 0.15274000E+01 0.14067570E+01
+-0.59470829E-01-0.26311460E+00 0.14629890E+01-0.14032190E+01
+-0.16140200E+01 0.70004280E+02 0.41106911E+02-0.12771400E+03
+ 0.52922642E+02-0.61193569E+02 0.11461060E+02-0.80451632E+01
+ 0.57724471E+01 0.10085911E+01-0.69937711E+01-0.32669370E+01
+-0.51540890E+01-0.23770221E+00 0.37853642E+02-0.12158990E+02
+ 0.40416080E+00 0.18637011E+02 0.14373820E+01 0.28950460E+01
+-0.37079659E+00-0.47284839E+00-0.11625900E+00 0.88971741E-01
+-0.67460579E+00 0.49264029E+00 0.62642771E+00-0.15394020E+02
+-0.37561381E+01 0.40352428E+02-0.18950020E+02 0.19814131E+02
+-0.37605870E+01 0.31048429E+01-0.21101520E+01-0.15122480E-01
+ 0.26356440E+01 0.11427660E+01 0.18030469E+01 0.41120648E-01
+-0.89328088E-01 0.19265300E+01 0.17977140E+01 0.56387462E-01
+-0.23904311E-01-0.51624112E-01-0.38696829E-01 0.28777709E-02
+ 0.54058288E-02-0.79763168E-02 0.23769259E-02-0.43596542E-02
+ 0.46509230E-02-0.18625329E+00-0.14251840E+01 0.20165560E+01
+-0.21127721E-02 0.59044220E-01 0.21291209E-01-0.69114573E-01
+ 0.70766099E-02-0.98297130E-02-0.26376999E-02-0.73336838E-02
+-0.31551670E-02 0.40574828E-02 0.53172428E-01 0.11897269E+01
+ 0.19940380E+01 0.71818233E+00 0.17054430E+00 0.42303890E+00
+ 0.28755099E+00 0.38358521E-01 0.28437420E-02-0.56293111E-01
+-0.77284649E-01-0.86144209E-01 0.86662337E-01-0.98129272E+00
+ 0.88055441E-02 0.15381759E+01 0.14655811E+00 0.53238583E+00
+-0.24194640E+00 0.20452870E+00-0.59497152E-01 0.36477730E-01
+-0.38939681E-01-0.81881262E-01-0.11481650E+00-0.85024662E-01
+ 0.43238788E+01 0.25865741E+01 0.11738620E+02 0.21749549E+01
+-0.32278080E+01 0.12546279E+01 0.19915971E+01 0.68578228E-01
+-0.86143509E-01 0.23252380E+00-0.11612570E+00 0.13009170E+00
+-0.14173350E+00 0.53169042E+00-0.15441150E+02 0.21565070E+01
+ 0.42840261E+01 0.17243080E+01-0.12215450E+01 0.14161450E+01
+-0.20823190E+00 0.22987500E+00 0.13961610E+00 0.21741280E+00
+ 0.13025720E+00-0.11254730E+00-0.12513380E+02-0.13254990E+02
+ 0.83349190E+01-0.10772730E+02 0.43242040E+01-0.66436419E+01
+-0.34971681E+01-0.91472399E+00-0.51593121E-01 0.15332570E+01
+ 0.87761837E+00 0.14678810E+01-0.11083400E+01 0.22232590E+02
+-0.21094360E+02-0.24341171E+01-0.93861074E+01-0.74793792E+01
+ 0.30773239E+01-0.25445621E+01 0.93650472E+00-0.31685051E+00
+ 0.99733090E+00 0.12247510E+01 0.14043000E+01 0.13976949E+01
+-0.12669760E+02-0.30010330E+02 0.66510630E+01-0.61703000E+01
+ 0.14788120E+02-0.54860368E+01-0.16318110E+02-0.11746700E+01
+ 0.65090573E+00-0.17219560E+01 0.15808550E+01-0.87707788E+00
+ 0.94635201E+00 0.14078320E+02-0.83500843E+01-0.11972440E+02
+-0.25774561E+02-0.21649439E+01 0.82002716E+01-0.55644312E+01
+ 0.10733080E+01-0.16901280E+01-0.11655250E+01-0.17822469E+01
+-0.77291012E+00 0.70810819E+00 0.79786110E+02 0.48994259E+02
+-0.92972382E+02 0.47104359E+02-0.25871950E+02 0.37256229E+02
+ 0.18850161E+02 0.52268019E+01 0.71935707E+00-0.84752264E+01
+-0.28962109E+01-0.73909240E+01 0.51345258E+01-0.14719830E+03
+ 0.10340210E+03 0.79335780E+01 0.48872299E+02 0.26828449E+02
+-0.17513010E+02 0.16557030E+02-0.48322711E+01 0.28458151E+00
+-0.51777668E+01-0.45627952E+01-0.58836708E+01-0.65560579E+01
+ 0.57104511E+01 0.53372238E+02-0.18587019E+03-0.48002851E+00
+-0.29960899E+02 0.79422832E+01 0.48094898E+02 0.39697139E+01
+-0.19509420E+01 0.47754512E+01-0.56516061E+01 0.23403239E+01
+-0.24590549E+01-0.61571281E+02 0.22248511E+03-0.26309191E+02
+ 0.66029449E+02-0.13293960E+02-0.20784670E+02 0.69199200E+01
+-0.22487619E+01 0.42552371E+01 0.33678370E+01 0.52174110E+01
+ 0.17346280E+01-0.17997119E+01-0.19059070E+03-0.71192146E+02
+ 0.24128830E+03-0.92583000E+02 0.53486431E+02-0.88271042E+02
+-0.46648319E+02-0.12184900E+02-0.22465701E+01 0.18779181E+02
+ 0.42898140E+01 0.15991740E+02-0.10964090E+02 0.37547510E+03
+-0.19535840E+03-0.19344650E+02-0.97589111E+02-0.39835331E+02
+ 0.43394508E+02-0.43913471E+02 0.10719120E+02 0.17289840E+01
+ 0.10606920E+02 0.65439539E+01 0.11295840E+02 0.13323000E+02
+ 0.91554508E+01-0.24951679E+02 0.33748849E+03 0.12050140E+02
+ 0.28762300E+02-0.34531169E+01-0.58182030E+02-0.49768319E+01
+ 0.23971410E+01-0.55915699E+01 0.75639729E+01-0.27067051E+01
+ 0.27635341E+01 0.84073883E+02-0.40050220E+03 0.95681221E+02
+-0.74952858E+02 0.28803650E+02 0.22085110E+02-0.16353101E+01
+ 0.20938311E+01-0.42965908E+01-0.39756229E+01-0.62865138E+01
+-0.16817330E+01 0.20052180E+01 0.19989630E+03 0.38580700E+02
+-0.26253699E+03 0.84802788E+02-0.50090591E+02 0.92095497E+02
+ 0.51266022E+02 0.12493330E+02 0.25591021E+01-0.18507730E+02
+-0.30732920E+01-0.15696970E+02 0.10902940E+02-0.40029370E+03
+ 0.17282291E+03 0.12068880E+02 0.88197731E+02 0.24973459E+02
+-0.46504002E+02 0.49099991E+02-0.10601790E+02-0.37026110E+01
+-0.95435371E+01-0.36460660E+01-0.10212540E+02-0.12427540E+02
+-0.66584220E+01-0.28437121E+01-0.16929930E+03-0.79829888E+01
+-0.10002660E+02-0.26174620E+00 0.24670950E+02 0.21439869E+01
+-0.10448710E+01 0.23445830E+01-0.34341359E+01 0.11328640E+01
+-0.11256590E+01-0.37434502E+02 0.20153030E+03-0.62678879E+02
+ 0.30243500E+02-0.15518970E+02-0.82677231E+01-0.11188630E+01
+-0.69468760E+00 0.15145870E+01 0.16603251E+01 0.26801009E+01
+ 0.59213990E+00-0.80899757E+00-0.77271233E+02-0.34974840E+01
+ 0.10408980E+03-0.29343321E+02 0.18091221E+02-0.35130680E+02
+-0.20372459E+02-0.46778488E+01-0.96428943E+00 0.67579751E+01
+ 0.87136358E+00 0.57431130E+01-0.40818319E+01 0.15124850E+03
+-0.59165810E+02 0.82599819E+00-0.30381861E+02-0.50386219E+01
+ 0.17869110E+02-0.19627850E+02 0.38189161E+01 0.20082979E+01
+ 0.31756761E+01 0.50585347E+00 0.35310760E+01 0.43659749E+01
+ 0.30317521E+00 0.11969350E+00-0.31621870E+00-0.79660648E+00
+-0.20542930E+00-0.87605096E-01-0.92834689E-01 0.56725491E-01
+ 0.24607019E-01-0.29974901E-02 0.16730740E-02-0.64381852E-03
+-0.20770179E-02-0.78041539E-01 0.32287940E+00 0.11540950E+00
+ 0.20602010E+00-0.78949583E+00 0.97427659E-01-0.10393060E+00
+-0.18243110E-01 0.49280059E-01 0.99538139E-03-0.76430188E-02
+ 0.43807440E-02-0.19613421E-02 0.32543510E+00-0.13871330E+00
+-0.25297031E+00 0.66245937E+00 0.35481369E+00 0.15998711E+00
+-0.17663470E+00-0.16672470E+00-0.14772651E+00-0.11478720E-01
+-0.41988421E-01 0.42481542E-01 0.49207758E-01 0.33877179E+00
+ 0.34613261E+00-0.74449592E-04-0.24391919E+00 0.77148151E+00
+ 0.21434741E+00 0.23649371E+00 0.12921070E+00-0.17531081E+00
+ 0.18722510E-01-0.31123711E-01-0.26342710E-01 0.31808570E-01
+-0.55554352E+01 0.27199471E+01 0.47150030E+01 0.51254039E+01
+ 0.26692080E+01-0.65323818E+00 0.52560508E+00-0.10840200E+01
+ 0.27660879E+00 0.54143291E-01-0.88189393E-01 0.13592750E-01
+ 0.27781749E-01 0.12127039E+01-0.41690888E+01 0.31544740E+01
+-0.27203929E+01 0.50521989E+01-0.78763998E+00-0.35642591E+00
+-0.37641239E+00-0.94012779E+00 0.17083419E-01 0.16022700E+00
+-0.73613986E-01 0.44553291E-01-0.46955161E+01 0.12418040E+01
+ 0.29323709E+00 0.11216820E+02-0.17037870E+01-0.11162530E+01
+-0.16595941E+01 0.39776081E+00 0.55920547E+00 0.28746009E+00
+ 0.40990719E+00-0.31248990E+00-0.41739160E+00-0.46667752E+01
+ 0.29807571E+00-0.11070750E+01 0.69501561E+00 0.94605684E+01
+ 0.14001210E+01-0.17865340E+01-0.50844163E+00 0.58592570E+00
+-0.10575330E+00 0.44745019E+00 0.26401809E+00-0.30008090E+00
+ 0.25025061E+02-0.75260448E+01-0.17420919E+02-0.65590258E+01
+-0.69210138E+01 0.50543971E+01-0.29535881E+00 0.47345228E+01
+-0.27718990E+01-0.41436860E+00 0.40987930E+00-0.19923399E+00
+-0.20645540E-01-0.22759330E+01 0.13752490E+02-0.99259367E+01
+ 0.60401378E+01-0.67656941E+01 0.14111580E+01 0.32758830E+01
+ 0.31421089E+01 0.39859259E+01 0.21512260E+00-0.89026719E+00
+ 0.28443879E+00-0.12609480E+00 0.10110700E+02-0.40443678E+01
+ 0.13337780E+01-0.39652088E+02 0.14212770E+01 0.17492710E+01
+ 0.73447890E+01 0.42219289E-01-0.13330780E+01-0.99331462E+00
+-0.88630319E+00 0.66045493E+00 0.95965290E+00 0.12018160E+02
+-0.39193289E+01 0.19553890E+01 0.84166270E+00-0.34927731E+02
+-0.68965840E+01 0.31772959E+01 0.13390430E+01-0.49922830E+00
+ 0.15052380E+00-0.13723210E+01-0.61927861E+00 0.72415543E+00
+-0.39439960E+02 0.32081311E+01 0.24238319E+02-0.33055830E+01
+ 0.79797959E+01-0.10439790E+02-0.13512400E+01-0.75770192E+01
+ 0.57478328E+01 0.78158331E+00-0.63852203E+00 0.51223242E+00
+-0.98981813E-01 0.29677030E+00-0.16244061E+02 0.82411518E+01
+-0.45179000E+01-0.25069449E+01-0.85393563E-01-0.68114572E+01
+-0.62446160E+01-0.62165418E+01-0.85062152E+00 0.15821620E+01
+-0.42274371E+00 0.75236298E-01-0.54444652E+01 0.36443779E+01
+-0.33521490E+01 0.30957781E+02 0.27850130E+00-0.78665560E+00
+-0.62273641E+01-0.39228600E+00 0.12174680E+01 0.82963252E+00
+ 0.54928470E+00-0.42745179E+00-0.66498482E+00-0.81512346E+01
+ 0.60797572E+01-0.14894199E+00-0.16857830E+01 0.27522909E+02
+ 0.60285392E+01-0.16816230E+01-0.12630301E+01 0.17287670E-01
+-0.59161648E-01 0.10979950E+01 0.42614201E+00-0.51033562E+00
+ 0.19936951E+02 0.21232851E+01-0.10073300E+02 0.39236870E+01
+-0.41910620E+01 0.63246031E+01 0.13695430E+01 0.40173788E+01
+-0.35810521E+01-0.34813440E+00 0.33792901E+00-0.34102169E+00
+ 0.11694020E+00 0.26807761E+00 0.39920509E+01-0.10432500E+01
+ 0.12005460E+01 0.34282651E+01-0.84898502E+00 0.39841020E+01
+ 0.37905660E+01 0.32199140E+01 0.69098401E+00-0.81157619E+00
+ 0.21366210E+00 0.37777189E-01-0.36673050E-02-0.33806801E-01
+ 0.31267640E+00-0.25941691E+00-0.10147290E-02 0.83079420E-01
+-0.72413617E+00 0.69017418E-01 0.89864833E-02-0.61626669E-01
+-0.37027441E-01-0.67137182E-03 0.31515481E-02 0.28748719E-02
+-0.30072930E+00-0.35593528E-01-0.10979030E-01-0.24946190E+00
+ 0.72542763E+00 0.85538708E-01-0.11939570E-01 0.69221370E-01
+ 0.38429320E-01-0.63731149E-01 0.40597311E-04-0.69171772E-03
+-0.13367650E-01 0.34569499E+00 0.61830360E+00-0.22697739E+00
+-0.46486789E+00 0.17721550E+00-0.45711380E+00-0.51144488E-01
+ 0.15649050E+00-0.66833347E-01 0.80938093E-01-0.14557020E-01
+ 0.12004020E-01 0.30771149E-01-0.59607512E+00 0.29311711E+00
+ 0.44288349E+00-0.30486521E+00 0.43226489E+00 0.19674200E+00
+-0.14005619E+00-0.52502371E-01-0.72482921E-01-0.71675122E-01
+ 0.12561920E-02-0.60437839E-02 0.87338820E-01 0.85707523E-01
+-0.20102651E+01 0.11877460E+01 0.14669900E+00-0.69141132E+00
+ 0.10928400E+01-0.74844491E+00 0.52101719E+00 0.21548180E+00
+ 0.90472177E-01-0.19489850E-02-0.52341461E-01-0.76681338E-01
+ 0.20935431E+01 0.77251077E-01 0.70873551E-01 0.11103820E+01
+-0.10932651E+01-0.74917561E+00-0.46134400E+00-0.76860452E+00
+-0.10811150E+00 0.25691381E+00 0.18730121E-01 0.29936120E-01
+-0.90837702E-02-0.37354580E+00-0.10817590E+01 0.27844739E+00
+ 0.93298209E+00-0.66569883E+00 0.91836458E+00 0.74491873E-01
+-0.30446470E+00 0.61538192E-02-0.15239550E+00 0.33619471E-01
+-0.28125141E-01-0.38996581E-01 0.11240630E+01-0.34043521E+00
+-0.88403952E+00 0.41944450E+00-0.88001531E+00-0.70058441E+00
+ 0.28726330E+00 0.78765750E-01 0.14476830E+00 0.11007840E-01
+ 0.90418262E-02 0.23071740E-01-0.16842300E+00 0.22650871E+00
+ 0.26250060E+01-0.12713180E+01-0.22030470E+00 0.33974031E+00
+-0.12462490E+01 0.11850719E+01-0.73921138E+00-0.19543719E+00
+-0.15712880E+00 0.14875190E-01 0.77787288E-01 0.98953038E-01
+-0.28757370E+01 0.24451870E+00-0.11750610E+00-0.11882440E+01
+ 0.12348810E+01 0.40960649E+00 0.64763802E+00 0.12180700E+01
+ 0.17588700E+00-0.25444421E+00-0.34069192E-01-0.32756291E-01
+-0.23899470E-02 0.31375049E-02 0.28343380E-02-0.32487862E-01
+ 0.90283034E-02-0.77882826E-01 0.12018740E+00 0.21904680E+00
+ 0.79016000E-01-0.20576390E-01 0.37939351E-01 0.67575378E-02
+ 0.91979392E-02-0.82485657E-02 0.14544160E-01 0.79724472E-02
+-0.89322291E-02-0.27974719E-01-0.12112710E+00-0.77934332E-01
+-0.80930799E-01 0.22087190E+00-0.34415901E-01-0.16963899E-01
+-0.80088917E-02 0.64389901E-02-0.21327719E-01 0.20670399E-01
+ 0.98471180E-01 0.22814590E+00-0.11404560E+00-0.13290609E+00
+ 0.12865300E+00-0.40547652E-02 0.11427440E+00-0.11864570E-01
+-0.72879069E-02 0.93030678E-02 0.42519611E-02 0.72123548E-02
+-0.81139661E-01 0.42770620E-01 0.14177470E+00 0.22117710E+00
+-0.11196800E+00-0.13149920E+00-0.11172250E+00-0.87000700E-02
+ 0.15825320E-02-0.20497970E-01-0.56514661E-02 0.69764191E-02
+-0.24146419E-02 0.96388133E-02-0.70675611E-02-0.35985280E-02
+-0.10792200E-01-0.30301280E-01-0.28323730E-01 0.46211728E-02
+-0.30176530E-01-0.90278417E-01 0.16932650E+00-0.94642406E-02
+-0.23493610E-01-0.78977151E-02-0.59006289E-02 0.11396800E-01
+ 0.14707140E-01-0.51042740E-02 0.23268851E-01-0.30734120E-01
+ 0.35630681E-01 0.53203702E-02-0.16899370E+00-0.95337033E-01
+ 0.23842661E-01-0.85328212E-02-0.58478080E-02 0.15515900E-01
+ 0.54292348E-02 0.46267472E-02-0.26831899E-02 0.60794078E-03
+ 0.11598650E-01-0.17416630E-01 0.38120311E-01 0.29181819E-01
+-0.24769770E-01-0.82145430E-01-0.45206331E-01-0.15075500E-02
+ 0.29108010E-02 0.24628290E-02 0.22255511E-02 0.67417230E-02
+-0.12726910E-01 0.51114708E-02-0.41438069E-01-0.17387070E-01
+ 0.24586789E-01 0.29356539E-01 0.45000959E-01-0.84086448E-01
+ 0.95470566E-02 0.11268010E-01 0.33282221E-02 0.14612600E-02
+-0.12770090E-01-0.32962840E-02 0.82081854E-02-0.75453329E-02
+-0.51142951E-02-0.38969502E-01-0.18372610E-01 0.89361444E-02
+ 0.20030510E-01-0.95105022E-02 0.57943159E-03-0.14180430E-01
+ 0.29068079E-03-0.58534220E-02-0.20739629E-02 0.29515310E-02
+ 0.79096202E-02-0.10944790E-01 0.18145660E-01-0.43651748E-01
+-0.19223901E-01 0.80778087E-02 0.56225550E-02 0.35235609E-02
+ 0.18990610E-02-0.80949487E-02 0.35589980E-02 0.48844339E-02
+ 0.38672341E-02-0.47683151E-03-0.72101521E-03-0.11697140E-02
+-0.82959021E-02 0.12339070E-01-0.67953719E-02-0.43478431E-02
+ 0.43960642E-02-0.10072560E-02 0.63419063E-03-0.10339560E-01
+-0.77851969E-02-0.51725409E-02-0.25081600E-02-0.30161039E-03
+ 0.88004330E-02 0.10679190E-02 0.78505520E-02 0.12060870E-01
+ 0.91481943E+01 0.12755141E+00 0.23208961E-01 0.20361830E-01
+ 0.27327539E-01 0.47957129E-02 0.43741032E-02 0.52403561E-02
+ 0.13773160E-02-0.71600880E-02 0.16235200E-02-0.16954010E-02
+-0.66043891E-03 0.80959851E+00 0.37904900E+00-0.63952410E+00
+ 0.31281230E+00-0.68502432E+00 0.68785339E-02-0.12623500E-01
+-0.13707790E-01 0.38739629E-01 0.32620501E-01 0.87184124E-02
+ 0.23971520E-01 0.12926950E-01 0.16885710E+02 0.35879320E+00
+ 0.41363292E+01 0.36706719E+01-0.13590020E+01 0.13726540E-01
+-0.21703430E-01-0.18054619E+00 0.15601760E-01 0.19463371E+00
+-0.35700930E-03 0.12082530E-01 0.24626611E-01-0.15232530E+02
+ 0.22627490E-01 0.15748010E+02-0.17594900E+01 0.78022208E+01
+ 0.14620860E+00-0.69265798E-01-0.10005290E-01-0.66298962E+00
+-0.29778290E+00-0.29169440E+00-0.37316060E+00-0.12849410E+00
+-0.87675903E+02-0.48468242E+01-0.28819481E+02-0.26178740E+02
+ 0.46154528E+01 0.24279320E+00 0.61442651E-01 0.15067250E+01
+-0.22463590E+00-0.12313859E+01 0.17816100E+00-0.61584208E-01
+-0.47048781E-01 0.71277184E+02-0.21326059E+02-0.58497860E+02
+ 0.10948480E+02-0.28244020E+02-0.16252890E+01 0.32212790E-01
+ 0.95030087E+00 0.28266649E+01 0.66973209E+00 0.17820240E+01
+ 0.15084480E+01 0.19739281E+00 0.16007809E+03 0.10208840E+02
+ 0.75444221E+02 0.63124290E+02-0.51101112E+01-0.14088300E+01
+ 0.17471290E+00-0.43408070E+01 0.63236660E+00 0.29681239E+01
+-0.84437388E+00 0.16115551E+00-0.11539500E+00-0.14264250E+03
+ 0.84349731E+02 0.56467251E+02-0.31624121E+02 0.48343639E+02
+ 0.47364049E+01 0.59471917E+00-0.32324879E+01-0.50985909E+01
+-0.27970180E+00-0.40699682E+01-0.25680151E+01 0.30092099E+00
+-0.15022740E+03-0.80322466E+01-0.79615356E+02-0.63590649E+02
+ 0.15300820E+01 0.21922729E+01-0.52201492E+00 0.50676279E+01
+-0.67257988E+00-0.30497890E+01 0.12323149E+01-0.18818860E+00
+ 0.31621239E+00 0.12847639E+03-0.11312700E+03 0.78847032E+01
+ 0.37042412E+02-0.40751431E+02-0.55109200E+01-0.97310418E+00
+ 0.38333590E+01 0.42119789E+01-0.49115780E+00 0.39761691E+01
+ 0.19796460E+01-0.81337631E+00 0.57291431E+02 0.21111591E+01
+ 0.28755560E+02 0.22994480E+02 0.31673670E+00-0.10528610E+01
+ 0.30741030E+00-0.20671711E+01 0.24806809E+00 0.11276790E+01
+-0.57119322E+00 0.78674868E-01-0.18011691E+00-0.42712749E+02
+ 0.49954830E+02-0.20977400E+02-0.14959750E+02 0.13583180E+02
+ 0.22600350E+01 0.42916420E+00-0.15311000E+01-0.13157740E+01
+ 0.36986360E+00-0.14078180E+01-0.57099730E+00 0.43406141E+00
+-0.14638510E+00 0.13967190E+01 0.18948550E+01 0.31696338E-01
+ 0.11411810E+00 0.19173980E-01-0.21476030E-01 0.31758109E-02
+ 0.89813899E-02-0.81628747E-02 0.55343271E-02-0.33079849E-02
+ 0.31120190E-02 0.22567590E+00-0.15423130E+01 0.13539830E+01
+-0.12771671E+00 0.16564799E-01 0.11681950E-01 0.80959853E-02
+-0.94912329E-03-0.10852700E-01-0.76705869E-02-0.42228290E-03
+-0.15576900E-02-0.39022409E-02-0.21724530E+00 0.17617360E+01
+ 0.96273112E+00 0.61993742E+00 0.93485081E+00-0.98931551E-01
+ 0.66714841E+00 0.27080519E-01 0.35988752E-01-0.52594639E-01
+ 0.52115239E-01 0.30172430E-02-0.75355209E-02-0.71171659E+00
+ 0.86692381E+00 0.17409580E+01-0.78600627E+00 0.41116479E+00
+-0.75556922E+00 0.40761601E-01-0.52372642E-01 0.10021960E+00
+-0.15178600E-02-0.37457209E-01 0.35946298E-01-0.24832999E-01
+ 0.45609221E+01 0.92378683E+01 0.29958351E+01 0.15171601E+01
+-0.31968031E+01-0.16654249E-01 0.30584421E+01-0.79315670E-01
+-0.22080830E+00 0.25266179E+00-0.11757100E+00 0.11266740E+00
+-0.69791853E-01-0.24266630E-01-0.74470801E+01 0.13153090E+02
+ 0.32784829E+01 0.21178660E+01-0.26302209E+01 0.23265301E+00
+ 0.16240390E-02 0.35185361E+00 0.25626659E+00 0.17773701E-01
+ 0.75058497E-01 0.22187480E+00 0.15543320E+01-0.22393890E+02
+ 0.15930330E+02-0.19336729E+02-0.84946241E+01-0.10276260E+01
+-0.80092888E+01-0.10024281E+01-0.46566740E+00 0.13585660E+01
+-0.12371460E+01 0.71135268E-01 0.45666069E+00 0.26923241E+02
+-0.15115770E+02-0.89297142E+01 0.56435070E+01-0.14542470E+02
+ 0.97524719E+01-0.29533329E+01 0.32217619E+00-0.16693510E+01
+ 0.26252079E+00 0.57461011E+00-0.77346492E+00 0.34489131E+00
+-0.34950951E+02-0.24933340E+02 0.13366390E+02-0.33321550E+01
+ 0.17515881E+02-0.46894270E+00-0.21567480E+02 0.58919859E+00
+ 0.17542170E+01-0.17268740E+01 0.72641850E+00-0.13124340E+01
+ 0.67423992E-01 0.10990570E+02-0.26991689E+00-0.25559580E+02
+-0.21030291E+02-0.74237142E+01 0.16657459E+02-0.30524061E+01
+-0.58228922E+00-0.30086970E+01-0.17626539E+01-0.64914048E-01
+-0.49756140E+00-0.20897241E+01-0.66268320E+01 0.72425430E+02
+-0.11204910E+03 0.10612650E+03 0.32582420E+02 0.10414640E+02
+ 0.35779652E+02 0.75176072E+01 0.13396970E+01-0.81348763E+01
+ 0.81479321E+01-0.40595591E+00-0.38179951E+01-0.14413150E+03
+ 0.53187920E+02 0.49092419E+02-0.18683460E+02 0.79673912E+02
+-0.43228859E+02 0.21320150E+02 0.16238160E+01 0.88151407E+01
+-0.19239360E+01-0.21778300E+01 0.45277171E+01-0.14336590E+01
+ 0.10401640E+03-0.20259470E+02-0.91211929E+02-0.20354290E+01
+-0.45236900E+02 0.15672179E+01 0.56206459E+02-0.17731010E+01
+-0.52073722E+01 0.45461512E+01-0.20149140E+01 0.46191401E+01
+ 0.53073531E+00-0.46434269E+02 0.66471748E+02-0.72965759E+02
+ 0.59262291E+02 0.63329611E+01-0.39233681E+02 0.10563560E+02
+ 0.27410030E+01 0.86564922E+01 0.48529530E+01 0.24232771E+00
+ 0.11724540E+01 0.64386249E+01 0.25858250E+02-0.10007490E+03
+ 0.28244989E+03-0.23211250E+03-0.58211281E+02-0.27074209E+02
+-0.75983238E+02-0.20565769E+02-0.86411679E+00 0.19557039E+02
+-0.20745050E+02 0.57159621E+00 0.10869270E+02 0.29325610E+03
+-0.83775002E+02-0.13455721E+03 0.32894600E+02-0.17162241E+03
+ 0.87396049E+02-0.54243149E+02-0.96955709E+01-0.20101320E+02
+ 0.46152501E+01 0.32330339E+01-0.10696830E+02 0.25047970E+01
+-0.12762120E+03 0.97067719E+02 0.15874890E+03 0.11470920E+02
+ 0.53164131E+02-0.20773389E+01-0.63595070E+02 0.22148139E+01
+ 0.64966092E+01-0.51286631E+01 0.24252241E+01-0.62560039E+01
+-0.11210920E+01 0.58801861E+02-0.12769020E+03 0.20722929E+03
+-0.72172112E+02 0.49666610E+01 0.41122581E+02-0.14201300E+02
+-0.42556920E+01-0.10037120E+02-0.57393560E+01-0.49623880E+00
+-0.11559290E+01-0.79647560E+01-0.41023819E+02 0.57980690E+02
+-0.32772391E+03 0.22240720E+03 0.44917881E+02 0.27702730E+02
+ 0.76376083E+02 0.23583429E+02-0.97386622E+00-0.20755930E+02
+ 0.22663210E+02-0.90416931E-01-0.12685260E+02-0.24796980E+03
+ 0.75407928E+02 0.15427480E+03-0.26825600E+02 0.16123560E+03
+-0.82450600E+02 0.57816101E+02 0.14838140E+02 0.20680380E+02
+-0.45435562E+01-0.19290400E+01 0.11040120E+02-0.19044830E+01
+ 0.53745220E+02-0.61687000E+02-0.81422829E+02-0.76350951E+01
+-0.22325970E+02 0.97334152E+00 0.26195770E+02-0.97010142E+00
+-0.28867209E+01 0.20796690E+01-0.10283940E+01 0.28868909E+01
+ 0.59638077E+00-0.24157160E+02 0.65774887E+02-0.12407010E+03
+ 0.30770189E+02-0.59142671E+01-0.16040150E+02 0.65377660E+01
+ 0.21538680E+01 0.40500159E+01 0.24293580E+01 0.32171339E+00
+ 0.41051209E+00 0.34383509E+01 0.21392651E+02-0.93679037E+01
+ 0.14097321E+03-0.78674896E+02-0.11499760E+02-0.99034672E+01
+-0.28990431E+02-0.96273479E+01 0.99693829E+00 0.80989408E+01
+-0.89546413E+01-0.16733800E+00 0.52300429E+01 0.73590248E+02
+-0.29012480E+02-0.62648849E+02 0.77483959E+01-0.56267422E+02
+ 0.29339590E+02-0.22110420E+02-0.72062578E+01-0.78668671E+01
+ 0.15904940E+01 0.31783679E+00-0.41496019E+01 0.50083983E+00
+ 0.29094371E+00-0.27724421E+00-0.29525831E+00-0.10309410E+01
+ 0.42902029E+00-0.13458310E+00-0.11086620E+00 0.31116189E-01
+ 0.21479091E-01 0.64014707E-03-0.36631740E-03 0.14234870E-02
+ 0.86504582E-03-0.10238610E-01 0.30243871E+00-0.26690000E+00
+-0.40883160E+00-0.10367219E+01 0.94868593E-01-0.13378720E+00
+-0.15988329E-01 0.26364310E-01-0.18724611E-02-0.12172670E-02
+ 0.41933130E-02-0.68459252E-03 0.62155002E+00-0.10035880E+01
+-0.38849369E+00 0.69530159E+00 0.65494061E+00 0.56580341E+00
+-0.11264130E+00 0.10838880E-01-0.18690810E+00-0.29130140E-01
+-0.17128481E-01 0.35762361E-02 0.66857468E-02 0.68814468E+00
+ 0.66754681E+00-0.85130721E+00-0.74152279E+00 0.71004409E+00
+ 0.72023720E-01 0.60958022E+00 0.12880190E+00 0.65824211E-01
+ 0.15603850E-01-0.57319939E-01 0.30925050E-02 0.11650230E-02
+-0.35848870E+01 0.24090581E+01 0.28598590E+01-0.48047701E+00
+ 0.99439728E+00-0.53638953E+00 0.42117909E+00-0.80883020E+00
+-0.11767050E+00 0.19324200E-01-0.12552120E-01-0.44308241E-01
+-0.48190180E-01-0.49169931E+01-0.25593500E+01 0.19898190E+01
+-0.18299550E+01-0.25520721E+00-0.13842830E+00-0.60334402E+00
+-0.11939090E+00-0.78425592E+00 0.74105091E-01 0.10374890E-01
+-0.87721638E-01 0.18095231E-01-0.10524550E+02 0.65493340E+01
+ 0.15827830E+01 0.58398528E+01 0.45612580E+00-0.23151410E+01
+-0.18083110E+01-0.48908979E+00 0.14774690E+01 0.34638989E+00
+ 0.20809790E+00 0.41427892E-01 0.57420339E-01-0.10463750E+02
+-0.36535921E+01 0.36495619E+01 0.37972590E+00 0.55841970E+01
+ 0.25744390E+01-0.24821920E+01-0.83969659E+00-0.11802590E+01
+-0.19655959E+00 0.77797347E+00-0.51134821E-01 0.38059659E-01
+ 0.12978520E+02-0.93108778E+01-0.14805130E+02 0.44575028E+01
+-0.68749681E+01 0.51454058E+01 0.23237550E+01 0.34802310E+01
+-0.12566010E+01-0.39570779E+00-0.64478680E-02-0.99154107E-01
+ 0.19473590E+00 0.30024410E+02 0.13213460E+02-0.64363971E+01
+ 0.10764460E+02 0.36057940E+01-0.42123709E+01 0.51290751E+01
+ 0.24905169E+01 0.35888641E+01 0.96772917E-01-0.85689150E-01
+ 0.31146821E+00-0.24350460E+00 0.26801399E+02-0.18417669E+02
+-0.24259191E+01-0.19785101E+02-0.80100412E+01 0.23250279E+01
+ 0.71666169E+01 0.13085690E+01-0.35371709E+01-0.10487601E+01
+-0.44937941E+00-0.21760079E+00-0.29010001E+00 0.25512381E+02
+ 0.73061948E+01-0.10356840E+02 0.61947508E+01-0.19122890E+02
+-0.95092182E+01 0.23566210E+01 0.19595150E+01 0.30894401E+01
+ 0.42777169E+00-0.21891570E+01 0.20730600E+00-0.16504329E+00
+-0.21975731E+02 0.24887260E+02 0.26978390E+02-0.79736513E+00
+ 0.14614990E+02-0.90452108E+01-0.86572866E+01-0.47978950E+01
+ 0.40924020E+01 0.11929940E+01 0.42523209E-01 0.65914369E+00
+-0.19241560E+00-0.57299221E+02-0.24156420E+02 0.19375669E+02
+-0.20583170E+02 0.16028090E+00 0.12983960E+02-0.83504295E+01
+-0.61633282E+01-0.53053551E+01-0.74868393E+00 0.35951650E+00
+-0.48679721E+00 0.64883387E+00-0.18111120E+02 0.14782230E+02
+-0.30702009E+01 0.13014600E+02 0.72673831E+01-0.46510980E+00
+-0.58525820E+01-0.10215271E+01 0.25035930E+01 0.84674728E+00
+ 0.26902840E+00 0.21064880E+00 0.26357970E+00-0.17850849E+02
+ 0.29517579E+00 0.86044836E+01-0.60749989E+01 0.12540160E+02
+ 0.77187839E+01-0.32975340E+00-0.13979480E+01-0.22981689E+01
+-0.25126579E+00 0.16634740E+01-0.18812171E+00 0.14697720E+00
+ 0.12043260E+02-0.19742491E+02-0.10936840E+02-0.37349601E+01
+-0.91665859E+01 0.42638931E+01 0.65051179E+01 0.20182159E+01
+-0.29364710E+01-0.93895739E+00-0.35841189E-01-0.59845251E+00
+ 0.37753601E-02 0.34665470E+02 0.91012306E+01-0.15638000E+02
+ 0.12022230E+02-0.39941139E+01-0.95296745E+01 0.35265760E+01
+ 0.40253420E+01 0.24643450E+01 0.66000378E+00-0.36436141E+00
+ 0.30840400E+00-0.46784121E+00-0.14515830E-01 0.38065191E-01
+ 0.35674971E+00 0.13607889E+00-0.35866208E-01 0.13667010E-01
+-0.91920131E+00 0.52822370E-01-0.45315892E-01-0.47366381E-01
+ 0.12736540E-01-0.49081881E-03 0.31783369E-02 0.10546150E-01
+-0.36278960E+00 0.45658600E-01 0.29181760E-01 0.13922770E+00
+ 0.90949869E+00 0.18303821E-01 0.42025492E-01 0.53601801E-01
+-0.12080520E-01-0.47443110E-01-0.93077199E-03-0.10040239E-02
+ 0.69029041E-01 0.14162029E+00 0.90604907E+00 0.31400859E+00
+-0.51982307E+00-0.12565380E+00-0.22718249E+00-0.77357627E-01
+ 0.84901810E-01-0.53938240E-01 0.64119369E-01-0.60010492E-02
+ 0.26578579E-01-0.69326773E-01-0.93432969E+00 0.72197141E-02
+ 0.44315150E+00 0.23108080E+00 0.20657501E+00-0.10444390E+00
+-0.54329529E-01-0.82066789E-01-0.82252093E-01-0.53485140E-01
+-0.35888259E-02-0.16584329E-01 0.33344790E+00 0.51786538E-01
+-0.22111051E+01-0.79701269E+00 0.21482599E-02 0.67787009E+00
+ 0.18402770E+01-0.42092189E+00 0.48679510E+00 0.34655729E+00
+-0.17870900E+00 0.29353499E-01-0.50841171E-01-0.20169580E+00
+ 0.25862460E+01-0.14830241E+00 0.10075920E+00-0.68919450E+00
+-0.17276630E+01 0.66461200E+00-0.45441180E+00-0.48553151E+00
+ 0.18405060E+00 0.33091581E+00 0.18351721E-01 0.35400070E-01
+-0.17778240E+00 0.69709551E+00-0.20113120E+01-0.64767933E+00
+ 0.10925980E+01 0.21221951E+00 0.48323709E+00 0.23170100E+00
+-0.68660706E-01 0.16005959E-01-0.18140329E+00 0.21265950E-01
+-0.55830251E-01 0.20469970E+00 0.21911430E+01 0.80093729E+00
+-0.95472008E+00-0.48859620E+00-0.45664701E+00 0.17475501E+00
+ 0.27360490E-01 0.23684010E+00 0.21821590E+00 0.14361420E-01
+ 0.23213079E-01 0.35802800E-01-0.64966059E+00-0.95453791E-01
+ 0.29621670E+01 0.90460747E+00 0.15196630E+00-0.27498331E+01
+-0.27100279E+01 0.46198109E+00-0.47994119E+00-0.43064100E+00
+ 0.26153541E+00-0.48041660E-01 0.88480540E-01 0.36118791E+00
+-0.37156739E+01 0.23515160E+00-0.31937641E+00 0.70498681E+00
+ 0.25530860E+01-0.27443430E+01 0.43954441E+00 0.56404829E+00
+-0.28052199E+00-0.39762360E+00-0.44644792E-01-0.47735170E-01
+ 0.58019059E-02-0.40798741E-02-0.27753490E-02-0.65830477E-01
+-0.26255330E-01-0.14662920E+00 0.71669310E-01 0.29936570E+00
+ 0.64273300E-02-0.17352261E-01 0.22768470E-01-0.57603852E-02
+-0.17136261E-01 0.55567152E-02 0.29455090E-01 0.40206551E-02
+ 0.26989570E-01-0.70199452E-01-0.76887548E-01-0.13843539E+00
+-0.40685642E-02 0.29674080E+00-0.24244990E-01-0.12435770E-01
+ 0.18893519E-01-0.41414509E-02-0.97891157E-02 0.13657710E+00
+ 0.10838460E+00 0.15585470E+00-0.58489381E-02-0.14575070E+00
+ 0.22483270E+00 0.78641877E-01 0.13308559E+00 0.13502060E-01
+-0.82920417E-01 0.25029629E-01-0.20986430E-01 0.10206260E-01
+-0.48875410E-01 0.12789620E+00 0.12727670E-01 0.14626360E+00
+-0.22885600E+00-0.13504431E+00-0.13145930E+00 0.74588299E-01
+ 0.71489871E-01 0.52608480E-02 0.10998030E-01 0.22245049E-01
+-0.62422440E-02-0.96576149E-03-0.21039680E-01 0.45748558E-02
+-0.13285660E-01 0.63354023E-01 0.21316400E-01 0.83211251E-02
+-0.40901300E-01-0.19680079E-01 0.22496620E+00-0.22287911E-01
+-0.15633089E-01-0.58957463E-03 0.16955700E-01 0.92403116E-02
+ 0.12726450E-01 0.54045282E-02-0.26206139E-01 0.63285843E-01
+ 0.46901420E-01 0.39180592E-02-0.22450750E+00-0.25114929E-01
+ 0.14059900E-01-0.22728860E-01-0.92652710E-02 0.15402710E-01
+ 0.83077168E-02 0.15384190E-02 0.24223440E-03 0.37465170E-02
+ 0.10831510E-01-0.22349330E-02 0.20304751E-01 0.33027422E-01
+-0.46472199E-01-0.11408330E+00-0.64869069E-01-0.77615672E-03
+ 0.15095860E-01-0.57036350E-02-0.17628670E-02 0.55182530E-02
+-0.13262960E-01 0.28961480E-02-0.27901070E-01-0.17594860E-02
+ 0.49936090E-01 0.35878051E-01 0.67777373E-01-0.11472910E+00
+ 0.19583071E-02-0.73064590E-03 0.27002150E-03 0.52037528E-02
+-0.11501760E-01 0.21068801E-02 0.62535512E-02-0.11097380E-02
+ 0.90252692E-02-0.39681189E-01-0.58688619E-02 0.16460070E-01
+ 0.36234312E-01 0.15041520E-01 0.11060250E-02-0.15591570E-01
+-0.22958310E-02 0.11009680E-02-0.23855420E-02 0.65422519E-02
+-0.77465139E-02-0.74072988E-02 0.54637538E-02-0.41995011E-01
+-0.38147319E-01 0.16209340E-01 0.97780221E-03-0.54432009E-02
+-0.76539498E-02-0.10588670E-01 0.64064739E-02-0.71981869E-03
+ 0.19782500E-02-0.10905371E-02 0.29115169E-02-0.78188872E-03
+-0.83773062E-02 0.77931880E-04-0.12816130E-01-0.63755289E-02
+ 0.43213181E-02-0.99741882E-02 0.10671700E-01-0.16674530E-02
+-0.30074001E-02-0.72038141E-02-0.62809768E-02-0.14540341E-03
+ 0.86972453E-02-0.40856659E-03 0.15330380E-01 0.13229870E-02
diff --git a/input/glow_data/iri90/ursi20.asc b/input/glow_data/iri90/ursi20.asc
new file mode 100644
index 0000000..f0d3649
--- /dev/null
+++ b/input/glow_data/iri90/ursi20.asc
@@ -0,0 +1,494 @@
+ 0.71426749E+01-0.87425157E-01-0.12678610E+00 0.11164660E+00
+ 0.72043538E-01-0.13696180E-02 0.41219341E-02 0.38850820E-02
+ 0.16102690E-02-0.67295559E-03 0.22191489E-02-0.60700718E-03
+-0.19456140E-02 0.28046611E+00 0.13512090E+01-0.46393311E+00
+ 0.90559298E+00 0.13128901E+00 0.62445808E-01-0.56264490E-01
+-0.40057961E-01 0.12533639E+00 0.18747531E-01 0.22846930E-03
+-0.28109880E-01 0.43496139E-01 0.95113411E+01 0.36806290E+01
+ 0.90765752E-01 0.16843220E+01 0.98309720E+00 0.29380551E+00
+-0.11341810E+00-0.87749362E-01 0.60509618E-01 0.11160300E-01
+-0.46663448E-01 0.10438240E-01 0.29640101E-01-0.13347790E+02
+-0.96574812E+01 0.13017260E+02-0.97713747E+01 0.68681622E+01
+-0.65411389E+00 0.46425280E+00 0.50363117E+00-0.20407901E+01
+-0.25220031E+00-0.39022911E-01 0.33789229E+00-0.60197419E+00
+-0.64182129E+02-0.82748594E+01 0.30551071E+01-0.21081930E+02
+-0.99080963E+01-0.18052940E+01 0.49574530E+00 0.47588089E+00
+-0.59102070E+00-0.76126210E-01 0.48324841E+00-0.95607743E-01
+ 0.16134311E-01 0.33919270E+02 0.56412917E+00-0.67122322E+02
+ 0.38399330E+02-0.37430351E+02 0.22982211E+01-0.26147380E+01
+-0.13486871E+01 0.86180820E+01 0.83978701E+00 0.42604700E+00
+-0.14502640E+01 0.23156159E+01 0.11577130E+03-0.66719790E+01
+-0.32044621E+01 0.62626331E+02 0.26547911E+02 0.38817410E+01
+-0.77881670E+00-0.97851741E+00 0.15377170E+01 0.26003221E+00
+-0.15251970E+01 0.27257159E+00-0.33518100E+00 0.43692040E+01
+ 0.76281487E+02 0.12483340E+03-0.71161049E+02 0.73825623E+02
+-0.35332339E+01 0.68912792E+01 0.86079180E+00-0.15310760E+02
+-0.11600620E+01-0.12510639E+01 0.28516409E+01-0.38247120E+01
+-0.97214973E+02 0.24148190E+02-0.45013661E+01-0.71517387E+02
+-0.27885719E+02-0.34899361E+01 0.58636391E+00 0.84993672E+00
+-0.15751890E+01-0.36077961E+00 0.18624260E+01-0.30965349E+00
+ 0.54731679E+00-0.70261269E+02-0.12906650E+03-0.95968910E+02
+ 0.62628590E+02-0.63907940E+02 0.23588850E+01-0.77755332E+01
+ 0.68122220E+00 0.12310800E+02 0.70761502E+00 0.14203351E+01
+-0.26069069E+01 0.28873620E+01 0.32199459E+02-0.12831870E+02
+ 0.47167721E+01 0.28284800E+02 0.10201360E+02 0.11176879E+01
+-0.19887149E+00-0.26162091E+00 0.56666648E+00 0.16798870E+00
+-0.78043568E+00 0.12420280E+00-0.25764510E+00 0.45016430E+02
+ 0.60763512E+02 0.25720570E+02-0.21037359E+02 0.20531870E+02
+-0.52554637E+00 0.31030331E+01-0.66501129E+00-0.37002809E+01
+-0.15370759E+00-0.55790329E+00 0.89726949E+00-0.81884527E+00
+-0.56153610E-01 0.20534339E+01 0.15507860E+01 0.72011143E-01
+ 0.29155979E+00 0.39669551E-01-0.55477612E-01-0.89601353E-02
+ 0.36744010E-02-0.31986570E-02 0.32385460E-05-0.54388330E-02
+-0.16815490E-02-0.24516951E+00-0.14865720E+01 0.21793070E+01
+-0.31190351E+00 0.76475590E-01 0.48033979E-01 0.24205400E-01
+ 0.24398100E-02-0.64085848E-02-0.94150688E-03-0.32181351E-02
+ 0.10027810E-02 0.15248690E-02 0.80933863E+00-0.10401120E+00
+ 0.61540443E+00-0.58832258E+00 0.11417370E+01 0.14066149E+00
+-0.20041430E+00-0.23176091E-01 0.10367930E+00 0.53026740E-01
+ 0.44792271E-02-0.46041299E-01 0.60085181E-01-0.73831111E+00
+ 0.39105999E+00 0.78803283E+00-0.94196230E+00-0.64880550E+00
+ 0.76560833E-01-0.42826150E-01-0.59178252E-01 0.86781673E-01
+-0.26866140E-01 0.17511390E-01-0.35840359E-01 0.14981050E-01
+ 0.60414062E+01 0.12586850E+01 0.12280910E+02-0.25186999E+01
+-0.44092450E+01-0.58621132E+00 0.20848341E+01 0.38450381E+00
+ 0.74909233E-01 0.79292700E-01-0.25241780E-02 0.27728459E+00
+ 0.46673189E-02-0.41022172E+01-0.13503720E+02 0.74858980E+01
+ 0.49499002E+01-0.34804809E+01-0.17144630E+01-0.65027869E+00
+-0.90879910E-01 0.21660270E+00 0.14882690E+00 0.84734641E-01
+-0.81219655E-02-0.47357721E-03 0.17383460E+01-0.62593060E+01
+ 0.25577459E+02 0.51044912E+01-0.34356439E+01-0.33950540E+00
+ 0.16345410E+01 0.17590199E+00-0.20776939E+01-0.82098031E+00
+-0.20861480E+00 0.73582870E+00-0.75826693E+00 0.32874680E+02
+-0.36230759E+02-0.18873930E+01 0.50782257E+00 0.54731321E+01
+ 0.10332310E+01 0.25793941E+01 0.90435833E+00-0.85064727E+00
+ 0.24618000E+00-0.28014481E+00 0.34289649E+00-0.25713089E+00
+-0.16952570E+02-0.97788486E+01 0.75387020E+01 0.15231760E+02
+ 0.12552970E+02 0.72873750E+01-0.12113170E+02-0.34042499E+01
+-0.94648087E+00-0.46675959E+00 0.46950170E+00-0.25839739E+01
+ 0.11863740E+00 0.46289680E+02-0.24138969E+02-0.40999329E+02
+-0.16764151E+02 0.22686220E+02 0.83925323E+01 0.91396132E+01
+ 0.12375920E+01-0.23053510E+01-0.15517160E+01-0.98561537E+00
+ 0.11949500E+00-0.59999440E-01-0.33862270E+02-0.12986070E+01
+-0.16126241E+03-0.17289120E+02 0.51625571E+01 0.29661050E+01
+-0.36359551E+01 0.43369269E+00 0.90793934E+01 0.45607138E+01
+ 0.23192410E+01-0.32485850E+01 0.29518421E+01-0.21675420E+03
+ 0.18750369E+03-0.17978849E+02 0.69790878E+01-0.24558170E+02
+-0.12640340E+02-0.12971860E+02-0.40065308E+01 0.20715001E+01
+-0.29019481E+00 0.20604069E+01-0.10455490E+01 0.12263629E+01
+ 0.55287580E+01-0.12824450E+02-0.16239140E+03-0.28901131E+02
+-0.11318650E+02-0.28573240E+02 0.28685680E+02 0.10184090E+02
+ 0.25715220E+01 0.10240910E+01-0.21099961E+01 0.79716530E+01
+-0.56468737E+00-0.14407600E+03 0.24947150E+03 0.27532160E+02
+ 0.23767071E+02-0.50389130E+02-0.16728649E+02-0.34621021E+02
+-0.41483932E+01 0.72693672E+01 0.50726171E+01 0.33228040E+01
+-0.35909879E+00 0.17243360E+00 0.91594841E+02 0.56072208E+02
+ 0.38987259E+03 0.24555260E+02-0.11972710E+02-0.10239060E+02
+ 0.21748500E+01-0.34731851E+01-0.15032340E+02-0.11301260E+02
+-0.72546558E+01 0.60903239E+01-0.50374060E+01 0.53525171E+03
+-0.40788040E+03 0.68082588E+02-0.79312439E+01 0.54694431E+02
+ 0.37709690E+02 0.27518000E+02 0.72240362E+01-0.93268621E+00
+-0.13237710E+01-0.61459751E+01 0.12141590E+01-0.24421430E+01
+ 0.17729610E+02 0.49709690E+02 0.27606689E+03 0.20192570E+02
+-0.17653300E+01 0.40399658E+02-0.30673639E+02-0.12274490E+02
+-0.24781041E+01-0.94022191E+00 0.30709641E+01-0.99650593E+01
+ 0.85147017E+00 0.17188110E+03-0.41063611E+03 0.49733139E+02
+-0.13338840E+02 0.46250252E+02 0.15728710E+02 0.47504810E+02
+ 0.51207132E+01-0.88776522E+01-0.65596719E+01-0.42535439E+01
+ 0.38256431E+00-0.21124139E+00-0.94009171E+02-0.81934608E+02
+-0.42563409E+03-0.14312030E+02 0.16611151E+02 0.12098100E+02
+ 0.12641450E+01 0.55198932E+01 0.99034758E+01 0.12516960E+02
+ 0.87314959E+01-0.51231070E+01 0.39159341E+01-0.55611761E+03
+ 0.41753851E+03-0.82521111E+02-0.36042380E+01-0.57295959E+02
+-0.43978519E+02-0.27982750E+02-0.55224438E+01-0.17707230E+01
+ 0.31851060E+01 0.75431948E+01-0.32634571E+00 0.22289760E+01
+-0.12628050E+02-0.29475651E+02-0.13181870E+03-0.42368250E+01
+ 0.53481922E+01-0.18812599E+02 0.12206750E+02 0.51485548E+01
+ 0.74417621E+00 0.30390489E+00-0.14483230E+01 0.43711882E+01
+-0.41743481E+00-0.70836708E+02 0.19865379E+03-0.46479141E+02
+ 0.10329850E+01-0.15422950E+02-0.58127208E+01-0.21672831E+02
+-0.21251791E+01 0.37184491E+01 0.29343550E+01 0.18456310E+01
+-0.13371751E+00 0.10799990E+00 0.33512569E+02 0.32765129E+02
+ 0.17505960E+03 0.22780421E+01-0.76754069E+01-0.45849819E+01
+-0.12439640E+01-0.26504030E+01-0.19010170E+01-0.50457730E+01
+-0.36184411E+01 0.15841290E+01-0.11200140E+01 0.20662170E+03
+-0.16511501E+03 0.33514801E+02 0.52517562E+01 0.22191389E+02
+ 0.17958500E+02 0.11047820E+02 0.14197870E+01 0.14504740E+01
+-0.18398410E+01-0.32132490E+01-0.17564391E+00-0.78480268E+00
+ 0.21680850E+00-0.98766617E-01-0.24442260E+00-0.11380000E+01
+-0.11580490E+00-0.10093260E+00-0.12791631E+00 0.97777501E-01
+ 0.53215820E-01 0.26711141E-03-0.31394381E-02-0.41013659E-03
+-0.17268690E-02 0.46872649E-01 0.24253739E+00-0.93192190E-01
+ 0.10034390E+00-0.11246090E+01 0.13895150E+00-0.11246190E+00
+-0.53842120E-01 0.89431956E-01 0.15285590E-02-0.39319150E-03
+ 0.35966691E-02 0.11767660E-02 0.56693470E+00-0.12340950E-01
+-0.70598263E+00 0.24358900E+00 0.59203202E+00 0.62054640E+00
+-0.20295240E+00-0.21337239E+00-0.30721670E+00-0.76834168E-02
+-0.25764130E-01 0.36319651E-01 0.37315041E-01-0.64099930E-01
+ 0.86239493E+00 0.85955530E-01-0.46863449E+00 0.21721950E+00
+ 0.25030079E+00 0.61800432E+00 0.30059549E+00-0.17376199E+00
+-0.71870489E-02-0.80371667E-02-0.11675860E-01 0.39575521E-01
+-0.38970380E+01 0.48000221E+01 0.75008541E+00 0.62432270E+01
+ 0.28617871E+01-0.43359339E-01 0.16296690E+01-0.19845370E+01
+-0.65636683E+00-0.22731369E-01 0.12502161E+00 0.87066770E-01
+-0.38386779E-02-0.51719451E+01-0.14186360E+00 0.52859440E+01
+-0.23159101E+01 0.58124628E+01-0.18540640E+01 0.87184273E-01
+ 0.62755787E+00-0.17094311E+01-0.31512950E-01-0.48559502E-01
+-0.53807549E-01 0.26863320E-01-0.40451598E+01 0.27857971E+01
+ 0.42416628E-01 0.31809440E+01-0.60120779E+00-0.35225661E+01
+-0.52399248E+00 0.13826820E+01 0.19515600E+01 0.12605020E+00
+ 0.44270599E+00-0.44931540E+00-0.37532699E+00-0.43810520E+01
+-0.31899020E+00 0.11471500E+01-0.24071109E+00 0.28922801E+01
+ 0.44026819E+00-0.35759821E+01-0.20823810E+01 0.89867079E+00
+-0.72615363E-01 0.13245250E+00 0.90388700E-01-0.50988549E+00
+ 0.22929390E+02-0.82118664E+01-0.72747402E+01-0.40608349E+01
+-0.33424500E+00 0.20240920E+01-0.45018830E+01 0.80306377E+01
+ 0.26895010E+01 0.33149451E-01-0.81045991E+00-0.66215020E+00
+ 0.11052030E+00 0.30027790E+02 0.42069960E+01-0.11251820E+02
+-0.27223871E+01-0.24533520E+01 0.46879072E+01 0.15834190E+01
+-0.18814870E+01 0.66278381E+01 0.26840961E+00 0.11086970E+00
+ 0.20243610E+00-0.20405079E+00 0.75417109E+01-0.94881420E+01
+ 0.40876470E+01-0.85819626E+01-0.36776969E+01 0.48595662E+01
+ 0.36853421E+01-0.26088450E+01-0.45805488E+01-0.41075340E+00
+-0.11981550E+01 0.10885270E+01 0.87906229E+00 0.12447720E+02
+-0.43114762E+01-0.58176918E+01 0.54301162E+01-0.75591860E+01
+-0.38381910E+01 0.48913279E+01 0.51257820E+01-0.13769770E+01
+ 0.30590481E+00-0.46436599E+00-0.16350450E+00 0.13359340E+01
+-0.42905781E+02-0.45018268E+01 0.23205040E+02-0.13066930E+02
+-0.11269920E+02-0.38978410E+01 0.29388120E+01-0.11787120E+02
+-0.42931390E+01 0.68046831E-01 0.16601551E+01 0.14857579E+01
+-0.39178151E+00-0.55144539E+02-0.17675381E+02 0.24183919E+01
+ 0.17331461E+02-0.15235430E+02-0.18437670E+01-0.32494669E+01
+ 0.19079390E+01-0.93711634E+01-0.65526658E+00 0.60634341E-01
+-0.17724510E+00 0.44841650E+00-0.36535921E+01 0.68070979E+01
+-0.49579468E+01 0.59367080E+01 0.70323548E+01-0.17594330E+01
+-0.31884501E+01 0.14678741E+01 0.33956220E+01 0.32936469E+00
+ 0.86157429E+00-0.72619629E+00-0.58464640E+00-0.83975048E+01
+ 0.57950130E+01 0.47943211E+01-0.81534004E+01 0.51102791E+01
+ 0.34228239E+01-0.17085140E+01-0.38911190E+01 0.60504168E+00
+-0.25081760E+00 0.39296171E+00 0.73228247E-01-0.96720147E+00
+ 0.23687010E+02 0.11672790E+02-0.18141491E+02 0.11676460E+02
+ 0.99967442E+01 0.18866470E+01 0.21427760E+00 0.58689008E+01
+ 0.23989639E+01-0.98903961E-01-0.10329700E+01-0.10269500E+01
+ 0.34002081E+00 0.30887510E+02 0.14123690E+02 0.70652218E+01
+-0.13971020E+02 0.12697890E+02-0.14939270E+01 0.15163940E+01
+-0.58889061E+00 0.45266981E+01 0.43534601E+00-0.16807079E+00
+-0.76371031E-02-0.31473470E+00-0.14261380E-01 0.61169188E-01
+ 0.24702699E+00 0.14561410E+00 0.39177060E-01 0.21826150E+00
+-0.80744022E+00 0.13724560E+00-0.87255321E-01-0.14170840E-01
+-0.29787561E-01 0.29503441E-03 0.15187510E-02 0.39864080E-02
+-0.24780330E+00 0.59743080E-01-0.44863202E-01 0.15508310E+00
+ 0.80518061E+00 0.22433600E+00 0.81562333E-01 0.13511141E+00
+ 0.28521540E-01-0.16537430E-01 0.36961569E-02 0.23056550E-02
+ 0.12444430E+00 0.26211661E+00 0.59513712E+00-0.21117270E+00
+-0.68545079E+00-0.21529980E+00-0.52523857E+00 0.17938489E-01
+ 0.36109591E+00-0.85925162E-01 0.90482809E-01-0.21633520E-02
+ 0.38857311E-02-0.84960178E-01-0.55407661E+00 0.29073921E+00
+ 0.69959939E+00-0.22698510E+00 0.50808579E+00-0.18737310E+00
+-0.34532419E+00-0.15467370E-01-0.92043988E-01-0.88221431E-01
+ 0.18781660E-02 0.12887170E-01 0.38591051E+00-0.19072080E+00
+-0.12603490E+01-0.13270971E+01-0.92434078E+00-0.58204129E-01
+ 0.19695100E+01-0.44555730E+00 0.56267750E+00 0.16234120E-01
+ 0.19859220E+00 0.31413671E-01-0.63262388E-01-0.19984239E+00
+ 0.14879760E+01-0.12747760E+00 0.10806980E+01-0.14452050E+01
+-0.18715500E+01-0.84783155E-02-0.47558409E+00-0.37239209E+00
+-0.16266111E+00 0.57284780E-01-0.45230400E-01 0.13840760E-02
+-0.24437129E+00-0.39156041E+00-0.12375360E+01 0.49121791E+00
+ 0.12414670E+01-0.16276430E+00 0.36627951E+00-0.26368070E-01
+-0.58564162E+00 0.10488400E+00-0.18773010E+00-0.18860180E-01
+-0.98235020E-02 0.15767220E+00 0.12394210E+01-0.52396739E+00
+-0.12764450E+01 0.53351420E+00-0.34925541E+00-0.21425471E+00
+ 0.56255460E+00 0.25842139E-01 0.19264370E+00 0.10500930E+00
+ 0.51700082E-02-0.45304410E-01-0.72202128E+00 0.67149782E+00
+ 0.18871080E+01 0.20709951E+01 0.10090851E+01-0.11537440E+01
+-0.26713381E+01 0.39100420E+00-0.49139890E+00-0.72585158E-01
+-0.42610729E+00-0.39117452E-01 0.84324569E-01 0.26205140E+00
+-0.22958779E+01 0.57396501E+00-0.12465780E+01 0.22494900E+01
+ 0.25108509E+01-0.12695730E+01 0.36571440E+00 0.27364239E+00
+ 0.36857960E+00-0.12930810E+00 0.75205743E-01 0.92329970E-02
+ 0.88534728E-02-0.11911620E-01 0.40111570E-02-0.64507127E-01
+ 0.23521220E-01-0.10142010E+00 0.10393480E+00 0.24212050E+00
+ 0.20650370E-01-0.11407280E-01 0.47031011E-01-0.72606052E-02
+-0.21492180E-02-0.28873640E-02 0.72576660E-02 0.45012399E-02
+-0.27822331E-01-0.57916801E-01-0.10673350E+00-0.99117219E-01
+-0.24531091E-01 0.24170481E+00-0.45225382E-01-0.11030450E-01
+ 0.50513460E-02-0.14787440E-02-0.80268811E-02 0.64224243E-01
+ 0.91951191E-01 0.60253449E-01-0.56967121E-01-0.36556169E-01
+ 0.13503040E+00-0.45951389E-01-0.22739661E+00-0.97849152E-05
+ 0.19388869E-01 0.19151211E-01-0.49179699E-01 0.86265039E-02
+-0.84693983E-01 0.12518761E+00 0.72777383E-01 0.72102703E-01
+-0.12656491E+00-0.47721632E-01 0.22344171E+00-0.41045189E-01
+-0.27548200E-01-0.19740770E-02 0.49022660E-01 0.18478250E-01
+-0.57983641E-02 0.58768112E-02-0.14391070E-01-0.10366050E-02
+ 0.47911471E-02 0.18814409E-01-0.61342340E-01-0.24765629E-01
+-0.57167452E-01-0.89193337E-01 0.17666970E+00 0.61469809E-02
+-0.38244851E-01-0.54444461E-02-0.69050519E-02 0.11018390E-01
+-0.70572132E-03 0.11323190E-02 0.53885542E-01 0.16947599E-01
+ 0.51858328E-01-0.23114091E-01-0.17671430E+00-0.91213897E-01
+ 0.38855299E-01 0.59523042E-02-0.14299510E-01 0.10411000E-01
+ 0.67772012E-03 0.52594622E-02 0.35338860E-02 0.14274380E-01
+ 0.55331211E-02 0.55111898E-02 0.29461149E-01 0.31505730E-02
+ 0.22047460E-01-0.52929800E-01-0.89731179E-01-0.24945689E-02
+-0.90619759E-03 0.71186461E-02 0.12963910E-02 0.27965340E-02
+-0.58626109E-02 0.11825390E-01-0.32070622E-01 0.40597362E-02
+-0.18898040E-01 0.30710809E-02 0.91562659E-01-0.49882021E-01
+ 0.85123749E-02 0.33091630E-02 0.50137838E-03-0.32701870E-03
+-0.92942821E-03 0.33023690E-02-0.57077839E-03-0.11253630E-01
+-0.12384500E-01-0.51991218E-02-0.16506070E-01 0.10118830E-01
+ 0.17349470E-01-0.19625020E-02-0.24482040E-02-0.82698250E-02
+ 0.41671419E-02-0.58442168E-02 0.62237738E-03 0.89030899E-02
+ 0.75676888E-02-0.98697776E-02 0.16676720E-01-0.10716010E-01
+-0.16276700E-01 0.59945020E-02 0.11895130E-01 0.10094350E-01
+-0.35372600E-02-0.76139690E-02 0.40187798E-02 0.12725220E-02
+ 0.16651989E-02-0.54573142E-02-0.89085689E-02-0.36964309E-02
+-0.95452052E-02-0.14443120E-02-0.21048430E-01-0.13701280E-01
+-0.65055909E-02 0.49061580E-02 0.11184300E-03-0.86277816E-02
+-0.74750232E-02-0.24820829E-02 0.56074322E-02-0.18084730E-02
+ 0.77215740E-02-0.36681599E-02 0.21630861E-01 0.40499968E-02
+ 0.97942305E+01 0.10049300E+00-0.67720063E-01 0.56164298E-01
+-0.20572999E-01 0.55698860E-02 0.66222101E-02 0.56837890E-02
+ 0.38248729E-02-0.54680160E-02-0.10748470E-02 0.40916880E-03
+-0.63063041E-03 0.59311372E+00-0.34792209E+00-0.80102909E+00
+ 0.82113519E-02-0.22196139E+00 0.57442751E-01 0.35632670E-01
+ 0.60612829E-02 0.99351190E-01 0.47046810E-01-0.32389302E-01
+-0.44707000E-01 0.28330810E-01 0.14228550E+02 0.15558701E+01
+ 0.29352970E+01 0.29204509E+01 0.55526948E+00 0.83994620E-01
+-0.11057890E+00-0.19204640E+00-0.19619530E-01 0.12502770E+00
+ 0.73540471E-01-0.29126540E-01-0.44301350E-01-0.49418221E+01
+ 0.12584280E+02 0.16172979E+02 0.33182330E+01 0.56394768E+01
+-0.44136149E+00-0.68793058E+00-0.21118230E+00-0.18820781E+01
+-0.87799168E+00 0.48000601E+00 0.63799042E+00-0.42452770E+00
+-0.56506500E+02-0.69242358E+01-0.22005100E+02-0.22236240E+02
+-0.37975090E+01-0.37126300E+00 0.42350960E+00 0.10413220E+01
+-0.20437220E+00-0.78955609E+00-0.26221800E+00 0.74530311E-01
+ 0.45267120E+00-0.33734329E+02-0.84672142E+02-0.62139191E+02
+-0.19290791E+02-0.22370939E+02 0.90566170E+00 0.23071270E+01
+ 0.22706790E+01 0.83373518E+01 0.37482049E+01-0.24414721E+01
+-0.27215450E+01 0.16491280E+01 0.52738991E+02 0.75275402E+01
+ 0.63201740E+02 0.57319679E+02 0.10005630E+02 0.20477660E+00
+-0.52468532E+00-0.21851640E+01 0.77176982E+00 0.20081711E+01
+ 0.21776120E+00-0.89446716E-02-0.13123280E+01 0.17128450E+03
+ 0.20825140E+03 0.71860268E+02 0.40157829E+02 0.36948341E+02
+ 0.37877709E-01-0.28392200E+01-0.70432472E+01-0.15323890E+02
+-0.67199979E+01 0.54320621E+01 0.50476170E+01-0.26896679E+01
+-0.11977770E+02-0.30380881E+01-0.73868439E+02-0.61620590E+02
+-0.10841470E+02 0.52004540E+00 0.24366701E+00 0.20054100E+01
+-0.87958318E+00-0.21923709E+01 0.11883310E+00-0.10233260E+00
+ 0.14993590E+01-0.23675110E+03-0.21552130E+03-0.11064670E+02
+-0.35662460E+02-0.27968750E+02-0.16252040E+01 0.11762120E+01
+ 0.84398518E+01 0.12743780E+02 0.55051832E+01-0.54511809E+01
+-0.42862959E+01 0.19768970E+01-0.29917750E+01 0.83740687E+00
+ 0.29883490E+02 0.23643410E+02 0.41128669E+01-0.45286149E+00
+-0.40900871E-01-0.67337012E+00 0.32750309E+00 0.85710979E+00
+-0.15083170E+00 0.66071019E-01-0.59684259E+00 0.10369590E+03
+ 0.79871071E+02-0.14158160E+02 0.11460340E+02 0.79600148E+01
+ 0.10837250E+01 0.15726430E-01-0.34767201E+01-0.39760211E+01
+-0.17029220E+01 0.20200810E+01 0.13677580E+01-0.53963298E+00
+-0.34490591E+00 0.13967770E+01 0.19545530E+01 0.44857800E-01
+ 0.34546459E+00 0.69768153E-01-0.40203910E-02-0.14000990E-02
+ 0.48404001E-02-0.45107398E-02-0.14618130E-02-0.36003650E-02
+-0.30417659E-02 0.17134650E-02-0.17847930E+01 0.14151880E+01
+-0.35363019E+00 0.39633401E-01-0.93546417E-02 0.56453850E-01
+ 0.59642660E-03-0.80359410E-02-0.50561931E-02-0.51246132E-02
+ 0.39010621E-02-0.11505790E-02-0.65442359E+00 0.13955660E+01
+ 0.65112698E+00 0.30010730E+00 0.10074000E+01 0.27679500E+00
+ 0.74349838E+00 0.14606810E+00 0.17887540E+00-0.37418581E-02
+-0.25320290E-01-0.49170692E-01 0.34312882E-01-0.11264770E+01
+-0.38210019E+00 0.10537230E+01-0.10512420E+01 0.42510441E+00
+-0.61701071E+00 0.30899459E+00-0.74798479E-02 0.12907191E+00
+ 0.36398869E-01-0.15036230E-01-0.32998860E-01 0.10194240E-01
+ 0.10034110E+02 0.49393029E+01-0.15543370E+00-0.31566989E+00
+-0.22727301E+01-0.18283581E+01 0.19505970E+01 0.11861450E+00
+-0.70735700E-02 0.36700081E-01 0.76497138E-01 0.15917820E+00
+ 0.61771959E-01 0.17877430E+00-0.12814090E+01 0.10829730E+02
+ 0.18442130E+01-0.25024071E+00-0.11890020E+01-0.15901710E+01
+ 0.28255099E-01 0.36365360E+00 0.22877949E+00 0.16558360E+00
+-0.12810279E+00 0.93560088E-02 0.20455811E+02-0.16229799E+02
+ 0.28715530E+02-0.14121060E+02-0.85696659E+01-0.43175702E+01
+-0.61438451E+01-0.27297831E+01-0.37375450E+01 0.85444517E-01
+ 0.36155760E+00 0.60802501E+00-0.51304752E+00 0.37074268E+02
+-0.16716721E+02 0.46408489E+00 0.84541149E+01-0.15192800E+02
+ 0.48771911E+01-0.47089219E+01 0.55586971E-01-0.18221670E+01
+-0.93729448E+00 0.20580129E+00 0.55149239E+00-0.36206850E+00
+-0.64984680E+02 0.14920640E+02 0.33339859E+02 0.62743801E+00
+ 0.53153200E+01 0.13703390E+02-0.13235250E+02-0.18378990E+01
+-0.71713281E+00 0.13410440E+00-0.41658500E+00-0.16594549E+01
+-0.69559538E+00 0.21107580E+02-0.44571861E+02-0.38281541E+01
+-0.31986201E+01-0.19227840E+00 0.45654678E+01 0.11316500E+02
+-0.58618897E+00-0.39003870E+01-0.19592040E+01-0.14664220E+01
+ 0.10988300E+01-0.12178060E+00-0.11419350E+03 0.33169250E+02
+-0.18185330E+03 0.84274620E+02 0.37699108E+02 0.21818541E+02
+ 0.18887260E+02 0.15863060E+02 0.19045271E+02-0.11547370E+01
+-0.12922820E+01-0.18334500E+01 0.26196771E+01-0.19321190E+03
+ 0.91078018E+02-0.55038691E+01-0.35360561E+02 0.86053436E+02
+-0.13080350E+02 0.23203600E+02 0.56529957E+00 0.67790899E+01
+ 0.51668639E+01-0.84225613E+00-0.24078081E+01 0.27766581E+01
+ 0.17286230E+03-0.13816119E+03-0.12076850E+03 0.63124352E+01
+-0.10234020E+02-0.39797428E+02 0.36029949E+02 0.69230652E+01
+ 0.26916630E+01-0.11200690E+01 0.85163683E+00 0.53955641E+01
+ 0.25523081E+01-0.90514137E+02 0.17429190E+03-0.14088390E+03
+ 0.67591128E+01 0.78306799E+01-0.68181009E+01-0.30964531E+02
+ 0.24735999E+01 0.12717800E+02 0.59053760E+01 0.44211092E+01
+-0.33426011E+01 0.36536279E+00 0.25997079E+03-0.53131819E+01
+ 0.44271829E+03-0.19436740E+03-0.84823219E+02-0.45906181E+02
+-0.27937149E+02-0.38526932E+02-0.39676411E+02 0.37597029E+01
+ 0.19856230E+01 0.16807790E+01-0.61302409E+01 0.39862781E+03
+-0.21027650E+03-0.77547979E+01 0.79443718E+02-0.19243410E+03
+ 0.13669880E+02-0.47853840E+02-0.34914551E+01-0.10100640E+02
+-0.11648420E+02 0.14128730E+01 0.45791488E+01-0.76481371E+01
+-0.19798650E+03 0.23065230E+03 0.16724969E+03-0.16702789E+02
+ 0.13326660E+02 0.48278069E+02-0.43790661E+02-0.95909309E+01
+-0.33063021E+01 0.19789450E+01-0.74831372E+00-0.69514322E+01
+-0.36084890E+01 0.11815670E+03-0.23946030E+03 0.28739160E+03
+-0.10960200E+02-0.17698721E+02 0.59070530E+01 0.35641769E+02
+-0.37177970E+01-0.16120781E+02-0.72980809E+01-0.54193349E+01
+ 0.41919608E+01-0.42670211E+00-0.26416370E+03-0.26285891E+02
+-0.46824420E+03 0.19631441E+03 0.86771423E+02 0.41821499E+02
+ 0.20038561E+02 0.41205379E+02 0.36789551E+02-0.46740870E+01
+-0.14166310E+01 0.27061680E+00 0.66565571E+01-0.35389841E+03
+ 0.21860960E+03 0.36948589E+02-0.83713799E+02 0.19063251E+03
+-0.31473210E+01 0.43049858E+02 0.59069500E+01 0.59646020E+01
+ 0.11741190E+02-0.11174150E+01-0.40983558E+01 0.87909403E+01
+ 0.81596603E+02-0.11277470E+03-0.77674316E+02 0.10306240E+02
+-0.61958399E+01-0.20682529E+02 0.19373341E+02 0.44355049E+01
+ 0.13474470E+01-0.10496230E+01 0.24113479E+00 0.31123941E+01
+ 0.17302220E+01-0.49718391E+02 0.10947800E+03-0.15596159E+03
+ 0.55224738E+01 0.10491800E+02-0.25727651E+01-0.14577640E+02
+ 0.18236350E+01 0.69877691E+01 0.31601269E+01 0.23392141E+01
+-0.18599600E+01 0.18443520E+00 0.98601913E+02 0.12768970E+02
+ 0.18043030E+03-0.73448380E+02-0.32076870E+02-0.13579790E+02
+-0.55356889E+01-0.16030239E+02-0.12605700E+02 0.20187609E+01
+ 0.38077149E+00-0.70928657E+00-0.27001669E+01 0.11392700E+03
+-0.83470879E+02-0.26137831E+02 0.32354698E+02-0.70674873E+02
+-0.18795600E+01-0.13950730E+02-0.31487451E+01-0.85365331E+00
+-0.43807292E+01 0.37648261E+00 0.14241660E+01-0.36059289E+01
+ 0.17630181E+00-0.31415361E+00-0.25852901E+00-0.11688730E+01
+ 0.25708339E+00-0.15131690E+00-0.10967650E+00 0.59733000E-01
+-0.16795760E-01 0.27318860E-02-0.78220163E-02-0.10478951E-02
+ 0.12955120E-02-0.38703371E-01 0.25191250E+00-0.30518681E+00
+-0.28125340E+00-0.11588520E+01 0.10482760E+00-0.14970639E+00
+ 0.20870870E-01 0.57328559E-01 0.15555531E-02 0.10978160E-02
+ 0.11363380E-02 0.35312350E-02 0.98787612E+00-0.80230641E+00
+-0.11687750E+00-0.63032858E-01 0.52451819E+00 0.58028078E+00
+-0.41698551E+00-0.45185339E-01-0.21646450E+00-0.38847409E-01
+-0.30236380E-01-0.15019680E-01 0.89093447E-02 0.14255810E+00
+ 0.37856609E+00-0.75578499E+00-0.68057817E+00-0.15489350E+00
+ 0.48987141E+00 0.69161290E+00 0.22690180E+00 0.13887800E-01
+ 0.22212110E-01-0.49377572E-01-0.87952912E-02-0.47922530E-02
+-0.28374419E+01 0.24427800E+01-0.51151538E+00-0.73303092E+00
+ 0.19014530E+01-0.13772359E+00-0.78791492E-01-0.74227488E+00
+ 0.59330338E+00-0.91503747E-01 0.27441370E+00 0.38435102E-01
+-0.65772913E-01-0.49980211E+01 0.12165000E+01 0.23835120E+01
+-0.16502171E+01-0.12362750E+01 0.76759711E-01-0.20056030E+00
+-0.84591800E+00-0.66690999E+00-0.99727791E-02-0.11307500E+00
+-0.65097678E-03-0.10988230E+00-0.10799230E+02 0.20095379E+01
+-0.45152779E+01-0.19094300E+01 0.38446429E+00-0.23510749E+01
+ 0.11461730E+01 0.97410631E+00 0.19499000E+01 0.36773631E+00
+ 0.52477181E+00 0.91544151E-01 0.38860928E-01-0.59164581E+01
+ 0.26071880E+01 0.45173451E+00 0.39280701E+00-0.94577670E+00
+-0.13991990E+01-0.33824270E+01-0.21593809E+01 0.51794802E-02
+-0.58459479E+00 0.59132540E+00 0.28284671E-01-0.13199460E-01
+ 0.14511220E+02-0.26689150E+01-0.27100229E+01 0.89701900E+01
+-0.25418191E+01 0.40422249E+00 0.32817421E+01 0.33382530E+01
+-0.38275499E+01 0.33136880E+00-0.15501961E+01-0.29057559E+00
+ 0.18352300E+00 0.26242590E+02-0.21904930E+00-0.25994749E+01
+ 0.28147950E+01 0.12272210E+02-0.38128390E+01-0.31701650E-01
+ 0.55478621E+01 0.26498041E+01-0.44743050E-01 0.57991511E+00
+ 0.18562030E-01 0.37734181E+00 0.25516809E+02-0.24187081E+01
+ 0.12405240E+02 0.70788760E+01-0.91932001E+01 0.26251550E+01
+-0.59985262E+00-0.28073781E+01-0.53629799E+01-0.86953169E+00
+-0.14959980E+01-0.18198919E+00-0.25566491E+00 0.16060141E+02
+-0.85218630E+01 0.17506440E+01 0.84152908E+01 0.47088971E+01
+ 0.66012633E+00 0.49082532E+01 0.60546708E+01-0.17193820E+00
+ 0.17450780E+01-0.15658540E+01 0.34059241E-01 0.12589690E+00
+-0.27912750E+02-0.15231431E+00 0.12833730E+02-0.11485130E+02
+-0.20350180E+01 0.27437899E+01-0.84817991E+01-0.54005508E+01
+ 0.73609118E+01-0.48225561E+00 0.29006491E+01 0.63074291E+00
+-0.13809250E+00-0.46899750E+02-0.86155787E+01 0.16053430E+01
+-0.11759880E-02-0.18362270E+02 0.10486690E+02 0.46078682E+01
+-0.10945070E+02-0.38438170E+01 0.17385480E+00-0.10360600E+01
+-0.19525040E-01-0.47193250E+00-0.17577141E+02 0.14968770E+01
+-0.94643841E+01-0.43905420E+01 0.13331990E+02-0.52593821E+00
+-0.13966210E+00 0.20362110E+01 0.41864362E+01 0.57829028E+00
+ 0.11439940E+01 0.11566630E+00 0.27126810E+00-0.10931960E+02
+ 0.78979540E+01-0.13149970E+01-0.13445240E+02-0.27187860E+01
+ 0.35848841E+00-0.20143440E+01-0.47811661E+01 0.11631220E+00
+-0.13377280E+01 0.11472270E+01-0.90521812E-01-0.14472900E+00
+ 0.16436930E+02 0.24891169E+01-0.88596725E+01 0.33934860E+01
+ 0.45333910E+01-0.38286130E+01 0.53524108E+01 0.28537099E+01
+-0.41850882E+01 0.25508711E+00-0.17239870E+01-0.42090431E+00
+-0.23703210E-02 0.25907150E+02 0.66512790E+01 0.28191841E+00
+-0.29096160E+01 0.77843609E+01-0.70734148E+01-0.53742800E+01
+ 0.64790478E+01 0.18503410E+01-0.14905681E+00 0.59444380E+00
+-0.73124482E-02 0.21029510E+00-0.68261572E-02 0.13957180E+00
+ 0.32649410E+00 0.28282329E+00-0.10227310E-01 0.14804270E-01
+-0.91439557E+00 0.14184441E+00-0.81142567E-01-0.12157220E-01
+ 0.38088930E-02-0.36033259E-02 0.84055192E-03 0.71297758E-02
+-0.32879269E+00 0.14235260E+00-0.16970770E-03 0.26775131E+00
+ 0.90389597E+00 0.20921869E-01 0.74967623E-01 0.13988359E+00
+-0.69531752E-02-0.11753400E-01 0.29802660E-02-0.16931799E-02
+ 0.14081740E+00 0.14626230E+00 0.86963153E+00 0.25141081E+00
+-0.35662919E+00 0.62416578E-02-0.48780549E+00 0.29906631E-01
+ 0.20822871E+00-0.14510880E+00-0.61742522E-01-0.54788459E-02
+ 0.10409850E-01-0.10241500E+00-0.80052370E+00 0.72068617E-01
+ 0.31962761E+00 0.19835819E+00 0.47786200E+00 0.12095140E-01
+-0.19012199E+00-0.29794570E-01 0.48260450E-01-0.14844880E+00
+ 0.10491840E-01 0.30504370E-02 0.19137160E+00-0.11985230E+01
+-0.16745290E+01-0.11421649E+01 0.22321659E+00 0.12559839E+01
+ 0.23202929E+01 0.20054109E+00 0.55388039E+00 0.11083240E+00
+-0.11912300E+00 0.10194540E+00-0.43575458E-01-0.14324120E+00
+ 0.19342880E+01-0.12175980E+01-0.42596921E-01-0.87678748E+00
+-0.21801729E+01 0.12625140E+01-0.48348439E+00 0.23550710E+00
+ 0.23638490E+00 0.89657649E-01-0.23761710E-01 0.51032711E-01
+-0.29891431E+00 0.12551050E+00-0.17788430E+01-0.38697979E+00
+ 0.73174590E+00-0.80475843E+00 0.36701369E+00-0.33830840E-01
+-0.37605760E+00 0.22220680E+00 0.96081473E-01-0.87840541E-03
+-0.12283870E-01 0.22585240E+00 0.17454700E+01 0.13204910E+00
+-0.67120808E+00-0.25077441E+00-0.36286381E+00-0.82745439E+00
+ 0.34845340E+00 0.58399141E-01-0.71181543E-01 0.22500780E+00
+-0.15595110E-01-0.20831689E-01-0.46414351E+00 0.26697669E+01
+ 0.21768849E+01 0.10788450E+01-0.58699232E+00-0.36032729E+01
+-0.38758259E+01-0.77178162E+00-0.51518738E+00-0.28511441E+00
+ 0.10684050E+00-0.16756800E+00 0.53588971E-01 0.25300911E+00
+-0.26588631E+01 0.26192341E+01 0.31618920E+00 0.65564471E+00
+ 0.36781850E+01-0.36443620E+01 0.42363000E+00-0.83562082E+00
+-0.30189249E+00-0.24750599E+00 0.40309440E-01-0.79769760E-01
+ 0.18360181E-02-0.31908150E-03 0.36930251E-02-0.80088757E-01
+ 0.19306339E-01-0.11486680E+00 0.89718767E-01 0.29951039E+00
+-0.47045220E-01-0.13762740E-01 0.47921501E-01-0.34046150E-02
+-0.19064359E-01 0.98521402E-02 0.11230020E-01 0.57890960E-02
+-0.14774560E-01-0.86389929E-01-0.95295139E-01-0.11509900E+00
+ 0.47635190E-01 0.30208090E+00-0.47345061E-01-0.12976830E-01
+ 0.20794241E-01 0.25945110E-03 0.15083500E-01 0.10719910E+00
+ 0.91573410E-01 0.59324361E-01 0.21637440E-01-0.14951199E+00
+ 0.20946760E+00 0.13995080E+00-0.22266281E+00-0.24542650E-01
+ 0.59516178E-02 0.14311640E-01-0.37489731E-01-0.90235658E-02
+-0.38718399E-01 0.14248940E+00 0.15021930E-01 0.70292622E-01
+-0.20749380E+00-0.14204960E+00 0.23068731E+00 0.14572661E+00
+-0.13367920E-01-0.34452271E-01 0.30092839E-01 0.88231787E-02
+-0.25677709E-02-0.23726400E-02-0.17948370E-01 0.54019969E-02
+-0.27945871E-02 0.81017219E-01-0.14959340E-01-0.38975421E-01
+-0.68297349E-01-0.44109441E-01 0.20228340E+00-0.67650210E-02
+-0.88030444E-02 0.54333621E-03 0.58156699E-02 0.13462670E-01
+ 0.90569714E-02 0.90950876E-02 0.74911062E-02 0.75897843E-01
+ 0.67362562E-01-0.40414371E-01-0.20197180E+00-0.48041821E-01
+ 0.80006272E-02-0.83459839E-02-0.73904311E-02 0.61489660E-02
+ 0.41052648E-02-0.21951119E-02-0.12719471E-02 0.45493161E-02
+ 0.16730910E-01 0.30866761E-01 0.22467811E-01 0.15520590E-02
+-0.91331396E-02-0.85313886E-01-0.57545520E-01-0.23175329E-02
+ 0.67544482E-02 0.36882930E-02 0.18115340E-02 0.41840100E-02
+-0.19127419E-01 0.41026110E-02-0.24927611E-01 0.30225150E-01
+ 0.12360500E-01 0.60388069E-02 0.59576560E-01-0.84451072E-01
+-0.55337191E-03 0.68728789E-02-0.74137373E-04 0.42885090E-02
+-0.68034660E-02 0.41505709E-03 0.53629922E-02-0.23255369E-02
+-0.25813170E-02-0.32384351E-01 0.19217650E-02 0.27908729E-01
+ 0.26368810E-01 0.85968440E-02-0.26818761E-02-0.13916300E-01
+ 0.13276640E-02 0.21374910E-02-0.77170022E-02 0.32125791E-02
+-0.45021372E-02-0.43420582E-02-0.24826950E-03-0.38401891E-01
+-0.27893441E-01 0.25694860E-01 0.17174530E-02 0.11491850E-02
+-0.63384562E-02-0.92430972E-02 0.92168208E-02-0.20703811E-02
+ 0.35299810E-02-0.15728880E-02-0.39038919E-02-0.44002971E-02
+-0.10039390E-01 0.13157420E-01-0.24453450E-01-0.11753490E-01
+ 0.66172732E-02 0.19759580E-02 0.62803901E-02-0.32226960E-02
+-0.57471409E-02-0.67554060E-02-0.92177193E-04-0.37271029E-03
+ 0.92624426E-02-0.32270909E-02 0.23081729E-01 0.15905250E-01
diff --git a/input/glow_data/iri90/ursi21.asc b/input/glow_data/iri90/ursi21.asc
new file mode 100644
index 0000000..77f0a97
--- /dev/null
+++ b/input/glow_data/iri90/ursi21.asc
@@ -0,0 +1,494 @@
+ 0.69091191E+01 0.23239480E+00-0.37840119E+00 0.51887061E-01
+ 0.12888790E-01 0.16758390E-02 0.47189100E-02 0.38096961E-02
+ 0.16614400E-02 0.20077069E-03-0.21227840E-02-0.35183650E-05
+ 0.32520329E-02 0.12830800E+01 0.95854509E+00-0.41551659E+00
+ 0.82347947E+00 0.52762032E+00 0.64526431E-01 0.10908340E-01
+ 0.25200769E-02 0.10944200E+00 0.35889801E-01 0.11354100E-01
+-0.17247280E-01-0.21938400E-02 0.33975461E+01-0.90155822E+00
+ 0.26946199E+01-0.33344239E+00 0.60212272E+00 0.12452230E+00
+-0.10842870E+00-0.15419871E+00 0.68422921E-01-0.40793419E-01
+ 0.35313521E-01 0.27487930E-01-0.14351380E+00-0.26421829E+02
+-0.10697840E+02 0.86804762E+01-0.85537300E+01 0.15645550E+01
+-0.74689001E+00-0.54968119E+00-0.20166080E+00-0.16079900E+01
+-0.40956619E+00-0.13428891E+00 0.31956431E+00-0.12131900E-01
+-0.15126400E+02 0.12229640E+02-0.80745449E+01-0.72934141E+01
+-0.11459690E+01-0.95264220E+00 0.13307410E+00 0.88695151E+00
+-0.72056550E+00 0.52422100E+00-0.64858131E-01-0.44282499E+00
+ 0.86362797E+00 0.55224579E+02 0.19951880E+02-0.44830299E+02
+ 0.33396851E+02-0.21675840E+02 0.28313191E+01 0.18262010E+01
+ 0.18579260E+01 0.70200491E+01 0.15235330E+01 0.39351931E+00
+-0.11229470E+01-0.12641260E-01-0.10316360E+02-0.51310570E+02
+ 0.18325649E+02 0.32345081E+02-0.32463729E+01 0.24343121E+01
+ 0.55877972E+00-0.17595110E+01 0.19300970E+01-0.17423290E+01
+-0.13560350E+00 0.15493710E+01-0.19692020E+01 0.12893610E+02
+ 0.18450159E+02 0.81063210E+02-0.61631390E+02 0.57794899E+02
+-0.46171589E+01-0.15026000E+01-0.55016408E+01-0.13159820E+02
+-0.24792681E+01-0.27627969E+00 0.12999460E+01 0.23477180E+00
+ 0.38441368E+02 0.68237091E+02-0.24120211E+02-0.44297249E+02
+ 0.86294231E+01-0.25742700E+01-0.11775260E+01 0.13759511E+01
+-0.19930561E+01 0.22236710E+01 0.37168700E+00-0.20190151E+01
+ 0.19492019E+01-0.10965760E+03-0.60346310E+02-0.58440639E+02
+ 0.53912621E+02-0.60311871E+02 0.32642341E+01-0.58626521E+00
+ 0.65555668E+01 0.11212710E+02 0.17823820E+01-0.21803419E+00
+-0.26433969E+00-0.39133671E+00-0.20170641E+02-0.28491579E+02
+ 0.11607230E+02 0.19663401E+02-0.49049149E+01 0.96296370E+00
+ 0.59853119E+00-0.34102440E+00 0.70962453E+00-0.97978920E+00
+-0.20457570E+00 0.89992499E+00-0.70495772E+00 0.65983139E+02
+ 0.31739540E+02 0.13973010E+02-0.17989540E+02 0.22145540E+02
+-0.78254658E+00 0.80884290E+00-0.27343421E+01-0.35723679E+01
+-0.44193700E+00 0.22560380E+00-0.23078460E+00 0.18429610E+00
+-0.13206060E+00 0.17452980E+01 0.22984030E+01-0.10940250E-01
+ 0.32987490E+00 0.60586311E-01-0.13448200E+00-0.48772781E-02
+-0.38036569E-05-0.15974350E-02-0.48905262E-02 0.10498640E-02
+-0.74772594E-04-0.60066998E+00-0.21609211E+01 0.20361900E+01
+-0.34837970E+00-0.50518480E-02 0.13668969E+00 0.50604481E-01
+ 0.26404050E-02-0.81858953E-03 0.46080109E-02-0.28071441E-02
+-0.38852301E-03 0.38221269E-03 0.68064398E+00-0.42505309E+00
+ 0.71200110E-01-0.25343540E+00 0.93319118E+00-0.14235149E+00
+ 0.50602537E+00-0.48128892E-01 0.70086852E-01 0.77645659E-01
+-0.36020622E-01 0.10789960E-01-0.28626410E-01-0.20429530E+01
+ 0.10015240E+01 0.26297700E+01-0.70217812E+00-0.17440730E+00
+-0.43449989E+00-0.96100777E-01 0.42396192E-01 0.10305580E+00
+ 0.16201530E-01 0.92461420E-03-0.24646400E-02-0.71474919E-02
+ 0.63615918E+01 0.31593019E+00 0.30031221E+01-0.88853711E+00
+-0.21419499E+01-0.10971450E+01 0.27928641E+01 0.13792410E+00
+ 0.21817359E+00-0.51184360E-01 0.15393360E+00 0.47521971E-01
+ 0.16722500E-01-0.23362651E+01-0.12382820E+02 0.18860750E+01
+ 0.28806911E+01-0.17303110E+01-0.27920289E+01-0.10148700E+01
+ 0.21801081E-01 0.91538601E-01-0.18458280E+00 0.45809921E-01
+ 0.59124190E-01 0.77600172E-02 0.67789278E+01 0.36601031E+01
+ 0.30728220E+02-0.38952971E+01-0.57290502E+01-0.67384732E+00
+-0.63694210E+01 0.39043489E+00-0.85820937E+00-0.11895140E+01
+ 0.60666370E+00-0.32577929E+00 0.35168940E+00 0.44790951E+02
+-0.47289700E+02-0.32444710E+02 0.25997100E+01-0.52279902E+01
+ 0.56483388E+01-0.17406141E+01-0.11014870E+01-0.88581330E+00
+-0.21859740E+00-0.11855080E-02 0.22134700E+00 0.13289930E+00
+-0.24567310E+02-0.12923810E+02 0.31025379E+02 0.30144801E+01
+-0.88235493E+01 0.90539026E+01-0.15700160E+02-0.10824980E+01
+-0.22008569E+01 0.11648730E+01-0.93653798E+00-0.11674980E+01
+-0.61420071E+00 0.50346371E+02 0.14547360E+02-0.22007580E+02
+ 0.24940851E+01 0.87947874E+01 0.14521370E+02 0.86183910E+01
+-0.91677731E+00-0.10560991E+01 0.19088380E+01-0.44582680E+00
+-0.62096852E+00-0.36737680E+00-0.62997002E+02-0.83361237E+02
+-0.17769389E+03 0.36315300E+02 0.23065260E+02 0.15809130E+02
+ 0.30802441E+02 0.39358911E+00 0.16314991E+01 0.62324009E+01
+-0.22082291E+01 0.28114331E+01-0.18786200E+01-0.27518900E+03
+ 0.24524921E+03 0.92417389E+02-0.91731567E+01 0.35300892E+02
+-0.29903721E+02 0.21762899E+02 0.84131470E+01 0.22849829E+01
+ 0.99721301E+00 0.70495820E+00-0.11394660E+01-0.44777170E+00
+ 0.32629929E+02 0.25176861E+02-0.18556590E+03 0.33975389E+01
+ 0.53109829E+02-0.28884600E+02 0.37810890E+02 0.39706991E+01
+ 0.60162878E+01-0.47462969E+01 0.21667330E+01 0.48420930E+01
+ 0.26445220E+01-0.17780420E+03 0.10063320E+03 0.21936460E+02
+-0.35481392E+02-0.11819010E+02-0.32232750E+02-0.26711361E+02
+ 0.41354198E+01 0.37644219E+01-0.62112088E+01 0.16429290E+01
+ 0.21537230E+01 0.15381960E+01 0.15967999E+03 0.28151770E+03
+ 0.39642929E+03-0.10053050E+03-0.55325081E+02-0.51470039E+02
+-0.65161186E+02-0.56996288E+01 0.27359221E+01-0.14141210E+02
+ 0.31356201E+01-0.87860203E+01 0.44663420E+01 0.67644391E+03
+-0.51485529E+03-0.10110590E+03 0.29527281E+02-0.81253128E+02
+ 0.67876198E+02-0.66125969E+02-0.24566460E+02-0.17865620E+01
+-0.18368330E+01-0.35588191E+01 0.18164020E+01 0.53533769E+00
+-0.16967171E+02-0.21994619E+02 0.29239590E+03-0.15157020E+02
+-0.79345772E+02 0.37467339E+02-0.41235439E+02-0.60198278E+01
+-0.62937880E+01 0.70344439E+01-0.22212591E+01-0.72309160E+01
+-0.39058909E+01 0.22328461E+03-0.22355611E+03 0.16437620E+02
+ 0.59744720E+02 0.20738089E+01 0.32926571E+02 0.33267029E+02
+-0.62995620E+01-0.50750241E+01 0.81112480E+01-0.23688071E+01
+-0.30024180E+01-0.22295680E+01-0.16201720E+03-0.33869739E+03
+-0.38369031E+03 0.11071900E+03 0.61325661E+02 0.61175591E+02
+ 0.61853989E+02 0.10088190E+02-0.87520494E+01 0.14182060E+02
+-0.16897660E+01 0.11388150E+02-0.47053132E+01-0.71191083E+03
+ 0.47590979E+03 0.32408669E+02-0.40708778E+02 0.77578110E+02
+-0.68195168E+02 0.78010292E+02 0.30181259E+02-0.60889298E+00
+ 0.11852460E+01 0.55672140E+01-0.72589648E+00-0.15272850E+00
+ 0.27036991E+01 0.84782839E+01-0.14386011E+03 0.98692379E+01
+ 0.37683979E+02-0.16823910E+02 0.16632530E+02 0.31015069E+01
+ 0.22452669E+01-0.35055051E+01 0.85617399E+00 0.36276040E+01
+ 0.19015369E+01-0.94913193E+02 0.12406560E+03-0.20951540E+02
+-0.30039709E+02 0.27554209E+01-0.12694700E+02-0.14279710E+02
+ 0.31088140E+01 0.22836220E+01-0.37182910E+01 0.11708430E+01
+ 0.14574790E+01 0.10748910E+01 0.57302319E+02 0.13839771E+03
+ 0.13532230E+03-0.42981579E+02-0.24279560E+02-0.24845501E+02
+-0.21697201E+02-0.52495718E+01 0.53198638E+01-0.51205492E+01
+ 0.15670700E+00-0.52240601E+01 0.18048260E+01 0.26910449E+03
+-0.16079131E+03 0.76308160E+01 0.18635969E+02-0.26692350E+02
+ 0.25182011E+02-0.32154819E+02-0.13170160E+02 0.95282292E+00
+-0.78835502E-01-0.27596519E+01-0.24318179E+00-0.72260059E-01
+ 0.10184630E-01-0.84341846E-01-0.35175529E+00-0.10918150E+01
+-0.11700460E+00-0.39202869E-01-0.93468577E-01-0.17803241E-01
+ 0.34170639E-01 0.60760853E-03-0.31522759E-02 0.36570930E-02
+ 0.11444070E-02 0.20235950E+00 0.34723929E+00-0.68711102E-01
+ 0.10160420E+00-0.10858480E+01 0.10023080E+00-0.30980790E-01
+-0.35192922E-01-0.18033020E-01 0.46674921E-02 0.30495550E-02
+-0.16549580E-02 0.43553892E-02-0.15025000E+00 0.16964310E+00
+-0.92574900E+00 0.67204779E+00 0.14076670E+01-0.13709760E+00
+-0.35892400E+00 0.20159760E-01-0.18245260E-02-0.16464319E-01
+-0.15488920E-01-0.17919350E-01-0.20813350E-01-0.42540899E+00
+ 0.98540002E+00 0.39511350E+00-0.14136080E+01 0.77487338E+00
+ 0.37437239E+00-0.11322990E+00 0.35790759E-02 0.11173480E+00
+-0.13140390E-02-0.85439760E-03 0.10450610E-01-0.16011899E-01
+-0.58807212E+00 0.33624640E+01 0.57728791E+00 0.41811471E+01
+ 0.25611989E+01-0.66848743E+00 0.13336380E+01 0.63115060E-01
+-0.65118879E+00-0.10455240E-01 0.13485780E+00-0.91024414E-01
+-0.53035710E-01-0.55290909E+01-0.14113590E+00 0.36626880E+01
+-0.21364851E+01 0.40654569E+01-0.14813570E+01-0.95697087E+00
+ 0.65889502E+00 0.19581690E+00-0.14942540E+00-0.11009950E+00
+ 0.48724201E-01-0.82364030E-01 0.10990410E+01 0.35111120E+01
+ 0.48738308E+01-0.42536278E+01-0.72098341E+01 0.43819189E+00
+ 0.17348070E+01 0.36109629E+00-0.67476101E-01 0.22985460E+00
+ 0.23988301E+00 0.84878489E-01 0.26211029E+00-0.20516641E+01
+-0.42267962E+01 0.43997890E+00 0.75124049E+01-0.59224238E+01
+-0.16991880E+01 0.25046211E+00-0.15681361E+00-0.49636531E+00
+-0.15296550E-01 0.38011860E-01-0.16307680E+00 0.49596701E-01
+ 0.13981950E+02-0.63137188E+01-0.12499450E+02 0.12973920E+01
+ 0.92345963E+01 0.65217189E-01-0.78659868E+01 0.85080189E+00
+ 0.29913199E+01-0.10919060E+00-0.10441530E+01 0.44777501E+00
+ 0.25115180E+00 0.28866970E+02 0.10932660E+02-0.91267595E+01
+-0.10530710E+02 0.54512292E+00 0.81057367E+01 0.13625129E+01
+-0.32786169E+01 0.43640170E-01 0.12675310E+01 0.18062870E+00
+-0.19847509E+00 0.82459711E-01-0.25856559E+01-0.14650370E+02
+-0.12125570E+02 0.92457180E+01 0.12137190E+02-0.16125880E+01
+-0.28210299E+01-0.10685530E+01 0.72664069E-02-0.73785621E+00
+-0.76944798E+00-0.12479120E+00-0.72430110E+00 0.92724123E+01
+ 0.90266981E+01-0.70786672E+01-0.12706510E+02 0.13638870E+02
+ 0.24667780E+01-0.12581730E+01 0.74695939E+00 0.91099912E+00
+ 0.20047240E+00-0.29334089E+00 0.49704200E+00-0.25493691E-01
+-0.33997200E+02 0.14463130E+01 0.43162861E+02-0.19212030E+02
+-0.35674889E+02 0.68503008E+01 0.15141770E+02-0.19340050E+01
+-0.44143009E+01 0.66504580E+00 0.22971580E+01-0.77163148E+00
+-0.48208061E+00-0.50747879E+02-0.40875969E+02 0.83229313E+01
+ 0.36775539E+02-0.16145491E+02-0.14726590E+02 0.48885660E+01
+ 0.51881399E+01-0.39904231E+00-0.28547800E+01 0.45355311E+00
+ 0.32393181E+00 0.26560920E+00 0.22470980E+01 0.11299700E+02
+ 0.10013010E+02-0.44765491E+01-0.29962580E+01 0.14723710E+01
+ 0.17400830E+01 0.68971801E+00 0.12623771E+00 0.61290061E+00
+ 0.69338518E+00 0.55604171E-01 0.57433039E+00-0.73480182E+01
+-0.67150350E+01 0.60173030E+01 0.31523080E+01-0.76695461E+01
+-0.13376580E+01 0.12736810E+01-0.75076109E+00-0.62371337E+00
+-0.29229951E+00 0.32949349E+00-0.42561781E+00-0.22330260E-01
+ 0.20319860E+02 0.34837720E+01-0.35799271E+02 0.16075581E+02
+ 0.28396290E+02-0.77295122E+01-0.92574492E+01 0.10850281E+01
+ 0.21590090E+01-0.66737288E+00-0.15041521E+01 0.40936419E+00
+ 0.31208950E+00 0.27568960E+02 0.33748959E+02-0.82195067E+00
+-0.28507250E+02 0.13532310E+02 0.85915012E+01-0.67809029E+01
+-0.26854789E+01 0.15776490E+00 0.18674639E+01-0.66832101E+00
+-0.18633351E+00-0.33764091E+00-0.20701710E-01-0.11111970E+00
+ 0.84433042E-01 0.10048600E+00-0.36052380E-01 0.79141758E-01
+-0.65366340E+00 0.12823290E+00-0.12797090E-01-0.44762501E-02
+ 0.62075178E-02-0.27956159E-02-0.53751218E-03-0.15708180E-03
+-0.85416727E-01-0.10025170E+00 0.27466079E-01 0.10427370E+00
+ 0.64900792E+00 0.86829454E-01 0.76634018E-02 0.12604330E+00
+-0.72913091E-02-0.53560641E-02 0.31527739E-02-0.11346870E-02
+ 0.90137303E-01 0.46922758E-01 0.56735772E+00-0.42234120E+00
+-0.72106677E+00-0.41144311E+00-0.49226010E+00 0.46920039E-01
+ 0.27787670E+00-0.84441192E-01-0.65980959E-02 0.11298190E-01
+ 0.24952181E-01-0.56372348E-01-0.47994110E+00 0.82827322E-01
+ 0.70266241E+00-0.44852930E+00 0.50150251E+00-0.38590851E+00
+-0.28345421E+00 0.25654331E-01 0.15351590E-02-0.70287161E-01
+-0.73129740E-02 0.78039570E-02 0.41958359E+00 0.25371051E+00
+ 0.98500639E-01-0.83435762E+00 0.88608652E-01 0.20164990E+00
+ 0.15513140E+01-0.20930590E+00 0.21558440E+00 0.68306282E-01
+-0.14061630E-01 0.86097009E-01 0.46594520E-03-0.60970780E-01
+ 0.15800139E+00 0.24322680E+00 0.18073650E+00-0.85911918E+00
+-0.14403030E+01 0.18433011E+00-0.17458230E+00-0.13860311E+00
+ 0.51113442E-01 0.89647979E-01-0.62168062E-01 0.29876130E-01
+-0.13675220E+00-0.13870861E+00-0.12698720E+01 0.96812081E+00
+ 0.13074800E+01 0.42356679E+00 0.62386918E+00 0.65333337E-01
+-0.59967208E+00 0.10895690E+00 0.15210520E-02-0.31656660E-01
+-0.38426239E-01 0.98145522E-01 0.11944790E+01-0.27983910E+00
+-0.12805500E+01 0.10303680E+01-0.63847941E+00 0.37983191E+00
+ 0.60305637E+00 0.96196599E-01 0.11009260E-01 0.86159691E-01
+ 0.16168080E-01-0.33835579E-01-0.73523468E+00 0.46487039E+00
+ 0.79518668E-01 0.15661629E+01-0.59225857E+00-0.88599408E+00
+-0.16461530E+01-0.49013939E-01-0.21014720E+00-0.16851071E+00
+ 0.59807979E-01-0.13704060E+00-0.20281419E-01 0.14979880E-01
+-0.50256830E+00 0.46179599E+00 0.17664540E+00 0.16024460E+01
+ 0.14607900E+01-0.88975918E+00 0.16380440E+00-0.16159950E+00
+-0.12263820E+00-0.19909960E+00 0.11634420E+00-0.43064050E-01
+ 0.33948180E-03-0.13771890E-01 0.78002848E-02-0.27920131E-01
+ 0.13640590E+00-0.50621320E-01 0.16448680E-01 0.19422241E+00
+-0.64901210E-01-0.14990950E-01 0.36912721E-01-0.60261069E-02
+-0.75954399E-02-0.22846099E-02 0.25683029E-02 0.85167837E-03
+-0.14005570E+00-0.19403631E-01-0.15215300E-01-0.50383478E-01
+ 0.63196063E-01 0.18969730E+00-0.35625439E-01-0.14675240E-01
+ 0.80288537E-02-0.13898989E-02-0.16134050E-02 0.58056559E-01
+ 0.60063649E-01 0.78035720E-01-0.18546481E-01 0.56693781E-01
+ 0.28808350E-01 0.92327222E-01-0.40148729E+00 0.10898440E+00
+-0.25290539E-01-0.11991150E-01-0.31001169E-01 0.88178068E-02
+-0.43934271E-01 0.12690119E+00 0.38556419E-01 0.90678841E-01
+-0.19225340E-01 0.48612691E-01 0.39647430E+00 0.99141583E-01
+ 0.26517831E-01 0.10261170E+00 0.20268209E-01-0.12378940E-01
+ 0.36646731E-03-0.23064760E-02-0.12651730E-01-0.58592171E-02
+ 0.34373719E-02 0.81703868E-02-0.61035141E-01-0.60017690E-01
+-0.37434101E-01-0.57037432E-01 0.14097230E+00 0.92064813E-02
+ 0.80066659E-02-0.70368438E-02-0.45594410E-02 0.62744208E-02
+ 0.40884609E-02 0.38853111E-02 0.52213389E-01 0.10355330E-01
+ 0.35811409E-01-0.59912559E-01-0.14060210E+00-0.58218010E-01
+-0.81659025E-02 0.79316879E-02-0.40322810E-03 0.80778087E-02
+-0.75048478E-02 0.92137809E-03 0.20685610E-02 0.11596230E-01
+ 0.60638590E-02 0.39515331E-01-0.12369930E-01 0.25724540E-01
+ 0.19895630E-01-0.29785220E-01-0.53051669E-01-0.36662989E-02
+-0.36769561E-02 0.56134448E-02 0.51562828E-02-0.19659840E-02
+-0.73440168E-02 0.10813690E-01 0.10089160E-01 0.36480300E-01
+-0.18298620E-01 0.26400911E-01 0.52671980E-01-0.28399650E-01
+ 0.86689685E-02 0.10840720E-01 0.17069140E-02-0.48611369E-02
+-0.35868860E-02 0.32966321E-02-0.20997440E-02-0.42382120E-02
+ 0.39324909E-03 0.35559940E-02 0.21434890E-02-0.90557355E-02
+ 0.63939081E-02-0.44107502E-02 0.26520600E-02-0.83526988E-02
+ 0.74119372E-02-0.88619068E-02 0.17412649E-02 0.38183371E-02
+-0.56528999E-02-0.21837440E-02 0.31317170E-02-0.85718202E-04
+-0.83503285E-02-0.11379980E-01 0.72156959E-02 0.64711999E-02
+ 0.36653040E-02-0.83353948E-02 0.35570730E-02-0.43507901E-03
+ 0.68059820E-03-0.24130810E-02-0.51638251E-02-0.32393029E-02
+-0.57441331E-02 0.22963299E-02-0.17053351E-01-0.15361290E-01
+-0.45531932E-02 0.10725630E-01 0.21321389E-02-0.17331790E-01
+-0.54485491E-02-0.34083100E-02 0.99573622E-03 0.94550647E-04
+-0.60333748E-03-0.67667020E-02 0.15221640E-01 0.59372191E-02
+ 0.96284885E+01 0.19501190E+00-0.19579969E+00-0.24831049E-01
+-0.41711960E-01 0.51581990E-02 0.16560830E-02-0.22767400E-02
+ 0.70968769E-02-0.22012719E-02-0.29952191E-02-0.13274300E-02
+ 0.24833290E-02 0.11467090E+01-0.16395600E+00-0.67397821E+00
+ 0.17819449E+00-0.38481000E+00 0.79030909E-01-0.61746892E-01
+-0.91665819E-01 0.76701522E-01 0.34421422E-01-0.75666029E-02
+-0.63718632E-02-0.12139630E-01 0.13128820E+02 0.67099363E+00
+ 0.19239330E+01 0.13531710E+01 0.82242900E+00 0.62447019E-01
+-0.21274380E-01-0.25851680E-01-0.13827060E+00 0.37942011E-01
+ 0.11413150E+00 0.11144960E+00-0.93378551E-01-0.36690831E+01
+ 0.51047359E+01 0.14676740E+02 0.38888341E+00 0.10372470E+02
+-0.11578780E+01 0.75564718E+00 0.14234360E+01-0.14217499E+01
+-0.39190441E+00 0.16920830E+00 0.24575859E+00 0.30944940E+00
+-0.58432899E+02 0.12354410E+01-0.10621070E+02-0.88357573E+01
+-0.50779879E+00-0.92240542E+00 0.24699900E-01 0.48261720E+00
+ 0.44778839E+00-0.22713900E+00-0.56520373E+00-0.86308599E+00
+ 0.74109483E+00-0.68869926E+02-0.42968189E+02-0.63538971E+02
+-0.65977859E+01-0.52404579E+02 0.51041341E+01-0.38999619E+01
+-0.57649450E+01 0.66761541E+01 0.12803550E+01-0.11791760E+01
+-0.16737731E+01-0.14349990E+01 0.74471603E+02-0.22395910E+02
+ 0.33696571E+02 0.23676310E+02-0.53152962E+01 0.28491781E+01
+ 0.21091370E+00-0.16801940E+01-0.57302302E+00 0.55848438E+00
+ 0.10460449E+01 0.22690811E+01-0.20185511E+01 0.26457721E+03
+ 0.11751350E+03 0.92166702E+02 0.17163731E+02 0.10899190E+03
+-0.95902748E+01 0.85555925E+01 0.98357134E+01-0.13108270E+02
+-0.17719610E+01 0.32127421E+01 0.41658349E+01 0.26722701E+01
+-0.45184780E+02 0.34854321E+02-0.44445629E+02-0.27247850E+02
+ 0.10564790E+02-0.32834880E+01-0.48660561E+00 0.21704481E+01
+ 0.31986129E+00-0.57796341E+00-0.81538987E+00-0.24532421E+01
+ 0.22515559E+01-0.32825699E+03-0.12517580E+03-0.44849659E+02
+-0.16784519E+02-0.10108460E+03 0.81252432E+01-0.82887783E+01
+-0.75845389E+01 0.11638680E+02 0.10758981E+01-0.36845760E+01
+-0.43685942E+01-0.22190681E+01 0.11425580E+02-0.14459900E+02
+ 0.19670271E+02 0.11141180E+02-0.55907698E+01 0.12952600E+01
+ 0.27403989E+00-0.95130110E+00-0.64058498E-01 0.21092530E+00
+ 0.22054809E+00 0.93957341E+00-0.88669503E+00 0.13504601E+03
+ 0.45668789E+02 0.21848271E+01 0.56430669E+01 0.34537521E+02
+-0.25586801E+01 0.29457660E+01 0.21830411E+01-0.38676469E+01
+-0.22550631E+00 0.14962050E+01 0.16418760E+01 0.68453163E+00
+-0.36887759E+00 0.12587399E+01 0.23510721E+01 0.71541473E-01
+ 0.36956501E+00 0.43759070E-01-0.94331369E-01-0.47646938E-02
+ 0.58566229E-02-0.63238782E-02-0.48489901E-02 0.21931869E-02
+ 0.11399460E-02-0.31223169E+00-0.22550349E+01 0.12896039E+01
+-0.36031380E+00 0.71099758E-01 0.72340369E-01 0.34621641E-01
+-0.50373040E-02-0.19475500E-02 0.17116130E-02-0.57764631E-02
+ 0.38072569E-02 0.35577440E-02-0.55069512E+00 0.17002430E+01
+ 0.21135511E+00-0.75259879E-02 0.10190500E+01 0.17380150E+00
+ 0.79053152E+00-0.11286620E+00 0.18715130E+00 0.18664479E-01
+-0.30037319E-01-0.37320131E-02 0.98411953E-02-0.20203540E+01
+ 0.15619080E+01 0.21787009E+01-0.65413952E+00 0.77045888E-01
+-0.70328438E+00 0.13420920E-01-0.10642590E+00 0.11788580E+00
+ 0.28723929E-01-0.27743710E-01-0.80585398E-01 0.54694392E-01
+ 0.11828930E+02 0.61638422E+01-0.47620740E+01-0.16398790E+01
+-0.23273430E+01-0.87360853E+00 0.22726240E+01 0.46158981E-01
+-0.13899770E+00 0.15845659E+00 0.17610680E+00 0.42066101E-01
+-0.69105871E-01-0.11099150E+01 0.10311490E+01 0.97531843E+01
+ 0.19353340E+01-0.20663550E+01-0.15984370E+01-0.10013850E+01
+ 0.13568850E+00 0.23896630E+00-0.57179999E-01 0.15946341E+00
+-0.76448344E-01-0.73202521E-01 0.21009840E+02-0.12513780E+02
+ 0.28597080E+02-0.84406242E+01-0.89299173E+01-0.59740119E+01
+-0.11866820E+02 0.19587930E+01-0.33705671E+01-0.98833382E-01
+ 0.45938429E+00 0.47398430E+00-0.36291799E+00 0.50399971E+02
+-0.46955029E+02-0.18240990E+02 0.16853130E+01-0.95248232E+01
+ 0.11568290E+02-0.33427720E+01 0.14789640E+01-0.15307291E+01
+-0.36369181E+00 0.48892841E+00 0.16534801E+01-0.57350600E+00
+-0.73995720E+02-0.97225447E+01 0.65968872E+02 0.38246570E+01
+ 0.78437370E+00 0.66756139E+01-0.14491680E+02 0.19761190E+00
+ 0.36566859E+00-0.10407701E+01-0.94432861E+00-0.66013688E+00
+ 0.29195061E+00 0.46047272E+02-0.42809059E+02-0.16135771E+02
+-0.18380710E+01 0.81830320E+01 0.90981331E+01 0.91560888E+01
+-0.80974609E+00-0.31222701E+01 0.58456588E+00-0.11843040E+01
+ 0.69489348E+00 0.38552129E+00-0.11146010E+03 0.45114188E+01
+-0.13701691E+03 0.57630810E+02 0.42483521E+02 0.38862751E+02
+ 0.55927670E+02-0.77770710E+01 0.16325199E+02 0.25004810E+00
+-0.20492001E+01-0.35402839E+01 0.30699270E+01-0.26286761E+03
+ 0.20470190E+03 0.81591400E+02-0.41519961E+01 0.57898312E+02
+-0.59112949E+02 0.27595070E+02-0.43971391E+01 0.63552251E+01
+ 0.10991271E+01-0.17416739E+01-0.95176859E+01 0.28108540E+01
+ 0.18466029E+03-0.40856121E+02-0.23074809E+03 0.48420262E+01
+ 0.11357500E+02-0.17827250E+02 0.39417061E+02-0.10721700E+01
+-0.13964230E+00 0.25862000E+01 0.18845870E+01 0.20094261E+01
+-0.20292249E+00-0.17856419E+03 0.16307291E+03-0.68113426E+02
+-0.22101910E+01-0.94215717E+01-0.23437660E+02-0.26125990E+02
+ 0.19707561E+01 0.11076480E+02-0.16904900E+01 0.33785369E+01
+-0.23893189E+01-0.94247723E+00 0.24032230E+03 0.47968540E+02
+ 0.25760260E+03-0.14146719E+03-0.10397110E+03-0.94209091E+02
+-0.11519610E+03 0.12377970E+02-0.32728619E+02-0.75343001E+00
+ 0.44258261E+01 0.94458780E+01-0.91479473E+01 0.55174353E+03
+-0.37656461E+03-0.19870570E+03 0.19916790E+02-0.13094749E+03
+ 0.12949361E+03-0.74089104E+02 0.27173121E+01-0.11671750E+02
+-0.13233120E+01 0.18301359E+01 0.22790310E+02-0.65149851E+01
+-0.20098740E+03 0.91672729E+02 0.32541409E+03-0.19536551E+02
+-0.19533529E+02 0.19040609E+02-0.47321178E+02 0.14542370E+01
+-0.33837020E+00-0.26848459E+01-0.15329640E+01-0.22515740E+01
+-0.38264969E+00 0.22596350E+03-0.23407590E+03 0.17001109E+03
+ 0.47976031E+01-0.16375030E+01 0.27896481E+02 0.29223660E+02
+-0.20370221E+01-0.14907950E+02 0.18476911E+01-0.41223869E+01
+ 0.33381381E+01 0.10704200E+01-0.23588120E+03-0.52461720E+02
+-0.19083299E+03 0.14744209E+03 0.11612170E+03 0.97812927E+02
+ 0.10824890E+03-0.85197287E+01 0.29167509E+02 0.11555589E+01
+-0.46179762E+01-0.10662680E+02 0.11186840E+02-0.50595099E+03
+ 0.29079529E+03 0.24075150E+03-0.34376469E+02 0.12744820E+03
+-0.12769430E+03 0.81901451E+02 0.37394040E+01 0.98592052E+01
+ 0.61776960E+00-0.19001840E-01-0.24244320E+02 0.68933272E+01
+ 0.80101448E+02-0.48327450E+02-0.15959940E+03 0.12903600E+02
+ 0.99684258E+01-0.70428939E+01 0.20504681E+02-0.64083439E+00
+ 0.25649080E+00 0.98780942E+00 0.40187690E+00 0.85662550E+00
+ 0.38743779E+00-0.93135559E+02 0.11551120E+03-0.98700958E+02
+-0.29117589E+01 0.51091208E+01-0.12251330E+02-0.11314580E+02
+ 0.71089429E+00 0.68038430E+01-0.67284280E+00 0.18207901E+01
+-0.16175810E+01-0.45135561E+00 0.86549950E+02 0.99114342E+01
+ 0.41477951E+02-0.55913631E+02-0.46782742E+02-0.36880852E+02
+-0.38067108E+02 0.21025939E+01-0.95412197E+01-0.55642837E+00
+ 0.18233210E+01 0.43284121E+01-0.48129482E+01 0.17031790E+03
+-0.72874817E+02-0.10846820E+03 0.17562960E+02-0.45708179E+02
+ 0.46698841E+02-0.32329029E+02-0.36074750E+01-0.30877531E+01
+-0.65457799E-01-0.52275640E+00 0.94774895E+01-0.26909101E+01
+ 0.59596241E-01-0.37282249E+00-0.34304979E+00-0.10464650E+01
+ 0.35420310E+00-0.87546900E-01-0.73619567E-01-0.40403572E-02
+-0.29591899E-02 0.96520880E-03-0.49183411E-02-0.13973300E-02
+ 0.14613380E-02 0.14340220E+00 0.33300641E+00-0.34424540E+00
+-0.34495640E+00-0.10313610E+01 0.66081688E-01-0.93095079E-01
+-0.97486470E-03 0.43580998E-02 0.57285400E-02-0.51557308E-03
+-0.18902590E-02-0.14829120E-02 0.22224090E+00-0.40680799E+00
+-0.43137750E+00-0.48699880E+00 0.10986980E+01 0.24484560E+00
+-0.52977449E+00-0.61204091E-01 0.65512508E-01-0.20887099E-01
+-0.17253030E-01 0.33178989E-01-0.45695260E-01 0.35905820E+00
+ 0.51933533E+00-0.23252840E+00-0.10656050E+01-0.46469501E+00
+ 0.64266407E+00 0.30736959E+00-0.11319800E+00 0.39936181E-01
+ 0.19473590E-01-0.39732289E-01 0.39602742E-01 0.86068371E-02
+-0.85870183E+00 0.48203759E+01-0.52255487E+00-0.33748529E+01
+ 0.38743931E+00-0.63590038E+00-0.78105110E+00 0.64727468E-02
+ 0.88330412E+00-0.39210211E-01 0.17789710E+00 0.85012101E-01
+-0.10835870E+00-0.61048040E+01 0.10752389E+01 0.43505359E+01
+-0.69485378E+00-0.38907671E+01 0.89279532E+00-0.55350071E+00
+-0.90994060E+00-0.27065429E+00-0.17279109E+00-0.30864749E-01
+ 0.12585680E+00 0.36727719E-01-0.42969198E+01 0.32423489E+01
+-0.20958410E+00-0.35327599E+01-0.70279679E+01-0.18557780E+01
+ 0.14134300E+01 0.95407301E+00 0.11593560E+01 0.30581239E+00
+ 0.32294929E+00-0.35247490E+00 0.38312569E+00-0.10232320E+02
+ 0.91072178E+00 0.27108929E+00 0.59438691E+01-0.44791188E+01
+-0.23946421E+01-0.20359890E+01-0.48796490E+00-0.32995141E+00
+-0.43832070E+00 0.57509232E+00-0.39392591E+00-0.11138600E-01
+ 0.12393790E+02-0.18426210E+02-0.92137947E+01 0.24134090E+02
+ 0.99669657E+01-0.49324972E-02 0.21861191E+01 0.35604471E+00
+-0.51008401E+01 0.80751069E-01-0.11438750E+01-0.61847031E+00
+ 0.54685539E+00 0.31553020E+02 0.70527139E+01-0.17191240E+02
+-0.81471024E+01 0.26857660E+02-0.29368651E+01-0.35288841E+00
+ 0.54443102E+01 0.15362310E+01 0.12042160E+01-0.12713040E-01
+-0.70505679E+00-0.11419670E+00 0.12926480E+02-0.90694847E+01
+-0.90353960E+00 0.12379880E+02 0.88302269E+01 0.37162449E+01
+-0.83224231E+00-0.25944271E+01-0.46280532E+01-0.10194710E+01
+-0.99342638E+00 0.86833799E+00-0.89715040E+00 0.27415461E+02
+-0.27297449E+01-0.11405040E+01-0.48825049E+01 0.15323110E+02
+ 0.29966040E+01 0.36942360E+01 0.28787260E+01 0.73446208E+00
+ 0.13639470E+01-0.17796440E+01 0.96001792E+00-0.41109920E-02
+-0.30313801E+02 0.35071918E+02 0.36823280E+02-0.42786751E+02
+-0.31708309E+02 0.71974692E+01-0.18671530E+01-0.58867770E+00
+ 0.96084480E+01 0.19891210E+00 0.22458980E+01 0.12644570E+01
+-0.95955467E+00-0.56375820E+02-0.33488899E+02 0.35272461E+02
+ 0.28585199E+02-0.47845760E+02 0.35449250E+01 0.78323021E+01
+-0.10371480E+02-0.24225290E+01-0.24938619E+01 0.43806100E+00
+ 0.13567390E+01 0.60871430E-01-0.10386900E+02 0.69208822E+01
+ 0.42364688E+01-0.60659251E+01 0.38421459E+01-0.20417271E+01
+-0.22621290E-02 0.19797330E+01 0.39993839E+01 0.88215208E+00
+ 0.84957868E+00-0.61547601E+00 0.64201832E+00-0.18833740E+02
+ 0.20773079E-01 0.11675720E+01-0.74799819E+01-0.84217024E+01
+-0.14068720E+01-0.18433909E+01-0.27634621E+01-0.40796191E+00
+-0.11440001E+01 0.14665700E+01-0.68833971E+00-0.61714309E-02
+ 0.19268570E+02-0.22212521E+02-0.31150900E+02 0.25884130E+02
+ 0.27733480E+02-0.81040173E+01 0.68750672E-01 0.13574570E+00
+-0.55781441E+01-0.34443229E+00-0.13116781E+01-0.78761661E+00
+ 0.56457061E+00 0.30667931E+02 0.29071480E+02-0.23172729E+02
+-0.26252310E+02 0.28868799E+02-0.12118270E+01-0.85027323E+01
+ 0.60447450E+01 0.11272629E+01 0.15193220E+01-0.51531208E+00
+-0.85836869E+00 0.24981560E-01-0.15525800E-01 0.40006559E-01
+ 0.18028259E+00 0.31185570E+00 0.98996729E-01-0.28018421E-01
+-0.87832803E+00 0.98723806E-01-0.64053059E-01-0.25010630E-02
+-0.20941921E-01-0.77168673E-03-0.32145661E-03 0.30606401E-02
+-0.19874080E+00 0.54636091E-01-0.10169330E+00 0.31693870E+00
+ 0.87301129E+00-0.21103760E-01 0.60831811E-01 0.94706237E-01
+ 0.20121180E-01-0.26446481E-02 0.31416880E-02-0.12369830E-02
+ 0.16671580E+00 0.96041158E-01 0.71739501E+00 0.21866930E+00
+-0.14487951E+00-0.17210440E+00-0.93858498E+00 0.31728491E-01
+ 0.30948621E+00-0.10467090E+00-0.96853472E-01 0.65768370E-02
+ 0.20237840E-02-0.51049441E-01-0.56650358E+00 0.42458650E-01
+ 0.86720243E-01 0.14350480E+00 0.90880853E+00-0.14546549E+00
+-0.29311410E+00 0.20764410E-01 0.98623186E-01-0.10262800E+00
+ 0.31079799E-02 0.33360209E-01 0.28082380E+00-0.38594720E+00
+ 0.14961700E+00-0.17228720E+01-0.13379510E+00 0.11174639E+01
+ 0.16867681E+01 0.53911728E+00 0.71514899E+00-0.50793432E-01
+-0.32005642E-01 0.72447456E-01-0.36278389E-01-0.89257330E-01
+ 0.31790361E+00-0.49690160E+00 0.30044061E+00-0.17700430E+01
+-0.16014440E+01 0.11029480E+01-0.70779139E+00 0.59897411E+00
+ 0.73862590E-01-0.57325199E-01-0.14566130E-01 0.55783790E-01
+-0.32665509E+00-0.19762370E+00-0.14590410E+01-0.21347280E+00
+ 0.32059291E+00-0.76371562E+00 0.13147089E+01-0.18415540E-01
+-0.59770119E+00 0.76679014E-01 0.18275081E+00-0.33858269E-01
+-0.17041171E-02 0.54176651E-01 0.13028440E+01-0.22137190E+00
+-0.22800000E+00-0.50880302E-01-0.12785430E+01-0.81724739E+00
+ 0.56624627E+00-0.51032230E-02-0.17959070E+00 0.71835130E-01
+ 0.50151051E-03-0.76661997E-01-0.57937479E+00 0.19782070E+01
+-0.59504080E+00 0.21420751E+01-0.51037312E+00-0.30150781E+01
+-0.19165210E+01-0.11915669E+01-0.97079003E+00-0.92780799E-01
+ 0.13327920E+00-0.14575469E+00 0.34130689E-01 0.51723450E-01
+-0.15864640E+00 0.20343630E+01 0.22386891E+00 0.21948349E+01
+ 0.17860630E+01-0.30127599E+01 0.97777277E+00-0.12859300E+01
+-0.20842481E+00-0.82217507E-01 0.38693350E-01-0.11182710E+00
+ 0.45403261E-02 0.14649720E-02 0.13181260E-01-0.62666386E-01
+ 0.71977198E-01-0.96918121E-01 0.65329321E-01 0.25822529E+00
+-0.97909577E-01-0.17327821E-01 0.61242230E-01-0.47546020E-03
+-0.14352660E-01 0.44633672E-02 0.78470204E-02 0.13462390E-01
+-0.67363583E-01-0.58617242E-01-0.71192101E-01-0.96482873E-01
+ 0.99448301E-01 0.25716570E+00-0.59023999E-01-0.15080840E-01
+ 0.15283670E-01 0.26847981E-02 0.14811030E-02 0.10602090E+00
+ 0.68910889E-01 0.89571036E-01 0.70810050E-01-0.49575329E-01
+ 0.14018101E+00 0.16200310E+00-0.43491331E+00 0.82257234E-01
+ 0.22276189E-01-0.14515770E-01 0.47137411E-02-0.23101780E-02
+ 0.49243858E-02 0.13882200E+00-0.30626550E-01 0.84460951E-01
+-0.14413150E+00-0.45453019E-01 0.43614450E+00 0.17342690E+00
+-0.19626820E-01 0.70256777E-01-0.78137098E-02-0.19027369E-01
+-0.26816109E-03-0.31883230E-02-0.11774970E-01 0.44252882E-02
+-0.70335870E-02 0.44712380E-01-0.46294142E-01-0.74097529E-01
+-0.28211970E-01-0.42082310E-01 0.18257050E+00-0.12167680E-01
+ 0.20715110E-01 0.18522880E-02-0.23976199E-02 0.12912270E-01
+ 0.92243841E-02 0.11415030E-01 0.41903071E-01 0.49299300E-01
+ 0.27503129E-01-0.78749008E-01-0.18232881E+00-0.44786841E-01
+-0.19130250E-01-0.13659580E-01-0.31277661E-02 0.15017120E-01
+-0.35266159E-03-0.20959771E-02-0.48644789E-02 0.23563220E-02
+ 0.11707350E-01 0.26101230E-01-0.83386078E-02 0.31833421E-01
+-0.17810120E-02-0.52914601E-01-0.29360240E-01-0.36539370E-02
+-0.65840111E-03 0.17975710E-02 0.59035891E-02 0.47688172E-02
+-0.13606490E-01 0.56021241E-02 0.50574089E-02 0.27833020E-01
+ 0.46377741E-02 0.35108000E-01 0.32008670E-01-0.50830889E-01
+ 0.57936148E-02 0.97931344E-02-0.19251390E-02-0.18068840E-02
+-0.81235189E-02 0.30444449E-03 0.65882842E-03-0.68939761E-02
+-0.27498789E-03-0.31599790E-01 0.87172966E-02 0.29712070E-01
+ 0.28073620E-01-0.15142800E-02-0.21937350E-02-0.48691742E-02
+ 0.26633169E-02 0.14121250E-02-0.12898550E-02 0.47803191E-02
+-0.36497531E-02-0.10768090E-01-0.57854061E-02-0.37247252E-01
+-0.26766770E-01 0.25361219E-01 0.20450291E-02-0.76251093E-03
+ 0.28976360E-02-0.38454530E-02 0.39040479E-02-0.18886470E-02
+ 0.36303131E-02-0.23806770E-02-0.83561251E-02-0.15193369E-02
+-0.14202010E-01 0.46205800E-02-0.48615080E-02-0.43179980E-02
+ 0.36682859E-02 0.72298781E-02 0.70141582E-03-0.62325140E-02
+-0.47760769E-02-0.22993649E-02 0.40106382E-02-0.21917559E-02
+ 0.10690360E-01-0.21062421E-02 0.57226052E-02 0.41459189E-02
diff --git a/input/glow_data/iri90/ursi22.asc b/input/glow_data/iri90/ursi22.asc
new file mode 100644
index 0000000..93f285e
--- /dev/null
+++ b/input/glow_data/iri90/ursi22.asc
@@ -0,0 +1,494 @@
+ 0.62098389E+01 0.20735790E+00-0.45567921E+00-0.20987710E-01
+ 0.24311760E-01-0.21339520E-02 0.19857129E-02 0.60008271E-02
+ 0.51799398E-02-0.62090019E-02-0.15217540E-02-0.11730470E-02
+ 0.31592620E-02 0.36525771E+00 0.87987792E+00-0.64171177E+00
+ 0.87852901E+00 0.88077918E-01 0.88337429E-01 0.81454152E-02
+-0.57818741E-01 0.64914107E-01 0.55327460E-01-0.24304571E-01
+-0.17254921E-01 0.29498130E-01 0.13451340E+01-0.23080549E+01
+ 0.42067270E+01 0.35898560E+00 0.66874631E-01 0.24485800E+00
+-0.66568388E-03-0.24256550E+00-0.23929810E-01 0.19198661E+00
+ 0.82832851E-01 0.38778260E-01-0.11259330E+00-0.51127310E+01
+-0.55588498E+01 0.86584845E+01-0.11843780E+02 0.24837410E+01
+-0.10563951E+01-0.40240851E+00 0.71764767E+00-0.11300710E+01
+-0.10393350E+01 0.27525970E+00 0.24312820E+00-0.51960713E+00
+-0.73112059E+01 0.19338570E+02-0.13160420E+02-0.98619347E+01
+ 0.36528021E+00-0.14932970E+01-0.33733261E+00 0.19662910E+01
+ 0.11309200E+00-0.13885469E+01-0.28268981E+00-0.43567190E+00
+ 0.58414418E+00-0.61065289E+02-0.24129939E+01-0.35676128E+02
+ 0.48728970E+02-0.16355301E+02 0.45124369E+01 0.15878540E+01
+-0.25163400E+01 0.53204298E+01 0.48855572E+01-0.11669540E+01
+-0.11594160E+01 0.27490170E+01-0.46016870E+01-0.64102547E+02
+ 0.22897520E+02 0.36992691E+02-0.22612159E+01 0.32654319E+01
+ 0.14235620E+01-0.54965401E+01-0.39999139E+00 0.36541560E+01
+ 0.24725080E+00 0.13724951E+01-0.11553910E+01 0.26661819E+03
+ 0.58732399E+02 0.50376389E+02-0.89901291E+02 0.37941399E+02
+-0.85622091E+01-0.21210480E+01 0.37948260E+01-0.10692110E+02
+-0.96522779E+01 0.23296881E+01 0.24116750E+01-0.61297002E+01
+ 0.10035070E+02 0.78983223E+02-0.23018431E+02-0.48514870E+02
+ 0.36558690E+01-0.29158380E+01-0.19800540E+01 0.62813849E+01
+ 0.56685221E+00-0.40023260E+01 0.60917132E-01-0.16615020E+01
+ 0.98708969E+00-0.35705688E+03-0.93398720E+02-0.23133320E+02
+ 0.77731979E+02-0.37456680E+02 0.74380121E+01 0.96016479E+00
+-0.25995941E+01 0.98064137E+01 0.86453314E+01-0.21847451E+01
+-0.22707379E+01 0.60889201E+01-0.20383430E+01-0.32146400E+02
+ 0.95550699E+01 0.21196400E+02-0.18733060E+01 0.89529681E+00
+ 0.90026921E+00-0.25267410E+01-0.26320490E+00 0.15571400E+01
+-0.10818480E+00 0.69118810E+00-0.30458319E+00 0.15581599E+03
+ 0.41782070E+02 0.42183760E+00-0.25648861E+02 0.13308180E+02
+-0.24218049E+01-0.28840121E-01 0.66152871E+00-0.33778191E+01
+-0.28993461E+01 0.77267438E+00 0.79381663E+00-0.22246060E+01
+-0.23604150E+00 0.16116110E+01 0.21683240E+01-0.97400822E-01
+ 0.21953720E+00 0.16366800E-01-0.67013539E-01-0.30216109E-02
+-0.28192410E-02 0.19654811E-02 0.15702900E-02-0.13747429E-02
+ 0.32181940E-02-0.53464878E+00-0.22450421E+01 0.19926120E+01
+-0.24891680E+00-0.11081560E+00 0.70839778E-01-0.44928580E-02
+ 0.85300636E-02 0.53943438E-03-0.58044139E-02-0.64609130E-03
+-0.11430749E-02 0.17799720E-02 0.48834559E+00-0.48461869E-01
+ 0.23987880E+00 0.20721950E+00 0.78460611E-01 0.15782210E+00
+ 0.11544560E+00-0.12873540E-01 0.72276898E-01 0.35786599E-01
+ 0.51820349E-01-0.19155489E-01 0.29567720E-01-0.15995560E+01
+ 0.10114110E+01 0.21603179E+01 0.86036183E-01 0.21683970E+00
+ 0.13305770E+00 0.72615527E-01-0.59175689E-01-0.12808090E-01
+ 0.67325551E-02-0.54327261E-01-0.48682250E-01 0.79888420E-03
+ 0.76960392E+01 0.29369751E+00 0.67862411E+01 0.17508910E+01
+-0.83193749E+00-0.19622619E+00 0.15479480E+01-0.29307129E-02
+ 0.43024150E+00-0.13537970E+00-0.12677350E-01 0.15429500E+00
+-0.14500269E+00-0.18526020E+01-0.13917570E+02-0.19868370E+01
+ 0.20014110E+01 0.21175210E+01-0.14365489E+01 0.19808500E+00
+-0.13828680E+00 0.31184470E-01 0.22847550E+00-0.38240619E-01
+-0.22589041E-01-0.52189790E-01 0.12631230E+02 0.58632529E+00
+ 0.24941210E+02-0.88450422E+01 0.43093758E+01-0.54680290E+01
+-0.17364030E+01 0.12072190E+00-0.88902432E+00-0.96983713E+00
+-0.11017489E+01 0.28345039E+00-0.56173378E+00 0.38624962E+02
+-0.43465889E+02-0.25525600E+02-0.68282089E+01-0.86466837E+01
+-0.14690660E+01-0.35845339E+01 0.46258000E+00 0.60691881E+00
+-0.30772680E+00 0.66706520E+00 0.91042089E+00 0.10605710E+00
+-0.33948299E+02-0.25079029E+02-0.17398800E+02-0.12071970E+02
+-0.70437131E+01-0.36129019E+00-0.55321641E+01 0.10069700E+01
+-0.40794520E+01 0.13122940E+01 0.43865468E-01-0.18912550E+01
+ 0.10019730E+01 0.30577360E+02 0.55336891E+02-0.47605262E+01
+-0.10707630E+01-0.16432800E+02 0.37741930E+01-0.25884471E+01
+ 0.14908829E+00 0.53713560E+00-0.21121190E+01 0.98835200E+00
+ 0.58763438E+00 0.32731330E+00-0.82545128E+02-0.53609379E+02
+-0.15999820E+03 0.65094254E+02-0.17913071E+02 0.35810200E+02
+ 0.14435490E+02 0.17316020E+01 0.11501940E+01 0.58390970E+01
+ 0.75091619E+01-0.11945970E+01 0.35295770E+01-0.23974690E+03
+ 0.24333650E+03 0.72267014E+02 0.35565788E+02 0.55144798E+02
+-0.82227878E-01 0.24866240E+02 0.68286860E+00-0.31697769E+01
+ 0.15059700E+01-0.19624400E+01-0.53204799E+01-0.10389020E+01
+ 0.55267799E+02 0.83514221E+02-0.19857559E+02 0.35115570E+02
+ 0.34521309E+02 0.24054849E+01 0.72560868E+01-0.43139238E+01
+ 0.12069230E+02-0.41020298E+01-0.31177020E-01 0.64152150E+01
+-0.24331341E+01-0.10210080E+03-0.47958981E+02 0.81374627E+00
+-0.13617100E+02 0.49802860E+02-0.38432080E+00 0.81024342E+01
+ 0.13208210E+01-0.28205230E+01 0.66028900E+01-0.37841351E+01
+-0.22363620E+01-0.85973662E+00 0.18509940E+03 0.18125510E+03
+ 0.37895871E+03-0.17497681E+03 0.20987841E+02-0.87393280E+02
+-0.40150318E+02-0.84348145E+01 0.43529682E+01-0.14060360E+02
+-0.20069309E+02 0.21535940E+01-0.90500383E+01 0.59491241E+03
+-0.54494739E+03-0.94176613E+02-0.70012253E+02-0.13444720E+03
+ 0.10751980E+02-0.61973572E+02-0.71355939E+01 0.68508191E+01
+-0.30366180E+01 0.15002340E+01 0.12774620E+02 0.30904880E+01
+-0.37877071E+02-0.10941260E+03 0.72688110E+02-0.43318050E+02
+-0.51021889E+02-0.31973469E+01-0.31390021E+01 0.60743890E+01
+-0.14307430E+02 0.51727190E+01-0.12474550E+00-0.83803520E+01
+ 0.24476621E+01 0.12341520E+03-0.23381651E+02 0.17059629E+02
+ 0.28371099E+02-0.62656582E+02-0.67386479E+01-0.98664942E+01
+-0.30675311E+01 0.43000579E+01-0.82965660E+01 0.51290932E+01
+ 0.30168171E+01 0.99287772E+00-0.17498441E+03-0.20570219E+03
+-0.37750009E+03 0.19480769E+03-0.44979491E+01 0.91742729E+02
+ 0.45520691E+02 0.12076120E+02-0.10144810E+02 0.14773590E+02
+ 0.22951460E+02-0.16975210E+01 0.10060880E+02-0.63123651E+03
+ 0.52825879E+03 0.63888329E+02 0.62121040E+02 0.13912109E+03
+-0.17400431E+02 0.65983788E+02 0.11788960E+02-0.69778090E+01
+ 0.28435071E+01 0.87841809E+00-0.13434220E+02-0.35842209E+01
+ 0.91181049E+01 0.49796341E+02-0.44790791E+02 0.18875080E+02
+ 0.24920361E+02 0.13285249E+01-0.15077171E+00-0.28071079E+01
+ 0.59577880E+01-0.22846749E+01 0.14356680E+00 0.37547410E+01
+-0.87454307E+00-0.51181648E+02 0.32571491E+02-0.13933880E+02
+-0.16153179E+02 0.27601561E+02 0.48919382E+01 0.41926341E+01
+ 0.17600631E+01-0.21137969E+01 0.36303811E+01-0.23248010E+01
+-0.13602560E+01-0.42109889E+00 0.57960411E+02 0.77224747E+02
+ 0.13327960E+03-0.76889893E+02-0.27278371E+01-0.35067459E+02
+-0.18366070E+02-0.55226660E+01 0.55519419E+01-0.56335049E+01
+-0.94421721E+01 0.45543310E+00-0.40360579E+01 0.23969460E+03
+-0.18402319E+03-0.18373190E+02-0.21344900E+02-0.51796539E+02
+ 0.81486788E+01-0.25557880E+02-0.58537951E+01 0.27806280E+01
+-0.10305860E+01-0.10541350E+01 0.51495972E+01 0.14158040E+01
+ 0.76496892E-01-0.24858600E+00-0.38157320E+00-0.91953617E+00
+-0.23571000E+00-0.24048060E-01-0.66416368E-01 0.10606410E-01
+-0.74584391E-02 0.29585171E-02-0.60421722E-02 0.39967159E-02
+ 0.21925450E-02 0.76061659E-02 0.37754789E+00-0.22817560E+00
+ 0.23555620E+00-0.93006933E+00 0.79736806E-01-0.17167909E-01
+ 0.17837470E-01 0.18391820E-01-0.45400739E-03-0.25463330E-02
+-0.80638143E-04 0.69860951E-02-0.36333510E+00 0.22913671E+00
+-0.89054501E+00 0.28031120E+00 0.16723000E+01 0.91350511E-01
+-0.24182829E+00-0.37281580E-01-0.32290742E-01-0.19876629E-01
+ 0.12250310E-03-0.52339500E-02-0.35862101E-02-0.70188340E-03
+ 0.10352770E+01 0.34527910E+00-0.16735760E+01 0.40648580E+00
+ 0.29177630E+00 0.14297600E+00 0.57431500E-01-0.10947590E-01
+ 0.54897959E-02-0.30336550E-01-0.23752240E-01-0.10031980E-02
+ 0.49726230E+00 0.62482028E+01 0.34993491E+01 0.40684638E+01
+ 0.45100031E+01-0.73632210E+00 0.71278417E+00-0.25706959E+00
+-0.10324190E-01-0.70432678E-01 0.17544630E+00-0.73429622E-01
+-0.48671290E-01-0.32346001E+01-0.30955920E+01 0.63121681E+01
+-0.44025521E+01 0.43752899E+01-0.91094142E+00-0.99670798E+00
+-0.28918281E+00-0.25940210E+00-0.63360348E-01 0.54525249E-01
+-0.12994630E-02-0.17127220E+00 0.26462350E+01 0.54431090E+01
+ 0.56371398E+01-0.15630111E+01-0.99672213E+01 0.39276990E+00
+ 0.39563709E+00 0.62929040E+00 0.10069690E+01 0.29789081E+00
+ 0.41463312E-01 0.88037923E-01 0.12375520E+00-0.23495040E+01
+-0.60922389E+01 0.31406109E+01 0.10446170E+02-0.29840209E+01
+-0.78413308E+00 0.35074601E+00-0.15260530E+01 0.39119521E+00
+-0.45727421E-01 0.54366869E+00 0.19907470E+00 0.23573261E-01
+ 0.14467791E+00-0.24111120E+02-0.23590090E+02-0.52533650E+01
+-0.69374472E+00-0.76082981E+00-0.23404930E+01 0.18856601E+01
+-0.34918901E+00 0.49493009E+00-0.81113303E+00 0.54133171E+00
+ 0.49193099E-01 0.21476500E+02 0.22210859E+02-0.26197121E+02
+ 0.10787590E+01-0.69851818E+01 0.29718940E+01 0.11414530E+01
+ 0.14578890E+01 0.15425240E+01 0.93324542E+00-0.90576813E-01
+-0.20267250E-01 0.86825609E+00-0.42678061E+01-0.20441080E+02
+-0.14448640E+02 0.37972701E+01 0.19044010E+02-0.30331371E+01
+ 0.14885031E+00-0.14027690E+01-0.27422099E+01-0.92959660E+00
+-0.15153129E+00-0.26026639E+00-0.32821381E+00 0.61834922E+01
+ 0.14341300E+02-0.14700620E+02-0.20058840E+02 0.71746659E+01
+ 0.68980581E+00-0.33038771E+01 0.43008628E+01-0.86814588E+00
+ 0.12064370E+00-0.16456740E+01-0.52540022E+00-0.47114391E-01
+-0.39227581E+01 0.35266159E+02 0.55090389E+02 0.52223527E+00
+-0.17178289E+02 0.93549500E+01 0.20493560E+01-0.30334001E+01
+ 0.85749513E+00-0.90101510E+00 0.12516789E+01-0.11659499E+01
+ 0.20352270E+00-0.41829651E+02-0.53427971E+02 0.41387871E+02
+ 0.15234690E+02 0.38166111E+01-0.25571921E+01 0.52511711E+01
+-0.22927489E+01-0.20680420E+01-0.23392191E+01 0.42382870E-01
+ 0.53135499E-01-0.15402900E+01 0.16799150E+01 0.14902920E+02
+ 0.12005070E+02-0.10560460E+01-0.78511801E+01 0.28902240E+01
+-0.22603050E+00 0.78646880E+00 0.18800470E+01 0.76860350E+00
+ 0.15793620E+00 0.22162651E+00 0.22158439E+00-0.30337360E+01
+-0.11042560E+02 0.10922230E+02 0.82417889E+01-0.33793120E+01
+-0.33106661E+00 0.31898730E+01-0.31141429E+01 0.44443300E+00
+-0.11976750E+00 0.13067420E+01 0.42026541E+00 0.28895160E-01
+ 0.20682490E+01-0.16915560E+02-0.39321369E+02 0.18695210E+01
+ 0.17356359E+02-0.93854246E+01-0.23264670E+00 0.13474309E+01
+-0.40998530E+00 0.47321969E+00-0.61725950E+00 0.72479719E+00
+-0.29448491E+00 0.24232651E+02 0.37976551E+02-0.21074570E+02
+-0.15754110E+02-0.25582200E+00 0.19962960E+00-0.66964989E+01
+ 0.10331100E+01 0.65657842E+00 0.15865040E+01-0.23863461E-01
+ 0.25889850E-02 0.87468791E+00-0.36995690E-02-0.83238229E-01
+ 0.31678140E-01 0.10251730E+00 0.99824600E-01-0.50561629E-01
+-0.48133171E+00 0.46818540E-01-0.48246589E-02 0.19789491E-01
+ 0.39194552E-02 0.22656791E-03-0.78151858E-03 0.87535032E-03
+-0.17135980E-01-0.66778161E-01-0.10310570E+00 0.10119150E+00
+ 0.48305461E+00-0.42178921E-01 0.73679839E-03 0.42369001E-01
+-0.39604050E-02 0.20892700E-01 0.29624940E-02 0.48363898E-02
+ 0.15395799E+00 0.43218192E-01 0.34660810E+00-0.23905391E+00
+-0.56050020E+00-0.48098281E+00-0.47006410E+00 0.22810129E-01
+-0.20614481E-01 0.38401481E-01 0.16112490E-01 0.37542640E-02
+-0.13916410E-01-0.14002630E+00-0.25504601E+00 0.43387011E-01
+ 0.49347690E+00-0.20265900E+00 0.43699461E+00-0.43328851E+00
+ 0.31007300E-03 0.15226570E-01-0.26406810E-01 0.23801770E-01
+ 0.11829430E-01-0.22227040E-02 0.13514920E+00 0.31730890E+00
+ 0.32625449E+00-0.13318681E+01-0.10803860E+01 0.66807979E+00
+ 0.41016951E+00 0.14827640E+00 0.78458697E-01-0.52314371E-01
+-0.27653649E-01 0.93369588E-01-0.30718129E-02-0.15185051E+00
+-0.23684961E+00 0.22349951E+00 0.12803420E+01-0.11171330E+01
+-0.41158390E+00 0.69982159E+00-0.32940071E-01 0.30821109E+00
+ 0.25142949E-01-0.98595262E-01-0.37010599E-01-0.41911591E-01
+-0.25549120E+00-0.30607110E+00-0.72421658E+00 0.62819523E+00
+ 0.98074001E+00 0.60781872E+00 0.84958279E+00 0.79494882E-02
+ 0.23797890E-01-0.78972913E-01-0.47762241E-01-0.11479560E-01
+ 0.38022932E-01 0.25690189E+00 0.61924309E+00-0.38285360E+00
+-0.86136132E+00 0.59286380E+00-0.79980153E+00 0.52281839E+00
+ 0.31748259E-04 0.18450610E-01 0.68629026E-01-0.60918961E-01
+-0.30393520E-01-0.10773380E-01-0.23523910E+00 0.17130810E+00
+-0.30800211E+00 0.20488830E+01 0.10201679E+01-0.11320190E+01
+ 0.30550840E+00-0.43642890E+00-0.10086610E+00 0.76231518E-03
+ 0.56589931E-01-0.14539050E+00-0.10358960E-01 0.26725081E+00
+ 0.11442810E+00 0.28554600E+00-0.13395060E+01 0.17251300E+01
+-0.31628349E+00-0.12224340E+01 0.42148300E-01-0.68742782E+00
+-0.63851483E-01 0.82140461E-01 0.69165289E-01 0.66696458E-01
+ 0.12163980E-01-0.17521940E-01 0.83278054E-02-0.24383290E-01
+ 0.94172724E-01-0.37388511E-01 0.32725301E-01 0.20453811E+00
+-0.11596130E+00-0.41893031E-02 0.25358990E-01 0.98134270E-02
+-0.99917529E-02-0.27378541E-03-0.78593800E-02 0.71004429E-03
+-0.10134300E+00-0.83517004E-02-0.28705779E-01-0.33009920E-01
+ 0.11496660E+00 0.19615750E+00-0.27559340E-01-0.95656067E-02
+ 0.10936460E-01 0.14036510E-01-0.60653999E-02 0.29127210E-01
+ 0.56168370E-01-0.36323059E-01 0.47735799E-01 0.18006410E-02
+-0.79260627E-02 0.38183831E-01-0.37138090E+00 0.78043990E-01
+-0.42471990E-01 0.21696949E-01-0.63641548E-01-0.99766615E-03
+-0.51371481E-01 0.88815928E-01-0.62931098E-01-0.17231951E-01
+ 0.21170260E-01 0.45159138E-02 0.36434329E+00 0.38101289E-01
+ 0.32491371E-01 0.54552749E-01 0.59911780E-01 0.16559910E-01
+ 0.29887769E-02 0.18606370E-02-0.11205900E-01-0.17693870E-02
+ 0.90940418E-02-0.42816228E-02-0.13736580E-01-0.35650648E-01
+-0.42941060E-01-0.17358219E-01 0.11634450E+00-0.95074847E-02
+ 0.23816000E-02-0.57428228E-02-0.17186830E-01 0.14213470E-01
+-0.77952552E-02 0.13010440E-01 0.79436703E-02-0.76920749E-02
+ 0.42132910E-01-0.47683470E-01-0.11275110E+00-0.21323860E-01
+-0.22731619E-02-0.12844480E-01-0.82494402E-02 0.52166809E-02
+-0.84529351E-02 0.12754400E-01 0.49089738E-02 0.10020000E-01
+ 0.27289561E-02 0.10734130E-01-0.43488540E-01 0.13604370E-01
+ 0.18279370E-01-0.18447600E-01-0.38582850E-01-0.85755363E-02
+-0.19082749E-02 0.11020330E-01 0.34813110E-02 0.26306671E-02
+-0.79486445E-02 0.72442400E-02 0.40930379E-01 0.15286850E-01
+-0.15690990E-01 0.11457410E-01 0.37589539E-01-0.15758350E-01
+ 0.49659009E-02 0.14882840E-01 0.12579050E-02 0.26519070E-02
+-0.61408910E-02 0.16676580E-02 0.27563379E-03 0.71712732E-02
+ 0.93166940E-02-0.14479870E-01 0.80778338E-02 0.24022810E-01
+-0.34930659E-02 0.50976179E-02 0.10892720E-01-0.14090780E-01
+ 0.84283501E-02-0.60880529E-02 0.81132976E-05 0.58826189E-02
+-0.11327290E-01 0.55214572E-02-0.96313190E-02-0.12412820E-01
+ 0.43396661E-02 0.19385530E-01 0.14477040E-01 0.17737759E-01
+-0.31845260E-02-0.10923190E-01-0.24768710E-02-0.58970979E-03
+ 0.19088080E-02-0.60964511E-02-0.40710340E-02 0.11052240E-02
+-0.23473911E-02 0.50737909E-02-0.14485580E-01-0.10380310E-01
+ 0.96729677E-03-0.25247491E-03 0.46444210E-03-0.13965550E-01
+-0.23104160E-03-0.69573121E-02-0.51114149E-02 0.16012610E-03
+ 0.89110422E-03-0.18887860E-02 0.96967006E-02 0.91776261E-02
+ 0.90430317E+01 0.20274700E+00-0.30370411E+00-0.88908583E-01
+ 0.34490610E-02 0.31058490E-02 0.23370651E-02 0.80870269E-02
+ 0.16384190E-02-0.16402079E-02-0.33298030E-02-0.11295259E-02
+ 0.86889841E-03 0.70578259E+00-0.20083910E+00-0.30886510E+00
+ 0.38561830E+00-0.34604701E+00 0.44715639E-01-0.70721962E-01
+-0.52140608E-01 0.14395970E+00 0.52667420E-01-0.46237960E-01
+-0.44148341E-02 0.71356292E-02 0.98331099E+01 0.11567200E+01
+ 0.26251130E+01 0.16658900E+01-0.48601180E+00 0.60383972E-01
+-0.10347770E+00-0.24457660E+00 0.10436820E+00 0.61802529E-01
+ 0.83990820E-01 0.19287311E-01-0.50838910E-01 0.10270070E+02
+ 0.45349531E+01 0.13138940E+02-0.32922349E+01 0.74300399E+01
+-0.45720309E+00 0.94960588E+00 0.56265140E+00-0.22027569E+01
+-0.82029128E+00 0.66921902E+00 0.15615059E+00-0.20760600E+00
+-0.49466381E+02 0.94560459E-01-0.92559729E+01-0.10201690E+02
+ 0.79398608E+01-0.50874919E+00 0.89561421E+00 0.15147800E+01
+-0.13216470E+01-0.47186539E+00-0.17315650E+00-0.16275020E+00
+ 0.44055220E+00-0.13983479E+03-0.40804630E+02-0.66824257E+02
+ 0.11160880E+02-0.36238972E+02 0.16185560E+01-0.44317060E+01
+-0.97137278E+00 0.96135015E+01 0.35375221E+01-0.31808259E+01
+-0.10677720E+01 0.12873909E+01 0.71989548E+02-0.27204060E+02
+ 0.25843870E+02 0.26533630E+02-0.26070570E+02 0.99993640E+00
+-0.23562911E+01-0.36478961E+01 0.41008391E+01 0.12386060E+01
+-0.22170369E+00 0.45098490E+00-0.12083960E+01 0.39263611E+03
+ 0.12173870E+03 0.10928310E+03-0.19830271E+02 0.75458923E+02
+-0.22940090E+01 0.90525608E+01-0.83099711E+00-0.18282631E+02
+-0.65543399E+01 0.67080522E+01 0.26846349E+01-0.30751960E+01
+-0.54215679E+02 0.47669338E+02-0.35849522E+02-0.29884081E+02
+ 0.32446659E+02-0.51964808E+00 0.24028120E+01 0.37966020E+01
+-0.48248048E+01-0.13242691E+01 0.72716212E+00-0.49625319E+00
+ 0.13280571E+01-0.42601260E+03-0.13879950E+03-0.65229637E+02
+ 0.18285999E+02-0.70629120E+02 0.12842020E+01-0.84110622E+01
+ 0.28028860E+01 0.16039560E+02 0.55530849E+01-0.64854078E+01
+-0.28437641E+01 0.31599109E+01 0.17631639E+02-0.21886690E+02
+ 0.16967739E+02 0.12050650E+02-0.13933030E+02-0.43175738E-01
+-0.84308320E+00-0.14306550E+01 0.19481030E+01 0.49796709E+00
+-0.41878399E+00 0.19014530E+00-0.51143789E+00 0.16218159E+03
+ 0.53558769E+02 0.99160719E+01-0.67429252E+01 0.24343760E+02
+-0.18975119E+00 0.29158449E+01-0.15203640E+01-0.53215170E+01
+-0.17689400E+01 0.23427451E+01 0.10786620E+01-0.11750840E+01
+-0.32269520E+00 0.12190551E+01 0.23464839E+01 0.33664629E-01
+ 0.39699620E+00 0.41139629E-01-0.87778278E-01-0.21207710E-02
+-0.51464788E-02-0.23662820E-02-0.35911291E-02-0.29164960E-02
+ 0.20827360E-02-0.43052319E+00-0.23708379E+01 0.13897960E+01
+-0.40219051E+00 0.37438300E-01 0.78819953E-01 0.32413159E-01
+ 0.64575281E-02-0.16244079E-02-0.17567720E-02-0.60298219E-02
+-0.43059289E-02-0.41272319E-02-0.21930189E+00 0.16196970E+01
+ 0.50146729E+00 0.54444470E-01 0.41687080E+00-0.85793706E-02
+ 0.81956699E-01-0.16938420E-01 0.10999230E+00 0.38937680E-01
+-0.93110889E-01-0.87794093E-02-0.15323740E-01-0.14977350E+01
+ 0.90420568E+00 0.21161699E+01-0.34043849E+00-0.40286232E-01
+-0.60170881E-01-0.15850221E+00-0.57468411E-01 0.13231090E+00
+ 0.56933612E-01-0.68102948E-01 0.88552050E-02 0.13242510E-01
+ 0.12155580E+02 0.11433030E+02-0.23432159E+01-0.25504470E+01
+-0.18546430E+01-0.56240702E+00 0.22106600E+01 0.67137100E-01
+ 0.53339970E+00 0.33945020E-01 0.75565353E-01 0.14057240E+00
+-0.83125293E-01-0.18934979E+01-0.22642069E+01 0.10438760E+02
+ 0.20114090E+01-0.30751531E+01-0.19839810E+01-0.48634261E+00
+-0.29175150E+00 0.23205340E+00 0.15789570E+00 0.82147121E-01
+ 0.11510290E+00 0.20094401E+00 0.19015280E+02-0.79448552E+01
+ 0.16648781E+02-0.62222929E+01-0.10000460E+01-0.33141949E+01
+ 0.96378040E+00-0.22754070E+00-0.16811260E+01-0.58622199E+00
+ 0.12998620E+01 0.19231249E+00 0.17888470E-01 0.41756149E+02
+-0.32826389E+02-0.16068081E+02-0.10931200E+01-0.40219779E+01
+-0.56625080E+00-0.12817250E+01 0.62998092E+00-0.12715070E+01
+-0.92084289E+00 0.12005860E+01 0.20358000E-01-0.30076510E+00
+-0.70572037E+02-0.65523819E+02 0.40547352E+02 0.12919270E+02
+-0.23307509E+01 0.48463230E+01-0.11715900E+02-0.39936960E+00
+-0.53941922E+01 0.30333140E+00-0.64259179E-01-0.12256070E+01
+ 0.45967019E+00 0.58770561E+02-0.14976370E+02-0.40956871E+02
+-0.97472352E+00 0.18780121E+02 0.98148708E+01 0.51703758E+01
+ 0.24540319E+01-0.24116869E+01-0.17348140E+01-0.12906121E+00
+-0.46244431E+00-0.17637370E+01-0.10741170E+03-0.12074890E+02
+-0.72855293E+02 0.50563469E+02 0.26038120E+01 0.21331360E+02
+-0.91255693E+01 0.42652750E+01 0.58591700E+01 0.23522661E+01
+-0.54847231E+01-0.12212350E+01 0.13392020E+01-0.23839790E+03
+ 0.13201041E+03 0.55716290E+02 0.87306852E+01 0.34291931E+02
+ 0.52976708E+01 0.15353660E+02-0.49597299E+00 0.25396969E+01
+ 0.49332590E+01-0.59732051E+01-0.10298700E+01 0.18378299E+01
+ 0.16079980E+03 0.13711880E+03-0.15317979E+03-0.24571529E+02
+ 0.17630920E+02-0.14155660E+02 0.26648109E+02 0.13310699E+01
+ 0.16762720E+02-0.18321720E+01-0.76329440E+00 0.35999370E+01
+-0.73712230E+00-0.22258400E+03 0.98672073E+02 0.23426291E+02
+-0.58904309E+01-0.44530781E+02-0.20602240E+02-0.15554460E+02
+-0.70353279E+01 0.77596278E+01 0.57839751E+01-0.26341450E+00
+ 0.51314211E+00 0.52582092E+01 0.24825760E+03 0.78897186E+02
+ 0.12181150E+03-0.14021609E+03-0.12792230E+02-0.48167461E+02
+ 0.25923140E+02-0.14421040E+02-0.68202820E+01-0.38882060E+01
+ 0.10476630E+02 0.30999880E+01-0.56212702E+01 0.54812311E+03
+-0.22232961E+03-0.11033170E+03-0.10686780E+02-0.93774292E+02
+-0.15459360E+02-0.43758629E+02-0.46346941E+01 0.16124170E+01
+-0.11760920E+02 0.12707250E+02 0.39028361E+01-0.45365839E+01
+-0.16196420E+03-0.13072990E+03 0.23180890E+03 0.18770130E+02
+-0.24448629E+02 0.16246349E+02-0.27546169E+02-0.21739991E+01
+-0.20624399E+02 0.29828651E+01 0.16999390E+01-0.43380232E+01
+ 0.27025759E+00 0.28189691E+03-0.17505679E+03 0.50192181E+02
+ 0.10016010E+02 0.44718262E+02 0.19827530E+02 0.17701571E+02
+ 0.83049526E+01-0.10011830E+02-0.75679832E+01 0.68440199E+00
+ 0.87565400E-01-0.64306688E+01-0.25435249E+03-0.87380028E+02
+-0.56610340E+02 0.15728690E+03 0.22302891E+02 0.46561562E+02
+-0.29923241E+02 0.17839170E+02 0.12688860E+01 0.27063949E+01
+-0.93983622E+01-0.33743570E+01 0.78216619E+01-0.54600208E+03
+ 0.13896181E+03 0.12015040E+03-0.13885580E+01 0.10165370E+03
+ 0.18615980E+02 0.49375420E+02 0.98403025E+01-0.76179738E+01
+ 0.12686590E+02-0.12375440E+02-0.52070861E+01 0.49247370E+01
+ 0.61253658E+02 0.47517818E+02-0.12179330E+03-0.41675439E+01
+ 0.11262440E+02-0.64514699E+01 0.10545130E+02 0.12193220E+01
+ 0.88148031E+01-0.15208800E+01-0.97330213E+00 0.18522240E+01
+ 0.10463560E+00-0.11699140E+03 0.98268181E+02-0.45882320E+02
+-0.54936161E+01-0.15777610E+02-0.71701512E+01-0.68947401E+01
+-0.34786470E+01 0.44999952E+01 0.34213359E+01-0.36406139E+00
+-0.27169651E+00 0.27810791E+01 0.93596474E+02 0.26260509E+02
+-0.11642750E+02-0.62055321E+02-0.11359060E+02-0.16395550E+02
+ 0.12101630E+02-0.74822059E+01 0.13654370E+01-0.58667767E+00
+ 0.31968620E+01 0.13128480E+01-0.35949450E+01 0.19720880E+03
+-0.14343980E+02-0.51394039E+02 0.46109738E+01-0.38652168E+02
+-0.79355750E+01-0.19585751E+02-0.54165139E+01 0.47058678E+01
+-0.50443211E+01 0.45636039E+01 0.23434560E+01-0.19601589E+01
+ 0.38649730E-01-0.42033240E+00-0.22518121E+00-0.92340362E+00
+ 0.15947470E+00-0.10196090E+00-0.91761760E-02 0.22790231E-01
+-0.13514590E-02-0.14685630E-02-0.31111231E-02 0.26065570E-02
+ 0.43867570E-02 0.28721759E-01 0.21398421E+00-0.40431681E+00
+-0.15822890E+00-0.92290270E+00 0.11202860E-01-0.10161120E+00
+ 0.15627330E-02 0.22123041E-01 0.61453972E-03-0.28719939E-02
+-0.31399371E-02 0.42654108E-02 0.97866349E-01-0.37640479E+00
+-0.51468390E+00-0.10383400E+01 0.93379921E+00-0.16268970E-02
+-0.42724511E+00 0.13025240E-01 0.48924141E-01-0.31340141E-01
+-0.32697231E-01-0.13497560E-01-0.42615361E-02 0.24842919E+00
+ 0.67654741E+00-0.23686160E+00-0.91396052E+00-0.10104880E+01
+ 0.52940261E+00 0.25195259E-03-0.47080070E-01 0.13234960E+00
+ 0.68245374E-01-0.38587391E-01-0.13652270E-01-0.39874138E-02
+ 0.37016410E+00 0.73915329E+01-0.22307780E+01-0.25135770E+01
+ 0.21035260E+00 0.14852771E+01-0.16586670E+01-0.45615119E+00
+ 0.16337460E+00-0.39504808E-02 0.91720559E-01-0.60221229E-01
+-0.14261380E+00-0.48793139E+01 0.26538420E+01 0.73984151E+01
+-0.24051440E+00-0.26479690E+01 0.15390919E+01 0.13919960E+01
+-0.28049031E+00-0.25062239E+00-0.94065974E-02 0.12830390E-01
+ 0.10513580E+00-0.11559100E+00-0.28003650E+01 0.75729852E+01
+ 0.31690469E+00-0.17782190E+00-0.73935399E+01 0.57880241E-01
+ 0.11192830E+01 0.23354290E+00 0.58013397E+00 0.44860551E+00
+ 0.34189290E+00 0.15601119E+00 0.21279140E+00-0.83924866E+01
+-0.11583860E+01 0.51362109E+01 0.67609978E+01-0.84031880E+00
+-0.19877959E+01 0.61873668E+00-0.79565620E+00-0.12033110E+01
+-0.90124661E+00 0.59646350E+00-0.10000810E-01 0.11887430E+00
+-0.30787461E-01-0.30604050E+02-0.71161261E+01 0.20778271E+02
+ 0.12234300E+02-0.11375530E+02 0.69862270E+01 0.19598560E+01
+-0.95688659E+00 0.20390479E+00-0.36003101E+00 0.35605440E+00
+ 0.67612201E+00 0.27511520E+02 0.49939122E+01-0.32241879E+02
+-0.11978070E+02 0.22301620E+02-0.66366930E+01-0.10469530E+02
+ 0.18225861E+01 0.54645830E+00 0.18263350E+00 0.42538501E-01
+-0.58896911E+00 0.61119998E+00 0.91302509E+01-0.23066460E+02
+-0.16267000E+01 0.62708569E+01 0.12342300E+02-0.11592031E+01
+-0.10402650E+01-0.56683332E+00-0.21642671E+01-0.13271520E+01
+-0.86304837E+00-0.40636060E+00-0.60633773E+00 0.22097620E+02
+ 0.19983900E+01-0.16424540E+02-0.98066673E+01 0.81164856E+01
+ 0.29743509E+01-0.30463209E+01 0.28580661E+01 0.30688281E+01
+ 0.23651280E+01-0.17830100E+01 0.67138843E-01-0.36953861E+00
+-0.44076180E+01 0.53285011E+02 0.42058418E+02-0.39584110E+02
+-0.33337990E+02 0.26642981E+02-0.11632090E+02-0.25252700E+01
+ 0.15289160E+01-0.53717268E+00 0.37746230E+00-0.79039121E+00
+-0.10968180E+01-0.50643028E+02-0.38141991E+02 0.58316212E+02
+ 0.33172131E+02-0.43550751E+02 0.11476400E+02 0.24494801E+02
+-0.33294780E+01 0.26053691E+00-0.41951990E+00-0.15314950E+00
+ 0.11022919E+01-0.12174430E+01-0.80035734E+01 0.16901190E+02
+ 0.42058401E+01-0.22317359E+01 0.17128450E+00 0.14802001E+01
+ 0.52079087E+00 0.43408141E+00 0.17342820E+01 0.10635630E+01
+ 0.65641868E+00 0.30267030E+00 0.44439289E+00-0.14256300E+02
+-0.27955599E+01 0.11708860E+02-0.26746240E+01-0.36582890E+01
+-0.18121170E+01 0.29787381E+01-0.22856150E+01-0.21367071E+01
+-0.17490350E+01 0.14333040E+01-0.37154108E-01 0.30141371E+00
+ 0.32059519E+01-0.31578960E+02-0.37714779E+02 0.26117390E+02
+ 0.27537121E+02-0.18532631E+02 0.67572589E+01 0.91517007E+00
+-0.86543620E+00 0.39347380E+00-0.52827291E-01 0.55885941E+00
+ 0.56518108E+00 0.28291660E+02 0.34881580E+02-0.34893082E+02
+-0.27885370E+02 0.28912689E+02-0.69115381E+01-0.17019011E+02
+ 0.19919640E+01-0.74343097E+00 0.23817129E+00 0.13121121E+00
+-0.64599228E+00 0.79893577E+00-0.68886848E-02 0.44245388E-01
+ 0.11874020E+00 0.36830711E+00 0.18503760E+00-0.13682820E+00
+-0.64952010E+00 0.64356700E-01-0.14913750E+00 0.10074670E-01
+ 0.16101420E-01 0.27344781E-02 0.23004101E-02 0.41594040E-02
+-0.12545270E+00 0.57627641E-01-0.18892540E+00 0.37044409E+00
+ 0.65040421E+00-0.12805070E+00 0.14307950E+00 0.67135841E-01
+-0.17434370E-01 0.98279938E-02-0.44843559E-02 0.35242049E-02
+ 0.12510280E+00 0.64529069E-01 0.57310569E+00-0.21121180E-01
+-0.18817280E+00-0.20319380E+00-0.93307853E+00 0.22787760E+00
+ 0.85999779E-01 0.38861219E-01-0.93089104E-01 0.98230373E-02
+ 0.91268099E-03-0.10575300E+00-0.48845381E+00-0.12026490E-01
+ 0.10776380E+00-0.34837689E-01 0.90340477E+00-0.15547970E+00
+-0.69009058E-01 0.21193510E+00 0.87786108E-01 0.28694971E-01
+-0.33311821E-02 0.95821014E-02 0.75612471E-01-0.16886970E+00
+ 0.21459591E-01-0.26904781E+01-0.11848060E+01 0.10196770E+01
+ 0.29645780E+00 0.54731810E+00 0.11596330E+01-0.39329939E-01
+-0.15870960E+00 0.35959631E-01-0.34822281E-01-0.15327390E+00
+ 0.24837279E+00-0.27346361E+00 0.13540710E+01-0.26867020E+01
+-0.32063770E+00 0.94301510E+00-0.11308560E+01 0.52618051E+00
+ 0.19914380E+00-0.27422359E-01 0.66003077E-01 0.35431150E-02
+-0.24924000E+00-0.20369340E+00-0.87880498E+00 0.23708060E+00
+ 0.40093189E+00-0.84158462E+00 0.15844970E+01-0.46396011E+00
+-0.13277321E+00-0.10676790E+00 0.19901150E+00-0.36074229E-01
+ 0.12747370E-01 0.21179029E+00 0.82036942E+00-0.19427480E+00
+-0.26305619E+00 0.28600249E+00-0.15479029E+01-0.93219358E+00
+ 0.10573010E+00-0.44335291E+00-0.18944070E+00-0.92757143E-01
+-0.40681078E-02-0.35654988E-01-0.18115750E+00 0.12411710E+01
+-0.20721319E+00 0.34878869E+01 0.10277170E+01-0.25479469E+01
+ 0.47891489E+00-0.10858390E+01-0.16530310E+01-0.22413209E-01
+ 0.29287291E+00-0.72533682E-01 0.30679431E-01 0.28970030E+00
+-0.28767651E+00 0.12751000E+01-0.13125900E+01 0.34752691E+01
+-0.44375721E+00-0.24369500E+01 0.16220740E+01-0.10624700E+01
+-0.36411020E+00-0.43030631E-01-0.76677553E-01-0.26988810E-01
+ 0.39641671E-02 0.16339920E-02 0.10886970E-01-0.46036690E-01
+ 0.53689349E-01-0.58670361E-01 0.13464390E+00 0.26220119E+00
+-0.15374900E+00 0.15709329E-01 0.15059950E-01 0.63147610E-02
+-0.28168969E-02 0.31186400E-02 0.17431920E-02 0.12149210E-01
+-0.47869150E-01-0.37690260E-01-0.13642649E+00-0.56751631E-01
+ 0.15249370E+00 0.25927281E+00-0.15244810E-01 0.14260400E-01
+ 0.12918391E-02 0.61556161E-02-0.12516270E-01 0.68255857E-01
+ 0.50775342E-01 0.31307649E-01 0.65075241E-01 0.54962941E-01
+ 0.14696410E+00 0.98408632E-01-0.47057840E+00 0.88139102E-01
+-0.18643530E-01-0.10374780E-01-0.13568330E-01-0.15650380E-01
+ 0.89290580E-02 0.73385596E-01-0.48060689E-01 0.33140730E-01
+-0.15517090E+00 0.62329538E-01 0.47172821E+00 0.96067399E-01
+ 0.18396700E-01 0.76164491E-01 0.16560970E-01-0.14614140E-01
+ 0.19578210E-02-0.14035520E-02-0.59618400E-02 0.74310200E-02
+-0.33330531E-02 0.14306830E-01-0.51484551E-01-0.94561808E-01
+-0.63493229E-01 0.17658170E-01 0.17086640E+00-0.10731030E-01
+ 0.36266331E-01 0.19164809E-02-0.92354352E-02 0.16292460E-01
+ 0.35760340E-02 0.14182470E-01 0.51192220E-01 0.14108440E-01
+ 0.60051549E-01-0.10100410E+00-0.16986570E+00 0.14131250E-01
+-0.33275940E-01-0.11484580E-01-0.49797390E-02 0.63432348E-02
+-0.25512511E-02 0.41289502E-02-0.97766966E-02 0.49139052E-02
+ 0.12774310E-01 0.44159219E-01-0.20677550E-01 0.69804578E-02
+-0.41150530E-02-0.56400739E-01-0.31030821E-02-0.56071882E-02
+ 0.21417751E-02 0.66199652E-02 0.62513291E-02 0.65113809E-02
+-0.12978700E-01 0.47432128E-02 0.15276820E-01 0.48558351E-01
+ 0.56471331E-02 0.86523611E-02 0.32380959E-02-0.56795031E-01
+ 0.55500190E-02 0.13735600E-01-0.59472122E-02-0.31880240E-02
+-0.68405508E-02-0.22801249E-02 0.39459411E-02 0.41220491E-02
+ 0.27057049E-02-0.14377150E-01 0.14923110E-01 0.36879659E-01
+-0.35170210E-02 0.66246870E-02-0.73043571E-04-0.13753210E-01
+ 0.42179059E-02 0.35878851E-02-0.40927371E-02 0.29260700E-02
+-0.60813632E-02-0.64207771E-03-0.16725270E-01-0.15799919E-01
+ 0.36383090E-02 0.34391370E-01 0.65519311E-02 0.35797921E-02
+-0.47295419E-02-0.26221550E-03 0.81489803E-02-0.89938007E-03
+ 0.53054648E-02-0.24652651E-02-0.58539128E-02-0.69821482E-02
+-0.98607866E-02 0.11337560E-02-0.15945180E-02-0.71403319E-02
+ 0.82538109E-02 0.52617821E-02-0.25297611E-02-0.52215192E-02
+-0.23103289E-02-0.89732348E-03-0.26099480E-03 0.14457071E-02
+ 0.11337410E-01-0.83902897E-02-0.89801638E-03-0.33740790E-03
diff --git a/input/glow_data/snoem_eof.dat b/input/glow_data/snoem_eof.dat
new file mode 100644
index 0000000..7044b91
--- /dev/null
+++ b/input/glow_data/snoem_eof.dat
@@ -0,0 +1,783 @@
+ 150.000 146.667 143.334 140.000 136.667 133.334
+ 130.000 126.667 123.334 120.000 116.667 113.334
+ 110.000 106.667 103.334 100.000
+ -80.0000 -75.0000 -70.0000 -65.0000 -60.0000 -55.0000
+ -50.0000 -45.0000 -40.0000 -35.0000 -30.0000 -25.0000
+ -20.0000 -15.0000 -10.0000 -5.00000 0.00000 5.00000
+ 10.0000 15.0000 20.0000 25.0000 30.0000 35.0000
+ 40.0000 45.0000 50.0000 55.0000 60.0000 65.0000
+ 70.0000 75.0000 80.0000
+ 2.16379e+07 2.26460e+07 2.27435e+07 2.17349e+07 2.03985e+07 1.88072e+07
+ 1.76798e+07 1.68091e+07 1.63078e+07 1.61075e+07 1.62367e+07 1.64703e+07
+ 1.67779e+07 1.71024e+07 1.73250e+07 1.74166e+07 1.71814e+07 1.70461e+07
+ 1.71712e+07 1.70191e+07 1.68344e+07 1.70114e+07 1.71321e+07 1.75540e+07
+ 1.83162e+07 1.94160e+07 2.07922e+07 2.21677e+07 2.38182e+07 2.46596e+07
+ 2.48882e+07 2.36080e+07 2.18562e+07
+ 2.39593e+07 2.57135e+07 2.60088e+07 2.48216e+07 2.31919e+07 2.13226e+07
+ 1.98567e+07 1.89203e+07 1.82505e+07 1.80315e+07 1.81329e+07 1.84482e+07
+ 1.87060e+07 1.90396e+07 1.93040e+07 1.94090e+07 1.91540e+07 1.89958e+07
+ 1.92149e+07 1.89561e+07 1.88211e+07 1.88776e+07 1.90622e+07 1.95511e+07
+ 2.04917e+07 2.17639e+07 2.32938e+07 2.51547e+07 2.72057e+07 2.82723e+07
+ 2.83109e+07 2.65353e+07 2.47828e+07
+ 2.70667e+07 2.94475e+07 2.97463e+07 2.84020e+07 2.64566e+07 2.41291e+07
+ 2.23422e+07 2.11837e+07 2.04225e+07 2.01909e+07 2.01639e+07 2.04410e+07
+ 2.07360e+07 2.11646e+07 2.14607e+07 2.13140e+07 2.12527e+07 2.10500e+07
+ 2.11859e+07 2.09602e+07 2.08502e+07 2.07873e+07 2.10413e+07 2.16424e+07
+ 2.27765e+07 2.42622e+07 2.62728e+07 2.88448e+07 3.10539e+07 3.26782e+07
+ 3.22965e+07 3.00199e+07 2.75619e+07
+ 3.07152e+07 3.35778e+07 3.42030e+07 3.28192e+07 3.01743e+07 2.74887e+07
+ 2.54492e+07 2.39333e+07 2.29023e+07 2.25731e+07 2.24508e+07 2.25588e+07
+ 2.29910e+07 2.32658e+07 2.34616e+07 2.33417e+07 2.31970e+07 2.30489e+07
+ 2.30993e+07 2.30280e+07 2.27555e+07 2.27986e+07 2.32428e+07 2.39637e+07
+ 2.51655e+07 2.71703e+07 2.98037e+07 3.30802e+07 3.56185e+07 3.75659e+07
+ 3.72154e+07 3.38942e+07 3.09284e+07
+ 3.48453e+07 3.88060e+07 3.97436e+07 3.80497e+07 3.46670e+07 3.15097e+07
+ 2.89047e+07 2.70987e+07 2.57343e+07 2.49507e+07 2.48672e+07 2.48810e+07
+ 2.52491e+07 2.51506e+07 2.53310e+07 2.52920e+07 2.52698e+07 2.50556e+07
+ 2.51498e+07 2.51382e+07 2.49604e+07 2.49232e+07 2.54414e+07 2.63506e+07
+ 2.77968e+07 3.04932e+07 3.39211e+07 3.80218e+07 4.12795e+07 4.35338e+07
+ 4.27717e+07 3.81960e+07 3.46912e+07
+ 3.96806e+07 4.45649e+07 4.63283e+07 4.45797e+07 4.06593e+07 3.67155e+07
+ 3.31320e+07 3.08281e+07 2.91181e+07 2.79561e+07 2.75952e+07 2.73326e+07
+ 2.72989e+07 2.72596e+07 2.74638e+07 2.74282e+07 2.74539e+07 2.72518e+07
+ 2.74413e+07 2.74108e+07 2.73859e+07 2.74529e+07 2.78550e+07 2.90665e+07
+ 3.11082e+07 3.45836e+07 3.90346e+07 4.43678e+07 4.84453e+07 5.11277e+07
+ 4.96007e+07 4.33777e+07 3.86525e+07
+ 4.56873e+07 5.17157e+07 5.46467e+07 5.30389e+07 4.84809e+07 4.33452e+07
+ 3.89063e+07 3.57991e+07 3.34092e+07 3.16886e+07 3.08861e+07 3.03371e+07
+ 2.98811e+07 3.00231e+07 2.99020e+07 3.00716e+07 3.00689e+07 2.99379e+07
+ 3.02453e+07 3.02584e+07 3.05878e+07 3.07030e+07 3.13053e+07 3.28192e+07
+ 3.55066e+07 4.00479e+07 4.59490e+07 5.26851e+07 5.82091e+07 6.09356e+07
+ 5.84603e+07 4.96592e+07 4.35954e+07
+ 5.36810e+07 6.13187e+07 6.56831e+07 6.43841e+07 5.89238e+07 5.22485e+07
+ 4.68437e+07 4.25244e+07 3.93441e+07 3.69552e+07 3.55510e+07 3.45740e+07
+ 3.40154e+07 3.39579e+07 3.36227e+07 3.39806e+07 3.42364e+07 3.42882e+07
+ 3.48089e+07 3.49151e+07 3.54498e+07 3.58666e+07 3.66769e+07 3.84700e+07
+ 4.19723e+07 4.78369e+07 5.54611e+07 6.41527e+07 7.13412e+07 7.42013e+07
+ 6.97963e+07 5.72952e+07 4.99397e+07
+ 6.53104e+07 7.45345e+07 8.10045e+07 8.01590e+07 7.34534e+07 6.49400e+07
+ 5.79416e+07 5.20393e+07 4.78287e+07 4.49152e+07 4.27309e+07 4.12204e+07
+ 4.05372e+07 4.01319e+07 4.00733e+07 4.04373e+07 4.09582e+07 4.18181e+07
+ 4.25839e+07 4.30255e+07 4.36234e+07 4.45652e+07 4.56506e+07 4.78060e+07
+ 5.21917e+07 5.91082e+07 6.87157e+07 8.00224e+07 8.94702e+07 9.29082e+07
+ 8.53910e+07 6.83796e+07 5.78809e+07
+ 8.24126e+07 9.37121e+07 1.02495e+08 1.01944e+08 9.33578e+07 8.24922e+07
+ 7.33036e+07 6.60838e+07 6.05780e+07 5.65113e+07 5.38513e+07 5.18969e+07
+ 5.08757e+07 5.03810e+07 5.05162e+07 5.10292e+07 5.19348e+07 5.37271e+07
+ 5.46450e+07 5.58499e+07 5.69472e+07 5.81866e+07 5.96033e+07 6.23385e+07
+ 6.76095e+07 7.55578e+07 8.73792e+07 1.01822e+08 1.14441e+08 1.18706e+08
+ 1.07561e+08 8.47016e+07 6.95008e+07
+ 1.06859e+08 1.20901e+08 1.31931e+08 1.30865e+08 1.19230e+08 1.05361e+08
+ 9.36334e+07 8.42758e+07 7.72873e+07 7.22787e+07 6.91855e+07 6.70483e+07
+ 6.56123e+07 6.51446e+07 6.50228e+07 6.60266e+07 6.73800e+07 6.98955e+07
+ 7.13997e+07 7.29309e+07 7.46800e+07 7.63099e+07 7.83686e+07 8.19182e+07
+ 8.81769e+07 9.77793e+07 1.12029e+08 1.30336e+08 1.46754e+08 1.52430e+08
+ 1.36670e+08 1.05822e+08 8.65050e+07
+ 1.36797e+08 1.53583e+08 1.67036e+08 1.64400e+08 1.48380e+08 1.30687e+08
+ 1.15316e+08 1.03389e+08 9.49334e+07 8.92771e+07 8.57227e+07 8.32981e+07
+ 8.15421e+07 8.05483e+07 8.01747e+07 8.09274e+07 8.28376e+07 8.59034e+07
+ 8.83018e+07 9.03907e+07 9.29015e+07 9.54097e+07 9.83306e+07 1.02818e+08
+ 1.10192e+08 1.21456e+08 1.38516e+08 1.60778e+08 1.81532e+08 1.90058e+08
+ 1.69185e+08 1.30503e+08 1.05379e+08
+ 1.64043e+08 1.82867e+08 1.97216e+08 1.92582e+08 1.72087e+08 1.49931e+08
+ 1.30815e+08 1.16468e+08 1.06666e+08 1.00056e+08 9.60402e+07 9.31711e+07
+ 9.09591e+07 8.96052e+07 8.90893e+07 8.92657e+07 9.11809e+07 9.47310e+07
+ 9.75533e+07 1.00472e+08 1.03707e+08 1.07007e+08 1.10736e+08 1.15808e+08
+ 1.24190e+08 1.36358e+08 1.55214e+08 1.79958e+08 2.05530e+08 2.18904e+08
+ 1.94399e+08 1.50848e+08 1.20804e+08
+ 1.76156e+08 1.94085e+08 2.07295e+08 2.00854e+08 1.76620e+08 1.51958e+08
+ 1.31129e+08 1.14710e+08 1.03380e+08 9.58385e+07 9.13902e+07 8.86557e+07
+ 8.69415e+07 8.67141e+07 8.72172e+07 8.80279e+07 8.90798e+07 9.15410e+07
+ 9.35418e+07 9.54145e+07 9.77203e+07 1.00679e+08 1.05026e+08 1.10942e+08
+ 1.19995e+08 1.32809e+08 1.51181e+08 1.76217e+08 2.05009e+08 2.23573e+08
+ 2.00675e+08 1.56610e+08 1.24932e+08
+ 1.65728e+08 1.80013e+08 1.88361e+08 1.79392e+08 1.55644e+08 1.32450e+08
+ 1.12846e+08 9.61888e+07 8.40730e+07 7.60460e+07 7.16179e+07 6.97934e+07
+ 7.03293e+07 7.24610e+07 7.52000e+07 7.67500e+07 7.67705e+07 7.64414e+07
+ 7.63352e+07 7.56671e+07 7.55791e+07 7.72312e+07 8.14688e+07 8.81042e+07
+ 9.77534e+07 1.10346e+08 1.27503e+08 1.50832e+08 1.77839e+08 1.98562e+08
+ 1.80871e+08 1.41188e+08 1.10123e+08
+ 1.41457e+08 1.49645e+08 1.50343e+08 1.38764e+08 1.19239e+08 1.00208e+08
+ 8.43259e+07 6.95382e+07 5.81389e+07 5.05343e+07 4.62478e+07 4.56955e+07
+ 4.75228e+07 5.10819e+07 5.46455e+07 5.58226e+07 5.49750e+07 5.29908e+07
+ 5.20374e+07 4.99387e+07 4.89396e+07 4.96389e+07 5.29710e+07 5.86417e+07
+ 6.76234e+07 7.84070e+07 9.35750e+07 1.12875e+08 1.33385e+08 1.49082e+08
+ 1.35994e+08 1.05439e+08 7.91559e+07
+ -5.24751e+06 -6.06987e+06 -7.04639e+06 -7.71204e+06 -7.47565e+06 -6.52199e+06
+ -5.77949e+06 -4.68055e+06 -3.50336e+06 -2.38629e+06 -1.80964e+06 -1.23298e+06
+ -802252. -372341. -233625. -247102. -152984. -378208.
+ -602055. -704482. -1.13087e+06 -1.55395e+06 -2.00518e+06 -2.55036e+06
+ -3.40617e+06 -3.91873e+06 -4.90298e+06 -5.47859e+06 -5.89583e+06 -5.70669e+06
+ -5.06925e+06 -3.95538e+06 -2.95333e+06
+ -6.03890e+06 -7.09210e+06 -8.22295e+06 -8.94629e+06 -8.77268e+06 -7.65082e+06
+ -6.76881e+06 -5.48208e+06 -4.19828e+06 -3.02725e+06 -2.11634e+06 -1.49832e+06
+ -920286. -590981. -373687. -190411. -239285. -381577.
+ -654328. -843800. -1.36842e+06 -1.72912e+06 -2.46188e+06 -3.16652e+06
+ -4.18451e+06 -4.78971e+06 -5.81786e+06 -6.58894e+06 -7.02378e+06 -6.81899e+06
+ -5.93271e+06 -4.50776e+06 -3.68783e+06
+ -6.96946e+06 -8.25004e+06 -9.57432e+06 -1.05164e+07 -1.01324e+07 -9.11466e+06
+ -7.90562e+06 -6.48848e+06 -4.94504e+06 -3.63691e+06 -2.52772e+06 -1.80809e+06
+ -1.10916e+06 -633211. -415174. -253677. -307635. -407807.
+ -769923. -1.15221e+06 -1.60975e+06 -2.17016e+06 -2.87124e+06 -3.79441e+06
+ -4.83939e+06 -5.88180e+06 -7.13679e+06 -8.11562e+06 -8.56049e+06 -8.10993e+06
+ -6.87646e+06 -5.30658e+06 -4.39638e+06
+ -8.04613e+06 -9.64970e+06 -1.09464e+07 -1.20434e+07 -1.14682e+07 -1.08925e+07
+ -9.49470e+06 -7.82116e+06 -6.03092e+06 -4.45459e+06 -3.06120e+06 -2.22395e+06
+ -1.43392e+06 -740196. -599572. -432156. -419471. -706885.
+ -1.03281e+06 -1.43962e+06 -1.89717e+06 -2.74182e+06 -3.53240e+06 -4.44286e+06
+ -5.66286e+06 -7.22603e+06 -8.84766e+06 -1.00557e+07 -1.03666e+07 -9.51602e+06
+ -8.07386e+06 -5.99769e+06 -5.22129e+06
+ -9.12952e+06 -1.11533e+07 -1.22947e+07 -1.37753e+07 -1.33641e+07 -1.26157e+07
+ -1.12751e+07 -9.37826e+06 -7.34443e+06 -5.45004e+06 -3.87862e+06 -2.74875e+06
+ -1.78683e+06 -1.14196e+06 -984781. -706063. -649639. -1.01672e+06
+ -1.41959e+06 -1.88039e+06 -2.19305e+06 -3.24719e+06 -4.21468e+06 -5.24378e+06
+ -6.83314e+06 -8.95040e+06 -1.10250e+07 -1.23908e+07 -1.25700e+07 -1.14013e+07
+ -9.30124e+06 -7.03251e+06 -5.67998e+06
+ -1.05607e+07 -1.22618e+07 -1.40911e+07 -1.60509e+07 -1.59382e+07 -1.47832e+07
+ -1.34269e+07 -1.13818e+07 -9.20897e+06 -6.72266e+06 -5.08491e+06 -3.51219e+06
+ -2.32756e+06 -1.80669e+06 -1.51453e+06 -1.08078e+06 -1.05135e+06 -1.52370e+06
+ -1.80552e+06 -2.31451e+06 -2.73601e+06 -3.95991e+06 -4.99531e+06 -6.45070e+06
+ -8.42563e+06 -1.12389e+07 -1.37410e+07 -1.55132e+07 -1.52815e+07 -1.36214e+07
+ -1.08947e+07 -8.47525e+06 -5.98998e+06
+ -1.15136e+07 -1.34406e+07 -1.62832e+07 -1.83112e+07 -1.86888e+07 -1.79338e+07
+ -1.62743e+07 -1.40775e+07 -1.16325e+07 -8.55688e+06 -6.47325e+06 -4.54066e+06
+ -3.25479e+06 -2.62736e+06 -2.06772e+06 -1.62149e+06 -1.69627e+06 -2.00341e+06
+ -2.41399e+06 -2.96715e+06 -3.66347e+06 -4.87829e+06 -5.97852e+06 -7.89450e+06
+ -1.06069e+07 -1.41283e+07 -1.70928e+07 -1.93893e+07 -1.89494e+07 -1.64599e+07
+ -1.30156e+07 -1.00749e+07 -7.01784e+06
+ -1.27820e+07 -1.54678e+07 -1.83990e+07 -2.12700e+07 -2.22476e+07 -2.16440e+07
+ -1.99398e+07 -1.73744e+07 -1.43873e+07 -1.11081e+07 -8.38278e+06 -6.09802e+06
+ -4.64348e+06 -3.39679e+06 -2.78198e+06 -2.36748e+06 -2.46479e+06 -2.68116e+06
+ -3.18962e+06 -3.83393e+06 -4.77342e+06 -5.78198e+06 -7.38910e+06 -9.41415e+06
+ -1.31758e+07 -1.75727e+07 -2.15545e+07 -2.43216e+07 -2.38492e+07 -2.05990e+07
+ -1.59133e+07 -1.18765e+07 -8.29196e+06
+ -1.49905e+07 -1.80851e+07 -2.11321e+07 -2.54345e+07 -2.70318e+07 -2.66445e+07
+ -2.45199e+07 -2.13336e+07 -1.78369e+07 -1.41098e+07 -1.07755e+07 -8.00765e+06
+ -6.11154e+06 -4.46720e+06 -3.70603e+06 -3.25294e+06 -3.30334e+06 -3.82755e+06
+ -4.40134e+06 -5.04352e+06 -5.92019e+06 -7.22266e+06 -9.09653e+06 -1.17962e+07
+ -1.60388e+07 -2.14188e+07 -2.67015e+07 -3.05730e+07 -3.05841e+07 -2.66301e+07
+ -2.03398e+07 -1.45939e+07 -1.00129e+07
+ -1.83168e+07 -2.22191e+07 -2.55585e+07 -3.14062e+07 -3.36192e+07 -3.32634e+07
+ -2.99773e+07 -2.61470e+07 -2.19476e+07 -1.70234e+07 -1.31822e+07 -9.84955e+06
+ -7.53450e+06 -6.07138e+06 -4.92684e+06 -4.35217e+06 -4.33683e+06 -4.87842e+06
+ -5.46399e+06 -6.11517e+06 -7.13039e+06 -8.79049e+06 -1.10221e+07 -1.49030e+07
+ -1.95826e+07 -2.59042e+07 -3.23564e+07 -3.77767e+07 -3.93543e+07 -3.49208e+07
+ -2.70729e+07 -1.94413e+07 -1.31612e+07
+ -2.37745e+07 -2.79203e+07 -3.29099e+07 -4.00097e+07 -4.21280e+07 -4.05555e+07
+ -3.61758e+07 -3.08987e+07 -2.56671e+07 -1.95408e+07 -1.52248e+07 -1.14373e+07
+ -8.85737e+06 -7.30191e+06 -6.24865e+06 -5.47525e+06 -5.32082e+06 -5.69693e+06
+ -6.02568e+06 -6.85645e+06 -8.18394e+06 -1.02042e+07 -1.32478e+07 -1.75475e+07
+ -2.33445e+07 -3.09656e+07 -3.90916e+07 -4.66271e+07 -5.03075e+07 -4.60156e+07
+ -3.60648e+07 -2.68693e+07 -1.76524e+07
+ -3.05571e+07 -3.60247e+07 -4.31263e+07 -5.08373e+07 -5.13441e+07 -4.78314e+07
+ -4.11907e+07 -3.40865e+07 -2.75901e+07 -2.07480e+07 -1.58814e+07 -1.21763e+07
+ -9.70264e+06 -7.79602e+06 -6.92789e+06 -6.37155e+06 -6.15955e+06 -6.19299e+06
+ -6.57130e+06 -7.41876e+06 -8.83068e+06 -1.12638e+07 -1.44751e+07 -1.93394e+07
+ -2.58486e+07 -3.47621e+07 -4.53147e+07 -5.62681e+07 -6.28497e+07 -5.95621e+07
+ -4.68953e+07 -3.55481e+07 -2.29475e+07
+ -3.61558e+07 -4.47560e+07 -5.37836e+07 -6.03463e+07 -5.83198e+07 -5.20025e+07
+ -4.27812e+07 -3.37348e+07 -2.63854e+07 -1.96383e+07 -1.49457e+07 -1.17941e+07
+ -9.50639e+06 -7.83465e+06 -7.17188e+06 -6.70886e+06 -6.23131e+06 -6.24232e+06
+ -6.63773e+06 -7.21840e+06 -8.75776e+06 -1.10434e+07 -1.39876e+07 -1.89707e+07
+ -2.57036e+07 -3.50607e+07 -4.73507e+07 -6.20383e+07 -7.33917e+07 -7.23998e+07
+ -5.74705e+07 -4.23899e+07 -2.74421e+07
+ -3.87102e+07 -4.92062e+07 -5.95576e+07 -6.36090e+07 -5.87627e+07 -4.94219e+07
+ -3.87213e+07 -2.90844e+07 -2.13821e+07 -1.59806e+07 -1.24239e+07 -1.01221e+07
+ -8.46798e+06 -7.31880e+06 -6.85377e+06 -6.21323e+06 -5.66810e+06 -5.68515e+06
+ -5.95856e+06 -6.40905e+06 -7.59676e+06 -9.11628e+06 -1.17565e+07 -1.58151e+07
+ -2.22048e+07 -3.10382e+07 -4.34531e+07 -5.97795e+07 -7.64155e+07 -7.93425e+07
+ -6.34773e+07 -4.46292e+07 -2.83448e+07
+ -3.57445e+07 -4.64635e+07 -5.55392e+07 -5.70747e+07 -5.03307e+07 -3.96031e+07
+ -2.91181e+07 -2.09539e+07 -1.41673e+07 -1.09023e+07 -8.57830e+06 -7.37073e+06
+ -6.61947e+06 -6.29086e+06 -5.83117e+06 -5.70326e+06 -5.15055e+06 -4.82452e+06
+ -4.81621e+06 -5.15425e+06 -5.63992e+06 -6.23423e+06 -7.96097e+06 -1.11547e+07
+ -1.67115e+07 -2.40068e+07 -3.49617e+07 -5.03480e+07 -6.86574e+07 -7.51718e+07
+ -6.07996e+07 -4.09755e+07 -2.52576e+07
+ -2.70975e+07 -3.74319e+07 -4.33048e+07 -4.22770e+07 -3.57298e+07 -2.63014e+07
+ -1.82829e+07 -1.22793e+07 -8.12279e+06 -6.21467e+06 -4.95713e+06 -4.65846e+06
+ -4.64201e+06 -4.87415e+06 -4.93767e+06 -4.90597e+06 -4.48504e+06 -3.99123e+06
+ -3.73059e+06 -3.56280e+06 -3.59655e+06 -3.77207e+06 -4.68047e+06 -6.93880e+06
+ -1.11844e+07 -1.60719e+07 -2.44831e+07 -3.69187e+07 -5.23739e+07 -5.85009e+07
+ -4.78052e+07 -3.15601e+07 -1.88358e+07
+
+ -3.55072e+06 -4.99987e+06 -6.02945e+06 -6.60782e+06 -6.79887e+06 -6.55612e+06
+ -5.85184e+06 -5.10598e+06 -4.22790e+06 -3.33296e+06 -2.70989e+06 -2.01252e+06
+ -1.34784e+06 -858926. -398979. 285539. 1.11606e+06 2.06213e+06
+ 2.77225e+06 3.37842e+06 3.90307e+06 4.77054e+06 5.35284e+06 5.93357e+06
+ 6.47150e+06 6.70495e+06 6.34947e+06 5.61590e+06 4.62292e+06 3.66018e+06
+ 2.57902e+06 1.60380e+06 1.16746e+06
+ -4.45383e+06 -5.83058e+06 -6.66414e+06 -7.32569e+06 -7.33624e+06 -7.19735e+06
+ -6.48977e+06 -5.64676e+06 -4.68414e+06 -3.74512e+06 -3.11179e+06 -2.40323e+06
+ -1.45025e+06 -921302. -353973. 463077. 1.36781e+06 2.28283e+06
+ 3.13499e+06 3.85835e+06 4.51666e+06 5.44189e+06 6.14799e+06 6.91492e+06
+ 7.28851e+06 7.14776e+06 6.46215e+06 5.62107e+06 4.60315e+06 3.21062e+06
+ 2.38794e+06 1.32132e+06 1.04646e+06
+ -4.70834e+06 -6.38213e+06 -6.98383e+06 -7.80499e+06 -7.87309e+06 -7.69530e+06
+ -6.93780e+06 -5.95506e+06 -5.13111e+06 -4.22145e+06 -3.47526e+06 -2.44710e+06
+ -1.72458e+06 -1.09104e+06 -347058. 504642. 1.60800e+06 2.63589e+06
+ 3.52625e+06 4.46533e+06 5.26146e+06 6.08424e+06 6.90820e+06 7.74624e+06
+ 7.95113e+06 7.59800e+06 6.59244e+06 5.27725e+06 3.84309e+06 2.51270e+06
+ 1.58897e+06 703105. 927493.
+ -4.68509e+06 -6.56767e+06 -6.97190e+06 -7.85002e+06 -8.07457e+06 -7.80566e+06
+ -7.09518e+06 -6.28607e+06 -5.51038e+06 -4.57482e+06 -3.78209e+06 -2.76081e+06
+ -2.04436e+06 -1.09009e+06 -265386. 609069. 1.72391e+06 3.12830e+06
+ 4.06925e+06 5.08456e+06 5.99773e+06 6.82032e+06 7.71685e+06 8.28118e+06
+ 8.24515e+06 7.66331e+06 6.26582e+06 4.25000e+06 2.34948e+06 982298.
+ -20059.0 -64966.8 613551.
+ -4.69749e+06 -6.44030e+06 -6.49708e+06 -7.21265e+06 -7.38584e+06 -7.32556e+06
+ -6.85608e+06 -6.33487e+06 -5.60821e+06 -4.77851e+06 -3.95051e+06 -3.10253e+06
+ -2.28645e+06 -1.23318e+06 -315501. 604757. 2.00072e+06 3.53725e+06
+ 4.56446e+06 5.64245e+06 6.56234e+06 7.60477e+06 8.38204e+06 8.63331e+06
+ 8.45059e+06 7.23908e+06 5.16009e+06 2.47196e+06 320319. -1.44584e+06
+ -1.93342e+06 -1.19718e+06 307289.
+ -4.49838e+06 -6.26456e+06 -5.79337e+06 -5.82814e+06 -6.04253e+06 -6.50012e+06
+ -6.15382e+06 -5.85435e+06 -5.33757e+06 -4.90817e+06 -4.18729e+06 -3.22755e+06
+ -2.38849e+06 -1.48579e+06 -493460. 705965. 2.31874e+06 3.91299e+06
+ 5.22346e+06 6.21151e+06 7.34458e+06 8.49840e+06 8.95104e+06 9.03370e+06
+ 8.50384e+06 6.45291e+06 3.22050e+06 -136649. -2.72809e+06 -4.73708e+06
+ -4.44659e+06 -2.93313e+06 -105684.
+ -3.58240e+06 -4.92457e+06 -4.25588e+06 -3.52074e+06 -3.96893e+06 -4.75577e+06
+ -4.95364e+06 -5.16626e+06 -4.88780e+06 -4.71702e+06 -4.22348e+06 -3.53010e+06
+ -2.51924e+06 -1.62320e+06 -545868. 784476. 2.40629e+06 4.29834e+06
+ 5.81076e+06 6.88484e+06 8.02550e+06 9.26642e+06 9.59552e+06 9.53876e+06
+ 8.24742e+06 5.51925e+06 1.02528e+06 -3.58259e+06 -6.81395e+06 -8.87422e+06
+ -8.35416e+06 -5.71539e+06 -1.16019e+06
+ -1.82625e+06 -2.72806e+06 -1.48254e+06 -303616. -1.17032e+06 -2.48781e+06
+ -3.30142e+06 -3.97047e+06 -4.25600e+06 -4.48402e+06 -4.29078e+06 -3.96559e+06
+ -2.83877e+06 -1.74283e+06 -613410. 730439. 2.61691e+06 4.67027e+06
+ 6.43648e+06 7.71550e+06 8.90848e+06 1.02468e+07 1.04554e+07 1.00494e+07
+ 8.06028e+06 4.47337e+06 -1.47807e+06 -7.89571e+06 -1.20943e+07 -1.41681e+07
+ -1.34931e+07 -9.07943e+06 -3.61431e+06
+ 1.49534e+06 365904. 2.68613e+06 3.62820e+06 2.20632e+06 249844.
+ -1.44080e+06 -2.49013e+06 -3.53319e+06 -4.49548e+06 -4.71890e+06 -4.40924e+06
+ -3.44317e+06 -2.15073e+06 -788457. 648579. 2.87792e+06 5.43655e+06
+ 7.07937e+06 8.78438e+06 1.02344e+07 1.13475e+07 1.18273e+07 1.09583e+07
+ 8.29539e+06 3.43204e+06 -4.42969e+06 -1.29413e+07 -1.86596e+07 -2.17207e+07
+ -2.09278e+07 -1.46912e+07 -6.51308e+06
+ 7.56629e+06 5.66916e+06 8.31305e+06 8.91694e+06 6.67614e+06 3.32797e+06
+ 612285. -1.08944e+06 -2.94005e+06 -4.54241e+06 -5.13754e+06 -4.96333e+06
+ -4.12481e+06 -2.81397e+06 -1.24938e+06 638691. 3.15028e+06 6.07947e+06
+ 7.93264e+06 9.93198e+06 1.18211e+07 1.29192e+07 1.36221e+07 1.22716e+07
+ 8.98229e+06 2.31072e+06 -7.34532e+06 -1.82429e+07 -2.63651e+07 -3.16151e+07
+ -3.14588e+07 -2.33066e+07 -1.10414e+07
+ 1.71370e+07 1.42650e+07 1.60241e+07 1.56099e+07 1.16976e+07 6.77915e+06
+ 3.04291e+06 -112688. -2.92812e+06 -4.68655e+06 -5.59873e+06 -5.34733e+06
+ -4.52853e+06 -2.92771e+06 -1.20799e+06 994964. 3.81154e+06 6.82019e+06
+ 9.03437e+06 1.11220e+07 1.34764e+07 1.52394e+07 1.56908e+07 1.40386e+07
+ 9.74426e+06 1.38040e+06 -1.04578e+07 -2.36313e+07 -3.42160e+07 -4.23282e+07
+ -4.39746e+07 -3.37927e+07 -1.83173e+07
+ 2.94187e+07 2.56907e+07 2.59295e+07 2.34831e+07 1.78461e+07 1.16859e+07
+ 5.91061e+06 620697. -2.94274e+06 -5.10464e+06 -5.98777e+06 -5.06859e+06
+ -3.75631e+06 -1.67662e+06 407250. 2.59178e+06 5.49188e+06 8.45757e+06
+ 1.06792e+07 1.30071e+07 1.55646e+07 1.80768e+07 1.84504e+07 1.65134e+07
+ 1.10626e+07 1.36379e+06 -1.23606e+07 -2.66774e+07 -3.86036e+07 -4.94545e+07
+ -5.44441e+07 -4.47325e+07 -2.52879e+07
+ 4.39849e+07 3.90230e+07 3.70336e+07 3.29162e+07 2.66609e+07 1.88123e+07
+ 9.95235e+06 2.83214e+06 -2.06133e+06 -5.12005e+06 -5.81062e+06 -4.62119e+06
+ -2.53920e+06 5480.09 2.61389e+06 5.20693e+06 8.53370e+06 1.14021e+07
+ 1.35327e+07 1.57813e+07 1.84296e+07 2.06529e+07 2.10069e+07 1.87434e+07
+ 1.24425e+07 2.94191e+06 -1.05155e+07 -2.41720e+07 -3.53731e+07 -4.79726e+07
+ -5.57188e+07 -5.05960e+07 -2.95703e+07
+ 5.95039e+07 5.26829e+07 4.88245e+07 4.39172e+07 3.70050e+07 2.78387e+07
+ 1.65741e+07 7.68895e+06 880994. -3.44198e+06 -4.82744e+06 -4.43620e+06
+ -2.57154e+06 277526. 3.51092e+06 7.13564e+06 1.14030e+07 1.42231e+07
+ 1.58966e+07 1.78734e+07 1.92465e+07 2.01742e+07 2.00236e+07 1.74720e+07
+ 1.16968e+07 3.82607e+06 -7.39883e+06 -1.85536e+07 -2.81561e+07 -3.89391e+07
+ -4.88555e+07 -4.92050e+07 -3.01465e+07
+ 7.19089e+07 6.57642e+07 5.92290e+07 5.27782e+07 4.53466e+07 3.58667e+07
+ 2.44927e+07 1.40514e+07 5.94455e+06 669667. -1.97690e+06 -2.82294e+06
+ -2.40990e+06 -392324. 2.91901e+06 7.12108e+06 1.15550e+07 1.40395e+07
+ 1.52400e+07 1.64521e+07 1.65396e+07 1.61170e+07 1.48973e+07 1.21779e+07
+ 7.30197e+06 934353. -8.03594e+06 -1.69587e+07 -2.45544e+07 -3.28888e+07
+ -4.34348e+07 -4.60278e+07 -2.79150e+07
+ 7.31755e+07 6.84793e+07 6.04269e+07 5.19588e+07 4.62576e+07 3.80474e+07
+ 2.85959e+07 1.75936e+07 9.44234e+06 4.23580e+06 1.19837e+06 -370487.
+ -1.00093e+06 -791819. 1.07376e+06 4.21612e+06 7.96455e+06 1.05030e+07
+ 1.13706e+07 1.22715e+07 1.23749e+07 1.15430e+07 9.69004e+06 6.56970e+06
+ 1.84186e+06 -4.91626e+06 -1.33738e+07 -2.20515e+07 -2.78084e+07 -3.46830e+07
+ -4.39111e+07 -4.42749e+07 -2.56790e+07
+
+ 314622. 446158. 148497. -499169. -984650. -1.57307e+06
+ -2.06252e+06 -2.30127e+06 -2.36037e+06 -2.38820e+06 -2.38484e+06 -2.46321e+06
+ -2.46477e+06 -2.28964e+06 -2.07567e+06 -2.07025e+06 -2.00655e+06 -1.70399e+06
+ -1.75543e+06 -1.61228e+06 -1.45910e+06 -1.43468e+06 -1.18201e+06 -758098.
+ -591213. 9495.46 492214. 858164. 1.42647e+06 1.96626e+06
+ 2.27162e+06 1.46600e+06 1.34364e+06
+ 830839. 777802. 486524. -189759. -911943. -1.62540e+06
+ -2.35477e+06 -2.61193e+06 -2.80977e+06 -2.82663e+06 -2.81980e+06 -2.84717e+06
+ -2.72957e+06 -2.55313e+06 -2.47814e+06 -2.30386e+06 -2.30258e+06 -2.03197e+06
+ -2.03956e+06 -1.87952e+06 -1.69439e+06 -1.56273e+06 -1.36476e+06 -872512.
+ -656796. 33083.6 557997. 1.11306e+06 1.62876e+06 2.45728e+06
+ 2.64862e+06 1.67485e+06 1.62549e+06
+ 1.40992e+06 1.01926e+06 883529. 232237. -726269. -1.70827e+06
+ -2.43038e+06 -2.97828e+06 -3.17144e+06 -3.16360e+06 -3.23444e+06 -3.25242e+06
+ -3.00148e+06 -2.86504e+06 -2.92862e+06 -2.60138e+06 -2.53936e+06 -2.47243e+06
+ -2.42798e+06 -2.14671e+06 -2.11274e+06 -1.78402e+06 -1.65288e+06 -1.23371e+06
+ -507537. 110355. 750772. 1.62337e+06 2.08383e+06 3.00635e+06
+ 3.09527e+06 1.81804e+06 1.87705e+06
+ 1.55433e+06 1.32187e+06 1.50024e+06 817837. -143493. -1.42653e+06
+ -2.52295e+06 -3.29583e+06 -3.46711e+06 -3.62335e+06 -3.67885e+06 -3.69724e+06
+ -3.49656e+06 -3.33883e+06 -3.34451e+06 -3.08881e+06 -2.95448e+06 -2.81023e+06
+ -2.76195e+06 -2.62917e+06 -2.54842e+06 -2.19144e+06 -2.08008e+06 -1.36691e+06
+ -560842. 84850.7 1.12872e+06 2.20234e+06 2.90165e+06 3.54454e+06
+ 3.39054e+06 2.10718e+06 2.06818e+06
+ 2.10422e+06 1.96398e+06 2.37741e+06 1.62944e+06 680338. -978752.
+ -2.42967e+06 -3.59874e+06 -4.08700e+06 -4.18894e+06 -4.27633e+06 -4.16969e+06
+ -4.06143e+06 -3.90198e+06 -3.83687e+06 -3.53274e+06 -3.52396e+06 -3.29145e+06
+ -3.17657e+06 -3.16589e+06 -2.97902e+06 -2.63046e+06 -2.30603e+06 -1.65049e+06
+ -735568. 203099. 1.56169e+06 2.72754e+06 3.63178e+06 4.04311e+06
+ 3.60526e+06 2.25203e+06 2.23986e+06
+ 3.23761e+06 2.64592e+06 3.30785e+06 3.06540e+06 1.99713e+06 -117286.
+ -2.21664e+06 -3.83958e+06 -4.67221e+06 -4.90900e+06 -4.91614e+06 -4.83516e+06
+ -4.75580e+06 -4.54792e+06 -4.52428e+06 -4.19398e+06 -4.17176e+06 -3.95673e+06
+ -3.78664e+06 -3.74243e+06 -3.45139e+06 -3.16789e+06 -2.73246e+06 -2.14426e+06
+ -843505. 200478. 1.66135e+06 3.33308e+06 4.28598e+06 4.58644e+06
+ 4.02397e+06 2.26311e+06 2.26998e+06
+ 4.13632e+06 3.68526e+06 4.53418e+06 5.18224e+06 3.86227e+06 917375.
+ -1.80651e+06 -4.02618e+06 -5.33214e+06 -5.64667e+06 -5.82556e+06 -5.68440e+06
+ -5.71767e+06 -5.54010e+06 -5.29686e+06 -5.16816e+06 -4.95688e+06 -4.77030e+06
+ -4.73661e+06 -4.49655e+06 -4.15780e+06 -3.91459e+06 -3.45490e+06 -2.61190e+06
+ -1.16572e+06 244.466 1.98274e+06 4.03988e+06 5.29704e+06 5.59138e+06
+ 4.27821e+06 2.22007e+06 2.36692e+06
+ 4.99686e+06 5.34964e+06 6.98329e+06 7.89100e+06 6.17899e+06 2.37131e+06
+ -1.39075e+06 -4.38627e+06 -6.13055e+06 -6.47358e+06 -7.12129e+06 -6.80804e+06
+ -6.86818e+06 -6.78151e+06 -6.39888e+06 -6.34743e+06 -6.17111e+06 -6.09323e+06
+ -6.07133e+06 -5.64219e+06 -5.22875e+06 -4.94938e+06 -4.25569e+06 -3.22399e+06
+ -1.72086e+06 -159111. 2.44467e+06 4.91845e+06 6.66619e+06 6.82378e+06
+ 4.42561e+06 2.19219e+06 2.70136e+06
+ 6.69067e+06 7.58861e+06 1.04930e+07 1.17057e+07 9.15262e+06 3.90454e+06
+ -955672. -4.98950e+06 -7.25435e+06 -8.01610e+06 -8.63589e+06 -8.58099e+06
+ -8.46686e+06 -8.46626e+06 -8.25006e+06 -8.15952e+06 -7.98556e+06 -7.88180e+06
+ -7.65327e+06 -7.35489e+06 -6.91609e+06 -6.36045e+06 -5.32033e+06 -4.11881e+06
+ -2.36389e+06 -459976. 2.55354e+06 5.87274e+06 8.26201e+06 8.10314e+06
+ 4.86305e+06 1.87699e+06 2.85748e+06
+ 9.93996e+06 1.14642e+07 1.53442e+07 1.69839e+07 1.27627e+07 5.42042e+06
+ -915904. -6.19836e+06 -9.07945e+06 -1.02025e+07 -1.09406e+07 -1.09866e+07
+ -1.10136e+07 -1.08162e+07 -1.06788e+07 -1.05978e+07 -1.03633e+07 -1.01335e+07
+ -9.83324e+06 -9.73641e+06 -9.07943e+06 -8.30026e+06 -6.93627e+06 -5.53781e+06
+ -3.47771e+06 -1.15281e+06 2.42557e+06 6.66591e+06 1.03578e+07 1.01917e+07
+ 5.76634e+06 1.73007e+06 3.16264e+06
+ 1.49495e+07 1.72695e+07 2.21468e+07 2.36738e+07 1.70876e+07 7.26040e+06
+ -1.43420e+06 -7.89526e+06 -1.14533e+07 -1.28460e+07 -1.37899e+07 -1.39868e+07
+ -1.40029e+07 -1.38100e+07 -1.33602e+07 -1.33678e+07 -1.32249e+07 -1.30570e+07
+ -1.26671e+07 -1.26545e+07 -1.19539e+07 -1.08690e+07 -9.39686e+06 -7.64432e+06
+ -5.43361e+06 -2.39658e+06 1.55867e+06 6.93542e+06 1.27490e+07 1.35424e+07
+ 7.44048e+06 1.82207e+06 3.57662e+06
+ 2.21331e+07 2.50503e+07 3.08435e+07 3.11208e+07 2.16562e+07 8.88878e+06
+ -1.59405e+06 -9.27308e+06 -1.37235e+07 -1.54569e+07 -1.66190e+07 -1.68749e+07
+ -1.67718e+07 -1.65193e+07 -1.61485e+07 -1.58390e+07 -1.59040e+07 -1.57056e+07
+ -1.54465e+07 -1.54786e+07 -1.49271e+07 -1.37698e+07 -1.21113e+07 -1.03024e+07
+ -8.30964e+06 -5.25102e+06 -1.40885e+06 4.88978e+06 1.32549e+07 1.74300e+07
+ 9.87130e+06 1.40494e+06 3.01046e+06
+ 3.02707e+07 3.35656e+07 3.88766e+07 3.75620e+07 2.46215e+07 9.88670e+06
+ -1.87661e+06 -9.85847e+06 -1.46943e+07 -1.65421e+07 -1.80053e+07 -1.83178e+07
+ -1.81750e+07 -1.78135e+07 -1.75960e+07 -1.74003e+07 -1.71198e+07 -1.68753e+07
+ -1.70699e+07 -1.69578e+07 -1.66642e+07 -1.58287e+07 -1.47556e+07 -1.37598e+07
+ -1.24548e+07 -1.04428e+07 -7.29334e+06 -1.42024e+06 9.34799e+06 1.82425e+07
+ 1.14886e+07 67750.9 624176.
+ 3.51577e+07 3.98675e+07 4.25601e+07 3.82588e+07 2.29900e+07 9.05775e+06
+ -2.52360e+06 -9.56056e+06 -1.34435e+07 -1.52633e+07 -1.65018e+07 -1.68328e+07
+ -1.69626e+07 -1.68514e+07 -1.65284e+07 -1.68815e+07 -1.64690e+07 -1.60974e+07
+ -1.61964e+07 -1.59337e+07 -1.59981e+07 -1.60108e+07 -1.60851e+07 -1.62591e+07
+ -1.58795e+07 -1.51809e+07 -1.35066e+07 -9.22428e+06 920864. 1.24541e+07
+ 8.70616e+06 -3.26953e+06 -3.59194e+06
+ 3.49509e+07 3.95453e+07 3.86583e+07 3.04088e+07 1.63485e+07 6.43126e+06
+ -2.74819e+06 -8.10649e+06 -1.08209e+07 -1.19836e+07 -1.26484e+07 -1.28436e+07
+ -1.31220e+07 -1.34581e+07 -1.34992e+07 -1.39350e+07 -1.41865e+07 -1.37246e+07
+ -1.30720e+07 -1.28284e+07 -1.28508e+07 -1.33146e+07 -1.40622e+07 -1.48678e+07
+ -1.54923e+07 -1.56902e+07 -1.60388e+07 -1.41171e+07 -7.56062e+06 2.21120e+06
+ 1.87923e+06 -6.79395e+06 -6.25933e+06
+ 2.68058e+07 2.88927e+07 2.57324e+07 1.67386e+07 8.00355e+06 3.18029e+06
+ -2.92845e+06 -6.16205e+06 -7.83704e+06 -8.19593e+06 -8.03996e+06 -8.15821e+06
+ -8.13770e+06 -8.74026e+06 -9.27406e+06 -9.45137e+06 -9.82897e+06 -9.61808e+06
+ -8.96977e+06 -8.28431e+06 -8.54411e+06 -8.54880e+06 -9.32880e+06 -1.03803e+07
+ -1.16081e+07 -1.27403e+07 -1.42620e+07 -1.46988e+07 -1.13056e+07 -5.75416e+06
+ -4.20125e+06 -6.62876e+06 -4.62718e+06
+
+ -302660. -1.11559e+06 -2.19960e+06 -3.10059e+06 -3.24503e+06 -3.21937e+06
+ -2.57048e+06 -2.06865e+06 -1.45140e+06 -699461. -470705. -78972.6
+ 39010.5 171977. 276568. 84043.2 -42814.0 -330903.
+ -464969. -852412. -980072. -1.56976e+06 -2.04175e+06 -2.74584e+06
+ -3.35110e+06 -4.20667e+06 -4.86348e+06 -5.42336e+06 -5.44660e+06 -5.12736e+06
+ -4.46789e+06 -2.46836e+06 -1.23812e+06
+ -398613. -774736. -2.29070e+06 -3.35608e+06 -3.67333e+06 -3.42771e+06
+ -2.93630e+06 -2.47739e+06 -1.60763e+06 -820295. -548411. -93521.2
+ 40055.5 165809. 119552. 15208.1 -63405.1 -468679.
+ -586254. -1.05498e+06 -1.31501e+06 -1.80078e+06 -2.39350e+06 -3.12499e+06
+ -3.88050e+06 -4.83327e+06 -5.59750e+06 -6.24971e+06 -6.06055e+06 -5.85433e+06
+ -4.66728e+06 -2.57079e+06 -1.46740e+06
+ 455.886 -715008. -2.43340e+06 -3.57041e+06 -4.05754e+06 -3.81394e+06
+ -3.23399e+06 -2.65551e+06 -1.80325e+06 -981683. -623178. -207793.
+ -10872.5 217008. 130246. -38328.6 -214943. -532607.
+ -853299. -1.13667e+06 -1.60342e+06 -2.19662e+06 -2.76287e+06 -3.57553e+06
+ -4.50710e+06 -5.46169e+06 -6.63191e+06 -7.23290e+06 -7.00814e+06 -6.18840e+06
+ -4.94734e+06 -2.84462e+06 -1.58058e+06
+ 330423. -395028. -2.31558e+06 -4.13557e+06 -4.31726e+06 -4.18312e+06
+ -3.65317e+06 -2.95668e+06 -2.01451e+06 -1.22726e+06 -694177. -235233.
+ -31272.5 138144. 101589. 29620.5 -224115. -548214.
+ -955210. -1.29654e+06 -1.71616e+06 -2.45185e+06 -3.16166e+06 -4.05998e+06
+ -5.13444e+06 -6.36515e+06 -7.65135e+06 -8.21974e+06 -7.81432e+06 -6.44219e+06
+ -5.37740e+06 -2.88001e+06 -1.65159e+06
+ 718595. 750743. -2.31566e+06 -4.35440e+06 -4.67945e+06 -4.42881e+06
+ -4.08899e+06 -3.43092e+06 -2.38425e+06 -1.41846e+06 -647807. -423240.
+ 40009.1 6436.83 -53992.9 -118203. -368000. -681360.
+ -1.09006e+06 -1.42555e+06 -1.93396e+06 -2.66237e+06 -3.58315e+06 -4.72736e+06
+ -5.93136e+06 -7.64127e+06 -8.86212e+06 -9.19164e+06 -8.50458e+06 -7.04471e+06
+ -5.37732e+06 -2.78828e+06 -1.55423e+06
+ 1.46944e+06 1.42759e+06 -2.39554e+06 -4.03773e+06 -4.87836e+06 -4.66115e+06
+ -4.43551e+06 -3.78205e+06 -2.84622e+06 -1.67060e+06 -872867. -615016.
+ -178214. -59694.7 -272307. -420422. -651567. -995575.
+ -1.45076e+06 -1.80833e+06 -2.32205e+06 -3.19474e+06 -4.13711e+06 -5.41527e+06
+ -6.80107e+06 -8.94250e+06 -1.04547e+07 -1.02381e+07 -9.25586e+06 -7.46456e+06
+ -5.23479e+06 -2.57601e+06 -1.16928e+06
+ 2.41132e+06 1.69270e+06 -1.88892e+06 -3.82577e+06 -5.07948e+06 -4.87157e+06
+ -4.68902e+06 -4.04008e+06 -3.09113e+06 -1.73811e+06 -1.22613e+06 -750625.
+ -610788. -334228. -431525. -691640. -790518. -1.35680e+06
+ -1.75754e+06 -2.26597e+06 -2.86639e+06 -3.59232e+06 -4.58994e+06 -6.08120e+06
+ -7.93119e+06 -1.04008e+07 -1.19727e+07 -1.17846e+07 -9.92381e+06 -7.64241e+06
+ -5.04577e+06 -2.19005e+06 -648308.
+ 3.54224e+06 2.93781e+06 -979094. -3.35467e+06 -5.08035e+06 -5.08801e+06
+ -4.79883e+06 -3.99394e+06 -2.94350e+06 -1.76416e+06 -1.46684e+06 -931475.
+ -731274. -601232. -609555. -794370. -888463. -1.44910e+06
+ -1.76990e+06 -2.41608e+06 -3.24466e+06 -4.02538e+06 -5.29090e+06 -6.86172e+06
+ -9.34464e+06 -1.19947e+07 -1.33920e+07 -1.35975e+07 -1.11024e+07 -7.67230e+06
+ -4.05465e+06 -1.41295e+06 48419.7
+ 5.37678e+06 5.22209e+06 412454. -2.46000e+06 -4.80278e+06 -5.05663e+06
+ -4.54001e+06 -3.36081e+06 -2.46350e+06 -1.69986e+06 -1.33421e+06 -869981.
+ -760753. -816892. -899292. -667976. -1.08143e+06 -1.54733e+06
+ -1.93702e+06 -2.54589e+06 -3.33216e+06 -4.36364e+06 -5.84253e+06 -7.63285e+06
+ -1.02715e+07 -1.32823e+07 -1.49937e+07 -1.52574e+07 -1.22472e+07 -7.65933e+06
+ -2.85949e+06 154558. 1.78993e+06
+ 9.07383e+06 8.59966e+06 2.61988e+06 -1.41985e+06 -4.38991e+06 -4.55502e+06
+ -3.47868e+06 -2.11071e+06 -1.29548e+06 -946104. -640220. -555927.
+ -812392. -755566. -672918. -767572. -1.09242e+06 -1.55797e+06
+ -1.96058e+06 -2.55239e+06 -3.24198e+06 -4.35566e+06 -5.76712e+06 -7.96831e+06
+ -1.04943e+07 -1.38991e+07 -1.61938e+07 -1.69265e+07 -1.33180e+07 -7.04198e+06
+ -956977. 2.71163e+06 4.07158e+06
+ 1.32212e+07 1.23869e+07 4.95381e+06 -734272. -4.15987e+06 -3.38733e+06
+ -1.36799e+06 6211.48 989607. 753453. 442204. 198137.
+ -247199. -255439. -239511. -682262. -797964. -1.34778e+06
+ -1.61248e+06 -2.29981e+06 -2.95652e+06 -4.06807e+06 -5.23555e+06 -7.76666e+06
+ -1.02189e+07 -1.35970e+07 -1.62727e+07 -1.78367e+07 -1.41534e+07 -5.81218e+06
+ 2.94616e+06 6.04122e+06 7.08440e+06
+ 1.70428e+07 1.57969e+07 6.59684e+06 -640770. -3.53558e+06 -1.16832e+06
+ 2.09465e+06 3.49528e+06 3.90880e+06 3.00374e+06 1.95236e+06 1.39915e+06
+ 950650. 535903. 219060. 106393. -336073. -811332.
+ -1.28420e+06 -1.53041e+06 -2.28769e+06 -3.26396e+06 -4.34072e+06 -6.40682e+06
+ -8.59105e+06 -1.16890e+07 -1.40862e+07 -1.58103e+07 -1.28704e+07 -3.85545e+06
+ 7.70188e+06 1.15874e+07 1.23112e+07
+ 2.09420e+07 1.87392e+07 7.25111e+06 -833582. -988603. 2.66073e+06
+ 6.39884e+06 7.56617e+06 6.53133e+06 5.13451e+06 3.75862e+06 2.94564e+06
+ 2.25387e+06 1.58524e+06 1.07571e+06 1.05811e+06 243318. -38844.0
+ -532231. -607431. -1.16623e+06 -1.67255e+06 -2.65622e+06 -3.81843e+06
+ -4.65270e+06 -6.40570e+06 -7.81956e+06 -9.04692e+06 -7.14758e+06 1.07469e+06
+ 1.35023e+07 1.96973e+07 1.87418e+07
+ 2.20036e+07 1.95172e+07 7.56329e+06 67512.1 2.65726e+06 7.48750e+06
+ 1.02195e+07 1.03631e+07 8.26613e+06 6.45913e+06 4.83940e+06 3.85931e+06
+ 3.14611e+06 2.26375e+06 1.64637e+06 1.49062e+06 623560. 327768.
+ 345933. 251597. 220614. 229169. -26706.1 -91878.9
+ 667764. 1.53677e+06 1.88718e+06 1.89209e+06 2.77706e+06 8.85665e+06
+ 2.04652e+07 2.74305e+07 2.41472e+07
+ 2.02903e+07 1.82302e+07 8.48651e+06 2.67277e+06 5.91724e+06 1.08887e+07
+ 1.22363e+07 1.10384e+07 8.22431e+06 6.00684e+06 4.48354e+06 3.41454e+06
+ 2.80819e+06 2.16013e+06 1.39925e+06 831700. 467943. 189747.
+ 530887. 883248. 1.43451e+06 1.47520e+06 1.97615e+06 3.15113e+06
+ 5.18794e+06 8.16319e+06 1.04422e+07 1.18256e+07 1.19275e+07 1.66171e+07
+ 2.56511e+07 3.06510e+07 2.53308e+07
+ 1.63068e+07 1.65053e+07 9.53682e+06 5.63948e+06 8.09520e+06 1.11788e+07
+ 1.18340e+07 9.76364e+06 6.53016e+06 4.24594e+06 3.02678e+06 2.26220e+06
+ 1.60430e+06 1.45806e+06 828417. -66651.7 -31229.6 -173968.
+ -29308.8 741866. 1.20032e+06 1.41268e+06 2.06942e+06 3.87907e+06
+ 6.74784e+06 1.06302e+07 1.36202e+07 1.57308e+07 1.58722e+07 1.94946e+07
+ 2.50339e+07 2.64153e+07 2.10679e+07
+
+ -1.52726e+06 -2.07674e+06 -2.53517e+06 -2.92972e+06 -3.50386e+06 -3.38793e+06
+ -3.28060e+06 -2.89016e+06 -2.27576e+06 -1.68715e+06 -1.12714e+06 -674187.
+ -412207. -303117. -75959.4 3139.64 92968.8 15255.4
+ 211441. -95156.3 -208930. -535296. -605754. -804178.
+ -948054. -810047. -594921. -457304. -69738.5 354577.
+ 680402. -44185.9 -149608.
+ -1.67875e+06 -2.12819e+06 -3.00641e+06 -3.54286e+06 -4.02656e+06 -3.86875e+06
+ -3.94307e+06 -3.35999e+06 -2.79400e+06 -1.99779e+06 -1.38263e+06 -846573.
+ -506589. -287468. -164759. -114821. 137547. 137620.
+ 125898. -161720. -253057. -670279. -695746. -952743.
+ -915631. -817621. -433904. -278043. 257192. 495051.
+ 962314. 226106. 16408.5
+ -1.98557e+06 -2.42691e+06 -3.38535e+06 -4.12533e+06 -4.59711e+06 -4.71978e+06
+ -4.57325e+06 -4.06543e+06 -3.17871e+06 -2.26741e+06 -1.51820e+06 -1.06900e+06
+ -533242. -417143. -162562. 50859.1 107038. 148420.
+ -136276. -129520. -330539. -576661. -721584. -1.00156e+06
+ -917876. -770529. -393661. 125079. 801868. 1.14398e+06
+ 1.28967e+06 375353. 145063.
+ -2.03980e+06 -2.60925e+06 -3.80850e+06 -4.60372e+06 -5.02506e+06 -5.62434e+06
+ -5.45322e+06 -4.92362e+06 -3.82140e+06 -2.72390e+06 -1.61584e+06 -1.21195e+06
+ -721773. -532480. -173709. 189550. 208783. 178984.
+ 40276.7 -129356. -291834. -620746. -811753. -969596.
+ -920797. -587017. -188771. 839608. 1.32822e+06 1.76938e+06
+ 1.72290e+06 728201. 10568.2
+ -1.98007e+06 -2.58910e+06 -3.83247e+06 -5.13706e+06 -5.77455e+06 -6.22361e+06
+ -6.43960e+06 -5.72788e+06 -4.66071e+06 -3.28632e+06 -2.12930e+06 -1.36388e+06
+ -888383. -441494. -202780. -35935.2 131342. 65663.6
+ -12764.3 -72056.6 -497989. -830660. -922327. -1.08967e+06
+ -734906. -330003. 280237. 1.42410e+06 1.98637e+06 1.96867e+06
+ 2.31985e+06 1.18786e+06 257184.
+ -2.28960e+06 -2.45665e+06 -3.95810e+06 -5.36536e+06 -6.58061e+06 -7.27845e+06
+ -7.39328e+06 -6.87869e+06 -5.92443e+06 -4.25104e+06 -2.78411e+06 -1.60119e+06
+ -1.05826e+06 -513867. -229544. -97910.9 63376.5 -107099.
+ -227915. -175029. -561312. -922539. -1.05430e+06 -1.01971e+06
+ -635981. -250568. 749083. 1.96743e+06 2.68976e+06 2.76942e+06
+ 2.99719e+06 1.80243e+06 629546.
+ -2.21580e+06 -2.51147e+06 -3.86368e+06 -5.32595e+06 -6.91210e+06 -8.30569e+06
+ -8.66832e+06 -8.29799e+06 -7.24581e+06 -5.31594e+06 -3.50876e+06 -2.04360e+06
+ -1.32538e+06 -664712. -262854. -84464.2 -54427.5 -105425.
+ -176084. -166351. -500911. -694100. -807447. -613404.
+ -423210. 1530.40 1.51709e+06 2.82930e+06 3.83717e+06 4.15853e+06
+ 4.07448e+06 2.92045e+06 1.26068e+06
+ -1.51421e+06 -1.87883e+06 -3.33242e+06 -5.10140e+06 -7.41629e+06 -9.32973e+06
+ -1.01909e+07 -9.87709e+06 -8.47202e+06 -6.35023e+06 -4.25336e+06 -2.71594e+06
+ -1.60428e+06 -708430. -478973. -158615. -222100. -183440.
+ -30704.5 -87017.5 -357793. -230402. -247000. -199325.
+ 186633. 675827. 2.66774e+06 3.99996e+06 5.08863e+06 5.53456e+06
+ 5.34541e+06 3.73449e+06 1.84906e+06
+ -391431. -47685.1 -2.13394e+06 -4.68367e+06 -8.22758e+06 -1.09893e+07
+ -1.20739e+07 -1.14841e+07 -1.00554e+07 -7.68287e+06 -5.06889e+06 -3.36582e+06
+ -1.87664e+06 -1.03799e+06 -596103. -234012. -194143. -151822.
+ 267162. 70340.7 248900. 405089. 508748. 667050.
+ 1.09967e+06 2.20542e+06 3.72157e+06 5.26288e+06 6.55002e+06 7.32531e+06
+ 7.28569e+06 4.48033e+06 2.86917e+06
+ 1.21789e+06 1.99393e+06 -23206.5 -4.46325e+06 -9.42026e+06 -1.28273e+07
+ -1.40656e+07 -1.33710e+07 -1.17719e+07 -8.70067e+06 -5.80715e+06 -3.76039e+06
+ -1.97061e+06 -1.31269e+06 -513452. -244340. -100251. 261457.
+ 745056. 836367. 1.26437e+06 1.63230e+06 1.73306e+06 2.02189e+06
+ 2.31900e+06 3.91550e+06 5.15245e+06 7.15415e+06 8.25668e+06 9.31305e+06
+ 9.85843e+06 6.36526e+06 4.30448e+06
+ 3.33746e+06 4.76734e+06 2.09443e+06 -4.50350e+06 -1.06230e+07 -1.46812e+07
+ -1.57763e+07 -1.48163e+07 -1.24547e+07 -9.21320e+06 -6.07284e+06 -3.59102e+06
+ -2.00861e+06 -1.05758e+06 -323970. 258291. 553596. 1.08268e+06
+ 1.62307e+06 2.16837e+06 2.42849e+06 3.02879e+06 3.17239e+06 3.61415e+06
+ 4.44558e+06 5.79075e+06 7.36460e+06 9.31021e+06 1.02668e+07 1.09946e+07
+ 1.21569e+07 9.06545e+06 5.36130e+06
+ 5.82245e+06 8.17156e+06 3.94067e+06 -4.26098e+06 -1.12615e+07 -1.61217e+07
+ -1.62176e+07 -1.44625e+07 -1.17990e+07 -8.48357e+06 -5.33448e+06 -2.90560e+06
+ -1.58551e+06 -260646. 721898. 1.34569e+06 1.66485e+06 2.43203e+06
+ 2.94656e+06 3.50661e+06 3.80039e+06 4.39664e+06 4.76614e+06 5.60999e+06
+ 7.28690e+06 8.11138e+06 9.12150e+06 1.01865e+07 1.08483e+07 1.21142e+07
+ 1.41855e+07 1.13842e+07 6.66738e+06
+ 9.06489e+06 1.13874e+07 5.67956e+06 -3.68154e+06 -1.10507e+07 -1.54319e+07
+ -1.45565e+07 -1.20657e+07 -9.82804e+06 -6.42173e+06 -3.73214e+06 -1.87188e+06
+ -400595. 1.06093e+06 2.11792e+06 2.49963e+06 3.14276e+06 3.86019e+06
+ 4.44926e+06 4.72594e+06 5.02071e+06 5.71447e+06 6.20275e+06 7.28046e+06
+ 9.02113e+06 9.81109e+06 9.07596e+06 8.70186e+06 8.73552e+06 1.13873e+07
+ 1.45788e+07 1.28017e+07 7.93223e+06
+ 1.18185e+07 1.40784e+07 7.47251e+06 -2.83024e+06 -9.49919e+06 -1.18655e+07
+ -1.06483e+07 -8.39036e+06 -5.98265e+06 -3.57295e+06 -1.79529e+06 -747072.
+ 698449. 1.96088e+06 2.95969e+06 3.59496e+06 4.67350e+06 5.06739e+06
+ 5.44708e+06 5.37397e+06 5.58271e+06 6.15153e+06 6.48645e+06 7.39810e+06
+ 8.38441e+06 8.65817e+06 6.75729e+06 4.81794e+06 3.87008e+06 8.40723e+06
+ 1.27863e+07 1.26360e+07 8.10105e+06
+ 1.33591e+07 1.44416e+07 9.05186e+06 -808522. -6.00096e+06 -5.93183e+06
+ -4.99091e+06 -3.76018e+06 -2.09215e+06 -901217. -150463. 326503.
+ 1.18072e+06 2.09755e+06 2.98833e+06 3.96878e+06 5.04810e+06 5.30833e+06
+ 5.17961e+06 4.88987e+06 4.93672e+06 5.02583e+06 5.27903e+06 5.25121e+06
+ 5.33096e+06 4.94452e+06 2.80761e+06 2735.07 -1.78473e+06 2.71400e+06
+ 8.84490e+06 1.04558e+07 7.51467e+06
+ 1.37744e+07 1.24939e+07 7.53366e+06 1.31306e+06 -1.59992e+06 -189174.
+ 137513. 524960. 412972. 377088. 824169. 1.15655e+06
+ 1.37633e+06 1.64690e+06 1.98329e+06 2.87411e+06 3.87888e+06 3.99244e+06
+ 3.74317e+06 3.79913e+06 3.48476e+06 3.11324e+06 3.18694e+06 2.46018e+06
+ 1.73249e+06 1.26126e+06 -985498. -4.13847e+06 -6.07281e+06 -3.73988e+06
+ 3.44504e+06 6.56588e+06 5.34647e+06
+
+ -355561. -575353. -349060. 245487. 852879. 1.21763e+06
+ 1.35605e+06 1.47556e+06 1.39400e+06 1.13356e+06 1.08495e+06 866514.
+ 823971. 692396. 721944. 449541. 396570. 246535.
+ 187936. 126774. 163179. 199562. 164621. 50949.1
+ -25579.0 -291338. -318826. -505510. -518757. -535980.
+ -391251. 180538. -148459.
+ -735764. -757612. -358528. 145630. 857170. 1.30043e+06
+ 1.55024e+06 1.55990e+06 1.47872e+06 1.32302e+06 1.22323e+06 1.05218e+06
+ 859199. 769432. 696977. 546244. 407869. 235861.
+ 322409. 164585. 202908. 274039. 101772. 2083.30
+ -87069.2 -376522. -490551. -568508. -634447. -658964.
+ -510403. -132276. -262007.
+ -781223. -743266. -636755. 54753.1 676854. 1.17501e+06
+ 1.59866e+06 1.58018e+06 1.75265e+06 1.51623e+06 1.29506e+06 1.20594e+06
+ 917055. 768442. 615335. 545577. 383910. 279640.
+ 323445. 306141. 227474. 215250. 29643.2 -96239.4
+ -277161. -531031. -788055. -754007. -958035. -757009.
+ -625011. -222055. -408806.
+ -945202. -944919. -932670. -5151.57 472196. 1.04893e+06
+ 1.44915e+06 1.58985e+06 1.81760e+06 1.58600e+06 1.32064e+06 1.17256e+06
+ 1.02976e+06 780426. 663011. 539178. 385725. 222912.
+ 114269. 254706. 89430.3 40837.7 -114845. -157130.
+ -475166. -824421. -930572. -1.00554e+06 -1.07284e+06 -1.11801e+06
+ -312900. -401034. -468518.
+ -1.05820e+06 -1.38914e+06 -1.10655e+06 -391732. 144344. 944084.
+ 1.25142e+06 1.53383e+06 1.58986e+06 1.53613e+06 1.46786e+06 1.27289e+06
+ 870765. 853191. 690060. 563496. 365095. 191438.
+ 41542.1 138882. -30576.3 -41955.9 -166827. -301930.
+ -585320. -943798. -1.07773e+06 -1.38713e+06 -1.49855e+06 -1.32728e+06
+ -453244. -711134. -934144.
+ -1.35692e+06 -1.68139e+06 -1.52659e+06 -957235. -427782. 644116.
+ 964606. 1.26855e+06 1.37394e+06 1.56803e+06 1.56671e+06 1.27524e+06
+ 833297. 839588. 638408. 484889. 266742. 165129.
+ -33734.2 55648.4 -126261. -60938.3 -78707.6 -536055.
+ -919713. -1.08596e+06 -1.54748e+06 -1.96804e+06 -2.17221e+06 -1.66882e+06
+ -688280. -1.18457e+06 -1.55075e+06
+ -1.70952e+06 -1.82382e+06 -2.14211e+06 -1.70984e+06 -1.28553e+06 -103698.
+ 470061. 1.09537e+06 1.07714e+06 1.39169e+06 1.42035e+06 1.08193e+06
+ 863961. 586250. 543859. 367610. 119452. 57939.5
+ -110320. -83010.4 -186756. -214657. -349225. -843056.
+ -1.38934e+06 -1.46447e+06 -2.00012e+06 -2.44734e+06 -2.75694e+06 -2.03288e+06
+ -449710. -1.66182e+06 -2.15392e+06
+ -1.92517e+06 -2.32290e+06 -2.72002e+06 -2.64331e+06 -2.10154e+06 -1.18170e+06
+ -281572. 512016. 610820. 780681. 1.08379e+06 862788.
+ 703145. 201456. 257183. 144933. -32250.6 -234963.
+ -274312. -421360. -411450. -524207. -826238. -1.19839e+06
+ -1.63520e+06 -1.87608e+06 -2.44696e+06 -2.75861e+06 -3.19248e+06 -2.54715e+06
+ -126733. -2.41283e+06 -3.61441e+06
+ -1.77492e+06 -2.52731e+06 -3.78602e+06 -3.67851e+06 -3.26964e+06 -2.20618e+06
+ -998950. -470682. -169246. 128600. 294226. 435566.
+ 313872. -139437. -118743. -250665. -327773. -673095.
+ -703916. -917760. -947598. -910364. -1.22487e+06 -1.73255e+06
+ -1.92702e+06 -2.23217e+06 -2.79325e+06 -2.87526e+06 -3.49836e+06 -2.89644e+06
+ -182312. -3.86695e+06 -5.74639e+06
+ -1.81182e+06 -3.31397e+06 -5.19299e+06 -4.96952e+06 -4.46440e+06 -3.14576e+06
+ -2.05710e+06 -1.43348e+06 -1.08464e+06 -700268. -445781. -306485.
+ -361124. -515486. -588818. -617182. -719163. -1.19728e+06
+ -1.53651e+06 -1.73811e+06 -1.76740e+06 -1.70858e+06 -1.70722e+06 -1.99814e+06
+ -2.16880e+06 -2.11298e+06 -2.41624e+06 -2.66270e+06 -3.74037e+06 -3.90230e+06
+ -882058. -6.37441e+06 -9.01629e+06
+ -2.10129e+06 -4.14733e+06 -5.91657e+06 -6.09905e+06 -5.04926e+06 -3.82912e+06
+ -3.07964e+06 -2.45250e+06 -1.95262e+06 -1.70357e+06 -1.33310e+06 -1.21063e+06
+ -1.22261e+06 -1.24832e+06 -1.27052e+06 -1.17808e+06 -1.48720e+06 -1.94212e+06
+ -2.51607e+06 -2.66087e+06 -2.74719e+06 -2.52543e+06 -2.31220e+06 -1.75046e+06
+ -1.37800e+06 -100151. 489857. 427937. -2.66970e+06 -5.13263e+06
+ -2.69460e+06 -9.83745e+06 -1.42021e+07
+ -1.25080e+06 -3.88347e+06 -6.33282e+06 -6.70454e+06 -5.17357e+06 -3.95806e+06
+ -3.25053e+06 -2.89835e+06 -2.86116e+06 -2.51950e+06 -2.44708e+06 -2.39971e+06
+ -2.11289e+06 -2.17614e+06 -2.17261e+06 -1.88134e+06 -2.48535e+06 -2.89404e+06
+ -3.32045e+06 -3.41201e+06 -3.19461e+06 -2.76118e+06 -2.15996e+06 -685312.
+ 1.52081e+06 4.74206e+06 7.64742e+06 8.07693e+06 1.83350e+06 -5.22506e+06
+ -6.37430e+06 -1.43508e+07 -1.94824e+07
+ 722054. -2.51537e+06 -5.88539e+06 -5.66538e+06 -3.74750e+06 -2.13501e+06
+ -2.05417e+06 -2.51088e+06 -3.37158e+06 -3.38788e+06 -3.40873e+06 -3.17877e+06
+ -3.01221e+06 -2.70025e+06 -2.56715e+06 -2.56935e+06 -3.38297e+06 -4.11400e+06
+ -4.39999e+06 -4.23589e+06 -3.40443e+06 -2.44018e+06 -1.05548e+06 1.60788e+06
+ 5.96469e+06 1.11905e+07 1.63696e+07 1.71645e+07 8.29326e+06 -4.61728e+06
+ -1.06437e+07 -1.88657e+07 -2.28158e+07
+ 3.79604e+06 -230664. -3.25342e+06 -2.87353e+06 -484142. 1.55644e+06
+ 616656. -1.07450e+06 -2.79162e+06 -3.62111e+06 -3.77313e+06 -3.36833e+06
+ -3.45459e+06 -2.90990e+06 -2.90616e+06 -3.32223e+06 -4.17346e+06 -5.04516e+06
+ -5.17504e+06 -4.67251e+06 -3.38569e+06 -1.65867e+06 565402. 4.23994e+06
+ 9.54620e+06 1.55107e+07 2.11630e+07 2.18319e+07 1.15931e+07 -3.61191e+06
+ -1.29367e+07 -2.05877e+07 -2.33750e+07
+ 6.48678e+06 2.41139e+06 -422648. -504150. 2.46394e+06 4.50066e+06
+ 3.11159e+06 1.08652e+06 -886192. -2.14283e+06 -2.46640e+06 -2.77059e+06
+ -2.91201e+06 -3.05660e+06 -3.45404e+06 -4.11657e+06 -4.47070e+06 -4.75314e+06
+ -4.65109e+06 -4.13134e+06 -2.86652e+06 -998246. 1.45455e+06 5.30065e+06
+ 9.96962e+06 1.49666e+07 2.01063e+07 2.04083e+07 9.95327e+06 -2.62625e+06
+ -1.11876e+07 -1.85916e+07 -2.07164e+07
+ 1.09121e+07 7.50478e+06 5.19581e+06 4.29270e+06 5.41331e+06 6.00710e+06
+ 4.60820e+06 3.13912e+06 1.47101e+06 225919. -423275. -1.46786e+06
+ -2.10593e+06 -3.21334e+06 -3.60424e+06 -4.25170e+06 -4.24008e+06 -3.84448e+06
+ -3.52078e+06 -3.01291e+06 -2.17958e+06 -825190. 1.20522e+06 4.16490e+06
+ 7.90774e+06 1.17763e+07 1.65987e+07 1.68935e+07 7.61812e+06 -791689.
+ -5.87502e+06 -1.46584e+07 -1.62440e+07
+
+ 1.96674e+06 1.94699e+06 1.43990e+06 1.00920e+06 532010. 483206.
+ 429661. 388385. 343477. 433509. 436593. 422551.
+ 305959. 176563. 178176. -9081.29 -244241. -486111.
+ -709240. -938505. -1.32746e+06 -1.68823e+06 -2.08569e+06 -2.60544e+06
+ -3.02135e+06 -3.06874e+06 -3.02528e+06 -2.77014e+06 -1.99531e+06 -1.06818e+06
+ -298454. 882911. 685382.
+ 2.36242e+06 2.47472e+06 1.64484e+06 1.01587e+06 526817. 476081.
+ 486747. 502848. 497084. 478632. 504066. 465736.
+ 371727. 205203. 139282. -38294.6 -293492. -641993.
+ -909038. -1.25499e+06 -1.60434e+06 -1.99432e+06 -2.43290e+06 -2.87988e+06
+ -3.40293e+06 -3.57412e+06 -3.39985e+06 -2.87491e+06 -1.89833e+06 -739173.
+ 148194. 1.08699e+06 948276.
+ 2.69011e+06 2.99516e+06 2.06590e+06 1.13198e+06 554319. 511135.
+ 456508. 492537. 560509. 562572. 590831. 497326.
+ 521263. 291438. 82881.2 -90060.1 -355146. -775399.
+ -1.11816e+06 -1.37548e+06 -1.68778e+06 -2.21781e+06 -2.66059e+06 -3.14951e+06
+ -3.60176e+06 -3.92400e+06 -3.61465e+06 -2.84631e+06 -1.59764e+06 -158881.
+ 932322. 1.63398e+06 998401.
+ 3.20461e+06 3.79798e+06 2.41895e+06 1.14833e+06 544344. 463414.
+ 361673. 500837. 448495. 606096. 569326. 636554.
+ 590117. 279266. 38451.9 -6703.16 -418991. -844339.
+ -1.13399e+06 -1.59279e+06 -1.83948e+06 -2.37397e+06 -2.91977e+06 -3.46190e+06
+ -3.82444e+06 -4.01419e+06 -3.56921e+06 -2.50182e+06 -1.08816e+06 542414.
+ 1.98511e+06 2.26008e+06 1.15114e+06
+ 3.90106e+06 5.05258e+06 2.84231e+06 1.25897e+06 514132. 297679.
+ 72995.5 429162. 383213. 756499. 593790. 734632.
+ 550598. 285830. 171941. 30341.9 -466593. -958135.
+ -1.25559e+06 -1.79588e+06 -2.08832e+06 -2.44786e+06 -2.99527e+06 -3.73245e+06
+ -4.08391e+06 -4.14989e+06 -3.58067e+06 -2.21142e+06 -248895. 1.56251e+06
+ 3.04025e+06 3.05404e+06 1.69834e+06
+ 4.78449e+06 5.97042e+06 3.68555e+06 1.48156e+06 293520. -111927.
+ -260242. -285.919 313800. 734232. 632098. 821340.
+ 590457. 366834. 320598. 99078.5 -382679. -1.10759e+06
+ -1.44924e+06 -1.86329e+06 -2.22743e+06 -2.48486e+06 -3.13422e+06 -3.82020e+06
+ -4.09414e+06 -4.27995e+06 -3.53768e+06 -1.83484e+06 616354. 2.97860e+06
+ 4.41017e+06 3.95670e+06 1.98779e+06
+ 6.26754e+06 6.65602e+06 4.33902e+06 1.62146e+06 -44493.4 -558302.
+ -575305. -357863. 308661. 650154. 765252. 1.03052e+06
+ 858986. 554237. 474987. 58161.2 -322549. -1.02086e+06
+ -1.39191e+06 -1.77958e+06 -2.26128e+06 -2.52724e+06 -3.20427e+06 -3.67120e+06
+ -3.93978e+06 -4.11791e+06 -3.37021e+06 -1.29568e+06 1.68582e+06 4.48569e+06
+ 6.41100e+06 5.38136e+06 2.31617e+06
+ 7.68696e+06 8.33184e+06 4.93477e+06 2.04708e+06 -168735. -905105.
+ -858669. -587243. 396487. 860500. 1.08482e+06 1.25958e+06
+ 1.22152e+06 998403. 567316. 130756. -215482. -749184.
+ -1.26967e+06 -1.76488e+06 -2.16462e+06 -2.46316e+06 -2.89641e+06 -3.29544e+06
+ -3.67473e+06 -3.74949e+06 -2.72502e+06 -472219. 2.96415e+06 6.31962e+06
+ 8.98515e+06 6.92052e+06 2.82232e+06
+ 9.14971e+06 1.05799e+07 6.17788e+06 2.51657e+06 -272645. -1.14504e+06
+ -1.07517e+06 -635276. 700129. 1.19828e+06 1.55739e+06 1.68512e+06
+ 1.59364e+06 1.31096e+06 800103. 493384. 1716.48 -569823.
+ -937777. -1.39400e+06 -1.71131e+06 -2.10037e+06 -2.35208e+06 -2.73237e+06
+ -3.04244e+06 -2.95924e+06 -1.95275e+06 427326. 3.99468e+06 8.29622e+06
+ 1.15219e+07 9.11627e+06 3.41857e+06
+ 1.15682e+07 1.31117e+07 7.71943e+06 2.74996e+06 -86507.2 -753389.
+ -697999. 128520. 1.37172e+06 1.85053e+06 2.28448e+06 2.37457e+06
+ 2.24097e+06 1.81127e+06 1.28051e+06 1.06337e+06 517685. -241027.
+ -524019. -788820. -1.13882e+06 -1.55031e+06 -1.57744e+06 -1.94312e+06
+ -1.75043e+06 -1.41748e+06 -620784. 1.51632e+06 4.13534e+06 9.45572e+06
+ 1.34823e+07 1.08823e+07 3.61311e+06
+ 1.45428e+07 1.50391e+07 9.09056e+06 3.05812e+06 386991. 42077.7
+ 435309. 1.64055e+06 2.41413e+06 3.00094e+06 3.40945e+06 3.40014e+06
+ 3.12049e+06 2.61750e+06 2.02544e+06 1.65140e+06 991350. 405052.
+ -90632.9 -311490. -737385. -898819. -837139. -833322.
+ -77321.5 730292. 1.83151e+06 3.10029e+06 3.90998e+06 8.53728e+06
+ 1.32050e+07 1.05370e+07 2.90415e+06
+ 1.70057e+07 1.69396e+07 1.09688e+07 3.53766e+06 877255. 1.31645e+06
+ 1.98021e+06 3.17083e+06 3.85270e+06 4.01558e+06 4.39986e+06 4.27037e+06
+ 3.89377e+06 3.13412e+06 2.64006e+06 2.01915e+06 1.38481e+06 740451.
+ 236332. 34421.8 -311847. -352491. -225370. 181759.
+ 1.67886e+06 3.07113e+06 4.34755e+06 3.91358e+06 2.02668e+06 3.51713e+06
+ 8.78579e+06 7.90475e+06 1.43688e+06
+ 1.71688e+07 1.79085e+07 1.09661e+07 2.85663e+06 1.05637e+06 2.35112e+06
+ 3.08810e+06 3.89137e+06 4.78037e+06 4.52218e+06 4.69619e+06 4.52924e+06
+ 4.14261e+06 3.45049e+06 2.76301e+06 2.10667e+06 1.15244e+06 258778.
+ -302494. -505145. -425195. -422788. 110235. 746995.
+ 2.85260e+06 4.68350e+06 5.40030e+06 2.14213e+06 -5.01318e+06 -6.86269e+06
+ -1.10393e+06 1.16704e+06 -1.62063e+06
+ 1.32661e+07 1.42132e+07 5.39118e+06 -700843. -309200. 1.70797e+06
+ 2.68635e+06 3.56157e+06 3.85814e+06 3.65831e+06 3.92852e+06 4.14521e+06
+ 3.76994e+06 3.48543e+06 2.88039e+06 1.90194e+06 87842.4 -1.12917e+06
+ -2.03023e+06 -2.13470e+06 -1.75629e+06 -1.03899e+06 126796. 1.43334e+06
+ 3.01463e+06 4.61806e+06 4.13778e+06 -1.75129e+06 -1.47433e+07 -2.03286e+07
+ -1.30447e+07 -6.75228e+06 -6.32604e+06
+ 5.95277e+06 5.14067e+06 -3.32340e+06 -6.36090e+06 -3.79648e+06 -849215.
+ 764474. 2.10717e+06 1.90384e+06 1.88461e+06 2.36398e+06 2.87286e+06
+ 3.21986e+06 3.20186e+06 2.48539e+06 1.04785e+06 -1.16747e+06 -2.65221e+06
+ -3.50528e+06 -3.39577e+06 -2.58559e+06 -1.43852e+06 19936.6 1.89627e+06
+ 2.88591e+06 3.81291e+06 2.27379e+06 -4.27806e+06 -1.99716e+07 -2.90218e+07
+ -2.11940e+07 -1.14786e+07 -8.99681e+06
+ 369628. -1.25217e+06 -9.09092e+06 -9.54242e+06 -5.59738e+06 -3.06268e+06
+ -1.42819e+06 -172434. 325004. 756358. 918808. 1.41905e+06
+ 2.50239e+06 2.37417e+06 1.58762e+06 65281.3 -1.95024e+06 -3.03753e+06
+ -3.45954e+06 -3.26762e+06 -2.73896e+06 -1.57216e+06 -356290. 1.40467e+06
+ 2.69247e+06 3.60296e+06 2.53705e+06 -2.92316e+06 -1.70047e+07 -2.63284e+07
+ -1.96534e+07 -1.01553e+07 -7.84423e+06
diff --git a/input/glow_data/ssflux_euvac.dat b/input/glow_data/ssflux_euvac.dat
new file mode 100644
index 0000000..a05cc08
--- /dev/null
+++ b/input/glow_data/ssflux_euvac.dat
@@ -0,0 +1,124 @@
+ Wavelength (A) Ref (cm-2s-1) A
+ 0.50 1.00 0.000e+00 0.000e+00
+ 1.00 2.00 1.000e-01 4.166e+01
+ 2.00 4.00 5.000e+01 4.992e+00
+ 4.00 8.00 1.000e+04 6.583e-01
+ 8.00 18.00 2.000e+06 2.000e-01
+ 18.00 23.00 1.800e+06 1.704e-01
+ 23.00 32.00 1.340e+07 7.102e-02
+ 32.00 44.00 7.600e+06 9.605e-02
+ 44.00 60.00 2.479e+08 1.597e-02
+ 60.00 70.00 2.394e+08 1.002e-02
+ 70.00 80.00 2.482e+08 1.002e-02
+ 80.00 90.00 2.056e+08 1.002e-02
+ 90.00 100.00 2.942e+08 1.002e-02
+ 100.00 110.00 1.033e+08 7.125e-03
+ 110.00 120.00 7.121e+07 7.125e-03
+ 120.00 130.00 5.316e+07 7.125e-03
+ 130.00 140.00 3.544e+07 7.125e-03
+ 140.00 150.00 1.869e+08 7.125e-03
+ 150.00 160.00 1.590e+08 1.338e-02
+ 160.00 170.00 3.445e+08 1.338e-02
+ 170.00 180.00 2.205e+09 1.337e-02
+ 180.00 190.00 1.162e+09 1.337e-02
+ 190.00 200.00 9.299e+08 1.338e-02
+ 200.00 210.00 4.767e+08 1.945e-02
+ 210.00 220.00 3.102e+08 1.945e-02
+ 220.00 230.00 8.016e+08 1.945e-02
+ 230.00 240.00 4.428e+08 1.945e-02
+ 240.00 250.00 1.069e+09 1.945e-02
+ 250.00 260.00 1.290e+09 1.802e-02
+ 260.00 270.00 1.589e+08 2.647e-02
+ 270.00 280.00 4.115e+08 2.647e-02
+ 280.00 290.00 2.654e+08 1.145e-01
+ 290.00 300.00 2.231e+08 2.647e-02
+ 300.00 310.00 7.700e+09 5.584e-03
+ 310.00 320.00 4.566e+08 2.245e-02
+ 320.00 330.00 5.237e+06 2.245e-02
+ 330.00 340.00 3.788e+07 2.245e-02
+ 340.00 350.00 4.653e+08 2.245e-02
+ 350.00 360.00 1.531e+08 3.654e-02
+ 360.00 370.00 7.878e+08 1.183e-02
+ 370.00 380.00 0.000e+00 0.000e+00
+ 380.00 390.00 0.000e+00 0.000e+00
+ 390.00 400.00 2.309e+07 3.654e-02
+ 400.00 410.00 1.747e+08 7.408e-03
+ 410.00 420.00 8.585e+06 7.408e-03
+ 420.00 430.00 0.000e+00 0.000e+00
+ 430.00 440.00 1.997e+08 7.408e-03
+ 440.00 450.00 0.000e+00 0.000e+00
+ 450.00 460.00 8.812e+06 2.022e-02
+ 460.00 470.00 3.084e+08 8.251e-03
+ 470.00 480.00 3.138e+07 2.023e-02
+ 480.00 490.00 6.295e+07 2.023e-02
+ 490.00 500.00 1.635e+08 2.022e-02
+ 500.00 510.00 1.303e+08 8.758e-03
+ 510.00 520.00 3.045e+07 8.758e-03
+ 520.00 530.00 1.011e+08 8.758e-03
+ 530.00 540.00 1.691e+08 8.758e-03
+ 540.00 550.00 2.109e+07 8.758e-03
+ 550.00 560.00 9.615e+08 3.365e-03
+ 560.00 570.00 3.650e+07 3.658e-03
+ 570.00 580.00 1.882e+07 3.658e-03
+ 580.00 590.00 1.273e+09 5.155e-03
+ 590.00 600.00 5.716e+07 3.658e-03
+ 600.00 610.00 5.300e+08 1.617e-02
+ 610.00 620.00 3.271e+07 1.180e-02
+ 620.00 630.00 1.786e+09 4.255e-03
+ 630.00 640.00 4.877e+07 1.180e-02
+ 640.00 650.00 6.464e+07 1.180e-02
+ 650.00 660.00 2.266e+07 4.267e-03
+ 660.00 670.00 6.444e+06 4.267e-03
+ 670.00 680.00 1.102e+07 4.267e-03
+ 680.00 690.00 1.447e+08 4.267e-03
+ 690.00 700.00 4.521e+07 4.267e-03
+ 700.00 710.00 4.621e+08 3.419e-03
+ 710.00 720.00 2.032e+07 4.750e-03
+ 720.00 730.00 4.719e+06 4.750e-03
+ 730.00 740.00 6.140e+06 4.750e-03
+ 740.00 750.00 7.764e+06 4.750e-03
+ 750.00 760.00 1.228e+08 4.767e-03
+ 760.00 770.00 3.411e+08 4.310e-03
+ 770.00 780.00 3.171e+08 1.136e-02
+ 780.00 790.00 1.015e+09 3.735e-03
+ 790.00 800.00 9.393e+07 4.767e-03
+ 800.00 810.00 1.199e+08 4.817e-03
+ 810.00 820.00 1.541e+08 4.817e-03
+ 820.00 830.00 1.983e+08 4.817e-03
+ 830.00 840.00 8.250e+08 4.817e-03
+ 840.00 850.00 3.276e+08 4.817e-03
+ 850.00 860.00 4.030e+08 5.675e-03
+ 860.00 870.00 5.174e+08 5.675e-03
+ 870.00 880.00 6.648e+08 5.675e-03
+ 880.00 890.00 8.545e+08 5.675e-03
+ 890.00 900.00 1.097e+09 5.675e-03
+ 900.00 910.00 1.264e+09 4.983e-03
+ 910.00 920.00 8.412e+08 4.983e-03
+ 920.00 930.00 2.682e+08 4.983e-03
+ 930.00 940.00 3.117e+08 4.983e-03
+ 940.00 950.00 3.149e+08 4.983e-03
+ 950.00 960.00 4.256e+07 4.417e-03
+ 960.00 970.00 5.094e+07 4.417e-03
+ 970.00 980.00 5.145e+09 4.010e-03
+ 980.00 990.00 2.319e+08 4.417e-03
+ 990.00 1000.00 4.049e+08 4.417e-03
+ 1000.00 1010.00 8.641e+07 4.375e-03
+ 1010.00 1020.00 1.614e+08 4.375e-03
+ 1020.00 1030.00 3.624e+09 5.156e-03
+ 1030.00 1040.00 4.018e+09 4.850e-03
+ 1040.00 1050.00 1.773e+08 4.375e-03
+ 1050.00 1100.00 3.298e+09 3.019e-03
+ 1100.00 1150.00 3.200e+09 2.097e-03
+ 1150.00 1210.00 1.625e+10 3.693e-03
+ 1210.00 1220.00 3.938e+11 4.244e-03
+ 1220.00 1250.00 7.236e+09 2.444e-03
+ 1250.00 1300.00 7.791e+09 2.605e-03
+ 1300.00 1350.00 2.663e+10 2.863e-03
+ 1350.00 1400.00 1.388e+10 2.633e-03
+ 1400.00 1450.00 1.826e+10 1.861e-03
+ 1450.00 1500.00 2.803e+10 1.199e-03
+ 1500.00 1550.00 5.087e+10 1.522e-03
+ 1550.00 1600.00 7.263e+10 1.120e-03
+ 1600.00 1650.00 1.055e+11 1.036e-03
+ 1650.00 1700.00 1.997e+11 6.127e-04
+ 1700.00 1750.00 3.396e+11 5.921e-04
diff --git a/input/glow_data/ssflux_hint.dat b/input/glow_data/ssflux_hint.dat
new file mode 100644
index 0000000..f07794f
--- /dev/null
+++ b/input/glow_data/ssflux_hint.dat
@@ -0,0 +1,124 @@
+ Wavelength (A) Ref (cm-2s-1) Scale1 Scale2
+ 0.50 1.00 0.000e+00 0.000e+00 0.000e+00
+ 1.00 2.00 1.000e-01 0.000e+00 4.800e+00
+ 2.00 4.00 5.000e+01 0.000e+00 2.900e+02
+ 4.00 8.00 1.000e+04 0.000e+00 7.600e+03
+ 8.00 18.00 2.000e+06 0.000e+00 4.600e+05
+ 18.00 23.00 9.000e+05 0.000e+00 2.300e+05
+ 23.00 32.00 6.700e+06 7.470e+05 6.920e+05
+ 32.00 44.00 3.800e+06 0.000e+00 4.350e+05
+ 44.00 60.00 8.560e+07 3.229e+07 2.175e+06
+ 60.00 70.00 7.650e+07 3.395e+07 1.683e+06
+ 70.00 80.00 7.930e+07 4.706e+07 1.127e+06
+ 80.00 90.00 6.570e+07 1.228e+07 1.202e+06
+ 90.00 100.00 9.400e+07 3.860e+07 8.247e+05
+ 100.00 110.00 3.090e+07 1.266e+07 1.896e+05
+ 110.00 120.00 2.130e+07 1.736e+07 3.780e+03
+ 120.00 130.00 1.590e+07 1.237e+07 1.260e+03
+ 130.00 140.00 1.060e+07 8.589e+06 0.000e+00
+ 140.00 150.00 5.590e+07 9.379e+06 9.296e+05
+ 150.00 160.00 6.100e+07 7.912e+06 2.492e+06
+ 160.00 170.00 1.322e+08 6.989e+07 7.400e+05
+ 170.00 180.00 8.460e+08 5.053e+07 1.161e+07
+ 180.00 190.00 4.458e+08 7.553e+06 1.199e+07
+ 190.00 200.00 3.568e+08 0.000e+00 1.597e+07
+ 200.00 210.00 1.420e+08 2.299e+07 9.957e+06
+ 210.00 220.00 9.240e+07 0.000e+00 8.507e+06
+ 220.00 230.00 2.388e+08 6.350e+07 6.124e+06
+ 230.00 240.00 1.319e+08 5.611e+07 2.565e+06
+ 240.00 250.00 3.184e+08 6.340e+07 8.582e+06
+ 250.00 260.00 5.497e+08 8.695e+07 1.808e+07
+ 260.00 270.00 1.052e+08 0.000e+00 8.750e+06
+ 270.00 280.00 2.725e+08 6.101e+07 1.379e+07
+ 280.00 290.00 1.367e+08 0.000e+00 4.332e+07
+ 290.00 300.00 1.477e+08 0.000e+00 4.035e+06
+ 300.00 310.00 6.235e+09 2.220e+09 2.820e+07
+ 310.00 320.00 4.098e+08 0.000e+00 1.063e+07
+ 320.00 330.00 4.700e+06 0.000e+00 5.170e+06
+ 330.00 340.00 3.400e+07 0.000e+00 3.400e+07
+ 340.00 350.00 4.176e+08 0.000e+00 1.089e+07
+ 350.00 360.00 1.034e+08 0.000e+00 3.619e+06
+ 360.00 370.00 8.325e+08 0.000e+00 2.947e+07
+ 370.00 380.00 0.000e+00 0.000e+00 0.000e+00
+ 380.00 390.00 0.000e+00 0.000e+00 0.000e+00
+ 390.00 400.00 1.560e+07 7.504e+06 0.000e+00
+ 400.00 410.00 1.791e+08 8.615e+07 0.000e+00
+ 410.00 420.00 8.800e+06 0.000e+00 3.590e+06
+ 420.00 430.00 0.000e+00 0.000e+00 0.000e+00
+ 430.00 440.00 2.047e+08 0.000e+00 1.973e+06
+ 440.00 450.00 0.000e+00 0.000e+00 0.000e+00
+ 450.00 460.00 9.100e+06 7.553e+06 0.000e+00
+ 460.00 470.00 1.999e+08 1.577e+07 2.279e+06
+ 470.00 480.00 3.240e+07 2.689e+07 0.000e+00
+ 480.00 490.00 6.500e+07 4.841e+07 0.000e+00
+ 490.00 500.00 1.688e+08 7.578e+07 1.162e+07
+ 500.00 510.00 1.434e+08 8.728e+07 0.000e+00
+ 510.00 520.00 3.350e+07 2.446e+07 0.000e+00
+ 520.00 530.00 1.112e+08 3.137e+07 5.340e+06
+ 530.00 540.00 1.860e+08 1.358e+08 0.000e+00
+ 540.00 550.00 2.320e+07 7.656e+06 0.000e+00
+ 550.00 560.00 8.839e+08 4.107e+08 0.000e+00
+ 560.00 570.00 1.336e+08 8.231e+07 0.000e+00
+ 570.00 580.00 6.890e+07 5.719e+07 0.000e+00
+ 580.00 590.00 1.591e+09 1.566e+09 0.000e+00
+ 590.00 600.00 2.092e+08 9.479e+07 0.000e+00
+ 600.00 610.00 4.500e+08 0.000e+00 1.260e+07
+ 610.00 620.00 1.670e+07 6.931e+06 0.000e+00
+ 620.00 630.00 1.600e+09 7.095e+08 3.301e+06
+ 630.00 640.00 2.490e+07 2.067e+07 0.000e+00
+ 640.00 650.00 3.300e+07 1.370e+07 0.000e+00
+ 650.00 660.00 2.180e+07 1.552e+07 0.000e+00
+ 660.00 670.00 6.200e+06 2.573e+06 0.000e+00
+ 670.00 680.00 1.060e+07 5.279e+06 0.000e+00
+ 680.00 690.00 1.392e+08 5.298e+07 3.411e+05
+ 690.00 700.00 4.350e+07 1.735e+07 2.034e+05
+ 700.00 710.00 4.022e+08 1.732e+08 0.000e+00
+ 710.00 720.00 8.010e+07 4.281e+07 0.000e+00
+ 720.00 730.00 1.860e+07 1.860e+07 0.000e+00
+ 730.00 740.00 2.420e+07 2.420e+07 0.000e+00
+ 740.00 750.00 3.060e+07 3.060e+07 0.000e+00
+ 750.00 760.00 1.418e+08 1.025e+08 0.000e+00
+ 760.00 770.00 3.973e+08 2.340e+08 0.000e+00
+ 770.00 780.00 3.085e+08 6.600e+07 5.335e+06
+ 780.00 790.00 6.392e+08 2.732e+08 2.873e+06
+ 790.00 800.00 5.858e+08 3.281e+08 0.000e+00
+ 800.00 810.00 1.402e+08 1.402e+08 0.000e+00
+ 810.00 820.00 1.802e+08 1.802e+08 0.000e+00
+ 820.00 830.00 2.318e+08 2.318e+08 0.000e+00
+ 830.00 840.00 9.645e+08 5.746e+08 0.000e+00
+ 840.00 850.00 3.830e+08 3.830e+08 0.000e+00
+ 850.00 860.00 4.925e+08 4.925e+08 0.000e+00
+ 860.00 870.00 6.324e+08 6.324e+08 0.000e+00
+ 870.00 880.00 8.125e+08 8.125e+08 0.000e+00
+ 880.00 890.00 1.044e+09 1.044e+09 0.000e+00
+ 890.00 900.00 1.341e+09 1.341e+09 0.000e+00
+ 900.00 910.00 1.839e+09 1.781e+09 0.000e+00
+ 910.00 920.00 1.224e+09 1.113e+09 0.000e+00
+ 920.00 930.00 3.903e+08 3.751e+08 0.000e+00
+ 930.00 940.00 4.536e+08 3.865e+08 0.000e+00
+ 940.00 950.00 4.582e+08 4.039e+08 0.000e+00
+ 950.00 960.00 5.130e+07 2.555e+07 0.000e+00
+ 960.00 970.00 6.140e+07 3.058e+07 0.000e+00
+ 970.00 980.00 6.855e+09 4.483e+09 0.000e+00
+ 980.00 990.00 2.795e+08 1.440e+08 0.000e+00
+ 990.00 1000.00 4.881e+08 2.526e+08 0.000e+00
+ 1000.00 1010.00 1.265e+08 6.300e+07 0.000e+00
+ 1010.00 1020.00 2.363e+08 1.177e+08 0.000e+00
+ 1020.00 1030.00 4.556e+09 4.465e+09 0.000e+00
+ 1030.00 1040.00 5.992e+09 5.638e+09 0.000e+00
+ 1040.00 1050.00 2.596e+08 1.293e+08 0.000e+00
+ 1050.00 1100.00 3.208e+09 7.164e+08 0.000e+00
+ 1100.00 1150.00 3.139e+09 4.828e+08 0.000e+00
+ 1150.00 1210.00 1.571e+10 4.317e+09 0.000e+00
+ 1210.00 1220.00 3.788e+11 1.203e+11 0.000e+00
+ 1220.00 1250.00 7.076e+09 1.272e+09 0.000e+00
+ 1250.00 1300.00 7.608e+09 1.460e+09 0.000e+00
+ 1300.00 1350.00 2.594e+10 5.486e+09 0.000e+00
+ 1350.00 1400.00 1.355e+10 2.629e+09 0.000e+00
+ 1400.00 1450.00 1.795e+10 2.445e+09 0.000e+00
+ 1450.00 1500.00 2.772e+10 2.418e+09 0.000e+00
+ 1500.00 1550.00 5.017e+10 5.569e+09 0.000e+00
+ 1550.00 1600.00 7.190e+10 5.854e+09 0.000e+00
+ 1600.00 1650.00 1.045e+11 7.868e+09 0.000e+00
+ 1650.00 1700.00 1.986e+11 8.805e+09 0.000e+00
+ 1700.00 1750.00 3.378e+11 1.447e+10 0.000e+00
diff --git a/input/ramscb_inputs.tgz b/input/ramscb_inputs.tgz
index 23c74d9..3bd4c8b 100644
Binary files a/input/ramscb_inputs.tgz and b/input/ramscb_inputs.tgz differ
diff --git a/output/testSCE/log.ref b/output/testSCE/log.ref
new file mode 100644
index 0000000..d590263
--- /dev/null
+++ b/output/testSCE/log.ref
@@ -0,0 +1,12 @@
+ RAM-SCB Log
+ time year mo dy hr mn sc msc dstRam dstBiot pparh pperh pparo ppero pparhe pperhe ppare ppere
+ 0.600000E+02 2013 03 17 00 01 00 000 -0.160810E+02 -0.135846E+02 0.916408E+01 0.123639E+02 0.293199E+01 0.395118E+01 0.475111E+00 0.658800E+00 0.200356E+00 0.115645E+01
+ 0.120000E+03 2013 03 17 00 02 00 000 -0.160717E+02 -0.135846E+02 0.915792E+01 0.123575E+02 0.292970E+01 0.394898E+01 0.474812E+00 0.658508E+00 0.198971E+00 0.115484E+01
+ 0.180000E+03 2013 03 17 00 03 00 000 -0.160626E+02 -0.135846E+02 0.915179E+01 0.123511E+02 0.292742E+01 0.394679E+01 0.474514E+00 0.658218E+00 0.197746E+00 0.115344E+01
+ 0.240000E+03 2013 03 17 00 04 00 000 -0.160536E+02 -0.135846E+02 0.914571E+01 0.123448E+02 0.292514E+01 0.394463E+01 0.474217E+00 0.657930E+00 0.196594E+00 0.115214E+01
+ 0.300000E+03 2013 03 17 00 05 00 000 -0.160447E+02 -0.135846E+02 0.913968E+01 0.123386E+02 0.292288E+01 0.394248E+01 0.473922E+00 0.657645E+00 0.195485E+00 0.115090E+01
+ 0.360000E+03 2013 03 17 00 06 00 000 -0.160359E+02 -0.135846E+02 0.913370E+01 0.123325E+02 0.292063E+01 0.394036E+01 0.473629E+00 0.657365E+00 0.194406E+00 0.114971E+01
+ 0.420000E+03 2013 03 17 00 07 00 000 -0.160271E+02 -0.135846E+02 0.912779E+01 0.123266E+02 0.291840E+01 0.393826E+01 0.473338E+00 0.657088E+00 0.193352E+00 0.114856E+01
+ 0.480000E+03 2013 03 17 00 08 00 000 -0.160183E+02 -0.135846E+02 0.912194E+01 0.123207E+02 0.291618E+01 0.393620E+01 0.473049E+00 0.656816E+00 0.192318E+00 0.114746E+01
+ 0.540000E+03 2013 03 17 00 09 00 000 -0.160095E+02 -0.135846E+02 0.911617E+01 0.123150E+02 0.291399E+01 0.393418E+01 0.472763E+00 0.656550E+00 0.191303E+00 0.114639E+01
+ 0.600000E+03 2013 03 17 00 10 00 000 -0.160009E+02 -0.135846E+02 0.911047E+01 0.123095E+02 0.291182E+01 0.393219E+01 0.472480E+00 0.656288E+00 0.190306E+00 0.114535E+01
diff --git a/output/testSCE/pressure.ref b/output/testSCE/pressure.ref
new file mode 100644
index 0000000..d535091
--- /dev/null
+++ b/output/testSCE/pressure.ref
@@ -0,0 +1,933 @@
+Date=2013-03-17_00:10:00 T= 0.167 Kp=1.7
+ Lsh MLT PPER_H PPAR_H PPER_O PPAR_O PPER_He PPAR_He PPER_E PPAR_E PTotal [keV/cm3]
+ 2.0000000000000000 0.0000000000000000 0.20866027886996780 0.15486587081807687 9.5820806643630445E-005 4.2842877947676880E-005 2.4641438378686840E-003 7.1629881251366917E-004 2.9600495291404152 0.12651234721889029 2.2082256350124063
+ 2.0000000000000000 0.50000000000000000 0.20832117499343916 0.15473809704779079 7.9209900693555499E-005 3.3352275878594588E-005 2.5571854489375872E-003 7.0860134249918385E-004 2.9715832718957182 0.12655230236552495 2.2157046791697570
+ 2.0000000000000000 1.0000000000000000 0.20830767570675629 0.15481964643902107 6.4169422030218811E-005 2.6048032753413800E-005 2.8638958295634886E-003 7.5856112201440427E-004 2.9918702607482524 0.12657749510964242 2.2294645847055454
+ 2.0000000000000000 1.5000000000000000 0.20833016584097502 0.15478271521010856 5.1346843686976252E-005 2.0136247713085153E-005 3.3506079520024949E-003 8.7120246869880227E-004 3.0014551510909482 0.12652755794492557 2.2361920517755571
+ 2.0000000000000000 2.0000000000000000 0.20853183284164586 0.15482540301650596 4.1637940137601518E-005 1.5569081566131050E-005 3.9446772075758512E-003 1.0293853083587674E-003 3.0144639661007875 0.12641801981457543 2.2454175351337664
+ 2.0000000000000000 2.4999999999999996 0.20878766693468578 0.15490468072957425 3.3848196733708709E-005 1.1936384257733799E-005 4.5286800630868112E-003 1.1916552224078333E-003 3.0211706249189962 0.12624773015081728 2.2504658809046876
+ 2.0000000000000000 3.0000000000000000 0.20935349074172310 0.15504879631772980 2.7518854878237342E-005 9.0299851000422200E-006 4.9415020706402796E-003 1.2936343876538557E-003 3.0338926846141483 0.12608208548793012 2.2596213129137310
+ 2.0000000000000000 3.5000000000000000 0.20981979879850302 0.15520445362686056 2.1509948680624384E-005 6.6470372314785847E-006 4.9529253419971940E-003 1.2839703023794691E-003 3.0229171581708254 0.12587449157150229 2.2525974490193286
+ 2.0000000000000000 4.0000000000000000 0.21031847961504277 0.15545716963507486 1.6198853872389376E-005 4.7550627540418652E-006 4.6360264150373653E-003 1.2001049738333558E-003 3.0194333063797107 0.12565875095735363 2.2503762677187806
+ 2.0000000000000000 4.5000000000000000 0.21074289578997887 0.15574767088332553 1.1560108074847353E-005 3.3100209776815302E-006 4.2079797749199777E-003 1.0865293607110269E-003 3.0043859852063961 0.12550821366774115 2.2403475218971645
+ 2.0000000000000000 4.9999999999999991 0.21128883717295346 0.15608553582623380 7.5692564235966937E-006 2.1117742114063192E-006 3.6810130391957243E-003 9.4903307962693315E-004 2.9870075874511515 0.12559316659361777 2.2288666203710461
+ 2.0000000000000000 5.4999999999999991 0.21181989519629665 0.15648196774593737 4.4631651172404577E-006 1.2047189621992631E-006 3.0713966789477198E-003 7.9358214946563229E-004 2.9645444207844291 0.12586438481949772 2.2140071636944816
+ 2.0000000000000000 6.0000000000000000 0.21254424279028189 0.15690877804653269 2.3423618077811790E-006 5.9418320543045984E-007 2.4871112077376467E-003 6.4593466546322578E-004 2.9631827323583186 0.12624775330592600 2.2134119725458063
+ 2.0000000000000000 6.4999999999999991 0.21334443970755818 0.15733204919570207 1.1401071595064972E-006 2.8119846554733447E-007 2.0206494716775172E-003 5.3027569737333462E-004 2.9499831593816941 0.12665364975983109 2.2050716777291837
+ 2.0000000000000000 7.0000000000000000 0.21404952964177848 0.15778342432962258 6.4617594089399756E-007 1.6995898159189270E-007 1.7155702533089084E-003 4.5066102345335882E-004 2.9620154398113625 0.12713423363320231 2.2136436202366805
+ 2.0000000000000000 7.4999999999999991 0.21456077358443384 0.15818432947276895 4.8255039549848418E-007 1.4328139263545634E-007 1.5170633478830038E-003 3.9970317269182108E-004 2.9761597197269172 0.12756826242685537 2.2235428389243221
+ 2.0000000000000000 8.0000000000000000 0.21514569252398158 0.15866377457899952 6.3667333403697820E-007 1.3862532310882393E-007 1.3830780099236212E-003 3.6647907361527849E-004 3.0010808489906484 0.12801830361554167 2.2407564027630849
+ 2.0000000000000000 8.4999999999999982 0.21557152471378507 0.15912700618218945 1.1185543698235114E-006 1.6677648846053489E-007 1.2877768697947955E-003 3.4339576940334651E-004 3.0261545921781039 0.12843552280307752 2.2579787053877549
+ 2.0000000000000000 9.0000000000000000 0.21598732567319168 0.15955407330812174 1.6075341957397513E-006 2.2679169485407781E-007 1.2158837812567061E-003 3.2593128705617083E-004 3.0762191368783003 0.12874482201881363 2.2918243203798583
+ 2.0000000000000000 9.5000000000000000 0.21626513776435391 0.15996327975831645 1.9240131266577898E-006 2.9026352761451318E-007 1.1585820522538840E-003 3.1192221327425585E-004 3.1336025321229108 0.12887867257696123 2.3304035055724568
+ 2.0000000000000000 9.9999999999999982 0.21651964542376251 0.16037399712676764 2.1326204150850698E-006 3.6162233407256476E-007 1.1165544750916768E-003 3.0043452026460178E-004 3.2322282231653725 0.12890676070252249 2.3964382217803908
+ 2.0000000000000000 10.500000000000000 0.21641528675085936 0.16065162113717837 2.3098721673880792E-006 4.6808119329360495E-007 1.0882333665424523E-003 2.9212087721772390E-004 3.3277455059001433 0.12870160355410251 2.4600494951430392
+ 2.0000000000000000 10.999999999999998 0.21613946218530639 0.16089706664059097 2.3161191231308773E-006 6.0883637707769773E-007 1.0755222653074357E-003 2.8817278593814752E-004 3.3974999774623567 0.12833619978685043 2.5063188680379813
+ 2.0000000000000000 11.500000000000000 0.21554945076507184 0.16110070421030573 2.2193051888042890E-006 7.4373967276493384E-007 1.0787676332004587E-003 2.8824341067639441E-004 3.4231762781568174 0.12790783283861420 2.5229703186399415
+ 2.0000000000000000 12.000000000000000 0.21493489810002345 0.16127221754112533 3.4055197070956028E-006 9.2482209132387068E-007 1.1029349816771292E-003 2.9238214711692622E-004 3.4479927135000827 0.12741434853621053 2.5390159257498413
+ 2.0000000000000000 12.499999999999998 0.21423946092923193 0.16128597304891229 6.9165703456768618E-006 1.3686012144392866E-006 1.1378957113191656E-003 3.0048338900376056E-004 3.4543386781004002 0.12678656266386837 2.5426067634418641
+ 2.0000000000000000 12.999999999999998 0.21360672921241869 0.16125209567733961 1.0923084371246331E-005 2.1856256387351682E-006 1.1730739599942655E-003 3.1172260011997954E-004 3.4651163688854751 0.12609614348520673 2.5491587792242747
+ 2.0000000000000000 13.500000000000000 0.21291139496062703 0.16111867835802313 1.3965086751503029E-005 3.2350386918975091E-006 1.2003966699372355E-003 3.2369625706404664E-004 3.4426348195672825 0.12538683137056139 2.5334511978645122
+ 2.0000000000000000 14.000000000000000 0.21223586095095445 0.16103117836114431 1.5985740213251445E-005 4.2335750559866657E-006 1.2152882919154065E-003 3.3348274209954573E-004 3.4223586081424244 0.12476558964007875 2.5192619901897975
+ 2.0000000000000000 14.499999999999998 0.21136577856862609 0.16084726682717040 1.7720909776762653E-005 5.3911894743978656E-006 1.2411419008098378E-003 3.4139735198801232E-004 3.3991014403451314 0.12417393990703375 2.5029400529081181
+ 2.0000000000000000 14.999999999999998 0.21067748018636911 0.16061784115270419 2.1116084194503365E-005 7.1518248462850024E-006 1.3685012597476091E-003 3.5587281140942600E-004 3.3945019315704186 0.12360728225716316 2.4992420687491941
+ 2.0000000000000000 15.500000000000000 0.21003994093344777 0.16031353422404204 3.4585527737728356E-005 9.7673509331926039E-006 1.5807367498479226E-003 3.8908746079536485E-004 3.3687125389459185 0.12295564697809809 2.4814678801092573
+ 2.0000000000000000 16.000000000000000 0.20950030602276348 0.15998391856092675 5.5439056471882599E-005 1.4634493506268578E-005 1.7681860403127186E-003 4.3850170956364438E-004 3.3485359409395690 0.12232921347235574 2.4674953374515289
+ 2.0000000000000000 16.500000000000000 0.20891152923225978 0.15959638240489935 7.3291962661594157E-005 2.2912620478437913E-005 1.9111518844129431E-003 4.9701051928645649E-004 3.3140236296644825 0.12184609460316420 2.4439338685451539
+ 2.0000000000000000 16.999999999999996 0.20833871611078797 0.15919389431641007 8.5195729509043316E-005 3.1265912755785091E-005 2.1733598493461530E-003 5.6220119630291221E-004 3.2982155009459690 0.12153800803108519 2.4329836382425927
+ 2.0000000000000000 17.499999999999996 0.20774764051984559 0.15873846521594953 9.9259702454223634E-005 3.9412312137973361E-005 2.5438073339686560E-003 6.5831318594625318E-004 3.2724850475705001 0.12128377475751768 2.4154904919083631
+ 2.0000000000000000 18.000000000000000 0.20761199366133473 0.15833234464520582 1.3010805112555334E-004 5.1026526469243596E-005 2.9013539187071440E-003 7.8055020615577927E-004 3.2486020017429693 0.12107688211381852 2.3995772394133073
+ 2.0000000000000000 18.500000000000000 0.20774240359062957 0.15791943829090624 1.6417662250933350E-004 6.9907639336769039E-005 3.2602159057826584E-003 9.1228607558116578E-004 3.1963925687563721 0.12095452062126476 2.3649916274592253
+ 2.0000000000000000 19.000000000000000 0.20798879990825578 0.15755696599403241 2.0445844315437463E-004 9.0313641971080950E-005 3.6815672430605263E-003 1.0476613915948677E-003 3.1518456562958206 0.12105713156067544 2.3357310121229524
+ 2.0000000000000000 19.499999999999996 0.20812657836529397 0.15718632389881368 2.4828541826370362E-004 1.0508223163548839E-004 4.0799161521193859E-003 1.1655256338888352E-003 3.0890513359189029 0.12135079697798565 2.2942733201504946
+ 2.0000000000000000 19.999999999999996 0.20829577047475697 0.15684352205994753 3.0111224099181095E-004 1.1862703045250308E-004 4.4316386792267893E-003 1.2537546171319934E-003 3.0297812479471684 0.12185764484620362 2.2552310290793409
+ 2.0000000000000000 20.500000000000000 0.20838754948893956 0.15647925412909622 3.2551537761425325E-004 1.3629648638520167E-004 4.3966911231985610E-003 1.3098248906375644E-003 2.9561132443287965 0.12250592000521433 2.2062924320494770
+ 2.0000000000000000 21.000000000000000 0.20852682648745863 0.15615670196791628 2.8934586048245150E-004 1.2850053344056565E-004 3.9990841349190395E-003 1.2457207062815312E-003 2.9090556127500227 0.12326242968656771 2.1748450304533238
+ 2.0000000000000000 21.500000000000000 0.20857128518690723 0.15582957447995888 2.6642136056485068E-004 1.1708242776273665E-004 3.6927482995212646E-003 1.1541029989436161E-003 2.8818645255926851 0.12402412434155509 2.1566382817091920
+ 2.0000000000000000 21.999999999999996 0.20871020961737566 0.15553555615115724 2.4256632914614341E-004 1.0726026239384625E-004 3.3964381699725862E-003 1.0551063778107270E-003 2.8869067069608625 0.12474026780112318 2.1599833442490661
+ 2.0000000000000000 22.499999999999996 0.20879565160692859 0.15527397023618889 1.9445071351092383E-004 9.2303045936834727E-005 3.0094292847054134E-003 9.4289322324138760E-004 2.8943176112698557 0.12532896301154253 2.1647574717556366
+ 2.0000000000000000 23.000000000000000 0.20889186978918492 0.15507543910530455 1.5326050645932292E-004 7.4597626462161664E-005 2.7442486992234442E-003 8.4417086503432433E-004 2.9162480697295776 0.12579620075746525 2.1792884352677189
+ 2.0000000000000000 23.499999999999996 0.20878951439436597 0.15491938380788361 1.1845829775771324E-004 5.7303059606404045E-005 2.5493086972468420E-003 7.6861278367280341E-004 2.9328514631442233 0.12618102606743770 2.1901812715952627
+ 2.0000000000000000 24.000000000000000 0.20866287347149426 0.15486772282390554 9.5821876780586925E-005 4.2843395007994375E-005 2.4641707430148744E-003 7.1630868275393642E-004 2.9600590657097428 0.12651409440668568 2.2082349443034728
+ 2.2500000000000000 0.0000000000000000 0.32775269304967902 0.24087195788247096 2.6637855991476700E-003 1.2810803301061542E-003 2.8972309356087911E-002 8.6169107933466837E-003 5.4438718897903904 0.23457636311978119 4.0306225559054383
+ 2.2500000000000000 0.50000000000000000 0.32727510841104845 0.24076797070202272 2.3236605196298760E-003 1.0552549201435504E-003 3.2092946220463298E-002 8.8582444516343249E-003 5.4198835019069982 0.23599289783845695 4.0166082673428454
+ 2.2500000000000000 1.0000000000000000 0.32708993967299804 0.24079165964117735 1.9947550439130138E-003 8.7199894318632507E-004 3.7061224265371930E-002 9.7291040220171803E-003 5.4148303400461879 0.23760365596465646 4.0169829788759932
+ 2.2500000000000000 1.5000000000000000 0.32694666623967328 0.24081407890993206 1.7150818944409476E-003 7.2056787754074707E-004 4.2991738254324299E-002 1.1066182415808402E-002 5.4275095081166356 0.23923695279992863 4.0300545903377856
+ 2.2500000000000000 2.0000000000000000 0.32687004289486865 0.24090063259519034 1.4893518881588280E-003 5.9552288379153748E-004 4.9127278802792121E-002 1.2574181860374904E-002 5.4601973587834154 0.24069119281422299 4.0567098649640165
+ 2.2500000000000000 2.4999999999999996 0.32650017108393375 0.24103127817965697 1.2717545032142085E-003 4.8814536243917757E-004 5.4679342412461140E-002 1.3911631508006487E-002 5.4898867086448160 0.24180864374355526 4.0806385506941689
+ 2.2500000000000000 3.0000000000000000 0.32588603286535273 0.24118027893927205 1.0633620353117550E-003 3.9152664541318617E-004 5.7827351244154807E-002 1.4591308453550328E-002 5.5227514267348905 0.24257686187417210 4.1045987738906096
+ 2.2500000000000000 3.5000000000000000 0.32514588667193450 0.24136847638888187 8.4735983168493783E-004 3.0134734368149075E-004 5.5472481742511320E-002 1.3934080791881832E-002 5.5455076307186868 0.24297939052052445 4.1175100043248678
+ 2.2500000000000000 4.0000000000000000 0.32454380272658379 0.24160383519679415 6.4433001155428653E-004 2.2204705202212769E-004 4.9785477307610869E-002 1.2503151266558708E-002 5.5702301040260362 0.24308861636704310 4.1292750260086626
+ 2.2500000000000000 4.5000000000000000 0.32405415121823522 0.24184514773476407 4.6313391158983076E-004 1.5809913600804045E-004 4.3341570499542487E-002 1.0827556931594555E-002 5.5800630995065124 0.24287638468156078 4.1305170329185623
+ 2.2500000000000000 4.9999999999999991 0.32412870674719985 0.24209382527089401 3.1128234060449200E-004 1.0512933268894160E-004 3.6564688365237845E-002 9.0439736099949056E-003 5.6294116137833505 0.24243436136379851 4.1581699573500543
+ 2.2500000000000000 5.4999999999999991 0.32444022764140606 0.24240498896868959 1.9317830673499134E-004 6.5000448698509874E-005 2.9492863591050612E-002 7.1861393133815519E-003 5.6585941358287313 0.24182511487398428 4.1723073514468663
+ 2.2500000000000000 6.0000000000000000 0.32491266862229740 0.24277272512099773 1.0959025497401484E-004 3.7517854805205914E-005 2.2839286894887140E-002 5.4652364361341818E-003 5.6858108782406021 0.24108798562087502 4.1855694376861114
+ 2.2500000000000000 6.4999999999999991 0.32540362206974799 0.24313056506008535 5.8792426835885690E-005 2.3025850482739268E-005 1.7524635967161129E-002 4.1369504608719607E-003 5.6866493278208843 0.24020990365457751 4.1822577338650921
+ 2.2500000000000000 7.0000000000000000 0.32627743657817265 0.24347821572424730 4.1647477601700921E-005 1.7463573892541909E-005 1.3759487271489425E-002 3.2216791560653367E-003 5.7188338634651696 0.23932574926203570 4.2012893257670356
+ 2.2500000000000000 7.4999999999999991 0.32718107500899613 0.24378988362450979 8.2417661989255792E-005 1.9391317479388205E-005 1.1480509029846689E-002 2.6981478955877074E-003 5.7215202958901328 0.23840563084802524 4.2018138829558440
+ 2.2500000000000000 8.0000000000000000 0.32819192012110887 0.24414696682462683 1.4335899179848932E-004 2.5893285843166446E-005 1.0046743702747291E-002 2.3708121992620521E-003 5.7186461079700353 0.23747234101632309 4.1993574249658119
+ 2.2500000000000000 8.4999999999999982 0.32939323316991242 0.24444471074212709 1.7709586612532689E-004 3.3024547153837843E-005 9.0640277139152833E-003 2.1590287759869959E-003 5.7042222731732402 0.23651112681375841 4.1896203835751376
+ 2.2500000000000000 9.0000000000000000 0.33108805011915798 0.24472803735608689 1.9977981625207486E-004 4.2644435602834850E-005 8.3507454621433979E-003 2.0119033433379408E-003 5.6843040272777587 0.23560084159935379 4.1767562106950020
+ 2.2500000000000000 9.5000000000000000 0.33299412444702670 0.24501718462874345 2.1967990928691819E-004 5.7514182898665504E-005 7.8239989132908166E-003 1.9115517396244548E-003 5.6547753907603315 0.23479715015322469 4.1578032629214539
+ 2.2500000000000000 9.9999999999999982 0.33503483997477645 0.24530357055249299 2.2706009906919036E-004 7.3463606659366078E-005 7.3957194086320382E-003 1.8384080288334095E-003 5.6304341848445283 0.23432201359083593 4.1425736881442772
+ 2.2500000000000000 10.500000000000000 0.33660245636404323 0.24551079410422275 2.0628086576244352E-004 8.5493337600826434E-005 7.0707895619119970E-003 1.7829740558756770E-003 5.6052752043739211 0.23411948403813873 4.1266027359557054
+ 2.2500000000000000 10.999999999999998 0.33775021997080923 0.24566005606106314 2.0875465951998126E-004 9.2879155608941154E-005 7.0009962978042368E-003 1.7558685881032975E-003 5.5876352314620386 0.23415140536035045 4.1156168713151571
+ 2.2500000000000000 11.500000000000000 0.33857718214444449 0.24570077368155310 3.6960150555875166E-004 1.0787233960806613E-004 7.3517059360135384E-003 1.7828583853885713E-003 5.5682279373675518 0.23434296762353557 4.1036624419790746
+ 2.2500000000000000 12.000000000000000 0.33924426565923221 0.24579644938199238 6.5620024316564724E-004 1.4761116918608839E-004 7.9411692115120038E-003 1.8862050279074359E-003 5.5557235271325229 0.23467507086899064 4.0965452203136472
+ 2.2500000000000000 12.499999999999998 0.33956797181836151 0.24577227673292340 9.2131299002229567E-004 2.2384698939412599E-004 8.4297024476282026E-003 2.0705118167290110E-003 5.5457697451948951 0.23504637058971201 4.0908301570101910
+ 2.2500000000000000 12.999999999999998 0.33977610154213900 0.24571373387051140 1.1228887372423287E-003 3.3677146345493093E-004 8.7445495901188990E-003 2.2978917351272532E-003 5.5407447474210745 0.23539627772357727 4.0881737497912729
+ 2.2500000000000000 13.500000000000000 0.33977165472325460 0.24559657415441008 1.2596727763075934E-003 4.4684287346484497E-004 9.1518869275055235E-003 2.5174098471882462E-003 5.5345496870549171 0.23574580649233323 4.0845908121104557
+ 2.2500000000000000 14.000000000000000 0.33959289304391588 0.24544966816989605 1.3556059479498653E-003 5.2964361888606598E-004 1.0273999810659670E-002 2.7759120662374567E-003 5.5499582797726914 0.23626879723149899 4.0957951927456513
+ 2.2500000000000000 14.499999999999998 0.33883284720690210 0.24521220616461195 1.5530855213236787E-003 6.0915271638032980E-004 1.3134071085505850E-002 3.2697398047689071E-003 5.5703144373261733 0.23686522594488529 4.1112084023034861
+ 2.2500000000000000 14.999999999999998 0.33778579642977391 0.24496808454849653 2.2183390872763881E-003 7.5030223978711475E-004 1.6890617554161356E-002 4.1129108129072276E-003 5.5842216846159305 0.23729504640334603 4.1231197397929398
+ 2.2500000000000000 15.500000000000000 0.33664156845426263 0.24464925214779817 3.0773100763582827E-003 1.0073750955656368E-003 2.0649158449731846E-002 5.3114859509950174E-003 5.5866658555319590 0.23746790755944697 4.1275012685928099
+ 2.2500000000000000 16.000000000000000 0.33547300691697018 0.24431896872584843 3.7483574089901689E-003 1.3392042939591488E-003 2.4830926720925364E-002 6.6835671270306530E-003 5.5932640207566013 0.23740560888388831 4.1347933242125663
+ 2.2500000000000000 16.500000000000000 0.33411114573525152 0.24398797358020485 4.2589976452281405E-003 1.7440087432919456E-003 2.9543511046940897E-002 8.2304981954325063E-003 5.5921735469489491 0.23703249302390506 4.1370564587651906
+ 2.2500000000000000 16.999999999999996 0.33283067618142748 0.24364068485503124 5.0450716540066404E-003 2.0507114170204258E-003 3.4783789200351647E-002 9.8614691033716371E-003 5.5917212306555397 0.23645334795483719 4.1402559162376376
+ 2.2500000000000000 17.499999999999996 0.33162414770613369 0.24320979504477611 5.9564944191972070E-003 2.4466806613519542E-003 3.9565720526055628E-002 1.1632297747733247E-002 5.5896072292451136 0.23578188326672533 4.1421926135045286
+ 2.2500000000000000 18.000000000000000 0.33058989036923403 0.24285365895644068 6.4605385006954166E-003 2.9383414119334757E-003 4.2434165082361384E-002 1.3300298472847440E-002 5.5986757369858324 0.23506841940890838 4.1501604600421258
+ 2.2500000000000000 18.500000000000000 0.32975679846966388 0.24252228618694810 6.9891633262480993E-003 3.3630393623554507E-003 4.4801084640284324E-002 1.4655000117877666E-002 5.6079487979523108 0.23425478196846383 4.1579289321375539
+ 2.2500000000000000 19.000000000000000 0.32922190308553917 0.24224318385871887 7.6087126237983282E-003 3.6548165747122149E-003 4.6804137449862088E-002 1.5485449496588716E-002 5.6187083116800984 0.23333668477154035 4.1664687547933852
+ 2.2500000000000000 19.499999999999996 0.32872460084591815 0.24200913300705792 8.1713512119725423E-003 3.8309519853297119E-003 4.8178983259981045E-002 1.5914920058455722E-002 5.5961797350439122 0.23234386378893379 4.1522027365211152
+ 2.2500000000000000 19.999999999999996 0.32874847937489238 0.24187291165727426 8.4629963693644596E-003 3.9115102086475948E-003 4.7711973281297948E-002 1.5808952983364311E-002 5.5896886405376343 0.23148303827635475 4.1474335307506722
+ 2.2500000000000000 20.500000000000000 0.32845878169601717 0.24172125222836521 7.5810891367868952E-003 3.7997649133477956E-003 4.3338040803712848E-002 1.4844752386597212E-002 5.5571269096628599 0.23085642838192003 4.1214106135029942
+ 2.2500000000000000 21.000000000000000 0.32827248288713617 0.24151549834247554 6.8638828602446385E-003 3.4111243472122062E-003 3.9694979622589312E-002 1.3643470117165830E-002 5.5332860903808223 0.23051590256101248 4.1017736222898167
+ 2.2500000000000000 21.500000000000000 0.32833616477415573 0.24133102172255799 6.3866776929617976E-003 3.1165748397188938E-003 3.7167517655869974E-002 1.2643852336641880E-002 5.5125924014317391 0.23041718360155530 4.0854913852033095
+ 2.2500000000000000 21.999999999999996 0.32835414103075228 0.24113218896217697 5.6694962980038009E-003 2.8623716083631002E-003 3.4254375895951011E-002 1.1707389045431187E-002 5.5011565285174635 0.23060100483872292 4.0750573459796788
+ 2.2500000000000000 22.499999999999996 0.32827214354476075 0.24099837503048518 4.6319153607929930E-003 2.4768618355264591E-003 3.0802350498164419E-002 1.0616225568580486E-002 5.4890293248957027 0.23106998370320109 4.0635443049122113
+ 2.2500000000000000 23.000000000000000 0.32823849826618945 0.24091971674388171 3.7772834296316221E-003 2.0231214962917110E-003 2.8790526952680046E-002 9.6188551516453343E-003 5.4814178544446106 0.23190245591577344 4.0563041584979382
+ 2.2500000000000000 23.499999999999996 0.32805485688033265 0.24084915930957149 3.1049310491262296E-003 1.6117152445655242E-003 2.8044701497696022E-002 8.9372593989258710E-003 5.4645044086705692 0.23308430552123646 4.0439667452232486
+ 2.2500000000000000 24.000000000000000 0.32775846936399472 0.24087556383594880 2.6638316305259723E-003 1.2810997990083688E-003 2.8972816327678574E-002 8.6170506776953176E-003 5.4439431419313111 0.23458064227179129 4.0306769583638218
+ 2.5000000000000000 0.0000000000000000 0.39426977868897600 0.25602751429045029 4.0558646887704053E-002 2.0663323247808674E-002 0.19916545443650052 6.7111397830606573E-002 5.0467235382543887 0.22610532963904262 3.9771141338476825
+ 2.5000000000000000 0.50000000000000000 0.38875322557749770 0.25362830145232895 3.7000173709512515E-002 1.8032649107830059E-002 0.22816114146170050 7.2016978765572184E-002 5.0521330552913666 0.22691260355406825 3.9942285749866513
+ 2.5000000000000000 1.0000000000000000 0.38392014045919148 0.25169376945213223 3.3682617449084580E-002 1.5797808395170830E-002 0.26099768186035971 7.9835229846814140E-002 5.0641719309440001 0.22776242044604922 4.0202113231884793
+ 2.5000000000000000 1.5000000000000000 0.37973672616481863 0.25006679864078096 3.1020845450693713E-002 1.3917463275190983E-002 0.29650527947516014 8.9255959156462575E-002 5.0783247407204541 0.22859961267411627 4.0510050057896008
+ 2.5000000000000000 2.0000000000000000 0.37673276821621537 0.24879830653230484 2.8473731530503112E-002 1.2278028973716363E-002 0.32982249407859299 9.8905669103068708E-002 5.0950475936327839 0.22940229202268314 4.0831791571826548
+ 2.5000000000000000 2.4999999999999996 0.37471953357500476 0.24786700031403971 2.5638392446975772E-002 1.0770719315850453E-002 0.34852084578973164 0.10533255649501516 5.1129503944470258 0.23017515249730455 4.1059345870465620
+ 2.5000000000000000 3.0000000000000000 0.37256165956713361 0.24720429979590028 2.2353477530071521E-002 9.2442862307567705E-003 0.34678915659266873 0.10573684076381334 5.1350259593086438 0.23099486104688746 4.1155469312781303
+ 2.5000000000000000 3.5000000000000000 0.36952197850906970 0.24635099815589084 1.8414245618235865E-002 7.5362262016407345E-003 0.32195909432210990 9.8726905000148080E-002 5.1578492789432637 0.23199448561296832 4.1066992699186686
+ 2.5000000000000000 4.0000000000000000 0.36581288280178592 0.24538408424806796 1.4298463908631737E-002 5.8472242484623026E-003 0.28814393288678131 8.8026086286400212E-002 5.1835966355174152 0.23350165044113921 4.0921542918177654
+ 2.5000000000000000 4.5000000000000000 0.36255923702265802 0.24458499844051534 1.0495578405818041E-002 4.3187107085026601E-003 0.24863650106234497 7.5347690284671198E-002 5.2080816137309114 0.23491988533598762 4.0729057150710473
+ 2.5000000000000000 4.9999999999999991 0.36043616957005609 0.24403439109129732 7.4875362202893279E-003 3.0013141588461699E-003 0.20697318301670717 6.1799139327278818E-002 5.2344309754752860 0.23577630841275468 4.0544222938516183
+ 2.5000000000000000 5.4999999999999991 0.36045096039749719 0.24371559346009228 5.7521874935830379E-003 1.9998091092112628E-003 0.16469945974152297 4.8101478034360087E-002 5.2547647684550567 0.23608930867115668 4.0337469804833805
+ 2.5000000000000000 6.0000000000000000 0.36231577763957162 0.24380702165100399 5.0867479278441799E-003 1.3728257523413765E-003 0.12380624935828843 3.5034181385171781E-002 5.2653109949986394 0.23589885490232215 4.0097174745131756
+ 2.5000000000000000 6.4999999999999991 0.36589562995328617 0.24489805569294745 5.4837850080005938E-003 1.2712174574122095E-003 9.0018114708139696E-002 2.4635527229267047E-002 5.2605912130322423 0.23530611700196749 3.9833628009283104
+ 2.5000000000000000 7.0000000000000000 0.37155238948328106 0.24714990384960714 6.8416479484199018E-003 1.7269370135125125E-003 6.6546634959387702E-002 1.7958500155453389E-002 5.2518506620578762 0.23466569331503528 3.9650279010771792
+ 2.5000000000000000 7.4999999999999991 0.37559580435301765 0.24963846686631752 7.9721024799651388E-003 2.3924024612770448E-003 5.0971864251170562E-002 1.4046517004006913E-002 5.2456944144264988 0.23408046623375800 3.9535420745288881
+ 2.5000000000000000 8.0000000000000000 0.37669552037679144 0.25144167090795866 8.3172598408162088E-003 2.9136699223959784E-003 4.1994293506803615E-002 1.1987443456302083E-002 5.2484413517484256 0.23374138931982391 3.9503270081840514
+ 2.5000000000000000 8.4999999999999982 0.37281846052100798 0.25234039902249022 7.0888650945771367E-003 3.1945371129151147E-003 3.5916787720827160E-002 1.0721354483208921E-002 5.2521353855490229 0.23363345046991610 3.9452695796198003
+ 2.5000000000000000 9.0000000000000000 0.36916023460149711 0.25248002310547096 6.1494769062964390E-003 3.2598442562658137E-003 3.2055453578889989E-002 9.7866763892005618E-003 5.2590113891455150 0.23358589526722190 3.9439551824941854
+ 2.5000000000000000 9.5000000000000000 0.36973079992415286 0.25237538535917348 7.8224546878246596E-003 3.3797675964172638E-003 3.2437733523847205E-002 9.3288264938769950E-003 5.2631611034966079 0.23351862339161750 3.9483022620353165
+ 2.5000000000000000 9.9999999999999982 0.37535633779423783 0.25228107961127921 1.3223024716311859E-002 3.8611894051737636E-003 3.7606053888079888E-002 9.6357561218790525E-003 5.2670521138577726 0.23340617560546190 3.9618864204188657
+ 2.5000000000000000 10.500000000000000 0.38251741821867752 0.25234028624066718 1.9413249791485260E-002 4.8977958039648139E-003 4.3809050701853557E-002 1.0801669259899544E-002 5.2686846110579193 0.23322733684910865 3.9767052492311703
+ 2.5000000000000000 10.999999999999998 0.38876721303538220 0.25301715895167709 2.4439121615959548E-002 6.6706261083127813E-003 4.8819435093021807E-002 1.2891679366359252E-002 5.2733745652139801 0.23301802418043135 3.9921327195078229
+ 2.5000000000000000 11.500000000000000 0.39389058684806633 0.25463415700905040 2.8303233892694759E-002 9.1589762858027193E-003 5.2895996904465274E-002 1.5811497950623213E-002 5.2792416697474946 0.23279864008488804 4.0070220820386018
+ 2.5000000000000000 12.000000000000000 0.39786000255864201 0.25681436392363066 3.1408596464910274E-002 1.1913555676430130E-002 5.7044735264014740E-002 1.9198290602308283E-002 5.2886484834759520 0.23257891345383402 4.0234762530610801
+ 2.5000000000000000 12.499999999999998 0.39962194437346193 0.25869402913711304 3.3130393871034544E-002 1.4360181553838317E-002 6.3051370821802982E-002 2.2747524787945003E-002 5.3037427502085546 0.23242052010131270 4.0424383913766393
+ 2.5000000000000000 12.999999999999998 0.39706863445601220 0.25938485003093958 3.4580552743817571E-002 1.6070381112581050E-002 7.1667828038129253E-002 2.6525165538982789E-002 5.3349806100793966 0.23234178051826382 4.0703058092784925
+ 2.5000000000000000 13.500000000000000 0.39624577874032019 0.25889711245559544 4.2247971373136441E-002 1.7853482760003640E-002 8.3820733249238763E-002 3.0967595520137853E-002 5.3726258883699991 0.23226391813408956 4.1099542841117387
+ 2.5000000000000000 14.000000000000000 0.39943227306866858 0.25808499515905059 5.3922713198562504E-002 2.0836846214996645E-002 9.9495654045393803E-002 3.6326505517376144E-002 5.4100979202894557 0.23208903387486329 4.1577448339901490
+ 2.5000000000000000 14.499999999999998 0.40354892992469243 0.25764462073130490 6.4012980364282768E-002 2.4601301747881579E-002 0.11702113867641087 4.2730790689602963E-002 5.4299986780575180 0.23174006925334387 4.1952934121559808
+ 2.5000000000000000 14.999999999999998 0.40672330758243685 0.25866084810340012 7.2488707819191603E-002 2.9872559716462431E-002 0.13586046081689765 5.1163890533837644E-002 5.4321322908984220 0.23128807446227351 4.2217983023499563
+ 2.5000000000000000 15.500000000000000 0.40869545085125769 0.26031133113382982 8.1564632817170787E-002 3.5895033353140142E-002 0.15533631247238502 6.1790087712396358E-002 5.4245168085327764 0.23074216663531097 4.2429883427272861
+ 2.5000000000000000 16.000000000000000 0.41054566482330507 0.26124768458225484 9.3772762087918113E-002 4.1008301973933410E-002 0.17607237704985687 7.1872303558632139E-002 5.4145856077806958 0.23011679928898338 4.2647326376291179
+ 2.5000000000000000 16.500000000000000 0.41101056663049718 0.26277245684473094 9.9676047733329012E-002 4.7015326305752426E-002 0.18723050470937894 8.2397781327027658E-002 5.4024344106227797 0.22939919365049463 4.2740959391733249
+ 2.5000000000000000 16.999999999999996 0.40750118235530403 0.26350909084050900 0.10181981671675761 5.1884465767188026E-002 0.18769234575064231 9.0353140297975434E-002 5.3896699350067703 0.22864186278691800 4.2692517064505129
+ 2.5000000000000000 17.499999999999996 0.40482223647684101 0.26341021283965338 0.10392534831207748 5.4929715282646778E-002 0.18883847922880101 9.5034647714664772E-002 5.3708864572478738 0.22783777429812890 4.2593857975554270
+ 2.5000000000000000 18.000000000000000 0.40389139460400625 0.26323132325015752 0.10618029996821673 5.6766630775142525E-002 0.19177028782292163 9.7106094382150121E-002 5.3440105012336465 0.22697543248833066 4.2452614827177877
+ 2.5000000000000000 18.500000000000000 0.40667620327367665 0.26353825490042049 0.10849012220975740 5.7604358213971550E-002 0.19340839314966654 9.6960131450376574E-002 5.3066762232077220 0.22607585557821924 4.2248934946082111
+ 2.5000000000000000 19.000000000000000 0.41423664802480992 0.26479279104844794 0.10411773736575805 5.7356000271836814E-002 0.19130288563181397 9.5222785090484457E-002 5.2643563278218339 0.22515900932123703 4.1968525944734791
+ 2.5000000000000000 19.499999999999996 0.42050432857859082 0.26619356009571765 9.1817390151102879E-002 5.3836787443026363E-002 0.18210749860530104 9.2048305067357408E-002 5.2180251528348274 0.22430673248912347 4.1537647084782900
+ 2.5000000000000000 19.999999999999996 0.42633844566195889 0.26740274702526801 8.4312044099248099E-002 4.8771427167165163E-002 0.17401824816577088 8.7756999110238279E-002 5.1747090171356378 0.22365365767751139 4.1154467803684716
+ 2.5000000000000000 20.500000000000000 0.43074836740270456 0.26857713516331883 8.1043020319994302E-002 4.5545270953283243E-002 0.16794124941289854 8.3466103445496806E-002 5.1317413998553478 0.22320768008233838 4.0812480878754425
+ 2.5000000000000000 21.000000000000000 0.43147213860957495 0.26820278729327129 7.8005999782890023E-002 4.2830360929222301E-002 0.16251697134483953 7.9098981687187458E-002 5.1019634066744910 0.22305263209055567 4.0537005982746086
+ 2.5000000000000000 21.500000000000000 0.42835079186058173 0.26768689960940850 7.3625751200376954E-002 4.0579956074787121E-002 0.15918544591224407 7.5491232749560030E-002 5.0810380100882799 0.22317754796219619 4.0304452115063052
+ 2.5000000000000000 21.999999999999996 0.42119362553971817 0.26589225298382341 6.4732584027076961E-002 3.7322470273399015E-002 0.15578659360108893 7.2149956866949944E-002 5.0662797451257964 0.22351130838418945 4.0049536950319080
+ 2.5000000000000000 22.499999999999996 0.41397566797430918 0.26334514941718129 5.6080302786675848E-002 3.2805666976254366E-002 0.15547030187892058 6.8780622993281859E-002 5.0559787225707602 0.22401062485778378 3.9839840182219439
+ 2.5000000000000000 23.000000000000000 0.40729879302545668 0.26109869949908010 4.9469945270303094E-002 2.8039004019286860E-002 0.16195480242182544 6.6231296436823142E-002 5.0507138320322751 0.22462282866206679 3.9729555247056587
+ 2.5000000000000000 23.499999999999996 0.40032756051293211 0.25864757036085162 4.4552716622581576E-002 2.4057226452030251E-002 0.17609108786858668 6.5313467011076404E-002 5.0463362223018775 0.22531258609939303 3.9693153415117686
+ 2.5000000000000000 24.000000000000000 0.39427794399527150 0.25603233871006792 4.0559484116176076E-002 2.0663720869940578E-002 0.19916958095569706 6.7112702048126638E-002 5.0468085230831292 0.22611013571662414 3.9771833205484355
+ 2.7500000000000000 0.0000000000000000 1.1154121095878269 0.64046433638109068 0.39424978483131395 0.21768820235551606 0.51986707225056927 0.24185009960882495 3.2364040846132789 0.14771833931387951 3.9265290267417634
+ 2.7500000000000000 0.50000000000000000 1.0775111486823603 0.60004897421220282 0.38035646412678498 0.19912958064031633 0.57427958972217241 0.25438127853380982 3.2096955285241249 0.14700794249359503 3.8947510793302698
+ 2.7500000000000000 1.0000000000000000 1.0457264621705413 0.56492563620032965 0.36766231731227067 0.18280966037275012 0.62641856201074386 0.26748484320106314 3.1807996223867598 0.14645679569990105 3.8676302877448916
+ 2.7500000000000000 1.5000000000000000 1.0285973371731920 0.53447342661171982 0.35895490608344649 0.16871111063508809 0.66465347382088102 0.27690948119821951 3.1501775350160499 0.14617281863642359 3.8436777804228632
+ 2.7500000000000000 2.0000000000000000 1.0392423734175258 0.50958199313724606 0.35536071019870080 0.15670745047574525 0.68216197026426983 0.27953677533001292 3.1210603504562875 0.14646759159422765 3.8293148730702660
+ 2.7500000000000000 2.4999999999999996 1.0759961501886195 0.49163100033089252 0.35566735867245630 0.14689618950481706 0.67834939199607958 0.27349977228920230 3.0992583371464080 0.14792070250139569 3.8261633802111450
+ 2.7500000000000000 3.0000000000000000 1.1050519150337783 0.47728175674742135 0.34912398142179335 0.13593289476853440 0.65806392120288104 0.26007331984783993 3.0861716877426737 0.15143898952659166 3.8071833238975463
+ 2.7500000000000000 3.5000000000000000 1.1016625727467015 0.46012659936481631 0.32615736247834787 0.11961251950109938 0.62530598192122688 0.24154975143328405 3.0836430319241477 0.15858722030588088 3.7511379962486426
+ 2.7500000000000000 4.0000000000000000 1.0763818930834470 0.44268773712503828 0.29371755782786263 0.10227367553319015 0.58515745058283442 0.22099621756008037 3.0952081821603290 0.17191792168841671 3.6796019064052232
+ 2.7500000000000000 4.5000000000000000 1.0324900750851889 0.42968903709075784 0.25672977163063321 8.6552465167615875E-002 0.53989226187538697 0.20024207389557896 3.1193793664056253 0.18920322661546771 3.6008899175876961
+ 2.7500000000000000 4.9999999999999991 0.99141670632552059 0.42696925165447630 0.22232139082049809 7.5299537390261503E-002 0.49083325536649242 0.18025031070021283 3.1433419598164987 0.20014359718714150 3.5261631071967035
+ 2.7500000000000000 5.4999999999999991 0.95502182595744989 0.43335354570429319 0.19425729104582273 6.9097248063648350E-002 0.43812622624101705 0.16079482544823392 3.1612517389446424 0.20358339369492950 3.4547143924296559
+ 2.7500000000000000 6.0000000000000000 0.90549196444124269 0.44035334646496416 0.16781830347201920 6.5393878739725769E-002 0.38265271711203441 0.14113764448737426 3.1739220343909995 0.20152297039179173 3.3693926263054821
+ 2.7500000000000000 6.4999999999999991 0.83131434486866174 0.45166625694541107 0.13806579624318233 6.4689328261260642E-002 0.32214673330719745 0.12203108356133698 3.1843013281863741 0.19415123455084465 3.2613981028432280
+ 2.7500000000000000 7.0000000000000000 0.75337750757100896 0.45742366078683033 0.11296781107024062 6.4238052402659396E-002 0.26436206352987623 0.10338427971242076 3.1945320651351654 0.18237775467339601 3.1526342140626298
+ 2.7500000000000000 7.4999999999999991 0.73121017310664116 0.45750660522991504 0.11486031605391800 6.4653527001177699E-002 0.22290385304377294 8.7489193753342548E-002 3.2085740553348274 0.16965842928892605 3.1114681834505600
+ 2.7500000000000000 8.0000000000000000 0.75250414014626710 0.45015998816522984 0.13541625898336662 6.5186844496249258E-002 0.19592307079358470 7.5102043916423430E-002 3.2307726192804500 0.15837002556594165 3.1260170268503931
+ 2.7500000000000000 8.4999999999999982 0.79900101870828966 0.44325731717400785 0.16593906528165081 6.8061911484727622E-002 0.18344000933619445 6.8084536913647783E-002 3.2651710758339991 0.15289580497753061 3.1864673029567272
+ 2.7500000000000000 9.0000000000000000 0.84928241516566172 0.44200289533978671 0.19632727998673072 7.4749950863247622E-002 0.18145339214261388 6.6160184789277751E-002 3.3107855652856415 0.15163813517673067 3.2700828237767792
+ 2.7500000000000000 9.5000000000000000 0.89636881402963398 0.45062211788515061 0.22388434414279046 8.5867784612961587E-002 0.18492886691249008 6.8786168788534913E-002 3.3612938003903565 0.15164281437108598 3.3632901788694252
+ 2.7500000000000000 9.9999999999999982 0.94232972594303244 0.46496762545424047 0.25007072989191587 9.9963817414836731E-002 0.19324742289885952 7.4754112171165885E-002 3.4120016171896972 0.15185372364196006 3.4622794235097372
+ 2.7500000000000000 10.500000000000000 0.99176286060831498 0.48447184837002466 0.27795128501811833 0.11641677124877055 0.20576613678224120 8.3087276358000617E-002 3.4592032914774817 0.15198055213935571 3.5684411986294875
+ 2.7500000000000000 10.999999999999998 1.0364809179076531 0.50648386924537914 0.30454386102265113 0.13415336527354238 0.21966970678485545 9.3165182078075975E-002 3.5018252946232584 0.15197638316657996 3.6702727868134706
+ 2.7500000000000000 11.500000000000000 1.0283010577286715 0.52598867236822922 0.30796431768610583 0.15102237128267790 0.22299548183774437 0.10382471541315591 3.5337379141157226 0.15189471019346484 3.7062426706646718
+ 2.7500000000000000 12.000000000000000 0.99700211438195241 0.53614144209898040 0.30687414954280823 0.16468697959233947 0.22415922169349040 0.11387459309037673 3.5558556049376482 0.15179984871889196 3.7114283482041288
+ 2.7500000000000000 12.499999999999998 1.0003055433405037 0.54240477258698339 0.32342660626149189 0.17768491700764899 0.23210304745960922 0.12398398010380085 3.5703184502028535 0.15166520654852567 3.7493487235919583
+ 2.7500000000000000 12.999999999999998 1.0329345224195188 0.55146822770556725 0.35579054023281753 0.19267492672056308 0.24744188969547962 0.13480392021104348 3.5792733237193710 0.15150604588005279 3.8204445575505335
+ 2.7500000000000000 13.500000000000000 1.0738143223472534 0.56290317288562819 0.39499553823174205 0.20941035762358723 0.26814551140145299 0.14624232161559195 3.5820020535310348 0.15131683733873397 3.9025958468288353
+ 2.7500000000000000 14.000000000000000 1.1085522923864635 0.57305704756650666 0.43797650744247052 0.22728581586085514 0.29180751611842631 0.15817907440195364 3.5799840890674668 0.15105127906606919 3.9820713423083460
+ 2.7500000000000000 14.499999999999998 1.1475146169229244 0.58716103092934113 0.48593507967911220 0.24799452905824865 0.31848256739547753 0.17062065828986389 3.5707207215304964 0.15069242350994536 4.0672582042811394
+ 2.7500000000000000 14.999999999999998 1.1934763181426276 0.61441725400692515 0.53575456121952614 0.27483180840745358 0.34886523907558231 0.18549038300128626 3.5541585670003562 0.15031897246626494 4.1631892629193716
+ 2.7500000000000000 15.500000000000000 1.1842321313004973 0.64223467812599755 0.55428643654703513 0.30656429828480453 0.36563202710745407 0.20346129328897156 3.5314930686726549 0.15000497585357386 4.1911841909362098
+ 2.7500000000000000 16.000000000000000 1.1507871029544370 0.65703525430186083 0.54844917900610957 0.33108970501439261 0.36655471774162818 0.21864362857938185 3.5071734842964442 0.14980932604689196 4.1675022939799220
+ 2.7500000000000000 16.500000000000000 1.1477162857475387 0.66358363699903389 0.54760032581079243 0.34788806140107686 0.36162868414534177 0.22879170138942251 3.4835198315361939 0.14973271020411150 4.1569754548244591
+ 2.7500000000000000 16.999999999999996 1.1925006414988866 0.66093936813970955 0.55864568570347739 0.35589086967647648 0.35923095717116382 0.23383844667146250 3.4650873697714784 0.14976559643803697 4.1837878630718990
+ 2.7500000000000000 17.499999999999996 1.3088573201127802 0.66291298967401913 0.58258095218495209 0.35802966339130843 0.36185593476253858 0.23405148234699258 3.4498856301498959 0.14986406719007070 4.2704059590075749
+ 2.7500000000000000 18.000000000000000 1.4915870219633194 0.68517678574470131 0.61281141678350404 0.35883696253696235 0.36960368006835359 0.23124665719262752 3.4361340068173769 0.15000014949437485 4.4151776020779243
+ 2.7500000000000000 18.500000000000000 1.6426331386241020 0.71871367683776166 0.61870870203078665 0.35799270717916726 0.37910997935350366 0.22752747610615179 3.4207499137316466 0.15014224859346911 4.5255931920655419
+ 2.7500000000000000 19.000000000000000 1.7582922850357900 0.75244225218736527 0.61974290291233047 0.35544177669286819 0.38426961047065089 0.22472245530789725 3.4048129187543728 0.15027349716655924 4.6057051385669920
+ 2.7500000000000000 19.499999999999996 1.8502342136858909 0.79041089885865445 0.62729572383555632 0.35607895760642561 0.38734417285718742 0.22415749311263788 3.3890202253436015 0.15037503163424593 4.6762703508854777
+ 2.7500000000000000 19.999999999999996 1.8940419959827428 0.82302715927179415 0.62497010723228019 0.35533527559713901 0.38798939430695001 0.22484691174598676 3.3741936197364946 0.15042999249019715 4.7053431912073513
+ 2.7500000000000000 20.500000000000000 1.8764679263473321 0.84238326105990868 0.61008057446447383 0.34798599953211273 0.38764190707873247 0.22435748899086821 3.3589673145589090 0.15043288546514166 4.6771583599823083
+ 2.7500000000000000 21.000000000000000 1.7886282473752990 0.84650872529239241 0.58743309879201688 0.33875402498991802 0.38674397597681326 0.22408638837230888 3.3440210539593220 0.15038538196094525 4.5911290909408224
+ 2.7500000000000000 21.500000000000000 1.6388098358704515 0.83339188610980475 0.54929200221972985 0.32527160961065599 0.38625158502562934 0.22326157540068606 3.3281222708154945 0.15027551042048670 4.4457173231347484
+ 2.7500000000000000 21.999999999999996 1.4953068484548808 0.80426376038139658 0.50678042447326277 0.30626625998216589 0.39076849821313131 0.22266605320136665 3.3123443586309986 0.15006400161470290 4.2978867782413932
+ 2.7500000000000000 22.499999999999996 1.3699091610759102 0.76771323853004048 0.47197623603436445 0.28331502244785067 0.40455547240199530 0.22304984875592326 3.2958714379321985 0.14968679129858734 4.1694631719737796
+ 2.7500000000000000 23.000000000000000 1.2530364050232996 0.72869265328955235 0.43949020074136735 0.26077262237607479 0.43234153064734737 0.22602722375584738 3.2785074785235313 0.14912361760395598 4.0571224489655071
+ 2.7500000000000000 23.499999999999996 1.1681495187941189 0.68475881178578990 0.41207977892548348 0.23877463489232501 0.47173974373775618 0.23216271931648952 3.2588108939561651 0.14844899420697080 3.9752350103428737
+ 2.7500000000000000 24.000000000000000 1.1154448650910820 0.64048077339135978 0.39426139012272443 0.21769377989237057 0.51988237493636724 0.24185621996288489 3.2364810983629795 0.14772296496474951 3.9266310650792233
+ 3.0000000000000000 0.0000000000000000 5.7090617536819863 2.8945786218295484 2.0191308212575989 1.1313288495141258 0.87393021693349460 0.46795417789282584 1.5055963845608411 6.8716687847782620E-002 8.2593388966507071
+ 3.0000000000000000 0.50000000000000000 5.7619734053952278 2.7627616153332362 2.0452885186422227 1.1002582681290565 0.92409777740572552 0.47723338404415744 1.4841546140215534 6.8092146275647733E-002 8.2797913482371861
+ 3.0000000000000000 1.0000000000000000 5.7445848928731156 2.6532199080501777 2.0434704507947914 1.0678275591981279 0.95009953846460549 0.48121003990241662 1.4632591112345161 6.7700534767939663E-002 8.2242620095509071
+ 3.0000000000000000 1.5000000000000000 5.6762834649484892 2.5680302829150614 2.0229617767498218 1.0350058032749834 0.94762509252053162 0.47730361518792558 1.4432053433568313 6.7840179589978983E-002 8.1094437453730972
+ 3.0000000000000000 2.0000000000000000 5.5950243197346818 2.5074752488566725 1.9977089155537493 1.0043013082881340 0.92223258865870406 0.46491266812907051 1.4242403176320988 6.9100981514779503E-002 7.9747341633157074
+ 3.0000000000000000 2.4999999999999996 5.4637219947689006 2.4681116769048286 1.9517110337150301 0.98044105704552997 0.88703121231619675 0.44685295895105448 1.4072804695266632 7.2584435035754735E-002 7.7958265161969162
+ 3.0000000000000000 3.0000000000000000 5.2638083668619373 2.4198285746884691 1.8510154337127656 0.94366011867693789 0.85094709905768751 0.42575887640097554 1.3953543583802186 8.0235715317331563E-002 7.5305779337029763
+ 3.0000000000000000 3.5000000000000000 4.9967710594776200 2.3327032330586777 1.7078928947804548 0.87442708676613157 0.81518730517936255 0.40344449487191464 1.3945624991035939 9.5121526777204063E-002 7.1781746195186624
+ 3.0000000000000000 4.0000000000000000 4.6543632091359335 2.2398136175027945 1.5389805347337189 0.79596170137169608 0.77608098465432729 0.38120931593706026 1.4130523595393507 0.11864368496843487 6.7668608319688817
+ 3.0000000000000000 4.5000000000000000 4.2025775503630616 2.1392661047872239 1.3408335070296475 0.71467509759818404 0.72249084044719225 0.35880358679485497 1.4525185180255886 0.14998902617587392 6.2665248823623720
+ 3.0000000000000000 4.9999999999999991 3.6820272538312002 2.0220659511168213 1.1290128905411967 0.63070043543821508 0.66072649117907012 0.33538165392651842 1.5047962478793748 0.18594748069071054 5.7090737626779822
+ 3.0000000000000000 5.4999999999999991 3.1924871189949720 1.8878280849758968 0.93066120191829427 0.54555286805184877 0.60524448366287109 0.31009259886547053 1.5504187112843175 0.21307167877879790 5.1713894207976407
+ 3.0000000000000000 6.0000000000000000 2.8504421018410744 1.7425238755256465 0.78191682272152152 0.46447453291654367 0.56538610952823520 0.28627008712718882 1.5816353786541053 0.22787333393828016 4.7599675516658442
+ 3.0000000000000000 6.4999999999999991 2.6463099555322156 1.6170414441891041 0.68604036912919419 0.40106046019976932 0.53371823033016197 0.26397124008013012 1.6011581064465927 0.23389734021354008 4.4834746025196246
+ 3.0000000000000000 7.0000000000000000 2.6016645048448930 1.5233796563172906 0.64165263503821157 0.35699483129730902 0.50911274616767843 0.24559312330178401 1.6110824363205845 0.23174921024956702 4.3615804886362284
+ 3.0000000000000000 7.4999999999999991 2.7454197205117845 1.4718277116050171 0.65767183713384070 0.33861268518103865 0.49106005501421118 0.22931056421465126 1.6050524110688675 0.21813313557464917 4.4187640480109209
+ 3.0000000000000000 8.0000000000000000 2.9332229054542509 1.4482160127461521 0.70447803137139686 0.33858937273285034 0.47453849435217005 0.21601947251582929 1.5751309219159184 0.18756470567033187 4.5217100899508775
+ 3.0000000000000000 8.4999999999999982 3.1282306376482767 1.4528147972544057 0.76218129422257919 0.35021019814935805 0.45888158182113775 0.20573821314880836 1.5287944341584612 0.14762919332798671 4.6375227658604885
+ 3.0000000000000000 9.0000000000000000 3.3343988867836214 1.4858345061020291 0.82544447931668963 0.37104622786617597 0.44723377634516442 0.19978748925656856 1.4824099112912617 0.10822167464007226 4.7812880017794397
+ 3.0000000000000000 9.5000000000000000 3.5260195263433420 1.5469050519202945 0.88978533218533407 0.40089320547970336 0.44020120259390588 0.19909859999088861 1.4594011701331069 8.5007274777638961E-002 4.9542395315599670
+ 3.0000000000000000 9.9999999999999982 3.6153340623251102 1.6296235719333647 0.92471424070562236 0.43784099731539172 0.43108911632115116 0.20329738769405234 1.4667183376142003 7.6318353368865555E-002 5.0742639414146140
+ 3.0000000000000000 10.500000000000000 3.5175601039921109 1.7145368416015661 0.91019300415211946 0.47626058645899072 0.42182112083066009 0.21120918980320602 1.4864248126772370 7.2969452870282420E-002 5.0489913846794332
+ 3.0000000000000000 10.999999999999998 3.3464191656958073 1.7877138083736279 0.88227950505494102 0.51102448957607471 0.41095180917178004 0.22127325343720186 1.5117321938732164 7.1649036790869078E-002 4.9648086452564204
+ 3.0000000000000000 11.500000000000000 3.1966986907725494 1.8481642879322904 0.86630541864987964 0.54158217663165453 0.40089664488823151 0.23213431894814404 1.5415083894294206 7.1251565843470879E-002 4.9013168789452397
+ 3.0000000000000000 12.000000000000000 3.1104754856009009 1.8937084817439349 0.86971092914228065 0.56812858965933843 0.39444002653724758 0.24238696462435827 1.5710099410358254 7.1231001847354813E-002 4.8889092675024992
+ 3.0000000000000000 12.499999999999998 3.1073212953524103 1.9307119819931120 0.89667925286824457 0.59341071959864444 0.39455380476318525 0.25183104882808949 1.5986870898166359 7.1474967796900060E-002 4.9473038679392323
+ 3.0000000000000000 12.999999999999998 3.1762467550006095 1.9703960079017302 0.94661290099213002 0.62126674020999872 0.40429689185613055 0.26154424423875022 1.6251726726201396 7.1896116826578080E-002 5.0765871833716929
+ 3.0000000000000000 13.500000000000000 3.3002653594489977 2.0222719546499248 1.0175069281326325 0.65553676247453130 0.42499776884746304 0.27305566228694406 1.6459647512911166 7.2363141104197393E-002 5.2668990453186719
+ 3.0000000000000000 14.000000000000000 3.4990573942092587 2.0908551886631561 1.1128322572402158 0.69779536212064786 0.45160186815931785 0.28683409911103686 1.6624358181091319 7.2820330157378932E-002 5.5333865518293548
+ 3.0000000000000000 14.499999999999998 3.7399763522419405 2.1794495511932017 1.2181393740434270 0.74723719235270059 0.48178033876588755 0.30145775915440165 1.6770053326447150 7.3255602418709209E-002 5.8450676335036507
+ 3.0000000000000000 14.999999999999998 4.0286794897334044 2.2835481546601857 1.3088414513306497 0.79972180663437165 0.51374241779808327 0.31694093725742861 1.6892798811115142 7.3692507569651608E-002 6.1849966286896469
+ 3.0000000000000000 15.500000000000000 4.5228813691797631 2.3913378497596565 1.4242994991729772 0.85139673642308122 0.54504271759428446 0.33332371728067117 1.6958857782970311 7.4072038735022244E-002 6.6754496902288478
+ 3.0000000000000000 16.000000000000000 5.1799300574258833 2.5082444068236129 1.5661350202383530 0.90304429119254781 0.57621024930957854 0.34872942480434305 1.6960654290638120 7.4346397306402107E-002 7.2903486774007202
+ 3.0000000000000000 16.500000000000000 5.9181503694831772 2.6673032175863876 1.7202547900750016 0.95570179740242078 0.61009587317344838 0.36274477655643933 1.6933358590108107 7.4576111716828292E-002 7.9813332289156511
+ 3.0000000000000000 16.999999999999996 6.5403439027160308 2.8621605638196184 1.8545904671619544 1.0090732509400930 0.63851491007815253 0.37505423127390014 1.6877566164675288 7.4746443700919971E-002 8.5878154275272873
+ 3.0000000000000000 17.499999999999996 6.9939753951819341 3.0910904388479863 1.9617625184758356 1.0673133172039919 0.66048684709039529 0.38561409379786687 1.6799880598207542 7.4852346095235459E-002 9.0704319456943061
+ 3.0000000000000000 18.000000000000000 7.2252972535665814 3.3096695788502806 2.0293101063644139 1.1217313693859092 0.67453251635343603 0.39368419048025372 1.6720799327041500 7.4925051047297714E-002 9.3674832692469678
+ 3.0000000000000000 18.500000000000000 7.2475729558231672 3.4985684284419718 2.0522490278539878 1.1714663129366827 0.67976561843377847 0.40094770532550644 1.6659655870063834 7.4973787165852707E-002 9.4790208707015484
+ 3.0000000000000000 19.000000000000000 7.0799762107299937 3.6527076433660448 2.0338882443972550 1.2178243305915575 0.67311626933947333 0.40918908465570947 1.6598590343595956 7.4882524231315348E-002 9.4160943668324197
+ 3.0000000000000000 19.499999999999996 6.7832962386878188 3.7741515529880107 1.9884597532615738 1.2591060994480034 0.65904328499197706 0.41854491729482873 1.6517547708890268 7.4672590133283381E-002 9.2305277518416400
+ 3.0000000000000000 19.999999999999996 6.4646442497988073 3.8220891403188522 1.9464814517132365 1.2870055954259714 0.64498358335824735 0.42554005512574589 1.6434344520229827 7.4376412172945938E-002 9.0026995589433536
+ 3.0000000000000000 20.500000000000000 6.1783477853500361 3.7882249988722734 1.9108045977689252 1.2964477037713682 0.63751882071305765 0.42910568565862722 1.6323937993349003 7.3964299507593007E-002 8.7686242313812333
+ 3.0000000000000000 21.000000000000000 5.9121851864220876 3.7175665328555270 1.8742812700411087 1.2910602004945491 0.63508787968892810 0.43151139721160181 1.6186905256289146 7.3400472517796106E-002 8.5313427755471842
+ 3.0000000000000000 21.500000000000000 5.7017033324513555 3.6193901094410141 1.8510576477900469 1.2755380404785255 0.64254081221303716 0.43315197365127045 1.6032131283717286 7.2713599842539139E-002 8.3326078550218945
+ 3.0000000000000000 21.999999999999996 5.5750917176685126 3.4920860406591236 1.8578719781088446 1.2515143298931073 0.66433106301624811 0.43537603177483125 1.5857954430970731 7.1924308149414654E-002 8.2056937047526084
+ 3.0000000000000000 22.499999999999996 5.5314586484632562 3.3448564300759998 1.8839738703046238 1.2230641710821635 0.70004441893063596 0.43950898180966741 1.5662398958303889 7.1086089821332077E-002 8.1473164466156565
+ 3.0000000000000000 23.000000000000000 5.5541659351193164 3.1873966482440865 1.9207810930575271 1.1941793852321601 0.74966444998913917 0.44649541982873603 1.5463794983538663 7.0258950589800417E-002 8.1467707856448275
+ 3.0000000000000000 23.499999999999996 5.6175341351903390 3.0360051882495251 1.9705744094750473 1.1637775261148227 0.81020673958563783 0.45643528362433644 1.5264807353634799 6.9459661097762887E-002 8.1917565661051519
+ 3.0000000000000000 24.000000000000000 5.7093364516852141 2.8946826045725507 2.0192274369409109 1.1313682370137650 0.87397199901097877 0.46797019276762214 1.5056591627631224 6.8720152901693407E-002 8.2597104293520278
+ 3.2500000000000000 0.0000000000000000 13.608619313305292 7.9585000532055794 4.5944686175177454 2.9066844403055732 1.1382117651851071 0.70229334212842620 0.46053418012558078 3.0703850717097091E-002 17.067283146208041
+ 3.2500000000000000 0.50000000000000000 13.442925417751049 7.6591567942783696 4.5292251230970848 2.8200072964727849 1.1332831141668605 0.69115534415819446 0.45571267025717110 3.1291736880900090E-002 16.774634607444856
+ 3.2500000000000000 1.0000000000000000 13.245711398754906 7.3730317188880470 4.4501782665873213 2.7288729364570901 1.1081039330429971 0.67293421750352433 0.45132750313752940 3.1943108946032125E-002 16.439141394946731
+ 3.2500000000000000 1.5000000000000000 12.941045402385432 7.1003609735271631 4.3330177306437472 2.6313316529279809 1.0698221616790982 0.64952267509354300 0.44776387940521856 3.2789052287732712E-002 15.999100900687802
+ 3.2500000000000000 2.0000000000000000 12.426433401708064 6.8264856656044941 4.1652560802682990 2.5239213399070319 1.0182818433318568 0.62298709996252954 0.44596072521485419 3.4157749156408741E-002 15.373138651892202
+ 3.2500000000000000 2.4999999999999996 11.796686921568144 6.5505612625085012 3.9690856365027272 2.4082636021406900 0.96193430552338666 0.59415598004416970 0.44707515239997142 3.6658679123052297E-002 14.646401185268290
+ 3.2500000000000000 3.0000000000000000 11.086182773266028 6.2537900335614962 3.7274258138289356 2.2801306174643088 0.90717931381704131 0.56399444330803961 0.45251725370256618 4.1380399838441682E-002 13.828635267800477
+ 3.2500000000000000 3.5000000000000000 10.384258619446712 5.9223747841406738 3.4508572676815721 2.1306733180007562 0.85741377604142144 0.53384619123686650 0.46389391627913168 4.9403219800216926E-002 12.983048224025394
+ 3.2500000000000000 4.0000000000000000 9.8423753302129420 5.5821483183221510 3.1905918484359157 1.9604112869925192 0.81482751270067855 0.50461020014296076 0.48139033594720770 6.0425357796172752E-002 12.255321739282431
+ 3.2500000000000000 4.5000000000000000 9.4140723128368915 5.2683489666971068 2.9508189323123108 1.7889003252433135 0.77565407698602884 0.47701519062775022 0.50632388019300945 7.4210638239242552E-002 11.634071175154629
+ 3.2500000000000000 4.9999999999999991 9.0407332883196307 4.9646923897883823 2.7260382546140804 1.6199003259325080 0.74287949751644244 0.45041689503665877 0.54006177328722116 9.1823219847615309E-002 11.075419486026638
+ 3.2500000000000000 5.4999999999999991 8.8264873814406126 4.6874962973109051 2.5425148239635886 1.4583715451949730 0.72760772533928852 0.42493540756596698 0.58104215820662208 0.11247304673498190 10.679526824902350
+ 3.2500000000000000 6.0000000000000000 8.7159890421795279 4.4791265973996506 2.3885948439787570 1.3176068604283837 0.72440847240186168 0.40453414161443824 0.62942425459207141 0.13785103949504895 10.418650621747318
+ 3.2500000000000000 6.4999999999999991 8.6335651383681533 4.3250848822302332 2.2498427162237249 1.1990842542717604 0.71852823156040346 0.38794862508768913 0.68515527901683715 0.16771891427414681 10.218006468734021
+ 3.2500000000000000 7.0000000000000000 8.5544633133312384 4.2255953126852086 2.1332191533947356 1.1056003287013063 0.70749489630181339 0.37271346365557417 0.72893115613995452 0.18759995687034420 10.046575366749305
+ 3.2500000000000000 7.4999999999999991 8.3842523761330856 4.1734486582158166 2.0206589535437436 1.0418573668430047 0.69160548121306931 0.35989710796809860 0.75687085297067747 0.19710783369385698 9.8263620981473085
+ 3.2500000000000000 8.0000000000000000 8.1381979507512465 4.1671902339439466 1.9258740016740816 1.0063015698656728 0.67432629715710080 0.35059273112374817 0.77838117913207994 0.20166687954200169 9.5864367573014597
+ 3.2500000000000000 8.4999999999999982 7.8707398625143625 4.2222992668262149 1.8580280825744884 1.0057189825122312 0.65910107288174524 0.34509304208167246 0.78753876879884599 0.19812441486464205 9.3740170932745492
+ 3.2500000000000000 9.0000000000000000 7.5730842483598941 4.3123016161949419 1.8004539664942769 1.0320963753718437 0.64304101942370051 0.34259909491661933 0.77521855332721001 0.18080741247755147 9.1504666913903723
+ 3.2500000000000000 9.5000000000000000 7.2804000450236410 4.4373130978035755 1.7446721471048987 1.0740240570492474 0.62327864601575067 0.34319123255223227 0.73509671608928961 0.14781092397197679 8.9230781399480641
+ 3.2500000000000000 9.9999999999999982 7.0216942256026318 4.5817663002125366 1.6950718553758666 1.1242304194468213 0.60049188833624001 0.34705641022239053 0.68504776676402579 0.11046258409800795 8.7227090620457606
+ 3.2500000000000000 10.500000000000000 6.8023769070570852 4.7284612280626943 1.6522459478123372 1.1766622144350083 0.57443502507114030 0.35284077564916189 0.64124233504950867 8.1064542302476311E-002 8.5598763968098250
+ 3.2500000000000000 10.999999999999998 6.6538398564719774 4.8342283924240066 1.6340981466055395 1.2209673807977286 0.54582139177689259 0.35801961438939078 0.61532095176049673 6.4230909333810510E-002 8.4585356633915829
+ 3.2500000000000000 11.500000000000000 6.6777991604719009 4.9027162794079269 1.6692846768755090 1.2576368078567750 0.52795140474071012 0.36212755319444978 0.59796940022031475 5.3068522185462243E-002 8.5071861490871612
+ 3.2500000000000000 12.000000000000000 7.1195751303543977 4.9905693645095468 1.8125662169800960 1.2995864230067522 0.53722095145550475 0.36765067313943567 0.58570993624705803 4.4819590658546571E-002 8.9375901737961314
+ 3.2500000000000000 12.499999999999998 8.0096627291982863 5.1137048698803982 2.0663453826173650 1.3504851824817257 0.57652217976706421 0.37654392272187109 0.57801129949826890 3.8939196666226694E-002 9.7802521179707291
+ 3.2500000000000000 12.999999999999998 9.1657488655084691 5.3136307833519059 2.3836971549939117 1.4195904328772078 0.63355600852067162 0.38982276112986025 0.57417408470256315 3.5033164122251485E-002 10.890809789644152
+ 3.2500000000000000 13.500000000000000 10.452650843030835 5.6003677630272932 2.7392901708902362 1.5118995439796681 0.70078307112295923 0.40779894087547391 0.57290158473529706 3.2627629501127443E-002 12.161315072314073
+ 3.2500000000000000 14.000000000000000 11.684969791237922 5.9786362527809294 3.0858221977142430 1.6333142703408872 0.77503209313147170 0.43231714889479944 0.57203261931079818 3.1095668982568752E-002 13.437025581262683
+ 3.2500000000000000 14.499999999999998 12.693170983170194 6.4204459358083295 3.3827211538375241 1.7821711877986848 0.83841973590738306 0.46211510053008981 0.56954092998520989 3.0118071293137049E-002 14.554185300410287
+ 3.2500000000000000 14.999999999999998 13.472966674286328 6.8916547709615070 3.5987887778077767 1.9461901462534279 0.88283901478107651 0.49516722959679238 0.56552885552065957 2.9469077355165990E-002 15.467575956319523
+ 3.2500000000000000 15.500000000000000 13.997701863617225 7.3875341369427190 3.7481792395587910 2.1166637305224913 0.90988135239656720 0.52860203632090130 0.56139794172539836 2.9066119445153339E-002 16.165395605942411
+ 3.2500000000000000 16.000000000000000 14.365505357355364 7.9075042912025797 3.8728123315271641 2.2944062225802835 0.92741571207843776 0.56133497776195396 0.55842997994374255 2.8840696864776093E-002 16.746804316739670
+ 3.2500000000000000 16.500000000000000 14.507610687534255 8.3623813787391903 3.9434903696663022 2.4593782538114981 0.93583118317210245 0.58962833713124119 0.55586622620885229 2.8720598138087479E-002 17.108568500327682
+ 3.2500000000000000 16.999999999999996 14.242725909948671 8.7354023940357806 3.9179065436845990 2.6013581325863253 0.92571185351282181 0.61153629683863331 0.55236468857379439 2.8620801021703203E-002 17.084778538640737
+ 3.2500000000000000 17.499999999999996 13.853810453755104 9.0450432893705237 3.8748144169973937 2.7270043468884215 0.90819303261067630 0.62792820496407553 0.54744581863103003 2.8502077762025319E-002 16.932335120991148
+ 3.2500000000000000 18.000000000000000 13.593502230107500 9.2650450544413321 3.8842146215687845 2.8350478928253606 0.89852628281528324 0.63980541820167858 0.54193313264768106 2.8393094298360011E-002 16.868214664681744
+ 3.2500000000000000 18.500000000000000 13.460543291628325 9.4115916020207262 3.9497621477796536 2.9284189643153407 0.89517641376880919 0.64995219299520146 0.53626642874017494 2.8336180508180084E-002 16.900598501224454
+ 3.2500000000000000 19.000000000000000 13.528350255190112 9.5093853945058449 4.0660533307031246 3.0121638526630345 0.90156962338846658 0.65968779714671433 0.53059733419537380 2.8280957203788572E-002 17.087553029491175
+ 3.2500000000000000 19.499999999999996 13.735641905888661 9.5552845568248905 4.2152705607440231 3.0806558957301950 0.91738422302972866 0.66845187477317802 0.52560543657098502 2.8241018329750824E-002 17.373479199374941
+ 3.2500000000000000 19.999999999999996 14.048291181854236 9.5599731049258736 4.4007718900883557 3.1397436382947004 0.94233778215321529 0.67699092464719102 0.52080250675543627 2.8211683152460344E-002 17.743108690907565
+ 3.2500000000000000 20.500000000000000 14.353865324942712 9.5273297164082749 4.5715590907648638 3.1860970190110454 0.97150832354462036 0.68519618625428735 0.51468466871427276 2.8221321901310579E-002 18.083359686502618
+ 3.2500000000000000 21.000000000000000 14.520772264910338 9.4291644131495840 4.6833924903089974 3.2004140989285048 0.99746381599087808 0.69061900527487952 0.50670836874647596 2.8324676898249385E-002 18.255065358054864
+ 3.2500000000000000 21.500000000000000 14.494448042610465 9.2727241007335710 4.7303851960334713 3.1901392612811383 1.0198614913196749 0.69469091123161830 0.49810229371916520 2.8527105282706248E-002 18.223891808631528
+ 3.2500000000000000 21.999999999999996 14.376700396711982 9.0758922589238473 4.7516735930985528 3.1645373192398187 1.0456865520726606 0.69900784925778903 0.48913259911313933 2.8821343664137959E-002 18.098215017692755
+ 3.2500000000000000 22.499999999999996 14.190886069878161 8.8346111884965275 4.7420478473121159 3.1213308751732129 1.0723744870099534 0.70313592810406389 0.48034907412573646 2.9201384333256319E-002 17.886531444252999
+ 3.2500000000000000 23.000000000000000 13.965464557951778 8.5569776935596238 4.7054254255523960 3.0628869396836311 1.1001203691811152 0.70622933419144451 0.47233070604686106 2.9643465361614732E-002 17.614139850086872
+ 3.2500000000000000 23.499999999999996 13.774912698174559 8.2609722856018326 4.6560706778103329 2.9907882343298509 1.1250625618617229 0.70671380007558682 0.46557548810114868 3.0151037514721903E-002 17.343956069805841
+ 3.2500000000000000 24.000000000000000 13.609576792150477 7.9589045818237523 4.5947902079540830 2.9068280558983952 1.1382915141271339 0.70232773367081291 0.46056355794655501 3.0705935018449201E-002 17.068403483589300
+ 3.5000000000000000 0.0000000000000000 21.905666066903471 14.162772924195943 7.3601011119055366 4.9840346673221241 1.3772823273156927 0.92847704156402044 0.17019723877315701 3.0799818959792884E-002 27.244192647279196
+ 3.5000000000000000 0.50000000000000000 21.351156574759955 13.657313862067241 7.1643311138871599 4.8159605291172953 1.3364395051667033 0.89906192825008502 0.16710451394984185 3.2221118087012557E-002 26.480873617682981
+ 3.5000000000000000 1.0000000000000000 20.805674759506893 13.145533224001936 6.9655045612575437 4.6377785821398581 1.2930461347096860 0.86644954287020437 0.16473719498584483 3.3628392028905600E-002 25.713771680653611
+ 3.5000000000000000 1.5000000000000000 20.271204255172073 12.631125262454349 6.7594970551005629 4.4523783255496499 1.2478770697730606 0.83199811258036638 0.16293442077550188 3.5005421466461711E-002 24.944510907897737
+ 3.5000000000000000 2.0000000000000000 19.724743409439615 12.122694405502713 6.5456912771610272 4.2625427148680179 1.2002238437214761 0.79637245932272260 0.16158623064836658 3.6316903944412941E-002 24.160805335192943
+ 3.5000000000000000 2.4999999999999996 19.131874359425893 11.651155718086994 6.3079457259462712 4.0727885361733840 1.1482554380293624 0.76085590902910505 0.16051796782671116 3.7524218952644406E-002 23.339837121566202
+ 3.5000000000000000 3.0000000000000000 18.490517657936422 11.214602883542952 6.0432806852128156 3.8823091282459119 1.0941513539502608 0.72572013936770119 0.15960459455689449 3.8608839682669330E-002 22.478783191384011
+ 3.5000000000000000 3.5000000000000000 17.736685298519326 10.800474262331024 5.7082497975477011 3.6881007549471936 1.0396509184435418 0.69155507162215180 0.15908789472839241 3.9546993343797299E-002 21.502341633574030
+ 3.5000000000000000 4.0000000000000000 16.951775991901489 10.413663866395593 5.3450466471733309 3.4853465123910499 0.98770621541431680 0.65923505588531561 0.15903969501776472 4.0334497682094045E-002 20.495239010455951
+ 3.5000000000000000 4.5000000000000000 16.137434331820067 10.053387681032365 4.9946579992308795 3.2777286032093125 0.93429836263705046 0.62874354428500678 0.15907678195355174 4.0993790403471668E-002 19.483929523404417
+ 3.5000000000000000 4.9999999999999991 15.320068042599418 9.7160376813975944 4.6597690650539061 3.0712787189219850 0.88401807422790424 0.59949084899565741 0.15916557402763115 4.1484263147503656E-002 18.491444341426817
+ 3.5000000000000000 5.4999999999999991 14.470450653138586 9.3686960565689805 4.3240970826841236 2.8705962736198716 0.83634741657154865 0.57136177336515170 0.15961140648609942 4.1798334268853925E-002 17.477821851861187
+ 3.5000000000000000 6.0000000000000000 13.671938337157375 9.0413557323324341 4.0018501626244767 2.6876589928182768 0.79389263807815280 0.54640980045044896 0.16085283205076273 4.1825629632503088E-002 16.524772698351729
+ 3.5000000000000000 6.4999999999999991 13.020196632093290 8.7844148044440189 3.7119494096719272 2.5321144071225712 0.76230791044737667 0.52643467568186941 0.16343244712686800 4.1976071401647864E-002 15.733570919109678
+ 3.5000000000000000 7.0000000000000000 12.468953928721351 8.5704406712796839 3.4518159853183321 2.3930589680303318 0.74260416846313326 0.50907526815420889 0.16777095761293112 4.2960304250756830E-002 15.059275097315490
+ 3.5000000000000000 7.4999999999999991 12.028622601620910 8.4168821563013783 3.2334725527351447 2.2808860276728198 0.73266491227280506 0.49570140996779849 0.17387836446039395 4.5063486923745733E-002 14.525269981014750
+ 3.5000000000000000 8.0000000000000000 11.811726886116254 8.3314188648467873 3.0938908193793284 2.1990663365095671 0.73284774054816459 0.48726846138731028 0.18137819020112200 4.8062570520624272E-002 14.235167835251341
+ 3.5000000000000000 8.4999999999999982 11.846192042050294 8.3160092092691613 3.0533063508692999 2.1557858451077201 0.74186106508265226 0.48310461975425056 0.19053850615443435 5.1964125643512063E-002 14.223553242695999
+ 3.5000000000000000 9.0000000000000000 12.099137996599518 8.3754804771036540 3.0956739620520097 2.1498662727086093 0.75582938953958567 0.48351421612938927 0.19789102164592925 5.4709208966790657E-002 14.453544971527510
+ 3.5000000000000000 9.5000000000000000 12.585847413850814 8.5378512119541163 3.2324824161216723 2.1874172481115415 0.77264772387707847 0.48849034091864779 0.20280162850389533 5.5892832588972083E-002 14.952403332760067
+ 3.5000000000000000 9.9999999999999982 13.318675614311731 8.8070908623346593 3.4594750486143644 2.2642945344204883 0.79594630195425642 0.49779230904533672 0.20511921121736537 5.5196854590149169E-002 15.727602304195353
+ 3.5000000000000000 10.500000000000000 14.296378681718444 9.1152443253496909 3.7614273640593425 2.3587018697047060 0.82727938562216041 0.50874628286296442 0.20655082896709687 5.3040659093486174E-002 16.739668552581648
+ 3.5000000000000000 10.999999999999998 15.455106701095117 9.4724981706824991 4.1095645542346322 2.4719045198975662 0.86765515224849588 0.52194779607965203 0.20802876651219754 5.0311383397012549E-002 17.932457406079205
+ 3.5000000000000000 11.500000000000000 16.639919502854706 9.9308364617058764 4.4608300638327192 2.6160150403020541 0.91331881554222438 0.54028699598057051 0.20973385722386118 4.7756528168875004E-002 19.194166501688134
+ 3.5000000000000000 12.000000000000000 17.682460367716917 10.490151750916567 4.7738119041741047 2.7915310889588807 0.95606042131669211 0.56469915194644271 0.21169161947193643 4.5115416050451544E-002 20.379848677743880
+ 3.5000000000000000 12.499999999999998 18.530019799693054 11.117666720240145 5.0449699831163608 2.9966450921774768 0.99284678949347538 0.59402710724123564 0.21371106253082245 4.2006170033590036E-002 21.437813453119954
+ 3.5000000000000000 12.999999999999998 19.184165950954846 11.791744736765049 5.2792054688408614 3.2264307076048260 1.0259656401515718 0.62818760648662852 0.21456385241536594 3.8644158724646674E-002 22.364269678102151
+ 3.5000000000000000 13.500000000000000 19.615370940232904 12.483992507383608 5.4471673639016691 3.4744393176781911 1.0537642321222553 0.66655895872086157 0.21489502774531510 3.5388626740713747E-002 23.107591512842546
+ 3.5000000000000000 14.000000000000000 19.653562373078273 13.190316740466258 5.4957902339093216 3.7344584566148180 1.0670192939548178 0.70799719203332401 0.21466574277730022 3.2250378478750681E-002 23.509032685010855
+ 3.5000000000000000 14.499999999999998 19.402650487770131 13.874648012217618 5.4910628926843712 3.9968417582739657 1.0673715284578182 0.75010495196848115 0.21385978502864189 2.9384510944695789E-002 23.666956207095559
+ 3.5000000000000000 14.999999999999998 19.272531505680604 14.479599217896975 5.5330484149787234 4.2447355886876785 1.0716641709576664 0.79029680622132359 0.21304741682500014 2.7008976582212359E-002 23.907407868757389
+ 3.5000000000000000 15.500000000000000 19.635836133869471 14.949550752336764 5.7247600757924673 4.4565789755591005 1.0982730441802613 0.82482082653167799 0.21260482644840795 2.5177234810538497E-002 24.533025316606430
+ 3.5000000000000000 16.000000000000000 20.419897689700520 15.321323546496650 6.0580535653391010 4.6395713057041252 1.1431493512162969 0.85428193785338369 0.21178688172687202 2.3727129444877305E-002 25.501559631821532
+ 3.5000000000000000 16.500000000000000 21.435282985508920 15.672220472397655 6.4671316644694024 4.8227412206701006 1.1982917004327933 0.88130766828966456 0.21092812157633578 2.2701639965669051E-002 26.674079981765992
+ 3.5000000000000000 16.999999999999996 22.431877649881372 16.007403969106864 6.8942743116941276 4.9979573065707665 1.2522007157570472 0.90569668633740230 0.21060705055554191 2.1802083298288574E-002 27.836926500363170
+ 3.5000000000000000 17.499999999999996 23.293499559756405 16.325799817342933 7.2845287366734031 5.1667002164059692 1.2966244372595519 0.92852903515942542 0.21038036221182393 2.1150182533482050E-002 28.870748481081396
+ 3.5000000000000000 18.000000000000000 24.062748830852545 16.598177176229839 7.6346161848189524 5.3253007499698626 1.3340391945157408 0.94845426348158224 0.21021373707424518 2.0689523693035519E-002 29.791952535965759
+ 3.5000000000000000 18.500000000000000 24.676060219711268 16.791481852486616 7.9140165332220009 5.4564462212951446 1.3642636009835787 0.96409820653780731 0.20969386233161885 2.0481845240750432E-002 30.520192186019077
+ 3.5000000000000000 19.000000000000000 25.005980205566431 16.902944853870405 8.1035479344485726 5.5590515209762597 1.3834523417682687 0.97654058457493798 0.20840932779489910 2.0307339130735239E-002 30.953874639236222
+ 3.5000000000000000 19.499999999999996 25.160680300302108 16.930616845199115 8.2030599922295373 5.6339336496437893 1.3961902584805914 0.98545503357285791 0.20637695726156893 2.0442859832706658E-002 31.167687801598692
+ 3.5000000000000000 19.999999999999996 25.217446942874460 16.886231532544965 8.2542635373081801 5.6759587815459422 1.4078946448706289 0.99216417617655550 0.20400599711782075 2.1010541510732599E-002 31.247529092040121
+ 3.5000000000000000 20.500000000000000 25.145722710494280 16.760713166708310 8.2637535576281582 5.6800099706775429 1.4174045545168446 0.99569617435542590 0.20122048168788842 2.1917361226286604E-002 31.171513093873969
+ 3.5000000000000000 21.000000000000000 24.966857830096640 16.547862192925418 8.2471069740050886 5.6500746646843503 1.4245368173599755 0.99572007581238231 0.19757583432836831 2.2996057501190926E-002 30.962935967501164
+ 3.5000000000000000 21.500000000000000 24.699062586737330 16.269684258617055 8.1956475711374619 5.5957428725200256 1.4332473262999508 0.99354104238317531 0.19328735136747838 2.4180373048767859E-002 30.641879405884488
+ 3.5000000000000000 21.999999999999996 24.267299106660754 15.934016441732469 8.0879033493837866 5.5156981820208522 1.4392420248074547 0.98906479745194864 0.18876127813032717 2.5446035377590954E-002 30.143545658182500
+ 3.5000000000000000 22.499999999999996 23.693891873817776 15.552328484385905 7.9226606711329497 5.4118612662617762 1.4384880792217583 0.98189529670892195 0.18408578512716484 2.6752357131906303E-002 29.483696741029267
+ 3.5000000000000000 23.000000000000000 23.054809714867808 15.123215119792658 7.7352584682259931 5.2867791457305717 1.4281849086057044 0.97014864344606566 0.17922683184711399 2.8060129261939671E-002 28.734387628441485
+ 3.5000000000000000 23.499999999999996 22.463974985694403 14.653851955738686 7.5519250356023173 5.1427260868207485 1.4086921647956598 0.95238370907198688 0.17433886818386601 2.9395882932224573E-002 27.992073247705374
+ 3.5000000000000000 24.000000000000000 21.907938897146590 14.163852364447425 7.3608620343646196 4.9844081867247034 1.3774247146243470 0.92854609576063563 0.17021333196983207 3.0802259822469279E-002 27.246828954322009
+ 3.7500000000000000 0.0000000000000000 27.262973657287194 19.197361382220215 9.1087126807678782 6.5486945402389356 1.5170179595716011 1.0900678988089929 0.12520925366754129 5.6960707925430308E-002 34.306970543927328
+ 3.7500000000000000 0.50000000000000000 26.513612779240578 18.625165361825687 8.8401451751446842 6.3449494493092731 1.4699510365308031 1.0562447691609984 0.12788208805564019 6.0702153647829965E-002 33.330081297295727
+ 3.7500000000000000 1.0000000000000000 25.783627077691801 18.058590871360220 8.5764055667308217 6.1392446938441534 1.4225781534168862 1.0214395084025776 0.13099641652487221 6.4717151540855666E-002 32.370402217958855
+ 3.7500000000000000 1.5000000000000000 25.046039922029500 17.494182554244830 8.3145030278289713 5.9311837256902242 1.3742833299959223 0.98560189448456514 0.13434867485477781 6.8882319248376303E-002 31.406066801028786
+ 3.7500000000000000 2.0000000000000000 24.294119780845275 16.943182210875353 8.0509991431739714 5.7254422270911345 1.3237018871897615 0.94992968100134545 0.13775515938801616 7.3072253836273388E-002 30.434926104666047
+ 3.7500000000000000 2.4999999999999996 23.490800732762960 16.414426801436502 7.7677851279571559 5.5231806853022078 1.2691160287405510 0.91478600180743486 0.14080268436273569 7.7138834247713811E-002 29.422180490146889
+ 3.7500000000000000 3.0000000000000000 22.642929287274676 15.905887091104661 7.4569990698327420 5.3220198417805289 1.2120452778452462 0.88013238758767176 0.14362865737957567 8.0950845009666178E-002 28.366731583382339
+ 3.7500000000000000 3.5000000000000000 21.812338102104814 15.408522271389758 7.1253748419086387 5.1187375589870161 1.1556463607449543 0.84611223316715045 0.14626059642635492 8.4468393593830141E-002 27.312360086502423
+ 3.7500000000000000 4.0000000000000000 21.043369651495073 14.910310386513533 6.8022338011066248 4.9069723131964738 1.1033496632463615 0.81217010477467344 0.14886063855770687 8.7439962305622121E-002 26.304173425200609
+ 3.7500000000000000 4.5000000000000000 20.323814713577558 14.417513119202468 6.4796878326644016 4.6872311205594848 1.0544856169102537 0.77820998555125087 0.15118259358686834 8.9056316336608821E-002 25.330117351709326
+ 3.7500000000000000 4.9999999999999991 19.672711406848631 13.938208274183044 6.1541689060837896 4.4589955184870211 1.0086213694004895 0.74417130654199326 0.15217638458541169 8.9415685278161433E-002 24.402048972775617
+ 3.7500000000000000 5.4999999999999991 19.154563676357395 13.493746081803424 5.8649241418606541 4.2351276672167684 0.97019182862561915 0.71169987631433973 0.15162398672088731 8.9081020798275637E-002 23.604087304420638
+ 3.7500000000000000 6.0000000000000000 18.830032466658736 13.132056920474179 5.6529049986296593 4.0407052923315145 0.94418275982467970 0.68397771458317025 0.14987944125144925 8.8228952978893133E-002 23.032989404365601
+ 3.7500000000000000 6.4999999999999991 18.695103871695874 12.895021700596621 5.5126736569415211 3.8811544574206227 0.92950980739670797 0.66201336088476703 0.14711774527546026 8.6881449681668055E-002 22.697960377067602
+ 3.7500000000000000 7.0000000000000000 18.703126948462813 12.782900165154583 5.4278013498546089 3.7596285389346797 0.92713704480811288 0.64679693159837504 0.14376115976748929 8.5010180898372339E-002 22.559329607457357
+ 3.7500000000000000 7.4999999999999991 18.842597789344627 12.777998997631826 5.3961803187335615 3.6795160322660418 0.93538832630987889 0.63824485641804118 0.14042578026070981 8.2793833372259318E-002 22.602579382995241
+ 3.7500000000000000 8.0000000000000000 19.128045609634000 12.908630052509240 5.4305539755296390 3.6457402197552886 0.95453367275849910 0.63747820420281198 0.13805115576775140 8.0136880477974015E-002 22.858118061441697
+ 3.7500000000000000 8.4999999999999982 19.563788051786368 13.128281622684085 5.5322613722491587 3.6525803106774610 0.98246148452814053 0.64342219979600523 0.13647305358229461 7.6863914395138871E-002 23.310371990614872
+ 3.7500000000000000 9.0000000000000000 20.122487911998860 13.442043971398354 5.6796355376397267 3.7041903940343630 1.0166483744112875 0.65556840614188350 0.13496265940365115 7.3331192815829560E-002 23.927534310432495
+ 3.7500000000000000 9.5000000000000000 20.726823235557656 13.840099118587595 5.8481202297446213 3.7992572424825415 1.0512688445377028 0.67272094648510505 0.13348726698136115 6.9969015083861483E-002 24.633815158760598
+ 3.7500000000000000 9.9999999999999982 21.348675006664909 14.335355774164233 6.0319552560697574 3.9408439346254203 1.0826056746385460 0.69461077375099933 0.13246303503768589 6.7101059225883775E-002 25.409769828862771
+ 3.7500000000000000 10.500000000000000 21.930261161727358 14.926250381148403 6.2192204919465928 4.1259952709182386 1.1081282653638485 0.72079028608862761 0.13190414782515233 6.4757707274067988E-002 26.205607259718413
+ 3.7500000000000000 10.999999999999998 22.408046771900224 15.588302164032104 6.3799093729025040 4.3454896207342273 1.1263608497620572 0.75049790894933288 0.13177065090136497 6.2564776865909263E-002 26.946343253837959
+ 3.7500000000000000 11.500000000000000 22.801993590998013 16.294308884370224 6.5208657614119510 4.5886000323264495 1.1404389857738968 0.78293721439564168 0.13144952957929543 6.0111010561434794E-002 27.638484292393354
+ 3.7500000000000000 12.000000000000000 23.184792634845945 17.021569445645262 6.6732640642328489 4.8509571337019590 1.1565084736178386 0.81788804349787247 0.13035888922001845 5.7436815364840833E-002 28.345899854014412
+ 3.7500000000000000 12.499999999999998 23.605254880546930 17.762465666894553 6.8539648735315106 5.1308950431058546 1.1786030382616985 0.85578971514806568 0.12925695827704878 5.4498599761913749E-002 29.112602842048258
+ 3.7500000000000000 12.999999999999998 24.257768537241866 18.497596194124743 7.1118250167016344 5.4173126111341832 1.2153790044309545 0.89612000905904921 0.12828090324409910 5.1279311642663923E-002 30.096271683065915
+ 3.7500000000000000 13.500000000000000 25.217565165589210 19.207976595028843 7.4998193155760386 5.7028357574023998 1.2680997374622922 0.93824296627241455 0.12665627471297589 4.8192441615272238E-002 31.373842915666653
+ 3.7500000000000000 14.000000000000000 26.405777704761359 19.877402520817647 7.9718840682309242 5.9800858478226022 1.3318086699631770 0.98010773345479041 0.12488522955104117 4.5419558733212795E-002 32.850575668613743
+ 3.7500000000000000 14.499999999999998 27.761552137672119 20.472095006955424 8.5051153423879171 6.2390077272071656 1.4064359858648254 1.0201176164331212 0.12294161108975095 4.2941863608099137E-002 34.455417456077676
+ 3.7500000000000000 14.999999999999998 29.231480208849860 21.037804589561759 9.0947127631107687 6.4945169517132024 1.4883989169956904 1.0604526411107738 0.12109483321587593 4.0783587030286256E-002 36.168310404586791
+ 3.7500000000000000 15.500000000000000 30.620025459131394 21.590818397212598 9.6660753324728148 6.7466734126197139 1.5670287269565453 1.1004133228503128 0.11912199225362791 3.9043050861555850E-002 37.807150401724314
+ 3.7500000000000000 16.000000000000000 31.811881385051294 22.125687370508931 10.153281816919069 6.9938525587429288 1.6340165467154559 1.1385898575078361 0.11760307807143452 3.7773947547859898E-002 39.243156462607352
+ 3.7500000000000000 16.500000000000000 32.711551022357611 22.587337753853394 10.517239249971212 7.2159160573772567 1.6828242638395734 1.1719582023530741 0.11656376919530226 3.6846411903791045E-002 40.356138345404972
+ 3.7500000000000000 16.999999999999996 33.275144109716273 22.941843207945798 10.763493389883408 7.4008071919304710 1.7131385662616454 1.1975569128760941 0.11595448346759309 3.6461042673620790E-002 41.104043151361282
+ 3.7500000000000000 17.499999999999996 33.540043711658797 23.198573522819064 10.896871371891384 7.5476896676225493 1.7289589959275411 1.2164749420193266 0.11487054200234131 3.6487726829346152E-002 41.520238367416795
+ 3.7500000000000000 18.000000000000000 33.624123327929190 23.332241407152072 10.974921146840185 7.6483530752431825 1.7353319672174483 1.2289616664897123 0.11451096783039781 3.6801637556497221E-002 41.714710868691967
+ 3.7500000000000000 18.500000000000000 33.569697534343611 23.359951567746339 11.009104288001044 7.7131420390893304 1.7350689494709182 1.2365005483001903 0.11409186411877030 3.7342511707273075E-002 41.734287312903938
+ 3.7500000000000000 19.000000000000000 33.327691005021208 23.288293841734145 11.001439465092730 7.7436300030451433 1.7284946791862812 1.2396332085188415 0.11445303858444941 3.8328130582501542E-002 41.551347186549982
+ 3.7500000000000000 19.499999999999996 32.916382290942039 23.104358909680140 10.925001386134760 7.7316883105675718 1.7168192246050169 1.2384145375113429 0.11542762292533501 3.9517891469219898E-002 41.153746899480858
+ 3.7500000000000000 19.999999999999996 32.509872367466244 22.831000791444456 10.823404666064603 7.6810138101309562 1.7075476451787597 1.2329870313428595 0.11642745836171689 4.0518449430760974E-002 40.700008118830553
+ 3.7500000000000000 20.500000000000000 32.076995899266599 22.503091635132041 10.704964483703433 7.6040277742743898 1.6985554418430993 1.2252406368507389 0.11699360751259395 4.1429568218234410E-002 40.189602826375619
+ 3.7500000000000000 21.000000000000000 31.596498906485262 22.133657425943102 10.566258567436511 7.5058578209609319 1.6904036782497327 1.2160637056822912 0.11731626319758663 4.2493643373629868E-002 39.613009142232713
+ 3.7500000000000000 21.500000000000000 31.022160379094217 21.715571670448494 10.390240820262287 7.3836924364525318 1.6805377843744294 1.2043604000995469 0.11739560106246551 4.3913397057677730E-002 38.922735691215010
+ 3.7500000000000000 21.999999999999996 30.350910533236910 21.265053947192801 10.177196159827451 7.2462923908283408 1.6662200981199686 1.1902491068205721 0.11805454430435457 4.5758596529095516E-002 38.124038904116055
+ 3.7500000000000000 22.499999999999996 29.589580166937516 20.787827615394495 9.9247373811382182 7.0944528471697827 1.6415641989764120 1.1722257311066155 0.11928747260145514 4.7988101915445801E-002 37.217610911631184
+ 3.7500000000000000 23.000000000000000 28.803321089245742 20.286592098390980 9.6543037382605519 6.9273851782263662 1.6062798229619855 1.1495087909628994 0.12097238686723952 5.0619031705299952E-002 36.261286391318862
+ 3.7500000000000000 23.499999999999996 28.027483990402427 19.753443965026072 9.3811279270382233 6.7444975469369783 1.5626421215191542 1.1215428672025127 0.12285879179368592 5.3589640926370564E-002 35.287099893866312
+ 3.7500000000000000 24.000000000000000 27.267084218040306 19.199515618357683 9.1100835338204149 6.5494225320478749 1.5172460127996659 1.0901880470274554 0.12522712998717336 5.6966780087566969E-002 34.311791588938561
+ 4.0000000000000000 0.0000000000000000 28.271158791140380 20.945237877864976 9.3635192368287630 6.9821079853228278 1.4539953515409203 1.0950159870758864 0.15943333879558921 0.10932912542386347 35.875968137432956
+ 4.0000000000000000 0.50000000000000000 27.631748441273544 20.431124062495048 9.1152241071576494 6.7945811016396203 1.4130745446378636 1.0648255853777087 0.16776099044321471 0.11877617853468840 35.021641031690535
+ 4.0000000000000000 1.0000000000000000 27.099089232888954 19.941311800562811 8.8950610182349514 6.6153033930993752 1.3777899691097892 1.0356750946661495 0.17665411842884116 0.12863780020718302 34.272705588620191
+ 4.0000000000000000 1.5000000000000000 26.621821183702245 19.463389407418177 8.7064681356598062 6.4403799202981267 1.3464384760153327 1.0071458319129620 0.18543525760183088 0.13853661279778098 33.589925959461830
+ 4.0000000000000000 2.0000000000000000 26.201961069968515 19.009025214377051 8.5419224962139495 6.2726362690322039 1.3174870516652857 0.97948844833347981 0.19419588727419063 0.14829597861888424 32.973526306868500
+ 4.0000000000000000 2.4999999999999996 25.796261334319343 18.579837409550024 8.3761496589869964 6.1100277301263954 1.2884420422557872 0.95250073878322039 0.20248339821971528 0.15768827708777094 32.375575674370367
+ 4.0000000000000000 3.0000000000000000 25.511776627200483 18.206967883227374 8.2350233073829973 5.9609927287082769 1.2634047626679696 0.92776991061509628 0.21066247071951752 0.16660184251372509 31.901355567002135
+ 4.0000000000000000 3.5000000000000000 25.304504699486415 17.893495264355177 8.1242843122271857 5.8275935742966771 1.2438729187522464 0.90594317224572685 0.21841240602935955 0.17491878775241532 31.528033157213471
+ 4.0000000000000000 4.0000000000000000 25.150489568986959 17.635116072716638 8.0348339319130488 5.7058391089670870 1.2282623739543237 0.88643620211725216 0.22629224838343601 0.18256549258738947 31.229904374287965
+ 4.0000000000000000 4.5000000000000000 24.995559347736304 17.411137640690587 7.9346986990821362 5.5884889564827951 1.2122873697941721 0.86811480830706067 0.23401993594434906 0.18910047576895894 30.936657528787773
+ 4.0000000000000000 4.9999999999999991 24.846224764220946 17.208645122874508 7.8230153305285670 5.4653977168335031 1.1976268239943493 0.84972910719043726 0.24147517739544716 0.19409560257281316 30.644850580583288
+ 4.0000000000000000 5.4999999999999991 24.689475417298883 17.017431942526333 7.7094683424130688 5.3383885518310876 1.1834523944953421 0.83205676468909340 0.24793749978178253 0.19736268951848260 30.348635752181050
+ 4.0000000000000000 6.0000000000000000 24.446366327368452 16.864480027757256 7.5799877434931346 5.2237529090926085 1.1655075004770485 0.81656829586937940 0.25375512694149366 0.19873470151088485 29.998256443596787
+ 4.0000000000000000 6.4999999999999991 24.162787004458874 16.756312324739508 7.4200067166289276 5.1220713559039064 1.1447174800246318 0.80271911772985860 0.25708375277033862 0.19780959434375173 29.616034100160853
+ 4.0000000000000000 7.0000000000000000 23.951813747069515 16.740132433751086 7.2860270826181086 5.0504918568215631 1.1284757721183989 0.79243545489140499 0.25706204277817468 0.19478786193673675 29.341534965523064
+ 4.0000000000000000 7.4999999999999991 23.818715397459187 16.826623768404474 7.1762232346886083 5.0184253413531295 1.1166061150617264 0.78780038267975361 0.25357814195807615 0.19002924847817010 29.184374839750237
+ 4.0000000000000000 8.0000000000000000 23.799166643433900 17.043479799274845 7.1088346792213191 5.0321898374431937 1.1138532302206714 0.79048455731320177 0.24656621976634702 0.18381185782035606 29.195602532378686
+ 4.0000000000000000 8.4999999999999982 23.917743195009272 17.363978310336375 7.1001756005687691 5.0890129478871922 1.1211042185227356 0.80004818268496525 0.23698890208479723 0.17630713077957619 29.393790134686419
+ 4.0000000000000000 9.0000000000000000 24.124981923508667 17.781740819604025 7.1378232679004974 5.1862649814120321 1.1360682608710917 0.81683800355714398 0.22522415377650867 0.16785010568886555 29.733629707458530
+ 4.0000000000000000 9.5000000000000000 24.385875353842977 18.276917601512885 7.2202094080846564 5.3241345690290984 1.1561310449798228 0.83988056510996800 0.21196006018229846 0.15871035928685873 30.182664943039438
+ 4.0000000000000000 9.9999999999999982 24.747579019413113 18.818982924221135 7.3487256676064545 5.4966410516526532 1.1806638119681101 0.86701942108705032 0.19955177405871524 0.14912547636909332 30.761603139807566
+ 4.0000000000000000 10.500000000000000 25.283654357265664 19.412133532927708 7.5317183061515349 5.6996327163358735 1.2109366501359378 0.89715222324569177 0.18838333798236023 0.13924837912526947 31.525850718235180
+ 4.0000000000000000 10.999999999999998 26.176341666048970 20.056000703802951 7.8222315105167715 5.9305149259594652 1.2572644491479601 0.92965691565387021 0.17843641157788018 0.12948646306865838 32.638069027689369
+ 4.0000000000000000 11.500000000000000 27.443868228704623 20.731821893589114 8.2552375995275771 6.1833558728634026 1.3197398791871542 0.96416662424368971 0.16935330578080915 0.12023604776244023 34.125326154952987
+ 4.0000000000000000 12.000000000000000 29.001632131393450 21.444167172081869 8.8068951556410475 6.4583264691033966 1.3953287580131035 1.0016064395145692 0.16122028183840217 0.11137994513153830 35.915210893201127
+ 4.0000000000000000 12.499999999999998 30.736621293598503 22.191067489602275 9.4410863069903588 6.7494895471475358 1.4795081585136638 1.0417702415635357 0.15398519076229134 0.10316486191455830 37.902631346652505
+ 4.0000000000000000 12.999999999999998 32.559549546602838 22.943760342912800 10.128790188184324 7.0476795622264641 1.5706118489128509 1.0838376722653695 0.14785527890604458 9.6156293432756404E-002 39.995015865349828
+ 4.0000000000000000 13.500000000000000 34.212265170965573 23.665140322355278 10.781396097506164 7.3432410415584100 1.6560918251788008 1.1266202077909584 0.14300858047295978 9.0251583894684892E-002 41.936925501282104
+ 4.0000000000000000 14.000000000000000 35.579116867101888 24.324018520067867 11.334659844069190 7.6279163943523738 1.7289867971551913 1.1690075493059451 0.13876014163274736 8.4972813691577526E-002 43.589654192445266
+ 4.0000000000000000 14.499999999999998 36.708230476032568 24.908868838476206 11.786296368427529 7.8936634858348418 1.7907040558660587 1.2095079063412579 0.13501069043097663 8.0181335759492517E-002 44.977568249308696
+ 4.0000000000000000 14.999999999999998 37.559676525039258 25.428507950907147 12.138145799865466 8.1397933382052674 1.8402136320602660 1.2471768686325646 0.13193727235470487 7.5866143142761855E-002 46.077096919842376
+ 4.0000000000000000 15.500000000000000 37.803674928637172 25.856482736055209 12.289054935904890 8.3537523387311268 1.8623523501348958 1.2799408986103062 0.12889475772406919 7.2098973472113206E-002 46.576742963890261
+ 4.0000000000000000 16.000000000000000 37.694084073331751 26.150433693576911 12.299359915506315 8.5192101772678264 1.8664246118208656 1.3049895697750340 0.12607328498369624 6.9057800577559794E-002 46.671858337494186
+ 4.0000000000000000 16.500000000000000 37.482144932086001 26.308451720514459 12.268857791847898 8.6324724082047037 1.8632245722724818 1.3216560149348739 0.12336618622295631 6.6562977116976951E-002 46.601443361876569
+ 4.0000000000000000 16.999999999999996 37.215899101005455 26.364989090746182 12.254506564435980 8.7090543361237938 1.8567156662647137 1.3319360932041304 0.12141074287472944 6.4830197987818236E-002 46.455957955741219
+ 4.0000000000000000 17.499999999999996 36.786674374887085 26.297712156630340 12.189878121807002 8.7397787168979661 1.8433143139388199 1.3359292538755505 0.11943940926203903 6.3538889910046289E-002 46.105190485701257
+ 4.0000000000000000 18.000000000000000 36.262929509950972 26.131339847614228 12.097603905872445 8.7335320736610615 1.8258997751725170 1.3333626121931843 0.11767385196659433 6.2789166845439615E-002 45.623079262079649
+ 4.0000000000000000 18.500000000000000 35.621402732091070 25.872231148958775 11.942936922038884 8.6937225729536447 1.8011660616562570 1.3264566520134409 0.11628755367628732 6.2595685320358363E-002 44.972864199390408
+ 4.0000000000000000 19.000000000000000 34.942996685281301 25.537868424867280 11.758001399017473 8.6224923212267228 1.7761584484060633 1.3170560034410888 0.11604743848699328 6.3016496144629203E-002 44.242280396021130
+ 4.0000000000000000 19.499999999999996 34.194255548369064 25.134480971207559 11.532234936854888 8.5134475476016860 1.7484225871132504 1.3043294315581833 0.11635572890306847 6.3934644430942503E-002 43.399576732426311
+ 4.0000000000000000 19.999999999999996 33.431803570144794 24.657029984362353 11.285924152175072 8.3547184036902866 1.7199063480245864 1.2837347432360693 0.11767144388871707 6.5552643088064091E-002 42.490548934281037
+ 4.0000000000000000 20.500000000000000 32.677454875562859 24.196031189813940 11.027263284055770 8.1864793603341326 1.6921663753363316 1.2633376894453201 0.11959815272934875 6.7941694167154759E-002 41.582251769709721
+ 4.0000000000000000 21.000000000000000 32.010733150180528 23.773788235958722 10.789654971683857 8.0392722555653879 1.6695263508068834 1.2472056602160742 0.12251989080301454 7.1131839434150343E-002 40.772088906040963
+ 4.0000000000000000 21.500000000000000 31.337319909796999 23.321203926861909 10.543110236860921 7.8730941010307909 1.6437245644000558 1.2277444494383811 0.12631038958538260 7.5229435514602525E-002 39.932734038044131
+ 4.0000000000000000 21.999999999999996 30.715572586809682 22.869083854815901 10.308610803008275 7.7025434270504087 1.6142893664498243 1.2061030396759045 0.13140388051233240 8.0273253226402483E-002 39.132585616109608
+ 4.0000000000000000 22.499999999999996 30.091218220454355 22.404221003637897 10.071248924680896 7.5257337808922413 1.5768986086216625 1.1810789239508874 0.13733788861793528 8.6184563413992790E-002 38.316875185548234
+ 4.0000000000000000 23.000000000000000 29.490396342390351 21.932225786864915 9.8363395132204055 7.3466943458926934 1.5359101712999199 1.1534348108955192 0.14424512240755211 9.3031230421693076E-002 37.513056157570432
+ 4.0000000000000000 23.499999999999996 28.882338830178284 21.441266011432173 9.5980131634589760 7.1641260277743415 1.4940897133936748 1.1241045667814971 0.15142494741162454 0.10065273263757378 36.693960882503568
+ 4.0000000000000000 24.000000000000000 28.276418641553295 20.948095042881853 9.3652596071231589 6.9830568050537671 1.4542650791398861 1.0951636201715393 0.15946224014568883 0.10934346046174052 35.882156688164315
+ 4.2500000000000000 0.0000000000000000 25.417351742152853 20.110228684012348 8.0727217030199316 6.3843389099644368 1.2119224989370343 0.95864768741509887 0.22334097341054854 0.17146101178459439 32.491783376072398
+ 4.2500000000000000 0.50000000000000000 25.072334495932068 19.785642561908272 7.9449003929442688 6.2705271965162872 1.1920564377690201 0.94278814751994522 0.23382077397487727 0.18322047962457139 32.022800862269840
+ 4.2500000000000000 1.0000000000000000 24.823829850277264 19.499595862306006 7.8571379821108422 6.1753062748448890 1.1778157092061143 0.92949944195871725 0.24485845438889947 0.19512435154168997 31.668936640872509
+ 4.2500000000000000 1.5000000000000000 24.637426455395364 19.234773098828729 7.7970856555773400 6.0910678030205387 1.1668305789117586 0.91750605512716332 0.25604633673594074 0.20669259010078037 31.388272533439331
+ 4.2500000000000000 2.0000000000000000 24.504981455142975 19.016012613388618 7.7619431366637075 6.0258822199866993 1.1589902999444082 0.90780304271866208 0.26660270240240030 0.21784739223937974 31.184193485546782
+ 4.2500000000000000 2.4999999999999996 24.393660261930755 18.831437069955257 7.7384014004154498 5.9761449352402849 1.1518349598999127 0.89962106875807890 0.27602491781805744 0.22834526504144770 31.018463806374463
+ 4.2500000000000000 3.0000000000000000 24.347984973970366 18.690019538788007 7.7334179713321980 5.9417686791358584 1.1470591947233435 0.89262863474875609 0.28476583598084804 0.23828858614770254 30.929720463611275
+ 4.2500000000000000 3.5000000000000000 24.325175396754052 18.584631480866896 7.7338665617847102 5.9178569574472801 1.1437832945064768 0.88676001334281429 0.29225727390974165 0.24744224324281006 30.875618582936589
+ 4.2500000000000000 4.0000000000000000 24.370205805498710 18.517337800110216 7.7526770068347854 5.8978143047222664 1.1436120018094229 0.88148455668200998 0.29880985439730062 0.25603357766072332 30.894426525418545
+ 4.2500000000000000 4.5000000000000000 24.458654314709730 18.479600447702961 7.7875454929304890 5.8845761778159265 1.1456103346602455 0.87674524692244660 0.30444457584968759 0.26438305455010508 30.965938121097249
+ 4.2500000000000000 4.9999999999999991 24.599491920453527 18.488468489072066 7.8281647286322471 5.8811789062192972 1.1499209840774902 0.87376570047972124 0.30955863214751389 0.27221487855682913 31.096633501649819
+ 4.2500000000000000 5.4999999999999991 24.763589472718909 18.545097256806841 7.8608502677784431 5.8839763706257795 1.1545125578089530 0.87250623666910787 0.31389808636763911 0.27891522930912360 31.255398620919578
+ 4.2500000000000000 6.0000000000000000 24.962143124923372 18.638197017935855 7.8793530632540856 5.8883604081408025 1.1596401675371513 0.87253136969112122 0.31859378325437104 0.28423359889766503 31.440927557534469
+ 4.2500000000000000 6.4999999999999991 25.140038958320059 18.752163309514966 7.8866467927182162 5.8880598049214470 1.1637634959795939 0.87236719401548557 0.32382295682659318 0.28762612057137155 31.609586945570726
+ 4.2500000000000000 7.0000000000000000 25.322482574131264 18.910601611094691 7.8921622070902711 5.8966954521077044 1.1679303167790664 0.87378688604034904 0.33065482274340274 0.28885719023405676 31.798800326988268
+ 4.2500000000000000 7.4999999999999991 25.530805266453477 19.110733887719693 7.9137213401491540 5.9236713708701219 1.1734781523047821 0.87763878005052398 0.33792634035233254 0.28776982670355111 32.037225354621121
+ 4.2500000000000000 8.0000000000000000 25.863507979133185 19.376799150491298 7.9886505876362079 5.9800186938284439 1.1850543122911190 0.88502144677187577 0.34418679869626179 0.28427034774470589 32.429636331449956
+ 4.2500000000000000 8.4999999999999982 26.339917791288485 19.701497906784507 8.1234981367681929 6.0630654417902967 1.2051729552449444 0.89631877810376981 0.34759043184963923 0.27819789446543508 32.990479550482178
+ 4.2500000000000000 9.0000000000000000 27.021365644792972 20.098767316371891 8.3385147378510176 6.1746719657290727 1.2375779620586198 0.91250548464561942 0.34595797323036453 0.26971711650673436 33.780831506373083
+ 4.2500000000000000 9.5000000000000000 27.881695953946124 20.554567233518927 8.6271646348977473 6.3146473442685913 1.2813688278316500 0.93365576988870280 0.33764871884796011 0.25906436778817127 34.772563662170441
+ 4.2500000000000000 9.9999999999999982 28.971664515923450 21.059735877283362 9.0048592326285881 6.4831318254591102 1.3400908307093089 0.95964121971431371 0.32516767552778963 0.24689215090773675 36.010988527647598
+ 4.2500000000000000 10.500000000000000 30.261909675116559 21.601921563379111 9.4563070672339915 6.6755406632429519 1.4095327969359277 0.98898041577169660 0.30903091023129620 0.23384579096562999 37.457949777464982
+ 4.2500000000000000 10.999999999999998 31.683840556168271 22.173798305591554 9.9720917999969085 6.8918453767687691 1.4858492438659956 1.0210458392494772 0.29039083637767060 0.22035020120070792 39.057128198542735
+ 4.2500000000000000 11.500000000000000 33.059797338472961 22.763326491367796 10.485223275474688 7.1279326419774902 1.5572610961170290 1.0546168201251966 0.27133742920032006 0.20678639018868461 40.633300207396388
+ 4.2500000000000000 12.000000000000000 34.438245077796630 23.378397994631136 11.002406218461413 7.3801438689036223 1.6259100625036111 1.0892792583775459 0.25360886870576305 0.19332094992114779 42.227160842256090
+ 4.2500000000000000 12.499999999999998 35.699051381722917 23.997599576359093 11.483401247923682 7.6366272880511517 1.6884518429211965 1.1241836944708672 0.23679039118622955 0.17934301106631070 43.717714432485153
+ 4.2500000000000000 12.999999999999998 36.710656308254769 24.565991357374628 11.885792871683220 7.8785070602593121 1.7414380670394689 1.1578489568286190 0.22126502075172427 0.16618085727352000 44.962277589064804
+ 4.2500000000000000 13.500000000000000 37.343109636069919 25.041187031777838 12.168248998761269 8.0996597648223112 1.7793184157273623 1.1897750514030176 0.20710101452719215 0.15461275570783972 45.826930244627498
+ 4.2500000000000000 14.000000000000000 37.695399400718671 25.439028042001187 12.349971183305721 8.2972114808365891 1.8058737313186342 1.2194695959207362 0.19470324035342829 0.14454788585551046 46.397384038668974
+ 4.2500000000000000 14.499999999999998 37.675471671156707 25.735598326666995 12.405015530085876 8.4550978655518385 1.8171199265568390 1.2437154208424621 0.18428432351742446 0.13563177640769572 46.577942097367554
+ 4.2500000000000000 14.999999999999998 37.437022908910734 25.890111379204100 12.382780418666300 8.5584145688150244 1.8185350179893083 1.2611023284244649 0.17579698228907473 0.12770170256624436 46.488533544906879
+ 4.2500000000000000 15.500000000000000 36.961933512630303 25.893572415486783 12.290788884842522 8.6071096667745319 1.8096994538344875 1.2710360364219706 0.16861816154168258 0.12059611666536171 46.118131420348874
+ 4.2500000000000000 16.000000000000000 36.298119552080209 25.775253109081106 12.143556679161842 8.6105780939287300 1.7911431074190116 1.2738642635975106 0.16302518243680494 0.11464813110930686 45.522010879970793
+ 4.2500000000000000 16.500000000000000 35.519767172773001 25.535035325407591 11.951719640387891 8.5657651159500006 1.7644123371950620 1.2680208157378878 0.15871089048962050 0.10975006275218933 44.755930467179603
+ 4.2500000000000000 16.999999999999996 34.786466305897527 25.226702620366126 11.768087124389421 8.4945524373827865 1.7375125916876291 1.2573597174038420 0.15619436636401379 0.10596422327396846 43.993699925034640
+ 4.2500000000000000 17.499999999999996 33.994808653168526 24.869964941878457 11.547430430269767 8.3979469349307063 1.7053405751893138 1.2414935695423819 0.15455512676739136 0.10303648842140811 43.138903835187641
+ 4.2500000000000000 18.000000000000000 33.145133974584425 24.500314970275010 11.279631153769094 8.2794925842723703 1.6651123011666711 1.2216161165591357 0.15387924172831341 0.10113453591784402 42.196690516507111
+ 4.2500000000000000 18.500000000000000 32.214000802488144 24.103320883752481 10.948308135620580 8.1316087826674295 1.6170570686185546 1.1984081015242809 0.15395456420344272 0.10035706621824855 41.133445325341292
+ 4.2500000000000000 19.000000000000000 31.237145236659092 23.690010703234918 10.572671400070913 7.9610433476870028 1.5643159574582599 1.1737076069043155 0.15519802577007621 0.10092291060966266 39.994781936117519
+ 4.2500000000000000 19.499999999999996 30.317583957220570 23.285637196680941 10.194183733711732 7.7861123975168862 1.5126998075357163 1.1495859412758045 0.15780348868513203 0.10289337113542481 38.896256960305116
+ 4.2500000000000000 19.999999999999996 29.545080271134669 22.910240145656388 9.8562812974465359 7.6094183728922022 1.4682677301734814 1.1269435571161464 0.16179447527027252 0.10620409677674769 37.938551240163797
+ 4.2500000000000000 20.500000000000000 28.827972844689548 22.548224322934107 9.5384800326856993 7.4345403707876923 1.4283587445438259 1.1057230016869664 0.16629297738057647 0.11063891867398508 37.040445270894018
+ 4.2500000000000000 21.000000000000000 28.207481682254230 22.166737647539023 9.2560508119353475 7.2527223531117295 1.3925476901300853 1.0826393388432980 0.17194414865988902 0.11622812270117240 36.224792042718107
+ 4.2500000000000000 21.500000000000000 27.627215080480774 21.812259120319275 8.9958886140807302 7.0864180277343864 1.3564485933498132 1.0602462584834347 0.17861249631497816 0.12302028856327027 35.466091087850977
+ 4.2500000000000000 21.999999999999996 27.128740723742236 21.468054382440357 8.7721569019766221 6.9288666045108833 1.3220819247502318 1.0378319098231341 0.18630239612259736 0.13082041009423406 34.794712400017325
+ 4.2500000000000000 22.499999999999996 26.639257102832342 21.121021315994291 8.5637541132850625 6.7789993878428199 1.2892692704550259 1.0157916785954377 0.19440407971843665 0.13962602077778305 34.142935845264027
+ 4.2500000000000000 23.000000000000000 26.197168409483861 20.774385772713799 8.3818848169758944 6.6377056084516317 1.2605199932311379 0.99499638641461063 0.20340812723574916 0.14950787748266711 33.547519446305330
+ 4.2500000000000000 23.499999999999996 25.771242579546527 20.430862708177770 8.2116217445314614 6.5040993131010811 1.2337900631259964 0.97544963004088603 0.21281693218113026 0.16007347569196367 32.976475921927303
+ 4.2500000000000000 24.000000000000000 25.421851520351606 20.112747892631162 8.0741509690808506 6.3851415652262764 1.2121370633054807 0.95876764426411110 0.22338074495576796 0.17148220957386245 32.497059969027610
+ 4.5000000000000000 0.0000000000000000 21.539606074525761 18.327245017512681 6.7929526611166633 5.7464258671966553 0.97859814220544417 0.82982106724766114 0.24568644265022369 0.20770442599067312 28.074961006314616
+ 4.5000000000000000 0.50000000000000000 21.355091227738072 18.093314057819555 6.7202640771707571 5.6685069123281888 0.96798602184271287 0.81909181230018635 0.25608149254916590 0.21889214475235594 27.799550188600563
+ 4.5000000000000000 1.0000000000000000 21.240280548866746 17.899123769821369 6.6700864277599914 5.6056875754637385 0.96114005590029750 0.81066497080560551 0.26712121536810968 0.23033625880655009 27.607689690229190
+ 4.5000000000000000 1.5000000000000000 21.160894382765584 17.728147900215816 6.6341473734229703 5.5550155277920208 0.95649255081341134 0.80394906169814473 0.27862037498793268 0.24146632260460421 27.462962725430128
+ 4.5000000000000000 2.0000000000000000 21.176323192046993 17.594678801568428 6.6328227724924940 5.5189814891809625 0.95681050392491951 0.79954011907097455 0.29032617473954336 0.25197040811086263 27.425912034779714
+ 4.5000000000000000 2.4999999999999996 21.255081693639614 17.499304330236765 6.6566119484204878 5.4957088909019287 0.96091182028392974 0.79742956694489331 0.30050020893095203 0.26128862937596298 27.466647586669836
+ 4.5000000000000000 3.0000000000000000 21.447802372207612 17.469900407794061 6.7259615877440506 5.4978028866598807 0.97143034283229257 0.79861128106727430 0.30977061717038840 0.26962263291571492 27.648622349448541
+ 4.5000000000000000 3.5000000000000000 21.720187574334595 17.499429937781287 6.8272198755427711 5.5263484564221708 0.98620130835149411 0.80313461592031954 0.31761167370944032 0.27693813898448322 27.936097337661618
+ 4.5000000000000000 4.0000000000000000 22.104873990853243 17.594463595548763 6.9711934633314891 5.5762593301930918 1.0060190964161140 0.81019875429956589 0.32453388911305991 0.28311529543717895 28.359092618302139
+ 4.5000000000000000 4.5000000000000000 22.512207697321315 17.735312956974038 7.1327975075855106 5.6451822719271219 1.0269126029410669 0.81863577939787791 0.33057027962773933 0.28895210692797152 28.831019763392757
+ 4.5000000000000000 4.9999999999999991 23.030942662541271 17.926962844054874 7.3152405655631405 5.7325299199149358 1.0511641371216953 0.82842334692262232 0.33694774508707137 0.29532158016034143 29.417275970559711
+ 4.5000000000000000 5.4999999999999991 23.588165714365754 18.160470049003987 7.5152543537717014 5.8271550724600498 1.0765672712580949 0.83896566593908117 0.34233739633486027 0.30171778201299726 30.057652680292311
+ 4.5000000000000000 6.0000000000000000 24.223518248716328 18.419620310735731 7.7349104819372139 5.9264593670317351 1.1057993250899105 0.85065445333865974 0.34714408585609774 0.30781311133140798 30.775763841878877
+ 4.5000000000000000 6.4999999999999991 24.894521132669055 18.710450075549883 7.9576311666365580 6.0263388700322329 1.1364241254282736 0.86299512947576573 0.35101898451934838 0.31333670165790251 31.530770531740750
+ 4.5000000000000000 7.0000000000000000 25.574508319038699 19.000064070456453 8.1732188094867837 6.1142215618996456 1.1666083968059677 0.87454263754841621 0.35454084000152997 0.31804968783075038 32.281543562800401
+ 4.5000000000000000 7.4999999999999991 26.309178774351963 19.283373163154355 8.4016417753973460 6.1925521169052038 1.1981385027315226 0.88502072280326682 0.35825616415639822 0.32111761489260110 33.072164683676633
+ 4.5000000000000000 8.0000000000000000 27.200545977437717 19.587269102210502 8.6864114552735163 6.2809930856517768 1.2375838450576648 0.89736673302242498 0.36365802493660221 0.32217095270682888 34.021399493000843
+ 4.5000000000000000 8.4999999999999982 28.238528670198502 19.923107171855410 9.0275511658612118 6.3822300302880235 1.2844094999531597 0.91109447655579134 0.37034077385800512 0.32100078197480164 35.126364226805251
+ 4.5000000000000000 9.0000000000000000 29.390060120226689 20.288745326159212 9.4174169028523558 6.4984102670294330 1.3375043253874050 0.92652811939452828 0.37653628160016134 0.31730373554293767 36.358007569419776
+ 4.5000000000000000 9.5000000000000000 30.595878262738900 20.685894927423000 9.8431461145233907 6.6312949656447877 1.3960312490921316 0.94498277257717622 0.38085045152074043 0.31083044003835236 37.668271753811212
+ 4.5000000000000000 9.9999999999999982 31.870689651317193 21.124040181400250 10.300816031784906 6.7864060333167595 1.4608575842862215 0.96757000371047419 0.38296673510805485 0.30205389624185830 39.070243373220698
+ 4.5000000000000000 10.500000000000000 33.081612180052772 21.585086300064997 10.743249241402298 6.9565301237875987 1.5252317689863846 0.99322033531683651 0.38033350127447729 0.29124101471528208 40.428977052438846
+ 4.5000000000000000 10.999999999999998 34.201930656461819 22.054188944188677 11.167601909102595 7.1389341241595199 1.5883216957115867 1.0205036505828000 0.37262343661014002 0.27887047649148861 41.717817530398250
+ 4.5000000000000000 11.500000000000000 35.006880713940006 22.510942655443941 11.496222215087197 7.3265471289250259 1.6381568487972795 1.0479581372608795 0.36000855031871493 0.26554341847104596 42.717842665462420
+ 4.5000000000000000 12.000000000000000 35.493403174152988 22.937559154012817 11.722343217770110 7.5105673155924002 1.6718481438242920 1.0745827885729411 0.34511337995768115 0.25225352691096031 43.413459538833081
+ 4.5000000000000000 12.499999999999998 35.629490511435634 23.304170399467232 11.824653283111429 7.6768611827192821 1.6865962476522762 1.0985667010515425 0.32739703805296250 0.23903609282850091 43.751636178857062
+ 4.5000000000000000 12.999999999999998 35.509734346983684 23.597584894651771 11.828069426809845 7.8181743521055900 1.6891858835263345 1.1193692521060514 0.30711799374132642 0.22593307737513743 43.809758959453653
+ 4.5000000000000000 13.500000000000000 35.041735527042853 23.764262608897965 11.722966546738869 7.9207879814515234 1.6771853357999631 1.1351369358123766 0.28576088398494720 0.21329599052659234 43.496260034607232
+ 4.5000000000000000 14.000000000000000 34.447770787326967 23.802698042640635 11.573918515979466 7.9788702281360573 1.6607503424612113 1.1448089607204766 0.26630250306542791 0.20128533345218305 43.008382287538495
+ 4.5000000000000000 14.499999999999998 33.739872332166819 23.721448773754659 11.389540866156391 7.9897356155635366 1.6386545371862140 1.1478862729175046 0.24869191358519901 0.18996179624640841 42.360850585557117
+ 4.5000000000000000 14.999999999999998 32.954041675170330 23.522707510754042 11.183951603053963 7.9581225537838698 1.6135159138151043 1.1448660653787339 0.23391676662381899 0.17958718093892498 41.592045076060664
+ 4.5000000000000000 15.500000000000000 32.017080239385727 23.242881069580783 10.931053610084810 7.9007885104182902 1.5806071472963439 1.1383002024485782 0.22107420159693902 0.17039869293924578 40.650666290704834
+ 4.5000000000000000 16.000000000000000 31.030903578839094 22.935006745808629 10.653784502080436 7.8246023143260377 1.5425582262732229 1.1280717774569395 0.21116608983771698 0.16272331861052935 39.642409650087693
+ 4.5000000000000000 16.500000000000000 29.928884548232585 22.621365958493016 10.310255464374642 7.7269710598817145 1.4936312038613335 1.1133230127073801 0.20291865529420439 0.15641799654411365 38.496485923717245
+ 4.5000000000000000 16.999999999999996 28.822509803476329 22.296271778878520 9.9285574870033333 7.6132154254909805 1.4375814902947393 1.0947277023422437 0.19650877489947180 0.15161783138265830 37.308715949814044
+ 4.5000000000000000 17.499999999999996 27.701557981991751 21.965304142820941 9.5094320015663616 7.4767230104675271 1.3756488001222447 1.0731432986470177 0.19182800184525739 0.14804562464617477 36.073383215877627
+ 4.5000000000000000 18.000000000000000 26.690129551524514 21.637112864809975 9.0965981899712176 7.3191150552034330 1.3135024707545246 1.0493764413304694 0.18964408238309172 0.14595349712297712 34.910435482577853
+ 4.5000000000000000 18.500000000000000 25.785048275528020 21.300858988074474 8.6985746773241086 7.1400784664769628 1.2555958666069298 1.0239943302096126 0.18903898162093541 0.14526630496981349 33.822237897296958
+ 4.5000000000000000 19.000000000000000 25.048768083499237 20.971707057811823 8.3566975289375893 6.9563211949621424 1.2080699391933658 0.99884196131504943 0.19017888188597723 0.14608956034450432 32.893462880488620
+ 4.5000000000000000 19.499999999999996 24.425862988768500 20.670776655919333 8.0542008137508301 6.7816801060458562 1.1691039778038181 0.97706681728094258 0.19255979543669141 0.14810236027885701 32.087027030348217
+ 4.5000000000000000 19.999999999999996 23.945961084454588 20.423282195632499 7.8113589200673959 6.6250825284178001 1.1393767012624563 0.95827888890606472 0.19576344782564142 0.15090062724500131 31.447488182473844
+ 4.5000000000000000 20.500000000000000 23.509955408518490 20.162017322624944 7.6024045925655965 6.4817249395629775 1.1112703418291923 0.94011880083673749 0.19886875061612286 0.15437410325535933 30.861077784446273
+ 4.5000000000000000 21.000000000000000 23.136391320986803 19.892267485418646 7.4309625037716085 6.3496792812290925 1.0848725735112761 0.92172539250685093 0.20263535868449242 0.15884435546839423 30.344080009510446
+ 4.5000000000000000 21.500000000000000 22.789649003662770 19.632983187381370 7.2822024882518068 6.2321908925995695 1.0599096246227364 0.90384713284822704 0.20713600624060477 0.16455004413462265 29.870455167506538
+ 4.5000000000000000 21.999999999999996 22.501465781184692 19.370645165520315 7.1629653640685111 6.1238835157499958 1.0386928243327282 0.88665080828315279 0.21312039926340889 0.17139146538265723 29.461686564211593
+ 4.5000000000000000 22.499999999999996 22.217751858571155 19.095978873070720 7.0520342568326315 6.0185598841935430 1.0195484725508546 0.87000814514334190 0.21993909760411692 0.17909277487731179 29.060729016134143
+ 4.5000000000000000 23.000000000000000 21.972527086981746 18.825269944230623 6.9584526776721143 5.9187614198729017 1.0041043223994734 0.85475493043454187 0.22756212965287115 0.18763465947896285 28.703904462476473
+ 4.5000000000000000 23.499999999999996 21.731252563569051 18.564702988476103 6.8684993203315301 5.8271383563482750 0.98998976571979314 0.84125952313108920 0.23575280401830367 0.19707671630668583 28.360388830513170
+ 4.5000000000000000 24.000000000000000 21.542412990844017 18.329046666877932 6.7938384670942789 5.7469959823250774 0.97872578204210070 0.82990289977323639 0.24571865339785767 0.20772431907352806 28.078353884935428
+ 4.7500000000000000 0.0000000000000000 18.032368713778354 16.539916155610374 5.6444974953782960 5.1348245553310985 0.79704649631717284 0.72845256952410575 0.31848066616377368 0.29287563583355725 24.093618553191444
+ 4.7500000000000000 0.50000000000000000 17.961691918710439 16.305450517518754 5.6358763279711113 5.0761974128370939 0.79504497221350146 0.71978383591553996 0.34414159101229136 0.31560742000081915 23.963516268695631
+ 4.7500000000000000 1.0000000000000000 17.971752386887527 16.110564028491154 5.6436874687578173 5.0301650267441866 0.79540213770466006 0.71293680222067990 0.36960802972514661 0.33655307501179393 23.917039659539366
+ 4.7500000000000000 1.5000000000000000 18.033325580162330 15.952885575044801 5.6672300560284441 4.9957508056963746 0.79825839552301858 0.70772695256443141 0.39306015261965693 0.35484008761973385 23.931650596530744
+ 4.7500000000000000 2.0000000000000000 18.172845665669549 15.831536792370965 5.7161542583355383 4.9744092644712019 0.80461023621917727 0.70409151891690125 0.41530433028414054 0.37276966865720301 24.033545408477693
+ 4.7500000000000000 2.4999999999999996 18.420197063437008 15.754262705858260 5.8002122025389600 4.9672528366985169 0.81604529215120203 0.70232629555625681 0.43570739104515410 0.38706107937878576 24.251742271945488
+ 4.7500000000000000 3.0000000000000000 18.797643732384767 15.729403637755425 5.9301776684595664 4.9801747220799708 0.83388972843658637 0.70341728549211813 0.44595756377223572 0.39351710828062958 24.607283379904818
+ 4.7500000000000000 3.5000000000000000 19.271767771613320 15.770383421017280 6.0922275559944215 5.0127419629317318 0.85710874337983689 0.70809434747496702 0.44901704064129461 0.39349108780679987 25.074984347496169
+ 4.7500000000000000 4.0000000000000000 19.830865571839624 15.884427960002469 6.2919776399188505 5.0683089113387103 0.88554742453540480 0.71670390083994129 0.44730179459987618 0.38852888507573585 25.656451506348120
+ 4.7500000000000000 4.5000000000000000 20.487062721001653 16.070755864370760 6.5223943485419795 5.1491926117024871 0.91761305410019456 0.72866679446989602 0.44216179246761328 0.38021188350104845 26.355763662089021
+ 4.7500000000000000 4.9999999999999991 21.295647203335310 16.318145293909375 6.8086779054184934 5.2518299541422095 0.95791308720944923 0.74343267703126581 0.43581601123377572 0.37002189354011528 27.226512744339008
+ 4.7500000000000000 5.4999999999999991 22.207605855787701 16.601017098944297 7.1343859772813945 5.3717768802573334 1.0017777951594486 0.75949305816582890 0.43058085056660783 0.36086641947618936 28.213951471477984
+ 4.7500000000000000 6.0000000000000000 23.234533931196808 16.919662284989503 7.5064986756703611 5.5043037453405042 1.0511347165327931 0.77589302918058412 0.43132421257793147 0.35631517456083761 29.334385768675737
+ 4.7500000000000000 6.4999999999999991 24.321993276014560 17.288115372217774 7.9049133904642943 5.6476735997046612 1.1039659099926380 0.79390170506910451 0.43524835825898700 0.35505490887542279 30.538995818442636
+ 4.7500000000000000 7.0000000000000000 25.416999777767213 17.665453045162163 8.2995138606676573 5.7896553663208872 1.1563149908553751 0.81245808257437890 0.43498437297048748 0.35440663987303506 31.745866379483974
+ 4.7500000000000000 7.4999999999999991 26.499693318169729 18.044720826246810 8.6780720250166095 5.9360677552248928 1.2072184935403834 0.83183263165944166 0.42835474146653890 0.35147678358525219 32.930258384367640
+ 4.7500000000000000 8.0000000000000000 27.599956497914174 18.393271014831825 9.0562943616400791 6.0575635280623370 1.2584647635110311 0.84764818771460093 0.41516211543800630 0.34486993725468340 34.101036048290005
+ 4.7500000000000000 8.4999999999999982 28.678363704727168 18.728641933282482 9.4291211291316746 6.1701022568925703 1.3089362837036178 0.86258884499503352 0.39836829008210090 0.33493959690235753 35.241950482453845
+ 4.7500000000000000 9.0000000000000000 29.744332394949737 19.075284399473418 9.8041615818540571 6.2855228332911075 1.3595101885893255 0.87877075951176686 0.38489146778737771 0.32447328519433938 36.383280847943880
+ 4.7500000000000000 9.5000000000000000 30.686945895687103 19.424740610326854 10.147666848231937 6.4070192950536775 1.4065124874850514 0.89560708003423883 0.37651426291680196 0.31475062245663527 37.425798865504397
+ 4.7500000000000000 9.9999999999999982 31.535307306796291 19.773990061512144 10.463700253253961 6.5326701593860834 1.4503443256871271 0.91324131510840567 0.37611136579644883 0.30693668848462385 38.392588242519636
+ 4.7500000000000000 10.500000000000000 32.104965293621383 20.104951857790375 10.689142497476269 6.6573024015705951 1.4835468151823783 0.93168642254072342 0.37687447445843547 0.29915582080855374 39.100718221395724
+ 4.7500000000000000 10.999999999999998 32.405702150910010 20.397824043465274 10.830546113283368 6.7763001562220140 1.5068831015232220 0.95014434115899427 0.37602220690859223 0.29023336436823899 39.550936350154977
+ 4.7500000000000000 11.500000000000000 32.323069624467010 20.627720704465133 10.846482250532704 6.8810546505636090 1.5136343638828005 0.96681755793058877 0.37160729712499307 0.27997611318167898 39.621718699385333
+ 4.7500000000000000 12.000000000000000 32.015044900059650 20.790966742099329 10.777073397045029 6.9695751079406634 1.5092316303064472 0.98073926065567207 0.36344952375124823 0.26882777485226683 39.446569262624230
+ 4.7500000000000000 12.499999999999998 31.520903615060710 20.871939739718272 10.643730223868237 7.0330151378751795 1.4953362950289504 0.99073808118544138 0.35368578420203550 0.25733916430000725 39.060114653132921
+ 4.7500000000000000 12.999999999999998 30.933747844267298 20.878067635746174 10.482840624263615 7.0681861977761784 1.4773049240782685 0.99689699115775188 0.34281167378993438 0.24573214355435277 38.554097700344222
+ 4.7500000000000000 13.500000000000000 30.124258972025796 20.778313668982708 10.253642382837139 7.0669461993506539 1.4499343006885776 0.99809344729119243 0.32884353827636331 0.23419215379005179 37.796967952356795
+ 4.7500000000000000 14.000000000000000 29.168444832914215 20.593800036552398 9.9835524619933480 7.0369865807399901 1.4162381831798263 0.99534971442365106 0.31159551198384083 0.22301176274661935 36.869603358201708
+ 4.7500000000000000 14.499999999999998 28.180120314926928 20.362928743539626 9.7076827757293156 6.9929154006536800 1.3808426249648880 0.98989662617580532 0.29324966603808594 0.21216880691843645 35.893900113535338
+ 4.7500000000000000 14.999999999999998 27.107611782758045 20.113930552762959 9.4022637162358542 6.9343716452792536 1.3401795705039219 0.98202583608750160 0.27544926295489119 0.20198149103921609 34.827772730024776
+ 4.7500000000000000 15.500000000000000 25.944363572969639 19.871133988975785 9.0532836896886941 6.8651176128692022 1.2913341293511975 0.97354178038852335 0.25857896662979191 0.19278648377735716 33.665900194429831
+ 4.7500000000000000 16.000000000000000 24.800248491511361 19.672904008159612 8.6656434416159946 6.7887473666046594 1.2361318668264050 0.96330604421803567 0.24411418092993925 0.18492360205796263 32.500718994269221
+ 4.7500000000000000 16.500000000000000 23.703456205697691 19.496609349932349 8.2458500796073082 6.6941007848436733 1.1758175953216412 0.94910737376938936 0.23212909051450512 0.17834365300467087 31.344222367944123
+ 4.7500000000000000 16.999999999999996 22.757956191859666 19.316126046119432 7.8370303271035473 6.5731364312690808 1.1175707541866351 0.93208779689922816 0.22254743479757458 0.17300171033228229 30.288187133504955
+ 4.7500000000000000 17.499999999999996 21.970845022047918 19.153017427041050 7.4570429685628037 6.4306304287631573 1.0633426235494821 0.91340659513343292 0.21477280345218921 0.16870018345668680 29.359253823206370
+ 4.7500000000000000 18.000000000000000 21.275060596686910 18.977433903289750 7.1076470431779351 6.2725626877988159 1.0152929506409094 0.89344394862303844 0.20845661900450244 0.16569813563575367 28.507351031455958
+ 4.7500000000000000 18.500000000000000 20.657285863142341 18.789187257717590 6.7932640721837201 6.1140836017629816 0.97336815316572656 0.87366393389774621 0.20355864458344586 0.16402714744926730 27.731971802326015
+ 4.7500000000000000 19.000000000000000 20.146328870749784 18.593160655750033 6.5269204754436778 5.9649686913647777 0.93947269989053717 0.85566589015360284 0.20017256325739732 0.16353697988001151 27.067707145277069
+ 4.7500000000000000 19.499999999999996 19.726276055569468 18.396264471231120 6.3162718924590191 5.8424491636218088 0.91263059349306264 0.84108984065468462 0.19804206823100770 0.16405087861270512 26.516765191208474
+ 4.7500000000000000 19.999999999999996 19.405420183252623 18.237409929285676 6.1602345316658962 5.7471675187844919 0.89061533542283533 0.82868752598649054 0.19718645920224440 0.16555785172765708 26.095245281623836
+ 4.7500000000000000 20.500000000000000 19.151855977951140 18.081109985696340 6.0386558641156372 5.6605776467387283 0.87030268463599592 0.81494424883533256 0.19814906665655063 0.16887417861431356 25.747811082201121
+ 4.7500000000000000 21.000000000000000 18.953861537726837 17.924076516111043 5.9449723500562186 5.5777012626896854 0.85314663207301655 0.80049613652329832 0.20236727654411665 0.17579300862776467 25.462254172250720
+ 4.7500000000000000 21.500000000000000 18.757277626437045 17.736115878926739 5.8635055535961627 5.4977536254214074 0.83792704983035105 0.78640840928029976 0.21203535910245969 0.18791568472687264 25.183228258762451
+ 4.7500000000000000 21.999999999999996 18.564712086404839 17.523912025527284 5.7931726667008263 5.4196170488673516 0.82497761065574471 0.77311393231926306 0.22751650633166678 0.20427335826139609 24.913891368387155
+ 4.7500000000000000 22.499999999999996 18.379289985038813 17.288371277885087 5.7333314143663454 5.3429657556675032 0.81404025861961682 0.76073172971305880 0.24668285893023903 0.22410798888475347 24.654288595353478
+ 4.7500000000000000 23.000000000000000 18.241808596962571 17.037610087374450 5.6927120066237524 5.2693359829801523 0.80637896406342013 0.74913169910466204 0.26874192024706073 0.24625115847124798 24.440537301241374
+ 4.7500000000000000 23.499999999999996 18.128094065007140 16.786395190481674 5.6624350404358008 5.1994329126639771 0.80080205462781384 0.73831130953796564 0.29264692831687356 0.26919593750302956 24.253763842320634
+ 4.7500000000000000 24.000000000000000 18.033426667012609 16.541474725619846 5.6448287456698303 5.1353117515673219 0.79709324517376279 0.72852143912784839 0.31849903366212545 0.29290257502101352 24.095301958124228
+ 5.0000000000000000 0.0000000000000000 14.638447995660771 14.563866244306572 4.5581420516523954 4.5260165439620996 0.64256987867233373 0.63794718784432736 0.31399794492130928 0.30510763488539183 20.113084450937340
+ 5.0000000000000000 0.50000000000000000 14.702393705347644 14.356402869911358 4.5950087964724462 4.4781684315952148 0.64523886124503715 0.62939024625182949 0.33915745405416592 0.33001494766522393 20.119191376554074
+ 5.0000000000000000 1.0000000000000000 14.792453036424931 14.168468669068830 4.6403472221757767 4.4361082463358805 0.64928590382901030 0.62185137257435508 0.36710681168612469 0.35374690235484013 20.159520379521862
+ 5.0000000000000000 1.5000000000000000 14.914339788946826 14.009532009837249 4.6974460649394461 4.4051633553728404 0.65534595770383275 0.61627783589325114 0.39116060876607134 0.37466518728238712 20.240741076366032
+ 5.0000000000000000 2.0000000000000000 15.132774176259808 13.888273786114716 4.7799612356430137 4.3825784369740166 0.66544107139233155 0.61239722728536672 0.41599820378472818 0.39701977146085798 20.422872865331573
+ 5.0000000000000000 2.4999999999999996 15.424631750779454 13.813154257271508 4.8872655171732511 4.3740455978868873 0.67949968031602481 0.61081365021799516 0.44689312984261448 0.42520978312517366 20.699934481574747
+ 5.0000000000000000 3.0000000000000000 15.782847483405586 13.754678900476689 5.0250534414118215 4.3758183157516877 0.69690126118578555 0.61056464862975746 0.46616510567893038 0.43900911306497925 21.040668520429122
+ 5.0000000000000000 3.5000000000000000 16.381017080496349 13.757804092777505 5.2399495359868489 4.4004191442113365 0.72538450788792230 0.61316248790377847 0.46909801714526111 0.43959662091532015 21.613960209613563
+ 5.0000000000000000 4.0000000000000000 17.064830538261305 13.803075497254881 5.4923148863479829 4.4390778502185313 0.75868534300798385 0.61728959394690675 0.46103346113299920 0.42781409192793701 22.280328496949597
+ 5.0000000000000000 4.5000000000000000 17.940454296259105 13.937615679789612 5.8056258825202995 4.5092196476070106 0.80092139577181776 0.62616689885627719 0.44215724868846901 0.40479458150124370 23.152038151411169
+ 5.0000000000000000 4.9999999999999991 19.045765769199832 14.195208637191364 6.1968548000881700 4.6260703622625527 0.85538692999533228 0.64256030802100339 0.41689197158993696 0.37707478748211087 24.290237678901182
+ 5.0000000000000000 5.4999999999999991 20.180330940145144 14.520792153651222 6.5961736537831461 4.7609981038158056 0.91078227515749355 0.66236295791297528 0.39468590279840299 0.35128200791087000 25.486460255686413
+ 5.0000000000000000 6.0000000000000000 21.175011171496443 14.807906407859774 6.9509867614179601 4.8850251764244206 0.95987162090475453 0.68043382125834195 0.37527835393640613 0.32827931458089565 26.541313511878190
+ 5.0000000000000000 6.4999999999999991 22.227801357910160 15.136313084537420 7.3463259743520188 5.0326120278492663 1.0132348571734067 0.70039548276076236 0.36446009603917595 0.31056466144286204 27.694509942513275
+ 5.0000000000000000 7.0000000000000000 23.302255796059814 15.463424275808190 7.7377401487198370 5.1661727464762155 1.0652887377215134 0.71733959222799548 0.36221924127209976 0.30020515572478185 28.860716539261237
+ 5.0000000000000000 7.4999999999999991 24.370089907492805 15.774951855168036 8.1256498238305301 5.2819390155290584 1.1166574185495719 0.73249526211698834 0.36645982218554413 0.29620759361222559 30.014435890181073
+ 5.0000000000000000 8.0000000000000000 25.385608780894902 16.089499661851303 8.4932316939381707 5.4019209169363656 1.1659101469441293 0.74843483098545727 0.37155402483934907 0.29677290896360414 31.123079203989942
+ 5.0000000000000000 8.4999999999999982 26.251088244182796 16.370963253485662 8.8032763158078779 5.5004683300543764 1.2073490089946386 0.76207389211251653 0.37382048714115834 0.29902613094251862 32.067866572949335
+ 5.0000000000000000 9.0000000000000000 26.993906686706087 16.651326743590555 9.0692223525388496 5.6016310290946691 1.2430881026478728 0.77585497718234353 0.37184749320980831 0.29991453247860378 32.894952184183801
+ 5.0000000000000000 9.5000000000000000 27.589395390451084 16.912634906289050 9.2888101390658537 5.6962849485847595 1.2726900661388196 0.78882193807747947 0.36347456792833988 0.29557927642349702 33.574020465514323
+ 5.0000000000000000 9.9999999999999982 27.973468185538593 17.152073436862192 9.4406425102838014 5.7889226596636432 1.2940681608837532 0.80169132612004346 0.35411317258956504 0.28820901080999739 34.051826830682430
+ 5.0000000000000000 10.500000000000000 27.984021713002292 17.332507920937026 9.4697950831952920 5.8645748217279099 1.2997903884349264 0.81259229190191751 0.34988192960400222 0.28124019319737870 34.165964485412417
+ 5.0000000000000000 10.999999999999998 27.737442723663825 17.441811835225959 9.4107664717090636 5.9206234345522697 1.2947876999481869 0.82135747473596044 0.35091658586343738 0.27627730757816837 34.015965671487130
+ 5.0000000000000000 11.500000000000000 27.314651642354431 17.477108190941280 9.2915841430676576 5.9563675700125227 1.2832133998649082 0.82770182705112016 0.35134445291505895 0.27014520744554715 33.670970023951526
+ 5.0000000000000000 12.000000000000000 26.766933367238551 17.468262275336386 9.1393769765373047 5.9807532648772268 1.2679947987386539 0.83268086249486362 0.34789800786545150 0.26206773368367697 33.196056812384029
+ 5.0000000000000000 12.499999999999998 26.051666045701332 17.380758669597736 8.9409006613883246 5.9809446087356468 1.2459538574150677 0.83459085848387193 0.34204767849959711 0.25369625654367167 32.537042293123179
+ 5.0000000000000000 12.999999999999998 25.213510295469472 17.189830029190652 8.7058425518810534 5.9472045054167841 1.2175666460912029 0.83180959178007063 0.33099176048794315 0.24212626756654559 31.715597633937797
+ 5.0000000000000000 13.500000000000000 24.650819526246231 17.164740854435326 8.5494847636898275 5.9549246878369626 1.1993515811640056 0.83464236352556853 0.31863344493753787 0.23041540047956641 31.207100646117542
+ 5.0000000000000000 14.000000000000000 23.817822228782720 17.031753312850004 8.3148195060902079 5.9270637646213080 1.1685735358123057 0.83153240363242487 0.30683548752513207 0.22062575633896128 30.409025584621141
+ 5.0000000000000000 14.499999999999998 22.900864656801389 16.930713797483691 8.0385377670079841 5.8903532774032508 1.1317394095767763 0.82786925354474572 0.29154711610430106 0.21046148042438087 29.528258569278986
+ 5.0000000000000000 14.999999999999998 22.201052410228407 17.048116001684669 7.8167446761123189 5.9015190748853295 1.1018770792079629 0.83226610181316252 0.27467649514271514 0.20073165453606431 28.923778051434009
+ 5.0000000000000000 15.500000000000000 21.215907978550188 17.047285911880188 7.4636762342211904 5.8624643556998111 1.0537143664894499 0.83007539065595837 0.25849290947490827 0.19215991061954049 27.971856182108986
+ 5.0000000000000000 16.000000000000000 20.309160682610802 17.081849730856064 7.0742309876517737 5.8063463169387477 1.0014435213227151 0.82459279890962789 0.24364727533599403 0.18465570463031403 27.051469828392438
+ 5.0000000000000000 16.500000000000000 19.423940605057638 17.057844847311074 6.6561684608104432 5.6985441086252662 0.94530148077280129 0.81313454881342184 0.23113099820446803 0.17832282551696382 26.086976473319144
+ 5.0000000000000000 16.999999999999996 18.632546810504500 16.990440778938915 6.2622004516806005 5.5729290327981760 0.89288616651053254 0.79894890560038889 0.22057704753463558 0.17327815804284680 25.184005942613624
+ 5.0000000000000000 17.499999999999996 17.899499489327901 16.866912270482288 5.8968221266251302 5.4372634915997233 0.84578636762650306 0.78334728297994671 0.21170227888415660 0.16933036324246423 24.321491311077267
+ 5.0000000000000000 18.000000000000000 17.256130297240354 16.731701209517148 5.5726465442106363 5.3049661886570796 0.80512932574517415 0.76766780420945258 0.20407968097862622 0.16621525780034699 23.548840718844534
+ 5.0000000000000000 18.500000000000000 16.716311343550064 16.608440407093756 5.3010987200740649 5.1897418182281569 0.77166461469285863 0.75373923723385738 0.19743392877579072 0.16384763826380877 22.896262105001714
+ 5.0000000000000000 19.000000000000000 16.292449834308464 16.509445003558053 5.0931556470280519 5.0984042194701011 0.74531259001473105 0.74268515469925234 0.19164884942011326 0.16232026823271711 22.385996162500945
+ 5.0000000000000000 19.499999999999996 15.972650584462095 16.419619241387959 4.9409656222397897 5.0266262928787047 0.72344793540049113 0.73263977365231070 0.18688760481123770 0.16184848367761612 21.996212428474603
+ 5.0000000000000000 19.999999999999996 15.718187962644819 16.311749431938630 4.8279923588990110 4.9689962736508866 0.70451039248466540 0.72182926808518344 0.18490687307922621 0.16402079722040930 21.679263648370185
+ 5.0000000000000000 20.500000000000000 15.507303026463198 16.145978039240955 4.7443473713451541 4.9144782902156106 0.68889677588704101 0.71018606095485282 0.18827688370688653 0.17142329428045208 21.399904599832141
+ 5.0000000000000000 21.000000000000000 15.326181540176014 15.958751289977922 4.6844683304941706 4.8606413323093101 0.67713075821591939 0.69911265555058111 0.19723825743783110 0.18435114652393736 21.157631399003211
+ 5.0000000000000000 21.500000000000000 15.135871259292156 15.740444051746547 4.6321961641548084 4.8049486039482350 0.66696382334372151 0.68867858899102685 0.21153665552890938 0.20125401779024507 20.909487022371746
+ 5.0000000000000000 21.999999999999996 14.960767596750154 15.503310985756297 4.5888540314220139 4.7480607922036553 0.65827661632650014 0.67823752985928887 0.22968153287558959 0.22007648437963209 20.674948448982462
+ 5.0000000000000000 22.499999999999996 14.813177651638627 15.261437950423851 4.5580334769594399 4.6915144219389928 0.65116762962140384 0.66780639412336307 0.24830274920233719 0.23991638140085997 20.467346054243560
+ 5.0000000000000000 23.000000000000000 14.712733500811961 15.024083079172268 4.5438541738828544 4.6347406569156533 0.64628083404941872 0.65756591030355760 0.26929213071639518 0.26097650725553456 20.307229144189424
+ 5.0000000000000000 23.499999999999996 14.647044958865425 14.791072519009074 4.5414964892019247 4.5786171960913400 0.64313795858080791 0.64754124397018842 0.29045895458610971 0.28134065306350214 20.180949444867544
+ 5.0000000000000000 24.000000000000000 14.637998219571800 14.565237329798075 4.5580042172167570 4.5264433526734056 0.64255018709204992 0.63800721260945781 0.31398752271111297 0.30513457131389304 20.113300919859427
+ 5.2500000000000000 0.0000000000000000 11.573669981663512 12.227104152860804 3.5882272216799578 3.7811766796250788 0.50970143031510640 0.53398491463446951 0.29041740415519551 0.29639092382299992 16.254229582190298
+ 5.2500000000000000 0.50000000000000000 11.763867051927475 12.096959525136723 3.6676389373926290 3.7642684958634476 0.51815308512319747 0.52921128187476740 0.32147759610943571 0.32553259715507715 16.419415080378496
+ 5.2500000000000000 1.0000000000000000 12.004272833356637 12.012950469343991 3.7575191504627798 3.7577244209942773 0.52850529199850738 0.52620853016059854 0.35561670134841139 0.35466938433597917 16.647793586389174
+ 5.2500000000000000 1.5000000000000000 12.267480721996922 11.977324794070404 3.8602220089768422 3.7648401159220497 0.54010980154779309 0.52526688472244754 0.38481002458050884 0.37996071536522003 16.917545874761419
+ 5.2500000000000000 2.0000000000000000 12.476459146181417 11.883231916834983 3.9396505452780355 3.7496531535313165 0.54889302651376148 0.52120932674056508 0.41751901296877603 0.40864288725539649 17.109260248748747
+ 5.2500000000000000 2.4999999999999996 12.935439477214800 11.937271288054969 4.0991487996587823 3.7868067579749605 0.56828306061978284 0.52445527546416870 0.45470314149120006 0.44619514838273644 17.603292475948649
+ 5.2500000000000000 3.0000000000000000 13.225049144002410 11.881148509466756 4.2177678593390437 3.7885343809949847 0.58106028362252615 0.52317789157862193 0.49075369739050884 0.48239376650514687 17.901505505751494
+ 5.2500000000000000 3.5000000000000000 13.984302062332128 11.994523819395226 4.4834237591107282 3.8428372695800226 0.61580169076301150 0.53009097119146187 0.49417487071997507 0.48253840316261148 18.668465076393669
+ 5.2500000000000000 4.0000000000000000 14.521488450934486 11.961232077898265 4.6819852080999098 3.8516122728193887 0.64135541810095287 0.53076936759056714 0.48674429465712393 0.47370426247238995 19.160154908121850
+ 5.2500000000000000 4.5000000000000000 15.480448871515881 12.162654672245791 5.0230823455794349 3.9410902020048186 0.68679538944554663 0.54276305140580805 0.46723701796142975 0.45170068264999319 20.137778619103660
+ 5.2500000000000000 4.9999999999999991 15.962280065068276 12.086345528688421 5.2074311271541269 3.9442297743803216 0.71221271409843601 0.54324764171345996 0.41824337226437969 0.40620926118584449 20.526788921046165
+ 5.2500000000000000 5.4999999999999991 15.709964998381606 11.595121751264269 5.1523620519638698 3.8055493214337113 0.70507129687973225 0.52488624253096727 0.37925356374804076 0.36422294395614968 20.061028027043861
+ 5.2500000000000000 6.0000000000000000 17.238927387422976 11.944095338097336 5.6828657668915108 3.9361541347173254 0.77758530338402609 0.54379999779405064 0.34352034568692930 0.32299880669237580 21.610948628023991
+ 5.2500000000000000 6.4999999999999991 18.148888721550584 12.128493903390442 6.0196527086429779 4.0120675257005400 0.82430789247427161 0.55581040616973820 0.31716030863874634 0.28974982475228783 22.535380307542056
+ 5.2500000000000000 7.0000000000000000 19.200560312927117 12.370388346606406 6.3894714311356173 4.1088003030437497 0.87496740154397434 0.56956903710546969 0.30042051958966953 0.26383449929980574 23.614477172149396
+ 5.2500000000000000 7.4999999999999991 20.224781263872973 12.704205402405996 6.7632372786786679 4.2644662551181813 0.92518951749191991 0.59043424764398222 0.29488785643872933 0.24572281801210075 24.740340185381612
+ 5.2500000000000000 8.0000000000000000 21.191434318958628 12.998066466386575 7.1214222589347322 4.3904001089528988 0.97326265174296966 0.60753065623167790 0.29777572759061466 0.23524971162675323 25.799678952550597
+ 5.2500000000000000 8.4999999999999982 22.024420159928489 13.247481669094785 7.4303830225291181 4.4985961348879879 1.0145404830957514 0.62158200991919721 0.30503836653126909 0.23210615192017361 26.716176676663803
+ 5.2500000000000000 9.0000000000000000 22.678356354512204 13.444353177065155 7.6760635419154584 4.5799395948523687 1.0473232327182485 0.63245742623642776 0.31173506246137711 0.23391624906004460 27.439207610142855
+ 5.2500000000000000 9.5000000000000000 23.059442078825580 13.567195308010353 7.8310632396384650 4.6355284328586750 1.0679800806157809 0.64010383885329980 0.31569491983768544 0.23780604634721342 27.876331421301519
+ 5.2500000000000000 9.9999999999999982 23.095709848520666 13.598656004494002 7.8700179042419007 4.6627887545019950 1.0738804861561246 0.64407266322068124 0.31423230980048855 0.23957270368832326 27.950923741114455
+ 5.2500000000000000 10.500000000000000 22.834294539179012 13.551820963732075 7.8051351797173991 4.6656776614478304 1.0665955742019921 0.64494192450875043 0.30966966428051867 0.23784454800174248 27.710558337482745
+ 5.2500000000000000 10.999999999999998 22.264014955504742 13.420677965273075 7.6444338022710543 4.6427993015342777 1.0476736660563577 0.64235807788004173 0.30798708265999986 0.23517939165305385 27.156411249774919
+ 5.2500000000000000 11.500000000000000 21.278754255058431 13.177772106869352 7.3493437697430570 4.5862548201042550 1.0125336525401007 0.63640473588400037 0.31501256984513198 0.23588949143925575 26.182536549556769
+ 5.2500000000000000 12.000000000000000 20.320017831359710 12.949920286073947 7.0645379635341277 4.5339164152979254 0.97931261385991397 0.63209952912866918 0.31900692517156332 0.23396540318012499 25.238550767177095
+ 5.2500000000000000 12.499999999999998 19.135697490468171 12.551048102004778 6.6958974506837174 4.4147438284865714 0.93355458879997599 0.61913992176882515 0.31428606222282002 0.22653079419556651 23.990111276935036
+ 5.2500000000000000 12.999999999999998 18.328021077011538 12.273636865484342 6.4404756982214844 4.3240612437338548 0.90056064308785011 0.60869090573301610 0.32304385038384809 0.22651833589382506 23.139036629418158
+ 5.2500000000000000 13.500000000000000 18.877589632318909 12.905159003170750 6.6453944440336077 4.5383147120726015 0.92970572495099990 0.63988413586574644 0.31660270950090269 0.21883954116142507 23.946927471293119
+ 5.2500000000000000 14.000000000000000 17.565613594155977 12.710215101833787 6.2016603366400638 4.4385110820562366 0.87375404032346138 0.63132433705074142 0.30235546090202181 0.20720394403830769 22.624673776340707
+ 5.2500000000000000 14.499999999999998 17.102490372286855 12.896151455021560 6.0252697969380398 4.4435840745878608 0.85265177589368324 0.63729382213671715 0.29464776523224812 0.20176339622376357 22.242970722890515
+ 5.2500000000000000 14.999999999999998 17.614183100613158 13.791641419361580 6.1541458052236235 4.6627373880550156 0.87154589885361933 0.67195889242630791 0.27679354550574492 0.19220608760469851 23.050626829279963
+ 5.2500000000000000 15.500000000000000 16.392170817148990 13.912292701260833 5.6264843524552512 4.5763872997518424 0.80563830023813576 0.66761585923357569 0.25927122676055930 0.18388235316424292 21.835769202205451
+ 5.2500000000000000 16.000000000000000 15.948147331123243 14.262291186883107 5.3654335073792332 4.5842870009431627 0.77352092144528672 0.67371174993697303 0.24124320569432267 0.17553519774420082 21.450838355597206
+ 5.2500000000000000 16.500000000000000 15.090184587665048 14.335871379511493 4.9405133323927179 4.4825078194238772 0.72048311100230755 0.66560867998125561 0.22504547677874090 0.16860474779519982 20.535015214129817
+ 5.2500000000000000 16.999999999999996 14.391285889308396 14.416689422828373 4.5737690563736146 4.3989949105940154 0.67448919490222947 0.65812462184496601 0.21099923633069287 0.16297439467638306 19.779290034591202
+ 5.2500000000000000 17.499999999999996 13.727900428792152 14.399111668178115 4.2422011458845486 4.3115787590422743 0.63383924012431747 0.64846290296291320 0.19908455038325734 0.15846362276878964 19.041222561106878
+ 5.2500000000000000 18.000000000000000 13.176544614015761 14.352307998922981 3.9721647476107091 4.2366530884178264 0.60037532620106560 0.63920520515183876 0.18886713646746292 0.15504341302894001 18.419704451370531
+ 5.2500000000000000 18.500000000000000 12.737762055862854 14.292284062229553 3.7687345651123190 4.1785981807905950 0.57416850935624830 0.63115501491729376 0.17995155646186539 0.15266496886709080 17.925311866797031
+ 5.2500000000000000 19.000000000000000 12.382492955800114 14.222671477644116 3.6241816256820893 4.1403680408177310 0.55234982523861409 0.62376234657374519 0.17238748043075242 0.15139236310799156 17.533672667482239
+ 5.2500000000000000 19.499999999999996 12.100450073071880 14.090290063798712 3.5290762313019348 4.1112690211817249 0.53440377430635799 0.61442851616288174 0.16789314947376907 0.15310345208846862 17.210912503179888
+ 5.2500000000000000 19.999999999999996 11.847417998283406 13.894580461696856 3.4669984845869650 4.0776344069979764 0.51932062058082840 0.60295117621941430 0.16986831913182712 0.16060834417100397 16.914328411417095
+ 5.2500000000000000 20.500000000000000 11.650077948014353 13.699958177847709 3.4329821655188542 4.0434391715053719 0.50921944572045086 0.59308609350759500 0.17624369866903491 0.17231915041042714 16.681949703038828
+ 5.2500000000000000 21.000000000000000 11.555757161178187 13.485934184137426 3.4288911110842499 4.0043580303283779 0.50507400208700326 0.58352026842600668 0.18426688091447410 0.18547171339250682 16.535754168937380
+ 5.2500000000000000 21.500000000000000 11.453272032526971 13.251487191305106 3.4236394558204570 3.9596799681842976 0.50121260120447675 0.57368822474915948 0.19342535353584053 0.19943844656444748 16.375797572326167
+ 5.2500000000000000 21.999999999999996 11.453296504844815 13.014090849238380 3.4438463190878688 3.9151153122596964 0.50178908264979194 0.56405923197370667 0.20747414365036837 0.21407130065218660 16.306716264863219
+ 5.2500000000000000 22.499999999999996 11.380374455969694 12.791681400859625 3.4493873170714746 3.8756497690213090 0.49919779698228833 0.55519829477086535 0.22452629555556286 0.23048170652764674 16.186660967445828
+ 5.2500000000000000 23.000000000000000 11.359010375313920 12.587302748369549 3.4717640303651329 3.8395391388689042 0.49908745104524932 0.54740520289770789 0.24549162654739040 0.25017117302005193 16.125041743233201
+ 5.2500000000000000 23.499999999999996 11.394929261861908 12.392772784398517 3.5118498044372122 3.8066863714531669 0.50142618154934482 0.54007964226259064 0.26432187857457184 0.27005980865274565 16.118217619871032
+ 5.2500000000000000 24.000000000000000 11.572305552785624 12.227751160300803 3.5878081193328715 3.7813780860383304 0.50964122260424749 0.53401296730886916 0.29038156863139702 0.29640493588439826 16.253273358746892
+ 5.5000000000000000 0.0000000000000000 8.3798566005428512 9.6332893599900871 2.5927445361919479 2.9831263967217159 0.37049151448954548 0.42080996371287976 0.29923929340851868 0.32435238169805358 12.215413997129485
+ 5.5000000000000000 0.50000000000000000 8.5038058100142120 9.5385438814230383 2.6476236609193702 2.9709974905766465 0.37625665415841930 0.41748300831362367 0.34336650700613591 0.36956464384118226 12.346231429450254
+ 5.5000000000000000 1.0000000000000000 8.6843556302534566 9.4575376390963903 2.7220552089781624 2.9633746392697087 0.38449062172872284 0.41492675306800625 0.39033864697745013 0.41623718819949945 12.538185478503062
+ 5.5000000000000000 1.5000000000000000 8.9523025032367336 9.4012235424915112 2.8238864375742860 2.9625191281626244 0.39652028461565714 0.41349229539221871 0.43918736411038467 0.46125031470701466 12.820759486609164
+ 5.5000000000000000 2.0000000000000000 9.2642298738265563 9.3734375604136630 2.9391817004158822 2.9699423149422222 0.41029888157082672 0.41308467490987344 0.47743590439108730 0.49499029113844462 13.144582520604299
+ 5.5000000000000000 2.4999999999999996 9.6065866596681317 9.3235038143436064 3.0677481592424956 2.9732975429742687 0.42568330436819979 0.41176971389201644 0.52358564125889606 0.53469852602462220 13.496825708769986
+ 5.5000000000000000 3.0000000000000000 9.9906416738222390 9.2945668560581183 3.2058677913166140 2.9829691815424759 0.44271332285519316 0.41158024070281801 0.56420570913675683 0.57055503680312425 13.888842769789381
+ 5.5000000000000000 3.5000000000000000 10.401709298917837 9.2355881700756637 3.3564234286573438 2.9843804320457124 0.46103990235754283 0.41013770758548013 0.57399735582860179 0.56805435540230276 14.261500212210601
+ 5.5000000000000000 4.0000000000000000 10.858228434331588 9.2357769404812089 3.5270544032219759 3.0045831233509603 0.48290749525207266 0.41239823862240998 0.55184422037711256 0.54025407686390936 14.677693828561331
+ 5.5000000000000000 4.5000000000000000 11.314005536186682 9.2315671480770920 3.6940412070912392 3.0239613354509256 0.50429466296128844 0.41461216030032338 0.51868205048826632 0.50220180270712633 15.078129786663471
+ 5.5000000000000000 4.9999999999999991 11.723872274771624 9.1731062501760778 3.8448479860438129 3.0266118334256840 0.52430330441363338 0.41506420157498009 0.47632685140736652 0.45644430950848786 15.403309142652700
+ 5.5000000000000000 5.4999999999999991 12.325862501652065 9.2134199826857088 4.0625650813981258 3.0560060283152741 0.55337963512622668 0.41921671684637152 0.42514132044957686 0.40453434673489491 15.942358050611414
+ 5.5000000000000000 6.0000000000000000 13.321434782167895 9.3950367614273311 4.4094027866417038 3.1331224182257111 0.59991856406935828 0.42955381272791426 0.37786656465186591 0.35617401410126509 16.910377467181288
+ 5.5000000000000000 6.4999999999999991 14.256677536586061 9.5685558661452053 4.7537186408015524 3.2259442889159087 0.64736588553623609 0.44330682007075395 0.33179567425018530 0.30808831740333764 17.841670255627761
+ 5.5000000000000000 7.0000000000000000 15.239651251770939 9.7898579801517887 5.1003266052383722 3.3248544240896321 0.69537237358549397 0.45783386453312414 0.29399036785858945 0.26433004297895046 18.831852502886765
+ 5.5000000000000000 7.4999999999999991 16.212144218280557 9.9999585170044156 5.4442645658508599 3.4025584338704826 0.74305574165716970 0.47020308757849777 0.26500672128262753 0.22908278586042091 19.810248439485413
+ 5.5000000000000000 8.0000000000000000 17.064300341768913 10.236461957207375 5.7581609623615693 3.4994083124342708 0.78585437928290125 0.48362729883600991 0.24636283382306426 0.20038721197111009 20.709747271640552
+ 5.5000000000000000 8.4999999999999982 17.791319673955133 10.368289699750690 6.0356441818609108 3.5610167964891257 0.82336272313104575 0.49180373452675030 0.23960629241896209 0.18171249530742400 21.460896156268696
+ 5.5000000000000000 9.0000000000000000 18.404372415420251 10.447235790565212 6.2723102195523390 3.6072013422166558 0.85509885533964103 0.49830752161647807 0.24528912425048344 0.17338271556677137 22.093422866363515
+ 5.5000000000000000 9.5000000000000000 18.788496352571439 10.425832624124256 6.4302715995624693 3.6159540910599848 0.87559475691998634 0.49976794281197273 0.25474976248784409 0.17110835103099070 22.470295984036891
+ 5.5000000000000000 9.9999999999999982 18.900711010098398 10.318185328322901 6.4999531005335580 3.5994636615450224 0.88444670496476074 0.49825100904292163 0.26084612066191293 0.17144320963893572 22.559752360355677
+ 5.5000000000000000 10.500000000000000 18.769345917100644 10.139620711072475 6.4903565110038262 3.5596497538610987 0.88385420069239640 0.49407514919086865 0.26241948972781237 0.17365912512638992 22.392985658766726
+ 5.5000000000000000 10.999999999999998 18.362298213244760 9.8913535704940436 6.3896685488410423 3.4888276736832613 0.87276465170900819 0.48508653645256689 0.26314658581688810 0.17777691431473436 21.939600231389335
+ 5.5000000000000000 11.500000000000000 17.533753576947333 9.6298323775382517 6.1477857169701471 3.4067277793251769 0.84450704502472462 0.47584398233207265 0.26719773813597802 0.18325510950491775 21.094049134285591
+ 5.5000000000000000 12.000000000000000 16.355434714796043 9.3410986917832108 5.7676729947716252 3.2979948640209531 0.79839297596925130 0.46506055811334618 0.27730899767229783 0.18860928332366136 19.896794254553203
+ 5.5000000000000000 12.499999999999998 15.359356551186760 9.1412592896849798 5.4292816084464421 3.2097898351380842 0.75852342793140348 0.45854872709144012 0.29039319592476498 0.19069683691103498 18.891801418601425
+ 5.5000000000000000 12.999999999999998 14.546455658035772 9.1600362897935543 5.1363106683602338 3.1665676263610258 0.72494138991036672 0.46094137495795690 0.29103699252598497 0.18872666676489244 18.124587125180714
+ 5.5000000000000000 13.500000000000000 13.659012974975273 9.3453173044544471 4.7803329108516621 3.1455515938834862 0.68416314332994410 0.46829486789169938 0.29126844243718980 0.18579116393809297 17.324836624451951
+ 5.5000000000000000 14.000000000000000 13.016934493174348 9.7716895898488101 4.4780280217896360 3.1580881861019190 0.65094385144523859 0.48021407751787459 0.28581706620687197 0.18104247001265100 16.818160396237815
+ 5.5000000000000000 14.499999999999998 12.574254029897464 10.296327672817094 4.2145654043816281 3.1898436377297128 0.62409752813548036 0.49369365466872528 0.27029106567193434 0.17394479090980167 16.506741937432782
+ 5.5000000000000000 14.999999999999998 12.002005511742242 10.576758287569087 3.9088099463458379 3.1836721990067915 0.58920925043860628 0.49885912988936298 0.25732395616635739 0.16908478631720605 15.981023910722843
+ 5.5000000000000000 15.500000000000000 11.544776412895807 10.828807681326051 3.6191231461016913 3.1713746635709343 0.55473957531469820 0.50231096803775110 0.24342877152709605 0.16362911460234653 15.530086079738554
+ 5.5000000000000000 16.000000000000000 11.172764927308656 11.011062207454515 3.3766315848421202 3.1606629743376917 0.52522536096697248 0.50396052239403721 0.23118468012463025 0.15873974372967045 15.148679518133557
+ 5.5000000000000000 16.500000000000000 10.837261760055577 11.133979596426670 3.1662780965803554 3.1509466858348087 0.49868371486856622 0.50297096785780504 0.21799120120984466 0.15372847636977843 14.794018423972581
+ 5.5000000000000000 16.999999999999996 10.560757425229246 11.227403761673003 3.0054004693039884 3.1483672916590506 0.47766512737654887 0.50036078587820310 0.20374188009944361 0.14916507301082554 14.506808905413179
+ 5.5000000000000000 17.499999999999996 10.305983749628583 11.277361321990186 2.8761401190329314 3.1513078083062642 0.45974842065731047 0.49749467027691013 0.18942746534420851 0.14543323641533407 14.244732182104922
+ 5.5000000000000000 18.000000000000000 10.047471205619001 11.252862153651751 2.7831335007911089 3.1538811764199988 0.44379444471745083 0.49331218400637611 0.17662906555847607 0.14250410949245446 13.981538685647550
+ 5.5000000000000000 18.500000000000000 9.7615316062300366 11.184425328030041 2.7138027805528431 3.1566637632700889 0.42787857461737272 0.48763336770981724 0.16559886668498641 0.14015244179048034 13.702166185656967
+ 5.5000000000000000 19.000000000000000 9.4998415921158674 11.068209560786656 2.6671633227915188 3.1507085894800757 0.41328111644217008 0.47983694311539293 0.15784374731517498 0.14016953355376932 13.438394728088451
+ 5.5000000000000000 19.499999999999996 9.2403003469109350 10.908438085407276 2.6320000087497895 3.1356601511684103 0.40083489421963187 0.47179695072341499 0.15581317657342419 0.14562865164884181 13.173140230618502
+ 5.5000000000000000 19.999999999999996 9.0350466816444985 10.731275744268233 2.6107052009703038 3.1178650940881596 0.39267076645262444 0.46415420008841446 0.15716771646333860 0.15469976042864622 12.953058509978328
+ 5.5000000000000000 20.500000000000000 8.9010914692308098 10.553745399254570 2.6028556048567069 3.0962204903567070 0.38808680117634092 0.45693721618614408 0.15921960858913595 0.16399618830909665 12.791135420604167
+ 5.5000000000000000 21.000000000000000 8.8124631520346881 10.379747320333779 2.6035747537784477 3.0745802843577494 0.38540093819897941 0.45002447292721381 0.16355453624097840 0.17361554822287356 12.669318128782599
+ 5.5000000000000000 21.500000000000000 8.6618329375115373 10.235148120764443 2.5824337437841951 3.0570894031315916 0.37989042935732642 0.44442903969506464 0.17221454893555449 0.18522342869526057 12.504877770487861
+ 5.5000000000000000 21.999999999999996 8.5118507832023074 10.096317606022923 2.5593757524040055 3.0388613831589004 0.37422764229724215 0.43905256075895371 0.18643481318445457 0.20129028778794619 12.346433273301582
+ 5.5000000000000000 22.499999999999996 8.3775149067829116 9.9598971835629335 2.5389837916326456 3.0203479578931742 0.36908796737216132 0.43369123634295387 0.20575813973677060 0.22284541296213620 12.206490467270060
+ 5.5000000000000000 23.000000000000000 8.2994440125094773 9.8364512724561823 2.5340388726534742 3.0066580899604256 0.36617217289162574 0.42865269675749929 0.23199657063700488 0.25211647464516940 12.129060597067481
+ 5.5000000000000000 23.499999999999996 8.2992312186457866 9.7298123790955238 2.5508814104045316 2.9943745094960237 0.36655689039074529 0.42440467516795560 0.26064366115514642 0.28351209446651338 12.128910006472811
+ 5.5000000000000000 24.000000000000000 8.3783886040152975 9.6334179246422735 2.5922943145357569 2.9831669160235239 0.37042644072250153 0.42081539291333586 0.29918469430882916 0.32435589423852240 12.214114744994143
+ 5.7500000000000000 0.0000000000000000 5.6029463422697630 7.0211432393420141 1.7464569595431358 2.1729175666735294 0.25041927113802737 0.30977794375202167 0.31312592618428753 0.36091634987310345 8.5635506993036969
+ 5.7500000000000000 0.50000000000000000 5.6145722070598723 6.9706469431903884 1.7580709384900601 2.1694068176084293 0.25109603886118914 0.30764306060702928 0.37415308192977825 0.42581457776557918 8.6230986439510744
+ 5.7500000000000000 1.0000000000000000 5.7362619493093883 6.9528929711933438 1.8062672985047239 2.1757236314121347 0.25663140674360008 0.30699043199370363 0.44437753511034578 0.49967629331666191 8.8074532357506534
+ 5.7500000000000000 1.5000000000000000 5.9693771229763861 6.9602206058650609 1.8886684157274005 2.1888595096518060 0.26705170738606443 0.30767300894385918 0.52057485981948992 0.57829428864367727 9.1087972083076938
+ 5.7500000000000000 2.0000000000000000 6.3290546216003047 6.9883000416259184 2.0118902742649967 2.2087285583833398 0.28302182818764132 0.30954467401823421 0.59605324810050597 0.65500102565779972 9.5338714146640626
+ 5.7500000000000000 2.4999999999999996 6.7864598354859575 7.0246354512342819 2.1670499038413547 2.2318306190842536 0.30318104084863351 0.31189594911471202 0.69060803311544250 0.74696945102812540 10.069976365681383
+ 5.7500000000000000 3.0000000000000000 7.2951938123162297 7.0560417313290911 2.3450974616393712 2.2523047864637169 0.32581844848193875 0.31412143160558198 0.78638311698389551 0.84800250845171654 10.658485378897659
+ 5.7500000000000000 3.5000000000000000 7.8557100506086899 7.0770067572310040 2.5469599749602949 2.2748499662485768 0.35102388417826724 0.31610761378716362 0.83208483883253170 0.88654797308718825 11.242023269171167
+ 5.7500000000000000 4.0000000000000000 8.4761953631363181 7.1273961569181346 2.7743159181978960 2.3118135079621216 0.37928814932171673 0.31969194420615471 0.80583018494201364 0.85664412837537973 11.828934989552558
+ 5.7500000000000000 4.5000000000000000 9.1735149487341872 7.1923323738802596 3.0221826606495132 2.3534660227435826 0.41139323449280729 0.32409320235048478 0.72147749177478049 0.75254040655868248 12.426522892278527
+ 5.7500000000000000 4.9999999999999991 9.8473097335738302 7.2337910753473098 3.2601268404926520 2.3762371542214238 0.44220747653627479 0.32652247647915406 0.59621181058619510 0.60034223823873178 12.942868222221508
+ 5.7500000000000000 5.4999999999999991 10.490909843457308 7.3111149669551283 3.4928241580297295 2.4127988691700333 0.47271117451837202 0.33200303092318145 0.48779918197446731 0.47093958485550869 13.471781722621200
+ 5.7500000000000000 6.0000000000000000 11.175959201239476 7.3930182385840011 3.7439492921223816 2.4665250397267298 0.50588785923232049 0.33942409611963525 0.41212330968673089 0.38889022491031128 14.087898974634163
+ 5.7500000000000000 6.4999999999999991 11.885918168166413 7.4839323595524858 4.0098470144891847 2.5218334140220011 0.54179706291660734 0.34740920179893137 0.36058650318584012 0.33226450557613146 14.760578992821880
+ 5.7500000000000000 7.0000000000000000 12.513803080926264 7.4860995209380734 4.2397730510967166 2.5434788120620877 0.57364984982412870 0.35033394472311857 0.31837726062348620 0.28446168195616750 15.318526814873547
+ 5.7500000000000000 7.4999999999999991 13.096383025468379 7.5305419574935906 4.4608553656861973 2.5872441572569929 0.60474821072948670 0.35788078438507803 0.27437486196370620 0.23968033491531462 15.862690053915507
+ 5.7500000000000000 8.0000000000000000 13.654430764886950 7.6107279232295939 4.6739874414561084 2.6261995847921322 0.63473790310253908 0.36451931804618692 0.23544233713122636 0.20095339739026732 16.399865705537277
+ 5.7500000000000000 8.4999999999999982 14.035032598020859 7.5891993245640190 4.8299718644733636 2.6261819328353040 0.65665669740858224 0.36568267661600545 0.20483001019938993 0.16914347936089871 16.734396584526870
+ 5.7500000000000000 9.0000000000000000 14.249307291445692 7.4692349007915757 4.9352552495452473 2.6060574290515985 0.67163561650419978 0.36356651371837184 0.18852092990825278 0.14644725195963787 16.891581423442652
+ 5.7500000000000000 9.5000000000000000 14.177700860123645 7.2452186857042307 4.9441465779074214 2.5537206653066975 0.67266825726501833 0.35744210131674070 0.18399736068815245 0.13259678602019676 16.748668116772116
+ 5.7500000000000000 9.9999999999999982 13.910559966680083 6.9449009297053603 4.8823040236701072 2.4688026333000677 0.66429099125232383 0.34751667490433247 0.18664637597882755 0.12536460016031253 16.391395851077586
+ 5.7500000000000000 10.500000000000000 13.469663645925706 6.6618954185841108 4.7428880347005986 2.3637969945403778 0.64860563732383725 0.33646085859933167 0.19186792425290272 0.12218078721317462 15.863461514447694
+ 5.7500000000000000 10.999999999999998 12.796943125791207 6.4447821462462231 4.5136485543878813 2.2575911398589708 0.62283581293172963 0.32552877479549797 0.19525570409354456 0.12037592258394345 15.135214792631119
+ 5.7500000000000000 11.500000000000000 11.997442174165563 6.3381958351853704 4.2282398178434315 2.1817660571297015 0.59081358006761309 0.31927719611990985 0.20057296185360612 0.12206561998115900 14.331813925425521
+ 5.7500000000000000 12.000000000000000 11.288274283632903 6.3650927281908629 3.9387660948516503 2.1294018986565808 0.56151003004033129 0.31947186336155192 0.21363968498896321 0.12900133664414165 13.649116004626944
+ 5.7500000000000000 12.499999999999998 10.697317969033342 6.5243515891852484 3.6776444746098473 2.1152625900532462 0.53719120062110004 0.32672679514432224 0.23222625529848701 0.13704962335174597 13.130716798953371
+ 5.7500000000000000 12.999999999999998 10.239890040909676 6.7991937380018692 3.4480125197516727 2.1291039558927962 0.51324547050002778 0.33646527106949792 0.25016583070828147 0.14176174445421780 12.769717477719231
+ 5.7500000000000000 13.500000000000000 9.9862904507841765 7.1945918990967908 3.2606307291442804 2.1698431082146676 0.49465804290124865 0.34959127945383567 0.25805037726403313 0.14346095706982970 12.618915481340867
+ 5.7500000000000000 14.000000000000000 9.8857504220855876 7.6573086713021112 3.1284069836806925 2.2327922533838356 0.48243076862889028 0.36414733777118419 0.25673699092710800 0.14340557357229131 12.634768055557993
+ 5.7500000000000000 14.499999999999998 9.8984665389326167 8.0938128443355168 3.0320422493914267 2.2967972885911805 0.47593005128928184 0.37712116166484594 0.24770402234949226 0.14245891315024234 12.739491977222475
+ 5.7500000000000000 14.999999999999998 9.8316379894671595 8.4220236505824513 2.9036946874865253 2.3400939306420061 0.46313459129050438 0.38616499235933960 0.23420411925252982 0.14061926875659908 12.718081539111280
+ 5.7500000000000000 15.500000000000000 9.6949124992700959 8.6675528549756073 2.7660240756901091 2.3728321018144611 0.44535374396010075 0.39285489346630098 0.22019575186897844 0.13771253109047996 12.607974840975137
+ 5.7500000000000000 16.000000000000000 9.6285215225115053 8.8614381202966594 2.6744646889998185 2.4087316936307182 0.43401691157558114 0.39831342185719087 0.20737173404999495 0.13431145453236359 12.563848134863576
+ 5.7500000000000000 16.500000000000000 9.5297173406186939 9.0351569244545011 2.5959598486023738 2.4545710316550395 0.42266802917203727 0.40249891356077072 0.19334202734688960 0.13062212904091400 12.502074496730401
+ 5.7500000000000000 16.999999999999996 9.3753731710298052 9.1663882076474703 2.5273341965568052 2.4893083236248903 0.41179364519436584 0.40341191913903968 0.17844882172254065 0.12724586661748313 12.390751328678638
+ 5.7500000000000000 17.499999999999996 8.9684976947922497 9.1546391510651457 2.4303061763671665 2.5026982323644682 0.39183414550092149 0.40036689909654694 0.16385216799822075 0.12353775998478267 12.030074137276021
+ 5.7500000000000000 18.000000000000000 8.5515703111000931 9.0329871638573707 2.3564064856765206 2.5029868540065645 0.37309736575769942 0.39467946981825358 0.15074747196440000 0.11999944797467869 11.638098734884764
+ 5.7500000000000000 18.500000000000000 8.2259089047135063 8.8721472023960164 2.3078244790743545 2.5019494351724374 0.35801349060684318 0.38666075270409034 0.14041605219727432 0.11929005870071693 11.314791100719072
+ 5.7500000000000000 19.000000000000000 7.8939785467597936 8.6564095425684400 2.2616761601797917 2.4807773642761624 0.34389002527837881 0.37715298955011894 0.13536253536376461 0.12276705970087644 10.968973830419685
+ 5.7500000000000000 19.499999999999996 7.6160628304122033 8.3579202524114766 2.2224976130398906 2.4363503015372743 0.33321819089873650 0.36517429885252622 0.13399460816341646 0.12966779747647378 10.633553045102081
+ 5.7500000000000000 19.999999999999996 7.3644030704870067 8.1134143472942846 2.1812875037053594 2.3953649345027506 0.32361109371376501 0.35557608198358798 0.13260559142367170 0.13686663929365134 10.335012173911291
+ 5.7500000000000000 20.500000000000000 7.1062942205084489 7.9010492701018329 2.1298762406561740 2.3545562945418994 0.31349391281945010 0.34711261604162680 0.13327749518697915 0.14499331084060857 10.037865076622689
+ 5.7500000000000000 21.000000000000000 6.7914632489023266 7.7222008580478478 2.0532213754757302 2.3174377530137127 0.30055182607572734 0.33980036918235312 0.14027986058377684 0.15665579320500661 9.7023757985080135
+ 5.7500000000000000 21.500000000000000 6.4437336710549786 7.5459608866267383 1.9653992527692903 2.2786144383251679 0.28600725363263402 0.33236854254568954 0.15112366838673788 0.17270713350168426 9.3407262308955179
+ 5.7500000000000000 21.999999999999996 6.1625150961570681 7.3955242813887843 1.8901393583168360 2.2462030399953927 0.27408753610390768 0.32597698853370249 0.16789109364294233 0.19604998507210447 9.0510068211438295
+ 5.7500000000000000 22.499999999999996 5.9415912465402183 7.2722787645444287 1.8304558779026026 2.2197924551554702 0.26468144980516584 0.32066496215364965 0.19148807544654931 0.22467617609209087 8.8312818857782354
+ 5.7500000000000000 23.000000000000000 5.7646589065805953 7.1767366779889032 1.7822331833950518 2.1994132739702064 0.25711503404183089 0.31649372290557820 0.22551509239747083 0.26240596202849925 8.6713646899076959
+ 5.7500000000000000 23.499999999999996 5.6471167277251286 7.0928371420279728 1.7530890929421705 2.1827210111088755 0.25219787143182981 0.31284246534275795 0.26145981349619757 0.30326873123675119 8.5731321203023363
+ 5.7500000000000000 24.000000000000000 5.6020281149466795 7.0212444128908018 1.7461717405866211 2.1729487576050794 0.25037799291054547 0.30978232033500153 0.31307152573039865 0.36092092863266656 8.5627317226040134
+ 6.0000000000000000 0.0000000000000000 4.0915688068110807 5.0575428958967281 1.2905447347555845 1.5824717803750690 0.18469875407904260 0.22578294443673821 0.29961474516698205 0.34859793229067310 6.3157498782081971
+ 6.0000000000000000 0.50000000000000000 4.0388729973237885 5.0180764241994105 1.2755626079851017 1.5687221133131446 0.18247857335455106 0.22391010695553940 0.36492253270816183 0.41845885477455752 6.3176136406619534
+ 6.0000000000000000 1.0000000000000000 4.0227865058877628 4.9827846807576543 1.2733600506753049 1.5591580976683890 0.18190545555979493 0.22229258331575671 0.44759760842854368 0.50248145994388593 6.3726720209294987
+ 6.0000000000000000 1.5000000000000000 4.0630229878247386 4.9921513677571276 1.2905764191911038 1.5656714379153818 0.18377380477505037 0.22264127525955482 0.53780645659921789 0.59510779626517352 6.5086437379924860
+ 6.0000000000000000 2.0000000000000000 4.1991792726493777 5.0569409965796375 1.3410132439166236 1.5915079655322111 0.18994319614927904 0.22544966543067887 0.63483637250694125 0.69789752181998210 6.7672467732689832
+ 6.0000000000000000 2.4999999999999996 4.4394758571747053 5.1583641192333056 1.4273273164505809 1.6316231146347779 0.20082312422927268 0.22998907419710996 0.77298933654448831 0.84383678107615778 7.1816814526464823
+ 6.0000000000000000 3.0000000000000000 4.7452445376638037 5.2593531944555743 1.5338477380404738 1.6712739495307036 0.21440426772335425 0.23439829112774971 0.94975000374366569 1.0420796461024844 7.6978660585197005
+ 6.0000000000000000 3.5000000000000000 5.1485460071421505 5.3606104270447883 1.6743811831860116 1.7089955361396578 0.23236261416240681 0.23878766948502095 1.0693226992399578 1.1545883853830430 8.2374023418378535
+ 6.0000000000000000 4.0000000000000000 5.6423521158417396 5.4468234171826824 1.8477638305393771 1.7421368319083537 0.25457564124881388 0.24303080389871379 1.1164531573687171 1.1858599670421981 8.7800468366764139
+ 6.0000000000000000 4.5000000000000000 6.2126137555541092 5.5509793864854675 2.0493663390691297 1.7855174429435909 0.28055255467322193 0.24859750348637236 1.0976084537427400 1.1500757761554306 9.3384841050497531
+ 6.0000000000000000 4.9999999999999991 6.8418456615433465 5.6362730376819732 2.2716312042399411 1.8161092354774511 0.30954614018315313 0.25294072200629580 0.98481293808600712 1.0021799542613203 9.8410582791773109
+ 6.0000000000000000 5.4999999999999991 7.3692664278527218 5.6641511761496091 2.4738587664392173 1.8432649331784574 0.33476310302355083 0.25505846568796586 0.76079391862908041 0.75305908268471788 10.130966029863295
+ 6.0000000000000000 6.0000000000000000 7.8740776646501409 5.6312513424886950 2.6645655619377586 1.8609249796115110 0.35945663496661617 0.25726140154689559 0.52212942747442859 0.51249049466647867 10.367462265457156
+ 6.0000000000000000 6.4999999999999991 8.4331112945922300 5.5930298895084825 2.8709554704977545 1.8729132885015460 0.38780332593451228 0.26005130747962241 0.39979488531782487 0.37863458814995571 10.762653008774752
+ 6.0000000000000000 7.0000000000000000 8.8857179797979082 5.4643442937290079 3.0401042785958130 1.8451547919634281 0.41090365238116255 0.25671613049936975 0.34308218341138813 0.31243599375688186 11.079422466107077
+ 6.0000000000000000 7.4999999999999991 9.2947008578719785 5.3346366545672081 3.1972122152765330 1.8243544548388839 0.43298099025052122 0.25521041113829179 0.29744186828757990 0.25978323789178825 11.372885540603130
+ 6.0000000000000000 8.0000000000000000 9.7418974393505771 5.3712858206552054 3.3674310636233189 1.8485315421555411 0.45744194143912981 0.25980236463743872 0.25637419822289609 0.21417122596988644 11.780026746229973
+ 6.0000000000000000 8.4999999999999982 10.002784301356446 5.3548041562389619 3.4771503951217300 1.8446472409018335 0.47363583527186803 0.26108240988618336 0.22023259095262504 0.17880726903100616 11.995649107154442
+ 6.0000000000000000 9.0000000000000000 10.122503714153444 5.2438088966665104 3.5404150643520018 1.8212826643837992 0.48337678623610192 0.25903632316078895 0.18967298785245934 0.14939848921768983 12.048487826205600
+ 6.0000000000000000 9.5000000000000000 10.035459001555791 5.0413233888458731 3.5263709076807985 1.7693720381239668 0.48230833696918829 0.25293242452777326 0.16789829377998297 0.12681124305179212 11.871504058173644
+ 6.0000000000000000 9.9999999999999982 9.8855290658545414 4.7932038234355785 3.4747242583827402 1.6875362023630420 0.47721210110739565 0.24383555594222653 0.15644191143726405 0.11144133307719487 11.607943862793975
+ 6.0000000000000000 10.500000000000000 9.6441066531761326 4.5682053050021345 3.3776887129105400 1.5895506914337103 0.46906026266102785 0.23450213795189009 0.15279905120610243 0.10136949243782353 11.260312328911052
+ 6.0000000000000000 10.999999999999998 9.2971690555537947 4.5125512633921838 3.2211146912015045 1.5248041926405742 0.45555805887494449 0.22996107723347081 0.15213582351592386 9.4889213525690130E-002 10.871387001694750
+ 6.0000000000000000 11.500000000000000 8.9521262647834146 4.6509688241636171 3.0418048694106625 1.5029606835371239 0.44168452792133511 0.23257493094648740 0.15453861679131034 9.1711602328368794E-002 10.552841532929682
+ 6.0000000000000000 12.000000000000000 8.6403049834996573 4.9346654767577105 2.8771717580699785 1.5171260919902672 0.42960118140276243 0.24282343839176240 0.16305921562642925 9.1306918604262696E-002 10.335398734313886
+ 6.0000000000000000 12.499999999999998 8.4178528341325638 5.3073307574113553 2.7330292632903448 1.5777786317817379 0.41947624728831556 0.25781622792049841 0.17874875773452736 9.2969618749879676E-002 10.244703146918324
+ 6.0000000000000000 12.999999999999998 8.3402019169155643 5.6841773759353593 2.6233605832252556 1.6457085427586635 0.41131608029211875 0.27243117083058921 0.19686237667059492 9.5122614639394698E-002 10.280307206123691
+ 6.0000000000000000 13.500000000000000 8.5030181245167498 6.0690704749512436 2.5725822812410022 1.7168384392054850 0.40967653137606858 0.28680470649673850 0.20865765589052018 9.8313234017402204E-002 10.519632013573183
+ 6.0000000000000000 14.000000000000000 8.8072897130596228 6.4423591929110424 2.5727939500278101 1.8001561762873106 0.41326368005418546 0.29998671161380125 0.21081509133072737 0.10159819291031381 10.884141714222384
+ 6.0000000000000000 14.499999999999998 9.1014682689755588 6.7596183689806608 2.5940041899089086 1.8756519894205219 0.42042072904476829 0.31089945833949334 0.20361531841493982 0.10347862548507059 11.229555151638035
+ 6.0000000000000000 14.999999999999998 9.1588110559207454 6.9722165705154229 2.5620264527181575 1.9240652104004821 0.41772666098424260 0.31794473904429388 0.19315769667897154 0.10427384764970270 11.327314700071380
+ 6.0000000000000000 15.500000000000000 9.0187711284245324 7.0934954201258913 2.4757239250842931 1.9499377440012020 0.40352713764022552 0.32052457964695974 0.18289914752019221 0.10377571749857806 11.209858712870373
+ 6.0000000000000000 16.000000000000000 8.8679315721253413 7.1446126867334527 2.4182913461844127 1.9736640014178932 0.39229725882338945 0.32088098796694808 0.17336674055177884 0.10235708096572312 11.081762864151287
+ 6.0000000000000000 16.500000000000000 8.6741788575852681 7.1859496137304451 2.3652153051875997 2.0118922690241035 0.38028902454005581 0.32118335938929699 0.16167347007855135 0.10094684381407047 10.927561800246956
+ 6.0000000000000000 16.999999999999996 8.3968631469367114 7.2360630706767557 2.3218285274031416 2.0519790383450953 0.36824178322323153 0.32101289286868256 0.14775038640868404 0.10019232600092307 10.726205005278329
+ 6.0000000000000000 17.499999999999996 7.8737534252660719 7.1520238481791356 2.2350854758257337 2.0533545883733582 0.34617513837682590 0.31615117715393853 0.13406526800364518 9.8815856852782033E-002 10.266168028501255
+ 6.0000000000000000 18.000000000000000 7.3757649120256605 6.8347188238996548 2.1599157159352234 2.0133346376696197 0.32526799720663202 0.30388963115406586 0.12284167468842383 9.7897972172145464E-002 9.7391405548691203
+ 6.0000000000000000 18.500000000000000 6.9835179101698071 6.4628192072091935 2.0913621233094206 1.9552161980466776 0.30817534493923410 0.28752720594036374 0.11701708790095461 0.10286135909189849 9.2695229676423221
+ 6.0000000000000000 19.000000000000000 6.5350898664380077 6.2188880466043841 1.9902006108930739 1.9065944730752216 0.28944767613624833 0.27681258616085619 0.11392613323949127 0.10808148186996507 8.7892350537080226
+ 6.0000000000000000 19.499999999999996 6.1056860693081383 5.9795654857069689 1.8807915570696931 1.8484981936560225 0.27150957352948557 0.26675605775732947 0.11074686427245986 0.11181596688590978 8.3147012774552618
+ 6.0000000000000000 19.999999999999996 5.7223794110868313 5.7731918875117119 1.7763210104122455 1.7941208878030619 0.25541066449916588 0.25788400859152810 0.10967759286539511 0.11967484151716566 7.8908163277169141
+ 6.0000000000000000 20.500000000000000 5.3542825296993737 5.5966158080462893 1.6705103747349832 1.7468822402514803 0.23959715881652618 0.25032375776741661 0.11268372739222816 0.12930315197459258 7.4924241797753330
+ 6.0000000000000000 21.000000000000000 5.0262700180042055 5.4725936032064277 1.5758286702850248 1.7134561809798592 0.22549212099689583 0.24500175316294395 0.11979889908435264 0.14045067861028762 7.1554272109001573
+ 6.0000000000000000 21.500000000000000 4.7651962234531942 5.3704053428514067 1.4973007481276914 1.6831271514143893 0.21405753358146842 0.24038626624691817 0.13083419672114169 0.15577470176923405 6.8881569553496469
+ 6.0000000000000000 21.999999999999996 4.5640821037450356 5.2840623390018449 1.4360512249983397 1.6566911774057513 0.20530059357741806 0.23645571041669625 0.14888375447834115 0.17826379423799016 6.6880361248868514
+ 6.0000000000000000 22.499999999999996 4.3970228228364681 5.2091382381783715 1.3850994044010874 1.6326000220099590 0.19804140466768808 0.23298557207343648 0.17226073509319900 0.20675044429606843 6.5287743368515736
+ 6.0000000000000000 23.000000000000000 4.2705877123891662 5.1408002268557098 1.3462818856138683 1.6112138627775234 0.19256261459290214 0.22985190518055409 0.20602316267863152 0.24512391606551526 6.4193002204761456
+ 6.0000000000000000 23.499999999999996 4.1702566370608238 5.0910610643863201 1.3148551238845854 1.5943609585431688 0.18815829940447673 0.22745503282301185 0.24441633605315938 0.28719620900197596 6.3451486858535224
+ 6.0000000000000000 24.000000000000000 4.0911113769451024 5.0576216036664015 1.2904001834129388 1.5824963884336218 0.18467794214458680 0.22578643955188465 0.29957931732833332 0.34860331816581003 6.3153484631598795
+ 6.2500000000000000 0.0000000000000000 3.3242646082481517 3.7385934905601714 1.0749813259885328 1.2023732308163122 0.15141118031148404 0.16941875115149241 0.26877845885835216 0.30848466881529457 5.0192470960521041
+ 6.2500000000000000 0.50000000000000000 3.2680206747246414 3.7010213901045326 1.0569913000447593 1.1899650816834006 0.14895553202937262 0.16762789543787329 0.33762044058788970 0.37444011850053338 5.0187434601665553
+ 6.2500000000000000 1.0000000000000000 3.2043070314319255 3.6840891896900532 1.0361481917491746 1.1835590388355648 0.14615166071807725 0.16671363153371657 0.43648090702429809 0.45616224368065933 5.0455665618623140
+ 6.2500000000000000 1.5000000000000000 3.1344529403197914 3.7054756723830269 1.0132107459036428 1.1889471638347950 0.14303982685669547 0.16745936437982925 0.53467823425425542 0.54703751844782234 5.0865610712380818
+ 6.2500000000000000 2.0000000000000000 3.1118673223786062 3.7590264076946953 1.0064814973121776 1.2068747874791284 0.14205285893362879 0.16960572264582463 0.62888540425532491 0.66216352795829336 5.1920815371791385
+ 6.2500000000000000 2.4999999999999996 3.2184244692904462 3.8531672321090427 1.0425727931548368 1.2386290900100623 0.14690811205360785 0.17353251216455642 0.80345454029342755 0.84086081770534638 5.5096364938578821
+ 6.2500000000000000 3.0000000000000000 3.2490732685119394 3.9224514523416887 1.0567467454247677 1.2639799384674837 0.14834135398177001 0.17630718127267267 0.97633195566341091 1.0389090015247433 5.7542114069234547
+ 6.2500000000000000 3.5000000000000000 3.3777471643147092 3.9557693071487474 1.1038006210050728 1.2787379204125355 0.15411998548391490 0.17749879558776696 1.0766987279888161 1.1338219817354436 5.9901870008231732
+ 6.2500000000000000 4.0000000000000000 3.6155959173174854 3.9955137358265991 1.1858251354841536 1.2910406527284273 0.16463893003146943 0.17877457766319532 1.1255093396756419 1.1660220590372381 6.2714965567576533
+ 6.2500000000000000 4.5000000000000000 3.9511804047774222 4.0644053484016132 1.3024248455731398 1.3102284537951470 0.17964169345366118 0.18138517120488676 1.1332620945419343 1.1581051564729981 6.6157140688556533
+ 6.2500000000000000 4.9999999999999991 4.3951035229466040 4.1764281001269490 1.4578746427028701 1.3439338251034603 0.19988562151509143 0.18637398622545298 1.1183078400861035 1.0788626558476331 7.0426472739349446
+ 6.2500000000000000 5.4999999999999991 4.8728527021534269 4.2706144302370914 1.6340320855020853 1.3832194508234128 0.22257234453009062 0.19201843158862789 1.0089857016412607 0.91085356495472170 7.4111971817525273
+ 6.2500000000000000 6.0000000000000000 5.3483957367406703 4.2495605502949179 1.8184203151007485 1.3916183378032785 0.24621941397665636 0.19369654846388340 0.78288944348882372 0.67793695327795245 7.6348874028179434
+ 6.2500000000000000 6.4999999999999991 5.8711611826719787 4.2046604657289262 2.0133560733045428 1.3954940461349143 0.27270925996287787 0.19497321393835357 0.55210065594058488 0.47873434292630573 7.8975054708294881
+ 6.2500000000000000 7.0000000000000000 6.2200698662216674 4.0421014730658991 2.1406893821378064 1.3395737727103800 0.29017905499353069 0.18863225418290960 0.41435321574295647 0.36990150254751702 8.0235973468995425
+ 6.2500000000000000 7.4999999999999991 6.5041935660167853 3.8131998021598812 2.2481925362422808 1.2783353788898411 0.30543471448547910 0.18201609927575291 0.33735695212673106 0.28678555029071146 8.1168974561195792
+ 6.2500000000000000 8.0000000000000000 6.8436051719883375 3.8218779457932395 2.3770543617983559 1.2908520469562814 0.32419869626609549 0.18536432140777323 0.28656842257938947 0.22803841074594111 8.3963286767225309
+ 6.2500000000000000 8.4999999999999982 7.0688250714392495 3.8427144619767524 2.4651527584211403 1.2970644627900427 0.33767959155732835 0.18810545958254990 0.24721699579800058 0.18831863418109804 8.5846506176539599
+ 6.2500000000000000 9.0000000000000000 7.2325885059555670 3.8301049697935468 2.5237066708772051 1.2974525668497008 0.34762149275971127 0.18981258533102241 0.21385881151729985 0.15689487032191671 8.7032719848385867
+ 6.2500000000000000 9.5000000000000000 7.2633185418635806 3.7433908909480973 2.5257116419862924 1.2784493765547220 0.35029542096040639 0.18831071790550602 0.18172753168930586 0.12959427124371933 8.6606171765504047
+ 6.2500000000000000 9.9999999999999982 7.3245574209527744 3.5933551338831289 2.5282166836434254 1.2344064173188412 0.35404825858746808 0.18383525917262741 0.15487530572108052 0.10814515676876553 8.6143791016509521
+ 6.2500000000000000 10.500000000000000 7.4309760348365570 3.4566930530406998 2.5306770602118509 1.1705489399740328 0.36062318891278450 0.17802511899503654 0.14120405725735505 9.4060924818952868E-002 8.6087629064219389
+ 6.2500000000000000 10.999999999999998 7.5256143048004009 3.5268252085035061 2.5010728015708223 1.1385000053287482 0.36626735897370716 0.17846685196678888 0.13278087274533826 8.3420699679556329E-002 8.6595611472197120
+ 6.2500000000000000 11.500000000000000 7.5948993239794573 3.7791915780199310 2.4527753380240229 1.1498574993567949 0.36967895733223693 0.18596492657660926 0.12760116284442413 7.5838712531165295E-002 8.7602540936149289
+ 6.2500000000000000 12.000000000000000 7.6775212520505818 4.1463290623490749 2.4106554687053530 1.2041110838123448 0.37399186326019890 0.19972141493467330 0.13069939402437353 7.1621449292108369E-002 8.9358396554897404
+ 6.2500000000000000 12.499999999999998 7.8109980850092899 4.5425000416826649 2.3858960185158784 1.2900471342790691 0.37879929047272437 0.21581172865816711 0.14029979791360009 6.9160571821742747E-002 9.1831686200882086
+ 6.2500000000000000 12.999999999999998 8.0510563086350331 4.8664216052130396 2.3797825418309233 1.3690033337401861 0.38400635716566017 0.22960408929830298 0.15163851090127314 6.6899343748061918E-002 9.4882986030217893
+ 6.2500000000000000 13.500000000000000 8.3857177727569940 5.1232042014571659 2.4023243583400511 1.4407178252332082 0.39035981562530220 0.24032335698283691 0.16123232878768456 6.6850027656669031E-002 9.8501213207833143
+ 6.2500000000000000 14.000000000000000 8.6886771313965010 5.3405317363091553 2.4337585935975579 1.5085577884063144 0.39610250807933850 0.24856200937949435 0.16611792308025963 6.9419959589402586E-002 10.178794601997227
+ 6.2500000000000000 14.499999999999998 8.9171743477778200 5.5742473286844216 2.4649381815918026 1.5729428622745940 0.40229016471802964 0.25698946479162410 0.16213516295671573 7.2090237894886000E-002 10.456448535911422
+ 6.2500000000000000 14.999999999999998 8.8798730453867343 5.7507952859855749 2.4364680827781835 1.6151558832474049 0.39754801021675384 0.26266619245974809 0.15461030093801253 7.3511999029974656E-002 10.479709413120691
+ 6.2500000000000000 15.500000000000000 8.5140719565113194 5.7885539659138514 2.3447369573568553 1.6345944761767321 0.37800347303818349 0.26287441141418300 0.14696496203492213 7.4120908810623332E-002 10.175899486732648
+ 6.2500000000000000 16.000000000000000 8.1326399126455033 5.7489430051761463 2.2607311435534014 1.6405507685047489 0.35916828467646328 0.25980528321673907 0.13998643172525138 7.4510037188311895E-002 9.8362868797623957
+ 6.2500000000000000 16.500000000000000 7.6478134938633522 5.6764874024106780 2.1567471105951208 1.6463434453858306 0.33711962667425482 0.25587866714455437 0.13056122547899293 7.5304998218798658E-002 9.3994991421277678
+ 6.2500000000000000 16.999999999999996 7.0699851122462745 5.6084140358512924 2.0353020870720959 1.6493124907008327 0.31222411555496898 0.25059648757410635 0.11929593810543565 7.7066407478736970E-002 8.8863346425208380
+ 6.2500000000000000 17.499999999999996 6.3141283875786138 5.4374117425543131 1.8633060050876846 1.6129082339126015 0.27920177958655235 0.24145440805343196 0.10829578187658215 7.8220478069687141E-002 8.1666195902829664
+ 6.2500000000000000 18.000000000000000 5.5808452358058895 5.0650219925179361 1.6917019365729480 1.5216321422331203 0.24777652046965265 0.22549764277533271 0.10004906414703772 8.0563632642982580E-002 7.3778203080534759
+ 6.2500000000000000 18.500000000000000 5.0607889723596040 4.5743961944641010 1.5654431996646403 1.4149216417483375 0.22575301456138380 0.20469258484829611 9.5247938330101062E-002 8.8185105010734663E-002 6.7255539253009742
+ 6.2500000000000000 19.000000000000000 4.6361524442099968 4.3088387946358004 1.4538750735388297 1.3492034831379807 0.20793155028695473 0.19339154611153164 9.0230071628549166E-002 9.5092595745061403E-002 6.2409682329863445
+ 6.2500000000000000 19.499999999999996 4.3080564001916084 4.1838121089108782 1.3614786116465976 1.3183543217483193 0.19386946968595153 0.18837370804333964 8.7332514722807314E-002 0.10028843115458642 5.8974341874503518
+ 6.2500000000000000 19.999999999999996 4.0735447173565706 4.0803627762012571 1.2979123241350254 1.3026439363088520 0.18388198239168638 0.18454158384039568 8.6922898469696086E-002 0.10555466280117874 5.6525422679525468
+ 6.2500000000000000 20.500000000000000 3.8693038826213746 4.0291818660995089 1.2383711681481453 1.2912287202089012 0.17499677255209270 0.18250515807663004 9.0375853741101977E-002 0.11056712821919883 5.4531927422432220
+ 6.2500000000000000 21.000000000000000 3.7078282553296003 3.9668451536555476 1.1903510914424567 1.2741203556150971 0.16793485326053251 0.17982123547806575 9.7418529705268639E-002 0.11741591380687288 5.2884227060104338
+ 6.2500000000000000 21.500000000000000 3.5836835573697012 3.9246256965635191 1.1534175217583063 1.2625311764759539 0.16252582467888305 0.17799992630765793 0.10886681955659845 0.13017777378263096 5.1707740066189132
+ 6.2500000000000000 21.999999999999996 3.4866244678687717 3.8828145160215524 1.1240252042171950 1.2497864129724949 0.15828605101338303 0.17612710334205203 0.12542960617668389 0.14977847142818407 5.0824123874387839
+ 6.2500000000000000 22.499999999999996 3.4275610870221302 3.8422130697814580 1.1065722017419355 1.2371282786824189 0.15575855410388906 0.17430356738796696 0.14645964208783360 0.17627554642779764 5.0342078107304058
+ 6.2500000000000000 23.000000000000000 3.3959524215621362 3.8035401045947062 1.0971509793837504 1.2246256866685303 0.15444265049918834 0.17252350827239873 0.17654083069588128 0.21135665711908100 5.0200732403122093
+ 6.2500000000000000 23.499999999999996 3.3742567968381341 3.7706635202760692 1.0906936710565138 1.2133289487691103 0.15357019987915521 0.17094825645592035 0.21376515012867517 0.25092829790836996 5.0234802197381416
+ 6.2500000000000000 24.000000000000000 3.3241043705365145 3.7386111443527836 1.0749293235081021 1.2023789568364440 0.15140384361642065 0.16941955521693922 0.26876510534496773 0.30848616993064526 5.0191003707829411
+ 6.5000000000000000 0.0000000000000000 2.3144072665222732 2.9360712357884085 0.75823965143185612 0.95954770256673305 0.10574193931029198 0.13396453331452945 0.20000030939641308 0.25543505734757788 3.6805989541129720
+ 6.5000000000000000 0.50000000000000000 2.2818712427585681 2.9311130113494324 0.74834241416025737 0.95777218344592485 0.10433522060616907 0.13371327806848726 0.24677998102799456 0.31339847539965293 3.6995515551231586
+ 6.5000000000000000 1.0000000000000000 2.2597782025558537 2.9264580564878622 0.74171186282002877 0.95624035866328427 0.10340363477940934 0.13347969208027932 0.30543632932989945 0.38654784727407254 3.7411286711586267
+ 6.5000000000000000 1.5000000000000000 2.2548328248274712 2.9315472226711439 0.74041997451308106 0.95793812114777277 0.10323534074497691 0.13367059321314267 0.37652005436405867 0.47315048211589872 3.8154409360157113
+ 6.5000000000000000 2.0000000000000000 2.2753653754717016 2.9463378193641625 0.74715651949859463 0.96271068624193190 0.10420701489881948 0.13423855932189757 0.48302060381973139 0.60218623451984032 3.9549907756085081
+ 6.5000000000000000 2.4999999999999996 2.3158180632998224 2.9823570435345634 0.76017948131312441 0.97404975074720346 0.10607203871369417 0.13566195695784375 0.65906556347253265 0.81739658338468313 4.1972452094075461
+ 6.5000000000000000 3.0000000000000000 2.3383200806965303 2.9930400489089859 0.76710092703758104 0.97690543306745514 0.10706581964183830 0.13581680305634233 0.78946157069752054 0.93694229176316801 4.3488671243142969
+ 6.5000000000000000 3.5000000000000000 2.3602799719899981 2.9783627186686306 0.77389292852464830 0.97010808132847226 0.10801644269161029 0.13474544799984078 0.85099656898724696 0.94764116963193701 4.4057430806719626
+ 6.5000000000000000 4.0000000000000000 2.4149553872218572 2.9640242041781302 0.79204869377527698 0.96131397462167600 0.11051636189033254 0.13365098876155523 0.87560112173552096 0.92208387919718304 4.4557720586681731
+ 6.5000000000000000 4.5000000000000000 2.5472148529419161 2.9823516556919429 0.83534781368711430 0.96234745599338001 0.11645696105296059 0.13411197464792590 0.86754089480501007 0.91476565479949601 4.5755659287022485
+ 6.5000000000000000 4.9999999999999991 2.7750287694976419 3.0487239929755576 0.90869596044455403 0.97604735237861184 0.12666378605302955 0.13688042787966251 0.90351259636266490 0.87305918409295491 4.8208377273475227
+ 6.5000000000000000 5.4999999999999991 3.0263408004699137 3.0957774262204012 0.99361651056258893 0.99187670668280636 0.13822864320502626 0.13943048771237440 0.92677954705697319 0.77322462136471026 5.0567467481897657
+ 6.5000000000000000 6.0000000000000000 3.2223757587078605 3.0166362239865183 1.0635804920061136 0.96778176347396905 0.14762223101282379 0.13659470116641989 0.87422820692282588 0.64821259140921061 5.1282795524451217
+ 6.5000000000000000 6.4999999999999991 3.5638085521334952 2.9411921036905864 1.1833594688817199 0.95235111679986117 0.16444420927163497 0.13497818844580656 0.75456050359950977 0.52865267677438721 5.2965065178277868
+ 6.5000000000000000 7.0000000000000000 3.7948392560550026 2.8113618829212812 1.2655163451567963 0.89857013564127242 0.17593662096092305 0.12912675665429849 0.59024785336271512 0.41720996954991352 5.3031162986125473
+ 6.5000000000000000 7.4999999999999991 3.9931868647113911 2.5871813239762669 1.3334946557541609 0.82235411962052418 0.18605396008889794 0.12065737413879069 0.44306402547813661 0.31835401151060277 5.2533819471037857
+ 6.5000000000000000 8.0000000000000000 4.2581390260829934 2.5738172054328250 1.4221697333692027 0.81715203623613852 0.19977502863511604 0.12184010531898236 0.35054367637002165 0.24749870956774703 5.4071876618234525
+ 6.5000000000000000 8.4999999999999982 4.5242080709755506 2.6219250249037986 1.5075424072078034 0.82816472884590941 0.21383392829915607 0.12532018137263218 0.29767998048205713 0.20189606130148396 5.6212782567843202
+ 6.5000000000000000 9.0000000000000000 4.8311200416845237 2.6775719362613035 1.5970451004000339 0.84927345784589858 0.22930595966730868 0.13008183032234361 0.26096781845321532 0.16644428431528688 5.8867497830516662
+ 6.5000000000000000 9.5000000000000000 5.1439219150647943 2.7019614176222273 1.6812388341835294 0.86128077505711453 0.24368721272638477 0.13299567866591480 0.22517944305788859 0.13692167743876316 6.1404047862830700
+ 6.5000000000000000 9.9999999999999982 5.6389222503522793 2.6819265706146496 1.8071739922495880 0.85498417612584676 0.26605821511665440 0.13360914675371691 0.18745248677958570 0.11275148883272881 6.5274950904410503
+ 6.5000000000000000 10.500000000000000 6.2741373831914045 2.6768293489783597 1.9640790835827755 0.83947845077755712 0.29600445651487173 0.13391610387224320 0.15836327018912297 9.3924616438732969E-002 7.0431056356744133
+ 6.5000000000000000 10.999999999999998 6.8075537808431923 2.8159401129889026 2.0838860224682798 0.84838604648492855 0.32151053845987126 0.13855374152972258 0.13960074774189127 7.9227343666836231E-002 7.5290698078989537
+ 6.5000000000000000 11.500000000000000 7.2399960425590582 3.0916427078524005 2.1693513702997800 0.89276632501999331 0.34109860888815474 0.14842166844390245 0.12686168949571092 6.8389475883514003E-002 7.9852785332284055
+ 6.5000000000000000 12.000000000000000 7.6385830763554807 3.4144238777614322 2.2303685486679443 0.96755889625180325 0.35749349078770432 0.16107101766770282 0.12051863942163175 6.0949550716009736E-002 8.4326436176208244
+ 6.5000000000000000 12.499999999999998 8.0266927981881082 3.7349228212159682 2.2937560087687419 1.0573275966140903 0.37280095271296737 0.17466508870765951 0.12128777860231026 5.5686748398015205E-002 8.8838924438266602
+ 6.5000000000000000 12.999999999999998 8.3496545424534592 3.9808789717306934 2.3505660352199427 1.1387409383842992 0.38411038083380344 0.18631593371582877 0.12290727864579594 5.1554993467387893E-002 9.2573224372014042
+ 6.5000000000000000 13.500000000000000 8.5250165657638330 4.1690072688740338 2.3742420447917567 1.2093749017336601 0.38669861487410734 0.19534565119953912 0.12325233052990392 4.8821695769722728E-002 9.4803228764987200
+ 6.5000000000000000 14.000000000000000 8.6939336708990318 4.3350042961687620 2.4058257578594571 1.2662324395021949 0.38942621280522788 0.20201846635925133 0.12246033436673764 4.7919396012231087E-002 9.6914888499677829
+ 6.5000000000000000 14.499999999999998 8.6848069856681906 4.4494366198436426 2.4000931454573036 1.2987024671608416 0.38668694252419422 0.20561051211877673 0.11690618308010063 4.7887702078079269E-002 9.7262079382203055
+ 6.5000000000000000 14.999999999999998 8.2154909597227803 4.4493274150732063 2.3004916377570201 1.3069663414429729 0.36603293139155640 0.20442718440409377 0.11040545490361516 4.8101290967183706E-002 9.3312213998124669
+ 6.5000000000000000 15.500000000000000 7.4775353247836875 4.3874379129545025 2.1240078361312982 1.2956327813773498 0.33218642511418806 0.20044211834934705 0.10371566114280947 4.8279402591288573E-002 8.6688942365388169
+ 6.5000000000000000 16.000000000000000 6.7592683826744890 4.2373335485235675 1.9516750757163945 1.2635704431020462 0.30010591353702293 0.19282067946982145 9.7547898490472809E-002 4.8965803747467736E-002 7.9866283385598873
+ 6.5000000000000000 16.500000000000000 5.9449482117607779 4.0053382332363263 1.7537042178347131 1.2208619042135083 0.26449708626792440 0.18239265770545898 8.9813496301944740E-002 5.0636826267275704E-002 7.1883852152510963
+ 6.5000000000000000 16.999999999999996 5.1287483952311295 3.7392499874616325 1.5453530714821964 1.1693135828243768 0.22868080818586375 0.16955807381413876 8.2011621061965870E-002 5.4713946118483660E-002 6.3674744607136482
+ 6.5000000000000000 17.499999999999996 4.2699632046819289 3.5074048267916753 1.3129421802101253 1.1067972663999117 0.19082457101574415 0.15842217411764195 7.6150189814266203E-002 5.8282073495284928E-002 5.5102222107495464
+ 6.5000000000000000 18.000000000000000 3.6141958121145912 3.3166377474126523 1.1313544172734158 1.0514890011520190 0.16210091893249429 0.14978790895024011 7.2967436114544953E-002 6.2510048736577797E-002 4.8472206250405270
+ 6.5000000000000000 18.500000000000000 3.2644630853307013 3.2176102899264958 1.0344432389233089 1.0259140236442268 0.14699239006793205 0.14537707083954018 7.2498359648427255E-002 7.0262397530927112E-002 4.4986526432939762
+ 6.5000000000000000 19.000000000000000 2.9885744061999784 3.1451386221970803 0.95345003055941435 1.0018205757791558 0.13494474793230890 0.14203675793967591 6.8850758658933572E-002 7.5483007518967846E-002 4.2187062833787170
+ 6.5000000000000000 19.499999999999996 2.7895703152730897 3.1458966181495329 0.89493517571979664 1.0033482944798897 0.12629701155450207 0.14237052651167384 6.5611970697746866E-002 7.7651196681308668E-002 4.0406985274375584
+ 6.5000000000000000 19.999999999999996 2.7267133439217686 3.0823190233046165 0.88090903189532577 0.99774455949189877 0.12379437255109858 0.14029439091849197 6.5802793968600753E-002 8.0648027907237796E-002 3.9651483620986112
+ 6.5000000000000000 20.500000000000000 2.6363432812607734 3.0106976221116066 0.85362434963998701 0.97903588619251691 0.11979305521510197 0.13717083009829650 6.9431021469612109E-002 8.5439820880905015E-002 3.8569091914847577
+ 6.5000000000000000 21.000000000000000 2.5561299903509074 2.9823497812650857 0.82873770561641436 0.97110377168053397 0.11621257529363377 0.13593682624057410 7.4981651489616816E-002 9.2188123203103531E-002 3.7779007826301472
+ 6.5000000000000000 21.500000000000000 2.5047616357231668 2.9633174730871503 0.81312713530315051 0.96561008390647662 0.11394616596558958 0.13510208554202616 8.4353365823353621E-002 0.10406608172305767 3.7334907766297443
+ 6.5000000000000000 21.999999999999996 2.4521210905619713 2.9454339317682283 0.79784375009153430 0.96059067048729208 0.11165548986085856 0.13432231348189269 9.7284933406023844E-002 0.12089546286877421 3.6930176354823208
+ 6.5000000000000000 22.499999999999996 2.4168423789251929 2.9376828990279447 0.78781294453021167 0.95825503600246020 0.11013610715273250 0.13397495529484366 0.11333530610845353 0.14326453407574843 3.6764769659447256
+ 6.5000000000000000 23.000000000000000 2.3866946770728656 2.9363165412562529 0.77952820353058971 0.95784062834909101 0.10886536276998578 0.13390960253527032 0.13415285144870784 0.17113337809908427 3.6725607799613322
+ 6.5000000000000000 23.499999999999996 2.3520606803869275 2.9360751764491160 0.76946473651797298 0.95827431794381990 0.10737379293426361 0.13391483353750344 0.16043979155526983 0.20479261506496080 3.6705783152614218
+ 6.5000000000000000 24.000000000000000 2.3144519438911035 2.9360769017811963 0.75825430299965957 0.95954960439963288 0.10574398067941251 0.13396479688991902 0.20000418482915280 0.25543558635035418 3.6806452380732528
diff --git a/src/IM_set_parameters.f90 b/src/IM_set_parameters.f90
old mode 100755
new mode 100644
index 765c018..70bc621
--- a/src/IM_set_parameters.f90
+++ b/src/IM_set_parameters.f90
@@ -16,6 +16,7 @@ subroutine IM_set_parameters
use ModScbGrids, ONLY: nthe, npsi, nzeta
use ModRamParams
use ModScbParams
+ use ModSceVariables
!!!! Module Subroutines and Functions
use ModRamIO, ONLY: write_prefix
@@ -124,6 +125,8 @@ subroutine IM_set_parameters
if (TempLogical) DoUseKpDiff = .true.
call read_var('DoUseEMIC', TempLogical)
if (TempLogical) DoUseEMIC = .true.
+ call read_var('DoSaveLwgr', TempLogical)
+ if (TempLogical) DoSaveLwgr = .true.
case('#USEFLC')
call read_var('DoUseFLC',DoUseFLC)
@@ -268,6 +271,28 @@ subroutine IM_set_parameters
call read_var('BlendMin' , blendMin)
call read_var('BlendMax' , blendMax)
+!!!!!! SCE Parameters
+ case("#IONOSPHERE")
+ call read_var('iConductanceModel',conductance_model)
+ call read_var('StarLightPedConductance',StarLightPedConductance)
+ if (conductance_model .eq.9)then
+ call read_var('DoUseFullSpec', DoUseFullSpec)
+ call read_var('DoSaveGLOWConductivity', DoSaveGLOWConductivity)
+ end if
+
+ case("#BOUNDARY")
+ call read_var('LatBoundary',LatBoundary)
+ LatBoundary = LatBoundary * cDegToRad
+
+ case("#SOLVER")
+ call read_var('NameSolver', NameSolver, IsLowerCase=.true.)
+
+ case("#KRYLOV")
+ call read_var('UsePreconditioner', UsePreconditioner)
+ call read_var('UseInitialGuess', UseInitialGuess)
+ call read_var('Tolerance', Tolerance)
+ call read_var('MaxIteration', MaxIteration)
+
!!!!!! Input Parameters
case('#TS07_DIRECTORY')
call read_var('TS07Directory', TS07Path)
diff --git a/src/Makefile b/src/Makefile
index 04a3d1a..677e0ee 100755
--- a/src/Makefile
+++ b/src/Makefile
@@ -16,6 +16,7 @@ MY_LIB = libRAM_SCB.a
LIBSHARE = ${LIBDIR}/libSHARE.a
LIBEXT = ${LIBDIR}/libEXT.a
LIBNOMPI = ${LIBDIR}/libNOMPI.a
+LIBGLOW = ${LIBDIR}/libGLOW.a
# Extra search directories for -I option (-p for Absoft!!!)
# Set twice to work with old and new SWMF versions.
@@ -135,12 +136,13 @@ combine:
echo 'addlib ${MY_LIB}' >> mergelibs.mri
echo 'addlib ${LIBSHARE}' >> mergelibs.mri
echo 'addlib ${LIBEXT}' >> mergelibs.mri
+ echo 'addlib ${LIBGLOW}' >> mergelibs.mri
echo 'save' >> mergelibs.mri
echo 'end' >> mergelibs.mri
ar -M < mergelibs.mri
# Libraries should be compiled first, because modules are used in main
-${EXE}: ${OBJECTS_EXE} ${MY_LIB} ${LIBSHARE} ${LIBEXT}
+${EXE}: ${OBJECTS_EXE} ${MY_LIB} ${LIBSHARE} ${LIBEXT} ${LIBGLOW}
make combine
rm mergelibs.mri
${LINK.f90} -o ${EXE} ${OBJECTS_EXE} libAll.a ${LBLAS} ${Lflag1}
diff --git a/src/Makefile.def b/src/Makefile.def
index 8dca3dc..8ee868c 100755
--- a/src/Makefile.def
+++ b/src/Makefile.def
@@ -8,6 +8,7 @@ DIR = ${IMDIR}
SCRIPTDIR = ${IMDIR}/share/Scripts
LIBDIR = ${IMDIR}/src
SHAREDIR = ${IMDIR}/share/Library/src
+GLOWDIR = $IMDIR}/srcGlow
INCLDIR = ${IMDIR}/include
BINDIR = ${IMDIR}/src
-RUNDIR = ${IMDIR}/run
\ No newline at end of file
+RUNDIR = ${IMDIR}/run
diff --git a/src/ModRamEField.f90 b/src/ModRamEField.f90
index 19dee79..4c3f7ea 100755
--- a/src/ModRamEField.f90
+++ b/src/ModRamEField.f90
@@ -268,6 +268,7 @@ SUBROUTINE ionospheric_potential
end do
end if
! Plug self-consisent/IE potential into PhiIonoRaw (only northern)
+ write(*,*)'Solving SC electric field!'
CALL sce_run
PhiIonoRaw = Iono_North_Phi
diff --git a/src/ModRamIO.f90 b/src/ModRamIO.f90
index 5a35e5b..50554b6 100644
--- a/src/ModRamIO.f90
+++ b/src/ModRamIO.f90
@@ -108,7 +108,7 @@ subroutine handle_output(TimeIn)
!!!! Module Variables
use ModRamMain, ONLY: DP
- use ModRamParams, ONLY: DoSaveRamSats, NameBoundMag
+ use ModRamParams, ONLY: DoSaveRamSats, NameBoundMag, DoSaveLwgr
use ModRamTiming, ONLY: Dt_hI, DtRestart, DtWriteSat, TimeRamNow, &
TimeRamElapsed, DtW_Pressure, DtW_hI, DtW_Efield, &
DtW_MAGxyz, DtLogFile, DtW_2DFlux, DtW_Losses
@@ -188,13 +188,16 @@ subroutine handle_output(TimeIn)
! Write restarts.
if (abs(mod(TimeIn,DtRestart)).le.1e-9) call write_restart()
- ! Write hourly file
+ ! Write RAM flux as netcdf output file
if (abs(mod(TimeIn,DtW_2DFlux)).le.1e-9) then
- call write2DFlux ! ME netcdf output
-! if (abs(mod(TimeIn,3600.0)).le.1e-9) then
-! do iS = 1, nS
-! call ram_hour_write(iS) ! VJ ascii output
-! enddo
+ call write2DFlux
+ endif
+
+ ! Write hourly ascii output for linear wave growth calcs
+ if (DoSaveLwgr .and. (abs(mod(TimeIn,3600.0)).le.1e-9)) then
+ do iS = 1, nS
+ call ram_hour_write(iS)
+ enddo
endif
if (abs(mod(TimeIn,DtW_Losses)).le.1e-9) then
@@ -709,7 +712,7 @@ end subroutine read_initial
!============================!
!==========================================================================
subroutine write2DFlux
- ! Write the 2D flux (F2/FFACTOR/FNHS)
+ ! Write the 2D flux (F2/FFACTOR/FNHS) [1/s/cm2/sr/keV]
use ModRamMain, ONLY: DP, PathRamOut
use ModRamTiming, ONLY: TimeRamNow
@@ -787,7 +790,7 @@ subroutine write2DFlux
!==================================================================================================
subroutine writeLosses
- ! Write losses from RAM
+ ! Write losses due to some processes from RAM
use ModRamMain, ONLY: DP, PathRamOut
use ModRamTiming, ONLY: TimeRamNow, TimeRamElapsed
@@ -815,7 +818,7 @@ subroutine writeLosses
allocate(ESUM(nS), NSUM(nS))
- ! Compute losses
+ ! Compute particle and energy losses
DO S=1,nS
DO I=2,NR
XNNO=XNN(S,I)
@@ -859,7 +862,7 @@ subroutine writeLosses
LSATM(S) = LSATM(S)*RFACTOR*100/ESUM(S) ! Atmospheric Loss
LSCOE(S) = LSCOE(S)*RFACTOR*100/ESUM(S) ! Coulomb Energy Loss
LSCSC(S) = LSCSC(S)*RFACTOR*100/ESUM(S) ! Coulomb Pitch Angle Scattering
- LSWAE(S) = LSWAE(S)*RFACTOR*100/ESUM(S) ! WPI Loss
+ LSWAE(S) = LSWAE(S)*RFACTOR*100/ESUM(S) ! Wave-particle interactions Loss
ESUM(S) = ESUM(S)/RFACTOR
NSUM(S) = NSUM(S)/RFACTOR
enddo
@@ -998,9 +1001,9 @@ subroutine ram_hour_write(S) !Previously WRESULT in ram_all
ENERD, EkeV, UPA, LNCN, LNCD, Kp, MLT, LZ, &
LSDR, LSCHA, LSATM, LSCOE, LSCSC, LSWAE, &
LECD, LECN, outsideMGNP, NECR, IAPO, RZ, &
- IR1, IP1, PHI, MU, RFACTOR, ESUM, NSUM
+ IR1, IP1, PHI, MU, RFACTOR, ESUM, NSUM, species
use ModRamTiming, ONLY: TimeRamNow,TimeRamElapsed
- use ModRamParams, ONLY: DoUseWPI, DoUsePlasmasphere
+ use ModRamParams, ONLY: DoUseWPI, DoUsePlasmasphere, DoUseEMIC
use ModRamFunctions
use ModRamConst
use ModIOUnit, ONLY: UNITTMP_, io_unit_new
@@ -1082,7 +1085,6 @@ subroutine ram_hour_write(S) !Previously WRESULT in ram_all
LSWAE(S) = LSWAE(S)*RFACTOR*100/ESUM(S)
! Write the trapped equatorial flux [1/s/cm2/sr/keV]
-! IF (MOD(INT(T),2*3600).EQ.0.) THEN
IF (S.eq.1.or.S.eq.4) THEN
if (NT.EQ.49) JW=2
if (NT.EQ.25) JW=1
@@ -1092,12 +1094,12 @@ subroutine ram_hour_write(S) !Previously WRESULT in ram_all
if (NT.EQ.25) JW=3
IW=4
ENDIF
-! ENDIF
+
NameFileOut=trim(PathRamOut)//RamFileName('ram'//st2,'flx',TimeRamNow)
open(unit=UnitTMP_, file=trim(NameFileOut), status='UNKNOWN')
DO I=4,NR,IW
DO 25 J=1,NT-1,JW
- WRITE(UNITTMP_,32) StringDate,LZ(I),KP,MLT(J)
+ WRITE(UNITTMP_,32) StringDate,LZ(I),KP,MLT(J), species(S)%s_code
if (outsideMGNP(I,J) == 1) F(I,J,:,:) = 1e-31
DO 27 K=4,NE-1
27 WRITE(UNITTMP_,30) EKEV(S,K),(F(I,J,K,L),L=2,NPA-2)
@@ -1107,7 +1109,53 @@ subroutine ram_hour_write(S) !Previously WRESULT in ram_all
30 FORMAT(F7.2,72(1PE11.3))
31 FORMAT(F6.2,1X,F6.2,2X,F6.2,1X,F7.2,1X,F7.2,1X,1PE11.3)
-32 FORMAT(' EKEV/PA, Date=',a,' L=',F6.2,' Kp=',F6.2,' MLT=',F4.1)
+32 FORMAT(' EKEV/PA, Date=',a,' L=',F6.2,' Kp=',F6.2,' MLT=',F4.1,' Species=',4A)
+
+ ! VJ Write the total precipitating flux [1/cm2/s]
+ IF (DoUseWPI .or. DoUseEMIC) THEN
+ NameFileOut=trim(PathRamOut)//RamFileName('ram'//st2,'tpp',TimeRamNow)
+ open(unit=UnitTMP_, file=trim(NameFileOut), status='UNKNOWN')
+ WRITE(UNITTMP_,71) T/3600,KP
+ DO I=2,NR
+ DO J=1,NT
+ PRECFL=0.
+ DO K=2,NE ! 0.15 - 430 keV
+ AVEFL(I,J,K)=0.
+ DO L=UPA(I),NPA
+ AVEFL(I,J,K)=AVEFL(I,J,K)+F(I,J,K,L)*WMU(L)
+ ENDDO
+ AVEFL(I,J,K)=AVEFL(I,J,K)/(MU(NPA)-MU(UPA(I)))
+ PRECFL=PRECFL+AVEFL(I,J,K)*PI*WE(K)
+ ENDDO
+ WRITE(UNITTMP_,70) LZ(I),PHI(J),PRECFL
+ END DO
+ END DO
+ close(UNITTMP_)
+ ENDIF
+71 FORMAT(2X,3HT =,F8.0,2X,4HKp =,F6.2,2X, &
+ ' Total Precip Flux [1/cm2/s]')
+
+ ! VJ Write the RAM flux [1/s/cm2/sr/keV] at given pitch angle
+ IF (DoUseWPI .or. DoUseEMIC) THEN
+! NameFileOut=trim(PathRamOut)//RamFileName('out'//st2,'dat',TimeRamNow)
+! open(unit=20, file=trim(NameFileOut), status='UNKNOWN')
+ NameFileOut=trim(PathRamOut)//RamFileName('outm'//st2,'dat',TimeRamNow)
+ open(unit=30, file=trim(NameFileOut), status='UNKNOWN')
+! NameFileOut=trim(PathRamOut)//RamFileName('outp'//st2,'dat',TimeRamNow)
+! open(unit=40, file=trim(NameFileOut), status='UNKNOWN')
+ DO I=1,NR
+ DO 822 J=1,NT-1
+ if (outsideMGNP(I,J) == 1) F(I,J,:,:) = 1e-31
+ DO 822 K=2,NE
+! WRITE(20,31) T/3600.,LZ(I),KP,MLT(J),EKEV(K),F(I,J,K,2)
+ WRITE(30,31) T/3600.,LZ(I),KP,MLT(J),EKEV(K),F(I,J,K,27)
+! WRITE(40,31) T/3600.,LZ(I),KP,MLT(J),EKEV(K),F(I,J,K,UPA(I))
+822 CONTINUE
+ ENDDO
+ CLOSE(20)
+ CLOSE(30)
+ CLOSE(40)
+ ENDIF
!.......Write the plasmaspheric electron density [cm-3] (.in)
if(DoUsePlasmasphere)then
@@ -1170,7 +1218,7 @@ subroutine ram_write_pressure
TimeRamElapsed/3600.0 + TimeRamStart%iHour, ' Kp=', Kp
write(UNITTMP_,'(2a)') ' Lsh MLT PPER_H PPAR_H PPER_O PPAR_O PPER_He PPAR_He', &
' PPER_E PPAR_E PTotal [keV/cm3]'
- ! NEED TO FIX THE STRING OUTPUT to REFLECT SPECIES NAMES!!!! -ME
+ ! THE STRING OUTPUT should REFLECT SPECIES NAMES!!!!
do i=2, NR
do j=1, NT
diff --git a/src/ModRamInit.f90 b/src/ModRamInit.f90
index e8f3c7f..7ba8eb4 100644
--- a/src/ModRamInit.f90
+++ b/src/ModRamInit.f90
@@ -620,7 +620,8 @@ SUBROUTINE init_input
!!!! Share Modules
use ModIOUnit, ONLY: UNITTMP_
use ModTimeConvert, ONLY: TimeType
-
+ use ModSceVariables,ONLY: Conductance_model
+
implicit none
integer :: i, j, j1, i1, iS, methodTemp
@@ -717,14 +718,18 @@ SUBROUTINE init_input
PlasmasphereModel = "Carpenter"
call plasmasphere(0._dp)
PlasmasphereModel = pmt
- endif
+ else
+ if(Conductance_model .eq. 9)then
+ call readapf107
+ end if
+ end if
! Call initial outputs
call compute3DFlux
call write2DFlux
call writeLosses
end if
- !!!!!!!!
+ !!!!!!!!.
return
diff --git a/src/ModRamMain.f90 b/src/ModRamMain.f90
index 6f87521..7cfa418 100755
--- a/src/ModRamMain.f90
+++ b/src/ModRamMain.f90
@@ -26,11 +26,11 @@ module ModRamMain
! File paths to fix hardcoding of path issues.
character(len=*), parameter :: PathRAMOut = 'IM/output/ram/'
character(len=*), parameter :: PathSCBOut = 'IM/output/scb/'
- character(len=*), parameter :: PathSCEOut = 'IM/output/scb/'
+ character(len=*), parameter :: PathSCEOut = 'IM/output/sce/'
character(len=*), parameter :: PathSWMFOut = 'IM/output_swmf/'
character(len=*), parameter :: PathRAMIn = 'IM/input_ram/'
character(len=*), parameter :: PathSCBIn = 'IM/input_scb/'
- character(len=*), parameter :: PathSCEIn = 'IM/input_scb/'
+ character(len=*), parameter :: PathSCEIn = 'IM/input_sce/'
!!!!!
!!!!! ITERATIONS
diff --git a/src/ModRamParams.f90 b/src/ModRamParams.f90
index ca0163a..655609d 100644
--- a/src/ModRamParams.f90
+++ b/src/ModRamParams.f90
@@ -44,7 +44,7 @@ module ModRamParams
! Include induced E field? Default is no!
logical :: UseEfind = .false.
- ! Include wave-particle diffusion? Default is no!
+ ! Include whistler wave-particle diffusion? Default is no!
logical :: DoUseWPI = .false.
! Use BAS wave-particle diffusion? Default is no!
@@ -128,6 +128,7 @@ module ModRamParams
! File write logicals:
logical :: DoSaveRamSats=.false.
+ logical :: DoSaveLwgr=.false.
! Type of file name format, default will be to use new standard
! once the new standard is ready.
diff --git a/src/ModRamRun.f90 b/src/ModRamRun.f90
index c217c90..4318ff0 100644
--- a/src/ModRamRun.f90
+++ b/src/ModRamRun.f90
@@ -69,7 +69,7 @@ SUBROUTINE ram_run
CALL COULPARA(iS)
! Call routines to calculate the changes of distribution function
- ! considering drifts, charge exchange and atmospheric losses
+ ! considering drifts
CALL DRIFTR(iS)
CALL DRIFTP(iS)
CALL DRIFTE(iS)
@@ -82,7 +82,7 @@ SUBROUTINE ram_run
CALL COULEN(iS)
CALL SUMRC(iS)
LSCOE(iS)=LSCOE(iS)+ELORC(iS)
- ! Coulomb collisions scattering -- unstable?
+ ! Coulomb collisions pitch angle scattering -- unstable?
CALL COULMU(iS)
CALL SUMRC(iS)
LSCSC(iS)=LSCSC(iS)+ELORC(iS)
@@ -101,15 +101,18 @@ SUBROUTINE ram_run
! loss via EMIC wave scattering
if (species(iS)%EMIC .and. DoUseEMIC) then
call WPADIF(iS)
+ CALL SUMRC(iS)
+ LSWAE(iS)=LSWAE(iS)+ELORC(iS)
end if
+ ! loss via charge exchange
if (species(iS)%CEX) then
CALL CHAREXCHANGE(iS)
CALL SUMRC(iS)
LSCHA(iS)=LSCHA(iS)+ELORC(iS)
endif
- ! ion loss via FLC scattering
+ ! loss via FLC scattering
if (species(iS)%FLC .and. DoUseFLC) then
call PARA_FLC(iS)
call FLCScatter(iS)
@@ -125,21 +128,24 @@ SUBROUTINE ram_run
CALL SUMRC(iS)
LSATM(iS)=LSATM(iS)+ELORC(iS)
- ! ion loss via FLC scattering
+ ! loss via FLC scattering
if (species(iS)%FLC .and. DoUseFLC) then
call PARA_FLC(iS)
call FLCScatter(iS)
end if
+ ! loss via charge exchange
if (species(iS)%CEX) then
CALL CHAREXCHANGE(iS)
CALL SUMRC(iS)
LSCHA(iS)=LSCHA(iS)+ELORC(iS)
endif
- ! ion loss via EMIC wave scattering
+ ! loss via EMIC wave scattering
if (species(iS)%EMIC .and. DoUseEMIC) then
call WPADIF(iS)
+ CALL SUMRC(iS)
+ LSWAE(iS)=LSWAE(iS)+ELORC(iS)
end if
if (species(iS)%WPI) then
@@ -254,13 +260,14 @@ END SUBROUTINE SUMRC
!*************************************************************************
! ANISCH
-! Calculate pressure in equatorial plane
+! Calculate pressure anisotropy in equatorial plane
!*************************************************************************
SUBROUTINE ANISCH(S)
! Module Variables
use ModRamMain, ONLY: DP, PathRamOut
use ModRamConst, ONLY: CS, PI, Q
- use ModRamParams, ONLY: DoUseWPI, DoUsePlasmasphere, DoUseBASdiff, DoUseEMIC
+ use ModRamParams, ONLY: DoUseWPI, DoUsePlasmasphere, DoUseBASdiff, &
+ DoUseEMIC, DoSaveLwgr
use ModRamGrids, ONLY: NR, NT, NPA, ENG, SLEN, NCO, NCF, Ny, NE, &
ENG_emic, NCF_emic
use ModRamTiming, ONLY: Dt_bc, T, TimeRamNow
@@ -291,6 +298,7 @@ SUBROUTINE ANISCH(S)
INTEGER :: KHI(5)
character(len=2) :: ST2
character(len=214) :: NameFileOut
+ character(len=80) HEADER
character(len=2), dimension(4) :: speciesString = (/'_h','_o','he','_e'/)
DATA khi/6, 10, 25, 30, 35/ ! ELB=0.1 keV -> 0.4,1,39,129,325 keV
! DATA khi/2, 19, 28, 32, 35/ ! ELB=0.1 keV -> 0.1,10,100,200,427 keV
@@ -313,6 +321,24 @@ SUBROUTINE ANISCH(S)
gausgam=1.E-5
khi(5)=NE
+ IF(DoSaveLwgr .and. (MOD(INT(T),3600).EQ.0.)) THEN
+ NameFileOut=trim(PathRamOut)//RamFileName('ram'//st2,'wans',TimeRamNow)
+ OPEN(UNIT=7,FILE=trim(NameFileOut),STATUS='UNKNOWN')
+ WRITE(7,56) T/3600,KP ! total
+! NameFileOut=trim(PathRamOut)//RamFileName('ram'//st2,'lans',TimeRamNow)
+! OPEN(UNIT=8,FILE=trim(NameFileOut),STATUS='UNKNOWN')
+! WRITE(8,56) T/3600,KP ! low energy
+! NameFileOut=trim(PathRamOut)//RamFileName('ram'//st2,'mans',TimeRamNow)
+! OPEN(UNIT=12,FILE=trim(NameFileOut),STATUS='UNKNOWN')
+! WRITE(12,56) T/3600,KP ! medium energy
+! NameFileOut=trim(PathRamOut)//RamFileName('ram'//st2,'hans',TimeRamNow)
+! OPEN(UNIT=13,FILE=trim(NameFileOut),STATUS='UNKNOWN')
+! WRITE(13,56) T/3600,KP ! high energy
+56 FORMAT(2HT=,F8.3,2X,3HKp=,F3.1,/,2X, &
+ 'L PHI ANIS EDEN[keV/cm3] RNHT[1/cm3] PPER[keV/cm3]', &
+ ' PPAR[keV/cm3]')
+ ENDIF
+
! calculate ring current parameters
DO I=2,NR
DO J=1,NT
@@ -324,7 +350,7 @@ SUBROUTINE ANISCH(S)
stop
endif
ELSE
- !if (S.EQ.1.and.I.eq.2.and.J.eq.1) write (*,*) " Need to specify Ne if using WPI"
+ !if (S.EQ.1.and.I.eq.2.and.J.eq.1) write (*,*) " Need to specify Ne if using WPADIF"
ENDIF
klo=2
PPERT(S,I,J)=0.
@@ -362,6 +388,14 @@ SUBROUTINE ANISCH(S)
PPAR=2*RFAC*PPAR
PPER=RFAC*PPER
! write anisotropy, kT parallel, RC density
+! IF(DoSaveLwgr .and. (MOD(INT(T),3600).EQ.0.)) THEN
+! if (iwa.eq.2) WRITE(8,551) &
+! LZ(I),PHI(J),ANIS,EDEN,RNHT,PPER,PPAR
+! if (iwa.eq.3) WRITE(12,551) &
+! LZ(I),PHI(J),ANIS,EDEN,RNHT,PPER,PPAR
+! if (iwa.eq.4) WRITE(13,551) &
+! LZ(I),PHI(J),ANIS,EDEN,RNHT,PPER,PPAR
+! ENDIF
klo = khi(iwa)+1
EDENT=EDENT+EDEN
PPERT(S,I,J)=PPERT(S,I,J)+PPER
@@ -370,6 +404,8 @@ SUBROUTINE ANISCH(S)
enddo
ANIST=PPERT(S,I,J)/PPART(S,I,J)-1.
EPART=PPART(S,I,J)/RNHTT
+ IF(DoSaveLwgr .and. (MOD(INT(T),3600).EQ.0.)) WRITE(7,551) LZ(I),PHI(J), &
+ ANIST,EDENT,RNHTT,PPERT(S,I,J),PPART(S,I,J)
! if (T.gt.0.and.PPERT(S,I,J).lt.0) then
if (abs(PPERT(S,I,J))>huge(PPERT(S,I,J))) then
write(*,*) 'in ANISCH: S,i,j, PPERT= ', S,i,j, PPERT(S,I,J)
@@ -377,6 +413,11 @@ SUBROUTINE ANISCH(S)
endif
ENDDO
ENDDO
+ CLOSE(7)
+ CLOSE(8)
+ CLOSE(12)
+ CLOSE(13)
+551 FORMAT(F5.2,F10.6,10(1PE12.3))
IF (MOD(INT(T),INT(Dt_bc)).EQ.0.and.DoUseWPI.and.species(S)%s_name.eq.'Electron') THEN
! zero PA diffusion coefficients
@@ -469,7 +510,8 @@ SUBROUTINE ANISCH(S)
ENDIF ! end diff coeff loop
- IF (MOD(INT(T),INT(Dt_bc)).EQ.0.and.DoUseEMIC.and.species(S)%s_name.eq.'Hydrogen')THEN
+!VJ IF (MOD(INT(T),INT(Dt_bc)).EQ.0.and.DoUseEMIC.and.species(S)%s_name.eq.'Hydrogen')THEN
+ IF (MOD(INT(T),INT(Dt_bc)).EQ.0.and.DoUseEMIC.and.species(S)%EMIC) THEN
! only need to calculate once to obtain the ATAW_emic coefficient
!.......zero PA diffusion coefficients
DO I=1,NR
@@ -483,12 +525,13 @@ SUBROUTINE ANISCH(S)
ENDDO
ENDDO
-
-! write(NameFileOut1,'(a,a,a,i6.6,a)')&
-! PathRamOut//"ram_",ST2,"_t",nint(TimeRamElapsed/300._Real8_),".wde"
-! open(unit=24,file=trim(namefileout1),status='unknown')
-! write(24,555) T/3600, Kp
-!555 Format(2x,3HT =, F8.3, 2X, 4HKp =, F6.2, ' EMIC diff coeff')
+ IF(DoSaveLwgr .and. (MOD(INT(T),3600).EQ.0.)) THEN
+ ! Need to specify plasmasphere Ne if using EMIC
+ NameFileOut=trim(PathRamOut)//RamFileName('ram'//st2,'wde',TimeRamNow)
+ open(unit=24,file=trim(namefileout),status='unknown')
+ write(24,555) T/3600, Kp, species(S)%s_code
+555 Format(2X,3HT =, F8.3, 2X, 4HKp =, F6.2, 2X, 20HEMIC diff coeff for , 4A)
+ ENDIF
DO KN=1, ENG_emic
logEkeV_emic(KN) = log10(EkeV_emic(KN))
@@ -509,8 +552,10 @@ SUBROUTINE ANISCH(S)
fnorm_h = IBw_Hband ! normalized by wave amplitude
fnorm_he= IBw_Heband ! normalized by 1nT
-! write(24,554)LZ(I), MLT(J), xfrl, XNE(I,J), &
-! 'IBw Hband=',IBw_Hband, 'IBw Heband', IBw_Heband,' Fpe/Fcyc=',xfrl
+ IF(DoSaveLwgr .and. (MOD(INT(T),3600).EQ.0.)) THEN
+ write(24,554)LZ(I), MLT(J), xfrl, XNE(I,J), &
+ 'IBw Hband=',IBw_Hband, 'IBw Heband', IBw_Heband,' Fpe/Fce=',xfrl
+ ENDIF
DO L=1,NPA
MUBOUN=MU(L)+0.5*WMU(L)
@@ -542,17 +587,20 @@ SUBROUTINE ANISCH(S)
taudaa_h = ATAW_emic_h(I,J,K,L)/MUBOUN/BOUNHS(I,J,L)/(1.-MUBOUN*MUBOUN)
taudaa_he = ATAW_emic_he(I,J,K,L)/MUBOUN/BOUNHS(I,J,L)/(1.-MUBOUN*MUBOUN)
-! write(24,556)ekev(k), PABn(L), taudaa_h, taudaa_he, &
-! 1./taudaa_h, 1./taudaa_he
+ IF(DoSaveLwgr .and. (MOD(INT(T),3600).EQ.0.)) THEN
+ write(24,556)ekev(k), PABn(L), taudaa_h, taudaa_he, &
+ 1./taudaa_h, 1./taudaa_he
+ ENDIF
+
END DO
END DO
END DO
END DO
-!554 format(3H L=,F5.2,5H MLT=,F5.2,9H fpe/fce=,E10.3, &
-! 4H Ne=,F9.2,A10,E10.3,A11, E10.3, A10, E10.3)
-!556 format(2F9.3,6(1PE12.3))
-! close(24)
+ 554 format(3H L=,F5.2,5H MLT=,F5.2,9H fpe/fce=,E10.3, &
+ 4H Ne=,F9.2,A10,E10.3,A11, E10.3, A10, E10.3)
+ 556 format(2F9.3,6(1PE12.3))
+ close(24)
END IF
diff --git a/src/ModRamSce.f90 b/src/ModRamSce.f90
index 7ae1dce..80270f2 100644
--- a/src/ModRamSce.f90
+++ b/src/ModRamSce.f90
@@ -11,18 +11,20 @@ MODULE ModRamSce
!==================================================================================================
subroutine calculate_precip_flux_jr(IS, nTheta, nPhi, rIono, energy_flux, ave_e, &
num_flux, dis_energy_flux, dis_ave_e, &
- Jr, high_latboundary)
+ Jr, high_latboundary, diff_flux_iono)
- use ModRamMain, ONLY: DP
+ use ModRamMain, ONLY: DP, PathSCEOut
+ use ModRamTiming, ONLY: TimeRamElapsed
use ModRamGrids, ONLY: nR, nT, nE, nPa
use ModRamVariables, ONLY: WMU, MU, UPA, EKEV, XNE, WE, LZ, FLUX, PPERE, PPARE, &
- DL1
+ DL1, species
use ModScbGrids, ONLY: nthe, npsi, nzeta, nXRaw, nYRaw, nXRawExt
use ModScbVariables, ONLY: x, y, z, paraj, nThetaEquator, r0Start
+ use ModSceVariables, ONLY: conductance_model
use ModRamGSL, ONLY: GSL_Interpolation_2D
use ModScbFunctions, ONLY: Extap
-
+ use ModIoUnit, ONLY: UnitTmp_
use nrtype, ONLY: cElectronMass, cElectronCharge, pi_d, pio2_d, cRadtoDeg
implicit none
@@ -31,13 +33,16 @@ subroutine calculate_precip_flux_jr(IS, nTheta, nPhi, rIono, energy_flux, ave_e,
real(DP), intent(in) :: rIono
real(DP), intent(inout) :: energy_flux(:,:), ave_e(:,:), num_flux(:,:), Jr(:,:), &
- dis_energy_flux(:,:), dis_ave_e(:,:), high_latboundary(:)
+ dis_energy_flux(:,:), dis_ave_e(:,:), high_latboundary(:),&
+ diff_flux_iono(:,:,:)
integer :: i, j, k, kk, l, nTheta_north, GSLerr, nn, iMin, d
real(DP) :: rr1, thangle, thangleOnIono, minl, dTheta, dPhi,Rm, eV, efactor, press, &
dydummy, radius, angle, beta=0.1, Nele, jpar, coordPoint(2)
integer, allocatable :: idx(:)
+ character(len=100) :: NameFile
+ logical :: DoTest = .true.
real(DP), allocatable :: ave_flux(:,:,:), f(:,:,:,:), &
ave_fluxExt(:,:,:), num_fluxeq(:,:), NeExt(:,:), &
PPerEExt(:,:), PParEExt(:,:), rRawExt(:), aRawExt(:), &
@@ -68,14 +73,11 @@ subroutine calculate_precip_flux_jr(IS, nTheta, nPhi, rIono, energy_flux, ave_e,
! This is used to pass to IE for the computation of height-integrated Hall
! and Pedeson Conductances, based on the Robinson 1987 formula.
!
- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- !\ Y. Yu, 2013, to couple with IE (Region2 Jr)
- ! interpolate the paraj onto the ionosphere grids
- ! like in the swmfiono_II <-- PhiIono(1:npsi,2:zeta) <-- PhiIono(nIeTheta,
- ! nIePhi)
- !/
- ! paraJr is positive when along the field line into the north pole (this is
- ! opposite to that in GM)
+ !\
+ ! interpolate the Jpar (paraj) onto the ionosphere grids
+ ! /
+ ! -- paraJr is positive when along the field line into the north pole (this is
+ ! opposite to that in GM)
!----------------------------------------------------------------------------
nTheta_north = int(nTheta/2)+1
@@ -230,6 +232,21 @@ subroutine calculate_precip_flux_jr(IS, nTheta, nPhi, rIono, energy_flux, ave_e,
energy_flux_iono(i,j) = energy_flux_iono(i,j) + pi_d*ave_fluxEQ(i,j,k)*EKEV(IS,k)*WE(IS,k)
num_flux_iono(i,j) = num_flux_iono(i,j) + pi_d*ave_fluxEQ(i,j,k)*WE(IS,k)
end do
+ if(conductance_model .eq. 9)then ! GLOW conductance
+ do k=1,nE
+ if (EKEV(iS,k) .ge. 0.5e-3 .and. EKEV(iS,k) .le. 46)then ! GLOW energy range: 0.5 eV to 46 keV
+ energy_flux_iono(i,j) = energy_flux_iono(i,j) + pi_d*ave_fluxEQ(i,j,k)*EKEV(iS,k)*WE(iS,k)
+ num_flux_iono(i,j) = num_flux_iono(i,j) + pi_d*ave_fluxEQ(i,j,k)*WE(iS,k)
+ end if
+ end do
+ else
+ do k=1, nE
+ if (EKEV(iS,k) .ge. 0.5 .and. EKEV(iS,k) .le. 50)then ! Robinson energy range: 500eV to 50 keV
+ energy_flux_iono(i,j) = energy_flux_iono(i,j) + pi_d*ave_fluxEQ(i,j,k)*EKEV(iS,k)*WE(iS,k)
+ num_flux_iono(i,j) = num_flux_iono(i,j) + pi_d*ave_fluxEQ(i,j,k)*WE(iS,k)
+ end if
+ end do
+ end if
if (num_flux_iono(i,j) .eq. 0.0) then
num_flux_iono(i,j) = 1.0e-31
ave_e_iono(i,j) = 1.0e-31
@@ -239,6 +256,26 @@ subroutine calculate_precip_flux_jr(IS, nTheta, nPhi, rIono, energy_flux, ave_e,
end do
end do
+ ! writing to files
+ if (DoTest)then
+ if (Mod(int(TimeRamElapsed) ,1800) .eq. 0)then
+ write(NameFile,'(a,a,a,i6.6,a)')&
+ PathSCEOut//"PrecipFlux_atSCBEquator_",species(IS)%s_name,"_t",nint(TimeRamElapsed/1800.),".dat"
+ open( UnitTmp_, FILE=NameFile, STATUS='replace')
+ write(UnitTmp_,*)'Time: ',TimeRamElapsed
+ write(UnitTmp_,*)'nR, nMLT, nE', npsi,nzeta,nE
+ write(UnitTmp_,*)'rad angle Energy Flux[/cm^2/s/sr/keV] '
+ do i=1, npsi
+ do j=2, nzeta
+ do k=1, nE
+ write(UnitTmp_,'(f8.4,1x,f8.4,1x,f8.4,1x,E14.6)')rGrid(i,j), aGrid(i,j), EKEV(k), ave_fluxEQ(i,j,k)
+ end do
+ end do
+ end do
+ close(UnitTmp_)
+ end if
+ end if
+
! the longitude is the same as in angleGrid (index start from the noon, 0 degree at midnight)
lonGrid(:,2:nzeta) = aGrid(:,2:nzeta)
@@ -320,11 +357,11 @@ subroutine calculate_precip_flux_jr(IS, nTheta, nPhi, rIono, energy_flux, ave_e,
call GSL_Interpolation_2D(xTemp, yTemp, paraj, &
coordPoint(1), coordPoint(2), Jr(i,j), &
GSLerr)
- !do kk = 1, nE
- ! call GSL_Interpolation_2D(xTemp, yTemp, ave_fluxEQ(:,:,kk), &
- ! coordPoint(1), coordPoint(2), diff_flux_iono(i,j,kk), &
- ! GSLerr)
- !enddo
+ do kk = 1, nE
+ call GSL_Interpolation_2D(xTemp, yTemp, ave_fluxEQ(:,:,kk), &
+ coordPoint(1), coordPoint(2), diff_flux_iono(i,j,kk), &
+ GSLerr)
+ enddo
end if
end do
Jr(iMin+1,j) = 0.0_dp
@@ -344,10 +381,32 @@ subroutine calculate_precip_flux_jr(IS, nTheta, nPhi, rIono, energy_flux, ave_e,
num_flux(nTheta_north+i-1,:) = num_flux(nTheta_north-i+1,:)
dis_energy_flux(nTheta_north+i-1,:) = dis_energy_flux(nTheta_north-i+1,:)
dis_ave_e(nTheta_north+i-1,:) = dis_ave_e(nTheta_north-i+1,:)
- !diff_flux_iono(nTheta_north+i-1,:,:) = diff_flux_iono(nTheta_north-i+1,:,:)
+ diff_flux_iono(nTheta_north+i-1,:,:) = diff_flux_iono(nTheta_north-i+1,:,:)
Jr(nTheta_north+i-1,:) = Jr(nTheta_north-i+1,:)
end do
+ !\
+ ! write out the precipitation on the ionosphere
+ !/
+ if (DoTest)then
+ if (Mod(int(TimeRamElapsed) ,1800) .eq. 0)then
+ write(NameFile,'(a,a,a,i6.6,a)')&
+ PathSCEOut//"PrecipFlux_",species(IS)%s_name,"_t",nint(TimeRamElapsed/1800.),".dat"
+ open( UnitTmp_, FILE=NameFile, STATUS='replace')
+ write(UnitTmp_,*)'Time: ',TimeRamElapsed
+ write(UnitTmp_,*)'nTheta_north, nPhi', nTheta_north, nPhi
+ write(UnitTmp_,*)'Theta Phi EnergyFlux[ergs/cm^2/s] Ave_eIono [keV] Num_Flux [/cm^2/s](Phi=0 at midnight)',&
+ 'discreteEnergyFlux[ergs/cm^2/s] discreteAveE[keV]'
+ do i=1, nTheta_north
+ do j=1, nPhi
+ write(UnitTmp_,'(f8.4,1x,f8.4,6(1x,E13.6))')colat(i), lon(j), &
+ Energy_flux(i,j)*1.6e-9, Ave_e(i,j), num_flux(i,j), &
+ dis_energy_flux(i,j)*1.6e-9, dis_ave_e(i,j)
+ end do
+ end do
+ close(UnitTmp_)
+ end if
+ end if
! in order to couple to the ionosphere module that starts the index at
! noon with phi=0, shift the array about 180 degree
Energy_fluxtmp(:, 1:nPhi/2+1) = Energy_flux(:, 1:nPhi/2+1)
diff --git a/src/ModRamSpecies.f90 b/src/ModRamSpecies.f90
index a771b9b..c64d6e2 100644
--- a/src/ModRamSpecies.f90
+++ b/src/ModRamSpecies.f90
@@ -86,7 +86,7 @@ subroutine DefineSpecies
RAMSpecies(3)%WPI = .false.
RAMSpecies(3)%CEX = .true.
RAMSpecies(3)%FLC = .true.
- RAMSpecies(3)%EMIC = .true.
+ RAMSpecies(3)%EMIC = .false.
RAMSpecies(3)%CEX_file = 'na'
RAMSpecies(3)%CEX_species = 'na'
RAMSpecies(3)%Initialization = 'InitializationFile'
@@ -104,7 +104,7 @@ subroutine DefineSpecies
RAMSpecies(4)%WPI = .false.
RAMSpecies(4)%CEX = .true.
RAMSpecies(4)%FLC = .true.
- RAMSpecies(4)%EMIC = .true.
+ RAMSpecies(4)%EMIC = .false.
RAMSpecies(4)%CEX_file = 'na'
RAMSpecies(4)%CEX_species = 'na'
RAMSpecies(4)%Initialization = 'InitializationFile'
diff --git a/src/ModSceInit.f90 b/src/ModSceInit.f90
index e04f9b1..b7d7f46 100644
--- a/src/ModSceInit.f90
+++ b/src/ModSceInit.f90
@@ -8,7 +8,7 @@ subroutine sce_allocate
use ModSceGrids, ONLY: Iono_nTheta, Iono_nPsi
use ModSceVariables
-
+ use ModRamGrids, ONLY: nE
use nrtype, ONLY: DP
implicit none
@@ -19,54 +19,44 @@ subroutine sce_allocate
allocate(JrIono(2*a-1,b), energy_fluxIono(2*a-1,b), ave_eIono(2*a-1,b), &
num_fluxIono(2*a-1,b), dis_energy_fluxIono(2*a-1,b), &
- dis_ave_eIono(2*a-1,b))
+ dis_ave_eIono(2*a-1,b), diff_fluxIono(2*a-1,b,nE))
JrIono = 0.0_dp; energy_fluxIono = 0.0_dp; ave_eIono = 0.0_dp
num_fluxIono = 0.0_dp; dis_energy_fluxIono = 0.0_dp; dis_ave_eIono = 0.0_dp
+ diff_fluxIono = 0.0_dp
- allocate(dTheta_North(a), dPsi_North(b), HighLatBoundary(b))
- dTheta_North = 0.0_dp; dPsi_North = 0.0_dp; HighLatBoundary = 0.0_dp
+ allocate(dTheta_North(a), dPsi_North(b), HighLatBoundary(b), HighLatBoundaryIM(b))
+ dTheta_North = 0.0_dp; dPsi_North = 0.0_dp; HighLatBoundary = 0.0_dp; HighLatBoundaryIM=0.0_dp
allocate(PhiIono_Weimer(a,b), iHighBnd(b))
PhiIono_Weimer = 0.0_dp; iHighBnd = 0;
- allocate(PhiOld_CB(a,b,2))
+ allocate(PhiOld_CB(a,b))
PhiOld_CB = 0.0_dp
allocate(IONO_NORTH_PHI(a,b), IONO_NORTH_X(a,b), IONO_NORTH_Y(a,b), &
IONO_NORTH_Z(a,b), IONO_NORTH_Theta(a,b), IONO_NORTH_Psi(a,b), &
- IONO_NORTH_Ex(a,b), IONO_NORTH_Ey(a,b), IONO_NORTH_Ez(a,b), &
- IONO_NORTH_ETh(a,b), IONO_NORTH_EPs(a,b), IONO_NORTH_Ux(a,b), &
- IONO_NORTH_Uy(a,b), IONO_NORTH_Uz(a,b), IONO_NORTH_UTh(a,b), &
- IONO_NORTH_UPs(a,b), IONO_NORTH_EFlux(a,b), IONO_NORTH_Ave_E(a,b), &
+ IONO_NORTH_EFlux(a,b), IONO_NORTH_Ave_E(a,b), &
IONO_NORTH_Sigma0(a,b), IONO_NORTH_SigmaH(a,b), IONO_NORTH_SigmaP(a,b), &
IONO_NORTH_SigmaThTh(a,b), IONO_NORTH_SigmaThPs(a,b), &
IONO_NORTH_SigmaPsPs(a,b), IONO_NORTH_dSigmaThTh_dTheta(a,b), &
IONO_NORTH_dSigmaThPs_dTheta(a,b), IONO_NORTH_dSigmaPsPs_dTheta(a,b), &
IONO_NORTH_dSigmaThTh_dPsi(a,b), IONO_NORTH_dSigmaThPs_dPsi(a,b), &
IONO_NORTH_dSigmaPsPs_dPsi(a,b), SAVE_NORTH_SigmaH(a,b), &
- SAVE_NORTH_SigmaP(a,b), IONO_NORTH_Joule(a,b))
+ SAVE_NORTH_SigmaP(a,b))
IONO_NORTH_PHI = 0.0_dp; IONO_NORTH_X = 0.0_dp; IONO_NORTH_Y = 0.0_dp
IONO_NORTH_Z = 0.0_dp; IONO_NORTH_Theta = 0.0_dp; IONO_NORTH_Psi = 0.0_dp
- IONO_NORTH_Ex = 0.0_dp; IONO_NORTH_Ey = 0.0_dp; IONO_NORTH_Ez = 0.0_dp
- IONO_NORTH_ETh = 0.0_dp; IONO_NORTH_EPs = 0.0_dp; IONO_NORTH_Ux = 0.0_dp
- IONO_NORTH_Uy = 0.0_dp; IONO_NORTH_Uz = 0.0_dp; IONO_NORTH_UTh = 0.0_dp
- IONO_NORTH_UPs = 0.0_dp; IONO_NORTH_EFlux = 0.0_dp; IONO_NORTH_Ave_E = 0.0_dp
+ IONO_NORTH_EFlux = 0.0_dp; IONO_NORTH_Ave_E = 0.0_dp
IONO_NORTH_Sigma0 = 0.0_dp; IONO_NORTH_SigmaH = 0.0_dp; IONO_NORTH_SigmaP = 0.0_dp
IONO_NORTH_SigmaThTh = 0.0_dp; IONO_NORTH_SigmaThPs = 0.0_dp
IONO_NORTH_SigmaPsPs = 0.0_dp; IONO_NORTH_dSigmaThTh_dTheta = 0.0_dp
IONO_NORTH_dSigmaThPs_dTheta = 0.0_dp; IONO_NORTH_dSigmaPsPs_dTheta = 0.0_dp
IONO_NORTH_dSigmaThTh_dPsi = 0.0_dp; IONO_NORTH_dSigmaThPs_dPsi = 0.0_dp
IONO_NORTH_dSigmaPsPs_dPsi = 0.0_dp; SAVE_NORTH_SigmaH = 0.0_dp
- SAVE_NORTH_SigmaP = 0.0_dp; IONO_NORTH_Joule(a,b) = 0.0_dp
+ SAVE_NORTH_SigmaP = 0.0_dp
- allocate(IONO_NORTH_JR(a,b), IONO_NORTH_JTh(a,b), IONO_NORTH_JPs(a,b), &
- IONO_NORTH_Jx(a,b), IONO_NORTH_Jy(a,b), IONO_NORTH_Jz(a,b), &
- IONO_NORTH_TGCM_JR(a,b), IONO_NORTH_AMIE_JR(a,b), &
- IONO_NORTH_Fake_JR(a,b), IONO_NORTH_IonNumFlux(a,b))
- IONO_NORTH_JR = 0.0_dp; IONO_NORTH_JTh = 0.0_dp; IONO_NORTH_JPs = 0.0_dp
- IONO_NORTH_Jx = 0.0_dp; IONO_NORTH_Jy = 0.0_dp; IONO_NORTH_Jz = 0.0_dp
- IONO_NORTH_TGCM_JR = 0.0_dp; IONO_NORTH_AMIE_JR = 0.0_dp
- IONO_NORTH_Fake_JR = 0.0_dp; IONO_NORTH_IonNumFlux = 0.0_dp
+ allocate(IONO_NORTH_JR(a,b), IONO_NORTH_IonNumFlux(a,b))
+ IONO_NORTH_JR = 0.0_dp
+ IONO_NORTH_IonNumFlux = 0.0_dp
allocate(iono_north_im_jr(a,b), iono_north_im_avee(a,b), iono_north_im_eflux(a,b), &
iono_north_im_dis_avee(a,b), iono_north_im_dis_eflux(a,b))
@@ -88,9 +78,9 @@ subroutine sce_deallocate
deallocate(JrIono, energy_fluxIono, ave_eIono, &
num_fluxIono, dis_energy_fluxIono, &
- dis_ave_eIono)
+ dis_ave_eIono, diff_fluxIono)
- deallocate(dTheta_North, dPsi_North, HighLatBoundary)
+ deallocate(dTheta_North, dPsi_North, HighLatBoundary, HighLatBoundaryIM)
deallocate(PhiIono_Weimer, iHighBnd)
@@ -98,22 +88,16 @@ subroutine sce_deallocate
deallocate(IONO_NORTH_PHI, IONO_NORTH_X, IONO_NORTH_Y, &
IONO_NORTH_Z, IONO_NORTH_Theta, IONO_NORTH_Psi, &
- IONO_NORTH_Ex, IONO_NORTH_Ey, IONO_NORTH_Ez, &
- IONO_NORTH_ETh, IONO_NORTH_EPs, IONO_NORTH_Ux, &
- IONO_NORTH_Uy, IONO_NORTH_Uz, IONO_NORTH_UTh, &
- IONO_NORTH_UPs, IONO_NORTH_EFlux, IONO_NORTH_Ave_E, &
+ IONO_NORTH_EFlux, IONO_NORTH_Ave_E, &
IONO_NORTH_Sigma0, IONO_NORTH_SigmaH, IONO_NORTH_SigmaP, &
IONO_NORTH_SigmaThTh, IONO_NORTH_SigmaThPs, &
IONO_NORTH_SigmaPsPs, IONO_NORTH_dSigmaThTh_dTheta, &
IONO_NORTH_dSigmaThPs_dTheta, IONO_NORTH_dSigmaPsPs_dTheta, &
IONO_NORTH_dSigmaThTh_dPsi, IONO_NORTH_dSigmaThPs_dPsi, &
IONO_NORTH_dSigmaPsPs_dPsi, SAVE_NORTH_SigmaH, &
- SAVE_NORTH_SigmaP, IONO_NORTH_Joule)
+ SAVE_NORTH_SigmaP)
- deallocate(IONO_NORTH_JR, IONO_NORTH_JTh, IONO_NORTH_JPs, &
- IONO_NORTH_Jx, IONO_NORTH_Jy, IONO_NORTH_Jz, &
- IONO_NORTH_TGCM_JR, IONO_NORTH_AMIE_JR, &
- IONO_NORTH_Fake_JR)
+ deallocate(IONO_NORTH_JR)
deallocate(iono_north_im_jr, iono_north_im_avee, iono_north_im_eflux, &
iono_north_im_dis_avee, iono_north_im_dis_eflux)
diff --git a/src/ModSceIono.f90 b/src/ModSceIono.f90
index 1d75a96..ece117a 100644
--- a/src/ModSceIono.f90
+++ b/src/ModSceIono.f90
@@ -9,57 +9,35 @@ MODULE ModSceIono
contains
!==================================================================================================
- subroutine FACs_to_fluxes_North
+ subroutine ionosphere_fluxes(iModel)
!\
- ! The goal here is to convert the ionospheric FAC pattern into a
- ! particle precipitation pattern, which can then be turned into
- ! a conductance pattern.
+ ! Combine the diffusive and discrete precipitating fluxes
!/
use ModSceGrids, ONLY: Iono_nTheta, Iono_nPsi
- use ModSceVariables, ONLY: Hall_to_Ped_Ratio, PolarCapPedConductance, IONO_Min_Ave_E, &
+ use ModSceVariables, ONLY: IONO_Min_Ave_E, &
IONO_Min_EFlux, iono_north_im_eflux, iono_north_im_avee, &
iono_north_im_dis_eflux, iono_north_im_dis_avee, &
- iono_north_ave_e, iono_north_eflux
+ iono_north_im_eflux_diff, &
+ iono_north_ave_e, iono_north_eflux, iono_north_eflux_diff
use nrtype, ONLY: DP
implicit none
-
- real(DP) :: PolarCapHallConductance, PolarCap_AveE, PolarCap_EFlux
- real(DP) :: MulFac_Dae, MulFac_Def, MulFac_ae, MulFac_ef
+
+ integer, intent(in) :: iModel
real(DP), allocatable :: discrete_ef(:,:), discrete_ae(:,:), &
diffuse_ef(:,:), diffuse_ae(:,:)
!---------------------------------------------------------------------------
- allocate(discrete_ef(Iono_nTheta,Iono_nPsi), discrete_ae(Iono_nTheta,Iono_nPsi), &
+ ! iModel = 7: IM precipitation flux + Robinson's formula
+ ! iModel = 9: IM precipitation flux + GLOW's calculation
+ allocate(discrete_ef(Iono_nTheta,Iono_nPsi), discrete_ae(Iono_nTheta,Iono_nPsi), &
diffuse_ef(Iono_nTheta,Iono_nPsi), diffuse_ae(Iono_nTheta,Iono_nPsi))
- Hall_to_Ped_Ratio = 1.5
-
- if (PolarCapPedConductance > 0.0) then
- PolarCapHallConductance = Hall_to_Ped_Ratio * PolarCapPedConductance
- PolarCap_AveE = (Hall_to_Ped_Ratio/0.45)**(1.0/0.85)
- PolarCap_EFlux = ((PolarCapPedConductance*(16.0 + PolarCap_AveE**2) / &
- (40.0*PolarCap_AveE))**2)/1000.0 ! convert ergs/cm2/s to W/m2
- else
- PolarCap_AveE = IONO_Min_Ave_E
- PolarCap_EFlux = IONO_Min_EFlux
- endif
-
- MulFac_Dae = 1.0e22
- MulFac_Def = 1.0e19
- MulFac_ef = 0.3e6
- MulFac_ae = 4.0e-12
-
- !Yu: recalculate the coefficients (by comparing to J. Raeder's formulas. take F1=4)
- MulFac_Dae = 0.0267
- MulFac_Def = 6.0e17
-
!\
! pass the diffuse energy from IM integrated over the loss cone due to WPI
!/
-
diffuse_ef = iono_north_im_eflux/1000.0 ! from ergs/cm^2s to W/m^2
where (diffuse_ef < IONO_Min_EFlux) diffuse_ef = IONO_Min_EFlux
@@ -76,8 +54,6 @@ subroutine FACs_to_fluxes_North
discrete_ae = iono_north_im_dis_avee
where (discrete_ae > 20.0) discrete_ae = 20.0
- !\
- !/
where (diffuse_ae < IONO_Min_Ave_E/2) diffuse_ae = IONO_Min_Ave_E/2
where (discrete_ae < IONO_Min_Ave_E/2) discrete_ae = IONO_Min_Ave_E/2
@@ -89,16 +65,22 @@ subroutine FACs_to_fluxes_North
iono_north_eflux = (diffuse_ef/diffuse_ae + discrete_ef/discrete_ae) * iono_north_ave_e
where (iono_north_ave_e < IONO_Min_Ave_E) iono_north_ave_e = IONO_Min_Ave_E
+ if (iModel .eq. 9)then !!! only consider diffuse if coupled to GLOW.
+ iono_north_eflux = diffuse_ef ! ergs/cm^2/s/1000.
+ iono_north_ave_e = diffuse_ae ! keV
+ iono_north_eflux_diff = iono_north_im_eflux_diff ! differential electron flux (cm^2/s/sr/keV)
+ end if
+
deallocate(discrete_ef, discrete_ae, diffuse_ef, diffuse_ae)
return
- end subroutine FACs_to_Fluxes_North
+ end subroutine ionosphere_fluxes
!==================================================================================================
subroutine ionosphere_conductance(Sigma0, SigmaH, SigmaP, SigmaThTh, SigmaThPs, &
SigmaPsPs, dSigmaThTh_dTheta, dSigmaThPs_dTheta, &
dSigmaPsPs_dTheta, dSigmaThTh_dPsi, dSigmaThPs_dPsi, &
- dSigmaPsPs_dPsi, Eflux, Ave_E, Theta, Psi, nTheta, &
- nPsi, dTheta, dPsi, x, y, z)
+ dSigmaPsPs_dPsi, Eflux, Ave_E, Eflux_diff, Theta, Psi, nTheta, &
+ nPsi, dTheta, dPsi, iono_x, iono_y, iono_z, iModel)
!\
! This subroutine computes the height-integrated field-aligned and
@@ -107,36 +89,67 @@ subroutine ionosphere_conductance(Sigma0, SigmaH, SigmaP, SigmaThTh, SigmaThPs,
! these quantities are also computed.
!/
- use ModRamVariables, ONLY: F107
+ use ModRamVariables, ONLY: F107, EKEV
+ use ModRamMain, ONLY: PathSceOut
+ use ModRamGrids, ONLY: nE
+ use ModRamTiming, ONLY: TimeRamElapsed, TimeRamNow
- use ModSceGrids, ONLY: Iono_nTheta, Iono_nPsi
- use ModSceVariables, ONLY: IONO_NORTH_X, IONO_NORTH_Y, IONO_NORTH_Z, &
+ use ModSceGrids, ONLY: Iono_nTheta, Iono_nPsi
+ use ModSceVariables, ONLY: IONO_NORTH_X, IONO_NORTH_Y, IONO_NORTH_Z, &
StarLightPedConductance, SAVE_NORTH_SigmaH, &
- SAVE_NORTH_SigmaP, cosThetaTilt, sinThetaTilt
+ SAVE_NORTH_SigmaP, cosThetaTilt, sinThetaTilt, &
+ IONO_Radius, IONO_Height, nzGlow, DoUseFullSpec,&
+ DoSaveGLOWConductivity
- use nrtype, ONLY: DP, cDegtoRad
+ use nrtype, ONLY: DP, cDegtoRad, Pi_d
+
+ use ModIOUnit, ONLY: UnitTmp_
+ use CON_axes, ONLY: transform_matrix
+ use ModCoordTransform, ONLY: sph_to_xyz, xyz_to_sph
+ use ModRamMpi
+ use ModMpi
implicit none
+ integer, intent(in) :: iModel
integer, intent(in) :: nTheta, nPsi
real(DP), intent(inout) :: Sigma0(:,:), SigmaH(:,:), SigmaP(:,:), SigmaThTh(:,:), &
SigmaThPs(:,:), SigmaPsPs(:,:), dSigmaThTh_dTheta(:,:), &
dSigmaThPs_dTheta(:,:), dSigmaPsPs_dTheta(:,:), &
dSigmaThTh_dPsi(:,:), dSigmaThPs_dPsi(:,:), &
- dSigmaPsPs_dPsi(:,:), Eflux(:,:), Ave_E(:,:), Theta(:,:), &
- Psi(:,:), x(:,:), y(:,:), z(:,:), dTheta(:), dPsi(:)
- integer :: i, j
+ dSigmaPsPs_dPsi(:,:), Eflux(:,:), Ave_E(:,:), Eflux_diff(:,:,:), &
+ Theta(:,:), Psi(:,:), iono_x(:,:), iono_y(:,:), iono_z(:,:), dTheta(:), dPsi(:)
+ integer :: i, j, k
logical :: old
real(DP) :: f107p53, f107p49, cos_limit, meeting_value_p, meeting_value_h, &
SigmaH_EUV, SigmaP_EUV, SigmaH_SCAT, SigmaP_SCAT, SigmaH_EUV_2, &
SigmaP_EUV_2, SigmaH_STAR, SigmaP_STAR, sn, cs, sn2, cs2, cs3, &
- cs4, C, SigmaH_Particles, SigmaP_Particles
+ cs4, C
+
+ real :: ut
+ real(DP) :: rIono, XyzSmg(3), XyzGeo(3),iap(7),hr, ap, f107r, f107a, f107p, f107y
+ integer :: iyear, imonth, iday, ihour, iminute, isecond, idoy, ndaymo,ap0, &
+ ipoint, idate,isdate
+ character(len=100) :: NameFile
real(DP), allocatable :: cos_SZA(:,:)
- allocate(cos_SZA(nTheta,nPsi))
+ real(DP), allocatable :: SigmaH_Glow(:,:), SigmaP_Glow(:,:), &
+ SigmaH_Glow_all(:,:), SigmaP_Glow_all(:,:),&
+ SigmaH_all(:,:), SigmaP_all(:,:),&
+ SigmaH_Particles(:,:), SigmaP_Particles(:,:),&
+ glat(:,:), glong(:,:)
+ real(DP), allocatable:: zz(:,:,:), ionrate(:,:,:), eDen(:,:,:),&
+ Pedcond(:,:,:), Hallcond(:,:,:), &
+ zz_all(:,:,:),ionrate_all(:,:,:), eDen_all(:,:,:),&
+ Pedcond_all(:,:,:), Hallcond_all(:,:,:)
+
+ character(len=*), parameter :: NameSub='ionosphere_conductance'
+ !-------------------------------------------------------------------------
+ allocate(cos_SZA(nTheta,nPsi), SigmaH_Particles(1:IONO_nTheta,1:IONO_NPsi), &
+ SigmaP_Particles(1:IONO_nTheta,1:IONO_NPsi))
- cos_SZA = (x*cosTHETATilt-z*sinTHETATilt)/sqrt(x**2 + y**2 + z**2)
+ cos_SZA = (iono_x*cosTHETATilt-iono_z*sinTHETATilt)/sqrt(iono_x**2 + iono_y**2 + iono_z**2)
! We are going to need F10.7 ^ 0.53 and F10.7 ^ 0.49 a lot,
! So, let's just store them straight away:
@@ -145,7 +158,48 @@ subroutine ionosphere_conductance(Sigma0, SigmaH, SigmaP, SigmaThTh, SigmaThPs,
cos_limit = cos(70.0*cDegToRad)
meeting_value_p = f107p49*(0.34*cos_limit+0.93*sqrt(cos_limit))
meeting_value_h = f107p53*(0.81*cos_limit+0.54*sqrt(cos_limit))
-
+
+ if (iModel .eq. 9)then
+ ! prepare parameters
+ iyear = TimeRamNow%iyear
+ imonth= TimeRamNow%iMonth
+ iday = TimeRamNow%iDay
+ iHour = TimeRamNow%iHour
+ iMinute=TimeRamNow%iMinute
+ iSecond=TimeRamNow%iSecond
+ ut = iHour * 3600. + iMinute * 60 + iSecond
+ hr = iHour + iMinute/60.0+iSecond/3600.
+
+ call moda(0, iyear, imonth, iday, idoy, ndaymo)
+ idate = (iyear-iyear/100*100)*1000+idoy
+
+ ! read in the parameters Ap, F107 (from irifun_2012.f) (ap0 in integer)
+ call apf_only(iyear, imonth, iday, f107r, f107p, f107a, f107y,ap0,isdate)
+ call apfmsis(isdate,hr,iap)
+ ap = iap(2) ! 3-hour ap index at current time
+
+ allocate(zz(1:IONO_nTheta,1:IONO_nPsi,nzGlow), &
+ ionrate(1:IONO_nTheta,1:IONO_nPsi,nzGlow), &
+ eDen(1:IONO_nTheta,1:IONO_nPsi,nzGlow), &
+ Pedcond(1:IONO_nTheta,1:IONO_nPsi,nzGlow), &
+ Hallcond(1:IONO_nTheta,1:IONO_nPsi,nzGlow),&
+ SigmaH_Glow(1:IONO_nTheta,1:IONO_NPsi), &
+ SigmaP_Glow(1:IONO_nTheta,1:IONO_NPsi), &
+ zz_all(1:IONO_nTheta,1:IONO_nPsi,nzGlow), &
+ ionrate_all(1:IONO_nTheta,1:IONO_nPsi,nzGlow), &
+ eDen_all(1:IONO_nTheta,1:IONO_nPsi,nzGlow), &
+ Pedcond_all(1:IONO_nTheta,1:IONO_nPsi,nzGlow), &
+ Hallcond_all(1:IONO_nTheta,1:IONO_nPsi,nzGlow),&
+ SigmaH_Glow_all(1:IONO_nTheta,1:IONO_NPsi), &
+ SigmaP_Glow_all(1:IONO_nTheta,1:IONO_NPsi), &
+ SigmaH_all(1:IONO_nTheta,1:IONO_NPsi), &
+ SigmaP_all(1:IONO_nTheta,1:IONO_NPsi), &
+ glat(1:IONO_nTheta,1:IONO_NPsi), &
+ glong(1:IONO_nTheta,1:IONO_NPsi))
+ end if
+
+
+ iPoint = -1
do j = 1, nPsi
do i = 1, nTheta
@@ -175,27 +229,153 @@ subroutine ionosphere_conductance(Sigma0, SigmaH, SigmaP, SigmaThTh, SigmaThPs,
SigmaH_STAR = StarLightPedConductance*2.0
SigmaP_STAR = StarLightPedConductance
+
+ if (iModel .ne. 9)then ! not use GLOW
+
+ !\
+ ! Use Robinson's Formula to convert the Ave_E and E_Flux to SigmaP and SigmaH
+ !/
+ SigmaP_Particles(i,j) = 40.0 * Ave_E(i,j) / (16.0 + Ave_E(i,j)*Ave_E(i,j)) &
+ * sqrt(EFlux(i,j)*1000.0)
- !\
- ! Use Robinson's Formula to convert the Ave_E and E_Flux to SigmaP and SigmaH
- !/
-
- SigmaP_Particles = 40.0 * Ave_E(i,j) / (16.0 + Ave_E(i,j)*Ave_E(i,j)) &
- * sqrt(EFlux(i,j)*1000.0)
-
- SigmaH_Particles = 0.45 * (Ave_E(i,j)**0.85) * SigmaP_Particles
-
- SigmaH(i,j) = sqrt(SigmaH_EUV*SigmaH_EUV + SigmaH_SCAT*SigmaH_SCAT &
- + SigmaH_STAR*SigmaH_STAR + SigmaH_Particles*SigmaH_Particles)
-
- SigmaP_EUV = SigmaP_EUV*SigmaP_EUV + SigmaP_SCAT*SigmaP_SCAT + SigmaP_STAR*SigmaP_STAR
-
- SigmaP_Particles = SigmaP_Particles*SigmaP_Particles
-
- SigmaP(i,j) = sqrt(SigmaP_EUV + SigmaP_Particles)
+ SigmaH_Particles(i,j) = 0.45 * (Ave_E(i,j)**0.85) * SigmaP_Particles(i,j)
+
+ SigmaH(i,j) = sqrt(SigmaH_EUV*SigmaH_EUV + &
+ SigmaH_SCAT*SigmaH_SCAT + &
+ SigmaH_STAR*SigmaH_STAR + &
+ SigmaH_Particles(i,j)*SigmaH_Particles(i,j))
+
+ SigmaP(i,j) = sqrt(SigmaP_EUV*SigmaP_EUV + &
+ SigmaP_SCAT*SigmaP_SCAT + &
+ SigmaP_STAR*SigmaP_STAR + &
+ + SigmaP_Particles(i,j)*SigmaP_Particles(i,j))
+
+ else
+ !\
+ ! use GLOW model for the conductance calculation including EUV etc.
+ ! For auroral: either with the single EFlux&Ave_E to assume Maxwellian or with
+ ! the FullSpetrum of the Eflux_differential.
+ ! Pass the following: time, location, ap, f107, ef, ev
+ !/
+ rIono = (IONO_Radius + IONO_Height)/IONO_Radius
+ call sph_to_xyz(rIono, Theta(i,j), Psi(i,j), xyzSmg)
+ XyzGeo = matmul(transform_matrix(TimeRamElapsed, 'SMG','GEO'), XyzSmg)
+ call xyz_to_sph(XyzGeo, rIono,glat(i,j),glong(i,j)) ! (r, theta, phi)
+
+ glong(i,j) = glong(i,j) * 180./Pi_d
+ glat(i,j) = 90 - glat(i,j) * 180./Pi_d !(north/south the same form)
+
+ !\
+ ! parallize the glow calculation for the 2D points over ionosphere
+ !/
+ if(nProc .gt. 1)then
+ iPoint = iPoint + 1
+ if (mod(iPoint, nProc) /=iProc)CYCLE
+ end if
+ !\
+ ! pass the energy flux and characteristic energy (half of the mean energy)
+ ! EFlux*1000 (ergs/cm^2/s); EFlux_Diff(/cm^2/s/sr/keV); Ave_E: keV
+ !/
+ if (EFlux(i,j)*1000. > 0.001 .and. Ave_E(i,j)/2.*1000. >1)then
+ call glow_aurora_conductance(idate, real(ut,DP), glat(i,j), glong(i,j), &
+ SigmaP_Glow(i,j), SigmaH_Glow(i,j), &
+ EFlux(i,j)*1000., Ave_E(i,j)/2., EFlux_Diff(i,j,:), EkeV(:), nE, &
+ real(ap,DP), real(f107r,DP), real(f107p,DP),&
+ real(f107a,DP), DoUseFullSpec, &
+ zz(i,j,1:nzGlow), ionrate(i,j,1:nzGlow), eDen(i,j,1:nzGlow), &
+ Pedcond(i,j,1:nzGlow), Hallcond(i,j,1:nzGlow), nzGlow)
+ else
+ SigmaP_Glow(i,j) = 0.0
+ SigmaH_Glow(i,j) = 0.0
+ end if
+
+ ! If the glow model provides the solar flux & auroral flux related conductance.
+ ! SigmaH(i,j) = SigmaH_Glow(i,j)
+ ! SigmaP(i,j) = SigmaP_Glow(i,j)
+ ! else add the EUV-conductance here as follows.
+
+ SigmaH(i,j) = sqrt(SigmaH_EUV*SigmaH_EUV + &
+ SigmaH_SCAT*SigmaH_SCAT + &
+ SigmaH_STAR*SigmaH_STAR + &
+ SigmaH_Glow(i,j)*SigmaH_Glow(i,j))
+
+ SigmaP(i,j) = sqrt(SigmaP_EUV*SigmaP_EUV + &
+ SigmaP_SCAT*SigmaP_SCAT + &
+ SigmaP_STAR*SigmaP_STAR + &
+ SigmaP_Glow(i,j)*SigmaP_Glow(i,j))
+
+ end if
+
enddo
enddo
-
+
+
+ if (imodel .eq. 9 .and. nProc > 1)then
+ ! MPI reduce to the head node (iproc=0)
+
+ call MPI_reduce(SigmaP, SigmaP_all, nTheta*nPsi, MPI_REAL, MPI_SUM, 0, iComm, iError)
+ call MPI_reduce(SigmaH, SigmaH_all, nTheta*nPsi, MPI_REAL, MPI_SUM, 0, iComm, iError)
+
+ call MPI_reduce(SigmaP_Glow, SigmaP_Glow_all, nTheta*nPsi, MPI_REAL, MPI_SUM, 0, iComm, iError)
+ call MPI_reduce(SigmaH_Glow, SigmaH_Glow_all, nTheta*nPsi, MPI_REAL, MPI_SUM, 0, iComm, iError)
+
+ call MPI_reduce(zz, zz_all, nTheta*nPsi*nzGlow, MPI_REAL, MPI_SUM, 0, iComm, iError)
+ call MPI_reduce(ionrate, ionrate_all, nTheta*nPsi*nzGlow, MPI_REAL, MPI_SUM, 0, iComm, iError)
+ call MPI_reduce(eDen, eDen_all, nTheta*nPsi*nzGlow, MPI_REAL, MPI_SUM, 0, iComm, iError)
+ call MPI_reduce(Pedcond, Pedcond_all, nTheta*nPsi*nzGlow, MPI_REAL, MPI_SUM, 0, iComm, iError)
+ call MPI_reduce(Hallcond,Hallcond_all,nTheta*nPsi*nzGlow, MPI_REAL, MPI_SUM, 0, iComm, iError)
+
+ if(iProc==0)then
+
+ SigmaP = SigmaP_all
+ SigmaH = SigmaH_all
+
+ SigmaP_Glow = SigmaP_Glow_all
+ SigmaH_Glow = SigmaH_Glow_all
+
+ zz = zz_all
+ ionrate = ionrate_all
+ eDen = eDen_all
+ Pedcond = Pedcond_all
+ Hallcond= Hallcond_all
+ end if
+ !bcast to other processors
+ call MPI_bcast(SigmaP, nTheta*nPsi,MPI_REAL,0,iComm,iError)
+ call MPI_bcast(SigmaH, nTheta*nPsi,MPI_REAL,0,iComm,iError)
+ end if
+ !! write out the conductance into file
+ if(iModel .eq. 9)then
+ if (iProc==0 .and. DoSaveGLOWConductivity)then
+ if (mod(TimeRamElapsed, 300.0) .eq. 0)then
+ write(namefile, '(a,i6.6,a)')PathSceOut//"Conductance_",nint(TimeRamElapsed/300.),".dat"
+ open(UnitTmp_, file=trim(namefile),status='unknown')
+ write(UnitTmp_, '(a, i3.3)')'nHeight: ', nzGlow
+ write(UnitTmp_, '(a, i4.4,1x,i2.2,1x, i2.2,1x,i2.2,1x,i2.2))')'Time: ', iyear, imonth,&
+ iday, ihour, iminute
+ write(unitTmp_, '(a)')'Theta Psi Glat Glon EFlux Emean SigamP_all SigmaH_all SigmaP_Glow SigamH_Glow'
+
+ do j=1, nPsi
+ do i=1, nTheta
+
+ write(UnitTmp_,'(1x, 10f9.4)')&
+ Theta(i,j), Psi(i,j), glat(i,j), glong(i,j), EFlux(i,j)*1000, Ave_E(i,j), &
+ SigmaP(i,j),SigmaH(i,j), SigmaP_Glow(i,j), SigmaH_Glow(i,j)
+
+ !only write out height-dependent result if GLOW is called.
+ if (EFlux(i,j)*1000. > 0.001 .and. Ave_E(i,j)/2.*1000. >1)then
+ write(unitTmp_, '(a)')' zz ionization_rate Ne Pedconductivity Halconductivity'
+ do k=1,nzGlow
+ write(UnitTmp_,'(f10.4, 4e12.3)')zz(i,j,k), ionrate(i,j,k), eDen(i,j,k), &
+ Pedcond(i,j,k), Hallcond(i,j,k)
+ end do
+ end if
+ end do
+ end do
+ close(UnitTmp_)
+ end if
+ end if
+ end if
+
do j = 1, nPsi
do i = 1, nTheta
@@ -258,197 +438,15 @@ subroutine ionosphere_conductance(Sigma0, SigmaH, SigmaP, SigmaThTh, SigmaThPs,
end if
end do
- deallocate(cos_SZA)
+ if(iModel .eq. 9)deallocate(zz,ionrate,eDen,PedCond,HallCond,SigmaH_GLOW,SigmaP_GLOW,&
+ zz_all,ionrate_all,eDen_all,PedCond_all,HallCond_all,SigmaH_GLOW_all,SigmaP_GLOW_all,&
+ SigmaH_all,SigmaP_all, glat, glong)
+
+ deallocate(cos_SZA,SigmaH_Particles,SigmaP_Particles)
return
end subroutine ionosphere_conductance
-!==================================================================================================
- subroutine ionosphere_currents(Jx, Jy, Jz, Ex, Ey, Ez, ETh, EPs, Ux, Uy, Uz, &
- PHI, SigmaThTh, SigmaThPs, SigmaPsPs, X, Y, Z, &
- Theta, Psi, dTheta, dPsi)
-
- !\
- ! For the calculated ionospheric potential solution,
- ! this routine determines the ionospheric currents and
- ! electric fields, as well as convection velocities.
- !/
-
- use ModRamTiming, ONLY: TimeRamElapsed
- use ModSceGrids, ONLY: Iono_nTheta, Iono_nPsi
- use ModSceVariables, ONLY: IONO_TOLER, IONO_NORTH_JTh, IONO_NORTH_JPs, &
- IONO_Radius, IONO_Height, Radius
-
- use nrtype, ONLY: DP
-
- use ModCoordTransform, ONLY: dir_to_xyz, cross_product
- use CON_planet_field, ONLY: get_planet_field
-
- implicit none
-
- integer, parameter :: nTheta = IONO_nTheta, nPsi = IONO_nPsi
-
- real(DP), intent(inout) :: PHI(:,:), SigmaThTh(:,:), SigmaThPs(:,:), &
- SigmaPsPs(:,:), Jx(:,:), Jy(:,:), Jz(:,:), &
- Ex(:,:), Ey(:,:), Ez(:,:), ETh(:,:), EPs(:,:), &
- Ux(:,:), Uy(:,:), Uz(:,:), X(:,:), Y(:,:), &
- Z(:,:), Theta(:,:), Psi(:,:), dTheta(:), &
- dPsi(:)
-
- integer :: i, j
- real(DP) :: cosTheta, sinTheta, cosPhi, sinPhi, ER, JR, JTh, JPs, NormRadius
- real(DP) :: Xyz_D(3), b_D(3), Vp_D(3)
- !----------------------------------------------------------------------------
- ! Compute the ionospheric electric field.
- do j = 1, nPsi
- if (j > 1 .and. j < nPsi ) then
- do i = 2, nTheta-1
- sinTheta = sin(Theta(i,j))
- ETh(i,j) = -(PHI(i+1,j)-PHI(i-1,j))/(dTheta(i)*Radius)
- EPs(i,j) = -(PHI(i,j+1)-PHI(i,j-1))/(dPsi(j)*Radius*sinTheta)
- end do
- ETh(1,j) = -(PHI(2,j)-PHI(1,j))/(dTheta(1)*Radius)
- EPs(1,j) = EPs(2,j)
- ETh(nTheta,j) = -(PHI(nTheta,j)-PHI(nTheta-1,j))/(dTheta(nTheta)*Radius)
- EPs(nTheta,j) = EPs(nTheta-1,j)
- else if (j == 1) then
- do i = 2, nTheta-1
- sinTheta = sin(Theta(i,j))
- ETh(i,j) = -(PHI(i+1,j)-PHI(i-1,j))/(dTheta(i)*Radius)
- EPs(i,j) = -(PHI(i,j+1)-PHI(i,nPsi-1))/(dPsi(j)*Radius*sinTheta)
- end do
- ETh(1,j) = -(PHI(2,j)-PHI(1,j))/(dTheta(1)*Radius)
- EPs(1,j) = EPs(2,j)
- ETh(nTheta,j) = -(PHI(nTheta,j)-PHI(nTheta-1,j))/(dTheta(nTheta)*Radius)
- EPs(nTheta,j) = EPs(nTheta-1,j)
- else
- do i = 2, nTheta-1
- sinTheta = sin(Theta(i,j))
- ETh(i,j) = -(PHI(i+1,j)-PHI(i-1,j))/(dTheta(i)*Radius)
- EPs(i,j) = -(PHI(i,2)-PHI(i,j-1))/(dPsi(j)*Radius*sinTheta)
- end do
- ETh(1,j) = -(PHI(2,j)-PHI(1,j))/(dTheta(1)*Radius)
- EPs(1,j) = EPs(2,j)
- ETh(nTheta,j) = -(PHI(nTheta,j)-PHI(nTheta-1,j))/(dTheta(nTheta)*Radius)
- EPs(nTheta,j) = EPs(nTheta-1,j)
- end if
- end do
-
- ! Compute the ionospheric currents convection velocities.
- do j = 1, nPsi
- do i = 1, nTheta
- cosTheta = cos(Theta(i,j))
- sinTheta = sin(Theta(i,j))
- cosPhi = cos(Psi(i,j))
- sinPhi = sin(Psi(i,j))
-
- if (i == nTheta) then
- ER = 0.00
- else
- ER = -0.50*(sinTheta/(cosTheta+IONO_Toler**2))*ETh(i,j)
- end if
-
- Ex(i,j) = ER*sinTheta*cosPhi + ETh(i,j)*cosTheta*cosPhi - EPs(i,j)*sinPhi
- Ey(i,j) = ER*sinTheta*sinPhi + ETh(i,j)*cosTheta*sinPhi + EPs(i,j)*cosPhi
- Ez(i,j) = ER*cosTheta - ETh(i,j)*sinTheta
-
- JR = 0.00
- JTh = SigmaThTh(i,j)*ETh(i,j) + SigmaThPs(i,j)*EPs(i,j)
- JPs = -SigmaThPs(i,j)*ETh(i,j) + SigmaPsPs(i,j)*EPs(i,j)
-
- IONO_NORTH_JTh(i,j) = JTh
- IONO_NORTH_JPs(i,j) = JPs
-
- Jx(i,j) = JR*sinTheta*cosPhi + JTh*cosTheta*cosPhi - JPs*sinPhi
- Jy(i,j) = JR*sinTheta*sinPhi + JTh*cosTheta*sinPhi + JPs*cosPhi
- Jz(i,j) = JR*cosTheta - JTh*sinTheta
-
- ! Calculate location in Cartesian coordinates
- call dir_to_xyz(SinTheta,CosTheta,SinPhi,CosPhi,Xyz_D)
- Xyz_D = Xyz_D * (IONO_Radius + IONO_Height) / IONO_Radius
- ! Get magnetic field and normalize it to unity
- call get_planet_field(TimeRamElapsed,Xyz_D,'SMG NORM',b_D)
-
- ! Get potential V = E x B/|B^2|
- b_D = b_D/sum(b_D**2)
- Vp_D = cross_product((/Ex(i,j), Ey(i,j), Ez(i,j)/), b_D)
-
- Ux(i,j) = Vp_D(1)
- Uy(i,j) = Vp_D(2)
- Uz(i,j) = Vp_D(3)
-
- end do
- end do
-
- end subroutine ionosphere_currents
-
-!==================================================================================================
- subroutine ionosphere_jouleheating_ionflux(ETh, EPs, SigmaP, Joule, IonNumFlux)
-
- !\
- ! Joule heating is determined by SigmaP * E^2
- !/
-
- use ModRamTiming, ONLY: TimeRamElapsed
- use ModSceGrids, ONLY: IONO_nTheta, IONO_nPsi
- use ModSceVariables, ONLY: IONO_NORTH_Theta, IONO_NORTH_Psi, IONO_Radius, Radius, &
- IONO_Height
-
- use nrtype, ONLY: DP
-
- use CON_planet_field
- use ModCoordTransform, ONLY: sph_to_xyz
-
- implicit none
-
- real(DP), intent(inout) :: SigmaP(:,:), ETh(:,:), EPs(:,:), Joule(:,:), IonNumFlux(:,:)
-
- integer :: i, j, iHemisphere
- real(DP) :: bIono, B, ratioOH
-
- real(DP) :: B_D(3), bIono_D(3), XyzIono_D(3), Xyz_tmp(3)
- real(DP), parameter :: height_fast = 4.0e6
-
- !\
- ! Joule heating is assumed to be equal to Poynting Flux,
- ! since according to the Poynting Theorem, divergence of S = J*E,
- ! which is integral(S dA) = integral(J*E dV),
- ! but J in the formula is current density with a unit of A/m^3.
- ! In this routine, J is height-integrated (A/m^2), therefore,
- ! J * E = S in this code.
- !/
-
- Joule(:,:) =0.0
- IonNumFlux(:,:) = 0.0
- ! Joule heating (or Poynting flux) at ionosphere altitude
- Joule = SigmaP * (ETh**2+EPs**2)
-
- !\
- ! Ion number flux at ionosphere altitude, based on Strangeway et al(2005):
- ! At an altitude of 4000km(where the FAST orbit), f = 2.142e7 * (S)^1.265,
- ! where unit of f is 1/(cm^2 * s), and unit of S is mW/m^2
- !/
-
- ! Mapping to the ionosphere altitude along dipole magnetic field lines
- do i = 1, IONO_nTheta
- do j = 1, IONO_nPsi
- call sph_to_xyz(Radius, IONO_NORTH_Theta(i,j), IONO_NORTH_Psi(i,j), XyzIono_D)
- call get_planet_field(TimeRamElapsed, XyzIono_D, 'SMG', bIono_D)
- bIono = sqrt(sum(bIono_D**2))
-
- call map_planet_field(TimeRamElapsed, XyzIono_D, 'SMG', (height_fast + IONO_Radius),Xyz_tmp, iHemisphere)
- call get_planet_field(TimeRamElapsed, Xyz_tmp, 'SMG', B_D)
- b = sqrt(sum(B_D**2))
-
- ! Flux at ionosphere altitude by mapping both S and f down to the ionosphere
- ! from 4000km, caution in the units (flux in /m^2/s, jouleheating in W/m^2)
- ! The total ion number flux = No * Vo
- IonNumFlux(i,j) = 2.142e7 * (Joule(i,j)*1.0e3)**1.265 * (b/bIono)**0.265 * 1.0e4
- end do
- end do
-
- end subroutine ionosphere_jouleheating_ionflux
-
!==================================================================================================
subroutine ionosphere_solver(Jr, SigmaThTh, SigmaThPs, SigmaPsPs, &
dSigmaThTh_dTheta, dSigmaThPs_dTheta, &
@@ -456,6 +454,7 @@ subroutine ionosphere_solver(Jr, SigmaThTh, SigmaThPs, SigmaPsPs, &
dSigmaThPs_dPsi, dSigmaPsPs_dPsi, &
Theta, Psi, dTheta, dPsi, Phi_C)
+ ! Modified from SWMF/Ridley_serials IE solver. By Yu & Toth, 2016.
!
! This subroutine solves for the ionospheric potential PHI
! using the field aligned currents Jr and the conductivity tensor Sigma
@@ -508,8 +507,8 @@ subroutine ionosphere_solver(Jr, SigmaThTh, SigmaThPs, SigmaPsPs, &
use ModSceGrids, ONLY: IONO_nTheta, IONO_nPsi
use ModSceVariables, ONLY: nThetaUsed, LatBoundary, HighLatBoundary, nThetaSolver, &
PhiIono_Weimer, nX, C_A, C_B, C_C, C_D, C_E, north, &
- Radius, MaxIteration, UseWeimer, DoPrecond, USeInitialGuess, &
- PhiOld_CB, cpcp_north, Tolerance, iHighBnd
+ Radius, MaxIteration, UseWeimer, DoPrecond, UsePreconditioner,USeInitialGuess, &
+ PhiOld_CB, cpcp, Tolerance, iHighBnd, NameSolver
use nrtype, ONLY: DP, pio2_d, pi_d, cRadtoDeg
@@ -526,7 +525,7 @@ subroutine ionosphere_solver(Jr, SigmaThTh, SigmaThPs, SigmaPsPs, &
integer, parameter :: nTheta = IONO_nTheta, nPsi = IONO_nPsi, nPsiUsed=nPsi-1
! Local variables
- integer :: i, j, k, iMin, iMax, iI, nIteration, iError, iBlock
+ integer :: i, j, k, iMin, iMax, iI, nIteration, iError
real(DP) :: TermTheta2, TermTheta1, TermPsi2, TermPsi1, sn, cs, sn2, Residual, &
PhiMax, PhiMin
@@ -534,13 +533,11 @@ subroutine ionosphere_solver(Jr, SigmaThTh, SigmaThPs, SigmaPsPs, &
dTheta2(:), dPsi2(:), SinTheta_I(:), CosTheta_I(:)
logical :: DoTest, DoTestMe
+ character(len=*), parameter :: NameSub = 'ionosphere_solver'
!-------------------------------------------------------------------------
allocate(lat_weimer(nTheta,nPsi), mlt_weimer(ntheta,nPsi), &
dTheta2(nTheta), dPsi2(nPsi), SinTheta_I(nTheta), CosTheta_I(nTheta))
- if (north) iBlock = 1
- if (.not. north) iBlock = 2
-
! Count the points above the latitude boundary
nThetaUsed = count(abs(pio2_d-Theta(1:nTheta,1)) > LatBoundary)
@@ -648,7 +645,7 @@ subroutine ionosphere_solver(Jr, SigmaThTh, SigmaThPs, SigmaPsPs, &
b = b - Bnd_I
UseWeimer = .False.
- DoPrecond = .False.
+ DoPrecond = UsePreconditioner
if(DoPrecond)then
! A -> LU
call prehepta(nX,1,nThetaSolver,nX,real(-0.5,kind=8),d_I,e_I,f_I,e1_I,f1_I)
@@ -664,26 +661,26 @@ subroutine ionosphere_solver(Jr, SigmaThTh, SigmaThPs, SigmaPsPs, &
do j = 1, nPsiUsed
do i=iMin,iMax
iI = iI + 1
- x(iI) = PhiOld_CB(i,j,iBlock)
+ x(iI) = PhiOld_CB(i,j)
end do
end do
else
x = 0.0
end if
- !select case(NameSolver)
- !case('gmres')
- ! nIteration = MaxIteration
- ! call gmres(matvec_ionosphere, b, x, UseInitialGuess, nX, MaxIteration, Residual, 'abs', nIteration, iError, DoTestMe)
- !case('bicgstab')
+ select case(NameSolver)
+ case('gmres')
+ nIteration = MaxIteration
+ call gmres(matvec_ionosphere, b, x, UseInitialGuess, nX, MaxIteration, Residual, 'abs', nIteration, iError, DoTestMe)
+ case('bicgstab')
nIteration = 3*MaxIteration
call bicgstab(matvec_ionosphere, b, x, UseInitialGuess, nX, Residual, 'abs', nIteration, iError, DoTestMe)
- !case default
- ! call CON_stop(NameSub//': unknown NameSolver='//NameSolver)
- !end select
+ case default
+ call CON_stop(NameSub//': unknown NameSolver='//NameSolver)
+ end select
! Phi_C is the solution within the solved region
- Phi_C(1:iMin,:) = PhiIono_Weimer(1:iMin,:)
+ Phi_C(1:iMin,:) = 0.0 !PhiIono_Weimer(1:iMin,:)
iI = 0
do j=1, nPsiUsed
do i = iMin, iMax
@@ -699,16 +696,16 @@ subroutine ionosphere_solver(Jr, SigmaThTh, SigmaThPs, SigmaPsPs, &
PhiMin = minval(Phi_C)
! Save the solution for next time
- PhiOld_CB(:,:,iBlock) = Phi_C
+ PhiOld_CB(:,:) = Phi_C
do j=1, nPsi-1
- PhiOld_CB(1:iHighBnd(j), j, iBlock) = PhiIono_Weimer(1:iHighBnd(j),j)
+ PhiOld_CB(1:iHighBnd(j), j) = PhiIono_Weimer(1:iHighBnd(j),j)
end do
! apply periodic boundary condition in Psi direction
- PhiOld_CB(:,nPsi,iBlock) = PhiOld_CB(:,1,iBlock)
+ PhiOld_CB(:,nPsi) = PhiOld_CB(:,1)
! Apply average condition at north pole
!Phi_C(1,:) = sum(Phi_C(2,1:nPsiUsed))/nPsiUsed
- cpcp_north = (PhiMax - PhiMin)/1000.0
+ cpcp = (PhiMax - PhiMin)/1000.0
deallocate(x, y, b, rhs,Bnd_I, d_I, e_I, f_I, e1_I, f1_I)
deallocate(lat_weimer, mlt_weimer, dTheta2, dPsi2, SinTheta_I, CosTheta_I)
@@ -757,15 +754,15 @@ subroutine matvec_ionosphere(x_I, y_I, n)
enddo
enddo
- !if (UseWeimer) then ! apply the boundary condition at high latitude
- do j=1, nPsi-1
- x_G(iMin-1:iHighBnd(j), j) = PhiIono_Weimer(iMin-1:iHighBnd(j),j)
- end do
- !else
- ! do j=1, nPsi-1
- ! x_G(iMin-1:iHighBnd(j), j) = 0.0
- ! end do
- !end if
+ if (UseWeimer) then ! apply the boundary condition at high latitude
+ do j=1, nPsi-1
+ x_G(iMin-1:iHighBnd(j), j) = PhiIono_Weimer(iMin-1:iHighBnd(j),j)
+ end do
+ else
+ do j=1, nPsi-1
+ x_G(iMin-1:iHighBnd(j), j) = 0.0
+ end do
+ end if
x_G(iMax+1,1:nPsi-1) = 0.0
! Apply periodic boundary conditions in Psi direction
@@ -904,6 +901,56 @@ subroutine iono_potential_weimer(lat, mlt, PhiWeimer)
end subroutine iono_potential_weimer
+!==================================================================================================
+subroutine glow_aurora_conductance(idate, ut, glat, glong, &
+ SigmaP, SigmaH, ef_in, ec_in, ef_diff,ekeV_diff, nE, &
+ ap,f107,f107p, f107a, flux_spec, z, ionrate, eDen, &
+ Pedcond, Hallcond, nz)
+
+ use ModGlowBasic, ONLY: glowbasic_ram
+ use nrtype, ONLY: pi_d
+
+ implicit none
+
+ real(DP), intent(in) :: glat, glong, ef_in, ec_in, &
+ f107,f107p,f107a, ut, ap
+ integer, intent(in) :: idate, nE, nz
+ logical, intent(in) :: flux_spec
+ real(DP), intent(in) :: ef_diff(nE), ekev_diff(nE)
+ real(DP), intent(out):: SigmaP, SigmaH
+ real(DP), dimension(nz), intent(out) :: z, ionrate, eDen, Pedcond, Hallcond
+ real(DP) :: ef, ec
+ real(DP) :: logef_diff(nE), logec_diff(nE), ef_diff_tmp(nE)
+ ! ---------------------------------------------------------------------
+ ! calculate the conductance from glow model
+ ef = ef_in ! ergs/cm^2/s
+ ec = ec_in*1.0e3 ! convert to eV
+
+ if (flux_spec .eqv. .true.)then
+ ef_diff_tmp = ef_diff
+
+! if (abs(glat - 55.026)< 0.1 .and. abs(glong - 344.779) < 0.1)then
+! write(*,*)'glat:',glat, 'glong:',glong
+! write(*,*)'ef_diff:',ef_diff
+! end if
+ ! Glow asks for /cm^2/s/eV for the flux
+ logef_diff = log10(ef_diff_tmp/1000.*pi_d) ! convert /cm^2/s/sr/keV to /cm^2/s/eV (integrate over pitch-angle)
+ logec_diff = log10(ekeV_diff*1.0e3) ! convert keV to eV
+ end if
+
+ if (flux_spec .eqv. .false.)then
+ ! pass only flux level and characteristic energy
+ call glowbasic_ram(idate,ut, glat, glong, ap, f107, f107p, f107a, &
+ ef, ec, SigmaP, SigmaH, nE, z, ionrate, eDen, Pedcond, Hallcond, nz)
+ else
+ ! pass the full flux spectra
+ call glowbasic_ram(idate, ut, glat, glong, ap, f107, f107p, f107a, &
+ ef, ec, SigmaP, SigmaH, nE, z, ionrate, eDen, Pedcond, Hallcond, nz, &
+ logec_diff, logef_diff)
+ end if
+
+end subroutine glow_aurora_conductance
+
!==================================================================================================
END MODULE ModSceIono
diff --git a/src/ModSceRun.f90 b/src/ModSceRun.f90
index 5df654e..8438997 100644
--- a/src/ModSceRun.f90
+++ b/src/ModSceRun.f90
@@ -28,21 +28,23 @@ subroutine sce_solve
use ModScbVariables, ONLY: pjconst
use ModSceGrids, ONLY: Iono_nTheta, Iono_nPsi
- use ModSceVariables, !ONLY: energy_fluxIono, ave_eIono, num_fluxIono, JrIono, &
- ! dis_energy_fluxIono, dis_ave_eIono, HighLatBoundaryIM, &
- ! SinThetaTilt, CosThetaTilt
-
- use ModSceIono, ONLY: ionosphere_conductance, ionosphere_currents, ionosphere_solver, &
- ionosphere_jouleheating_ionflux, facs_to_fluxes_north
+ use ModSceVariables
+ use ModSceIono, ONLY: ionosphere_conductance, ionosphere_solver, ionosphere_fluxes
use ModRamSce, ONLY: calculate_precip_flux_jr
-
+ use ModRamVariables, ONLY: species
+ use ModRamGrids, ONLY: nS
use nrtype, ONLY: DP, cDegtoRad, cRadtoDeg
implicit none
real(DP) :: rIonosphere
+ integer :: IS, S
!--------------------------------------------------------------------------
-
- north = .true.
+ do IS=1,nS
+ if (species(IS)%s_name .eq. 'Electron')then ! only the electron precipitation is used for SCE calculation
+ S=IS
+ exit
+ end if
+ end do
SinThetaTilt = sin(ThetaTilt)
CosThetaTilt = cos(ThetaTilt)
@@ -52,58 +54,51 @@ subroutine sce_solve
! these grids are from the ionosphere. In the following routine,
! the variables should be mapped down the iono. grids.
rIonosphere = 1.0+0.0172
- call calculate_precip_flux_jr(1, 2*Iono_nTheta-1, Iono_nPsi, rIonosphere, &
+
+ call calculate_precip_flux_jr(S, 2*Iono_nTheta-1, Iono_nPsi, rIonosphere, &
Energy_FluxIono, Ave_eIono, Num_FluxIono, &
Dis_Energy_FluxIono, Dis_Ave_eIono, &
- JrIono, HighLatBoundary) ! only for electrons
+ JrIono, HighLatBoundaryIM, Diff_FluxIono) ! only for electrons
JrIono = JrIono*1.0e-6 ! convert mA/m^2 to A/m^2
Energy_FluxIono = Energy_FluxIono*1.6e-9 ! convert keV/(cm^2s) to ergs/(cm^2s)
Ave_eIono = Ave_eIono ! keV
Dis_Energy_FluxIono = Dis_Energy_FluxIono*1.6e-9 ! convert keV/cm^2/s to ergs/cm2/s
Dis_Ave_eIono = Dis_Ave_eIono ! keV
- HighLatBoundary = HighLatBoundary*cRadToDeg
+ HighLatBoundary = HighLatBoundaryIM*cRadToDeg
iono_north_im_jr = JrIono(1:Iono_nTheta,:)
iono_north_im_eflux = Energy_FluxIono(1:Iono_nTheta,:)
iono_north_im_avee = Ave_eIono(1:Iono_nTheta,:)
iono_north_im_dis_eflux = Dis_Energy_FluxIono(1:Iono_nTheta,:)
iono_north_im_dis_avee = Dis_Ave_eIono(1:Iono_nTheta,:)
-
+ iono_north_im_eflux_diff = Diff_FluxIono(1:Iono_nTheta,:,:) ! differential flux !/cm^2/s/sr/keV
+
iono_north_im_jr(:,Iono_nPsi) = iono_north_im_jr(:,1)
iono_north_im_eflux(:,Iono_nPsi) = iono_north_im_eflux(:,1)
iono_north_im_avee(:,Iono_nPsi) = iono_north_im_avee(:,1)
iono_north_im_dis_eflux(:,Iono_nPsi) = iono_north_im_dis_eflux(:,1)
iono_north_im_dis_avee(:,Iono_nPsi) = iono_north_im_dis_avee(:,1)
-
+ iono_north_im_eflux_diff(:,Iono_nPsi,:) = iono_north_im_eflux_diff(:,1,:)
+
IONO_NORTH_JR = iono_north_im_jr
- call FACs_to_fluxes_North
+ call ionosphere_fluxes(Conductance_Model)
call ionosphere_conductance(IONO_NORTH_Sigma0, IONO_NORTH_SigmaH, IONO_NORTH_SigmaP, &
IONO_NORTH_SigmaThTh, IONO_NORTH_SigmaThPs, IONO_NORTH_SigmaPsPs, &
IONO_NORTH_dSigmaThTh_dTheta, IONO_NORTH_dSigmaThPs_dTheta, &
IONO_NORTH_dSigmaPsPs_dTheta, IONO_NORTH_dSigmaThTh_dPsi, &
IONO_NORTH_dSigmaThPs_dPsi, IONO_NORTH_dSigmaPsPs_dPsi, &
- IONO_NORTH_EFlux, IONO_NORTH_Ave_E, IONO_NORTH_Theta, &
- IONO_NORTH_Psi, IONO_nTheta, IONO_nPsi, dTheta_North, &
- dPsi_North, IONO_NORTH_X, IONO_NORTH_Y, IONO_NORTH_Z)
+ IONO_NORTH_EFlux, IONO_NORTH_Ave_E, IONO_NORTH_EFlux_Diff, &
+ IONO_NORTH_Theta, IONO_NORTH_Psi, IONO_nTheta, IONO_nPsi, &
+ dTheta_North, dPsi_North, IONO_NORTH_X, IONO_NORTH_Y, IONO_NORTH_Z,&
+ Conductance_Model)
call ionosphere_solver(IONO_NORTH_JR, IONO_NORTH_SigmaThTh, IONO_NORTH_SigmaThPs, &
IONO_NORTH_SigmaPsPs, IONO_NORTH_dSigmaThTh_dTheta, &
IONO_NORTH_dSigmaThPs_dTheta, IONO_NORTH_dSigmaPsPs_dTheta, &
IONO_NORTH_dSigmaThTh_dPsi, IONO_NORTH_dSigmaThPs_dPsi, &
IONO_NORTH_dSigmaPsPs_dPsi, IONO_NORTH_Theta, IONO_NORTH_Psi, &
dTheta_North, dPsi_North, IONO_NORTH_PHI)
- write(*,*) "Northern Cross Polar Cap Potential=",cpcp_north," kV"
- ! call ionosphere_currents(IONO_NORTH_Jx, IONO_NORTH_Jy, IONO_NORTH_Jz, &
- ! IONO_NORTH_Ex, IONO_NORTH_Ey, IONO_NORTH_Ez, &
- ! IONO_NORTH_ETh, IONO_NORTH_EPs, &
- ! IONO_NORTH_Ux, IONO_NORTH_Uy, IONO_NORTH_Uz, &
- ! IONO_NORTH_PHI, IONO_NORTH_SigmaThTh, &
- ! IONO_NORTH_SigmaThPs, IONO_NORTH_SigmaPsPs, &
- ! IONO_NORTH_X, IONO_NORTH_Y, IONO_NORTH_Z, &
- ! IONO_NORTH_Theta, IONO_NORTH_Psi, &
- ! dTheta_North, dPsi_North)
- ! call ionosphere_jouleheating_ionflux(IONO_NORTH_ETh, IONO_NORTH_EPs, IONO_NORTH_SigmaP, &
- ! IONO_NORTH_Joule, IONO_NORTH_IonNumFlux)
+ write(*,*) "Northern Cross Polar Cap Potential=",cpcp," kV"
return
end subroutine sce_solve
diff --git a/src/ModSceVariables.f90 b/src/ModSceVariables.f90
index f9bbd2f..e27eace 100644
--- a/src/ModSceVariables.f90
+++ b/src/ModSceVariables.f90
@@ -15,46 +15,36 @@ Module ModSceVariables
! From ModRamCouple
real(DP), allocatable :: JrIono(:,:), energy_fluxIono(:,:), ave_eIono(:,:), &
- num_fluxIono(:,:), dis_energy_fluxIono(:,:), dis_ave_eIono(:,:)
+ num_fluxIono(:,:), dis_energy_fluxIono(:,:), dis_ave_eIono(:,:),&
+ diff_fluxIono(:,:,:)
! From IE_Solve
- real(DP), allocatable :: HighLatBoundary(:)
+ real(DP), allocatable :: HighLatBoundary(:), HighLatBoundaryIM(:)
! From IE_ModMain
integer :: MaxIteration = 600
- real(DP) :: Hall_to_Ped_Ratio
- real(DP) :: PolarCapPedConductance = 0.25, &
- StarLightPedConductance = 0.50, &
- LatBoundary = 30.0 * cDegToRad
+ real(DP) :: StarLightPedConductance = 0.50, LatBoundary = 30.0 * cDegToRad
real(DP) :: Tolerance = 1.e-2
+ integer :: Conductance_Model
! From ModIonosphere
real(DP), parameter :: IONO_TOLER = 5.0e-05, &
- IONO_MU = 1.256637e-06, &
- IONO_Theta_0 = 0.0001, &
- IONO_Min_EFlux = 0.1e-16, & ! W/m2
- IONO_Min_Ave_E = 0.5, & ! keV
- Polar_Rain = 0.1e-2 ! W/m2
-
- integer, parameter :: IONO_Model_No_Hall = 1, &
- IONO_Model_With_Hall = 2, &
- IONO_Model_With_Simple_Aurora = 3, &
- IONO_Model_With_Complex_Aurora = 4
+ IONO_theta_0 = 0.001, &
+ IONO_Min_EFlux = 0.1e-16, & ! W/m2
+ IONO_Min_Ave_E = 0.5
integer :: nThetaUsed, nThetaSolver, nX
- real(DP) :: Radius, cpcp_north, IONO_Radius, IONO_Height
+ real(DP) :: Radius, cpcp, IONO_Radius, IONO_Height
real(DP), allocatable :: PhiIono_Weimer(:,:)
integer, allocatable :: iHighBnd(:)
- real(DP), allocatable :: PhiOld_CB(:,:,:)
+ real(DP), allocatable :: PhiOld_CB(:,:)
real(DP), allocatable :: IONO_NORTH_PHI(:,:), IONO_NORTH_X(:,:), IONO_NORTH_Y(:,:), &
IONO_NORTH_Z(:,:), IONO_NORTH_Theta(:,:), IONO_NORTH_Psi(:,:), &
- IONO_NORTH_Ex(:,:), IONO_NORTH_Ey(:,:), IONO_NORTH_Ez(:,:), &
- IONO_NORTH_ETh(:,:), IONO_NORTH_EPs(:,:), IONO_NORTH_Ux(:,:), &
- IONO_NORTH_Uy(:,:), IONO_NORTH_Uz(:,:), IONO_NORTH_UTh(:,:), &
- IONO_NORTH_UPs(:,:), IONO_NORTH_EFlux(:,:), IONO_NORTH_Ave_E(:,:), &
+ IONO_NORTH_EFlux(:,:), IONO_NORTH_Ave_E(:,:), &
+ IONO_NORTH_EFlux_diff(:,:,:), &
IONO_NORTH_Sigma0(:,:), IONO_NORTH_SigmaH(:,:), IONO_NORTH_SigmaP(:,:), &
IONO_NORTH_SigmaThTh(:,:), IONO_NORTH_SigmaThPs(:,:), &
IONO_NORTH_SigmaPsPs(:,:), IONO_NORTH_dSigmaThTh_dTheta(:,:), &
@@ -63,16 +53,25 @@ Module ModSceVariables
IONO_NORTH_dSigmaPsPs_dPsi(:,:), SAVE_NORTH_SigmaH(:,:), &
SAVE_NORTH_SigmaP(:,:), IONO_NORTH_Joule(:,:)
- real(DP), allocatable :: IONO_NORTH_JR(:,:), IONO_NORTH_JTh(:,:), IONO_NORTH_JPs(:,:), &
- IONO_NORTH_Jx(:,:), IONO_NORTH_Jy(:,:), IONO_NORTH_Jz(:,:), &
- IONO_NORTH_TGCM_JR(:,:), IONO_NORTH_AMIE_JR(:,:), &
- IONO_NORTH_Fake_JR(:,:), IONO_NORTH_IonNumFlux(:,:)
+ real(DP), allocatable :: IONO_NORTH_JR(:,:), IONO_NORTH_IonNumFlux(:,:)
real(DP), allocatable :: iono_north_im_jr(:,:), iono_north_im_avee(:,:), iono_north_im_eflux(:,:), &
- iono_north_im_dis_avee(:,:), iono_north_im_dis_eflux(:,:)
+ iono_north_im_dis_avee(:,:), iono_north_im_dis_eflux(:,:), &
+ iono_north_im_eflux_diff(:,:,:)
real(DP), allocatable :: dTheta_North(:), dPsi_North(:)
real(DP), allocatable :: C_A(:,:), C_B(:,:), C_C(:,:), C_D(:,:), C_E(:,:)
-
+ !\
+ ! GLOW related paremater
+ !/
+ integer, parameter :: nzGLOW = 112
+
+ integer :: nSolve = 0
+ character(len=10):: NameSolver='bicgstab' ! Name of krylov solver
+ logical :: DoSaveLogfile = .False.
+ logical :: UsePreconditioner = .True.
+ logical :: DoUseFullSpec = .False.
+ logical :: DoSaveGLOWConductivity = .False.
+
End Module ModSceVariables
diff --git a/srcGlow/.iri90.f.swp b/srcGlow/.iri90.f.swp
new file mode 100644
index 0000000..00ce519
Binary files /dev/null and b/srcGlow/.iri90.f.swp differ
diff --git a/srcGlow/Glow.txt b/srcGlow/Glow.txt
new file mode 100644
index 0000000..d6a3d3e
--- /dev/null
+++ b/srcGlow/Glow.txt
@@ -0,0 +1,493 @@
+ Preliminary Documentation for the GLOW Model
+
+ Version 0.982
+
+ *** see Releasenotes.txt for release notes ***
+
+ Stan Solomon, 2/2018
+
+ The GLobal airglOW (GLOW) model is a family of subroutines that calculates
+ionization and excitation rates, energetic electron production and transport,
+excited species densities, and airglow emission rates for the terrestrial
+thermosphere. Use is governed by the Open Source Academic Research License
+Agreement contained in the file Glowlicense.txt. Standards and practices are
+specified by the "rules of the road" adopted by the CEDAR and TIMED programs.
+ Other than the example driver programs, the input files, Makefile, run
+script, and possibly the master subroutine glow.f90, it is inadvisable to modify
+the code. If any changes are required, please suggest them to:
+
+ Stan Solomon, HAO/NCAR, Boulder, CO 80301
+ Phone: 303-497-2179
+ Email: stans@ucar.edu
+
+ Since this is a developmental code, there are bound to be problems which
+users will uncover. Please let me know about them. I will also attempt to
+accommodate any reasonable suggestions for enhancements or changes. By
+following this procedure, users will benefit by staying compatible with future
+developments, and from a more systematic elimination of any progrmming errors.
+Also, please upgrade to the latest version. Use of obsolete versions may lead
+to incorrect results.
+
+ The main inputs to GLOW are: neutral thermopshere major species density
+(O, O2, N2), minor species NO and N(4S), the electron density, the neutral,
+ion, and electron temperatures, all on a 1D altitude grid, for specified
+time and geographic coordinates. Solar flux, and auroral electron flux, are
+specified or calculated from parameters. Outputs include electron density
+calculated below 200 km, ionized and excited species density, airglow volume
+emisison rates, and vertical column brightnesses. Various parameters used
+to calculate these are also available on output. GLOW does not perform any
+transport calculations, so above 200 km, the electron density must be
+specified, since photochemical equilibrium is only valid to ~200 km altitude.
+There are several other options for specifying ionospheric parameters. GLOW
+calculates dissociation rates, and will return N(2D), O(1D), etc., but not
+N(4S), NO, or O(3P), since they are subject to transport.
+
+ Program glowbasic.f90 is provided to give some guidance in using
+the subroutine package, one profile at a time, similar to previous versions.
+It uses NRLMSISE-00 and IRI-90 to specify the neutral atmosphere and
+initial electron density profile, and the NOEM model to specify nitric oxide
+density. This program is intended as an example to be modified by the user
+to suit particular purposes. It is not necessary to use MSIS, IRI, and NOEM;
+any model or measurement that specifies neutral densities, temperatures, and
+high-altitude electron densities can be employed. The output statements at the
+end are just examples of a small subset of the calculated parameters.
+To get started with glowbasic:
+ cp Makefile.glowbasic Makefile
+ gmake
+ glow.exe < in.basic.day > test.basic.day
+You don't need to use the Makefile or the input files, you can compile and
+link manually, and run with command-line input.
+You can also run glowbasic out of IDL using:
+ spawn, '.glow.exe < input.file > output.file'
+
+ Program glowdriver.f90 is a parallel processing program set up to use output
+from general circulation models such as the NCAR TIE-GCM and TIME-GCM to
+specify the neutral densities, electron density, and temperatures, and then
+calculate airglow emissions globally on the GCM grid. It uses
+netCDF files for input and output, and a namelist input file to specify input
+options.
+ To run GLOW with TIE-GCM or TIME-GCM inputs, the GCM is run first, and a
+secondary history file created. This file must contain the output fields:
+Zg, Tn, Ti, Te, Ne, O2, O1, N2, NO, N4S, N2D,
+and optionally the auroral parameters:
+eflux, nflux, alfa, cusp, drizzle, ec, alfac, ed.
+He, un, and vn anre also optional, which are not used by GLOW, but are passed
+through to the output files.
+
+ Program glowdriver.f90 can also be run globally using MSIS/IRI
+inputs. Solar and auroral parameters are taken from the GCM histories when
+running in GCM mode, and can be supplied by the user when in empirical mode,
+although there is no way to provide auroral spatial distributions when running
+in empirical mode at this time, so these would generally be omitted.
+To use glowdriver:
+ cp Makefile.glowdriver Makefile
+ gmake
+ runglow.job
+You don't need to use the runglow.job script, you can use mpirun from the
+command line. The script is set up to use 6 processors, input from the
+file in.namelist, netCDF output to a file specified by the namelist inputs,
+and log messages to the file out.log. The script can easily be edited to
+change these.
+
+ Subroutine GLOW is the master routine of the package. It receives input
+parameters from the calling program use associated through module CGLOW, calls
+the other subroutines, and returns results through use associatedvariables. Iti
+is not necessary to use subroutine GLOW to call the others - those particularly
+bold and well-informed users who desire to use some subset of the package
+may attempt to do so, using subroutine GLOW as guidance.
+
+ The data files ephoto_x*.dat, ssflux_*.dat, and snoem_eof.dat are provided in
+subdirectory data/ of the working directory. Parameter files for IRI-90 are
+provided in data/iri90/. These files can put put in any directory as long as
+their paths are correctly specified in the driver program or its namelist
+inputs. The number of wavelenth bins in the ephoto and ssflux files must equal
+the parameter LMAX specified in module CGLOW, and the wavelength ranges must be
+the same in all input files.
+
+ These routines are written in standard Fortran-90 and MPI, and should be
+compatible with most compilers. However, their performace has only been tested
+using the Intel ifort compiler with -O3 optimization running under CentOS Linux
+on 64-bit machines. The Portland Group compiler should also work but I haven't
+been using it lately since ifort is faster. I would be interested in hearing
+of experiences with other compilers and/or operating systems, but make no claims
+or promises. To use with the glowdriver program, MPI and netCDF libraries must
+be installed. However, glowbasic shouldn't require anything other than Fortran.
+
+Subroutines called by the example programs include:
+ MPI* Message-passing interface utilities
+ CGLOW_INIT Initializes array dimensions and shared variables in module CGLOW
+ (This takes the place of common blocks previously employed)
+ EGRID sets up electron energy grid
+ PEGRID sets up proton energy grid
+ READ_TGCM Reads GCM model history files and returns fields on GCM grid
+ TZGRID Interpolates GCM fields onto H/4 altitude grid
+ MZGRID Returns empirical model quantities on a default altitude grid
+ GTD7 NRL Mass Spectrometer Incoherent Scatter - 00 (NRLMSISE-00) model
+ (Picone et al., 2002)
+ TSELEC Set-up entry for MSIS-00
+ IRI90 International Reference Ionosphere-1990 (IRI-90) model
+ (Belitza, 1990)
+ (Note: a special modification of the original code is provided.)
+ SNOEMINT Interpolates NO output onto model grid
+ SNOEM Implementation of Nitric Oxide Empirical Model (NOEM)i
+ (Marsh et al., 2005)
+ GEOMAG Translates geographic to geomagnetic coordinates and vice versa
+ MAXT Generates a Maxwellian electron or proton spectrum
+ GLOW Master subroutine of the GLOW package
+ CONDUCT Calculates ionospheric Hall and Pederson conductivities
+ (McGranaghan et al., 2016)
+ OUTPUT Writes global netCDF output files, similar to GCM histories
+
+Subroutines called by GLOW are:
+ FIELDM calculates magnetic dip angle
+ SOLZEN calculates solar zenith angle
+ SSFLUX scales solar flux for activity level
+ RCOLUM calculates slant column density of major species
+ EPHOTO calculates photoionization and photoelectron production
+ QBACK estimates background ionization
+ QPROTON calculates ionization due to proton precipitation
+ (Fang et al., 2010, 2013)
+ ETRANS computes electron transport, ionization, excitation using
+ Nagy & Banks 2-stream method
+ calls EXSECT for cross-sections, first call only
+ GCHEM finds electron/ion/metastable densities, airglow emissions
+ BANDS calculates band-specific airglow emission rates (currently only LBH)
+
+Definitions:
+
+! Array dimensions:
+! JMAX number of altitude levels
+! NBINS number of energetic electron energy bins
+! NPBINS number of energetic proton energy bins
+! LMAX number of wavelength intervals for solar flux
+! NMAJ number of major species
+! NST number of states produced by photoionization/dissociation
+! NEI number of states produced by electron impact
+! NEX number of ionized/excited species
+! NW number of airglow emission wavelengths
+! NC number of component terms for each emission
+
+! Supplied to subroutine using use-associated data defined in module CGLOW:
+! IDATE Date, in form yyyyddd
+! UT Universal Time; seconds
+! GLAT Geographic latitude; degrees
+! GLONG Geographic longitude; degrees
+! ISCALE Solar flux scaling switch, see subroutine SSFLUX
+! JLOCAL =0 for electron transport calculation, =1 for local calc only
+! KCHEM Ion/electron chemistry switch, see subroutine GCHEM
+! F107 Solar 10.7 cm flux for day being modeled, 1.E-22 W m-2 Hz-1
+! F107A Solar 10.7 cm flux 81-day centered average
+! XUVFAC Factor by which to multiply to solar flux 16-250 A or 16-50 A.
+! ZZ altitude array; cm
+! ZO O number density at each altitude; cm-3
+! ZN2 N2 " " " " " "
+! ZO2 O2 "
+! ZNO NO "
+! ZNS N(4S) "
+! ZND N(2D) "
+! ZRHO mass density at each altitude; gm cm-3 (not currently in use)
+! ZE electron density at each alt; cm-3
+! ZTN neutral temperature at each alt; K
+! ZTI ion temperature at each alt; K
+! ZTE electron temp at each alt; K
+! PHITOP energetic electron flux into top of atmosphere; cm-2 s-1 eV-1
+! PFLUX energetic proton flux into top of atmosphere; cm-2 s-1 eV-1
+
+! Calculated by subroutine and returned in variables defined in module CGLOW:
+! SZA solar zenith angle; radians
+! DIP magnetic field dip angle; radians
+! EFRAC energy conservation check from ETRANS, (out-in)/in
+! IERR error code returned from ETRANS:
+! 0=normal, 1=local problem, 2=transport problem
+! ZMAJ major species density array, O, O2, N2; cm-3
+! ZCOL major species slant column density array, O, O2, N2; cm-2
+! WAVE1 longwave edge of solar flux wavelength range; A
+! WAVE2 shortwave edge of solar flux wavelength range; A
+! SFLUX scaled solar flux in each wavelength range; photons cm-2 s-1
+! ENER electron energy grid; eV
+! DEL width of each bin in electron energy grid; eV
+! PESPEC photoelectron production rate at energy, altitude; cm-3 s-1
+! PIA proton aurora ionization rate; cm-3 s-1.
+! SESPEC proton aurora secondary electron production rate (not currently in use); cm-3 s-1
+! PHOTOI photoionization rates for state, species, altitude; cm-3 s-1
+! O+ states: 4S, 2Do, 2Po, 4Pe, 2Pe
+! O2+ states: X, a+A, b, dissoc.
+! N2+ states: X, A, B, C, F, dissoc.
+! PHOTOD photodissoc. & exc. rates for state, species, alt.; cm-3 s-1
+! (1,2,J) = O2 -> O(3P) + O(1D))
+! (2,2,J) = O2 -> O(3P) + O(1S)
+! (1,3,J) = N2 -> N + N
+! PHONO photoionization/dissociation/excitation rates for NO, cm-3 s-1
+! (1,J) = NO+ from H Ly-a ionization
+! SION electron impact ionization rates calculated by ETRANS; cm-3 s-1
+! UFLX upward hemispherical electron flux; cm-2 s-1 eV-1
+! DFLX downward hemispherical electron flux; cm-2 s-1 eV-1
+! AGLW Electron impact exc. rates; state, species, alt.; cm-3 s-1
+! O states: 1D, 1S, 5S, 3S, 3p5P, 3p3P, 3d3D, 3s'3D
+! O2 states: a, b, (A+A'+c), B(SRC), 9.9eV, Ryds., vib.
+! N2 states: (A+B+W), B', C, (a+a'+w), 1Pu, b', Ryds., vib.
+! EHEAT ambient electron heating rate, eV cm-3 s-1
+! TEZ total energetic electron energy deposition, eV cm-3 s-1
+! TPI total photoionization rate at each altitude, cm-3 s-1
+! TEI total electron impact ionization rate at each altitude, cm-3 s-1
+! TIR total ionization rate at each altitude (TPI+TEI+PIA), cm-3 s-1
+! ECALC electron density, calculated below 200 km, a priori above; cm-3
+! ZXDEN array of ionized/excited state densities at each altitude; cm-3:
+! O+(2P), O+(2D), O+(4S), N+, N2+, O2+, NO+, N2(A), N(2P),
+! N(2D), O(1S), O(1D); cm-3
+! ZETA array of volume emission rates at each altitude; cm-3 s-1:
+! 3371A, 4278A, 5200A, 5577A, 6300A, 7320A, 10400A, 3466A,
+! 7774A, 8446A, 3726A, LBH, 1356, 1493, 1304; cm-3 s-1
+! VCB array of vertical column brightnesses (as above); Rayleighs
+! ZCETA array of contributions to each v.e.r at each alt; cm-3 s-1:
+! ZCETA(*,1,z): N2(C) 2nd positive (0,0) band at 3371A:
+! 1: electron impact excitation N2 + e* -> N2(C)
+! 2: underlying N2(A) VK (0,9) band
+! ZCETA(*,2,z): N2+(B) 1st positive (0,1) band at 4278A:
+! 1: electron impact ionizing excitation N2 + e* -> N2+(B)
+! 2: photoionizing excitation N2 + hv -> N2+(B)
+! 3: resonant fluroescence N2+ + hv -> N2+(B)
+! ZCETA(*,3,z): N(2D) line at 5200A:
+! 1: photodissociation N2 + hv -> N + N(2D)
+! 2: photodissociative ionization N2 + hv -> N+ + N(2D)
+! 3: electron imact dissociation N2 + e* -> N + N(2D)
+! 4: electron impact dissociative ionization N2 + e* -> N+ + N(2D)
+! 5: dissociative recombination NO+ + e -> N + N(2D)
+! 6: dissociative recombination N2+ + e -> N + N(2D)
+! 7: atom-ion interchange N2+ + O -> NO+ + N(2D)
+! 8: quenching N(2P) + O -> N(2D) + O
+! 9: radiational cascade N(2P) -> N(2D) + hv
+! ZCETA(*,4,z): O(1S) "green" line at 5577A:
+! 1: electron impact excitation O + e* -> O(1S)
+! 2: dissociative recombination O2+ + e -> O + O(1S)
+! 3: energy transfer N2(A) + O -> N2 + O(1S)
+! 4: atom-ion interchange O2+ + N -> NO+ + O(1S)
+! 5: chemiluminescence N(2D) + NO -> N2 + O(1S)
+! 6: photodissociation O2 + hv -> O + O(1S)
+! ZCETA(*,5,z): O(1D) "red" line at 6300A:
+! 1: electron impact excitation O + e* -> O(1D)
+! 2: thermal electron excitation O + e -> O(1D)
+! 3: dissociative recombination O2+ + e -> O + O(1D)
+! 4: chemiluminescence N(2D) + O2 -> NO + O(1D)
+! 5: energy transfer N(2D) + O -> N + O(1D)
+! 6: atom-ion interchange N+ + O2 -> NO+ + O(1D)
+! 7: energy transfer O+(2D) + O -> O+ + O(1D)
+! 8: electron impact dissociation O2 + e* -> O + O(1D)
+! 9: photodissociation O2 + hv -> O + O(1D)
+! 10: radiative cascade O(1S) -> O(1D) + hv
+! ZCETA(*,6,z): O+(2P) line at 7320A:
+! 1: photoionization O + hv -> O+(2P)
+! 2: photodissociative ionization O2 + hv -> O + O+(2P)
+! 3: electron impact ionization O + e* -> O+(2P)
+! 4: electron impact dissociative ionization O2 + e* -> O + O+(2P)
+! ZCETA(*,7,z): N(2P) line at 10400A:
+! 1: photodissociation N2 + hv -> N + N(2P)
+! 2: photodissociative ionization N2 + hv -> N+ + N(2P)
+! 3: electron imact dissociation N2 + e* -> N + N(2P)
+! 4: dissociative recombination N2+ + e -> N + N(2P)
+! ZCETA(*,8,z): N(2P) line at 3644A:
+! 1: photodissociation N2 + hv -> N + N(2P)
+! 2: photodissociative ionization N2 + hv -> N+ + N(2P)
+! 3: electron imact dissociation N2 + e* -> N + N(2P)
+! 4: dissociative recombination N2+ + e -> N + N(2P)
+! ZCETA(*,9,z): O(3p5P) line at 7774A:
+! 1: electron impact excitation O + e* -> O(3p5P)
+! 2: radiative recombination O+ + e -> O(3p5P)
+! 3: mutual neutralization O+ + O- -> O(3p5P)
+! ZCETA(*,10,z): O(3p3P) line at 8446A:
+! 1: electron impact excitation O + e* -> O(3p3P)
+! 2: electron impact excitation and cascade O + e* -> O(3d3D) -> O(3p3P)
+! 3: electron impact excitation and cascade O + e* -> O(3s'3D) -> O(3s3P)
+! ZCETA(*,11,z): O+(2D) line at 3726A:
+! 1: photoionization O + hv -> O+(2D)
+! 2: photodissociative ionization O2 + hv -> O + O+(2D)
+! 3: electron impact ionization O + e* -> O+(2D)
+! 4: electron impact dissociative ionization O2 + e* -> O + O+(2D)
+! 5: quenching O+(2P) + e -> O+(2D) + e
+! 6: radiational cascade O+(2P) -> O+(2D) + hv
+! ZCETA(*,12,z): N2(a) LBH total band system
+! 1: electron impact excitation N2 + e* -> N2(a)
+! ZCETA(*,13,z): O(3s5S) doublet at 1356A
+! 1: electron impact excitation O + e* -> O(3s5S)
+! 2: electron impact excitation and cascade O + e* -> O(3p5P) -> O(3s5S)
+! 3: radiative recombination O+ + e -> O(3s5S)
+! 4: mutual neutralization O+ + O- -> O + O(3s5S)
+! ZCETA(*,14,z): N(3s2P) doublet at 1493A
+! 1: photodissociation N2 + hv -> N + N(3s2P)
+! 2: electron impact dissociation N2 + e* -> N + N(3s2P)
+! ZCETA(*,15,z): O(3s3S) triplet at 1304A
+! 1: electron impact excitation O + e* -> O(3s3S)
+! 2: electron impact excitation and cascade O + e* -> O(3p3P) -> O(3s5S)
+! 3: electron impact excitation and cascade O + e* -> O(3d3D) -> -> O(3s5S)
+! 4: electron impact excitation and cascade O + e* -> O(3s'3D) -> -> O(3s5S)
+! 5: radiative recombination O+ + e -> O(3s3S)
+
+A few notes:
+
+ Starting with version 0.98, GLOW now uses Fortran 90 conventions, including
+use-associated variables defined in module CGLOW instead of in common blocks.
+This was done for compatibility with parallel processing using MPI. Most of the
+routines were re-cast in free-form style, largely changed to lower case, and
+have a ".f90" file extension suffix. I am using a terminal column-width of
+100 characters for editing and 132 characters for tabular output. There are
+some routines still coded in fixed-format Fortan-77 style, including
+exsect.f and fieldm.f. The reason for this is that these two are due for an
+overhaul and replacement, respectively, and it didn't seem worthwhile to
+re-format them at this time. (Subroutine exsect will ultimately be changed to
+tablular data-file inputs instead of analytic functions, and fieldm will be
+updated to IGRF/Apex coordinates).
+
+ The parallel processing strategy adopted is to let main program
+glowdriver.f90 handle all MPI calls, so that the core subroutines can be used
+in either multiple or single-processor mode. The 0th task performs all
+I/O and empirical model calls, distributes variables to the other tasks,
+collects the results, and outputs them to a netCDF file. The domain
+decomposition is one-dimensional in latitude. The number of tasks (processors)
+must be an integral multiple of the number of latitudes. Since a typical 5x5
+degree grid has 36 latitudes, 4, 6 or 12 processors are good numbers to use.
+Note that on the new NCAR Cheyenne supercomputer, one node has 36 cores!
+The number of processors is configurable in the job script runglow.job.
+
+ Versions of NRLMSISE-00 and IRI-90 are provided for the convenience of users
+who do not have their own copies. Attribution to the appropriate sources
+(Picone et al, 2002; Belitza, 1990) should be made. The version of IRI
+provided is not the standard version, as I have modified it to work on various
+systems, particularly volatile memory systems. However, I cannot guarantee
+that the results obtained from them are correct. Caution: IRI occasionally
+writes messages on unit 12. IRI data files ccir*.asc and ursi*.asc
+are contained in ./data/iri90/ and this directory or a different directory
+can be specified in the namelist inputs. MSIS and IRI are old-style Fortran
+with common blocks, and hence are not appropriate for MPI implementation, so
+they are called by glowdriver using the 0th processor only. Since they are
+very fast (compared to, e.g., etrans) this is a minimal performance loss.
+
+ When using GCM inputs, note that the TIE-GCM altitude grid doesn't extend
+below ~97 km, but electron transport calculations require a "sponge" layer, so
+densities are extrapolated from ~79 km to ~97 km using an assumed constant scale
+height of 6 km. Temperatures, Electron density, and nitric oxide density are
+assumed to be constant below the bottom of the grid. Therefore, results below
+~97 km should be ignored. This is not a problem for the TIME-GCM since its
+altitude grid extends down to ~30 km, but note that GLOW does not yet contain
+full D-region chemistry or mesopause-region recombination emissions. For
+empirical model inputs, MSIS and IRI provide full altitude profiles, but NOEM
+only extends from 100-150 km, so a constant value is used for nitric oxide
+below 100 km, and a scale height assumption above 150 km.
+
+ For TIE- or TIME-GCM runs that will be used for input to GLOW, secondary
+history files should be employed. It is possible to use primary histories
+but not recommended, since no auroral parameters will be included. The
+following secondary history output fields should be specified: ZG, TN, TI, TE,
+NE, O1, O2, N2, NO, N4S, N2D, HE, UN, VN, EFLUX, NFLUX, ALFA, CUSP, DRIZZLE.
+Note that HE, UN, and VN are not used, but are passed through to
+output. The auroral parameters EFLUX, NFLUX, ALFA, CUSP, and DRIZZLE are
+optional but should be included. (CUSP and DRIZZLE are not yet used,
+but may be soon.) If ZG or N2 are ommitted, they will be calculated by
+readtgcm, provided that HE is included.
+
+ The default electron energy grid extends to 50 keV and is adequate for most
+photoelectron and auroral calculations; the electron energy grid can extend
+(in principle) to 1 GeV. In order to extend the energy grid, simply increase
+NBINS in module CGLOW, but see the note concerning the altitude grid, below.
+The default proton energy grid extends to 1 MeV. The QPROTON parameterization
+is valid from 100 eV to 1 MeV so proton fluxes outside of that energy range
+produce zero ionization.
+
+ The altitude grid may be altered to suit the user's needs, but with caution.
+The two biggest pitfalls are not providing enough resolution and not providing
+a deep enough atmosphere. There should be no significant flux of electrons out
+of the bottom of the altitude grid. As for resolution, a rule of thumb is
+about four points per scale height.
+
+ The ETRANS error code IERR and energy conservation ratio EFRAC
+should be checked for normal return. IERR should equal zero; if it doesn't
+it means that the total inelastic cross section is near zero somewhere, which
+is usually caused by a near zero ambient electron density. EFRAC should be
+less than ~0.03 for photoelectron calculations, and less than ~0.1 for aurora.
+It can get up to the 0.1-0.2 range in the twilight, which is not good, but at
+present unavoidable.
+
+ Electron density calculations can be made by GCHEM below 200 km but not
+above where transport/diffusion effects become important. Therefore, an
+electron density profile (such as from the NCAR TIE-GCM or from IRI) must be
+provided above 200 km. An initial non-zero electron density profile must be
+provided at all altitudes in array ZE because otherwise ETRANS will produce
+an error. Calculated electron densities are returned in array ECALC, with
+values from ZE included where calculations are not made. The switch KCHEM
+determines what ion/electron density calculations are made (see subroutine
+GCHEM). With the exception of KCHEM=0 (no calculations), none are foolproof.
+One irritation that may be noted when KCHEM=4 (calculate Ne below 200 but use
+provided Ne above 200) is a discontinuity in Ne(z) at 200 km. GCHEM attempts
+to deal with this by interpolating from the 200 km level to three grid
+points above it. Another caveat with KCHEM=4 or KCHEM=3 (Ne provided,
+ions calculated) is that if there is an incompatibility between the specifed
+Ne(z) and the calculated ionization rates, negative values for some ions may
+result. KCHEM=2 (electrons and major ions provided, minor ions calculated) and
+KCHEM=1 (electrons and all ions except O+(2D,2P) provided) should be fairly
+reliable.
+
+ For daytime calculations, the parameter XUVFAC is provided to deal with the
+uncertainty concerning the solar spectrum from 18-250 A. When the
+Hinteregger et al. [1981] model is employed, a reasonable value for XUVFAC is
+2.0, as suggested by Richards et al. [1984; 1994], however a value as high as
+4.0 might be realistic, as discussed by Solomon et al. [2001]. When the
+EUVAC model [Richards et al., 1994] is employed, XUVFAC is only applied
+to the region still obtained from the Hinteregger model, 18-50 A, since
+longward of that point EUVAC has already increased the solar fluxes relative
+to the Hinteregger spectrum (by factors of 2-3). SSFLUX also now provides
+the ability for the user to specify a solar spectrum from other models or
+measurements, in which case XUVFAC is ignored. The number of bins in the
+solar spectrum input file must be equal to LMAX (specified in glow.h) and
+the wavelength ranges must correspond to those in ephoto_x*.dat.
+
+ The upper boundary of the electron transport calculation by ETRANS is
+specified by the PHITOP array, which may contain a flux of auroral electrons,
+conjugate photoelectrons, or both. The initial electron density profile
+input for the call to GLOW can be replaced by the calculated profile below
+200 km, and GLOW called again. This isn't really necessary, but gives an
+improved estimate of the low-energy electron flux (which depends on the ambient
+electron density), since IRI isn't really valid in the auroral regions.
+For high-energy calculations this second call may safely be skipped.
+
+ A proton spectrum, either Maxwellian, monoenergetic, or user specified, can
+be imposed at the upper boundary (as of v. 0.982). This produces parameterized
+ionization (Fang et al., 2010, 2013), including ionization caused by secondary
+electrons, but it does not produce a secondary electron spectrum, and hence the
+only effects on airglow are from increases in ionization and recombination
+emissions, not from electron impact excitation. The purpose of this addition
+is to facilitate calculations of electron density and hence conductivity
+caused by proton precipitation.
+
+ The example programs use the NOEM model of nitric oxide, based on data from
+the SNOE satellite, as an empirical input [Marsh et al., 2004]. When running
+from GCM fields the NO calculated by the GCM is used.
+
+ Electron impact cross sections generated by EXSECT can be obtained from
+variables use associated through the CGLOW module.
+
+ A note on units: GLOW uses cgs in its internal calculations. Wavelengths
+are described in nanometers in this publication, but Angstroms are used for
+solar and airglow emission wavelengths inside the code. Energies are in
+electron volts (eV), except for the input auroral total energy flux, which is
+expressed in erg cm-2 (equivalent to mW m-2). Other units employed for
+convenience are megabarns (10-18 cm2) and Rayleighs (106 photons cm-2).
+Conductivities are output in Siemens/meter (mhos). Kilometers are used in
+driver program altitude grids, but are converted to centimeters internally.
+Dates are in yyyyddd (4-digit year and 3-digit day) format, universal time
+is in seconds, and local solar time is in hours. The solar radio
+flux index F10.7 is in expressed in units of 10-22 W m-2.
+
+ References/Citations:
+Nagy, A. F., and P. M. Banks, Photoelectron fluxes in the ionosphere,
+ J. Geophys. Res., 75, 6260, 1970.
+Solomon, S. C., P. B. Hays, and V. J. Abreu, The auroral 6300A emission:
+ Observations and modeling, J. Geophys. Res., 93, 9867, 1988.
+Solomon, S. C., and V. J. Abreu, The 630 nm dayglow, J. Geophys. Res., 94,
+ 6817, 1989.
+Solomon, S. C., Auroral particle transport using Monte Carlo and hybrid
+ methods, J. Geophys. Res., 106, 107, 2001.
+Solomon, S. C., S. M. Bailey, and T. N. Woods, Effect of solar soft X-rays
+ on the lower atmosphere, Geophys. Res. Lett., 28, 2149, 2001.
+Bailey, S. M., C. A. Barth, and S. C. Solomon, A model of nitric oxide in the
+ lower thermosphere, J. Geophys. Res., 107, 1205, 2002.
+Solomon, S. C., Global modeling of thermospheric airglow in the
+ far-ultraviolet, J. Geophys. Res., 122, doi:10.1002/2017/JA024314, 2017.
diff --git a/srcGlow/Glowlicense.txt b/srcGlow/Glowlicense.txt
new file mode 100644
index 0000000..178f347
--- /dev/null
+++ b/srcGlow/Glowlicense.txt
@@ -0,0 +1,95 @@
+GLOW MODEL OPEN SOURCE ACADEMIC RESEARCH LICENSE AGREEMENT
+
+
+1. License. The University Corporation for Atmospheric Research (UCAR)
+grants you a non-exclusive, nontransferable, world-wide, royalty-free
+license to use, reproduce, and prepare derivative works of the GLOW model
+software ("Software") for research, academic, and non-profit purposes
+
+2. Basis. This software was written by Stanley C. Solomon and colleagues,
+as noted in the individual files. Some of the routines are based on
+source code obtained from a variety of sources, including the 2-stream
+electron transport algorithm by A. F. Nagy and P. M. Banks, and geomagnetic
+field specifications from the International Reference Ionosphere.
+
+3. Restrictions and Use.
+a. No Sales. You shall not sell, or license or transfer for a fee the
+Software, or any work that in any manner contains the Software.
+b. Modifications. All modifications or changes to the Software and
+derivative works that incorporate or utilize the Software, shall carry
+prominent notices stating that you changed the files and the date of the
+change. Any reproductions of derivative works shall also be on an open
+source basis. You are requested to transfer such modifications, changes,
+and/or derivative works back to UCAR.
+c. Copyright/Notices. Each copy of the Software, modification, or
+derivative work shall include a file containing this Agreement. Reference
+to this file will be displayed on any documents, media, printouts, or on
+any other electronic or tangible expressions associated with, related to
+or derived from the Software, as follows: "This software is part of the
+GLOW model. Use is governed by the Open Source Academic Research License
+Agreement contained in the file glowlicense.txt."
+d. "Rules of the Road." The academic standards and practices with respect
+to notification, citation, co-authorship, etc., are specified by the
+"rules of the road" of the NSF CEDAR project and the NASA TIMED mission
+(cf., cedarweb.hao.ucar.edu, www.timed.jhuapl.edu.)
+
+4. Termination. Your rights under this Agreement will terminate
+automatically without notice from UCAR if you fail to comply with any
+term(s) of this Agreement. The following provisions shall survive
+termination: Sections 3, 6, 7, and 11.
+
+5. Proprietary Rights. Title, ownership rights, and intellectual property
+rights in the Software shall remain in UCAR. You acknowledge such
+ownership and intellectual property rights and will not take any action to
+jeopardize, limit or interfere in any manner with UCAR's ownership of or
+rights with respect to the Software.
+
+6. Disclaimer of Warranty on Software. You expressly acknowledge and agree
+that use of the Software is at your sole risk. The Software is provided
+"as is" and without warranty of any kind and UCAR expressly disclaims all
+warranties and/or conditions of any kind, express or implied, including,
+but not limited to, any warranties or conditions of title, non-
+infringement of a third party's intellectual property, merchantability or
+satisfactory quality and fitness for a particular purpose. UCAR does not
+warrant that the functions contained in the software will meet your
+requirements, or that the operation of the software will be uninterrupted
+or error-free, or that defects in the software will be corrected.
+Furthermore, UCAR does not warrant or make any representations and you
+assume all risk regarding the use or the results of the use of the
+software or related documentation in terms of their correctness, accuracy,
+reliability, or otherwise. the parties expressly disclaim that the uniform
+computer information transactions act (UCITA) applies to or governs this
+agreement. No oral or written information or advice given by UCAR shall
+create a warranty or in any way increase the scope of this warranty.
+Should the Software prove defective, you (and not UCAR or any UCAR
+representative) assume the cost of all necessary correction.
+
+7. Limitation of Liability. Under no circumstances, including negligence,
+shall UCAR be liable for any direct, incidental, special, indirect or
+consequential damages including lost revenue, profit or data, whether in
+an action in contract or tort arising out of or relating to the use of or
+inability to use the software, even if UCAR has been advised of the
+possibility of such damages.
+
+8. Export Law Assurances. All Software and any technical data delivered
+under this Agreement are subject to U.S. export control laws and may be
+subject to export or import regulations in other countries. You agree to
+comply strictly with all such laws and regulations and you acknowledge
+that you have responsibility to obtain such license to export, re-export,
+or import as may be required after delivery to you.
+
+9. No Support/Modifications. The Software is provided without any support
+or maintenance, and without any obligation to provide you with
+modifications, improvements, enhancements, or updates of the Software.
+
+10. Controlling Law and Severability. This Agreement shall be governed by
+the laws of the United States. If for any reason a court of competent
+jurisdiction finds any provision, or portion thereof, to be unenforceable,
+the remainder of this Agreement shall continue in full force and effect.
+This Agreement shall not be governed by the United Nations Convention on
+Contracts for the International Sale of Goods, the application of which is
+hereby expressly excluded.
+
+11. Complete Agreement. This Agreement constitutes the entire agreement
+between the parties with respect to the use of the Software and supersedes
+all prior or contemporaneous understandings regarding such subject matter.
diff --git a/srcGlow/Makefile b/srcGlow/Makefile
new file mode 100755
index 0000000..e462c2f
--- /dev/null
+++ b/srcGlow/Makefile
@@ -0,0 +1,57 @@
+#^CFG GLOW makefile
+SHELL = /bin/sh
+
+include ../Makefile.def
+include ../Makefile.conf
+include Makefile.DEPEND
+
+MODULES = \
+ bands.o\
+ cglow.o\
+ conduct.o\
+ egrid.o\
+ ephoto.o\
+ etrans.o\
+ exsect.o\
+ fieldm.o\
+ gchem.o\
+ geo2mag.o\
+ ModGlowBasic.o\
+ glow.o\
+ iri90.o\
+ maxt.o\
+ mzgrid.o\
+ nrlmsise00.o\
+ pegrid.o\
+ qback.o\
+ qproton.o\
+ rcolum.o\
+ recipes2.o\
+ rout.o\
+ snoem.o\
+ snoemint.o\
+ solzen.o\
+ ssflux.o
+
+DEPEND:
+ @perl ${SCRIPTDIR}/depend.pl ${MODULES}
+
+MY_LIB = ${LIBDIR}/libGLOW.a
+
+LIB: DEPEND
+ ${MAKE} ${MY_LIB}
+ @echo
+ @echo ${MY_LIB} has been brought up to date.
+ @echo
+
+${MY_LIB}: ${MODULES}
+ rm -f ${MY_LIB}
+ ${AR} ${MY_LIB} ${MODULES}
+
+
+distclean: clean
+ rm -f Makefile.DEPEND
+ rm -rf *.o *.mod
+
+clean:
+ rm -f *~ core *.o *.mod fort.* a.out *.exe *.a *.so *.protex
diff --git a/srcGlow/ModGlowBasic.f90 b/srcGlow/ModGlowBasic.f90
new file mode 100644
index 0000000..186b9a1
--- /dev/null
+++ b/srcGlow/ModGlowBasic.f90
@@ -0,0 +1,299 @@
+module ModGlowBasic
+
+
+ use cglow,only: jmax,nbins,npbins,lmax,nmaj,nei,nex,nw,nc,nst
+ use cglow,only: idate,ut,glat,glong,f107a,f107,f107p,ap,ef,ec,pf,pc
+ use cglow,only: iscale,jlocal,kchem,xuvfac
+ use cglow,only: sza,dip,efrac,ierr
+ use cglow,only: zz,zo,zn2,zo2,zns,znd,zno,ztn,ze,zti,zte
+ use cglow,only: ener,del,phitop,wave1,wave2,sflux,pespec,sespec,uflx,dflx,sion
+ use cglow,only: photoi,photod,phono,aglw,tei,tpi,tir,ecalc,zxden,zeta,zceta,zlbh
+ use cglow,only: pflux,pener,pdel,pia
+ use cglow,only: cglow_init
+ use cglow,only: data_dir
+
+ implicit none
+ save
+
+ contains
+!================================================================================
+ subroutine glowbasic_ram(idate_in, ut_in, glat_in, glong_in, ap_in, f107_in, &
+ f107p_in, f107a_in, ef_in, ec_in, pedconductance, hallconductance, nE, &
+ height, ionrate, eDensity, Pedcond, Hallcond, nHeight,&
+ logec_diff, logef_diff, pf_in, pc_in, logpc_diff, logpf_diff)
+
+
+! Modified from GLOW's original program: glowbasic.f90 in order to couple with RAM.
+! By Yiqun Yu 2022
+
+! optional input variables:
+! logec_diff, logef_diff: if present, then use the full spectrum as input
+! pf_in, pc_in, logpc_diff, logpf_diff: if present, then calculate proton impact
+
+!====================================================================
+! This software is part of the GLOW model. Use is governed by the Open Source
+! Academic Research License Agreement contained in the file Glowlicense.txt.
+! For more information see the file Glow.txt.
+
+! Version 0.982, 2/2018
+! Adapted from glowdriver by Stan Solomon, 2/2016
+
+! Basic single-processor driver for the GLOW model.
+! Uses MSIS/IRI for input.
+! Runs GLOW for designated inputs once, or multiple times.
+! MPI and netCDF libraries not required.
+
+! For definitions of use-associated variables, see subroutine GLOW and module CGLOW.
+
+! Other definitions:
+! f107p Solar 10.7 cm flux for previous day
+! ap Ap index of geomagnetic activity
+! z altitude array, km
+
+! Array dimensions:
+! jmax number of altitude levels
+! nbins number of energetic electron energy bins
+! lmax number of wavelength intervals for solar flux
+! nmaj number of major species
+! nst number of states produced by photoionization/dissociation
+! nei number of states produced by electron impact
+! nex number of ionized/excited species
+! nw number of airglow emission wavelengths
+! nc number of component production terms for each emission
+
+ implicit none
+
+ integer, parameter :: Real8_ = selected_real_kind(12,100)
+ integer, intent(in):: idate_in, nHeight
+ real(real8_), intent(in) :: ut_in, glat_in, glong_in, ef_in, ec_in
+ real(real8_), intent(in) :: ap_in, f107_in, f107p_in, f107a_in
+ real(real8_), intent(out) :: pedconductance, hallconductance
+ real(real8_), dimension(nHeight), intent(out) :: &
+ height, ionrate, eDensity,Pedcond,Hallcond
+ integer, intent(in) :: nE
+ real(real8_), optional, intent(in) :: logec_diff(nE), logef_diff(nE), logpc_diff(nE), logpf_diff(nE)
+ real(real8_), optional, intent(in) :: pf_in, pc_in ! proton flux/Ec
+ character(len=1024) :: iri90_dir
+
+ real,allocatable :: z(:) ! glow height coordinate in km (jmax)
+ real,allocatable :: zun(:), zvn(:) ! neutral wind components (not in use)
+! real,allocatable :: pedcond(:), hallcond(:) ! Pederson and Hall conductivities in S/m (mho)
+ real,allocatable :: outf(:,:) ! iri output (11,jmax)
+ real :: rz12,stl,fmono,emono, pfmono,pemono
+ real :: d(8), t(2), sw(25), oarr(30),logener, logphitop(nbins), logpflux(npbins)
+ integer :: l,j,jj,ijf,jmag,iday,mmdd,i,ii,n,k,ix,itail, ierror
+ integer :: instance,iostatus
+ logical :: jf(12)
+ data sw/25*1./
+
+! write(*,*)'present(logec_diff):',present(logec_diff)
+ idate = idate_in
+ ut = ut_in
+ glat = glat_in
+ glong= glong_in
+ ap = int(ap_in)
+ f107 = f107_in
+ f107a = f107a_in
+ f107p = f107p_in
+
+ ef = ef_in
+ ec = ec_in
+
+ ! assume no proton precipitation for now
+ if(present(pf_in))then
+ pf = pf_in
+ pc = pc_in
+ else
+ pf = 0.0
+ pc = 0.0
+ end if
+!
+! Initialize standard switches:
+!
+ iscale=1
+ xuvfac=3.
+ kchem=4
+ jlocal=0
+ itail=0
+ fmono=0.
+ emono=0.
+ pfmono=0.
+ pemono=0.
+!
+! Set data directories:
+!
+ data_dir = 'IM/input_sce/glow_data/'
+ iri90_dir = 'IM/input_sce/glow_data/iri90/'
+!
+! Set number of altitude levels:
+!
+ jmax = nHeight
+! jmax = 86
+!
+! Allocate local arrays:
+!
+ if (.not.allocated(z))then
+ allocate(z(jmax))
+ allocate(zun(jmax))
+ allocate(zvn(jmax))
+! allocate(pedcond(jmax))
+! allocate(hallcond(jmax))
+ allocate(outf(11,jmax))
+ end if
+
+! Call CGLOW_INIT (module CGLOW) to set array dimensions and allocate use-associated variables:
+! (This was formerly done using common blocks, including common block /cglow/.)
+
+ call cglow_init
+
+ pedconductance = 0.
+ hallconductance= 0.
+ pedcond = 0.0
+ hallcond= 0.0
+!
+! Call EGRID to set up electron energy grid (eV):
+!
+ call egrid (ener, del, nbins)
+!
+! Call PEGRID to set up proton energy grid:
+!
+ call pegrid (pener, pdel, npbins)
+!
+! Loop to call GLOW for designated inputs until end-of-file or any character on standard input:
+!
+! do instance=1,10000
+!
+! Get input values:
+!
+! write(6,"('Enter date, UT, lat, lon, F107a, F107, F107p, Ap, Ef, Ec')")
+! read(5,*,iostat=iostatus) idate,ut,glat,glong,f107a,f107,f107p,ap,ef,ec
+! if (iostatus /= 0) stop
+!
+! Calculate local solar time:
+!
+ stl = ut/3600. + glong/15.
+ if (stl < 0.) stl = stl + 24.
+ if (stl >= 24.) stl = stl - 24.
+!
+! Call MZGRID to use MSIS/NOEM/IRI inputs on default altitude grid:
+!
+
+ call mzgrid (jmax,nex,idate,ut,glat,glong,stl,f107a,f107,f107p,ap,iri90_dir, &
+ z,zo,zo2,zn2,zns,znd,zno,ztn,zun,zvn,ze,zti,zte,zxden)
+!
+! Call MAXT to put auroral electron flux specified by namelist input into phitop array:
+!
+
+ phitop(:) = 0.
+ if(ef>.0001 .and. ec>1)then ! only when the precipitaiton flux is large enough
+ if (.not. present(logec_diff))then
+ ! from ef and ec get a maxiwellian function (ef, ec) [ergs/cm^2/s, eV] --> phitop: /cm^2/s/eV
+ call maxt (ef,ec,ener,del,nbins,itail,fmono,emono,phitop)
+
+! do i=1,nbins
+! if(ener(i) .lt. 500 .or. ener(i) .gt. 50000.)then
+! phitop(i) = 0.0
+! end if
+! end do
+!
+ else
+ !interpolate in energy space (logE, logflux) (eV, /cm^2/s/eV)
+ k = 0
+ do i=1,nbins
+ logener = log10(ener(i))
+
+ if (logener .ge. logec_diff(2) .and. logener .le. logec_diff(nE))then
+ !!! test: limit the energy range within the Robinson's energy range.
+! if(logener .ge. log10(500.) .and. logener .le. log10(50000.))then ! 500 eV < E < 50 keV
+ call lintp(logec_diff(2:), logef_diff(2:), nE-1, & ! logef_diff: /cm^2/s/eV
+ logener, logphitop(i), ierror)
+ phitop(i) = 10.**(logphitop(i))
+ else
+ phitop(i) = 0.0
+ k = k + 1
+ end if
+
+ end do
+ ! fill up the lower-E part, simply let it be same as the first available energy grid (test)
+ !phitop(1:k) = phitop(k+1)
+ end if
+
+ end if
+
+!
+! Call MAXT to put auroral proton flux specified by input into pflux array:
+!
+ pflux(:) = 0.
+ if (pf>.001 .and. pc>1.)then
+ if (.not. present(logpc_diff))then
+ call maxt (pf,pc,pener,pdel,npbins,itail,pfmono,pemono,pflux)
+ else
+ k = 0
+ do i=1,npbins
+ logener = log10(pener(i))
+ if (logener .ge. logpc_diff(2) .and. logener .le. logpc_diff(nE))then
+ call lintp(logpc_diff(2:), logpf_diff(2:), nE-1, & ! logef_diff: /cm^2/s/eV
+ logener, logpflux(i), ierror)
+ pflux(i) = 10.**(logpflux(i))
+ else
+ pflux(i) = 0.0
+ k = k + 1
+ end if
+
+ end do
+ end if
+ end if
+
+!
+! Fill altitude array, converting to cm:
+!
+ zz(:) = z(:) * 1.e5 ! km to cm at all jmax levels
+!
+! Call GLOW to calculate ionized and excited species, airglow emission rates,
+! and vertical column brightnesses:
+!
+
+!\
+!!! if only the precipitaiton is considered, use the following if statement;
+!!! if the solar radiation is also included, no need to have the if statement
+!/
+ if (maxval(phitop) > 0.0)then
+ call glow
+
+! Call CONDUCT to calculate Pederson and Hall conductivities:
+!
+ do j=1,jmax
+
+ call conduct (glat, glong, z(j), zo(j), zo2(j), zn2(j), &
+ zxden(3,j), zxden(6,j), zxden(7,j), ztn(j), zti(j), zte(j), &
+ pedcond(j), hallcond(j))
+
+ ! Yiqun Yu 2017/02, only include the conductivity below 200km
+ if (j .gt. 1 .and. z(j) .le. 200 .and. z(j) .gt. 75) then
+ ! calculate height-integrated conductance
+ pedconductance = pedconductance + pedcond(j)*(z(j)-z(j-1))*1.0e3 !S/m*(km*1.0e3)
+ hallconductance = hallconductance + hallcond(j)*(z(j)-z(j-1))*1.0e3 !S/m*(km*1.0e3)
+ end if
+ enddo
+ end if
+
+ height = z
+ ionrate = tir
+ eDensity = ecalc
+
+!
+! Output section:
+!
+! write(6,"(1x,i7,9f8.1)") idate,ut,glat,glong,f107a,f107,f107p,ap,ef,ec
+! write(6,"(' Z Tn O N2 NO Ne(in) Ne(out) Ionrate O+ O2+ NO+ N(2D) Pederson Hall')")
+! write(6,"(1x,0p,f5.1,f6.0,1p,12e10.2)") (z(j),ztn(j),zo(j),zn2(j),zno(j),ze(j), &
+! ecalc(j),tir(j),zxden(3,j),zxden(6,j),zxden(7,j),zxden(10,j),pedcond(j),hallcond(j),j=1,jmax)
+! write(6,"(' Z 3371 4278 5200 5577 6300 7320 10400 3644 7774 8446 3726 LBH 1356 1493 1304')")
+! write(6,"(1x,f5.1,15f8.2)")(z(j),(zeta(ii,j),ii=1,15),j=1,jmax)
+
+! enddo
+
+!stop
+
+ end subroutine glowbasic_ram
+end module ModGlowBasic
diff --git a/srcGlow/Quickstart.txt b/srcGlow/Quickstart.txt
new file mode 100644
index 0000000..c4dfc16
--- /dev/null
+++ b/srcGlow/Quickstart.txt
@@ -0,0 +1,32 @@
+Quick start for GLOW v. 0.982
+
+Copy all the files and sub-directories into a directory, or,
+ copy the file glowv0.982.tar to a directory and tar -xf glowv0.982.tar
+While in that directory:
+ cp Makefile.glowbasic Makefile
+ (or, cp Makefile.glowbasic.gfort Makefile if using GNU gfortran)
+ gmake
+Run the glowbasic driver with default dayglow inputs:
+ glow.exe < in.basic.day > test.basic.day
+Compare the output you get to the example output in out.basic.day
+If it looks reasonable, try making some plots
+Now try the glowbasic driver with default auroral inputs:
+ glow.exe < in.basic.aur > test.basic.aur
+Compare the output you get to the example output in out.basic.aur
+If it looks reasonable, try making some plots
+Then, do some runs with your own input parameters
+
+Now try making some modifications to the glowbasic program to suit your purposes
+
+You can also run glowbasic out of IDL using:
+ spawn, './glow.exe < input.file > output.file'
+
+Or, move on to the MPI global driver:
+ Assure that MPI and netCDF libraries are installed on your operating system
+ cp Makefile.glowdriver Makefile
+ gmake
+ cp in.namelist.msis in.namelist
+ runglow.job
+Check the file out.log to make sure it executed properly
+Then compare the netCDF file generated to the example output at:
+ http://download.hao.ucar.edu/pub/stans/glow/output/out.decminmsis.001.nc
diff --git a/srcGlow/Releasenotes.txt b/srcGlow/Releasenotes.txt
new file mode 100644
index 0000000..af0f831
--- /dev/null
+++ b/srcGlow/Releasenotes.txt
@@ -0,0 +1,175 @@
+GLOW version 0.982 release notes, Stan Solomon, 6/2018
+
+Minor update to v. 0.981
+ Added proton precipitation capability to glow.f90
+ using qproton.f90 and pebins.f90.
+ Added proton energy grid and top boundary flux arrays to cglow.f90
+ Added example of how to implement proton precipitation to glowbasic.f90.
+ (glowdriver.f90 does not yet have this functionality.)
+ Note that currently we only calculate ionization by protons,
+ not secondary electrons or resulting airglow.
+ Seven-digit date specifications (yyyyddd) are standard in this version.
+ (yyddd will still work for years of 1900, but should not be used)
+ Corrected bands.f90 to include factor of 0.7 applied to LBH excitation
+ This factor approximately accounts for a-state as a fraction of (a,a',w).
+ It was already applied to total LBH band system calculation
+ Only affects results if bands.f90 was used to generate LBH populations.
+ Other than this, there should be no effect on results from this version.
+
+------------------------------------------------------
+
+GLOW version 0.981 release notes, Stan Solomon, 6/2017
+
+Very minor update to v. 0.98, implemented to facilitate using GNU gfortran:
+ Changed all open statements to use action='read' instead of 'readonly'
+ Commented out two lines from nrlmsise00.f; changed 0 to 0.
+ Replaced sind and cosd functions in snoem.f90, and general cleanup.
+ Corrected rcolum.f90 to call chap with pi-chi when chi>pi/2.
+ Added a trap to etrans.f90 to assure no calculation when j=1.
+ Zeroed out all arrays in cglow.f90.
+ None of these changes should have any effect on results.
+
+-----------------------------------------------------
+
+GLOW version 0.98 release notes, Stan Solomon, 3/2017
+
+See Quickstart.txt for very basic instructions
+See Glow.txt for more details
+See Glowlicense.txt for the Open Source Academic Research License Agreement
+
+This is now a Fortran-90 code, with MPI and netCDF options
+ No more common blocks.
+ No more header file.
+ Use-associated variables are defined in module cglow.f90
+ Most code converted to lower-case free-form style
+Example driver program glowbasic provides functionality in previous versions
+ Can run one profile at a time or loop
+ Single-processor, no MPI required
+ No netCDF required either
+ You can easily modify this program to suit particular applications
+New driver program glowdriver uses TIE-GCM, TIME-GCM or empirical model inputs
+ Ultimately this will include WACCM-X as well
+ Fully MPI code with user-specified number of processors
+ Namelist input from file in.namelist
+ netCDF output to a file specified in the namelist input
+Can still run with empirical models:
+ Default empirical neutral model updated to MSIS-2K
+ NOEM empirical nitric oxide model, based on SNOE data, used for empirical runs
+ IRI-90 still used for empirical ionosphere
+
+New features in v. 0.98:
+ Most of the new things in v. 0.98 are computational, not scientific.
+ Move to MPI parallel processing forced the elimination of common blocks.
+ Reads netCDF input files from GCMs, and writes global netCDF output files.
+ All of this is optional - you can still run the model the "old" way.
+ (But old driver programs will have to be updated to use shared variables.)
+ Empirical model calls are consolidated in subroutine MZGRID
+ Calculates conductivities using Ryan McGranaghan's CONDUCT routine (adapted).
+ N2 LBH, O 1356, N 1493, O 1304 added to airglow output (ZETA array).
+ (Note 1493 is very approximate since branching rations are poorly known.)
+ Radiative recombination and mutual neutralization included in 1356.
+ Subroutine BANDS added to allocate LBH among v' levels.
+ (Really just a stub now, will ultimately handle vibrational distributions.)
+
+Note that several bugfixes and parameter adjustments were made following the
+ "beta" release of v. 0.98 in early January 2017, so do not use that version.
+
+Other significant changes:
+
+ The quartic equation solver formerly used by GCHEM to calculate electron
+density has been abandoned because it produced minor errors and could not
+be verified. Instead, a simple iterative method is used, which turns out
+to be more accurate and equally fast. Thanks to Michael Hirsch for identifying
+this problem.
+
+ The high-energy electron precipitation example (hexexample) is no longer
+provided. This functionality is built-in to the codes, but if you want to
+do a high-energy electron run you will have to increase NBINS in cglow.f90
+(e.g., to 343 for energies up to 100 MeV) and extend the altitude grid to
+lower altitude by increasing JMAX in the driver program, and adding levels
+in mxgrid.f90.
+
+ Conjugate hemisphere photoelectrons are no longer provided in the example
+drivers, since they are very minor, triple the run time, and weren't widely
+used. They can easily be re-installed in a driver program, but note that
+the magnetic field needs to be updated. The calculation is fairly approximate
+anyway because it doesn't consider exosphere/plasmasphere attenuation of
+the electron flux.
+
+ The background ("night time") ionization rate calculated in QBACK was updated
+to conform to the forumlation now used in the TIE-GCM, TIME-GCM, WACCM, and
+WACCM-X. It is still pretty approximate, but produces an night ionosphere in
+the E and F1 regions that is in reasonable agreement with observations.
+
+ Several unused artifacts were eliminated, but arrays PIA and SESPEC were
+retained in anticipation of including proton aurora ionization in the future.
+
+Known issues (most of these carried over from v. 0.97):
+ X-rays shortward of 18 A need to be re-examined and updated.
+ Magnetic field (GEOMAG, FIELDM) is out of date. GEOMAG is only used by
+ the NOEM model, and isn't too different from the coordinate transform
+ used to generate SNOE data on a magnetic grid. FIELDM only calculates
+ the dip angle, which has a minimual effect on results. But these should
+ be updated to time-varying IGRF/Apex coordinates.
+ O(1S) needs to be re-evaluated (still). Nightglow recombination source
+ still not included. Also need to include O2 A-bands.
+ O(1S) from O2 dissociation (BSO2) is currently hardwired - only works with
+ LMAX=123 (although changes shortward of 800 A are OK).
+ IRI should be updated. Usually, IRI is Only used for electron density above
+ 200 km, and IRI hasn't changed much in the F-region, so it's OK for now.
+ Cascade contributions to 7774 and subsequent cascade to 1356 is questionable.
+ I reduced the effective 7774 cross section, so 7774 and 1356 are now
+ self-consistent, and in reasonable agreement with GUVI data.
+ 1493 sources and branching ratios are speculative. For now, I am presuming
+ that it is produced during photodissociative ionization and electron
+ impact dissociative ionization of N2.
+
+-------------------------------------------------
+
+Version 0.973 release notes, Stan Solomon, 3/2015
+
+Version 0.973 is an incremental release of GLOW, mostly just the example drivers
+ updates example drivers to MSIS-2K
+ adds NOEM empirical nitric oxide model, based on SNOE data, to example drivers
+ some cleanup of example drivers
+ fixs ssflux so it only reads file on first call (or if ISCALE changes).
+
+-------------------------------------------------
+
+Version 0.97 release notes, Stan Solomon, 4/2005
+
+New features:
+ Relativistic correction to electron impact cross sections included
+ Maxwellian or monoenergetic fluxes generated by MAXT
+ Possible to use any solar grid by changing only input files
+ Photoabsorption and photoionization cross sections supplied in files
+ SSFLUX completely re-written:
+ Model parameters supplied in files
+ Default is ~1 nm grid (5 nm in FUV)
+ Hinteregger model still there (ISCALE=0)
+ EUVAC also available (ISCALE=1)
+ User grid and input supported by changing input file and LMAX (ISCALE=2)
+ Common block CGLOW is unchanged
+ Should facilitate upgrade path for existing programs
+ But there are now several obsolete artifacts
+
+Issues addressed in v. 0.97:
+ Fixed two problems with Auger electron production
+ Fixed some small bugs in O(1S) calculation
+ Adjusted N(2D)+O rate coefficient to Fell et al. value (6.9e-13)
+ Adjusted C III on N2 cross section to fix O2 ionization rate problem
+ Removed various artifacts, including EAURI
+ Removed unnecessary N(2D) initial guess (now just set to zero)
+ Now use standard energy and altitude grid in both day and aurora examples
+
+Known issues:
+ X-rays shortward of 18 A need to be re-examined and updated.
+ Magnetic field (GEOMAG, FIELDM) is out of date, really need to update to
+ IGRF, but at the resolutions typical here should be OK for now.
+ Temporary Y2K fix to SUNCOR. Should be fine for 1950-2050, but really
+ need to change from yyddd to yyyyddd date format, which will enable
+ range of validity to extend from 1900-2100. (This only affects SZA.)
+ O(1S) needs to be re-evaluated (still).
+ O(1S) from O2 dissociation (BSO2) is currently hardwired - only works with
+ LMAX=123 (although changes shortward of 800 A are OK).
+ IRI should be updated.
diff --git a/srcGlow/bands.f90 b/srcGlow/bands.f90
new file mode 100644
index 0000000..ea73bc8
--- /dev/null
+++ b/srcGlow/bands.f90
@@ -0,0 +1,44 @@
+! Subroutine BANDS
+
+! This software is part of the GLOW model. Use is governed by the Open Source
+! Academic Research License Agreement contained in the file glowlicense.txt.
+! For more information see the file glow.txt.
+
+! Stan Solomon, 3/2015
+
+! Version 0.1 is really just a stub that divides total N2 singlet state
+! band system excitation rate (a, a', w) into 7 upper states of the N2
+! LBH band system (v' = 0-6). States above v'=6 are presumed to dissociate.
+! Frank Condon factors from Ajello and Shemansky, JGR, 90, 9845-9861, 1985
+
+! Input:
+! Use-associated variables from cglow:
+! jmax number of altitude levels
+! nc number of emission components (in this case, v' levels)
+! aglw excited state array (state, species, altitude)
+! zeta airglow volume emission rate array (emission, species, altitude)
+! Output:
+! Use-associated variables from cglow:
+! zlbh total excitation rate to each LBH v' level (cm-3 s-1)
+
+
+subroutine bands
+
+ use cglow, only: jmax, nc, aglw, zeta, zlbh
+
+ implicit none
+
+ integer :: k,m
+ real :: fcfac(nc)
+ data fcfac /0.043,0.114,0.168,0.183,0.160,0.122,0.084,0.0,0.0,0.0/
+
+ do k=1,jmax
+ do m=1,nc
+! zlbh(m,k)=aglw(4,3,k)*fcfac(m)
+ zlbh(m,k)=zeta(12,k)*fcfac(m)
+ end do
+ end do
+
+ return
+
+end subroutine bands
diff --git a/srcGlow/cglow.f90 b/srcGlow/cglow.f90
new file mode 100644
index 0000000..ef0441b
--- /dev/null
+++ b/srcGlow/cglow.f90
@@ -0,0 +1,282 @@
+module cglow
+
+! This software is part of the GLOW model. Use is governed by the Open Source
+! Academic Research License Agreement contained in the file glowlicense.txt.
+! For more information see the file glow.txt.
+
+! Version 0.981, 6/2017
+
+! Stan Solomon and Ben Foster, 1/2015
+! Stan Solomon, 1/2016, 3/2016, consolidated with cxglow
+! Stan Solomon, 6/2017, zeroed out arrays
+
+! CGLOW Defines array dimensions and use-associated variables for the GLOW model.
+! Replaces the header file glow.h and common blocks /CGLOW/, /CXSECT/, and /CXPARS/
+! that were used in older versions of the model (v. 0.973 and earlier).
+
+! For variable definitions, see subroutine GLOW and subroutine EXSECT.
+
+! Old common blocks, for reference:
+
+! COMMON /CGLOW/
+! > IDATE, UT, GLAT, GLONG, ISCALE, JLOCAL, KCHEM,
+! > F107, F107A, HLYBR, FEXVIR, HLYA, HEIEW, XUVFAC,
+! > ZZ(JMAX), ZO(JMAX), ZN2(JMAX), ZO2(JMAX), ZNO(JMAX),
+! > ZNS(JMAX), ZND(JMAX), ZRHO(JMAX), ZE(JMAX),
+! > ZTN(JMAX), ZTI(JMAX), ZTE(JMAX),
+! > PHITOP(NBINS), EFLUX(NF), EZERO(NF),
+! > SZA, DIP, EFRAC, IERR,
+! > ZMAJ(NMAJ,JMAX), ZCOL(NMAJ,JMAX),
+! > WAVE1(LMAX), WAVE2(LMAX), SFLUX(LMAX),
+! > ENER(NBINS), DEL(NBINS),
+! > PESPEC(NBINS,JMAX), SESPEC(NBINS,JMAX),
+! > PHOTOI(NST,NMAJ,JMAX), PHOTOD(NST,NMAJ,JMAX), PHONO(NST,JMAX),
+! > QTI(JMAX), AURI(NMAJ,JMAX), PIA(NMAJ,JMAX), SION(NMAJ,JMAX),
+! > UFLX(NBINS,JMAX), DFLX(NBINS,JMAX), AGLW(NEI,NMAJ,JMAX),
+! > EHEAT(JMAX), TEZ(JMAX), ECALC(JMAX),
+! > ZXDEN(NEX,JMAX), ZETA(NW,JMAX), ZCETA(NC,NW,JMAX), VCB(NW)
+
+! COMMON /CXSECT/ SIGS(NMAJ,NBINS), PE(NMAJ,NBINS), PIN(NMAJ,NBINS),
+! > SIGA(NMAJ,NBINS,NBINS), SEC(NMAJ,NBINS,NBINS),
+! > SIGEX(NEI,NMAJ,NBINS), SIGIX(NEI,NMAJ,NBINS),
+! > IIMAXX(NBINS)
+
+! COMMON /CXPARS/ WW(NEI,NMAJ), AO(NEI,NMAJ), OMEG(NEI,NMAJ),
+! > ANU(NEI,NMAJ), BB(NEI,NMAJ), AUTO(NEI,NMAJ),
+! > THI(NEI,NMAJ), AK(NEI,NMAJ), AJ(NEI,NMAJ),
+! > TS(NEI,NMAJ), TA(NEI,NMAJ), TB(NEI,NMAJ),
+! > GAMS(NEI,NMAJ), GAMB(NEI,NMAJ)
+
+
+ implicit none
+ save
+
+! Array dimensions, configurable:
+
+ integer :: jmax ! number of vertical levels
+
+! Array dimensions, non-configurable:
+
+! integer,parameter :: nbins=190 ! number of energetic electron energy bins
+ integer,parameter :: nbins=215 ! number of energetic electron energy bins
+ integer,parameter :: npbins=27 ! number of energetic proton precipitation energy bins
+ integer,parameter :: lmax=123 ! number of wavelength intervals for solar flux
+ integer,parameter :: nmaj=3 ! number of major species
+ integer,parameter :: nst=6 ! number of states produced by photoionization/dissociation
+ integer,parameter :: nei=10 ! number of states produced by electron impact
+ integer,parameter :: nex=12 ! number of excited/ionized species
+ integer,parameter :: nw=15 ! number of airglow emission wavelengths
+ integer,parameter :: nc=10 ! number of component production terms for each emission
+
+! Directory containing data files needed by glow subroutines:
+
+ character(len=1024) :: data_dir
+
+ integer :: idate,iscale,jlocal,kchem,ierr
+ real :: ut,glat,glong,f107,f107a,f107p,ap,ef,ec,pf,pc
+ real :: xuvfac, sza, dip, efrac
+
+ real,allocatable,dimension(:) :: & ! (jmax)
+ zz, zo, zn2, zo2, zno, zns, znd, zrho, ze, &
+ ztn, zti, zte, eheat, tez, ecalc, tei, tpi, tir
+ real,allocatable,dimension(:) :: phitop, ener, del ! (nbins)
+ real,allocatable,dimension(:) :: pflux, pener, pdel ! (npbins)
+ real,allocatable,dimension(:) :: wave1, wave2, sflux ! (lmax)
+ real,allocatable,dimension(:,:) :: pespec, sespec, uflx, dflx ! (nbins,jmax)
+ real,allocatable,dimension(:,:) :: zmaj, zcol, pia, sion ! (nmaj,jmax)
+ real,allocatable,dimension(:,:,:) :: photoi, photod ! (nst,nmaj,jmax)
+ real,allocatable,dimension(:,:) :: phono ! (nst,jmax)
+ real,allocatable,dimension(:,:,:) :: aglw ! (nei,nmaj,jmax)
+ real,allocatable,dimension(:,:) :: zxden ! (nex,jmax)
+ real,allocatable,dimension(:,:) :: zeta ! (nw,jmax)
+ real,allocatable,dimension(:,:,:) :: zceta ! (nc,nw,jmax)
+ real,allocatable,dimension(:) :: vcb ! (nw)
+ real,allocatable,dimension(:,:) :: zlbh ! (nc,jmax)
+ real,allocatable,dimension(:,:) :: sigs,pe,pin ! (nmaj,nbins)
+ real,allocatable,dimension(:,:,:) :: sigex,sigix ! (nei,nmaj,nbins)
+ real,allocatable,dimension(:,:,:) :: siga,sec ! (nei,nbins,nbins)
+ integer,allocatable,dimension(:) :: iimaxx ! (nbins)
+ real,allocatable,dimension(:,:) :: & ! (nei,nmaj)
+ ww,ao,omeg,anu,bb,auto,thi,ak,aj,ts,ta,tb,gams,gamb
+
+ ! for input flux file reading
+ real, allocatable,dimension(:,:) :: ef_diff, pf_diff
+ real, allocatable,dimension(:) :: ec_diff,pc_diff, glats,glons,mlats,mlons,mlts
+ integer, allocatable, dimension(:) :: iyear_traj,imonth_traj,iday_traj,&
+ ihour_traj,iminute_traj,isecond_traj
+ integer :: ntimes_traj,nE
+ real, allocatable, dimension(:) :: ec_all, ef_all,pc_all,pf_all, sigmap_r, sigmah_r
+ contains
+!-----------------------------------------------------------------------
+
+ subroutine cglow_init
+
+! Allocate variable arrays:
+
+ if (.not.allocated(zz))then
+ allocate &
+ (zz (jmax), &
+ zo (jmax), &
+ zn2 (jmax), &
+ zo2 (jmax), &
+ zno (jmax), &
+ zns (jmax), &
+ znd (jmax), &
+ zrho (jmax), &
+ ze (jmax), &
+ ztn (jmax), &
+ zti (jmax), &
+ zte (jmax), &
+ eheat(jmax), &
+ tez (jmax), &
+ tei (jmax), &
+ tpi (jmax), &
+ tir (jmax), &
+ ecalc(jmax))
+
+ allocate &
+ (zxden(nex,jmax), &
+ zeta(nw,jmax), &
+ zceta(nc,nw,jmax), &
+ vcb(nw), &
+ zlbh(nc,jmax))
+
+ allocate &
+ (phitop(nbins), &
+ ener (nbins), &
+ del (nbins))
+
+ allocate &
+ (pflux(npbins), &
+ pener(npbins), &
+ pdel(npbins))
+
+ allocate &
+ (wave1(lmax), &
+ wave2(lmax), &
+ sflux(lmax))
+
+ allocate &
+ (pespec(nbins,jmax), &
+ sespec(nbins,jmax), &
+ uflx (nbins,jmax), &
+ dflx (nbins,jmax))
+
+ allocate &
+ (zmaj(nmaj,jmax), &
+ zcol(nmaj,jmax), &
+ pia (nmaj,jmax), &
+ sion(nmaj,jmax))
+
+ allocate &
+ (aglw (nei,nmaj,jmax), &
+ photoi(nst,nmaj,jmax), &
+ photod(nst,nmaj,jmax), &
+ phono(nst,jmax))
+
+ allocate &
+ (sigs(nmaj,nbins), &
+ pe (nmaj,nbins), &
+ pin (nmaj,nbins))
+
+ allocate &
+ (sigex(nei,nmaj,nbins), &
+ sigix(nei,nmaj,nbins))
+
+ allocate &
+ (siga(nei,nbins,nbins), &
+ sec (nei,nbins,nbins))
+
+ allocate(iimaxx(nbins))
+
+ allocate &
+ (ww (nei,nmaj), &
+ ao (nei,nmaj), &
+ omeg(nei,nmaj), &
+ anu (nei,nmaj), &
+ bb (nei,nmaj), &
+ auto(nei,nmaj), &
+ thi (nei,nmaj), &
+ ak (nei,nmaj), &
+ aj (nei,nmaj), &
+ ts (nei,nmaj), &
+ ta (nei,nmaj), &
+ tb (nei,nmaj), &
+ gams(nei,nmaj), &
+ gamb(nei,nmaj))
+
+! Zero all allocated variable arrays:
+
+ zz (:) =0.
+ zo (:) =0.
+ zn2 (:) =0.
+ zo2 (:) =0.
+ zno (:) =0.
+ zns (:) =0.
+ znd (:) =0.
+ zrho (:) =0.
+ ze (:) =0.
+ ztn (:) =0.
+ zti (:) =0.
+ zte (:) =0.
+ eheat(:) =0.
+ tez (:) =0.
+ tei (:) =0.
+ tpi (:) =0.
+ tir (:) =0.
+ ecalc(:) =0.
+ zxden(:,:) =0.
+ zeta(:,:) =0.
+ zceta(:,:,:) =0.
+ vcb(:) =0.
+ zlbh(:,:) =0.
+ phitop(:) =0.
+ ener (:) =0.
+ del (:) =0.
+ pflux (:) =0.
+ pener (:) =0.
+ pdel (:) =0.
+ wave1(:) =0.
+ wave2(:) =0.
+ sflux(:) =0.
+ pespec(:,:) =0.
+ sespec(:,:) =0.
+ uflx (:,:) =0.
+ dflx (:,:) =0.
+ zmaj(:,:) =0.
+ zcol(:,:) =0.
+ pia (:,:) =0.
+ sion(:,:) =0.
+ aglw (:,:,:)=0.
+ photoi(:,:,:)=0.
+ photod(:,:,:)=0.
+ phono(:,:) =0.
+ sigs(:,:) =0.
+ pe (:,:) =0.
+ pin (:,:) =0.
+ sigex(:,:,:) =0.
+ sigix(:,:,:) =0.
+ siga(:,:,:) =0.
+ sec (:,:,:) =0.
+ iimaxx(:) =0.
+ ww (:,:) =0.
+ ao (:,:) =0.
+ omeg(:,:) =0.
+ anu (:,:) =0.
+ bb (:,:) =0.
+ auto(:,:) =0.
+ thi (:,:) =0.
+ ak (:,:) =0.
+ aj (:,:) =0.
+ ts (:,:) =0.
+ ta (:,:) =0.
+ tb (:,:) =0.
+ gams(:,:) =0.
+ gamb(:,:) =0.
+ end if
+
+ end subroutine cglow_init
+
+!-----------------------------------------------------------------------
+
+end module cglow
diff --git a/srcGlow/conduct.f90 b/srcGlow/conduct.f90
new file mode 100644
index 0000000..1b235a2
--- /dev/null
+++ b/srcGlow/conduct.f90
@@ -0,0 +1,143 @@
+! Subroutine CONDUCT
+
+! Calculates Pedersen and Hall conductivity from ion/neutral densities and temperatures.
+
+! Ryan McGranaghan, 2014
+! Modifications by Stan Solomon, 6/2016:
+! corrected Tr=(Ti+Tn)/2 instead of (Ti+Te)/2
+! changed to Ne = O+ + NO+ + O2+ for charge neutrality and correct Hall conductance
+! added Tn to call, removed Ne, and re-ordered calling parameters
+! changed densities to cm^-3 (and multiplied results by 1.e6)
+! cleaned up comments
+! refactored for f90
+
+! Input parameters:
+! lat, lon, alt : latitude [deg], longitude [deg], altitude [km]
+! nO, nO2, nN2 : neutral constituent densities [cm^-3]
+! n0p, nO2p, nNOp : ion consituent densities [cm^-3]
+! Tn, Ti, Te : neutral, electron and ion temperatures [K]
+
+! Output parameters:
+! PedCond : Pedersen conductivity [S/m]
+! HallCond : Hall conductivity [S/m]
+
+! Variable definitions:
+! Ion-neutral momentum transfer collision frequencies (from TIE-GCM lamdas.F routine):
+! nu_o2po2 ! O2+ ~ O2 collision freq (resonant, temperature dependent)
+! nu_opo2 ! O+ ~ O2 collision freq (non-resonant)
+! nu_nopo2 ! NO+ ~ O2 collision freq (non-resonant)
+! nu_o2po ! O2+ ~ O collision freq (non-resonant)
+! nu_opo ! O+ ~ O collision freq (resonant, temperature dependent)
+! nu_nopo ! NO+ ~ O collision freq (non-resonant)
+! nu_o2pn2 ! O2+ ~ N2 collision freq (non-resonant)
+! nu_opn2 ! O+ ~ N2 collision freq (non-resonant)
+! nu_nopn2 ! NO+ ~ N2 collision freq (non-resonant)
+! nu_o2p ! [[o2p~o2]n(o2)+[o2p~o]n(o)+[o2p~n2]n(n2)]
+! nu_op ! [[op ~o2]n(o2)+[op ~o]n(o)+[op ~n2]n(n2)]
+! nu_nop ! [[nop~o2]n(o2)+[nop~o]n(o)+[nop~n2]n(n2)]
+! nu_ne ! electron~neutral
+
+ SUBROUTINE CONDUCT(lat, long, alt, nO, nO2, nN2, nOp, nO2p, nNOp, &
+ Tn, Ti, Te, PedCond, HallCond)
+
+ implicit none
+
+ real, intent(in) :: lat,long,alt,nOp,nO2p,nNOp
+ real, intent(in) :: Tn, Te, Ti, nO, nO2, nN2
+ real, intent(out) :: PedCond, HallCond
+
+ real :: XFmag, YFmag, ZFmag, Bmagn, DIPmag, DECmag, SDIPmag
+ real :: om_Op, om_O2p, om_NOp, om_e
+ real :: nu_O2pO2, nu_OpO2, nu_NOpO2, nu_OpO, nu_NOpO, nu_O2pO
+ real :: nu_O2pN2, nu_NOpN2, nu_OpN2, nu_O2p, nu_Op, nu_NOp, nu_en
+ real :: r_O2p, r_Op, r_NOp, r_e
+ real :: nE
+
+ real, parameter :: Na = 6.0221413e23 ! Avagadros number
+ real, parameter :: me = 9.10938291e-31 ! electron mass in kg
+ real, parameter :: qe = 1.60217657e-19 ! electron charge in C
+ real, parameter :: Mbar_O2 = 0.031999 ! molecular mass of O2 in kg/mol
+ real, parameter :: Mbar_O = 0.0159995 ! molecular mass of O in kg/mol
+ real, parameter :: Mbar_NO = 0.030 ! molecular mass of NO in kg/mol
+ real, parameter :: Burnfac = 1.5 ! Burnside Factor
+
+! Calculate magnetic field strength and convert to from Gauss to Tesla:
+
+ call FIELDM (lat,long,alt,XFmag,YFmag,ZFmag,Bmagn,DIPmag,DECmag, SDIPmag)
+ Bmagn = Bmagn*1.e-4
+
+! Calculate gyro frequencies Using Tesla, Coulomb, and m^-3:
+
+ om_Op = (qe*Bmagn*Na)/(Mbar_O)
+ om_O2p = (qe*Bmagn*Na)/(Mbar_O2)
+ om_NOp = (qe*Bmagn*Na)/(Mbar_NO)
+ om_e = ( (qe*Bmagn)/me )
+
+! Calculate collision frequencies using method adapted from the TIE-GCM
+! which includes the Burnside factor correction for O+-O collision frequency.
+! NOTE: densities are in cm^-3 and coefficients are in cm^3 s^-1.
+
+ nu_O2pO2 = nO2*(2.59e-11)*sqrt((Ti+Tn)/2.)*((1.-0.073*log10((Ti+Tn)/2.))**2)
+ nu_OpO2 = nO2*(6.64e-10)
+ nu_NOpO2 = nO2*(4.27e-10)
+ nu_OpO = nO*((3.67e-11)*sqrt((Ti+Tn)/2.)*((1.-0.064*log10((Ti+Tn)/2.))**2)*BurnFac)
+ nu_NOpO = nO*(2.44e-10)
+ nu_O2pO = nO*(2.31e-10)
+ nu_O2pN2 = nN2*(4.13e-10)
+ nu_NOpN2 = nN2*(4.34e-10)
+ nu_OpN2 = nN2*(6.82e-10)
+
+! Sum the specific collision frequencies and calculate electron
+! collision frequency with neutrals (ignoring the contribution from
+! collisions with ions):
+
+ nu_O2p = nu_O2pO2 + nu_O2pO + nu_O2pN2
+ nu_Op = nu_OpO2 + nu_OpO + nu_OpN2
+ nu_NOp = nu_NOpO2 + nu_NOpO + nu_NOpN2
+ nu_en = (2.33e-11) * nN2*Te*(1.-(1.21e-4)*Te) &
+ + (1.82e-10)*nO2*sqrt(Te)*(1.+(3.6e-2)*sqrt(Te)) &
+ + (8.9e-11)*nO*sqrt(Te)*(1.+(5.7e-4)*Te)
+
+! Comment from TIE-GCM source code in file lamdas.F:
+! 6/2/06 btf: Multiply rnu_ne by 4, as per Art Richmond:
+! The effective electron-neutral collision frequency is increased in
+! an ad-hoc manner by a factor of 4 in order for the model to produce
+! electric fields and currents below 105 km that agree better with
+! observations, as recommended by Gagnepain et al. (J. Atmos. Terr.
+! Phys., 39, 1119-1124, 1977).
+
+ nu_en = nu_en * 4.
+
+! Calculate the ratios of collision frequency to gyro frequency:
+
+ r_O2p = nu_O2p/om_O2p
+ r_Op = nu_Op/om_Op
+ r_NOp = nu_NOp/om_NOp
+ r_e = nu_en/om_e
+
+! Define electron density for purpose of conductivity calculations to be
+! the sum of the major ions:
+
+ nE = nOp+nO2p+nNOp
+
+! Calculate Pederson and Hall conductivity using the TIE-GCM formulation:
+! NOTE: multiplied by 1.e6 to convert densities to m^-3, so that
+! conductivities are in Siemens/meter, a.k.a. mhos.
+
+
+ PedCond = (1.e6*qe/Bmagn) * &
+ ( nOp*(r_Op/(1+r_Op**2)) + &
+ nO2p*(r_O2p/(1+r_O2p**2)) + &
+ nNOp*(r_NOp/(1+r_NOp**2)) + &
+ nE*(r_e/(1+r_e**2)) )
+
+ HallCond = (1.e6*qe/Bmagn) * &
+ ( nE/(1+r_e**2) - &
+ nOp/(1+r_Op**2) - &
+ nO2p/(1+r_O2p**2) - &
+ nNOp/(1+r_NOp**2) )
+
+ if (HallCond < 0.) HallCond=0.
+
+ return
+ end subroutine conduct
diff --git a/srcGlow/egrid.f90 b/srcGlow/egrid.f90
new file mode 100644
index 0000000..9588c6a
--- /dev/null
+++ b/srcGlow/egrid.f90
@@ -0,0 +1,46 @@
+! Subroutine EGRID sets up electron energy grid
+
+! This software is part of the GLOW model. Use is governed by the open source
+! academic research license agreement contained in the file glowlicense.txt.
+! For more information see the file glow.txt.
+
+! Stan Solomon, 1/1992
+! Refactored to f90, SCS, 6/2016
+
+! Inputs:
+! nbins number of bins in the electron energy grid
+! Outputs:
+! ener energy at center of each bin, eV
+! del width of each bin, eV
+
+
+subroutine egrid (ener, del, nbins)
+
+ implicit none
+
+ integer,intent(in) :: nbins
+ real,intent(out) :: ener(nbins), del(nbins)
+
+ integer :: n
+
+ do n=1,nbins
+ if (n <= 21) then
+ ener(n) = 0.5 * float(n)
+ else
+ ener(n) = exp (0.05 * float(n+26))
+ endif
+ enddo
+
+ del(1) = 0.5
+
+ do n=2,nbins
+ del(n) = ener(n)-ener(n-1)
+ enddo
+
+ do n=1,nbins
+ ener(n) = ener(n) - del(n)/2.0
+ enddo
+
+ return
+
+end subroutine egrid
diff --git a/srcGlow/ephoto.f90 b/srcGlow/ephoto.f90
new file mode 100644
index 0000000..74131f7
--- /dev/null
+++ b/srcGlow/ephoto.f90
@@ -0,0 +1,336 @@
+! Subroutine EPHOTO
+
+! This software is part of the GLOW model. Use is governed by the Open Source
+! Academic Research License Agreement contained in the file glowlicense.txt.
+! For more information see the file glow.txt.
+
+! Adapted from Banks & Nagy 2-stream input code by Stan Solomon, 6/1988
+! Modified to handle Auger electrons, Stan Solomon, 7/1990
+! Reads cross sectons from files (for 1-nm bins), Scott Bailey, ~1994
+! Modified bin structure, fixed CIII problem, Stan Solomon, 12/2000
+! Corrected additional Auger problem, Liying Qian, 11/2002
+! Converged above three branches, Stan Solomon, 3/2005
+! Removed LIMIN, wavelength loop now runs from 1 to LMAX, SCS, 3/2005
+! Converted common blocks to use-associated variables, Ben Foster, 2015
+! Refactored to f90, SCS, 6/2016
+
+! This subroutine calculates photoionization, rates, certain
+! photodissociative excitation rates, and the photoelectron production
+! spectrum as a function of altitude. Uses continuously variable energy
+! grid. Three major species: O, O2, N2; NO is treated as a minor (non-
+! absorbing) specie.
+
+! Input supplied through use-associated variables defined in module cglow.f90:
+! WAVE1 wavelength array, upper bound; Angstroms
+! WAVE2 wavelength array, lower bound; Angstroms
+! SFLUX solar flux array; photons cm-2 sec-1
+! ZZ altitude array; cm above earth
+! ZMAJ density array for species O, O2, N2, altitude; cm-3
+! ZNO density of NO at each altitude; cm-3
+! ZCOL slant column density for species O, O2, N2, altitude; cm-2
+! ENER energy grid for photoelectrons; eV
+! DEL array of energy grid increments; eV
+
+! Output provided through use-associated variables defined in module cglow.f90:
+! PESPEC photoelectron production spectrum for each altitude; cm-3 s-1
+! PHOTOI photoionization rates for state, species, altitude; cm-3 s-1
+! PHOTOD photodissoc./exc. rates for state, species, alt.; cm-3 s-1
+! PHONO photoionization/dissoc./exc. rates for NO; cm-3 s-1
+
+! Other definitions:
+! DSPECT ionization rate in particular wavelength bin; cm-3 s-1
+! TAU optical depth, dimensionless
+! FLUX solar flux at altitude; cm-2 s-1
+! SIGABS photoabsorption cross sections, O, O2, N2; cm2
+! SIGION photoionization cross sections, O, O2, N2; cm2
+! SIGAO, SIGAO2, SIGAN2, SIGIO, SIGIO2, SIGIN2; cross sect. data arrays
+! NNN number of states for each species
+! TPOT ionization potentials for each species, state; eV
+! PROB branching ratios for each state, species, and wavelength bin:
+! O+ states: 4S, 2Do, 2Po, 4Pe, 2Pe
+! O2+ states: X, a+A, b, dissoc.
+! N2+ states: X, A, B, C, F, dissoc.
+! PROBO, PROBO2, PROBN2; branching ratio data arrays
+! BSO2 yield of O(1S) from dissociation of O2
+! EPSIL1 energy loss lower bound for state, species, wavelength; eV
+! EPSIL2 energy loss upper bound for state, species, wavelength; eV
+! SIGNO NO photoionization xsect at Ly-alpha
+! AUGE Mean energy of Auger electrons for each species; eV
+! AUGL Wavelength threshold for Auger electrons; Angstroms
+
+! Array dimensions:
+! JMAX number of altitude levels
+! NBINS number of energetic electron energy bins
+! LMAX number of wavelength intervals for solar flux
+! NMAJ number of major species
+! NST number of states produced by photoionization/dissociation
+
+
+subroutine ephoto
+
+ use cglow,only: jmax,nbins,lmax,nmaj,nst
+ use cglow,only: wave1,wave2,phono,photoi,photod,pespec,zcol,sflux
+ use cglow,only: zmaj,del,ener,zno
+ use cglow,only: data_dir
+
+ implicit none
+ save
+
+ integer :: nnn(nmaj)
+ real :: dspect(jmax), flux(lmax,jmax), &
+ sigion(nmaj,lmax), sigabs(nmaj,lmax), &
+ tpot(nst,nmaj), prob(nst,nmaj,lmax), &
+ epsil1(nst,nmaj,lmax), epsil2(nst,nmaj,lmax), &
+ sigao(lmax), sigao2(lmax), sigan2(lmax), &
+ sigio(lmax), sigio2(lmax), sigin2(lmax), &
+ probo(nst,lmax), probo2(nst,lmax), probn2(nst,lmax), &
+ bso2(lmax), auge(nmaj), augl(nmaj), tau(lmax), &
+ rion(lmax,nmaj,jmax)
+
+ real,parameter :: signo = 2.0e-18
+ integer :: ifirst=1
+ integer :: l,n,k,i,j,m,m1,m2
+ real :: aa,bb,fac,e1,e2,y,r1,r2
+ character(len=1024) :: filepath
+
+ nnn = (/5,4,6/)
+ tpot(1:nst,1) = (/13.61, 16.93, 18.63, 28.50, 40.00, 0.00/)
+ tpot(1:nst,2) = (/12.07, 16.10, 18.20, 20.00, 0.00, 0.00/)
+ tpot(1:nst,3) = (/15.60, 16.70, 18.80, 30.00, 34.80, 25.00/)
+ auge = (/500.,500.,360./)
+ augl = (/24.,24.,33./)
+ bso2(1:12) = 0.
+ bso2(13) = .01
+ bso2(14) = .03
+ bso2(15:21) = .10
+ bso2(22:29) = .07
+ bso2(30:34) = .03
+ bso2(35:39) = .01
+ bso2(40:lmax) = 0.
+
+! First time only: Read cross section data from files, convert to cm2,
+! calculate energy losses:
+
+ if (ifirst == 1) then
+ ifirst = 0
+
+ filepath = trim(data_dir)//'ephoto_xn2.dat'
+ open(unit=1,file=filepath,status='old',action='read')
+ read(1,*)
+ read(1,*)
+ read(1,*)
+ read(1,*)
+ do l=lmax,1,-1
+ read(1,*) aa,bb,(probn2(n,l),n=1,nst),sigin2(l),sigan2(l)
+ enddo
+ close(1)
+
+ filepath = trim(data_dir)//'ephoto_xo2.dat'
+ open(unit=1,file=filepath,status='old',action='read')
+ read(1,*)
+ read(1,*)
+ read(1,*)
+ read(1,*)
+ do l=lmax,1,-1
+ read(1,*) aa,bb,(probo2(n,l),n=1,nst),sigio2(l),sigao2(l)
+ enddo
+ close(1)
+
+ filepath = trim(data_dir)//'ephoto_xo.dat'
+ open(unit=1,file=filepath,status='old',action='read')
+ read(1,*)
+ read(1,*)
+ read(1,*)
+ read(1,*)
+ do l=lmax,1,-1
+ read(1,*) aa,bb,(probo(n,l),n=1,nst),sigio(l),sigao(l)
+ enddo
+ close(1)
+
+ do l=1,lmax
+ sigabs(1,l) = sigao(l) * 1.e-18
+ sigabs(2,l) = sigao2(l) * 1.e-18
+ sigabs(3,l) = sigan2(l) * 1.e-18
+ sigion(1,l) = sigio(l) * 1.e-18
+ sigion(2,l) = sigio2(l) * 1.e-18
+ sigion(3,l) = sigin2(l) * 1.e-18
+ enddo
+
+ do l=1,lmax
+ do k=1,nst
+ prob(k,1,l) = probo(k,l)
+ prob(k,2,l) = probo2(k,l)
+ prob(k,3,l) = probn2(k,l)
+ enddo
+ enddo
+
+ do l=1,lmax
+ do i=1,nmaj
+ do k=1,nnn(i)
+ epsil1(k,i,l)=12397.7/wave1(l)-tpot(k,i)
+ epsil2(k,i,l)=12397.7/wave2(l)-tpot(k,i)
+ if (wave1(l) <= augl(i)) then
+ epsil1(k,i,l) = epsil1(k,i,l) - auge(i)
+ epsil2(k,i,l) = epsil2(k,i,l) - auge(i)
+ endif
+ enddo
+ enddo
+ enddo
+
+ endif ! end of first-time-only conditional
+
+! Zero arrays:
+
+ phono(:,:) = 0.
+ photoi(:,:,:) = 0.
+ photod(:,:,:) = 0.
+ pespec(:,:) = 0.
+
+! Calculate attenuated solar flux at all altitudes and wavelengths:
+
+ do l=1,lmax
+ do j=1,jmax
+ tau(l)=0.
+ do i=1,nmaj
+ tau(l)=tau(l)+sigabs(i,l)*zcol(i,j)
+ enddo
+ if (tau(l) < 20.) then
+ flux(l,j)=sflux(l)*exp(-tau(l))
+ else
+ flux(l,j) = 0.0
+ endif
+
+! Calculate SRC photodissociation of O2, dissociative excitation of
+! O(1S), photodissociation of N2, and photoionization of NO by solar Ly-alpha:
+
+ if (wave1(l) < 1751. .and. wave2(l) > 1349.) then
+ photod(1,2,j)=photod(1,2,j)+zmaj(2,j)*sigabs(2,l)*flux(l,j)
+ endif
+ photod(2,2,j) = photod(2,2,j) + zmaj(2,j)*sigabs(2,l)*flux(l,j)*bso2(l)
+ photod(1,3,j) = photod(1,3,j) + zmaj(3,j)*(sigabs(3,l)-sigion(3,l))*flux(l,j)
+ if (wave1(l) < 1221. .and. wave2(l) > 1209.) then
+ phono(1,j) = phono(1,j) + zno(j)*signo*flux(l,j)
+ endif
+ enddo
+ enddo
+
+! Calculate ionization rates and photoelectron production:
+
+! Loop over wavelengths:
+
+ do l=1,lmax
+
+! Loop over species:
+
+ do i=1,nmaj
+
+! Calculate total ionization rates for all species and altitudes:
+
+ do j=1,jmax
+ rion(l,i,j)=zmaj(i,j)*sigion(i,l)*flux(l,j)
+ enddo
+
+! Loop over states to calculate state-specific ionization rates at all altitudes:
+
+ do k=1,nnn(i)
+ e1= epsil1(k,i,l)
+ e2= epsil2(k,i,l)
+
+ if (e2 >= 0.) then
+
+ if (e1 < 0.) e1=0.
+ do j=1,jmax
+ dspect(j) = rion(l,i,j)*prob(k,i,l)
+ photoi(k,i,j) = photoi(k,i,j) + dspect(j)
+ enddo
+
+! Find box numbers m1, m2 corresponding to energies e1, e2:
+
+ call boxnum (e1, e2, m1, m2, r1, r2, nbins, del, ener)
+
+! Fill the boxes from m1 to m2 at all altitudes:
+
+ if (m1 <= nbins) then
+ y = e2 - e1
+ do n=m1,m2
+ if (m1 == m2) then
+ fac = 1.
+ else
+ if (n == m1) then
+ fac = (r1-e1) / y
+ else
+ if (n == m2) then
+ fac = (e2-r2) / y
+ else
+ fac = del(n) / y
+ endif
+ endif
+ endif
+ do j=1,jmax
+ pespec(n,j) = pespec(n,j) + dspect(j) * fac
+ enddo
+ enddo
+ endif
+
+ endif
+
+ enddo ! bottom of states loop
+
+! Generate Auger electrons if energy is sufficient:
+
+ if (wave1(l) <= augl(i)) then
+ e1 = auge(i)
+ e2 = auge(i)
+ call boxnum (e1, e2, m1, m2, r1, r2, nbins, del, ener)
+ if (m1 <= nbins .and. m2 <= nbins) then
+ do j=1,jmax
+ pespec(m1,j) = pespec(m1,j) + rion(l,i,j)
+ enddo
+ endif
+ endif
+
+ enddo ! bottom of species loop
+
+ enddo ! bottom of wavelength loop
+
+ return
+
+end subroutine ephoto
+
+
+subroutine boxnum (e1, e2, m1, m2, r1, r2, nbins, del, ener)
+
+! This subroutine finds the box numbers corresponding to
+! energies e1 and e2, and calls them m1 and m2.
+! r1 is the upper edge of the lower box, r2 is the lower edge of the
+! upper box.
+
+ implicit none
+
+ real,intent(in) :: e1,e2
+ real,intent(in) :: del(nbins), ener(nbins)
+ integer,intent(in) :: nbins
+ real,intent(out) :: r1,r2
+ integer,intent(out) :: m1,m2
+ integer :: i,j
+
+ do i=1,nbins
+ if (e1 < ener(i)+del(i)/2.) then
+ m1 = i
+ r1 = ener(i) + del(i)/2.
+ do j=1,nbins
+ if (e2 < ener(j)+del(j)/2.) then
+ m2 = j
+ r2 = ener(j) - del(j)/2.
+ return
+ endif
+ enddo
+ m2 = nbins
+ r2 = e2 - del(nbins)
+ return
+ endif
+ enddo
+ m1 = nbins+1
+ return
+
+end subroutine boxnum
diff --git a/srcGlow/etrans.f90 b/srcGlow/etrans.f90
new file mode 100644
index 0000000..fc3e4a7
--- /dev/null
+++ b/srcGlow/etrans.f90
@@ -0,0 +1,404 @@
+! Subroutine ETRANS
+
+! This software is part of the glow model. Use is governed by the open source
+! academic research license agreement contained in the file glowlicense.txt.
+! For more information see the file glow.txt.
+
+! Banks & Nagy 2-stream electron transport code
+! Adapted by Stan Solomon, 1986, 1988
+! Uses variable altitude and energy grids
+! Updated comments and removed artifacts, scs, 2005
+! Moved common blocks into use-associated variables defined in cglow.f90, btf, 2015
+! Changed input to subroutine impit to argument list, scs, 2015
+! Modernized to remove upper case and numbered line statements, scs, 2016
+! Refactored for f90, scs, 2016
+
+! Subroutine EXSECT called first time only to calculate electron impact cross sections.
+
+! Definitions:
+! Use-associated variables (formerly in common blocks): See glow.f90, cglow.f90, and exsect.f
+! psi first term of parabolic d.e., = 1
+! alpha second term "; cm-1
+! beta third term "; cm-2
+! gamma forth term "; cm-4 s-1 ev-1
+! delz altitude increments; cm
+! del2 sum of altitude increment and next higher increment; cm
+! dela average of "
+! delp product of dela and next higher delz
+! delm product of dela and delz
+! dels product of delz and next higer delz
+! den dummy array for transfer of calculated downward flux
+! fac factor for extrapolating production rate, = 0
+! prod sum of photoelectron production and secondary electrons from protons; cm-3 s-1 ev-1
+! eprod energy of "; ev cm-3
+! t1 elastic collision term; cm-1
+! t2 elastic + inelastic collision term; cm-1
+! tsa total energy loss cross section for each species; cm2
+! produp upward cascade + secondary production; cm-3 s-1 ev-1
+! prodwn downward "
+! phiup upward flux; cm-2 s-1 ev-1
+! phidwn downward "
+! tsigne thermal electron collision term; cm-1
+! secion total ionization rate; cm-3 s-1
+! secp secondary electron production; cm-3 s-1 ev-1
+! r1 ratio term for calculating upward flux; cm-2 s-1 ev-1
+! expt2 exponential term for calculating upward flux
+! produa collection array for calculating produp; cm-3 s-1 ev-1
+! prodda " prodwn
+! phiinf downward flux at top of atmos., divided by avmu; cm-2 s-1 ev-1
+! potion ionizaition potential for each species; ev
+! avmu cosine of the average pitch angle
+
+! Array dimensions:
+! jmax number of altitude levels
+! nbins number of energetic electron energy bins
+! nmaj number of major species
+! nei number of states produced by electron impact
+
+
+ subroutine etrans
+
+ use cglow,only: nmaj,nbins,jmax,nei,ierr,jlocal, &
+ dip,ener,del,aglw,eheat,sion,phitop,zz,pespec, &
+ sespec,zte,ze,zmaj,uflx,dflx,tez,efrac ! formerly /cglow/
+ use cglow,only: siga,sigs,pe,sigex,sec,iimaxx,pin ! formerly /cxsect/
+ use cglow,only: ww ! formerly /cxpars/
+
+ implicit none
+
+ integer,save :: ifirst=1
+ integer :: ii,ib,ibb,i,n,jj,j,k,jjj4,iv,ll,kk,im,iq
+ real :: prod(jmax), eprod(jmax), t1(jmax), t2(jmax), tsa(nmaj), &
+ produp(jmax,nbins), prodwn(jmax,nbins), &
+ phiup(jmax), phidwn(jmax), tsigne(jmax), taue(jmax), &
+ secion(jmax), secp(nmaj,jmax), r1(jmax), expt2(jmax), &
+ produa(jmax), prodda(jmax), phiinf(nbins), potion(nmaj), &
+ alpha(jmax),beta(jmax),gamma(jmax),psi(jmax),del2(jmax), &
+ delp(jmax),delm(jmax),dels(jmax),den(jmax), &
+ delz(jmax),dela(jmax)
+ real :: sindip,rmusin,phiout,dag,et,eet,fluxj,edep,epe,ephi,aprod,ein,eout,fac
+ real,parameter :: avmu=0.5
+
+
+ potion = (/16.,16.,18./)
+ ierr = 0
+ fac = 0.
+ sindip = sin(dip)
+ rmusin = 1. / sindip / avmu
+ psi(1) = 1.
+!
+! First call only: calculate cross-sectons:
+!
+ if (ifirst == 1) then
+ call exsect (ener, del)
+ ifirst = 0
+ endif
+!
+! Zero variables:
+!
+ alpha(1) = 0.
+ beta(1) = 0.
+ gamma(1) = 0.
+ phiout = 0.0
+ eheat(:) = 0.0
+ eprod(:) = 0.0
+ secion(:) = 0.0
+ sion(:,:) = 0.0
+ aglw(:,:,:) = 0.0
+ produp(:,:) = 1.0e-20
+ prodwn(:,:) = 1.0e-20
+!
+! Divide downward flux at top of atmos. by average pitch angle cosine:
+!
+ phiinf(:) = phitop(:) / avmu
+!
+! Calcualte delta z's:
+!
+ delz(1) = zz(2)-zz(1)
+ do i=2,jmax
+ delz(i) = zz(i)-zz(i-1)
+ enddo
+ do i=1,jmax-1
+ del2(i) = delz(i)+delz(i+1)
+ dela(i) = del2(i)/2.
+ delp(i) = dela(i)*delz(i+1)
+ delm(i) = dela(i)*delz(i)
+ dels(i) = delz(i)*delz(i+1)
+ enddo
+ del2(jmax) = del2(jmax-1)
+ dela(jmax) = dela(jmax-1)
+ delp(jmax) = delp(jmax-1)
+ delm(jmax) = delp(jmax-1)
+ dels(jmax) = dels(jmax-1)
+!
+! Top of energy loop:
+!
+ do j=nbins,1,-1
+!
+! Calculate production:
+!
+ do i = 1, jmax
+ prod(i) = (pespec(j,i)+sespec(j,i)) * rmusin / del(j)
+ eprod(i) = eprod(i) + prod(i) * ener(j) * del(j) / rmusin
+ enddo
+!
+! Total energy loss cross section for each species:
+!
+ tsa(:) = 0.0
+ if (j > 1) then
+ do k = 1, j-1
+ do i = 1, nmaj
+ tsa(i) = tsa(i) + siga(i,k,j) * (del(j-k)/del(j))
+ enddo
+ enddo
+ else
+ do i=1,nmaj
+ tsa(i) = tsa(i) + siga(i,1,j) + 1.e-18
+ enddo
+ endif
+!
+! Thermal electron energy loss:
+!
+ jjj4 = j - 1
+ if (j == 1) jjj4 = 1
+ dag = ener(j) - ener(jjj4)
+ if (dag <= 0.0) dag = del(1)
+!
+ do i = 1, jmax
+ et = 8.618e-5 * zte(i)
+ eet = ener(j) - et
+ if (eet <= 0.0) then
+ tsigne(i) = 0.0
+ else
+ tsigne(i) = ((3.37e-12*ze(i)**0.97)/(ener(j)**0.94)) &
+ * ((eet)/(ener(j) - (0.53*et))) ** 2.36
+ endif
+ tsigne(i) = tsigne(i) * rmusin / dag
+ enddo
+!
+! Collision terms:
+!
+ do i = 1, jmax
+ t1(i) = 0.0
+ t2(i) = 0.0
+ do iv = 1, nmaj
+ t1(i) = t1(i) + zmaj(iv,i) * sigs(iv,j) * pe(iv,j)
+ t2(i) = t2(i) + zmaj(iv,i) * (sigs(iv,j)*pe(iv,j) + tsa(iv))
+ enddo
+ t1(i) = t1(i) * rmusin
+ t2(i) = t2(i) * rmusin + tsigne(i)
+ enddo
+!
+! Bypass next section if local calculation was specified:
+!
+ if (jlocal /= 1) then
+!
+! Solve parabolic d.e. by Crank-Nicholson method to find downward flux:
+!
+ do i = 2, jmax-1
+ psi(i) = 1.
+ alpha(i) = (t1(i-1) - t1(i+1)) / (del2(i) * t1(i))
+ beta(i) = t2(i) * (t1(i+1) - t1(i-1)) / (t1(i) * del2(i)) &
+ - (t2(i+1) - t2(i-1)) / del2(i) - t2(i)**2 + t1(i)**2
+ if (prod(i) < 1.e-30) prod(i) = 1.e-30
+ if (prodwn(i,j) < 1.e-30) prodwn(i,j) = 1.e-30
+ gamma(i) = (prod(i)/2.0) * (-t1(i) - t2(i) - alpha(i) &
+ - (prod(i+1) - prod(i-1))/prod(i)/del2(i)) &
+ + prodwn(i,j) * (-alpha(i) - t2(i) &
+ - (prodwn(i+1,j)-prodwn(i-1,j))/prodwn(i,j)/del2(i)) &
+ - produp(i,j) * t1(i)
+ enddo
+ if (abs(beta(2)) < 1.e-20) then
+ beta(2) = 1.e-20
+ ierr = 2
+ endif
+ phidwn(2) = gamma(2) / beta(2)
+ den(1) = phidwn(2)
+ fluxj = phiinf(j)
+ call impit(jmax,fluxj,fac,alpha,beta,gamma,psi,del2,delp,delm,dels,den)
+ phidwn(:) = den(:)
+!
+! Apply lower boundary condition: phiup=phidwn. Should be nearly zero.
+!
+ phiup(1) = phidwn(1)
+!
+! Integrate back upward to calculate upward flux:
+!
+ do i = 2, jmax
+ r1(i) = (t1(i)*phidwn(i) + (prod(i)+2.*produp(i,j))/2.) / t2(i)
+ taue(i) = t2(i)*delz(i)
+ if (taue(i) > 60.) taue(i)=60.
+ expt2(i) = exp(-taue(i))
+ enddo
+ do i=2,jmax
+ phiup(i) = r1(i) + (phiup(i-1)-r1(i)) * expt2(i)
+ enddo
+
+ else
+!
+! Local calculation only:
+!
+ do i = 1, jmax
+ if (t2(i) <= t1(i)) then
+ ierr = 1
+ t2(i) = t1(i) * 1.0001
+ endif
+ phiup(i) = (prod(i)/2.0 + produp(i,j)) / (t2(i) - t1(i))
+ phidwn(i) = (prod(i)/2.0 + prodwn(i,j)) / (t2(i) - t1(i))
+ enddo
+
+ endif
+!
+! Multiply fluxes by average pitch angle cosine and put in arrays:
+!
+ do i=1,jmax
+ uflx(j,i) = phiup(i) * avmu
+ dflx(j,i) = phidwn(i) * avmu
+ enddo
+!
+! Calculate outgoing electron energy flux for conservation check:
+!
+ phiout = phiout + phiup(jmax) * del(j) * ener(j)
+!
+! Cascade production:
+!
+ if (j > 1) then
+ do k = 1, j-1
+ ll = j - k
+ produa(:)=0.
+ prodda(:)=0.
+ do n = 1, nmaj
+ do i=1,jmax
+ produa(i) = produa(i) &
+ + zmaj(n,i) * (siga(n,k,j)*pin(n,j)*phidwn(i) &
+ + (1. - pin(n,j))*siga(n,k,j)*phiup(i))
+ prodda(i) = prodda(i) &
+ + zmaj(n,i) * (siga(n,k,j)*pin(n,j)*phiup(i) &
+ + (1. - pin(n,j))*siga(n,k,j)*phidwn(i))
+ enddo
+ enddo
+ do i=1,jmax
+ produp(i,ll) = produp(i,ll) + produa(i) * rmusin
+ prodwn(i,ll) = prodwn(i,ll) + prodda(i) * rmusin
+ enddo
+ enddo
+ endif
+ kk = j - 1
+ if (kk > 0) then
+ do i = 1, jmax
+ produp(i,kk) = produp(i,kk)+tsigne(i)*phiup(i)*(del(j)/del(kk))
+ prodwn(i,kk) = prodwn(i,kk)+tsigne(i)*phidwn(i)*(del(j)/del(kk))
+ enddo
+ endif
+!
+! Electron heating rate:
+!
+ dag = del(j)
+ do i = 1, jmax
+ eheat(i) = eheat(i) + tsigne(i) * (phiup(i)+phidwn(i)) * dag**2
+ enddo
+!
+! Electron impact excitation rates:
+!
+ do ii = 1, jmax
+ do i = 1, nmaj
+ do ibb = 1, nei
+ aglw(ibb,i,ii) = aglw(ibb,i,ii) + (phiup(ii) + phidwn(ii)) &
+ * sigex(ibb,i,j) * del(j) * zmaj(i,ii)
+ enddo
+ enddo
+ enddo
+!
+! Calculate production of secondaries into k bin for energy j bin and add to production:
+!
+
+ do k = 1, iimaxx(j)
+ do n = 1, nmaj
+ do i = 1, jmax
+ secp(n,i) = sec(n,k,j) * zmaj(n,i) * (phiup(i) + phidwn(i))
+ sion(n,i) = sion(n,i) + secp(n,i) * del(k)
+ secion(i) = secion(i) + secp(n,i) * del(k)
+ produp(i,k) = produp(i,k) + (secp(n,i)*.5*rmusin)
+ prodwn(i,k) = prodwn(i,k) + (secp(n,i)*.5*rmusin)
+ enddo
+ enddo
+ enddo
+
+ enddo ! bottom of energy loop
+
+ eheat(:) = eheat(:) / rmusin
+!
+! Calculate energy deposited as a function of altitude and total energy deposition:
+!
+ edep = 0.
+ do im=1,jmax
+ tez(im) = eheat(im)
+ do ii=1,nmaj
+ tez(im) = tez(im) + sion(ii,im)*potion(ii)
+ do iq=1,nei
+ tez(im) = tez(im) + aglw(iq,ii,im)*ww(iq,ii)
+ enddo
+ enddo
+ edep = edep + tez(im) * dela(im)
+ enddo
+!
+! Calculate energy input, output, and fractional conservation:
+!
+ epe = 0.0
+ ephi = 0.0
+ do i = 2, jmax
+ aprod = sqrt(eprod(i)*eprod(i-1))
+ epe = epe + aprod * delz(i)
+ enddo
+ do jj = 1, nbins
+ ephi = ephi + phiinf(jj) * ener(jj) * del(jj) / rmusin
+ enddo
+ ein = ephi + epe
+ phiout = phiout / rmusin
+ eout = edep + phiout
+ efrac = (eout - ein) / ein
+
+ return
+
+ end subroutine etrans
+
+!-----------------------------------------------------------------------
+
+! Subroutine impit solves parabolic differential equation by implicit Crank-Nicholson method
+
+ subroutine impit(jmax,fluxj,fac,alpha,beta,gamma,psi,del2,delp,delm,dels,den)
+
+ implicit none
+
+ integer,intent(in) :: jmax
+ real,intent(in) :: fluxj,fac,alpha(jmax),beta(jmax),gamma(jmax), &
+ psi(jmax),del2(jmax),delp(jmax),delm(jmax),dels(jmax)
+ real,intent(out) :: den(jmax)
+
+ integer :: i1,i,kk,jk
+ real :: dem,k(jmax),l(jmax),a(jmax),b(jmax),c(jmax),d(jmax)
+
+ i1 = jmax - 1
+ do i = 1, i1
+ a(i) = psi(i) / delp(i) + alpha(i) / del2(i)
+ b(i) = -2. * psi(i) / dels(i) + beta(i)
+ c(i) = psi(i) / delm(i) - alpha(i) / del2(i)
+ d(i) = gamma(i)
+ enddo
+ k(2) = (d(2) - c(2)*den(1)) / b(2)
+ l(2) = a(2) / b(2)
+ do i = 3, i1
+ dem = b(i) - c(i) * l(i-1)
+ k(i) = (d(i) - c(i)*k(i-1)) / dem
+ l(i) = a(i) / dem
+ enddo
+ den(i1) = (k(i1) - l(i1)*fluxj) / (1. + l(i1)*fac)
+ den(jmax) = den(i1)
+ do kk = 1, jmax-3
+ jk = i1 - kk
+ den(jk) = k(jk) - l(jk) * den(jk + 1)
+ enddo
+
+ return
+
+ end subroutine impit
diff --git a/srcGlow/exsect.f b/srcGlow/exsect.f
new file mode 100644
index 0000000..6a547d3
--- /dev/null
+++ b/srcGlow/exsect.f
@@ -0,0 +1,669 @@
+C Subroutine EXSECT Calculates electron impact cross sections
+C
+C This software is part of the GLOW model. Use is governed by the Open Source
+C Academic Research License Agreement contained in the file glowlicense.txt.
+C For more information see the file glow.txt.
+C
+C Adapted from Banks & Nagy 2-stream code by Stan Solomon, 1988
+C Added high-energy relativistic cross section correction, SCS, 1999
+C Updated comments, SCS, 2002
+C Included in GLOW v. 0.97, SCS, 2005
+C Replaced common blocks with use-associated variables defined in module cglow, Ben Foster, 2015
+C Reduced O(3p5P) (7774) cross section A0 from 0.817 to 0.327, SCS, 1/2017
+C
+C Definitions:
+C SIGS elastic cross sections for each species, energy; cm2
+C PE elastic backscatter probabilities for each species, energy
+C PIN inelastic "
+C SIGA energy loss cross section for each species, loss, energy; cm2
+C SEC secondary production xsect for species, Esec, Epri; cm2
+C SIGEX excitation xsect for each state, species, energy; cm2
+C O states: 1D, 1S, 3s5S, 3s3S, 3p5P, 3p3P, 3d3D, 3s'3D
+C O2 states: a, b, AA'c, B, 9.9, Ryds, vib
+C N2 states: ABW, B', C, aa'w, 1Pu, b', Ryds, vib
+C SIGIX ionization xsect for each state, species, energy; cm2
+C O states: 4S, 2Do, 2Po
+C O2 states: X, a, A, b, B, c, 37eV
+C N2 states: X, A, B, D, C, 40eV
+C IIMAX number of bins for secondary production for each primary energy
+C WW energy threshold for each excited state, species; eV
+C WW, AO, OMEG, ANU, BB: revised excitation cross section parameters,
+C from Green & Stolarski (1972) formula (W, A, omega, nu, gamma)
+C AUTO autoionization coefs (= 0 as autoion. included in ion xsects)
+C THI energy threshold for each ionized state, species; eV
+C AK, AJ, TS, TA, TB, GAMS, GAMB: Jackman et al (1977) ioniz. params
+C ENER energy grid; eV
+C DEL energy grid spacing; eV
+C NNN number of excited states for each species
+C NINN number of ionized states for each species
+C NUM number of points on elastic data trid for each species
+C EC data energy grid of elastic xsects and backscatter ratios
+C for each species; eV
+C CC elastic xsects on data grid for each species, cm2
+C CE elastic backscat. probs on data grid for each species; cm2
+C CI inelastic "
+C
+C Array dimensions:
+C NBINS number of energy levels
+C NMAJ number of major species
+C NEI number of slots for excited and ionized states
+C
+C
+ SUBROUTINE EXSECT (ENER, DEL)
+C
+ use cglow,only: NMAJ,NEI,NBINS
+ use cglow,only: WW,AO,OMEG,ANU,BB,AUTO,THI,AK,AJ,TS,TA,TB,GAMS, ! /CXPARS/
+ | GAMB
+ use cglow,only: SIGS,PE,PIN,SIGEX,SIGIX,SIGA,SEC,SIGA,IIMAXX ! /CXSECT/
+C
+ implicit none
+C
+ real,intent(in) :: ENER(NBINS), DEL(NBINS)
+C
+ real :: SIGI(NBINS), T12(NBINS), RATIO(NBINS),
+ | EC(31,NMAJ), CC(31,NMAJ), CE(31,NMAJ), CI(31,NMAJ)
+ integer :: NNNI(NMAJ),NINN(NMAJ),NUM(NMAJ),NNN(NMAJ)
+ integer :: ij,iv,ii,i,k,j,i1,i2,i3,jy,kuk,kuk1,iee,kk,ie,ibz,ml,
+ | itmax
+ real :: EX,FAC,WE,AE,GAMMA,T0,ETJ,DETJ,SIGG,ETA,FF,WAG,TMT,
+ | E1,E2,TMAX,WTH1
+ integer,external :: INV
+ real,external :: SIGION
+C
+ real,parameter :: QQN = 6.51E-14
+C
+ NNN = (/8,7,8/)
+ NINN = (/3,7,6/)
+ NUM = (/31,28,28/)
+C
+C Set arrays in module cglow (formerly COMMON/CXSECT/)
+C (all are dimensioned (nei,nmaj) (10,3))
+C
+ WW(1:nei,1)=
+ | (/1.96, 4.17, 9.29, 9.53,10.76,10.97,12.07,12.54, 0., 0./)
+ WW(1:nei,2)=
+ | (/0.98, 1.64, 4.50, 8.44, 9.90,13.50, 0.25, 0.00, 0., 0./)
+ WW(1:nei,3)=
+ | (/6.17, 8.16,11.03, 8.40,12.85,14.00,13.75, 1.85, 0., 0./)
+
+ AO(1:nei,1)=
+ | (/.0100,.0042,.1793,.3565,.0327,.0245,.0293,.1221, 0.,0./)
+ AO(1:nei,2)=
+ | (/.0797,.0211,.0215,.3400,.0657,1.110,3.480, 0.00, 0.,0./)
+ AO(1:nei,3)=
+ | (/2.770,.1140,.1790,.0999,.8760,.6010,1.890,1.350, 0.,0./)
+
+ OMEG(1:nei,1)=
+ | (/1.00, 1.00, 3.00, 0.75, 3.00, 0.85, 0.75, 0.75, 0.,0./)
+ OMEG(1:nei,2)=
+ | (/2.00, 2.00, 1.15, 0.75, 0.75, 0.75, 7.00, 0.00, 0.,0./)
+ OMEG(1:nei,3)=
+ | (/3.00, 3.00, 3.00, 1.00, 0.75, 0.75, 0.75, 8.00, 0.,0./)
+
+ ANU(1:nei,1)=
+ | (/2.00, 1.04, 2.53, 0.54, 2.43, 2.87, 0.93, 0.72, 0.,0./)
+ ANU(1:nei,2)=
+ | (/6.18, 4.14, 1.00, 1.05, 1.60, 3.00,10.87, 0.00, 0.,0./)
+ ANU(1:nei,3)=
+ | (/4.53, 4.78, 4.32, 4.05, 1.47, 1.27, 3.00, 1.58, 0.,0./)
+
+ BB(1:nei,1)=
+ | (/1.00, 0.50, 1.02, 0.01, 4.19, 4.88, 0.66, 0.17, 0.,0./)
+ BB(1:nei,2)=
+ | (/0.53, 0.51, 0.98, 0.99, 1.86, 1.00, 1.00, 0.00, 0.,0./)
+ BB(1:nei,3)=
+ | (/1.42, 3.54,12.70, 5.20, 0.86, 0.45, 1.00, 1.00, 0.,0./)
+
+ AUTO(1:nei,1) = (/0.,0.,0.,0.,0.,0.,0.,0.,0.,0./)
+ AUTO(1:nei,2) = (/0.,0.,0.,0.,0.,0.,0.,0.,0.,0./)
+ AUTO(1:nei,3) = (/0.,0.,0.,0.,0.,0.,0.,0.,0.,0./)
+
+ THI(1:nei,1)=
+ | (/13.60,16.90,18.50, 0.00, 0.00, 0.00, 0.00, 0.,0.,0./)
+ THI(1:nei,2)=
+ | (/12.10,16.10,16.90,18.20,20.00,23.00,37.00, 0.,0.,0./)
+ THI(1:nei,3)=
+ | (/15.58,16.73,18.75,22.00,23.60,40.00, 0.00, 0.,0.,0./)
+
+ AK(1:nei,1)=
+ | (/ 1.13, 1.25, 0.67, 0.00, 0.00, 0.00, 0.00, 0.,0.,0./)
+ AK(1:nei,2)=
+ | (/0.47, 1.13, 1.13, 1.01, 0.65, 0.95, 0.59, 0.,0.,0./)
+ AK(1:nei,3)=
+ | (/2.42, 1.06, 0.55, 0.37, 0.37, 0.53, 0.00, 0.,0.,0./)
+
+ AJ(1:nei,1)=
+ | (/1.81, 1.79, 1.78, 0.00, 0.00, 0.00, 0.00, 0.,0.,0./)
+ AJ(1:nei,2)=
+ | (/3.76, 3.76, 3.76, 3.76, 3.76, 3.76, 3.76, 0.,0.,0./)
+ AJ(1:nei,3)=
+ | (/1.74, 1.74, 1.74, 1.74, 1.74, 1.74, 0.00, 0.,0.,0./)
+
+ TS(1:nei,1)=
+ | (/6.41, 6.41, 6.41, 0.00, 0.00, 0.00, 0.00, 0.,0.,0./)
+ TS(1:nei,2)=
+ | (/1.86, 1.86, 1.86, 1.86, 1.86, 1.86, 1.86, 0.,0.,0./)
+ TS(1:nei,3)=
+ | (/4.71, 4.71, 4.71, 4.71, 4.71, 4.71, 0.00, 0.,0.,0./)
+
+ TA(1:nei,1)=
+ | (/3450.,3450.,3450., 0., 0., 0., 0., 0.,0.,0./)
+ TA(1:nei,2)=
+ | (/1000.,1000.,1000.,1000.,1000.,1000.,1000., 0.,0.,0./)
+ TA(1:nei,3)=
+ | (/1000.,1000.,1000.,1000.,1000.,1000., 0., 0.,0.,0./)
+
+ TB(1:nei,1)=
+ | (/162.00,162.0,162.0, 0.00, 0.00, 0.00, 0.00, 0.,0.,0./)
+ TB(1:nei,2)=
+ | (/24.20,32.20,33.80,36.40,40.60,46.00,74.00, 0.,0.,0./)
+ TB(1:nei,3)=
+ | (/31.16,33.46,37.50,44.00,47.20,80.00, 0.00, 0.,0.,0./)
+
+ GAMS(1:nei,1)=
+ | (/13.00,13.0,13.00, 0.00, 0.00, 0.00, 0.00, 0.,0.,0./)
+ GAMS(1:nei,2)=
+ | (/18.50,18.5,18.50,18.50,18.50,18.50,18.50, 0.,0.,0./)
+ GAMS(1:nei,3)=
+ | (/13.80,13.8,13.80,13.80,13.80,13.80, 0.00, 0.,0.,0./)
+
+ GAMB(1:nei,1)=
+ | (/-.815,-.815,-.815,0.00, 0.00, 0.00, 0.00, 0.,0.,0./)
+ GAMB(1:nei,2)=
+ | (/12.10,16.10,16.90,18.2,20.30,23.00,37.00, 0.,0.,0./)
+ GAMB(1:nei,3)=
+ | (/15.58,16.73,18.75,22.0,23.60,40.00, 0.00, 0.,0.,0./)
+
+ EC(1:31,1) = (/
+ | 1.00, 2.00, 4.00, 6.00, 8.00,
+ | 10.00, 12.00, 14.00, 16.00, 18.00,
+ | 20.00, 30.00, 40.00, 50.00, 60.00,
+ | 70.00, 80.00, 90.00, 100.00, 150.00,
+ | 200.00, 300.00, 500.00, 1000.00, 2000.00,
+ | 3000.00, 5000.00, 10000.00, 20000.00, 40000.00,
+ | 50000.00/)
+
+ EC(1:31,2) = (/
+ | 1.00, 2.00, 3.00, 5.00, 7.00,
+ | 10.00, 15.00, 20.00, 30.00, 40.00,
+ | 50.00, 70.00, 100.00, 150.00, 200.00,
+ | 300.00, 400.00, 500.00, 600.00, 700.00,
+ | 1000.00, 2000.00, 3000.00, 5000.00, 10000.00,
+ | 20000.00, 40000.00, 50000.00, 0.00, 0.00,
+ | 0.00/)
+
+ EC(1:31,3) = (/
+ | 1.00, 2.00, 2.50, 3.00, 4.00,
+ | 5.00, 6.00, 8.00, 10.00, 15.00,
+ | 20.00, 30.00, 40.00, 50.00, 70.00,
+ | 100.00, 200.00, 300.00, 500.00, 700.00,
+ | 1000.00, 2000.00, 3000.00, 5000.00, 10000.00,
+ | 20000.00, 40000.00, 50000.00, 0.00, 0.00, 0.0/)
+
+ CC(1:31,1) = (/
+ | 5.00E-16, 6.00E-16, 7.50E-16, 7.60E-16, 7.70E-16,
+ | 7.80E-16, 7.50E-16, 7.20E-16, 6.90E-16, 6.70E-16,
+ | 6.50E-16, 5.60E-16, 4.60E-16, 4.00E-16, 3.50E-16,
+ | 3.20E-16, 2.90E-16, 2.70E-16, 2.50E-16, 1.90E-16,
+ | 1.50E-16, 1.20E-16, 8.00E-17, 5.00E-17, 3.02E-17,
+ | 1.99E-17, 1.20E-17, 6.08E-18, 3.06E-18, 1.55E-18,
+ | 1.24E-18/)
+
+ CC(1:31,2) = (/
+ | 5.50E-16, 6.90E-16, 7.50E-16, 8.50E-16, 9.60E-16,
+ | 1.00E-15, 1.00E-15, 9.00E-16, 8.30E-16, 7.70E-16,
+ | 6.90E-16, 5.70E-16, 4.40E-16, 3.30E-16, 2.70E-16,
+ | 2.10E-16, 1.80E-16, 1.60E-16, 1.40E-16, 1.30E-16,
+ | 1.10E-16, 7.00E-17, 5.00E-17, 3.00E-17, 1.53E-17,
+ | 7.72E-18, 3.90E-18, 3.13E-18, 0.00E+00, 0.00E+00,
+ | 0.00E+00/)
+
+ CC(1:31,3) = (/
+ | 9.00E-16, 2.27E-15, 2.52E-15, 1.93E-15, 1.32E-15,
+ | 1.15E-15, 1.16E-15, 1.17E-15, 1.18E-15, 1.14E-15,
+ | 1.13E-15, 9.50E-16, 8.60E-16, 7.30E-16, 5.90E-16,
+ | 4.70E-16, 3.30E-16, 2.50E-16, 1.60E-16, 1.30E-16,
+ | 1.10E-16, 6.35E-17, 4.18E-17, 2.54E-17, 1.28E-17,
+ | 6.44E-18, 3.27E-18, 2.62E-18, 0.00E+00, 0.00E+00, 0.0/)
+
+ CE(1:31,1) = (/
+ | 0.50000, 0.49500, 0.46800, 0.43600, 0.42000,
+ | 0.40500, 0.37000, 0.36000, 0.34000, 0.33000,
+ | 0.32000, 0.27000, 0.24000, 0.22000, 0.20000,
+ | 0.18000, 0.17000, 0.16000, 0.15000, 0.13000,
+ | 0.11500, 0.09000, 0.06800, 0.04600, 0.02400,
+ | 0.01660, 0.01000, 0.00510, 0.00255, 0.00125,
+ | 0.00100/)
+
+ CE(1:31,2) = (/
+ | 0.50000, 0.50000, 0.49000, 0.44500, 0.42700,
+ | 0.40500, 0.36800, 0.34300, 0.31600, 0.28900,
+ | 0.25800, 0.22000, 0.18400, 0.16400, 0.13300,
+ | 0.11000, 0.10000, 0.09200, 0.08500, 0.08000,
+ | 0.06800, 0.03700, 0.02600, 0.01600, 0.00800,
+ | 0.00400, 0.00200, 0.00160, 0.00000, 0.00000,
+ | 0.00000/)
+
+ CE(1:31,3) = (/
+ | 0.50000, 0.50000, 0.50000, 0.49000, 0.46800,
+ | 0.44500, 0.43600, 0.42000, 0.40500, 0.36800,
+ | 0.34300, 0.31600, 0.28900, 0.25800, 0.22000,
+ | 0.18400, 0.14000, 0.11000, 0.08400, 0.07400,
+ | 0.06300, 0.03400, 0.02400, 0.01500, 0.00740,
+ | 0.00370, 0.00180, 0.00140, 0.00000, 0.00000, 0.0/)
+
+ CI(1:31,1) = (/
+ | 0.60000, 0.60000, 0.60000, 0.60000, 0.60000,
+ | 0.60000, 0.55000, 0.46000, 0.40000, 0.36000,
+ | 0.32000, 0.22000, 0.15000, 0.10000, 0.08200,
+ | 0.07000, 0.06100, 0.05400, 0.05000, 0.04400,
+ | 0.03800, 0.02800, 0.02000, 0.01050, 0.00600,
+ | 0.00400, 0.00250, 0.00130, 0.00060, 0.00030,
+ | 0.00025/)
+
+ CI(1:31,2) = (/
+ | 0.50000, 0.50000, 0.50000, 0.50000, 0.48000,
+ | 0.44000, 0.36000, 0.28000, 0.20000, 0.14000,
+ | 0.10000, 0.07000, 0.05000, 0.04600, 0.04300,
+ | 0.03700, 0.03200, 0.02800, 0.02400, 0.02100,
+ | 0.01600, 0.00900, 0.00620, 0.00400, 0.00200,
+ | 0.00100, 0.00050, 0.00040, 0.00000, 0.00000,
+ | 0.00000/)
+
+ CI(1:31,3) = (/
+ | 0.50000, 0.50000, 0.50000, 0.50000, 0.50000,
+ | 0.50000, 0.50000, 0.50000, 0.50000, 0.50000,
+ | 0.44000, 0.30000, 0.20000, 0.13000, 0.09000,
+ | 0.06000, 0.05000, 0.04200, 0.03200, 0.02500,
+ | 0.02000, 0.01100, 0.00800, 0.00500, 0.00250,
+ | 0.00120, 0.00060, 0.00050, 0.00000, 0.00000, 0.0/)
+C
+C
+C Interpolate elastic cross sections and backscatter ratios:
+C
+ DO 90 IJ=1,NMAJ
+ DO 80 IV=1,NBINS
+ EX=ENER(IV)
+ DO 50 II=1,NUM(IJ)
+
+ IF (EC(II,IJ) .GT. EX) GOTO 60
+ 50 CONTINUE
+ SIGS(IJ,IV)=CC(NUM(IJ),IJ)*(EC(NUM(IJ),IJ)/EX)**0.8
+ IF(IJ.EQ.1) SIGS(IJ,IV)=CC(NUM(IJ),IJ)*(EC(NUM(IJ),IJ)/EX)**2
+
+ PE(IJ,IV) = CE(NUM(IJ),IJ)* (EC(NUM(IJ),IJ)/EX)
+ PIN(IJ,IV) = CI(NUM(IJ),IJ)* (EC(NUM(IJ),IJ)/EX)
+ GOTO 80
+ 60 I=II-1
+ IF (I .LE. 0) THEN
+ SIGS(IJ,IV)=CC(II,IJ)
+ PE(IJ,IV)=CE(II,IJ)
+ PIN(IJ,IV)=CI(II,IJ)
+ ELSE
+ FAC = ALOG (EX/EC(I,IJ)) / ALOG (EC(II,IJ)/EC(I,IJ))
+ SIGS(IJ,IV) = EXP (ALOG (CC(I,IJ))
+ > + ALOG (CC(II,IJ)/CC(I,IJ)) * FAC)
+ PE(IJ,IV) = EXP (ALOG (CE(I,IJ))
+ > + ALOG (CE(II,IJ)/CE(I,IJ)) * FAC)
+ PIN(IJ,IV) = EXP (ALOG (CI(I,IJ))
+ > + ALOG (CI(II,IJ)/CI(I,IJ)) * FAC)
+ ENDIF
+ 80 CONTINUE
+ 90 CONTINUE
+C
+C
+C Calculate electron impact excitation and ionization cross sections:
+C
+ DO 140 I=1,NMAJ
+ DO 140 K=1,NEI
+ DO 140 J=1,NBINS
+ IF (ENER(J).GT.WW(K,I) .AND. WW(K,I).GT.0.001) THEN
+ WE = WW(K,I) / ENER(J)
+ SIGEX(K,I,J) = QQN * AO(K,I)
+ > * (WE**OMEG(K,I) / WW(K,I)**2)
+ > * (1.0 - WE**BB(K,I)) ** ANU(K,I)
+ IF (SIGEX(K,I,J) .LT. 1.E-30) SIGEX(K,I,J) = 0.0
+ ELSE
+ SIGEX(K,I,J) = 0.0
+ ENDIF
+ IF (ENER(J).GT.THI(K,I) .AND. THI(K,I).GT.0.001) THEN
+ AE = AK(K,I)/ENER(J) * ALOG(ENER(J)/AJ(K,I))
+ GAMMA = GAMS(K,I) * ENER(J) / (ENER(J)+GAMB(K,I))
+ T0 = TS(K,I) - (TA(K,I)/(ENER(J)+TB(K,I)))
+ SIGIX(K,I,J) = 1.E-16 * AE * GAMMA
+ > * ( ATAN(((ENER(J)-THI(K,I))/2.-T0)/GAMMA)
+ > +ATAN(T0/GAMMA) )
+ IF (SIGIX(K,I,J) .LT. 1.E-30) SIGIX(K,I,J) = 0.0
+ ELSE
+ SIGIX(K,I,J) = 0.0
+ ENDIF
+ 140 CONTINUE
+C
+C
+C Obtain high-energy correction factors:
+C
+ CALL HEXC(ENER,SIGIX,RATIO)
+ DO 142 J=1,NBINS
+ DO 142 I=1,NMAJ
+ DO 142 K=1,NEI
+ SIGIX(K,I,J)=SIGIX(K,I,J)/RATIO(J)
+ 142 CONTINUE
+C
+C
+C Zero energy loss xsect and secondary production xsect arrays:
+C
+ DO 145 I1=1,NMAJ
+ DO 145 I2=1,NBINS
+ DO 145 I3=1,NBINS
+ SIGA(I1,I2,I3)=0.0
+ SEC(I1,I2,I3)=0.0
+ 145 CONTINUE
+C
+C
+C Loop over energy:
+C
+ DO 500 JY=1,NBINS
+C
+ KUK=0
+ KUK1=0
+ ETJ=ENER(JY)
+ DETJ=DEL(JY)
+C
+C
+C Loop over species:
+C
+ DO 400 I=1,NMAJ
+C
+C
+C Loop over excited states:
+C
+ DO 200 J=1,NNN(I)
+C
+C
+C Calculate energy loss from JY to J-K for each species.
+C The cross secton is divided proportionally between bin INV and bin
+C INV-1, the two bins closest to J-K:
+C
+ SIGG = SIGEX(J,I,JY)
+ ETA = ETJ - WW(J,I)
+ IF (ETA .GT. 0.) THEN
+ IE = INV (ETA,JY,ENER)
+ IEE = IE - 1
+ IF (IEE .LT. 1) IEE=IE
+ K = JY - IE
+ KK = JY - IEE
+ IF (KK .GE. KUK) KUK = KK
+ IF (IE .EQ. JY) THEN
+ IF (JY .EQ. 1) THEN
+ SIGA(I,1,JY) = SIGA(I,1,JY) + SIGG
+ ELSE
+ SIGA(I,1,JY) = SIGA(I,1,JY) + SIGG * (DETJ/DEL(JY-1))
+ > * WW(J,I) / (ENER(JY)-ENER(JY-1))
+ ENDIF
+ ELSE
+ IF (IE .EQ. 1) THEN
+C SIGA(I,K,JY) = SIGA(I,K,JY) + SIGG * 2.*ETA*DETJ/DEL(1)**2
+ SIGA(I,K,JY) = SIGA(I,K,JY) + SIGG * DETJ/DEL(1)
+ ELSE
+ FF = (ENER(IE)-ETA) / (ENER(IE)-ENER(IEE))
+ FF = 1.0 - ABS(FF)
+ SIGA(I,K,JY) = SIGA(I,K,JY) + SIGG * FF * DETJ/DEL(IE)
+ SIGA(I,KK,JY)= SIGA(I,KK,JY) + SIGG * (1.0-FF)*DETJ/DEL(IEE)
+ ENDIF
+ WAG=WW(J,I)-THI(1,I)
+ IF (WAG .GT. 0. .AND. AUTO(J,I) .GT. 0.) THEN
+ IBZ = INV (WAG,JY,ENER)
+ SEC(I,IBZ,JY) = SEC(I,IBZ,JY)+SIGG*(DETJ/DEL(IBZ))*AUTO(J,I)
+ IF(IBZ.GE.KUK1)KUK1=IBZ
+ ENDIF
+ ENDIF
+ ENDIF
+ 200 CONTINUE
+C
+C
+C Loop over ion states:
+C
+ DO 300 ML=1,NINN(I)
+C
+ DO 210 II=1,NBINS
+ SIGI(II) = 0.0
+ T12(II) = 0.0
+ 210 CONTINUE
+C
+C
+C Calculate cross-section for production of secondaries into each
+C bin from 1 to ITMAX and store in SIGI(II). Apply relativistic correction.
+C Also store the average energy of the secondaries in T12(II):
+C
+ WAG = THI(ML,I)
+ TMAX = (ETJ-WAG) / 2.
+ if (tmax .gt. 1.e6) tmax=1.e6
+ IF (TMAX .LE. 0.) GOTO 300
+ ITMAX = INV (TMAX,JY,ENER)
+ IF (ITMAX .GE. KUK1) KUK1 = ITMAX + 1
+ TMT = ENER(1) + DEL(1) / 2.0
+ IF (TMAX .LT. TMT) TMT = TMAX
+ SIGI(1) = SIGION(I,ML,ETJ,0.0,TMT,T12(1)) / RATIO(JY)
+ TMT = ENER(1) + DEL(1) / 2.
+ IF (TMAX .GT. TMT) THEN
+ IF (TMAX .LE. ENER(2)) ITMAX = 2
+ DO 220 II=2,ITMAX
+ E1 = ENER(II) - DEL(II) / 2.
+ E2 = E1 + DEL(II)
+ IF (E2 .GT. TMAX) E2 = TMAX
+ IF(E1 .LE. E2)SIGI(II)=SIGION(I,ML,ETJ,E1,E2,T12(II))/RATIO(JY)
+ 220 CONTINUE
+ ENDIF
+C
+C
+C Add the secondary production cross-section to SEC; calculate
+C the ionization energy loss cross-section and add to SIGA:
+C
+ DO 250 II=1,ITMAX
+ SEC(I,II,JY) = SEC(I,II,JY) + SIGI(II) * DETJ / DEL(II)
+ WTH1 = T12(II) + WAG
+ ETA = ETJ - WTH1
+ IF (ETA .GT. 0.) THEN
+ IE = INV (ETA,JY,ENER)
+ IEE = IE - 1
+ K = JY - IE
+ KK = JY - IEE
+ IF (IEE .LT. 1) IEE = IE
+ IF (IE .EQ. JY) THEN
+ SIGA(I,1,JY) = SIGA(I,1,JY) + SIGI(II) * (DETJ/DEL(JY-1))
+ > * WTH1 / (ENER(JY)-ENER(JY-1))
+ ELSE
+ IF (KK .GE. KUK) KUK = KK
+ IF (IE .EQ. 1) THEN
+C SIGA(I,K,JY) = SIGA(I,K,JY)+2.*ETA*SIGI(II)*DETJ/DEL(1)**2
+ SIGA(I,K,JY) = SIGA(I,K,JY)+SIGI(II)*DETJ/DEL(1)
+ ELSE
+ FF = (ENER(IE)-ETA) / (ENER(IE)-ENER(IEE))
+ FF = 1.0 - ABS(FF)
+ SIGA(I,K,JY) = SIGA(I,K,JY) + FF*SIGI(II)*DETJ/DEL(IE)
+ SIGA(I,KK,JY)=SIGA(I,KK,JY)+(1.0-FF)*SIGI(II)*DETJ/DEL(IEE)
+ ENDIF
+ ENDIF
+ ENDIF
+C
+ 250 CONTINUE
+C
+ 300 CONTINUE
+C
+ 400 CONTINUE
+C
+ IIMAXX(JY) = KUK1
+C
+ 500 CONTINUE
+C
+ RETURN
+
+ END SUBROUTINE EXSECT
+C
+!-----------------------------------------------------------------------
+C
+C Function SIGION calculates ionization cross section for species I,
+C state ML, primary energy E, secondary energy from E1 to E2
+C
+ real FUNCTION SIGION(I,ML,E,E1,E2,T12)
+ use cglow,only: THI,AK,AJ,TS,TA,TB,GAMS,GAMB ! /CXPARS/
+ implicit none
+C
+ integer,intent(in) :: i,ml
+ real,intent(in) :: E,E1
+ real,intent(out) :: T12
+ real,intent(inout) :: E2
+C
+ DOUBLE PRECISION ABB, ABC, ABD
+ real :: QQ
+ DATA QQ/1.E-16/
+ real :: AK1,AJ1,TS1,TA1,TB1,GAMS1,GAMB1,S,A,TZ,GG,TTL,AL2,AL1,
+ | TTL1
+C
+C
+ IF (E .LE. THI(ML,I)) GOTO 30
+C
+ AK1=AK(ML,I)
+ AJ1=AJ(ML,I)
+ TS1=TS(ML,I)
+ TA1=TA(ML,I)
+ TB1=TB(ML,I)
+ GAMS1=GAMS(ML,I)
+ GAMB1=GAMB(ML,I)
+ S=QQ*AK1*ALOG(E/AJ1)
+ A=S/E
+ TZ=TS1-TA1/(E+TB1)
+ GG=(GAMS1*E)/(E+GAMB1)
+ TTL=(E-THI(ML,I))/2.0
+ TTL1=TTL-0.01
+ IF(E1.GE.TTL1)GO TO 30
+ IF(E2.GE.TTL)E2=TTL
+ ABB=(E2-TZ)/GG
+ ABC=(E1-TZ)/GG
+ AL2=GG*GG*(ABB*ABB+1.0)
+ AL1=GG*GG*(ABC*ABC+1.0)
+ ABD=DATAN(ABB)-DATAN(ABC)
+ T12=TZ+0.5*GG*(ALOG(AL2)-ALOG(AL1))/ABD
+ SIGION=A*GG*ABD
+ RETURN
+C
+ 30 SIGION=0.0
+ RETURN
+C
+ END FUNCTION SIGION
+C
+!-----------------------------------------------------------------------
+C
+C Function INV finds the bin number closest to energy ETA on grid ENER.
+C Bin INV or INV-1 will contain ETA.
+C
+ INTEGER FUNCTION INV (ETA, JY, ENER)
+ use cglow,only: NBINS
+ implicit none
+C
+ real,intent(in) :: ETA,ENER(NBINS)
+ integer,intent(in) :: JY
+C
+ integer :: iv
+C
+ IF (ETA .LT. 0.) THEN
+ INV = -1
+ ELSE
+ DO 30 IV=1,JY
+ IF (ETA .LE. ENER(IV)) GOTO 40
+ 30 CONTINUE
+ IV = JY
+ 40 INV = IV
+ ENDIF
+C
+ RETURN
+
+ END FUNCTION INV
+C
+!-----------------------------------------------------------------------
+C
+C Subroutine HEXC
+C
+C High Energy Cross Section Correction
+C Calculates ratio of low energy (non-relativistic) to high energy
+C (relativistic) ionization cross sections, based on N2.
+C Extends to 1 GeV.
+C
+C Originally coded by Ann Windnagel, 11/98
+C Re-written by Stan Solomon, 2/99
+C Re-designed with table lookup, SCS, 4/99
+C Updated comments, SCS, 4/02
+C References:
+C Porter et al., J. Chem. Phys., 65, 154, 1976.
+C Rieke and Prepejchal, Phys. Rev. A, 6, 1507, 1990.
+C Saksena et al., Int. Jour. of Mass Spec. & Ion Proc., 171, L1, 1997.
+
+
+ SUBROUTINE HEXC(ENER,SIGIX,RATIO)
+ use cglow,only: NEI,NMAJ,NBINS
+ implicit none
+C
+ real,intent(in) :: ENER(NBINS),SIGIX(NEI,NMAJ,NBINS)
+ real,intent(out) :: RATIO(NBINS)
+C
+ real :: TOTX(NBINS), TOTNEW(NBINS), EGR(13), SGR(13)
+ DATA EGR/1.E4, 2.E4, 5.E4, 1.E5, 2.E5,
+ > 3.E5, 5.E5, 1.E6, 2.E6, 5.E6,
+ > 1.E7, 1.E8, 1.E9/
+ DATA SGR/1.20E-17, 7.03E-18, 3.37E-18, 1.96E-18, 1.26E-18,
+ > 1.05E-18, 9.50E-19, 9.00E-19, 9.00E-19, 9.40E-19,
+ > 1.00E-18, 1.26E-18, 1.59E-18/
+ integer :: k,i,kg
+ real,external :: TERPOO
+
+C Calculate total low-energy cross section for N2:
+
+ DO 20 K = 1,NBINS
+ TOTX(K) = 0.
+ DO 20 I = 1,NEI
+ TOTX(K) = TOTX(K) + SIGIX(I,3,K)
+ 20 CONTINUE
+
+
+C Calculate high-energy cross section for N2, using tabulated values:
+
+ DO 70 K=1,NBINS
+ IF (ENER(K) .GE. EGR(1)) THEN
+ DO 60 KG=1,12
+ IF (ENER(K) .GE. EGR(KG) .AND. ENER(K) .LT. EGR(KG+1))
+ > TOTNEW(K)=TERPOO(ENER(K),EGR(KG),EGR(KG+1),SGR(KG),SGR(KG+1))
+ 60 CONTINUE
+ ELSE
+ TOTNEW(K)=TOTX(K)
+ ENDIF
+ 70 CONTINUE
+
+
+C Calculate ratio (=1 < 10 keV):
+
+ DO 90 K = 1,NBINS
+ IF (ENER(K) .GE. EGR(1)) THEN
+ RATIO(K) = TOTX(K)/TOTNEW(K)
+C IF (RATIO(K) .GT. 1.) RATIO(K) = 1.
+ ELSE
+ RATIO(K) = 1.
+ ENDIF
+ 90 CONTINUE
+
+ RETURN
+
+ END SUBROUTINE HEXC
+
+!-----------------------------------------------------------------------
+
+ REAL FUNCTION TERPOO(X,X1,X2,Y1,Y2)
+
+ implicit none
+
+ real,intent(in) :: x,x1,x2,y1,y2
+
+ TERPOO = EXP ( ALOG(Y1) + ALOG(X/X1)*ALOG(Y2/Y1)/ALOG(X2/X1) )
+
+ RETURN
+
+ END FUNCTION TERPOO
diff --git a/srcGlow/fieldm.f b/srcGlow/fieldm.f
new file mode 100644
index 0000000..b166582
--- /dev/null
+++ b/srcGlow/fieldm.f
@@ -0,0 +1,117 @@
+C Subroutine FIELDM
+C
+C This subroutine was excerpted from the International Reference
+C Ionosphere package by Stan Solomon, 6/1988. Its original name was
+C FIELDG which was changed to avoid any naming conflict when used at
+C the same time as IRI. Labeled common /CONST/ which contained only the
+C degree/radian conversion factor UMR was changed to a data statement.
+C
+C THIS IS A SPECIAL VERSION OF THE POGO 68/10 MAGNETIC FIELD
+C LEGENDRE MODEL. TRANSFORMATION COEFF. G(144) VALID FOR 1973.
+C INPUT: DLAT, DLONG=GEOGRAPHIC COORDINATES/DEG.(-90/90,0/360),
+C ALT=ALTITUDE/KM.
+C OUTPUT: F TOTAL FIELD (GAUSS), Z DOWNWARD VERTICAL COMPONENT
+C X,Y COMPONENTS IN THE EQUATORIAL PLANE (X TO ZERO LONGITUDE).
+C DIP INCLINATION ANGLE(DEGREE). SMODIP RAWER'S MODFIED DIP.
+C SHEIK,1977.
+C
+ SUBROUTINE FIELDM(DLAT,DLONG,ALT,X,Y,Z,F,DIP,DEC,SMODIP)
+ DIMENSION H(144),XI(3),G(144),FEL1(72),FEL2(72)
+ DATA UMR/.0174532952/
+ DATA FEL1/0.0, 0.1506723,0.0101742, -0.0286519, 0.0092606,
+ & -0.0130846, 0.0089594, -0.0136808,-0.0001508, -0.0093977,
+ & 0.0130650, 0.0020520, -0.0121956, -0.0023451, -0.0208555,
+ & 0.0068416,-0.0142659, -0.0093322, -0.0021364, -0.0078910,
+ & 0.0045586, 0.0128904, -0.0002951, -0.0237245,0.0289493,
+ & 0.0074605, -0.0105741, -0.0005116, -0.0105732, -0.0058542,
+ &0.0033268, 0.0078164,0.0211234, 0.0099309, 0.0362792,
+ &-0.0201070,-0.0046350,-0.0058722,0.0011147,-0.0013949,
+ & -0.0108838, 0.0322263, -0.0147390, 0.0031247, 0.0111986,
+ & -0.0109394,0.0058112, 0.2739046, -0.0155682, -0.0253272,
+ & 0.0163782, 0.0205730, 0.0022081, 0.0112749,-0.0098427,
+ & 0.0072705, 0.0195189, -0.0081132, -0.0071889, -0.0579970,
+ & -0.0856642, 0.1884260,-0.7391512, 0.1210288, -0.0241888,
+ & -0.0052464, -0.0096312, -0.0044834, 0.0201764, 0.0258343,
+ &0.0083033, 0.0077187/
+ DATA FEL2/0.0586055,0.0102236,-0.0396107,
+ & -0.0167860, -0.2019911, -0.5810815,0.0379916, 3.7508268,
+ & 1.8133030, -0.0564250, -0.0557352, 0.1335347, -0.0142641,
+ & -0.1024618,0.0970994, -0.0751830,-0.1274948, 0.0402073,
+ & 0.0386290, 0.1883088, 0.1838960, -0.7848989,0.7591817,
+ & -0.9302389,-0.8560960, 0.6633250, -4.6363869, -13.2599277,
+ & 0.1002136, 0.0855714,-0.0991981, -0.0765378,-0.0455264,
+ & 0.1169326, -0.2604067, 0.1800076, -0.2223685, -0.6347679,
+ &0.5334222, -0.3459502,-0.1573697, 0.8589464, 1.7815990,
+ &-6.3347645, -3.1513653, -9.9927750,13.3327637, -35.4897308,
+ &37.3466339, -0.5257398, 0.0571474, -0.5421217, 0.2404770,
+ & -0.1747774,-0.3433644, 0.4829708,0.3935944, 0.4885033,
+ & 0.8488121, -0.7640999, -1.8884945, 3.2930784,-7.3497229,
+ & 0.1672821,-0.2306652, 10.5782146, 12.6031065, 8.6579742,
+ & 215.5209961, -27.1419220,22.3405762,1108.6394043/
+ K=0
+ DO 10 I=1,72
+ K=K+1
+ G(K)=FEL1(I)
+ 10 G(72+K)=FEL2(I)
+ RLAT=DLAT*UMR
+ CT=SIN(RLAT)
+ ST=COS(RLAT)
+ NMAX=11
+ D=SQRT(40680925.0-272336.0*CT*CT)
+ RLONG=DLONG*UMR
+ CP=COS(RLONG)
+ SP=SIN(RLONG)
+ ZZZ=(ALT+40408589.0/D)*CT/6371.2
+ RHO=(ALT+40680925.0/D)*ST/6371.2
+ XXX=RHO*CP
+ YYY=RHO*SP
+ RQ=1.0/(XXX*XXX+YYY*YYY+ZZZ*ZZZ)
+ XI(1)=XXX*RQ
+ XI(2)=YYY*RQ
+ XI(3)=ZZZ*RQ
+ IHMAX=NMAX*NMAX+1
+ LAST=IHMAX+NMAX+NMAX
+ IMAX=NMAX+NMAX-1
+ DO 100 I=IHMAX,LAST
+ 100 H(I)=G(I)
+ DO 200 K=1,3,2
+ I=IMAX
+ IH=IHMAX
+ 300 IL=IH-I
+ F1=2./(I-K+2.)
+ X1=XI(1)*F1
+ Y1=XI(2)*F1
+ Z1=XI(3)*(F1+F1)
+ I=I-2
+ IF((I-1).LT.0) GOTO 400
+ IF((I-1).EQ.0) GOTO 500
+ DO 600 M=3,I,2
+ H(IL+M+1)=G(IL+M+1)+Z1*H(IH+M+1)+X1*(H(IH+M+3)-H(IH+M-1))-
+ &Y1*(H(IH+M+2)+H(IH+M-2))
+ H(IL+M)=G(IL+M)+Z1*H(IH+M)+X1*(H(IH+M+2)-H(IH+M-2))+
+ &Y1*(H(IH+M+3)+H(IH+M-1))
+ 600 CONTINUE
+ 500 H(IL+2)=G(IL+2)+Z1*H(IH+2)+X1*H(IH+4)-Y1*(H(IH+3)+H(IH))
+ H(IL+1)=G(IL+1)+Z1*H(IH+1)+Y1*H(IH+4)+X1*(H(IH+3)-H(IH))
+ 400 H(IL)=G(IL)+Z1*H(IH)+2.0*(X1*H(IH+1)+Y1*H(IH+2))
+ 700 IH=IL
+ IF(I.GE.K) GOTO 300
+ 200 CONTINUE
+ S=0.5*H(1)+2.0*(H(2)*XI(3)+H(3)*XI(1)+H(4)*XI(2))
+ XT=(RQ+RQ)*SQRT(RQ)
+ X=XT*(H(3)-S*XXX)
+ Y=XT*(H(4)-S*YYY)
+ Z=XT*(H(2)-S*ZZZ)
+ F=SQRT(X*X+Y*Y+Z*Z)
+ BRH0=Y*SP+X*CP
+ Y=Y*CP-X*SP
+ X=Z*ST-BRH0*CT
+ Z=-Z*CT-BRH0*ST
+ DIP=ASIN(Z/F)
+ DEC=ASIN(Y/SQRT(X*X+Y*Y))
+ SMODIP=ASIN(DIP/SQRT(DIP*DIP+ST))
+ DIP=DIP/UMR
+ DEC=DEC/UMR
+ SMODIP=SMODIP/UMR
+ RETURN
+ END
diff --git a/srcGlow/gchem.f90 b/srcGlow/gchem.f90
new file mode 100644
index 0000000..e4125cf
--- /dev/null
+++ b/srcGlow/gchem.f90
@@ -0,0 +1,806 @@
+! Subroutine GCHEM
+
+! This software is part of the GLOW model. Use is governed by the Open Source
+! Academic Research License Agreement contained in the file glowlicense.txt.
+! For more information see the file glow.txt.
+
+! Stan Solomon, 1988, 1989, 1992, 1999, 2005, 2016
+
+! 3/2016: Replaced quartic solution to electron density equation
+! with iterative method. Also added constraint O+ > 0 for KCHEM=3.
+! 1/2017: Removed 7774 -> 1356 fudge factor (and reduced 7774 cross section in exsect.f)
+
+! Electron density must be supplied above 200 km in array ZE, a priori
+! values are expected but not necessarily required at and below 200 km,
+! depending on the value of KCHEM. An initial guess of the N(2D)
+! density in array ZND is also expected but not required.
+! Other neutral species (O, N2, O2, NO, N(4S)) must be supplied,
+! see subroutine GLOW.
+
+! Chemical calculations are controlled by switch KCHEM:
+! 0 = no calculations at all are performed.
+! 1 = electron density, O+(4S), N+, N2+, O2+, NO+ supplied at all
+! altitudes; O+(2P), O+(2D), excited neutrals, and emission rates
+! are calculated.
+! 2 = electron density, O+(4S), O2+, NO+ supplied at all altitudes;
+! O+(2P), O+(2D), N+, N2+, excited neutrals, emissions calculated.
+! 3 = electron density supplied at all altitudes; everything else
+! calculated. Note that this may violate charge neutrality and/or
+! lead to other unrealistic results below 200 km, if the electron
+! density supplied is significantly different from what the model
+! thinks it should be. If it is desired to use a specified ionosphere,
+! KCHEM=2 is probably a better option.
+! 4 = electron density supplied above 200 km; electron density below
+! 200 km is calculated, everything else calculated at all altitudes.
+! Electron density for the next two levels above J200 is log interpolated
+! between E(J200) and E(J200+3).
+
+! For definitions of use-associated variables see subroutine GLOW and module CGLOW.
+
+! Other definitions:
+! A Einstein coefficients; s-1
+! B Branching ratios
+! BZ Altitude-dependent branching ratios
+! G Resonant scattering g-factors at each altitude; s-1
+! KZ Temperature dependent rate coeffs at each altitude; cm3s-1
+! OEI O electron impact ionization rates; cm-3s-1
+! O2EI O2 " " " " "
+! RN2EI N2 " " " " "
+! TEI Total " " " " "
+! OPI O photoionization rate, cm-3s-1
+! O2PI O2 " " "
+! RN2PI N2 " " "
+! TPI Total " " "
+! TIR Total ionization rate; cm-3 s-1
+! RN2ED N2 electron impact dissociation rate; cm-3s-1
+! SRCED O2 " " " " (SR continuum); cm-3s-1
+! P Volume production rate for each species, altitude; cm-3s-1
+! L Loss rate for each species, altitude; s-1
+! OMINUS O- density for mutual neutralization contribution to O*
+! T1 Effective temperature divided by 300 for O+ + N2; K
+! T2 " " " O+ + O2; K
+! T3 " " " N2+ + O; K
+! T4 " " " N2+ + O2; K
+! T5 " " " O+ + NO; K
+! QQ, RR, SS, TT, UU, VV, WW, XX: Combined terms for calculation of
+! O+(4S) given e
+
+! Array dimensions:
+! JMAX number of altitude levels
+! NBINS number of energetic electron energy bins
+! LMAX number of wavelength intervals for solar flux
+! NMAJ number of major species
+! NST number of states produced by photoionization/dissociation
+! NEI number of states produced by electron impact
+! NEX number of ionized/excited species
+! NW number of airglow emission wavelengths
+! NC number of component production terms for each emission
+! NR number of rate coefficients, branching ratios, A and G factors
+
+! References for rate coefficients, transition coefficients, branching ratios, and g-factors:
+! k1 O+(4S) + N2 St. Maurice & Torr, 1978 (from Albritton et al., 1977)
+! k2 O+(4S) + O2 Combination of (Chen et al, 1978 and St. Maurice & Torr, 1978)
+! k3 N2+ + O -> NO+ + O New fit to McFarland et al, 1974
+! k4 N2+ + O2 McFarland et al, 1973
+! k5 N(2D) + O2 Lin & Kaufman, 1971, cf. Piper et al, 1987
+! k6 N(2D) + O Fell et al., 1990
+! k7 N(2D) + e Frederick & Rusch, 1977; Queffelec et al, 1985
+! k8 O(1D) + N2 Streit et al, 1976
+! k9 O(1D) + O2 Streit et al, 1976
+! k10 O(1D) + e Link, 1982
+! k11 O(1S) + O Slanger & Black, 1981
+! k12 O+(2D) + N2 Johnsen & Biondi, 1980
+! k13 O+(2D) + O2 Johnsen & Biondi, 1980
+! k14 O+(2D) + e Henry et al., 1969
+! k15 O+(2D) + O Torr & Torr, 1980
+! k16 O+(2P) + N2 Rusch et al, 1977
+! k17 O+(2P) + O2 Link, 1982
+! k18 O+(2P) + e Henry et al., 1969
+! k19 O+(2P) + O Rusch et al, 1977
+! k20 O2(c) + O Solheim & Llewellyn, 1979
+! k21 O2(c) + N2 Solheim & Llewellyn, 1979
+! k22 NO+ + e Walls & Dunn, 1974; Torr et al, 1977; Alge et al, 1983;
+! Dulaney et al,1987; Davidson & Hobson, 1987
+! k23 N2+ + e Mehr & Biondi, 1969
+! k24 O2+ + e Mehr & Biondi; Walls & Dunn; Torr et al; Alge et al, 1983
+! k25 N+ + O2 Langford et al, 1985
+! k26 N2(A) + O Piper et al, 1981b (av. v=1,2)
+! k27 O(1D) + O Abreu et al, 1986; Yee, pc, 1991
+! k28 O + et Link, 1982
+! k29 N2(A) + O2 Piper et al, 1981a
+! k30 O2+ + NO Lindeger & Ferguson, 1974; G&R, 1979
+! k31 N(2D) + NO Black et al, 1969; fr. Roble, 1986
+! k32 N+ + O Torr, 1985 (Levine, Photochemistry)
+! k33 N(2P) + O Zipf et al, 1980; Young & Dunn, 1975
+! k34 N(2P) + O2 Zipf et al, 1980; Rawlins, 1988
+! (cf Ianuzzi & Kaufman, 1980, 3.5E-12)
+! k35 N(2P) + NO Rees & Jones, 1973, Zipf et al, 1980
+! k36 O(1S) + O2 Slanger et al, 1972; fr. Bates, 1978
+! k37 O2+ + N Fehsenfeld (1977)
+! k38 O+ + N(2D) Bates, 1989 (PSS 37, 363)
+! k39 N2+ + O -> N2 + O+ Torr, 1985; Torr et al, 1988; Knutsen et al, 1988
+! k40 O+ + NO St. Maurice & Torr, 1978
+! k41 O+ + e -> 7774, 1356 Melendez, 1999; Qin, 2015 (cf. Tinsley 1973; Julienne, 1974)
+! k42 O + e -> O- Melendez, 1999; Qin, 2015 (cf. Tinsley 1973)
+! k43 O- + O+ -> O* + O Melendez, 1999; Qin, 2015 (cf. Tinsley 1973)
+! k44 O- + O+ -> O2 + e Melendez, 1999; Qin, 2015 (cf. Tinsley 1973)
+! k45 O+ + e -> 8446, 1304 Estimate from Tinsley, 1973; Julienne, 1974)
+! A1 5200 N(4S-2D) Wiese et al, 1966
+! A2 6300 O(3P-1D) Baluja and Zeippen, 1988
+! A3 6364 O(3P-1D) Baluja and Zeippen, 1988
+! A4 2972 O(3P-1S) Kernahan & Pang, 1975
+! A5 5577 O(1D-1S) Kernahan & Pang, 1975
+! A6 3726 O+(4S-2D) Kernahan & Pang, 1975
+! A7 2470 O+(4S-2P) Weise et al, 1966
+! A8 7319-30 O+(2D-2P) Weise et al, 1966
+! A9 (Hertz II) O2(X-c) Solheim & Llewellyn, 1978
+! A10 (Veg-Kap) N2(X-A) Shemansky, 1969
+! A11 3466 N(4S-2P) Chamberlain, 1961
+! A12 10400 N(2D-2P) Chamberlain, 1961
+! B1 O(1S) from O2+ + e Yee et al, 1988
+! B2 O(1D) from O2+ + e Abreu et al, 1986
+! B3 N(2D) from NO+ + e Kley et al, 1976
+! B4 N(2D) from N2+ + e Queffelec et al, 1985
+! B5 N(2D) from N2+ + O Frederick & Rusch, 1977
+! B6 O(1D) from N(2D) + O2 Link, 1983; Langford et al, 1985
+! B7 O(1D) from O+(2D) + O ?
+! B8 O+(2D) from O+(2P) + e Link, 1982
+! B9 O+(2P) from O + e* Gerard & Rusch, 1979; Jones, 1975
+! B10 O+(2D) from O + e* Gerard & Rusch, 1979; Jones, 1975
+! B11 O+(4S) from O + e* Gerard & Rusch, 1979; Jones, 1975
+! B12 O+(2P) from O2 + e* Link, 1982; guess of .3/3
+! B13 O+(2D) from O2 + e* Link, 1982; guess of .3/3
+! B14 O+(4S) from O2 + e* Link, 1982; guess of .3/3
+! B15 N+ from N2 + e* Richards & Torr, 1985
+! B16 N(2D) from above Zipf et al, 1980
+! B17 O(1D) from N+ + O2 Langford et al, 1985
+! B18 O(1S) from N2(A) + O Sharp & Torr, 1979
+! B19 O(1S) from O2(*) + O ? (= 0 at present)
+! B20 O(1D) from N(2D) + O ?
+! B21 NO+ from N+ + O2 Langford et al, 1985
+! B22 O2+ from N+ + O2 Langford et al, 1985
+! B23 N(2P) from N2+ + e Queffelec et al, 1985
+! B24 N2 + protons -> N + N ?
+! B25 N(2D) from N2 + e* dis Zipf et al, 1980
+! B26 N(2P) from N2 + e* dis Zipf et al, 1980
+! B27 N(2D) from N2 + hv Richards et al, 1981 (add to B28)
+! B28 N(2P) from N2 + hv ? (cf Zipf & McGlaughlin, 1978)
+! B29 N(2D) from N(2P) + O ?
+! B30 O+(2P) from O2 + hv ?
+! B31 O+(2D) " ?
+! B32 O+(4S) " ?
+! B33 O(1S) from O2+ + N Frederick et al, 1976; Kopp ea, 1977
+! B34 O(1S) from N(2D) + NO Frederick et al, 1976; Kopp ea, 1977
+! B35 O2 + protons -> (O1D) ?
+! B36 N2+(B) from N2 + e* Borst & Zipf, 1970; Shemansky & Broadfoot, 1971
+! B37 (0,0) (3914) fr. N2+(B) Shemansky & Broadfoot, 1971
+! B38 (0,1) (4278) fr. N2+(B) Shemansky & Broadfoot, 1971
+! B39 (0,0) (3371) fr. N2(C) Conway, 1983; Benesch et al, 1966
+! B40 (0,9) (3352) fr. N2(A) Cartwright, 1978; Shemansky, 1969
+! B41 O+(2Po) fr. O+(2Pe) Kirby et al, 1979
+! B42 O+(2Do) fr. O+(2Pe) Kirby et al, 1979
+! B43 N2(C) bound fraction ?
+! B44 7990 fr. O(3s'3D) appx. fr. Hecht, p.c.
+! B45 not currently in use
+! B46 N 1493 fr. N2+hv DI guess
+! B47 N 1493 fr. N2+e* DI guess, cf. Mumma and Zipf (1973), Meier (1991)
+! B48 N2(a) from (a,a',w) estimate from comparison with Ajello & Shemansky, GUVI data, etc.
+! B49 7774, 1356 fr. O-+O+ Melendez, 1999; Qin, 2015 (cf. Tinsley 1973; Julienne, 1974)
+! G1 N2+B(0,0) (3914) Broadfoot, 1967
+! G2 N2+B(0,1) (4278) Broadfoot, 1967
+
+
+ SUBROUTINE GCHEM
+!
+ use cglow,only: jmax, nmaj, nex, nw, nc, kchem, sza, &
+ zz, zo, zn2, zo2, zno, zns, znd, ze, ztn, zti, zte, &
+ photoi, photod, phono, pia, sion, aglw, &
+ tei, tpi, tir, e=>ecalc, den=>zxden, zeta, zceta, vcb
+!
+ implicit none
+ integer,parameter :: nr=50
+ real,parameter :: re=6.37E8
+!
+ real :: A(NR), B(NR), BZ(NR,JMAX), G(NR,JMAX), KZ(NR,JMAX), &
+ OEI(JMAX), O2EI(JMAX), RN2EI(JMAX), &
+ OPI(JMAX), O2PI(JMAX), RN2PI(JMAX), &
+ RN2ED(JMAX), SRCED(JMAX), P(NEX,JMAX), L(NEX,JMAX), OMINUS(JMAX), &
+ T1(JMAX), T2(JMAX), T3(JMAX), T4(JMAX), T5(JMAX), &
+ QQ(JMAX), RR(JMAX), SS(JMAX), TT(JMAX), UU(JMAX), &
+ VV(JMAX), WW(JMAX), XX(JMAX)
+ real :: gh,dz,tatomi,alphaef,toti
+ integer :: i,iw,ic,ix,n,j200,iter
+!
+ DATA A/ 1.07E-5, 0.00585, 0.00185, 0.0450, 1.0600, 9.7E-5, 0.0479, 0.1712, 0.0010, 0.7700, &
+ 0.00540, 0.07900, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, &
+ 30*0.0 /
+ DATA B/ 0.07, 1.20, 0.76, 1.85, 1.00, 0.10, 0.50, 0.81, 0.20, 0.32, &
+ 0.48, 0.10, 0.10, 0.10, 0.16, 0.50, 0.30, 0.19, 0.00, 0.10, &
+ 0.43, 0.51, 0.10, 0.60, 0.54, 0.44, 0.80, 0.20, 1.00, 0.33, &
+ 0.33, 0.34, 0.21, 0.20, 0.10, 0.11, 0.65, 0.20, 0.24, 0.02, &
+ 0.18, 0.72, 0.75, 0.10, 0.00, 0.05, 0.02, 0.70, 0.54, 0.00 /
+!
+!
+ IF (KCHEM .EQ. 0) RETURN
+!
+!
+! Zero airglow and density arrays:
+!
+ zeta(:,:) = 0.
+ zceta(:,:,:) = 0.
+ vcb(:) = 0.
+ if (kchem .ge. 3) den(:,:) = 0.
+ g(:,:) = 0.
+!
+!
+! Assign g-factors at altitudes which are sunlit:
+!
+ DO I=1,JMAX
+ GH = (RE+ZZ(I)) * SIN(SZA)
+ IF (SZA .LT. 1.6 .OR. GH .GT. RE) THEN
+ G(1,I) = 0.041
+ G(2,I) = 0.013
+ ENDIF
+ ENDDO
+!
+!
+! Calculate rate coefficients as a function of altitude:
+!
+ DO I=1,JMAX
+ T1(I) = (16.*ZTN(I)+28.*ZTI(I)) / (16.+28.) / 300.
+ T2(I) = (16.*ZTN(I)+32.*ZTI(I)) / (16.+32.) / 300.
+ T3(I) = (28.*ZTN(I)+16.*ZTI(I)) / (28.+16.) / 300.
+ T4(I) = (28.*ZTN(I)+32.*ZTI(I)) / (28.+32.) / 300.
+ T5(I) = (16.*ZTN(I)+30.*ZTI(I)) / (16.+30.) / 300.
+ IF (T1(I) .LT. 5.6667) THEN
+ KZ(1,I) = 1.533E-12 - 5.92E-13*T1(I) + 8.6E-14*T1(I)**2
+ ELSE
+ KZ(1,I) = 2.73E-12 - 1.155E-12*T1(I) + 1.483E-13*T1(I)**2
+ ENDIF
+ IF (T2(I) .LT. 6.6667) THEN
+ KZ(2,I) = 3.53E-11 - 1.84E-11*T2(I) + 4.62E-12*T2(I)**2 &
+ - 4.95E-13*T2(I)**3 + 2.00E-14*T2(I)**4
+ ELSE
+ KZ(2,I) = 2.82E-11 - 7.74E-12*T2(I) + 1.073E-12*T2(I)**2 &
+ - 5.17E-14*T2(I)**3 + 9.65E-16*T2(I)**4
+ ENDIF
+ KZ(3,I) = 1.793e-10 - 6.242e-11*T3(I) + 1.225e-11*T3(I)**2 &
+ - 1.016e-12*T3(I)**3 + 3.087e-14*T3(I)**4
+ KZ(4,I) = 5.0E-11 * (1./T4(I)) ** 0.8
+ KZ(5,I) = 6.0E-12
+ KZ(6,I) = 6.9E-13
+ KZ(7,I) = 5.5E-10 * (ZTE(I)/300.) ** 0.5
+ KZ(8,I) = 2.0E-11 * EXP(107.8/ZTN(I))
+ KZ(9,I) = 2.9E-11 * EXP(67.5 /ZTN(I))
+ KZ(10,I) = 8.1E-10 * (ZTE(I)/300.) ** 0.5
+ KZ(11,I) = 2.0E-14
+ KZ(12,I) = 8.0E-10
+ KZ(13,I) = 7.0E-10
+ KZ(14,I) = 6.6E-08 * (300./ZTE(I)) ** 0.5
+ KZ(15,I) = 1.0E-11
+ KZ(16,I) = 4.8E-10
+ KZ(17,I) = 4.8E-10
+ KZ(18,I) = 1.7E-07 * (300./ZTE(I)) ** 0.5
+ KZ(19,I) = 5.2E-11
+ KZ(20,I) = 2.1E-11 * EXP(-1136./ZTN(I))
+ KZ(21,I) = 1.0E-13
+ KZ(22,I) = 4.2E-07 * (300./ZTE(I)) ** 0.85
+ KZ(23,I) = 1.8E-07 * (300./ZTE(I)) ** 0.39
+ KZ(24,I) = 1.95E-07 * (300./ZTE(I)) ** 0.70
+ IF (ZTE(I) .GE. 1200.) KZ(24,I) = 1.6E-07 * (300./ZTE(I)) ** 0.55
+ KZ(25,I) = 6.0E-10
+ KZ(26,I) = 3.1E-11
+ KZ(27,I) = 3.0E-12
+ IF (ZTE(I) .LT. 500.) THEN
+ KZ(28,I) = 1.0E-29
+ ELSE
+ KZ(28,I) = 2.6E-11 * ZTE(I)**0.5 * EXP(-22740./ZTE(I))
+ ENDIF
+ KZ(29,I) = 4.1E-12
+ KZ(30,I) = 4.4E-10
+ KZ(31,I) = 7.0E-11
+ KZ(32,I) = 1.0E-12
+ KZ(33,I) = 1.2E-11
+ KZ(34,I) = 2.0E-12
+ KZ(35,I) = 1.8E-10
+ KZ(36,I) = 4.0E-12 * EXP(-865./ZTN(I))
+ KZ(37,I) = 1.2E-10
+ KZ(38,I) = 1.3E-10
+ KZ(39,I) = 2.0E-11
+ IF (T5(I) .LT. 5) THEN
+ KZ(40,I) = 8.36E-13 - 2.02E-13*T5(I) + 6.95E-14*T5(I)**2
+ ELSE
+ KZ(40,I) = 5.33E-13 - 1.64E-14*T5(I) + 4.72E-14*T5(I)**2 &
+ - 7.05E-16*T5(I)**3
+ ENDIF
+ KZ(41,I) = 7.3E-13
+ KZ(42,I) = 1.3E-15
+ KZ(43,I) = 1.0E-7
+ KZ(44,I) = 1.4E-10
+ KZ(45,I) = 4.0E-13
+ ENDDO
+
+!
+!
+! Calculate electron and proton impact ionization, photoionization, and total ionization rates.
+! Calculate electron and proton impact dissociation rates.
+! Put a priori electron density into calculated electron density array.
+! Put a priori N(2D) into DEN array:
+!
+ DO I=1,JMAX
+ OEI(I) = SION(1,I)+PIA(1,I)
+ O2EI(I) = SION(2,I)+PIA(2,I)
+ RN2EI(I) = SION(3,I)+PIA(3,I)
+ TEI(I) = OEI(I)+O2EI(I)+RN2EI(I)
+ OPI(I) = PHOTOI(1,1,I)+PHOTOI(2,1,I)+PHOTOI(3,1,I)+PHOTOI(4,1,I)+PHOTOI(5,1,I)
+ O2PI(I) = PHOTOI(1,2,I)+PHOTOI(2,2,I)+PHOTOI(3,2,I)
+ RN2PI(I) = PHOTOI(1,3,I)+PHOTOI(2,3,I)+PHOTOI(3,3,I)+PHOTOI(4,3,I)+PHOTOI(5,3,I)
+ TPI(I) = OPI(I)+O2PI(I)+RN2PI(I)+PHOTOI(4,2,I)+PHOTOI(6,3,I)+PHONO(1,I)
+ TIR(I) = TEI(I)+TPI(I)
+ RN2ED(I) = AGLW(5,3,I)+AGLW(6,3,I)+AGLW(7,3,I)+B(24)*PIA(3,I)
+ SRCED(I) = AGLW(4,2,I) + B(35)*PIA(2,I)
+ E(I) = ZE(I)
+ DEN(10,I)= ZND(I)
+ ENDDO
+
+!
+!
+! Find level below which electron density will be calculated:
+!
+ IF (KCHEM .GE. 4) THEN
+ DO I=JMAX,1,-1
+ IF (ZZ(I) .GT. 2.0001E7) J200=I-1
+ ENDDO
+ ELSE
+ J200=0
+ ENDIF
+!
+!
+! Iterative loop assures that electron density and feedback reactions
+! (O+(2P,2D)+e, O+(4S)+N(2D), N2++O) are correctly computed:
+!
+ DO ITER=1,5
+!
+!
+! Calculate atomic ion densities at each altitude:
+!
+ DO I=1,JMAX
+!
+!
+! O+(2P):
+!
+ P(1,I)= PHOTOI(3,1,I) &
+ + B(41) * PHOTOI(5,1,I) &
+ + B(30) * PHOTOI(4,2,I) &
+ + B(9) * OEI(I) &
+ + B(12) * O2EI(I)
+ L(1,I)= KZ(16,I) * ZN2(I) &
+ + KZ(17,I) * ZO2(I) &
+ + KZ(19,I) * ZO(I) &
+ + KZ(18,I) * E(I) &
+ + A(8) &
+ + A(7)
+ DEN(1,I) = P(1,I) / L(1,I)
+!
+!
+! O+(2D):
+!
+ P(2,I)= PHOTOI(2,1,I) &
+ + B(42) * PHOTOI(5,1,I) &
+ + B(31) * PHOTOI(4,2,I) &
+ + B(10) * OEI(I) &
+ + B(13) * O2EI(I) &
+ + B(8) * KZ(18,I) * DEN(1,I) * E(I) &
+ + A(8) * DEN(1,I)
+ L(2,I)= KZ(12,I) * ZN2(I) &
+ + KZ(13,I) * ZO2(I) &
+ + KZ(15,I) * ZO(I) &
+ + KZ(14,I) * E(I) &
+ + A(6)
+ DEN(2,I) = P(2,I) / L(2,I)
+!
+!
+! N+:
+!
+ IF (KCHEM .GE. 2) THEN
+ P(4,I) = PHOTOI(6,3,I) &
+ + B(15) * RN2EI(I) &
+ + KZ(38,I) * DEN(3,I) * DEN(10,I)
+ L(4,I) = KZ(25,I) * ZO2(I) &
+ + KZ(32,I) * ZO(I)
+ DEN(4,I) = P(4,I) / L(4,I)
+ ENDIF
+!
+!
+! O+(4S):
+!
+ IF (KCHEM .GE. 3) THEN
+ P(3,I)= PHOTOI(1,1,I) + PHOTOI(4,1,I) &
+ + B(32) * PHOTOI(4,2,I) &
+ + B(11) * OEI(I) &
+ + B(14) * O2EI(I) &
+ + KZ(14,I) * DEN(2,I) * E(I) &
+ + KZ(15,I) * DEN(2,I) * ZO(I) &
+ + A(6) * DEN(2,I) &
+ + (1.-B(8)) * KZ(18,I) * DEN(1,I) * E(I) &
+ + KZ(19,I) * DEN(1,I) * ZO(I) &
+ + A(7) * DEN(1,I) &
+ + KZ(32,I) * DEN(4,I) * ZO(I) &
+ + KZ(39,I) * DEN(5,I) * ZO(I)
+ L(3,I)= KZ(1,I) * ZN2(I) &
+ + KZ(2,I) * ZO2(I) &
+ + KZ(38,I) * DEN(10,I)
+ DEN(3,I) = P(3,I) / L(3,I)
+ ENDIF
+
+!
+ ENDDO ! bottom of atomic ion loop
+!
+!
+! Above 200 km, (or at all altitudes if KCHEM=3) use a priori
+! electron density to calculate O+(4S):
+!
+ IF (KCHEM .GE. 3) THEN
+!
+ DO I=J200+1,JMAX
+ P(5,I)= RN2PI(I) &
+ + (1.-B(15)) * RN2EI(I) &
+ + KZ(12,I) * DEN(2,I) * ZN2(I) &
+ + KZ(16,I) * DEN(1,I) * ZN2(I)
+ L(5,I)= KZ(3,I) * ZO(I) &
+ + KZ(4,I) * ZO2(I) &
+ + KZ(23,I) * E(I) &
+ + KZ(39,I) * ZO(I)
+ DEN(5,I) = P(5,I) / L(5,I)
+ QQ(I) = PHONO(1,I) &
+ + KZ(3,I) * DEN(5,I) * ZO(I) &
+ + B(21) * KZ(25,I) * DEN(4,I) * ZO2(I)
+ RR(I) = KZ(30,I) * ZNO(I) &
+ + KZ(37,I) * ZNS(I)
+ SS(I) = KZ(1,I) * ZN2(I) &
+ + KZ(40,I) * ZNO(I)
+ TT(I) = KZ(22,I) * E(I)
+ UU(I) = O2PI(I) &
+ + (1.-B(12)-B(13)-B(14)) * O2EI(I) &
+ + KZ(13,I) * DEN(2,I) * ZO2(I) &
+ + KZ(17,I) * DEN(1,I) * ZO2(I) &
+ + KZ(4,I) * DEN(5,I) * ZO2(I) &
+ + B(22) * KZ(25,I) * DEN(4,I) * ZO2(I)
+ VV(I) = KZ(2,I) * ZO2(I)
+ WW(I) = KZ(24,I) * E(I) &
+ + KZ(30,I) * ZNO(I) &
+ + KZ(37,I) * ZNS(I)
+ XX(I) = DEN(1,I) + DEN(2,I) + DEN(4,I) + DEN(5,I)
+ DEN(3,I) = (TT(I)*WW(I)*E(I) - TT(I)*WW(I)*XX(I) - TT(I)*UU(I) &
+ - QQ(I)*WW(I) - RR(I)*UU(I) ) / &
+ (TT(I)*WW(I) + TT(I)*VV(I) + RR(I)*VV(I) + SS(I)*WW(I))
+ if (den(3,i) .lt. 0.) den(3,i)=0.
+ ENDDO
+!
+ ENDIF
+!
+!
+! If KCHEM=4, calculate electron density below 200 km using iterative method:
+! First time: approximate electron density using effective recombination rate.
+! Subsequent iterations: update electron density from sum of ions.
+!
+ if (kchem .ge. 4) then
+!
+ if (iter .eq. 1) then
+ do i=1,j200
+ tatomi=den(1,i)+den(2,i)+den(3,i)+den(4,i)
+ alphaef=(kz(22,i)+kz(24,i))/2.
+ e(i)=(tatomi+sqrt(tatomi**2+4.*tir(i)/alphaef))/2.
+ enddo
+ else
+ do i=1,j200
+ toti = den(1,i)+den(2,i)+den(3,i)+den(4,i) &
+ +den(5,i)+den(6,i)+den(7,i)
+ e(i) = (toti + e(i)) / 2.
+ enddo
+ endif
+!
+!
+! Smoothly transition to electron density above 200 km:
+!
+ E(J200+1) = E(J200) * ( E(J200+3) / E(J200) ) &
+ ** ( (ZZ(J200+1)-ZZ(J200)) / (ZZ(J200+3)-ZZ(J200)) )
+ E(J200+2) = E(J200) * (E(J200+3)/E(J200)) &
+ ** ( (ZZ(J200+2)-ZZ(J200)) / (ZZ(J200+3)-ZZ(J200)) )
+!
+ endif
+!
+!
+! Calculate molecular ion densities and excited species densites:
+!
+ DO I=1,JMAX
+!
+!
+! N2+:
+!
+ IF (KCHEM .GE. 2) THEN
+ P(5,I)= RN2PI(I) &
+ + (1.-B(15)) * RN2EI(I) &
+ + KZ(12,I) * DEN(2,I) * ZN2(I) &
+ + KZ(16,I) * DEN(1,I) * ZN2(I)
+ L(5,I)= KZ(3,I) * ZO(I) &
+ + KZ(4,I) * ZO2(I) &
+ + KZ(23,I) * E(I) &
+ + KZ(39,I) * ZO(I)
+ DEN(5,I) = P(5,I) / L(5,I)
+ ENDIF
+!
+!
+! O2+:
+!
+ IF (KCHEM .GE. 3) THEN
+ P(6,I)= O2PI(I) &
+ + (1.-B(12)-B(13)-B(14)) * O2EI(I) &
+ + KZ(2,I) * DEN(3,I) * ZO2(I) &
+ + KZ(13,I) * DEN(2,I) * ZO2(I) &
+ + KZ(17,I) * DEN(1,I) * ZO2(I) &
+ + KZ(4,I) * DEN(5,I) * ZO2(I) &
+ + B(22) * KZ(25,I) * DEN(4,I) * ZO2(I)
+ L(6,I)= KZ(24,I) * E(I) &
+ + KZ(30,I) * ZNO(I) &
+ + KZ(37,I) * ZNS(I)
+ DEN(6,I) = P(6,I)/ L(6,I)
+ ENDIF
+!
+!
+! NO+:
+!
+ IF (KCHEM .GE. 3) THEN
+ P(7,I)= PHONO(1,I) &
+ + KZ(1,I) * DEN(3,I) * ZN2(I) &
+ + KZ(40,I) * DEN(3,I) * ZNO(I) &
+ + KZ(3,I) * DEN(5,I) * ZO(I) &
+ + B(21) * KZ(25,I) * DEN(4,I) * ZO2(I) &
+ + KZ(30,I) * DEN(6,I) * ZNO(I) &
+ + KZ(37,I) * DEN(6,I) * ZNS(I)
+ L(7,I)= KZ(22,I) * E(I)
+ DEN(7,I) = P(7,I) / L(7,I)
+ ENDIF
+!
+!
+! N2(A):
+!
+ P(8,I)= AGLW(1,3,I) + AGLW(2,3,I) + B(43)*AGLW(3,3,I)
+ L(8,I)= KZ(26,I) * ZO(I) &
+ + KZ(29,I) * ZO2(I) &
+ + A(10)
+ DEN(8,I) = P(8,I) / L(8,I)
+!
+!
+! N(2P):
+!
+ P(9,I)= B(28) * PHOTOD(1,3,I) &
+ + B(28) * PHOTOI(6,3,I) &
+ + B(26) * RN2ED(I) &
+ + B(23) * KZ(23,I) * DEN(5,I) * E(I)
+ L(9,I)= KZ(33,I) * ZO(I) &
+ + KZ(34,I) * ZO2(I) &
+ + KZ(35,I) * ZNO(I) &
+ + A(11) &
+ + A(12)
+ DEN(9,I) = P(9,I) / L(9,I)
+!
+!
+! N(2D):
+!
+ P(10,I)= B(27) * PHOTOD(1,3,I) &
+ + B(27) * PHOTOI(6,3,I) &
+ + B(25) * RN2ED(I) &
+ + B(16) * B(15) * RN2EI(I) &
+ + B(3) * KZ(22,I) * DEN(7,I) * E(I) &
+ + B(4) * KZ(23,I) * DEN(5,I) * E(I) &
+ + B(5) * KZ(3,I) * DEN(5,I) * ZO(I) &
+ + B(29) * KZ(33,I) * DEN(9,I) * ZO(I) &
+ + A(12) * DEN(9,I)
+ L(10,I)= KZ(5,I) * ZO2(I) &
+ + KZ(6,I) * ZO(I) &
+ + KZ(7,I) * E(I) &
+ + KZ(31,I) * ZNO(I) &
+ + KZ(38,I) * DEN(3,I) &
+ + A(1)
+ DEN(10,I) = P(10,I) / L(10,I)
+!
+!
+! O(1S):
+!
+ BZ(1,I) = 0.12 + 0.02 * ALOG10 (E(I)/ZO(I)*(300./ZTE(I))**0.7)
+ IF (BZ(1,I) .LT. 0.03) BZ(1,I)=0.03
+ P(11,I)= AGLW(2,1,I) &
+ + BZ(1,I) * KZ(24,I) * DEN(6,I) * E(I) &
+ + B(18) * KZ(26,I) * DEN(8,I) * ZO(I) &
+ + B(33) * KZ(37,I) * DEN(6,I) * ZNS(I) &
+ + B(34) * KZ(31,I) * DEN(10,I) * ZNO(I) &
+ + PHOTOD(2,2,I)
+ L(11,I)= KZ(11,I) * ZO(I) &
+ + KZ(36,I) * ZO2(I) &
+ + A(5) &
+ + A(4)
+ DEN(11,I) = P(11,I) / L(11,I)
+!
+!
+! O(1D):
+!
+ P(12,I)= AGLW(1,1,I) &
+ + KZ(28,I) * E(I) * ZO(I) &
+ + B(2) * KZ(24,I) * DEN(6,I) * E(I) &
+ + B(6) * KZ(5,I) * DEN(10,I) * ZO2(I) &
+ + B(20) * KZ(6,I) * DEN(10,I) * ZO(I) &
+ + B(17) * KZ(25,I) * DEN(4,I) * ZO2(I) &
+ + B(7) * KZ(15,I) * DEN(2,I) * ZO(I) &
+ + SRCED(I) &
+ + PHOTOD(1,2,I) &
+ + A(5) * DEN(11,I)
+ L(12,I)= KZ(8,I) * ZN2(I) &
+ + KZ(9,I) * ZO2(I) &
+ + KZ(10,I) * E(I) &
+ + KZ(27,I) * ZO(I) &
+ + A(2) &
+ + A(3)
+ DEN(12,I) = P(12,I) / L(12,I)
+!
+ ENDDO ! bottome of molecular ion / excited species loop
+!
+ ENDDO ! bottom of iterative looop
+!
+!
+! Impose charge neutrality:
+!
+ do i=1,j200
+ e(i)=den(1,i)+den(2,i)+den(3,i)+den(4,i)+den(5,i)+den(6,i)+den(7,i)
+ enddo
+!
+!
+! Calculate O- for mutual neutralization source of O*
+!
+ do i=1,jmax
+ ominus(i) = (kz(42,i)*zo(i)*e(i)) / (kz(43,i)*den(3,i)+kz(44,i)*zo(i))
+ enddo
+!
+!
+! Calculate airglow emission rates; fill ZCETA array with partial rates
+! from each source; fill ZETA array with total rate for each emission:
+!
+ DO I=1,JMAX
+!
+ ZCETA(1,1,I) = B(39) * AGLW(3,3,I)
+ ZCETA(2,1,I) = B(40) * A(10) * P(8,I) / L(8,I)
+!
+ ZCETA(1,2,I) = B(38) * B(36) * RN2EI(I)
+ ZCETA(2,2,I) = B(38) * PHOTOI(3,3,I)
+ ZCETA(3,2,I) = G(2,I) * DEN(5,I)
+!
+ ZCETA(1,3,I) = A(1) * B(27) * PHOTOD(1,3,I) / L(10,I)
+ ZCETA(2,3,I) = A(1) * B(27) * PHOTOI(6,3,I) / L(10,I)
+ ZCETA(3,3,I) = A(1) * B(25) * RN2ED(I) / L(10,I)
+ ZCETA(4,3,I) = A(1) * B(16) * B(15) * RN2EI(I) / L(10,I)
+ ZCETA(5,3,I) = A(1) * B(3) * KZ(22,I) * DEN(7,I) * E(I) /L(10,I)
+ ZCETA(6,3,I) = A(1) * B(4) * KZ(23,I) * DEN(5,I) * E(I) /L(10,I)
+ ZCETA(7,3,I) = A(1) * B(5) * KZ(3,I) * DEN(5,I) * ZO(I) /L(10,I)
+ ZCETA(8,3,I) = A(1) * B(29) * KZ(33,I) * DEN(9,I) * ZO(I) /L(10,I)
+ ZCETA(9,3,I) = A(1) * A(12) * DEN(9,I) / L(10,I)
+!
+ ZCETA(1,4,I) = A(5) * AGLW(2,1,I) / L(11,I)
+ ZCETA(2,4,I) = A(5) * BZ(1,I)*KZ(24,I) * DEN(6,I) * E(I) /L(11,I)
+ ZCETA(3,4,I) = A(5) * B(18) * KZ(26,I) * DEN(8,I) * ZO(I) /L(11,I)
+ ZCETA(4,4,I) = A(5) * B(33) * KZ(37,I) * DEN(6,I) * ZNS(I)/L(11,I)
+ ZCETA(5,4,I) = A(5) * B(34) * KZ(31,I) * DEN(10,I)* ZNO(I)/L(11,I)
+ ZCETA(6,4,I) = PHOTOD(2,2,I) / L(11,I)
+!
+ ZCETA(1,5,I) = A(2) * AGLW(1,1,I) / L(12,I)
+ ZCETA(2,5,I) = A(2) * KZ(28,I) * E(I) * ZO(I) / L(12,I)
+ ZCETA(3,5,I) = A(2) * B(2) * KZ(24,I) * DEN(6,I) * E(I)/L(12,I)
+ ZCETA(4,5,I) = A(2) * B(6) * KZ(5,I) * DEN(10,I) *ZO2(I)/L(12,I)
+ ZCETA(5,5,I) = A(2) * B(20) * KZ(6,I) * DEN(10,I) * ZO(I)/L(12,I)
+ ZCETA(6,5,I) = A(2) * B(17) * KZ(25,I) * DEN(4,I) * ZO2(I)/L(12,I)
+ ZCETA(7,5,I) = A(2) * B(7) * KZ(15,I) * DEN(2,I) * ZO(I)/L(12,I)
+ ZCETA(8,5,I) = A(2) * SRCED(I) / L(12,I)
+ ZCETA(9,5,I) = A(2) * PHOTOD(1,2,I) / L(12,I)
+ ZCETA(10,5,I)= A(2) * A(5) * DEN(11,I) / L(12,I)
+!
+ ZCETA(1,6,I) = A(8) * (PHOTOI(3,1,I)+B(41)*PHOTOI(5,1,I)) / L(1,I)
+ ZCETA(2,6,I) = A(8) * B(30) * PHOTOI(4,2,I) / L(1,I)
+ ZCETA(3,6,I) = A(8) * B(9) * OEI(I) / L(1,I)
+ ZCETA(4,6,I) = A(8) * B(12) * O2EI(I) / L(1,I)
+!
+ ZCETA(1,7,I) = A(12) * B(28) * PHOTOD(1,3,I) / L(9,I)
+ ZCETA(2,7,I) = A(12) * B(28) * PHOTOI(6,3,I) / L(9,I)
+ ZCETA(3,7,I) = A(12) * B(26) * RN2ED(I) / L(9,I)
+ ZCETA(4,7,I) = A(12) * B(23) * KZ(23,I) * DEN(5,I) * E(I) / L(9,I)
+!
+ ZCETA(1,8,I) = A(11) * B(28) * PHOTOD(1,3,I) / L(9,I)
+ ZCETA(2,8,I) = A(11) * B(28) * PHOTOI(6,3,I) / L(9,I)
+ ZCETA(3,8,I) = A(11) * B(26) * RN2ED(I) / L(9,I)
+ ZCETA(4,8,I) = A(11) * B(23) * KZ(23,I) * DEN(5,I) * E(I) / L(9,I)
+!
+ ZCETA(1,9,I) = AGLW(5,1,I)
+ ZCETA(2,9,I) = KZ(41,I) * DEN(3,I) * E(I)
+ ZCETA(3,9,I) = B(49) * KZ(43,I) * OMINUS(I) * DEN(3,I)
+!
+ ZCETA(1,10,I) = AGLW(6,1,I)
+ ZCETA(2,10,I) = AGLW(7,1,I)
+ ZCETA(3,10,I) = B(44) * AGLW(8,1,I)
+!
+ ZCETA(1,11,I) = A(6) * (PHOTOI(2,1,I)+B(42)*PHOTOI(5,1,I))/ L(2,I)
+ ZCETA(2,11,I) = A(6) * B(31) * PHOTOI(4,2,I) / L(2,I)
+ ZCETA(3,11,I) = A(6) * B(10) * OEI(I) / L(2,I)
+ ZCETA(4,11,I) = A(6) * B(13) * O2EI(I) / L(2,I)
+ ZCETA(5,11,I) = A(6) * B(8) * KZ(18,I) * DEN(1,I) * E(I) / L(2,I)
+ ZCETA(6,11,I) = A(6) * A(8) * DEN(1,I) / L(2,I)
+!
+ ZCETA(1,12,I) = AGLW(4,3,I) * B(48)
+!
+ ZCETA(1,13,I) = AGLW(3,1,I)
+ ZCETA(2,13,I) = AGLW(5,1,I)
+ ZCETA(3,13,I) = KZ(41,I) * DEN(3,I) * E(I)
+ ZCETA(4,13,I) = B(49) * KZ(43,I) * OMINUS(I) * DEN(3,I)
+!
+ ZCETA(1,14,I) = B(46)*PHOTOI(6,3,I)
+ ZCETA(2,14,I) = B(47)*B(15)*RN2EI(I)
+!
+ ZCETA(1,15,I) = AGLW(4,1,I)
+ ZCETA(2,15,I) = AGLW(6,1,I)
+ ZCETA(3,15,I) = AGLW(7,1,I)
+ ZCETA(4,15,I) = B(44) * AGLW(8,1,I)
+ ZCETA(5,15,I) = KZ(45,I) * DEN(3,I) * E(I)
+!
+ ZETA(1,I) = ZCETA(1,1,I)+ZCETA(2,1,I)
+ ZETA(2,I) = ZCETA(1,2,I)+ZCETA(2,2,I)+ZCETA(3,2,I)
+ ZETA(3,I) = ZCETA(1,3,I)+ZCETA(2,3,I)+ZCETA(3,3,I) &
+ +ZCETA(4,3,I)+ZCETA(5,3,I)+ZCETA(6,3,I) &
+ +ZCETA(7,3,I)+ZCETA(8,3,I)+ZCETA(9,3,I)
+ ZETA(4,I) = ZCETA(1,4,I)+ZCETA(2,4,I)+ZCETA(3,4,I) &
+ +ZCETA(4,4,I)+ZCETA(5,4,I)+ZCETA(6,4,I)
+ ZETA(5,I) = ZCETA(1,5,I)+ZCETA(2,5,I)+ZCETA(3,5,I) &
+ +ZCETA(4,5,I)+ZCETA(5,5,I)+ZCETA(6,5,I) &
+ +ZCETA(7,5,I)+ZCETA(8,5,I)+ZCETA(9,5,I) &
+ +ZCETA(10,5,I)
+ ZETA(6,I) = ZCETA(1,6,I)+ZCETA(2,6,I)+ZCETA(3,6,I)+ZCETA(4,6,I)
+ ZETA(7,I) = ZCETA(1,7,I)+ZCETA(2,7,I)+ZCETA(3,7,I)+ZCETA(4,7,I)
+ ZETA(8,I) = ZCETA(1,8,I)+ZCETA(2,8,I)+ZCETA(3,8,I)+ZCETA(4,8,I)
+ ZETA(9,I) = ZCETA(1,9,I)+ZCETA(2,9,I)+ZCETA(3,9,I)
+ ZETA(10,I) = ZCETA(1,10,I)+ZCETA(2,10,I)+ZCETA(3,10,I)
+ ZETA(11,I) = ZCETA(1,11,I)+ZCETA(2,11,I)+ZCETA(3,11,I) &
+ +ZCETA(4,11,I)+ZCETA(5,11,I)+ZCETA(6,11,I)
+ ZETA(12,I) = ZCETA(1,12,I)
+ ZETA(13,I) = ZCETA(1,13,I)+ZCETA(2,13,I)+ZCETA(3,13,I)+ZCETA(4,13,I)
+ ZETA(14,I) = ZCETA(1,14,I)+ZCETA(2,14,I)
+ ZETA(15,I) = ZCETA(1,15,I)+ZCETA(2,15,I)+ZCETA(3,15,I) &
+ +ZCETA(4,15,I)+ZCETA(5,15,I)
+!
+ ENDDO ! bottom of airglow loop
+!
+!
+! Calculate vertical column brightnesses:
+!
+ DO I=1,JMAX
+ IF (I .EQ. JMAX) THEN
+ DZ = (ZZ(I) - ZZ(I-1))
+ ELSE
+ IF (I .EQ. 1) THEN
+ DZ = (ZZ(I+1) - ZZ(I))
+ ELSE
+ DZ = (ZZ(I+1) - ZZ(I-1)) / 2.0
+ ENDIF
+ ENDIF
+ DO IW=1,NW
+ VCB(IW) = VCB(IW) + ZETA(IW,I) * DZ
+ ENDDO
+ ENDDO
+!
+!
+! Convert brightnesses to Rayleighs:
+!
+ DO IW=1,NW
+ VCB(IW) = VCB(IW) / 1.E6
+ ENDDO
+!
+!
+ RETURN
+!
+ END SUBROUTINE GCHEM
+
diff --git a/srcGlow/geo2mag.f90 b/srcGlow/geo2mag.f90
new file mode 100644
index 0000000..3822320
--- /dev/null
+++ b/srcGlow/geo2mag.f90
@@ -0,0 +1,62 @@
+! Subroutine GEOMAG
+!
+! Excerpted from the IRI package, Stan Solomon, 6/1988. Original name was
+! GMAG, which was changed to avoid conflict when used at the same time
+! as IRI. Labeled common /CONST/ which contained only the degree/radian
+! conversion factor was changed to a data statement. Longitude range
+! from -180 to 180.
+!
+! Minor refactor to f90, SCS, 2016.
+!
+! CALCULATES GEOMAGNETIC LONGITUDE (MLONG) AND LATITUDE (MLAT)
+! FROM GEOGRAFIC LONGITUDE (LONG) AND LATITUDE (LATI) FOR ART=0
+! AND REVERSE FOR ART=1. ALL ANGLES IN DEGREE.
+! LATITUDE:-90 TO 90. LONGITUDE:0 TO 360 EAST.
+!
+ SUBROUTINE GEO2MAG(ART,LONG,LATI,MLONG,MLAT)
+ INTEGER ART
+ REAL MLONG,MLAT,LONG,LATI
+ DATA FAKTOR/.0174532952/
+ ZPI=FAKTOR*360.
+ CBG=11.4*FAKTOR
+ CI=COS(CBG)
+ SI=SIN(CBG)
+ IF(ART.NE.0) THEN
+ CBM=COS(MLAT*FAKTOR)
+ SBM=SIN(MLAT*FAKTOR)
+ CLM=COS(MLONG*FAKTOR)
+ SLM=SIN(MLONG*FAKTOR)
+ SBG=SBM*CI-CBM*CLM*SI
+ LATI=ASIN(SBG)
+ CBG=COS(LATI)
+ SLG=(CBM*SLM)/CBG
+ CLG=(SBM*SI+CBM*CLM*CI)/CBG
+ IF(CLG.GT.1.) CLG=1.
+ LONG=ACOS(CLG)
+ IF(SLG.LT.0.0) LONG=ZPI-ACOS(CLG)
+ LATI=LATI/FAKTOR
+ LONG=LONG/FAKTOR
+ LONG=LONG-69.8
+ IF(LONG.LT.-180.0) LONG=LONG+360.0
+ IF(LONG.GT. 180.0) LONG=LONG-360.0
+ ELSE
+ YLG=LONG+69.8
+ CBG=COS(LATI*FAKTOR)
+ SBG=SIN(LATI*FAKTOR)
+ CLG=COS(YLG*FAKTOR)
+ SLG=SIN(YLG*FAKTOR)
+ SBM=SBG*CI+CBG*CLG*SI
+ MLAT=ASIN(SBM)
+ CBM=COS(MLAT)
+ SLM=(CBG*SLG)/CBM
+ CLM=(-SBG*SI+CBG*CLG*CI)/CBM
+ IF(CLM.GT.1.) CLM=1.
+ MLONG=ACOS(CLM)
+ IF(SLM.LT..0) MLONG=ZPI-ACOS(CLM)
+ MLAT=MLAT/FAKTOR
+ MLONG=MLONG/FAKTOR
+ IF(MLONG.LT.-180.0) MLONG=MLONG+360.0
+ IF(MLONG.GT. 180.0) MLONG=MLONG-360.0
+ ENDIF
+ RETURN
+ END SUBROUTINE GEO2MAG
diff --git a/srcGlow/glow.f90 b/srcGlow/glow.f90
new file mode 100644
index 0000000..ea99956
--- /dev/null
+++ b/srcGlow/glow.f90
@@ -0,0 +1,237 @@
+! Subroutine GLOW
+
+! This software is part of the GLOW model. Use is governed by the Open Source
+! Academic Research License Agreement contained in the file glowlicense.txt.
+! For more information see the file glow.txt.
+
+! Version 0.98, 1/2017
+! Version 0.981, 6/2017
+
+! Stan Solomon, 1988, 1989, 1990, 1991, 1992, 1994, 2000, 2002, 2005, 2015, 2016
+!
+! Subroutine GLOW is the master routine of the /glow package.
+! It receives input parameters from the calling program using use-associated variables
+! defined in module CGLOW, calls the other subroutines, and returns results.
+! CGLOW also defines the array dimensions for the altitude grid, the electron
+! energy grid, solar spectrum wavelengh bins, etc.
+
+! Call subroutine CGLOW_INIT first to set array dimensions and allocate variables
+! Call subroutine EGRID before call to GLOW to set up electron energy grid
+! Call subroutine MAXT before call to GLOW to specify auroral electron flux (if any)
+
+! Subroutines called by GLOW are:
+! FIELDM calculates magnetic dip angle
+! SOLZEN calculates solar zenith angle
+! SSFLUX scales solar flux for activity level
+! RCOLUM calculates slant column density of major species
+! EPHOTO calculates photoionization and photoelectron production
+! QBACK estimates background ('night time') ionization
+! ETRANS computes electron transport, ionization, excitation
+! calls EXSECT for cross-sections, first call only
+! GCHEM finds electron/ion/metastable densities, airglow emissions
+! BANDS calculates vibrational distributions for selected band systems (currently only LBH)
+
+! Supplied to subroutine using use-associated data defined in module CGLOW:
+! IDATE Date, in form yyddd
+! UT Universal Time; seconds
+! GLAT Geographic latitude; degrees
+! GLONG Geographic longitude; degrees
+! ISCALE Solar flux scaling switch, see subroutine SSFLUX
+! JLOCAL =0 for electron transport calculation, =1 for local calc only
+! KCHEM Ion/electron chemistry switch, see subroutine GCHEM
+! F107 Solar 10.7 cm flux for day being modeled, 1.E-22 W m-2 Hz-1
+! F107A Solar 10.7 cm flux 81-day centered average
+! XUVFAC Factor by which to multiply to solar flux 16-250 A or 16-50 A.
+! ZZ altitude array; cm
+! ZO O number density at each altitude; cm-3
+! ZN2 N2 " " " " " "
+! ZO2 O2 "
+! ZNO NO "
+! ZNS N(4S) "
+! ZND N(2D) "
+! ZRHO mass density at each altitude; gm cm-3 (not currently in use)
+! ZE electron density at each alt; cm-3
+! ZTN neutral temperature at each alt; K
+! ZTI ion temperature at each alt; K
+! ZTE electron temp at each alt; K
+! PHITOP energetic electron flux into top of atmosphere; cm-2 s-1 eV-1
+
+! Calculated by subroutine and returned using use-associated data defined in module CGLOW:
+! SZA solar zenith angle; radians
+! DIP magnetic field dip angle; radians
+! EFRAC energy conservation check from ETRANS, (out-in)/in
+! IERR error code returned from ETRANS:
+! 0=normal, 1=local problem, 2=transport problem
+! ZMAJ major species density array, O, O2, N2; cm-3
+! ZCOL major species slant column density array, O, O2, N2; cm-2
+! WAVE1 longwave edge of solar flux wavelength range; A
+! WAVE2 shortwave edge of solar flux wavelength range; A
+! SFLUX scaled solar flux in each wavelength range; photons cm-2 s-1
+! ENER electron energy grid; eV
+! DEL width of each bin in electron energy grid; eV
+! PESPEC photoelectron production rate at energy, altitude; cm-3 s-1
+! PIA proton aurora ionization rate (not currently in use); cm-3 s-1.
+! SESPEC proton aurora secondary electron production rate (not currently in use); cm-3 s-1
+! PHOTOI photoionization rates for state, species, altitude; cm-3 s-1
+! O+ states: 4S, 2Do, 2Po, 4Pe, 2Pe
+! O2+ states: X, a+A, b, dissoc.
+! N2+ states: X, A, B, C, F, dissoc.
+! PHOTOD photodissoc. & exc. rates for state, species, alt.; cm-3 s-1
+! (1,2,J) = O2 -> O(3P) + O(1D))
+! (2,2,J) = O2 -> O(3P) + O(1S)
+! (1,3,J) = N2 -> N + N
+! PHONO photoionization/dissociation/excitation rates for NO, cm-3 s-1
+! (1,J) = NO+ from H Ly-a ionization
+! SION electron impact ionization rates calculated by ETRANS; cm-3 s-1
+! UFLX upward hemispherical electron flux; cm-2 s-1 eV-1
+! DFLX downward hemispherical electron flux; cm-2 s-1 eV-1
+! AGLW Electron impact exc. rates; state, species, alt.; cm-3 s-1
+! O states: 1D, 1S, 5S, 3S, 3p5P, 3p3P, 3d3D, 3s'3D
+! O2 states: a, b, (A+A'+c), B(SRC), 9.9eV, Ryds., vib.
+! N2 states: (A+B+W), B', C, (a+a'+w), 1Pu, b', Ryds., vib.
+! EHEAT ambient electron heating rate, eV cm-3 s-1
+! TEZ total energetic electron energy deposition, eV cm-3 s-1
+! TPI total photoionization rate at each altitude, cm-3 s-1
+! TEI total electron impact ionization rate at each altitude, cm-3 s-1
+! TIR total ionization rate at each altitude (TPI+TEI), cm-3 s-1
+! ECALC electron density, calculated below 200 km, cm-3
+! ZXDEN array of excited and and/or ionized state densities at each altitude:
+! O+(2P), O+(2D), O+(4S), N+, N2+, O2+, NO+, N2(A), N(2P),
+! N(2D), O(1S), O(1D); cm-3
+! ZETA array of volume emission rates at each altitude:
+! 3371A, 4278A, 5200A, 5577A, 6300A, 7320A, 10400A, 3466A,
+! 7774A, 8446A, 3726A, LBH, 1356, 1493, 1304; cm-3 s-1
+! ZCETA array of contributions to each v.e.r at each alt; cm-3 s-1
+! VCB array of vertical column brightnesses (as above); Rayleighs
+
+! Array dimensions:
+! JMAX number of altitude levels
+! NBINS number of energetic electron energy bins
+! LMAX number of wavelength intervals for solar flux
+! NMAJ number of major species
+! NST number of states produced by photoionization/dissociation
+! NEI number of states produced by electron impact
+! NEX number of ionized/excited species
+! NW number of airglow emission wavelengths
+! NC number of component production terms for each emission
+
+
+ subroutine glow
+
+ use cglow,only: jmax,lmax,nw,nst,nmaj,nbins,npbins,iscale,nei,ierr, &
+ glat,glong,idate,ut,f107,f107a, &
+ ener,del,phitop,pener,pdel,pflux,dip,sza,xuvfac, &
+ wave1,wave2,sflux,zmaj,zo,zo2,zn2,zz,ztn,zcol, &
+ photoi,photod, phono,pespec,pia,sespec, &
+ uflx,dflx,sion,aglw,eheat,tez, efrac,zno,zns
+
+ implicit none
+
+ real :: zvcd(nmaj,jmax),xf,yf,zf,ff,dec,sdip,teflux,tpflux
+ real,parameter :: pi=3.1415926536
+ integer,save :: ifirst=1
+ integer :: j,n
+
+! First call only: set up energy grid:
+
+ if (ifirst == 1) then
+ ifirst = 0
+ call egrid (ener, del, nbins)
+ endif
+
+! Find magnetic dip angle and solar zenith angle (radians):
+
+ call fieldm (glat, glong, 300., xf, yf, zf, ff, dip, dec, sdip)
+ dip = abs(dip) * pi/180.
+ if (dip < 0.01) dip=0.01
+
+
+ call solzen (idate, ut, glat, glong, sza)
+ sza = sza * pi/180.
+
+! Scale solar flux: (not used for SCE; SCE only takes precipition's impact; YU@2022)
+
+ ! call ssflux (iscale, f107, f107a, xuvfac, wave1, wave2, sflux)
+
+! Pack major species density array:
+ do j=1,jmax
+ zmaj(1,j) = zo(j)
+ zmaj(2,j) = zo2(j)
+ zmaj(3,j) = zn2(j)
+ enddo
+
+! Calculate slant path column densities of major species in the
+! direction of the sun: (not used for SCE; SCE only takes precipition's impact; YU@2022)
+
+! call rcolum (sza, zz, zmaj, ztn, zcol, zvcd, jmax, nmaj)
+
+! Call subroutine EPHOTO to calculate the photoelectron production
+! spectrum and photoionization rates as a function of altitude,
+! unless all altitudes are dark, in which case zero arrays:
+
+ !!! do not use photoelectrons (not used for SCE; SCE only takes precipition's impact; YU@2022)
+ sza = 5
+ if (sza < 1.85) then
+ call ephoto
+ else
+ photoi(:,:,:) = 0.0
+ photod(:,:,:) = 0.0
+ phono(:,:) = 0.0
+ pespec(:,:) = 0.0
+ endif
+
+! Add background ionization to photoionization:
+! call qback (zmaj, zno, zvcd, photoi, phono, f107, jmax, nmaj, nst)
+
+! Calculate ionization due to energetic auroral protons:
+
+ tpflux = 0.
+ do n=1,npbins
+ tpflux = tpflux + pflux(n)
+ enddo
+
+ if (tpflux > 0.001) then
+ call qproton (nmaj, jmax, npbins, pflux, pener, pdel, zz, ztn, zo, zo2, zn2, zns, pia)
+ else
+ pia(:,:)=0.
+ endif
+
+! Zero secondary electron production due to proton precipitation (not currently in use):
+ sespec(:,:) = 0.0
+
+! Call subroutine ETRANS to calculate photoelectron and auroral
+! electron transport and electron impact excitation rates, unless
+! there are no energetic electrons, in which case zero arrays:
+
+ teflux = 0.
+ do n=1,nbins
+ teflux = teflux + phitop(n)
+ enddo
+
+ if (teflux > 0.001 .or. sza < 1.85) then
+ call etrans
+ else
+ uflx(:,:) = 0.0
+ dflx(:,:) = 0.0
+ sion(:,:) = 0.0
+ aglw(:,:,:) = 0.0
+ eheat(:) = 0.0
+ tez(:) = 0.0
+ efrac = 0.0
+ ierr = 0
+ endif
+
+! Call subroutine GCHEM to calculate the densities of excited and
+! ionized consituents, airglow emission rates, and vertical column
+! brightnesses:
+
+ call gchem
+
+! Call subroutine BANDS to calculate band-specific airglow emission
+! rates (currently only LBH upper state distribution):
+
+ call bands
+
+ return
+
+ end subroutine glow
diff --git a/srcGlow/glowbasic.f90 b/srcGlow/glowbasic.f90
new file mode 100644
index 0000000..0d772dd
--- /dev/null
+++ b/srcGlow/glowbasic.f90
@@ -0,0 +1,335 @@
+program glowbasic
+
+! This software is part of the GLOW model. Use is governed by the Open Source
+! Academic Research License Agreement contained in the file glowlicense.txt.
+! For more information see the file glow.txt.
+
+! Version 0.981, 6/2017
+
+! Adapted from glowdriver by Stan Solomon, 2/2016
+
+! Basic single-processor driver for the GLOW model.
+! Uses MSIS/IRI for input.
+! Runs GLOW for designated inputs once, or multiple times.
+! MPI and netCDF libraries not required.
+
+! For definitions of use-associated variables, see subroutine GLOW and module CGLOW.
+
+! Other definitions:
+! f107p Solar 10.7 cm flux for previous day
+! ap Ap index of geomagnetic activity
+! z altitude array, km
+
+! Array dimensions:
+! jmax number of altitude levels
+! nbins number of energetic electron energy bins
+! lmax number of wavelength intervals for solar flux
+! nmaj number of major species
+! nst number of states produced by photoionization/dissociation
+! nei number of states produced by electron impact
+! nex number of ionized/excited species
+! nw number of airglow emission wavelengths
+! nc number of component production terms for each emission
+
+ use cglow,only: jmax,nbins,lmax,nmaj,nei,nex,nw,nc,nst
+ use cglow,only: idate,ut,glat,glong,f107a,f107,f107p,ap,ef,ec
+ use cglow,only: iscale,jlocal,kchem,xuvfac
+ use cglow,only: sza,dip,efrac,ierr
+ use cglow,only: zz,zo,zn2,zo2,zns,znd,zno,ztn,ze,zti,zte
+ use cglow,only: ener,del,phitop,wave1,wave2,sflux,pespec,sespec,uflx,dflx,sion
+ use cglow,only: photoi,photod,phono,aglw,tei,tpi,tir,ecalc,zxden,zeta,zceta,zlbh
+ use cglow,only: cglow_init
+ use cglow,only: data_dir
+ use cglow,only: ec_diff,ef_diff,ntimes_traj,glons,glats,mlats,mlons,mlts,nE,ec_all,ef_all,sigmap_r,sigmah_r
+ use cglow, only: iyear_traj,imonth_traj,iday_traj,ihour_traj,iminute_traj,isecond_traj
+
+ implicit none
+
+ character(len=1024) :: iri90_dir,filename
+ real, parameter :: cpi = 3.141592654
+ real,allocatable :: z(:) ! glow height coordinate in km (jmax)
+ real,allocatable :: zun(:), zvn(:) ! neutral wind components (not in use)
+ real,allocatable :: pedcond(:,:), hallcond(:,:) ! Pederson and Hall conductivities in S/m (mho)
+ real,allocatable :: outf(:,:) ! iri output (11,jmax)
+ real,allocatable :: hallconductance(:),pedconductance(:)
+ real,allocatable :: eDensity(:,:),eDensity_new(:,:),ionrate(:,:)
+ real :: rz12,stl,fmono,emono, f107y, mlat,mlon
+ real :: d(8), t(2), sw(25), oarr(30),logener(nbins),logphitop(nbins)
+ real :: logec_diff(100),logef_diff(100), dlogE
+ integer :: l,j,jj,ijf,jmag,iday,mmdd,i,ii,n,k,ix,itail,ierror,ie
+ integer :: instance,iostatus,idoy,ndaymo,unittmp_
+ logical :: jf(12), UseSpec, UseDmsp
+ character(len=99) ::n_jmax
+ data sw/25*1./
+
+ ! false if only Eave and Fe is used for calculation (call maxt)
+ UseSpec = .True.
+ UseDmsp = .False.
+!
+! Initialize standard switches:
+!
+ iscale=1
+ xuvfac=3.
+ kchem =4
+ jlocal=0
+ itail = 0 ! itail: 1 -- add the low-energy tail (Meier et al 1989); itail: 0 -- no tail
+ fmono=0.
+ emono=0.
+!
+! Set data directories:
+!
+ data_dir = 'data/'
+ iri90_dir = 'data/iri90/'
+!
+! Set number of altitude levels:
+!
+! jmax = 102
+ jmax = 112
+!
+! jmax = 68
+
+! Allocate local arrays:
+!
+ allocate(z(jmax))
+ allocate(zun(jmax))
+ allocate(zvn(jmax))
+ allocate(outf(11,jmax))
+!
+! Call CGLOW_INIT (module CGLOW) to set array dimensions and allocate use-associated variables:
+! (This was formerly done using common blocks, including common block /cglow/.)
+!
+ call cglow_init
+!
+! Call EGRID to set up electron energy grid:
+!
+ call egrid (ener, del, nbins)
+
+! read in the input file of precipitation, the location of the satellite trajectory (in glat, glon)
+ if (UseSpec .and. .not. UseDmsp)then
+ filename = 'inputs/GLOW_ram_flux_input_one_point.dat'
+ call read_trajectory_flux(filename)
+ elseif (UseSpec .and. UseDmsp)then
+ filename = 'inputs/Glow_dmsp_input_flux.dat'
+ call read_trajectory_flux(filename)
+ else !!! test at one location with one Maxwellian input
+ nTimes_traj = 50
+ allocate(glats(nTimes_traj),glons(nTimes_traj), ec_all(ntimes_traj), ef_all(ntimes_traj))
+
+ glats(:) = 70.
+ glons(:) = 180.
+
+ ef_all(:) = 1. ! ergs/cm^2/s
+ ec_all(1) = 0.5 !!! define a energy grid from 500 eV to 50 keV
+ dlogE = (log10(50.) - log10(0.5))/nTimes_traj
+ do ie=2, nTimes_traj
+ ec_all(ie) = 10**(log10(0.5) + dlogE*ie)
+ end do
+
+ end if
+
+!
+! Loop to call GLOW for designated inputs until end-of-file or any character on standard input:
+!
+ allocate(pedcond(ntimes_traj,jmax))
+ allocate(hallcond(ntimes_traj,jmax))
+ allocate(pedconductance(ntimes_traj),hallconductance(ntimes_traj))
+ allocate(ionrate(ntimes_traj,jmax), eDensity(ntimes_traj,jmax),eDensity_new(ntimes_traj,jmax))
+
+ Pedconductance = 0.0
+ Hallconductance = 0.0
+ pedcond = 0.0
+ hallcond = 0.0
+
+ ionrate = 0.0
+ eDensity= 0.0
+ eDensity_new = 0.0
+
+ do instance=1,nTimes_traj
+!
+! Get input values:
+!
+
+ glat = glats(instance)
+ glong = glons(instance)
+! call geomag(1,glong,glat,mlon,mlat)
+! if (glong .lt. 0)glong = glong + 360.
+
+ if(UseSpec)then
+ ut = ihour_traj(instance) * 3600.+iminute_traj(instance)*60+isecond_traj(instance)
+ call moda(0, imonth_traj(instance), iday_traj(instance), idoy) ! moda in iri90.f
+ idate = (iyear_traj(instance) - iyear_traj(instance)/100*100)*1000+idoy
+ ! get the ap data from "apf107.dat"
+ call apf_only(iyear_traj(instance), imonth_traj(instance), iday_traj(instance),&
+ f107, f107p, f107a, f107y, ap) ! apf_only in irifun_2012.f
+
+ else !!! test at one location with one Maxwellian input
+ ut = 9*3600.
+ idate = 2005256
+ ap = 5
+ f107 = 50
+ f107a = 50
+ f107p = 50
+ end if
+
+! Calculate local solar time:
+!
+ stl = ut/3600. + glong/15.
+ if (stl < 0.) stl = stl + 24.
+ if (stl >= 24.) stl = stl - 24.
+!
+! Call MZGRID to use MSIS/NOEM/IRI inputs on default altitude grid:
+!
+ call mzgrid (jmax,nex,idate,ut,glat,glong,stl,f107a,f107,f107p,ap,iri90_dir, &
+ z,zo,zo2,zn2,zns,znd,zno,ztn,zun,zvn,ze,zti,zte,zxden)
+!
+! Call MAXT to put auroral electron flux specified by namelist input into phitop array:
+!
+ phitop(:) = 0.
+ if (ef_all(instance) > 0.0001 .and. ec_all(instance) > 1)then
+ if(.not. UseSpec)then
+
+ ec = ec_all(instance)*1.0e3 ! -> eV
+ ef = ef_all(instance) ! ergs/cm^2/s
+
+ ! from ef and ec get a maxiwellian function (ef, ec) [ergs/cm^2/s, eV] --> phitop: /cm^2/s/eV
+!!! test: temporarily no limit on the ef and ec
+ !if (ef>.001 .and. ec>1.)
+ write(*,*)'ec, ef:',ec, ef
+
+ call maxt(ef,ec,ener,del,nbins,itail,fmono,emono,phitop)
+
+ !----------------------------------------------------------------
+ !!! for those out of 500 eV to 50 keV, force the flux to be zero (to be consistent with Robinson)
+ !----------------------------------------------------------------
+ do i=1, nbins
+ if(ener(i) .lt. 500 .or. ener(i) .gt. 50000.)then
+ phitop(i) = 0.0
+ end if
+ end do
+
+ else
+ ! interpolate in energy space (logE, logflux) (eV, /cm^2/s/eV)
+ logener = log10(ener)
+ k = 0
+
+ do i=1,nbins
+ ! NOTE: the input differential flux is in unit of /cm^2/s/sr/keV.
+ ! NOTE: "phitop" needs /cm^2/s/eV.
+ logef_diff(1:nE) = log10(ef_diff(instance,:)*cpi/1000.) ! convert /cm^2/s/sr/keV to /cm^2/s/eV
+ logec_diff(1:nE) = log10(ec_diff*1.0e3) ! convert to eV
+
+ if (logener(i).gt.logec_diff(2) .and. logener(i) .le. logec_diff(nE)) then
+ call lintp(logec_diff(2:nE), logef_diff(2:nE), nE-1,logener(i), logphitop(i), ierror)
+ phitop(i) = 10.**(logphitop(i))
+ else
+ phitop(i) = 0.0
+ k = k + 1
+ end if
+
+ !\
+ ! make the spectrum within the Robinson's valid energy range (for comparison to Robinson's)
+ ! comment out to take into account the full spectrum
+ !/
+ !if(ener(i) .lt. 500 .or. ener(i) .gt. 50000.)then
+ ! phitop(i) = 0.0
+ !end if
+
+ end do
+ end if
+
+ end if
+! Fill altitude array, converting to cm:
+!
+ zz(:) = z(:) * 1.e5 ! km to cm at all jmax levels
+!
+! Call GLOW to calculate ionized and excited species, airglow emission rates,
+! and vertical column brightnesses:
+!
+
+ if(maxval(phitop) > 0.0)then
+ call glow
+
+!
+! Call CONDUCT to calculate Pederson and Hall conductivities:
+!
+ do j=1,jmax
+ call conduct (glat, glong, z(j), zo(j), zo2(j), zn2(j), &
+ zxden(3,j), zxden(6,j), zxden(7,j), ztn(j), zti(j), zte(j), &
+ pedcond(instance,j), hallcond(instance,j))
+ ! ! Yiqun Yu 2017/02: only include the conductivity below 200 km...
+ if (j .gt. 1 .and. z(j) .le. 200. .and. z(j) .ge. 75.) then
+ ! calculate height-integrated conductance
+ pedconductance(instance) = pedconductance(instance) + pedcond(instance,j)*(z(j)-z(j-1))*1.0e3 !S/m*(km*1.0e3)
+ hallconductance(instance) = hallconductance(instance) + hallcond(instance,j)*(z(j)-z(j-1))*1.0e3 !S/m*(km*1.0e3)
+ end if
+ ! write(*,*)"z(j), PedCond(instance,j):",z(j),z(j-1), PedConductance(instance)
+
+ end do
+ end if
+
+ ionrate(instance, :) = tir(1:jmax)
+ eDensity(instance,:) = ze(1:jmax)
+ eDensity_new(instance,:) = ecalc(1:jmax)
+
+!!
+!! Output section:
+!!
+! write(6,"(1x,i7,9f8.1)") idate,ut,glat,glong,f107a,f107,f107p,ap,ef,ec
+! write(6,"(' Z Tn O N2 NO Ne(in) Ne(out) Ionrate O+ O2+ NO+ N(2D) Pederson Hall')")
+! write(6,"(1x,0p,f5.1,f6.0,1p,12e10.2)") (z(j),ztn(j),zo(j),zn2(j),zno(j),ze(j), &
+! ecalc(j),tir(j),zxden(3,j),zxden(6,j),zxden(7,j),zxden(10,j),pedcond(j),hallcond(j),j=1,jmax)
+! write(6,"(' Z 3371 4278 5200 5577 6300 7320 10400 3644 7774 8446 3726 LBH 1356 1493 1304')")
+! write(6,"(1x,f5.1,15f8.2)")(z(j),(zeta(ii,j),ii=1,15),j=1,jmax)
+
+
+ enddo
+
+ ! output the conductivity for all the times
+ unittmp_ = 1
+ if (UseSpec .and. .not.UseDmsp)then
+ open(unittmp_, file='glow_height_cond_ram_fullSpec.dat',status='unknown')
+ elseif (.not. UseSpec .and. UseDmsp)then
+ open(unittmp_, file='glow_height_cond_dmsp_max.dat',status='unknown')
+ elseif (UseSpec .and. UseDmsp)then
+ open(unittmp_, file='glow_height_cond_dmsp_fullSpec.dat',status='unknown')
+ elseif (.not. UseSpec .and. .not. UseDMSP .and. itail == 1)then
+ open(unittmp_, file='glow_height_cond_max_lowtail.dat',status='unknown')
+ else
+ open(unittmp_, file='glow_height_cond_max.dat',status='unknown')
+ end if
+
+! do j=1, jmax
+! if (z(j) .gt. 200.)exit
+! end do
+
+ write(unittmp_,*)'nHeight: ', jmax!j-1
+ do i=1, nTimes_traj
+ if(UseSpec)then
+ write(unittmp_, *) &
+ iyear_traj(i), imonth_traj(i),iday_traj(i),ihour_traj(i),&
+ iminute_traj(i),isecond_traj(i), glats(i), glons(i), mlats(i), mlons(i),mlts(i), &
+ sigmap_r(i), sigmah_r(i), pedconductance(i), hallconductance(i), ec_all(i), ef_all(i)
+ else
+ write(unittmp_, *) pedconductance(i), hallconductance(i), ec_all(i), ef_all(i)
+ end if
+
+ write(unittmp_,*)'Z Ionrate Ne(in) Ne(out) Pedersen Hall'
+ do j=1,jmax
+! if(z(j) .le. 200)&
+ write(unittmp_, '(f6.2, 8e12.3)')z(j), ionrate(i,j), eDensity(i,j), eDensity_new(i,j), &
+ zxden(3,j),zxden(6,j),zxden(7,j), pedcond(i,j), hallcond(i,j)
+ end do
+ end do
+ close(unittmp_)
+
+if(UseSpec)then
+ deallocate(ec_diff,ef_diff,glats,glons,mlats,mlons,mlts)
+else
+ deallocate(ec_all, ef_all)
+end if
+if(UseSpec)&
+ deallocate(iyear_traj,imonth_traj,iday_traj,ihour_traj,iminute_traj,isecond_traj)
+
+deallocate(z,zun,zvn,outf, pedcond, hallcond,Pedconductance,Hallconductance)
+
+end program glowbasic
diff --git a/srcGlow/glowdriver.f90 b/srcGlow/glowdriver.f90
new file mode 100644
index 0000000..78b3e93
--- /dev/null
+++ b/srcGlow/glowdriver.f90
@@ -0,0 +1,438 @@
+program glowdriver
+
+! This software is part of the GLOW model. Use is governed by the Open Source
+! Academic Research License Agreement contained in the file glowlicense.txt.
+! For more information see the file glow.txt.
+
+! Version 0.981, 6/2017
+
+! Stan Solomon and Ben Foster, 1/2015
+! Stan Solomon, 12/2015, 1/2016
+! Stan Solomon, 3/2016, MPI parallel version
+
+! Main multi-processor driver for the GLOW model.
+! Uses TIE-GCM history files or MSIS/IRI for input.
+! Requires MPI and netCDF libraries
+
+! For definitions of use-associated variables, see subroutine GLOW and module CGLOW.
+! For definitions of TGCM input variables see module READTGCM
+! For definitions of output arrays see module OUTPUT
+
+! Other definitions:
+! f107p Solar 10.7 cm flux for previous day
+! ap Ap index of geomagnetic activity
+! z altitude array, km
+
+! Array dimensions:
+! jmax number of altitude levels
+! nbins number of energetic electron energy bins
+! lmax number of wavelength intervals for solar flux
+! nmaj number of major species
+! nst number of states produced by photoionization/dissociation
+! nei number of states produced by electron impact
+! nex number of ionized/excited species
+! nw number of airglow emission wavelengths
+! nc number of component production terms for each emission
+
+ use mpi
+
+ use cglow,only: cglow_init ! subroutine to allocate use-associated variables
+ use cglow,only: jmax,nbins,lmax,nmaj,nei,nex,nw,nc,nst
+ use cglow,only: idate,ut,glat,glong,f107a,f107,f107p,ap,ef,ec
+ use cglow,only: iscale,jlocal,kchem,xuvfac
+ use cglow,only: sza,dip,efrac,ierr
+ use cglow,only: zz,zo,zn2,zo2,zns,znd,zno,ztn,ze,zti,zte
+ use cglow,only: ener,del,phitop,wave1,wave2,sflux,pespec,sespec,uflx,dflx,sion
+ use cglow,only: photoi,photod,phono,aglw,ecalc,zxden,zeta,zceta,zlbh
+ use cglow,only: data_dir
+
+ use readtgcm,only: read_tgcm ! subroutine to read tgcm history file
+ use readtgcm,only: read_tgcm_coords ! subroutine to read tgcm history coordinates
+ use readtgcm,only: find_mtimes ! subroutine to find model times on history file
+ use readtgcm,only: nlon_tgcm=>nlon, glon_tgcm=>glon
+ use readtgcm,only: nlat_tgcm=>nlat, glat_tgcm=>glat
+ use readtgcm,only: nlev_tgcm=>nlev
+ use readtgcm,only: iyear_tgcm=>iyear,iday_tgcm=>iday,ut_tgcm=>ut
+ use readtgcm,only: f107_tgcm=>f107d,f107a_tgcm=>f107a,hpower
+ use readtgcm,only: alfacusp=>alfac,ecusp=>ec,alfadrizzle=>alfad,edrizzle=>ed
+ use readtgcm,only: eflux,nflux,alfa,drizzle,cusp
+ use readtgcm,only: zg,tn,un,vn,o2,o1,n2,n4s,n2d,no,ti,te,ne
+ use readtgcm,only: mxtimes
+
+ use output,only: output_init ! subroutine to allocate output arrays
+ use output,only: create_ncfile ! subroutine to create netcdf output file
+ use output,only: write_ncfile ! subroutine to write data to netcdf output file
+ use output,only: nlon,nlat,nlev ! grid dimensions (set here in glow_drv)
+ use output,only: lon,lat,lev ! grid coordinates (set here in glow_drv)
+ use output,only: writelbh,writered ! switches
+ use output,only: zzz,ao,ao2,an2,ano,an4s,an2d,atn,ati,ate,ane,aun,avn, &
+ nec,ped,hall,xden,eta,lbh,redline ! output arrays
+
+ implicit none
+
+ character(len=1024) :: &
+ tgcm_ncfile, & ! path to tgcm history file (tiegcm or timegcm)
+ glow_ncfile, & ! name for of netCDF glow output files
+ glow_ncfileit, & ! path to individual netCDF glow output file (integer appended)
+ iri90_dir ! directory containing iri data files
+ character(len=7) :: ifile
+
+ real,allocatable :: z(:) ! glow height coordinate in km (jmax)
+ real,allocatable :: zun(:),zvn(:) ! winds on glow grid
+ real,allocatable :: pedcond(:), hallcond(:) ! Pederson and Hall conductivities in S/m (mho)
+ real,allocatable :: outf(:,:) ! iri output (11,jmax)
+ real,allocatable :: recbuf(:,:) ! receive buffer for MPI gather
+ real :: utstart,utstep,utstop
+ real :: rz12,stl,fmono,emono,kp
+ real :: d(8), t(2), sw(25), oarr(30)
+ integer nproc,itask,mpierr,lat0,lat1,size2d,size3d,sizeb
+ integer :: l,j,jj,ijf,jmag,iday,mmdd,i,ii,n,k,ix,itail,m
+ integer :: nlat_msis, nlon_msis ! number of lats and lons in grid for MSIS/IRI runs
+ integer :: start_mtime(3) ! model start time (day,hour,minute)
+ integer :: stop_mtime(3) ! model stop time (day,hour,minute)
+ integer :: indate,itime,ntimes,mtimes(3,mxtimes),itimes(mxtimes)
+ logical :: tgcm, first, jf(12)
+ data sw/25*1./, first/.true./
+
+ namelist /glow_input/ &
+ indate,utstart,utstep,utstop,nlat_msis,nlon_msis,f107a,f107,f107p,ap, &
+ iscale,jlocal,kchem,xuvfac,ef,ec,itail,fmono,emono, &
+ tgcm_ncfile,iri90_dir,jmax,glow_ncfile, &
+ start_mtime,stop_mtime,data_dir,writelbh,writered
+
+! Execute:
+
+!
+! Set up MPI:
+!
+ call mpi_init(mpierr)
+ call mpi_comm_rank(MPI_COMM_WORLD,itask,mpierr)
+ call mpi_comm_size(MPI_COMM_WORLD,nproc,mpierr)
+!
+! Initialize tgcm_ncfile and start/stop times:
+! If start_mtime and/or stop_mtime are not read from namelist, model days of -999
+! will flag find_mtimes to find the first and/or last histories on the file.
+!
+ tgcm_ncfile = ' '
+ start_mtime = (/-999,0,0/)
+ stop_mtime = (/-999,0,0/)
+!
+! Root task only: Read namelist inputs from input file.
+! Read times, coordinates, 1D vars, from tgcm history file (tiegcm or timegcm), if provided.
+! If tgcm history file is not provided, will use namelist inputs for MSIS/IRI/NOEM:
+!
+ if (itask == 0) then
+ read (5,nml=glow_input)
+ if (len_trim(tgcm_ncfile) > 0) then
+ tgcm = .true.
+ call read_tgcm_coords(tgcm_ncfile)
+ ntimes = find_mtimes(tgcm_ncfile,start_mtime,stop_mtime,mtimes,itimes)
+ else
+ tgcm = .false.
+ ntimes = ifix((utstop-utstart)/utstep) + 1
+ write(6,"('glow_drv: tgcm_ncfile not provided, will use MSIS/IRI')")
+ endif
+ endif
+!
+! Broadcast namelist inputs, tgcm coordinates, times, etc., to all processors:
+!
+ call mpi_bcast(tgcm,1,MPI_LOGICAL,0,MPI_COMM_WORLD,mpierr)
+ call mpi_bcast(data_dir,1024,MPI_CHARACTER,0,MPI_COMM_WORLD,mpierr)
+ call mpi_bcast(iscale,1,MPI_INTEGER,0,MPI_COMM_WORLD,mpierr)
+ call mpi_bcast(jlocal,1,MPI_INTEGER,0,MPI_COMM_WORLD,mpierr)
+ call mpi_bcast(kchem,1,MPI_INTEGER,0,MPI_COMM_WORLD,mpierr)
+ call mpi_bcast(xuvfac,1,MPI_INTEGER,0,MPI_COMM_WORLD,mpierr)
+ call mpi_bcast(itail,1,MPI_INTEGER,0,MPI_COMM_WORLD,mpierr)
+ call mpi_bcast(ntimes,1,MPI_INTEGER,0,MPI_COMM_WORLD,mpierr)
+ if (tgcm) then
+ call mpi_bcast(itimes,mxtimes,MPI_INTEGER,0,MPI_COMM_WORLD,mpierr)
+ call mpi_bcast(nlon_tgcm,1,MPI_INTEGER,0,MPI_COMM_WORLD,mpierr)
+ call mpi_bcast(nlat_tgcm,1,MPI_INTEGER,0,MPI_COMM_WORLD,mpierr)
+ if (itask /= 0) then
+ allocate(glon_tgcm(nlon_tgcm))
+ allocate(glat_tgcm(nlat_tgcm))
+ allocate(eflux(nlon_tgcm,nlat_tgcm))
+ allocate(alfa(nlon_tgcm,nlat_tgcm))
+ endif
+ call mpi_bcast(glon_tgcm,nlon_tgcm,MPI_REAL,0,MPI_COMM_WORLD,mpierr)
+ call mpi_bcast(glat_tgcm,nlat_tgcm,MPI_REAL,0,MPI_COMM_WORLD,mpierr)
+ else
+ call mpi_bcast(nlon_msis,1,MPI_INTEGER,0,MPI_COMM_WORLD,mpierr)
+ call mpi_bcast(nlat_msis,1,MPI_INTEGER,0,MPI_COMM_WORLD,mpierr)
+ call mpi_bcast(ef,1,MPI_REAL,0,MPI_COMM_WORLD,mpierr)
+ call mpi_bcast(ec,1,MPI_REAL,0,MPI_COMM_WORLD,mpierr)
+ call mpi_bcast(fmono,1,MPI_REAL,0,MPI_COMM_WORLD,mpierr)
+ call mpi_bcast(emono,1,MPI_REAL,0,MPI_COMM_WORLD,mpierr)
+ endif
+!
+! Set grid dimensions:
+!
+ if (tgcm) then
+ jmax=68
+ nlev = jmax
+ nlat = nlat_tgcm
+ nlon = nlon_tgcm
+ else
+ jmax = 102
+ nlev = jmax
+ nlat = nlat_msis
+ nlon = nlon_msis
+ endif
+!
+! Allocate arrays in other modules (formerly in common blocks):
+!
+ call cglow_init
+ call output_init
+!
+! Set up grid:
+!
+ if (tgcm) then
+ lon(:) = glon_tgcm(:)
+ lat(:) = glat_tgcm(:)
+ do k=1,jmax
+ lev(k)=float(k)/4.-10.25
+ enddo
+ else
+ do i=1,nlon
+ lon(i) = float(i-1)/float(nlon_msis)*360. - 180.
+ enddo
+ do j=1,nlat
+ lat(j) = float(j-1)/float(nlat_msis)*180. - 90. + 90./float(nlat_msis)
+ enddo
+ lev(:)=0.
+ endif
+!
+! Assign latitude bands to processors:
+!
+ if (itask == 0 .and. (nlat/nproc)*nproc /= nlat) then
+ write(6,"('glow_drv: number of latitudes must be an integer multiple of number of processors')")
+ write(6,"('NLAT =',i3,' NPROC =',i3)") nlat,nproc
+ stop
+ endif
+ size2d=nlon*nlat
+ size3d=nlon*nlat*nlev
+ sizeb=nlon*nlat/nproc
+ lat0 = 1 + itask * nlat/nproc
+ lat1 = (1+itask) * nlat/nproc
+!
+! Allocate local arrays:
+!
+ allocate(z(jmax))
+ allocate(zun(jmax))
+ allocate(zvn(jmax))
+ allocate(pedcond(jmax))
+ allocate(hallcond(jmax))
+ allocate(outf(11,jmax))
+ allocate(recbuf(nlon,nlat))
+!
+! Set electron energy grid:
+!
+ call egrid (ener, del, nbins)
+!
+! Time loop:
+!
+ do itime=1,ntimes
+!
+! Get input fields if this is a tgcm run, otherwise use namelist inputs to MSIS/IRI/NOEM.
+! Only do this section if this is the root task:
+!
+ if (itask == 0) then
+ if (tgcm) then
+ call read_tgcm(tgcm_ncfile,itimes(itime))
+ idate=iyear_tgcm*1000+iday_tgcm
+ ut =ut_tgcm*3600.
+ f107 =f107_tgcm(itime)
+ f107p=f107_tgcm(itime)
+ f107a=f107a_tgcm(itime)
+ kp=alog((hpower(itime)+4.86)/16.82)/.32
+ ap=2.2*exp(.6*kp)
+ else
+ idate=indate
+ ut =utstart+(itime-1)*utstep
+ endif
+ write(6,"('glow_drv: idate=',i7,' ut=',f7.1)") idate,ut
+ write(6,"('glow_drv: F107=',f5.1,' F107a=',f5.1,' F107p=',f5.1,' Ap=',f5.1)")f107,f107a,f107p,ap
+!
+! Loop over latitude and longitude to interpolate input fields:
+!
+ do l=1,nlat
+ glat = lat(l)
+ do i=1,nlon
+ glong = lon(i)
+!
+! If this is a tgcm run, use altitude grid, fields, and auroral inputs from tgcm history.
+! Otherwise, use default altitude grid, MSIS/NOEM/IRI fields, and namelist auroral inputs:
+!
+ if (tgcm) then
+ call tzgrid(i,l,jmax,z,zo,zo2,zn2,zns,znd,zno,ztn,zun,zvn,ze,zti,zte)
+ else
+ stl = ut/3600. + glong/15.
+ if (stl < 0.) stl = stl + 24.
+ if (stl >= 24.) stl = stl - 24.
+ call mzgrid (jmax,nex,idate,ut,glat,glong,stl,f107a,f107,f107p,ap,iri90_dir, &
+ z,zo,zo2,zn2,zns,znd,zno,ztn,zun,zvn,ze,zti,zte,zxden)
+ endif
+!
+! Fill global arrays:
+!
+ zzz(i,l,:) = z(:) * 1.e5 !km to cm at all altitude levels
+ ao(i,l,:) = zo(:)
+ ao2(i,l,:) = zo2(:)
+ an2(i,l,:) = zn2(:)
+ ano(i,l,:) = zno(:)
+ an4s(i,l,:) = zns(:)
+ an2d(i,l,:) = znd(:)
+ atn(i,l,:) = ztn(:)
+ ati(i,l,:) = zti(:)
+ ate(i,l,:) = zte(:)
+ aun(i,l,:) = zun(:)
+ avn(i,l,:) = zvn(:)
+ ane(i,l,:) = ze(:)
+
+ enddo ! longitude loop
+ enddo ! latitude loop
+ endif ! bottom of root-task-only conditional for input/interpolation section
+!
+! Broadcast idate, ut, f107, f107a, 3D fields, (and 2D auroral fields), to all processors:
+!
+ call mpi_bcast(idate,1,MPI_INTEGER,0,MPI_COMM_WORLD,mpierr)
+ call mpi_bcast(ut,1,MPI_REAL,0,MPI_COMM_WORLD,mpierr)
+ call mpi_bcast(f107,1,MPI_REAL,0,MPI_COMM_WORLD,mpierr)
+ call mpi_bcast(f107a,1,MPI_REAL,0,MPI_COMM_WORLD,mpierr)
+ call mpi_bcast(zzz,size3d,MPI_REAL,0,MPI_COMM_WORLD,mpierr)
+ call mpi_bcast(ao,size3d,MPI_REAL,0,MPI_COMM_WORLD,mpierr)
+ call mpi_bcast(ao2,size3d,MPI_REAL,0,MPI_COMM_WORLD,mpierr)
+ call mpi_bcast(an2,size3d,MPI_REAL,0,MPI_COMM_WORLD,mpierr)
+ call mpi_bcast(ano,size3d,MPI_REAL,0,MPI_COMM_WORLD,mpierr)
+ call mpi_bcast(an4s,size3d,MPI_REAL,0,MPI_COMM_WORLD,mpierr)
+ call mpi_bcast(an2d,size3d,MPI_REAL,0,MPI_COMM_WORLD,mpierr)
+ call mpi_bcast(atn,size3d,MPI_REAL,0,MPI_COMM_WORLD,mpierr)
+ call mpi_bcast(ati,size3d,MPI_REAL,0,MPI_COMM_WORLD,mpierr)
+ call mpi_bcast(ate,size3d,MPI_REAL,0,MPI_COMM_WORLD,mpierr)
+ call mpi_bcast(aun,size3d,MPI_REAL,0,MPI_COMM_WORLD,mpierr)
+ call mpi_bcast(avn,size3d,MPI_REAL,0,MPI_COMM_WORLD,mpierr)
+ call mpi_bcast(ane,size3d,MPI_REAL,0,MPI_COMM_WORLD,mpierr)
+ if (tgcm) then
+ call mpi_bcast(eflux,size2d,MPI_REAL,0,MPI_COMM_WORLD,mpierr)
+ call mpi_bcast(alfa,size2d,MPI_REAL,0,MPI_COMM_WORLD,mpierr)
+ endif
+!
+! Loop over all subdomain latitudes and longitudes for calls to GLOW:
+!
+ do l=lat0,lat1
+ glat = lat(l)
+ do i=1,nlon
+ glong = lon(i)
+ phitop(:) = 0.
+!
+! Get auroral inputs from TGCM history or from namelist inputs:
+!
+ if (tgcm) then
+ ef=eflux(i,l)
+ ec=alfa(i,l)*1000. ! keV to eV
+ if (ef>.001 .and. ec>1.) call maxt(ef,ec,ener,del,nbins,itail,fmono,emono,phitop)
+ else
+ if (ef>.001 .and. ec>1.) call maxt (ef,ec,ener,del,nbins,itail,fmono,emono,phitop)
+ endif
+!
+! Transfer global fields back to altitude arrays at specific lat/lon:
+!
+ zz(:) = zzz(i,l,:)
+ zo(:) = ao(i,l,:)
+ zo2(:) = ao2(i,l,:)
+ zn2(:) = an2(i,l,:)
+ zno(:) = ano(i,l,:)
+ zns(:) = an4s(i,l,:)
+ znd(:) = an2d(i,l,:)
+ ztn(:) = atn(i,l,:)
+ zti(:) = ati(i,l,:)
+ zte(:) = ate(i,l,:)
+ zun(:) = aun(i,l,:)
+ zvn(:) = avn(i,l,:)
+ ze(:) = ane(i,l,:)
+!
+! Call GLOW to calculate ionized and excited species, and airglow emission rates:
+!
+ call glow
+!
+! Write error code and energy conservation to standard output if it is out of range:
+!
+ if (ierr > 0) write(6,"('glow_drv: IERR = ',i1)") ierr
+ if (abs(efrac) > 0.2) &
+ write(6,"('glow_drv: EFRAC =',f5.2,' SZA =',f5.2,' DIP=',f5.2)") efrac,sza,dip
+!
+! Call CONDUCT to calculate Pederson and Hall conductivities:
+!
+ do j=1,jmax
+ call conduct (glat, glong, z(j), zo(j), zo2(j), zn2(j), &
+ zxden(3,j), zxden(6,j), zxden(7,j), ztn(j), zti(j), zte(j), &
+ pedcond(j), hallcond(j))
+ enddo
+!
+! Collect arrays for output:
+!
+ do j=1,jmax
+ nec(i,l,j) = ecalc(j)
+ ped(i,l,j) = pedcond(j)
+ hall(i,l,j) = hallcond(j)
+ do ix=1,nex
+ xden(i,l,j,ix) = zxden(ix,j)
+ enddo
+ do ix=1,nw
+ eta(i,l,j,ix) = zeta(ix,j)
+ enddo
+ do ix=1,nc
+ lbh(i,l,j,ix) = zlbh(ix,j)
+ redline(i,l,j,ix)=zceta(ix,5,j)
+ enddo
+ enddo
+ enddo ! longitude loop
+ enddo ! latitude loop
+!
+! Gather fields to root task for output:
+!
+ do j=1,jmax
+ call mpi_gather &
+ (nec(:,lat0:lat1,j),sizeb,MPI_REAL,recbuf,sizeb,MPI_REAL,0,MPI_COMM_WORLD,mpierr)
+ if (itask == 0) nec(:,:,j)=recbuf(:,:)
+ call mpi_gather &
+ (ped(:,lat0:lat1,j),sizeb,MPI_REAL,recbuf,sizeb,MPI_REAL,0,MPI_COMM_WORLD,mpierr)
+ if (itask == 0) ped(:,:,j)=recbuf(:,:)
+ call mpi_gather &
+ (hall(:,lat0:lat1,j),sizeb,MPI_REAL,recbuf,sizeb,MPI_REAL,0,MPI_COMM_WORLD,mpierr)
+ if (itask == 0) hall(:,:,j)=recbuf(:,:)
+ do ix=1,nex
+ call mpi_gather &
+ (xden(:,lat0:lat1,j,ix),sizeb,MPI_REAL,recbuf,sizeb,MPI_REAL,0,MPI_COMM_WORLD,mpierr)
+ if (itask == 0) xden(:,:,j,ix) = recbuf(:,:)
+ enddo
+ do ix=1,nw
+ call mpi_gather &
+ (eta(:,lat0:lat1,j,ix),sizeb,MPI_REAL,recbuf,sizeb,MPI_REAL,0,MPI_COMM_WORLD,mpierr)
+ if (itask == 0) eta(:,:,j,ix) = recbuf(:,:)
+ enddo
+ do ix=1,nc
+ call mpi_gather &
+ (lbh(:,lat0:lat1,j,ix),sizeb,MPI_REAL,recbuf,sizeb,MPI_REAL,0,MPI_COMM_WORLD,mpierr)
+ if (itask == 0) lbh(:,:,j,ix) = recbuf(:,:)
+ call mpi_gather &
+ (redline(:,lat0:lat1,j,ix),sizeb,MPI_REAL,recbuf,sizeb,MPI_REAL,0,MPI_COMM_WORLD,mpierr)
+ if (itask == 0) redline(:,:,j,ix) = recbuf(:,:)
+ enddo
+ enddo
+!
+! Output section:
+! Create and define a new netCDF output file for each time (root task only):
+!
+ if (itask == 0) then
+ write (ifile,"('.',i3.3,'.nc')"),itime
+ glow_ncfileit = trim(glow_ncfile) // ifile
+ call create_ncfile(glow_ncfileit,tgcm_ncfile)
+ call write_ncfile(glow_ncfileit)
+ endif
+
+ enddo ! bottom of time loop
+
+ call mpi_finalize(mpierr)
+
+end program glowdriver
diff --git a/srcGlow/iri90.f b/srcGlow/iri90.f
new file mode 100644
index 0000000..a8af178
--- /dev/null
+++ b/srcGlow/iri90.f
@@ -0,0 +1,2994 @@
+C Subroutine IRI90
+C
+C Special-purpose version of IRI90 for use with the GLOW model.
+C This is not the original IRI90.
+C
+C Adapted 7/93 from 10/91 version of IRIS12 by Stan Solomon.
+C Replaces 3/92 adaptation of 12/90 version of IRIS12.
+C Replaced height range and interval with array of heights ZKM
+C Also supply number of heights NZ; unlimited number of heights allowed.
+C Added DIRECT argument to specify location of CCIR and URSI files.
+C Uses ASCII versions of CCIR and URSI files.
+C Subroutine DFP splices directory and filename together.
+C Accepts longitudes -180 to +180; maps internal longitudes 0-360.
+C Added SAVE statements for volatile memory machines.
+C Changed 'file not found' error to output message on unit 6 and stop.
+C Changed JF(12)=.true. to write messages on unit 12 instead of 6.
+C Changed call to IONCOM to use floating point variable ZMONTH.
+C Note: JF(5)=.false. uses recommended (URSI) coefficients.
+C Note: JF(4)=.false. uses recommended Gulyeava B0 coefficients.
+C All other JF's usually should be .true.
+C
+C The following is the original comment from IRIS12:
+C
+C IRIS12.FOR ---------------------------------------- OCTOBER 1991
+C
+C*****************************************************************
+C CHANGES FROM IRIS11.FOR TO IRIS12.FOR:
+C - CIRA-1986 INSTEAD OF CIRA-1972 FOR NEUTRAL TEMPERATURE
+C - 10/30/91 VNER FOR NIGHTTIME LAY-VERSION: ABS(..)
+C - 10/30/91 XNE(..) IN CASE OF LAY-VERSION
+C - 10/30/91 CHANGE SSIN=F/T TO IIQU=0,1,2
+C - 10/30/91 Te > Ti > Tn ENFORCED IN FINAL PROFILE
+C - 10/30/91 SUB ALL NAMES WITH 6 OR MORE CHARACTERS
+C - 10/31/91 CORRECTED HF1 IN HST SEARCH: NE(HF1)>NME
+C------------- inlcuded on diskette ------------------------------
+C - 11/14/91 C1=0 IF NO F1-REGION
+C - 11/14/91 CORRECTED HHMIN AND HZ FOR LIN. APP.
+C - 1/28/92 RZ12=0 included
+C - 1/29/92 NEQV instead of NE between URSIF2 and URSIFO
+C - 5/ 1/92 CCIR and URSI input as in IRID12
+C
+C*****************************************************************
+C********* INTERNATIONAL REFERENCE IONOSPHERE (IRI). *************
+C*****************************************************************
+C**************** OCTOBER 1991 ****************************
+C**************** SUBROUTINE ****************************
+C*****************************************************************
+C
+C
+C-----------------------------------------------------------------
+C INTERNATIONAL REFERENCE IONOSPHERE 1991
+C
+C INPUT: JMAG=0/1 GEODETIC/GEOMAGNETIC LATITUDE AND LONGITUDE
+C ALATI,ALONG LATITUDE NORTH AND LONGITUDE EAST IN DEGREES
+C RZ12 (-COV) 12-MONTHS-RUNNING MEAN OF SOLAR SUNSPOT NUMBER
+C (OR EQUIVALENT F10.7 SOLAR RADIO FLUX AS
+C NEGATIVE NUMBER)
+C MMDD (-DDD) DATE (OR DAY OF YEAR AS A NEGATIVE NUMBER)
+C DHOUR LOCAL TIME (OR UNIVERSAL TIME + 25) IN DECIMAL
+C HOURS
+C HEIBEG, BEGIN, END, AND STEPWIDTH OF HEIGHT RANGE
+C HEIEND,HEISTP IN KM (MAXIMUM NUMBER OF STEPS IS 50 !!)
+C JF(1:12) TRUE/FALSE FLAGS FOR SEVERAL OPTIONS
+C JF(1)=.TRUE.[.FALSE.] ELECTRON DENSITY IS [NOT] CALCULATED
+C JF(2)=T[F] TEMPERATURES ARE [NOT] CALCULATED
+C JF(3)=T[F] ION COMPOSITION IS [NOT] CALCULATED
+C JF(4)=T[F] B0 FROM TABLE [FROM GULYEAVA 1987]
+C JF(5)=T[F] F2 PEAK FROM CCIR [FROM URSI]
+C JF(6)=T[F] ION COMP. STANDARD [DANILOV-YAICHNIKOV-1985]
+C JF(7)=T[F] STAND. IRI TOPSIDE [IRI-79]
+C JF(8)=T[F] NMF2 PEAK MODEL [INPUT VALUES]
+C JF(9)=T[F] HMF2 PEAK MODEL [INPUT VALUES]
+C JF(10)=T[F] TE MODEL [TE-NE MODEL WITH NE INPUT]
+C JF(11)=T[F] NE STANDARD [LAY-FUNCTIONS VERSION]
+C JF(12)=T[F] MESSAGE ARE WRITTEN TO UNIT=12 [=6]
+C
+C JF(1:11)=.TRUE. GENERATES THE STANDARD IRI-90 PARAMETERS.
+C IF YOU SET JF(8)=.FALSE., THAN YOU HAVE TO PROVIDE THE F2 PEAK
+C NMF2/M-3 OR FOF2/MHZ IN OARR(1). SIMILARLY, IF YOU SET JF(9)=
+C .FALSE., THAN YOU HAVE TO PROVIDE THE F2 PEAK HEIGHT HMF2/KM IN
+C OARR(2). IF YOU SET JF(10)=.FALSE., THAN YOU HAVE TO PROVIDE THE
+C ELECTRON DENSITY IN M-3 AT 300KM AND/OR 400KM AND/OR 600KM IN
+C OARR(3), OARR(4), AND OARR(5). IF YOU WANT TO USE THIS OPTION AT
+C ONLY ONE OF THE THREE ALTITUDES, THAN SET THE DENSITIES AT THE
+C OTHER TWO TO ZERO.
+C
+C OUTPUT: OUTF(1:10,1:50) IRI PROFILES
+C OUTF(1,*) ELECTRON DENSITY/M-3
+C OUTF(2,*) NEUTRAL TEMPERATURE/K
+C OUTF(3,*) ION TEMPERATURE/K
+C OUTF(4,*) ELECTRON TEMPERATURE/K
+C OUTF(5,*) PERCENTAGE OF O+ IONS IN %
+C OUTF(6,*) PERCENTAGE OF H+ IONS IN %
+C OUTF(7,*) PERCENTAGE OF HE+ IONS IN %
+C OUTF(8,*) PERCENTAGE OF O2+ IONS IN %
+C OUTF(9,*) PERCENTAGE OF NO+ IONS IN %
+C AND, IF JF(6)=.FALSE.:
+C OUTF(10,*) PERCENTAGE OF CLUSTER IONS IN %
+C OUTF(11,*) PERCENTAGE OF N+ IONS IN %
+C
+C OARR(1:30) ADDITIONAL OUTPUT PARAMETERS
+C OARR(1) = NMF2/M-3 OARR(2) = HMF2/KM
+C OARR(3) = NMF1/M-3 OARR(4) = HMF1/KM
+C OARR(5) = NME/M-3 OARR(6) = HME/KM
+C OARR(7) = NMD/M-3 OARR(8) = HMD/KM
+C OARR(9) = HHALF/KM OARR(10) = B0/KM
+C OARR(11) =VALLEY-BASE/M-3 OARR(12) = VALLEY-TOP/KM
+C OARR(13) = TE-PEAK/K OARR(14) = TE-PEAK HEIGHT/KM
+C OARR(15) = TE-MOD(300KM) OARR(16) = TE-MOD(400KM)/K
+C OARR(17) = TE-MOD(600KM) OARR(18) = TE-MOD(1400KM)/K
+C OARR(19) = TE-MOD(3000KM) OARR(20) = TE(120KM)=TN=TI/K
+C OARR(21) = TI-MOD(430KM) OARR(22) = X/KM, WHERE TE=TI
+C OARR(23) = SOLAR ZENITH ANGLE/DEG
+C OARR(24) = SUN DECLINATION/DEG
+C OARR(25) = DIP
+C OARR(26) = DIP LATITUDE
+C OARR(27) = MODIFIED DIP LATITUDE
+C OARR(28:30) FREE
+C-------------------------------------------------------------------
+C*** THIS PROGRAM PRODUCES PROFILES OF ***
+C*** ELECTRON DENSITY ***
+C*** NEUTRAL TEMPERATURE (CIRA 86) ***
+C*** ELECTRON TEMPERATURE ***
+C*** ION TEMPERATURE ***
+C*** RELATIVE PERCENTAGE DENSITIES OF THE IONS ***
+C*** ATOMIC OXYGEN, HYDROGEN, HELIUM, ***
+C*** MOLECULAR OXYGEN AND NITROGEN OXYD (NO+) ***
+C*****************************************************************
+C*** THE ALTITUDE LIMITS ARE: LOWER (DAY/NIGHT) UPPER ***
+C*** ELECTRON DENSITY 60/80 KM 1000 KM ***
+C*** TEMPERATURES 120 KM 3000 KM ***
+C*** ION DENSITIES 100 KM 1000 KM ***
+C*****************************************************************
+C* --------------------ADDRESSES------------------------ *
+C* I PROF. K. RAWER DR. D. BILITZA I *
+C* I HERRENSTR. 43 GSFC/NSSDC CODE 633 I *
+C* I D-7801 MARCH GREENBELT MD 20771 I *
+C* I F.R.G. USA I *
+C* ----------------------------------------------------- *
+C*****************************************************************
+C*****************************************************************
+C*****************************************************************
+C********* ALL ANGLES ARE IN DEGREE **************
+C********* ALL DENSITIES ARE IN M-3 **************
+C********* ALL ALTITUDES ARE IN KM **************
+C********* ALL TEMPERATURES ARE IN KELVIN **************
+C********* ALL TIMES ARE IN DECIMAL HOURS **************
+C*****************************************************************
+C******************** OPTIONS **********************************
+C*****************************************************************
+C* FOR HMF2=0 OR FOF2=0 THE F2 PEAK VALUES ARE CALCULATED WITH *
+C* THE CCIR OR URSI MODELS. THE CCIR COEFFICIENT SET FOR THE *
+C* MONTH "mm" IS EXPECTED IN THE BINARY FILE "CCIRmm.BIN" AND *
+C* THE URSI SET IN "URSImm.BIN". IF YOU USE THE ASCII CODED *
+C* FILES "CCIRmm.ASC", YOU HAVE TO INCORPORATE THE CHANGES *
+C* INDICTED IN PROGRAM SECTION ENTITLED "READ CCIR COEFFICIENT *
+C* SET FOR CHOSEN MONTH." *
+C*****************************************************************
+C*****************************************************************
+C*****************************************************************
+C
+ SUBROUTINE IRI90(JF,JMAG,ALATI,ALONG,RZ12,MMDD,DHOUR,
+ & ZKM,NZ,DIRECT,OUTF,OARR)
+ dimension zkm(nz), outf(11,nz), oarr(30)
+ character*(*) direct
+ character*50 path
+ character*10 filename
+ INTEGER EGNR,AGNR,DAYNR,DDO,DO2,SEASON,SEADAY
+ REAL LATI,LONGI,MO2,MO,MODIP,NMF2,MAGBR
+ REAL NMF1,NME,NMD,NEI,MM,MLAT,MLONG,NOBO2
+ DIMENSION F(3),RIF(4),E(4),XDELS(4),DNDS(4)
+ DIMENSION FF0(988),XM0(441),F2(13,76,2),FM3(9,49,2)
+ DIMENSION AMP(4),HXL(4),SCL(4),B0B1(5)
+ DIMENSION CTN(3),CTNN(3),XSM(4),MM(5),DTI(4)
+ DIMENSION AHH(7),STTE(6),DTE(5),ATE(7),TEA(6),HOA(3),XNAR(3)
+ DIMENSION PG1O(80),PG2O(80),PG3O(80),PF1O(12),PF2O(12),PF3O(12)
+ DIMENSION HO(4),MO(5),DDO(4),HO2(4),MO2(5),DO2(4),DION(7)
+ LOGICAL EXT,SCHALT,NIGHT,TCON(3)
+ LOGICAL F1REG,FOF2IN,HMF2IN,URSIF2,LAYVER,DY,GULB0
+ LOGICAL NODEN,NOTEM,NOION,TENEOP
+ LOGICAL OLD79,TOPSI,BOTTO,BELOWE,JF(12),URSIFO
+ COMMON /BLOCK1/HMF2,NMF2,HMF1 /CONST/UMR
+ & /BLOCK2/B0,B1,C1 /BLOCK3/HZ,T,HST,STR
+ & /BLOCK4/HME,NME,HEF /BLOCK5/NIGHT,E
+ & /BLOCK6/HMD,NMD,HDX /BLOCK7/D1,XKK,FP30,FP3U,FP1,FP2
+ & /BLOCK8/HS,TNHS,XSM,MM,DTI,MXSM
+ & /BLOTN/XSM1,TEXOS,TLBDH,SIGMA /BLOTE/AHH,ATE1,STTE,DTE
+ & /BLO10/BETA,ETA,DELTA,ZETA /ARGEXP/ARGMAX
+ EXTERNAL XE1__,XE2__,XE3__,XE4__,XE5__,XE6__,TEDER__
+ DATA HOA /300.,400.,600./, XNAR /3*0.0/,
+ & XDELS /3*5.,10./, DNDS /.016,.01,2*.016/,
+ & DDO /9,5,5,25/, DO2 /5,5,5,5/,
+ & B0B1 /.755566,.778596,.797332,.812928,.826146/
+ data icalls/0/
+C
+ SAVE EGNR,AGNR,DAYNR,DO2,SEASON,SEADAY,LATI,LONGI,MO2,
+ & MODIP,MAGBR,NMF1,NEI,MLAT,MLONG,NOBO2,
+ & F,RIF,FF0,XM0,F2,FM3,AMP,HXL,SCL,
+ & CTN,CTNN,ATE,TEA,HOA,XNAR,PG1O,
+ & PG2O,PG3O,PF1O,PF2O,PF3O,HO,MO,DDO,HO2,DION,EXT,
+ & SCHALT,SSIN,TCON,F1REG,FOF2IN,HMF2IN,URSIF2,LAYVER,
+ & DY,GULB0,NODEN,NOTEM,NOION,TENEOP,OLD79,TOPSI,BOTTO,BELOWE,
+ & URSIFO,MONTH,MONTHO,RG,RGO
+C
+C PROGAM CONSTANTS
+C
+ icalls=icalls+1
+ HHALF = 0.
+
+! write(6,"('Enter iri90: icalls=',i4,' jf=',12l2,' jmax=',i4,
+! | ' alati=',f8.2,' along=',f8.2)")
+! | icalls,jf,jmax,alati,along
+! write(6,"('rz12=',f8.2,' mmdd=',i4,' dhour=',f8.2,' nz=',i4)")
+! | rz12,mmdd,dhour,nz
+! write(6,"('DIRECT (file path)=',a)") direct
+! write(6,"('zkm=',/,(8f9.2))") zkm
+
+ ARGMAX=88.0
+ UMR=ATAN(1.0)*4./180.
+ ALOG2=ALOG(2.)
+ ALG100=ALOG(100.)
+ ISTART=1
+ heibeg=zkm(1)
+ heiend=zkm(nz)
+C
+C Code inserted to aleviate block data problem for PC version.
+C Thus avoiding DATA statement with parameters from COMMON block.
+C
+ AHH(1)=120.
+ AHH(2)=0.
+ AHH(3)=300.
+ AHH(4)=400.
+ AHH(5)=600.
+ AHH(6)=1400.
+ AHH(7)=3000.
+ DTE(1)=5.
+ DTE(2)=5.
+ DTE(3)=10.
+ DTE(4)=20.
+ DTE(5)=20.
+ DTI(1)=10.
+ DTI(2)=10.
+ DTI(3)=20.
+ DTI(4)=20.
+C
+C FIRST SPECIFY YOUR COMPUTERS CHANNEL NUMBERS ....................
+C AGNR=OUTPUT (OUTPUT IS DISPLAYED OR STORED IN FILE OUTPUT.IRI)...
+C IUCCIR=UNIT NUMBER FOR CCIR COEFFICIENTS ........................
+C
+ MONITO=6
+ IUCCIR=10
+ KONSOL=6
+ IF (JF(12)) KONSOL=12
+
+c
+c selection of density and ion composition options ..................
+c
+
+ NODEN=(.NOT.JF(1))
+ NOTEM=(.NOT.JF(2))
+ NOION=(.NOT.JF(3))
+ DY=(.NOT.JF(6))
+ LAYVER=(.NOT.JF(11))
+ OLD79=(.NOT.JF(7))
+ GULB0=(.NOT.JF(4))
+c
+c f peak density ....................................................
+c
+ FOF2IN=(.NOT.JF(8))
+ IF(FOF2IN) THEN
+ AFOF2=OARR(1)
+ IF(AFOF2.GT.100.) AFOF2=SQRT(AFOF2/1.24E10)
+ ENDIF
+ URSIF2=(.NOT.JF(5))
+c
+c f peak altitude ..................................................
+c
+ HMF2IN=(.NOT.JF(9))
+ IF(HMF2IN) AHMF2=OARR(2)
+c
+C TE-NE MODEL OPTION ..............................................
+C
+ TENEOP=(.NOT.JF(10))
+ IF(TENEOP) THEN
+ DO 8154 JXNAR=1,3
+ XNAR(JXNAR)=OARR(JXNAR+2)
+ TCON(JXNAR)=.FALSE.
+8154 IF(XNAR(JXNAR).GT.0.) TCON(JXNAR)=.TRUE.
+ ENDIF
+
+ if(icalls.gt.1) goto 8201
+ write(konsol,*) '*** IRI parameters are being calculated ***'
+ if(NODEN) goto 2889
+ if(LAYVER) write(konsol,*) 'Ne, E-F: The LAY-Version is ',
+ & 'prelimenary. Erroneous profile features can occur.'
+ if(GULB0) write(konsol,*) 'Ne, B0: Bottomside thickness is ',
+ & 'obtained with Gulyaeva-1987 model.'
+ if(OLD79) write(konsol,*) 'Ne: Using IRI-79. Correction',
+ & ' of equatorial topside is not included.'
+ if(HMF2IN) write(konsol,*) 'Ne, hmF2: Input values are used.'
+ if(FOF2IN) then
+ write(konsol,*) 'Ne, foF2: Input values are used.'
+ goto 2889
+ endif
+ if(URSIF2) then
+ write(konsol,*) 'Ne, foF2: URSI model is used.'
+ else
+ write(konsol,*) 'Ne, foF2: CCIR model is used.'
+ endif
+2889 if((.not.NOION).and.(DY))
+ & write(konsol,*) 'Ion Com.: Using Danilov-Yaichnikov-1985.'
+ if((.not.NOTEM).and.(TENEOP))
+ & write(konsol,*) 'Te: Temperature-density correlation is used'
+8201 continue
+C
+C CALCULATION OF MEAN F10.7CM SOLAR RADIO FLUX (COV)................
+C CALCULATION OF RESTRICTED SOLAR ACTIVITIES (RG,COVG)..............
+C
+ IF(RZ12.GE.0.0) THEN
+ R=RZ12
+ COV=63.75+R*(0.728+R*0.00089)
+ ELSE
+ COV=-RZ12
+ R=33.52*(SQRT(COV+85.12)-12.2)
+ ENDIF
+ RG=R
+ COVG=COV
+ IF(R.GT.150.) RG=150.
+ IF(COV.GT.193.) COVG=193.
+C
+C CALCULATION OF GEOG. OR GEOM. COORDINATES IN DEG....................
+C CALCULATION OF MAGNETIC INCLINATION (DIP), DECLINATION (DEC)........
+C DIP LATITUDE (MAGBR) AND MODIFIED DIP (MODIP). ALL IN DEGREE......
+C
+ IF(JMAG.GT.0) THEN
+ MLAT=ALATI
+ MLONG=ALONG
+ if (mlong .lt. 0.) mlong=mlong+360.
+ ELSE
+ LATI=ALATI
+ LONGI=ALONG
+ if (longi .lt. 0.) longi=longi+360.
+ ENDIF
+ CALL GGM__(JMAG,LONGI,LATI,MLONG,MLAT)
+ ABSLAT=ABS(LATI)
+ CALL FIELDG__(LATI,LONGI,300.0,XMA,YMA,ZMA,BET,DIP,DEC,MODIP)
+ MAGBR=ATAN(0.5*TAN(DIP*UMR))/UMR
+ ABSMLT=ABS(MLAT)
+ ABSMDP=ABS(MODIP)
+ ABSMBR=ABS(MAGBR)
+C
+C CALCULATION OF SEASON (SUMMER=2, WINTER=4)..........................
+C CALCULATION OF DAY OF YEAR AND SUN DECLINATION......................
+C
+ if(MMDD.lt.0) then
+ DAYNR=-MMDD
+ call MODA__(1,MONTH,IDAY,DAYNR)
+ else
+ MONTH=MMDD/100
+ IDAY=MMDD-MONTH*100
+ call MODA__(0,MONTH,IDAY,DAYNR)
+ endif
+ SEASON=INT((DAYNR+45.0)/92.0)
+ IF(SEASON.LT.1) SEASON=4
+ NSESON=SEASON
+ seaday=daynr
+ IF(LATI.GT.0.0) GOTO 5592
+ SEASON=SEASON-2
+ IF(SEASON.LT.1) SEASON=SEASON+4
+ seaday=daynr+183
+ if(seaday.gt.366) seaday=seaday-366
+C
+C CALCULATION OF SOLAR ZENITH ANGLE (XHI/DEG).........................
+C NOON VALUE (XHINON).................................................
+C
+5592 IF(DHOUR.GT.24.1) THEN
+ UT=DHOUR-25.
+ HOUR=UT+LONGI/15.
+ IF(HOUR.GT.24.) HOUR=HOUR-24.
+ ELSE
+ HOUR=DHOUR
+ UT=HOUR-LONGI/15.
+ IF(UT.LT.0.) UT=UT+24.
+ ENDIF
+
+ CALL SOCO__(DAYNR,HOUR,LATI,LONGI,SUNDEC,XHI,SAX,SUX)
+ CALL SOCO__(DAYNR,12.0,LATI,LONGI,SUNDE1,XHINON,SAXNON,SUXNON)
+
+ NIGHT=.FALSE.
+ if(abs(sax).gt.25.0) then
+ if(sax.lt.0.0) NIGHT=.TRUE.
+ goto 1334
+ endif
+ if(SAX.le.SUX) goto 1386
+ if((hour.gt.sux).and.(hour.lt.sax)) night=.true.
+ goto 1334
+1386 IF((HOUR.GT.SUX).OR.(HOUR.LT.SAX)) NIGHT=.TRUE.
+C
+C CALCULATION OF ELECTRON DENSITY PARAMETERS................
+C
+1334 HNEA=65.
+ IF(NIGHT) HNEA=80.
+ HNEE=2000.
+ IF(NODEN) GOTO 4933
+ DELA=4.32
+ IF(ABSMDP.GE.18.) DELA=1.0+EXP(-(ABSMDP-30.0)/10.0)
+ DELL=1+EXP(-(ABSLAT-20.)/10.)
+C!!!!!!! F-REGION PARAMETERS AND E-PEAK !!!!!!!!!!!!!!!!!!!!!!!!!!
+ FOE=FOEEDI__(COV,XHI,XHINON,ABSLAT)
+ NME=1.24E10*FOE*FOE
+ HME=105.0
+ IF((FOF2IN).AND.(HMF2IN)) GOTO 501
+ IF (URSIF2 .NEQV. URSIFO) GOTO 7797
+ IF((MONTH.EQ.MONTHO).AND.(RG.EQ.RGO)) GOTO 4292
+ IF(MONTH.EQ.MONTHO) GOTO 4291
+C
+C READ CCIR COEFFICIENT SET FOR CHOSEN MONTH....................
+C
+7797 WRITE(filename,104) MONTH+10
+104 FORMAT('ccir',I2,'.asc')
+ call dfp(direct,filename,path)
+ OPEN(IUCCIR,FILE=path,STATUS='OLD',ERR=8448)
+ READ(IUCCIR,4689) F2,FM3
+4689 FORMAT(4E15.8)
+ CLOSE(IUCCIR)
+C
+C READ URSI COEFFICIENT SET FOR CHOSEN MONTH....................
+C
+ if (URSIF2) then
+ WRITE(filename,1144) MONTH+10
+1144 FORMAT('ursi',I2,'.asc')
+ call dfp(direct,filename,path)
+ OPEN(IUCCIR,FILE=path,STATUS='OLD',ERR=8448)
+ READ(IUCCIR,4689) F2
+ CLOSE(IUCCIR)
+ endif
+ URSIFO=URSIF2
+ MONTHO=MONTH
+ GOTO 4291
+
+8448 write(monito,8449) path
+8449 format(' IRI90: File ',A50,'not found')
+ stop
+C
+C LINEAR INTERPOLATION IN SOLAR ACTIVITY
+C
+4291 RR2=RG/100.
+ RR1=1.-RR2
+ DO 20 I=1,76
+ DO 20 J=1,13
+ K=J+13*(I-1)
+20 FF0(K)=F2(J,I,1)*RR1+F2(J,I,2)*RR2
+ DO 30 I=1,49
+ DO 30 J=1,9
+ K=J+9*(I-1)
+30 XM0(K)=FM3(J,I,1)*RR1+FM3(J,I,2)*RR2
+ RGO=RG
+
+4292 CALL F2OUT__(MODIP,LATI,LONGI,FF0,XM0,UT,YFOF2,XM3000)
+
+501 IF(FOF2IN) THEN
+ FOF2=AFOF2
+ ELSE
+ FOF2=YFOF2
+ ENDIF
+ NMF2=1.24E10*FOF2*FOF2
+
+ IF(HMF2IN) THEN
+ HMF2=AHMF2
+ ELSE
+ HMF2=HMF2ED__(MAGBR,RG,FOF2/FOE,XM3000)
+ ENDIF
+
+ TOPSI=(HEIEND.GT.HMF2)
+ BOTTO=((HEIEND.GE.HME).AND.(HEIBEG.LE.HMF2))
+ BELOWE=(HEIBEG.LT.HME)
+c
+c topside profile parameters .............................
+c
+ IF(.NOT.TOPSI) GOTO 1501
+ COS2=COS(MLAT*UMR)
+ COS2=COS2*COS2
+ FLU=(COVG-40.0)/30.0
+ IF(OLD79) then
+ ETA1=-0.0070305*COS2
+ else
+ EX=EXP(-MLAT/15.)
+ EX1=EX+1
+ EPIN=4.*EX/(EX1*EX1)
+ ETA1=-0.02*EPIN
+ endif
+ ETA=0.058798+ETA1+FLU*(-0.014065+0.0069724*COS2)+
+ &(0.0024287+0.0042810*COS2-0.00015280*FOF2)*FOF2
+ ZETA=0.078922-0.0046702*COS2+FLU*(-0.019132+0.0076545*COS2)+
+ &(0.0032513+0.0060290*COS2-0.00020872*FOF2)*FOF2
+ BETA=-128.03+20.253*COS2+FLU*(-8.0755-0.65896*COS2)+(0.44041
+ &+0.71458*COS2-0.042966*FOF2)*FOF2
+ Z=EXP(94.45/BETA)
+ Z1=Z+1
+ Z2=Z/(BETA*Z1*Z1)
+ DELTA=(ETA/Z1-ZETA/2.0)/(ETA*Z2+ZETA/400.0)
+c
+c bottomside profile parameters .............................
+C
+1501 HMF1=HMF2
+ HZ=HMF2
+ HEF=HME
+ IF(.not.BOTTO) GOTO 2727
+ B1=3.0
+C!!!!!!! INTERPOLATION FOR B0 OUT OF ARRAY B0F !!!!!!!!!!!!!!!!!!!!!
+ if(GULB0) then
+ call ROGUL__(SEADAY,XHI,SEAX,GRAT)
+ if(NIGHT) GRAT=0.91-HMF2/4000.
+ B0CNEW=HMF2*(1.-GRAT)
+ B0=B0CNEW/B0B1(1)
+ else
+ B0 = B0POL(HOUR,SAX,SUX,SEASON,RG,DELA)
+ endif
+C!!!!!!! F1-REGION PARAMETERS !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+ F1REG=.FALSE.
+ HMF1=0.
+ PNMF1=0.
+ C1=0.
+ IF(NIGHT.OR.(SEASON.EQ.4)) GOTO 150
+ FOF1=FOF1ED__(ABSMBR,R,XHI)
+ IF(FOF1.LT.1.E-3) GOTO 150
+ F1REG=.TRUE.
+ C1=.09+.11/DELA
+ PNMF1=1.24E10*FOF1*FOF1
+150 NMF1=PNMF1
+C!!!!!!! PARAMETER FOR E AND VALLEY-REGION !!!!!!!!!!!!!!!!!!!!!
+ XDEL=XDELS(SEASON)/DELA
+ DNDHBR=DNDS(SEASON)/DELA
+ HDEEP=HPOL__(HOUR,10.5/DELA,28.,SAX,SUX,1.,1.)
+ WIDTH=HPOL__(HOUR,17.8/DELA,45.+22./DELA,SAX,SUX,1.,1.)
+ DEPTH=HPOL__(HOUR,XDEL,81.,SAX,SUX,1.,1.)
+ DLNDH=HPOL__(HOUR,DNDHBR,.06,SAX,SUX,1.,1.)
+ IF(DEPTH.LT.1.0) GOTO 600
+ IF(NIGHT) DEPTH=-DEPTH
+ CALL TAL__(HDEEP,DEPTH,WIDTH,DLNDH,EXT,E)
+ IF(.NOT.EXT) GOTO 667
+ WRITE(KONSOL,650)
+650 FORMAT(1X,'*NE* E-REGION VALLEY CAN NOT BE MODELLED')
+600 WIDTH=.0
+667 HEF=HME+WIDTH
+ VNER = (1. - ABS(DEPTH) / 100.) * NME
+c
+c Parameters below E .............................
+c
+2727 IF(.not.BELOWE) GOTO 2726
+C!!!!!!!D-REGION PARAMETER!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+ NMD=XMDED__(XHI,R,4.0E8)
+ HMD=HPOL__(HOUR,81.0,88.0,SAX,SUX,1.,1.)
+ F(1)=HPOL__(HOUR,0.02+0.03/DELA,0.05,SAX,SUX,1.,1.)
+ F(2)=HPOL__(HOUR,4.6,4.5,SAX,SUX,1.,1.)
+ F(3)=HPOL__(HOUR,-11.5,-4.0,SAX,SUX,1.,1.)
+ FP1=F(1)
+ FP2=-FP1*FP1/2.0
+ FP30=(-F(2)*FP2-FP1+1.0/F(2))/(F(2)*F(2))
+ FP3U=(-F(3)*FP2-FP1-1.0/F(3))/(F(3)*F(3))
+ HDX=HMD+F(2)
+ X=HDX-HMD
+ XDX=NMD*EXP(X*(FP1+X*(FP2+X*FP30)))
+ DXDX=XDX*(FP1+X*(2.0*FP2+X*3.0*FP30))
+ X=HME-HDX
+ XKK=-DXDX*X/(XDX*ALOG(XDX/NME))
+ D1=DXDX/(XDX*XKK*X**(XKK-1.0))
+C
+C SEARCH FOR HMF1 ..................................................
+C
+2726 IF(.not.BOTTO) GOTO 4933
+ if(LAYVER) goto 6153
+924 IF(.not.F1REG) GOTO 380
+ XE2H=XE2__(HEF)
+ CALL REGFA1__(HEF,HMF2,XE2H,NMF2,0.001,NMF1,XE2__,SCHALT,HMF1)
+ IF(.not.SCHALT) GOTO 380
+ WRITE(KONSOL,11)
+11 FORMAT(1X,'*NE* HMF1 IS NOT EVALUATED BY THE FUNCTION XE2')
+ IREGFA=1
+c
+c change B1 and try again ..........................................
+c
+9244 IF(B1.GT.4.5) GOTO (7398,8922) IREGFA
+ B1=B1+0.5
+ WRITE(KONSOL,902) B1-0.5,B1
+902 FORMAT(6X,'CORR.: B1(OLD)=',F4.1,' B1(NEW)=',F4.1)
+ IF(GULB0) then
+ ib1=int(b1*2.-5.)
+ B0=B0CNEW/b0b1(ib1)
+ endif
+ GOTO 924
+c
+c omit F1 feature ....................................................
+c
+7398 WRITE(KONSOL,9269)
+9269 FORMAT(1X,'CORR.: NO F1 REGION, B1=3, C1=0.0')
+ HMF1=0.
+ NMF1=0.
+ C1=0.0
+ B1=3.
+ F1REG=.FALSE.
+
+C
+C SEARCH FOR HST [NE3(HST)=NME] ..........................................
+C
+380 RRRR=0.5
+ IF(F1REG) then
+ hf1=hmf1
+ xf1=nmf1
+ GOTO 3972
+ ENDIF
+ RATHH=0.5
+3973 hf1=hef+(hmf2-hef)*RATHH
+ xf1=xe3__(hf1)
+ IF(XF1.LT.NME) THEN
+ RATHH=RATHH+.1
+ GOTO 3973
+ ENDIF
+3972 h=hf1
+ deh=10.
+ XXMIN=XF1
+ HHMIN=HF1
+3895 h=h-deh
+ if(h.lt.HEF) then
+ h=h+2*deh
+ deh=deh/10.
+ if(deh.lt.1.) goto 3885
+ endif
+ XE3H=XE3__(h)
+ IF(XE3H.LT.XXMIN) then
+ XXMIN=XE3H
+ HHMIN=h
+ endif
+ if(XE3H.gt.NME) goto 3895
+ CALL REGFA1__(h,HF1,XE3H,XF1,0.001,NME,XE3__,SCHALT,HST)
+ STR=HST
+ IF(.not.SCHALT) GOTO 360
+3885 WRITE(KONSOL,100)
+100 FORMAT(1X,'*NE* HST IS NOT EVALUATED BY THE FUNCTION XE3')
+ IREGFA=2
+ IF(XXMIN/NME.LT.1.3) GOTO 9244
+c
+c assume linear interpolation between HZ and HEF ..................
+c
+8922 HZ=HHMIN+(HF1-HHMIN)*RRRR
+ XNEHZ=XE3__(HZ)
+ if(xnehz-nme.lt.0.001) then
+ RRRR=RRRR+.1
+ GOTO 8922
+ endif
+ WRITE(KONSOL,901) HZ,HEF
+901 FORMAT(6X,'CORR.: LIN. APP. BETWEEN HZ=',F5.1,
+ & ' AND HEF=',F5.1)
+ T=(XNEHZ-NME)/(HZ-HEF)
+ HST=-333.
+ GOTO 4933
+c
+c calculate HZ, D and T ............................................
+c
+360 HZ=(HST+HF1)/2.0
+ D=HZ-HST
+ T=D*D/(HZ-HEF-D)
+ GOTO 4933
+C
+C LAY-functions for middle ionosphere
+C
+6153 HMF1M=165.+0.6428*XHI
+ HHALF = GRAT * HMF2
+ HV1R = HME + WIDTH
+ HV2R = HME + HDEEP
+ HHMF2 = HMF2
+ CALL INILAY__(NIGHT,NMF2,NMF1,NME,VNER,HHMF2,HMF1M,HME,
+ & HV1R,HV2R,HHALF,HXL,SCL,AMP,IIQU)
+ IF(IIQU.EQ.1) WRITE(KONSOL,7733)
+7733 FORMAT('*NE* LAY amplitudes found with 2nd choice of HXL(1).')
+ IF(IIQU.EQ.2) WRITE(KONSOL,7722)
+7722 FORMAT('*NE* LAY amplitudes could not be found.')
+
+C---------- CALCULATION OF NEUTRAL TEMPERATURE PARAMETER-------
+
+4933 HTA=120.0
+ HTE=3000.0
+ IF(NOTEM) GOTO 240
+ SEC=UT*3600.
+ CALL CIRA86(DAYNR,SEC,LATI,LONGI,HOUR,COV,TEXOS,TN120,SIGMA)
+ IF(HOUR.NE.0.0) THEN
+ SECNI=(24.-LONGI/15.)*3600.
+ CALL CIRA86(DAYNR,SECNI,LATI,LONGI,0.,COV,TEXNI,TN1NI,SIGNI)
+ ELSE
+ TEXNI=TEXOS
+ TN1NI=TN120
+ SIGNI=SIGMA
+ ENDIF
+ TLBDH=TEXOS-TN120
+ TLBDN=TEXNI-TN1NI
+C
+C--------- CALCULATION OF ELECTRON TEMPERATURE PARAMETER--------
+C
+881 CONTINUE
+
+C !!!!!!!!!! TE(120KM)=TN(120KM) !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+ ATE(1)=TN120
+
+C !!!!!!!!!! TE-MAXIMUM (JICAMARCA,ARECIBO) !!!!!!!!!!!!!!!!!!!!
+ HMAXD=60.*EXP(-(MLAT/22.41)**2)+210.
+ HMAXN=150.
+ AHH(2)=HPOL__(HOUR,HMAXD,HMAXN,SAX,SUX,1.,1.)
+ TMAXD=800.*EXP(-(MLAT/33.)**2)+1500.
+ TMAXN=TN__(HMAXN,TEXNI,TLBDN,SIGNI)+20
+ ATE(2)=HPOL__(HOUR,TMAXD,TMAXN,SAX,SUX,1.,1.)
+
+C !!!!!!!!!! TE(300,400KM)=TE-AE-C !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+C !!!!!!!!!! TE(1400,3000KM)=TE-ISIS !!!!!!!!!!!!!!!!!!!!!!!!!!!
+ DIPLAT=MAGBR
+ CALL TEBA__(DIPLAT,HOUR,NSESON,TEA)
+ ATE(3)=TEA(1)
+ ATE(4)=TEA(2)
+ ATE(6)=TEA(3)
+ ATE(7)=TEA(4)
+
+C !!!!!!!!!! TE(600KM)=TE-AEROS !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+ ETT=EXP(-MLAT/11.35)
+ TET=2900.-5600.*ETT/((ETT+1)**2.)
+ TEN=839.+1161./(1.+EXP(-(ABSMLT-45.)/5.))
+ ATE(5)=HPOL__(HOUR,TET,TEN,SAX,SUX,1.5,1.5)
+
+C !!!!!!!!!! OPTION TO USE TE-NE-RELATION !!!!!!!!!!!!!!!!!!!!!!
+C !!!!!!!!!! AT 300, 400 OR 600 KM !!!!!!!!!!!!!!!!!!!!!!!!!!!!
+ IF(TENEOP) THEN
+ DO 3395 I=1,3
+3395 IF(TCON(I)) ATE(I+2)=TEDE__(HOA(I),XNAR(I),-COV)
+ ENDIF
+C !!!!!!!!!! TE'S ARE CORRECTED !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+C !!!!!!!!!! ALSO TE > TN ENFORCED !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+ TNAHH2=TN__(AHH(2),TEXOS,TLBDH,SIGMA)
+ IF(ATE(2).LT.TNAHH2) ATE(2)=TNAHH2
+ STTE1=(ATE(2)-ATE(1))/(AHH(2)-AHH(1))
+ DO 1901 I=2,6
+ TNAHHI=TN__(AHH(I+1),TEXOS,TLBDH,SIGMA)
+ IF(ATE(I+1).LT.TNAHHI) ATE(I+1)=TNAHHI
+ STTE2=(ATE(I+1)-ATE(I))/(AHH(I+1)-AHH(I))
+ ATE(I)=ATE(I)-(STTE2-STTE1)*DTE(I-1)*ALOG2
+1901 STTE1=STTE2
+C !!!!!!!!!! GRADIENTS ARE CALCULATED WITH !!!!!!!!!!!!!!!!!!!!
+C !!!!!!!!!! CORRECTED REGION BOUNDARIES !!!!!!!!!!!!!!!!!!!!!!
+ DO 1902 I=1,6
+1902 STTE(I)=(ATE(I+1)-ATE(I))/(AHH(I+1)-AHH(I))
+ ATE1=ATE(1)
+887 CONTINUE
+C
+C------------ CALCULATION OF ION TEMPERATURE PARAMETERS--------
+C
+C !!!!!!!!!! TI(430KM,DAY)=TI-AEROS !!!!!!!!!!!!!!!!!!!!!!!!!!!
+ XSM1=430.0
+ XSM(1)=XSM1
+ Z1=EXP(-0.09*MLAT)
+ Z2=Z1+1.
+ TID1 = 1240.0 - 1400.0 * Z1 / ( Z2 * Z2 )
+ MM(2)=HPOL__(HOUR,3.0,0.0,SAX,SUX,1.,1.)
+C !!!!!!!!!! TI < TE !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+ TED1=TEA(6)+30.
+ IF(TID1.GT.TED1) TID1=TED1
+
+C !!!!!!!!!! TI(430KM,NIGHT)=TI-AEROS !!!!!!!!!!!!!!!!!!!!!!!!!
+ Z1=ABSMLT
+ Z2=Z1*(0.47+Z1*0.024)*UMR
+ Z3=COS(Z2)
+ TIN1=1200.0-300.0*SIGN(1.0,Z3)*SQRT(ABS(Z3))
+C !!!!!!!!!! TN < TI < TE !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+ TEN1=TEA(5)
+ TNN1=TN__(XSM1,TEXNI,TLBDN,SIGNI)
+ IF(TEN1.LT.TNN1) TEN1=TNN1
+ IF(TIN1.GT.TEN1) TIN1=TEN1
+ IF(TIN1.LT.TNN1) TIN1=TNN1
+
+C !!!!!!!!!! TI(430KM,LT) FROM STEP FUNCTION !!!!!!!!!!!!!!!!!!
+ TI1=TIN1
+ IF(TID1.GT.TIN1) TI1=HPOL__(HOUR,TID1,TIN1,SAX,SUX,1.,1.)
+
+C !!!!!!!!!! TANGENT ON TN DETERMINES HS !!!!!!!!!!!!!!!!!!!!!!
+ TI13=TEDER__(130.)
+ TI50=TEDER__(500.)
+ CALL REGFA1__(130.0,500.0,TI13,TI50,0.01,TI1,TEDER__,SCHALT,HS)
+ IF(SCHALT) HS=200.
+ TNHS=TN__(HS,TEXOS,TLBDH,SIGMA)
+ MM(1)=DTNDH__(HS,TEXOS,TLBDH,SIGMA)
+ IF(SCHALT) MM(1)=(TI1-TNHS)/(XSM1-HS)
+ MXSM=2
+
+C !!!!!!!!!! XTETI ALTITTUDE WHERE TE=TI !!!!!!!!!!!!!!!!!!!!!!
+2391 XTTS=500.
+ X=500.
+2390 X=X+XTTS
+ IF(X.GE.AHH(7)) GOTO 240
+ TEX=ELTE__(X)
+ TIX=TI__(X)
+ IF(TIX.LT.TEX) GOTO 2390
+ X=X-XTTS
+ XTTS=XTTS/10.
+ IF(XTTS.GT.0.1) GOTO 2390
+ XTETI=X+XTTS*5.
+
+C !!!!!!!!!! TI=TE ABOVE XTETI !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+ MXSM=3
+ MM(3)=STTE(6)
+ XSM(2)=XTETI
+ IF(XTETI.GT.AHH(6)) GOTO 240
+ MXSM=4
+ MM(3)=STTE(5)
+ MM(4)=STTE(6)
+ XSM(3)=AHH(6)
+ IF(XTETI.GT.AHH(5)) GOTO 240
+ MXSM=5
+ DTI(1)=5.
+ DTI(2)=5.
+ MM(3)=STTE(4)
+ MM(4)=STTE(5)
+ MM(5)=STTE(6)
+ XSM(3)=AHH(5)
+ XSM(4)=AHH(6)
+C
+C CALCULATION OF ION DENSITY PARAMETER..................
+C
+240 IF(NOION) GOTO 141
+ HNIA=100.
+ HNIE=2000.
+ if(DY) goto 141
+C
+C INPUT OF THE ION DENSITY PARAMETER ARRAYS PF1O,PF2O AND PF3O......
+C
+ RIF(1)=2.
+ IF(ABSLAT.LT.30.0) RIF(1)=1.
+ RIF(2)=2.
+ IF(COV.LT.100.0) RIF(2)=1.
+ RIF(3)=SEASON
+ IF(SEASON.EQ.1) RIF(3)=3.
+ RIF(4)=1.
+ IF(NIGHT) RIF(4)=2.
+ CALL KOEFP1__(PG1O)
+ CALL KOEFP2__(PG2O)
+ CALL KOEFP3__(PG3O)
+ CALL SUFE__(PG1O,RIF,12,PF1O)
+ CALL SUFE__(PG2O,RIF, 4,PF2O)
+ CALL SUFE__(PG3O,RIF,12,PF3O)
+c
+c calculate O+ profile parameters
+c
+ IF(ABS(XHI).LE.90.0) THEN
+ ZZZ1=COS(XHI*UMR)
+ ELSE
+ ZZZ1=0.0
+ ENDIF
+ msumo=4
+ RDOMAX=100.0
+ MO(1)=EPSTEP__(PF1O(1),PF1O(2),PF1O(3),PF1O(4),ZZZ1)
+ MO(2)=EPSTEP__(PF1O(5),PF1O(6),PF1O(7),PF1O(8),ZZZ1)
+ MO(3)=0.0
+ HO(1)=EPSTEP__(PF1O(9),PF1O(10),PF1O(11),PF1O(12),ZZZ1)
+ HO(2)=290.0
+ IF((RIF(2).EQ.2.).AND.(RIF(3).EQ.2.)) HO(2)=237.0
+ HO(4)=PF2O(1)
+ ho05=pf2o(4)
+ MO(4)=PF2O(2)
+ MO(5)=PF2O(3)
+c
+c adjust gradient MO(4) of O+ profile segment above F peak
+c
+7100 HO(3)=(ALG100-MO(5)*(HO(4)-ho05))/MO(4)+HO(4)
+ IF(HO(3).LE.HO(2)+20.) THEN
+ MO(4)=MO(4)-0.001
+ GOTO 7100
+ endif
+ hfixo=(ho(2)+ho(3))/2.
+c
+c find height H0O of maximum O+ relative density
+c
+ DELX=5.0
+ X=HO(2)
+ YMAXX=0.0
+7102 X=X+DELX
+ Y=RPID__(X,HFIXO,RDOMAX,msumo,MO,DDO,HO)
+ IF(Y.LE.YMAXX) then
+ if(delx.le.0.1) GOTO 7104
+ x=x-delx
+ delx=delx/5.
+ ELSE
+ YMAXX=Y
+ ENDIF
+ GOTO 7102
+7104 H0O=X-DELX/2.
+7101 if(y.lt.100.0) goto 7103
+ rdomax=rdomax-0.01
+ y=rpid__(h0o,hfixo,rdomax,msumo,mo,ddo,ho)
+ goto 7101
+7103 yo2h0o=100.-y
+ yoh0o=y
+c
+c calculate parameters for O2+ profile
+c
+ hfixo2 = pf3o(1)
+ rdo2mx = pf3o(2)
+ DO 7105 L=1,2
+ I = L * 2
+ HO2(L)=PF3O(1+I)+PF3O(2+I)*ZZZ1
+7105 MO2(L+1)=PF3O(7+I)+PF3O(8+I)*ZZZ1
+ MO2(1)=PF3O(7)+PF3O(8)*ZZZ1
+ if(hfixo2.gt.ho2(1)) then
+ ymo2z=mo2(2)
+ else
+ ymo2z=mo2(1)
+ endif
+ aldo21=alog(rdo2mx)+ymo2z*(ho2(1)-hfixo2)
+ hfixo2=(ho2(2)+ho2(1))/2.
+ rdo2mx=exp(aldo21+mo2(2)*(hfixo2-ho2(1)))
+c
+c make sure that rd(O2+) is less or equal 100-rd(O+) at O+ maximum
+c
+7106 Y=RPID__(H0O,hfixo2,rdo2mx,2,MO2,DO2,HO2)
+ IF(Y.GT.yo2h0o) then
+ MO2(3)=MO2(3)-0.02
+ GOTO 7106
+ endif
+c
+C use ratio of NO+ to O2+ density at O+ maximum to calculate
+c NO+ density above the O+ maximum (H0O)
+c
+ IF(y.LT.1.) then
+ NOBO2=0.0
+ ELSE
+ NOBO2= (yo2h0o-y)/y
+ ENDIF
+C
+C CALCULATION FOR THE REQUIRED HEIGHT RANGE.......................
+C
+141 IF(.NOT.F1REG) HMF1=HZ
+
+ DO 7397 KI=1,11
+ DO 7397 KK=1,nz
+7397 OUTF(KI,KK)=-1.
+
+ do 7118 kk=1,nz
+ height=zkm(kk)
+300 IF(NODEN) GOTO 330
+ IF((HEIGHT.GT.HNEE).OR.(HEIGHT.LT.HNEA)) GOTO 330
+ IF(LAYVER) THEN
+ ELEDE=-9.
+ IF(IIQU.LT.2) ELEDE=XEN__(HEIGHT,HMF2,NMF2,HME,4,HXL,SCL,AMP)
+ ELSE
+ ELEDE=XE__(HEIGHT)
+ ENDIF
+ OUTF(1,KK)=ELEDE
+330 IF(NOTEM) GOTO 7108
+ IF((HEIGHT.GT.HTE).OR.(HEIGHT.LT.HTA)) GOTO 7108
+ TNH=TN__(HEIGHT,TEXOS,TLBDH,SIGMA)
+ TIH=TNH
+ IF(HEIGHT.GE.HS) TIH=TI__(HEIGHT)
+ TEH=ELTE__(HEIGHT)
+ IF(TIH.LT.TNH) TIH=TNH
+ IF(TEH.LT.TIH) TEH=TIH
+ OUTF(2,KK)=TNH
+ OUTF(3,KK)=TIH
+ OUTF(4,KK)=TEH
+7108 IF(NOION) GOTO 7118
+ IF((HEIGHT.GT.HNIE).OR.(HEIGHT.LT.HNIA)) GOTO 7118
+ if(DY) then
+ zmonth = month + iday / 30.0
+ call IONCOM(HEIGHT,XHI*UMR,LATI*UMR,COV,ZMONTH,DION)
+ ROX=DION(1)
+ RHX=DION(2)
+ RNX=DION(3)
+ RHEX=DION(4)
+ RNOX=DION(5)
+ RO2X=DION(6)
+ RCLUST=DION(7)
+ else
+ ROX=RPID__(HEIGHT,HFIXO,RDOMAX,msumo,MO,DDO,HO)
+ RO2X=RPID__(HEIGHT,HFIXO2,rdo2mx,2,MO2,DO2,HO2)
+ CALL RDHHE__(HEIGHT,H0O,ROX,RO2X,NOBO2,10.,RHX,RHEX)
+ RNOX=RDNO__(HEIGHT,H0O,RO2X,ROX,NOBO2)
+ RNX=-1.
+ RCLUST=-1.
+ endif
+ OUTF(5,KK)=ROX
+ OUTF(6,KK)=RHX
+ OUTF(7,KK)=RHEX
+ OUTF(8,KK)=RO2X
+ OUTF(9,KK)=RNOX
+ OUTF(10,KK)=RNX
+ OUTF(11,KK)=RCLUST
+
+7118 continue
+C
+C ADDITIONAL PARAMETER FIELD OARR
+C
+ IF(NODEN) GOTO 6192
+ OARR(1)=NMF2
+ OARR(2)=HMF2
+ OARR(3)=NMF1
+ OARR(4)=HMF1
+ OARR(5)=NME
+ OARR(6)=HME
+ OARR(7)=NMD
+ OARR(8)=HMD
+ OARR(9)=HHALF
+ OARR(10)=B0
+ OARR(11)=VNER
+ OARR(12)=HEF
+6192 IF(NOTEM) GOTO 6092
+ OARR(13)=ATE(2)
+ OARR(14)=AHH(2)
+ OARR(15)=ATE(3)
+ OARR(16)=ATE(4)
+ OARR(17)=ATE(5)
+ OARR(18)=ATE(6)
+ OARR(19)=ATE(7)
+ OARR(20)=ATE(1)
+ OARR(21)=TI1
+ OARR(22)=XTETI
+6092 OARR(23)=XHI
+ OARR(24)=SUNDEC
+ OARR(25)=DIP
+ OARR(26)=MAGBR
+ OARR(27)=MODIP
+
+3330 CONTINUE
+ RETURN
+ END
+C
+C
+C Subroutine DFP, Stan Solomon, 3/92, splices filename to directory
+C
+ subroutine dfp(direct,filename,path)
+ character*(*) direct,filename,path
+ character*50 blanks
+ data blanks/' '/
+ path=blanks
+ nch=len(direct)
+ do 10 i=1,nch
+ if (direct(i:i).ne.' ') goto 20
+ 10 continue
+ 20 lb=i
+ do 30 i=nch,1,-1
+ if (direct(i:i).ne.' ') goto 40
+ 30 continue
+ 40 le=i
+ if (lb.ge.nch .or. le.le.0) then
+ path(1:10)=filename(1:10)
+ else
+ nd=le-lb+1
+ path(1:nd)=direct(lb:le)
+ path(nd+1:nd+10)=filename(1:10)
+ endif
+ return
+ end
+C
+C
+C
+C
+C IRIF12.FOR ------------------------------------- OCTOBER 1991
+C**************************************************************
+c changes from IRIFU9 to IRIF10:
+c SOCO for solar zenith angle
+c ACOS and ASIN argument forced to be within -1 / +1
+c EPSTEIN functions corrected for large arguments
+C**************************************************************
+c changes from IRIF10 to IRIF11:
+c LAY subroutines introduced
+c TEBA corrected for 1400 km
+C**************************************************************
+c changes from IRIF11 to IRIF12:
+C Neutral temperature subroutines now in CIRA86.FOR
+C TEDER changed
+C All names with 6 or more characters replaced
+C 10/29/91 XEN: 10^ in loop, instead of at the end
+C
+C**************************************************************
+C********** INTERNATIONAL REFERENCE IONOSPHERE ****************
+C**************************************************************
+C**************** FUNCTIONS,SUBROUTINES *********************
+C**************************************************************
+C** NE: XE1,DXE1N,XE2,XE3,XE4,XE5,XE6,XE
+C** TE/TI: TEBA,SPHARM,ELTE,TEDE,TI,TEDER
+C** NI: RPID,RDHHE,RDNO,KOEFP1,KOEFP2,KOEFP3,SUFE
+C** PEAKS: F2OUT,HMF2ED,FOF1ED,FOEEDI,XMDED,GAMMA1
+C** MAG. FIELD: GGM,FIELDG
+C** FUNCTIONS: REGFA1,TAL
+C** TIME: SOCO,HPOL,MODA
+C** INTERPOL.: B0POL
+C** EPSTEIN: RLAY,D1LAY,D2LAY,EPTR,EPST,EPSTEP,EPLA
+C** LAY: XE2TO5,XEN,ROGUL,VALGUL,LNGLSN,LSKNM,INILAY
+C** NI-new: IONCOM, RPDA
+C**************************************************************
+C
+C**************************************************************
+C*** -------------------ADDRESSES------------------------ ***
+C*** I PROF. K. RAWER DR. D. BILITZA I ***
+C*** I HERRENSTR. 43 GSFC CODE 933 I ***
+C*** I 7801 MARCH 1 GREENBELT MD 20771 I ***
+C*** I F.R.G. USA I ***
+C*** ---------------------------------------------------- ***
+C**************************************************************
+C**************************************************************
+C
+C*************************************************************
+C*************** ELECTRON DENSITY ****************************
+C*************************************************************
+C
+C
+ FUNCTION XE1__(H)
+c----------------------------------------------------------------
+C REPRESENTING ELECTRON DENSITY(M-3) IN THE TOPSIDE IONOSPHERE
+C (H=HMF2....1000 KM) BY HARMONIZED BENT-MODEL ADMITTING
+C VARIABILITY OFGLOBAL PARAMETER ETA,ZETA,BETA,DELTA WITH
+C GEOM. LATITUDE, SMOOTHED SOLAR FLUX AND CRITICAL FREQUENCY
+C (SEE MAIN PROGRAM).
+C [REF.:K.RAWER,S.RAMAKRISHNAN,1978]
+c----------------------------------------------------------------
+ COMMON /BLOCK1/ HMF2,XNMF2,HMF1
+ & /BLO10/ BETA,ETA,DELTA,ZETA
+ & /ARGEXP/ ARGMAX
+
+ DXDH = (1000.-HMF2)/700.
+ x0 = 300. - delta
+ xmx0 = (H-HMF2)/DXDH
+ x = xmx0 + x0
+ eptr1 = eptr__(x,beta,394.5) - eptr__(x0,beta,394.5)
+ eptr2 = eptr__(x,100.,300.0) - eptr__(x0,100.,300.0)
+
+ y = BETA * ETA * eptr1 + ZETA * (100. * eptr2 - xmx0)
+
+ Y = y * dxdh
+ if(abs(Y).gt.argmax) Y = sign(argmax,Y)
+ XE1__ = XNMF2 * EXP(-Y)
+ RETURN
+ END
+C
+C
+ FUNCTION DXE1N__(H)
+C LOGARITHMIC DERIVATIVE OF FUNCTION XE1 (KM-1).
+ COMMON /BLOCK1/ HMF2,XNMF2,HMF1
+ & /BLO10/ BETA,ETA,DELTA,ZETA
+
+ x0 = 300. - delta
+ X=(H-HMF2)/(1000.0-HMF2)*700.0 + x0
+ epst2 = epst__(x,100.0,300.0)
+ epst1 = epst__(x,beta ,394.5)
+ DXE1N__ = - ETA * epst1 + ZETA * (1. - epst2)
+ RETURN
+ END
+C
+C
+ REAL FUNCTION XE2__(H)
+C ELECTRON DENSITY FOR THE BOTTOMSIDE F-REGION (HMF1...HMF2).
+ COMMON /BLOCK1/HMF2,XNMF2,HMF1
+ & /BLOCK2/B0,B1,C1 /ARGEXP/ARGMAX
+ X=(HMF2-H)/B0
+ z=x**b1
+ if(z.gt.argmax) z=argmax
+ XE2__=XNMF2*EXP(-z)/COSH(X)
+ RETURN
+ END
+C
+C
+ REAL FUNCTION XE3__(H)
+C ELECTRON DENSITY FOR THE F1-LAYER (HZ.....HMF1).
+ COMMON /BLOCK1/ HMF2,XNMF2,HMF1
+ & /BLOCK2/ B0,B1,C1
+ XE3__=XE2__(H)+XNMF2*C1*SQRT(ABS(HMF1-H)/B0)
+ RETURN
+ END
+C
+C
+ REAL FUNCTION XE4__(H)
+C ELECTRON DENSITY FOR THE INDERMEDIUM REGION (HEF..HZ).
+ COMMON /BLOCK3/ HZ,T,HST,STR
+ & /BLOCK4/ HME,XNME,HEF
+ IF(HST.LT.0.) GOTO 100
+ XE4__=XE3__(HZ+T/2.0-SIGN(1.0,T)*SQRT(T*(HZ-H+T/4.0)))
+ RETURN
+100 XE4__=XNME+T*(H-HEF)
+ RETURN
+ END
+C
+C
+ REAL FUNCTION XE5__(H)
+C ELECTRON DENSITY FOR THE E AND VALLEY REGION (HME..HEF).
+ LOGICAL NIGHT
+ COMMON /BLOCK4/ HME,XNME,HEF
+ & /BLOCK5/ NIGHT,E(4)
+ T3=H-HME
+ T1=T3*T3*(E(1)+T3*(E(2)+T3*(E(3)+T3*E(4))))
+ IF(NIGHT) GOTO 100
+ XE5__=XNME*(1+T1)
+ RETURN
+100 XE5__=XNME*EXP(T1)
+ RETURN
+ END
+C
+C
+ REAL FUNCTION XE6__(H)
+C ELECTRON DENSITY FOR THE D REGION (HA...HME).
+ COMMON /BLOCK4/ HME,XNME,HEF
+ & /BLOCK6/ HMD,XNMD,HDX
+ & /BLOCK7/ D1,XKK,FP30,FP3U,FP1,FP2
+ IF(H.GT.HDX) GOTO 100
+ Z=H-HMD
+ FP3=FP3U
+ IF(Z.GT.0.0) FP3=FP30
+ XE6__=XNMD*EXP(Z*(FP1+Z*(FP2+Z*FP3)))
+ RETURN
+100 Z=HME-H
+ XE6__=XNME*EXP(-D1*Z**XKK)
+ RETURN
+ END
+C
+C
+ REAL FUNCTION XE__(H)
+C ELECTRON DENSITY BEETWEEN HA(KM) AND 1000 KM
+C SUMMARIZING PROCEDURES NE1....6;
+ COMMON /BLOCK1/HMF2,XNMF2,HMF1
+ & /BLOCK3/HZ,T,HST,STR
+ & /BLOCK4/HME,XNME,HEF
+ IF(H.LT.HMF2) GOTO 100
+ XE__=XE1__(H)
+ RETURN
+100 IF(H.LT.HMF1) GOTO 300
+ XE__=XE2__(H)
+ RETURN
+300 IF(H.LT.HZ) GOTO 400
+ XE__=XE3__(H)
+ RETURN
+400 IF(H.LT.HEF) GOTO 500
+ XE__=XE4__(H)
+ RETURN
+500 IF(H.LT.HME) GOTO 600
+ XE__=XE5__(H)
+ RETURN
+600 XE__=XE6__(H)
+ RETURN
+ END
+C
+C**********************************************************
+C***************** ELECTRON TEMPERATURE ********************
+C**********************************************************
+C
+ SUBROUTINE TEBA__(DIPL,SLT,NS,TE)
+C CALCULATES ELECTRON TEMPERATURES TE(1) TO TE(4) AT ALTITUDES
+C 300, 400, 1400 AND 3000 KM FOR DIP-LATITUDE DIPL/DEG AND
+C LOCAL SOLAR TIME SLT/H USING THE BRACE-THEIS-MODELS (J. ATMOS.
+C TERR. PHYS. 43, 1317, 1981); NS IS SEASON IN NORTHERN
+C HEMISOHERE: IS=1 SPRING, IS=2 SUMMER ....
+C ALSO CALCULATED ARE THE TEMPERATURES AT 400 KM ALTITUDE FOR
+C MIDNIGHT (TE(5)) AND NOON (TE(6)).
+ DIMENSION C(4,2,81),A(82),TE(6)
+ COMMON/CONST/UMR
+ DATA (C(1,1,J),J=1,81)/
+ &.3100E1,-.3215E-2,.2440E+0,-.4613E-3,-.1711E-1,.2605E-1,
+ &-.9546E-1,.1794E-1,.1270E-1,.2791E-1,.1536E-1,-.6629E-2,
+ &-.3616E-2,.1229E-1,.4147E-3,.1447E-2,-.4453E-3,-.1853,
+ &-.1245E-1,-.3675E-1,.4965E-2,.5460E-2,.8117E-2,-.1002E-1,
+ &.5466E-3,-.3087E-1,-.3435E-2,-.1107E-3,.2199E-2,.4115E-3,
+ &.6061E-3,.2916E-3,-.6584E-1,.4729E-2,-.1523E-2,.6689E-3,
+ &.1031E-2,.5398E-3,-.1924E-2,-.4565E-1,.7244E-2,-.8543E-4,
+ &.1052E-2,-.6696E-3,-.7492E-3,.4405E-1,.3047E-2,.2858E-2,
+ &-.1465E-3,.1195E-2,-.1024E-3,.4582E-1,.8749E-3,.3011E-3,
+ &.4473E-3,-.2782E-3,.4911E-1,-.1016E-1,.27E-2,-.9304E-3,
+ &-.1202E-2,.2210E-1,.2566E-2,-.122E-3,.3987E-3,-.5744E-1,
+ &.4408E-2,-.3497E-2,.83E-3,-.3536E-1,-.8813E-2,.2423E-2,
+ &-.2994E-1,-.1929E-2,-.5268E-3,-.2228E-1,.3385E-2,
+ &.413E-1,.4876E-2,.2692E-1,.1684E-2/
+ DATA (C(1,2,J),J=1,81)/.313654E1,.6796E-2,.181413,.8564E-1,
+ &-.32856E-1,-.3508E-2,-.1438E-1,-.2454E-1,.2745E-2,.5284E-1,
+ &.1136E-1,-.1956E-1,-.5805E-2,.2801E-2,-.1211E-2,.4127E-2,
+ &.2909E-2,-.25751,-.37915E-2,-.136E-1,-.13225E-1,.1202E-1,
+ &.1256E-1,-.12165E-1,.1326E-1,-.7123E-1,.5793E-3,.1537E-2,
+ &.6914E-2,-.4173E-2,.1052E-3,-.5765E-3,-.4041E-1,-.1752E-2,
+ &-.542E-2,-.684E-2,.8921E-3,-.2228E-2,.1428E-2,.6635E-2,-.48045E-2,
+ &-.1659E-2,-.9341E-3,.223E-3,-.9995E-3,.4285E-1,-.5211E-3,
+ &-.3293E-2,.179E-2,.6435E-3,-.1891E-3,.3844E-1,.359E-2,-.8139E-3,
+ &-.1996E-2,.2398E-3,.2938E-1,.761E-2,.347655E-2,.1707E-2,.2769E-3,
+ &-.157E-1,.983E-3,-.6532E-3,.929E-4,-.2506E-1,.4681E-2,.1461E-2,
+ &-.3757E-5,-.9728E-2,.2315E-2,.6377E-3,-.1705E-1,.2767E-2,
+ &-.6992E-3,-.115E-1,-.1644E-2,.3355E-2,-.4326E-2,.2035E-1,.2985E-1/
+ DATA (C(2,1,J),J=1,81)/.3136E1,.6498E-2,.2289,.1859E-1,-.3328E-1,
+ &-.4889E-2,-.3054E-1,-.1773E-1,-.1728E-1,.6555E-1,.1775E-1,
+ &-.2488E-1,-.9498E-2,.1493E-1,.281E-2,.2406E-2,.5436E-2,-.2115,
+ &.7007E-2,-.5129E-1,-.7327E-2,.2402E-1,.4772E-2,-.7374E-2,
+ &-.3835E-3,-.5013E-1,.2866E-2,.2216E-2,.2412E-3,.2094E-2,.122E-2
+ &,-.1703E-3,-.1082,-.4992E-2,-.4065E-2,.3615E-2,-.2738E-2,
+ &-.7177E-3,.2173E-3,-.4373E-1,-.375E-2,.5507E-2,-.1567E-2,
+ &-.1458E-2,-.7397E-3,.7903E-1,.4131E-2,.3714E-2,.1073E-2,
+ &-.8991E-3,.2976E-3,.2623E-1,.2344E-2,.5608E-3,.4124E-3,.1509E-3,
+ &.5103E-1,.345E-2,.1283E-2,.7238E-3,-.3464E-4,.1663E-1,-.1644E-2,
+ &-.71E-3,.5281E-3,-.2729E-1,.3556E-2,-.3391E-2,-.1787E-3,.2154E-2,
+ &.6476E-2,-.8282E-3,-.2361E-1,.9557E-3,.3205E-3,-.2301E-1,
+ &-.854E-3,-.1126E-1,-.2323E-2,-.8582E-2,.2683E-1/
+ DATA (C(2,2,J),J=1,81)/.3144E1,.8571E-2,.2539,.6937E-1,-.1667E-1,
+ &.2249E-1,-.4162E-1,.1201E-1,.2435E-1,.5232E-1,.2521E-1,-.199E-1,
+ &-.7671E-2,.1264E-1,-.1551E-2,-.1928E-2,.3652E-2,-.2019,.5697E-2,
+ &-.3159E-1,-.1451E-1,.2868E-1,.1377E-1,-.4383E-2,.1172E-1,
+ &-.5683E-1,.3593E-2,.3571E-2,.3282E-2,.1732E-2,-.4921E-3,-.1165E-2
+ &,-.1066,-.1892E-1,.357E-2,-.8631E-3,-.1876E-2,-.8414E-4,.2356E-2,
+ &-.4259E-1,-.322E-2,.4641E-2,.6223E-3,-.168E-2,-.1243E-3,.7393E-1,
+ &-.3143E-2,-.2362E-2,.1235E-2,-.1551E-2,.2099E-3,.2299E-1,.5301E-2
+ &,-.4306E-2,-.1303E-2,.7687E-5,.5305E-1,.6642E-2,-.1686E-2,
+ &.1048E-2,.5958E-3,.4341E-1,-.8819E-4,-.333E-3,-.2158E-3,-.4106E-1
+ &,.4191E-2,.2045E-2,-.1437E-3,-.1803E-1,-.8072E-3,-.424E-3,
+ &-.26E-1,-.2329E-2,.5949E-3,-.1371E-1,-.2188E-2,.1788E-1,
+ &.6405E-3,.5977E-2,.1333E-1/
+ DATA (C(3,1,J),J=1,81)/.3372E1,.1006E-1,.1436,.2023E-2,-.5166E-1,
+ &.9606E-2,-.5596E-1,.4914E-3,-.3124E-2,-.4713E-1,-.7371E-2,
+ &-.4823E-2,-.2213E-2,.6569E-2,-.1962E-3,.3309E-3,-.3908E-3,
+ &-.2836,.7829E-2,.1175E-1,.9919E-3,.6589E-2,.2045E-2,-.7346E-2
+ &,-.89E-3,-.347E-1,-.4977E-2,.147E-2,-.2823E-5,.6465E-3,
+ &-.1448E-3,.1401E-2,-.8988E-1,-.3293E-4,-.1848E-2,.4439E-3,
+ &-.1263E-2,.317E-3,-.6227E-3,.1721E-1,-.199E-2,-.4627E-3,
+ &.2897E-5,-.5454E-3,.3385E-3,.8432E-1,-.1951E-2,.1487E-2,
+ &.1042E-2,-.4788E-3,-.1276E-3,.2373E-1,.2409E-2,.5263E-3,
+ &.1301E-2,-.4177E-3,.3974E-1,.1418E-3,-.1048E-2,-.2982E-3,
+ &-.3396E-4,.131E-1,.1413E-2,-.1373E-3,.2638E-3,-.4171E-1,
+ &-.5932E-3,-.7523E-3,-.6883E-3,-.2355E-1,.5695E-3,-.2219E-4,
+ &-.2301E-1,-.9962E-4,-.6761E-3,.204E-2,-.5479E-3,.2591E-1,
+ &-.2425E-2,.1583E-1,.9577E-2/
+ DATA (C(3,2,J),J=1,81)/.3367E1,.1038E-1,.1407,.3622E-1,-.3144E-1,
+ &.112E-1,-.5674E-1,.3219E-1,.1288E-2,-.5799E-1,-.4609E-2,
+ &.3252E-2,-.2859E-3,.1226E-1,-.4539E-2,.1310E-2,-.5603E-3,
+ &-.311,-.1268E-2,.1539E-1,.3146E-2,.7787E-2,-.143E-2,-.482E-2
+ &,.2924E-2,-.9981E-1,-.7838E-2,-.1663E-3,.4769E-3,.4148E-2,
+ &-.1008E-2,-.979E-3,-.9049E-1,-.2994E-2,-.6748E-2,-.9889E-3,
+ &.1488E-2,-.1154E-2,-.8412E-4,-.1302E-1,-.4859E-2,-.7172E-3,
+ &-.9401E-3,.9101E-3,-.1735E-3,.7055E-1,.6398E-2,-.3103E-2,
+ &-.938E-3,-.4E-3,-.1165E-2,.2713E-1,-.1654E-2,.2781E-2,
+ &-.5215E-5,.2258E-3,.5022E-1,.95E-2,.4147E-3,.3499E-3,
+ &-.6097E-3,.4118E-1,.6556E-2,.3793E-2,-.1226E-3,-.2517E-1,
+ &.1491E-3,.1075E-2,.4531E-3,-.9012E-2,.3343E-2,.3431E-2,
+ &-.2519E-1,.3793E-4,.5973E-3,-.1423E-1,-.132E-2,-.6048E-2,
+ &-.5005E-2,-.115E-1,.2574E-1/
+ DATA (C(4,1,J),J=1,81)/.3574E1,.0,.7537E-1,.0,-.8459E-1,
+ &0.,-.294E-1,0.,.4547E-1,-.5321E-1,0.,.4328E-2,0.,.6022E-2,
+ &.0,-.9168E-3,.0,-.1768,.0,.294E-1,.0,.5902E-3,.0,-.9047E-2,
+ &.0,-.6555E-1,.0,-.1033E-2,.0,.1674E-2,.0,.2802E-3,-.6786E-1
+ &,.0,.4193E-2,.0,-.6448E-3,.0,.9277E-3,-.1634E-1,.0,-.2531E-2
+ &,.0,.193E-4,.0,.528E-1,.0,.2438E-2,.0,-.5292E-3,.0,.1555E-1
+ &,.0,-.3259E-2,.0,-.5998E-3,.3168E-1,.0,.2382E-2,.0,-.4078E-3
+ &,.2312E-1,.0,.1481E-3,.0,-.1885E-1,.0,.1144E-2,.0,-.9952E-2
+ &,.0,-.551E-3,-.202E-1,.0,-.7283E-4,-.1272E-1,.0,.2224E-2,
+ &.0,-.251E-2,.2434E-1/
+ DATA (C(4,2,J),J=1,81)/.3574E1,-.5639E-2,.7094E-1,
+ &-.3347E-1,-.861E-1,-.2877E-1,-.3154E-1,-.2847E-2,.1235E-1,
+ &-.5966E-1,-.3236E-2,.3795E-3,-.8634E-3,.3377E-2,-.1071E-3,
+ &-.2151E-2,-.4057E-3,-.1783,.126E-1,.2835E-1,-.242E-2,
+ &.3002E-2,-.4684E-2,-.6756E-2,-.7493E-3,-.6147E-1,-.5636E-2
+ &,-.1234E-2,-.1613E-2,-.6353E-4,-.2503E-3,-.1729E-3,-.7148E-1
+ &,.5326E-2,.4006E-2,.6484E-3,-.1046E-3,-.6034E-3,-.9435E-3,
+ &-.2385E-2,.6853E-2,.151E-2,.1319E-2,.9049E-4,-.1999E-3,
+ &.3976E-1,.2802E-2,-.103E-2,.5599E-3,-.4791E-3,-.846E-4,
+ &.2683E-1,.427E-2,.5911E-3,.2987E-3,-.208E-3,.1396E-1,
+ &-.1922E-2,-.1063E-2,.3803E-3,.1343E-3,.1771E-1,-.1038E-2,
+ &-.4645E-3,-.2481E-3,-.2251E-1,-.29E-2,-.3977E-3,-.516E-3,
+ &-.8079E-2,-.1528E-2,.306E-3,-.1582E-1,-.8536E-3,.1565E-3,
+ &-.1252E-1,.2319E-3,.4311E-2,.1024E-2,.1296E-5,.179E-1/
+ IF(NS.LT.3) THEN
+ IS=NS
+ ELSE IF(NS.GT.3) THEN
+ IS=2
+ DIPL=-DIPL
+ ELSE
+ IS=1
+ ENDIF
+ COLAT=UMR*(90.-DIPL)
+ AZ=.2618*SLT
+ CALL SPHARM__(A,8,8,COLAT,AZ)
+ IF(IS.EQ.2) THEN
+ KEND=3
+ ELSE
+ KEND=4
+ ENDIF
+ DO 2 K=1,KEND
+ STE=0.
+ DO 1 I=1,81
+1 STE=STE+A(I)*C(K,IS,I)
+2 TE(K)=10.**STE
+ IF(IS.EQ.2) THEN
+ DIPL=-DIPL
+ COLAT=UMR*(90.-DIPL)
+ CALL SPHARM__(A,8,8,COLAT,AZ)
+ STE=0.
+ DO 11 I=1,81
+11 STE=STE+A(I)*C(4,2,I)
+ TE(4)=10.**STE
+ ENDIF
+
+C---------- TEMPERATURE AT 400KM AT MIDNIGHT AND NOON
+ DO 4 J=1,2
+ STE=0.
+ AZ=.2618*(J-1)*12.
+ CALL SPHARM__(A,8,8,COLAT,AZ)
+ DO 3 I=1,81
+3 STE=STE+A(I)*C(2,IS,I)
+4 TE(J+4)=10.**STE
+ RETURN
+ END
+C
+ SUBROUTINE SPHARM__(C,L,M,COLAT,AZ)
+C CALCULATES THE COEFFICIENTS OF THE SPHERICAL HARMONIC
+C EXPANSION THAT WAS USED FOR THE BRACE-THEIS-MODELS.
+ DIMENSION C(82)
+ C(1)=1.
+ K=2
+ X=COS(COLAT)
+ C(K)=X
+ K=K+1
+ DO 10 I=2,L
+ C(K)=((2*I-1)*X*C(K-1)-(I-1)*C(K-2))/I
+10 K=K+1
+ Y=SIN(COLAT)
+ DO 20 MT=1,M
+ CAZ=COS(MT*AZ)
+ SAZ=SIN(MT*AZ)
+ C(K)=Y**MT
+ K=K+1
+ IF(MT.EQ.L) GOTO 16
+ C(K)=C(K-1)*X*(2*MT+1)
+ K=K+1
+ IF((MT+1).EQ.L) GOTO 16
+ DO 15 I=2+MT,L
+ C(K)=((2*I-1)*X*C(K-1)-(I+MT-1)*C(K-2))/(I-MT)
+15 K=K+1
+16 N=L-MT+1
+ DO 18 I=1,N
+ C(K)=C(K-N)*CAZ
+ C(K-N)=C(K-N)*SAZ
+18 K=K+1
+20 CONTINUE
+ RETURN
+ END
+C
+C
+ REAL FUNCTION ELTE__(H)
+c----------------------------------------------------------------
+C ELECTRON TEMPERATURE PROFILE BASED ON THE TEMPERATURES AT 120
+C HMAX,300,400,600,1400,3000 KM ALTITUDE. INBETWEEN CONSTANT
+C GRADIENT IS ASSUMED. ARGMAX IS MAXIMUM ARGUMENT ALLOWED FOR
+C EXP-FUNCTION.
+c----------------------------------------------------------------
+ COMMON /BLOTE/AH(7),ATE1,ST(6),D(5)
+C
+ SUM=ATE1+ST(1)*(H-AH(1))
+ DO 1 I=1,5
+ aa = eptr__(h ,d(i),ah(i+1))
+ bb = eptr__(ah(1),d(i),ah(i+1))
+1 SUM=SUM+(ST(I+1)-ST(I))*(AA-BB)*D(I)
+ ELTE__=SUM
+ RETURN
+ END
+C
+C
+ FUNCTION TEDE__(H,DEN,COV)
+C ELECTRON TEMEPERATURE MODEL AFTER BRACE,THEIS .
+C FOR NEG. COV THE MEAN COV-INDEX (3 SOLAR ROT.) IS EXPECTED.
+C DEN IS THE ELECTRON DENSITY IN M-3.
+ Y=1051.+(17.01*H-2746.)*
+ &EXP(-5.122E-4*H+(6.094E-12-3.353E-14*H)*DEN)
+ ACOV=ABS(COV)
+ YC=1.+(.117+2.02E-3*ACOV)/(1.+EXP(-(ACOV-102.5)/5.))
+ IF(COV.LT.0.)
+ &YC=1.+(.123+1.69E-3*ACOV)/(1.+EXP(-(ACOV-115.)/10.))
+ TEDE__=Y*YC
+ RETURN
+ END
+C
+C
+C*************************************************************
+C**************** ION TEMPERATURE ****************************
+C*************************************************************
+C
+C
+ REAL FUNCTION TI__(H)
+c----------------------------------------------------------------
+C ION TEMPERATURE FOR HEIGHTS NOT GREATER 1000 KM AND NOT LESS HS
+C EXPLANATION SEE FUNCTION RPID.
+c----------------------------------------------------------------
+ REAL MM
+ COMMON /BLOCK8/ HS,TNHS,XSM(4),MM(5),G(4),M
+
+ SUM=MM(1)*(H-HS)+TNHS
+ DO 100 I=1,M-1
+ aa = eptr__(h ,g(i),xsm(i))
+ bb = eptr__(hs,g(i),xsm(i))
+100 SUM=SUM+(MM(I+1)-MM(I))*(AA-BB)*G(I)
+ TI__=SUM
+ RETURN
+ END
+C
+C
+ REAL FUNCTION TEDER__(H)
+C THIS FUNCTION ALONG WITH PROCEDURE REGFA1 ALLOWS TO FIND
+C THE HEIGHT ABOVE WHICH TN BEGINS TO BE DIFFERENT FROM TI
+ COMMON /BLOTN/XSM1,TEX,TLBD,SIG
+ TNH = TN__(H,TEX,TLBD,SIG)
+ DTDX = DTNDH__(H,TEX,TLBD,SIG)
+ TEDER__ = DTDX * ( XSM1 - H ) + TNH
+ RETURN
+ END
+C
+C
+C*************************************************************
+C************* ION RELATIVE PRECENTAGE DENSITY *****************
+C*************************************************************
+C
+C
+ REAL FUNCTION RPID__ (H, H0, N0, M, ST, ID, XS)
+c------------------------------------------------------------------
+C D.BILITZA,1977,THIS ANALYTIC FUNCTION IS USED TO REPRESENT THE
+C RELATIVE PRECENTAGE DENSITY OF ATOMAR AND MOLECULAR OXYGEN IONS.
+C THE M+1 HEIGHT GRADIENTS ST(M+1) ARE CONNECTED WITH EPSTEIN-
+C STEP-FUNCTIONS AT THE STEP HEIGHTS XS(M) WITH TRANSITION
+C THICKNESSES ID(M). RPID(H0,H0,N0,....)=N0.
+C ARGMAX is the highest allowed argument for EXP in your system.
+c------------------------------------------------------------------
+ REAL N0
+ DIMENSION ID(4), ST(5), XS(4)
+ COMMON /ARGEXP/ ARGMAX
+
+ SUM=(H-H0)*ST(1)
+ DO 100 I=1,M
+ XI=ID(I)
+ aa = eptr__(h ,xi,xs(i))
+ bb = eptr__(h0,xi,xs(i))
+100 SUM=SUM+(ST(I+1)-ST(I))*(AA-BB)*XI
+ IF(ABS(SUM).LT.ARGMAX) then
+ SM=EXP(SUM)
+ else IF(SUM.Gt.0.0) then
+ SM=EXP(ARGMAX)
+ else
+ SM=0.0
+ endif
+ RPID__= n0 * SM
+ RETURN
+ END
+C
+c
+ SUBROUTINE RDHHE__ (H,HB,RDOH,RDO2H,RNO,PEHE,RDH,RDHE)
+C BILITZA,FEB.82,H+ AND HE+ RELATIVE PERECENTAGE DENSITY BELOW
+C 1000 KM. THE O+ AND O2+ REL. PER. DENSITIES SHOULD BE GIVEN
+C (RDOH,RDO2H). HB IS THE ALTITUDE OF MAXIMAL O+ DENSITY. PEHE
+C IS THE PRECENTAGE OF HE+ IONS COMPARED TO ALL LIGHT IONS.
+C RNO IS THE RATIO OF NO+ TO O2+DENSITY AT H=HB.
+ RDHE=0.0
+ RDH=0.0
+ IF(H.LE.HB) GOTO 100
+ REST=100.0-RDOH-RDO2H-RNO*RDO2H
+ RDH=REST*(1.-PEHE/100.)
+ RDHE=REST*PEHE/100.
+100 RETURN
+ END
+C
+C
+ REAL FUNCTION RDNO__(H,HB,RDO2H,RDOH,RNO)
+C D.BILITZA, 1978. NO+ RELATIVE PERCENTAGE DENSITY ABOVE 100KM.
+C FOR MORE INFORMATION SEE SUBROUTINE RDHHE.
+ IF (H.GT.HB) GOTO 200
+ RDNO__=100.0-RDO2H-RDOH
+ RETURN
+200 RDNO__=RNO*RDO2H
+ RETURN
+ END
+C
+C
+ SUBROUTINE KOEFP1__(PG1O)
+C THIEMANN,1979,COEFFICIENTS PG1O FOR CALCULATING O+ PROFILES
+C BELOW THE F2-MAXIMUM. CHOSEN TO APPROACH DANILOV-
+C SEMENOV'S COMPILATION.
+ DIMENSION PG1O(80)
+ REAL FELD (80)
+ DATA FELD/-11.0,-11.0,4.0,-11.0,0.08018,
+ &0.13027,0.04216,0.25 ,-0.00686,0.00999,
+ &5.113,0.1 ,170.0,180.0,0.1175,0.15,-11.0,
+ &1.0 ,2.0,-11.0,0.069,0.161,0.254,0.18,0.0161,
+ &0.0216,0.03014,0.1,152.0,167.0,0.04916,
+ &0.17,-11.0,2.0,2.0,-11.0,0.072,0.092,0.014,0.21,
+ &0.01389,0.03863,0.05762,0.12,165.0,168.0,0.008,
+ &0.258,-11.0,1.0,3.0,-11.0,0.091,0.088,
+ &0.008,0.34,0.0067,0.0195,0.04,0.1,158.0,172.0,
+ &0.01,0.24,-11.0,2.0,3.0, -11.0,0.083,0.102,
+ &0.045,0.03,0.00127,0.01,0.05,0.09,167.0,185.0,
+ &0.015,0.18/
+ K=0
+ DO 10 I=1,80
+ K=K+1
+10 PG1O(K)=FELD(I)
+ RETURN
+ END
+C
+C
+ SUBROUTINE KOEFP2__(PG2O)
+C THIEMANN,1979,COEFFICIENTS FOR CALCULATION OF O+ PROFILES
+C ABOVE THE F2-MAXIMUM (DUMBS,SPENNER:AEROS-COMPILATION)
+ DIMENSION PG2O(32)
+ REAL FELD(32)
+ DATA FELD/1.0,-11.0,-11.0,1.0,695.0,-.000781,
+ &-.00264,2177.0,1.0,-11.0,-11.0,2.0,570.0,
+ &-.002,-.0052,1040.0,2.0,-11.0,-11.0,1.0,695.0,
+ &-.000786,-.00165,3367.0,2.0,-11.0,-11.0,2.0,
+ &575.0,-.00126,-.00524,1380.0/
+ K=0
+ DO 10 I=1,32
+ K=K+1
+10 PG2O(K)=FELD(I)
+ RETURN
+ END
+C
+C
+ SUBROUTINE KOEFP3__(PG3O)
+C THIEMANN,1979,COEFFICIENTS FOR CALCULATING O2+ PROFILES.
+C CHOSEN AS TO APPROACH DANILOV-SEMENOV'S COMPILATION.
+ DIMENSION PG3O(80)
+ REAL FELD(80)
+ DATA FELD/-11.0,1.0,2.0,-11.0,160.0,31.0,130.0,
+ &-10.0,198.0,0.0,0.05922,-0.07983,
+ &-0.00397,0.00085,-0.00313,0.0,-11.0,2.0,2.0,-11.0,
+ &140.0,30.0,130.0,-10.0,
+ &190.0,0.0,0.05107,-0.07964,0.00097,-0.01118,-0.02614,
+ &-0.09537,
+ &-11.0,1.0,3.0,-11.0,140.0,37.0,125.0,0.0,182.0,
+ &0.0,0.0307,-0.04968,-0.00248,
+ &-0.02451,-0.00313,0.0,-11.0,2.0,3.0,-11.0,
+ &140.0,37.0,125.0,0.0,170.0,0.0,
+ &0.02806,-0.04716,0.00066,-0.02763,-0.02247,-0.01919,
+ &-11.0,-11.0,4.0,-11.0,140.0,45.0,136.0,-9.0,
+ &181.0,-26.0,0.02994,-0.04879,
+ &-0.01396,0.00089,-0.09929,0.05589/
+ K=0
+ DO 10 I=1,80
+ K=K+1
+10 PG3O(K)=FELD(I)
+ RETURN
+ END
+C
+C
+ SUBROUTINE SUFE__ (FIELD,RFE,M,FE)
+C SELECTS THE REQUIRED ION DENSITY PARAMETER SET.
+C THE INPUT FIELD INCLUDES DIFFERENT SETS OF DIMENSION M EACH
+C CARACTERISED BY 4 HEADER NUMBERS. RFE(4) SHOULD CONTAIN THE
+C CHOSEN HEADER NUMBERS.FE(M) IS THE CORRESPONDING SET.
+ DIMENSION RFE(4),FE(12),FIELD(80),EFE(4)
+ K=0
+100 DO 101 I=1,4
+ K=K+1
+101 EFE(I)=FIELD(K)
+ DO 111 I=1,M
+ K=K+1
+111 FE(I)=FIELD(K)
+ DO 120 I=1,4
+ IF((EFE(I).GT.-10.0).AND.(RFE(I).NE.EFE(I))) GOTO 100
+120 CONTINUE
+ RETURN
+ END
+C
+C
+C*************************************************************
+C************* PEAK VALUES ELECTRON DENSITY ******************
+C*************************************************************
+C
+C
+ SUBROUTINE F2OUT__(XMODIP,XLATI,XLONGI,FF0,XM0,UT,
+ & FOF2,XM3000)
+C CALCULATES FOF2/MHZ AND M3000 USING THE CCIR-MAPS.
+C INPUT: MODIFIED DIP LATITUDE XMODIP, GEOG. LATITUDE XLATI,
+C LONGITUDE XLONGI (ALL IN DEG.), SMOOTHED SUNSPOT NUMBER R,
+C MONTH AND UNIVERSAL TIME UT (DEC. HOURS).
+C D.BILITZA,JULY 85.
+ DIMENSION FF0(988),XM0(441)
+ INTEGER QM(7),QF(9)
+ DATA QF/11,11,8,4,1,0,0,0,0/,QM/6,7,5,2,1,0,0/
+ FOF2=GAMMA1__(XMODIP,XLATI,XLONGI,UT,6,QF,9,76,13,988,FF0)
+ XM3000=GAMMA1__(XMODIP,XLATI,XLONGI,UT,4,QM,7,49,9,441,XM0)
+ RETURN
+ END
+C
+C
+ REAL FUNCTION HMF2ED__(XMAGBR,R,X,XM3)
+C CALCULATES THE PEAK HEIGHT HMF2/KM FOR THE MAGNETIC
+C LATITUDE XMAGBR/DEG. AND THE SMOOTHED ZUERICH SUNSPOT
+C NUMBER R USING CCIR-M3000 XM3 AND THE RATIO X=FOF2/FOE.
+C [REF. D.BILITZA ET AL., TELECOMM.J., 46, 549-553, 1979]
+C D.BILITZA,1980.
+ F1=(2.32E-3)*R+0.222
+ F2=1.2-(1.16E-2)*EXP((2.39E-2)*R)
+ F3=0.096*(R-25.0)/150.0
+ DELM=F1*(1.0-R/150.0*EXP(-XMAGBR*XMAGBR/1600.0))/(X-F2)+F3
+ HMF2ED__=1490.0/(XM3+DELM)-176.0
+ RETURN
+ END
+C
+C
+ REAL FUNCTION FOF1ED__(YLATI,R,CHI)
+c--------------------------------------------------------------
+C CALCULATES THE F1 PEAK PLASMA FREQUENCY (FOF1/MHZ)
+C FOR DIP-LATITUDE (YLATI/DEGREE)
+c SMOOTHED ZURICH SUNSPOT NUMBER (R)
+c SOLAR ZENITH ANGLE (CHI/DEGREE)
+C REFERENCE:
+c E.D.DUCHARME ET AL., RADIO SCIENCE 6, 369-378, 1971
+C AND 8, 837-839, 1973
+c HOWEVER WITH MAGNETIC DIP LATITUDE INSTEAD OF GEOMAGNETIC
+c DIPOLE LATITUDE, EYFRIG, 1979
+C--------------------------------------------- D. BILITZA, 1988.
+ COMMON/CONST/UMR
+ FOF1 = 0.0
+ DLA = YLATI
+ CHI0 = 49.84733 + 0.349504 * DLA
+ CHI100 = 38.96113 + 0.509932 * DLA
+ CHIM = ( CHI0 + ( CHI100 - CHI0 ) * R / 100. )
+ IF(CHI.GT.CHIM) GOTO 1
+ F0 = 4.35 + DLA * ( 0.0058 - 1.2E-4 * DLA )
+ F100 = 5.348 + DLA * ( 0.011 - 2.3E-4 * DLA )
+ FS = F0 + ( F100 - F0 ) * R / 100.0
+ XMUE = 0.093 + DLA * ( 0.0046 - 5.4E-5 * DLA ) + 3.0E-4 * R
+ FOF1 = FS * COS( CHI * UMR ) ** XMUE
+1 FOF1ED__ = FOF1
+ RETURN
+ END
+C
+C
+ REAL FUNCTION FOEEDI__(COV,XHI,XHIM,XLATI)
+C-------------------------------------------------------
+C CALCULATES FOE/MHZ BY THE EDINBURGH-METHOD.
+C INPUT: MEAN 10.7CM SOLAR RADIO FLUX (COV), GEOGRAPHIC
+C LATITUDE (XLATI/DEG), SOLAR ZENITH ANGLE (XHI/DEG AND
+C XHIM/DEG AT NOON).
+C REFERENCE:
+C KOURIS-MUGGELETON, CCIR DOC. 6/3/07, 1973
+C TROST, J. GEOPHYS. RES. 84, 2736, 1979 (was used
+C to improve the nighttime varition)
+C D.BILITZA--------------------------------- AUGUST 1986.
+ COMMON/CONST/UMR
+C variation with solar activity (factor A) ...............
+ A=1.0+0.0094*(COV-66.0)
+C variation with noon solar zenith angle (B) and with latitude (C)
+ SL=COS(XLATI*UMR)
+ IF(XLATI.LT.32.0) THEN
+ SM=-1.93+1.92*SL
+ C=23.0+116.0*SL
+ ELSE
+ SM=0.11-0.49*SL
+ C=92.0+35.0*SL
+ ENDIF
+ if(XHIM.ge.90.) XHIM=89.999
+ B = COS(XHIM*UMR) ** SM
+C variation with solar zenith angle (D) ..........................
+ IF(XLATI.GT.12.0) THEN
+ SP=1.2
+ ELSE
+ SP=1.31
+ ENDIF
+C adjusted solar zenith angle during nighttime (XHIC) .............
+ XHIC=XHI-3.*ALOG(1.+EXP((XHI-89.98)/3.))
+ D=COS(XHIC*UMR)**SP
+C determine foE**4 ................................................
+ R4FOE=A*B*C*D
+C minimum allowable foE (sqrt[SMIN])...............................
+ SMIN=0.121+0.0015*(COV-60.)
+ SMIN=SMIN*SMIN
+ IF(R4FOE.LT.SMIN) R4FOE=SMIN
+ FOEEDI__=R4FOE**0.25
+ RETURN
+ END
+C
+C
+ REAL FUNCTION XMDED__(XHI,R,YW)
+C D. BILITZA, 1978, CALCULATES ELECTRON DENSITY OF D MAXIMUM.
+C XHI/DEG. IS SOLAR ZENITH ANGLE, R SMOOTHED ZURICH SUNSPOT NUMBER
+C AND YW/M-3 THE ASSUMED CONSTANT NIGHT VALUE.
+C [REF.: D.BILITZA, WORLD DATA CENTER A REPORT UAG-82,7,
+C BOULDER,1981]
+ COMMON/CONST/UMR
+ Y=6.05E8+0.088E8*R
+ Z=(-0.1/(ALOG(YW/Y)))**0.3704
+ if(abs(z).gt.1.) z=sign(1.,z)
+ SUXHI=ACOS(Z)
+ IF (SUXHI.LT.1.0472) SUXHI=1.0472
+ XXHI=XHI*UMR
+ IF (XXHI.GT.SUXHI) GOTO 100
+ X=COS(XXHI)
+ XMDED__=Y*EXP(-0.1/X**2.7)
+ RETURN
+100 XMDED__=YW
+ RETURN
+ END
+C
+C
+ REAL FUNCTION GAMMA1__(SMODIP,SLAT,SLONG,HOUR,IHARM,NQ,
+ & K1,M,MM,M3,SFE)
+C CALCULATES GAMMA1=FOF2 OR M3000 USING CCIR NUMERICAL MAP
+C COEFFICIENTS SFE(M3) FOR MODIFIED DIP LATITUDE (SMODIP/DEG)
+C GEOGRAPHIC LATITUDE (SLAT/DEG) AND LONGITUDE (SLONG/DEG)
+C AND UNIVERSIAL TIME (HOUR/DECIMAL HOURS).
+C NQ(K1) IS AN INTEGER ARRAY GIVING THE HIGHEST DEGREES IN
+C LATITUDE FOR EACH LONGITUDE HARMONIC.
+C M=1+NQ1+2(NQ2+1)+2(NQ3+1)+... .
+C SHEIKH,4.3.77.
+ REAL*8 C(12),S(12),COEF(100),SUM
+ DIMENSION NQ(K1),XSINX(13),SFE(M3)
+ COMMON/CONST/UMR
+ HOU=(15.0*HOUR-180.0)*UMR
+ S(1)=SIN(HOU)
+ C(1)=COS(HOU)
+ DO 250 I=2,IHARM
+ C(I)=C(1)*C(I-1)-S(1)*S(I-1)
+ S(I)=C(1)*S(I-1)+S(1)*C(I-1)
+250 CONTINUE
+ DO 300 I=1,M
+ MI=(I-1)*MM
+ COEF(I)=SFE(MI+1)
+ DO 300 J=1,IHARM
+ COEF(I)=COEF(I)+SFE(MI+2*J)*S(J)+SFE(MI+2*J+1)*C(J)
+300 CONTINUE
+ SUM=COEF(1)
+ SS=SIN(SMODIP*UMR)
+ S3=SS
+ XSINX(1)=1.0
+ INDEX=NQ(1)
+ DO 350 J=1,INDEX
+ SUM=SUM+COEF(1+J)*SS
+ XSINX(J+1)=SS
+ SS=SS*S3
+350 CONTINUE
+ XSINX(NQ(1)+2)=SS
+ NP=NQ(1)+1
+ SS=COS(SLAT*UMR)
+ S3=SS
+ DO 400 J=2,K1
+ S0=SLONG*(J-1.)*UMR
+ S1=COS(S0)
+ S2=SIN(S0)
+ INDEX=NQ(J)+1
+ DO 450 L=1,INDEX
+ NP=NP+1
+ SUM=SUM+COEF(NP)*XSINX(L)*SS*S1
+ NP=NP+1
+ SUM=SUM+COEF(NP)*XSINX(L)*SS*S2
+450 CONTINUE
+ SS=SS*S3
+400 CONTINUE
+ GAMMA1__=SUM
+ RETURN
+ END
+C
+C
+C************************************************************
+C*************** EARTH MAGNETIC FIELD ***********************
+C**************************************************************
+C
+C
+ SUBROUTINE GGM__(ART,LONG,LATI,MLONG,MLAT)
+C CALCULATES GEOMAGNETIC LONGITUDE (MLONG) AND LATITUDE (MLAT)
+C FROM GEOGRAFIC LONGITUDE (LONG) AND LATITUDE (LATI) FOR ART=0
+C AND REVERSE FOR ART=1. ALL ANGLES IN DEGREE.
+C LATITUDE:-90 TO 90. LONGITUDE:0 TO 360 EAST.
+ INTEGER ART
+ REAL MLONG,MLAT,LONG,LATI
+ COMMON/CONST/FAKTOR
+ ZPI=FAKTOR*360.
+ CBG=11.4*FAKTOR
+ CI=COS(CBG)
+ SI=SIN(CBG)
+ IF(ART.EQ.0) GOTO 10
+ CBM=COS(MLAT*FAKTOR)
+ SBM=SIN(MLAT*FAKTOR)
+ CLM=COS(MLONG*FAKTOR)
+ SLM=SIN(MLONG*FAKTOR)
+ SBG=SBM*CI-CBM*CLM*SI
+ IF(ABS(SBG).GT.1.) SBG=SIGN(1.,SBG)
+ LATI=ASIN(SBG)
+ CBG=COS(LATI)
+ SLG=(CBM*SLM)/CBG
+ CLG=(SBM*SI+CBM*CLM*CI)/CBG
+ IF(ABS(CLG).GT.1.) CLG=SIGN(1.,CLG)
+ LONG=ACOS(CLG)
+ IF(SLG.LT.0.0) LONG=ZPI-LONG
+ LATI=LATI/FAKTOR
+ LONG=LONG/FAKTOR
+ LONG=LONG-69.8
+ IF(LONG.LT.0.0) LONG=LONG+360.0
+ RETURN
+10 YLG=LONG+69.8
+ CBG=COS(LATI*FAKTOR)
+ SBG=SIN(LATI*FAKTOR)
+ CLG=COS(YLG*FAKTOR)
+ SLG=SIN(YLG*FAKTOR)
+ SBM=SBG*CI+CBG*CLG*SI
+ IF(ABS(SBM).GT.1.) SBM=SIGN(1.,SBM)
+ MLAT=ASIN(SBM)
+ CBM=COS(MLAT)
+ SLM=(CBG*SLG)/CBM
+ CLM=(-SBG*SI+CBG*CLG*CI)/CBM
+ IF(ABS(CLM).GT.1.) CLM=SIGN(1.,CLM)
+ MLONG=ACOS(CLM)
+ IF(SLM.LT..0) MLONG=ZPI-MLONG
+ MLAT=MLAT/FAKTOR
+ MLONG=MLONG/FAKTOR
+ RETURN
+ END
+C
+C
+ SUBROUTINE FIELDG__(DLAT,DLONG,ALT,X,Y,Z,F,DIP,DEC,SMODIP)
+C THIS IS A SPECIAL VERSION OF THE POGO 68/10 MAGNETIC FIELD
+C LEGENDRE MODEL. TRANSFORMATION COEFF. G(144) VALID FOR 1973.
+C INPUT: DLAT, DLONG=GEOGRAPHIC COORDINATES/DEG.(-90/90,0/360),
+C ALT=ALTITUDE/KM.
+C OUTPUT: F TOTAL FIELD (GAUSS), Z DOWNWARD VERTICAL COMPONENT
+C X,Y COMPONENTS IN THE EQUATORIAL PLANE (X TO ZERO LONGITUDE).
+C DIP INCLINATION ANGLE(DEGREE). SMODIP RAWER'S MODFIED DIP.
+C SHEIK,1977.
+ DIMENSION H(144),XI(3),G(144),FEL1(72),FEL2(72)
+ COMMON/CONST/UMR
+ DATA FEL1/0.0, 0.1506723,0.0101742, -0.0286519, 0.0092606,
+ & -0.0130846, 0.0089594, -0.0136808,-0.0001508, -0.0093977,
+ & 0.0130650, 0.0020520, -0.0121956, -0.0023451, -0.0208555,
+ & 0.0068416,-0.0142659, -0.0093322, -0.0021364, -0.0078910,
+ & 0.0045586, 0.0128904, -0.0002951, -0.0237245,0.0289493,
+ & 0.0074605, -0.0105741, -0.0005116, -0.0105732, -0.0058542,
+ &0.0033268, 0.0078164,0.0211234, 0.0099309, 0.0362792,
+ &-0.0201070,-0.0046350,-0.0058722,0.0011147,-0.0013949,
+ & -0.0108838, 0.0322263, -0.0147390, 0.0031247, 0.0111986,
+ & -0.0109394,0.0058112, 0.2739046, -0.0155682, -0.0253272,
+ & 0.0163782, 0.0205730, 0.0022081, 0.0112749,-0.0098427,
+ & 0.0072705, 0.0195189, -0.0081132, -0.0071889, -0.0579970,
+ & -0.0856642, 0.1884260,-0.7391512, 0.1210288, -0.0241888,
+ & -0.0052464, -0.0096312, -0.0044834, 0.0201764, 0.0258343,
+ &0.0083033, 0.0077187/
+ DATA FEL2/0.0586055,0.0102236,-0.0396107,
+ & -0.0167860, -0.2019911, -0.5810815,0.0379916, 3.7508268,
+ & 1.8133030, -0.0564250, -0.0557352, 0.1335347, -0.0142641,
+ & -0.1024618,0.0970994, -0.0751830,-0.1274948, 0.0402073,
+ & 0.0386290, 0.1883088, 0.1838960, -0.7848989,0.7591817,
+ & -0.9302389,-0.8560960, 0.6633250, -4.6363869, -13.2599277,
+ & 0.1002136, 0.0855714,-0.0991981, -0.0765378,-0.0455264,
+ & 0.1169326, -0.2604067, 0.1800076, -0.2223685, -0.6347679,
+ &0.5334222, -0.3459502,-0.1573697, 0.8589464, 1.7815990,
+ &-6.3347645, -3.1513653, -9.9927750,13.3327637, -35.4897308,
+ &37.3466339, -0.5257398, 0.0571474, -0.5421217, 0.2404770,
+ & -0.1747774,-0.3433644, 0.4829708,0.3935944, 0.4885033,
+ & 0.8488121, -0.7640999, -1.8884945, 3.2930784,-7.3497229,
+ & 0.1672821,-0.2306652, 10.5782146, 12.6031065, 8.6579742,
+ & 215.5209961, -27.1419220,22.3405762,1108.6394043/
+ K=0
+ DO 10 I=1,72
+ K=K+1
+ G(K)=FEL1(I)
+10 G(72+K)=FEL2(I)
+ RLAT=DLAT*UMR
+ CT=SIN(RLAT)
+ ST=COS(RLAT)
+ NMAX=11
+ D=SQRT(40680925.0-272336.0*CT*CT)
+ RLONG=DLONG*UMR
+ CP=COS(RLONG)
+ SP=SIN(RLONG)
+ ZZZ=(ALT+40408589.0/D)*CT/6371.2
+ RHO=(ALT+40680925.0/D)*ST/6371.2
+ XXX=RHO*CP
+ YYY=RHO*SP
+ RQ=1.0/(XXX*XXX+YYY*YYY+ZZZ*ZZZ)
+ XI(1)=XXX*RQ
+ XI(2)=YYY*RQ
+ XI(3)=ZZZ*RQ
+ IHMAX=NMAX*NMAX+1
+ LAST=IHMAX+NMAX+NMAX
+ IMAX=NMAX+NMAX-1
+ DO 100 I=IHMAX,LAST
+100 H(I)=G(I)
+ DO 200 K=1,3,2
+ I=IMAX
+ IH=IHMAX
+300 IL=IH-I
+ F1=2./(I-K+2.)
+ X1=XI(1)*F1
+ Y1=XI(2)*F1
+ Z1=XI(3)*(F1+F1)
+ I=I-2
+ IF((I-1).LT.0) GOTO 400
+ IF((I-1).EQ.0) GOTO 500
+ DO 600 M=3,I,2
+ H(IL+M+1)=G(IL+M+1)+Z1*H(IH+M+1)+X1*(H(IH+M+3)-H(IH+M-1))-
+ &Y1*(H(IH+M+2)+H(IH+M-2))
+ H(IL+M)=G(IL+M)+Z1*H(IH+M)+X1*(H(IH+M+2)-H(IH+M-2))+
+ &Y1*(H(IH+M+3)+H(IH+M-1))
+600 CONTINUE
+500 H(IL+2)=G(IL+2)+Z1*H(IH+2)+X1*H(IH+4)-Y1*(H(IH+3)+H(IH))
+ H(IL+1)=G(IL+1)+Z1*H(IH+1)+Y1*H(IH+4)+X1*(H(IH+3)-H(IH))
+400 H(IL)=G(IL)+Z1*H(IH)+2.0*(X1*H(IH+1)+Y1*H(IH+2))
+700 IH=IL
+ IF(I.GE.K) GOTO 300
+200 CONTINUE
+ S=0.5*H(1)+2.0*(H(2)*XI(3)+H(3)*XI(1)+H(4)*XI(2))
+ XT=(RQ+RQ)*SQRT(RQ)
+ X=XT*(H(3)-S*XXX)
+ Y=XT*(H(4)-S*YYY)
+ Z=XT*(H(2)-S*ZZZ)
+ F=SQRT(X*X+Y*Y+Z*Z)
+ BRH0=Y*SP+X*CP
+ Y=Y*CP-X*SP
+ X=Z*ST-BRH0*CT
+ Z=-Z*CT-BRH0*ST
+ zdivf=z/f
+ IF(ABS(zdivf).GT.1.) zdivf=SIGN(1.,zdivf)
+ DIP=ASIN(zdivf)
+ ydivs=y/sqrt(x*x+y*y)
+ IF(ABS(ydivs).GT.1.) ydivs=SIGN(1.,ydivs)
+ DEC=ASIN(ydivs)
+ dipdiv=DIP/SQRT(DIP*DIP+ST)
+ IF(ABS(dipdiv).GT.1.) dipdiv=SIGN(1.,dipdiv)
+ SMODIP=ASIN(dipdiv)
+ DIP=DIP/UMR
+ DEC=DEC/UMR
+ SMODIP=SMODIP/UMR
+ RETURN
+ END
+C
+C
+C************************************************************
+C*********** INTERPOLATION AND REST ***************************
+C**************************************************************
+C
+C
+ SUBROUTINE REGFA1__(X11,X22,FX11,FX22,EPS,FW,F,SCHALT,X)
+C REGULA-FALSI-PROCEDURE TO FIND X WITH F(X)-FW=0. X1,X2 ARE THE
+C STARTING VALUES. THE COMUTATION ENDS WHEN THE X-INTERVAL
+C HAS BECOME LESS THAN EPS . IF SIGN(F(X1)-FW)= SIGN(F(X2)-FW)
+C THEN SCHALT=.TRUE.
+ LOGICAL L1,LINKS,K,SCHALT
+ SCHALT=.FALSE.
+ EP=EPS
+ X1=X11
+ X2=X22
+ F1=FX11-FW
+ F2=FX22-FW
+ K=.FALSE.
+ NG=2
+ LFD=0
+ IF(F1*F2.LE.0.0) GOTO 200
+ X=0.0
+ SCHALT=.TRUE.
+ RETURN
+200 X=(X1*F2-X2*F1)/(F2-F1)
+ GOTO 400
+300 L1=LINKS
+ DX=(X2-X1)/NG
+ IF(.NOT.LINKS) DX=DX*(NG-1)
+ X=X1+DX
+400 FX=F(X)-FW
+ LFD=LFD+1
+ IF(LFD.GT.20) THEN
+ EP=EP*10.
+ LFD=0
+ ENDIF
+ LINKS=(F1*FX.GT.0.0)
+ K=.NOT.K
+ IF(LINKS) THEN
+ X1=X
+ F1=FX
+ ELSE
+ X2=X
+ F2=FX
+ ENDIF
+ IF(ABS(X2-X1).LE.EP) GOTO 800
+ IF(K) GOTO 300
+ IF((LINKS.AND.(.NOT.L1)).OR.(.NOT.LINKS.AND.L1)) NG=2*NG
+ GOTO 200
+800 RETURN
+ END
+C
+C
+ SUBROUTINE TAL__(SHABR,SDELTA,SHBR,SDTDH0,AUS6,SPT)
+C CALCULATES THE COEFFICIENTS SPT FOR THE POLYNOMIAL
+C Y(X)=1+SPT(1)*X**2+SPT(2)*X**3+SPT(3)*X**4+SPT(4)*X**5
+C TO FIT THE VALLEY IN Y, REPRESENTED BY:
+C Y(X=0)=1, THE X VALUE OF THE DEEPEST VALLEY POINT (SHABR),
+C THE PRECENTAGE DEPTH (SDELTA), THE WIDTH (SHBR) AND THE
+C DERIVATIVE DY/DX AT THE UPPER VALLEY BOUNDRY (SDTDH0).
+C IF THERE IS AN UNWANTED ADDITIONAL EXTREMUM IN THE VALLEY
+C REGION, THEN AUS6=.TRUE., ELSE AUS6=.FALSE..
+C FOR -SDELTA THE COEFF. ARE CALCULATED FOR THE FUNCTION
+C Y(X)=EXP(SPT(1)*X**2+...+SPT(4)*X**5).
+ DIMENSION SPT(4)
+ LOGICAL AUS6
+ Z1=-SDELTA/(100.0*SHABR*SHABR)
+ IF(SDELTA.GT.0.) GOTO 500
+ SDELTA=-SDELTA
+ Z1=ALOG(1.-SDELTA/100.)/(SHABR*SHABR)
+500 Z3=SDTDH0/(2.*SHBR)
+ Z4=SHABR-SHBR
+ SPT(4)=2.0*(Z1*(SHBR-2.0*SHABR)*SHBR+Z3*Z4*SHABR)/
+ & (SHABR*SHBR*Z4*Z4*Z4)
+ SPT(3)=Z1*(2.0*SHBR-3.0*SHABR)/(SHABR*Z4*Z4)-
+ & (2.*SHABR+SHBR)*SPT(4)
+ SPT(2)=-2.0*Z1/SHABR-2.0*SHABR*SPT(3)-3.0*SHABR*SHABR*SPT(4)
+ SPT(1)=Z1-SHABR*(SPT(2)+SHABR*(SPT(3)+SHABR*SPT(4)))
+ AUS6=.FALSE.
+ B=4.*SPT(3)/(5.*SPT(4))+SHABR
+ C=-2.*SPT(1)/(5*SPT(4)*SHABR)
+ Z2=B*B/4.-C
+ IF(Z2.LT.0.0) GOTO 300
+ Z3=SQRT(Z2)
+ Z1=B/2.
+ Z2=-Z1+Z3
+ IF(Z2.GT.0.0.AND.Z2.LT.SHBR) AUS6=.TRUE.
+ IF (ABS(Z3).GT.1.E-15) GOTO 400
+ Z2=C/Z2
+ IF(Z2.GT.0.0.AND.Z2.LT.SHBR) AUS6=.TRUE.
+ RETURN
+400 Z2=-Z1-Z3
+ IF(Z2.GT.0.0.AND.Z2.LT.SHBR) AUS6=.TRUE.
+300 RETURN
+ END
+C
+C
+C******************************************************************
+C********** ZENITH ANGLE, DAY OF YEAR, TIME ***********************
+C******************************************************************
+C
+C
+ subroutine soco__ (ld,t,flat,Elon,
+ & DECLIN, ZENITH, SUNRSE, SUNSET)
+c--------------------------------------------------------------------
+c s/r to calculate the solar declination, zenith angle, and
+c sunrise & sunset times - based on Newbern Smith's algorithm
+c [leo mcnamara, 1-sep-86, last modified 16-jun-87]
+c {dieter bilitza, 30-oct-89, modified for IRI application}
+c
+c in: ld local day of year
+c t local hour (decimal)
+c flat northern latitude in degrees
+c elon east longitude in degrees
+c
+c out: declin declination of the sun in degrees
+c zenith zenith angle of the sun in degrees
+c sunrse local time of sunrise in hours
+c sunset local time of sunset in hours
+c-------------------------------------------------------------------
+c
+ common/const/ dtr
+c amplitudes of Fourier coefficients -- 1955 epoch.................
+ data p1,p2,p3,p4,p6 /
+ & 0.017203534,0.034407068,0.051610602,0.068814136,0.103221204 /
+c
+c s/r is formulated in terms of WEST longitude.......................
+ wlon = 360. - Elon
+c
+c time of equinox for 1980...........................................
+ td = ld + (t + Wlon/15.) / 24.
+ te = td + 0.9369
+c
+c declination of the sun..............................................
+ dcl = 23.256 * sin(p1*(te-82.242)) + 0.381 * sin(p2*(te-44.855))
+ & + 0.167 * sin(p3*(te-23.355)) - 0.013 * sin(p4*(te+11.97))
+ & + 0.011 * sin(p6*(te-10.41)) + 0.339137
+ DECLIN = dcl
+ dc = dcl * dtr
+c
+c the equation of time................................................
+ tf = te - 0.5
+ eqt = -7.38*sin(p1*(tf-4.)) - 9.87*sin(p2*(tf+9.))
+ & + 0.27*sin(p3*(tf-53.)) - 0.2*cos(p4*(tf-17.))
+ et = eqt * dtr / 4.
+c
+ fa = flat * dtr
+ phi = 0.26179939 * ( t - 12.) + et
+c
+ a = sin(fa) * sin(dc)
+ b = cos(fa) * cos(dc)
+ cosx = a + b * cos(phi)
+ if(abs(cosx).gt.1.) cosx=sign(1.,cosx)
+ zenith = acos(cosx) / dtr
+c
+c calculate sunrise and sunset times -- at the ground...........
+c see Explanatory Supplement to the Ephemeris (1961) pg 401......
+c sunrise at height h metres is at...............................
+c chi(h) = 90.83 + 0.0347 * sqrt(h)........................
+c this includes corrections for horizontal refraction and........
+c semi-diameter of the solar disk................................
+ ch = cos(90.83 * dtr)
+ cosphi = (ch -a ) / b
+c if abs(secphi) > 1., sun does not rise/set.....................
+c allow for sun never setting - high latitude summer.............
+ secphi = 999999.
+ if(cosphi.ne.0.) secphi = 1./cosphi
+ sunset = 99.
+ sunrse = 99.
+ if(secphi.gt.-1.0.and.secphi.le.0.) return
+c allow for sun never rising - high latitude winter..............
+ sunset = -99.
+ sunrse = -99.
+ if(secphi.gt.0.0.and.secphi.lt.1.) return
+c
+ if(cosphi.gt.1.) cosphi=sign(1.,cosphi)
+ phi = acos(cosphi)
+ et = et / 0.26179939
+ phi = phi / 0.26179939
+ sunrse = 12. - phi - et
+ sunset = 12. + phi - et
+ if(sunrse.lt.0.) sunrse = sunrse + 24.
+ if(sunset.ge.24.) sunset = sunset - 24.
+c
+ return
+ end
+c
+C
+ FUNCTION HPOL__(HOUR,TW,XNW,SA,SU,DSA,DSU)
+C-------------------------------------------------------
+C PROCEDURE FOR SMOOTH TIME-INTERPOLATION USING EPSTEIN
+C STEP FUNCTION AT SUNRISE (SA) AND SUNSET (SU). THE
+C STEP-WIDTH FOR SUNRISE IS DSA AND FOR SUNSET DSU.
+C TW,NW ARE THE DAY AND NIGHT VALUE OF THE PARAMETER TO
+C BE INTERPOLATED. SA AND SU ARE TIME OF SUNRIES AND
+C SUNSET IN DECIMAL HOURS.
+C BILITZA----------------------------------------- 1979.
+ IF(ABS(SU).GT.25.) THEN
+ IF(SU.GT.0.0) THEN
+ HPOL__=TW
+ ELSE
+ HPOL__=XNW
+ ENDIF
+ RETURN
+ ENDIF
+ HPOL__=XNW+(TW-XNW)*EPST__(HOUR,DSA,SA)+
+ & (XNW-TW)*EPST__(HOUR,DSU,SU)
+ RETURN
+ END
+C
+C
+ SUBROUTINE MODA__(IN,MONTH,IDAY,IDOY)
+C-------------------------------------------------------------------
+C CALCULATES DAY OF YEAR (IDOY) FROM MONTH (MONTH) AND DAY (IDAY)
+C IF IN=0, OR MONTH (MONTH) AND DAY (IDAY) FROM DAY OF
+C YEAR (IDOY), IF IN=1.
+C-------------------------------------------------------------------
+ DIMENSION MO(12)
+ DATA MO/0,31,59,90,120,151,181,212,243,273,304,334/
+ IMO=0
+ MOBE=0
+ IF(IN.GT.0) GOTO 5
+ IDOY=MO(MONTH)+IDAY
+ RETURN
+5 IMO=IMO+1
+ MOOLD=MOBE
+ IF(IMO.GT.12) GOTO 55
+ MOBE=MO(IMO)
+ IF(MOBE.LT.IDOY) GOTO 5
+55 MONTH=IMO-1
+ IDAY=IDOY-MOOLD
+ RETURN
+ END
+c
+C
+ REAL FUNCTION B0POL ( HOUR, SAX, SUX, ISEASON, R, DELA)
+C-----------------------------------------------------------------
+C Interpolation procedure for bottomside thickness parameter B0.
+C Array B0F(ILT,ISEASON,IR,ILATI) distinguishes between day and
+C night (ILT=1,2), four seasons (ISEASON=1 spring), low and high
+C solar activity (IR=1,2), and low and middle modified dip
+C latitudes (ILATI=1,2). In the DATA statement the first value
+C corresponds to B0F(1,1,1,1), the second to B0F(2,1,1,1), the
+C third to B0F(1,2,1,1) and so on.
+C JUNE 1989 --------------------------------------- Dieter Bilitza
+C
+ REAL NITVAL
+ DIMENSION B0F(2,4,2,2),SIPH(2),SIPL(2)
+ DATA B0F/114.,64.0,134.,77.0,128.,66.0,75.,73.0,
+ & 113.,115.,150.,116.,138.,123.,94.,132.,
+ & 72.0,84.0,83.0,89.0,75.0,85.0,57.,76.0,
+ & 102.,100.,120.,110.,107.,103.,76.,86.0/
+
+ DO 7033 ISR=1,2
+ DO 7034 ISL=1,2
+ DAYVAL = B0F(1,ISEASON,ISR,ISL)
+ NITVAL = B0F(2,ISEASON,ISR,ISL)
+
+C Interpolation day/night with transitions at SAX (sunrise) and SUX (sunset)
+7034 SIPH(ISL) = HPOL__(HOUR,DAYVAL,NITVAL,
+ & SAX,SUX,1.,1.)
+
+C Interpolation low/middle modip with transition at 30 degrees modip
+7033 SIPL(ISR) = SIPH(1) + (SIPH(2) - SIPH(1)) / DELA
+
+C Interpolation low/high Rz12: linear from 10 to 100
+ B0POL=SIPL(1)+(SIPL(2)-SIPL(1))/90.*(R-10.)
+ RETURN
+ END
+c
+C
+C *********************************************************************
+C ************************ EPSTEIN FUNCTIONS **************************
+C *********************************************************************
+C REF: H. G. BOOKER, J. ATMOS. TERR. PHYS. 39, 619-623, 1977
+C K. RAWER, ADV. SPACE RES. 4, #1, 11-15, 1984
+C *********************************************************************
+C
+C
+ REAL FUNCTION RLAY__ ( X, XM, SC, HX )
+C -------------------------------------------------------- RAWER LAYER
+ Y1 = EPTR__ ( X , SC, HX )
+ Y1M = EPTR__ ( XM, SC, HX )
+ Y2M = EPST__ ( XM, SC, HX )
+ RLAY__ = Y1 - Y1M - ( X - XM ) * Y2M / SC
+ RETURN
+ END
+C
+C
+ REAL FUNCTION D1LAY__ ( X, XM, SC, HX )
+C ------------------------------------------------------------ dLAY/dX
+ D1LAY__ = ( EPST__(X,SC,HX) - EPST__(XM,SC,HX) ) / SC
+ RETURN
+ END
+C
+C
+ REAL FUNCTION D2LAY__ ( X, XM, SC, HX )
+C ---------------------------------------------------------- d2LAY/dX2
+ D2LAY__ = EPLA__(X,SC,HX) / (SC * SC)
+ RETURN
+ END
+C
+C
+ REAL FUNCTION EPTR__ ( X, SC, HX )
+C ------------------------------------------------------------ TRANSITION
+ COMMON/ARGEXP/ARGMAX
+ D1 = ( X - HX ) / SC
+ IF (ABS(D1).LT.ARGMAX) GOTO 1
+ IF (D1.GT.0.0) THEN
+ EPTR__ = D1
+ ELSE
+ EPTR__ = 0.0
+ ENDIF
+ RETURN
+1 EPTR__ = ALOG ( 1. + EXP( D1 ))
+ RETURN
+ END
+C
+C
+ REAL FUNCTION EPST__ ( X, SC, HX )
+C -------------------------------------------------------------- STEP
+ COMMON/ARGEXP/ARGMAX
+ D1 = ( X - HX ) / SC
+ IF (ABS(D1).LT.ARGMAX) GOTO 1
+ IF (D1.GT.0.0) THEN
+ EPST__ = 1.
+ ELSE
+ EPST__ = 0.
+ ENDIF
+ RETURN
+1 EPST__ = 1. / ( 1. + EXP( -D1 ))
+ RETURN
+ END
+C
+C
+ REAL FUNCTION EPSTEP__ ( Y2, Y1, SC, HX, X)
+C---------------------------------------------- STEP FROM Y1 TO Y2
+ EPSTEP__ = Y1 + ( Y2 - Y1 ) * EPST__ ( X, SC, HX)
+ RETURN
+ END
+C
+C
+ REAL FUNCTION EPLA__ ( X, SC, HX )
+C ------------------------------------------------------------ PEAK
+ COMMON/ARGEXP/ARGMAX
+ D1 = ( X - HX ) / SC
+ IF (ABS(D1).LT.ARGMAX) GOTO 1
+ EPLA__ = 0
+ RETURN
+1 D0 = EXP ( D1 )
+ D2 = 1. + D0
+ EPLA__ = D0 / ( D2 * D2 )
+ RETURN
+ END
+c
+c
+ FUNCTION XE2TO5__(H,HMF2,NL,HX,SC,AMP)
+C----------------------------------------------------------------------
+C NORMALIZED ELECTRON DENSITY (N/NMF2) FOR THE MIDDLE IONOSPHERE FROM
+C HME TO HMF2 USING LAY-FUNCTIONS.
+C----------------------------------------------------------------------
+ DIMENSION HX(NL),SC(NL),AMP(NL)
+ SUM = 1.0
+ DO 1 I=1,NL
+ YLAY = AMP(I) * RLAY__( H, HMF2, SC(I), HX(I) )
+ zlay=10.**ylay
+1 sum=sum*zlay
+ XE2TO5__ = sum
+ RETURN
+ END
+C
+C
+ REAL FUNCTION XEN__(H,HMF2,XNMF2,HME,NL,HX,SC,AMP)
+C----------------------------------------------------------------------
+C ELECTRON DENSITY WITH NEW MIDDLE IONOSPHERE
+C----------------------------------------------------------------------
+ DIMENSION HX(NL),SC(NL),AMP(NL)
+C
+ IF(H.LT.HMF2) GOTO 100
+ XEN__ = XE1__(H)
+ RETURN
+100 IF(H.LT.HME) GOTO 200
+ XEN__ = XNMF2 * XE2TO5__(H,HMF2,NL,HX,SC,AMP)
+ RETURN
+200 XEN__ = XE6__(H)
+ RETURN
+ END
+C
+C
+ SUBROUTINE VALGUL__(XHI,HVB,VWU,VWA,VDP)
+C ---------------------------------------------------------------------
+C CALCULATES E-F VALLEY PARAMETERS; T.L. GULYAEVA, ADVANCES IN
+C SPACE RESEARCH 7, #6, 39-48, 1987.
+C
+C INPUT: XHI SOLAR ZENITH ANGLE [DEGREE]
+C
+C OUTPUT: VDP VALLEY DEPTH (NVB/NME)
+C VWU VALLEY WIDTH [KM]
+C VWA VALLEY WIDTH (SMALLER, CORRECTED BY RAWER)
+C HVB HEIGHT OF VALLEY BASE [KM]
+C -----------------------------------------------------------------------
+C
+ COMMON /CONST/UMR
+C
+ CS = 0.1 + COS(UMR*XHI)
+ ABC = ABS(CS)
+ VDP = 0.45 * CS / (0.1 + ABC ) + 0.55
+ ARL = ( 0.1 + ABC + CS ) / ( 0.1 + ABC - CS)
+ ZZZ = ALOG( ARL )
+ VWU = 45. - 10. * ZZZ
+ VWA = 45. - 5. * ZZZ
+ HVB = 1000. / ( 7.024 + 0.224 * CS + 0.966 * ABC )
+ RETURN
+ END
+C
+C
+ SUBROUTINE ROGUL__(IDAY,XHI,SX,GRO)
+C ---------------------------------------------------------------------
+C CALCULATES RATIO H0.5/HMF2 FOR HALF-DENSITY POINT (NE(H0.5)=0.5*NMF2)
+C T.L. GULYAEVA, ADVANCES IN SPACE RESEARCH 7, #6, 39-48, 1987.
+C
+C INPUT: IDAY DAY OF YEAR
+C XHI SOLAR ZENITH ANGLE [DEGREE]
+C
+C OUTPUT: GRO RATIO OF HALF DENSITY HEIGHT TO F PEAK HEIGHT
+C SX SMOOTHLY VARYING SEASON PARAMTER (SX=1 FOR
+C DAY=1; SX=3 FOR DAY=180; SX=2 FOR EQUINOX)
+C -----------------------------------------------------------------------
+C
+ SX = 2. - COS ( IDAY * 0.017214206 )
+ XS = ( XHI - 20. * SX) / 15.
+ GRO = 0.8 - 0.2 / ( 1. + EXP(XS) )
+c same as gro=0.6+0.2/(1+exp(-xs))
+ RETURN
+ END
+C
+C
+ SUBROUTINE LNGLSN__ ( N, A, B, AUS)
+C --------------------------------------------------------------------
+C SOLVES QUADRATIC SYSTEM OF LINEAR EQUATIONS:
+C
+C INPUT: N NUMBER OF EQUATIONS (= NUMBER OF UNKNOWNS)
+C A(N,N) MATRIX (LEFT SIDE OF SYSTEM OF EQUATIONS)
+C B(N) VECTOR (RIGHT SIDE OF SYSTEM)
+C
+C OUTPUT: AUS =.TRUE. NO SOLUTION FOUND
+C =.FALSE. SOLUTION IS IN A(N,J) FOR J=1,N
+C --------------------------------------------------------------------
+C
+ DIMENSION A(5,5), B(5), AZV(10)
+ LOGICAL AUS
+C
+ NN = N - 1
+ AUS = .FALSE.
+ DO 1 K=1,N-1
+ IMAX = K
+ L = K
+ IZG = 0
+ AMAX = ABS( A(K,K) )
+110 L = L + 1
+ IF (L.GT.N) GOTO 111
+ HSP = ABS( A(L,K) )
+ IF (HSP.LT.1.E-8) IZG = IZG + 1
+ IF (HSP.LE.AMAX) GOTO 110
+111 IF (ABS(AMAX).GE.1.E-10) GOTO 133
+ AUS = .TRUE.
+ RETURN
+133 IF (IMAX.EQ.K) GOTO 112
+ DO 2 L=K,N
+ AZV(L+1) = A(IMAX,L)
+ A(IMAX,L) = A(K,L)
+2 A(K,L) = AZV(L+1)
+ AZV(1) = B(IMAX)
+ B(IMAX) = B(K)
+ B(K) = AZV(1)
+112 IF (IZG.EQ.(N-K)) GOTO 1
+ AMAX = 1. / A(K,K)
+ AZV(1) = B(K) * AMAX
+ DO 3 M=K+1,N
+3 AZV(M+1) = A(K,M) * AMAX
+ DO 4 L=K+1,N
+ AMAX = A(L,K)
+ IF (ABS(AMAX).LT.1.E-8) GOTO 4
+ A(L,K) = 0.0
+ B(L) = B(L) - AZV(1) * AMAX
+ DO 5 M=K+1,N
+5 A(L,M) = A(L,M) - AMAX * AZV(M+1)
+4 CONTINUE
+1 CONTINUE
+ DO 6 K=N,1,-1
+ AMAX = 0.0
+ IF (K.LT.N) THEN
+ DO 7 L=K+1,N
+7 AMAX = AMAX + A(K,L) * A(N,L)
+ ENDIF
+ IF (ABS(A(K,K)).LT.1.E-6) THEN
+ A(N,K) = 0.0
+ ELSE
+ A(N,K) = ( B(K) - AMAX ) / A(K,K)
+ ENDIF
+6 CONTINUE
+ RETURN
+ END
+C
+C
+ SUBROUTINE LSKNM__ ( N, M, M0, M1, HM, SC, HX, W, X, Y, VAR, SING)
+C --------------------------------------------------------------------
+C DETERMINES LAY-FUNCTIONS AMPLITUDES FOR A NUMBER OF CONSTRAINTS:
+C
+C INPUT: N NUMBER OF AMPLITUDES ( LAY-FUNCTIONS)
+C M NUMBER OF CONSTRAINTS
+C M0 NUMBER OF POINT CONSTRAINTS
+C M1 NUMBER OF FIRST DERIVATIVE CONSTRAINTS
+C HM F PEAK ALTITUDE [KM]
+C SC(N) SCALE PARAMETERS FOR LAY-FUNCTIONS [KM]
+C HX(N) HEIGHT PARAMETERS FOR LAY-FUNCTIONS [KM]
+C W(M) WEIGHT OF CONSTRAINTS
+C X(M) ALTITUDES FOR CONSTRAINTS [KM]
+C Y(M) LOG(DENSITY/NMF2) FOR CONSTRAINTS
+C
+C OUTPUT: VAR(M) AMPLITUDES
+C SING =.TRUE. NO SOLUTION
+C ------------------------------------------------------------------------
+C
+ LOGICAL SING
+ DIMENSION VAR(N), HX(N), SC(N), W(M), X(M), Y(M),
+ & BLI(5), ALI(5,5), XLI(5,10)
+C
+ M01=M0+M1
+ SCM=0
+ DO 1 J=1,5
+ BLI(J) = 0.
+ DO 1 I=1,5
+1 ALI(J,I) = 0.
+ DO 2 I=1,N
+ DO 3 K=1,M0
+3 XLI(I,K) = RLAY__( X(K), HM, SC(I), HX(I) )
+ DO 4 K=M0+1,M01
+4 XLI(I,K) = D1LAY__( X(K), HM, SC(I), HX(I) )
+ DO 5 K=M01+1,M
+5 XLI(I,K) = D2LAY__( X(K), HM, SC(I), HX(I) )
+2 CONTINUE
+ DO 7 J=1,N
+ DO 6 K=1,M
+ BLI(J) = BLI(J) + W(K) * Y(K) * XLI(J,K)
+ DO 6 I=1,N
+6 ALI(J,I) = ALI(J,I) + W(K) * XLI(I,K)
+ & * XLI(J,K)
+7 CONTINUE
+ CALL LNGLSN__( N, ALI, BLI, SING )
+ IF (.NOT.SING) THEN
+ DO 8 I=1,N
+8 VAR(I) = ALI(N,I)
+ ENDIF
+ RETURN
+ END
+C
+C
+ SUBROUTINE INILAY__(NIGHT,XNMF2,XNMF1,XNME,VNE,HMF2,HMF1,
+ & HME,HV1,HV2,HHALF,HXL,SCL,AMP,IQUAL)
+C-------------------------------------------------------------------
+C CALCULATES AMPLITUDES FOR LAY FUNCTIONS
+C D. BILITZA, DECEMBER 1988
+C
+C INPUT: NIGHT LOGICAL VARIABLE FOR DAY/NIGHT DISTINCTION
+C XNMF2 F2 PEAK ELECTRON DENSITY [M-3]
+C XNMF1 F1 PEAK ELECTRON DENSITY [M-3]
+C XNME E PEAK ELECTRON DENSITY [M-3]
+C VNE ELECTRON DENSITY AT VALLEY BASE [M-3]
+C HMF2 F2 PEAK ALTITUDE [KM]
+C HMF1 F1 PEAK ALTITUDE [KM]
+C HME E PEAK ALTITUDE [KM]
+C HV1 ALTITUDE OF VALLEY TOP [KM]
+C HV2 ALTITUDE OF VALLEY BASE [KM]
+C HHALF ALTITUDE OF HALF-F2-PEAK-DENSITY [KM]
+C
+C OUTPUT: HXL(4) HEIGHT PARAMETERS FOR LAY FUNCTIONS [KM]
+C SCL(4) SCALE PARAMETERS FOR LAY FUNCTIONS [KM]
+C AMP(4) AMPLITUDES FOR LAY FUNCTIONS
+C IQUAL =0 ok, =1 ok using second choice for HXL(1)
+C =2 NO SOLUTION
+C---------------------------------------------------------------
+ DIMENSION XX(8),YY(8),WW(8),AMP(4),HXL(4),SCL(4)
+ LOGICAL SSIN,NIGHT
+c
+c constants --------------------------------------------------------
+ NUMLAY=4
+ NC1 = 2
+ ALG102=ALOG10(2.)
+c
+c constraints: xx == height yy == log(Ne/NmF2) ww == weights
+c -----------------------------------------------------------------
+ ALOGF = ALOG10(XNMF2)
+ ALOGEF = ALOG10(XNME) - ALOGF
+ XHALF=XNMF2/2.
+ XX(1) = HHALF
+ XX(2) = HV1
+ XX(3) = HV2
+ XX(4) = HME
+ XX(5) = HME - ( HV2 - HME )
+ YY(1) = -ALG102
+ YY(2) = ALOGEF
+ YY(3) = ALOG10(VNE) - ALOGF
+ YY(4) = ALOGEF
+ YY(5) = YY(3)
+ YY(7) = 0.0
+ WW(2) = 1.
+ WW(3) = 2.
+ WW(4) = 5.
+c
+c geometric paramters for LAY -------------------------------------
+c difference to earlier version: HXL(3) = HV2 + SCL(3)
+c
+ SCL0 = 0.7 * ( 0.216 * ( HMF2 - HHALF ) + 56.8 )
+ SCL(1) = 0.8 * SCL0
+ SCL(2) = 10.
+ SCL(3) = 9.
+ SCL(4) = 6.
+ HXL(3) = HV2
+c
+C DAY CONDITION--------------------------------------------------
+c earlier tested: HXL(2) = HMF1 + SCL(2)
+c
+ IF(NIGHT) GOTO 7711
+ NUMCON = 8
+ HXL(1) = 0.9 * HMF2
+ HXL1T = HHALF
+ HXL(2) = HMF1
+ HXL(4) = HME - SCL(4)
+ XX(6) = HMF1
+ XX(7) = HV2
+ XX(8) = HME
+ YY(8) = 0.0
+ WW(5) = 1.
+ WW(7) = 50.
+ WW(8) = 500.
+c without F-region ----------------------------------------------
+ IF(XNMF1.GT.0) GOTO 100
+ HXL(2)=(HMF2+HHALF)/2.
+ YY(6) = 0.
+ WW(6) = 0.
+ WW(1) = 1.
+ GOTO 7722
+c with F-region --------------------------------------------
+100 YY(6) = ALOG10(XNMF1) - ALOGF
+ WW(6) = 3.
+ IF((XNMF1-XHALF)*(HMF1-HHALF).LT.0.0) THEN
+ WW(1)=0.5
+ ELSE
+ ZET = YY(1) - YY(6)
+ WW(1) = EPST__( ZET, 0.1, 0.15)
+ ENDIF
+ IF(HHALF.GT.HMF1) THEN
+ HFFF=HMF1
+ XFFF=XNMF1
+ ELSE
+ HFFF=HHALF
+ XFFF=XHALF
+ ENDIF
+ GOTO 7722
+c
+C NIGHT CONDITION---------------------------------------------------
+c different HXL,SCL values were tested including:
+c SCL(1) = HMF2 * 0.15 - 27.1 HXL(2) = 200.
+c HXL(2) = HMF1 + SCL(2) HXL(3) = 140.
+c SCL(3) = 5. HXL(4) = HME + SCL(4)
+c HXL(4) = 105.
+c
+7711 NUMCON = 7
+ HXL(1) = HHALF
+ HXL1T = 0.4 * HMF2 + 30.
+ HXL(2) = ( HMF2 + HV1 ) / 2.
+ HXL(4) = HME
+ XX(6) = HV2
+ XX(7) = HME
+ YY(6) = 0.0
+ WW(1) = 1.
+ WW(3) = 3.
+ WW(5) = 0.5
+ WW(6) = 50.
+ WW(7) = 500.
+ HFFF=HHALF
+ XFFF=XHALF
+c
+C are valley-top and bottomside point compatible ? -------------
+C
+7722 IF((HV1-HFFF)*(XNME-XFFF).LT.0.0) WW(2)=0.5
+ IF(HV1.LE.HV2+5.0) WW(2)=0.5
+c
+C DETERMINE AMPLITUDES-----------------------------------------
+C
+ NC0=NUMCON-NC1
+ IQUAL=0
+2299 CALL LSKNM__(NUMLAY,NUMCON,NC0,NC1,HMF2,SCL,HXL,WW,XX,YY,
+ & AMP,SSIN)
+ IF(IQUAL.gt.0) GOTO 1937
+ IF((ABS(AMP(1)).GT.10.0).OR.(SSIN)) THEN
+ IQUAL=1
+ HXL(1)=HXL1T
+ GOTO 2299
+ ENDIF
+1937 IF(SSIN) IQUAL=2
+ RETURN
+ END
+c
+c
+ subroutine ioncom(h,z,f,fs,t,cn)
+c---------------------------------------------------------------
+c ion composition model
+c A.D. Danilov and A.P. Yaichnikov, A New Model of the Ion
+c Composition at 75 to 1000 km for IRI, Adv. Space Res. 5, #7,
+c 75-79, 107-108, 1985
+c
+c h altitude in km
+c z solar zenith angle in radians
+c f latitude in radians
+c fs 10.7cm solar radio flux
+c t season (month)
+c cn(1) O+ relative density in percent
+c cn(2) H+ relative density in percent
+c cn(3) N+ relative density in percent
+c cn(4) He+ relative density in percent
+c cn(5) NO+ relative density in percent
+c cn(6) O2+ relative density in percent
+c cn(7) cluster ions relative density in percent
+c---------------------------------------------------------------
+c
+ dimension cn(7),cm(7),hm(7),alh(7),all(7),beth(7),
+ & betl(7),p(5,6,7),var(6),po(5,6),ph(5,6),
+ & pn(5,6),phe(5,6),pno(5,6),po2(5,6),pcl(5,6)
+
+ data po/4*0.,98.5,4*0.,320.,4*0.,-2.59E-4,2.79E-4,-3.33E-3,
+ & -3.52E-3,-5.16E-3,-2.47E-2,4*0.,-2.5E-6,1.04E-3,
+ & -1.79E-4,-4.29E-5,1.01E-5,-1.27E-3/
+ data ph/-4.97E-7,-1.21E-1,-1.31E-1,0.,98.1,355.,-191.,
+ & -127.,0.,2040.,4*0.,-4.79E-6,-2.E-4,5.67E-4,
+ & 2.6E-4,0.,-5.08E-3,10*0./
+ data pn/7.6E-1,-5.62,-4.99,0.,5.79,83.,-369.,-324.,0.,593.,
+ & 4*0.,-6.3E-5,-6.74E-3,-7.93E-3,-4.65E-3,0.,-3.26E-3,
+ & 4*0.,-1.17E-5,4.88E-3,-1.31E-3,-7.03E-4,0.,-2.38E-3/
+ data phe/-8.95E-1,6.1,5.39,0.,8.01,4*0.,1200.,4*0.,-1.04E-5,
+ & 1.9E-3,9.53E-4,1.06E-3,0.,-3.44E-3,10*0./
+ data pno/-22.4,17.7,-13.4,-4.88,62.3,32.7,0.,19.8,2.07,115.,
+ & 5*0.,3.94E-3,0.,2.48E-3,2.15E-4,6.67E-3,5*0.,
+ & -8.4E-3,0.,-3.64E-3,2.E-3,-2.59E-2/
+ data po2/8.,-12.2,9.9,5.8,53.4,-25.2,0.,-28.5,-6.72,120.,
+ & 5*0.,-1.4E-2,0.,-9.3E-3,3.3E-3,2.8E-2,5*0.,4.25E-3,
+ & 0.,-6.04E-3,3.85E-3,-3.64E-2/
+ data pcl/4*0.,100.,4*0.,75.,10*0.,4*0.,-9.04E-3,-7.28E-3,
+ & 2*0.,3.46E-3,-2.11E-2/
+
+ DO 8 I=1,5
+ DO 8 J=1,6
+ p(i,j,1)=po(i,j)
+ p(i,j,2)=ph(i,j)
+ p(i,j,3)=pn(i,j)
+ p(i,j,4)=phe(i,j)
+ p(i,j,5)=pno(i,j)
+ p(i,j,6)=po2(i,j)
+ p(i,j,7)=pcl(i,j)
+8 continue
+
+ s=0.
+ do 5 i=1,7
+ do 7 j=1,6
+ var(j) = p(1,j,i)*cos(z) + p(2,j,i)*cos(f) +
+ & p(3,j,i)*cos(0.013*(300.-fs)) +
+ & p(4,j,i)*cos(0.52*(t-6.)) + p(5,j,i)
+7 continue
+ cm(i) = var(1)
+ hm(i) = var(2)
+ all(i) = var(3)
+ betl(i)= var(4)
+ alh(i) = var(5)
+ beth(i)= var(6)
+ hx=h-hm(i)
+ if(hx) 1,2,3
+1 cn(i) = cm(i) * exp( hx * (hx * all(i) + betl(i)) )
+ goto 4
+2 cn(i) = cm(i)
+ goto 4
+3 cn(i) = cm(i) * exp( hx * (hx * alh(i) + beth(i)) )
+4 continue
+ if(cn(i).LT.0.005*cm(i)) cn(i)=0.
+ if(cn(i).GT.cm(i)) cn(i)=cm(i)
+ s=s+cn(i)
+5 continue
+ do 6 i=1,7
+6 cn(i)=cn(i)/s*100.
+ return
+ end
+C
+C
+C
+C
+ SUBROUTINE CIRA86(IDAY,SEC,GLAT,GLONG,STL,F107A,TINF,TLB,SIGMA)
+C*******************************************************************
+C Calculates neutral temperature parameters for IRI using the
+C MSIS-86/CIRA 1986 Neutral Thermosphere Model. The subroutines
+C GTS5, GLOBE5 and GLOBL5 developed by A.E. Hedin (2/26/87) were
+C modified for use in IRI --------- D. Bilitza -------- March 1991
+C
+C INPUT:
+C IDAY - DAY OF YEAR
+C SEC - UT(SEC)
+C GLAT - GEODETIC LATITUDE(DEG)
+C GLONG - GEODETIC LONGITUDE(DEG)
+C STL - LOCAL APPARENT SOLAR TIME(HRS)
+C F107A - 3 MONTH AVERAGE OF F10.7 FLUX
+C
+C OUTPUT:
+C TINF - EXOSPHERIC TEMPERATURE (K)
+C TLB - TEMPERATURE AT LOWER BOUNDARY (K)
+C SIGMA - SHAPE PARAMETER FOR TEMPERATURE PROFILE
+C
+C **********************************************************************
+ DIMENSION PLG(9,4)
+ DATA DR,DR2/1.72142E-2,0.0344284/,HR/.2618/,SR/7.2722E-5/,
+ $ XL/1000./,TLL/1000./,DGTR/1.74533E-2/
+ save plg, c, s, c2, c4, s2,
+ $ stloc, ctloc, s2tloc, c2tloc, s3tloc, c3tloc
+C
+C CALCULATE LEGENDRE POLYNOMIALS
+C
+ IF(XL.EQ.GLAT) GO TO 15
+ C = SIN(GLAT*DGTR)
+ S = COS(GLAT*DGTR)
+ C2 = C*C
+ C4 = C2*C2
+ S2 = S*S
+ PLG(2,1) = C
+ PLG(3,1) = 0.5*(3.*C2 -1.)
+ PLG(4,1) = 0.5*(5.*C*C2-3.*C)
+ PLG(5,1) = (35.*C4 - 30.*C2 + 3.)/8.
+ PLG(6,1) = (63.*C2*C2*C - 70.*C2*C + 15.*C)/8.
+ PLG(2,2) = S
+ PLG(3,2) = 3.*C*S
+ PLG(4,2) = 1.5*(5.*C2-1.)*S
+ PLG(5,2) = 2.5*(7.*C2*C-3.*C)*S
+ PLG(6,2) = 1.875*(21.*C4 - 14.*C2 +1.)*S
+ PLG(7,2) = (11.*C*PLG(6,2)-6.*PLG(5,2))/5.
+ PLG(3,3) = 3.*S2
+ PLG(4,3) = 15.*S2*C
+ PLG(5,3) = 7.5*(7.*C2 -1.)*S2
+ PLG(6,3) = 3.*C*PLG(5,3)-2.*PLG(4,3)
+ PLG(4,4) = 15.*S2*S
+ PLG(5,4) = 105.*S2*S*C
+ PLG(6,4)=(9.*C*PLG(5,4)-7.*PLG(4,4))/2.
+ PLG(7,4)=(11.*C*PLG(6,4)-8.*PLG(5,4))/3.
+ XL=GLAT
+ 15 CONTINUE
+ IF(TLL.EQ.STL) GO TO 16
+ STLOC = SIN(HR*STL)
+ CTLOC = COS(HR*STL)
+ S2TLOC = SIN(2.*HR*STL)
+ C2TLOC = COS(2.*HR*STL)
+ S3TLOC = SIN(3.*HR*STL)
+ C3TLOC = COS(3.*HR*STL)
+ TLL = STL
+ 16 CONTINUE
+C
+ DFA=F107A-150.
+C
+C EXOSPHERIC TEMPERATURE
+C
+C F10.7 EFFECT
+ T1 = ( 3.11701E-3 - 0.64111E-5 * DFA ) * DFA
+ F1 = 1. + 0.426385E-2 * DFA
+ F2 = 1. + 0.511819E-2 * DFA
+ F3 = 1. + 0.292246E-2 * DFA
+C TIME INDEPENDENT
+ T2 = 0.385528E-1 * PLG(3,1) + 0.303445E-2 * PLG(5,1)
+C SYMMETRICAL ANNUAL AND SEMIANNUAL
+ CD14 = COS( DR * (IDAY+8.45398) )
+ CD18 = COS( DR2 * (IDAY-125.818) )
+ CD32 = COS( DR * (IDAY-30.0150) )
+ CD39 = COS( DR2 * (IDAY-2.75905) )
+ T3 = 0.805486E-2 * CD32 + 0.14237E-1 * CD18
+C ASYMMETRICAL ANNUAL AND SEMIANNUAL
+ T5 = F1 * (-0.127371 * PLG(2,1) - 0.302449E-1 * PLG(4,1) ) * CD14
+ & - 0.192645E-1 * PLG(2,1) * CD39
+C DIURNAL
+ T71 = 0.123512E-1 * PLG(3,2) * CD14
+ T72 = -0.526277E-2 * PLG(3,2) * CD14
+ T7 = ( -0.105531 *PLG(2,2) - 0.607134E-2 *PLG(4,2) + T71 ) *CTLOC
+ 4 + ( -0.115622 *PLG(2,2) + 0.202240E-2 *PLG(4,2) + T72 ) *STLOC
+C SEMIDIURNAL
+ T81 = 0.386578E-2 * PLG(4,3) * CD14
+ T82 = 0.389146E-2 * PLG(4,3) * CD14
+ T8= (-0.516278E-3 *PLG(3,3) - 0.117388E-2 *PLG(5,3) +T81)*C2TLOC
+ 3 +( 0.990156E-2 *PLG(3,3) - 0.354589E-3 *PLG(5,3) +T82)*S2TLOC
+C TERDIURNAL
+ Z1 = PLG(5,4) * CD14
+ Z2 = PLG(7,4) * CD14
+ T14=(0.147284E-2*PLG(4,4)-0.173933E-3*Z1+0.365016E-4*Z2)*S3TLOC
+ 2 +(0.341345E-3*PLG(4,4)-0.153218E-3*Z1+0.115102E-3*Z2)*C3TLOC
+ T7814 = F2 * ( T7 + T8 + T14 )
+C LONGITUDINAL
+ T11= F3 * (( 0.562606E-2 * PLG(3,2) + 0.594053E-2 * PLG(5,2) +
+ $ 0.109358E-2 * PLG(7,2) - 0.301801E-2 * PLG(2,2) -
+ $ 0.423564E-2 * PLG(4,2) - 0.248289E-2 * PLG(6,2) +
+ $ (0.189689E-2 * PLG(2,2) + 0.415654E-2 * PLG(4,2)) * CD14
+ $ ) * COS(DGTR*GLONG) +
+ $ ( -0.11654E-1 * PLG(3,2) - 0.449173E-2 * PLG(5,2) -
+ $ 0.353189E-3 * PLG(7,2) + 0.919286E-3 * PLG(2,2) +
+ $ 0.216372E-2 * PLG(4,2) + 0.863968E-3 * PLG(6,2) +
+ $ (0.118068E-1 * PLG(2,2) + 0.331190E-2 * PLG(4,2)) * CD14
+ $ ) * SIN(DGTR*GLONG) )
+C UT AND MIXED UT,LONGITUDE
+ T12 = ( 1. - 0.565411 * PLG(2,1) ) * COS( SR*(SEC-31137.0) ) *
+ $ (-0.13341E-1*PLG(2,1)-0.243409E-1*PLG(4,1)-0.135688E-1*PLG(6,1))
+ $ + ( 0.845583E-3 * PLG(4,3) + 0.538706E-3 * PLG(6,3) ) *
+ $ COS( SR * (SEC-247.956) + 2.*DGTR*GLONG )
+C Exospheric temperature TINF/K [Eq. A7]
+ TINF = 1041.3 * ( 1. + T1+T2+T3+T5+T7814+T11+T12 ) * 0.99604
+C
+C TEMPERATURE DERIVATIVE AT LOWER BOUNDARY
+C
+C F10.7 EFFECT
+ T1 = 0.252317E-2 * DFA
+C TIME INDEPENDENT
+ T2 = -0.467542E-1 * PLG(3,1) + 0.12026 * PLG(5,1)
+C ASYMMETRICAL ANNUAL
+ CD14 = COS( DR * (IDAY+8.45398) )
+ T5 = -0.13324 * PLG(2,1) * CD14
+C SEMIDIURNAL
+ ZZ = PLG(4,3) * CD14
+ T81 = -0.973404E-2 * ZZ
+ T82 = -0.718482E-3 * ZZ
+ T8 =(0.191357E-1 *PLG(3,3) + 0.787683E-2 *PLG(5,3) + T81) *C2TLOC
+ 3 + (0.125429E-2 *PLG(3,3) - 0.233698E-2 *PLG(5,3) + T82) *S2TLOC
+C dTn/dh at lower boundary [Eq. A6]
+ G0 = 0.166728E2 * ( 1. + T1+T2+T5+T8 ) * 0.951363
+C
+C NEUTRAL TEMPERATURE AT LOWER BOUNDARY 120KM
+C
+ CD9 = COS( DR2 * (IDAY-89.3820) )
+ CD11 = COS( DR * (IDAY+8.45398) )
+ T1 = 0.568478E-3 * DFA
+ T4 = 0.107674E-1 * CD9
+ T5 =-0.192414E-1 * PLG(2,1) * CD11
+ T7 = -0.2002E-1 *PLG(2,2) *CTLOC - 0.195833E-2 *PLG(2,2) *STLOC
+ T8 = (-0.938391E-2 * PLG(3,3) - 0.260147E-2 * PLG(5,3)
+ $ + 0.511651E-4 * PLG(6,3) * CD11 ) * C2TLOC
+ $ + ( 0.131480E-1 * PLG(3,3) - 0.808556E-3 * PLG(5,3)
+ $ + 0.255717E-2 * PLG(6,3) * CD11 ) * S2TLOC
+C Tn at lower boundary 120km [Eq. A8]
+ TLB = 386.0 * ( 1. + T1+T4+T5+T7+T8 ) * 0.976619
+C Sigma [Eq. A5]
+ SIGMA = G0 / ( TINF - TLB )
+ RETURN
+ END
+C
+C
+ FUNCTION TN__(H,TINF,TLBD,S)
+C--------------------------------------------------------------------
+C Calculate Temperature for MSIS/CIRA-86 model
+C--------------------------------------------------------------------
+ ZG2 = ( H - 120. ) * 6476.77 / ( 6356.77 + H )
+ TN__ = TINF - TLBD * EXP ( - S * ZG2 )
+ RETURN
+ END
+C
+C
+ FUNCTION DTNDH__(H,TINF,TLBD,S)
+C---------------------------------------------------------------------
+ ZG1 = 6356.77 + H
+ ZG2 = 6476.77 / ZG1
+ ZG3 = ( H - 120. ) * ZG2
+ DTNDH__ = - TLBD * EXP ( - S * ZG3 ) * ( S / ZG1 * ( ZG3 - ZG2 ) )
+ RETURN
+ END
diff --git a/srcGlow/maxt.f90 b/srcGlow/maxt.f90
new file mode 100644
index 0000000..1f9772d
--- /dev/null
+++ b/srcGlow/maxt.f90
@@ -0,0 +1,70 @@
+! Subroutine MAXT
+!
+! This software is part of the glow model. Use is governed by the open source
+! academic research license agreement contained in the file glowlicense.txt.
+! For more information see the file glow.txt.
+!
+! Stan Solomon, 11/1989, 9/1991, 1/1994, 3/2005
+! Refactored to f90, 6/6/6/6/6/6/2016
+!
+! Generates Maxwellian electron spectra with, optionally, a low energy tail
+! of the form used by Meier et al., JGR 94, 13541, 1989.
+! Also can generate a monoenergetic flux in a single bin.
+!
+! Supplied by calling routine:
+! eflux total energy flux in erg cm-2 s-1
+! ezer characteristic energy in ev
+! ener energy grid in ev
+! del energy bin width in ev
+! nbins number of energy bins (dimension of ener, del, and phi)
+! itail 1 = maxwellian with low-energy tail, 0 = regular maxwellian
+! fmono additional monoenergetic energy flux in erg cm-2 s-1
+! emono characteristic enerngy of fmono in ev
+!
+! Returned by subroutine:
+! phi hemispherical flux in cm-2 s-1 ev-1
+
+
+ subroutine maxt (eflux,ezer,ener,del,nbins,itail,fmono,emono,phi)
+
+ implicit none
+
+ integer,intent(in) :: nbins, itail
+ real,intent(in) :: eflux, ezer, ener(nbins), del(nbins), fmono, emono
+ real,intent(out) :: phi(nbins)
+
+ integer :: k
+ real :: te, b, phimax, erat
+
+ te = 0.
+
+ if (ezer < 500.) then
+ b = 0.8*ezer
+ else
+ b = 0.1*ezer + 350.
+ endif
+
+ phimax = exp(-1.)
+
+ do k=1,nbins
+ erat = ener(k) / ezer
+ if (erat > 60.) erat = 60.
+ phi(k) = erat * exp(-erat)
+ if (itail > 0) phi(k) = phi(k) + 0.4*phimax*(ezer/ener(k))*exp(-ener(k)/b) !Meier 1989
+ te = te + phi(k) * del(k) * ener(k) * 1.6022e-12
+ enddo
+
+ do k=1,nbins
+ phi(k) = phi(k) * eflux / te
+ enddo
+
+ if (fmono > 0.) then
+ do k=1,nbins
+ if (emono > ener(k)-del(k)/2. .and. emono < ener(k)+del(k)/2.) &
+ phi(k)=phi(k)+fmono/(1.6022e-12*del(k)*ener(k))
+ enddo
+ endif
+
+ return
+
+ end subroutine maxt
diff --git a/srcGlow/mzgrid.f90 b/srcGlow/mzgrid.f90
new file mode 100644
index 0000000..8f30b40
--- /dev/null
+++ b/srcGlow/mzgrid.f90
@@ -0,0 +1,148 @@
+! Subroutine MZGRID gets fields from eMpirical models on default GLOW altitude grid.
+
+! This software is part of the GLOW model. Use is governed by the Open Source
+! Academic Research License Agreement contained in the file glowlicense.txt.
+! For more information see the file glow.txt.
+
+! Stan Solomon, 12/15, 1/16
+! Extracted from glowdriver.f90 into separate file mzgrid.f90, SCS, 12/16
+
+! Neutral densities from NRLMSISE-00 model (a.k.a. MSIS2K).
+! Nitric oxide densities from NOEM model (via snoem.f and snoemint.f).
+! Electron densities from IRI-90.
+
+! Inputs:
+! jmax Number of altitude levels used by GLOW (should = 102 for MSIS/IRI/NOEM runs)
+! nex Number of ionized/excited species (for array zxden)
+! idate Nate in yyyyddd or yyddd format
+! ut Universal time, seconds)
+! glat Latitude, degrees
+! glong Longitude, degrees
+! stl Local solar time, hours
+! f107a F10.7 index 81-day centered average
+! f107 F10.7 index of day
+! f107p F107. index of previous day
+! ap Ap index daily value
+! iri90_dir Directory containing IRI input files (set in namelist inputs)
+
+! Outputs:
+! z Geographic altitude (km)
+! zo O number density, cm-3
+! zo2 O2 "
+! zn2 N2 "
+! zns N(4S) "
+! n2d N(2D) " (set to zero since this is calculated by GLOW)
+! no NO "
+! ztn Tn, K
+! zun Zonal wind velocity, cm/s, currently = 0 (not used by GLOW)
+! zvn Meridional wind velocity, cm/s currently = 0 (not used by GLOW)
+! zti Ti, K
+! zte Te, K
+! zxden Array of ionized/excited species density, cm-3, must be dimensioned (nex,jmax)
+
+subroutine mzgrid (jmax,nex,idate,ut,glat,glong,stl,f107a,f107,f107p,ap,iri90_dir, &
+ z,zo,zo2,zn2,zns,znd,zno,ztn,zun,zvn,ze,zti,zte,zxden)
+
+ implicit none
+
+ integer,intent(in) :: jmax,nex,idate
+ real,intent(in) :: ut,glat,glong,stl,f107a,f107,f107p,ap
+ character(len=1024),intent(in) :: iri90_dir
+ real,intent(out) :: z(jmax),zo(jmax),zo2(jmax),zn2(jmax),zns(jmax),znd(jmax), &
+ zno(jmax),ztn(jmax),zti(jmax),zte(jmax),zun(jmax),zvn(jmax),ze(jmax),zxden(nex,jmax)
+
+ integer :: j,ijf,jmag,iday,mmdd
+ real :: rz12, d(8), t(2), sw(25), oarr(30), ap_in(7)
+ logical :: jf(12)
+ real,allocatable :: outf(:,:) ! iri output (11,jmax)
+ data sw/25*1./
+
+ if (jmax /= 112) then
+! if (jmax /= 68) then
+ write(6,"('mzgrid: unknown JMAX = ',i5)") jmax
+ stop 'mzgrid'
+ endif
+
+ allocate(outf(11,jmax))
+
+!
+! Set default altitudes:
+!
+ z = (/ 70., 71., 72., 73., 74., 75., 76., 77., 78., 79., &
+ 80., 81., 82., 83., 84., 85., 86., 87., 88., 89., &
+ 90., 91., 92., 93., 94., 95., 96., 97., 98., 99., &
+ 100., 101., 102., 103., 104., 105., 106., 107., 108., 109., &
+ 110.,111.5, 113.,114.5, 116., 118., 120., 122., 124., 126., &
+ 128., 130., 132., 134., 137., 140., 144., 148., 153., 158., &
+ 164., 170., 176., 183., 190., 197., 205., 213., 221., 229., &
+ 237., 245., 254., 263., 272., 281., 290., 300., 310., 320., &
+ 330., 340., 350., 360., 370., 380., 390., 400., 410., 420., &
+ 430., 440., 450., 460., 470., 480., 490., 500., 510., 520., &
+ 530., 540., 550., 560., 570., 580., 590., 600., 610., 620., &
+ 630., 640. /)
+! z = (/ 80., 81., 82., 83., 84., 85., 86., 87., 88., 89., &
+! 90., 91., 92., 93., 94., 95., 96., 97., 98., 99., &
+! 100., 101., 102., 103., 104., 105., 106., 107., 108., 109., &
+! 110.,111.5, 113.,114.5, 116., 118., 120., 122., 124., 126., &
+! 128., 130., 132., 134., 137., 140., 144., 148., 153., 158., &
+! 164., 170., 176., 183., 190., 197., 205., 213., 221., 229., &
+! 237., 245., 254., 263., 272., 281., 290., 300., 310., 320., &
+! 330., 340., 350., 360., 370., 380., 390., 400., 410., 420., &
+! 430., 440., 450., 460., 470., 480., 490., 500., 510., 520., &
+! 530., 540., 550., 560., 570., 580., 590., 600., 610., 620., &
+! 630., 640. /)
+!
+! Call MSIS-2K to get neutral densities and temperature:
+!
+ call tselec0_(sw)
+ ap_in(1:7) = ap
+ do j=1,jmax ! levels
+ call gtd7_(idate,ut,z(j),glat,glong,stl,f107a,f107p,ap_in,48,d,t)
+ zo(j) = d(2)
+ zn2(j) = d(3)
+ zo2(j) = d(4)
+ zns(j) = d(8)
+ ztn(j) = t(2)
+ znd(j) = 0.
+
+ enddo
+
+
+!
+! Call SNOEMINT to obtain NO profile from the Nitric Oxide Empirical Model (NOEM):
+!
+ call snoemint(idate,glat,glong,f107,ap,jmax,z,ztn,zno)
+!
+! Call International Reference Ionosphere-1990 subroutine to get
+! electron density, electron temperature, and ion temperature:
+! The directory iri90_dir is the location of the ccirnn.asc and ursinn.asc files.
+!
+ jf(:) = .true.
+! jf(12) = .false.
+ jf(5) = .false.
+ jmag = 0
+ rz12 = -f107a
+ iday = idate - idate/1000*1000
+ mmdd = -iday
+ outf = 0.
+
+ call iri90(jf,jmag,glat,glong,rz12,mmdd,stl,z,jmax,trim(iri90_dir),outf,oarr)
+
+ do j=1,jmax
+ ze(j) = outf(1,j) / 1.E6
+ if (ze(j) < 100.) ze(j) = 100.
+ zti(j) = outf(3,j)
+ if (zti(j) < ztn(j)) zti(j) = ztn(j)
+ zte(j) = outf(4,j)
+ if (zte(j) < ztn(j)) zte(j) = ztn(j)
+ zxden(3,j) = ze(j) * outf(5,j)/100.
+ zxden(6,j) = ze(j) * outf(8,j)/100.
+ zxden(7,j) = ze(j) * outf(9,j)/100.
+ enddo
+!
+! Until implementation of an empirical neutral wind model, winds are set to zero:
+!
+ zun(:) = 0.
+ zvn(:) = 0.
+
+end subroutine mzgrid
diff --git a/srcGlow/nrlmsise00.f b/srcGlow/nrlmsise00.f
new file mode 100644
index 0000000..0d895ea
--- /dev/null
+++ b/srcGlow/nrlmsise00.f
@@ -0,0 +1,2449 @@
+C-----------------------------------------------------------------------
+ SUBROUTINE GTD7_(IYD,SEC,ALT,GLAT,GLONG,STL,F107A,F107,
+ & AP,MASS,D,T)
+C
+C NRLMSISE-00
+C -----------
+C Neutral Atmosphere Empirical Model from the surface to lower
+C exosphere
+C
+C NEW FEATURES:
+C *Extensive satellite drag database used in model generation
+C *Revised O2 (and O) in lower thermosphere
+C *Additional nonlinear solar activity term
+C *"ANOMALOUS OXYGEN" NUMBER DENSITY, OUTPUT D(9)
+C At high altitudes (> 500 km), hot atomic oxygen or ionized
+C oxygen can become appreciable for some ranges of subroutine
+C inputs, thereby affecting drag on satellites and debris. We
+C group these species under the term "anomalous oxygen," since
+C their individual variations are not presently separable with
+C the drag data used to define this model component.
+C
+C SUBROUTINES FOR SPECIAL OUTPUTS:
+C
+C HIGH ALTITUDE DRAG: EFFECTIVE TOTAL MASS DENSITY
+C (SUBROUTINE GTD7D, OUTPUT D(6))
+C For atmospheric drag calculations at altitudes above 500 km,
+C call SUBROUTINE GTD7D to compute the "effective total mass
+C density" by including contributions from "anomalous oxygen."
+C See "NOTES ON OUTPUT VARIABLES" below on D(6).
+C
+C PRESSURE GRID (SUBROUTINE GHP7)
+C See subroutine GHP7 to specify outputs at a pressure level
+C rather than at an altitude.
+C
+C OUTPUT IN M-3 and KG/M3: CALL METERS(.TRUE.)
+C
+C INPUT VARIABLES:
+C IYD - YEAR AND DAY AS YYDDD (day of year from 1 to 365 (or 366))
+C (Year ignored in current model)
+C SEC - UT(SEC)
+C ALT - ALTITUDE(KM)
+C GLAT - GEODETIC LATITUDE(DEG)
+C GLONG - GEODETIC LONGITUDE(DEG)
+C STL - LOCAL APPARENT SOLAR TIME(HRS; see Note below)
+C F107A - 81 day AVERAGE OF F10.7 FLUX (centered on day DDD)
+C F107 - DAILY F10.7 FLUX FOR PREVIOUS DAY
+C AP - MAGNETIC INDEX(DAILY) OR WHEN SW(9)=-1. :
+C - ARRAY CONTAINING:
+C (1) DAILY AP
+C (2) 3 HR AP INDEX FOR CURRENT TIME
+C (3) 3 HR AP INDEX FOR 3 HRS BEFORE CURRENT TIME
+C (4) 3 HR AP INDEX FOR 6 HRS BEFORE CURRENT TIME
+C (5) 3 HR AP INDEX FOR 9 HRS BEFORE CURRENT TIME
+C (6) AVERAGE OF EIGHT 3 HR AP INDICIES FROM 12 TO 33 HRS PRIOR
+C TO CURRENT TIME
+C (7) AVERAGE OF EIGHT 3 HR AP INDICIES FROM 36 TO 57 HRS PRIOR
+C TO CURRENT TIME
+C MASS - MASS NUMBER (ONLY DENSITY FOR SELECTED GAS IS
+C CALCULATED. MASS 0 IS TEMPERATURE. MASS 48 FOR ALL.
+C MASS 17 IS Anomalous O ONLY.)
+C
+C NOTES ON INPUT VARIABLES:
+C UT, Local Time, and Longitude are used independently in the
+C model and are not of equal importance for every situation.
+C For the most physically realistic calculation these three
+C variables should be consistent (STL=SEC/3600+GLONG/15).
+C The Equation of Time departures from the above formula
+C for apparent local time can be included if available but
+C are of minor importance.
+c
+C F107 and F107A values used to generate the model correspond
+C to the 10.7 cm radio flux at the actual distance of the Earth
+C from the Sun rather than the radio flux at 1 AU. The following
+C site provides both classes of values:
+C ftp://ftp.ngdc.noaa.gov/STP/SOLAR_DATA/SOLAR_RADIO/FLUX/
+C
+C F107, F107A, and AP effects are neither large nor well
+C established below 80 km and these parameters should be set to
+C 150., 150., and 4. respectively.
+C
+C OUTPUT VARIABLES:
+C D(1) - HE NUMBER DENSITY(CM-3)
+C D(2) - O NUMBER DENSITY(CM-3)
+C D(3) - N2 NUMBER DENSITY(CM-3)
+C D(4) - O2 NUMBER DENSITY(CM-3)
+C D(5) - AR NUMBER DENSITY(CM-3)
+C D(6) - TOTAL MASS DENSITY(GM/CM3)
+C D(7) - H NUMBER DENSITY(CM-3)
+C D(8) - N NUMBER DENSITY(CM-3)
+C D(9) - Anomalous oxygen NUMBER DENSITY(CM-3)
+C T(1) - EXOSPHERIC TEMPERATURE
+C T(2) - TEMPERATURE AT ALT
+C
+C NOTES ON OUTPUT VARIABLES:
+C TO GET OUTPUT IN M-3 and KG/M3: CALL METERS(.TRUE.)
+C
+C O, H, and N are set to zero below 72.5 km
+C
+C T(1), Exospheric temperature, is set to global average for
+C altitudes below 120 km. The 120 km gradient is left at global
+C average value for altitudes below 72 km.
+C
+C D(6), TOTAL MASS DENSITY, is NOT the same for subroutines GTD7
+C and GTD7D
+C
+C SUBROUTINE GTD7 -- D(6) is the sum of the mass densities of the
+C species labeled by indices 1-5 and 7-8 in output variable D.
+C This includes He, O, N2, O2, Ar, H, and N but does NOT include
+C anomalous oxygen (species index 9).
+C
+C SUBROUTINE GTD7D -- D(6) is the "effective total mass density
+C for drag" and is the sum of the mass densities of all species
+C in this model, INCLUDING anomalous oxygen.
+C
+C SWITCHES: The following is for test and special purposes:
+C
+C TO TURN ON AND OFF PARTICULAR VARIATIONS CALL TSELEC(SW),
+C WHERE SW IS A 25 ELEMENT ARRAY CONTAINING 0. FOR OFF, 1.
+C FOR ON, OR 2. FOR MAIN EFFECTS OFF BUT CROSS TERMS ON
+C FOR THE FOLLOWING VARIATIONS
+C 1 - F10.7 EFFECT ON MEAN 2 - TIME INDEPENDENT
+C 3 - SYMMETRICAL ANNUAL 4 - SYMMETRICAL SEMIANNUAL
+C 5 - ASYMMETRICAL ANNUAL 6 - ASYMMETRICAL SEMIANNUAL
+C 7 - DIURNAL 8 - SEMIDIURNAL
+C 9 - DAILY AP 10 - ALL UT/LONG EFFECTS
+C 11 - LONGITUDINAL 12 - UT AND MIXED UT/LONG
+C 13 - MIXED AP/UT/LONG 14 - TERDIURNAL
+C 15 - DEPARTURES FROM DIFFUSIVE EQUILIBRIUM
+C 16 - ALL TINF VAR 17 - ALL TLB VAR
+C 18 - ALL TN1 VAR 19 - ALL S VAR
+C 20 - ALL TN2 VAR 21 - ALL NLB VAR
+C 22 - ALL TN3 VAR 23 - TURBO SCALE HEIGHT VAR
+C
+C To get current values of SW: CALL TRETRV(SW)
+C
+ DIMENSION D(9),T(2),AP(7),DS(9),TS(2)
+ DIMENSION ZN3(5),ZN2(4),SV(25)
+ COMMON/GTS3C/TLB,S,DB04,DB16,DB28,DB32,DB40,DB48,DB01,ZA,T0,Z0
+ & ,G0,RL,DD,DB14,TR12
+ COMMON/MESO7/TN1(5),TN2(4),TN3(5),TGN1(2),TGN2(2),TGN3(2)
+ COMMON/LOWER7_/PTM(10),PDM(10,8)
+ COMMON/PARM7_/PT(150),PD(150,9),PS(150),PDL(25,2),PTL(100,4),
+ $ PMA(100,10),SAM(100)
+ COMMON/DATIM7_/ISD(3),IST(2),NAM(2)
+ COMMON/DATIME/ISDATE(3),ISTIME(2),NAME(2)
+ COMMON/CSW/SW(25),ISW,SWC(25)
+ COMMON/MAVG7/PAVGM(10)
+ COMMON/DMIX/DM04,DM16,DM28,DM32,DM40,DM01,DM14
+ COMMON/PARMB/GSURF,RE
+ COMMON/METSEL/IMR
+ SAVE
+ EXTERNAL GTD7BK_
+ DATA MN3/5/,ZN3/32.5,20.,15.,10.,0./
+ DATA MN2/4/,ZN2/72.5,55.,45.,32.5/
+ DATA ZMIX/62.5/,ALAST/99999./,MSSL/-999/
+ DATA SV/25*1./
+c write(6,*) 'inside gtd7'
+c write(6,*) IYD,SEC,ALT,GLAT,GLONG,STL,F107A,F107,AP
+ IF(ISW.NE.64999) CALL TSELEC0_(SV)
+C Put identification data into common/datime/
+ DO 1 I=1,3
+ ISDATE(I)=ISD(I)
+ 1 CONTINUE
+ DO 2 I=1,2
+ ISTIME(I)=IST(I)
+ NAME(I)=NAM(I)
+ 2 CONTINUE
+C
+C Test for changed input
+ V1=VTST7(IYD,SEC,GLAT,GLONG,STL,F107A,F107,AP,1)
+C Latitude variation of gravity (none for SW(2)=0)
+ XLAT=GLAT
+ IF(SW(2).EQ.0) XLAT=45.
+ CALL GLATF_(XLAT,GSURF,RE)
+C
+ XMM=PDM(5,3)
+C
+C THERMOSPHERE/MESOSPHERE (above ZN2(1))
+ ALTT=AMAX1(ALT,ZN2(1))
+ MSS=MASS
+C Only calculate N2 in thermosphere if alt in mixed region
+ IF(ALT.LT.ZMIX.AND.MASS.GT.0) MSS=28
+C Only calculate thermosphere if input parameters changed
+C or altitude above ZN2(1) in mesosphere
+ IF(V1.EQ.1..OR.ALT.GT.ZN2(1).OR.ALAST.GT.ZN2(1).OR.MSS.NE.MSSL)
+ $ THEN
+
+ CALL GTS7_(IYD,SEC,ALTT,GLAT,GLONG,STL,F107A,F107,AP,MSS,DS,TS)
+ DM28M=DM28
+C metric adjustment
+ IF(IMR.EQ.1) DM28M=DM28*1.E6
+ MSSL=MSS
+ ENDIF
+
+ T(1)=TS(1)
+ T(2)=TS(2)
+ IF(ALT.GE.ZN2(1)) THEN
+ DO 5 J=1,9
+ D(J)=DS(J)
+ 5 CONTINUE
+ GOTO 10
+ ENDIF
+C
+C LOWER MESOSPHERE/UPPER STRATOSPHERE [between ZN3(1) and ZN2(1)]
+C Temperature at nodes and gradients at end nodes
+C Inverse temperature a linear function of spherical harmonics
+C Only calculate nodes if input changed
+ IF(V1.EQ.1..OR.ALAST.GE.ZN2(1)) THEN
+ TGN2(1)=TGN1(2)
+ TN2(1)=TN1(5)
+ TN2(2)=PMA(1,1)*PAVGM(1)/(1.-SW(20)*GLOB7S_(PMA(1,1)))
+ TN2(3)=PMA(1,2)*PAVGM(2)/(1.-SW(20)*GLOB7S_(PMA(1,2)))
+ TN2(4)=PMA(1,3)*PAVGM(3)/(1.-SW(20)*SW(22)*GLOB7S_(PMA(1,3)))
+ TGN2(2)=PAVGM(9)*PMA(1,10)*(1.+SW(20)*SW(22)*GLOB7S_(PMA(1,10)))
+ $ *TN2(4)*TN2(4)/(PMA(1,3)*PAVGM(3))**2
+ TN3(1)=TN2(4)
+ ENDIF
+ IF(ALT.GE.ZN3(1)) GOTO 6
+C
+C LOWER STRATOSPHERE AND TROPOSPHERE [below ZN3(1)]
+C Temperature at nodes and gradients at end nodes
+C Inverse temperature a linear function of spherical harmonics
+C Only calculate nodes if input changed
+ IF(V1.EQ.1..OR.ALAST.GE.ZN3(1)) THEN
+ TGN3(1)=TGN2(2)
+ TN3(2)=PMA(1,4)*PAVGM(4)/(1.-SW(22)*GLOB7S_(PMA(1,4)))
+ TN3(3)=PMA(1,5)*PAVGM(5)/(1.-SW(22)*GLOB7S_(PMA(1,5)))
+ TN3(4)=PMA(1,6)*PAVGM(6)/(1.-SW(22)*GLOB7S_(PMA(1,6)))
+ TN3(5)=PMA(1,7)*PAVGM(7)/(1.-SW(22)*GLOB7S_(PMA(1,7)))
+ TGN3(2)=PMA(1,8)*PAVGM(8)*(1.+SW(22)*GLOB7S_(PMA(1,8)))
+ $ *TN3(5)*TN3(5)/(PMA(1,7)*PAVGM(7))**2
+ ENDIF
+ 6 CONTINUE
+ IF(MASS.EQ.0) GOTO 50
+C LINEAR TRANSITION TO FULL MIXING BELOW ZN2(1)
+ DMC=0
+ IF(ALT.GT.ZMIX) DMC=1.-(ZN2(1)-ALT)/(ZN2(1)-ZMIX)
+ DZ28=DS(3)
+C ***** N2 DENSITY ****
+ DMR=DS(3)/DM28M-1.
+ D(3)=DENSM_(ALT,DM28M,XMM,TZ,MN3,ZN3,TN3,TGN3,MN2,ZN2,TN2,TGN2)
+ D(3)=D(3)*(1.+DMR*DMC)
+C ***** HE DENSITY ****
+ D(1)=0
+ IF(MASS.NE.4.AND.MASS.NE.48) GOTO 204
+ DMR=DS(1)/(DZ28*PDM(2,1))-1.
+ D(1)=D(3)*PDM(2,1)*(1.+DMR*DMC)
+ 204 CONTINUE
+C **** O DENSITY ****
+ D(2)=0
+ D(9)=0
+ 216 CONTINUE
+C ***** O2 DENSITY ****
+ D(4)=0
+ IF(MASS.NE.32.AND.MASS.NE.48) GOTO 232
+ DMR=DS(4)/(DZ28*PDM(2,4))-1.
+ D(4)=D(3)*PDM(2,4)*(1.+DMR*DMC)
+ 232 CONTINUE
+C ***** AR DENSITY ****
+ D(5)=0
+ IF(MASS.NE.40.AND.MASS.NE.48) GOTO 240
+ DMR=DS(5)/(DZ28*PDM(2,5))-1.
+ D(5)=D(3)*PDM(2,5)*(1.+DMR*DMC)
+ 240 CONTINUE
+C ***** HYDROGEN DENSITY ****
+ D(7)=0
+C ***** ATOMIC NITROGEN DENSITY ****
+ D(8)=0
+C
+C TOTAL MASS DENSITY
+C
+ IF(MASS.EQ.48) THEN
+ D(6) = 1.66E-24*(4.*D(1)+16.*D(2)+28.*D(3)+32.*D(4)+40.*D(5)+
+ & D(7)+14.*D(8))
+ IF(IMR.EQ.1) D(6)=D(6)/1000.
+ ENDIF
+ T(2)=TZ
+ 10 CONTINUE
+ GOTO 90
+ 50 CONTINUE
+ DD=DENSM_(ALT,1.,0,TZ,MN3,ZN3,TN3,TGN3,MN2,ZN2,TN2,TGN2)
+ T(2)=TZ
+ 90 CONTINUE
+ ALAST=ALT
+ RETURN
+ END
+C-----------------------------------------------------------------------
+ SUBROUTINE GTD7D_(IYD,SEC,ALT,GLAT,GLONG,STL,F107A,F107,AP,MASS,
+ $ D,T)
+C
+C NRLMSISE-00
+C -----------
+C This subroutine provides Effective Total Mass Density for
+C output D(6) which includes contributions from "anomalous
+C oxygen" which can affect satellite drag above 500 km. This
+C subroutine is part of the distribution package for the
+C Neutral Atmosphere Empirical Model from the surface to lower
+C exosphere. See subroutine GTD7 for more extensive comments.
+C
+C INPUT VARIABLES:
+C IYD - YEAR AND DAY AS YYDDD (day of year from 1 to 365 (or 366))
+C (Year ignored in current model)
+C SEC - UT(SEC)
+C ALT - ALTITUDE(KM)
+C GLAT - GEODETIC LATITUDE(DEG)
+C GLONG - GEODETIC LONGITUDE(DEG)
+C STL - LOCAL APPARENT SOLAR TIME(HRS; see Note below)
+C F107A - 81 day AVERAGE OF F10.7 FLUX (centered on day DDD)
+C F107 - DAILY F10.7 FLUX FOR PREVIOUS DAY
+C AP - MAGNETIC INDEX(DAILY) OR WHEN SW(9)=-1. :
+C - ARRAY CONTAINING:
+C (1) DAILY AP
+C (2) 3 HR AP INDEX FOR CURRENT TIME
+C (3) 3 HR AP INDEX FOR 3 HRS BEFORE CURRENT TIME
+C (4) 3 HR AP INDEX FOR 6 HRS BEFORE CURRENT TIME
+C (5) 3 HR AP INDEX FOR 9 HRS BEFORE CURRENT TIME
+C (6) AVERAGE OF EIGHT 3 HR AP INDICIES FROM 12 TO 33 HRS PRIOR
+C TO CURRENT TIME
+C (7) AVERAGE OF EIGHT 3 HR AP INDICIES FROM 36 TO 57 HRS PRIOR
+C TO CURRENT TIME
+C MASS - MASS NUMBER (ONLY DENSITY FOR SELECTED GAS IS
+C CALCULATED. MASS 0 IS TEMPERATURE. MASS 48 FOR ALL.
+C MASS 17 IS Anomalous O ONLY.)
+C
+C NOTES ON INPUT VARIABLES:
+C UT, Local Time, and Longitude are used independently in the
+C model and are not of equal importance for every situation.
+C For the most physically realistic calculation these three
+C variables should be consistent (STL=SEC/3600+GLONG/15).
+C The Equation of Time departures from the above formula
+C for apparent local time can be included if available but
+C are of minor importance.
+c
+C F107 and F107A values used to generate the model correspond
+C to the 10.7 cm radio flux at the actual distance of the Earth
+C from the Sun rather than the radio flux at 1 AU.
+C
+C OUTPUT VARIABLES:
+C D(1) - HE NUMBER DENSITY(CM-3)
+C D(2) - O NUMBER DENSITY(CM-3)
+C D(3) - N2 NUMBER DENSITY(CM-3)
+C D(4) - O2 NUMBER DENSITY(CM-3)
+C D(5) - AR NUMBER DENSITY(CM-3)
+C D(6) - TOTAL MASS DENSITY(GM/CM3) [includes anomalous oxygen]
+C D(7) - H NUMBER DENSITY(CM-3)
+C D(8) - N NUMBER DENSITY(CM-3)
+C D(9) - Anomalous oxygen NUMBER DENSITY(CM-3)
+C T(1) - EXOSPHERIC TEMPERATURE
+C T(2) - TEMPERATURE AT ALT
+C
+ DIMENSION D(9),T(2),AP(7),DS(9),TS(2)
+ COMMON/METSEL/IMR
+ CALL GTD7_(IYD,SEC,ALT,GLAT,GLONG,STL,F107A,F107,AP,MASS,D,T)
+C TOTAL MASS DENSITY
+C
+ IF(MASS.EQ.48) THEN
+ D(6) = 1.66E-24*(4.*D(1)+16.*D(2)+28.*D(3)+32.*D(4)+40.*D(5)+
+ & D(7)+14.*D(8)+16.*D(9))
+ IF(IMR.EQ.1) D(6)=D(6)/1000.
+ ENDIF
+ RETURN
+ END
+C-----------------------------------------------------------------------
+ SUBROUTINE GHP7_(IYD,SEC,ALT,GLAT,GLONG,STL,F107A,F107,AP,
+ $ D,T,PRESS)
+C FIND ALTITUDE OF PRESSURE SURFACE (PRESS) FROM GTD7
+C INPUT:
+C IYD - YEAR AND DAY AS YYDDD
+C SEC - UT(SEC)
+C GLAT - GEODETIC LATITUDE(DEG)
+C GLONG - GEODETIC LONGITUDE(DEG)
+C STL - LOCAL APPARENT SOLAR TIME(HRS)
+C F107A - 3 MONTH AVERAGE OF F10.7 FLUX
+C F107 - DAILY F10.7 FLUX FOR PREVIOUS DAY
+C AP - MAGNETIC INDEX(DAILY) OR WHEN SW(9)=-1. :
+C - ARRAY CONTAINING:
+C (1) DAILY AP
+C (2) 3 HR AP INDEX FOR CURRENT TIME
+C (3) 3 HR AP INDEX FOR 3 HRS BEFORE CURRENT TIME
+C (4) 3 HR AP INDEX FOR 6 HRS BEFORE CURRENT TIME
+C (5) 3 HR AP INDEX FOR 9 HRS BEFORE CURRENT TIME
+C (6) AVERAGE OF EIGHT 3 HR AP INDICIES FROM 12 TO 33 HRS PRIOR
+C TO CURRENT TIME
+C (7) AVERAGE OF EIGHT 3 HR AP INDICIES FROM 36 TO 59 HRS PRIOR
+C TO CURRENT TIME
+C PRESS - PRESSURE LEVEL(MB)
+C OUTPUT:
+C ALT - ALTITUDE(KM)
+C D(1) - HE NUMBER DENSITY(CM-3)
+C D(2) - O NUMBER DENSITY(CM-3)
+C D(3) - N2 NUMBER DENSITY(CM-3)
+C D(4) - O2 NUMBER DENSITY(CM-3)
+C D(5) - AR NUMBER DENSITY(CM-3)
+C D(6) - TOTAL MASS DENSITY(GM/CM3)
+C D(7) - H NUMBER DENSITY(CM-3)
+C D(8) - N NUMBER DENSITY(CM-3)
+C D(9) - HOT O NUMBER DENSITY(CM-3)
+C T(1) - EXOSPHERIC TEMPERATURE
+C T(2) - TEMPERATURE AT ALT
+C
+ COMMON/PARMB/GSURF,RE
+ COMMON/METSEL/IMR
+ DIMENSION D(9),T(2),AP(7)
+ SAVE
+ DATA BM/1.3806E-19/,RGAS/831.4/
+ DATA TEST/.00043/,LTEST/12/
+ PL=ALOG10(PRESS)
+C Initial altitude estimate
+ IF(PL.GE.-5.) THEN
+ IF(PL.GT.2.5) ZI=18.06*(3.00-PL)
+ IF(PL.GT..75.AND.PL.LE.2.5) ZI=14.98*(3.08-PL)
+ IF(PL.GT.-1..AND.PL.LE..75) ZI=17.8*(2.72-PL)
+ IF(PL.GT.-2..AND.PL.LE.-1.) ZI=14.28*(3.64-PL)
+ IF(PL.GT.-4..AND.PL.LE.-2.) ZI=12.72*(4.32-PL)
+ IF(PL.LE.-4.) ZI=25.3*(.11-PL)
+ IDAY=MOD(IYD,1000)
+ CL=GLAT/90.
+ CL2=CL*CL
+ IF(IDAY.LT.182) CD=1.-IDAY/91.25
+ IF(IDAY.GE.182) CD=IDAY/91.25-3.
+ CA=0
+ IF(PL.GT.-1.11.AND.PL.LE.-.23) CA=1.0
+ IF(PL.GT.-.23) CA=(2.79-PL)/(2.79+.23)
+ IF(PL.LE.-1.11.AND.PL.GT.-3.) CA=(-2.93-PL)/(-2.93+1.11)
+ Z=ZI-4.87*CL*CD*CA-1.64*CL2*CA+.31*CA*CL
+ ENDIF
+ IF(PL.LT.-5.) Z=22.*(PL+4.)**2+110
+C ITERATION LOOP
+ L=0
+ 10 CONTINUE
+ L=L+1
+ CALL GTD7_(IYD,SEC,Z,GLAT,GLONG,STL,F107A,F107,AP,48,D,T)
+ XN=D(1)+D(2)+D(3)+D(4)+D(5)+D(7)+D(8)
+ P=BM*XN*T(2)
+ IF(IMR.EQ.1) P=P*1.E-6
+ DIFF=PL-ALOG10(P)
+ IF(ABS(DIFF).LT.TEST .OR. L.EQ.LTEST) GOTO 20
+ XM=D(6)/XN/1.66E-24
+ IF(IMR.EQ.1) XM = XM*1.E3
+ G=GSURF/(1.+Z/RE)**2
+ SH=RGAS*T(2)/(XM*G)
+C New altitude estimate using scale height
+ IF(L.LT.6) THEN
+ Z=Z-SH*DIFF*2.302
+ ELSE
+ Z=Z-SH*DIFF
+ ENDIF
+ GOTO 10
+ 20 CONTINUE
+ IF(L.EQ.LTEST) WRITE(6,100) PRESS,DIFF
+ 100 FORMAT(1X,29HGHP7 NOT CONVERGING FOR PRESS, 1PE12.2,E12.2)
+ ALT=Z
+ RETURN
+ END
+C-----------------------------------------------------------------------
+ SUBROUTINE GLATF_(LAT,GV,REFF)
+C CALCULATE LATITUDE VARIABLE GRAVITY (GV) AND EFFECTIVE
+C RADIUS (REFF)
+ REAL LAT
+ SAVE
+ DATA DGTR/1.74533E-2/
+ C2 = COS(2.*DGTR*LAT)
+ GV = 980.616*(1.-.0026373*C2)
+ REFF = 2.*GV/(3.085462E-6 + 2.27E-9*C2)*1.E-5
+ RETURN
+ END
+C-----------------------------------------------------------------------
+ FUNCTION VTST7(IYD,SEC,GLAT,GLONG,STL,F107A,F107,AP,IC)
+C Test if geophysical variables or switches changed and save
+C Return 0 if unchanged and 1 if changed
+ DIMENSION AP(7),IYDL(2),SECL(2),GLATL(2),GLL(2),STLL(2)
+ DIMENSION FAL(2),FL(2),APL(7,2),SWL(25,2),SWCL(25,2)
+ COMMON/CSW/SW(25),ISW,SWC(25)
+ SAVE
+ DATA IYDL/2*-999/,SECL/2*-999./,GLATL/2*-999./,GLL/2*-999./
+ DATA STLL/2*-999./,FAL/2*-999./,FL/2*-999./,APL/14*-999./
+ DATA SWL/50*-999./,SWCL/50*-999./
+ VTST7=0
+ IF(IYD.NE.IYDL(IC)) GOTO 10
+ IF(SEC.NE.SECL(IC)) GOTO 10
+ IF(GLAT.NE.GLATL(IC)) GOTO 10
+ IF(GLONG.NE.GLL(IC)) GOTO 10
+ IF(STL.NE.STLL(IC)) GOTO 10
+ IF(F107A.NE.FAL(IC)) GOTO 10
+ IF(F107.NE.FL(IC)) GOTO 10
+ DO 5 I=1,7
+ IF(AP(I).NE.APL(I,IC)) GOTO 10
+ 5 CONTINUE
+ DO 7 I=1,25
+ IF(SW(I).NE.SWL(I,IC)) GOTO 10
+ IF(SWC(I).NE.SWCL(I,IC)) GOTO 10
+ 7 CONTINUE
+ GOTO 20
+ 10 CONTINUE
+ VTST7=1
+ IYDL(IC)=IYD
+ SECL(IC)=SEC
+ GLATL(IC)=GLAT
+ GLL(IC)=GLONG
+ STLL(IC)=STL
+ FAL(IC)=F107A
+ FL(IC)=F107
+ DO 15 I=1,7
+ APL(I,IC)=AP(I)
+ 15 CONTINUE
+ DO 16 I=1,25
+ SWL(I,IC)=SW(I)
+ SWCL(I,IC)=SWC(I)
+ 16 CONTINUE
+ 20 CONTINUE
+ RETURN
+ END
+C-----------------------------------------------------------------------
+ SUBROUTINE GTS7_(IYD,SEC,ALT,GLAT,GLONG,STL,F107A,F107,
+ & AP,MASS,D,T)
+C
+C Thermospheric portion of NRLMSISE-00
+C See GTD7 for more extensive comments
+C
+C OUTPUT IN M-3 and KG/M3: CALL METERS(.TRUE.)
+C
+C INPUT VARIABLES:
+C IYD - YEAR AND DAY AS YYDDD (day of year from 1 to 365 (or 366))
+C (Year ignored in current model)
+C SEC - UT(SEC)
+C ALT - ALTITUDE(KM) (>72.5 km)
+C GLAT - GEODETIC LATITUDE(DEG)
+C GLONG - GEODETIC LONGITUDE(DEG)
+C STL - LOCAL APPARENT SOLAR TIME(HRS; see Note below)
+C F107A - 81 day AVERAGE OF F10.7 FLUX (centered on day DDD)
+C F107 - DAILY F10.7 FLUX FOR PREVIOUS DAY
+C AP - MAGNETIC INDEX(DAILY) OR WHEN SW(9)=-1. :
+C - ARRAY CONTAINING:
+C (1) DAILY AP
+C (2) 3 HR AP INDEX FOR CURRENT TIME
+C (3) 3 HR AP INDEX FOR 3 HRS BEFORE CURRENT TIME
+C (4) 3 HR AP INDEX FOR 6 HRS BEFORE CURRENT TIME
+C (5) 3 HR AP INDEX FOR 9 HRS BEFORE CURRENT TIME
+C (6) AVERAGE OF EIGHT 3 HR AP INDICIES FROM 12 TO 33 HRS PRIOR
+C TO CURRENT TIME
+C (7) AVERAGE OF EIGHT 3 HR AP INDICIES FROM 36 TO 57 HRS PRIOR
+C TO CURRENT TIME
+C MASS - MASS NUMBER (ONLY DENSITY FOR SELECTED GAS IS
+C CALCULATED. MASS 0 IS TEMPERATURE. MASS 48 FOR ALL.
+C MASS 17 IS Anomalous O ONLY.)
+C
+C NOTES ON INPUT VARIABLES:
+C UT, Local Time, and Longitude are used independently in the
+C model and are not of equal importance for every situation.
+C For the most physically realistic calculation these three
+C variables should be consistent (STL=SEC/3600+GLONG/15).
+C The Equation of Time departures from the above formula
+C for apparent local time can be included if available but
+C are of minor importance.
+c
+C F107 and F107A values used to generate the model correspond
+C to the 10.7 cm radio flux at the actual distance of the Earth
+C from the Sun rather than the radio flux at 1 AU. The following
+C site provides both classes of values:
+C ftp://ftp.ngdc.noaa.gov/STP/SOLAR_DATA/SOLAR_RADIO/FLUX/
+C
+C F107, F107A, and AP effects are neither large nor well
+C established below 80 km and these parameters should be set to
+C 150., 150., and 4. respectively.
+C
+C OUTPUT VARIABLES:
+C D(1) - HE NUMBER DENSITY(CM-3)
+C D(2) - O NUMBER DENSITY(CM-3)
+C D(3) - N2 NUMBER DENSITY(CM-3)
+C D(4) - O2 NUMBER DENSITY(CM-3)
+C D(5) - AR NUMBER DENSITY(CM-3)
+C D(6) - TOTAL MASS DENSITY(GM/CM3) [Anomalous O NOT included]
+C D(7) - H NUMBER DENSITY(CM-3)
+C D(8) - N NUMBER DENSITY(CM-3)
+C D(9) - Anomalous oxygen NUMBER DENSITY(CM-3)
+C T(1) - EXOSPHERIC TEMPERATURE
+C T(2) - TEMPERATURE AT ALT
+C
+ DIMENSION ZN1(5),ALPHA(9)
+ COMMON/GTS3C/TLB,S,DB04,DB16,DB28,DB32,DB40,DB48,DB01,ZA,T0,Z0
+ & ,G0,RL,DD,DB14,TR12
+ COMMON/MESO7/TN1(5),TN2(4),TN3(5),TGN1(2),TGN2(2),TGN3(2)
+ DIMENSION D(9),T(2),MT(11),AP(7),ALTL(8)
+ COMMON/LOWER7_/PTM(10),PDM(10,8)
+ COMMON/PARM7_/PT(150),PD(150,9),PS(150),PDL(25,2),PTL(100,4),
+ $ PMA(100,10),SAM(100)
+ COMMON/CSW/SW(25),ISW,SWC(25)
+ COMMON/TTEST/TINFG,GB,ROUT,TT(15)
+ COMMON/DMIX/DM04,DM16,DM28,DM32,DM40,DM01,DM14
+ COMMON/METSEL/IMR
+ SAVE
+ DATA MT/48,0,4,16,28,32,40,1,49,14,17/
+ DATA ALTL/200.,300.,160.,250.,240.,450.,320.,450./
+ DATA MN1/5/,ZN1/120.,110.,100.,90.,72.5/
+ DATA DGTR/1.74533E-2/,DR/1.72142E-2/,ALAST/-999./
+ DATA ALPHA/-0.38,0.,0.,0.,0.17,0.,-0.38,0.,0./
+C Test for changed input
+ V2=VTST7(IYD,SEC,GLAT,GLONG,STL,F107A,F107,AP,2)
+C
+ YRD=IYD
+ ZA=PDL(16,2)
+ ZN1(1)=ZA
+ DO 2 J=1,9
+ D(J)=0.
+ 2 CONTINUE
+C TINF VARIATIONS NOT IMPORTANT BELOW ZA OR ZN1(1)
+ IF(ALT.GT.ZN1(1)) THEN
+ IF(V2.EQ.1..OR.ALAST.LE.ZN1(1)) TINF=PTM(1)*PT(1)
+ $ *(1.+SW(16)*GLOBE7_(YRD,SEC,GLAT,GLONG,STL,F107A,F107,AP,PT))
+ ELSE
+ TINF=PTM(1)*PT(1)
+ ENDIF
+ T(1)=TINF
+C GRADIENT VARIATIONS NOT IMPORTANT BELOW ZN1(5)
+ IF(ALT.GT.ZN1(5)) THEN
+ IF(V2.EQ.1.OR.ALAST.LE.ZN1(5)) G0=PTM(4)*PS(1)
+ $ *(1.+SW(19)*GLOBE7_(YRD,SEC,GLAT,GLONG,STL,F107A,F107,AP,PS))
+ ELSE
+ G0=PTM(4)*PS(1)
+ ENDIF
+C Calculate these temperatures only if input changed
+ IF(V2.EQ.1. .OR. ALT.LT.300.)
+ $ TLB=PTM(2)*(1.+SW(17)*GLOBE7_(YRD,SEC,GLAT,GLONG,STL,
+ $ F107A,F107,AP,PD(1,4)))*PD(1,4)
+ S=G0/(TINF-TLB)
+C Lower thermosphere temp variations not significant for
+C density above 300 km
+ IF(ALT.LT.300.) THEN
+ IF(V2.EQ.1..OR.ALAST.GE.300.) THEN
+ TN1(2)=PTM(7)*PTL(1,1)/(1.-SW(18)*GLOB7S_(PTL(1,1)))
+ TN1(3)=PTM(3)*PTL(1,2)/(1.-SW(18)*GLOB7S_(PTL(1,2)))
+ TN1(4)=PTM(8)*PTL(1,3)/(1.-SW(18)*GLOB7S_(PTL(1,3)))
+ TN1(5)=PTM(5)*PTL(1,4)/(1.-SW(18)*SW(20)*GLOB7S_(PTL(1,4)))
+ TGN1(2)=PTM(9)*PMA(1,9)*(1.+SW(18)*SW(20)*GLOB7S_(PMA(1,9)))
+ $ *TN1(5)*TN1(5)/(PTM(5)*PTL(1,4))**2
+ ENDIF
+ ELSE
+ TN1(2)=PTM(7)*PTL(1,1)
+ TN1(3)=PTM(3)*PTL(1,2)
+ TN1(4)=PTM(8)*PTL(1,3)
+ TN1(5)=PTM(5)*PTL(1,4)
+ TGN1(2)=PTM(9)*PMA(1,9)
+ $ *TN1(5)*TN1(5)/(PTM(5)*PTL(1,4))**2
+ ENDIF
+C
+ Z0=ZN1(4)
+ T0=TN1(4)
+ TR12=1.
+C
+ IF(MASS.EQ.0) GO TO 50
+C N2 variation factor at Zlb
+ G28=SW(21)*GLOBE7_(YRD,SEC,GLAT,GLONG,STL,F107A,F107,
+ & AP,PD(1,3))
+ DAY=AMOD(YRD,1000.)
+C VARIATION OF TURBOPAUSE HEIGHT
+ ZHF=PDL(25,2)
+ $ *(1.+SW(5)*PDL(25,1)*SIN(DGTR*GLAT)*COS(DR*(DAY-PT(14))))
+ YRD=IYD
+ T(1)=TINF
+ XMM=PDM(5,3)
+ Z=ALT
+C
+ DO 10 J = 1,11
+ IF(MASS.EQ.MT(J)) GO TO 15
+ 10 CONTINUE
+ WRITE(6,100) MASS
+ GO TO 90
+ 15 IF(Z.GT.ALTL(6).AND.MASS.NE.28.AND.MASS.NE.48) GO TO 17
+C
+C **** N2 DENSITY ****
+C
+C Diffusive density at Zlb
+ DB28 = PDM(1,3)*EXP(G28)*PD(1,3)
+C Diffusive density at Alt
+ D(3)=DENSU_(Z,DB28,TINF,TLB, 28.,ALPHA(3),T(2),PTM(6),S,MN1,ZN1,
+ & TN1,TGN1)
+
+ DD=D(3)
+C Turbopause
+ ZH28=PDM(3,3)*ZHF
+ ZHM28=PDM(4,3)*PDL(6,2)
+ XMD=28.-XMM
+C Mixed density at Zlb
+ B28=DENSU_(ZH28,DB28,TINF,TLB,XMD,ALPHA(3)-1.,TZ,PTM(6),S,MN1,
+ & ZN1,TN1,TGN1)
+ IF(Z.GT.ALTL(3).OR.SW(15).EQ.0.) GO TO 17
+C Mixed density at Alt
+ DM28=DENSU_(Z,B28,TINF,TLB,XMM,ALPHA(3),TZ,PTM(6),S,MN1,
+ & ZN1,TN1,TGN1)
+C Net density at Alt
+ D(3)=DNET0_(D(3),DM28,ZHM28,XMM,28.)
+ 17 CONTINUE
+ GO TO (20,50,20,25,90,35,40,45,25,48,46), J
+ 20 CONTINUE
+C
+C **** HE DENSITY ****
+C
+C Density variation factor at Zlb
+ G4 = SW(21)*GLOBE7_(YRD,SEC,GLAT,GLONG,STL,F107A,F107,AP,PD(1,1))
+C Diffusive density at Zlb
+ DB04 = PDM(1,1)*EXP(G4)*PD(1,1)
+C Diffusive density at Alt
+ D(1)=DENSU_(Z,DB04,TINF,TLB, 4.,ALPHA(1),T(2),PTM(6),S,MN1,ZN1,
+ & TN1,TGN1)
+ DD=D(1)
+ IF(Z.GT.ALTL(1).OR.SW(15).EQ.0.) GO TO 24
+C Turbopause
+ ZH04=PDM(3,1)
+C Mixed density at Zlb
+ B04=DENSU_(ZH04,DB04,TINF,TLB,4.-XMM,ALPHA(1)-1.,
+ $ T(2),PTM(6),S,MN1,ZN1,TN1,TGN1)
+C Mixed density at Alt
+ DM04=DENSU_(Z,B04,TINF,TLB,XMM,0.,T(2),PTM(6),S,MN1,ZN1,TN1,TGN1)
+ ZHM04=ZHM28
+C Net density at Alt
+ D(1)=DNET0_(D(1),DM04,ZHM04,XMM,4.)
+C Correction to specified mixing ratio at ground
+ RL=ALOG(B28*PDM(2,1)/B04)
+ ZC04=PDM(5,1)*PDL(1,2)
+ HC04=PDM(6,1)*PDL(2,2)
+C Net density corrected at Alt
+ D(1)=D(1)*CCOR0_(Z,RL,HC04,ZC04)
+ 24 CONTINUE
+ IF(MASS.NE.48) GO TO 90
+ 25 CONTINUE
+C
+C **** O DENSITY ****
+C
+C Density variation factor at Zlb
+ G16= SW(21)*GLOBE7_(YRD,SEC,GLAT,GLONG,STL,F107A,F107,AP,PD(1,2))
+C Diffusive density at Zlb
+ DB16 = PDM(1,2)*EXP(G16)*PD(1,2)
+C Diffusive density at Alt
+ D(2)=DENSU_(Z,DB16,TINF,TLB, 16.,ALPHA(2),T(2),PTM(6),S,MN1,
+ $ ZN1,TN1,TGN1)
+ DD=D(2)
+ IF(Z.GT.ALTL(2).OR.SW(15).EQ.0.) GO TO 34
+C Corrected from PDM(3,1) to PDM(3,2) 12/2/85
+C Turbopause
+ ZH16=PDM(3,2)
+C Mixed density at Zlb
+ B16=DENSU_(ZH16,DB16,TINF,TLB,16-XMM,ALPHA(2)-1.,
+ $ T(2),PTM(6),S,MN1,ZN1,TN1,TGN1)
+C Mixed density at Alt
+ DM16=DENSU_(Z,B16,TINF,TLB,XMM,0.,T(2),PTM(6),S,MN1,ZN1,TN1,TGN1)
+ ZHM16=ZHM28
+C Net density at Alt
+ D(2)=DNET0_(D(2),DM16,ZHM16,XMM,16.)
+C 3/16/99 Change form to match O2 departure from diff equil near 150
+C km and add dependence on F10.7
+C RL=ALOG(B28*PDM(2,2)*ABS(PDL(17,2))/B16)
+ RL=PDM(2,2)*PDL(17,2)*(1.+SW(1)*PDL(24,1)*(F107A-150.))
+ HC16=PDM(6,2)*PDL(4,2)
+ ZC16=PDM(5,2)*PDL(3,2)
+ HC216=PDM(6,2)*PDL(5,2)
+ D(2)=D(2)*CCOR2(Z,RL,HC16,ZC16,HC216)
+C Chemistry correction
+ HCC16=PDM(8,2)*PDL(14,2)
+ ZCC16=PDM(7,2)*PDL(13,2)
+ RC16=PDM(4,2)*PDL(15,2)
+C Net density corrected at Alt
+ D(2)=D(2)*CCOR0_(Z,RC16,HCC16,ZCC16)
+ 34 CONTINUE
+ IF(MASS.NE.48.AND.MASS.NE.49) GO TO 90
+ 35 CONTINUE
+C
+C **** O2 DENSITY ****
+C
+C Density variation factor at Zlb
+ G32= SW(21)*GLOBE7_(YRD,SEC,GLAT,GLONG,STL,F107A,F107,AP,PD(1,5))
+C Diffusive density at Zlb
+ DB32 = PDM(1,4)*EXP(G32)*PD(1,5)
+C Diffusive density at Alt
+ D(4)=DENSU_(Z,DB32,TINF,TLB, 32.,ALPHA(4),T(2),PTM(6),S,MN1,
+ $ ZN1,TN1,TGN1)
+ IF(MASS.EQ.49) THEN
+ DD=DD+2.*D(4)
+ ELSE
+ DD=D(4)
+ ENDIF
+ IF(SW(15).EQ.0.) GO TO 39
+ IF(Z.GT.ALTL(4)) GO TO 38
+C Turbopause
+ ZH32=PDM(3,4)
+C Mixed density at Zlb
+ B32=DENSU_(ZH32,DB32,TINF,TLB,32.-XMM,ALPHA(4)-1.,
+ $ T(2),PTM(6),S,MN1,ZN1,TN1,TGN1)
+C Mixed density at Alt
+ DM32=DENSU_(Z,B32,TINF,TLB,XMM,0.,T(2),PTM(6),S,MN1,ZN1,TN1,TGN1)
+ ZHM32=ZHM28
+C Net density at Alt
+ D(4)=DNET0_(D(4),DM32,ZHM32,XMM,32.)
+C Correction to specified mixing ratio at ground
+ RL=ALOG(B28*PDM(2,4)/B32)
+ HC32=PDM(6,4)*PDL(8,2)
+ ZC32=PDM(5,4)*PDL(7,2)
+ D(4)=D(4)*CCOR0_(Z,RL,HC32,ZC32)
+ 38 CONTINUE
+C Correction for general departure from diffusive equilibrium above Zlb
+ HCC32=PDM(8,4)*PDL(23,2)
+ HCC232=PDM(8,4)*PDL(23,1)
+ ZCC32=PDM(7,4)*PDL(22,2)
+ RC32=PDM(4,4)*PDL(24,2)*(1.+SW(1)*PDL(24,1)*(F107A-150.))
+C Net density corrected at Alt
+ D(4)=D(4)*CCOR2(Z,RC32,HCC32,ZCC32,HCC232)
+ 39 CONTINUE
+ IF(MASS.NE.48) GO TO 90
+ 40 CONTINUE
+C
+C **** AR DENSITY ****
+C
+C Density variation factor at Zlb
+ G40= SW(21)*GLOBE7_(YRD,SEC,GLAT,GLONG,STL,F107A,F107,AP,PD(1,6))
+C Diffusive density at Zlb
+ DB40 = PDM(1,5)*EXP(G40)*PD(1,6)
+C Diffusive density at Alt
+ D(5)=DENSU_(Z,DB40,TINF,TLB, 40.,ALPHA(5),T(2),PTM(6),S,MN1,
+ $ ZN1,TN1,TGN1)
+ DD=D(5)
+ IF(Z.GT.ALTL(5).OR.SW(15).EQ.0.) GO TO 44
+C Turbopause
+ ZH40=PDM(3,5)
+C Mixed density at Zlb
+ B40=DENSU_(ZH40,DB40,TINF,TLB,40.-XMM,ALPHA(5)-1.,
+ $ T(2),PTM(6),S,MN1,ZN1,TN1,TGN1)
+C Mixed density at Alt
+ DM40=DENSU_(Z,B40,TINF,TLB,XMM,0.,T(2),PTM(6),S,MN1,ZN1,TN1,TGN1)
+ ZHM40=ZHM28
+C Net density at Alt
+ D(5)=DNET0_(D(5),DM40,ZHM40,XMM,40.)
+C Correction to specified mixing ratio at ground
+ RL=ALOG(B28*PDM(2,5)/B40)
+ HC40=PDM(6,5)*PDL(10,2)
+ ZC40=PDM(5,5)*PDL(9,2)
+C Net density corrected at Alt
+ D(5)=D(5)*CCOR0_(Z,RL,HC40,ZC40)
+ 44 CONTINUE
+ IF(MASS.NE.48) GO TO 90
+ 45 CONTINUE
+C
+C **** HYDROGEN DENSITY ****
+C
+C Density variation factor at Zlb
+ G1 = SW(21)*GLOBE7_(YRD,SEC,GLAT,GLONG,STL,F107A,F107,AP,PD(1,7))
+C Diffusive density at Zlb
+ DB01 = PDM(1,6)*EXP(G1)*PD(1,7)
+C Diffusive density at Alt
+ D(7)=DENSU_(Z,DB01,TINF,TLB,1.,ALPHA(7),T(2),PTM(6),S,MN1,
+ $ ZN1,TN1,TGN1)
+ DD=D(7)
+ IF(Z.GT.ALTL(7).OR.SW(15).EQ.0.) GO TO 47
+C Turbopause
+ ZH01=PDM(3,6)
+C Mixed density at Zlb
+ B01=DENSU_(ZH01,DB01,TINF,TLB,1.-XMM,ALPHA(7)-1.,
+ $ T(2),PTM(6),S,MN1,ZN1,TN1,TGN1)
+C Mixed density at Alt
+ DM01=DENSU_(Z,B01,TINF,TLB,XMM,0.,T(2),PTM(6),S,MN1,ZN1,TN1,TGN1)
+ ZHM01=ZHM28
+C Net density at Alt
+ D(7)=DNET0_(D(7),DM01,ZHM01,XMM,1.)
+C Correction to specified mixing ratio at ground
+ RL=ALOG(B28*PDM(2,6)*ABS(PDL(18,2))/B01)
+ HC01=PDM(6,6)*PDL(12,2)
+ ZC01=PDM(5,6)*PDL(11,2)
+ D(7)=D(7)*CCOR0_(Z,RL,HC01,ZC01)
+C Chemistry correction
+ HCC01=PDM(8,6)*PDL(20,2)
+ ZCC01=PDM(7,6)*PDL(19,2)
+ RC01=PDM(4,6)*PDL(21,2)
+C Net density corrected at Alt
+ D(7)=D(7)*CCOR0_(Z,RC01,HCC01,ZCC01)
+ 47 CONTINUE
+ IF(MASS.NE.48) GO TO 90
+ 48 CONTINUE
+C
+C **** ATOMIC NITROGEN DENSITY ****
+C
+C Density variation factor at Zlb
+ G14 = SW(21)*GLOBE7_(YRD,SEC,GLAT,GLONG,STL,F107A,F107,AP,PD(1,8))
+C Diffusive density at Zlb
+ DB14 = PDM(1,7)*EXP(G14)*PD(1,8)
+C Diffusive density at Alt
+ D(8)=DENSU_(Z,DB14,TINF,TLB,14.,ALPHA(8),T(2),PTM(6),S,MN1,
+ $ ZN1,TN1,TGN1)
+ DD=D(8)
+ IF(Z.GT.ALTL(8).OR.SW(15).EQ.0.) GO TO 49
+C Turbopause
+ ZH14=PDM(3,7)
+C Mixed density at Zlb
+ B14=DENSU_(ZH14,DB14,TINF,TLB,14.-XMM,ALPHA(8)-1.,
+ $ T(2),PTM(6),S,MN1,ZN1,TN1,TGN1)
+C Mixed density at Alt
+ DM14=DENSU_(Z,B14,TINF,TLB,XMM,0.,T(2),PTM(6),S,MN1,ZN1,TN1,TGN1)
+ ZHM14=ZHM28
+C Net density at Alt
+ D(8)=DNET0_(D(8),DM14,ZHM14,XMM,14.)
+C Correction to specified mixing ratio at ground
+ RL=ALOG(B28*PDM(2,7)*ABS(PDL(3,1))/B14)
+ HC14=PDM(6,7)*PDL(2,1)
+ ZC14=PDM(5,7)*PDL(1,1)
+ D(8)=D(8)*CCOR0_(Z,RL,HC14,ZC14)
+C Chemistry correction
+ HCC14=PDM(8,7)*PDL(5,1)
+ ZCC14=PDM(7,7)*PDL(4,1)
+ RC14=PDM(4,7)*PDL(6,1)
+C Net density corrected at Alt
+ D(8)=D(8)*CCOR0_(Z,RC14,HCC14,ZCC14)
+ 49 CONTINUE
+ IF(MASS.NE.48) GO TO 90
+ 46 CONTINUE
+C
+C **** Anomalous OXYGEN DENSITY ****
+C
+ G16H = SW(21)*GLOBE7_(YRD,SEC,GLAT,GLONG,STL,F107A,F107,
+ $ AP,PD(1,9))
+ DB16H = PDM(1,8)*EXP(G16H)*PD(1,9)
+ THO=PDM(10,8)*PDL(7,1)
+ DD=DENSU_(Z,DB16H,THO,THO,16.,ALPHA(9),T2,PTM(6),S,MN1,
+ $ ZN1,TN1,TGN1)
+ ZSHT=PDM(6,8)
+ ZMHO=PDM(5,8)
+ ZSHO=SCALH_(ZMHO,16.,THO)
+ D(9)=DD*EXP(-ZSHT/ZSHO*(EXP(-(Z-ZMHO)/ZSHT)-1.))
+ IF(MASS.NE.48) GO TO 90
+C
+C TOTAL MASS DENSITY
+C
+ D(6) = 1.66E-24*(4.*D(1)+16.*D(2)+28.*D(3)+32.*D(4)+40.*D(5)+
+ & D(7)+14.*D(8))
+ DB48=1.66E-24*(4.*DB04+16.*DB16+28.*DB28+32.*DB32+40.*DB40+DB01+
+ & 14.*DB14)
+ GO TO 90
+C TEMPERATURE AT ALTITUDE
+ 50 CONTINUE
+ Z=ABS(ALT)
+ DDUM = DENSU_(Z,1., TINF,TLB,0.,0.,T(2),PTM(6),S,MN1,ZN1,
+ $ TN1,TGN1)
+ 90 CONTINUE
+C ADJUST DENSITIES FROM CGS TO KGM
+ IF(IMR.EQ.1) THEN
+ DO 95 I=1,9
+ D(I)=D(I)*1.E6
+ 95 CONTINUE
+ D(6)=D(6)/1000.
+ ENDIF
+ ALAST=ALT
+ RETURN
+ 100 FORMAT(1X,'MASS', I5, ' NOT VALID')
+ END
+C-----------------------------------------------------------------------
+ SUBROUTINE METERS(METER)
+C Convert outputs to Kg & Meters if METER true
+ LOGICAL METER
+ COMMON/METSEL/IMR
+ SAVE
+ IMR=0
+ IF(METER) IMR=1
+ END
+C-----------------------------------------------------------------------
+ FUNCTION SCALH_(ALT,XM,TEMP)
+C Calculate scale height (km)
+ COMMON/PARMB/GSURF,RE
+ SAVE
+ DATA RGAS/831.4/
+ G=GSURF/(1.+ALT/RE)**2
+ SCALH_=RGAS*TEMP/(G*XM)
+ RETURN
+ END
+C-----------------------------------------------------------------------
+ FUNCTION GLOBE7_(YRD,SEC,LAT,LONG,TLOC,F107A,F107,AP,P)
+C CALCULATE G(L) FUNCTION
+C Upper Thermosphere Parameters
+ REAL LAT, LONG
+ DIMENSION P(*),SV(25),AP(*)
+ COMMON/TTEST/TINF,GB,ROUT,T(15)
+ COMMON/CSW/SW(25),ISW,SWC(25)
+ COMMON/LPOLY/PLG(9,4),CTLOC,STLOC,C2TLOC,S2TLOC,C3TLOC,S3TLOC,
+ $ IYR,DAY,DF,DFA,APD,APDF,APT(4),XLONG
+ SAVE
+ DATA DGTR/1.74533E-2/,DR/1.72142E-2/, XL/1000./,TLL/1000./
+ DATA SW9/1./,DAYL/-1./,P14/-1000./,P18/-1000./,P32/-1000./
+ DATA HR/.2618/,SR/7.2722E-5/,SV/25*1./,NSW/14/,P39/-1000./
+C 3hr Magnetic activity functions
+C Eq. A24d
+ G0(A)=(A-4.+(P(26)-1.)*(A-4.+(EXP(-ABS(P(25))*(A-4.))-1.)/ABS(P(25
+ *))))
+C Eq. A24c
+ SUMEX(EX)=1.+(1.-EX**19)/(1.-EX)*EX**(.5)
+C Eq. A24a
+ SG0(EX)=(G0(AP(2))+(G0(AP(3))*EX+G0(AP(4))*EX*EX+G0(AP(5))*EX**3
+ $ +(G0(AP(6))*EX**4+G0(AP(7))*EX**12)*(1.-EX**8)/(1.-EX))
+ $ )/SUMEX(EX)
+ IF(ISW.NE.64999) CALL TSELEC0_(SV)
+ DO 10 J=1,14
+ T(J)=0
+ 10 CONTINUE
+ IF(SW(9).GT.0) SW9=1.
+ IF(SW(9).LT.0) SW9=-1.
+ IYR = YRD/1000.
+ DAY = YRD - IYR*1000.
+ XLONG=LONG
+C Eq. A22 (remainder of code)
+ IF(XL.EQ.LAT) GO TO 15
+C CALCULATE LEGENDRE POLYNOMIALS
+ C = SIN(LAT*DGTR)
+ S = COS(LAT*DGTR)
+ C2 = C*C
+ C4 = C2*C2
+ S2 = S*S
+ PLG(2,1) = C
+ PLG(3,1) = 0.5*(3.*C2 -1.)
+ PLG(4,1) = 0.5*(5.*C*C2-3.*C)
+ PLG(5,1) = (35.*C4 - 30.*C2 + 3.)/8.
+ PLG(6,1) = (63.*C2*C2*C - 70.*C2*C + 15.*C)/8.
+ PLG(7,1) = (11.*C*PLG(6,1) - 5.*PLG(5,1))/6.
+C PLG(8,1) = (13.*C*PLG(7,1) - 6.*PLG(6,1))/7.
+ PLG(2,2) = S
+ PLG(3,2) = 3.*C*S
+ PLG(4,2) = 1.5*(5.*C2-1.)*S
+ PLG(5,2) = 2.5*(7.*C2*C-3.*C)*S
+ PLG(6,2) = 1.875*(21.*C4 - 14.*C2 +1.)*S
+ PLG(7,2) = (11.*C*PLG(6,2)-6.*PLG(5,2))/5.
+C PLG(8,2) = (13.*C*PLG(7,2)-7.*PLG(6,2))/6.
+C PLG(9,2) = (15.*C*PLG(8,2)-8.*PLG(7,2))/7.
+ PLG(3,3) = 3.*S2
+ PLG(4,3) = 15.*S2*C
+ PLG(5,3) = 7.5*(7.*C2 -1.)*S2
+ PLG(6,3) = 3.*C*PLG(5,3)-2.*PLG(4,3)
+ PLG(7,3)=(11.*C*PLG(6,3)-7.*PLG(5,3))/4.
+ PLG(8,3)=(13.*C*PLG(7,3)-8.*PLG(6,3))/5.
+ PLG(4,4) = 15.*S2*S
+ PLG(5,4) = 105.*S2*S*C
+ PLG(6,4)=(9.*C*PLG(5,4)-7.*PLG(4,4))/2.
+ PLG(7,4)=(11.*C*PLG(6,4)-8.*PLG(5,4))/3.
+ XL=LAT
+ 15 CONTINUE
+ IF(TLL.EQ.TLOC) GO TO 16
+ IF(SW(7).EQ.0.AND.SW(8).EQ.0.AND.SW(14).EQ.0) GOTO 16
+ STLOC = SIN(HR*TLOC)
+ CTLOC = COS(HR*TLOC)
+ S2TLOC = SIN(2.*HR*TLOC)
+ C2TLOC = COS(2.*HR*TLOC)
+ S3TLOC = SIN(3.*HR*TLOC)
+ C3TLOC = COS(3.*HR*TLOC)
+ TLL = TLOC
+ 16 CONTINUE
+ IF(DAY.NE.DAYL.OR.P(14).NE.P14) CD14=COS(DR*(DAY-P(14)))
+ IF(DAY.NE.DAYL.OR.P(18).NE.P18) CD18=COS(2.*DR*(DAY-P(18)))
+ IF(DAY.NE.DAYL.OR.P(32).NE.P32) CD32=COS(DR*(DAY-P(32)))
+ IF(DAY.NE.DAYL.OR.P(39).NE.P39) CD39=COS(2.*DR*(DAY-P(39)))
+ DAYL = DAY
+ P14 = P(14)
+ P18 = P(18)
+ P32 = P(32)
+ P39 = P(39)
+C F10.7 EFFECT
+ DF = F107 - F107A
+ DFA=F107A-150.
+ T(1) = P(20)*DF*(1.+P(60)*DFA) + P(21)*DF*DF + P(22)*DFA
+ & + P(30)*DFA**2
+ F1 = 1. + (P(48)*DFA +P(20)*DF+P(21)*DF*DF)*SWC(1)
+ F2 = 1. + (P(50)*DFA+P(20)*DF+P(21)*DF*DF)*SWC(1)
+C TIME INDEPENDENT
+ T(2) =
+ 1 (P(2)*PLG(3,1) + P(3)*PLG(5,1)+P(23)*PLG(7,1))
+ & +(P(15)*PLG(3,1))*DFA*SWC(1)
+ 2 +P(27)*PLG(2,1)
+C SYMMETRICAL ANNUAL
+ T(3) =
+ 1 (P(19) )*CD32
+C SYMMETRICAL SEMIANNUAL
+ T(4) =
+ 1 (P(16)+P(17)*PLG(3,1))*CD18
+C ASYMMETRICAL ANNUAL
+ T(5) = F1*
+ 1 (P(10)*PLG(2,1)+P(11)*PLG(4,1))*CD14
+C ASYMMETRICAL SEMIANNUAL
+ T(6) = P(38)*PLG(2,1)*CD39
+C DIURNAL
+ IF(SW(7).EQ.0) GOTO 200
+ T71 = (P(12)*PLG(3,2))*CD14*SWC(5)
+ T72 = (P(13)*PLG(3,2))*CD14*SWC(5)
+ T(7) = F2*
+ 1 ((P(4)*PLG(2,2) + P(5)*PLG(4,2) + P(28)*PLG(6,2)
+ 2 + T71)*CTLOC
+ 4 + (P(7)*PLG(2,2) + P(8)*PLG(4,2) +P(29)*PLG(6,2)
+ 5 + T72)*STLOC)
+ 200 CONTINUE
+C SEMIDIURNAL
+ IF(SW(8).EQ.0) GOTO 210
+ T81 = (P(24)*PLG(4,3)+P(36)*PLG(6,3))*CD14*SWC(5)
+ T82 = (P(34)*PLG(4,3)+P(37)*PLG(6,3))*CD14*SWC(5)
+ T(8) = F2*
+ 1 ((P(6)*PLG(3,3) + P(42)*PLG(5,3) + T81)*C2TLOC
+ 3 +(P(9)*PLG(3,3) + P(43)*PLG(5,3) + T82)*S2TLOC)
+ 210 CONTINUE
+C TERDIURNAL
+ IF(SW(14).EQ.0) GOTO 220
+ T(14) = F2*
+ 1 ((P(40)*PLG(4,4)+(P(94)*PLG(5,4)+P(47)*PLG(7,4))*CD14*SWC(5))*
+ $ S3TLOC
+ 2 +(P(41)*PLG(4,4)+(P(95)*PLG(5,4)+P(49)*PLG(7,4))*CD14*SWC(5))*
+ $ C3TLOC)
+ 220 CONTINUE
+C MAGNETIC ACTIVITY BASED ON DAILY AP
+
+ IF(SW9.EQ.-1.) GO TO 30
+ APD=(AP(1)-4.)
+ P44=P(44)
+ P45=P(45)
+ IF(P44.LT.0) P44=1.E-5
+ APDF = APD+(P45-1.)*(APD+(EXP(-P44 *APD)-1.)/P44)
+ IF(SW(9).EQ.0) GOTO 40
+ T(9)=APDF*(P(33)+P(46)*PLG(3,1)+P(35)*PLG(5,1)+
+ $ (P(101)*PLG(2,1)+P(102)*PLG(4,1)+P(103)*PLG(6,1))*CD14*SWC(5)+
+ $ (P(122)*PLG(2,2)+P(123)*PLG(4,2)+P(124)*PLG(6,2))*SWC(7)*
+ $ COS(HR*(TLOC-P(125))))
+ GO TO 40
+ 30 CONTINUE
+ IF(P(52).EQ.0) GO TO 40
+ EXP1 = EXP(-10800.*ABS(P(52))/(1.+P(139)*(45.-ABS(LAT))))
+ IF(EXP1.GT..99999) EXP1=.99999
+ IF(P(25).LT.1.E-4) P(25)=1.E-4
+ APT(1)=SG0(EXP1)
+C APT(2)=SG2(EXP1)
+c APT(3)=SG0(EXP2)
+C APT(4)=SG2(EXP2)
+ IF(SW(9).EQ.0) GOTO 40
+ T(9) = APT(1)*(P(51)+P(97)*PLG(3,1)+P(55)*PLG(5,1)+
+ $ (P(126)*PLG(2,1)+P(127)*PLG(4,1)+P(128)*PLG(6,1))*CD14*SWC(5)+
+ $ (P(129)*PLG(2,2)+P(130)*PLG(4,2)+P(131)*PLG(6,2))*SWC(7)*
+ $ COS(HR*(TLOC-P(132))))
+ 40 CONTINUE
+ IF(SW(10).EQ.0.OR.LONG.LE.-1000.) GO TO 49
+C LONGITUDINAL
+ IF(SW(11).EQ.0) GOTO 230
+ T(11)= (1.+P(81)*DFA*SWC(1))*
+ $((P(65)*PLG(3,2)+P(66)*PLG(5,2)+P(67)*PLG(7,2)
+ $ +P(104)*PLG(2,2)+P(105)*PLG(4,2)+P(106)*PLG(6,2)
+ $ +SWC(5)*(P(110)*PLG(2,2)+P(111)*PLG(4,2)+P(112)*PLG(6,2))*CD14)*
+ $ COS(DGTR*LONG)
+ $ +(P(91)*PLG(3,2)+P(92)*PLG(5,2)+P(93)*PLG(7,2)
+ $ +P(107)*PLG(2,2)+P(108)*PLG(4,2)+P(109)*PLG(6,2)
+ $ +SWC(5)*(P(113)*PLG(2,2)+P(114)*PLG(4,2)+P(115)*PLG(6,2))*CD14)*
+ $ SIN(DGTR*LONG))
+ 230 CONTINUE
+C UT AND MIXED UT,LONGITUDE
+ IF(SW(12).EQ.0) GOTO 240
+ T(12)=(1.+P(96)*PLG(2,1))*(1.+P(82)*DFA*SWC(1))*
+ $(1.+P(120)*PLG(2,1)*SWC(5)*CD14)*
+ $((P(69)*PLG(2,1)+P(70)*PLG(4,1)+P(71)*PLG(6,1))*
+ $ COS(SR*(SEC-P(72))))
+ T(12)=T(12)+SWC(11)*
+ $ (P(77)*PLG(4,3)+P(78)*PLG(6,3)+P(79)*PLG(8,3))*
+ $ COS(SR*(SEC-P(80))+2.*DGTR*LONG)*(1.+P(138)*DFA*SWC(1))
+ 240 CONTINUE
+C UT,LONGITUDE MAGNETIC ACTIVITY
+ IF(SW(13).EQ.0) GOTO 48
+ IF(SW9.EQ.-1.) GO TO 45
+ T(13)= APDF*SWC(11)*(1.+P(121)*PLG(2,1))*
+ $((P( 61)*PLG(3,2)+P( 62)*PLG(5,2)+P( 63)*PLG(7,2))*
+ $ COS(DGTR*(LONG-P( 64))))
+ $ +APDF*SWC(11)*SWC(5)*
+ $ (P(116)*PLG(2,2)+P(117)*PLG(4,2)+P(118)*PLG(6,2))*
+ $ CD14*COS(DGTR*(LONG-P(119)))
+ $ + APDF*SWC(12)*
+ $ (P( 84)*PLG(2,1)+P( 85)*PLG(4,1)+P( 86)*PLG(6,1))*
+ $ COS(SR*(SEC-P( 76)))
+ GOTO 48
+ 45 CONTINUE
+ IF(P(52).EQ.0) GOTO 48
+ T(13)=APT(1)*SWC(11)*(1.+P(133)*PLG(2,1))*
+ $((P(53)*PLG(3,2)+P(99)*PLG(5,2)+P(68)*PLG(7,2))*
+ $ COS(DGTR*(LONG-P(98))))
+ $ +APT(1)*SWC(11)*SWC(5)*
+ $ (P(134)*PLG(2,2)+P(135)*PLG(4,2)+P(136)*PLG(6,2))*
+ $ CD14*COS(DGTR*(LONG-P(137)))
+ $ +APT(1)*SWC(12)*
+ $ (P(56)*PLG(2,1)+P(57)*PLG(4,1)+P(58)*PLG(6,1))*
+ $ COS(SR*(SEC-P(59)))
+ 48 CONTINUE
+C PARMS NOT USED: 83, 90,100,140-150
+ 49 CONTINUE
+ TINF=P(31)
+ DO 50 I = 1,NSW
+ 50 TINF = TINF + ABS(SW(I))*T(I)
+ GLOBE7_ = TINF
+ RETURN
+ END
+C-----------------------------------------------------------------------
+ SUBROUTINE TSELEC0_(SV)
+C SET SWITCHES
+C Output in COMMON/CSW/SW(25),ISW,SWC(25)
+C SW FOR MAIN TERMS, SWC FOR CROSS TERMS
+C
+C TO TURN ON AND OFF PARTICULAR VARIATIONS CALL TSELEC(SV),
+C WHERE SV IS A 25 ELEMENT ARRAY CONTAINING 0. FOR OFF, 1.
+C FOR ON, OR 2. FOR MAIN EFFECTS OFF BUT CROSS TERMS ON
+C
+C To get current values of SW: CALL TRETRV(SW)
+C
+ DIMENSION SV(1),SAV(25),SVV(1)
+ COMMON/CSW/SW(25),ISW,SWC(25)
+ SAVE
+ DO 100 I = 1,25
+ SAV(I)=SV(I)
+ SW(I)=AMOD(SV(I),2.)
+ IF(ABS(SV(I)).EQ.1.OR.ABS(SV(I)).EQ.2.) THEN
+ SWC(I)=1.
+ ELSE
+ SWC(I)=0.
+ ENDIF
+ 100 CONTINUE
+ ISW=64999
+ RETURN
+ ENTRY TRETRV0_(SVV)
+ DO 200 I=1,25
+ SVV(I)=SAV(I)
+C SAV(I)=1.
+C SWC(I)=1.
+C SW(I)=1.
+ 200 CONTINUE
+ END
+C-----------------------------------------------------------------------
+ FUNCTION GLOB7S_(P)
+C VERSION OF GLOBE FOR LOWER ATMOSPHERE 10/26/99
+ REAL LONG
+ COMMON/LPOLY/PLG(9,4),CTLOC,STLOC,C2TLOC,S2TLOC,C3TLOC,S3TLOC,
+ $ IYR,DAY,DF,DFA,APD,APDF,APT(4),LONG
+ COMMON/CSW/SW(25),ISW,SWC(25)
+ DIMENSION P(*),T(14)
+ SAVE
+ DATA DR/1.72142E-2/,DGTR/1.74533E-2/,PSET/2./
+ DATA DAYL/-1./,P32,P18,P14,P39/4*-1000./
+C CONFIRM PARAMETER SET
+ IF(P(100).EQ.0) P(100)=PSET
+ IF(P(100).NE.PSET) THEN
+ WRITE(6,900) PSET,P(100)
+ 900 FORMAT(1X,'WRONG PARAMETER SET FOR GLOB7S',3F10.1)
+ STOP
+ ENDIF
+ DO 10 J=1,14
+ T(J)=0.
+ 10 CONTINUE
+ IF(DAY.NE.DAYL.OR.P32.NE.P(32)) CD32=COS(DR*(DAY-P(32)))
+ IF(DAY.NE.DAYL.OR.P18.NE.P(18)) CD18=COS(2.*DR*(DAY-P(18)))
+ IF(DAY.NE.DAYL.OR.P14.NE.P(14)) CD14=COS(DR*(DAY-P(14)))
+ IF(DAY.NE.DAYL.OR.P39.NE.P(39)) CD39=COS(2.*DR*(DAY-P(39)))
+ DAYL=DAY
+ P32=P(32)
+ P18=P(18)
+ P14=P(14)
+ P39=P(39)
+C
+C F10.7
+ T(1)=P(22)*DFA
+C TIME INDEPENDENT
+ T(2)=P(2)*PLG(3,1)+P(3)*PLG(5,1)+P(23)*PLG(7,1)
+ $ +P(27)*PLG(2,1)+P(15)*PLG(4,1)+P(60)*PLG(6,1)
+C SYMMETRICAL ANNUAL
+ T(3)=(P(19)+P(48)*PLG(3,1)+P(30)*PLG(5,1))*CD32
+C SYMMETRICAL SEMIANNUAL
+ T(4)=(P(16)+P(17)*PLG(3,1)+P(31)*PLG(5,1))*CD18
+C ASYMMETRICAL ANNUAL
+ T(5)=(P(10)*PLG(2,1)+P(11)*PLG(4,1)+P(21)*PLG(6,1))*CD14
+C ASYMMETRICAL SEMIANNUAL
+ T(6)=(P(38)*PLG(2,1))*CD39
+C DIURNAL
+ IF(SW(7).EQ.0) GOTO 200
+ T71 = P(12)*PLG(3,2)*CD14*SWC(5)
+ T72 = P(13)*PLG(3,2)*CD14*SWC(5)
+ T(7) =
+ 1 ((P(4)*PLG(2,2) + P(5)*PLG(4,2)
+ 2 + T71)*CTLOC
+ 4 + (P(7)*PLG(2,2) + P(8)*PLG(4,2)
+ 5 + T72)*STLOC)
+ 200 CONTINUE
+C SEMIDIURNAL
+ IF(SW(8).EQ.0) GOTO 210
+ T81 = (P(24)*PLG(4,3)+P(36)*PLG(6,3))*CD14*SWC(5)
+ T82 = (P(34)*PLG(4,3)+P(37)*PLG(6,3))*CD14*SWC(5)
+ T(8) =
+ 1 ((P(6)*PLG(3,3) + P(42)*PLG(5,3) + T81)*C2TLOC
+ 3 +(P(9)*PLG(3,3) + P(43)*PLG(5,3) + T82)*S2TLOC)
+ 210 CONTINUE
+C TERDIURNAL
+ IF(SW(14).EQ.0) GOTO 220
+ T(14) = P(40)*PLG(4,4)*S3TLOC
+ $ +P(41)*PLG(4,4)*C3TLOC
+ 220 CONTINUE
+C MAGNETIC ACTIVITY
+ IF(SW(9).EQ.0) GOTO 40
+ IF(SW(9).EQ.1)
+ $ T(9)=APDF*(P(33)+P(46)*PLG(3,1)*SWC(2))
+ IF(SW(9).EQ.-1)
+ $ T(9)=(P(51)*APT(1)+P(97)*PLG(3,1)*APT(1)*SWC(2))
+ 40 CONTINUE
+ IF(SW(10).EQ.0.OR.SW(11).EQ.0.OR.LONG.LE.-1000.) GO TO 49
+C LONGITUDINAL
+ T(11)= (1.+PLG(2,1)*(P(81)*SWC(5)*COS(DR*(DAY-P(82)))
+ $ +P(86)*SWC(6)*COS(2.*DR*(DAY-P(87))))
+ $ +P(84)*SWC(3)*COS(DR*(DAY-P(85)))
+ $ +P(88)*SWC(4)*COS(2.*DR*(DAY-P(89))))
+ $ *((P(65)*PLG(3,2)+P(66)*PLG(5,2)+P(67)*PLG(7,2)
+ $ +P(75)*PLG(2,2)+P(76)*PLG(4,2)+P(77)*PLG(6,2)
+ $ )*COS(DGTR*LONG)
+ $ +(P(91)*PLG(3,2)+P(92)*PLG(5,2)+P(93)*PLG(7,2)
+ $ +P(78)*PLG(2,2)+P(79)*PLG(4,2)+P(80)*PLG(6,2)
+ $ )*SIN(DGTR*LONG))
+ 49 CONTINUE
+ TT=0.
+ DO 50 I=1,14
+ 50 TT=TT+ABS(SW(I))*T(I)
+ GLOB7S_=TT
+ RETURN
+ END
+C--------------------------------------------------------------------
+ FUNCTION DENSU_(ALT,DLB,TINF,TLB,XM,ALPHA,TZ,ZLB,S2,
+ $ MN1,ZN1,TN1,TGN1)
+C Calculate Temperature and Density Profiles for MSIS models
+C New lower thermo polynomial 10/30/89
+ DIMENSION ZN1(MN1),TN1(MN1),TGN1(2),XS(5),YS(5),Y2OUT(5)
+ COMMON/PARMB/GSURF,RE
+ COMMON/LSQV/MP,II,JG,LT,QPB(50),IERR,IFUN,N,J,DV(60)
+ SAVE
+ DATA RGAS/831.4/
+ ZETA(ZZ,ZL)=(ZZ-ZL)*(RE+ZL)/(RE+ZZ)
+CCCCCCWRITE(6,*) 'DB',ALT,DLB,TINF,TLB,XM,ALPHA,ZLB,S2,MN1,ZN1,TN1
+ DENSU_=1.
+C Joining altitude of Bates and spline
+ ZA=ZN1(1)
+ Z=AMAX1(ALT,ZA)
+C Geopotential altitude difference from ZLB
+ ZG2=ZETA(Z,ZLB)
+C Bates temperature
+ TT=TINF-(TINF-TLB)*EXP(-S2*ZG2)
+ TA=TT
+ TZ=TT
+ DENSU_=TZ
+
+ IF(ALT.GE.ZA) GO TO 10
+C
+C CALCULATE TEMPERATURE BELOW ZA
+C Temperature gradient at ZA from Bates profile
+ DTA=(TINF-TA)*S2*((RE+ZLB)/(RE+ZA))**2
+ TGN1(1)=DTA
+ TN1(1)=TA
+ Z=AMAX1(ALT,ZN1(MN1))
+ MN=MN1
+ Z1=ZN1(1)
+ Z2=ZN1(MN)
+ T1=TN1(1)
+ T2=TN1(MN)
+C Geopotental difference from Z1
+ ZG=ZETA(Z,Z1)
+ ZGDIF=ZETA(Z2,Z1)
+C Set up spline nodes
+ DO 20 K=1,MN
+ XS(K)=ZETA(ZN1(K),Z1)/ZGDIF
+ YS(K)=1./TN1(K)
+ 20 CONTINUE
+C End node derivatives
+ YD1=-TGN1(1)/(T1*T1)*ZGDIF
+ YD2=-TGN1(2)/(T2*T2)*ZGDIF*((RE+Z2)/(RE+Z1))**2
+C Calculate spline coefficients
+ CALL SPLINE0_(XS,YS,MN,YD1,YD2,Y2OUT)
+ X=ZG/ZGDIF
+ CALL SPLINT0_(XS,YS,Y2OUT,MN,X,Y)
+C temperature at altitude
+
+ TZ=1./Y
+ DENSU_=TZ
+ 10 IF(XM.EQ.0.) GO TO 50
+C
+C CALCULATE DENSITY ABOVE ZA
+ GLB=GSURF/(1.+ZLB/RE)**2
+ GAMMA=XM*GLB/(S2*RGAS*TINF)
+ EXPL=EXP(-S2*GAMMA*ZG2)
+ IF(EXPL.GT.50.OR.TT.LE.0.) THEN
+ EXPL=50.
+ ENDIF
+C Density at altitude
+ DENSA=DLB*(TLB/TT)**(1.+ALPHA+GAMMA)*EXPL
+ DENSU_=DENSA
+ IF(ALT.GE.ZA) GO TO 50
+C
+C CALCULATE DENSITY BELOW ZA
+ GLB=GSURF/(1.+Z1/RE)**2
+ GAMM=XM*GLB*ZGDIF/RGAS
+C integrate spline temperatures
+ CALL SPLINI_(XS,YS,Y2OUT,MN,X,YI)
+ EXPL=GAMM*YI
+ IF(EXPL.GT.50..OR.TZ.LE.0.) THEN
+ EXPL=50.
+ ENDIF
+C Density at altitude
+ DENSU_=DENSU_*(T1/TZ)**(1.+ALPHA)*EXP(-EXPL)
+ 50 CONTINUE
+ RETURN
+ END
+C--------------------------------------------------------------------
+ FUNCTION DENSM_(ALT,D0,XM,TZ,MN3,ZN3,TN3,TGN3,MN2,ZN2,TN2,TGN2)
+C Calculate Temperature and Density Profiles for lower atmos.
+ DIMENSION ZN3(MN3),TN3(MN3),TGN3(2),XS(10),YS(10),Y2OUT(10)
+ DIMENSION ZN2(MN2),TN2(MN2),TGN2(2)
+ COMMON/PARMB/GSURF,RE
+ COMMON/FIT/TAF
+ COMMON/LSQV/MP,II,JG,LT,QPB(50),IERR,IFUN,N,J,DV(60)
+ SAVE
+ DATA RGAS/831.4/
+ ZETA(ZZ,ZL)=(ZZ-ZL)*(RE+ZL)/(RE+ZZ)
+ DENSM_=D0
+ IF(ALT.GT.ZN2(1)) GOTO 50
+C STRATOSPHERE/MESOSPHERE TEMPERATURE
+ Z=AMAX1(ALT,ZN2(MN2))
+ MN=MN2
+ Z1=ZN2(1)
+ Z2=ZN2(MN)
+ T1=TN2(1)
+ T2=TN2(MN)
+ ZG=ZETA(Z,Z1)
+ ZGDIF=ZETA(Z2,Z1)
+C Set up spline nodes
+ DO 210 K=1,MN
+ XS(K)=ZETA(ZN2(K),Z1)/ZGDIF
+ YS(K)=1./TN2(K)
+ 210 CONTINUE
+ YD1=-TGN2(1)/(T1*T1)*ZGDIF
+ YD2=-TGN2(2)/(T2*T2)*ZGDIF*((RE+Z2)/(RE+Z1))**2
+C Calculate spline coefficients
+ CALL SPLINE0_(XS,YS,MN,YD1,YD2,Y2OUT)
+ X=ZG/ZGDIF
+ CALL SPLINT0_(XS,YS,Y2OUT,MN,X,Y)
+C Temperature at altitude
+ TZ=1./Y
+ IF(XM.EQ.0.) GO TO 20
+C
+C CALCULATE STRATOSPHERE/MESOSPHERE DENSITY
+ GLB=GSURF/(1.+Z1/RE)**2
+ GAMM=XM*GLB*ZGDIF/RGAS
+C Integrate temperature profile
+ CALL SPLINI_(XS,YS,Y2OUT,MN,X,YI)
+ EXPL=GAMM*YI
+ IF(EXPL.GT.50.) EXPL=50.
+C Density at altitude
+ DENSM_=DENSM_*(T1/TZ)*EXP(-EXPL)
+ 20 CONTINUE
+ IF(ALT.GT.ZN3(1)) GOTO 50
+C
+C TROPOSPHERE/STRATOSPHERE TEMPERATURE
+ Z=ALT
+ MN=MN3
+ Z1=ZN3(1)
+ Z2=ZN3(MN)
+ T1=TN3(1)
+ T2=TN3(MN)
+ ZG=ZETA(Z,Z1)
+ ZGDIF=ZETA(Z2,Z1)
+C Set up spline nodes
+ DO 220 K=1,MN
+ XS(K)=ZETA(ZN3(K),Z1)/ZGDIF
+ YS(K)=1./TN3(K)
+ 220 CONTINUE
+ YD1=-TGN3(1)/(T1*T1)*ZGDIF
+ YD2=-TGN3(2)/(T2*T2)*ZGDIF*((RE+Z2)/(RE+Z1))**2
+C Calculate spline coefficients
+ CALL SPLINE0_(XS,YS,MN,YD1,YD2,Y2OUT)
+ X=ZG/ZGDIF
+ CALL SPLINT0_(XS,YS,Y2OUT,MN,X,Y)
+C temperature at altitude
+ TZ=1./Y
+ IF(XM.EQ.0.) GO TO 30
+C
+C CALCULATE TROPOSPHERIC/STRATOSPHERE DENSITY
+C
+ GLB=GSURF/(1.+Z1/RE)**2
+ GAMM=XM*GLB*ZGDIF/RGAS
+C Integrate temperature profile
+ CALL SPLINI_(XS,YS,Y2OUT,MN,X,YI)
+ EXPL=GAMM*YI
+ IF(EXPL.GT.50.) EXPL=50.
+C Density at altitude
+ DENSM_=DENSM_*(T1/TZ)*EXP(-EXPL)
+ 30 CONTINUE
+ 50 CONTINUE
+ IF(XM.EQ.0) DENSM_=TZ
+ RETURN
+ END
+C-----------------------------------------------------------------------
+ SUBROUTINE SPLINE0_(X,Y,N,YP1,YPN,Y2)
+C CALCULATE 2ND DERIVATIVES OF CUBIC SPLINE INTERP FUNCTION
+C ADAPTED FROM NUMERICAL RECIPES BY PRESS ET AL
+C X,Y: ARRAYS OF TABULATED FUNCTION IN ASCENDING ORDER BY X
+C N: SIZE OF ARRAYS X,Y
+C YP1,YPN: SPECIFIED DERIVATIVES AT X(1) AND X(N); VALUES
+C >= 1E30 SIGNAL SIGNAL SECOND DERIVATIVE ZERO
+C Y2: OUTPUT ARRAY OF SECOND DERIVATIVES
+ PARAMETER (NMAX=100)
+ DIMENSION X(N),Y(N),Y2(N),U(NMAX)
+ SAVE
+ IF(YP1.GT..99E30) THEN
+ Y2(1)=0
+ U(1)=0
+ ELSE
+ Y2(1)=-.5
+ U(1)=(3./(X(2)-X(1)))*((Y(2)-Y(1))/(X(2)-X(1))-YP1)
+ ENDIF
+ DO 11 I=2,N-1
+ SIG=(X(I)-X(I-1))/(X(I+1)-X(I-1))
+ P=SIG*Y2(I-1)+2.
+ Y2(I)=(SIG-1.)/P
+ U(I)=(6.*((Y(I+1)-Y(I))/(X(I+1)-X(I))-(Y(I)-Y(I-1))
+ $ /(X(I)-X(I-1)))/(X(I+1)-X(I-1))-SIG*U(I-1))/P
+ 11 CONTINUE
+ IF(YPN.GT..99E30) THEN
+ QN=0
+ UN=0
+ ELSE
+ QN=.5
+ UN=(3./(X(N)-X(N-1)))*(YPN-(Y(N)-Y(N-1))/(X(N)-X(N-1)))
+ ENDIF
+ Y2(N)=(UN-QN*U(N-1))/(QN*Y2(N-1)+1.)
+ DO 12 K=N-1,1,-1
+ Y2(K)=Y2(K)*Y2(K+1)+U(K)
+ 12 CONTINUE
+ RETURN
+ END
+C-----------------------------------------------------------------------
+ SUBROUTINE SPLINT0_(XA,YA,Y2A,N,X,Y)
+C CALCULATE CUBIC SPLINE INTERP VALUE
+C ADAPTED FROM NUMERICAL RECIPES BY PRESS ET AL.
+C XA,YA: ARRAYS OF TABULATED FUNCTION IN ASCENDING ORDER BY X
+C Y2A: ARRAY OF SECOND DERIVATIVES
+C N: SIZE OF ARRAYS XA,YA,Y2A
+C X: ABSCISSA FOR INTERPOLATION
+C Y: OUTPUT VALUE
+ DIMENSION XA(N),YA(N),Y2A(N)
+ SAVE
+ KLO=1
+ KHI=N
+ 1 CONTINUE
+ IF(KHI-KLO.GT.1) THEN
+ K=(KHI+KLO)/2
+ IF(XA(K).GT.X) THEN
+ KHI=K
+ ELSE
+ KLO=K
+ ENDIF
+ GOTO 1
+ ENDIF
+ H=XA(KHI)-XA(KLO)
+ IF(H.EQ.0) WRITE(6,*) 'BAD XA INPUT TO SPLINT'
+ A=(XA(KHI)-X)/H
+ B=(X-XA(KLO))/H
+ Y=A*YA(KLO)+B*YA(KHI)+
+ $ ((A*A*A-A)*Y2A(KLO)+(B*B*B-B)*Y2A(KHI))*H*H/6.
+ RETURN
+ END
+C-----------------------------------------------------------------------
+ SUBROUTINE SPLINI_(XA,YA,Y2A,N,X,YI)
+C INTEGRATE CUBIC SPLINE FUNCTION FROM XA(1) TO X
+C XA,YA: ARRAYS OF TABULATED FUNCTION IN ASCENDING ORDER BY X
+C Y2A: ARRAY OF SECOND DERIVATIVES
+C N: SIZE OF ARRAYS XA,YA,Y2A
+C X: ABSCISSA ENDPOINT FOR INTEGRATION
+C Y: OUTPUT VALUE
+ DIMENSION XA(N),YA(N),Y2A(N)
+ SAVE
+ YI=0
+ KLO=1
+ KHI=2
+ 1 CONTINUE
+ IF(X.GT.XA(KLO).AND.KHI.LE.N) THEN
+ XX=X
+ IF(KHI.LT.N) XX=AMIN1(X,XA(KHI))
+ H=XA(KHI)-XA(KLO)
+ A=(XA(KHI)-XX)/H
+ B=(XX-XA(KLO))/H
+ A2=A*A
+ B2=B*B
+ YI=YI+((1.-A2)*YA(KLO)/2.+B2*YA(KHI)/2.+
+ $ ((-(1.+A2*A2)/4.+A2/2.)*Y2A(KLO)+
+ $ (B2*B2/4.-B2/2.)*Y2A(KHI))*H*H/6.)*H
+ KLO=KLO+1
+ KHI=KHI+1
+ GOTO 1
+ ENDIF
+ RETURN
+ END
+C-----------------------------------------------------------------------
+ FUNCTION DNET0_(DD,DM,ZHM,XMM,XM)
+C TURBOPAUSE CORRECTION FOR MSIS MODELS
+C Root mean density
+C 8/20/80
+C DD - diffusive density
+C DM - full mixed density
+C ZHM - transition scale length
+C XMM - full mixed molecular weight
+C XM - species molecular weight
+C DNET - combined density
+ SAVE
+ A=ZHM/(XMM-XM)
+ IF(DM.GT.0.AND.DD.GT.0) GOTO 5
+ WRITE(6,*) 'DNET LOG ERROR',DM,DD,XM
+ IF(DD.EQ.0.AND.DM.EQ.0) DD=1.
+ IF(DM.EQ.0) GOTO 10
+ IF(DD.EQ.0) GOTO 20
+ 5 CONTINUE
+ YLOG=A*ALOG(DM/DD)
+ IF(YLOG.LT.-10.) GO TO 10
+ IF(YLOG.GT.10.) GO TO 20
+ DNET0_=DD*(1.+EXP(YLOG))**(1/A)
+ GO TO 50
+ 10 CONTINUE
+ DNET0_=DD
+ GO TO 50
+ 20 CONTINUE
+ DNET0_=DM
+ GO TO 50
+ 50 CONTINUE
+ RETURN
+ END
+C-----------------------------------------------------------------------
+ FUNCTION CCOR0_(ALT, R,H1,ZH)
+C CHEMISTRY/DISSOCIATION CORRECTION FOR MSIS MODELS
+C ALT - altitude
+C R - target ratio
+C H1 - transition scale length
+C ZH - altitude of 1/2 R
+ SAVE
+ E=(ALT-ZH)/H1
+ IF(E.GT.70.) GO TO 20
+ IF(E.LT.-70.) GO TO 10
+ EX=EXP(E)
+ CCOR0_=R/(1.+EX)
+ GO TO 50
+ 10 CCOR0_=R
+ GO TO 50
+ 20 CCOR0_=0.
+ GO TO 50
+ 50 CONTINUE
+ CCOR0_=EXP(CCOR0_)
+ RETURN
+ END
+C-----------------------------------------------------------------------
+ FUNCTION CCOR2(ALT, R,H1,ZH,H2)
+C O&O2 CHEMISTRY/DISSOCIATION CORRECTION FOR MSIS MODELS
+ E1=(ALT-ZH)/H1
+ E2=(ALT-ZH)/H2
+ IF(E1.GT.70. .OR. E2.GT.70.) GO TO 20
+ IF(E1.LT.-70. .AND. E2.LT.-70) GO TO 10
+ EX1=EXP(E1)
+ EX2=EXP(E2)
+ CCOR2=R/(1.+.5*(EX1+EX2))
+ GO TO 50
+ 10 CCOR2=R
+ GO TO 50
+ 20 CCOR2=0.
+ GO TO 50
+ 50 CONTINUE
+ CCOR2=EXP(CCOR2)
+ RETURN
+ END
+C-----------------------------------------------------------------------
+ BLOCK DATA GTD7BK_
+C MSISE-00 01-FEB-02
+ COMMON/PARM7_/PT1(50),PT2(50),PT3(50),PA1(50),PA2(50),PA3(50),
+ $ PB1(50),PB2(50),PB3(50),PC1(50),PC2(50),PC3(50),
+ $ PD1(50),PD2(50),PD3(50),PE1(50),PE2(50),PE3(50),
+ $ PF1(50),PF2(50),PF3(50),PG1(50),PG2(50),PG3(50),
+ $ PH1(50),PH2(50),PH3(50),PI1(50),PI2(50),PI3(50),
+ $ PJ1(50),PJ2(50),PJ3(50),PK1(50),PL1(50),PL2(50),
+ $ PM1(50),PM2(50),PN1(50),PN2(50),PO1(50),PO2(50),
+ $ PP1(50),PP2(50),PQ1(50),PQ2(50),PR1(50),PR2(50),
+ $ PS1(50),PS2(50),PU1(50),PU2(50),PV1(50),PV2(50),
+ $ PW1(50),PW2(50),PX1(50),PX2(50),PY1(50),PY2(50),
+ $ PZ1(50),PZ2(50),PAA1(50),PAA2(50)
+ COMMON/LOWER7_/PTM(10),PDM(10,8)
+ COMMON/MAVG7/PAVGM(10)
+ COMMON/DATIM7_/ISDATE(3),ISTIME(2),NAME(2)
+ COMMON/METSEL/IMR
+ DATA IMR/0/
+C DATA ISDATE/'01-F','EB-0','2 '/,ISTIME/'15:4','9:27'/
+C DATA NAME/'MSIS','E-00'/
+C TEMPERATURE
+ DATA PT1/
+ * 9.86573E-01, 1.62228E-02, 1.55270E-02,-1.04323E-01,-3.75801E-03,
+ * -1.18538E-03,-1.24043E-01, 4.56820E-03, 8.76018E-03,-1.36235E-01,
+ * -3.52427E-02, 8.84181E-03,-5.92127E-03,-8.61650E+00, 0.00000E+00,
+ * 1.28492E-02, 0.00000E+00, 1.30096E+02, 1.04567E-02, 1.65686E-03,
+ * -5.53887E-06, 2.97810E-03, 0.00000E+00, 5.13122E-03, 8.66784E-02,
+ * 1.58727E-01, 0.00000E+00, 0.00000E+00, 0.00000E+00,-7.27026E-06,
+ * 0.00000E+00, 6.74494E+00, 4.93933E-03, 2.21656E-03, 2.50802E-03,
+ * 0.00000E+00, 0.00000E+00,-2.08841E-02,-1.79873E+00, 1.45103E-03,
+ * 2.81769E-04,-1.44703E-03,-5.16394E-05, 8.47001E-02, 1.70147E-01,
+ * 5.72562E-03, 5.07493E-05, 4.36148E-03, 1.17863E-04, 4.74364E-03/
+ DATA PT2/
+ * 6.61278E-03, 4.34292E-05, 1.44373E-03, 2.41470E-05, 2.84426E-03,
+ * 8.56560E-04, 2.04028E-03, 0.00000E+00,-3.15994E+03,-2.46423E-03,
+ * 1.13843E-03, 4.20512E-04, 0.00000E+00,-9.77214E+01, 6.77794E-03,
+ * 5.27499E-03, 1.14936E-03, 0.00000E+00,-6.61311E-03,-1.84255E-02,
+ * -1.96259E-02, 2.98618E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 6.44574E+02, 8.84668E-04, 5.05066E-04, 0.00000E+00, 4.02881E+03,
+ * -1.89503E-03, 0.00000E+00, 0.00000E+00, 8.21407E-04, 2.06780E-03,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * -1.20410E-02,-3.63963E-03, 9.92070E-05,-1.15284E-04,-6.33059E-05,
+ * -6.05545E-01, 8.34218E-03,-9.13036E+01, 3.71042E-04, 0.00000E+00/
+ DATA PT3/
+ * 4.19000E-04, 2.70928E-03, 3.31507E-03,-4.44508E-03,-4.96334E-03,
+ * -1.60449E-03, 3.95119E-03, 2.48924E-03, 5.09815E-04, 4.05302E-03,
+ * 2.24076E-03, 0.00000E+00, 6.84256E-03, 4.66354E-04, 0.00000E+00,
+ * -3.68328E-04, 0.00000E+00, 0.00000E+00,-1.46870E+02, 0.00000E+00,
+ * 0.00000E+00, 1.09501E-03, 4.65156E-04, 5.62583E-04, 3.21596E+00,
+ * 6.43168E-04, 3.14860E-03, 3.40738E-03, 1.78481E-03, 9.62532E-04,
+ * 5.58171E-04, 3.43731E+00,-2.33195E-01, 5.10289E-04, 0.00000E+00,
+ * 0.00000E+00,-9.25347E+04, 0.00000E+00,-1.99639E-03, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/
+C HE DENSITY
+ DATA PA1/
+ * 1.09979E+00,-4.88060E-02,-1.97501E-01,-9.10280E-02,-6.96558E-03,
+ * 2.42136E-02, 3.91333E-01,-7.20068E-03,-3.22718E-02, 1.41508E+00,
+ * 1.68194E-01, 1.85282E-02, 1.09384E-01,-7.24282E+00, 0.00000E+00,
+ * 2.96377E-01,-4.97210E-02, 1.04114E+02,-8.61108E-02,-7.29177E-04,
+ * 1.48998E-06, 1.08629E-03, 0.00000E+00, 0.00000E+00, 8.31090E-02,
+ * 1.12818E-01,-5.75005E-02,-1.29919E-02,-1.78849E-02,-2.86343E-06,
+ * 0.00000E+00,-1.51187E+02,-6.65902E-03, 0.00000E+00,-2.02069E-03,
+ * 0.00000E+00, 0.00000E+00, 4.32264E-02,-2.80444E+01,-3.26789E-03,
+ * 2.47461E-03, 0.00000E+00, 0.00000E+00, 9.82100E-02, 1.22714E-01,
+ * -3.96450E-02, 0.00000E+00,-2.76489E-03, 0.00000E+00, 1.87723E-03/
+ DATA PA2/
+ * -8.09813E-03, 4.34428E-05,-7.70932E-03, 0.00000E+00,-2.28894E-03,
+ * -5.69070E-03,-5.22193E-03, 6.00692E-03,-7.80434E+03,-3.48336E-03,
+ * -6.38362E-03,-1.82190E-03, 0.00000E+00,-7.58976E+01,-2.17875E-02,
+ * -1.72524E-02,-9.06287E-03, 0.00000E+00, 2.44725E-02, 8.66040E-02,
+ * 1.05712E-01, 3.02543E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * -6.01364E+03,-5.64668E-03,-2.54157E-03, 0.00000E+00, 3.15611E+02,
+ * -5.69158E-03, 0.00000E+00, 0.00000E+00,-4.47216E-03,-4.49523E-03,
+ * 4.64428E-03, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 4.51236E-02, 2.46520E-02, 6.17794E-03, 0.00000E+00, 0.00000E+00,
+ * -3.62944E-01,-4.80022E-02,-7.57230E+01,-1.99656E-03, 0.00000E+00/
+ DATA PA3/
+ * -5.18780E-03,-1.73990E-02,-9.03485E-03, 7.48465E-03, 1.53267E-02,
+ * 1.06296E-02, 1.18655E-02, 2.55569E-03, 1.69020E-03, 3.51936E-02,
+ * -1.81242E-02, 0.00000E+00,-1.00529E-01,-5.10574E-03, 0.00000E+00,
+ * 2.10228E-03, 0.00000E+00, 0.00000E+00,-1.73255E+02, 5.07833E-01,
+ * -2.41408E-01, 8.75414E-03, 2.77527E-03,-8.90353E-05,-5.25148E+00,
+ * -5.83899E-03,-2.09122E-02,-9.63530E-03, 9.77164E-03, 4.07051E-03,
+ * 2.53555E-04,-5.52875E+00,-3.55993E-01,-2.49231E-03, 0.00000E+00,
+ * 0.00000E+00, 2.86026E+01, 0.00000E+00, 3.42722E-04, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/
+C O DENSITY
+ DATA PB1/
+ * 1.02315E+00,-1.59710E-01,-1.06630E-01,-1.77074E-02,-4.42726E-03,
+ * 3.44803E-02, 4.45613E-02,-3.33751E-02,-5.73598E-02, 3.50360E-01,
+ * 6.33053E-02, 2.16221E-02, 5.42577E-02,-5.74193E+00, 0.00000E+00,
+ * 1.90891E-01,-1.39194E-02, 1.01102E+02, 8.16363E-02, 1.33717E-04,
+ * 6.54403E-06, 3.10295E-03, 0.00000E+00, 0.00000E+00, 5.38205E-02,
+ * 1.23910E-01,-1.39831E-02, 0.00000E+00, 0.00000E+00,-3.95915E-06,
+ * 0.00000E+00,-7.14651E-01,-5.01027E-03, 0.00000E+00,-3.24756E-03,
+ * 0.00000E+00, 0.00000E+00, 4.42173E-02,-1.31598E+01,-3.15626E-03,
+ * 1.24574E-03,-1.47626E-03,-1.55461E-03, 6.40682E-02, 1.34898E-01,
+ * -2.42415E-02, 0.00000E+00, 0.00000E+00, 0.00000E+00, 6.13666E-04/
+ DATA PB2/
+ * -5.40373E-03, 2.61635E-05,-3.33012E-03, 0.00000E+00,-3.08101E-03,
+ * -2.42679E-03,-3.36086E-03, 0.00000E+00,-1.18979E+03,-5.04738E-02,
+ * -2.61547E-03,-1.03132E-03, 1.91583E-04,-8.38132E+01,-1.40517E-02,
+ * -1.14167E-02,-4.08012E-03, 1.73522E-04,-1.39644E-02,-6.64128E-02,
+ * -6.85152E-02,-1.34414E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 6.07916E+02,-4.12220E-03,-2.20996E-03, 0.00000E+00, 1.70277E+03,
+ * -4.63015E-03, 0.00000E+00, 0.00000E+00,-2.25360E-03,-2.96204E-03,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 3.92786E-02, 1.31186E-02,-1.78086E-03, 0.00000E+00, 0.00000E+00,
+ * -3.90083E-01,-2.84741E-02,-7.78400E+01,-1.02601E-03, 0.00000E+00/
+ DATA PB3/
+ * -7.26485E-04,-5.42181E-03,-5.59305E-03, 1.22825E-02, 1.23868E-02,
+ * 6.68835E-03,-1.03303E-02,-9.51903E-03, 2.70021E-04,-2.57084E-02,
+ * -1.32430E-02, 0.00000E+00,-3.81000E-02,-3.16810E-03, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00,-9.05762E-04,-2.14590E-03,-1.17824E-03, 3.66732E+00,
+ * -3.79729E-04,-6.13966E-03,-5.09082E-03,-1.96332E-03,-3.08280E-03,
+ * -9.75222E-04, 4.03315E+00,-2.52710E-01, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/
+C N2 DENSITY
+ DATA PC1/
+ * 1.16112E+00, 0.00000E+00, 0.00000E+00, 3.33725E-02, 0.00000E+00,
+ * 3.48637E-02,-5.44368E-03, 0.00000E+00,-6.73940E-02, 1.74754E-01,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 1.74712E+02, 0.00000E+00,
+ * 1.26733E-01, 0.00000E+00, 1.03154E+02, 5.52075E-02, 0.00000E+00,
+ * 0.00000E+00, 8.13525E-04, 0.00000E+00, 0.00000E+00, 8.66784E-02,
+ * 1.58727E-01, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00,-2.50482E+01, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,-2.48894E-03,
+ * 6.16053E-04,-5.79716E-04, 2.95482E-03, 8.47001E-02, 1.70147E-01,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/
+ DATA PC2/
+ * 0.00000E+00, 2.47425E-05, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/
+ DATA PC3/
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/
+C TLB
+ DATA PD1/
+ * 9.44846E-01, 0.00000E+00, 0.00000E+00,-3.08617E-02, 0.00000E+00,
+ * -2.44019E-02, 6.48607E-03, 0.00000E+00, 3.08181E-02, 4.59392E-02,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 1.74712E+02, 0.00000E+00,
+ * 2.13260E-02, 0.00000E+00,-3.56958E+02, 0.00000E+00, 1.82278E-04,
+ * 0.00000E+00, 3.07472E-04, 0.00000E+00, 0.00000E+00, 8.66784E-02,
+ * 1.58727E-01, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 3.83054E-03, 0.00000E+00, 0.00000E+00,
+ * -1.93065E-03,-1.45090E-03, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00,-1.23493E-03, 1.36736E-03, 8.47001E-02, 1.70147E-01,
+ * 3.71469E-03, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/
+ DATA PD2/
+ * 5.10250E-03, 2.47425E-05, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 3.68756E-03, 0.00000E+00, 0.00000E+00, 0.00000E+00/
+ DATA PD3/
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/
+C O2 DENSITY
+ DATA PE1/
+ * 1.35580E+00, 1.44816E-01, 0.00000E+00, 6.07767E-02, 0.00000E+00,
+ * 2.94777E-02, 7.46900E-02, 0.00000E+00,-9.23822E-02, 8.57342E-02,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 2.38636E+01, 0.00000E+00,
+ * 7.71653E-02, 0.00000E+00, 8.18751E+01, 1.87736E-02, 0.00000E+00,
+ * 0.00000E+00, 1.49667E-02, 0.00000E+00, 0.00000E+00, 8.66784E-02,
+ * 1.58727E-01, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00,-3.67874E+02, 5.48158E-03, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 8.47001E-02, 1.70147E-01,
+ * 1.22631E-02, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/
+ DATA PE2/
+ * 8.17187E-03, 3.71617E-05, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,-2.10826E-03,
+ * -3.13640E-03, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * -7.35742E-02,-5.00266E-02, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 1.94965E-02, 0.00000E+00, 0.00000E+00, 0.00000E+00/
+ DATA PE3/
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/
+C AR DENSITY
+ DATA PF1/
+ * 1.04761E+00, 2.00165E-01, 2.37697E-01, 3.68552E-02, 0.00000E+00,
+ * 3.57202E-02,-2.14075E-01, 0.00000E+00,-1.08018E-01,-3.73981E-01,
+ * 0.00000E+00, 3.10022E-02,-1.16305E-03,-2.07596E+01, 0.00000E+00,
+ * 8.64502E-02, 0.00000E+00, 9.74908E+01, 5.16707E-02, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 8.66784E-02,
+ * 1.58727E-01, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 3.46193E+02, 1.34297E-02, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,-3.48509E-03,
+ * -1.54689E-04, 0.00000E+00, 0.00000E+00, 8.47001E-02, 1.70147E-01,
+ * 1.47753E-02, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/
+ DATA PF2/
+ * 1.89320E-02, 3.68181E-05, 1.32570E-02, 0.00000E+00, 0.00000E+00,
+ * 3.59719E-03, 7.44328E-03,-1.00023E-03,-6.50528E+03, 0.00000E+00,
+ * 1.03485E-02,-1.00983E-03,-4.06916E-03,-6.60864E+01,-1.71533E-02,
+ * 1.10605E-02, 1.20300E-02,-5.20034E-03, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * -2.62769E+03, 7.13755E-03, 4.17999E-03, 0.00000E+00, 1.25910E+04,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00,-2.23595E-03, 4.60217E-03,
+ * 5.71794E-03, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * -3.18353E-02,-2.35526E-02,-1.36189E-02, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 2.03522E-02,-6.67837E+01,-1.09724E-03, 0.00000E+00/
+ DATA PF3/
+ * -1.38821E-02, 1.60468E-02, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 1.51574E-02,
+ * -5.44470E-04, 0.00000E+00, 7.28224E-02, 6.59413E-02, 0.00000E+00,
+ * -5.15692E-03, 0.00000E+00, 0.00000E+00,-3.70367E+03, 0.00000E+00,
+ * 0.00000E+00, 1.36131E-02, 5.38153E-03, 0.00000E+00, 4.76285E+00,
+ * -1.75677E-02, 2.26301E-02, 0.00000E+00, 1.76631E-02, 4.77162E-03,
+ * 0.00000E+00, 5.39354E+00, 0.00000E+00,-7.51710E-03, 0.00000E+00,
+ * 0.00000E+00,-8.82736E+01, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/
+C H DENSITY
+ DATA PG1/
+ * 1.26376E+00,-2.14304E-01,-1.49984E-01, 2.30404E-01, 2.98237E-02,
+ * 2.68673E-02, 2.96228E-01, 2.21900E-02,-2.07655E-02, 4.52506E-01,
+ * 1.20105E-01, 3.24420E-02, 4.24816E-02,-9.14313E+00, 0.00000E+00,
+ * 2.47178E-02,-2.88229E-02, 8.12805E+01, 5.10380E-02,-5.80611E-03,
+ * 2.51236E-05,-1.24083E-02, 0.00000E+00, 0.00000E+00, 8.66784E-02,
+ * 1.58727E-01,-3.48190E-02, 0.00000E+00, 0.00000E+00, 2.89885E-05,
+ * 0.00000E+00, 1.53595E+02,-1.68604E-02, 0.00000E+00, 1.01015E-02,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 2.84552E-04,
+ * -1.22181E-03, 0.00000E+00, 0.00000E+00, 8.47001E-02, 1.70147E-01,
+ * -1.04927E-02, 0.00000E+00, 0.00000E+00, 0.00000E+00,-5.91313E-03/
+ DATA PG2/
+ * -2.30501E-02, 3.14758E-05, 0.00000E+00, 0.00000E+00, 1.26956E-02,
+ * 8.35489E-03, 3.10513E-04, 0.00000E+00, 3.42119E+03,-2.45017E-03,
+ * -4.27154E-04, 5.45152E-04, 1.89896E-03, 2.89121E+01,-6.49973E-03,
+ * -1.93855E-02,-1.48492E-02, 0.00000E+00,-5.10576E-02, 7.87306E-02,
+ * 9.51981E-02,-1.49422E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 2.65503E+02, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 6.37110E-03, 3.24789E-04,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 6.14274E-02, 1.00376E-02,-8.41083E-04, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00,-1.27099E-02, 0.00000E+00, 0.00000E+00, 0.00000E+00/
+ DATA PG3/
+ * -3.94077E-03,-1.28601E-02,-7.97616E-03, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00,-6.71465E-03,-1.69799E-03, 1.93772E-03, 3.81140E+00,
+ * -7.79290E-03,-1.82589E-02,-1.25860E-02,-1.04311E-02,-3.02465E-03,
+ * 2.43063E-03, 3.63237E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/
+C N DENSITY
+ DATA PH1/
+ * 7.09557E+01,-3.26740E-01, 0.00000E+00,-5.16829E-01,-1.71664E-03,
+ * 9.09310E-02,-6.71500E-01,-1.47771E-01,-9.27471E-02,-2.30862E-01,
+ * -1.56410E-01, 1.34455E-02,-1.19717E-01, 2.52151E+00, 0.00000E+00,
+ * -2.41582E-01, 5.92939E-02, 4.39756E+00, 9.15280E-02, 4.41292E-03,
+ * 0.00000E+00, 8.66807E-03, 0.00000E+00, 0.00000E+00, 8.66784E-02,
+ * 1.58727E-01, 9.74701E-02, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 6.70217E+01,-1.31660E-03, 0.00000E+00,-1.65317E-02,
+ * 0.00000E+00, 0.00000E+00, 8.50247E-02, 2.77428E+01, 4.98658E-03,
+ * 6.15115E-03, 9.50156E-03,-2.12723E-02, 8.47001E-02, 1.70147E-01,
+ * -2.38645E-02, 0.00000E+00, 0.00000E+00, 0.00000E+00, 1.37380E-03/
+ DATA PH2/
+ * -8.41918E-03, 2.80145E-05, 7.12383E-03, 0.00000E+00,-1.66209E-02,
+ * 1.03533E-04,-1.68898E-02, 0.00000E+00, 3.64526E+03, 0.00000E+00,
+ * 6.54077E-03, 3.69130E-04, 9.94419E-04, 8.42803E+01,-1.16124E-02,
+ * -7.74414E-03,-1.68844E-03, 1.42809E-03,-1.92955E-03, 1.17225E-01,
+ * -2.41512E-02, 1.50521E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 1.60261E+03, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00,-3.54403E-04,-1.87270E-02,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 2.76439E-02, 6.43207E-03,-3.54300E-02, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00,-2.80221E-02, 8.11228E+01,-6.75255E-04, 0.00000E+00/
+ DATA PH3/
+ * -1.05162E-02,-3.48292E-03,-6.97321E-03, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00,-1.45546E-03,-1.31970E-02,-3.57751E-03,-1.09021E+00,
+ * -1.50181E-02,-7.12841E-03,-6.64590E-03,-3.52610E-03,-1.87773E-02,
+ * -2.22432E-03,-3.93895E-01, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/
+C HOT O DENSITY
+ DATA PI1/
+ * 6.04050E-02, 1.57034E+00, 2.99387E-02, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,-1.51018E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00,-8.61650E+00, 1.26454E-02,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 5.50878E-03, 0.00000E+00, 0.00000E+00, 8.66784E-02,
+ * 1.58727E-01, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 6.23881E-02, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 8.47001E-02, 1.70147E-01,
+ * -9.45934E-02, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/
+ DATA PI2/
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/
+ DATA PI3/
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/
+C S PARAM
+ DATA PJ1/
+ * 9.56827E-01, 6.20637E-02, 3.18433E-02, 0.00000E+00, 0.00000E+00,
+ * 3.94900E-02, 0.00000E+00, 0.00000E+00,-9.24882E-03,-7.94023E-03,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 1.74712E+02, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 2.74677E-03, 0.00000E+00, 1.54951E-02, 8.66784E-02,
+ * 1.58727E-01, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00,-6.99007E-04, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 1.24362E-02,-5.28756E-03, 8.47001E-02, 1.70147E-01,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/
+ DATA PJ2/
+ * 0.00000E+00, 2.47425E-05, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/
+ DATA PJ3/
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/
+C TURBO
+ DATA PK1/
+ * 1.09930E+00, 3.90631E+00, 3.07165E+00, 9.86161E-01, 1.63536E+01,
+ * 4.63830E+00, 1.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 1.28840E+00, 3.10302E-02, 1.18339E-01,
+ * 1.00000E+00, 7.00000E-01, 1.15020E+00, 3.44689E+00, 1.28840E+00,
+ * 1.00000E+00, 1.08738E+00, 1.22947E+00, 1.10016E+00, 7.34129E-01,
+ * 1.15241E+00, 2.22784E+00, 7.95046E-01, 4.01612E+00, 4.47749E+00,
+ * 1.23435E+02,-7.60535E-02, 1.68986E-06, 7.44294E-01, 1.03604E+00,
+ * 1.72783E+02, 1.15020E+00, 3.44689E+00,-7.46230E-01, 9.49154E-01/
+C LOWER BOUNDARY
+ DATA PTM/
+ L 1.04130E+03, 3.86000E+02, 1.95000E+02, 1.66728E+01, 2.13000E+02,
+ L 1.20000E+02, 2.40000E+02, 1.87000E+02,-2.00000E+00, 0.00000E+00/
+ DATA PDM/
+ L 2.45600E+07, 6.71072E-06, 1.00000E+02, 0.00000E+00, 1.10000E+02,
+ L 1.00000E+01, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+C
+ L 8.59400E+10, 1.00000E+00, 1.05000E+02,-8.00000E+00, 1.10000E+02,
+ L 1.00000E+01, 9.00000E+01, 2.00000E+00, 0.00000E+00, 0.00000E+00,
+C
+ L 2.81000E+11, 0.00000E+00, 1.05000E+02, 2.80000E+01, 2.89500E+01,
+ L 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+C
+ L 3.30000E+10, 2.68270E-01, 1.05000E+02, 1.00000E+00, 1.10000E+02,
+ L 1.00000E+01, 1.10000E+02,-1.00000E+01, 0.00000E+00, 0.00000E+00,
+C
+ L 1.33000E+09, 1.19615E-02, 1.05000E+02, 0.00000E+00, 1.10000E+02,
+ L 1.00000E+01, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+C
+ L 1.76100E+05, 1.00000E+00, 9.50000E+01,-8.00000E+00, 1.10000E+02,
+ L 1.00000E+01, 9.00000E+01, 2.00000E+00, 0.00000E+00, 0.00000E+00,
+C
+ L 1.00000E+07, 1.00000E+00, 1.05000E+02,-8.00000E+00, 1.10000E+02,
+ L 1.00000E+01, 9.00000E+01, 2.00000E+00, 0.00000E+00, 0.00000E+00,
+C
+ L 1.00000E+06, 1.00000E+00, 1.05000E+02,-8.00000E+00, 5.50000E+02,
+ L 7.60000E+01, 9.00000E+01, 2.00000E+00, 0.00000E+00, 4.00000E+03/
+C TN1(2)
+ DATA PL1/
+ * 1.00858E+00, 4.56011E-02,-2.22972E-02,-5.44388E-02, 5.23136E-04,
+ * -1.88849E-02, 5.23707E-02,-9.43646E-03, 6.31707E-03,-7.80460E-02,
+ * -4.88430E-02, 0.00000E+00, 0.00000E+00,-7.60250E+00, 0.00000E+00,
+ * -1.44635E-02,-1.76843E-02,-1.21517E+02, 2.85647E-02, 0.00000E+00,
+ * 0.00000E+00, 6.31792E-04, 0.00000E+00, 5.77197E-03, 8.66784E-02,
+ * 1.58727E-01, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00,-8.90272E+03, 3.30611E-03, 3.02172E-03, 0.00000E+00,
+ * -2.13673E-03,-3.20910E-04, 0.00000E+00, 0.00000E+00, 2.76034E-03,
+ * 2.82487E-03,-2.97592E-04,-4.21534E-03, 8.47001E-02, 1.70147E-01,
+ * 8.96456E-03, 0.00000E+00,-1.08596E-02, 0.00000E+00, 0.00000E+00/
+ DATA PL2/
+ * 5.57917E-03, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 9.65405E-03, 0.00000E+00, 0.00000E+00, 2.00000E+00/
+C TN1(3)
+ DATA PM1/
+ * 9.39664E-01, 8.56514E-02,-6.79989E-03, 2.65929E-02,-4.74283E-03,
+ * 1.21855E-02,-2.14905E-02, 6.49651E-03,-2.05477E-02,-4.24952E-02,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 1.19148E+01, 0.00000E+00,
+ * 1.18777E-02,-7.28230E-02,-8.15965E+01, 1.73887E-02, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00,-1.44691E-02, 2.80259E-04, 8.66784E-02,
+ * 1.58727E-01, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 2.16584E+02, 3.18713E-03, 7.37479E-03, 0.00000E+00,
+ * -2.55018E-03,-3.92806E-03, 0.00000E+00, 0.00000E+00,-2.89757E-03,
+ * -1.33549E-03, 1.02661E-03, 3.53775E-04, 8.47001E-02, 1.70147E-01,
+ * -9.17497E-03, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/
+ DATA PM2/
+ * 3.56082E-03, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00,-1.00902E-02, 0.00000E+00, 0.00000E+00, 2.00000E+00/
+C TN1(4)
+ DATA PN1/
+ * 9.85982E-01,-4.55435E-02, 1.21106E-02, 2.04127E-02,-2.40836E-03,
+ * 1.11383E-02,-4.51926E-02, 1.35074E-02,-6.54139E-03, 1.15275E-01,
+ * 1.28247E-01, 0.00000E+00, 0.00000E+00,-5.30705E+00, 0.00000E+00,
+ * -3.79332E-02,-6.24741E-02, 7.71062E-01, 2.96315E-02, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 6.81051E-03,-4.34767E-03, 8.66784E-02,
+ * 1.58727E-01, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 1.07003E+01,-2.76907E-03, 4.32474E-04, 0.00000E+00,
+ * 1.31497E-03,-6.47517E-04, 0.00000E+00,-2.20621E+01,-1.10804E-03,
+ * -8.09338E-04, 4.18184E-04, 4.29650E-03, 8.47001E-02, 1.70147E-01,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/
+ DATA PN2/
+ * -4.04337E-03, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,-9.52550E-04,
+ * 8.56253E-04, 4.33114E-04, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 1.21223E-03,
+ * 2.38694E-04, 9.15245E-04, 1.28385E-03, 8.67668E-04,-5.61425E-06,
+ * 1.04445E+00, 3.41112E+01, 0.00000E+00,-8.40704E-01,-2.39639E+02,
+ * 7.06668E-01,-2.05873E+01,-3.63696E-01, 2.39245E+01, 0.00000E+00,
+ * -1.06657E-03,-7.67292E-04, 1.54534E-04, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 2.00000E+00/
+C TN1(5) TN2(1)
+ DATA PO1/
+ * 1.00320E+00, 3.83501E-02,-2.38983E-03, 2.83950E-03, 4.20956E-03,
+ * 5.86619E-04, 2.19054E-02,-1.00946E-02,-3.50259E-03, 4.17392E-02,
+ * -8.44404E-03, 0.00000E+00, 0.00000E+00, 4.96949E+00, 0.00000E+00,
+ * -7.06478E-03,-1.46494E-02, 3.13258E+01,-1.86493E-03, 0.00000E+00,
+ * -1.67499E-02, 0.00000E+00, 0.00000E+00, 5.12686E-04, 8.66784E-02,
+ * 1.58727E-01,-4.64167E-03, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 4.37353E-03,-1.99069E+02, 0.00000E+00,-5.34884E-03, 0.00000E+00,
+ * 1.62458E-03, 2.93016E-03, 2.67926E-03, 5.90449E+02, 0.00000E+00,
+ * 0.00000E+00,-1.17266E-03,-3.58890E-04, 8.47001E-02, 1.70147E-01,
+ * 0.00000E+00, 0.00000E+00, 1.38673E-02, 0.00000E+00, 0.00000E+00/
+ DATA PO2/
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 1.60571E-03,
+ * 6.28078E-04, 5.05469E-05, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,-1.57829E-03,
+ * -4.00855E-04, 5.04077E-05,-1.39001E-03,-2.33406E-03,-4.81197E-04,
+ * 1.46758E+00, 6.20332E+00, 0.00000E+00, 3.66476E-01,-6.19760E+01,
+ * 3.09198E-01,-1.98999E+01, 0.00000E+00,-3.29933E+02, 0.00000E+00,
+ * -1.10080E-03,-9.39310E-05, 1.39638E-04, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 2.00000E+00/
+C TN2(2)
+ DATA PP1/
+ * 9.81637E-01,-1.41317E-03, 3.87323E-02, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,-3.58707E-02,
+ * -8.63658E-03, 0.00000E+00, 0.00000E+00,-2.02226E+00, 0.00000E+00,
+ * -8.69424E-03,-1.91397E-02, 8.76779E+01, 4.52188E-03, 0.00000E+00,
+ * 2.23760E-02, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00,-7.07572E-03, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * -4.11210E-03, 3.50060E+01, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00,-8.36657E-03, 1.61347E+01, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00,-1.45130E-02, 0.00000E+00, 0.00000E+00/
+ DATA PP2/
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 1.24152E-03,
+ * 6.43365E-04, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 1.33255E-03,
+ * 2.42657E-03, 1.60666E-03,-1.85728E-03,-1.46874E-03,-4.79163E-06,
+ * 1.22464E+00, 3.53510E+01, 0.00000E+00, 4.49223E-01,-4.77466E+01,
+ * 4.70681E-01, 8.41861E+00,-2.88198E-01, 1.67854E+02, 0.00000E+00,
+ * 7.11493E-04, 6.05601E-04, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 2.00000E+00/
+C TN2(3)
+ DATA PQ1/
+ * 1.00422E+00,-7.11212E-03, 5.24480E-03, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,-5.28914E-02,
+ * -2.41301E-02, 0.00000E+00, 0.00000E+00,-2.12219E+01,-1.03830E-02,
+ * -3.28077E-03, 1.65727E-02, 1.68564E+00,-6.68154E-03, 0.00000E+00,
+ * 1.45155E-02, 0.00000E+00, 8.42365E-03, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00,-4.34645E-03, 0.00000E+00, 0.00000E+00, 2.16780E-02,
+ * 0.00000E+00,-1.38459E+02, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 7.04573E-03,-4.73204E+01, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 1.08767E-02, 0.00000E+00, 0.00000E+00/
+ DATA PQ2/
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,-8.08279E-03,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 5.21769E-04,
+ * -2.27387E-04, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 3.26769E-03,
+ * 3.16901E-03, 4.60316E-04,-1.01431E-04, 1.02131E-03, 9.96601E-04,
+ * 1.25707E+00, 2.50114E+01, 0.00000E+00, 4.24472E-01,-2.77655E+01,
+ * 3.44625E-01, 2.75412E+01, 0.00000E+00, 7.94251E+02, 0.00000E+00,
+ * 2.45835E-03, 1.38871E-03, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 2.00000E+00/
+C TN2(4) TN3(1)
+ DATA PR1/
+ * 1.01890E+00,-2.46603E-02, 1.00078E-02, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,-6.70977E-02,
+ * -4.02286E-02, 0.00000E+00, 0.00000E+00,-2.29466E+01,-7.47019E-03,
+ * 2.26580E-03, 2.63931E-02, 3.72625E+01,-6.39041E-03, 0.00000E+00,
+ * 9.58383E-03, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00,-1.85291E-03, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 1.39717E+02, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 9.19771E-03,-3.69121E+02, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00,-1.57067E-02, 0.00000E+00, 0.00000E+00/
+ DATA PR2/
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,-7.07265E-03,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,-2.92953E-03,
+ * -2.77739E-03,-4.40092E-04, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 2.47280E-03,
+ * 2.95035E-04,-1.81246E-03, 2.81945E-03, 4.27296E-03, 9.78863E-04,
+ * 1.40545E+00,-6.19173E+00, 0.00000E+00, 0.00000E+00,-7.93632E+01,
+ * 4.44643E-01,-4.03085E+02, 0.00000E+00, 1.15603E+01, 0.00000E+00,
+ * 2.25068E-03, 8.48557E-04,-2.98493E-04, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 2.00000E+00/
+C TN3(2)
+ DATA PS1/
+ * 9.75801E-01, 3.80680E-02,-3.05198E-02, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 3.85575E-02,
+ * 5.04057E-02, 0.00000E+00, 0.00000E+00,-1.76046E+02, 1.44594E-02,
+ * -1.48297E-03,-3.68560E-03, 3.02185E+01,-3.23338E-03, 0.00000E+00,
+ * 1.53569E-02, 0.00000E+00,-1.15558E-02, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 4.89620E-03, 0.00000E+00, 0.00000E+00,-1.00616E-02,
+ * -8.21324E-03,-1.57757E+02, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 6.63564E-03, 4.58410E+01, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00,-2.51280E-02, 0.00000E+00, 0.00000E+00/
+ DATA PS2/
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 9.91215E-03,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,-8.73148E-04,
+ * -1.29648E-03,-7.32026E-05, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,-4.68110E-03,
+ * -4.66003E-03,-1.31567E-03,-7.39390E-04, 6.32499E-04,-4.65588E-04,
+ * -1.29785E+00,-1.57139E+02, 0.00000E+00, 2.58350E-01,-3.69453E+01,
+ * 4.10672E-01, 9.78196E+00,-1.52064E-01,-3.85084E+03, 0.00000E+00,
+ * -8.52706E-04,-1.40945E-03,-7.26786E-04, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 2.00000E+00/
+C TN3(3)
+ DATA PU1/
+ * 9.60722E-01, 7.03757E-02,-3.00266E-02, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 2.22671E-02,
+ * 4.10423E-02, 0.00000E+00, 0.00000E+00,-1.63070E+02, 1.06073E-02,
+ * 5.40747E-04, 7.79481E-03, 1.44908E+02, 1.51484E-04, 0.00000E+00,
+ * 1.97547E-02, 0.00000E+00,-1.41844E-02, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 5.77884E-03, 0.00000E+00, 0.00000E+00, 9.74319E-03,
+ * 0.00000E+00,-2.88015E+03, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00,-4.44902E-03,-2.92760E+01, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 2.34419E-02, 0.00000E+00, 0.00000E+00/
+ DATA PU2/
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 5.36685E-03,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,-4.65325E-04,
+ * -5.50628E-04, 3.31465E-04, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,-2.06179E-03,
+ * -3.08575E-03,-7.93589E-04,-1.08629E-04, 5.95511E-04,-9.05050E-04,
+ * 1.18997E+00, 4.15924E+01, 0.00000E+00,-4.72064E-01,-9.47150E+02,
+ * 3.98723E-01, 1.98304E+01, 0.00000E+00, 3.73219E+03, 0.00000E+00,
+ * -1.50040E-03,-1.14933E-03,-1.56769E-04, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 2.00000E+00/
+C TN3(4)
+ DATA PV1/
+ * 1.03123E+00,-7.05124E-02, 8.71615E-03, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,-3.82621E-02,
+ * -9.80975E-03, 0.00000E+00, 0.00000E+00, 2.89286E+01, 9.57341E-03,
+ * 0.00000E+00, 0.00000E+00, 8.66153E+01, 7.91938E-04, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 4.68917E-03, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 7.86638E-03, 0.00000E+00, 0.00000E+00, 9.90827E-03,
+ * 0.00000E+00, 6.55573E+01, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00,-4.00200E+01, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 7.07457E-03, 0.00000E+00, 0.00000E+00/
+ DATA PV2/
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 5.72268E-03,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,-2.04970E-04,
+ * 1.21560E-03,-8.05579E-06, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,-2.49941E-03,
+ * -4.57256E-04,-1.59311E-04, 2.96481E-04,-1.77318E-03,-6.37918E-04,
+ * 1.02395E+00, 1.28172E+01, 0.00000E+00, 1.49903E-01,-2.63818E+01,
+ * 0.00000E+00, 4.70628E+01,-2.22139E-01, 4.82292E-02, 0.00000E+00,
+ * -8.67075E-04,-5.86479E-04, 5.32462E-04, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 2.00000E+00/
+C TN3(5) SURFACE TEMP TSL
+ DATA PW1/
+ * 1.00828E+00,-9.10404E-02,-2.26549E-02, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,-2.32420E-02,
+ * -9.08925E-03, 0.00000E+00, 0.00000E+00, 3.36105E+01, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00,-1.24957E+01,-5.87939E-03, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 2.79765E+01, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 2.01237E+03, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00,-1.75553E-02, 0.00000E+00, 0.00000E+00/
+ DATA PW2/
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 3.29699E-03,
+ * 1.26659E-03, 2.68402E-04, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 1.17894E-03,
+ * 1.48746E-03, 1.06478E-04, 1.34743E-04,-2.20939E-03,-6.23523E-04,
+ * 6.36539E-01, 1.13621E+01, 0.00000E+00,-3.93777E-01, 2.38687E+03,
+ * 0.00000E+00, 6.61865E+02,-1.21434E-01, 9.27608E+00, 0.00000E+00,
+ * 1.68478E-04, 1.24892E-03, 1.71345E-03, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 2.00000E+00/
+C TGN3(2) SURFACE GRAD TSLG
+ DATA PX1/
+ * 1.57293E+00,-6.78400E-01, 6.47500E-01, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,-7.62974E-02,
+ * -3.60423E-01, 0.00000E+00, 0.00000E+00, 1.28358E+02, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 4.68038E+01, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00,-1.67898E-01, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 2.90994E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 3.15706E+01, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/
+ DATA PX2/
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 2.00000E+00/
+C TGN2(1) TGN1(2)
+ DATA PY1/
+ * 8.60028E-01, 3.77052E-01, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,-1.17570E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 7.77757E-03, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 1.01024E+02, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 6.54251E+02, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/
+ DATA PY2/
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,-1.56959E-02,
+ * 1.91001E-02, 3.15971E-02, 1.00982E-02,-6.71565E-03, 2.57693E-03,
+ * 1.38692E+00, 2.82132E-01, 0.00000E+00, 0.00000E+00, 3.81511E+02,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 2.00000E+00/
+C TGN3(1) TGN2(2)
+ DATA PZ1/
+ * 1.06029E+00,-5.25231E-02, 3.73034E-01, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 3.31072E-02,
+ * -3.88409E-01, 0.00000E+00, 0.00000E+00,-1.65295E+02,-2.13801E-01,
+ * -4.38916E-02,-3.22716E-01,-8.82393E+01, 1.18458E-01, 0.00000E+00,
+ * -4.35863E-01, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00,-1.19782E-01, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 2.62229E+01, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00,-5.37443E+01, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00,-4.55788E-01, 0.00000E+00, 0.00000E+00/
+ DATA PZ2/
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 3.84009E-02,
+ * 3.96733E-02, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 5.05494E-02,
+ * 7.39617E-02, 1.92200E-02,-8.46151E-03,-1.34244E-02, 1.96338E-02,
+ * 1.50421E+00, 1.88368E+01, 0.00000E+00, 0.00000E+00,-5.13114E+01,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 5.11923E-02, 3.61225E-02, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 2.00000E+00/
+C SEMIANNUAL MULT SAM
+ DATA PAA1/
+ * 1.00000E+00, 1.00000E+00, 1.00000E+00, 1.00000E+00, 1.00000E+00,
+ * 1.00000E+00, 1.00000E+00, 1.00000E+00, 1.00000E+00, 1.00000E+00,
+ * 1.00000E+00, 1.00000E+00, 1.00000E+00, 1.00000E+00, 1.00000E+00,
+ * 1.00000E+00, 1.00000E+00, 1.00000E+00, 1.00000E+00, 1.00000E+00,
+ * 1.00000E+00, 1.00000E+00, 1.00000E+00, 1.00000E+00, 1.00000E+00,
+ * 1.00000E+00, 1.00000E+00, 1.00000E+00, 1.00000E+00, 1.00000E+00,
+ * 1.00000E+00, 1.00000E+00, 1.00000E+00, 1.00000E+00, 1.00000E+00,
+ * 1.00000E+00, 1.00000E+00, 1.00000E+00, 1.00000E+00, 1.00000E+00,
+ * 1.00000E+00, 1.00000E+00, 1.00000E+00, 1.00000E+00, 1.00000E+00,
+ * 1.00000E+00, 1.00000E+00, 1.00000E+00, 1.00000E+00, 1.00000E+00/
+ DATA PAA2/
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
+ * 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/
+C MIDDLE ATMOSPHERE AVERAGES
+ DATA PAVGM/
+ M 2.61000E+02, 2.64000E+02, 2.29000E+02, 2.17000E+02, 2.17000E+02,
+ M 2.23000E+02, 2.86760E+02,-2.93940E+00, 2.50000E+00, 0.00000E+00/
+ END
diff --git a/srcGlow/output.f90 b/srcGlow/output.f90
new file mode 100644
index 0000000..1118dbf
--- /dev/null
+++ b/srcGlow/output.f90
@@ -0,0 +1,438 @@
+module output
+
+! This software is part of the GLOW model. Use is governed by the Open Source
+! Academic Research License Agreement contained in the file glowlicense.txt.
+! For more information see the file glow.txt.
+
+! Ben Foster and Stan Solomon, 1/15
+! Stan Solomon, 1/16
+
+! Handles output from the GLOW model to netCDF files.
+! For usage, see program glowdriver.f90.
+
+! The GLOW grid dimensions and coordinates must be set before
+! any routines in this module are called. They are currently
+! set by the main driver (glowdriver.f90) and module cglow.f90.
+
+
+ use netcdf
+
+ use cglow,only: nbins,lmax,nmaj,nei,nex,nw,nc,nst
+ use cglow,only: idate,ut,f107a,f107,f107p,ap
+ use cglow,only: iscale,jlocal,kchem,xuvfac
+
+ implicit none
+
+ integer :: nlon,nlat,nlev ! dimensions
+ real,allocatable,save :: lon(:),lat(:),lev(:) ! coordinates
+ logical :: writelbh,writered ! switches
+!
+! Output arrays:
+!
+ real,allocatable :: zzz(:,:,:) ! geometric altitude (nlon,nlat,nlev)
+ real,allocatable :: ao(:,:,:) ! atomic oxygen
+ real,allocatable :: ao2(:,:,:) ! molecular oxygen
+ real,allocatable :: an2(:,:,:) ! molecular nitrogen
+ real,allocatable :: ano(:,:,:) ! nitric oxide
+ real,allocatable :: an4s(:,:,:) ! N(4S)
+ real,allocatable :: an2d(:,:,:) ! N(2D)
+ real,allocatable :: atn(:,:,:) ! neutral temperature
+ real,allocatable :: ati(:,:,:) ! ion temperature
+ real,allocatable :: ate(:,:,:) ! electron temperature
+ real,allocatable :: aun(:,:,:) ! zonal neutral wind
+ real,allocatable :: avn(:,:,:) ! meridional neutral wind
+ real,allocatable :: ane(:,:,:) ! electron density from input model
+ real,allocatable :: nec(:,:,:) ! electron density calculated by glow
+ real,allocatable :: ped(:,:,:) ! Pederson conductivity calculated by glow (not output)
+ real,allocatable :: hall(:,:,:) ! Hall conductivity calculated by glow (not output)
+ real,allocatable :: xden(:,:,:,:) ! ionized and excited states (nlon,nlat,nlev,nex)
+ real,allocatable :: eta(:,:,:,:) ! airglow emission rates (nlon,nlat,nlev,nw)
+ real,allocatable :: lbh(:,:,:,:) ! lbh (v'=0-6) excitation rates (nlon,nlat,nlev,nc)
+ real,allocatable :: redline(:,:,:,:) ! OI 6300 emission components (nlon,nlat,nlev,nc)
+!
+! Netcdf file unit:
+!
+ integer :: ncid
+
+ contains
+
+!-----------------------------------------------------------------------
+
+ subroutine output_init
+!
+! Allocate output arrays (called from glowdriver.F90).
+!
+ allocate(lon(nlon))
+ allocate(lat(nlat))
+ allocate(lev(nlev))
+ allocate(zzz(nlon,nlat,nlev))
+ allocate(ao(nlon,nlat,nlev))
+ allocate(ao2(nlon,nlat,nlev))
+ allocate(an2(nlon,nlat,nlev))
+ allocate(ano(nlon,nlat,nlev))
+ allocate(an4s(nlon,nlat,nlev))
+ allocate(an2d(nlon,nlat,nlev))
+ allocate(atn(nlon,nlat,nlev))
+ allocate(ati(nlon,nlat,nlev))
+ allocate(ate(nlon,nlat,nlev))
+ allocate(aun(nlon,nlat,nlev))
+ allocate(avn(nlon,nlat,nlev))
+ allocate(ane(nlon,nlat,nlev))
+ allocate(nec(nlon,nlat,nlev))
+ allocate(ped(nlon,nlat,nlev))
+ allocate(hall(nlon,nlat,nlev))
+ allocate(xden(nlon,nlat,nlev,nex))
+ allocate(eta(nlon,nlat,nlev,nw))
+ allocate(lbh(nlon,nlat,nlev,nc))
+ allocate(redline(nlon,nlat,nlev,nc))
+
+ end subroutine output_init
+
+!-----------------------------------------------------------------------
+
+ subroutine create_ncfile(ncfile,tgcm_ncfile)
+!
+! Create and define a netcdf glow output file, with dimensions, attributes,
+! variables, etc., but do not write data yet.
+!
+! Args:
+ character(len=*),intent(in) :: ncfile,tgcm_ncfile
+!
+! Local:
+ integer :: istat,id,idv
+ integer :: id_lon, id_lat, id_lev, id_nex, id_nw, id_nc
+ integer :: idv_lon,idv_lat,idv_lev
+ integer :: idv_idate,idv_ut,idv_f107a,idv_f107,idv_f107p,idv_ap
+ integer :: idv_iscale,idv_jlocal,idv_kchem,idv_xuvfac
+ character(len=16) :: logname
+ character(len=24) :: create_date,create_time
+ character(len=64) :: create_datetime
+
+ istat = nf90_create(ncfile,NF90_CLOBBER,ncid)
+ if (istat /= NF90_NOERR) then
+ write(6,"('>>> Error creating netcdf output file ',a)") trim(ncfile)
+ call handle_ncerr(istat,'Error from nf90_create',1)
+ endif
+ write(6,"('Created netcdf dataset ',a)") trim(ncfile)
+!
+! Define dimensions:
+!
+ istat = nf90_def_dim(ncid,'lon',nlon,id_lon)
+ istat = nf90_def_dim(ncid,'lat',nlat,id_lat)
+ istat = nf90_def_dim(ncid,'lev',nlev,id_lev)
+ istat = nf90_def_dim(ncid,'nex',nex,id_nex)
+ istat = nf90_def_dim(ncid,'nw',nw,id_nw)
+ istat = nf90_def_dim(ncid,'nc',nc,id_nc)
+!
+! Define scalars:
+!
+ istat = nf90_def_var(ncid,'IDATE',NF90_INT,idv_idate)
+ istat = nf90_put_att(ncid,idv_idate,'long_name','date in yyyyddd format')
+ istat = nf90_put_att(ncid,idv_idate,'units','days')
+
+ istat = nf90_def_var(ncid,'UT',NF90_FLOAT,idv_ut)
+ istat = nf90_put_att(ncid,idv_ut,'long_name','universal time')
+ istat = nf90_put_att(ncid,idv_ut,'units','hours')
+
+ istat = nf90_def_var(ncid,'F107A',NF90_FLOAT,idv_f107a)
+ istat = nf90_put_att(ncid,idv_f107a,'long_name','F10.7 index 81-day centered average')
+ istat = nf90_put_att(ncid,idv_f107a,'units','sfu')
+
+ istat = nf90_def_var(ncid,'F107',NF90_FLOAT,idv_f107)
+ istat = nf90_put_att(ncid,idv_f107,'long_name','F10.7 index')
+ istat = nf90_put_att(ncid,idv_f107,'units','sfu')
+
+ istat = nf90_def_var(ncid,'F107P',NF90_FLOAT,idv_f107p)
+ istat = nf90_put_att(ncid,idv_f107p,'long_name','F10.7 index for previous day')
+ istat = nf90_put_att(ncid,idv_f107p,'units','sfu')
+
+ istat = nf90_def_var(ncid,'AP',NF90_FLOAT,idv_ap)
+ istat = nf90_put_att(ncid,idv_ap,'long_name','Ap index (daily)')
+ istat = nf90_put_att(ncid,idv_ap,'units','none')
+
+ istat = nf90_def_var(ncid,'ISCALE',NF90_INT,idv_iscale)
+ istat = nf90_put_att(ncid,idv_iscale,'long_name','Solar flux scaling method')
+ istat = nf90_put_att(ncid,idv_iscale,'units','none')
+
+ istat = nf90_def_var(ncid,'JLOCAL',NF90_INT,idv_jlocal)
+ istat = nf90_put_att(ncid,idv_jlocal,'long_name','Electron transport local switch')
+ istat = nf90_put_att(ncid,idv_jlocal,'units','none')
+
+ istat = nf90_def_var(ncid,'KCHEM',NF90_INT,idv_kchem)
+ istat = nf90_put_att(ncid,idv_kchem,'long_name','Ion chemistry selction switch')
+ istat = nf90_put_att(ncid,idv_kchem,'units','none')
+
+ istat = nf90_def_var(ncid,'XUVFAC',NF90_FLOAT,idv_xuvfac)
+ istat = nf90_put_att(ncid,idv_xuvfac,'long_name','XUV scaling factor')
+ istat = nf90_put_att(ncid,idv_xuvfac,'units','none')
+!
+! Define coordinate variables):
+!
+ istat = nf90_def_var(ncid,'lon',NF90_FLOAT,(/id_lon/),idv_lon)
+ istat = nf90_put_att(ncid,idv_lon,'long_name',&
+ 'geographic longitude (-west, +east)')
+ istat = nf90_put_att(ncid,idv_lon,'units','degrees_east')
+
+ istat = nf90_def_var(ncid,'lat',NF90_FLOAT,(/id_lat/),idv_lat)
+ istat = nf90_put_att(ncid,idv_lat,'long_name',&
+ 'geographic latitude (-south, +north)')
+ istat = nf90_put_att(ncid,idv_lat,'units','degrees_north')
+
+ istat = nf90_def_var(ncid,'lev',NF90_FLOAT,(/id_lev/),idv_lev)
+ istat = nf90_put_att(ncid,idv_lev,'long_name',&
+ 'pressure/altitude level number')
+ istat = nf90_put_att(ncid,idv_lat,'units','dimensionless')
+!
+! Define data variable arrays:
+!
+ istat = nf90_def_var(ncid,'ZZZ',NF90_FLOAT,(/id_lon,id_lat,id_lev/),idv)
+ istat = nf90_put_att(ncid,idv,'long_name','geometric altitude')
+ istat = nf90_put_att(ncid,idv,'units','cm')
+
+ istat = nf90_def_var(ncid,'AO',NF90_FLOAT,(/id_lon,id_lat,id_lev/),idv)
+ istat = nf90_put_att(ncid,idv,'long_name','atomic oxygen')
+ istat = nf90_put_att(ncid,idv,'units','cm-3')
+
+ istat = nf90_def_var(ncid,'AO2',NF90_FLOAT,(/id_lon,id_lat,id_lev/),idv)
+ istat = nf90_put_att(ncid,idv,'long_name','molecular oxygen')
+ istat = nf90_put_att(ncid,idv,'units','cm-3')
+
+ istat = nf90_def_var(ncid,'AN2',NF90_FLOAT,(/id_lon,id_lat,id_lev/),idv)
+ istat = nf90_put_att(ncid,idv,'long_name','molecular nitrogen')
+ istat = nf90_put_att(ncid,idv,'units','cm-3')
+
+ istat = nf90_def_var(ncid,'ANO',NF90_FLOAT,(/id_lon,id_lat,id_lev/),idv)
+ istat = nf90_put_att(ncid,idv,'long_name','nitric oxide')
+ istat = nf90_put_att(ncid,idv,'units','cm-3')
+
+ istat = nf90_def_var(ncid,'AN4S',NF90_FLOAT,(/id_lon,id_lat,id_lev/),idv)
+ istat = nf90_put_att(ncid,idv,'long_name','atomic nitrogen')
+ istat = nf90_put_att(ncid,idv,'units','cm-3')
+
+ istat = nf90_def_var(ncid,'AN2D',NF90_FLOAT,(/id_lon,id_lat,id_lev/),idv)
+ istat = nf90_put_att(ncid,idv,'long_name','atomic nitrogen doublet-D')
+ istat = nf90_put_att(ncid,idv,'units','cm-3')
+
+ istat = nf90_def_var(ncid,'ATN',NF90_FLOAT,(/id_lon,id_lat,id_lev/),idv)
+ istat = nf90_put_att(ncid,idv,'long_name','netural temperature')
+ istat = nf90_put_att(ncid,idv,'units','K')
+
+ istat = nf90_def_var(ncid,'ATI',NF90_FLOAT,(/id_lon,id_lat,id_lev/),idv)
+ istat = nf90_put_att(ncid,idv,'long_name','ion temperature')
+ istat = nf90_put_att(ncid,idv,'units','K')
+
+ istat = nf90_def_var(ncid,'ATE',NF90_FLOAT,(/id_lon,id_lat,id_lev/),idv)
+ istat = nf90_put_att(ncid,idv,'long_name','electron temperature')
+ istat = nf90_put_att(ncid,idv,'units','K')
+
+ istat = nf90_def_var(ncid,'AUN',NF90_FLOAT,(/id_lon,id_lat,id_lev/),idv)
+ istat = nf90_put_att(ncid,idv,'long_name','zonal neutral wind')
+ istat = nf90_put_att(ncid,idv,'units','cm/s')
+
+ istat = nf90_def_var(ncid,'AVN',NF90_FLOAT,(/id_lon,id_lat,id_lev/),idv)
+ istat = nf90_put_att(ncid,idv,'long_name','meridional neutral wind')
+ istat = nf90_put_att(ncid,idv,'units','cm/s')
+
+ istat = nf90_def_var(ncid,'ANE',NF90_FLOAT,(/id_lon,id_lat,id_lev/),idv)
+ istat = nf90_put_att(ncid,idv,'long_name','electron density input')
+ istat = nf90_put_att(ncid,idv,'units','cm-3')
+
+ istat = nf90_def_var(ncid,'NEC',NF90_FLOAT,(/id_lon,id_lat,id_lev/),idv)
+ istat = nf90_put_att(ncid,idv,'long_name','electron density calculated')
+ istat = nf90_put_att(ncid,idv,'units','cm-3')
+
+ istat = nf90_def_var(ncid,'XDEN',NF90_FLOAT,(/id_lon,id_lat,id_lev,id_nex/),idv)
+ istat = nf90_put_att(ncid,idv,'long_name','excited and ionized state densities')
+ istat = nf90_put_att(ncid,idv,'units','cm-3')
+
+ istat = nf90_def_var(ncid,'ETA',NF90_FLOAT,(/id_lon,id_lat,id_lev,id_nw/),idv)
+ istat = nf90_put_att(ncid,idv,'long_name','volume emission rates')
+ istat = nf90_put_att(ncid,idv,'units','cm-3 s-1')
+
+ if (writelbh) then
+ istat = nf90_def_var(ncid,'LBH',NF90_FLOAT,(/id_lon,id_lat,id_lev,id_nc/),idv)
+ istat = nf90_put_att(ncid,idv,'long_name','LBH (v=0-6) excitation rates')
+ istat = nf90_put_att(ncid,idv,'units','cm-3 s-1')
+ endif
+
+ if (writered) then
+ istat = nf90_def_var(ncid,'REDLINE',NF90_FLOAT,(/id_lon,id_lat,id_lev,id_nc/),idv)
+ istat = nf90_put_att(ncid,idv,'long_name','OI 6300 emission components')
+ istat = nf90_put_att(ncid,idv,'units','cm-3 s-1')
+ endif
+!
+! Global file attributes:
+!
+! Create date and time:
+!
+ call datetime(create_date,create_time)
+ create_datetime = trim(create_date)//' '//trim(create_time)
+ istat = nf90_put_att(ncid,NF90_GLOBAL,"create_date",trim(create_datetime))
+!
+! Log name (author):
+!
+ call getenv('LOGNAME',logname)
+ istat = nf90_put_att(ncid,NF90_GLOBAL,'logname',trim(logname))
+!
+! tgcm history file, if one has been read:
+!
+ if (len_trim(tgcm_ncfile) > 0) then
+ istat = nf90_put_att(ncid,NF90_GLOBAL,'tgcm_ncfile',trim(tgcm_ncfile))
+ else
+ istat = nf90_put_att(ncid,NF90_GLOBAL,'tgcm_ncfile','[none]')
+ endif
+!
+! Take out of define mode and go into data mode:
+!
+ istat = nf90_enddef(ncid)
+!
+! Write scalars:
+!
+ istat = nf90_put_var(ncid,idv_idate,idate)
+ istat = nf90_put_var(ncid,idv_ut,ut)
+ istat = nf90_put_var(ncid,idv_f107a,f107a)
+ istat = nf90_put_var(ncid,idv_f107,f107)
+ istat = nf90_put_var(ncid,idv_f107p,f107p)
+ istat = nf90_put_var(ncid,idv_ap,ap)
+ istat = nf90_put_var(ncid,idv_iscale,iscale)
+ istat = nf90_put_var(ncid,idv_jlocal,jlocal)
+ istat = nf90_put_var(ncid,idv_kchem,kchem)
+ istat = nf90_put_var(ncid,idv_xuvfac,xuvfac)
+!
+! Write coordinate values:
+!
+ istat = nf90_put_var(ncid,idv_lon,lon)
+ istat = nf90_put_var(ncid,idv_lat,lat)
+ istat = nf90_put_var(ncid,idv_lev,lev)
+!
+! Close the file:
+!
+ istat = nf90_close(ncid)
+
+ end subroutine create_ncfile
+
+!-----------------------------------------------------------------------
+
+ subroutine write_ncfile(ncfile)
+!
+! Write data to netcdf glow output file at current time. The file has
+! already been created w/ dimensions by sub create_ncfile.
+!
+! Args:
+ character(len=*),intent(in) :: ncfile
+!
+! Local:
+ integer :: istat,id
+
+ istat = nf90_open(ncfile,NF90_WRITE,ncid)
+ if (istat /= NF90_NOERR) then
+ write(6,"('>>> Error opening file for writing: ncfile=',a)") trim(ncfile)
+ call handle_ncerr(istat,'Error from nf90_open',1)
+ endif
+
+ istat = nf90_inq_varid(ncid,'ZZZ',id)
+ istat = nf90_put_var(ncid,id,zzz)
+ istat = nf90_inq_varid(ncid,'AO',id)
+ istat = nf90_put_var(ncid,id,ao)
+ istat = nf90_inq_varid(ncid,'AO2',id)
+ istat = nf90_put_var(ncid,id,ao2)
+ istat = nf90_inq_varid(ncid,'AN2',id)
+ istat = nf90_put_var(ncid,id,an2)
+ istat = nf90_inq_varid(ncid,'ANO',id)
+ istat = nf90_put_var(ncid,id,ano)
+ istat = nf90_inq_varid(ncid,'AN4S',id)
+ istat = nf90_put_var(ncid,id,an4s)
+ istat = nf90_inq_varid(ncid,'AN2D',id)
+ istat = nf90_put_var(ncid,id,an2d)
+ istat = nf90_inq_varid(ncid,'ATN',id)
+ istat = nf90_put_var(ncid,id,atn)
+ istat = nf90_inq_varid(ncid,'ATI',id)
+ istat = nf90_put_var(ncid,id,ati)
+ istat = nf90_inq_varid(ncid,'ATE',id)
+ istat = nf90_put_var(ncid,id,ate)
+ istat = nf90_inq_varid(ncid,'AUN',id)
+ istat = nf90_put_var(ncid,id,aun)
+ istat = nf90_inq_varid(ncid,'AVN',id)
+ istat = nf90_put_var(ncid,id,avn)
+ istat = nf90_inq_varid(ncid,'ANE',id)
+ istat = nf90_put_var(ncid,id,ane)
+ istat = nf90_inq_varid(ncid,'NEC',id)
+ istat = nf90_put_var(ncid,id,nec)
+ istat = nf90_inq_varid(ncid,'XDEN',id)
+ istat = nf90_put_var(ncid,id,xden)
+ istat = nf90_inq_varid(ncid,'ETA',id)
+ istat = nf90_put_var(ncid,id,eta)
+ if (writelbh) then
+ istat = nf90_inq_varid(ncid,'LBH',id)
+ istat = nf90_put_var(ncid,id,lbh)
+ endif
+ if (writered) then
+ istat = nf90_inq_varid(ncid,'REDLINE',id)
+ istat = nf90_put_var(ncid,id,redline)
+ endif
+
+ istat = nf90_close(ncid)
+
+ end subroutine write_ncfile
+
+!-----------------------------------------------------------------------
+
+ subroutine datetime(curdate,curtime)
+!
+! Return character*8 values for current date and time.
+! (sub date_and_time is an f90 intrinsic)
+!
+ implicit none
+!
+! Args:
+ character(len=*),intent(out) :: curdate,curtime
+!
+! Local:
+ character(len=8) :: date
+ character(len=10) :: time
+ character(len=5) :: zone
+ integer :: values(8)
+!
+ curdate = ' '
+ curtime = ' '
+ call date_and_time(date,time,zone,values)
+!
+! write(6,"('datetime: date=',a,' time=',a,' zone=',a)")
+! | date,time,zone
+! write(6,"('datetime: values=',8i8)") values
+!
+ curdate(1:2) = date(5:6)
+ curdate(3:3) = '/'
+ curdate(4:5) = date(7:8)
+ curdate(6:6) = '/'
+ curdate(7:8) = date(3:4)
+!
+ curtime(1:2) = time(1:2)
+ curtime(3:3) = ':'
+ curtime(4:5) = time(3:4)
+ curtime(6:6) = ':'
+ curtime(7:8) = time(5:6)
+!
+ end subroutine datetime
+
+!-----------------------------------------------------------------------
+
+ subroutine handle_ncerr(istat,msg,ifatal)
+!
+! Handle a netcdf lib error:
+!
+ integer,intent(in) :: istat,ifatal
+ character(len=*),intent(in) :: msg
+!
+ write(6,"(/72('-'))")
+ write(6,"('>>> Error from netcdf library:')")
+ write(6,"(a)") trim(msg)
+ write(6,"('istat=',i5)") istat
+ write(6,"(a)") nf90_strerror(istat)
+ write(6,"(72('-')/)")
+ if (ifatal > 0) stop('Fatal netcdf error')
+ end subroutine handle_ncerr
+
+!-----------------------------------------------------------------------
+
+end module output
diff --git a/srcGlow/pegrid.f90 b/srcGlow/pegrid.f90
new file mode 100644
index 0000000..b0a31c5
--- /dev/null
+++ b/srcGlow/pegrid.f90
@@ -0,0 +1,42 @@
+! Subroutine PEGRID sets up proton energy grid
+
+! This software is part of the GLOW model. Use is governed by the open source
+! academic research license agreement contained in the file Glowlicense.txt.
+! For more information see the file Glow.txt.
+
+! Stan Solomon, 2/2018
+
+! Inputs:
+! npbins number of bins in the proton energy grid
+! Outputs:
+! pener energy at center of each bin, eV
+! pdel width of each bin, eV
+
+! Energy grid is set up to extend from 37 eV to 803 keV at bin centers(for npbins=27).
+
+subroutine pegrid (pener, pdel, npbins)
+
+ implicit none
+
+ integer,intent(in) :: npbins
+ real,intent(out) :: pener(npbins), pdel(npbins)
+
+ integer :: n
+ real,parameter :: e0=30.0
+
+ do n=1,npbins
+ pener(n) = e0 * exp (0.384*float(n))
+ enddo
+
+ pdel(1) = pener(1) - e0
+ do n=2,npbins
+ pdel(n) = pener(n) - pener(n-1)
+ enddo
+
+ do n=1,npbins
+ pener(n) = pener(n) - pdel(n)/2.0
+ enddo
+
+ return
+
+end subroutine pegrid
diff --git a/srcGlow/qback.f90 b/srcGlow/qback.f90
new file mode 100644
index 0000000..40c947e
--- /dev/null
+++ b/srcGlow/qback.f90
@@ -0,0 +1,112 @@
+! Subroutine QBACK
+
+! This software is part of the GLOW model. Use is governed by the Open Source
+! Academic Research License Agreement contained in the file glowlicense.txt.
+! For more information see the file glow.txt.
+
+! Stan Solomon, 11/1988, 11/1992, 3/2005
+! New version uses updated TIE-GCM and TIME-GCM qinite.F formulation, SCS, 1/2013
+! Refactored to f90, SCS, 6/2016
+
+! Estimates background ("nighttime") ionization rates.
+! Four components are used:
+! Geocoronal Lyman-beta 102.6 nm (ionizes O2 only)
+! Geocoronal He I 58.4 nm
+! Geocoronal He II 30.4 nm
+! Geocoronal Lyman-alpha 121.6 nm (ionizes NO only)
+
+
+! Inputs:
+! zmaj major species O, O2, N2 at each altitude
+! zno nitric oxide at each altitude
+! zvcd vertical column density for each major species above each altitude
+! photoi array of photoionization rates for each state, species, altitude
+! f107 solar 10.7 cm radio flux activity index
+! jm number of altitude levels
+! nmaj number of major species (3)
+! nst number of states
+! Output:
+! Array photoi is incremented by the background rates
+
+!Other definitions:
+! al photon flux at 102.6 nm, 58.4 nm, 30.4 nm
+! flyan photon flux at 121.6 nm
+! sa absorption cross sections for O, O2, N2 at each wavelength
+! si ionization cross sections for O, O2, N2 at each wavelength
+! salyao2 absorption cross section for O2 at 121.6 nm
+! silyano ionization cross section for NO at 121.6 nm
+! bn2p branching ratio for N2+ from ionization of N2
+! bn1p branching ratio for N+ from ionization of N2
+! tau optical depth
+! qbo1 production rate of O+
+! qbo2 production rate of O2+
+! qbn2 production rate of N2+
+! qbn1 production rate of N+
+! qbno production rate of NO+
+
+! All units cgs.
+
+
+ subroutine qback (zmaj,zno,zvcd,photoi,phono,f107,jm,nmaj,nst)
+
+ implicit none
+
+ integer,intent(in) :: jm, nmaj, nst
+ real,intent(in) :: zmaj(nmaj,jm), zno(jm), zvcd(nmaj,jm), f107
+ real,intent(inout) :: photoi(nst,nmaj,jm), phono(nst,jm)
+
+ integer :: j, l
+ real :: al(3), sa(3,3), si(3,3), salyao2, silyano, bn2p, bn1p
+ real :: flyan, tau, qbo1, qbo2, qbn2, qbn1, qbno
+
+ data al /1.5e7, 1.5e6, 1.5e6/
+ data sa / 0., 1.6e-18, 0., &
+ 10.2e-18, 22.0e-18, 23.1e-18, &
+ 8.4e-18, 16.0e-18, 11.6e-18/
+ data si / 0., 1.0e-18, 0., &
+ 10.2e-18, 22.0e-18, 23.1e-18, &
+ 8.4e-18, 16.0e-18, 11.6e-18/
+ data salyao2/8.0e-21/
+ data silyano/2.0e-18/
+ data bn2p/0.86/
+ data bn1p/0.14/
+
+! Calculate Lyman-alpha 121.6 nm geocoronal flux as a function of F10.7:
+
+ flyan = 5.E9*(1.+0.002*(f107-65.))
+
+! Loop over altitudes:
+
+ do j=1,jm
+ qbo1 = 0.
+ qbo2 = 0.
+ qbn2 = 0.
+ qbn1 = 0.
+
+! Calculate optical depth and ionization rates for major species:
+
+ do l=1,3
+ tau=(sa(1,l)*zvcd(1,j)+sa(2,l)*zvcd(2,j)+sa(3,l)*zvcd(3,j))
+ qbo1 = qbo1+al(l)*si(1,l)*zmaj(1,j)*exp(-tau)
+ qbo2 = qbo2+al(l)*si(2,l)*zmaj(2,j)*exp(-tau)
+ qbn2 = qbn2+bn2p*(al(l)*si(3,l)*zmaj(3,j)*exp(-tau))
+ qbn1 = qbn1+bn1p*(al(l)*si(3,l)*zmaj(3,j)*exp(-tau))
+ enddo
+
+! Calculate optical depth of Ly-alpha, and ionization rate of NO:
+
+ tau = salyao2*zvcd(2,j)
+ qbno = flyan*silyano*zno(j)*exp(-tau)
+
+! Increment ionization rate array with background ionization:
+
+ photoi(1,1,j) = photoi(1,1,j) + qbo1
+ photoi(1,2,j) = photoi(1,2,j) + qbo2
+ photoi(1,3,j) = photoi(1,3,j) + qbn2
+ photoi(6,3,j) = photoi(6,3,j) + qbn1
+ phono(1,j) = phono(1,j) + qbno
+
+ enddo
+
+ return
+ end subroutine qback
diff --git a/srcGlow/qproton.f90 b/srcGlow/qproton.f90
new file mode 100644
index 0000000..fb691f3
--- /dev/null
+++ b/srcGlow/qproton.f90
@@ -0,0 +1,170 @@
+! Subroutine QPROTON calculates ionization rates from energetic proton precipitation
+! using the parameterization of Fang et al. (2010, 2013).
+
+! Driver interface to QPROT converts units to mks and loops over altitude and energy
+
+! Initial version of wrapper routine, Stan Solomon, 2/2018
+! Removed dissociative ionization and re-ordered species ionization rates, Stan Solomon, 2/2018
+! Converted input to array of proton flux as a function of energy, Stan Solomon, 2/2018
+
+! Input:
+! nmaj : number of major species (typically 3, O, O2, and N2)
+! jmax : number of altitude levels
+! npbins: number of energy bins
+! pflux : array of number flux of incident protons in each energy bin [cm^-2 sec^-1 eV^-1]
+! pener : energy grid, bin centers (eV)
+! pdel : energy bin widths (eV)
+! zz : altitude array [cm]
+! ztn : neutral temperature array [K]
+! zo : atomic oxygen density array [cm^-3]
+! zo2 : molecular oxygen density array [cm^-3]
+! zn2 : molecular nitrogen density array [cm^-3]
+! zns : atomic nitrogen density array [cm^-3]
+
+! Output:
+! pia : ionization rate array for each major species (O, O2, N2) at each altitude [cm^-3/sec]
+
+! Internal variables used by QPROT:
+! fmono : scalar energy flux of monoenergetic incident protons [eV/cm^2/sec]
+! emono : scalar energy of monoenergetic incident protons [eV]
+! h : scale height [m]
+! rhomasstot : total mass density [kg/m^3]
+! qtot : ionization rate [1/cm^3/sec]
+
+
+ subroutine qproton (nmaj, jmax, npbins, pflux, pener, pdel, zz, ztn, zo, zo2, zn2, zns, pia)
+
+ implicit none
+
+ integer, intent(in) :: nmaj, jmax, npbins
+ real, intent(in) :: pflux(npbins), pener(npbins), pdel(npbins)
+ real, intent(in) :: zz(jmax), ztn(jmax), zo(jmax), zo2(jmax), zn2(jmax), zns(jmax)
+ real, intent(out) :: pia(nmaj,jmax)
+
+ integer :: j,n
+ real :: fmono, emono
+ real :: alt, rhoo, rhoo2, rhon2, rhons, rhototal, rhomasstot, meanmass, g, h, qtot, delta
+ real, parameter :: avon = 6.0221413d23 ! Avogadro's #, atoms or molecules/mol
+ real, parameter :: bolc = 1.3806488d-23 ! Boltzmann's constant, m^2 kg s^-2 K^-1
+ real, parameter :: g0 = 9.80665 ! standard gravity, m^2/s
+ real, parameter :: re = 6371009. ! Mean Earth radius, m
+
+ pia(:,:) = 0.
+
+ ! Loop over altitudes:
+
+ do j=1,jmax
+
+ ! Convert units to mks:
+
+ alt=zz(j)*1e-2
+ rhoo=zo(j)*1e6
+ rhoo2=zo2(j)*1e6
+ rhon2=zn2(j)*1e6
+ rhons=zns(j)*1e6
+ rhototal = rhoo + rhoo2 + rhon2 + rhons ! #/m^3
+ rhomasstot=(rhoo*.016+rhoo2*.032+rhon2*.028+rhons*.014) / avon ! kg/m^3
+
+ ! Calculate scale height:
+
+ meanmass = rhomasstot/rhototal
+ g = g0*(re**2 / (re+alt)**2)
+ h = (bolc*ztn(j))/(meanmass*g) ! m
+
+ ! Loop over energies:
+
+ do n=1,npbins
+
+ fmono = pflux(n) * pener(n) * pdel(n)
+ emono = pener(n)
+
+ ! Call qprot to calculate total ionization rate qtot at each altitude:
+
+ call qprot(fmono,emono,h,rhomasstot,qtot)
+
+ ! Increment species-specific proton ioniztion rate using qtot:
+ ! Note that we are neglecting direct ionization of N.
+
+ delta = 0.92*rhoN2 + 1.50*rhoO2 + 0.56*rhoO
+ pia(1,j) = pia(1,j) + qtot * (0.56*rhoO) / delta
+ pia(2,j) = pia(2,j) + qtot * (1.50*rhoO2) / delta
+ pia(3,j) = pia(3,j) + qtot * (0.92*rhoN2) / delta
+
+ enddo
+
+ enddo
+
+ end subroutine qproton
+
+! -----------------------------------------------------
+
+! Subroutine QPROT
+
+! Calculates total ionization rate due to proton precipitation for a single altitude and energy.
+! Range of validity is 100 eV to 1 MeV; ionization rate is set to zero if outside of range.
+
+! Algorithm provided by Xiaohua Fang (see Fang et al., 2010, 2013).
+! All intellectual property is that of Dr. Xiaohua Fang (CU/LASP).
+
+! Untested version obtained from Ryan McGranaghan, 6/2016
+! Initial adaptation for testing, Stan Solomon, 6/2016
+! Refactored to free-form Fortran 90, Stan Solomon, 2/2018
+! Moved inside wrapper routine, Stan Solomon, 2/2018
+
+! Note mixed units: scale heigh and density input is mks
+! proton flux input is cgs
+! output ionization rate is cgs
+
+! Input:
+! fmono : energy flux of incident protons [eV/cm^2/sec]
+! emono : monoenergy of incident protons [eV]
+! h : scale height [m]
+! rhomasstot : total mass density [kg/m^3]
+
+! Output:
+! qtot : ionization rate [1/cm^3/sec]
+
+! References:
+! Fang, X., C. Randall, D. Lummerzheim, W. Wang, G. Lu, S. Solomon, and R. Frahm (2010),
+! Parameterization of monoenergetic electron impact ionization, Geophys. Res. Lett., 37,
+! L22106, doi:10.1029/2010GLO45406.
+
+! Fang, X., D. Lummerzheim, and C. Jackman (2013), Proton impact ionization and a fast
+! calculation method, J. Geophys. Res. Space Physics, 118, 5369-5378, doi:10.1002/jgra.50484
+
+
+ SUBROUTINE QPROT (fmono, emono, h, rhomasstot, qtot)
+
+ implicit none
+
+ real, intent(in) :: fmono, emono
+ real, intent(in) :: h, rhomasstot
+ real, intent(out) :: qtot
+ real :: p(4,12), c(12), si, so, lne
+
+ DATA p / 2.55050e0, 2.69476e-1, -2.58425e-1, 4.43190e-2, &
+ 6.39287e-1, -1.85817e-1, -3.15636e-2, 1.01370e-2, &
+ 1.63996e0, 2.43580e-1, 4.29873e-2, 3.77803e-2, &
+ -2.13479e-1, 1.42464e-1, 1.55840e-2, 1.97407e-3, &
+ -1.65764e-1, 3.39654e-1, -9.87971e-3, 4.02411e-3, &
+ -3.59358e-2, 2.50330e-2, -3.29365e-2, 5.08057e-3, &
+ -6.26528e-1, 1.46865e0, 2.51853e-1, -4.57132e-2, &
+ 1.01384e0, 5.94301e-2, -3.27839e-2, 3.42688e-3, &
+ -1.29454e-6, -1.43623e-1, 2.82583e-1, 8.29809e-2, &
+ -1.18622e-1, 1.79191e-1, 6.49171e-2, -3.99715e-3, &
+ 2.94890e0, -5.75821e-1, 2.48563e-2, 8.31078e-2, &
+ -1.89515e-1, 3.53452e-2, 7.77964e-2, -4.06034e-3/
+
+ if ((emono > 99.) .and. (emono < 1.01e6)) then
+ lne = log(emono*1.e-3)
+ c=exp(p(1,:)+p(2,:)*lne+p(3,:)*(lne**2)+p(4,:)*(lne**3))
+ si=log(7.5e3/emono*(rhomasstot*h*1000.)**9.e-1)
+ so=c(1)*exp(c(2)*si-c(3)*exp(c(4)*si)) &
+ +c(5)*exp(c(6)*si-c(7)*exp(c(8)*si)) &
+ +c(9)*exp(c(10)*si-c(11)*exp(c(12)*si))
+ qtot=so*fmono/h/3.5e3
+ else
+ qtot=0.
+ endif
+
+ END SUBROUTINE QPROT
diff --git a/srcGlow/rcolum.f90 b/srcGlow/rcolum.f90
new file mode 100644
index 0000000..cd08524
--- /dev/null
+++ b/srcGlow/rcolum.f90
@@ -0,0 +1,164 @@
+! Subroutine RCOLUM
+
+! This software is part of the GLOW model. Use is governed by the Open Source
+! Academic Research License Agreement contained in the file glowlicense.txt.
+! For more information see the file glow.txt.
+
+! Stan Solomon, 1988, 1991
+! Stan Solomon, 2016: removed problematic extrapolation below lower
+! boundary. If grazing height is below lower boundary of atmosphere
+! supplied, column density is set to 1.0e30.
+! Stan Solomon, 2016: refactored for f90.
+! Stan Solomon, 2017: corrected chi to pi-chi at line 79. Note this has no effect.
+
+! Calculates the column density ZCOL for each species ZMAJ above height
+! ZZ at zenith angle CHI. Calls subroutine VCD to calculate the
+! vertical column density, and then uses a fit to the Chapman Grazing
+! Incidence Integral [Smith and Smith, JGR 77, 3592, 1972] to calculate
+! the slant column density. If CHI is less than 90 degrees, column
+! densities are calculated directly; if CHI is greater than 90 degrees
+! the column density at grazing height for 90 degrees is calculated and
+! doubled, and the column density above ZZ(J) is subtracted. If the
+! grazing height is lower than the bottom of the atmosphere supplied,
+! column densities are set to 'infinity', i.e., 1.0e30.
+
+
+ subroutine rcolum (chi, zz, zmaj, tn, zcol, zvcd, jmax, nmaj)
+
+ implicit none
+
+ integer,intent(in) :: jmax, nmaj
+ real,intent(in) :: chi, zz(jmax), zmaj(nmaj,jmax), tn(jmax)
+ real,intent(out) :: zcol(nmaj,jmax), zvcd(nmaj,jmax)
+
+ integer,parameter :: nm=3
+ real,parameter :: pi=3.1415926536
+ real,parameter :: re=6.37e8
+
+ integer :: i, j, k
+ real :: zcg(nm), ghrg, ghz, tng
+ real,external :: chap
+
+ call vcd (zz, zmaj, zvcd, jmax, nmaj)
+
+ if (chi >= 2.) then
+ do i=1,nmaj
+ do j=1,jmax
+ zcol(i,j) = 1.0e30
+ enddo
+ enddo
+ return
+ endif
+
+ if (chi <= pi/2.) then
+ do i=1,nmaj
+ do j=1,jmax
+ zcol(i,j) = zvcd(i,j) * chap(chi,zz(j),tn(j),i)
+ enddo
+ enddo
+ else
+ do j=1,jmax
+ ghrg=(re+zz(j))*sin(chi)
+ ghz=ghrg-re
+ if (ghz <= zz(1)) then
+ do i=1,nmaj
+ zcol(i,j) = 1.0e30
+ enddo
+ else
+ do k=1,j-1
+ if (zz(k) <= ghz .and. zz(k+1) > ghz) then
+ tng = tn(k)+(tn(k+1)-tn(k))*(ghz-zz(k))/(zz(k+1)-zz(k))
+ do i=1,nmaj
+ zcg(i) = zvcd(i,k) * (zvcd(i,k+1) / zvcd(i,k)) ** &
+ ((ghz-zz(k)) / (zz(k+1)-zz(k)))
+ enddo
+ endif
+ enddo
+ do i=1,nmaj
+ zcol(i,j) = 2. * zcg(i) * chap(pi/2.,ghz,tng,i) &
+ - zvcd(i,j) * chap(pi-chi,zz(j),tn(j),i)
+ enddo
+ endif
+ enddo
+ endif
+
+ return
+
+ end subroutine rcolum
+
+!----------------------------------------------------------------------
+
+ real function chap (chi, z, t, i)
+
+ implicit none
+
+ real,intent(in) :: chi, z, t
+ integer,intent(in) :: i
+
+ integer,parameter :: nmaj=3
+ real,parameter :: pi=3.1415926536
+ real,parameter :: re=6.37e8
+ real,parameter :: g=978.1
+
+ real :: am(nmaj), gr, hn, hg, hf, sqhf
+ real,external :: sperfc
+
+ data am/16., 32., 28./
+
+ gr=g*(re/(re+z))**2
+ hn=1.38e-16*t/(am(i)*1.662e-24*gr)
+ hg=(re+z)/hn
+ hf=0.5*hg*(cos(chi)**2)
+ sqhf=sqrt(hf)
+ chap=sqrt(0.5*pi*hg)*sperfc(sqhf)
+
+ return
+
+ end function chap
+
+!----------------------------------------------------------------------
+
+ real function sperfc(dummy)
+
+ implicit none
+
+ real,intent(in) :: dummy
+
+ if (dummy <= 8.) then
+ sperfc = (1.0606963+0.55643831*dummy) / &
+ (1.0619896+1.7245609*dummy+dummy*dummy)
+ else
+ sperfc=0.56498823/(0.06651874+dummy)
+ endif
+
+ return
+
+ end function sperfc
+
+!----------------------------------------------------------------------
+
+ subroutine vcd(zz,zmaj,zvcd,jmax,nmaj)
+
+ implicit none
+
+ integer,intent(in) :: jmax,nmaj
+ real,intent(in) :: zz(jmax), zmaj(nmaj,jmax)
+
+ real,intent(out) :: zvcd(nmaj,jmax)
+
+ integer :: i, j
+ real :: rat
+
+ do i=1,nmaj
+ zvcd(i,jmax) = zmaj(i,jmax) &
+ * (zz(jmax)-zz(jmax-1)) &
+ / alog(zmaj(i,jmax-1)/zmaj(i,jmax))
+ do j=jmax-1,1,-1
+ rat = zmaj(i,j+1) / zmaj(i,j)
+ zvcd(i,j) = zvcd(i,j+1)+zmaj(i,j)*(zz(j)-zz(j+1))/alog(rat)*(1.-rat)
+ enddo
+ enddo
+
+ return
+
+ end subroutine vcd
diff --git a/srcGlow/readtgcm.f90 b/srcGlow/readtgcm.f90
new file mode 100644
index 0000000..f5e21f4
--- /dev/null
+++ b/srcGlow/readtgcm.f90
@@ -0,0 +1,891 @@
+module readtgcm
+
+! This software is part of the GLOW model. Use is governed by the Open Source
+! Academic Research License Agreement contained in the file glowlicense.txt.
+! For more information see the file glow.txt.
+
+! Ben Foster and Stan Solomon, 1/15
+! Stan Solomon, 12/15, 1/16, minor updates
+! Stan Solomon, 3/16, addition of helium
+! Stan Solomon, 11/16, bug fix to prevent reading variables not found on file
+
+! Reads TIE-GCM or TIME-GCM history file, obtaining needed inputs for GLOW.
+
+! Usage (see program glowdriver.f90):
+! First call read_tgcm_coords to get coordinates from history file
+! Next call find_mtimes to find indices of model times on history file
+! Then call read_tgcm (up to 100 times) to read individual history data
+
+! read_tgcm_coords returns:
+! nlon Number of longitudes
+! nlat Number of latitudes
+! nlev Number of midpoint levels
+! nilev Number of interface levels
+! glon Array of longitudes
+! glat Array of latitudes
+! zlev Array of midpoints
+! zilev Array of interfaces
+
+! read_tgcm returns:
+! 3D global fields:
+! zg Geometric height of pressure surface, km
+! tn Neutral temperature, K
+! ti Ion temperature, K
+! te Electron temperature, K
+! ne Electron number density, cm-3
+! o2 O2 number density, cm-3
+! o1 O number density, cm-3
+! n2 N2 number density, cm-3
+! no NO number density, cm-3
+! n4s N(4S) number density, cm-3
+! n2d N(2D) number density, cm-3 (optional - used to initialize GLOW but not necessary)
+! he He number density, cm-3 (optional - not used by GLOW)
+! z Geopotential height, km (not used by GLOW)
+! un Zonal wind, cm/s (not used by GLOW but passed through to output)
+! vn Meridional winds, cm/s (not used by GLOW but passed through to output)
+! 2D global fields:
+! eflux Energy flux of auroral electrons, erg cm-2 s-1
+! nflux Number flux of auroral electrons, cm-2 s-1
+! alfa Characteristic energy of auroral electron flux, keV
+! cusp Multiplier for cusp electron flux
+! drizzle Multiplier for polar drizzle electron flux
+! Vectors as a function of time:
+! ec Cusp maximum energy flux, erg cm-2 s-1
+! alfac Characteristic energy of cusp electron flux, keV
+! ed Drizzle maximum energy flux, erg cm-2 s-1
+! alfad Characteristic energy of drizzle electron flux, keV
+! hpower Hemispheric power of auroral electron flux, GW
+! f107d Solar F10.7 daily index
+! f107a Solar F10.7 81-day centered average
+! e1 Auroral oval parameter
+! e2 Auroral oval parameter
+! h1 Auroral oval parameter
+! h2 Auroral oval parameter
+! Scalar values for each call:
+! iyear Model year, yyyy
+! iday Model day, ddd
+! ut Model universal time, hours
+
+
+ use netcdf
+ implicit none
+
+ integer :: iyear,iday
+ real :: ut,dlev
+!
+! Grid dimensions and coordinates:
+!
+ integer :: nlon,nlat,nlev,nilev ! grid dimensions
+ integer :: ntime ! number of histories on file
+ real,allocatable,dimension(:),save :: & ! grid coordinates
+ glon,glat,zlev,zilev
+ integer,parameter :: mxtimes=100
+!
+! 2d and 3d global fields at a single time (history):
+!
+ real,allocatable,dimension(:,:,:),save :: & ! 3d fields (nlon,nlat,nlev)
+ tn,un,vn,o2,o1,n2,he,no,ti,te,z,zg,ne,n2d,n4s
+ real,allocatable,dimension(:,:),save :: & ! 2d fields (nlon,nlat)
+ cusp,drizzle,alfa,nflux,eflux
+!
+! Scalars (1d in time):
+!
+ real,allocatable,dimension(:),save :: & ! scalars (ntime)
+ f107d,f107a,hpower,e1,e2,h1,h2,alfac,ec,alfad,ed
+
+ integer,parameter :: nf=20 ! number of fields to read
+ character(len=8) :: fnames(nf) ! field names on file
+!
+! Print to stdout flag:
+!
+ integer,save :: iprint=1
+
+ contains
+
+!-----------------------------------------------------------------------
+
+ subroutine read_tgcm(ncfile,itime)
+!
+! Read needed fields from tgcm history file. Note sub read_tgcm_coords
+! must be called before this is called.
+!
+! Args:
+ character(len=*),intent(in) :: ncfile ! file path
+ integer,intent(in) :: itime ! time index to read
+!
+! Local:
+ integer :: n,istat,ncid,k,i,ndims
+ integer :: id,idv_lon,idv_lat,idv_lev,idv_ilev,idv_time
+ character(len=1024) :: msg
+ character(len=NF90_MAX_NAME) :: varname
+ integer :: iyear1(1),iday1(1)
+ real :: ut1(1)
+ real,allocatable,save :: f3d(:,:,:) ! global 3d field (lon,lat,lev)
+ real,allocatable,save :: f2d(:,:) ! global 2d field (lon,lat)
+ real,allocatable,dimension(:,:,:),save :: o2mmr,o1mmr,n2mmr,hemmr
+ integer :: mtime(3)
+ logical :: found(nf)
+!
+! These fields with these names must be on the file as 3d+time variables:
+! Note that CUSP,DRIZZLE,ALFA,NFLUX,EFLUX are 2d (lon,lat).
+!
+ fnames = (/'TN ','UN ','VN ','O2 ','O1 ', &
+ 'NO ','TI ','TE ','Z ','ZG ', &
+ 'NE ','N2 ','HE ','N2D ','N4S ', &
+ 'CUSP ','DRIZZLE ','ALFA ','NFLUX ','EFLUX '/)
+
+ istat = nf90_open(ncfile,NF90_NOWRITE,ncid)
+ if (istat /= NF90_NOERR) then
+ write(msg,"('Error opening file ',a)") trim(ncfile)
+ call handle_ncerr(istat,trim(msg),1)
+ else
+ if (iprint > 0) &
+ write(6,"(/,'Opened file ',a)") trim(ncfile)
+ endif
+!
+! Allocate arrays to read 2d and 3d spatial variables:
+!
+ if (.not.allocated(f3d)) allocate(f3d(nlon,nlat,nlev)) ! 3d global read array
+ if (.not.allocated(f2d)) allocate(f2d(nlon,nlat)) ! 2d global read array
+!
+! Read itime history (model time mtime(:,itime)):
+!
+ if (itime <= 0.or.itime > ntime) then
+ write(6,"('>>> read_tgcm: bad itime=',i4,' (ntime=',i4,')')") &
+ itime,ntime
+ stop 'itime'
+ endif
+
+ istat = nf90_inq_varid(ncid,'year',id)
+ istat = nf90_get_var(ncid,id,iyear1,(/itime/),(/1/))
+ iyear = iyear1(1)
+
+ istat = nf90_inq_varid(ncid,'day',id)
+ istat = nf90_get_var(ncid,id,iday1,(/itime/),(/1/))
+ iday = iday1(1)
+
+ istat = nf90_inq_varid(ncid,'ut',id)
+ istat = nf90_get_var(ncid,id,ut1,(/itime/),(/1/))
+ ut = ut1(1)
+
+ istat = nf90_inq_varid(ncid,'mtime',id)
+ istat = nf90_get_var(ncid,id,mtime,(/1,itime/),(/3,1/))
+
+ write(6,"(/,'read_tgcm: itime=',i4,' ntime=',i4,' iyear=',i5,' iday=',i4,' ut=',f8.2,' mtime=',3i4)") &
+ itime,ntime,iyear,iday,ut,mtime
+!
+! Read vars at current history/time:
+!
+ found(:) = .false.
+ do n=1,nf
+ istat = nf90_inq_varid(ncid,fnames(n),id)
+ if (istat == NF90_NOERR) then ! read variable only if found, scs 11/16
+ istat = nf90_inquire_variable(ncid,id,ndims=ndims)
+!
+! 3d var+time: assume (nlon,nlat,nlev):
+!
+ if (ndims==4) then
+ f3d = 0.
+ istat = nf90_get_var(ncid,id,f3d,(/1,1,1,itime/),(/nlon,nlat,nlev,1/))
+ if (istat /= NF90_NOERR) then
+ write(6,"('>>> Error reading 3d var ')") fnames(n)
+ call handle_ncerr(istat,'Error from nf90_get_var',1)
+ endif
+ if (iprint > 0) &
+ write(6,"('Read 3d var: itime=',i4,' n=',i4,' fld ',a,' id=',i4,' min,max=',2es12.4)") &
+ itime,n,trim(fnames(n)),id,minval(f3d(:,:,1:nlev-1)),maxval(f3d(:,:,1:nlev-1))
+!
+! 2d var+time: assume (nlon,nlat):
+!
+ elseif (ndims==3) then
+ f2d = 0.
+ istat = nf90_get_var(ncid,id,f2d,(/1,1,itime/),(/nlon,nlat,1/))
+ if (istat /= NF90_NOERR) then
+ write(6,"('>>> Error reading 2d var ')") fnames(n)
+ call handle_ncerr(istat,'Error from nf90_get_var',1)
+ endif
+ if (iprint > 0) &
+ write(6,"('Read 2d var: itime=',i4,' n=',i4,' fld ',a,' id=',i4,' min,max=',2es12.4)") &
+ itime,n,trim(fnames(n)),id,minval(f2d(:,:)),maxval(f2d(:,:))
+ endif ! 2d or 3d var
+!
+! Transfer field to module data:
+! Top level may be missing in tn,un,vn,ti,te, so set these to values at nlev-1 for now:
+!
+ select case(trim(fnames(n)))
+ case('TN')
+ if (.not.allocated(tn)) allocate(tn(nlon,nlat,nlev))
+ tn = f3d
+ tn(:,:,nlev) = tn(:,:,nlev-1)
+ if (iprint > 0) &
+ write(6,"('read_tgcm: Field ',a,' min,max=',2es12.4)") &
+ fnames(n),minval(tn),maxval(tn)
+ found(n) = .true.
+ case('UN')
+ if (.not.allocated(un)) allocate(un(nlon,nlat,nlev))
+ un = f3d
+ un(:,:,nlev) = un(:,:,nlev-1)
+ if (iprint > 0) &
+ write(6,"('read_tgcm: Field ',a,' min,max=',2es12.4)") &
+ fnames(n),minval(un),maxval(un)
+ found(n) = .true.
+ case('VN')
+ if (.not.allocated(vn)) allocate(vn(nlon,nlat,nlev))
+ vn = f3d
+ vn(:,:,nlev) = vn(:,:,nlev-1)
+ if (iprint > 0) &
+ write(6,"('read_tgcm: Field ',a,' min,max=',2es12.4)") &
+ fnames(n),minval(vn),maxval(vn)
+ found(n) = .true.
+ case('O2')
+ if (.not.allocated(o2)) allocate(o2(nlon,nlat,nlev))
+ o2 = f3d
+ if (iprint > 0) &
+ write(6,"('read_tgcm: Field ',a,' min,max=',2es12.4)") &
+ fnames(n),minval(o2),maxval(o2)
+ found(n) = .true.
+ case('O1')
+ if (.not.allocated(o1)) allocate(o1(nlon,nlat,nlev))
+ o1 = f3d
+ if (iprint > 0) &
+ write(6,"('read_tgcm: Field ',a,' min,max=',2es12.4)") &
+ fnames(n),minval(o1),maxval(o1)
+ found(n) = .true.
+ case('N2')
+ if (.not.allocated(n2)) allocate(n2(nlon,nlat,nlev))
+ n2 = f3d
+ if (iprint > 0) &
+ write(6,"('read_tgcm: Field ',a,' min,max=',2es12.4)") &
+ fnames(n),minval(n2),maxval(n2)
+ found(n) = .true.
+ case('HE')
+ if (.not.allocated(he)) allocate(he(nlon,nlat,nlev))
+ he = f3d
+ if (iprint > 0) &
+ write(6,"('read_tgcm: Field ',a,' min,max=',2es12.4)") &
+ fnames(n),minval(he),maxval(he)
+ found(n) = .true.
+ case('NO')
+ if (.not.allocated(no)) allocate(no(nlon,nlat,nlev))
+ no = f3d
+ if (iprint > 0) &
+ write(6,"('read_tgcm: Field ',a,' min,max=',2es12.4)") &
+ fnames(n),minval(no),maxval(no)
+ found(n) = .true.
+ case('TI')
+ if (.not.allocated(ti)) allocate(ti(nlon,nlat,nlev))
+ ti = f3d
+ ti(:,:,nlev) = ti(:,:,nlev-1)
+ if (iprint > 0) &
+ write(6,"('read_tgcm: Field ',a,' min,max=',2es12.4)") &
+ fnames(n),minval(ti),maxval(ti)
+ found(n) = .true.
+ case('TE')
+ if (.not.allocated(te)) allocate(te(nlon,nlat,nlev))
+ te = f3d
+ te(:,:,nlev) = te(:,:,nlev-1)
+ if (iprint > 0) &
+ write(6,"('read_tgcm: Field ',a,' min,max=',2es12.4)") &
+ fnames(n),minval(te),maxval(te)
+ found(n) = .true.
+ case('NE')
+ if (.not.allocated(ne)) allocate(ne(nlon,nlat,nlev))
+ ne = f3d
+ if (iprint > 0) &
+ write(6,"('read_tgcm: Field ',a,' min,max=',2es12.4)") &
+ fnames(n),minval(ne),maxval(ne)
+ found(n) = .true.
+ case('Z')
+ if (.not.allocated(z)) allocate(z(nlon,nlat,nlev))
+ z = f3d
+ if (iprint > 0) &
+ write(6,"('read_tgcm: Field ',a,' min,max=',2es12.4)") &
+ fnames(n),minval(z),maxval(z)
+ found(n) = .true.
+ case('ZG')
+ if (.not.allocated(zg)) allocate(zg(nlon,nlat,nlev))
+ zg = f3d*1.e-5 ! cm->km
+ if (iprint > 0) &
+ write(6,"('read_tgcm: Field ',a,' min,max=',2es12.4)") &
+ fnames(n),minval(zg),maxval(zg)
+ found(n) = .true.
+ case('N2D')
+ if (.not.allocated(n2d)) allocate(n2d(nlon,nlat,nlev))
+ n2d = f3d
+ if (iprint > 0) &
+ write(6,"('read_tgcm: Field ',a,' min,max=',2es12.4)") &
+ fnames(n),minval(n2d),maxval(n2d)
+ found(n) = .true.
+ case('N4S')
+ if (.not.allocated(n4s)) allocate(n4s(nlon,nlat,nlev))
+ n4s = f3d
+ if (iprint > 0) &
+ write(6,"('read_tgcm: Field ',a,' min,max=',2es12.4)") &
+ fnames(n),minval(n4s),maxval(n4s)
+ found(n) = .true.
+!
+! 2d fields (nlon,nlat):
+!
+ case('CUSP')
+ if (.not.allocated(cusp)) allocate(cusp(nlon,nlat))
+ cusp = f2d
+ if (iprint > 0) &
+ write(6,"('read_tgcm: Field ',a,' min,max=',2es12.4)") &
+ fnames(n),minval(cusp),maxval(cusp)
+ found(n) = .true.
+ case('DRIZZLE')
+ if (.not.allocated(drizzle)) allocate(drizzle(nlon,nlat))
+ drizzle = f2d
+ if (iprint > 0) &
+ write(6,"('read_tgcm: Field ',a,' min,max=',2es12.4)") &
+ fnames(n),minval(drizzle),maxval(drizzle)
+ found(n) = .true.
+ case('ALFA')
+ if (.not.allocated(alfa)) allocate(alfa(nlon,nlat))
+ alfa = f2d
+ if (iprint > 0) &
+ write(6,"('read_tgcm: Field ',a,' min,max=',2es12.4)") &
+ fnames(n),minval(alfa),maxval(alfa)
+ found(n) = .true.
+ case('NFLUX')
+ if (.not.allocated(nflux)) allocate(nflux(nlon,nlat))
+ nflux = f2d
+ if (iprint > 0) &
+ write(6,"('read_tgcm: Field ',a,' min,max=',2es12.4)") &
+ fnames(n),minval(nflux),maxval(nflux)
+ found(n) = .true.
+ case('EFLUX')
+ if (.not.allocated(eflux)) allocate(eflux(nlon,nlat))
+ eflux = f2d
+ if (iprint > 0) &
+ write(6,"('read_tgcm: Field ',a,' min,max=',2es12.4)") &
+ fnames(n),minval(eflux),maxval(eflux)
+ found(n) = .true.
+!
+! Unknown field (this should not happen):
+!
+ case default
+ write(6,"('>>> read_tgcm: unknown field: ',a)") trim(fnames(n))
+ stop 'read tgcm 3d fields'
+ end select ! fnames(n)
+ else
+ write(6,"('>>> WARNING: did not find field ',a,' on the tgcm file')") trim(fnames(n))
+ endif ! bottom of found variable conditional, scs 11/16
+ enddo ! n=1,nf
+!
+! Define n2 mmr from o2,o,he if necessary:
+!
+ if (.not.found(findx('N2'))) then
+ if (.not.allocated(N2)) allocate(n2(nlon,nlat,nlev))
+ if (found(findx('O1')).and.found(findx('O2')).and.found(findx('HE'))) then
+ n2 = 1.-o2-o1-he
+ if (iprint > 0) &
+ write(6,"('read_tgcm: Field N2 (1-O2-O-HE) min,max=',2es12.4)") &
+ minval(n2),maxval(n2)
+ else
+ write(6,"('>>> FATAL: N2 not found on the file, and at least one of')")
+ write(6,"(' o2, o, he also not found on the file.')")
+ stop 'read_tgcm'
+ endif
+ found(findx('N2'))=.true.
+ endif ! N2 not found
+!
+! If ZG not on the file, calculate it using sub calczg (from tgcm addiag.F):
+!
+ if (.not.found(findx('ZG'))) then
+ if (.not.found(findx('TN')).or..not.found(findx('O2')).or.&
+ .not.found(findx('O1')).or..not.found(findx('N2')).or.&
+ .not.found(findx('Z' )).or..not.found(findx('HE'))) then
+ write(6,"('>>> FATAL: ZG not found on the file, and at least one of')")
+ write(6,"(' tn,o2,o,n2,he,z also not found on the file.')")
+ stop 'read_tgcm'
+ endif
+ if (.not.allocated(zg)) allocate(zg(nlon,nlat,nlev))
+ call calczg(tn,o2,o1,n2,he,z,zg,glat,nlon,nlat,nlev,dlev)
+ zg = zg*1.e-5 ! cm to km
+ if (iprint > 0) &
+ write(6,"('Field ZG (from calczg) min,max (km)=',2es12.4)") &
+ minval(zg),maxval(zg)
+ found(findx('ZG'))=.true.
+ endif ! zg not on the file
+!
+! If N2D was not found, set it to zero:
+!
+ if (.not.found(findx('N2D'))) then
+ if (.not.allocated(n2d)) allocate(n2d(nlon,nlat,nlev))
+ n2d = 0.
+ write(6,"('read_tgcm: N2D not found on tgcm history, so set it to zero.')")
+ found(findx('N2D'))=.true.
+ endif
+!
+! If HE was not found, set it to zero and issue warning:
+!
+ if (.not.found(findx('HE'))) then
+ if (.not.allocated(he)) allocate(he(nlon,nlat,nlev))
+ he = 0.
+ write(6,"('read_tgcm: HE not found on tgcm history, so set it to zero.')")
+ write(6,"('>>> WARNING: This may cause erroneous O density at high altitude')")
+ found(findx('HE'))=.true.
+ endif
+!
+! Auroral fields not found can be set to zero:
+!
+ if (.not.found(findx('CUSP'))) then
+ if (.not.allocated(cusp)) allocate(cusp(nlon,nlat))
+ cusp = 0.
+ write(6,"('read_tgcm: CUSP not found on tgcm history, so set it to zero.')")
+ found(findx('CUSP'))=.true.
+ endif
+ if (.not.found(findx('DRIZZLE'))) then
+ if (.not.allocated(drizzle)) allocate(drizzle(nlon,nlat))
+ drizzle = 0.
+ write(6,"('read_tgcm: DRIZZLE not found on tgcm history, so set it to zero.')")
+ found(findx('DRIZZLE'))=.true.
+ endif
+ if (.not.found(findx('ALFA'))) then
+ if (.not.allocated(alfa)) allocate(alfa(nlon,nlat))
+ alfa = 0.
+ write(6,"('read_tgcm: ALFA not found on tgcm history, so set it to zero.')")
+ found(findx('ALFA'))=.true.
+ endif
+ if (.not.found(findx('NFLUX'))) then
+ if (.not.allocated(nflux)) allocate(nflux(nlon,nlat))
+ nflux = 0.
+ write(6,"('read_tgcm: NFLUX not found on tgcm history, so set it to zero.')")
+ found(findx('NFLUX'))=.true.
+ endif
+ if (.not.found(findx('EFLUX'))) then
+ if (.not.allocated(eflux)) allocate(eflux(nlon,nlat))
+ eflux = 0.
+ write(6,"('read_tgcm: EFLUX not found on tgcm history, so set it to zero.')")
+ found(findx('EFLUX'))=.true.
+ endif
+!
+! If any other fields were not found on the history, stop w/ fatal error:
+!
+ do n=1,nf
+ if (.not.found(n)) then
+ write(6,"(/,'>>> FATAL: field ',a,' was not found on tgcm file ',a)") &
+ fnames(n),trim(ncfile)
+ stop 'read_tgcm'
+ endif
+ enddo
+!
+! Convert species from mmr to cm3 (still in the time/history loop):
+!
+ if (.not.allocated(o2mmr)) allocate(o2mmr(nlon,nlat,nlev))
+ if (.not.allocated(o1mmr)) allocate(o1mmr(nlon,nlat,nlev))
+ if (.not.allocated(n2mmr)) allocate(n2mmr(nlon,nlat,nlev))
+ if (.not.allocated(hemmr)) allocate(hemmr(nlon,nlat,nlev))
+ o2mmr = o2
+ o1mmr = o1
+ n2mmr = n2
+ hemmr = he
+
+ call denconv(o2, 32.,tn,o2mmr,o1mmr,n2mmr,hemmr,zlev,nlon,nlat,nlev)
+ call denconv(o1, 16.,tn,o2mmr,o1mmr,n2mmr,hemmr,zlev,nlon,nlat,nlev)
+ call denconv(n2, 28.,tn,o2mmr,o1mmr,n2mmr,hemmr,zlev,nlon,nlat,nlev)
+ call denconv(he, 4.,tn,o2mmr,o1mmr,n2mmr,hemmr,zlev,nlon,nlat,nlev)
+ call denconv(no, 30.,tn,o2mmr,o1mmr,n2mmr,hemmr,zlev,nlon,nlat,nlev)
+ call denconv(n2d,14.,tn,o2mmr,o1mmr,n2mmr,hemmr,zlev,nlon,nlat,nlev)
+ call denconv(n4s,14.,tn,o2mmr,o1mmr,n2mmr,hemmr,zlev,nlon,nlat,nlev)
+
+ if (iprint > 0) then
+ write(6,"('After denconv: O2 (cm3) min,max=',2es12.4)") minval(o2),maxval(o2)
+ write(6,"('After denconv: O1 (cm3) min,max=',2es12.4)") minval(o1),maxval(o1)
+ write(6,"('After denconv: N2 (cm3) min,max=',2es12.4)") minval(n2),maxval(n2)
+ write(6,"('After denconv: HE (cm3) min,max=',2es12.4)") minval(he),maxval(he)
+ write(6,"('After denconv: NO (cm3) min,max=',2es12.4)") minval(no),maxval(no)
+ write(6,"('After denconv: N2D(cm3) min,max=',2es12.4)") minval(n2d),maxval(n2d)
+ write(6,"('After denconv: N4S(cm3) min,max=',2es12.4)") minval(n4s),maxval(n4s)
+ endif
+!
+! Close the file:
+!
+ istat = nf90_close(ncid)
+ end subroutine read_tgcm
+
+!-----------------------------------------------------------------------
+
+ subroutine calczg(tn,o2,o1,n2,he,z,zg,glat,nlon,nlat,nlev,dlev)
+
+! use params_module,only: dz,glat
+! use init_module,only: istep
+! use cons_module,only: boltz,avo
+! use addfld_module,only: addfld
+!
+! Given geopotential z (calculated with the model constant gravity),
+! calculate geopotential zg with varying gravity. This is taken from
+! tgcmproc_f90, routines calchts and glatf in proclat.F.
+!
+! Args:
+ integer,intent(in) :: nlon,nlat,nlev
+ real,dimension(nlon,nlat,nlev),intent(in):: &
+ tn, & ! neutral temperature (deg K)
+ o2, & ! molecular oxygen (mmr)
+ o1, & ! atomic oxygen (mmr)
+ n2, & ! molecular nitrogen (mmr)
+ he, & ! atomic helium (mmr)
+ z ! geopotential calculated with constant gravity (from addiag)
+ real,intent(in) :: glat(nlat),dlev
+ real,dimension(nlon,nlat,nlev),intent(out) :: &
+ zg ! output geopotential calculated with varying gravity
+!
+! Local:
+ integer :: i,j,k
+ real :: g0,r0,c2
+ real,dimension(nlev) :: xmas,g
+ real,parameter :: dgtr = 1.74533E-2
+ real,parameter :: avo = 6.023e23
+ real,parameter :: boltz = 1.38E-16
+!
+! Latitude scan:
+ do j=1,nlat
+ c2 = cos(2.*dgtr*glat(j))
+ g0 = 980.616*(1.-.0026373*c2)
+ r0 = 2.*g0/(3.085462e-6 + 2.27e-9*c2) ! effective earth radius
+!
+! Longitude scan:
+ do i=1,nlon
+ g(1)=g0*(r0/(r0+0.5*(z(i,j,1)+z(i,j,2))))**2
+ xmas(:) = 1./(o1(i,j,:)/16.+o2(i,j,:)/32.+ &
+ n2(i,j,:)/28.+he(i,j,:)/4.)/avo
+!
+! Levels:
+ zg(i,j,1) = z(i,j,1)
+ do k=2,nlev-1
+ zg(i,j,k) = zg(i,j,k-1) + boltz*dlev*tn(i,j,k-1) / &
+ (xmas(k-1)*g(k-1))
+ g(k)=g0*(r0/(r0+0.5*(zg(i,j,k)+z(i,j,k+1))))**2
+ enddo ! k=lev0+1,lev1-1
+ zg(i,j,nlev) = 1.5*zg(i,j,nlev-1)-0.5*zg(i,j,nlev-2)
+ enddo ! i=lon0,lon1
+ enddo ! j=1,nlat
+ end subroutine calczg
+
+!-----------------------------------------------------------------------
+
+ subroutine denconv(f,wt,tn,o2,o1,n2,he,zlev,nlon,nlat,nlev)
+!
+! Convert density input field f from mmr to cm3.
+! Inputs o2,o1,n2,he are in mmr.
+! zlev is the vertical coordinate (zp).
+!
+ implicit none
+!
+! Args:
+ integer,intent(in) :: nlon,nlat,nlev
+ real,intent(inout) :: f(nlon,nlat,nlev)
+ real,dimension(nlon,nlat,nlev),intent(in) :: tn,o2,o1,n2,he ! mmr
+ real,intent(in) :: wt
+!
+! Assume levels coordinate is increasing from bottom to top, regular dz)
+ real,intent(in) :: zlev(nlev) ! levels coord (tgcm zp)
+!
+! Local:
+ integer :: i,j,k
+ real :: zp,dlev,mbar,pkt
+ real,parameter :: p0=5.e-4 ! microbars
+ real,parameter :: boltz=1.3805e-16
+
+ dlev = (zlev(nlev)-zlev(1))/(nlev-1)
+ do k=1,nlev
+ zp = zlev(1)+(k-1)*dlev
+ do j=1,nlat
+ do i=1,nlon
+ mbar = 1./(o2(i,j,k)/32.+o1(i,j,k)/16.+n2(i,j,k)/28.+he(i,j,k)/4.)
+ pkt = p0*exp(-zp)/(boltz*tn(i,j,k))
+ f(i,j,k) = f(i,j,k) * pkt * mbar / wt
+ enddo
+ enddo
+ enddo
+ end subroutine denconv
+
+!-----------------------------------------------------------------------
+
+ integer function findx(name)
+!
+! Find index in fnames(nf) that matches input name.
+!
+ character(len=*),intent(in) :: name
+ integer :: n
+ findx = 0
+ do n=1,nf
+ if (trim(fnames(n))==name) then
+ findx = n
+ exit
+ endif
+ enddo
+ if (findx==0) then
+ write(6,"('>>> findx: could not find index to field ',a)") name
+ stop 'findx'
+ endif
+ end function findx
+
+!-----------------------------------------------------------------------
+
+ integer function find_mtimes(ncfile,start_mtime,stop_mtime,mtimes,itimes)
+!
+! Open ncfile, find start and stop model times. Return all mtimes
+! from start to stop, and return in mtimes(mxtimes). Function value
+! is the number of mtimes.
+!
+! Args:
+ character(len=*),intent(in) :: ncfile
+ integer,intent(in) :: start_mtime(3),stop_mtime(3)
+ integer,intent(out) :: &
+ mtimes(3,mxtimes), & ! model times from start to stop
+ itimes(mxtimes) ! time index on file from start to stop
+!
+! Local:
+ integer :: i,ncid,istat,ntimes,id,idunlim,itime0,itime1
+ character(len=1024) :: msg
+ character(len=NF90_MAX_NAME) :: varname
+ integer,allocatable,save :: mtime_file(:,:) ! (3,ntime)
+ integer :: mtime(3)
+!
+! Init return values:
+ find_mtimes = 0
+ mtimes = 0
+ itimes = 0
+!
+! Open the file:
+ istat = nf90_open(ncfile,NF90_NOWRITE,ncid)
+ if (istat /= NF90_NOERR) then
+ write(msg,"('>>> find_mtimes: Error opening file ',a)") trim(ncfile)
+ call handle_ncerr(istat,trim(msg),1)
+ endif
+!
+! Get number of times (unlimited variable):
+ istat = nf90_inq_dimid(ncid,'time',idunlim)
+ istat = nf90_inquire_dimension(ncid,idunlim,varname,ntimes)
+!
+! Get model times on the file, and close:
+ if (.not.allocated(mtime_file)) allocate(mtime_file(3,ntimes))
+ istat = nf90_inq_varid(ncid,'mtime',id)
+ istat = nf90_get_var(ncid,id,mtime_file,(/1,1/),(/3,ntimes/))
+ istat = nf90_close(ncid)
+!
+! Search for start time:
+ itime0 = 0
+ if (start_mtime(1) == -999) then ! read first history on the file
+ itime0 = 1
+ else
+ do i=1,ntimes
+ if (mtime_file(1,i)==start_mtime(1).and. &
+ mtime_file(2,i)==start_mtime(2).and. &
+ mtime_file(3,i)==start_mtime(3)) then
+ itime0 = i
+ write(6,"('Found requested start_mtime ',3i4,' (history ',i4,' on the file).')") &
+ start_mtime,itime0
+ exit
+ endif
+ enddo
+ endif
+ if (itime0==0) then
+ write(6,"('>>> Could not find tgcm start_mtime ',3i4,' mtimes on the file are as follows:')") &
+ start_mtime
+ do i=1,ntimes
+ write(6,"('i=',i4,' mtime(i)=',3i4)") i,mtime_file(:,i)
+ enddo
+ stop 'start_mtime'
+ endif
+!
+! Search for stop time:
+ itime1 = 0
+ if (stop_mtime(1) == -999) then ! stop time is last history
+ itime1 = ntimes
+ else
+ do i=1,ntimes
+ if (mtime_file(1,i)==stop_mtime(1).and. &
+ mtime_file(2,i)==stop_mtime(2).and. &
+ mtime_file(3,i)==stop_mtime(3)) then
+ itime1 = i
+ write(6,"('Found requested stop_mtime ',3i4,' (history ',i4,' on the file).')") &
+ stop_mtime,itime1
+ exit
+ endif
+ enddo
+ endif
+ if (itime1==0) then
+ write(6,"('>>> Could not find tgcm stop_mtime ',3i4,' mtimes on the file are as follows:')") &
+ stop_mtime
+ do i=1,ntimes
+ write(6,"('i=',i4,' mtime(i)=',3i4)") i,mtime_file(:,i)
+ enddo
+ stop 'start_mtime'
+ endif
+!
+! This should not happen, but you never know...
+ if (itime1 < itime0) then
+ write(6,"('>>> find_mtimes: bad itime0 must be <= itime1: itime0,1=',2i4)") &
+ itime0,itime1
+ write(6,"('>>> mtime_file(itime0)=',3i4,' mtime_file(itime1)=',3i4)") &
+ mtime_file(:,itime0),mtime_file(:,itime1)
+ stop 'itime0,1'
+ endif
+!
+! Return values:
+ find_mtimes = itime1-itime0+1 ! number of model times
+ write(6,"('Number of model times to read = ',i4)") find_mtimes
+ do i=itime0,itime1
+ mtimes(:,i-itime0+1) = mtime_file(:,i) ! model times from start to stop
+ itimes(i-itime0+1) = i ! file index of each model time
+ enddo
+
+ end function find_mtimes
+
+!-----------------------------------------------------------------------
+
+ subroutine read_tgcm_coords(ncfile)
+!
+! Read dimensions, coordinates, and 1d time variables from tgcm history file:
+! (this must be called before tgcm_read is called)
+!
+! Args:
+ character(len=*),intent(in) :: ncfile ! file path
+!
+! Local:
+ integer :: istat,ncid,id,idunlim
+ integer :: idv_lon,idv_lat,idv_lev,idv_ilev,idv_time
+ character(len=1024) :: msg
+ character(len=NF90_MAX_NAME) :: varname
+ real,allocatable,save :: time(:)
+
+ istat = nf90_open(ncfile,NF90_NOWRITE,ncid)
+ if (istat /= NF90_NOERR) then
+ write(msg,"('Error opening file ',a)") trim(ncfile)
+ call handle_ncerr(istat,trim(msg),1)
+ else
+ write(6,"(/,'Opened file ',a)") trim(ncfile)
+ endif
+!
+! Get number of times (histories) (length of unlimited variable):
+!
+ istat = nf90_inq_dimid(ncid,'time',idunlim)
+ istat = nf90_inquire_dimension(ncid,idunlim,varname,ntime)
+! write(6,"('read_tgcm_coords: ntime=',i4)") ntime
+
+ istat = nf90_inq_dimid(ncid,'lon',id)
+ istat = nf90_inquire_dimension(ncid,id,varname,nlon)
+ istat = nf90_inq_dimid(ncid,'lat',id)
+ istat = nf90_inquire_dimension(ncid,id,varname,nlat)
+ istat = nf90_inq_dimid(ncid,'lev',id)
+ istat = nf90_inquire_dimension(ncid,id,varname,nlev)
+ istat = nf90_inq_dimid(ncid,'ilev',id)
+ istat = nf90_inquire_dimension(ncid,id,varname,nilev)
+!
+! Allocate coordinate variables:
+!
+ allocate(glon(nlon))
+ allocate(glat(nlat))
+ allocate(zlev(nlev))
+ allocate(zilev(nilev))
+ allocate(time(ntime))
+!
+! Read coordinate vars:
+!
+ istat = nf90_inq_varid(ncid,'lon',idv_lon)
+ istat = nf90_get_var(ncid,idv_lon,glon,(/1/),(/nlon/))
+ istat = nf90_inq_varid(ncid,'lat',idv_lat)
+ istat = nf90_get_var(ncid,idv_lat,glat,(/1/),(/nlat/))
+ istat = nf90_inq_varid(ncid,'lev',idv_lev)
+ istat = nf90_get_var(ncid,idv_lev,zlev,(/1/),(/nlev/))
+ istat = nf90_inq_varid(ncid,'ilev',idv_ilev)
+ istat = nf90_get_var(ncid,idv_ilev,zilev,(/1/),(/nilev/))
+ dlev = (zilev(nilev)-zilev(1))/(nilev-1)
+
+ istat = nf90_inq_varid(ncid,'time',idv_time)
+ istat = nf90_get_var(ncid,idv_time,time,(/1/),(/ntime/))
+
+! write(6,"('read_tgcm_coords: nlon =',i4,' glon =',/,(8f10.3))") nlon,glon
+! write(6,"('read_tgcm_coords: nlat =',i4,' glat =',/,(8f10.3))") nlat,glat
+! write(6,"('read_tgcm_coords: nlev =',i4,' zlev =',/,(8f10.3))") nlev,zlev
+! write(6,"('read_tgcm_coords: nilev=',i4,' zilev=',/,(8f10.3))") nilev,zilev
+! write(6,"('read_tgcm_coords: nilev=',i4,' zilev(nilev)=',f9.3,' zilev(1)=',f9.3,' dlev=',f9.3)") &
+! nilev,zilev(nilev),zilev(1),dlev
+ write(6,"('read_tgcm_coords: ntime=',i4,' nlon=',i4,' nlat=',i4,' nlev=',i4)") ntime,nlon,nlat,nlev
+!
+! Allocate and read 1d time-dependent variables (or, this could be done
+! on a per-history basis below, reading into scalars instead of arrays
+! (like ut,iday,iyear, etc below).
+!
+! f107d,f107a,hpower,e1,e2,h1,h2,alfac,ec,alfad,ed
+!
+ if (.not.allocated(f107d)) allocate(f107d(ntime))
+ if (.not.allocated(f107a)) allocate(f107a(ntime))
+ if (.not.allocated(hpower)) allocate(hpower(ntime))
+ if (.not.allocated(e1)) allocate(e1(ntime))
+ if (.not.allocated(e2)) allocate(e2(ntime))
+ if (.not.allocated(h1)) allocate(h1(ntime))
+ if (.not.allocated(h2)) allocate(h2(ntime))
+ if (.not.allocated(alfac)) allocate(alfac(ntime))
+ if (.not.allocated(alfad)) allocate(alfad(ntime))
+ if (.not.allocated(ec)) allocate(ec(ntime))
+ if (.not.allocated(ed)) allocate(ed(ntime))
+
+ istat = nf90_inq_varid(ncid,'f107d',id)
+ istat = nf90_get_var (ncid,id,f107d)
+ istat = nf90_inq_varid(ncid,'f107a',id)
+ istat = nf90_get_var (ncid,id,f107a)
+
+ istat = nf90_inq_varid(ncid,'hpower',id)
+ istat = nf90_get_var (ncid,id,hpower)
+
+ istat = nf90_inq_varid(ncid,'e1',id)
+ istat = nf90_get_var (ncid,id,e1)
+ istat = nf90_inq_varid(ncid,'e2',id)
+ istat = nf90_get_var (ncid,id,e2)
+
+ istat = nf90_inq_varid(ncid,'h1',id)
+ istat = nf90_get_var (ncid,id,h1)
+ istat = nf90_inq_varid(ncid,'h2',id)
+ istat = nf90_get_var (ncid,id,h2)
+
+ istat = nf90_inq_varid(ncid,'alfac',id)
+ istat = nf90_get_var (ncid,id,alfac)
+ istat = nf90_inq_varid(ncid,'alfad',id)
+ istat = nf90_get_var (ncid,id,alfad)
+
+ istat = nf90_inq_varid(ncid,'ec',id)
+ istat = nf90_get_var (ncid,id,ec)
+ istat = nf90_inq_varid(ncid,'ed',id)
+ istat = nf90_get_var (ncid,id,ed)
+
+! write(6,"('read_tgcm_coords: ntime=',i4,' f107d=',/,(8f9.2))") ntime,f107d
+! write(6,"('read_tgcm_coords: ntime=',i4,' f107a=',/,(8f9.2))") ntime,f107a
+! write(6,"('read_tgcm_coords: ntime=',i4,' hpower= ',/,(8f9.2))") ntime,hpower
+! write(6,"('read_tgcm_coords: ntime=',i4,' e1= ',/,(8f9.2))") ntime,e1
+! write(6,"('read_tgcm_coords: ntime=',i4,' e2= ',/,(8f9.2))") ntime,e2
+! write(6,"('read_tgcm_coords: ntime=',i4,' h1= ',/,(8f9.2))") ntime,h1
+! write(6,"('read_tgcm_coords: ntime=',i4,' h2= ',/,(8f9.2))") ntime,h2
+! write(6,"('read_tgcm_coords: ntime=',i4,' alfac=',/,(8f9.2))") ntime,alfac
+! write(6,"('read_tgcm_coords: ntime=',i4,' alfad=',/,(8f9.2))") ntime,alfad
+! write(6,"('read_tgcm_coords: ntime=',i4,' ec= ',/,(8f9.2))") ntime,ec
+! write(6,"('read_tgcm_coords: ntime=',i4,' ed= ',/,(8f9.2))") ntime,ed
+
+ istat = nf90_close(ncid)
+
+ end subroutine read_tgcm_coords
+
+!-----------------------------------------------------------------------
+
+ subroutine handle_ncerr(istat,msg,ifatal)
+!
+! Handle a netcdf lib error:
+!
+ integer,intent(in) :: istat,ifatal
+ character(len=*),intent(in) :: msg
+!
+ write(6,"(/72('-'))")
+ write(6,"('>>> Error from netcdf library:')")
+ write(6,"(a)") trim(msg)
+ write(6,"('istat=',i5)") istat
+ write(6,"(a)") nf90_strerror(istat)
+ write(6,"(72('-')/)")
+ if (ifatal > 0) stop('Fatal netcdf error')
+ end subroutine handle_ncerr
+
+!-----------------------------------------------------------------------
+
+end module readtgcm
diff --git a/srcGlow/recipes2.f90 b/srcGlow/recipes2.f90
new file mode 100755
index 0000000..865db60
--- /dev/null
+++ b/srcGlow/recipes2.f90
@@ -0,0 +1,565 @@
+!=============================================================================
+subroutine LINTP(XX,YY,N,X,Y,IER)
+
+ implicit none
+
+ ! Arguments:
+ integer, intent(in) :: N
+ integer, intent(out) :: ier
+ real, intent(in), dimension(N) :: XX, YY
+ real, intent(in) :: X
+ real, intent(out) :: Y
+
+ ! Internal variables
+ integer :: JL, JM, JU, J
+ real :: D
+ !-----------------------------------------------------------------------
+
+ IER = 0
+
+ ! Initialize upper and lower boundaries.
+ JL=1
+ JU=N
+
+ ! if not dne compute a midpoint
+
+ do while (JU-JL.GT.1)
+ JM=(JU+JL)/2
+ ! now replace lower or upper limit
+ IF((XX(N).GT.XX(1)).EQV.(X.GT.XX(JM)))THEN
+ JL=JM
+ ELSE
+ JU=JM
+ ENDIF
+ ! try again
+ end do
+
+ J=JL
+ D=XX(J+1)-XX(J)
+ Y=(YY(J)*(XX(J+1)-X)+YY(J+1)*(X-XX(J)))/D
+
+ RETURN
+end subroutine LINTP
+
+!=============================================================================
+subroutine LINTP2(X1A,X2A,YA,M,N,X1,X2,Y,IER)
+
+ implicit none
+
+ ! Arguments:
+ integer, intent(in) :: m, n
+ integer, intent(out):: ier
+ real, intent(in), dimension(n) :: x2a
+ real, intent(in), dimension(m) :: x1a
+ real, intent(in), dimension(m,n):: ya
+ real, intent(in) :: x1, x2
+ real, intent(out) :: y
+
+ ! Local variables:
+ integer :: j, k
+ real :: ytmp(N), yytmp(M)
+
+ !-----------------------------------------------------------------------
+ IER = 0
+
+ ! do M evaluations of row constructed using 1-dimensional evaluator LINTP
+ do J=1,M
+ do K=1,N
+ YTMP(K)=YA(J,K)
+ end do
+ call lintp(X2A,YTMP,N,X2,YYTMP(J),IER)
+ IER = 10 * IER
+ if (IER.EQ.10) return
+ end do
+
+ ! evaluate it
+ CALL LINTP(X1A,YYTMP,M,X1,Y,IER)
+ IER = IER * 10
+ return
+end subroutine LINTP2
+
+!=============================================================================
+! Need to pass interpolation routine indices of neigbhors, X1ind & X2ind
+subroutine LINTP2_ind(X1A,X2A,YA,M,N,X1,X2,X1ind,X2ind,Y,IER)
+
+ implicit none
+
+ ! Arguments:
+ integer, intent(in) :: m, n
+ integer, intent(out):: ier
+ real, intent(in), dimension(n) :: x2a
+ real, intent(in), dimension(m) :: x1a
+ real, intent(in), dimension(m,n):: ya
+ real, intent(in) :: x1, x2
+ integer, intent(in), dimension(2) :: X1ind,X2ind
+ real, intent(out) :: y
+
+ !-----------------------------------------------------------------------
+ IER = 0
+
+ Y = YA(X1ind(1),X2ind(1))*(X1A(X1ind(2))-X1)*(X2A(X2ind(2))-X2) + &
+ YA(X1ind(2),X2ind(1))*(X1-X1A(X1ind(1)))*(X2A(X2ind(2))-X2) + &
+ YA(X1ind(1),X2ind(2))*(X1A(X1ind(2))-X1)*(X2-X2A(X2ind(1))) + &
+ YA(X1ind(2),X2ind(2))*(X1-X1A(X1ind(1)))*(X2-X2A(X2ind(1)))
+
+ Y = Y/(X1A(X1ind(2))-X1A(X1ind(1)))/(X2A(X2ind(2))-X2A(X2ind(1)))
+
+ return
+end subroutine LINTP2_IND
+
+!=============================================================================
+! Need to pass interpolation routine indices of neigbhors, X1ind & X2ind AND coefficients Xnncoef
+subroutine LINTP2_ind_coef(X1A,X2A,YA,M,N,X1,X2,X1ind,X2ind,Xnncoef,Y,IER)
+
+ implicit none
+
+ ! Arguments:
+ integer, intent(in) :: m, n
+ integer, intent(out):: ier
+ real, intent(in), dimension(n) :: x2a
+ real, intent(in), dimension(m) :: x1a
+ real, intent(in), dimension(m,n):: ya
+ real, intent(in), dimension(2,2):: Xnncoef
+ real, intent(in) :: x1, x2
+ integer, intent(in), dimension(2) :: X1ind,X2ind
+ real, intent(out) :: y
+
+ !-----------------------------------------------------------------------
+ IER = 0
+
+ Y = YA(X1ind(1),X2ind(1))*Xnncoef(1,1) + YA(X1ind(2),X2ind(1))*Xnncoef(2,1) + &
+ YA(X1ind(1),X2ind(2))*Xnncoef(1,2) + YA(X1ind(2),X2ind(2))*Xnncoef(2,2)
+
+ return
+end subroutine LINTP2_IND_COEF
+
+!=============================================================================
+! Addition from V.J. Sep, 1996 - 3 Dimensional linear interpolation
+subroutine LINTP3(X1A,X2A,X3A,YA,M,N,L,X1,X2,X3,Y,IER)
+
+ implicit none
+
+ ! Arguments:
+ integer, intent(in) :: m, n, l
+ integer, intent(out):: ier
+ real, intent(in), dimension(m) :: x1a
+ real, intent(in), dimension(n) :: x2a
+ real, intent(in), dimension(l) :: x3a
+ real, intent(in), dimension(m,n,l) :: ya
+ real, intent(in) :: x1, x2, x3
+ real, intent(out):: y
+
+ ! Local variables:
+ integer :: ii, jj, kk
+ real :: ytmp(l), yytmp(m,n)
+ !-----------------------------------------------------------------------
+ IER = 0
+ do II=1,M
+ do JJ=1,N
+ do KK=1,L
+ YTMP(KK)=YA(II,JJ,KK)
+ end do
+ CALL LINTP(X3A,YTMP,L,X3,YYTMP(II,JJ),IER)
+ end do
+ end do
+
+
+ CALL LINTP2(X1A,X2A,YYTMP,M,N,X1,X2,Y,IER)
+ IER = IER * 10
+ RETURN
+end subroutine LINTP3
+
+!=============================================================================
+function GAMMLN(XX,IER)
+
+ implicit none
+
+ ! Arguments
+ real :: gammln
+ real, intent(in) :: XX
+ integer, intent(out) :: IER
+
+ ! Local vars:
+ integer :: j
+ real :: x, tmp, ser, &
+ half = 0.5, &
+ one = 1.0, &
+ fpf = 5.5, &
+ stp = 2.50662827465E0
+ real :: cof(6) = (/76.18009173D0, -86.50532033D0, &
+ 24.01409822D0, -1.231739516D0, .120858003D-2, -.536382D-5/)
+ !-----------------------------------------------------------------------
+ IER = 0
+ X=XX-ONE
+ TMP=X+FPF
+ TMP=(X+HALF)*LOG(TMP)-TMP
+ SER=ONE
+ do J=1,6
+ X=X+ONE
+ SER=SER+COF(J)/X
+ end do
+
+ GAMMLN=TMP+LOG(STP*SER)
+ RETURN
+end function GAMMLN
+
+!=============================================================================
+subroutine GSER(GAMSER,A,X,GLN,IER)
+
+ implicit none
+
+ ! Arguments:
+ real, intent(in) :: a, x
+ real, intent(out):: gamser, gln
+ integer, intent(out) :: IER
+
+ ! Local vars:
+ integer, parameter :: ItMax = 100 ! Max iterations.
+ integer :: n
+ real, parameter :: eps = 3.0E-7! A very small number.
+ real:: sum, ap, del
+ real:: gammln
+ !-----------------------------------------------------------------------
+ gamser = 0
+ ier = 0
+ GLN=GAMMLN(A,IER)
+ IF(X.LE.0.)THEN
+ IF(X.LT.0.) write(*,*) & !PAUSE is bad.
+ 'WARNING: ARGUMENT X SHOULD NOT BE NEGATIVE IN GSER!'
+ RETURN
+ ENDIF
+
+ AP=A
+ SUM=1./A
+ DEL=SUM
+ do N=1,ITMAX
+ AP=AP+1.
+ DEL=DEL*X/AP
+ SUM=SUM+DEL
+ if(abs(DEL) .lt. abs(SUM)*EPS) exit ! Break from loop as necessary.
+ end do
+
+ ! If max iterations are reached:
+ if (n .eq. ItMax) then
+ IER = 1
+ return
+ endif
+ ! Else:
+ GAMSER=SUM*EXP(-X+A*LOG(X)-GLN)
+ RETURN
+end subroutine GSER
+
+!=============================================================================
+subroutine GCF(GAMMCF,A,X,GLN,IER)
+
+ implicit none
+
+ ! Arguments
+ real, intent(in) :: a, x
+ real, intent(out):: gln, gammcf
+ integer, intent(out):: ier
+
+ ! Local vars:
+ integer, parameter :: ItMax = 100 ! Max iterations.
+ real, parameter :: eps = 3.0E-7! A very small number.
+
+ integer :: n
+ real :: A0, A1, AN, ANA, ANF, B0, B1, fac, G, gold
+ real :: gammln ! external function
+
+ !-----------------------------------------------------------------------
+ GLN=GAMMLN(A,IER)
+ IER = 0
+
+ ! previous value to check for convergence
+ GOLD=0.
+ ! setting up to evaluate continuous fraction
+ A0=1.
+ A1=X
+ B0=0.
+ B1=1.
+
+ ! renormalized factor preventing overflow
+ FAC=1.
+ do N=1,ITMAX
+ AN=FLOAT(N)
+ ANA=AN-A
+
+ ! one step of the recurrence
+ A0=(A1+A0*ANA)*FAC
+ B0=(B1+B0*ANA)*FAC
+
+ ! next step
+ ANF=AN*FAC
+ A1=X*A0+ANF*A1
+ B1=X*B0+ANF*B1
+
+ ! time to renormalize ?
+ IF(A1.NE.0.)THEN
+ FAC=1./A1
+ G=B1*FAC
+
+ ! Exit loop if converged
+ IF(ABS((G-GOLD)/G).LT.EPS) exit
+ GOLD=G
+ ENDIF
+ end do
+ write(*,*) 'THE VALUE OF N IS', n
+ ! If error:
+ if(n .ge. ItMax) then
+ IER = 1
+ RETURN
+ end if
+
+ ! If converged:
+ GAMMCF=EXP(-X+A*LOG(X)-GLN)*G
+ RETURN
+
+end subroutine GCF
+
+!=============================================================================
+subroutine TRIDAG(A,B,C,R,U,N,IER)
+
+ implicit none
+
+ ! Arguments
+ integer, intent(in) :: N
+ integer, intent(out) :: IER
+ real, intent(in), dimension(N) :: A, B, C, R
+ real, intent(out), dimension(N) :: U
+
+ ! Local vars
+ integer, parameter :: nMax = 100
+ integer :: j
+ real, dimension(N) :: GAM
+ real :: BET
+ !-----------------------------------------------------------------------
+ ! problem can be simplified to N-1
+ IF(B(1).EQ.0.)THEN
+ IER = 1
+ RETURN
+ ENDIF
+ IER = 0
+ BET=B(1)
+ U(1)=R(1)/BET
+
+ ! decomposition and forward substitution
+ do J=2,N
+ GAM(J)=C(J-1)/BET
+ BET=B(J)-A(J)*GAM(J)
+ ! if algotithm fails...
+ IF(BET.EQ.0.)THEN
+ IER = 2
+ RETURN
+ ENDIF
+ U(J)=(R(J)-A(J)*U(J-1))/BET
+ end do
+
+ ! back substitution
+ do J=N-1,1,-1
+ U(J)=U(J)-GAM(J+1)*U(J+1)
+ end do
+ RETURN
+end subroutine TRIDAG
+
+!=============================================================================
+subroutine bessel2(jn,arg1,bs)
+ ! This version of bessel2 returns bs(1),n=jn-1;bs(2),n=jn;bs(3),n=jn+1.
+
+ implicit none
+ ! Arguments:
+ integer, intent(in) :: jn
+ real, intent(in) :: arg1
+ real, intent(out) :: bs(3) ! Can you trust a variable named B.S.?
+
+ ! Local vars:
+ integer :: ier, n, jj(3), in, ij, ii, ie
+ real :: arg, bb, efac, bessj, bessj0, bessj1
+ !-----------------------------------------------------------------------
+ arg=arg1
+ if(arg.lt.0)arg=-arg
+ jj(1)=jn-1
+ jj(2)=jn
+ jj(3)=jn+1
+
+ do in=1,3
+ ij=abs(jj(in))
+ select case (ij)
+ case(0)
+ bs(in)=bessj0(arg)
+ case(1)
+ bs(in)=bessj1(arg)
+ case default
+ bs(in)=bessj(ij,arg)
+ end select
+ end do
+
+ if(arg1.lt.0.)then
+ do in=1,3
+ ij=jj(in)
+ if(ij.lt.0)ij=-ij
+ ie=ij
+ if(ie.eq.0) exit
+ efac=1.0
+ do ii=1,ie
+ efac=efac*(-1)
+ end do
+ bs(in)=efac*bs(in)
+ end do
+ endif
+
+ ! check jj for negative values and calculate negative harmonics
+ do in=1,3
+ ij=jj(in)
+ if(ij.ge.0) cycle
+ ie=-ij
+ efac=1.0
+ do ii=1,ie
+ efac=efac*(-1)
+ end do
+ bs(in)=efac*bs(in)
+ end do
+ return
+end subroutine bessel2
+
+!=============================================================================
+function bessj(n,x)
+
+ implicit none
+
+ ! Arguments
+ integer, intent(in) :: n
+ real , intent(in) :: x
+ real :: bessj!(n,int(x))
+
+ ! Local vars:
+ real , parameter :: bigno=1.0e10, bigni=1.0e-10
+ integer, parameter :: iacc=40
+ integer :: j, m
+ real :: tox, bjm, bj, bjp, sum, jsum
+ real :: bessj0, bessj1 ! External functions
+
+ !-----------------------------------------------------------------------
+ if(n.lt.2) then
+ write(*,*) 'bad argument n in bessj-exiting routine '
+ return
+ end if
+
+ tox=2./x
+ if(x.gt.float(n))then
+ bjm=bessj0(x)
+ bj=bessj1(x)
+ do j=1,n-1
+ bjp=j*tox*bj-bjm
+ bjm=bj
+ bj=bjp
+ end do
+ bessj=bj
+ else
+ m=2*((n+int(sqrt(float(iacc*n))))/2)
+ bessj=0.
+ jsum=0
+ sum=0.
+ bjp=0.
+ bj=1.
+ do j=m,1,-1
+ bjm=j*tox*bj-bjp
+ bjp=bj
+ bj=bjm
+ if(abs(bj).gt.bigno)then
+ bj=bj*bigni
+ bjp=bjp*bigni
+ bessj=bessj*bigni
+ sum=sum*bigni
+ endif
+ if(jsum.ne.0)sum=sum+bj
+ jsum=1-jsum
+ if(j.eq.n)bessj=bjp
+ end do
+ sum=2.*sum-bj
+ bessj=bessj/sum
+ endif
+ return
+end function bessj
+!=============================================================================
+function bessj0(x)
+
+ implicit none
+
+ ! Arguments:
+ real , intent(in) :: x
+ real :: bessj0!(int(x))
+
+ !Local Vars
+ real :: y, z, xx, ax
+ real , parameter :: &
+ p1 = 1.e0, q1 = -.1562499995e-1,&
+ p2 = -.1098628627e-2, q2 = .1430488765e-3,&
+ p3 = .2734510407e-4, q3 = -.6911147651e-5,&
+ p4 = -.2073370639e-5, q4 = .7621095161e-6,&
+ p5= .2093887211e-6, q5 = -.934945152e-7
+ real , parameter :: &
+ r1 = 57568490574.e0, s1 = 57568490411.e0,&
+ r2 = -13362590354.e0, s2 = 1029532985.e0,&
+ r3 = 651619640.7e0, s3 = 9494680.718e0,&
+ r4 = -11214424.18e0, s4 = 59272.64853e0,&
+ r5 = 77392.33017e0, s5 = 267.8532712e0,&
+ r6 = -184.9052456e0, s6 = 1.e0
+ !-----------------------------------------------------------------------
+ if(abs(x).lt.8.)then
+ y=x**2
+ bessj0=(r1+y*(r2+y*(r3+y*(r4+y*(r5+y*r6))))) / &
+ (s1+y*(s2+y*(s3+y*(s4+y*(s5+y*s6)))))
+ else
+ ax=abs(x)
+ z=8./ax
+ y=z**2
+ xx=ax-.785398164
+ bessj0=sqrt(.636619772/ax)*(cos(xx) * &
+ (p1+y*(p2+y*(p3+y*(p4+y*p5))))-z*sin(xx) * &
+ (q1+y*(q2+y*(q3+y*(q4+y*q5)))))
+ endif
+ return
+end function bessj0
+
+!=============================================================================
+function bessj1(x)
+
+ implicit none
+
+ real , intent(in) :: x
+ real :: bessj1!(int(x))
+ real :: xx, ax, y, z
+ real , parameter :: cOne = 1.0
+ real , parameter :: &
+ r1 = 72362614232.E0, s1 = 144725228442.d0, &
+ r2 = -7895059235.d0, s2 = 2300535178.d0, &
+ r3 = 242396853.1d0, s3 = 18583304.74d0, &
+ r4 = -2972611.439d0, s4 = 99447.43394d0, &
+ r5 = 15704.48260d0, s5 = 376.9991397d0, &
+ r6 = -30.16036606d0, s6 = 1.d0
+ real , parameter :: &
+ p1 = 1.d0, q1 = .04687499995d0, &
+ p2 = .183105d-2, q2 = -.2002690873d-3, &
+ p3 = -.3516396496d-4, q3 = .8449199096d-5, &
+ p4 = .2457520174d-5, q4 = -.88228987d-6, &
+ p5 = -.240337019d-6, q5 = .105787412d-6
+ !-----------------------------------------------------------------------
+ if(abs(x).lt.8.)then
+ y=x**2
+ bessj1=x*(r1+y*(r2+y*(r3+y*(r4+y*(r5+y*r6))))) / &
+ (s1+y*(s2+y*(s3+y*(s4+y*(s5+y*s6)))))
+ else
+ ax=abs(x)
+ z=8./ax
+ y=z**2
+ xx=ax-2.356194491
+ bessj1=sqrt(.636619772/ax)*(cos(xx) * &
+ (p1+y*(p2+y*(p3+y*(p4+y*p5)))) - &
+ z*sin(xx)*(q1+y*(q2+y*(q3+y*(q4+y*q5))))) * &
+ sign(cOne,x) ! Why not abs???
+ endif
+ return
+end function bessj1
+
+!=============================================================================
diff --git a/srcGlow/rout.f90 b/srcGlow/rout.f90
new file mode 100644
index 0000000..1155e2a
--- /dev/null
+++ b/srcGlow/rout.f90
@@ -0,0 +1,60 @@
+! Subroutine ROUT writes model atmosphere and excitation rates to an output file
+! in order to transfer them to Randy Gladstone's REDISTER radiative transfer program.
+
+! This software is part of the GLOW model. Use is governed by the Open Source
+! Academic Research License Agreement contained in the file glowlicense.txt.
+! For more information see the file glow.txt.
+
+! Scott Baily and Stan Solomon, 9/1994
+! Replaced 834 with LBH, SCS, 2/2003
+! Reduced cascade contribution to 1356, SCS, 9/2003
+! Included radiative recombination in 1356, SCS, 9/2003
+! Refactored to f90, SCS, 12/2016
+! Changed 1356, 1304, and LBH to use volume emission rate arrays, SCS, 12/2016
+
+
+ SUBROUTINE ROUT(ROFILE,LUN,EF,EZ,ITAIL,FRACO,FRACO2,FRACN2)
+
+ use cglow,only: jmax,idate
+ use cglow,only: ut,glat,glong,f107,f107p,f107a
+ use cglow,only: zz,aglw,sza,dip,xuvfac,ztn,zti,zte,zo,zo2,zns,zn2,ecalc,zxden,zeta
+
+ implicit none
+
+ integer,intent(in) :: lun,itail
+ real,intent(in) :: ef,ez,fraco,fraco2,fracn2
+ character(len=40),intent(in) :: rofile
+
+ real :: z(jmax), zhe(jmax), e1356(jmax), e1304(jmax), e1027(jmax), e989(jmax), elbh(jmax)
+ integer :: j
+
+ do j=1,jmax
+ z(j)=zz(j)/1.e5
+ zhe(j)=0.
+ e1356(j)=zeta(13,j)
+ e1304(j)=zeta(14,j)
+ e1027(j)=aglw(7,1,j)
+ e989(j)=aglw(8,1,j)
+ elbh(j)=zeta(12,j)
+ enddo
+
+ open(unit=lun,file=rofile,status='unknown')
+
+ write(lun,"(' JMAX ',' SZA ',' UT ',' IDATE',' LAT ',' LONG ',' DIP ')")
+ write(lun,"(i8,f8.2,f8.1,i8,3f8.2)") jmax,sza*180./3.14159,ut,idate,glat,glong,dip
+ write(lun,"(' F107 ',' F107p ',' F107a ',' XUVfac ')")
+ write(lun,"(4f8.2)") f107,f107p,f107a,xuvfac
+ write(lun,"(' Eflux ',' Ezero ',' Itail ',' FracO ',' FracO2 ',' FracN2 ')")
+ write(lun,"(f8.2,f8.1,i8,3f8.2)") ef, ez, itail, fraco, fraco2, fracn2
+ write(lun,"(' Alt Tn Ti Te O O2 N2 He N Ne O+ 1356 1304 1027 989 LBH')")
+
+ do j=1,jmax
+ write(lun,"(0p,f6.1,3f6.0,1p,12e9.2)") &
+ z(j),ztn(j),zti(j),zte(j),zo(j),zo2(j),zn2(j),zhe(j), &
+ zns(j),ecalc(j),zxden(3,j),e1356(j),e1304(j),e1027(j),e989(j),elbh(j)
+ enddo
+
+ close(lun)
+ return
+
+ end subroutine rout
diff --git a/srcGlow/snoem.f90 b/srcGlow/snoem.f90
new file mode 100644
index 0000000..85cfac2
--- /dev/null
+++ b/srcGlow/snoem.f90
@@ -0,0 +1,84 @@
+! Subroutine SNOEM calculates nitric oxide zonal mean altitude profile
+! as function of magnetic latitude for specified day of year, Kp, and F10.7.
+
+! The NOEM empirical model is based on data from the SNOE ultraviolet
+! spectrometer during 1998-2000, using empirical orthogonal function analysis.
+! Altitude range is from 100 to 150 km.
+
+! Marsh et al., JGR, 109, A07301, doi:10.1029/2003JA010199, 2004.
+
+! Adapted by Stan Solomon, 5/2014, from IDL and F90 code supplied by Dan Marsh.
+! Minor revisions to make compatible with gfortran, SCS, 4/2017
+
+ subroutine snoem(doy, kp, f107, z, mlat, nozm)
+
+ use cglow,only: data_dir
+
+ implicit none
+
+ integer,intent(in) :: doy
+ real,intent(in) :: kp, f107
+ real,intent(out) :: z(16), mlat(33), nozm(33,16)
+
+ real, save :: zin(16) ! altitude grid
+ real, save :: mlatin(33) ! magnetic latitude grid
+ real, save :: no_mean(33,16) ! mean nitric oxide distribution
+ real, save :: eofs(33,16,3) ! empirical orthogonal functions
+ real :: theta0 ! day number in degrees
+ real :: dec ! solar declination angle
+ real :: m1, m2, m3 ! coefficients for first 3 eofs
+ real, parameter :: pi=3.1415926536
+ integer, save :: ifirst=1
+ integer :: j, k, n
+ character(len=1024) :: filepath
+
+!... read eof file on first call
+
+ if (ifirst == 1) then
+ ifirst = 0
+ filepath = trim(data_dir)//'snoem_eof.dat'
+ open(unit=1,file=filepath,status='old',action='read')
+ read(1,*) (zin(k),k=1,16)
+ read(1,*) (mlatin(j),j=1,33)
+ read(1,*) ((no_mean(j,k),j=1,33),k=1,16)
+ read(1,*) (((eofs(j,k,n),j=1,33),k=1,16),n=1,3)
+ close(unit=1)
+ endif
+
+!... calculate coefficients (m1 to m3) for eofs based on geophysical parameters
+
+!... eof1 - kp
+
+ m1 = kp * 0.689254 - 1.53366
+
+!... eof2 - declination
+
+ theta0 = 2.*pi * float(doy - 1) / 365.
+
+ dec = 0.006918 &
+ - 0.399912 * cos(theta0) + 0.070257 * sin(theta0) &
+ - 0.006758 * cos(2*theta0) + 0.000907 * sin(2*theta0) &
+ - 0.002697 * cos(3*theta0) + 0.001480 * sin(3*theta0)
+
+ dec = dec * 180./pi
+
+ m2 = -0.31978 + dec*0.097309 + dec**2*0.00048979 - dec**3*0.00010360
+
+!... eof3 - f107
+
+ m3 = alog10(f107) * 6.35777 - 13.8163
+
+!... zonal mean distrib. is sum of mean and eofs
+
+ do k=1,16
+ do j=1,33
+ nozm(j,k) = no_mean(j,k)-m1*eofs(j,k,1)+m2*eofs(j,k,2)-m3*eofs(j,k,3)
+ end do
+ end do
+
+ z(:) = zin(:)
+ mlat(:) = mlatin(:)
+
+ return
+
+ end subroutine snoem
diff --git a/srcGlow/snoemint.f90 b/srcGlow/snoemint.f90
new file mode 100644
index 0000000..f1938d0
--- /dev/null
+++ b/srcGlow/snoemint.f90
@@ -0,0 +1,78 @@
+! Subroutine SNOEMINT gets NO estimate from the NOEM emperical model and
+! INTerpolates it onto an altitude grid. Extrapolation is done above 150
+! km assuming a scale height approximation, and below 100 km
+! assuming a constant number density profile.
+
+! Stan Solomon, 12/2014
+! Refactored to f90, scs, 6/2016
+! Fixed bug in Kp (estimated from Ap) so that xkp >= 0, scs, 1/2017
+
+! Input:
+! IDATE Date in yyddd or yyyyddd format
+! GLAT Geographic latitude in degrees
+! GLONG Geographic longitude in degrees
+! F107 10.7 cm radio flux index
+! AP Ap index
+! JMAX Number of points in altitude grid
+! Z Altitude grid in km
+! ZTN Temperature at Z in K
+! Output:
+! ZNO Nitric oxide density at Z in cm-3
+
+
+ subroutine snoemint(idate,glat,glong,f107,ap,jmax,z,ztn,zno)
+
+ implicit none
+
+ integer,intent(in) :: idate, jmax
+ real,intent(in) :: glat, glong, f107, ap, z(jmax), ztn(jmax)
+ real,intent(out) :: zno(jmax)
+
+ real,parameter :: pi=3.1415926536
+
+ integer :: iday, klat1, klat2, kz1, kz2, j
+ real :: zg(16), xmlatno(33), zmno(33,16), zmnoi(16)
+ real :: xmlong, xmlat, xkp, rat, h
+
+! Find magnetic latitude:
+
+ call geo2mag(0,glong,glat,xmlong,xmlat)
+
+! Get zonal mean no profiles:
+
+ iday=idate-idate/1000*1000
+ xkp=1.75*alog(0.4*ap)
+ if (xkp < 0.0) xkp=0.0
+ call snoem(iday,xkp,f107,zg,xmlatno,zmno)
+
+! Interpolate altitude profile at magnetic latitude:
+
+ klat1=ifix(xmlat+80.)/5+1
+ klat2=klat1+1
+ if (klat1 < 1) klat1=1
+ if (klat1 > 33) klat1=33
+ if (klat2 < 1) klat1=1
+ if (klat2 > 33) klat2=33
+ rat=xmlat/5.-ifix(xmlat)/5
+
+ do j=1,16
+ zmnoi(j) = alog(zmno(klat1,j)*(1.-rat)+zmno(klat2,j)*rat)
+ end do
+
+! Interpolate onto altitude grid:
+! Use constant value below 100 km and scale height assumption above 150 km:
+
+ h=0.03*ztn(jmax)
+ do j=1,jmax
+ if (z(j) <= 100.) zno(j)=exp(zmnoi(16))
+ if (z(j) > 100. .and. z(j) <= 150.) then
+ kz2=ifix((150.-z(j))*.3)+1
+ kz1=kz2+1
+ zno(j)=exp(zmnoi(kz1) + (zmnoi(kz2)-zmnoi(kz1)) * (z(j)-zg(kz1)) / (zg(kz2)-zg(kz1)))
+ endif
+ if (z(j) > 150.) zno(j)=exp(zmnoi(1)+(150.-z(j))/h)
+ end do
+
+ return
+
+ end
diff --git a/srcGlow/solzen.f90 b/srcGlow/solzen.f90
new file mode 100644
index 0000000..e78fccd
--- /dev/null
+++ b/srcGlow/solzen.f90
@@ -0,0 +1,80 @@
+! Subroutine SOLZEN
+
+! This software is part of the GLOW model. Use is governed by the Open Source
+! Academic Research License Agreement contained in the file glowlicense.txt.
+! For more information see the file glow.txt.
+
+! Stan Solomon, 1988.
+! Temporary Y2K fix-up, SCS, 2005.
+! Refactored to f90, SCC, 2016.
+
+! Returns Solar Zenith Angle SZA in degrees for specified date in form yyddd or yyyyddd,
+! universal time in seconds, geographic latitude and longitude in degrees.
+
+subroutine solzen (idate, ut, glat, glong, sza)
+
+ implicit none
+
+ integer,intent(in) :: idate
+ real,intent(in) :: ut, glat, glong
+ real,intent(out) :: sza
+
+ real,parameter :: pi=3.1415926536
+ real :: rlat, rlong, sdec, srasn, gst, rh, cossza
+
+ rlat = glat * pi/180.
+ rlong = glong * pi/180.
+ call suncor (idate, ut, sdec, srasn, gst)
+ rh = srasn - (gst+rlong)
+ cossza = sin(sdec)*sin(rlat) + cos(sdec)*cos(rlat)*cos(rh)
+ sza = acos(cossza) * 180./pi
+ return
+
+end subroutine solzen
+
+
+! Subroutine SUNCOR returns the declination SDEC and right ascension
+! SRASN of the sun in GEI coordinates, radians, for a given date IDATE
+! in yyddd or yyyyddd format, universal time UT in seconds, and Greenwich sidereal
+! time GST in radians. Reference: C.T. Russell, Geophysical Coordinate Transforms.
+
+subroutine suncor (idate, ut, sdec, srasn, gst)
+
+ implicit none
+
+ integer,intent(in) :: idate
+ real,intent(in) :: ut
+ real,intent(out) :: sdec, srasn, gst
+
+ real,parameter :: pi=3.1415926536
+ real :: fday, dj, t, vl, g, slong, obliq, slp, sind, cosd
+ integer :: iyr, iday
+
+ fday=ut/86400.
+ iyr=idate/1000
+ iday=idate-iyr*1000
+
+! Temporary Y2K fix-up:
+! Should work with either yyddd or yyyyddd format from 1950 to 2050.
+! Note deteriorating accuracy after ~2050 anyway.
+! Won't work after 2100 due to lack of a leap year.
+
+ if (iyr >= 1900) iyr=iyr-1900
+ if (iyr < 50) iyr=iyr+100
+
+ dj=365*iyr+(iyr-1)/4+iday+fday-0.5
+ t=dj/36525.
+ vl=amod(279.696678+.9856473354*dj,360.)
+ gst=amod(279.696678+.9856473354*dj+360.*fday+180.,360.) * pi/180.
+ g=amod(358.475845+.985600267*dj,360.) * pi/180.
+ slong=vl+(1.91946-.004789*t)*sin(g)+.020094*sin(2.*g)
+ obliq=(23.45229-0.0130125*t) *pi/180.
+ slp=(slong-.005686) * pi/180.
+ sind=sin(obliq)*sin(slp)
+ cosd=sqrt(1.-sind**2)
+ sdec=atan(sind/cosd)
+ srasn=pi-atan2(1./tan(obliq)*sind/cosd,-cos(slp)/cosd)
+
+ return
+
+end subroutine suncor
diff --git a/srcGlow/ssflux.f90 b/srcGlow/ssflux.f90
new file mode 100644
index 0000000..1d66c21
--- /dev/null
+++ b/srcGlow/ssflux.f90
@@ -0,0 +1,210 @@
+! Subroutine SSFLUX
+!
+! This software is part of the GLOW model. Use is governed by the Open Source
+! Academic Research License Agreement contained in the file glowlicense.txt.
+! For more information see the file glow.txt.
+!
+! Subroutine SSFLUX calculates the solar EUV and FUV flux in the range
+! 0.5 to 1750 Angstroms for a specified level of solar activity.
+!
+! The calling routine supplies a scaling switch ISCALE, the daily 10.7
+! cm flux F107, its 81-day centered average F107A, and an XUV
+! enhancement factor XUVFAC. XUVFAC is ignored if set to zero.
+!
+! XUVFAC is applied from 18-250 A for the Hinteregger model (ISCALE=0),
+! from 18-50 A for the EUVAC model (ISCALE=1), and not at all for
+! user-supplied data (ISCALE=2)
+!
+! The subroutine returns the longwave boundary WAVE1 and shortwave
+! boundary WAVE2 of the wavelenth bins, and the solar flux in each bin
+! SFLUX. Bins are arranged in energy multiples of 2 from 0.5 to 8 A,
+! aligned with k-shell boundaries at 23, 32, and 44 A from 18 to 44 nm,
+! 10 A in width from 60 to 1050 A, and 50 A in width from 1050 to
+! 1750 A with the exception of Lyman-alpha which has its own bin from
+! 1210 to 1220 A.
+!
+! Methods used:
+! If ISCALE=0 the flux is scaled using parameterization methods based
+! on F107 and F107A. For ionizing EUV, Hinteregger's contrast ratio
+! method (Hinteregger et al., GRL, 8, 1147, 1981) is used, based on the
+! reference spectrum SC#21REFW re-binned at 1 nm bin resolution.
+! Enhancement ratios for H Ly-B and Fe XVI are calculated
+! from F107 and F107A using Hinteregger's formula, employing
+! coefficients which reduce to the reference values at F107=67.6,
+! F107A=71.5. The 'best fit' coefficients are not used as they produce
+! some negative values at low solar activity, but remain in a
+! 'commented out' data statement for reference. The EUV spectrum is
+! then scaled from these modeled ratios, using contrast ratios from SC#21REFW.
+! If ISCALE=1, the EUV flux (50-1050A) is scaled using the EUVAC model
+! (Richards et al., JGR 99, 8981, 1994) re-binned onto ~1 nm intervals.
+! The Hinteregger spectrum, scaled using the EUVAC algorithm, is used
+! from 18 to 50A. Note that Richards et al. specified that the flux
+! would not go below 0.8 of the reference spectrum; here that value is
+! changed to 0.1.
+! Neither of these models extends shortward of 18A, so from 1-18 A
+! an amalgam of sources are used to derive an estimated flux, e.g.,
+! DeJager, in Astronomical Observations from Space Vehicles, Steinberg,
+! ed., 1964; Smith & Gottlieb, SSR 16, 771, 1974; Manson, in The Solar
+! Output and its Variation, White, ed., 1977; Kreplin et al, ibid;
+! Horan & Kreplin, Solar Phys. 74, 265, 1981; Wagner, ASR 8, (7)67, 1988.
+! For FUV from 1050A-1750A, 50A interval bins from the Woods and
+! Rottman [2002] reference spectrum and scale factors based on
+! UARS SOLSTICE data are used. The scaling method follows the
+! Hinteregger or EUVAC algorithm, whichever is selected, so as to
+! linearly scale the spectrum between the reference value and maximum
+! value calculated with F10.7=F10.7A=200.
+! If ISCALE=2, the solar flux (0-1750A) is read from a file named
+! ssflux_user.dat in the current working directory. The file must
+! contain three columns: WAVES, WAVEL, SFLUX (Angstroms and cm-2 s-1)
+! in order of increasing wavelength. The number of lines in the file
+! must match the value of LMAX in glow.h. (Note: still need to implement a
+! method for time-dependent user-supplied inputs, subroutine will only read
+! the input file on the first call, unless ISCALE changes.)
+!
+! Modification history:
+! Stan Solomon, 12/1988 Basic Hinteregger EUV, approx. SME FUV
+! Chris Gaskill, 7/1989 Added early Tobiska model
+! Stan Solomon, 8/1989 Corrections to above
+! Stan Solomon, 1/1990 Tobiska SERF2; added W & R spectra
+! Stan Solomon, 6/1991 Tobiska EUV 91; Hntggr Ly-B, Fe XVI scaling
+! Stan Solomon, 2/1992 Updated Tobiska EUV91; corrected SME FUV
+! Scott Bailey, 12/1993 Initial one-nm bins version
+! Stan Solomon, 6/2004 Added EUVAC option, cleaned up artifacts
+! Stan Solomon, 9/2004 Added ability to specify input data file
+! Stan Solomon, 3/2005 Changed all to photon units
+! Stan Solomon, 1/2015 Updated for f90; only read file on first call
+! Stan Solomon, 4/2016 Changed EUVAC floor to 0.1
+! Stan Solomon, 4/2016 Removed obsolete parameters
+! Stan Solomon, 6/2016 Completed change to lower case and f90
+! Stan Solomon, 7/2016 Reads file if ISCALE has changed
+!
+! Calling parameters:
+! ISCALE =0 for Hinteregger contrast ratio method
+! =1 for EUVAC
+! =2 for user-supplied data
+! F107 daily 10.7 cm flux (1.E-22 W m-2 Hz-1)
+! F107A 81-day centered average 10.7 cm flux
+! XUVFAC factor for scaling flux 18-250A or 18-50A (optional)
+
+! Returned parameters:
+! WAVE1 longwave bound of spectral intervals (Angstroms)
+! WAVE2 shortwave bound of intervals
+! SFLUX scaled solar flux returned by subroutine (photons cm-2 s-1)
+!
+! Other definitions:
+! LMAX dimension of flux and scaling arrays, currently = 123
+! WAVEL = WAVE1
+! WAVES = WAVE2
+! RFLUX low solar activity flux
+! SCALE1 scaling factors for H LyB-keyed chromospheric emissions
+! SCALE2 scaling factors for FeXVI-keyed coronal emissions
+! B1 fit coefficients for H LyB
+! B2 fit coefficients for FeXVI
+! R1 enhancement ratio for H LyB
+! R2 enhancement ratio for FeXVI
+! P107 average of F107 and F107A
+! A scaling factor for EUVAC model
+
+
+ subroutine ssflux (iscale,f107,f107a,xuvfac,wave1,wave2,sflux)
+
+ use cglow,only: lmax,data_dir
+
+ implicit none
+ save
+
+ integer,intent(in) :: iscale
+ real,intent(in) :: f107, f107a, xuvfac
+ real,intent(out) :: wave1(lmax), wave2(lmax), sflux(lmax)
+
+ integer :: l, islast
+ real :: wavel(lmax), waves(lmax), rflux(lmax), uflux(lmax)
+ real :: scale1(lmax), scale2(lmax), a(lmax), b1(3), b2(3), epsil
+ real :: r1, r2, p107
+ character(len=1024) :: filepath
+ data epsil/1.0E-6/
+ data islast/-1/
+
+! regression coefficients which reduce to solar min. spectrum:
+ data b1/1.0, 0.0138, 0.005/, b2/1.0, 0.59425, 0.3811/
+
+! 'best fit' regression coefficients, commented out, for reference:
+! DATA B1/1.31, 0.01106, 0.00492/, B2/-6.618, 0.66159, 0.38319/
+
+
+! Hinteregger contrast ratio method:
+
+ if (iscale == 0) then
+ if (islast /= iscale) then
+ filepath = trim(data_dir)//'ssflux_hint.dat'
+ open(unit=1,file=filepath,status='old',action='read')
+ read(1,*)
+ do l=lmax,1,-1
+ read(1,*) waves(l),wavel(l),rflux(l),scale1(l),scale2(l)
+ enddo
+ close(unit=1)
+ endif
+!
+ r1 = b1(1) + b1(2)*(f107a-71.5) + b1(3)*(f107-f107a+3.9)
+ r2 = b2(1) + b2(2)*(f107a-71.5) + b2(3)*(f107-f107a+3.9)
+!
+ do l=1,lmax
+ sflux(l) = rflux(l) + (r1-1.)*scale1(l) + (r2-1.)*scale2(l)
+ if (sflux(l) < 0.0) sflux(l) = 0.0
+ if (xuvfac > epsil .and. wavel(l) < 251.0 .and. waves(l) > 17.0) &
+ sflux(l)=sflux(l)*xuvfac
+ enddo
+ endif
+
+! EUVAC Method:
+
+ if (iscale == 1) then
+ if (islast /= iscale) then
+ filepath = trim(data_dir)//'ssflux_euvac.dat'
+ open(unit=1,file=filepath,status='old',action='read')
+ read(1,*)
+ do l=lmax,1,-1
+ read(1,*) waves(l),wavel(l),rflux(l),a(l)
+ enddo
+ close(unit=1)
+ endif
+
+ p107 = (f107+f107a)/2.
+
+ do l=1,lmax
+ sflux(l) = rflux(l) * (1. + a(l)*(p107-80.))
+ if (sflux(l) < 0.1*rflux(l)) sflux(l) = 0.1*rflux(l)
+ if (xuvfac > epsil .and. wavel(l) < 51.0 .and. waves(l) > 17.0) &
+ sflux(l)=sflux(l)*xuvfac
+ enddo
+ endif
+
+! User-supplied data:
+
+ if (iscale == 2) then
+ if (islast /= iscale) then
+ filepath = trim(data_dir)//'ssflux_user.dat'
+ open(unit=1,file=filepath,status='old',action='read')
+ read(1,*)
+ do l=lmax,1,-1
+ read(1,*) waves(l),wavel(l),uflux(l)
+ enddo
+ close(unit=1)
+ endif
+ do l=1,lmax
+ sflux(l)=uflux(l)
+ enddo
+ endif
+
+! Fill wavelength arrays:
+
+ do l=1,lmax
+ wave1(l) = wavel(l)
+ wave2(l) = waves(l)
+ enddo
+
+ islast=iscale
+
+ return
+
+ end subroutine ssflux
diff --git a/srcGlow/tzgrid.f90 b/srcGlow/tzgrid.f90
new file mode 100644
index 0000000..e183874
--- /dev/null
+++ b/srcGlow/tzgrid.f90
@@ -0,0 +1,196 @@
+! Subroutine TZGRID maps fields from a TIE-GCM or TIME-GCM history onto the
+! GLOW altitude grid, interpolating and/or extrapolating as necessary.
+
+! This software is part of the GLOW model. Use is governed by the Open Source
+! Academic Research License Agreement contained in the file glowlicense.txt.
+! For more information see the file glow.txt.
+
+! Stan Solomon, 12/15, 1/16
+! Extracted from glowdriver.f90 into separate file tzgrid.f90, SCS, 12/16
+
+! Inputs:
+! i Longitude index
+! l Latitude index
+! jmax Number of altitude levels used by GLOW (should = 68 for TIE/TIME runs)
+! Outputs:
+! z Geographic altitude of pressure surface (km)
+! zo O number density, cm-3
+! zo2 O2 "
+! zn2 N2 "
+! zns N(4S) "
+! n2d N(2D) " (optional - could be zero since this is calculated by GLOW)
+! no NO "
+! ztn Tn, K
+! zun Zonal wind velocity, cm/s (not used by GLOW but passed into output))
+! zvn Meridional wind velocity, cm/s (not used by GLOW but passed into output))
+! zti Ti, K
+! zte Te, K
+
+! GLOW altitude grid extends from lev=ln(P0/P) -10 to +6.75, in intervals of H/4.
+! Lower boundary extrapolation for TIE-GCM from lev =-10 to -7 assumes H = 6 km
+! low-res TIE-GCM: 29 levels; extrapolate lower boundary, use both midpoints and interfaces
+! high-res TIE-GCM: 57 levels; extrapolate lower boundary, use interfaces
+! low-res TIME-GCM: 49 levels; use both midpoints and interfaces
+! high-res TIME-GCM: 97 levels; use interfaces
+
+subroutine tzgrid(i,l,jmax,z,zo,zo2,zn2,zns,znd,zno,ztn,zun,zvn,ze,zti,zte)
+
+ use readtgcm,only: nlev,zg,tn,un,vn,o2,o1,n2,n4s,n2d,no,ti,te,ne
+
+ implicit none
+
+ integer,intent(in) :: i,l,jmax
+ real,intent(out) :: z(jmax),zo(jmax),zo2(jmax),zn2(jmax),zns(jmax),znd(jmax), &
+ zno(jmax),ztn(jmax),zti(jmax),zte(jmax),zun(jmax),zvn(jmax),ze(jmax)
+ integer :: j,jj
+
+ if (nlev/=29 .and. nlev/=57 .and. nlev/=49 .and. nlev/=97) then
+ write(6,"('zgrid: unknown NLEV = ',i5)") nlev
+ stop 'zgrid'
+ endif
+
+ if (nlev == 29) then ! low-res TIE-GCM
+ do j=1,jmax
+ jj=(j-11)/2
+ if (j <= 13) then ! at or below lower boundary
+ z(j) = zg(i,l,1)-float(13-j)*6./4. ! extrapolate
+ zo(j) = o1(i,l,1)*exp(-float(14-j)/4.)
+ zo2(j) = o2(i,l,1)*exp(float(14-j)/4.)
+ zn2(j) = n2(i,l,1)*exp(float(14-j)/4.)
+ zns(j) = n4s(i,l,1)
+ znd(j) = n2d(i,l,1)
+ zno(j) = no(i,l,1)
+ ztn(j) = tn(i,l,1)
+ zti(j) = ti(i,l,1)
+ zte(j) = te(i,l,1)
+ zun(j) = un(i,l,1)
+ zvn(j) = vn(i,l,1)
+ ze(j) = ne(i,l,1)
+ else
+ if (j/2*2 == j) then ! at midpoint
+ z(j) = (zg(i,l,jj)+zg(i,l,jj+1))/2 ! interpolate zg to midpoint
+ zo(j) = o1(i,l,jj) ! use fields at midpoint
+ zo2(j) = o2(i,l,jj)
+ zn2(j) = n2(i,l,jj)
+ zns(j) = n4s(i,l,jj)
+ znd(j) = n2d(i,l,jj)
+ zno(j) = no(i,l,jj)
+ ztn(j) = tn(i,l,jj)
+ zti(j) = ti(i,l,jj)
+ zte(j) = te(i,l,jj)
+ zun(j) = un(i,l,jj)
+ zvn(j) = vn(i,l,jj)
+ ze(j) = sqrt(ne(i,l,jj)*ne(i,l,jj+1))
+ else
+ z(j) = zg(i,l,jj) ! at interface
+ zo(j) = sqrt(o1(i,l,jj-1)*o1(i,l,jj)) ! interpolate fields to interface
+ zo2(j) = sqrt(o2(i,l,jj-1)*o2(i,l,jj))
+ zn2(j) = sqrt(n2(i,l,jj-1)*n2(i,l,jj))
+ zns(j) = sqrt(n4s(i,l,jj-1)*n4s(i,l,jj))
+ znd(j) = sqrt(n2d(i,l,jj-1)*n2d(i,l,jj))
+ zno(j) = sqrt(no(i,l,jj-1)*no(i,l,jj))
+ ztn(j) = (tn(i,l,jj-1)+tn(i,l,jj))/2.
+ zti(j) = (ti(i,l,jj-1)+ti(i,l,jj))/2.
+ zte(j) = (te(i,l,jj-1)+te(i,l,jj))/2.
+ zun(j) = (un(i,l,jj-1)+un(i,l,jj))/2.
+ zvn(j) = (vn(i,l,jj-1)+vn(i,l,jj))/2.
+ ze(j) = ne(i,l,jj)
+ endif
+ endif
+ enddo
+ z(jmax) = z(jmax-1) + (z(jmax-1)-z(jmax-2)) !patch top level
+ ze(jmax) = ze(jmax-1)**2 / ze(jmax-2)
+ endif
+
+ if (nlev == 57) then ! high-res TIE-GCM
+ do j=1,jmax
+ jj=j-12
+ if (j <= 13) then ! at or below lower boundary
+ z(j) = zg(i,l,1)-float(13-j)*6./4. ! extrapolate
+ zo(j) = o1(i,l,1)*exp( 0.125-float(14-j)/4.)
+ zo2(j) = o2(i,l,1)*exp(-0.125+float(14-j)/4.)
+ zn2(j) = n2(i,l,1)*exp(-0.125+float(14-j)/4.)
+ zns(j) = n4s(i,l,1)
+ znd(j) = n2d(i,l,1)
+ zno(j) = no(i,l,1)
+ ztn(j) = tn(i,l,1)
+ zti(j) = ti(i,l,1)
+ zte(j) = te(i,l,1)
+ zun(j) = un(i,l,1)
+ zvn(j) = vn(i,l,1)
+ ze(j) = ne(i,l,1)
+ else
+ z(j) = zg(i,l,jj) ! at interface
+ zo(j) = sqrt(o1(i,l,jj-1)*o1(i,l,jj)) ! interpolate fields to interface
+ zo2(j) = sqrt(o2(i,l,jj-1)*o2(i,l,jj))
+ zn2(j) = sqrt(n2(i,l,jj-1)*n2(i,l,jj))
+ zns(j) = sqrt(n4s(i,l,jj-1)*n4s(i,l,jj))
+ znd(j) = sqrt(n2d(i,l,jj-1)*n2d(i,l,jj))
+ zno(j) = sqrt(no(i,l,jj-1)*no(i,l,jj))
+ ztn(j) = (tn(i,l,jj-1)+tn(i,l,jj))/2.
+ zti(j) = (ti(i,l,jj-1)+ti(i,l,jj))/2.
+ zte(j) = (te(i,l,jj-1)+te(i,l,jj))/2.
+ zun(j) = (un(i,l,jj-1)+un(i,l,jj))/2.
+ zvn(j) = (vn(i,l,jj-1)+vn(i,l,jj))/2.
+ ze(j) = ne(i,l,jj)
+ endif
+ enddo
+ endif
+
+ if (nlev == 49) then ! low-res TIME-GCM
+ do j=1,jmax
+ jj=(j+29)/2
+ if (j/2*2 == j) then ! at midpoint
+ z(j) = (zg(i,l,jj)+zg(i,l,jj+1))/2 ! interpolate zg to midpoint
+ zo(j) = o1(i,l,jj) ! use fields at midpoint
+ zo2(j) = o2(i,l,jj)
+ zn2(j) = n2(i,l,jj)
+ zns(j) = n4s(i,l,jj)
+ znd(j) = n2d(i,l,jj)
+ zno(j) = no(i,l,jj)
+ ztn(j) = tn(i,l,jj)
+ zti(j) = ti(i,l,jj)
+ zte(j) = te(i,l,jj)
+ zun(j) = un(i,l,jj)
+ zvn(j) = vn(i,l,jj)
+ ze(j) = sqrt(ne(i,l,jj)*ne(i,l,jj+1))
+ else
+ z(j) = zg(i,l,jj) ! at interface
+ zo(j) = sqrt(o1(i,l,jj-1)*o1(i,l,jj)) ! interpolate fields to interface
+ zo2(j) = sqrt(o2(i,l,jj-1)*o2(i,l,jj))
+ zn2(j) = sqrt(n2(i,l,jj-1)*n2(i,l,jj))
+ zns(j) = sqrt(n4s(i,l,jj-1)*n4s(i,l,jj))
+ znd(j) = sqrt(n2d(i,l,jj-1)*n2d(i,l,jj))
+ zno(j) = sqrt(no(i,l,jj-1)*no(i,l,jj))
+ ztn(j) = (tn(i,l,jj-1)+tn(i,l,jj))/2.
+ zti(j) = (ti(i,l,jj-1)+ti(i,l,jj))/2.
+ zte(j) = (te(i,l,jj-1)+te(i,l,jj))/2.
+ zun(j) = (un(i,l,jj-1)+un(i,l,jj))/2.
+ zvn(j) = (vn(i,l,jj-1)+vn(i,l,jj))/2.
+ ze(j) = ne(i,l,jj)
+ endif
+ enddo
+ z(jmax) = z(jmax-1) + (z(jmax-1)-z(jmax-2)) !patch top level
+ ze(jmax) = ze(jmax-1)**2 / + ze(jmax-2)
+ endif
+
+ if (nlev == 97) then ! high-res TIME-GCM
+ do j=1,jmax
+ jj=j+28
+ z(j) = zg(i,l,jj) ! at interface
+ zo(j) = sqrt(o1(i,l,jj-1)*o1(i,l,jj)) ! interpolate fields to interface
+ zo2(j) = sqrt(o2(i,l,jj-1)*o2(i,l,jj))
+ zn2(j) = sqrt(n2(i,l,jj-1)*n2(i,l,jj))
+ zns(j) = sqrt(n4s(i,l,jj-1)*n4s(i,l,jj))
+ znd(j) = sqrt(n2d(i,l,jj-1)*n2d(i,l,jj))
+ zno(j) = sqrt(no(i,l,jj-1)*no(i,l,jj))
+ ztn(j) = (tn(i,l,jj-1)+tn(i,l,jj))/2.
+ zti(j) = (ti(i,l,jj-1)+ti(i,l,jj))/2.
+ zte(j) = (te(i,l,jj-1)+te(i,l,jj))/2.
+ zun(j) = (un(i,l,jj-1)+un(i,l,jj))/2.
+ zvn(j) = (vn(i,l,jj-1)+vn(i,l,jj))/2.
+ ze(j) = ne(i,l,jj)
+ enddo
+ endif
+
+end subroutine tzgrid