[GRASS-SVN] r60763 - grass/trunk/imagery/i.atcorr
svn_grass at osgeo.org
svn_grass at osgeo.org
Mon Jun 9 02:12:09 PDT 2014
Author: martinl
Date: 2014-06-09 02:12:09 -0700 (Mon, 09 Jun 2014)
New Revision: 60763
Added:
grass/trunk/imagery/i.atcorr/abstra.cpp
grass/trunk/imagery/i.atcorr/abstra.h
grass/trunk/imagery/i.atcorr/aerosolconcentration.cpp
grass/trunk/imagery/i.atcorr/aerosolconcentration.h
grass/trunk/imagery/i.atcorr/aerosolmodel.cpp
grass/trunk/imagery/i.atcorr/aerosolmodel.h
grass/trunk/imagery/i.atcorr/altitude.cpp
grass/trunk/imagery/i.atcorr/altitude.h
grass/trunk/imagery/i.atcorr/atmosmodel.cpp
grass/trunk/imagery/i.atcorr/atmosmodel.h
grass/trunk/imagery/i.atcorr/date.h
grass/trunk/imagery/i.atcorr/gauss.h
grass/trunk/imagery/i.atcorr/geomcond.cpp
grass/trunk/imagery/i.atcorr/geomcond.h
grass/trunk/imagery/i.atcorr/interp.cpp
grass/trunk/imagery/i.atcorr/interp.h
grass/trunk/imagery/i.atcorr/iwave.cpp
grass/trunk/imagery/i.atcorr/iwave.h
grass/trunk/imagery/i.atcorr/makefile
grass/trunk/imagery/i.atcorr/output.cpp
grass/trunk/imagery/i.atcorr/output.h
grass/trunk/imagery/i.atcorr/readme
grass/trunk/imagery/i.atcorr/transform.cpp
grass/trunk/imagery/i.atcorr/transform.h
Removed:
grass/trunk/imagery/i.atcorr/Abstra.cpp
grass/trunk/imagery/i.atcorr/Abstra.h
grass/trunk/imagery/i.atcorr/AerosolConcentration.cpp
grass/trunk/imagery/i.atcorr/AerosolConcentration.h
grass/trunk/imagery/i.atcorr/AerosolModel.cpp
grass/trunk/imagery/i.atcorr/AerosolModel.h
grass/trunk/imagery/i.atcorr/Altitude.cpp
grass/trunk/imagery/i.atcorr/Altitude.h
grass/trunk/imagery/i.atcorr/AtmosModel.cpp
grass/trunk/imagery/i.atcorr/AtmosModel.h
grass/trunk/imagery/i.atcorr/Date.h
grass/trunk/imagery/i.atcorr/Gauss.h
grass/trunk/imagery/i.atcorr/GeomCond.cpp
grass/trunk/imagery/i.atcorr/GeomCond.h
grass/trunk/imagery/i.atcorr/Interp.cpp
grass/trunk/imagery/i.atcorr/Interp.h
grass/trunk/imagery/i.atcorr/Iwave.cpp
grass/trunk/imagery/i.atcorr/Iwave.h
grass/trunk/imagery/i.atcorr/Makefile
grass/trunk/imagery/i.atcorr/Output.cpp
grass/trunk/imagery/i.atcorr/Output.h
grass/trunk/imagery/i.atcorr/README
grass/trunk/imagery/i.atcorr/Transform.cpp
grass/trunk/imagery/i.atcorr/Transform.h
Modified:
grass/trunk/imagery/i.atcorr/6s.cpp
grass/trunk/imagery/i.atcorr/common.h
grass/trunk/imagery/i.atcorr/computations.cpp
grass/trunk/imagery/i.atcorr/gauss.cpp
grass/trunk/imagery/i.atcorr/main.cpp
Log:
i.atcorr: rename files to lowercase
Modified: grass/trunk/imagery/i.atcorr/6s.cpp
===================================================================
--- grass/trunk/imagery/i.atcorr/6s.cpp 2014-06-09 08:51:29 UTC (rev 60762)
+++ grass/trunk/imagery/i.atcorr/6s.cpp 2014-06-09 09:12:09 UTC (rev 60763)
@@ -7,16 +7,16 @@
#include "6s.h"
#include "common.h"
-#include "GeomCond.h"
-#include "AtmosModel.h"
-#include "AerosolModel.h"
-#include "AerosolConcentration.h"
-#include "Altitude.h"
-#include "Iwave.h"
-#include "Transform.h"
-#include "Abstra.h"
-#include "Interp.h"
-#include "Output.h"
+#include "geomcond.h"
+#include "atmosmodel.h"
+#include "aerosolmodel.h"
+#include "aerosolconcentration.h"
+#include "altitude.h"
+#include "iwave.h"
+#include "transform.h"
+#include "abstra.h"
+#include "interp.h"
+#include "output.h"
/* Function prototypes */
extern void discom(const GeomCond &geom, const AtmosModel &atms,
Deleted: grass/trunk/imagery/i.atcorr/Abstra.cpp
===================================================================
--- grass/trunk/imagery/i.atcorr/Abstra.cpp 2014-06-09 08:51:29 UTC (rev 60762)
+++ grass/trunk/imagery/i.atcorr/Abstra.cpp 2014-06-09 09:12:09 UTC (rev 60763)
@@ -1,10658 +0,0 @@
-#ifdef WIN32
-#pragma warning (disable : 4305)
-#endif /* WIN32 */
-#include "common.h"
-#include "Abstra.h"
-#include "AtmosModel.h"
-#include "Altitude.h"
-
-void
-wava6 (float a[8], const long int inu)
-{
-
-
- static const float acr[2048] = { .011482f, .13183f,
- -.0038755f, 3.4491e-6f, -.0069899f, 9.3146e-6f, 15300.f, 15310.f,
- .0015124f, .19547f, .0028474f, -4.7616e-6f, .0017802f, -1.079e-5f,
- 15310.f, 15320.f, .0092482f, .16207f, -.0025675f, 1.271e-5f, -.0027267f,
- 6.2076e-6f, 15320.f, 15330.f, .0104f, .25148f, .0028271f, -1.6657e-5f,
- .0013667f, -1.7862e-5f, 15330.f, 15340.f, .036425f, .35831f, -.0010013f,
- -1.0673e-6f, -.0025219f, -1.7475e-6f, 15340.f, 15350.f, .0050755f,
- .12303f, -.0018115f, 9.8037e-7f, -.0034793f, 8.572e-7f, 15350.f,
- 15360.f, .0040405f, .079669f, -.0035356f, 4.2888e-6f, -.0049964f,
- 5.6042e-6f, 15360.f, 15370.f, .0012748f, .10104f, .0012869f,
- -4.1165e-6f, -2.5366e-4f, -8.5685e-6f, 15370.f, 15380.f, .004332f,
- .087049f, -.0037819f, 4.8177e-6f, -.0066616f, 9.4206e-6f, 15380.f,
- 15390.f, .018759f, .14839f, -.0050183f, 8.8733e-6f, -.0069647f,
- 1.2888e-5f, 15390.f, 15400.f, .013161f, .13948f, -.0039758f, 3.962e-6f,
- -.006383f, 8.2226e-6f, 15400.f, 15410.f, .014766f, .30841f, -.0025568f,
- -1.0002e-6f, -.0049777f, 2.925e-6f, 15410.f, 15420.f, .021082f, .15162f,
- -.0015321f, -5.6826e-6f, -.0038546f, -1.6492e-6f, 15420.f, 15430.f,
- .020195f, .19485f, -2.7645e-4f, -9.8888e-6f, -.0024022f, -6.5352e-6f,
- 15430.f, 15440.f, .011166f, .18799f, .0030297f, -2.1309e-5f, 4.9231e-4f,
- -1.6445e-5f, 15440.f, 15450.f, .011405f, .30263f, .0033723f,
- -1.9312e-5f, .0012213f, -1.8339e-5f, 15450.f, 15460.f, .0081879f,
- .2948f, .0056918f, -2.2518e-5f, .0049723f, -2.6308e-5f, 15460.f,
- 15470.f, .0086587f, .31194f, .0049388f, -2.4988e-5f, .0025729f,
- -2.3785e-5f, 15470.f, 15480.f, .0029624f, .25004f, .0021191f,
- 1.2889e-5f, .0021547f, -5.0741e-6f, 15480.f, 15490.f, .0010355f, .1518f,
- .010772f, -5.3973e-5f, .0081789f, -4.9803e-5f, 15490.f, 15500.f,
- .0019209f, .15869f, .0035388f, -1.5675e-6f, .0030429f, -1.3275e-5f,
- 15500.f, 15510.f, .0021168f, .22695f, .0033055f, -7.1274e-7f, .0018066f,
- -1.051e-5f, 15510.f, 15520.f, 3.63e-4f, .041337f, .004643f, -3.0966e-5f,
- .0016831f, -2.5006e-5f, 15520.f, 15530.f, 6.422e-4f, .040141f,
- .0011384f, -1.6948e-5f, -.0017809f, -1.1069e-5f, 15530.f, 15540.f,
- .0017361f, .12935f, 7.0897e-6f, -1.1804e-5f, -.0029721f, -5.606e-6f,
- 15540.f, 15550.f, 3.6772e-4f, .069843f, .0015876f, -1.7017e-5f,
- -.0014188f, -1.1298e-5f, 15550.f, 15560.f, 8.1562e-4f, .085732f,
- .0028597f, -2.3409e-5f, -8.1651e-5f, -1.7172e-5f, 15560.f, 15570.f,
- 4.1832e-5f, .037286f, .0071945f, -4.1172e-5f, .0048022f, -3.6355e-5f,
- 15570.f, 15580.f, 2.89e-4f, .059772f, .00431f, -2.7519e-5f, .0025363f,
- -2.6086e-5f, 15580.f, 15590.f, 3.4153e-4f, .068927f, .0058634f,
- -2.8708e-5f, .002971f, -2.6151e-5f, 15590.f, 15600.f, 6.3462e-4f,
- .10803f, .0062584f, -1.912e-5f, .0049128f, -2.4384e-5f, 15600.f,
- 15610.f, 3.9706e-4f, .12303f, .0073825f, -2.4245e-5f, .0050938f,
- -2.795e-5f, 15610.f, 15620.f, 1.1711e-4f, .063154f, .0049218f,
- -2.6583e-5f, .0021634f, -2.368e-5f, 15620.f, 15630.f, 2.8022e-4f,
- .091171f, .011895f, -5.9964e-5f, .0091244f, -5.4363e-5f, 15630.f,
- 15640.f, 4.8561e-4f, .17953f, .0048672f, -2.2506e-5f, .0012405f,
- -1.7834e-5f, 15640.f, 15650.f, 3.295e-4f, .13103f, .0079212f,
- -3.1361e-5f, .0048579f, -3.0501e-5f, 15650.f, 15660.f, 6.2254e-4f,
- .13066f, .0068683f, -3.4929e-5f, .0042198f, -3.0853e-5f, 15660.f,
- 15670.f, 3.4175e-4f, .0686f, .0071102f, -4.0828e-5f, .0041954f,
- -3.4941e-5f, 15670.f, 15680.f, 6.7893e-4f, .25103f, .002638f,
- -1.0784e-5f, -1.9402e-4f, -1.0493e-5f, 15680.f, 15690.f, .0022454f,
- .2126f, .0045521f, -3.0054e-5f, .0018943f, -2.5356e-5f, 15690.f,
- 15700.f, 2.2324e-4f, .16386f, 9.9924e-5f, -4.6542e-6f, -.0032498f,
- -4.4042e-7f, 15700.f, 15710.f, .0011732f, .071121f, .0017438f,
- -1.9369e-5f, -.0010378f, -1.3774e-5f, 15710.f, 15720.f, .0011939f,
- .22194f, .0022505f, -2.0274e-5f, -3.0389e-4f, -1.5915e-5f, 15720.f,
- 15730.f, .0011335f, .1131f, 6.5038e-4f, -1.4226e-5f, -.0023716f,
- -8.4484e-6f, 15730.f, 15740.f, .0013693f, .066759f, -4.9503e-4f,
- -1.0274e-5f, -.0033442f, -4.9491e-6f, 15740.f, 15750.f, .0022675f,
- .11019f, -.0015659f, -6.0385e-6f, -.0042073f, -9.9453e-7f, 15750.f,
- 15760.f, .0021492f, .11169f, -.0025591f, -1.868e-6f, -.0052151f,
- 2.9531e-6f, 15760.f, 15770.f, 5.2724e-4f, .079449f, -.0015077f,
- 3.7703e-7f, -.0037765f, 1.0136e-6f, 15770.f, 15780.f, .0017852f,
- .092282f, -.0042337f, 4.5463e-6f, -.0075615f, 1.1296e-5f, 15780.f,
- 15790.f, 5.7289e-4f, .18138f, .001042f, 1.1358e-7f, -.0010771f,
- -3.8585e-6f, 15790.f, 15800.f, .0024903f, .21722f, 6.1161e-4f,
- 2.0815e-6f, -6.5545e-4f, -6.5063e-6f, 15800.f, 15810.f, .0033934f,
- .23501f, 3.4083e-4f, -1.2029e-5f, -.0027676f, -5.6508e-6f, 15810.f,
- 15820.f, .0043759f, .14995f, -.003628f, 2.8054e-6f, -.0061589f,
- 7.1308e-6f, 15820.f, 15830.f, 9.6328e-4f, .12298f, -.0027284f,
- 2.0822e-6f, -.0051044f, 4.1652e-6f, 15830.f, 15840.f, 6.1564e-4f,
- .047547f, -.0041578f, 4.2375e-6f, -.007361f, 1.0687e-5f, 15840.f,
- 15850.f, 1.445e-4f, .047164f, -.0026523f, -1.7845e-6f, -.0054095f,
- 3.7673e-6f, 15850.f, 15860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15860.f,
- 15870.f, .0027617f, .080618f, -.0054341f, 9.35e-6f, -.0086841f,
- 1.5797e-5f, 15870.f, 15880.f, .0038448f, .0889f, -.0045065f, 5.7229e-6f,
- -.0074065f, 1.161e-5f, 15880.f, 15890.f, .002669f, .12359f, -.003403f,
- 1.5184e-6f, -.0062551f, 6.94e-6f, 15890.f, 15900.f, .0035205f, .15929f,
- -.0029195f, -6.0033e-7f, -.0055137f, 4.5063e-6f, 15900.f, 15910.f,
- .0033857f, .15288f, -5.5305e-4f, -1.0049e-5f, -.0030402f, -5.3251e-6f,
- 15910.f, 15920.f, .0055123f, .20681f, 6.3027e-5f, -1.1203e-5f,
- -.0021942f, -7.6854e-6f, 15920.f, 15930.f, .0025555f, .15612f,
- .0036149f, -2.367e-5f, 8.1154e-4f, -1.8842e-5f, 15930.f, 15940.f,
- 6.0708e-4f, .15267f, .0069583f, -2.3922e-5f, .0059157f, -3.3379e-5f,
- 15940.f, 15950.f, .0013307f, .12652f, .005072f, -3.1273e-5f, .0029461f,
- -2.8552e-5f, 15950.f, 15960.f, 1.9184e-4f, .031816f, .010823f,
- -5.5684e-5f, .0080654f, -5.0132e-5f, 15960.f, 15970.f, 0.f, 0.f, 0.f, 0.f,
- 0.f, 0.f, 15970.f, 15980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15980.f,
- 15990.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15990.f, 1.6e4f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 1.6e4f, 16010.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16010.f, 16020.f, 0.f, 0.f,
- 0.f, 0.f, 0.f, 0.f, 16020.f, 16030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16030.f,
- 16040.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16040.f, 16050.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16050.f, 16060.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16060.f,
- 16070.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16070.f, 16080.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16080.f, 16090.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16090.f, 16100.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16100.f, 16110.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16110.f,
- 16120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16120.f, 16130.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16130.f, 16140.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16140.f,
- 16150.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16150.f, 16160.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16160.f, 16170.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16170.f, 16180.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16180.f, 16190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16190.f,
- 16200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16200.f, 16210.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16210.f, 16220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16220.f,
- 16230.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16230.f, 16240.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16240.f, 16250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16250.f, 16260.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16260.f, 16270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16270.f,
- 16280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16280.f, 16290.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16290.f, 16300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16300.f,
- 16310.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16310.f, 16320.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16320.f, 16330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16330.f, 16340.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16340.f, 16350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16350.f,
- 16360.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16360.f, 16370.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16370.f, 16380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16380.f,
- 16390.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16390.f, 16400.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16400.f, 16410.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16410.f, 16420.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16420.f, 16430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16430.f,
- 16440.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16440.f, 16450.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16450.f, 16460.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16460.f,
- 16470.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16470.f, 16480.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16480.f, 16490.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16490.f, 16500.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16500.f, 16510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16510.f,
- 16520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16520.f, 16530.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16530.f, 16540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16540.f,
- 16550.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16550.f, 16560.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16560.f, 16570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16570.f, 16580.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16580.f, 16590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16590.f,
- 16600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16600.f, 16610.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16610.f, 16620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16620.f,
- 16630.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16630.f, 16640.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16640.f, 16650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16650.f, 16660.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16660.f, 16670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16670.f,
- 16680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16680.f, 16690.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16690.f, 16700.f, 9.3657e-4f, .16814f, .0071611f, -3.2337e-5f,
- .0051118f, -3.429e-5f, 16700.f, 16710.f, .002716f, .13632f, .0024507f,
- -1.7614e-5f, 6.4545e-4f, -1.7104e-5f, 16710.f, 16720.f, .01021f,
- .33525f, .0035136f, -2.0013e-5f, .0012395f, -1.7557e-5f, 16720.f,
- 16730.f, .0056241f, .14518f, .0025514f, -6.0743e-6f, 4.0412e-4f,
- -9.6804e-6f, 16730.f, 16740.f, .0090151f, .16435f, 5.9525e-4f,
- -7.4453e-6f, -7.7433e-4f, -8.1348e-6f, 16740.f, 16750.f, .017084f,
- .37569f, .0017092f, -1.0104e-5f, 5.4764e-5f, -1.1565e-5f, 16750.f,
- 16760.f, .004068f, .16946f, .0051318f, -1.2576e-5f, .0021847f,
- -1.7187e-5f, 16760.f, 16770.f, .014025f, .25075f, -4.9903e-4f,
- -3.9474e-6f, -.0024356f, -2.4014e-6f, 16770.f, 16780.f, .0084391f,
- .29482f, .00143f, -1.4909e-5f, -5.8149e-4f, -1.2205e-5f, 16780.f,
- 16790.f, .0042603f, .15728f, -.0017076f, 1.1819e-5f, -.0025115f,
- 1.7886e-6f, 16790.f, 16800.f, .016111f, .35565f, 9.8453e-4f,
- -1.0561e-5f, -.0015547f, -8.0917e-6f, 16800.f, 16810.f, .032806f,
- .40538f, 3.2361e-4f, -7.1099e-6f, -.0017591f, -6.4585e-6f, 16810.f,
- 16820.f, .039593f, .37366f, -.0017738f, -3.6504e-6f, -.0044894f,
- 1.5591e-6f, 16820.f, 16830.f, .0041709f, .15463f, -.001046f,
- -1.7983e-6f, -.0027043f, -2.9685e-6f, 16830.f, 16840.f, .0035117f,
- .15272f, -.0028931f, 3.0829e-6f, -.0046348f, 4.9372e-6f, 16840.f,
- 16850.f, .014133f, .12212f, -.0040965f, 4.1489e-6f, -.0071928f,
- 1.0033e-5f, 16850.f, 16860.f, .0077536f, .19684f, -.0044631f,
- 8.2821e-6f, -.0062227f, 1.0476e-5f, 16860.f, 16870.f, .025192f, .3428f,
- -.003503f, 5.8569e-6f, -.0052023f, 7.3334e-6f, 16870.f, 16880.f,
- .030248f, .27295f, -.0026774f, 1.2042e-6f, -.0042996f, 2.2385e-6f,
- 16880.f, 16890.f, .012936f, .30454f, -.0022564f, -1.1282e-6f,
- -.0042435f, 1.4398e-6f, 16890.f, 16900.f, .011031f, .24979f, -.0032635f,
- 5.324e-6f, -.0041759f, 4.4122e-6f, 16900.f, 16910.f, .014293f, .29998f,
- -3.4569e-4f, -9.0328e-6f, -.0021933f, -6.7146e-6f, 16910.f, 16920.f,
- .0091809f, .29615f, .0023482f, -1.7235e-5f, -5.9956e-4f, -1.1968e-5f,
- 16920.f, 16930.f, .008126f, .323f, 1.1339e-4f, -9.8017e-7f, -.0013639f,
- -4.0912e-6f, 16930.f, 16940.f, .040319f, .36952f, -.0034585f,
- 7.4285e-6f, -.0043038f, 5.2677e-6f, 16940.f, 16950.f, .013921f, .36738f,
- -7.7085e-4f, 4.5894e-7f, -.0026272f, -1.4583e-6f, 16950.f, 16960.f,
- .014345f, .25675f, -.0022235f, 1.8237e-6f, -.0031796f, 3.5185e-6f,
- 16960.f, 16970.f, .016501f, .22846f, -7.3791e-4f, -8.1276e-6f,
- -.0030972f, -3.4017e-6f, 16970.f, 16980.f, .019984f, .24072f,
- 4.6284e-4f, -1.157e-5f, -.0016535f, -8.0246e-6f, 16980.f, 16990.f,
- .014605f, .42551f, .0042003f, -2.4403e-5f, .0012313f, -1.961e-5f,
- 16990.f, 1.7e4f, .0056604f, .31925f, .0037029f, -1.1447e-5f, .0028937f,
- -1.9869e-5f, 1.7e4f, 17010.f, .0063352f, .35092f, .0026893f,
- -1.5677e-5f, 5.5216e-4f, -1.3231e-5f, 17010.f, 17020.f, .003844f,
- .22874f, -1.2718e-4f, -9.3893e-8f, -.0018171f, -1.6527e-7f, 17020.f,
- 17030.f, .0013581f, .13591f, .0068077f, -3.5228e-5f, .0039267f,
- -3.0049e-5f, 17030.f, 17040.f, .0018736f, .25317f, .004094f, -1.115e-5f,
- .0020737f, -1.6908e-5f, 17040.f, 17050.f, .0012084f, .1688f, -.0010058f,
- -7.8902e-7f, -.0025863f, -1.1192e-6f, 17050.f, 17060.f, .0010487f,
- .069135f, .006375f, -3.3619e-5f, .0036725f, -3.0416e-5f, 17060.f,
- 17070.f, 5.0984e-4f, .11462f, .0031391f, -2.153e-5f, 4.5939e-4f,
- -1.7989e-5f, 17070.f, 17080.f, 8.4428e-4f, .14457f, -5.8124e-4f,
- -7.7648e-6f, -.0029191f, -4.3661e-6f, 17080.f, 17090.f, 3.0536e-4f,
- .074835f, 1.5726e-4f, -1.2441e-5f, -.0024876f, -7.6201e-6f, 17090.f,
- 17100.f, 5.526e-4f, .12225f, .0040329f, -2.6244e-5f, .0012152f,
- -2.1176e-5f, 17100.f, 17110.f, 3.7571e-4f, .06606f, .004893f,
- -1.7932e-5f, .0027254f, -2.1243e-5f, 17110.f, 17120.f, 3.8817e-4f,
- .096834f, .0050965f, -2.8072e-5f, .0025414f, -2.5439e-5f, 17120.f,
- 17130.f, 4.3455e-4f, .10332f, .0037899f, -2.5805e-5f, .0011068f,
- -2.147e-5f, 17130.f, 17140.f, 2.797e-4f, .13222f, .0049706f,
- -1.1993e-5f, .0022042f, -1.6597e-5f, 17140.f, 17150.f, 3.5542e-4f,
- .094199f, .0069032f, -3.8399e-5f, .0042436f, -3.3972e-5f, 17150.f,
- 17160.f, 1.4332e-4f, .10096f, .0080342f, -4.4157e-5f, .0052994f,
- -3.893e-5f, 17160.f, 17170.f, 1.131e-4f, .07032f, .0094132f,
- -1.9979e-5f, .0084399f, -3.3269e-5f, 17170.f, 17180.f, 1.097e-4f,
- .073653f, .0070015f, -3.1921e-5f, .0041785f, -3.033e-5f, 17180.f,
- 17190.f, 1.9539e-4f, .11002f, .0025848f, -2.1294e-5f, 1.5132e-4f,
- -1.7461e-5f, 17190.f, 17200.f, 2.2464e-5f, .040498f, .0015081f,
- -1.8426e-5f, -8.0302e-4f, -1.3773e-5f, 17200.f, 17210.f, 1.1068e-4f,
- .041949f, .0011384f, -1.6948e-5f, -.001862f, -1.0906e-5f, 17210.f,
- 17220.f, 2.6372e-4f, .1423f, .0074076f, -9.6003e-7f, .004947f,
- -1.6056e-5f, 17220.f, 17230.f, 1.6225e-4f, .064754f, 9.1255e-4f,
- 4.5791e-6f, 2.8912e-5f, -2.743e-6f, 17230.f, 17240.f, 3.4492e-4f,
- .13306f, -.0022341f, -3.1568e-6f, -.0051367f, 2.5216e-6f, 17240.f,
- 17250.f, 2.9083e-4f, .1273f, .014643f, -7.0324e-5f, .011799f,
- -6.4717e-5f, 17250.f, 17260.f, 7.9159e-5f, .084959f, .0033618f,
- 1.0957e-5f, -1.9083e-6f, 1.5045e-6f, 17260.f, 17270.f, 3.991e-4f,
- .1611f, .0052228f, -6.6224e-6f, .003315f, -1.7428e-5f, 17270.f, 17280.f,
- 3.6117e-4f, .14552f, .0053239f, -2.7921e-6f, .0027764f, -1.3072e-5f,
- 17280.f, 17290.f, 5.6601e-4f, .2023f, .0081509f, -3.975e-5f, .0051039f,
- -3.5401e-5f, 17290.f, 17300.f, 5.522e-4f, .27444f, .0022665f,
- -4.1297e-6f, 6.9271e-4f, -1.2175e-5f, 17300.f, 17310.f, .0012177f,
- .31594f, .0026446f, -1.1117e-5f, -.0010442f, -7.3851e-6f, 17310.f,
- 17320.f, .0012068f, .36919f, .0046393f, -2.5102e-5f, .001937f,
- -2.1181e-5f, 17320.f, 17330.f, 8.1484e-4f, .12504f, .0033991f,
- -2.4509e-5f, -1.7719e-4f, -1.657e-5f, 17330.f, 17340.f, .0010075f,
- .10415f, .0045176f, -3.0424e-5f, .0016795f, -2.4622e-5f, 17340.f,
- 17350.f, .0014383f, .23566f, .0013476f, -1.0965e-5f, -.0023371f,
- -4.3633e-6f, 17350.f, 17360.f, 7.8276e-4f, .2229f, -.0015478f,
- -1.8316e-6f, -.0039408f, 4.9016e-7f, 17360.f, 17370.f, .0023195f,
- .1644f, .0012573f, -1.668e-5f, -.0019183f, -9.5692e-6f, 17370.f,
- 17380.f, 7.0669e-4f, .18348f, -.001353f, -5.5696e-6f, -.0046409f,
- 1.1901e-6f, 17380.f, 17390.f, .0026577f, .24613f, -3.4475e-4f,
- -9.149e-6f, -.0027647f, -4.4906e-6f, 17390.f, 17400.f, .0014266f,
- .18058f, -1.7564e-4f, -3.1091e-6f, -.0023868f, -2.4568e-6f, 17400.f,
- 17410.f, .0013368f, .089183f, -7.5731e-4f, -3.0495e-6f, -.0013138f,
- -5.5029e-6f, 17410.f, 17420.f, .0031555f, .29805f, -.0014978f,
- -6.4349e-7f, -.0036817f, 1.3405e-6f, 17420.f, 17430.f, .0015803f,
- .20706f, .0027308f, -1.4728e-5f, 2.1412e-4f, -1.4434e-5f, 17430.f,
- 17440.f, .0025444f, .19283f, -.0026123f, 3.7928e-6f, -.0040723f,
- 3.3236e-6f, 17440.f, 17450.f, .0028951f, .14488f, 8.2222e-4f,
- -1.4617e-5f, -.0020986f, -8.6758e-6f, 17450.f, 17460.f, 9.9222e-4f,
- .058296f, -6.973e-4f, -8.8805e-6f, -.0030012f, -5.1319e-6f, 17460.f,
- 17470.f, .0049761f, .23841f, -.0034073f, 2.1975e-6f, -.00609f,
- 6.7461e-6f, 17470.f, 17480.f, .0024737f, .16103f, -.0033546f,
- 5.2399e-6f, -.0050448f, 4.9288e-6f, 17480.f, 17490.f, 6.5774e-4f,
- .076908f, -.0048253f, 7.2725e-6f, -.0072344f, 1.1372e-5f, 17490.f,
- 17500.f, 8.5946e-4f, .1372f, -.0034619f, 3.8209e-6f, -.0055141f,
- 6.4456e-6f, 17500.f, 17510.f, 1.3088e-4f, .077214f, 1.0378e-4f,
- -6.7806e-6f, -.0024574f, -4.3444e-6f, 17510.f, 17520.f, 7.2177e-4f,
- .12037f, -.0032371f, 3.8429e-6f, -.005706f, 6.3102e-6f, 17520.f,
- 17530.f, .0025932f, .057507f, -.0053841f, 9.3892e-6f, -.0080102f,
- 1.4171e-5f, 17530.f, 17540.f, .0064329f, .34361f, -.0033999f,
- 4.1519e-6f, -.0047285f, 4.1554e-6f, 17540.f, 17550.f, .0020356f,
- .18182f, -.0031524f, 9.2073e-7f, -.0056549f, 4.9733e-6f, 17550.f,
- 17560.f, .0065331f, .22623f, -.0015636f, -4.1008e-6f, -.0032357f,
- -2.3034e-6f, 17560.f, 17570.f, .0059972f, .29545f, -6.0272e-4f,
- -7.9159e-6f, -.0032228f, -3.1603e-6f, 17570.f, 17580.f, .0040039f,
- .3136f, .0032065f, -2.0617e-5f, 6.7568e-4f, -1.7932e-5f, 17580.f,
- 17590.f, .0016959f, .28903f, .005156f, -1.9347e-5f, .0033983f,
- -2.1801e-5f, 17590.f, 17600.f, 7.0732e-4f, .16014f, .0010501f,
- -1.4628e-5f, -.0015478f, -9.7179e-6f, 17600.f, 17610.f, .0012558f,
- .1798f, .0044641f, -2.5933e-5f, .0019766f, -2.2898e-5f, 17610.f,
- 17620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17620.f, 17630.f, 5.944e-5f,
- .033158f, .0060208f, -3.6477e-5f, .0032636f, -3.0925e-5f, 17630.f,
- 17640.f, 1.6627e-4f, .041123f, -.0027846f, -1.2553e-6f, -.0055418f,
- 4.2965e-6f, 17640.f, 17650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17650.f,
- 17660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17660.f, 17670.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 17670.f, 17680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17680.f,
- 17690.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17690.f, 17700.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 17700.f, 17710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17710.f, 17720.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 17720.f, 17730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 17730.f,
- 17740.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17740.f, 17750.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 17750.f, 17760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17760.f,
- 17770.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17770.f, 17780.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 17780.f, 17790.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17790.f, 17800.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 17800.f, 17810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 17810.f,
- 17820.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17820.f, 17830.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 17830.f, 17840.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17840.f,
- 17850.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17850.f, 17860.f
- };
-
- /* WATER VAPOR (15300 - 17860 CM-1) */
- for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
-} /* wava6 */
-
-void
-wava5 (float a[8], const long int inu)
-{
-
-
- static const float acr[2048] = { 4.6416e-4f, .04653f,
- .011484f, -5.0228e-5f, .0057564f, -2.8823e-5f, 12740.f, 12750.f,
- 2.6026e-5f, .069686f, .0050381f, -3.0969e-5f, .0023565f, -2.6498e-5f,
- 12750.f, 12760.f, 2.1016e-4f, .078469f, -.0024738f, -2.0423e-6f,
- -.0056905f, 4.9529e-6f, 12760.f, 12770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 12770.f, 12780.f, 6.0427e-5f, .037767f, 5.4219e-4f, -1.4563e-5f,
- -.002215f, -9.0107e-6f, 12780.f, 12790.f, 2.496e-5f, .041123f,
- -.0026523f, -1.7845e-6f, -.0054095f, 3.7673e-6f, 12790.f, 12800.f, 0.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 12800.f, 12810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 12810.f, 12820.f, 6.3228e-5f, .037767f, -6.7259e-4f, -9.7034e-6f,
- -.0034298f, -4.1516e-6f, 12820.f, 12830.f, 7.0635e-5f, .034814f,
- .0017376f, -1.9344e-5f, -.0010196f, -1.3792e-5f, 12830.f, 12840.f,
- 3.5776e-5f, .068419f, .0046121f, -2.7372e-5f, .0015491f, -2.2291e-5f,
- 12840.f, 12850.f, 8.2613e-5f, .072444f, .0029409f, -2.2687e-5f,
- 1.2304e-4f, -1.7626e-5f, 12850.f, 12860.f, 1.3149e-5f, .034814f,
- .0017682f, -1.9467e-5f, -9.8895e-4f, -1.3915e-5f, 12860.f, 12870.f, 0.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 12870.f, 12880.f, 1.0952e-5f, .034814f,
- .0039164f,
- -2.8059e-5f, .0011592f, -2.2508e-5f, 12880.f, 12890.f, 1.1287e-5f,
- .037767f, .0031085f, -2.4828e-5f, 3.5131e-4f, -1.9276e-5f, 12890.f,
- 12900.f, 1.2534e-5f, .034814f, .006137f, -3.6942e-5f, .0033798f,
- -3.139e-5f, 12900.f, 12910.f, 1.9577e-5f, .031771f, .0046608f,
- -3.1037e-5f, .0019036f, -2.5485e-5f, 12910.f, 12920.f, 0.f, 0.f, 0.f, 0.f,
- 0.f, 0.f, 12920.f, 12930.f, 9.153e-6f, .028818f, .0079937f, -4.4369e-5f,
- .0052366f, -3.8817e-5f, 12930.f, 12940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 12940.f, 12950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12950.f, 12960.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 12960.f, 12970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
-
-
-
- 12970.f,
- 12980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12980.f, 12990.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 12990.f, 1.3e4f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.3e4f, 13010.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 13010.f, 13020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 13020.f, 13030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13030.f, 13040.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13040.f, 13050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 13050.f,
- 13060.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13060.f, 13070.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 13070.f, 13080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13080.f,
- 13090.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13090.f, 13100.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13100.f, 13110.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13110.f, 13120.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13120.f, 13130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 13130.f,
- 13140.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13140.f, 13150.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 13150.f, 13160.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13160.f,
- 13170.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13170.f, 13180.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13180.f, 13190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13190.f, 13200.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13200.f, 13210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 13210.f,
- 13220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13220.f, 13230.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 13230.f, 13240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13240.f,
- 13250.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13250.f, 13260.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13260.f, 13270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13270.f, 13280.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13280.f, 13290.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 13290.f,
- 13300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13300.f, 13310.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 13310.f, 13320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13320.f,
- 13330.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13330.f, 13340.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13340.f, 13350.f, 3.4847e-5f, .04882f, .025041f, -1.1142e-4f, .022291f,
- -1.0647e-4f, 13350.f, 13360.f, 6.4041e-5f, .10448f, .01454f,
- -4.7733e-5f, .013707f, -6.0524e-5f, 13360.f, 13370.f, 4.8972e-5f,
- .061588f, .015816f, -3.1234e-5f, .012279f, -4.4662e-5f, 13370.f,
- 13380.f, 3.4101e-4f, .20633f, .0080284f, -9.6908e-6f, .0076822f,
- -2.8886e-5f, 13380.f, 13390.f, 1.6731e-5f, .03468f, .029361f,
- -1.2984e-4f, .026604f, -1.2428e-4f, 13390.f, 13400.f, 3.9582e-4f,
- .10507f, .018729f, -6.1046e-5f, .015312f, -6.0499e-5f, 13400.f, 13410.f,
- 5.7395e-4f, .20422f, .012292f, -3.0378e-5f, .010954f, -4.4352e-5f,
- 13410.f, 13420.f, 1.6304e-4f, .075327f, .024345f, -1.0453e-4f, .022312f,
- -1.0356e-4f, 13420.f, 13430.f, .0014276f, .27047f, .017891f,
- -7.3505e-5f, .016458f, -7.1692e-5f, 13430.f, 13440.f, 3.2739e-4f,
- .19765f, .021521f, -5.2027e-5f, .020205f, -6.8454e-5f, 13440.f, 13450.f,
- 8.4176e-4f, .22651f, .014704f, -5.7138e-5f, .012449f, -5.5586e-5f,
- 13450.f, 13460.f, .003321f, .26989f, .014889f, -6.1022e-5f, .014319f,
- -6.4594e-5f, 13460.f, 13470.f, .0020184f, .15068f, .014242f,
- -5.0382e-5f, .014352f, -5.2958e-5f, 13470.f, 13480.f, .0034847f,
- .23656f, .01296f, -5.4713e-5f, .011654f, -5.3532e-5f, 13480.f, 13490.f,
- .0051848f, .22152f, .01005f, -4.214e-5f, .010802f, -4.9706e-5f, 13490.f,
- 13500.f, .002246f, .20257f, .011509f, -1.145e-6f, .012567f, -2.9901e-5f,
- 13500.f, 13510.f, .01207f, .22916f, .0070442f, -3.1499e-5f, .0063368f,
- -3.3814e-5f, 13510.f, 13520.f, .011903f, .21411f, .006383f, -2.2698e-5f,
- .0062241f, -2.6759e-5f, 13520.f, 13530.f, .009548f, .21575f, .0044827f,
- -1.1921e-5f, .0055699f, -2.5927e-5f, 13530.f, 13540.f, .011523f,
- .40682f, .0091253f, -1.9397e-5f, .0079449f, -3.2998e-5f, 13540.f,
- 13550.f, .0084497f, .29293f, .0047841f, -1.1629e-5f, .0057988f,
- -2.5164e-5f, 13550.f, 13560.f, .026919f, .27673f, .0019766f,
- -3.7751e-6f, .0016743f, -8.638e-6f, 13560.f, 13570.f, .021945f, .3387f,
- .005114f, 3.7089e-6f, .0063004f, -2.3091e-5f, 13570.f, 13580.f,
- .021982f, .18246f, 3.6494e-4f, 1.1207e-6f, -3.7751e-4f, -1.4267e-6f,
- 13580.f, 13590.f, .010404f, .21217f, .0039463f, 5.5125e-6f, .0030886f,
- -1.2313e-5f, 13590.f, 13600.f, .022785f, .35675f, .0080322f, -4.828e-6f,
- .0057084f, -1.9313e-5f, 13600.f, 13610.f, .021944f, .17661f, .0028308f,
- 8.2581e-6f, .0014574f, -4.9721e-6f, 13610.f, 13620.f, .015009f, .16917f,
- .001106f, 1.4866e-5f, .001036f, -3.5775e-6f, 13620.f, 13630.f, .028056f,
- .27826f, .010985f, -5.284e-5f, .0083121f, -4.5055e-5f, 13630.f, 13640.f,
- .017905f, .21652f, .0091202f, -4.3033e-5f, .0064523f, -3.6725e-5f,
- 13640.f, 13650.f, .040842f, .16141f, .002459f, -4.3246e-6f, 2.4001e-4f,
- -1.8088e-6f, 13650.f, 13660.f, .064344f, .36355f, .002624f, -5.0938e-6f,
- 8.4629e-4f, -7.2912e-6f, 13660.f, 13670.f, .098009f, .46873f, .003736f,
- -2.2472e-5f, .0012376f, -1.8409e-5f, 13670.f, 13680.f, .10223f, .26441f,
- .0043146f, -2.6517e-5f, .003082f, -2.1843e-5f, 13680.f, 13690.f,
- .051383f, .36953f, .0029461f, -4.1201e-6f, .001609f, -1.0556e-5f,
- 13690.f, 13700.f, .079035f, .41629f, .0039863f, -1.0096e-5f, .0020593f,
- -1.5846e-5f, 13700.f, 13710.f, .17862f, .23727f, 7.0664e-4f,
- -1.3429e-5f, -.0024735f, -6.33e-6f, 13710.f, 13720.f, .023457f, .12905f,
- -.0022038f, -1.2856e-6f, -.0036094f, 1.0306e-6f, 13720.f, 13730.f,
- .1498f, .27847f, -7.0337e-4f, -8.8658e-6f, -.0037774f, -2.5192e-6f,
- 13730.f, 13740.f, .15951f, .19705f, -.0012269f, -5.7441e-6f, -.0026138f,
- -3.9795e-6f, 13740.f, 13750.f, .030444f, .2508f, .001339f, -3.667e-6f,
- .0013056f, -7.9865e-6f, 13750.f, 13760.f, .091463f, .42355f, .0015252f,
- -5.082e-6f, 1.0296e-4f, -1.0731e-5f, 13760.f, 13770.f, .055724f,
- .23315f, 5.0264e-4f, -5.1006e-7f, -.0018097f, -3.8866e-6f, 13770.f,
- 13780.f, .20577f, .30719f, -.0013969f, 1.9333e-6f, -.0029895f,
- -5.1114e-7f, 13780.f, 13790.f, .076501f, .36547f, .0034715f,
- -2.4093e-5f, .0010916f, -1.9569e-5f, 13790.f, 13800.f, .26798f, .22416f,
- -.0016316f, -1.9581e-6f, -.0041508f, 1.1385e-6f, 13800.f, 13810.f,
- .20338f, .16881f, -.0022177f, -1.1382e-6f, -.0032452f, -1.5814e-7f,
- 13810.f, 13820.f, .12951f, .12548f, -.0038707f, 6.337e-6f, -.0045229f,
- 6.1639e-6f, 13820.f, 13830.f, .088731f, .17991f, -.0038169f, 7.3459e-6f,
- -.0042642f, 6.6757e-6f, 13830.f, 13840.f, .0067788f, .12625f, .0098132f,
- -4.8875e-5f, .007723f, -4.7347e-5f, 13840.f, 13850.f, .010502f, .21694f,
- 8.6711e-4f, 4.6135e-6f, .0011488f, -8.9674e-6f, 13850.f, 13860.f,
- .04906f, .16058f, -.0030216f, 1.0044e-5f, -.0024328f, 6.7471e-6f,
- 13860.f, 13870.f, .24278f, .15261f, -.0051224f, 8.9719e-6f, -.0065887f,
- 1.2603e-5f, 13870.f, 13880.f, .27304f, .29617f, -.003541f, 3.4588e-6f,
- -.0050128f, 8.099e-6f, 13880.f, 13890.f, .13252f, .25864f, -.0015695f,
- -2.898e-6f, -.002959f, -3.2727e-6f, 13890.f, 13900.f, .27275f, .14969f,
- -.0015578f, -4.3912e-6f, -.0023477f, -2.7675e-6f, 13900.f, 13910.f,
- .28731f, .24848f, -2.6722e-4f, -9.0595e-6f, -.002097f, -6.6308e-6f,
- 13910.f, 13920.f, .20952f, .31628f, .0028828f, -2.1023e-5f, 9.3184e-4f,
- -1.7842e-5f, 13920.f, 13930.f, .12621f, .34509f, .0047187f, -2.6132e-5f,
- .0021269f, -2.2662e-5f, 13930.f, 13940.f, .082581f, .35712f, .0065235f,
- -2.9651e-5f, .0046608f, -2.9306e-5f, 13940.f, 13950.f, .02215f, .56251f,
- .011273f, -2.023e-5f, .0098905f, -3.5866e-5f, 13950.f, 13960.f,
- .013395f, .23595f, .0075697f, -1.1677e-5f, .0047404f, -1.3519e-5f,
- 13960.f, 13970.f, .0097251f, .389f, .0045853f, -4.4223e-6f, .0013332f,
- -8.8812e-6f, 13970.f, 13980.f, .01416f, .3192f, .0014413f, 7.7474e-7f,
- .0010611f, -6.6038e-6f, 13980.f, 13990.f, .0064431f, .38168f, .0021106f,
- -5.5268e-6f, 6.2478e-4f, -4.2781e-6f, 13990.f, 1.4e4f, .0074763f,
- .21449f, 8.6863e-6f, -4.7583e-6f, -.0024648f, -3.1646e-6f, 1.4e4f,
- 14010.f, .0044339f, .31044f, .0062951f, -8.282e-6f, .00239f,
- -1.0886e-5f, 14010.f, 14020.f, .0063698f, .37192f, .0035714f,
- -7.0127e-6f, .0022531f, -1.3753e-5f, 14020.f, 14030.f, .0030618f,
- .32199f, .0067837f, -4.6145e-6f, .0056415f, -1.9199e-5f, 14030.f,
- 14040.f, .0045836f, .19592f, .0034269f, -6.7013e-6f, .0015603f,
- -2.0576e-6f, 14040.f, 14050.f, .0028921f, .26752f, .0054727f,
- -8.232e-6f, .0034172f, -1.6235e-5f, 14050.f, 14060.f, .0083604f, .491f,
- .0036871f, -2.6932e-6f, .0022258f, -1.2432e-5f, 14060.f, 14070.f,
- .0048958f, .40049f, .0028518f, -8.9707e-6f, 7.3805e-4f, -1.0552e-5f,
- 14070.f, 14080.f, .0060175f, .66182f, .0036922f, -1.2082e-5f, .002131f,
- -1.7251e-5f, 14080.f, 14090.f, .0051267f, .30376f, .012373f,
- -5.2388e-5f, .0092416f, -4.9701e-5f, 14090.f, 14100.f, .0051874f,
- .37923f, .0085604f, -3.2476e-5f, .0048279f, -2.831e-5f, 14100.f,
- 14110.f, .0037549f, .24752f, .0026234f, 1.353e-6f, 1.7089e-4f,
- -5.9579e-6f, 14110.f, 14120.f, .008547f, .48393f, .0055118f,
- -1.2616e-5f, .0021682f, -1.5595e-5f, 14120.f, 14130.f, .007167f,
- .42356f, .0073835f, -3.8638e-5f, .0043338f, -3.2395e-5f, 14130.f,
- 14140.f, .0084611f, .31558f, .0047305f, -1.7484e-5f, .0013223f,
- -1.1411e-5f, 14140.f, 14150.f, .0086532f, .27748f, .005894f, -3.133e-5f,
- .0032608f, -2.6952e-5f, 14150.f, 14160.f, .012236f, .32519f, .0020656f,
- -1.1881e-5f, -4.5247e-4f, -1.1093e-5f, 14160.f, 14170.f, .019531f,
- .25874f, .0039764f, -2.6715e-5f, .0012538f, -1.9528e-5f, 14170.f,
- 14180.f, .0057931f, .18836f, .0039509f, -2.0877e-5f, .001896f,
- -1.8677e-5f, 14180.f, 14190.f, .0065709f, .31403f, .0030661f,
- -6.3795e-6f, .0013225f, -1.1966e-5f, 14190.f, 14200.f, .026818f,
- .21236f, .0016226f, -1.6759e-5f, -4.3884e-4f, -1.1258e-5f, 14200.f,
- 14210.f, .0015917f, .17083f, .0098825f, -2.9767e-5f, .0059285f,
- -2.8608e-5f, 14210.f, 14220.f, .036373f, .30478f, 9.7187e-4f,
- -8.1756e-6f, 8.1092e-5f, -1.0434e-5f, 14220.f, 14230.f, .018351f,
- .085618f, -.0015427f, -3.9022e-6f, -.0026215f, 7.5823e-7f, 14230.f,
- 14240.f, .027421f, .1672f, -.0016048f, 1.04e-6f, -.0021918f,
- -7.3937e-7f, 14240.f, 14250.f, .019137f, .34394f, .0054701f,
- -3.1082e-5f, .0021305f, -2.3894e-5f, 14250.f, 14260.f, .011742f,
- .24754f, -.0015398f, 1.4005e-6f, -.0032941f, 1.7021e-7f, 14260.f,
- 14270.f, .030406f, .25107f, -.0021777f, 1.1738e-6f, -.0042308f,
- 1.983e-6f, 14270.f, 14280.f, .02572f, .17272f, .0014929f, -1.7124e-5f,
- -2.0245e-4f, -1.5475e-5f, 14280.f, 14290.f, .023411f, .14155f,
- -.0036159f, 5.4534e-6f, -.0056547f, 8.3323e-6f, 14290.f, 14300.f,
- .050436f, .17597f, -.0035358f, 2.7001e-6f, -.005998f, 7.9894e-6f,
- 14300.f, 14310.f, .010835f, .16074f, -.0023328f, 3.6258e-6f, -.0036191f,
- 6.6611e-7f, 14310.f, 14320.f, .0097229f, .1372f, -.0026043f, 3.3682e-6f,
- -.0039301f, 2.3934e-6f, 14320.f, 14330.f, .0041727f, .26898f,
- 8.9506e-4f, -3.3799e-6f, -8.0987e-4f, -7.4366e-6f, 14330.f, 14340.f,
- .0028313f, .11399f, -.0023514f, 1.9057e-8f, -.0043191f, 3.2086e-6f,
- 14340.f, 14350.f, .0094087f, .13847f, -.0033995f, 5.3082e-6f,
- -.0048841f, 7.2565e-6f, 14350.f, 14360.f, .045453f, .1618f, -.0049821f,
- 9.5517e-6f, -.0062627f, 1.3183e-5f, 14360.f, 14370.f, .05478f, .246f,
- -.003323f, 3.3083e-6f, -.0044595f, 4.3249e-6f, 14370.f, 14380.f,
- .057794f, .29926f, -.0018524f, -2.6891e-6f, -.0034713f, -1.4711e-6f,
- 14380.f, 14390.f, .017789f, .040974f, -5.5041e-4f, -9.0402e-6f,
- -.0019035f, -4.1538e-6f, 14390.f, 14400.f, .066509f, .31802f,
- 1.7874e-4f, -1.0469e-5f, -.0014428f, -9.3839e-6f, 14400.f, 14410.f,
- .033243f, .21287f, .0023294f, -1.8667e-5f, -4.0745e-4f, -1.2383e-5f,
- 14410.f, 14420.f, .030315f, .32935f, .005459f, -3.1244e-5f, .0033095f,
- -2.8644e-5f, 14420.f, 14430.f, .011921f, .16637f, .0064852f,
- -3.2883e-5f, .0040894f, -2.982e-5f, 14430.f, 14440.f, .0035817f,
- .24062f, .010713f, -2.2991e-5f, .0076719f, -3.0879e-5f, 14440.f,
- 14450.f, .0020434f, .09533f, .0074555f, -4.0758e-5f, .003952f,
- -3.2281e-5f, 14450.f, 14460.f, .0019531f, .057626f, .013393f,
- -6.572e-5f, .010648f, -6.0338e-5f, 14460.f, 14470.f, .0015972f,
-
- .063531f, -.0028566f, -9.3552e-7f, -.0057668f, 5.2381e-6f, 14470.f,
- 14480.f, 6.208e-4f, .14581f, -.0038143f, 3.5516e-6f, -.006417f,
- 7.6586e-6f, 14480.f, 14490.f, 2.573e-4f, .034903f, .0017376f,
- -1.9344e-5f, -.0010196f, -1.3792e-5f, 14490.f, 14500.f, 5.8326e-4f,
- .07101f, .0037987f, -2.7471e-5f, .0011761f, -2.2502e-5f, 14500.f,
- 14510.f, 1.981e-4f, .037767f, 5.4219e-4f, -1.4563e-5f, -.002215f,
- -9.0107e-6f, 14510.f, 14520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14520.f,
- 14530.f, 6.1723e-4f, .05996f, .0029608f, -2.3205e-5f, -5.41e-4f,
- -1.4715e-5f, 14530.f, 14540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14540.f,
- 14550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14550.f, 14560.f, 8.7384e-4f,
- .20577f, .001467f, -1.2035e-5f, -.0013037f, -8.5219e-6f, 14560.f,
- 14570.f, 3.6981e-4f, .15319f, .0026086f, 5.1176e-7f, -9.4964e-4f,
- -4.1621e-6f, 14570.f, 14580.f, 5.3062e-4f, .2039f, -9.2668e-4f,
- -1.7265e-6f, -.0025209f, -3.9176e-6f, 14580.f, 14590.f, 2.3625e-4f,
- .10952f, 3.608e-5f, -6.6963e-7f, -.0029777f, -5.5782e-7f, 14590.f,
- 14600.f, 2.5529e-4f, .085175f, .0086357f, -4.5158e-5f, .0055824f,
- -3.9246e-5f, 14600.f, 14610.f, 3.5469e-4f, .17005f, 5.5905e-4f,
- 3.4517e-6f, -.0012201f, -2.0532e-6f, 14610.f, 14620.f, 1.4962e-4f,
- .070668f, 3.6006e-4f, -1.3091e-5f, -.002318f, -8.0334e-6f, 14620.f,
- 14630.f, 1.6283e-4f, .043851f, -.0019069f, -4.7662e-6f, -.0047857f,
- 1.0305e-6f, 14630.f, 14640.f, 3.4849e-4f, .091227f, 1.957e-4f,
- -6.7027e-6f, -.0019067f, -6.8831e-6f, 14640.f, 14650.f, 2.4098e-4f,
- .073915f, 5.8149e-4f, 2.017e-6f, -.0021878f, -6.9336e-7f, 14650.f,
- 14660.f, 1.8929e-4f, .040095f, -9.767e-4f, -8.487e-6f, -.003815f,
- -2.7719e-6f, 14660.f, 14670.f, 2.8551e-4f, .089939f, 9.0134e-4f,
- -1.5963e-5f, -.0017529f, -1.0799e-5f, 14670.f, 14680.f, 1.3624e-4f,
- .063104f, .0051307f, -3.2797e-5f, .002189f, -2.6775e-5f, 14680.f,
- 14690.f, 9.1275e-5f, .031681f, .0031085f, -2.4828e-5f, 3.5131e-4f,
- -1.9276e-5f, 14690.f, 14700.f, 8.8122e-5f, .040141f, .0011384f,
- -1.6948e-5f, -.0017809f, -1.1069e-5f, 14700.f, 14710.f, 0.f, 0.f, 0.f,
- 0.f, 0.f, 0.f, 14710.f, 14720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14720.f,
- 14730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14730.f, 14740.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 14740.f, 14750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14750.f,
- 14760.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14760.f, 14770.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 14770.f, 14780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14780.f, 14790.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 14790.f, 14800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 14800.f,
- 14810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14810.f, 14820.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 14820.f, 14830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14830.f,
- 14840.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14840.f, 14850.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 14850.f, 14860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14860.f, 14870.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 14870.f, 14880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 14880.f,
- 14890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14890.f, 14900.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 14900.f, 14910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14910.f,
- 14920.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14920.f, 14930.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 14930.f, 14940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14940.f, 14950.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 14950.f, 14960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 14960.f,
- 14970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14970.f, 14980.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 14980.f, 14990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14990.f, 1.5e4f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.5e4f, 15010.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 15010.f, 15020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15020.f, 15030.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 15030.f, 15040.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 15040.f,
- 15050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15050.f, 15060.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 15060.f, 15070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15070.f,
- 15080.f,
- 7.1934e-4f, .12682f, .0061012f, 1.5559e-5f, .0027848f, -4.5145e-6f,
- 15080.f, 15090.f, 4.9571e-4f, .13321f, .0050157f, 1.7658e-5f, .0024032f,
- -4.0605e-6f, 15090.f, 15100.f, 2.2621e-4f, .12674f, .016133f,
- -6.1229e-5f, .013281f, -6.2746e-5f, 15100.f, 15110.f, 8.5668e-4f,
- .12425f, .016195f, -7.6668e-5f, .013811f, -7.25e-5f, 15110.f, 15120.f,
- 5.5721e-4f, .11061f, .0048501f, 3.2762e-5f, .0041846f, 4.2515e-7f,
- 15120.f, 15130.f, .0010214f, .16075f, .0077437f, -9.7938e-6f, .0033244f,
- -1.335e-5f, 15130.f, 15140.f, .0037351f, .23141f, .0075468f,
- -1.8073e-5f, .0038208f, -1.7101e-5f, 15140.f, 15150.f, 6.9279e-4f,
- .16527f, .0092564f, -2.4217e-5f, .0059447f, -2.8136e-5f, 15150.f,
- 15160.f, .0020924f, .19937f, .0067646f, -1.9228e-5f, .0021429f,
- -1.4011e-5f, 15160.f, 15170.f, .0029213f, .11019f, .0078105f,
- -4.068e-5f, .0061601f, -3.7164e-5f, 15170.f, 15180.f, .0040031f, .2888f,
- .0050758f, -1.9158e-5f, .0019869f, -1.728e-5f, 15180.f, 15190.f,
- .0024252f, .15747f, .0044234f, -2.0027e-5f, 3.4479e-4f, -1.2338e-5f,
- 15190.f, 15200.f, .0087795f, .14543f, .0042621f, -2.7308e-5f,
- 7.3031e-4f, -1.681e-5f, 15200.f, 15210.f, .0095997f, .374f, .0046013f,
- -2.8568e-5f, .002061f, -2.4098e-5f, 15210.f, 15220.f, 9.5938e-4f,
- .22877f, .0032518f, -1.2364e-5f, .00118f, -1.6396e-5f, 15220.f, 15230.f,
- .0089911f, .27602f, .0015486f, -1.7622e-5f, -7.0027e-4f, -1.3639e-5f,
- 15230.f, 15240.f, .0070384f, .19525f, .0017332f, -1.8418e-5f,
- -.0010753f, -1.2514e-5f, 15240.f, 15250.f, .012889f, .20893f,
- 5.2643e-4f, -8.5726e-6f, -8.0955e-4f, -8.4315e-6f, 15250.f, 15260.f,
- .01071f, .10552f, -.0015016f, -6.0962e-6f, -.0038322f, -1.9428e-6f,
- 15260.f, 15270.f, .011725f, .11142f, -.0024386f, -2.089e-6f, -.0045783f,
- 1.5311e-6f, 15270.f, 15280.f, .0036695f, .13405f, -.0019794f,
- 1.4362e-7f, -.0035859f, 2.0003e-6f, 15280.f, 15290.f, .0038912f,
- .14992f, -3.0601e-5f, 8.2096e-6f, -1.4088e-4f, -1.393e-6f, 15290.f,
- 15300.f
- };
-
- /* WATER VAPOR (12740 - 15280 CM-1) */
- for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
-} /* wava5 */
-
-void
-wava4 (float a[8], const long int inu)
-{
-
-
- static const float acr[2048] = { .037011f, .34865f,
- .0071795f, -2.429e-5f, .0061217f, -2.5788e-5f, 10180.f, 10190.f,
- .096531f, .1963f, .0044353f, -2.7769e-5f, .0020496f, -1.902e-5f,
- 10190.f, 10200.f, .11553f, .22356f, .0057418f, -2.861e-5f, .005252f,
- -3.0274e-5f, 10200.f, 10210.f, .17877f, .25357f, .0036991f, -1.9865e-5f,
- .0035644f, -1.5681e-5f, 10210.f, 10220.f, .094449f, .35387f, .0021016f,
- -1.5037e-5f, 5.8316e-4f, -1.1084e-5f, 10220.f, 10230.f, .079869f,
- .2603f, .0051322f, -2.0923e-5f, .0039204f, -2.2157e-5f, 10230.f,
- 10240.f, .30687f, .32758f, 6.3705e-4f, -9.1396e-6f, 2.5647e-4f,
- -3.6374e-6f, 10240.f, 10250.f, .15358f, .13982f, -8.3666e-4f,
- 3.3048e-6f, .0027185f, 1.2493e-5f, 10250.f, 10260.f, .38232f, .35543f,
- -.0010313f, -1.8768e-6f, -.0016001f, 3.8356e-7f, 10260.f, 10270.f,
- .0562f, .34487f, .0036934f, 7.3751e-6f, .0070064f, -1.2975e-5f, 10270.f,
- 10280.f, .11137f, .21188f, -.0024327f, 1.6553e-5f, -3.0535e-4f,
- 1.9603e-5f, 10280.f, 10290.f, .16704f, .162f, -.0028871f, 9.8108e-6f,
- -4.298e-4f, 1.7309e-5f, 10290.f, 10300.f, .15496f, .19365f, -.0025906f,
- 1.7434e-5f, -3.5463e-4f, 8.1537e-6f, 10300.f, 10310.f, .050239f,
- .44504f, .0082014f, 4.7362e-5f, .0097304f, -1.0209e-5f, 10310.f,
- 10320.f, .21509f, .29651f, -.0021764f, 2.0847e-5f, -2.3124e-4f,
- 1.0958e-5f, 10320.f, 10330.f, .15838f, .17695f, -.0019477f, 2.8641e-6f,
- -.0031011f, 6.2742e-6f, 10330.f, 10340.f, .45807f, .42831f, -4.7039e-5f,
- 1.6616e-5f, .001452f, 6.4036e-6f, 10340.f, 10350.f, .14196f, .4315f,
- .0032845f, 1.8573e-5f, .0044632f, -3.8921e-6f, 10350.f, 10360.f,
- .46768f, .4897f, .0030587f, -9.9296e-6f, .0017377f, -1.2227e-5f,
- 10360.f, 10370.f, .49107f, .45881f, .0017676f, 2.3059e-5f, .0037946f,
- -7.9699e-6f, 10370.f, 10380.f, .40709f, .39513f, .0024501f, 3.4328e-6f,
- .0033911f, -1.6475e-5f, 10380.f, 10390.f, .53368f, .30449f, .002764f,
- 1.6491e-5f, .0031852f, -7.9335e-6f, 10390.f, 10400.f, .50598f, .38596f,
- .0011335f, 7.9179e-6f, .0016436f, -4.2442e-6f, 10400.f, 10410.f,
- .36712f, .58535f, .0035486f, -2.5563e-6f, .0025513f, -1.2028e-5f,
- 10410.f, 10420.f, .98775f, .50104f, .0056199f, -1.6902e-5f, .0043563f,
- -2.6045e-5f, 10420.f, 10430.f, .76493f, .41145f, .0027287f, -1.2684e-5f,
- 9.6642e-4f, -1.2013e-5f, 10430.f, 10440.f, .4518f, .45681f, .0055394f,
- -1.8929e-5f, .0049043f, -2.5553e-5f, 10440.f, 10450.f, .93845f, .25977f,
- .0063165f, -3.3633e-5f, .0030572f, -2.3591e-5f, 10450.f, 10460.f,
- 1.0799f, .52983f, .0049753f, -2.2413e-5f, .0037285f, -1.9018e-5f,
- 10460.f, 10470.f, 1.9954f, .24666f, .0043881f, -2.9035e-5f, .0020409f,
- -2.1664e-5f, 10470.f, 10480.f, .53954f, .3608f, .0038367f, -2.492e-5f,
- .0016345f, -2.0659e-5f, 10480.f, 10490.f, 1.9042f, .28357f, .0020331f,
- -1.9809e-5f, 1.178e-4f, -1.5063e-5f, 10490.f, 10500.f, 1.3639f, .41799f,
- .0017903f, -1.4939e-5f, 7.7921e-4f, -1.3895e-5f, 10500.f, 10510.f,
- .27245f, .53566f, .0028306f, -2.1067e-6f, .0041171f, -1.2108e-5f,
- 10510.f, 10520.f, 4.225f, .34405f, -9.2601e-4f, -5.8016e-6f, -.0020236f,
- -9.379e-7f, 10520.f, 10530.f, .41591f, .38497f, .004158f, 5.6585e-6f,
- .0031671f, -1.1552e-5f, 10530.f, 10540.f, 2.4868f, .21796f, -.0020342f,
- 2.1116e-6f, -.0020977f, 3.2759e-6f, 10540.f, 10550.f, .9442f, .51349f,
- .0018825f, 2.2079e-6f, .0015856f, -8.8233e-6f, 10550.f, 10560.f, 2.139f,
- .25647f, -.0019634f, 7.9808e-6f, -.0024854f, 4.6652e-6f, 10560.f,
- 10570.f, 1.3917f, .33676f, .0035449f, -2.0344e-5f, 3.2271e-4f,
- -1.2565e-5f, 10570.f, 10580.f, 5.9303f, .30084f, 1.3471e-4f,
- -5.1658e-6f, -.0018823f, -4.8751e-6f, 10580.f, 10590.f, 1.0087f,
- .13259f, -.0014095f, -4.7735e-6f, -.0024541f, 2.6832e-6f, 10590.f,
- 10600.f, 4.3983f, .19046f, -.0034725f, 2.4224e-6f, -.0053127f,
- 7.1676e-6f, 10600.f, 10610.f, .96572f, .30982f, -.0027372f, 6.8946e-6f,
- -.0023672f, 8.3925e-6f, 10610.f, 10620.f, .91323f, .32206f, -.0024872f,
- 3.2962e-6f, -.0026005f, 2.0821e-6f, 10620.f, 10630.f, .64383f, .32142f,
- -.0040036f, 1.1751e-5f, -.0046913f, 1.096e-5f, 10630.f, 10640.f,
- .20419f, .32226f, -.0010057f, 3.7593e-7f, -.0012761f, -1.9796e-6f,
- 10640.f, 10650.f, 3.2582f, .41089f, -.0042525f, 1.1056e-5f, -.003553f,
- 1.043e-5f, 10650.f, 10660.f, 4.0011f, .26987f, -.0041265f, 6.8604e-6f,
- -.0047731f, 8.9525e-6f, 10660.f, 10670.f, 2.3087f, .2861f, -.0029291f,
- 1.5494e-6f, -.0036647f, 3.1219e-6f, 10670.f, 10680.f, 5.0379f, .43636f,
- -4.8143e-4f, 6.8393e-6f, -.0011602f, 8.769e-7f, 10680.f, 10690.f,
- 3.4572f, .24029f, -3.8723e-4f, -8.7391e-6f, -4.4231e-4f, -7.617e-6f,
- 10690.f, 10700.f, 3.4164f, .31894f, 5.1822e-4f, -9.7127e-6f,
- -8.7127e-5f, -1.1526e-5f, 10700.f, 10710.f, 1.9975f, .24091f, .0020391f,
- -1.8108e-5f, 8.1249e-4f, -1.3281e-5f, 10710.f, 10720.f, 1.8993f,
- .38637f, .0046303f, -2.5016e-5f, .0035053f, -2.2372e-5f, 10720.f,
- 10730.f, 1.958f, .33984f, .0057686f, -3.2398e-5f, .0041169f, -2.863e-5f,
- 10730.f, 10740.f, .56316f, .41883f, .011363f, -4.522e-5f, .0082366f,
- -3.7842e-5f, 10740.f, 10750.f, .35401f, .69851f, .010496f, -2.1851e-5f,
- .0066866f, -2.4626e-5f, 10750.f, 10760.f, .19707f, .69982f, .010773f,
- -9.278e-6f, .0083529f, -1.8664e-5f, 10760.f, 10770.f, .2189f, .61722f,
- .0026481f, 1.4368e-5f, .0037728f, -1.6702e-7f, 10770.f, 10780.f,
-
- .055267f, .6593f, .007075f, 3.4583e-6f, .0056327f, -1.8713e-5f, 10780.f,
- 10790.f, .082626f, .56771f, .0014488f, 9.0784e-6f, .0015016f,
- -4.5502e-6f, 10790.f, 10800.f, .070929f, .31037f, 3.4662e-6f,
- 4.3968e-6f, -6.1123e-4f, -1.1496e-7f, 10800.f, 10810.f, .097418f,
- .44409f, -3.1642e-4f, 5.1491e-6f, -.0010289f, -1.8238e-6f, 10810.f,
- 10820.f, .084947f, .43514f, .0039381f, -1.2895e-6f, .0026186f,
- -1.3069e-5f, 10820.f, 10830.f, .05826f, .18252f, .0019735f, -6.3696e-6f,
- -5.8857e-4f, -5.1048e-6f, 10830.f, 10840.f, .11036f, .40791f, .0027504f,
- 5.4669e-6f, .0010814f, -7.3999e-6f, 10840.f, 10850.f, .063822f, .3839f,
- .0050367f, -2.0231e-5f, .0028937f, -1.8685e-5f, 10850.f, 10860.f,
- .010028f, .29145f, .0059963f, -2.3315e-5f, .0034252f, -2.032e-5f,
- 10860.f, 10870.f, .12414f, .24481f, .0065529f, -3.7402e-5f, .0035139f,
- -3.0249e-5f, 10870.f, 10880.f, .14508f, .36269f, -3.4622e-4f,
- 7.2138e-6f, -3.3853e-4f, 7.4773e-7f, 10880.f, 10890.f, .32952f, .51235f,
- .001156f, -9.9464e-6f, -.0017097f, -6.9684e-6f, 10890.f, 10900.f,
- .081689f, .43746f, .002472f, -8.5593e-6f, 8.107e-4f, -1.0007e-5f,
- 10900.f, 10910.f, .36297f, .47635f, -7.551e-4f, 3.2155e-6f, -.001416f,
- 1.3385e-6f, 10910.f, 10920.f, .21833f, .56037f, .0015815f, -1.3282e-5f,
- 2.7446e-4f, -1.2751e-5f, 10920.f, 10930.f, .062283f, .46899f, .003716f,
- 9.7049e-7f, .0030288f, -1.3634e-5f, 10930.f, 10940.f, .49012f, .36842f,
- -8.7423e-4f, -6.7163e-6f, -.0022164f, -2.6838e-6f, 10940.f, 10950.f,
- .14742f, .42276f, .0021422f, 5.937e-6f, 8.8387e-4f, -6.8671e-6f,
- 10950.f, 10960.f, .281f, .22881f, -.0022496f, -9.4548e-7f, -.0031883f,
- 4.4808e-7f, 10960.f, 10970.f, .22513f, .41493f, .0036269f, -1.6185e-5f,
- .0017037f, -1.7793e-5f, 10970.f, 10980.f, .21994f, .21688f, -.0036261f,
- 5.7974e-6f, -.0041527f, 8.0739e-6f, 10980.f, 10990.f, .14084f, .33322f,
- 1.3752e-4f, -6.2038e-6f, -.0011146f, -6.0724e-6f, 10990.f, 1.1e4f,
- .323f, .17636f, -.0013536f, -5.8665e-7f, -.0024854f, -3.0662e-7f,
- 1.1e4f, 11010.f, .4018f, .22575f, -.0022932f, -2.3319e-6f, -.0044015f,
- 2.451e-6f, 11010.f, 11020.f, .40187f, .17827f, -.0028707f, 1.5665e-6f,
- -.0044357f, 3.1485e-6f, 11020.f, 11030.f, .096411f, .21466f, -.0022778f,
- 4.124e-6f, -.0027585f, 2.0224e-6f, 11030.f, 11040.f, .096343f, .15703f,
- -.0022356f, 1.5369e-6f, -.0030654f, -3.2505e-7f, 11040.f, 11050.f,
- .079848f, .17965f, -.0020125f, 9.6504e-6f, -.00326f, 5.3659e-6f,
- 11050.f, 11060.f, .062139f, .10557f, -.0040683f, 9.3909e-6f, -.0047053f,
- 1.0347e-5f, 11060.f, 11070.f, .25071f, .1119f, -.0048932f, 9.8071e-6f,
- -.0052555f, 9.7232e-6f, 11070.f, 11080.f, .50363f, .18561f, -.0040852f,
- 4.7194e-6f, -.0061085f, 9.9471e-6f, 11080.f, 11090.f, .23621f, .35575f,
- -6.9998e-4f, -3.8983e-7f, -7.4838e-4f, -6.3021e-6f, 11090.f, 11100.f,
- .41715f, .20786f, -.0026671f, -8.5957e-7f, -.0044855f, 3.6346e-6f,
- 11100.f, 11110.f, .35497f, .15568f, -2.0655e-4f, -1.0414e-5f,
- -.0019241f, -7.491e-6f, 11110.f, 11120.f, .36391f, .22115f, 8.0888e-5f,
- -8.0079e-6f, -7.2043e-4f, -8.8371e-6f, 11120.f, 11130.f, .239f, .19893f,
- .0017314f, -1.745e-5f, -7.2547e-4f, -1.0781e-5f, 11130.f, 11140.f,
- .18535f, .23329f, .0044356f, -2.4159e-5f, .002562f, -2.1329e-5f,
- 11140.f, 11150.f, .18058f, .20287f, .0053731f, -2.948e-5f, .0026609f,
- -2.2876e-5f, 11150.f, 11160.f, .086563f, .18472f, .0071342f,
- -3.4497e-5f, .0062094f, -3.7103e-5f, 11160.f, 11170.f, .040545f,
- .27173f, .012595f, -5.3501e-5f, .0098569f, -5.1164e-5f, 11170.f,
- 11180.f, .015934f, .21414f, .021094f, -9.1779e-5f, .018771f,
- -8.8619e-5f, 11180.f, 11190.f, .032149f, .20819f, .0053736f, 4.7418e-6f,
- .0028308f, -3.9739e-6f, 11190.f, 11200.f, .0033026f, .1125f, -.0049337f,
- 8.3861e-6f, -.0074414f, 1.2308e-5f, 11200.f, 11210.f, .0069621f,
- .11936f, .002482f, 1.4188e-5f, .0041457f, -7.6324e-6f, 11210.f, 11220.f,
- .0018624f, .073437f, .0037334f, 6.4996e-5f, .0021277f, 2.507e-5f,
- 11220.f, 11230.f, .0056133f, .14671f, 5.7744e-4f, -1.0633e-5f,
- -.0020996f, -6.969e-6f, 11230.f, 11240.f, 5.9301e-4f, .13188f,
- .0043109f, -2.7217e-5f, .0014102f, -2.1872e-5f, 11240.f, 11250.f,
- .0062071f, .08021f, .0031276f, -2.2059e-5f, 6.1977e-4f, -1.6464e-5f,
- 11250.f, 11260.f, 7.0445e-4f, .090176f, .006354f, -1.7728e-5f,
- .0035488f, -2.1566e-5f, 11260.f, 11270.f, .0024343f, .082442f,
- -1.2318e-4f, -1.1355e-5f, -.0023203f, -8.0507e-6f, 11270.f, 11280.f,
- .0053124f, .10493f, .002512f, -2.1412e-5f, -2.5472e-4f, -1.6312e-5f,
- 11280.f, 11290.f, .0010156f, .075674f, .0067257f, -3.904e-5f, .0037539f,
- -3.2659e-5f, 11290.f, 11300.f, 4.5845e-4f, .031771f, .0083901f,
- -4.5954e-5f, .005633f, -4.0402e-5f, 11300.f, 11310.f, .0013128f, .1362f,
- .0032287f, -2.4445e-5f, 6.7354e-4f, -2.006e-5f, 11310.f, 11320.f,
- 9.1527e-4f, .043387f, .013028f, -6.4031e-5f, .010684f, -6.015e-5f,
- 11320.f, 11330.f, .0016381f, .11364f, .0082323f, -4.1843e-5f, .0046964f,
- -3.5054e-5f, 11330.f, 11340.f, 8.2138e-4f, .051673f, .0074756f,
- -4.1981e-5f, .0051092f, -3.7995e-5f, 11340.f, 11350.f, 8.2766e-4f,
- .072646f, .0053277f, -3.266e-5f, .0034473f, -3.0783e-5f, 11350.f,
- 11360.f, 2.9086e-4f, .031771f, .0094981f, -5.0386e-5f, .0067409f,
- -4.4834e-5f, 11360.f, 11370.f, 2.1807e-4f, .058942f, .015709f,
- -5.9258e-5f, .013592f, -6.3956e-5f, 11370.f, 11380.f, 6.2704e-4f,
- .12257f, .010699f, -4.9284e-5f, .0095849f, -5.3234e-5f, 11380.f,
- 11390.f, 1.0702e-4f, .028818f, .0079994f, -4.4391e-5f, .0052422f,
- -3.8839e-5f, 11390.f, 11400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11400.f,
- 11410.f, 2.2042e-4f, .065689f, .016094f, -7.5895e-5f, .013589f,
- -7.1741e-5f, 11410.f, 11420.f, 8.1809e-5f, .030563f, .019812f,
- -9.1641e-5f, .017055f, -8.6089e-5f, 11420.f, 11430.f, 0.f, 0.f, 0.f, 0.f,
- 0.f, 0.f, 11430.f, 11440.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11440.f,
- 11450.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11450.f, 11460.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 11460.f, 11470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11470.f, 11480.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 11480.f, 11490.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 11490.f,
- 11500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11500.f, 11510.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 11510.f, 11520.f, 6.8748e-6f, .028818f, .014135f, -6.8935e-5f,
- .011378f, -6.3383e-5f, 11520.f, 11530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 11530.f, 11540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11540.f, 11550.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 11550.f, 11560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 11560.f,
- 11570.f, 1.1592e-5f, .037767f, .0031085f, -2.4828e-5f, 3.5131e-4f,
- -1.9276e-5f, 11570.f, 11580.f, 1.2377e-4f, .091349f, .012838f,
- -3.6325e-5f, .0084626f, -3.8447e-5f, 11580.f, 11590.f, 0.f, 0.f, 0.f, 0.f,
- 0.f, 0.f, 11590.f, 11600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11600.f,
- 11610.f,
- 2.7776e-4f, .099768f, .016197f, -7.1636e-5f, .012877f, -6.2598e-5f,
- 11610.f, 11620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11620.f, 11630.f,
- 6.0387e-4f, .079303f, .011427f, -5.6399e-5f, .0076314f, -4.5247e-5f,
- 11630.f, 11640.f, 8.3575e-5f, .082334f, .015996f, -7.3351e-5f, .013978f,
- -7.131e-5f, 11640.f, 11650.f, 2.7734e-4f, .028818f, .012698f,
- -6.3185e-5f, .0099405f, -5.7633e-5f, 11650.f, 11660.f, .0013776f,
- .1275f, .0089606f, -4.0931e-5f, .006208f, -3.6077e-5f, 11660.f, 11670.f,
- 4.5458e-4f, .05909f, .0073062f, -4.1015e-5f, .0053622f, -3.8549e-5f,
- 11670.f, 11680.f, .0019815f, .15477f, .006225f, -3.2087e-5f, .0049876f,
- -3.2313e-5f, 11680.f, 11690.f, 9.9572e-4f, .08831f, .0056347f,
- -2.7093e-5f, .0037058f, -2.8108e-5f, 11690.f, 11700.f, .0025341f,
- .10399f, .0032192f, -2.1942e-5f, .0010784f, -1.8674e-5f, 11700.f,
- 11710.f, .001691f, .18929f, .0042421f, -2.4597e-5f, .0031654f,
- -2.3807e-5f, 11710.f, 11720.f, .001706f, .12598f, 6.5013e-4f,
- -1.3447e-5f, -.0021977f, -8.4803e-6f, 11720.f, 11730.f, .0032703f,
- .1478f, .0014549f, -1.0754e-5f, 3.5403e-4f, -1.3234e-5f, 11730.f,
- 11740.f, .0055601f, .15726f, -.0020459f, -2.8933e-6f, -.0040613f,
- 2.3816e-6f, 11740.f, 11750.f, .0023988f, .10521f, -8.9604e-5f,
- -8.9256e-6f, -.0019341f, -4.1252e-6f, 11750.f, 11760.f, .0021014f,
- .20346f, .001557f, -3.876e-7f, 4.2674e-4f, -7.4882e-6f, 11760.f,
- 11770.f, .0044559f, .17649f, -.0026665f, 2.6782e-6f, -.0043678f,
- 1.1412e-5f, 11770.f, 11780.f, .0024355f, .1438f, -.0030347f, 1.3498e-5f,
- -.0029099f, 8.3348e-6f, 11780.f, 11790.f, .0012088f, .14652f, .0043364f,
- -2.3499e-5f, .004136f, -2.5136e-5f, 11790.f, 11800.f, 3.5615e-4f,
- .076935f, -4.1654e-4f, 1.6868e-5f, -3.6975e-4f, 6.6392e-6f, 11800.f,
- 11810.f, .0033205f, .14642f, -.0022883f, 1.5563e-5f, -.0011424f,
- 6.601e-6f, 11810.f, 11820.f, 9.6482e-4f, .11674f, -.0020293f,
- 3.3475e-5f, .0018153f, 1.8034e-5f, 11820.f, 11830.f, .0025468f, .23891f,
- -3.7386e-4f, 2.5112e-5f, -7.037e-4f, 1.2657e-5f, 11830.f, 11840.f,
- .003978f, .19525f, .0017761f, 1.7009e-5f, .0028654f, 9.7695e-7f,
- 11840.f, 11850.f, .009308f, .22287f, -.0028141f, 6.1915e-6f, -.0035846f,
- 9.0001e-6f, 11850.f, 11860.f, .0011913f, .14817f, .0011043f, 4.7279e-5f,
- .0021704f, 1.6632e-5f, 11860.f, 11870.f, .010095f, .3319f, -3.025e-4f,
- 2.7919e-5f, 4.6706e-4f, 1.3481e-5f, 11870.f, 11880.f, .0094837f,
- .29542f, .0041573f, -4.5489e-6f, .0046629f, -1.3608e-5f, 11880.f,
- 11890.f, .0057807f, .16128f, .0022948f, 3.093e-5f, .0032856f,
- 7.3247e-6f, 11890.f, 11900.f, .0090317f, .33992f, .0064901f, 1.3104e-5f,
- .0058385f, -1.237e-5f, 11900.f, 11910.f, .0034946f, .17472f, 9.0274e-4f,
- 9.569e-6f, 7.5517e-4f, 7.6716e-7f, 11910.f, 11920.f, .010712f, .34337f,
- .0057845f, 3.273e-6f, .0051567f, -1.5291e-5f, 11920.f, 11930.f,
- .018599f, .48317f, .010589f, -3.4336e-5f, .0073964f, -3.6504e-5f,
- 11930.f, 11940.f, .011137f, .31418f, .0088066f, -1.9115e-5f, .0066643f,
- -2.5755e-5f, 11940.f, 11950.f, .014277f, .15769f, .010665f, -4.2217e-5f,
- .0066305f, -3.2258e-5f, 11950.f, 11960.f, .027875f, .26865f, .010692f,
- -4.8825e-5f, .007738f, -4.3664e-5f, 11960.f, 11970.f, .012682f, .20777f,
- .010603f, -4.8734e-5f, .0081358f, -4.1884e-5f, 11970.f, 11980.f,
- .036127f, .20496f, .0077739f, -4.0475e-5f, .0055098f, -3.2025e-5f,
- 11980.f, 11990.f, .026197f, .26047f, .0093353f, -4.7349e-5f, .0069758f,
- -4.2653e-5f, 11990.f, 1.2e4f, .031642f, .28308f, .0072441f, -3.3775e-5f,
- .0041744f, -2.7701e-5f, 1.2e4f, 12010.f, .13538f, .163f, .0042895f,
- -2.9341e-5f, .001443f, -2.3228e-5f, 12010.f, 12020.f, .04616f, .26257f,
- .0059122f, -3.4545e-5f, .0033253f, -2.959e-5f, 12020.f, 12030.f,
- .098778f, .16239f, .0019096f, -1.947e-5f, 1.9375e-4f, -1.6507e-5f,
- 12030.f, 12040.f, .04218f, .15687f, .0011607f, -1.5189e-5f, 3.26e-4f,
- -1.0808e-5f, 12040.f, 12050.f, .081749f, .1447f, .0019087f, -1.8894e-5f,
- 4.6347e-5f, -1.5861e-5f, 12050.f, 12060.f, .14244f, .15544f,
- -4.8204e-4f, -1.0055e-5f, -.0030791f, -4.5136e-6f, 12060.f, 12070.f,
- .15967f, .14014f, -.0015241f, -6.1008e-6f, -.0038422f, -1.2202e-6f,
- 12070.f, 12080.f, .14263f, .16924f, -.0025815f, -1.3799e-6f, -.0046065f,
- 2.7252e-6f, 12080.f, 12090.f, .028755f, .09297f, -.0034559f, 3.6475e-6f,
- -.0038455f, 8.6258e-6f, 12090.f, 12100.f, .13867f, .13244f, -.0035649f,
- 5.23e-6f, -.0053551f, 8.6133e-6f, 12100.f, 12110.f, .022667f, .083805f,
- -.00172f, -3.4708e-6f, -.0030806f, 3.0367e-6f, 12110.f, 12120.f,
- .092398f, .11619f, -.0042643f, 1.2112e-5f, -.0033307f, 1.1625e-5f,
- 12120.f, 12130.f, .036116f, .2779f, .0029762f, 1.3854e-6f, .0042021f,
- -1.2139e-5f, 12130.f, 12140.f, .44373f, .46666f, 3.1523e-4f,
- -3.0509e-6f, -2.0293e-4f, -7.5095e-6f, 12140.f, 12150.f, .27187f,
- .27772f, -.0011411f, 1.4254e-6f, -.001681f, -8.1908e-7f, 12150.f,
- 12160.f, .051449f, .10126f, -.0037317f, 6.5728e-6f, -.0032342f,
- 1.2751e-5f, 12160.f, 12170.f, .038984f, .17694f, -.0039312f, 1.3072e-5f,
- -.0033739f, 1.401e-5f, 12170.f, 12180.f, .0044227f, .11724f, .0062039f,
- -3.2339e-5f, .0022912f, -2.0596e-5f, 12180.f, 12190.f, .18992f, .14819f,
- -.0050473f, 8.811e-6f, -.0068829f, 1.2852e-5f, 12190.f, 12200.f,
- .25583f, .13027f, -.0044286f, 5.7917e-6f, -.0063447f, 9.414e-6f,
- 12200.f, 12210.f, .13625f, .18565f, -.0034046f, 2.2857e-6f, -.0050965f,
- 6.4148e-6f, 12210.f, 12220.f, .29053f, .22511f, -.0027471f, -8.8244e-7f,
- -.0045852f, 2.3044e-6f, 12220.f, 12230.f, .19038f, .14946f, -6.8588e-4f,
- -9.3784e-6f, -.0027488f, -5.0351e-6f, 12230.f, 12240.f, .33873f,
- .28292f, -1.0104e-4f, -1.0239e-5f, -.0013958f, -9.0346e-6f, 12240.f,
- 12250.f, .1325f, .17121f, .0024653f, -1.9723e-5f, 1.8597e-4f,
- -1.4634e-5f, 12250.f, 12260.f, .12157f, .37106f, .0037908f, -2.2351e-5f,
- .0010325f, -1.6657e-5f, 12260.f, 12270.f, .07651f, .16258f, .0034104f,
- -2.3774e-5f, .0018529f, -2.1863e-5f, 12270.f, 12280.f, .07529f, .33562f,
- .0076059f, -3.4182e-5f, .0052641f, -3.0402e-5f, 12280.f, 12290.f,
- .060409f, .25407f, .0068386f, -2.9386e-5f, .0061709f, -2.8132e-5f,
- 12290.f, 12300.f, .027161f, .42647f, .0097512f, -3.3363e-5f, .0063871f,
- -3.1407e-5f, 12300.f, 12310.f, .009111f, .28999f, .010916f, -3.5531e-5f,
- .0085325f, -3.6715e-5f, 12310.f, 12320.f, .019913f, .33483f, .0088198f,
- -1.1414e-5f, .0072926f, -2.8077e-5f, 12320.f, 12330.f, .0081899f,
- .31312f, .014481f, -5.2817e-5f, .010281f, -4.4189e-5f, 12330.f, 12340.f,
- .0047198f, .32687f, .0079614f, 6.2153e-6f, .0072159f, -1.9264e-5f,
- 12340.f, 12350.f, .011347f, .34063f, .002382f, 2.8934e-5f, .0025122f,
- 2.6528e-6f, 12350.f, 12360.f, .0035162f, .2474f, .0064215f, -4.522e-6f,
- .0068198f, -2.2326e-5f, 12360.f, 12370.f, .0045582f, .33334f, .0040843f,
- -6.8827e-6f, .0026935f, -1.6936e-5f, 12370.f, 12380.f, .0025789f,
- .33203f, .004947f, -1.6065e-5f, .003438f, -2.2968e-5f, 12380.f, 12390.f,
- .0045336f, .2043f, .0047629f, -2.7839e-5f, .0025633f, -2.4703e-5f,
- 12390.f, 12400.f, .0030244f, .20516f, .0081732f, -4.1804e-5f, .0046359f,
- -2.9989e-5f, 12400.f, 12410.f, .0041242f, .23106f, .0057501f,
- -3.1437e-5f, .0034257f, -2.8835e-5f, 12410.f, 12420.f, .010287f,
- .33673f, .0041222f, -2.574e-5f, .0014121f, -2.0905e-5f, 12420.f,
- 12430.f, .0052103f, .19644f, .0037193f, -2.6341e-5f, 9.394e-4f,
- -2.0581e-5f, 12430.f, 12440.f, 2.2877e-4f, .12174f, .0092724f,
- -4.5126e-5f, .0056853f, -3.7747e-5f, 12440.f, 12450.f, .015209f,
- .45993f, .0011296f, -1.4042e-5f, -.0011241f, -1.1493e-5f, 12450.f,
- 12460.f, .005545f, .1911f, .0015443f, -1.3043e-5f, -3.2861e-4f,
- -1.1764e-5f, 12460.f, 12470.f, .011275f, .1922f, 7.547e-5f, -1.0276e-5f,
- -.0020095f, -7.6051e-6f, 12470.f, 12480.f, .014331f, .19322f,
- -.0010929f, -7.1557e-6f, -.0030976f, -4.5871e-6f, 12480.f, 12490.f,
- .013106f, .20676f, -.0021472f, -1.689e-6f, -.00333f, -4.7675e-7f,
- 12490.f, 12500.f, .0031859f, .26518f, .0018883f, -3.7481e-6f,
- 4.5064e-5f, -1.1501e-5f, 12500.f, 12510.f, .0066833f, .21228f,
- -.0021409f, 4.8505e-6f, -.0028895f, 4.0738e-6f, 12510.f, 12520.f,
- .011966f, .28263f, -.0013922f, 6.3802e-6f, -7.3809e-4f, -1.1743e-6f,
- 12520.f, 12530.f, .0040664f, .24183f, .0035636f, -2.8875e-6f, .0022372f,
- -1.6411e-5f, 12530.f, 12540.f, .014346f, .3851f, 2.0035e-4f, 3.7739e-6f,
- -6.1012e-5f, -7.988e-6f, 12540.f, 12550.f, .031841f, .37389f,
- -.0014467f, -2.5515e-6f, -.0036219f, -9.456e-7f, 12550.f, 12560.f,
- .014117f, .15375f, -.0027582f, 1.5847e-6f, -.0042341f, 5.2506e-6f,
- 12560.f, 12570.f, .0069458f, .17261f, -.0018858f, -1.3771e-6f,
- -.0038705f, 1.8317e-6f, 12570.f, 12580.f, .0034163f, .16476f,
- -.0038874f, 8.9594e-6f, -.004751f, 6.5193e-6f, 12580.f, 12590.f,
- .0010085f, .13402f, 8.9094e-4f, -6.018e-6f, -6.4581e-6f, -9.4409e-6f,
- 12590.f, 12600.f, .017942f, .20327f, -.0039862f, 7.5053e-6f, -.0052785f,
- 7.3576e-6f, 12600.f, 12610.f, .0080749f, .061138f, -.0049341f,
- 7.5781e-6f, -.0072374f, 1.1499e-5f, 12610.f, 12620.f, .022511f, .21226f,
- -.0034799f, 3.196e-6f, -.0050773f, 6.2716e-6f, 12620.f, 12630.f,
- .0091364f, .16111f, -.0029375f, 2.6306e-7f, -.0049473f, 4.3965e-6f,
- 12630.f, 12640.f, .014688f, .1553f, -.0020029f, -2.3192e-6f, -.0029945f,
- -2.1575e-6f, 12640.f, 12650.f, .016309f, .20204f, 1.6988e-6f,
- -1.109e-5f, -.0014702f, -9.9629e-6f, 12650.f, 12660.f, .028046f,
- .24162f, 2.1643e-4f, -1.1209e-5f, -.0017491f, -8.904e-6f, 12660.f,
- 12670.f, .011289f, .29319f, .0034128f, -2.3021e-5f, .0010846f,
- -1.8419e-5f, 12670.f, 12680.f, .0049531f, .14498f, .0053073f,
- -2.8791e-5f, .0032927f, -2.5157e-5f, 12680.f, 12690.f, .0072485f,
- .17855f, .0056992f, -3.2465e-5f, .0041153f, -3.2129e-5f, 12690.f,
- 12700.f, .0061604f, .2478f, .0073217f, -3.1129e-5f, .0058029f,
- -3.2007e-5f, 12700.f, 12710.f, .0013393f, .12405f, .012672f,
- -4.8102e-5f, .0088276f, -3.9342e-5f, 12710.f, 12720.f, .0010615f,
- .14687f, .012203f, -5.0558e-5f, .01058f, -5.4423e-5f, 12720.f, 12730.f,
- 4.7236e-4f, .080989f, .0036212f, 3.4855e-5f, .0023529f, 7.9526e-6f,
- 12730.f, 12740.f
- };
-
- /* WATER VAPOR (10180 - 12720 CM-1) */
- for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
-} /* wava4 */
-
-void
-wava3 (float a[8], const long int inu)
-{
-
-
- static const float acr[2048] = { .092641f, .26739f,
- .0074828f, -3.6295e-5f, .0065918f, -3.6255e-5f, 7620.f, 7630.f, .24311f,
- .19859f, .0029686f, -1.983e-5f, .0023399f, -1.6807e-5f, 7630.f, 7640.f,
- .12025f, .11463f, .005982f, -3.2695e-5f, .00555f, -2.817e-5f, 7640.f,
- 7650.f, .13658f, .26836f, .0072502f, -2.1381e-5f, .0073061f,
- -3.0405e-5f, 7650.f, 7660.f, .10472f, .25523f, .0079597f, -3.2676e-5f,
- .0058214f, -3.1308e-5f, 7660.f, 7670.f, .099714f, .25003f, .012338f,
- -5.6896e-5f, .010569f, -5.1734e-5f, 7670.f, 7680.f, .058366f, .22207f,
- .011694f, -5.1427e-5f, .011909f, -4.905e-5f, 7680.f, 7690.f, .035387f,
- .17329f, .016862f, -7.5246e-5f, .013502f, -6.3311e-5f, 7690.f, 7700.f,
- .036568f, .21034f, .0081374f, -2.4226e-5f, .0063861f, -2.5253e-5f,
- 7700.f, 7710.f, .027597f, .33962f, .017925f, -6.8929e-5f, .015283f,
- -6.6807e-5f, 7710.f, 7720.f, .010316f, .41286f, .019917f, -4.8503e-5f,
- .017007f, -5.8717e-5f, 7720.f, 7730.f, .0081553f, .2556f, .021997f,
- -8.8437e-5f, .020546f, -8.5162e-5f, 7730.f, 7740.f, .015975f, .21315f,
- .0071481f, 3.1142e-6f, .010474f, -1.3461e-5f, 7740.f, 7750.f, .013868f,
- .24329f, .0094502f, -1.8614e-5f, .010702f, -3.4118e-5f, 7750.f, 7760.f,
- .0077141f, .22964f, .011399f, -1.0108e-5f, .012776f, -3.7304e-5f,
- 7760.f, 7770.f, .0021739f, .34321f, .019734f, -5.1909e-5f, .019414f,
- -7.3442e-5f, 7770.f, 7780.f, .004572f, .18176f, .010354f, -1.7399e-5f,
- .010948f, -3.5358e-5f, 7780.f, 7790.f, .0011295f, .18695f, .014646f,
- 4.036e-5f, .015891f, -2.0174e-5f, 7790.f, 7800.f, .0033023f, .15293f,
- .013409f, -5.3371e-5f, .011569f, -4.7548e-5f, 7800.f, 7810.f, .0052016f,
- .24404f, .012628f, -3.6541e-5f, .01295f, -3.8949e-5f, 7810.f, 7820.f,
- 1.133e-4f, .081552f, .01837f, -7.7312e-5f, .014695f, -7.0503e-5f,
- 7820.f, 7830.f, .0054995f, .14297f, .0065566f, -2.675e-5f, .0045262f,
- -2.0113e-5f, 7830.f, 7840.f, 3.1204e-4f, .10156f, .0088239f,
- -3.8012e-5f, .0082963f, -3.4068e-5f, 7840.f, 7850.f, .0019523f, .20697f,
- .02048f, -6.0781e-5f, .018775f, -6.9708e-5f, 7850.f, 7860.f, .0024757f,
- .09698f, .011294f, -4.651e-5f, .0098378f, -4.2459e-5f, 7860.f, 7870.f,
- 2.7171e-4f, .14226f, .017805f, -6.9496e-5f, .015097f, -7.0161e-5f,
- 7870.f, 7880.f, .0012276f, .10591f, .014194f, -5.4065e-5f, .010612f,
- -5.2507e-5f, 7880.f, 7890.f, 4.1923e-4f, .13358f, .01696f, -4.4025e-5f,
- .015096f, -5.8421e-5f, 7890.f, 7900.f, 3.3444e-4f, .13345f, .011391f,
- -1.184e-6f, .012153f, -2.3277e-5f, 7900.f, 7910.f, .0013058f, .21624f,
- .016927f, -6.9213e-5f, .013941f, -6.3876e-5f, 7910.f, 7920.f,
- 1.1995e-4f, .075585f, .013632f, -4.0157e-5f, .013768f, -5.0661e-5f,
- 7920.f, 7930.f, .0011716f, .18257f, .013971f, -5.1254e-5f, .012846f,
- -5.6651e-5f, 7930.f, 7940.f, 5.052e-4f, .076356f, .012922f, -2.0119e-5f,
- .013988f, -4.2851e-5f, 7940.f, 7950.f, 2.4426e-4f, .1253f, .010339f,
- -4.3784e-6f, .010719f, -3.665e-5f, 7950.f, 7960.f, 5.414e-4f, .072313f,
- .019259f, -8.565e-5f, .01592f, -7.9109e-5f, 7960.f, 7970.f, 7.6374e-4f,
- .068718f, .018517f, -6.7616e-5f, .016394f, -7.3663e-5f, 7970.f, 7980.f,
- 2.5606e-4f, .077067f, .016494f, -7.5101e-5f, .01272f, -6.6656e-5f,
- 7980.f, 7990.f, 1.5654e-4f, .11158f, .010695f, -4.0866e-5f, .0081416f,
- -4.363e-5f, 7990.f, 8e3f, 4.1929e-5f, .090036f, .024363f, -1.0641e-4f,
- .021621f, -1.0231e-4f, 8e3f, 8010.f, 7.3175e-4f, .10587f, .016949f,
- -6.039e-5f, .015862f, -7.1742e-5f, 8010.f, 8020.f, 8.008e-5f, .030563f,
- .019843f, -9.1766e-5f, .017086f, -8.6214e-5f, 8020.f, 8030.f,
- 2.4279e-5f, .056812f, .022624f, -9.9621e-5f, .020301f, -9.7332e-5f,
- 8030.f, 8040.f, 1.8866e-5f, .052834f, .012394f, -4.4016e-5f, .0093994f,
- -4.6495e-5f, 8040.f, 8050.f, 9.7669e-4f, .089736f, .0062407f,
- -2.5133e-5f, .005852f, -2.556e-5f, 8050.f, 8060.f, .0011471f, .029409f,
- .02069f, -9.511e-5f, .018237f, -9.0575e-5f, 8060.f, 8070.f, 7.7566e-4f,
- .12509f, .012079f, -5.088e-5f, .010725f, -5.2092e-5f, 8070.f, 8080.f,
- .003103f, .073291f, .016462f, -7.3991e-5f, .015208f, -6.8516e-5f,
- 8080.f, 8090.f, .001251f, .11933f, .014229f, -6.2251e-5f, .011779f,
- -6.099e-5f, 8090.f, 8100.f, .001499f, .13662f, .0065894f, -8.557e-6f,
- .0083512f, -1.9086e-5f, 8100.f, 8110.f, .0020532f, .10298f, .015994f,
- -6.5137e-5f, .014131f, -6.2564e-5f, 8110.f, 8120.f, .0017448f, .067598f,
- .014749f, -6.293e-5f, .013541f, -5.9773e-5f, 8120.f, 8130.f, .0015039f,
- .12946f, .018816f, -5.0022e-5f, .017492f, -5.9638e-5f, 8130.f, 8140.f,
- .0046638f, .1035f, .0062829f, -3.4218e-5f, .0036814f, -2.5761e-5f,
- 8140.f, 8150.f, .0010319f, .066367f, .0071775f, -2.8782e-5f, .010631f,
- -2.023e-5f, 8150.f, 8160.f, .0046436f, .096269f, .015527f, -6.1225e-5f,
- .015071f, -6.3728e-5f, 8160.f, 8170.f, .0057048f, .15352f, .0032127f,
- -1.6432e-5f, .0035091f, -1.2277e-5f, 8170.f, 8180.f, .011525f, .15916f,
- .0083892f, -1.0637e-5f, .0067801f, -2.5386e-5f, 8180.f, 8190.f,
- .0074791f, .18295f, .0048041f, -2.0748e-5f, .0044988f, -1.7162e-5f,
- 8190.f, 8200.f, .011502f, .15897f, .0099626f, -1.7036e-5f, .010154f,
- -3.5251e-5f, 8200.f, 8210.f, .032694f, .12981f, .0016557f, 1.4661e-5f,
- .0035153f, 1.0696e-6f, 8210.f, 8220.f, .007492f, .12913f, .0071536f,
- -2.9018e-5f, .0069835f, -3.3541e-5f, 8220.f, 8230.f, .047072f, .21294f,
- .0094858f, -4.2608e-5f, .0075764f, -3.9014e-5f, 8230.f, 8240.f,
- .017525f, .16065f, .0024969f, -1.0727e-6f, .0020059f, -5.349e-6f,
- 8240.f, 8250.f, .057547f, .16256f, .0053651f, -3.1796e-5f, .0032968f,
- -2.8841e-5f, 8250.f, 8260.f, .043086f, .11299f, .0044958f, -2.4017e-5f,
- .0036046f, -2.0674e-5f, 8260.f, 8270.f, .10051f, .15621f, .0034824f,
- -2.1289e-5f, .0019497f, -2.0952e-5f, 8270.f, 8280.f, .073404f, .16218f,
- .0017977f, -1.3976e-5f, 1.5476e-4f, -6.5472e-6f, 8280.f, 8290.f,
- .08523f, .11256f, 2.9553e-4f, -9.9833e-6f, -1.2813e-4f, -4.6912e-6f,
- 8290.f, 8300.f, .1818f, .19506f, -.0018708f, -2.1763e-6f, -.0027279f,
- 2.3065e-6f, 8300.f, 8310.f, .030278f, .1674f, .0055443f, -2.3707e-5f,
- .0051615f, -2.3428e-5f, 8310.f, 8320.f, .11462f, .20492f, -.0010659f,
- -9.4245e-7f, -.0022118f, 4.2668e-6f, 8320.f, 8330.f, .099231f, .19833f,
- -3.5775e-4f, -3.838e-6f, -.0025607f, -3.6304e-7f, 8330.f, 8340.f,
- .099199f, .18538f, -.0023017f, 6.6528e-6f, -.0023339f, 6.1821e-6f,
- 8340.f, 8350.f, .059379f, .077001f, -.004912f, 1.4256e-5f, -.0025954f,
- 3.0037e-5f, 8350.f, 8360.f, .044008f, .20401f, .0014099f, -5.1535e-6f,
- .0019118f, -1.6011e-6f, 8360.f, 8370.f, .090539f, .08076f, -.0035383f,
- 1.3223e-5f, -.0028138f, 1.3001e-5f, 8370.f, 8380.f, .014326f, .1809f,
- .0059988f, 7.331e-7f, .0076689f, -1.7035e-5f, 8380.f, 8390.f, .046664f,
- .1734f, -8.7294e-4f, 1.0561e-5f, 3.1024e-4f, 2.7678e-6f, 8390.f, 8400.f,
- .10171f, .16186f, -.0017894f, -2.8284e-6f, -.0040067f, -1.4559e-7f,
- 8400.f, 8410.f, .30821f, .25107f, -.0032854f, 5.8502e-6f, -.0036961f,
- 9.3802e-6f, 8410.f, 8420.f, .063199f, .24205f, -.0011158f, 3.7207e-6f,
- -.0013624f, 5.0058e-6f, 8420.f, 8430.f, .099053f, .16171f, -.0031354f,
- 1.4107e-5f, -4.1612e-4f, 9.0938e-6f, 8430.f, 8440.f, .18961f, .16575f,
- -.0036207f, 4.9966e-6f, -.0041916f, 8.2034e-6f, 8440.f, 8450.f, .17725f,
- .21239f, -7.7569e-4f, -2.0023e-6f, -4.9558e-4f, -5.1555e-6f, 8450.f,
- 8460.f, .27753f, .33354f, 9.0668e-4f, -7.5987e-6f, 1.7804e-4f,
- -6.4173e-6f, 8460.f, 8470.f, .14123f, .13127f, -1.2234e-4f, -8.3078e-6f,
- -4.417e-4f, -4.4651e-6f, 8470.f, 8480.f, .093615f, .12378f, -.0022473f,
- 6.446e-6f, -.0023144f, 2.1685e-5f, 8480.f, 8490.f, .20449f, .23918f,
- .0011176f, -3.6761e-6f, .0018f, -5.0232e-6f, 8490.f, 8500.f, .089489f,
- .16701f, .0039531f, -6.6471e-6f, .0051864f, 4.9471e-6f, 8500.f, 8510.f,
- .23406f, .40842f, .0043192f, -1.5846e-5f, .0044314f, -2.3087e-5f,
- 8510.f, 8520.f, .14482f, .32325f, .0041937f, 5.6608e-6f, .0044945f,
- 3.2348e-7f, 8520.f, 8530.f, .064432f, .26897f, .0065578f, -1.2568e-5f,
- .007607f, -2.0405e-5f, 8530.f, 8540.f, .057924f, .33321f, .0091543f,
- 9.8398e-6f, .0086335f, -1.8156e-5f, 8540.f, 8550.f, .10794f, .40047f,
- .010231f, 1.2947e-5f, .010777f, -2.3286e-5f, 8550.f, 8560.f, .081479f,
- .27006f, .010378f, -1.4458e-5f, .0096133f, -3.1676e-5f, 8560.f, 8570.f,
- .21551f, .37486f, .015271f, -4.3087e-5f, .011958f, -4.878e-5f, 8570.f,
- 8580.f, .1197f, .42176f, .011436f, -2.7559e-5f, .012343f, -4.8358e-5f,
- 8580.f, 8590.f, .1194f, .26383f, .017025f, -6.3908e-5f, .012895f,
- -5.3752e-5f, 8590.f, 8600.f, .35022f, .24839f, .015312f, -6.7204e-5f,
- .011349f, -5.723e-5f, 8600.f, 8610.f, .43429f, .32749f, .014111f,
- -6.1858e-5f, .0111f, -5.2145e-5f, 8610.f, 8620.f, .649f, .17775f,
- .012005f, -5.7105e-5f, .0091759f, -4.5878e-5f, 8620.f, 8630.f, .62583f,
- .2559f, .011761f, -5.603e-5f, .0090211f, -4.8934e-5f, 8630.f, 8640.f,
- .3575f, .36475f, .010308f, -4.3411e-5f, .0088328f, -3.9083e-5f, 8640.f,
- 8650.f, 1.1133f, .13506f, .0080358f, -4.3334e-5f, .0068137f,
- -3.9624e-5f, 8650.f, 8660.f, 1.3387f, .31665f, .0078192f, -3.8805e-5f,
- .0049558f, -3.3187e-5f, 8660.f, 8670.f, 2.7498f, .16946f, .0049939f,
- -3.0487e-5f, .0031261f, -2.5786e-5f, 8670.f, 8680.f, 2.4398f, .19531f,
- .0044402f, -2.9193e-5f, .0022819f, -2.5054e-5f, 8680.f, 8690.f, 3.0993f,
- .19328f, .0022645f, -1.9507e-5f, 5.743e-4f, -1.6236e-5f, 8690.f, 8700.f,
- 1.2713f, .17117f, .0010656f, -1.5353e-5f, -6.2313e-4f, -8.8734e-6f,
- 8700.f, 8710.f, 3.1649f, .17696f, .0010942f, -1.5108e-5f, -8.8648e-4f,
- -8.7401e-6f, 8710.f, 8720.f, 3.1075f, .11851f, -9.4639e-5f, -9.2083e-6f,
- -3.6777e-4f, -6.4753e-6f, 8720.f, 8730.f, 7.0407f, .19201f, -.0021209f,
- -3.6303e-6f, -.0046941f, 1.0611e-6f, 8730.f, 8740.f, 1.2454f, .17319f,
- -.0019955f, -1.4314e-6f, -.0021532f, -5.8242e-7f, 8740.f, 8750.f,
- .83443f, .1489f, -.0031702f, 3.926e-6f, -.0022958f, 3.8306e-6f, 8750.f,
- 8760.f, 3.6918f, .11215f, -.0041869f, 4.6517e-6f, -.0065413f,
- 1.1815e-5f, 8760.f, 8770.f, .93114f, .16247f, 8.6756e-4f, -4.9431e-6f,
- 6.7174e-4f, -4.722e-6f, 8770.f, 8780.f, 2.5247f, .085808f, -.004835f,
- 9.227e-6f, -.0060959f, 1.2095e-5f, 8780.f, 8790.f, .53387f, .20115f,
- -.0016551f, 7.1592e-6f, -5.3003e-4f, 9.888e-7f, 8790.f, 8800.f, 6.6475f,
- .28681f, -.0018744f, 3.5629e-6f, -.0015672f, 2.949e-6f, 8800.f, 8810.f,
- 13.449f, .46562f, .0010817f, -8.1158e-6f, 4.4146e-4f, -9.6568e-6f,
- 8810.f, 8820.f, 2.3072f, .29228f, .0018897f, 4.5344e-6f, .0023839f,
- -8.7201e-6f, 8820.f, 8830.f, .38221f, .2037f, 4.9695e-4f, 6.5162e-6f,
- .0021768f, 3.2622e-6f, 8830.f, 8840.f, 1.1249f, .14056f, -.0038223f,
- 1.6534e-5f, 2.8673e-4f, 1.9579e-5f, 8840.f, 8850.f, 4.8272f, .098788f,
- -.005013f, 9.0675e-6f, -.005665f, 1.3142e-5f, 8850.f, 8860.f, 7.562f,
- .14568f, -.0043638f, 5.3176e-6f, -.0063322f, 1.074e-5f, 8860.f, 8870.f,
- 2.4448f, .13155f, -.002417f, -2.7983e-7f, -.0034547f, 3.4138e-6f,
- 8870.f, 8880.f, 8.0582f, .19292f, -.0028534f, -8.0358e-7f, -.0051566f,
- 3.9531e-6f, 8880.f, 8890.f, 5.7451f, .18168f, -5.0148e-4f, -9.5111e-6f,
- -.0019306f, -6.0172e-6f, 8890.f, 8900.f, 7.0547f, .19464f, -.0010049f,
- -7.4656e-6f, -.0025268f, -4.3122e-6f, 8900.f, 8910.f, 5.4039f, .15719f,
- .0016933f, -1.8412e-5f, 5.6219e-4f, -1.6145e-5f, 8910.f, 8920.f,
- 3.5653f, .19909f, .0033052f, -2.2923e-5f, 5.191e-4f, -1.4385e-5f,
- 8920.f, 8930.f, 2.9405f, .30828f, .0050674f, -2.9116e-5f, .0027789f,
- -2.3443e-5f, 8930.f, 8940.f, 1.9927f, .15337f, .0040525f, -2.4922e-5f,
- .0021726f, -1.8937e-5f, 8940.f, 8950.f, 3.1994f, .39446f, .0066249f,
- -3.4407e-5f, .0041704f, -2.98e-5f, 8950.f, 8960.f, 1.0124f, .3051f,
- .0095861f, -4.26e-5f, .007142f, -3.9564e-5f, 8960.f, 8970.f, .55494f,
- .31765f, .012349f, -5.0981e-5f, .0084323f, -3.9712e-5f, 8970.f, 8980.f,
- .62962f, .34745f, .0068325f, -6.7823e-6f, .006612f, -2.2655e-5f, 8980.f,
- 8990.f, .39155f, .17506f, .014525f, -6.4228e-5f, .012836f, -5.854e-5f,
- 8990.f, 9e3f, .29338f, .19531f, .014921f, -5.7995e-5f, .012214f,
- -4.6413e-5f, 9e3f, 9010.f, .117f, .34769f, .013815f, -1.4315e-5f,
- .011336f, -3.2553e-5f, 9010.f, 9020.f, .16223f, .35064f, .0089364f,
- 2.1825e-5f, .010979f, -2.503e-5f, 9020.f, 9030.f, .021742f, .25837f,
- .021279f, -6.9818e-5f, .017662f, -6.8568e-5f, 9030.f, 9040.f, .056078f,
- .27822f, .012493f, 1.8431e-5f, .013824f, -2.7676e-5f, 9040.f, 9050.f,
- .050045f, .24927f, .0025877f, 4.5316e-5f, .0058234f, 9.7906e-6f, 9050.f,
- 9060.f, .074041f, .1688f, .0031016f, -1.2901e-5f, .0031503f,
- -9.5272e-6f, 9060.f, 9070.f, .035788f, .25671f, .0055742f, -3.3952e-6f,
- .0067343f, -9.7505e-6f, 9070.f, 9080.f, .057922f, .23584f, .0022587f,
- -9.2537e-6f, .0015239f, -7.0447e-6f, 9080.f, 9090.f, .033597f, .22977f,
- .0030824f, -1.1293e-5f, .0033924f, -5.6695e-6f, 9090.f, 9100.f,
- .070807f, .38398f, .0033167f, -8.2422e-6f, .002352f, -1.7904e-5f,
- 9100.f, 9110.f, .007025f, .18707f, .008814f, -2.739e-5f, .008404f,
- -2.9932e-5f, 9110.f, 9120.f, .069936f, .25325f, .0019174f, -1.1175e-5f,
- .001279f, -1.4168e-5f, 9120.f, 9130.f, .052387f, .30346f, 9.3076e-4f,
- 5.2452e-6f, .0021985f, -1.2943e-5f, 9130.f, 9140.f, .015639f, .086845f,
- .0072697f, -3.4455e-5f, .0051914f, -3.2991e-5f, 9140.f, 9150.f,
- .091802f, .17031f, -5.4142e-4f, 2.9713e-6f, -.0010743f, -2.3472e-6f,
- 9150.f, 9160.f, .011168f, .099076f, .005622f, -3.0231e-5f, .0047197f,
- -2.3663e-5f, 9160.f, 9170.f, .048371f, .1417f, -5.9903e-4f, -4.5058e-6f,
- -.0011328f, 9.448e-7f, 9170.f, 9180.f, .018874f, .15366f, .0042614f,
- -2.6279e-5f, 8.9656e-4f, -2.0193e-5f, 9180.f, 9190.f, .016112f, .12245f,
- .0061155f, -3.4764e-5f, .0039418f, -3.163e-5f, 9190.f, 9200.f, .065149f,
- .14651f, .0013623f, -1.4483e-5f, 1.0964e-5f, -1.1796e-5f, 9200.f,
- 9210.f, .011149f, .21185f, .0041991f, -1.3718e-5f, .0030892f,
- -2.0781e-5f, 9210.f, 9220.f, .031171f, .12753f, .0045967f, -2.5041e-5f,
- .0038974f, -2.7102e-5f, 9220.f, 9230.f, 4.0823e-4f, .030563f, .0247f,
- -1.1119e-4f, .021942f, -1.0564e-4f, 9230.f, 9240.f, .012977f, .16914f,
- .0055548f, -2.5826e-5f, .0033619f, -2.2004e-5f, 9240.f, 9250.f,
- .020816f, .10896f, .0066122f, -3.4731e-5f, .0052212f, -3.4187e-5f,
- 9250.f, 9260.f, .0030262f, .11279f, .010901f, -5.2842e-5f, .0086449f,
- -4.5417e-5f, 9260.f, 9270.f, .0033673f, .11423f, .010899f, -3.4157e-5f,
- .0080866f, -3.8803e-5f, 9270.f, 9280.f, .017536f, .16659f, .0083759f,
- -4.46e-5f, .005112f, -3.6571e-5f, 9280.f, 9290.f, 8.1624e-4f, .16081f,
- .015916f, -6.3848e-5f, .013156f, -6.3084e-5f, 9290.f, 9300.f, .011313f,
- .13057f, .011852f, -5.8953e-5f, .0088407f, -5.1297e-5f, 9300.f, 9310.f,
- .0015081f, .069261f, .0041982f, -7.5358e-6f, .0057185f, -1.6686e-5f,
- 9310.f, 9320.f, .0045702f, .1342f, .013143f, -5.4394e-5f, .01017f,
- -5.2848e-5f, 9320.f, 9330.f, 7.5901e-4f, .16485f, .017789f, -4.1657e-5f,
- .014232f, -5.1704e-5f, 9330.f, 9340.f, .0023315f, .14437f, .015924f,
- -7.3095e-5f, .012997f, -6.7546e-5f, 9340.f, 9350.f, .0024761f, .13342f,
- .017367f, -6.5679e-5f, .014468f, -6.2866e-5f, 9350.f, 9360.f, .0011255f,
- .11586f, .016217f, -5.9242e-5f, .013009f, -5.7135e-5f, 9360.f, 9370.f,
- 4.6631e-4f, .031553f, .0231f, -1.0479e-4f, .020342f, -9.924e-5f, 9370.f,
- 9380.f, 5.8334e-4f, .14333f, .014779f, -4.7773e-5f, .011406f,
- -5.2169e-5f, 9380.f, 9390.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9390.f, 9400.f,
- 4.6492e-4f, .064777f, .012413f, -2.9282e-5f, .013774f, -4.9601e-5f,
- 9400.f, 9410.f, 4.0085e-4f, .030483f, .010823f, -5.5684e-5f, .0080667f,
- -5.0135e-5f, 9410.f, 9420.f, 6.5363e-5f, .053752f, .0231f, -1.0479e-4f,
- .020342f, -9.924e-5f, 9420.f, 9430.f, 2.4119e-5f, .027609f, .03515f,
- -1.5299e-4f, .032393f, -1.4744e-4f, 9430.f, 9440.f, 1.3718e-4f, .04682f,
- .01614f, -5.2767e-5f, .016119f, -6.7234e-5f, 9440.f, 9450.f, 5.534e-5f,
- .046161f, .016226f, -4.5595e-5f, .015446f, -5.9474e-5f, 9450.f, 9460.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9460.f, 9470.f, 5.7428e-5f, .063455f,
- .017377f, -4.729e-5f, .016614f, -6.2421e-5f, 9470.f, 9480.f, 3.8406e-5f,
- .031771f, .0046608f, -3.1037e-5f, .0019036f, -2.5485e-5f, 9480.f,
- 9490.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9490.f, 9500.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 9500.f, 9510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9510.f, 9520.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 9520.f, 9530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9530.f,
- 9540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9540.f, 9550.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 9550.f, 9560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9560.f, 9570.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 9570.f, 9580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9580.f,
- 9590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9590.f, 9600.f, 2.4903e-5f,
- .024969f,
- .025759f, -1.1543e-4f, .023002f, -1.0988e-4f, 9600.f, 9610.f,
- 4.8976e-5f, .034814f, .004643f, -3.0966e-5f, .0018858f, -2.5414e-5f,
- 9610.f, 9620.f, 6.6257e-5f, .052528f, .020662f, -9.5042e-5f, .017905f,
- -8.949e-5f, 9620.f, 9630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9630.f, 9640.f,
-
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9640.f, 9650.f, 1.9405e-4f, .0908f,
- .012893f,
- -4.7907e-5f, .008999f, -4.3597e-5f, 9650.f, 9660.f, 0.f, 0.f, 0.f, 0.f,
- 0.f, 0.f, 9660.f, 9670.f, 3.5455e-4f, .062906f, .01178f, -5.9514e-5f,
- .0090225f, -5.3961e-5f, 9670.f, 9680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 9680.f, 9690.f, 7.3346e-4f, .095357f, .0080776f, -3.5126e-5f, .0063761f,
- -3.2075e-5f, 9690.f, 9700.f, 2.6888e-4f, .062321f, .01172f, -5.6759e-5f,
- .0098726f, -5.5238e-5f, 9700.f, 9710.f, 4.8999e-4f, .10498f, .0062757f,
- -3.2864e-5f, .0049464f, -3.2626e-5f, 9710.f, 9720.f, .0010507f,
- .071841f, .0058574f, -3.2015e-5f, .0039666f, -3.1106e-5f, 9720.f,
- 9730.f, .0025494f, .10376f, .0030444f, -2.0413e-5f, .0012384f,
- -1.8532e-5f, 9730.f, 9740.f, .0013019f, .13387f, .0019451f, -1.3612e-5f,
- -8.9213e-6f, -1.3158e-5f, 9740.f, 9750.f, 6.2353e-4f, .078233f,
- 7.0756e-4f, -1.519e-5f, -.0020739f, -9.6993e-6f, 9750.f, 9760.f,
- .0056535f, .1971f, 1.6071e-4f, -5.7489e-6f, -.0014878f, -4.8238e-6f,
- 9760.f, 9770.f, .001909f, .041123f, -.0019069f, -4.7662e-6f, -.004664f,
- 7.8558e-7f, 9770.f, 9780.f, .0017619f, .13162f, -.0022639f, 7.7041e-7f,
- -.0049756f, 4.3744e-6f, 9780.f, 9790.f, 5.7144e-4f, .099432f, .0040501f,
- -1.5471e-5f, .0018591f, -1.7658e-5f, 9790.f, 9800.f, .0038209f, .13329f,
- -.0046298f, 6.3691e-6f, -.0077028f, 1.2343e-5f, 9800.f, 9810.f,
- .0017147f, .079407f, 4.5502e-4f, -1.3444e-5f, -.0030355f, -5.7728e-6f,
- 9810.f, 9820.f, .0012145f, .072418f, 2.5064e-4f, -5.9535e-6f,
- 3.3766e-6f, -6.2695e-6f, 9820.f, 9830.f, .0011057f, .13614f, .0018444f,
- -3.817e-6f, -6.6263e-4f, -6.1358e-6f, 9830.f, 9840.f, .0021971f,
- .053016f, -.0048189f, 9.7527e-6f, -.0060279f, 1.7406e-5f, 9840.f,
- 9850.f, .0019933f, .17956f, -.0010152f, 7.3537e-6f, -.0033437f,
- 4.3246e-6f, 9850.f, 9860.f, 8.7206e-4f, .047547f, -.0041578f,
- 4.2375e-6f, -.007361f, 1.0687e-5f, 9860.f, 9870.f, .0029909f, .069285f,
- -.0047147f, 1.0991e-5f, -.0056075f, 1.5292e-5f, 9870.f, 9880.f,
- .001506f, .17429f, .003529f, -1.5241e-5f, 9.8555e-4f, -1.3485e-5f,
- 9880.f, 9890.f, .0024655f, .15187f, -9.6328e-4f, 3.0116e-6f, -.002379f,
- 6.199e-6f, 9890.f, 9900.f, .0081762f, .23349f, -.0033911f, 1.8786e-6f,
- -.0060119f, 6.563e-6f, 9900.f, 9910.f, .0035952f, .09571f, -.002565f,
- 6.9268e-6f, -.0025302f, 8.7846e-6f, 9910.f, 9920.f, .004102f, .16571f,
- -8.2348e-4f, 4.4729e-6f, 5.0555e-5f, -1.3431e-6f, 9920.f, 9930.f,
- .0015616f, .12559f, -.001712f, 9.5737e-7f, -.002329f, 2.8914e-6f,
- 9930.f, 9940.f, .0029147f, .1397f, .0017969f, -5.9773e-6f, .0040034f,
- -1.6529e-5f, 9940.f, 9950.f, .0021013f, .0985f, .0026194f, -1.629e-5f,
- .0026829f, -1.8333e-5f, 9950.f, 9960.f, .0025118f, .078548f, -.0011652f,
- -3.1932e-6f, -.0017647f, -3.6546e-6f, 9960.f, 9970.f, .0054922f,
- .27847f, .0022288f, -6.2983e-6f, .0011941f, -9.9545e-6f, 9970.f, 9980.f,
- .0077074f, .24403f, .0023234f, -1.7376e-5f, 9.1247e-4f, -1.6357e-5f,
- 9980.f, 9990.f, .0015919f, .17498f, .004876f, -1.537e-5f, .0030207f,
- -2.2305e-5f, 9990.f, 1e4f, .0023052f, .12024f, .0026434f, 3.4883e-6f,
- .0053038f, -7.4735e-6f, 1e4f, 10010.f, 9.9075e-4f, .060379f, .0048519f,
- -2.4596e-5f, .0039231f, -2.671e-5f, 10010.f, 10020.f, .0026106f,
- .15994f, .0057076f, -1.5791e-5f, .0063216f, -2.8717e-5f, 10020.f,
- 10030.f, 9.0384e-4f, .21421f, .0073532f, -1.3113e-6f, .009333f,
- -1.9232e-5f, 10030.f, 10040.f, .0020888f, .22211f, .0093854f,
- -1.1006e-5f, .0077851f, -1.8919e-5f, 10040.f, 10050.f, .0010096f,
- .093543f, .0051826f, -2.8108e-5f, .0041051f, -2.3759e-5f, 10050.f,
- 10060.f, .0022561f, .25885f, .013532f, -1.4879e-5f, .011628f,
- -3.4287e-5f, 10060.f, 10070.f, .0077191f, .28721f, .0097888f,
- -1.1073e-5f, .008539f, -2.4771e-5f, 10070.f, 10080.f, .0034195f,
- .20647f, .0074823f, -2.1978e-5f, .007444f, -2.4751e-5f, 10080.f,
- 10090.f, .0063694f, .19871f, .011877f, -3.28e-5f, .009567f, -3.9672e-5f,
- 10090.f, 10100.f, .0063072f, .3731f, .0047744f, 2.8648e-5f, .006887f,
- -8.4982e-6f, 10100.f, 10110.f, .0010617f, .15783f, .019027f,
- -3.7386e-5f, .017346f, -6.0605e-5f, 10110.f, 10120.f, .016376f, .34661f,
- .014148f, -4.8223e-5f, .010187f, -4.3401e-5f, 10120.f, 10130.f,
- .0077156f, .39174f, .0071212f, 8.3584e-6f, .0074196f, -2.0778e-5f,
- 10130.f, 10140.f, .0081991f, .34376f, .010657f, -2.049e-5f, .009186f,
- -3.4657e-5f, 10140.f, 10150.f, .045748f, .35631f, .011031f, -4.1938e-5f,
- .0079877f, -3.3077e-5f, 10150.f, 10160.f, .026803f, .2161f, .011739f,
- -5.3624e-5f, .010169f, -5.0362e-5f, 10160.f, 10170.f, .061462f, .24685f,
- .008227f, -3.1656e-5f, .0077778f, -3.1665e-5f, 10170.f, 10180.f
- };
-
- /* WATER VAPOR (7620 - 10160 CM-1) */
- for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
-} /* wava3 */
-
-void
-wava2 (float a[8], const long int inu)
-{
-
-
- static const float acr[2048] = { .32591f, .48473f,
- .010062f, 1.8245e-5f, .01189f, -1.2621e-5f, 5060.f, 5070.f, .73059f,
- .13181f, .010626f, 7.3795e-6f, .011376f, -1.7764e-5f, 5070.f, 5080.f,
- .39211f, .39522f, .01459f, -6.8376e-6f, .016326f, -3.165e-5f, 5080.f,
- 5090.f, 2.3255f, .26901f, .0092468f, 6.3821e-6f, .0083396f, -1.2628e-5f,
- 5090.f, 5100.f, 1.9706f, .34245f, .0056073f, -9.4265e-8f, .0059986f,
- -1.0398e-5f, 5100.f, 5110.f, 2.8938f, .22738f, .022463f, -9.7912e-5f,
- .021063f, -8.8497e-5f, 5110.f, 5120.f, 1.1454f, .40811f, .0089642f,
- -5.1753e-6f, .0089863f, -1.9479e-5f, 5120.f, 5130.f, 2.92f, .33384f,
- .014298f, -3.2571e-5f, .012431f, -3.5993e-5f, 5130.f, 5140.f, 6.318f,
- .28323f, .0099085f, -1.94e-5f, .0060737f, -1.671e-5f, 5140.f, 5150.f,
- 14.918f, .41681f, .012935f, -5.2738e-5f, .010041f, -4.0263e-5f, 5150.f,
- 5160.f, 10.19f, .13237f, .011091f, -4.8728e-5f, .0081335f, -2.7045e-5f,
- 5160.f, 5170.f, 14.437f, .36156f, .0094685f, -3.4308e-5f, .0067537f,
- -2.4477e-5f, 5170.f, 5180.f, 34.792f, .30287f, .0073719f, -3.7632e-5f,
- .0051901f, -2.8247e-5f, 5180.f, 5190.f, 21.869f, .22075f, .0069763f,
- -3.1715e-5f, .0041088f, -1.7042e-5f, 5190.f, 5200.f, 94.938f, .25888f,
- .0046429f, -2.8823e-5f, .0034889f, -2.3494e-5f, 5200.f, 5210.f, 18.298f,
- .20311f, .0050431f, -2.4681e-5f, .0028469f, -1.707e-5f, 5210.f, 5220.f,
- 69.538f, .19126f, .002196f, -2.0268e-5f, 6.875e-4f, -1.7413e-5f, 5220.f,
- 5230.f, 40.772f, .23521f, .0018896f, -1.692e-5f, 5.9126e-4f,
- -1.3609e-5f, 5230.f, 5240.f, 131.08f, .17928f, 1.5657e-4f, -1.2114e-5f,
- -.0017405f, -8.3108e-6f, 5240.f, 5250.f, 69.597f, .10896f, -.0015337f,
-
- -4.7461e-6f, -.0027082f, -1.5598e-6f, 5250.f, 5260.f, 153.51f, .20025f,
- -.0022803f, -2.9253e-6f, -.004398f, 2.8697e-6f, 5260.f, 5270.f, 2.6114f,
- .24878f, -8.2927e-4f, 4.6226e-6f, -1.1922e-4f, 1.0717e-5f, 5270.f,
- 5280.f, 48.681f, .175f, -.0037857f, 4.6902e-6f, -.0036353f, 1.1426e-5f,
- 5280.f, 5290.f, 77.56f, .13557f, -.0037228f, 3.6212e-6f, -.0041326f,
- 1.5278e-5f, 5290.f, 5300.f, 60.444f, .1151f, -.0047324f, 1.0254e-5f,
- -.0036821f, 1.4636e-5f, 5300.f, 5310.f, 15.328f, .19998f, -.0012681f,
- 2.9898e-6f, -4.683e-4f, 2.0999e-6f, 5310.f, 5320.f, 87.54f, .16972f,
- -.0041972f, 7.1961e-6f, -.0037508f, 7.0298e-6f, 5320.f, 5330.f, 195.61f,
- .26284f, -.0023874f, -2.1407e-7f, -.0037245f, 4.6625e-6f, 5330.f,
- 5340.f, 168.41f, .26546f, 2.4931e-4f, -9.4775e-6f, -.0016338f,
- -6.291e-6f, 5340.f, 5350.f, 93.921f, .31129f, .0028343f, -7.1173e-6f,
- .0026325f, -1.1816e-5f, 5350.f, 5360.f, 25.579f, .36877f, .0072262f,
- -1.5821e-5f, .0060257f, -2.1996e-5f, 5360.f, 5370.f, 137.79f, .17089f,
- -.004665f, 1.3962e-5f, -.002641f, 1.792e-5f, 5370.f, 5380.f, 84.199f,
- .12293f, -.0039643f, 9.7938e-6f, -.0017023f, 1.5901e-5f, 5380.f, 5390.f,
- 140.72f, .10478f, -.0041237f, 5.0169e-6f, -.0043789f, 1.7244e-5f,
- 5390.f, 5400.f, 56.622f, .23084f, -.0025409f, -2.9811e-7f, -.0027639f,
- 7.6091e-6f, 5400.f, 5410.f, 185.34f, .21363f, -.0028691f, -4.4392e-7f,
- -.0042358f, 6.6265e-6f, 5410.f, 5420.f, 96.955f, .12223f, -5.2081e-4f,
- -9.6057e-6f, -.0016418f, -1.9789e-6f, 5420.f, 5430.f, 117.89f, .13571f,
- -.0014763f, -5.7081e-6f, -.0024763f, -1.7817e-7f, 5430.f, 5440.f,
- 191.02f, .24199f, 6.976e-4f, -1.4228e-5f, -.001445f, -7.5253e-6f,
- 5440.f, 5450.f, 22.138f, .14268f, .0012465f, -1.3898e-5f, .00202f,
- -8.418e-6f, 5450.f, 5460.f, 95.115f, .24823f, .0035551f, -2.5604e-5f,
- .0012041f, -1.8465e-5f, 5460.f, 5470.f, 62.976f, .15811f, .0050592f,
- -2.9507e-5f, .0029262f, -2.138e-5f, 5470.f, 5480.f, 29.147f, .11805f,
- .008422f, -4.2987e-5f, .0067418f, -3.6032e-5f, 5480.f, 5490.f, 51.614f,
- .19818f, .0058436f, -3.46e-5f, .003939f, -2.8598e-5f, 5490.f, 5500.f,
- 23.266f, .1679f, .011075f, -5.348e-5f, .0084735f, -4.6037e-5f, 5500.f,
- 5510.f, 10.989f, .20302f, .0063972f, -1.4524e-5f, .0042223f,
- -2.0806e-5f, 5510.f, 5520.f, 10.027f, .16542f, .013794f, -6.332e-5f,
- .011093f, -5.5041e-5f, 5520.f, 5530.f, 9.3954f, .21952f, .013366f,
- -5.7474e-5f, .0098104f, -4.6605e-5f, 5530.f, 5540.f, 4.2252f, .19874f,
- .016633f, -7.121e-5f, .01335f, -6.0705e-5f, 5540.f, 5550.f, 6.2656f,
- .26354f, .0098363f, -9.5486e-6f, .0079542f, -2.4062e-5f, 5550.f, 5560.f,
- 1.6378f, .16463f, .013976f, -8.3427e-6f, .012806f, -3.571e-5f, 5560.f,
- 5570.f, 1.9767f, .27227f, .014721f, -2.6094e-5f, .012774f, -4.5522e-5f,
- 5570.f, 5580.f, .586f, .20958f, .012874f, 3.9258e-5f, .011964f,
- -1.5397e-5f, 5580.f, 5590.f, .73058f, .24104f, .02517f, -9.8784e-5f,
- .021222f, -8.5036e-5f, 5590.f, 5600.f, 1.3668f, .20354f, .00746f,
- -5.4501e-6f, .010036f, -2.7451e-5f, 5600.f, 5610.f, .7017f, .14013f,
- .0054963f, 1.2171e-5f, .010386f, -5.7235e-6f, 5610.f, 5620.f, .97806f,
- .19171f, .0021812f, 1.6431e-5f, .0066588f, 9.5186e-6f, 5620.f, 5630.f,
- .29391f, .23855f, .0090316f, 2.3604e-5f, .012635f, -6.6897e-6f, 5630.f,
- 5640.f, .15354f, .15176f, .0057073f, 2e-5f, .014561f, -4.0698e-6f,
- 5640.f, 5650.f, .08073f, .28405f, .014753f, 3.439e-5f, .018447f,
- -1.775e-5f, 5650.f, 5660.f, .86381f, .14813f, .0029607f, -2.0586e-5f,
- .0028212f, -1.2594e-5f, 5660.f, 5670.f, .22599f, .16383f, .0084407f,
- -3.2709e-5f, .011049f, -1.6279e-5f, 5670.f, 5680.f, .0030594f, .17069f,
- .034284f, -1.0113e-4f, .035042f, -1.1247e-4f, 5680.f, 5690.f, .38291f,
- .16459f, .0096772f, -4.3054e-5f, .0087884f, -3.2862e-5f, 5690.f, 5700.f,
- .17817f, .065371f, .0044945f, -2.6954e-5f, .0044075f, 7.1895e-7f,
- 5700.f, 5710.f, .0073272f, .32673f, .018605f, -3.6631e-5f, .021288f,
- -5.004e-5f, 5710.f, 5720.f, .33773f, .13375f, .0060665f, -3.0734e-5f,
- .0046922f, -2.5584e-5f, 5720.f, 5730.f, .083205f, .058895f, .0083229f,
- -4.2023e-5f, .0099661f, -2.959e-5f, 5730.f, 5740.f, .1796f, .1205f,
- .0065668f, -3.475e-5f, .004411f, -2.7489e-5f, 5740.f, 5750.f, .074406f,
- .16592f, .012426f, -4.4049e-5f, .012086f, -4.8157e-5f, 5750.f, 5760.f,
- .029803f, .065159f, .011506f, -5.4589e-5f, .012823f, -5.1753e-5f,
- 5760.f, 5770.f, .134f, .079723f, .011174f, -5.413e-5f, .010639f,
- -4.7462e-5f, 5770.f, 5780.f, .027397f, .11303f, .0070869f, -8.5837e-6f,
- .0087642f, -2.4197e-5f, 5780.f, 5790.f, .04813f, .1528f, .017121f,
- -6.8541e-5f, .016166f, -7.1739e-5f, 5790.f, 5800.f, .098878f, .11702f,
- .011647f, -5.4757e-5f, .0095467f, -4.9145e-5f, 5800.f, 5810.f,
- .0011937f, .11746f, .029514f, -1.178e-4f, .026592f, -1.0438e-4f, 5810.f,
- 5820.f, .021084f, .041603f, .018136f, -8.3736e-5f, .01662f, -7.5802e-5f,
- 5820.f, 5830.f, .041859f, .10038f, .011698f, -5.1084e-5f, .0091292f,
- -3.8447e-5f, 5830.f, 5840.f, .0042835f, .054158f, .020564f, -7.9064e-5f,
- .016849f, -6.1318e-5f, 5840.f, 5850.f, .039742f, .14212f, .015543f,
- -6.5164e-5f, .012937f, -6.0213e-5f, 5850.f, 5860.f, .0044465f, .13575f,
- .018218f, -6.1185e-5f, .017472f, -6.1811e-5f, 5860.f, 5870.f, .013183f,
- .084879f, .018786f, -7.5902e-5f, .01503f, -6.7738e-5f, 5870.f, 5880.f,
- .0036488f, .086695f, .023765f, -7.6455e-5f, .019459f, -6.0338e-5f,
- 5880.f, 5890.f, .018172f, .13595f, .016681f, -5.4016e-5f, .014894f,
- -6.0543e-5f, 5890.f, 5900.f, .0024118f, .072933f, .025664f, -9.6848e-5f,
- .026465f, -1.0476e-4f, 5900.f, 5910.f, .01494f, .1207f, .017582f,
- -6.8945e-5f, .016946f, -6.9945e-5f, 5910.f, 5920.f, .0014531f, .081478f,
- .02565f, -5.6688e-5f, .020849f, -5.2418e-5f, 5920.f, 5930.f, .004057f,
- .064725f, .024344f, -1.0574e-4f, .021209f, -9.2148e-5f, 5930.f, 5940.f,
- 5.9362e-4f, .052682f, .023362f, -8.193e-5f, .01857f, -7.6269e-5f,
- 5940.f, 5950.f, .0021418f, .075485f, .023733f, -8.0625e-5f, .021119f,
- -8.5514e-5f, 5950.f, 5960.f, .0033439f, .12209f, .022556f, -8.973e-5f,
- .019031f, -8.5459e-5f, 5960.f, 5970.f, .0014641f, .13608f, .015568f,
- 3.7809e-6f, .01603f, -2.9177e-5f, 5970.f, 5980.f, 6.3999e-4f, .094011f,
- .027455f, -3.9873e-5f, .019599f, -3.6883e-5f, 5980.f, 5990.f, .0013405f,
- .090254f, .029576f, -1.1767e-4f, .026759f, -1.1158e-4f, 5990.f, 6e3f,
- .0017604f, .17547f, .017851f, -6.4948e-5f, .016287f, -5.6437e-5f, 6e3f,
- 6010.f, .0011569f, .13348f, .026563f, -8.7926e-5f, .023528f,
- -9.1174e-5f, 6010.f, 6020.f, 2.8575e-4f, .078833f, .019053f,
- -1.8306e-5f, .018303f, -5.1186e-5f, 6020.f, 6030.f, 8.7532e-4f, .16112f,
- .022556f, -3.3852e-5f, .021206f, -6.4336e-5f, 6030.f, 6040.f,
- 4.8531e-4f, .054398f, .022035f, -9.7698e-5f, .019943f, -8.9334e-5f,
- 6040.f, 6050.f, 4.2083e-4f, .13305f, .011783f, 6.0192e-5f, .01191f,
- 7.0965e-6f, 6050.f, 6060.f, 3.1283e-4f, .10974f, .024828f, -3.5695e-5f,
- .021926f, -6.102e-5f, 6060.f, 6070.f, .0016917f, .14682f, .0023913f,
- 1.937e-5f, .0028143f, 1.0914e-5f, 6070.f, 6080.f, 2.4107e-4f, .056225f,
- .019103f, -5.8306e-6f, .02305f, -4.6373e-5f, 6080.f, 6090.f, 4.4079e-4f,
- .073062f, .0078845f, -3.8279e-5f, .0064841f, -2.5252e-5f, 6090.f,
- 6100.f, 1.7156e-4f, .08447f, .010336f, 1.0341e-4f, .0085994f,
- 4.3979e-5f, 6100.f, 6110.f, 1.5736e-4f, .047359f, .020348f, -3.159e-5f,
- .024132f, -5.6992e-5f, 6110.f, 6120.f, .0010666f, .13835f, .0061165f,
- -8.7157e-6f, .0071462f, -1.5e-5f, 6120.f, 6130.f, 4.1402e-5f, .071564f,
- .014541f, -3.0661e-5f, .013703f, -3.2448e-5f, 6130.f, 6140.f,
- 1.6673e-5f, .033602f, .019118f, -8.8866e-5f, .016523f, -8.3641e-5f,
- 6140.f, 6150.f, 4.5173e-4f, .19416f, .0081406f, -4.6697e-6f, .0096975f,
- -2.7594e-5f, 6150.f, 6160.f, 8.4192e-5f, .0848f, .0068868f, 2.0465e-5f,
- .0065557f, -3.9158e-6f, 6160.f, 6170.f, 1.9983e-4f, .034955f, .013243f,
- -4.8483e-5f, .014163f, -4.8663e-5f, 6170.f, 6180.f, 5.654e-4f, .092508f,
- .0032982f, -2.8242e-7f, .0023537f, -1.1797e-5f, 6180.f, 6190.f,
- 2.6602e-4f, .14864f, -.0035881f, 8.4292e-6f, -.0064288f, 1.1323e-5f,
- 6190.f, 6200.f, 6.6332e-4f, .082351f, 4.0475e-5f, -9.1191e-6f,
- -.0013832f, -7.433e-7f, 6200.f, 6210.f, 5.089e-4f, .13947f, .003362f,
- -3.1112e-6f, 4.078e-4f, 8.6176e-7f, 6210.f, 6220.f, 1.2815e-4f,
- .087906f, .012262f, -4.0572e-5f, .01202f, -4.9984e-5f, 6220.f, 6230.f,
- 1.2854e-4f, .12035f, .0025735f, -1.5152e-5f, -2.5291e-4f, -1.3133e-5f,
- 6230.f, 6240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6240.f, 6250.f, 3.8748e-4f,
- .088892f, .0070553f, -2.9374e-5f, .0061982f, -3.1937e-5f, 6250.f,
- 6260.f, 1.6711e-4f, .096035f, .013535f, -5.983e-5f, .011956f,
- -5.7292e-5f, 6260.f, 6270.f, 5.1664e-4f, .11783f, .0086933f,
- -2.7481e-5f, .0070865f, -2.8728e-5f, 6270.f, 6280.f, .001613f, .21378f,
- .0034321f, -1.5373e-5f, .0028098f, -8.7169e-6f, 6280.f, 6290.f,
- 1.104e-4f, .05027f, .011461f, -5.2791e-5f, .010667f, -5.0501e-5f,
- 6290.f, 6300.f, .0022339f, .16944f, .0043566f, -1.8834e-5f, .0025925f,
- -1.7523e-5f, 6300.f, 6310.f, 7.0293e-4f, .10055f, .0086229f,
- -3.5378e-5f, .0057065f, -3.2557e-5f, 6310.f, 6320.f, 2.805e-4f, .12764f,
- .0056648f, 7.4065e-5f, .0085368f, 1.7469e-5f, 6320.f, 6330.f,
- 6.2308e-4f, .089292f, .01011f, -2.8113e-5f, .010994f, -3.9797e-5f,
- 6330.f, 6340.f, 4.9924e-4f, .15704f, .014233f, -5.3536e-5f, .011904f,
- -5.3159e-5f, 6340.f, 6350.f, 4.5485e-4f, .2206f, .0045598f, -2.1706e-6f,
- .0040803f, -1.9834e-5f, 6350.f, 6360.f, 4.4859e-4f, .31977f, .015688f,
- -3.0431e-5f, .012918f, -4.8166e-5f, 6360.f, 6370.f, 2.7811e-4f, .13882f,
- .011781f, -2.0096e-5f, .011797f, -2.376e-5f, 6370.f, 6380.f, 8.6844e-4f,
- .2569f, .011839f, -6.454e-6f, .0097827f, -2.9934e-5f, 6380.f, 6390.f,
- 8.4205e-4f, .26741f, .010125f, -9.2493e-6f, .009507f, -2.6314e-5f,
- 6390.f, 6400.f, .0016976f, .15422f, .0095094f, 1.9053e-5f, .010682f,
- -7.9536e-6f, 6400.f, 6410.f, 4.7975e-4f, .09426f, .011121f, -4.7922e-5f,
- .0093837f, -4.1295e-5f, 6410.f, 6420.f, 5.2022e-4f, .16038f, .017528f,
-
- -3.7366e-5f, .019737f, -6.1655e-5f, 6420.f, 6430.f, 8.2574e-4f, .16899f,
- .016228f, -5.7574e-5f, .014443f, -6.2197e-5f, 6430.f, 6440.f, .0021296f,
- .24095f, .018574f, -5.7065e-5f, .018731f, -6.6716e-5f, 6440.f, 6450.f,
- 2.6201e-4f, .11418f, .021012f, -6.7706e-5f, .019337f, -6.9411e-5f,
- 6450.f, 6460.f, .0026631f, .29606f, .0094001f, 3.2264e-5f, .0092032f,
- -9.2228e-6f, 6460.f, 6470.f, .0025496f, .1395f, .02196f, -9.1558e-5f,
- .019725f, -7.8434e-5f, 6470.f, 6480.f, .0030217f, .24286f, .021221f,
- -4.9207e-5f, .017707f, -5.6279e-5f, 6480.f, 6490.f, .0025925f, .22189f,
- .011972f, -3.5111e-5f, .011532f, -3.4767e-5f, 6490.f, 6500.f, .0036908f,
- .17271f, .017079f, -6.2898e-5f, .018276f, -6.9468e-5f, 6500.f, 6510.f,
- .0058412f, .27765f, .021239f, -8.2779e-5f, .019328f, -7.9739e-5f,
- 6510.f, 6520.f, .0010097f, .36424f, .014201f, 1.4574e-5f, .014137f,
- -2.5464e-5f, 6520.f, 6530.f, .015531f, .36032f, .015962f, -5.5747e-5f,
- .013807f, -5.4878e-5f, 6530.f, 6540.f, .021827f, .16998f, .012887f,
- -5.3561e-5f, .013686f, -4.8168e-5f, 6540.f, 6550.f, .025524f, .44895f,
- .014216f, -3.1158e-5f, .013867f, -4.6536e-5f, 6550.f, 6560.f, .0046252f,
- .14687f, .017426f, -7.1751e-5f, .018048f, -6.5015e-5f, 6560.f, 6570.f,
- .022064f, .27f, .015309f, -5.8062e-5f, .016735f, -6.1409e-5f, 6570.f,
- 6580.f, .042593f, .28026f, .015131f, -6.0674e-5f, .014017f, -5.2957e-5f,
- 6580.f, 6590.f, .039072f, .14924f, .0094106f, -4.0098e-5f, .0098574f,
- -2.9732e-5f, 6590.f, 6600.f, .054808f, .37702f, .012248f, -2.1938e-5f,
- .012749f, -3.4984e-5f, 6600.f, 6610.f, .036908f, .16694f, .011325f,
- -4.1839e-5f, .012369f, -2.3977e-5f, 6610.f, 6620.f, .0049128f, .31728f,
- .016178f, -8.7947e-6f, .019507f, -3.6007e-5f, 6620.f, 6630.f, .027419f,
- .23237f, .022088f, -4.83e-5f, .021397f, -5.8784e-5f, 6630.f, 6640.f,
- .09883f, .17529f, .0067054f, -2.8981e-5f, .0098183f, -2.1164e-5f,
- 6640.f, 6650.f, .097673f, .26249f, .015514f, -2.0366e-5f, .018041f,
- -4.7825e-5f, 6650.f, 6660.f, .029234f, .39325f, .011043f, 6.9627e-6f,
- .014995f, -2.8824e-5f, 6660.f, 6670.f, .073358f, .26517f, .022641f,
- -9.0861e-5f, .020163f, -8.1954e-5f, 6670.f, 6680.f, .28609f, .27963f,
- .012746f, -3.1154e-5f, .011122f, -2.9019e-5f, 6680.f, 6690.f, .15415f,
- .42581f, .0092965f, -1.6598e-5f, .010866f, -3.0004e-5f, 6690.f, 6700.f,
- .50854f, .25928f, .011806f, -4.9706e-5f, .01195f, -4.4564e-5f, 6700.f,
- 6710.f, .54248f, .29219f, .0086655f, -1.078e-5f, .0096072f, -2.0886e-5f,
- 6710.f, 6720.f, 1.1829f, .23177f, .0084264f, -3.6835e-5f, .0078692f,
- -3.165e-5f, 6720.f, 6730.f, .66413f, .22652f, .0096388f, -4.5502e-5f,
- .0094036f, -4.2748e-5f, 6730.f, 6740.f, 2.0327f, .2021f, .0051382f,
- -2.4524e-5f, .0066314f, -1.6094e-5f, 6740.f, 6750.f, 2.8639f, .19875f,
- .0048057f, -2.8413e-5f, .0044821f, -2.1857e-5f, 6750.f, 6760.f, 2.3946f,
- .11681f, .0025701f, -2.0163e-5f, .0026061f, -1.6227e-5f, 6760.f, 6770.f,
- 2.3817f, .35427f, .0039392f, -1.7028e-5f, .004929f, -1.8773e-5f, 6770.f,
- 6780.f, 1.6155f, .23449f, 7.3307e-4f, -7.3637e-6f, .0016677f,
- -2.5528e-6f, 6780.f, 6790.f, 8.3481f, .29624f, 2.1533e-4f, -8.9091e-6f,
- -1.954e-4f, -6.9089e-6f, 6790.f, 6800.f, 3.9018f, .13513f, -.002043f,
- 4.7043e-6f, .0019385f, 1.5453e-5f, 6800.f, 6810.f, 3.3911f, .24098f,
- -2.0667e-4f, -6.3633e-6f, -1.6731e-4f, -2.2699e-6f, 6810.f, 6820.f,
- 2.8798f, .25576f, -.0021074f, 5.4951e-6f, -.0021041f, 8.2116e-6f,
- 6820.f, 6830.f, 2.7426f, .15514f, -.0029057f, 1.2463e-5f, .0017031f,
- 1.9513e-5f, 6830.f, 6840.f, 3.2308f, .18429f, -.0036805f, 1.3879e-5f,
- 3.8114e-4f, 2.111e-5f, 6840.f, 6850.f, .82936f, .18124f, 4.1735e-4f,
- 1.4616e-6f, .0025198f, -1.3464e-6f, 6850.f, 6860.f, .35131f, .41646f,
- .015485f, -4.647e-5f, .013388f, -3.6422e-5f, 6860.f, 6870.f, 4.6683f,
- .15324f, -.0042182f, 9.0437e-6f, -.0013329f, 1.8577e-5f, 6870.f, 6880.f,
- 2.8455f, .17389f, -.0022094f, 1.4962e-6f, -.0015658f, 9.7344e-6f,
- 6880.f, 6890.f, 8.8724f, .42657f, -.0018169f, 8.1105e-6f, -6.5751e-4f,
- 1.2321e-5f, 6890.f, 6900.f, .81595f, .32457f, .0028256f, 1.2078e-6f,
- .0059842f, 1.543e-6f, 6900.f, 6910.f, 12.055f, .40831f, -.0011236f,
- 2.2677e-6f, -8.159e-4f, 1.7078e-6f, 6910.f, 6920.f, 1.4005f, .42874f,
- .0073135f, -1.6167e-5f, .0082389f, -1.8229e-5f, 6920.f, 6930.f, 9.4914f,
- .29494f, -.0033677f, 1.1156e-5f, -.0016627f, 1.6279e-5f, 6930.f, 6940.f,
- 3.731f, .44986f, .0084547f, -3.0585e-5f, .010303f, -3.5351e-5f, 6940.f,
- 6950.f, 7.9581f, .26975f, -.0014256f, 4.1782e-6f, 1.3886e-4f,
- 7.5184e-6f, 6950.f, 6960.f, 3.409f, .33223f, -8.355e-4f, 9.9982e-6f,
- .0032926f, 7.9289e-6f, 6960.f, 6970.f, 6.9934f, .49549f, .0034299f,
- 1.3868e-5f, .0073246f, -1.1357e-5f, 6970.f, 6980.f, 8.4288f, .29235f,
- .0012515f, -6.6867e-6f, .0022057f, -7.2817e-6f, 6980.f, 6990.f, 3.7771f,
- .34377f, .0066839f, 1.4877e-5f, .0099074f, -2.4726e-5f, 6990.f, 7e3f,
- 5.9358f, .4452f, .0047532f, -1.1726e-5f, .0057444f, -1.6773e-5f, 7e3f,
- 7010.f, 3.6653f, .46656f, .0075924f, -1.4859e-5f, .0085483f,
- -2.7681e-5f, 7010.f, 7020.f, 7.623f, .59145f, .010355f, -2.3877e-5f,
- .0084375f, -3.5191e-5f, 7020.f, 7030.f, 2.9785f, .49616f, .0095318f,
- -2.8442e-5f, .0094393f, -3.7258e-5f, 7030.f, 7040.f, 11.489f, .4463f,
- .012118f, -4.7464e-5f, .0089557f, -4.3911e-5f, 7040.f, 7050.f, 5.707f,
- .30579f, .012792f, -5.848e-5f, .011943f, -4.9567e-5f, 7050.f, 7060.f,
- 4.3341f, .45254f, .0087102f, -3.6977e-5f, .0062554f, -2.9678e-5f,
- 7060.f, 7070.f, 18.415f, .27325f, .011045f, -5.5565e-5f, .0087811f,
- -4.6635e-5f, 7070.f, 7080.f, 9.2559f, .37006f, .0093565f, -4.6638e-5f,
- .008623f, -4.1694e-5f, 7080.f, 7090.f, 34.399f, .2696f, .0073722f,
- -4.0297e-5f, .005669f, -3.4996e-5f, 7090.f, 7100.f, 27.357f, .28185f,
- .0041186f, -2.4656e-5f, .0015333f, -1.4846e-5f, 7100.f, 7110.f, 59.142f,
- .21235f, .004202f, -2.8298e-5f, .0026623f, -2.2726e-5f, 7110.f, 7120.f,
- 8.729f, .31743f, .0050667f, -2.9057e-5f, .0050497f, -2.4756e-5f, 7120.f,
- 7130.f, 66.372f, .25989f, .0021171f, -2.001e-5f, 9.8789e-4f,
- -1.5045e-5f, 7130.f, 7140.f, 40.254f, .15248f, 6.4299e-4f, -1.3315e-5f,
- -6.7491e-4f, -2.9781e-7f, 7140.f, 7150.f, 1.5991f, .45391f, .0083749f,
- -1.2893e-5f, .011832f, -2.3466e-5f, 7150.f, 7160.f, 138.4f, .26185f,
- -9.2005e-4f, -7.5058e-6f, -.0022766f, 1.2031e-6f, 7160.f, 7170.f,
- 13.476f, .27958f, 1.7108e-4f, 2.8602e-6f, .0019003f, 2.2534e-6f, 7170.f,
- 7180.f, 95.96f, .20582f, -.0022657f, 1.3812e-6f, -.0015351f, 8.8048e-6f,
- 7180.f, 7190.f, 14.69f, .24608f, 7.8336e-4f, 1.5252e-5f, .003739f,
- -6.918e-6f, 7190.f, 7200.f, 55.288f, .25862f, -.0013454f, 9.9116e-6f,
- -8.8298e-4f, 1.7423e-6f, 7200.f, 7210.f, 48.147f, .25568f, .0049183f,
- -2.3894e-5f, .0037052f, -2.2724e-5f, 7210.f, 7220.f, 40.415f, .20103f,
- -.0024259f, 7.5229e-6f, -.0017525f, 2.6464e-6f, 7220.f, 7230.f, 109.84f,
- .33075f, 7.5622e-4f, -1.2921e-5f, -.0011898f, -5.9125e-6f, 7230.f,
- 7240.f, 130.02f, .18533f, -.0033239f, 1.8173e-6f, -.0046918f,
-
- 8.1132e-6f, 7240.f, 7250.f, 24.491f, .30951f, -.0026793f, 5.8588e-6f,
- -.0021237f, 4.8e-6f, 7250.f, 7260.f, 19.609f, .15703f, -.0025743f,
- 2.8622e-6f, -.0016255f, 4.4422e-6f, 7260.f, 7270.f, 17.072f, .26657f,
- -.0029675f, 1.2335e-5f, -6.9569e-4f, 7.7744e-6f, 7270.f, 7280.f,
- 25.243f, .38981f, -.0023499f, 7.2438e-6f, -.0015088f, 4.0106e-6f,
- 7280.f, 7290.f, 139.62f, .16193f, -.0050479f, 9.269e-6f, -.0053276f,
- 1.5266e-5f, 7290.f, 7300.f, 86.705f, .11761f, -.0037859f, 4.4125e-6f,
-
- -.0030774f, 1.0295e-5f, 7300.f, 7310.f, 66.458f, .22506f, -.0031197f,
- 2.1671e-6f, -.003942f, 5.6842e-6f, 7310.f, 7320.f, 147.42f, .24611f,
- -.0023854f, -1.4496e-6f, -.0034285f, 1.2805e-6f, 7320.f, 7330.f,
- 87.291f, .22526f, -1.1541e-4f, -9.6671e-6f, -9.0479e-4f, -7.8703e-6f,
- 7330.f, 7340.f, 155.36f, .27754f, -2.3889e-4f, -8.8494e-6f, -.001057f,
- -7.3024e-6f, 7340.f, 7350.f, 60.8f, .21141f, .0022877f, -1.825e-5f,
- .0021735f, -1.6084e-5f, 7350.f, 7360.f, 65.821f, .31454f, .0035102f,
- -2.3014e-5f, .0021764f, -1.996e-5f, 7360.f, 7370.f, 39.314f, .19452f,
- .0045708f, -2.8104e-5f, .0035157f, -2.3151e-5f, 7370.f, 7380.f, 33.606f,
- .30823f, .0071777f, -3.6203e-5f, .0052193f, -2.5338e-5f, 7380.f, 7390.f,
- 28.667f, .22825f, .0067636f, -3.404e-5f, .0062429f, -3.5213e-5f, 7390.f,
- 7400.f, 9.5852f, .3028f, .012912f, -5.3899e-5f, .010209f, -4.4318e-5f,
- 7400.f, 7410.f, 7.5752f, .36859f, .010673f, -1.5633e-5f, .0094631f,
- -3.3501e-5f, 7410.f, 7420.f, 3.3599f, .31735f, .015132f, -5.0575e-5f,
- .013714f, -4.8842e-5f, 7420.f, 7430.f, 1.421f, .51877f, .010564f,
- 2.7798e-5f, .010716f, -1.6576e-5f, 7430.f, 7440.f, 1.3357f, .34135f,
- .0055009f, 2.9075e-5f, .010731f, -1.4716e-5f, 7440.f, 7450.f, .90292f,
- .35257f, .0064439f, 4.3621e-6f, .0093295f, -7.9773e-6f, 7450.f, 7460.f,
- .47321f, .34413f, .0075753f, 3.1118e-5f, .0088184f, 2.3143e-6f, 7460.f,
- 7470.f, .14277f, .63005f, .015765f, -3.876e-5f, .014284f, -4.1344e-5f,
- 7470.f, 7480.f, .84751f, .092347f, .0044433f, -2.3373e-5f, .0065281f,
- -2.0814e-5f, 7480.f, 7490.f, .34962f, .49346f, 3.9951e-4f, 2.823e-6f,
- .0021242f, -6.058e-7f, 7490.f, 7500.f, .66686f, .32642f, .0015242f,
- -8.7602e-6f, .0033093f, -6.2194e-6f, 7500.f, 7510.f, .7038f, .37824f,
- .0040335f, -1.7144e-5f, .0058765f, -1.8563e-5f, 7510.f, 7520.f, .44176f,
- .28314f, .0041609f, -2.1428e-5f, .0052238f, -2.1647e-5f, 7520.f, 7530.f,
- .23859f, .25536f, .0046384f, -3.1469e-6f, .0056672f, -1.3268e-5f,
- 7530.f, 7540.f, .12451f, .19246f, .003173f, -1.645e-5f, .0046905f,
- -1.9919e-5f, 7540.f, 7550.f, .40142f, .2566f, .0068917f, -2.2016e-5f,
- .0042921f, -2.2533e-5f, 7550.f, 7560.f, .24593f, .28458f, 3.567e-4f,
- -9.0627e-7f, 6.7869e-4f, -6.7459e-6f, 7560.f, 7570.f, .41189f, .23957f,
- -2.7548e-4f, 3.566e-6f, 3.9542e-4f, -3.8485e-6f, 7570.f, 7580.f,
- .20341f, .14662f, .0060408f, -3.5022e-5f, .0043079f, -3.1225e-5f,
- 7580.f, 7590.f, .18188f, .14279f, .0012602f, -3.0833e-6f, .0033638f,
- -1.3417e-5f, 7590.f, 7600.f, .17978f, .35062f, .005044f, -3.1112e-6f,
- .0036165f, -1.3022e-5f, 7600.f, 7610.f, .31504f, .16627f, .003265f,
- -1.3345e-5f, .0040505f, -2.0124e-5f, 7610.f, 7620.f
- };
-
- /* WATER VAPOR (5060 - 7600 CM-1) */
- for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
-} /* wava2 */
-
-void
-wava1 (float a[8], const long int inu)
-{
-
-
- static const float acr[2048] = { 5.2155e-5f, .1088f,
- .024708f, 5.6434e-5f, .028126f, -3.6504e-5f, 2500.f, 2510.f, 2.6024e-4f,
- .21216f, .025876f, 3.0026e-5f, .030504f, -6.2253e-5f, 2510.f, 2520.f,
- 1.2221e-4f, .091374f, .023862f, -7.9891e-5f, .020651f, -8.5449e-5f,
- 2520.f, 2530.f, 6.8892e-5f, .12703f, .030103f, -6.0355e-5f, .031571f,
- -9.5671e-5f, 2530.f, 2540.f, 9.5684e-5f, .11204f, .033051f, -9.6752e-5f,
- .030485f, -1.1273e-4f, 2540.f, 2550.f, 1.0008e-4f, .092789f, .016702f,
- 4.1104e-5f, .021654f, -1.2175e-5f, 2550.f, 2560.f, 1.1515e-4f, .072392f,
- .028437f, -8.9454e-5f, .028734f, -1.022e-4f, 2560.f, 2570.f, 1.098e-4f,
- .093023f, .023611f, 1.0889e-5f, .02688f, -5.0398e-5f, 2570.f, 2580.f,
- 1.0952e-4f, .07579f, .029206f, -9.8206e-5f, .030307f, -1.1103e-4f,
- 2580.f, 2590.f, 1.1941e-4f, .070428f, .019144f, -2.8423e-5f, .019587f,
- -5.4379e-5f, 2590.f, 2600.f, 8.0498e-5f, .061889f, .024778f,
- -5.5252e-5f, .028205f, -1.2627e-4f, 2600.f, 2610.f, 7.2792e-5f,
- .062776f, .026682f, -5.8101e-5f, .029166f, -1.1148e-4f, 2610.f, 2620.f,
- 1.6616e-4f, .015773f, .023141f, -6.0394e-5f, .024947f, -1.1178e-4f,
-
- 2620.f, 2630.f, 1.8043e-4f, .087686f, .026248f, -3.0398e-5f, .03174f,
- -1.367e-4f, 2630.f, 2640.f, 1.3339e-4f, .05328f, .012701f, -4.6874e-5f,
- .012628f, -6.7487e-5f, 2640.f, 2650.f, 4.115e-5f, .0075778f, .011257f,
- 1.1038e-4f, .036362f, -1.1284e-4f, 2650.f, 2660.f, 6.1395e-5f, .026074f,
- .016798f, 1.0755e-4f, .035481f, -1.3778e-4f, 2660.f, 2670.f, 3.5062e-4f,
- .080662f, .021065f, -3.9968e-5f, .021602f, -8.7339e-5f, 2670.f, 2680.f,
- 2.6391e-4f, .11483f, .02727f, -4.0691e-5f, .029928f, -1.1046e-4f,
- 2680.f, 2690.f, 8.741e-4f, .06007f, .021732f, -8.76e-5f, .020645f,
- -9.6557e-5f, 2690.f, 2700.f, 3.0675e-5f, .02297f, .0094212f, 7.8691e-6f,
- .015402f, -7.4597e-5f, 2700.f, 2710.f, 2.1928e-4f, .13351f, .022082f,
- -4.5472e-5f, .02546f, -9.6549e-5f, 2710.f, 2720.f, 3.4904e-4f, .095073f,
- .013969f, 1.2276e-6f, .016415f, -6.5204e-5f, 2720.f, 2730.f, .002136f,
- .061072f, .018908f, -7.653e-5f, .019801f, -7.7251e-5f, 2730.f, 2740.f,
- 1.3372e-4f, .10806f, .025683f, -4.923e-5f, .025729f, -8.9387e-5f,
- 2740.f, 2750.f, .0021697f, .062188f, .018593f, -8.0474e-5f, .016349f,
- -8.1422e-5f, 2750.f, 2760.f, 4.503e-5f, .014902f, .011376f, 2.086e-4f,
- .04688f, -1.3018e-4f, 2760.f, 2770.f, 3.9413e-4f, .075433f, .019773f,
- 3.0322e-5f, .02086f, -4.5326e-5f, 2770.f, 2780.f, .0048935f, .096746f,
- .019042f, -7.2945e-5f, .016358f, -7.6368e-5f, 2780.f, 2790.f,
- 5.6197e-5f, .026178f, .017977f, 1.4035e-4f, .032163f, -7.1639e-5f,
- 2790.f, 2800.f, .0017459f, .049818f, .012334f, -5.2052e-5f, .013169f,
- -4.5266e-5f, 2800.f, 2810.f, .013747f, .048325f, .012754f, -6.181e-5f,
- .011564f, -4.9886e-5f, 2810.f, 2820.f, 8.2805e-4f, .084185f, .021588f,
- 3.0162e-6f, .021186f, -3.7441e-5f, 2820.f, 2830.f, .011866f, .034247f,
- .0094911f, -5.0331e-5f, .0068889f, -4.5062e-5f, 2830.f, 2840.f,
- .0053887f, .10669f, .021019f, -5.3528e-5f, .021717f, -5.4515e-5f,
- 2840.f, 2850.f, 1.0411e-4f, .11175f, .031522f, 3.5658e-5f, .036103f,
- -8.82e-5f, 2850.f, 2860.f, .0079899f, .07314f, .02926f, -1.0778e-4f,
- .03194f, -1.11e-4f, 2860.f, 2870.f, .024725f, .10335f, .008848f,
- -3.2902e-5f, .010195f, -1.929e-5f, 2870.f, 2880.f, 5.7422e-4f, .18372f,
- .046405f, -1.7178e-4f, .046094f, -1.887e-4f, 2880.f, 2890.f, .067995f,
- .089991f, .016432f, -5.4992e-5f, .019457f, -5.5113e-5f, 2890.f, 2900.f,
- .03635f, .17982f, .015309f, 7.9551e-7f, .018904f, -3.6064e-5f, 2900.f,
- 2910.f, .02725f, .14127f, .030783f, -1.2895e-4f, .031036f, -1.2355e-4f,
- 2910.f, 2920.f, .002652f, .19136f, .041919f, -1.6834e-4f, .042452f,
- -1.753e-4f, 2920.f, 2930.f, .52888f, .269f, .012546f, -3.0896e-5f,
- .013568f, -4.2996e-5f, 2930.f, 2940.f, .053771f, .17608f, .020209f,
- -6.024e-5f, .025687f, -8.3758e-5f, 2940.f, 2950.f, .32492f, .1684f,
- .021364f, -9.2341e-5f, .020449f, -8.8117e-5f, 2950.f, 2960.f, .61749f,
- .1805f, .013955f, -6.0114e-5f, .014337f, -5.833e-5f, 2960.f, 2970.f,
- 1.5421f, .13158f, .0096584f, -4.1781e-5f, .0089471f, -3.729e-5f, 2970.f,
-
- 2980.f, 1.6668f, .2273f, .0099338f, -3.7288e-5f, .01043f, -3.702e-5f,
- 2980.f, 2990.f, 1.5158f, .13985f, .011565f, -5.1421e-5f, .011056f,
- -4.3391e-5f, 2990.f, 3e3f, 1.6503f, .17713f, .0095447f, -3.7275e-5f,
- .0086134f, -3.6851e-5f, 3e3f, 3010.f, 6.5433f, .21911f, .0060474f,
- -3.289e-5f, .0053084f, -2.7435e-5f, 3010.f, 3020.f, 2.2497f, .12464f,
- 8.6253e-4f, -6.1061e-6f, .0037153f, 4.0466e-6f, 3020.f, 3030.f, 10.011f,
- .23151f, .0027571f, -1.9224e-5f, .0021442f, -1.1081e-5f, 3030.f, 3040.f,
- 2.7015f, .12619f, .0016271f, -1.3887e-5f, .001636f, -1.9543e-8f, 3040.f,
- 3050.f, 5.2767f, .13242f, .001288f, -1.3169e-5f, .0012577f, -3.613e-6f,
- 3050.f, 3060.f, 9.1595f, .12205f, -.0012513f, -4.0326e-6f, -.0018414f,
- 2.4599e-6f, 3060.f, 3070.f, 4.6857f, .15647f, -4.3308e-5f, -6.9326e-6f,
- -8.1377e-4f, -3.1694e-6f, 3070.f, 3080.f, 3.2521f, .14435f, .0035016f,
- -2.0102e-5f, .0037489f, -1.4446e-5f, 3080.f, 3090.f, 8.6678f, .20679f,
- -.0014866f, 2.2765e-6f, -.001046f, 1.7536e-6f, 3090.f, 3100.f, 9.0277f,
- .2295f, -.0010574f, -1.1212e-6f, -6.8088e-4f, -3.9181e-8f, 3100.f,
- 3110.f, 12.148f, .38295f, 4.9769e-4f, -4.4194e-6f, 4.3116e-4f,
- -4.0708e-6f, 3110.f, 3120.f, 9.4078f, .34012f, -3.175e-5f, 2.1043e-6f,
- .0022348f, 1.6614e-7f, 3120.f, 3130.f, 6.1004f, .077373f, -.004677f,
- 1.1726e-5f, -5.7011e-4f, 3.3047e-5f, 3130.f, 3140.f, .64298f, .083113f,
- -9.0344e-4f, 7.4815e-6f, .0068034f, 3.8978e-5f, 3140.f, 3150.f, .31468f,
- .22047f, .0087793f, -1.3249e-5f, .014974f, -2.9267e-5f, 3150.f, 3160.f,
- .84773f, .34913f, .0023565f, -7.7347e-7f, .004167f, 2.4148e-6f, 3160.f,
- 3170.f, 6.7043f, .10518f, -.0049662f, 1.3112e-5f, -9.2458e-4f,
- 3.1899e-5f, 3170.f, 3180.f, 3.3487f, .17575f, -.0036206f, 1.2779e-5f,
- 5.0643e-5f, 2.6882e-5f, 3180.f, 3190.f, 7.1051f, .15577f, -.0032039f,
- 5.7362e-6f, -.0027319f, 2.0608e-5f, 3190.f, 3200.f, 4.9187f, .094692f,
- -.0034658f, 9.9349e-6f, 6.5696e-4f, 2.9105e-5f, 3200.f, 3210.f, 11.08f,
- .15706f, -.0036162f, 6.4921e-6f, -.002575f, 1.9544e-5f, 3210.f, 3220.f,
- 6.4326f, .26178f, -3.2818e-4f, 3.2261e-6f, 5.6524e-4f, 5.0713e-6f,
- 3220.f, 3230.f, 4.8444f, .21447f, -.0019614f, 1.5381e-5f, .0019305f,
- 2.4092e-5f, 3230.f, 3240.f, 8.8873f, .19618f, -.0011584f, 1.5371e-6f,
- 5.7401e-4f, 5.5356e-6f, 3240.f, 3250.f, 6.7011f, .11596f, 3.1879e-4f,
- -3.2082e-7f, .0027244f, 9.5927e-6f, 3250.f, 3260.f, 3.2951f, .21537f,
- .0018132f, -9.3642e-6f, .0034721f, -1.0415e-5f, 3260.f, 3270.f, 11.905f,
- .31637f, -1.7961e-5f, 7.0218e-6f, .0027392f, 8.7434e-8f, 3270.f, 3280.f,
- 4.8139f, .2732f, .0023884f, 2.6589e-5f, .0043504f, 5.7992e-6f, 3280.f,
- 3290.f, 6.9428f, .3268f, .0028073f, -7.0232e-6f, .0032805f, -8.5722e-6f,
- 3290.f, 3300.f, 5.2753f, .19806f, .0027307f, -1.4565e-6f, .0049125f,
- -1.2966e-5f, 3300.f, 3310.f, 4.7208f, .23262f, .002983f, 2.6911e-5f,
- .0064942f, -7.7622e-6f, 3310.f, 3320.f, 3.2466f, .37221f, .0099704f,
- -2.8634e-5f, .011158f, -3.6092e-5f, 3320.f, 3330.f, 4.2083f, .17584f,
- .013723f, -3.9504e-5f, .013219f, -4.4922e-5f, 3330.f, 3340.f, .78485f,
- .29505f, .018153f, -7.6368e-5f, .018172f, -6.9561e-5f, 3340.f, 3350.f,
- 4.0763f, .2731f, .011974f, -3.8706e-5f, .010563f, -3.3592e-5f, 3350.f,
- 3360.f, 12.275f, .42572f, .0045309f, 5.9958e-6f, .0056864f, -1.5831e-5f,
- 3360.f, 3370.f, .94088f, .2913f, .012712f, -2.3725e-5f, .01375f,
- -2.6806e-5f, 3370.f, 3380.f, 5.802f, .18758f, .0056963f, -9.9475e-6f,
- .0091903f, -1.2922e-5f, 3380.f, 3390.f, 11.279f, .22153f, .010955f,
- -4.55e-5f, .010347f, -3.3646e-5f, 3390.f, 3400.f, 3.0915f, .29101f,
- .0076973f, -3.1164e-6f, .0079615f, -1.2231e-5f, 3400.f, 3410.f, 2.746f,
- .24709f, .01353f, -3.9278e-5f, .015939f, -3.5039e-5f, 3410.f, 3420.f,
- 14.49f, .18486f, .0089652f, -3.5228e-5f, .009544f, -2.5256e-5f, 3420.f,
- 3430.f, 4.152f, .37165f, .0094576f, -9.1648e-6f, .01319f, -1.9085e-5f,
- 3430.f, 3440.f, 35.28f, .29267f, .0077335f, -3.3655e-5f, .0086235f,
- -3.439e-5f, 3440.f, 3450.f, 1.6073f, .33722f, .016402f, 1.5852e-5f,
- .018964f, -3.2271e-5f, 3450.f, 3460.f, 13.605f, .31569f, .0095057f,
- -1.5485e-5f, .0094813f, -1.6751e-5f, 3460.f, 3470.f, 7.5164f, .27307f,
- .0075889f, -4.7962e-6f, .012249f, -2.3811e-5f, 3470.f, 3480.f, 33.484f,
- .31131f, .0077627f, -1.1503e-5f, .0094019f, -2.0136e-5f, 3480.f, 3490.f,
- 13.815f, .23917f, .010592f, -3.1935e-5f, .012433f, -3.6436e-5f, 3490.f,
- 3500.f, 61.974f, .36287f, .0075577f, 2.6848e-6f, .010181f, -2.3323e-5f,
- 3500.f, 3510.f, 14.812f, .37195f, .008261f, -1.8654e-5f, .010113f,
- -3.1482e-5f, 3510.f, 3520.f, 83.223f, .39932f, .0076795f, 5.0656e-7f,
- .0082892f, -2.0998e-5f, 3520.f, 3530.f, 21.464f, .29835f, .014148f,
- -4.3852e-5f, .013193f, -5.1897e-5f, 3530.f, 3540.f, 78.956f, .41357f,
- .012512f, -2.8052e-5f, .0093167f, -3.188e-5f, 3540.f, 3550.f, 57.829f,
- .33002f, .0050941f, -8.3644e-6f, .0066338f, -1.927e-5f, 3550.f, 3560.f,
- 264.95f, .48627f, .0094242f, -2.4386e-5f, .0071083f, -3.052e-5f, 3560.f,
- 3570.f, 48.65f, .32647f, .003423f, -1.2164e-5f, .0023536f, -9.56e-6f,
- 3570.f, 3580.f, 278.65f, .3935f, .010521f, -4.8325e-5f, .0076691f,
- -3.9509e-5f, 3580.f, 3590.f, 160.87f, .35038f, .0056295f, -1.9831e-5f,
- .0040519f, -1.575e-5f, 3590.f, 3600.f, 337.87f, .23399f, .0064862f,
- -3.0846e-5f, .0044382f, -2.4648e-5f, 3600.f, 3610.f, 576.3f, .34952f,
- .0047866f, -2.6607e-5f, .0014788f, -1.5623e-5f, 3610.f, 3620.f, 753.87f,
- .18159f, .0042931f, -2.8734e-5f, .0024163f, -2.2384e-5f, 3620.f, 3630.f,
- 135.67f, .19692f, .0012097f, -8.0313e-6f, -4.4021e-4f, 5.3739e-7f,
- 3630.f, 3640.f, 776.59f, .21673f, .0021798f, -2.0291e-5f, 5.0596e-4f,
- -1.5749e-5f, 3640.f, 3650.f, 657.22f, .1435f, .001212f, -1.6829e-5f,
- -2.0471e-4f, -9.1773e-6f, 3650.f, 3660.f, 229.37f, .088535f, -3.47e-4f,
- -8.0698e-6f, 7.053e-4f, -5.8648e-7f, 3660.f, 3670.f, 1746.9f, .21306f,
- -.0011718f, -7.1619e-6f, -.0032694f, -2.8781e-7f, 3670.f, 3680.f,
- 833.45f, .086211f, -.0027517f, -7.8552e-7f, -.0033472f, 1.3487e-5f,
- 3680.f, 3690.f, 324.07f, .27669f, -.0021659f, 4.4909e-7f, -.0016982f,
- 1.0818e-5f, 3690.f, 3700.f, 485.79f, .23163f, -.0033766f, 7.1088e-6f,
- -.0016229f, 1.3215e-5f, 3700.f, 3710.f, 693.99f, .19031f, -.0023753f,
- 1.1342e-5f, 2.795e-4f, 1.1827e-5f, 3710.f, 3720.f, 309.49f, .32694f,
- .0051146f, -3.3747e-6f, .0055153f, -1.4764e-5f, 3720.f, 3730.f, 1205.8f,
- .33098f, 2.6244e-4f, 4.4389e-6f, 4.3858e-4f, -5.8687e-6f, 3730.f,
- 3740.f, 2387.3f, .35395f, -.0013313f, -2.6877e-6f, -.0025997f,
- -1.5668e-6f, 3740.f, 3750.f, 1331.8f, .24255f, -.0023524f, 5.7434e-7f,
- -.0030581f, 2.0511e-6f, 3750.f, 3760.f, 462.66f, .18423f, -.002022f,
- 1.4083e-6f, -.0011856f, 1.3407e-6f, 3760.f, 3770.f, 221.29f, .15206f,
- -.0045078f, 1.2626e-5f, -.0025579f, 1.1787e-5f, 3770.f, 3780.f, 72.994f,
- .26021f, -9.4598e-4f, 5.8721e-6f, .0020193f, 1.4281e-6f, 3780.f, 3790.f,
- 243.54f, .11623f, -.0039723f, 1.0003e-5f, -.0024749f, 1.1674e-5f,
- 3790.f, 3800.f, 1610.2f, .13844f, -.0050654f, 8.5459e-6f, -.0061217f,
- 1.4867e-5f, 3800.f, 3810.f, 925.09f, .095941f, -.0040019f, 4.2438e-6f,
- -.0041671f, 1.3408e-5f, 3810.f, 3820.f, 878.65f, .19813f, -.0032809f,
- 1.3909e-6f, -.0048774f, 6.0213e-6f, 3820.f, 3830.f, 1445.5f, .15082f,
- -.0027746f, -6.1623e-7f, -.004156f, 6.6755e-6f, 3830.f, 3840.f, 368.8f,
- .2433f, 4.8895e-4f, -1.2565e-5f, -3.1389e-4f, -8.6255e-6f, 3840.f,
- 3850.f, 2068.8f, .2275f, -8.8059e-4f, -7.9102e-6f, -.0024751f,
- -3.6839e-6f, 3850.f, 3860.f, 634.35f, .19602f, .0017316f, -1.7618e-5f,
- 2.7542e-4f, -9.9025e-6f, 3860.f, 3870.f, 660.01f, .16073f, .0019181f,
- -1.8141e-5f, 8.7743e-4f, -1.3268e-5f, 3870.f, 3880.f, 596.2f, .22715f,
- .0044999f, -2.8285e-5f, .0029743f, -2.3179e-5f, 3880.f, 3890.f, 497.07f,
- .23257f, .0049027f, -2.8299e-5f, .0031352f, -2.2089e-5f, 3890.f, 3900.f,
- 476.01f, .20656f, .0070284f, -3.7624e-5f, .0056038f, -3.3998e-5f,
- 3900.f, 3910.f, 97.812f, .12575f, .012028f, -5.8026e-5f, .010886f,
- -5.051e-5f, 3910.f, 3920.f, 154.07f, .2759f, .0075519f, -2.7169e-5f,
- .0059888f, -2.6593e-5f, 3920.f, 3930.f, 75.906f, .19815f, .014672f,
- -6.2916e-5f, .010813f, -4.7324e-5f, 3930.f, 3940.f, 91.761f, .19338f,
- .015621f, -6.9646e-5f, .014264f, -6.8568e-5f, 3940.f, 3950.f, 23.976f,
- .28167f, .0049108f, 1.7525e-5f, .0072419f, -1.0423e-5f, 3950.f, 3960.f,
- 14.037f, .20425f, .017638f, -2.7195e-5f, .013686f, -3.6754e-5f, 3960.f,
- 3970.f, 15.37f, .33316f, .0098866f, 2.0342e-5f, .011243f, -2.1419e-5f,
- 3970.f, 3980.f, 5.4881f, .22417f, .0075532f, 3.9091e-5f, .010416f,
- -2.6476e-6f, 3980.f, 3990.f, 8.3126f, .20066f, .013204f, -8.1155e-7f,
- .014493f, -3.2804e-5f, 3990.f, 4e3f, 8.7033f, .12823f, .0053683f,
- -1.0088e-5f, .0083956f, -9.9974e-6f, 4e3f, 4010.f, 7.1987f, .21615f,
- .0019288f, 1.9286e-5f, .006975f, 2.1036e-5f, 4010.f, 4020.f, 7.374f,
- .10603f, .0021924f, -1.68e-5f, .0031402f, 6.6314e-10f, 4020.f, 4030.f,
- 1.2253f, .20951f, .0061999f, 3.6357e-5f, .012788f, -6.0887e-6f, 4030.f,
- 4040.f, 7.9524f, .12691f, .0039534f, -2.3885e-5f, .0036525f,
- -1.0242e-5f, 4040.f, 4050.f, .51733f, .11847f, .011888f, -3.4371e-5f,
- .016178f, -2.9656e-5f, 4050.f, 4060.f, 1.8317f, .094248f, .0053224f,
- -2.5376e-5f, .005784f, -6.4186e-6f, 4060.f, 4070.f, 2.7229f, .12453f,
- .0093697f, -3.7263e-5f, .0090599f, -2.2481e-5f, 4070.f, 4080.f, 3.4742f,
- .19542f, .0072771f, -3.4478e-5f, .0043552f, -2.4708e-5f, 4080.f, 4090.f,
- .08819f, .11131f, .0125f, -3.4253e-5f, .016631f, -2.1563e-5f, 4090.f,
- 4100.f, 4.472f, .16534f, .0066915f, -3.536e-5f, .0054523f, -3.2561e-5f,
- 4100.f, 4110.f, .017698f, .14435f, .0099143f, 3.28e-5f, .020212f,
- 3.5978e-6f, 4110.f, 4120.f, .49468f, .13443f, .0087298f, -3.5276e-5f,
- .0068006f, -3.1378e-5f, 4120.f, 4130.f, 2.2881f, .15905f, .011097f,
- -4.923e-5f, .01025f, -4.8021e-5f, 4130.f, 4140.f, .62111f, .16054f,
- .011288f, -5.0025e-5f, .010196f, -4.7296e-5f, 4140.f, 4150.f, .60454f,
- .14755f, .014727f, -4.9548e-5f, .014191f, -5.8716e-5f, 4150.f, 4160.f,
- .093094f, .068954f, .004002f, -3.9015e-6f, .0055718f, -1.3126e-6f,
- 4160.f, 4170.f, .27101f, .093272f, .013113f, -5.6084e-5f, .012707f,
- -5.2567e-5f, 4170.f, 4180.f, .5398f, .067639f, .016122f, -7.5048e-5f,
- .013265f, -6.515e-5f, 4180.f, 4190.f, .44133f, .17104f, .016673f,
- -7.1388e-5f, .014609f, -6.461e-5f, 4190.f, 4200.f, .36918f, .11239f,
- .013785f, -5.548e-5f, .014404f, -5.8254e-5f, 4200.f, 4210.f, .13276f,
- .12746f, .017403f, -5.447e-5f, .013863f, -4.8485e-5f, 4210.f, 4220.f,
- .080464f, .086998f, .022044f, -9.2895e-5f, .019048f, -8.7985e-5f,
- 4220.f, 4230.f, .063692f, .14834f, .022806f, -8.4692e-5f, .023548f,
- -9.253e-5f, 4230.f, 4240.f, .01811f, .12119f, .018389f, -2.2676e-6f,
- .013683f, -2.6036e-5f, 4240.f, 4250.f, .209f, .16597f, .019432f,
- -7.8011e-5f, .019282f, -8.4089e-5f, 4250.f, 4260.f, .049819f, .06211f,
- .026704f, -1.1099e-4f, .025655f, -1.0067e-4f, 4260.f, 4270.f, .051444f,
- .1311f, .014568f, -3.4291e-5f, .014016f, -4.9479e-5f, 4270.f, 4280.f,
- .010759f, .15106f, .027993f, -1.0013e-4f, .023418f, -8.4057e-5f, 4280.f,
- 4290.f, .005931f, .085611f, .036412f, -1.5063e-4f, .034796f,
- -1.4138e-4f, 4290.f, 4300.f, .060294f, .13145f, .023253f, -8.8313e-5f,
- .022949f, -9.0705e-5f, 4300.f, 4310.f, .0087499f, .11428f, .024739f,
- -5.6984e-5f, .024765f, -7.2542e-5f, 4310.f, 4320.f, .0043984f, .17658f,
- .035844f, -1.1719e-4f, .030706f, -1.0295e-4f, 4320.f, 4330.f, .0031592f,
- .14762f, .014237f, 6.5312e-6f, .014523f, -1.9336e-5f, 4330.f, 4340.f,
-
- .0022605f, .13901f, .023941f, 1.0579e-5f, .023751f, -4.5551e-5f, 4340.f,
- 4350.f, 8.4338e-8f, 1.5285e-4f, .0047057f, -2.5631e-5f, .0022316f,
- -2.3738e-5f, 4350.f, 4360.f, 9.5411e-8f, 1.1284e-4f, .0051111f,
- -2.6317e-5f, .0030958f, -2.5483e-5f, 4360.f, 4370.f, 1.5708e-8f,
- 4.7653e-5f, .0099036f, -4.9633e-5f, .0072007f, -4.4307e-5f, 4370.f,
- 4380.f, 7.2646e-5f, .073368f, .017942f, 1.2698e-5f, .012584f,
- -3.4551e-5f, 4380.f, 4390.f, 5.9152e-5f, .041171f, .00839f, -4.5951e-5f,
- .0057949f, -4.0723e-5f, 4390.f, 4400.f, 9.0913e-5f, .0094376f, .037251f,
- -1.6131e-4f, .034629f, -1.5582e-4f, 4400.f, 4410.f, 3.4561e-8f,
- 4.7569e-5f, .0015514f, -1.0274e-5f, 6.5701e-7f, -1.2526e-5f, 4410.f,
- 4420.f, 4.3107e-4f, .054262f, .024045f, -4.9839e-5f, .016547f,
- -4.4636e-5f, 4420.f, 4430.f, 3.1142e-4f, .038963f, .014134f,
- -6.8927e-5f, .011537f, -6.369e-5f, 4430.f, 4440.f, 1.4945e-8f,
- 7.8332e-5f, .0089337f, -4.3145e-5f, .0069004f, -4.2442e-5f, 4440.f,
- 4450.f, .0016802f, .051222f, .015502f, -2.3447e-5f, .010002f,
- -3.2528e-5f, 4450.f, 4460.f, 1.0007e-4f, .066862f, .02459f, -9.8504e-5f,
- .022882f, -1.0233e-4f, 4460.f, 4470.f, .0030025f, .051153f, .01923f,
- -8.107e-5f, .015535f, -6.8267e-5f, 4470.f, 4480.f, 8.6831e-5f, .040458f,
- .036221f, -1.5713e-4f, .03335f, -1.5083e-4f, 4480.f, 4490.f, .0080902f,
- .1275f, .016863f, -7.6478e-5f, .01678f, -7.7918e-5f, 4490.f, 4500.f,
- .0022317f, .15229f, .012535f, -1.3795e-5f, .010875f, -3.7123e-5f,
- 4500.f, 4510.f, .019169f, .11664f, .010716f, -5.1479e-5f, .0082124f,
- -4.6198e-5f, 4510.f, 4520.f, .0065788f, .15986f, .012038f, -5.1957e-5f,
- .010074f, -5.1345e-5f, 4520.f, 4530.f, .03291f, .11768f, .0084067f,
- -4.3158e-5f, .0067305f, -4.0106e-5f, 4530.f, 4540.f, .044345f, .15763f,
- .0035365f, -2.4308e-5f, 7.9048e-4f, -1.7012e-5f, 4540.f, 4550.f,
- .027331f, .16819f, .0042859f, -2.1639e-5f, .0038192f, -2.5423e-5f,
- 4550.f, 4560.f, .020407f, .09609f, .001546f, -1.6323e-5f, 6.6197e-4f,
- -9.1244e-6f, 4560.f, 4570.f, .057143f, .18848f, .0030453f, -1.8516e-5f,
- .0016176f, -1.8614e-5f, 4570.f, 4580.f, .052929f, .13102f, -.0010515f,
- -4.5621e-6f, -.0023271f, 2.7682e-6f, 4580.f, 4590.f, .028557f, .14681f,
- -4.8301e-4f, -6.3151e-6f, -.0019647f, -5.3522e-6f, 4590.f, 4600.f,
- .0046383f, .13391f, .0088609f, -2.6493e-5f, .0082741f, -3.2453e-5f,
- 4600.f, 4610.f, .02773f, .10824f, -.0034789f, 5.4132e-6f, -.0030391f,
- 8.0678e-6f, 4610.f, 4620.f, .051267f, .16778f, -.0015076f, -7.4663e-7f,
- -.0025263f, 3.707e-6f, 4620.f, 4630.f, .0129f, .13459f, 4.1658e-4f,
- 7.4475e-7f, .0012458f, -7.7586e-6f, 4630.f, 4640.f, .044954f, .38311f,
- -.0018643f, 4.6026e-6f, -.0027134f, 4.4958e-6f, 4640.f, 4650.f,
- .0048639f, .10343f, .0025659f, -1.6961e-5f, .0023819f, -1.4778e-5f,
- 4650.f, 4660.f, .0012082f, .18004f, .014733f, -5.2646e-5f, .014275f,
- -6.0508e-5f, 4660.f, 4670.f, .0013469f, .34467f, .012177f, -2.3395e-5f,
- .010966f, -3.6299e-5f, 4670.f, 4680.f, .0068991f, .1607f, 6.4738e-4f,
- 3.7071e-6f, .0032901f, -2.0981e-6f, 4680.f, 4690.f, .027452f, .060959f,
- -.0051851f, 1.2668e-5f, -.0041528f, 2.6305e-5f, 4690.f, 4700.f,
- .017796f, .15523f, -.0027265f, 3.7407e-6f, -.0033733f, 1.0358e-5f,
- 4700.f, 4710.f, .011446f, .17796f, -6.8324e-4f, 6.8406e-6f, -.0010826f,
- 5.9431e-6f, 4710.f, 4720.f, .029309f, .13652f, -.0017282f, 6.762e-6f,
- 5.6764e-4f, 1.3237e-5f, 4720.f, 4730.f, .021395f, .18395f, -.0015768f,
- 1.4383e-5f, 1.5897e-4f, 8.796e-6f, 4730.f, 4740.f, .0025077f, .18622f,
- .0042912f, -4.9559e-6f, .0045676f, -2.6247e-6f, 4740.f, 4750.f,
- .031587f, .13943f, -.0012088f, -8.9815e-8f, -1.571e-4f, 2.0359e-5f,
- 4750.f, 4760.f, .034566f, .28253f, .0016858f, -8.995e-6f, 9.752e-4f,
- -8.1082e-6f, 4760.f, 4770.f, .020369f, .14591f, -.0014421f, 1.9399e-5f,
- .0039665f, 1.4338e-5f, 4770.f, 4780.f, .0081447f, .12195f, .0013964f,
- 3.2025e-5f, .0037728f, 2.0537e-5f, 4780.f, 4790.f, .019803f, .14625f,
- 9.6298e-4f, -2.9783e-6f, .0041118f, -9.7923e-7f, 4790.f, 4800.f,
- .0052146f, .17691f, .014543f, -3.1749e-5f, .0149f, -4.4049e-5f, 4800.f,
- 4810.f, .035065f, .21617f, -.0021492f, 2.3072e-5f, .001178f, 2.4416e-5f,
- 4810.f, 4820.f, .012656f, .15792f, .0083705f, -2.1219e-5f, .0082684f,
- -2.8775e-5f, 4820.f, 4830.f, .014126f, .4985f, .0096621f, 2.3197e-5f,
- .011163f, -2.0765e-5f, 4830.f, 4840.f, .023704f, .35541f, .0055808f,
- -1.0952e-6f, .0068854f, -1.3359e-5f, 4840.f, 4850.f, .032166f, .23632f,
- -2.3289e-4f, 7.945e-6f, .0017163f, 2.8957e-6f, 4850.f, 4860.f, .026468f,
- .24812f, .008326f, 8.9107e-6f, .010638f, -2.4848e-5f, 4860.f, 4870.f,
- .012607f, .28278f, .014341f, -1.7161e-5f, .017744f, -4.3433e-5f, 4870.f,
- 4880.f, .0019484f, .13452f, .014299f, -5.8644e-5f, .012622f,
- -5.8891e-5f, 4880.f, 4890.f, .019835f, .43138f, .016502f, -3.7834e-5f,
- .015564f, -5.3844e-5f, 4890.f, 4900.f, .031673f, .23676f, .018724f,
- -6.2795e-5f, .017963f, -6.7476e-5f, 4900.f, 4910.f, .020383f, .1686f,
- .02082f, -9.2373e-5f, .018807f, -8.5676e-5f, 4910.f, 4920.f, .034221f,
- .37729f, .014636f, 9.8132e-6f, .015033f, -3.2546e-5f, 4920.f, 4930.f,
- .041381f, .17341f, .004227f, 2.6778e-5f, .0073624f, -6.193e-6f, 4930.f,
- 4940.f, .050322f, .24574f, .01506f, -6.0731e-5f, .01171f, -4.9448e-5f,
- 4940.f, 4950.f, .11355f, .43168f, .012506f, -2.3567e-5f, .010508f,
- -3.2884e-5f, 4950.f, 4960.f, .073646f, .28063f, .01551f, -6.3821e-5f,
- .012136f, -5.1762e-5f, 4960.f, 4970.f, .0021754f, .2329f, .025115f,
- 1.3402e-6f, .023138f, -4.9298e-5f, 4970.f, 4980.f, .20462f, .37006f,
- .013871f, -5.7344e-5f, .011137f, -4.9726e-5f, 4980.f, 4990.f, .15479f,
- .14505f, .012101f, -5.5517e-5f, .011913f, -3.8561e-5f, 4990.f, 5e3f,
- .1627f, .14157f, .012656f, -4.9554e-5f, .01273f, -4.7918e-5f, 5e3f,
- 5010.f, .20283f, .16538f, .0098358f, -4.1905e-5f, .0091599f,
- -3.3109e-5f, 5010.f, 5020.f, .32847f, .20501f, .010455f, -3.0987e-5f,
- .011634f, -2.2216e-5f, 5020.f, 5030.f, .4088f, .1568f, .0097922f,
- -4.2397e-5f, .0098076f, -3.8651e-5f, 5030.f, 5040.f, .27012f, .21951f,
- .012867f, -1.8768e-6f, .012462f, -2.155e-5f, 5040.f, 5050.f, .5761f,
- .16605f, .0061804f, -3.0533e-5f, .0069772f, -1.7735e-5f, 5050.f, 5060.f
- };
-
- /* WATER VAPOR (2500 - 5040 CM-1) */
- for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
-} /* wava1 */
-
-
-void dica3 (float a[8], const long int inu)
-{
-
-
- static const float acr[2048] = { 4.1135e-5f, .13491f,
- .019511f, -8.8592e-5f, .017169f, -8.6383e-5f, 7620.f, 7630.f, 0.f, 0.f,
- 0.f, 0.f, 0.f, 0.f, 7630.f, 7640.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7640.f,
- 7650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7650.f, 7660.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 7660.f, 7670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7670.f, 7680.f,
- 6.9843e-6f, .05869f, .017996f, -8.495e-5f, .014986f, -7.9255e-5f,
- 7680.f, 7690.f, 4.4856e-5f, .1161f, .012313f, -6.1208e-5f, .0094917f,
- -5.6817e-5f, 7690.f, 7700.f, 2.1119e-4f, .14823f, .0058288f,
-
- -3.5255e-5f, .0029752f, -3.0772e-5f, 7700.f, 7710.f, 6.8368e-4f,
- .18822f, 2.1812e-4f, -1.3229e-5f, -.0027425f, -8.0771e-6f, 7710.f,
- 7720.f, 8.0401e-4f, .20648f, -.0032887f, 5.0708e-8f, -.0062117f,
- 5.94e-6f, 7720.f, 7730.f, 3.6897e-4f, .20612f, -.0045166f, 4.7173e-6f,
- -.0074494f, 1.0697e-5f, 7730.f, 7740.f, .0011094f, .31021f, -.0022536f,
- -1.0224e-6f, -.0033444f, 2.1129e-6f, 7740.f, 7750.f, 6.5848e-4f,
- .26193f, .0027594f, -2.1278e-5f, 2.5217e-4f, -1.8776e-5f, 7750.f,
- 7760.f, 7.3155e-5f, .30739f, .013041f, -6.319e-5f, .010499f,
- -6.0136e-5f, 7760.f, 7770.f, 1.9363e-5f, .19417f, .014647f, -7.1772e-5f,
- .011659f, -6.5892e-5f, 7770.f, 7780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 7780.f,
- 7790.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7790.f, 7800.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 7800.f, 7810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7810.f, 7820.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 7820.f, 7830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7830.f,
- 7840.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7840.f, 7850.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 7850.f, 7860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7860.f, 7870.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 7870.f, 7880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7880.f,
- 7890.f, 3.719e-5f, .1891f, 3.2484e-4f, -1.3576e-5f, -.0026862f,
- -8.2867e-6f, 7890.f, 7900.f, 9.4656e-5f, .363f, -.0020395f, -4.2752e-6f,
- -.0049939f, 1.2049e-6f, 7900.f, 7910.f, 7.3888e-5f, .33612f, -.0027854f,
- -1.4358e-6f, -.005628f, 3.7427e-6f, 7910.f, 7920.f, 3.5986e-5f, .14439f,
- -.0040916f, 3.0556e-6f, -.0070423f, 9.0581e-6f, 7920.f, 7930.f,
- 7.729e-5f, .22754f, -.0015562f, -6.2734e-6f, -.0044592f, -1.0627e-6f,
- 7930.f, 7940.f, 1.8388e-5f, .092491f, .0027526f, -2.4014e-5f,
- -3.4204e-4f, -1.8092e-5f, 7940.f, 7950.f, 1.9936e-7f, .0010968f,
- .001703f, -2.0156e-5f, -.0013872f, -1.4222e-5f, 7950.f, 7960.f,
- 4.9455e-7f, .0019615f, -.0015846f, -6.8674e-6f, -.004292f, -1.7132e-6f,
- 7960.f, 7970.f, 2.7828e-7f, .0013177f, -.0036989f, 1.1926e-6f,
- -.0065515f, 6.9563e-6f, 7970.f, 7980.f, 3.8372e-7f, .0017475f,
- -.0038411f, 1.7875e-6f, -.0067043f, 7.5942e-6f, 7980.f, 7990.f,
- 7.3276e-7f, .003011f, -6.7794e-4f, -9.4857e-6f, -.0034111f,
- -5.1641e-6f, 7990.f, 8e3f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8e3f, 8010.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 8010.f, 8020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 8020.f,
- 8030.f, 3.7029e-8f, 3.6096e-4f, .012109f, -6.2089e-5f, .0089059f,
- -5.5639e-5f, 8030.f, 8040.f, 2.1335e-7f, .0010751f, .0088149f,
- -4.8284e-5f, .0057133f, -4.2623e-5f, 8040.f, 8050.f, 4.6462e-7f,
- .001086f, .0049284f, -3.291e-5f, .0017555f, -2.6942e-5f, 8050.f, 8060.f,
- 1.5991e-6f, .0018385f, 6.4633e-4f, -1.5477e-5f, -.0022392f,
- -1.0372e-5f, 8060.f, 8070.f, 1.7752e-6f, .0016397f, -.0024966f,
- -3.4666e-6f, -.0051909f, 1.8847e-6f, 8070.f, 8080.f, 2.4423e-5f,
- .26254f, .02579f, -7.7107e-5f, .025403f, -1.1405e-4f, 8080.f, 8090.f,
- 6.1857e-5f, .23309f, .021977f, -7.7807e-5f, .020482f, -9.5402e-5f,
- 8090.f, 8100.f, 1.3473e-4f, .23293f, .019374f, -8.4779e-5f, .016814f,
- -8.2971e-5f, 8100.f, 8110.f, 3.3293e-4f, .42794f, .016857f, -7.4779e-5f,
- .01563f, -7.4735e-5f, 8110.f, 8120.f, 4.5545e-4f, .42084f, .014131f,
- -6.4833e-5f, .011587f, -6.2246e-5f, 8120.f, 8130.f, 3.9267e-4f, .4459f,
- .01422f, -6.6328e-5f, .010179f, -5.8346e-5f, 8130.f, 8140.f, .0014095f,
- .66221f, .012879f, -6.3481e-5f, .010259f, -5.9679e-5f, 8140.f, 8150.f,
- .0025744f, .34109f, .0081434f, -3.5365e-5f, .010242f, -4.4763e-5f,
- 8150.f, 8160.f, .0053482f, .12345f, .0021618f, -2.1398e-5f, -8.9174e-4f,
- -1.5761e-5f, 8160.f, 8170.f, .0085974f, .12902f, -.0011939f, -8.269e-6f,
- -.0041809f, -2.5012e-6f, 8170.f, 8180.f, .011093f, .20887f, -.0036354f,
- 1.357e-6f, -.006594f, 7.4093e-6f, 8180.f, 8190.f, .0090124f, .22951f,
- -.0041975f, 3.4952e-6f, -.0071581f, 9.6182e-6f, 8190.f, 8200.f,
- .022977f, .54634f, 5.4679e-4f, -7.4452e-6f, 3.2715e-5f, -7.7515e-6f,
- 8200.f, 8210.f, 4.0967e-5f, .33171f, .029828f, -1.2884e-4f, .027502f,
- -1.2751e-4f, 8210.f, 8220.f, 1.3117e-4f, .36661f, .024705f, -1.0516e-4f,
- .023688f, -1.1029e-4f, 8220.f, 8230.f, 4.1427e-4f, .33236f, .018964f,
- -8.1986e-5f, .018612f, -8.8547e-5f, 8230.f, 8240.f, .0011268f, .30228f,
- .013786f, -6.0455e-5f, .014251f, -6.6968e-5f, 8240.f, 8250.f, .0038631f,
- .3115f, .0080823f, -3.8679e-5f, .0084273f, -4.2578e-5f, 8250.f, 8260.f,
- .0060039f, .26991f, .0040499f, -2.3093e-5f, .0051036f, -2.751e-5f,
- 8260.f, 8270.f, .014968f, .24443f, -6.0624e-4f, -8.9134e-6f, -.0014888f,
- -7.5779e-6f, 8270.f, 8280.f, .015831f, .42226f, -.0020274f, 6.2203e-6f,
- -1.636e-4f, -2.1524e-6f, 8280.f, 8290.f, .0086272f, .42161f, -.0028717f,
- 1.6391e-5f, 5.8996e-4f, 1.5552e-5f, 8290.f, 8300.f, .038978f, .60506f,
- -1.8963e-4f, -4.6658e-6f, -.0011243f, -4.8784e-6f, 8300.f, 8310.f, 0.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 8310.f, 8320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 8320.f,
- 8330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8330.f, 8340.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 8340.f, 8350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8350.f, 8360.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 8360.f, 8370.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8370.f,
- 8380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8380.f, 8390.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 8390.f, 8400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8400.f, 8410.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 8410.f, 8420.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8420.f,
- 8430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8430.f, 8440.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 8440.f, 8450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8450.f, 8460.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 8460.f, 8470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8470.f,
- 8480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8480.f, 8490.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 8490.f, 8500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8500.f, 8510.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 8510.f, 8520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8520.f,
- 8530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8530.f, 8540.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 8540.f, 8550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8550.f, 8560.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 8560.f, 8570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8570.f,
- 8580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8580.f, 8590.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 8590.f, 8600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8600.f, 8610.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 8610.f, 8620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8620.f,
- 8630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8630.f, 8640.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 8640.f, 8650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8650.f, 8660.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 8660.f, 8670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8670.f,
- 8680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8680.f, 8690.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 8690.f, 8700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8700.f, 8710.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 8710.f, 8720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8720.f,
- 8730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8730.f, 8740.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 8740.f, 8750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8750.f, 8760.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 8760.f, 8770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8770.f,
- 8780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8780.f, 8790.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 8790.f, 8800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8800.f, 8810.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 8810.f, 8820.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8820.f,
- 8830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8830.f, 8840.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 8840.f, 8850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8850.f, 8860.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 8860.f, 8870.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8870.f,
- 8880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8880.f, 8890.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 8890.f, 8900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8900.f, 8910.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 8910.f, 8920.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8920.f,
- 8930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8930.f, 8940.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 8940.f, 8950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8950.f, 8960.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 8960.f, 8970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8970.f,
- 8980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8980.f, 8990.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 8990.f, 9e3f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9e3f, 9010.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 9010.f, 9020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9020.f,
- 9030.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9030.f, 9040.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 9040.f, 9050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9050.f, 9060.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 9060.f, 9070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9070.f,
- 9080.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9080.f, 9090.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 9090.f, 9100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9100.f, 9110.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 9110.f, 9120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9120.f,
- 9130.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9130.f, 9140.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 9140.f, 9150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9150.f, 9160.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 9160.f, 9170.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9170.f,
- 9180.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9180.f, 9190.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 9190.f, 9200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9200.f, 9210.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 9210.f, 9220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9220.f,
- 9230.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9230.f, 9240.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 9240.f, 9250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9250.f, 9260.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 9260.f, 9270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9270.f,
- 9280.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9280.f, 9290.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 9290.f, 9300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9300.f, 9310.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 9310.f, 9320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9320.f,
- 9330.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9330.f, 9340.f, 9.9593e-6f, .060237f,
- .0097616f, -5.2148e-5f, .0066534f, -4.6124e-5f, 9340.f, 9350.f,
- 4.3567e-5f, .12051f, .0054505f, -3.4277e-5f, .0024633f, -2.9032e-5f,
- 9350.f, 9360.f, 8.8924e-5f, .12477f, .0012273f, -1.774e-5f, -.0018429f,
- -1.1984e-5f, 9360.f, 9370.f, 1.5573e-4f, .16489f, -.0021342f,
- -4.4631e-6f, -.005046f, 1.1731e-6f, 9370.f, 9380.f, 9.4382e-5f, .17579f,
- -.0041243f, 3.1944e-6f, -.0071235f, 9.3601e-6f, 9380.f, 9390.f,
- 2.1829e-4f, .27491f, -.0034678f, 8.2722e-7f, -.0064858f, 7.0242e-6f,
- 9390.f, 9400.f, 2.27e-4f, .36616f, .0019245f, -1.579e-5f, -1.5673e-4f,
- -1.5436e-5f, 9400.f, 9410.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9410.f, 9420.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9420.f, 9430.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 9430.f, 9440.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9440.f, 9450.f, 4.0618e-5f,
- .33672f, .016922f, -7.9759e-5f, .013854f, -7.4271e-5f, 9450.f, 9460.f,
- 8.026e-5f, .35567f, .013366f, -6.6285e-5f, .010448f, -6.0815e-5f,
- 9460.f, 9470.f, 1.7445e-4f, .15326f, .0081302f, -4.4538e-5f, .0056112f,
- -4.1022e-5f, 9470.f, 9480.f, 3.3041e-4f, .26053f, .0049592f, -2.831e-5f,
- .0049032f, -3.3415e-5f, 9480.f, 9490.f, 8.9723e-4f, .1582f, -1.1481e-4f,
- -1.225e-5f, -.0031268f, -6.7086e-6f, 9490.f, 9500.f, 8.7248e-4f,
- .13522f, -.0029599f, -1.3666e-6f, -.005813f, 4.3278e-6f, 9500.f, 9510.f,
- 5.7391e-4f, .20153f, -.0043771f, 4.1806e-6f, -.0073125f, 1.0212e-5f,
- 9510.f, 9520.f, .002106f, .33852f, -.0026269f, -1.9082e-6f, -.0056393f,
- 3.824e-6f, 9520.f, 9530.f, 8.7766e-4f, .35363f, .0044041f, -2.4109e-5f,
- .0031707f, -2.6057e-5f, 9530.f, 9540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 9540.f, 9550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9550.f, 9560.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 9560.f, 9570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9570.f,
- 9580.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9580.f, 9590.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 9590.f, 9600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9600.f, 9610.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 9610.f, 9620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9620.f,
- 9630.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9630.f, 9640.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 9640.f, 9650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9650.f, 9660.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 9660.f, 9670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9670.f,
- 9680.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9680.f, 9690.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 9690.f, 9700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9700.f, 9710.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 9710.f, 9720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9720.f,
- 9730.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9730.f, 9740.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 9740.f, 9750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9750.f, 9760.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 9760.f, 9770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9770.f,
- 9780.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9780.f, 9790.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 9790.f, 9800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9800.f, 9810.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 9810.f, 9820.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9820.f,
- 9830.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9830.f, 9840.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 9840.f, 9850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9850.f, 9860.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 9860.f, 9870.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9870.f,
- 9880.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9880.f, 9890.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 9890.f, 9900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9900.f, 9910.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 9910.f, 9920.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9920.f,
- 9930.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9930.f, 9940.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 9940.f, 9950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9950.f, 9960.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 9960.f, 9970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9970.f,
- 9980.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9980.f, 9990.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 9990.f, 1e4f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1e4f, 10010.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 10010.f, 10020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10020.f,
- 10030.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10030.f, 10040.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 10040.f, 10050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10050.f, 10060.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 10060.f, 10070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 10070.f,
- 10080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10080.f, 10090.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 10090.f, 10100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10100.f,
- 10110.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10110.f, 10120.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 10120.f, 10130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10130.f, 10140.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 10140.f, 10150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 10150.f,
- 10160.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10160.f, 10170.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 10170.f, 10180.f
- };
-
- /* carbon dioxide (7620 - 10170 cm-1) */
- for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
-} /* dica3 */
-
-
-void dica2 (float a[8], const long int inu)
-{
-
-
- static const float acr[2048] = { .37011f, .18132f,
- .0098385f, -4.992e-5f, .0096965f, -3.9497e-5f, 5060.f, 5070.f, 1.7202f,
- .2316f, .0029954f, -2.2435e-5f, .0029757f, -9.2488e-6f, 5070.f, 5080.f,
- 3.3606f, .25416f, -.0016977f, -4.0846e-6f, -.0013656f, 1.1658e-5f,
- 5080.f, 5090.f, 1.8282f, .30223f, -.0032772f, 9.4805e-6f, -5.335e-4f,
- 2.1209e-5f, 5090.f, 5100.f, 2.9024f, .38026f, -.0030989f, 7.2616e-6f,
- -.001377f, 1.615e-5f, 5100.f, 5110.f, 4.2563f, .41711f, -1.4453e-4f,
- -8.0697e-6f, 4.2978e-4f, -2.7285e-6f, 5110.f, 5120.f, 1.1106f, .56558f,
- .0071956f, -3.6594e-5f, .0079066f, -3.7847e-5f, 5120.f, 5130.f, .30634f,
- .97715f, .015099f, -6.7211e-5f, .015152f, -6.5294e-5f, 5130.f, 5140.f,
- .11213f, .77801f, .019757f, -8.6279e-5f, .020188f, -8.4289e-5f, 5140.f,
- 5150.f, .014584f, 1.0474f, .030585f, -1.2981e-4f, .030136f, -1.2999e-4f,
- 5150.f, 5160.f, .001482f, .96349f, .039762f, -1.6303e-4f, .039329f,
- -1.6879e-4f, 5160.f, 5170.f, 7.185e-5f, .75521f, .050597f, -1.9183e-4f,
- .049189f, -2.096e-4f, 5170.f, 5180.f, 2.9909e-5f, .14908f, .03608f,
- -1.1815e-4f, .034793f, -1.453e-4f, 5180.f, 5190.f, 1.2504e-4f, .18326f,
- .032726f, -1.4282e-4f, .029813f, -1.3805e-4f, 5190.f, 5200.f,
- 2.1512e-4f, .19978f, .02843f, -1.2662e-4f, .025525f, -1.2103e-4f,
- 5200.f, 5210.f, 9.6169e-5f, .20142f, .026447f, -1.1912e-4f, .023511f,
- -1.1308e-4f, 5210.f, 5220.f, 1.9738e-4f, .21048f, .02716f, -1.2182e-4f,
- .024213f, -1.1582e-4f, 5220.f, 5230.f, 2.6384e-4f, .44256f, .028679f,
- -1.144e-4f, .024161f, -1.056e-4f, 5230.f, 5240.f, 3.6492e-4f, .82665f,
- .01703f, -5.0383e-5f, .015395f, -5.7885e-5f, 5240.f, 5250.f, 1.5039e-4f,
- .27488f, .013098f, -6.1988e-5f, .010623f, -5.4594e-5f, 5250.f, 5260.f,
- 2.4449e-4f, .45805f, .01877f, -8.2525e-5f, .016371f, -8.1515e-5f,
- 5260.f, 5270.f, 6.037e-5f, .43685f, .016157f, -6.0387e-5f, .013838f,
- -6.3959e-5f, 5270.f, 5280.f, 4.5624e-4f, 1.0732f, .012236f, -4.3571e-5f,
- .011139f, -5.5369e-5f, 5280.f, 5290.f, 9.4288e-4f, .71418f, .0033079f,
- -9.3343e-6f, .0045345f, -2.5858e-5f, 5290.f, 5300.f, .0024083f, .75842f,
- .0033829f, 4.6857e-7f, .0043964f, -1.9712e-5f, 5300.f, 5310.f, .011861f,
- .7448f, -.0016809f, -1.8723e-6f, -.0036883f, 4.435e-6f, 5310.f, 5320.f,
- .005669f, .26992f, -.0026897f, -1.9753e-6f, -.0056893f, 3.9128e-6f,
- 5320.f, 5330.f, .0043472f, .36618f, .0037666f, -2.1625e-5f, .0021182f,
- -2.2907e-5f, 5330.f, 5340.f, 6.5931e-5f, .17111f, .021978f, -9.6238e-5f,
- .020336f, -9.699e-5f, 5340.f, 5350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 5350.f,
- 5360.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5360.f, 5370.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 5370.f, 5380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5380.f, 5390.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 5390.f, 5400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5400.f,
- 5410.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5410.f, 5420.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 5420.f, 5430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5430.f, 5440.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 5440.f, 5450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5450.f,
- 5460.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5460.f, 5470.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 5470.f, 5480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5480.f, 5490.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 5490.f, 5500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5500.f,
- 5510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5510.f, 5520.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 5520.f, 5530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5530.f, 5540.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 5540.f, 5550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5550.f,
- 5560.f, 6.8899e-6f, .12901f, .032092f, -1.4141e-4f, .029106f,
- -1.3565e-4f, 5560.f, 5570.f, 5.4438e-6f, .10241f, .030061f, -1.3353e-4f,
- .027225f, -1.2783e-4f, 5570.f, 5580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 5580.f,
- 5590.f, 1.3218e-5f, .23142f, .031168f, -1.3734e-4f, .028262f,
- -1.3193e-4f, 5590.f, 5600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5600.f, 5610.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5610.f, 5620.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 5620.f, 5630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5630.f, 5640.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 5640.f, 5650.f, 3.3959e-6f, .061663f, .034194f,
- -1.4999e-4f, .031058f, -1.438e-4f, 5650.f, 5660.f, 1.0828e-5f, .12604f,
- .03117f, -1.3759e-4f, .028105f, -1.3178e-4f, 5660.f, 5670.f, 1.7083e-5f,
- .16767f, .028148f, -1.2567e-4f, .025263f, -1.1999e-4f, 5670.f, 5680.f,
- 4.9699e-6f, .072931f, .026646f, -1.1993e-4f, .02372f, -1.1402e-4f,
- 5680.f, 5690.f, 3.2495e-5f, .33854f, .028198f, -1.2521e-4f, .025185f,
- -1.1947e-4f, 5690.f, 5700.f, 8.5544e-6f, .12346f, .03299f, -1.4471e-4f,
- .029937f, -1.3907e-4f, 5700.f, 5710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 5710.f,
- 5720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5720.f, 5730.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 5730.f, 5740.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5740.f, 5750.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 5750.f, 5760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5760.f,
- 5770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5770.f, 5780.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 5780.f, 5790.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5790.f, 5800.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 5800.f, 5810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5810.f,
- 5820.f, 1.0801e-7f, 6.4763e-4f, .00504f, -3.331e-5f, .0018319f,
- -2.715e-5f, 5820.f, 5830.f, 3.6558e-7f, .0011712f, .0012766f,
- -1.7918e-5f, -.0017271f, -1.2476e-5f, 5830.f, 5840.f, 6.5048e-7f,
- .0015865f, -.0022804f, -3.9603e-6f, -.0050092f, 1.3558e-6f, 5840.f,
- 5850.f, 2.8928e-7f, .0011091f, -.0041564f, 3.1815e-6f, -.0071328f,
- 9.2288e-6f, 5850.f, 5860.f, 8.7451e-7f, .0023908f, -.003329f,
- 2.1406e-7f, -.0062303f, 6.1286e-6f, 5860.f, 5870.f, 6.7089e-7f,
- .0021602f, .0012514f, -1.6242e-5f, -.0014507f, -1.275e-5f, 5870.f,
- 5880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5880.f, 5890.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 5890.f, 5900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5900.f, 5910.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 5910.f, 5920.f, 1.7501e-8f, 1.3034e-4f, .0051578f,
- -3.4109e-5f, .0018735f, -2.7495e-5f, 5920.f, 5930.f, 6.9507e-7f,
- .0034287f, 4.4624e-4f, -1.3702e-5f, -.0024553f, -8.9919e-6f, 5930.f,
- 5940.f, 7.8354e-7f, .0027679f, -.002211f, -4.0762e-6f, -.0050605f,
- 1.5266e-6f, 5940.f, 5950.f, 1.7028e-5f, .28847f, .029444f, -1.0994e-4f,
- .027638f, -1.257e-4f, 5950.f, 5960.f, 1.43e-5f, .23307f, .025314f,
- -6.3115e-5f, .025428f, -1.0758e-4f, 5960.f, 5970.f, 2.9931e-5f, .32693f,
- .031262f, -1.0549e-4f, .030096f, -1.315e-4f, 5970.f, 5980.f, 1.6591e-4f,
- .85547f, .027749f, -1.2007e-4f, .025471f, -1.1947e-4f, 5980.f, 5990.f,
- 4.2245e-4f, .43143f, .020385f, -9.2124e-5f, .018281f, -8.9908e-5f,
- 5990.f, 6e3f, 9.3274e-4f, .46433f, .015249f, -7.1885e-5f, .01312f,
- -6.839e-5f, 6e3f, 6010.f, 7.0225e-4f, .54757f, .013086f, -5.8065e-5f,
- .011855f, -5.6321e-5f, 6010.f, 6020.f, 6.928e-4f, .65125f, .013222f,
- -5.6472e-5f, .011874f, -5.5027e-5f, 6020.f, 6030.f, .0015664f, .5897f,
- .015019f, -7.1875e-5f, .012178f, -6.7231e-5f, 6030.f, 6040.f, .0038079f,
- .38374f, .0089238f, -3.815e-5f, .0095406f, -4.6524e-5f, 6040.f, 6050.f,
- .011401f, .22142f, .0011962f, -1.4969e-5f, 5.0672e-4f, -5.0173e-6f,
- 6050.f, 6060.f, .015986f, .20314f, -.0028719f, -1.5218e-6f, -.0057785f,
- 4.2132e-6f, 6060.f, 6070.f, .0065575f, .20869f, -.0045237f, 4.7582e-6f,
- -.0074277f, 1.0726e-5f, 6070.f, 6080.f, .016542f, .20732f, -.0033062f,
- 1.2692e-7f, -.0062117f, 5.9729e-6f, 6080.f, 6090.f, .0148f, .21832f,
- 5.2489e-4f, -1.4021e-5f, -.002348f, -9.405e-6f, 6090.f, 6100.f,
- .0037777f, .221f, .0079105f, -4.1125e-5f, .0056565f, -3.9694e-5f,
- 6100.f, 6110.f, 2.3785e-4f, .20223f, .019267f, -7.498e-5f, .018479f,
- -8.4052e-5f, 6110.f, 6120.f, 8.7992e-6f, .013627f, .0023267f,
- 9.2669e-5f, .014502f, 8.1104e-5f, 6120.f, 6130.f, 4.6902e-5f, .41886f,
- .0248f, 7.0996e-5f, .036122f, -1.3184e-4f, 6130.f, 6140.f, 1.7614e-4f,
- .70325f, .034157f, -1.2548e-4f, .032692f, -1.4479e-4f, 6140.f, 6150.f,
- 5.1423e-4f, .765f, .030511f, -1.3248e-4f, .028126f, -1.2927e-4f, 6150.f,
- 6160.f, .0016425f, .80783f, .024399f, -1.0406e-4f, .023798f,
- -1.0618e-4f, 6160.f, 6170.f, .0047297f, .7047f, .018441f, -8.1354e-5f,
- .017633f, -8.284e-5f, 6170.f, 6180.f, .012112f, .7774f, .014404f,
- -6.4815e-5f, .014093f, -6.4401e-5f, 6180.f, 6190.f, .029946f, .46202f,
- .0077033f, -3.8421e-5f, .0091624f, -3.7333e-5f, 6190.f, 6200.f,
- .084779f, .36412f, .0025097f, -1.7677e-5f, .0033111f, -1.9653e-5f,
- 6200.f, 6210.f, .14928f, .35083f, -.0016626f, 6.5627e-7f, -1.0556e-5f,
- 3.0708e-6f, 6210.f, 6220.f, .055916f, .2564f, -.0037859f, 9.6465e-6f,
- -4.846e-4f, 2.9685e-5f, 6220.f, 6230.f, .14147f, .24788f, -.0037163f,
- 1.7896e-6f, -.006379f, 1.0289e-5f, 6230.f, 6240.f, .16605f, .27773f,
- 3.1594e-4f, -1.2404e-5f, -.0024142f, -8.6644e-6f, 6240.f, 6250.f,
- .026015f, .2642f, .0096177f, -4.5715e-5f, .0081902f, -4.718e-5f, 6250.f,
- 6260.f, 3.4429e-4f, .24315f, .027429f, -1.0196e-4f, .028346f,
- -1.1603e-4f, 6260.f, 6270.f, 4.6627e-5f, .19149f, .036426f, -1.3678e-4f,
- .034831f, -1.5131e-4f, 6270.f, 6280.f, 2.1373e-4f, .25683f, .031955f,
- -1.3913e-4f, .029335f, -1.3555e-4f, 6280.f, 6290.f, .0013513f, .24863f,
- .022352f, -9.6861e-5f, .021515f, -9.9991e-5f, 6290.f, 6300.f, .0054489f,
- .20135f, .014377f, -6.5562e-5f, .015352f, -6.4813e-5f, 6300.f, 6310.f,
- .027679f, .22784f, .0074243f, -3.7863e-5f, .0085371f, -3.3611e-5f,
- 6310.f, 6320.f, .078593f, .25925f, .0020493f, -1.5599e-5f, .0043199f,
- -6.7814e-6f, 6320.f, 6330.f, .14691f, .31965f, -.0018417f, -2.6752e-7f,
- -4.3593e-4f, 7.2456e-6f, 6330.f, 6340.f, .060904f, .38372f, -.0026072f,
- 1.0806e-5f, 3.4105e-5f, 6.1858e-6f, 6340.f, 6350.f, .16958f, .41812f,
- -.0032411f, 1.9629e-6f, -.0029726f, 8.5775e-6f, 6350.f, 6360.f, .14604f,
- .4663f, .0014212f, -1.3457e-5f, .0019636f, -1.361e-5f, 6360.f, 6370.f,
- .031358f, .68476f, .010997f, -4.6694e-5f, .011746f, -5.4252e-5f, 6370.f,
- 6380.f, .0010642f, .83438f, .027721f, -1.1549e-4f, .027342f,
- -1.2081e-4f, 6380.f, 6390.f, 1.0993e-5f, .084985f, .011868f, 1.2012e-4f,
- .014373f, 3.5831e-5f, 6390.f, 6400.f, 6.8548e-5f, .19065f, -1.396e-4f,
- -1.1926e-5f, -.0033005f, -5.8719e-6f, 6400.f, 6410.f, 5.8606e-5f,
- .18176f, .0053969f, -3.2912e-5f, .0024598f, -2.8413e-5f, 6410.f, 6420.f,
- 1.3107e-5f, .089518f, .011918f, -6.0253e-5f, .0088864f, -5.4787e-5f,
- 6420.f, 6430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6430.f, 6440.f, 1.17e-5f,
- .080752f, .030987f, -1.3581e-4f, .028483f, -1.3216e-4f, 6440.f, 6450.f,
- 1.5147e-4f, .133f, .021388f, -9.5943e-5f, .019129f, -9.4039e-5f, 6450.f,
- 6460.f, .0010569f, .14161f, .012722f, -6.2067e-5f, .010104f,
- -5.8766e-5f, 6460.f, 6470.f, .0062046f, .17678f, .0050148f, -3.1545e-5f,
- .002256f, -2.7623e-5f, 6470.f, 6480.f, .012909f, .15821f, -1.1368e-4f,
- -1.2254e-5f, -.0031262f, -6.7108e-6f, 6480.f, 6490.f, .018519f, .26278f,
- -.0033124f, 1.2436e-6f, -.0049708f, 1.187e-5f, 6490.f, 6500.f,
- .0094276f, .28543f, -.0037172f, 9.5584e-6f, -.0028297f, 1.7915e-5f,
- 6500.f, 6510.f, .02326f, .34557f, -.0016092f, -1.5397e-6f, -.0015497f,
- 2.6953e-6f, 6510.f, 6520.f, .011602f, .45777f, .0040857f, -2.3186e-5f,
- .003463f, -2.4006e-5f, 6520.f, 6530.f, .0026251f, 1.0461f, .0096811f,
- -3.5495e-5f, .0054387f, -2.7418e-5f, 6530.f, 6540.f, .0013999f, .87933f,
- .011802f, -4.3414e-5f, .0093028f, -3.5381e-5f, 6540.f, 6550.f,
- .0010684f, .70255f, .015871f, -6.462e-5f, .012638f, -5.6493e-5f, 6550.f,
- 6560.f, 1.6155e-4f, .42392f, .025507f, -1.1133e-4f, .023436f,
- -1.1063e-4f, 6560.f, 6570.f, 1.8042e-5f, .32854f, .030046f, -1.3213e-4f,
- .02717f, -1.2714e-4f, 6570.f, 6580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 6580.f,
- 6590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6590.f, 6600.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 6600.f, 6610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6610.f, 6620.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 6620.f, 6630.f, 1.6128e-5f, .088896f, .01184f,
- -5.9958e-5f, .0088458f, -5.4627e-5f, 6630.f, 6640.f, 5.7685e-5f, .1197f,
- .0066894f, -3.9133e-5f, .0037276f, -3.4034e-5f, 6640.f, 6650.f,
- 1.6743e-4f, .15492f, .0016277f, -1.8979e-5f, -.0013919f, -1.3601e-5f,
- 6650.f, 6660.f, 2.3995e-4f, .19763f, -.0015517f, -2.5448e-6f,
- -.0034273f, 4.3033e-7f, 6660.f, 6670.f, .0011561f, .75988f, -.001204f,
- -2.7363e-6f, -.0037117f, -3.8924e-7f, 6670.f, 6680.f, 2.3092e-4f,
- .26967f, -.0038326f, 2.1748e-6f, -.0067421f, 8.1124e-6f, 6680.f, 6690.f,
- 1.8913e-4f, .29419f, 2.3018e-4f, -1.1781e-5f, -.0022434f, -9.0419e-6f,
- 6690.f, 6700.f, 4.262e-6f, .033197f, .008741f, -4.0921e-5f, .0057336f,
- -3.8266e-5f, 6700.f, 6710.f, 9.8135e-7f, .0038989f, .019411f,
- -9.0203e-5f, .01638f, -8.4877e-5f, 6710.f, 6720.f, 2.4238e-6f,
- .0042762f, .015022f, -7.3077e-5f, .01219f, -6.7965e-5f, 6720.f, 6730.f,
- 4.5088e-6f, .0043488f, .010996f, -5.6685e-5f, .0085436f, -5.3188e-5f,
- 6730.f, 6740.f, 1.0584e-5f, .0026967f, .0057298f, -3.4851e-5f,
- .0039372f, -3.384e-5f, 6740.f, 6750.f, 2.4861e-5f, .0051111f, .0029099f,
- -1.5549e-5f, .0043761f, -2.6982e-5f, 6750.f, 6760.f, 3.9077e-5f,
- .0028826f, -.001771f, -1.6701e-6f, -.001197f, 3.3e-6f, 6760.f, 6770.f,
- 2.3656e-5f, .0021453f, -.004179f, 3.1183e-6f, -.0071966f, 9.311e-6f,
- 6770.f, 6780.f, 4.577e-5f, .0032492f, -.003795f, 1.7261e-6f, -.006782f,
- 7.9425e-6f, 6780.f, 6790.f, 6.1088e-5f, .0055679f, .001493f,
- -1.1871e-5f, 7.2114e-4f, -1.3903e-5f, 6790.f, 6800.f, 0.f, 0.f, 0.f, 0.f,
- 0.f, 0.f, 6800.f, 6810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6810.f, 6820.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 6820.f, 6830.f, 9.2277e-7f, .029726f, .049361f,
- -2.108e-4f, .046239f, -2.0451e-4f, 6830.f, 6840.f, 1.4134e-5f, .25624f,
- .046651f, -1.979e-4f, .043955f, -1.9411e-4f, 6840.f, 6850.f, 7.2012e-5f,
- .62577f, .042787f, -1.8123e-4f, .0404f, -1.7929e-4f, 6850.f, 6860.f,
- 1.8633e-4f, .5831f, .038378f, -1.6303e-4f, .035924f, -1.6051e-4f,
- 6860.f, 6870.f, 5.7256e-4f, .7495f, .03396f, -1.4641e-4f, .03134f,
- -1.4291e-4f, 6870.f, 6880.f, .0014919f, .79461f, .029669f, -1.2898e-4f,
- .027598f, -1.2671e-4f, 6880.f, 6890.f, .003259f, .69112f, .02466f,
- -1.0873e-4f, .022993f, -1.093e-4f, 6890.f, 6900.f, .0079821f, .66219f,
- .020779f, -9.1999e-5f, .020053f, -9.48e-5f, 6900.f, 6910.f, .019955f,
- .70298f, .016653f, -7.4032e-5f, .017622f, -7.4061e-5f, 6910.f, 6920.f,
- .047678f, .44625f, .011512f, -5.6613e-5f, .010983f, -5.0893e-5f, 6920.f,
- 6930.f, .072667f, .31454f, .0067346f, -3.8595e-5f, .0058565f,
- -4.0764e-5f, 6930.f, 6940.f, .21391f, .45263f, .0039143f, -1.9313e-5f,
- .0056575f, -2.8872e-5f, 6940.f, 6950.f, .3773f, .2493f, -.0011236f,
- -3.7053e-6f, 4.1967e-4f, 5.3393e-6f, 6950.f, 6960.f, .29585f, .17647f,
- -.0038687f, 2.2126e-6f, -.0068173f, 8.2438e-6f, 6960.f, 6970.f, .30531f,
- .23118f, -.004195f, 3.5322e-6f, -.0069672f, 1.113e-5f, 6970.f, 6980.f,
- .77834f, .54008f, 5.3815e-4f, -7.5276e-6f, -1.0156e-4f, -7.935e-6f,
- 6980.f, 6990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6990.f, 7e3f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 7e3f, 7010.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7010.f, 7020.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 7020.f, 7030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7030.f,
- 7040.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7040.f, 7050.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 7050.f, 7060.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7060.f, 7070.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 7070.f, 7080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7080.f,
- 7090.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7090.f, 7100.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 7100.f, 7110.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7110.f, 7120.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 7120.f, 7130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7130.f,
- 7140.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7140.f, 7150.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
-
- 0.f, 7150.f, 7160.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7160.f, 7170.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 7170.f, 7180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7180.f,
- 7190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7190.f, 7200.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 7200.f, 7210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7210.f, 7220.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 7220.f, 7230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7230.f,
- 7240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7240.f, 7250.f, 9.7362e-6f,
- .061285f,
- .004498f, -3.1185e-5f, .0013664f, -2.5022e-5f, 7250.f, 7260.f,
- 5.4706e-5f, .18852f, 2.4251e-4f, -1.332e-5f, -.0027302f, -8.1259e-6f,
- 7260.f, 7270.f, 6.1563e-5f, .20629f, -.0032814f, 2.2e-8f, -.0062079f,
- 5.925e-6f, 7270.f, 7280.f, 1.4699e-5f, .075241f, -.0044219f, 4.3348e-6f,
- -.0074089f, 1.0364e-5f, 7280.f, 7290.f, 7.0542e-5f, .20329f, -.002882f,
- -1.4802e-6f, -.0057837f, 4.2344e-6f, 7290.f, 7300.f, 5.4492e-5f,
- .21457f, .0013783f, -1.721e-5f, -.0014841f, -1.2786e-5f, 7300.f, 7310.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7310.f, 7320.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 7320.f, 7330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7330.f, 7340.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 7340.f, 7350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7350.f,
- 7360.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7360.f, 7370.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 7370.f, 7380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7380.f, 7390.f, 4.0391e-5f,
- .34559f, .016271f, -7.7571e-5f, .013286f, -7.2256e-5f, 7390.f, 7400.f,
- 4.8302e-5f, .37526f, .012898f, -6.4691e-5f, .010001f, -5.8901e-5f,
- 7400.f, 7410.f, 2.6773e-5f, .14702f, .016569f, -7.6331e-5f, .013558f,
- -7.16e-5f, 7410.f, 7420.f, 2.0816e-4f, .52374f, .010994f, -5.4458e-5f,
- .0090105f, -5.4076e-5f, 7420.f, 7430.f, 4.8129e-4f, .23329f, .0042161f,
- -2.5147e-5f, .0034174f, -2.5567e-5f, 7430.f, 7440.f, .0010907f, .19364f,
- -.0012077f, -7.8171e-6f, -.0041544f, -2.4136e-6f, 7440.f, 7450.f,
- 7.8191e-4f, .2075f, -.0039131f, 2.4015e-6f, -.0069105f, 8.5956e-6f,
- 7450.f, 7460.f, 7.115e-4f, .19688f, -.0041668f, 3.3692e-6f, -.0070951f,
- 9.4003e-6f, 7460.f, 7470.f, .0014863f, .25817f, -.0012495f, -7.1361e-6f,
- -.0041323f, -2.2309e-6f, 7470.f, 7480.f, 4.7705e-4f, .2487f, .005832f,
- -3.2625e-5f, .0036125f, -3.1486e-5f, 7480.f, 7490.f, 2.3552e-5f,
- .11333f, .017332f, -8.0926e-5f, .014655f, -7.7124e-5f, 7490.f, 7500.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7500.f, 7510.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 7510.f, 7520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7520.f, 7530.f, 7.1378e-6f,
- .057272f, .023828f, -1.0818e-4f, .020923f, -1.0279e-4f, 7530.f, 7540.f,
- 5.5634e-5f, .11302f, .017308f, -8.0844e-5f, .014641f, -7.7072e-5f,
- 7540.f, 7550.f, 3.874e-4f, .29038f, .010833f, -4.9887e-5f, .010414f,
- -5.4606e-5f, 7550.f, 7560.f, 9.6863e-4f, .27281f, .0053932f,
- -2.8655e-5f, .0052931f, -3.3358e-5f, 7560.f, 7570.f, .0023248f, .26964f,
- 4.149e-4f, -1.1296e-5f, -6.0618e-5f, -1.1765e-5f, 7570.f, 7580.f,
- .0029909f, .2796f, -.0030237f, 8.4962e-7f, -.0041122f, 3.9569e-6f,
- 7580.f, 7590.f, .001504f, .43911f, -.0026031f, 1.2211e-5f, -.0012549f,
- 4.2399e-6f, 7590.f, 7600.f, .004448f, .35168f, -.0020068f, -1.1923e-6f,
- -.0024644f, 4.0855e-6f, 7600.f, 7610.f, .0020548f, .3146f, .0041619f,
- -2.4632e-5f, .0023465f, -2.5042e-5f, 7610.f, 7620.f
- };
-
- /* carbon dioxide (5060 - 7610 cm-1) */
- for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
-} /* dica2 */
-
-
-void dica1 (float a[8], const long int inu)
-{
-
-
-
- static const float acr[2048] = { 1.1446e-5f, .0020117f,
- -.0041334f, 3.2304e-6f, -.0069982f, 9.0084e-6f, 2500.f, 2510.f,
- 1.9234e-5f, .0019311f, -.0017326f, -5.8646e-6f, -.0045311f,
- -6.0352e-7f, 2510.f, 2520.f, 9.202e-6f, .0017952f, .0034861f,
- -2.526e-5f, 5.8777e-4f, -2.0915e-5f, 2520.f, 2530.f, 1.6374e-6f,
- .0018281f, .010418f, -4.3535e-5f, .0074404f, -4.1207e-5f, 2530.f,
- 2540.f, 1.9079e-7f, .0010034f, .011048f, -9.739e-6f, .010458f,
-
- -3.7165e-5f, 2540.f, 2550.f, 3.4315e-9f, 2.4238e-5f, .0054443f,
- -3.5215e-5f, .00216f, -2.8602e-5f, 2550.f, 2560.f, 8.2488e-9f,
- 1.2211e-4f, .026474f, -1.1937e-4f, .023595f, -1.1358e-4f, 2560.f,
- 2570.f, 6.4587e-7f, .0014539f, .017175f, -7.7312e-5f, .015125f,
- -7.6621e-5f, 2570.f, 2580.f, 5.4268e-6f, .0015777f, .0078126f,
- -4.2151e-5f, .0051843f, -3.9096e-5f, 2580.f, 2590.f, 2.0993e-5f,
- .0024666f, .0015156f, -1.4469e-5f, .0014551f, -1.2874e-5f, 2590.f,
- 2600.f, 3.1892e-5f, .0032261f, -.0024271f, 1.4275e-6f, -.0024514f,
- 2.5977e-6f, 2600.f, 2610.f, 1.1919e-5f, .0029607f, -.0037722f,
- 7.2919e-6f, -.004064f, 7.442e-6f, 2610.f, 2620.f, 3.5396e-5f, .0031915f,
- -.0024421f, -5.4413e-7f, -.0029857f, 7.7772e-7f, 2620.f, 2630.f,
- 2.2174e-5f, .0031839f, .002243f, -1.6625e-5f, .0017446f, -1.7477e-5f,
- 2630.f, 2640.f, 4.9654e-6f, .0031706f, .0096026f, -4.1529e-5f,
- .0087311f, -4.451e-5f, 2640.f, 2650.f, 5.9768e-7f, .0013719f, .0076702f,
- 1.3005e-5f, .0090078f, -2.4905e-5f, 2650.f, 2660.f, 1.3394e-7f,
- 3.2465e-4f, .0037114f, -2.6108e-5f, 9.3326e-4f, -2.2404e-5f, 2660.f,
- 2670.f, 9.101e-9f, 7.1741e-5f, .010072f, -5.3553e-5f, .0068917f,
- -4.7305e-5f, 2670.f, 2680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2680.f, 2690.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2690.f, 2700.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 2700.f, 2710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2710.f, 2720.f, 3.0498e-7f,
- .0012211f, .011385f, -5.7015e-5f, .008676f, -5.3344e-5f, 2720.f, 2730.f,
- 2.3044e-6f, .0018735f, .0031625f, -2.3857e-5f, 4.2583e-4f, -2.0332e-5f,
- 2730.f, 2740.f, 4.587e-6f, .0020082f, -.0021166f, -4.3444e-6f,
- -.0048776f, 8.714e-7f, 2740.f, 2750.f, 1.8151e-6f, .001778f, -.0043591f,
- 3.9928e-6f, -.0074161f, 1.0271e-5f, 2750.f, 2760.f, 4.3155e-6f,
- .0021845f, -.0035667f, 1.0325e-6f, -.0064484f, 6.9079e-6f, 2760.f,
- 2770.f, 3.5601e-6f, .0015853f, -2.4397e-4f, -1.1623e-5f, -.0030932f,
- -6.6664e-6f, 2770.f, 2780.f, 1.4023e-6f, .0017421f, .0052527f,
- -3.1584e-5f, .0022672f, -2.6978e-5f, 2780.f, 2790.f, 1.9517e-7f,
- .0010843f, .011752f, -5.0614e-5f, .0090578f, -5.0929e-5f, 2790.f,
- 2800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2800.f, 2810.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 2810.f, 2820.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2820.f, 2830.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 2830.f, 2840.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2840.f,
- 2850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2850.f, 2860.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 2860.f, 2870.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2870.f, 2880.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 2880.f, 2890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2890.f,
- 2900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2900.f, 2910.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 2910.f, 2920.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2920.f, 2930.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 2930.f, 2940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2940.f,
- 2950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2950.f, 2960.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 2960.f, 2970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2970.f, 2980.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 2980.f, 2990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2990.f,
- 3e3f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3e3f, 3010.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 3010.f, 3020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3020.f, 3030.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 3030.f, 3040.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3040.f,
- 3050.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3050.f, 3060.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 3060.f, 3070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3070.f, 3080.f, 3.3052e-6f,
- .058651f, .034989f, -1.529e-4f, .031987f, -1.4721e-4f, 3080.f, 3090.f,
- 4.1503e-5f, .20207f, .026206f, -1.1436e-4f, .023672f, -1.1213e-4f,
- 3090.f, 3100.f, 8.7906e-5f, .21783f, .018422f, -8.5123e-5f, .015304f,
- -7.985e-5f, 3100.f, 3110.f, 2.9489e-5f, .12859f, .014066f, -6.9404e-5f,
- .011044f, -6.3254e-5f, 3110.f, 3120.f, 3.1118e-5f, .2981f, .025033f,
- -1.1155e-4f, .022143f, -1.0719e-4f, 3120.f, 3130.f, 1.4832e-4f, .7106f,
- .018309f, -7.0285e-5f, .015857f, -7.3742e-5f, 3130.f, 3140.f,
- 5.0912e-4f, .39631f, .016927f, -7.7076e-5f, .014306f, -7.4481e-5f,
- 3140.f, 3150.f, .0018569f, .28375f, .0076498f, -3.6249e-5f, .0067089f,
- -3.6791e-5f, 3150.f, 3160.f, .0023217f, .3497f, .0010351f, -1.0688e-5f,
- 9.4905e-4f, -6.7349e-6f, 3160.f, 3170.f, 4.761e-4f, .41947f, .0019347f,
- 1.6317e-5f, .0033594f, -7.9441e-6f, 3170.f, 3180.f, 4.6778e-4f, .77616f,
- 7.9129e-4f, 2.3675e-5f, 9.1006e-4f, 4.8023e-6f, 3180.f, 3190.f,
- .0030862f, .25667f, -.0014396f, -4.1338e-6f, -.0027351f, 6.4924e-6f,
- 3190.f, 3200.f, .0034062f, .18499f, .003259f, -2.4779e-5f, 2.1425e-4f,
- -1.9664e-5f, 3200.f, 3210.f, .0014366f, .17452f, .010436f, -5.221e-5f,
- .0077713f, -4.9107e-5f, 3210.f, 3220.f, 2.6116e-4f, .16068f, .020114f,
- -8.9663e-5f, .017964f, -8.8666e-5f, 3220.f, 3230.f, 3.408e-5f, .26237f,
- .031854f, -1.3724e-4f, .029565f, -1.3533e-4f, 3230.f, 3240.f,
- 3.8044e-5f, .18154f, .023462f, -1.0477e-4f, .020484f, -1.0031e-4f,
- 3240.f, 3250.f, 2.3642e-5f, .12587f, .01793f, -8.3993e-5f, .014725f,
- -7.8063e-5f, 3250.f, 3260.f, 1.3555e-6f, .0021856f, .0043607f,
- -2.9254e-5f, .0012372f, -2.4119e-5f, 3260.f, 3270.f, 3.5631e-4f,
- .86373f, .015491f, -6.0741e-5f, .014051f, -6.1126e-5f, 3270.f, 3280.f,
- 3.3068e-4f, .41597f, .01708f, -4.5243e-5f, .018249f, -6.1327e-5f,
- 3280.f, 3290.f, .001398f, .43415f, .020779f, -8.71e-5f, .019046f,
- -8.4016e-5f, 3290.f, 3300.f, .0054038f, .37316f, .013012f, -5.4513e-5f,
- .014582f, -6.1135e-5f, 3300.f, 3310.f, .011865f, .37215f, .005333f,
- -2.4891e-5f, .0077872f, -2.3154e-5f, 3310.f, 3320.f, .0081717f, .45864f,
- 7.0369e-4f, -2.5399e-6f, .0032045f, -2.1463e-6f, 3320.f, 3330.f,
- .0067313f, .55963f, -.0020245f, 2.6702e-6f, -.0024299f, 1.777e-5f,
- 3330.f, 3340.f, .013254f, .74729f, -.001815f, 5.4501e-6f, .0013181f,
- -4.3636e-7f, 3340.f, 3350.f, .036823f, .36421f, -2.01e-4f, -5.8593e-6f,
- .0013324f, -2.3987e-6f, 3350.f, 3360.f, .035439f, .40306f, .0054434f,
- -2.6546e-5f, .0067677f, -2.8288e-5f, 3360.f, 3370.f, .0090957f, .48115f,
- .014512f, -6.1088e-5f, .016771f, -6.5673e-5f, 3370.f, 3380.f, .0015199f,
- .65754f, .023451f, -8.6e-5f, .024073f, -8.9238e-5f, 3380.f, 3390.f,
- 1.3838e-4f, .96599f, .027438f, -3.7378e-5f, .026069f, -7.2896e-5f,
- 3390.f, 3400.f, 3.1321e-4f, .32432f, .014691f, -4.5546e-5f, .01786f,
- -4.056e-5f, 3400.f, 3410.f, 9.6318e-4f, .34642f, .017708f, -6.6986e-5f,
- .020408f, -5.3348e-5f, 3410.f, 3420.f, 6.1782e-4f, .30724f, .02599f,
- -8.9579e-5f, .025999f, -9.8228e-5f, 3420.f, 3430.f, 4.0506e-4f, .30755f,
- .038698f, -1.6162e-4f, .035406f, -1.5721e-4f, 3430.f, 3440.f, .0011183f,
- .2365f, .034497f, -1.4952e-4f, .032465f, -1.4642e-4f, 3440.f, 3450.f,
- .0018653f, .34796f, .029814f, -1.2999e-4f, .026883f, -1.245e-4f, 3450.f,
- 3460.f, .0035542f, .40556f, .017369f, -5.7102e-5f, .019546f,
- -4.6731e-5f, 3460.f, 3470.f, .0090605f, .50199f, .012281f, 2.333e-7f,
- .01992f, 2.7162e-5f, 3470.f, 3480.f, .008421f, .7135f, .011986f,
- 7.348e-5f, .024636f, 8.1574e-5f, 3480.f, 3490.f, .0060886f, .9612f,
- .023574f, 1.0867e-4f, .044783f, -7.2014e-5f, 3490.f, 3500.f, .035622f,
- 1.6535f, .012077f, 1.3532e-4f, .02212f, 8.0854e-5f, 3500.f, 3510.f,
- .078238f, 1.3688f, .016785f, 1.4511e-4f, .032327f, -1.2296e-5f, 3510.f,
- 3520.f, .17292f, 1.6314f, .028411f, -4.0866e-6f, .033279f, -8.391e-5f,
- 3520.f, 3530.f, .58094f, 1.4177f, .030478f, -9.228e-5f, .032074f,
- -1.1676e-4f, 3530.f, 3540.f, 1.9973f, 1.0662f, .026332f, -1.0563e-4f,
- .027668f, -1.086e-4f, 3540.f, 3550.f, 5.8904f, .85364f, .020626f,
- -8.7922e-5f, .022034f, -8.7919e-5f, 3550.f, 3560.f, 16.608f, .82681f,
- .016296f, -7.197e-5f, .016508f, -6.8914e-5f, 3560.f, 3570.f, 33.94f,
- .67293f, .011756f, -5.5546e-5f, .012667f, -5.0727e-5f, 3570.f, 3580.f,
- 105.89f, .40519f, .0053354f, -3.05e-5f, .00642f, -2.7269e-5f, 3580.f,
- 3590.f, 286.58f, .37875f, 3.1591e-4f, -7.6033e-6f, .0017571f,
- -6.9331e-6f, 3590.f, 3600.f, 258.81f, .31632f, -.0031299f, 5.3577e-6f,
- -.0014554f, 1.6811e-5f, 3600.f, 3610.f, 153.98f, .23899f, -.0042487f,
- 5.6295e-6f, -.0038259f, 2.864e-5f, 3610.f, 3620.f, 381.54f, .2369f,
- -.0021079f, -4.2102e-6f, -.0046108f, 4.6494e-6f, 3620.f, 3630.f,
- 189.08f, .24104f, .003487f, -2.4525e-5f, .0012111f, -1.869e-5f, 3630.f,
- 3640.f, 22.631f, .27596f, .013843f, -6.0817e-5f, .013983f, -5.5436e-5f,
- 3640.f, 3650.f, .789f, .45834f, .0288f, -9.2261e-5f, .033526f,
- -1.1634e-4f, 3650.f, 3660.f, 3.5516f, .24747f, .021606f, -9.1483e-5f,
- .025091f, -7.7825e-5f, 3660.f, 3670.f, 26.382f, .26344f, .013128f,
- -5.9351e-5f, .015813f, -4.5315e-5f, 3670.f, 3680.f, 114.51f, .25517f,
- .0061726f, -3.2903e-5f, .0088361f, -1.856e-5f, 3680.f, 3690.f, 375.87f,
- .29958f, 6.1303e-4f, -1.0823e-5f, .0025691f, 2.5921e-6f, 3690.f, 3700.f,
- 399.12f, .32406f, -.0024055f, 3.4271e-6f, 8.3356e-4f, 1.4624e-5f,
- 3700.f, 3710.f, 209.7f, .49024f, -.0029825f, 1.1251e-5f, 9.8088e-4f,
- 1.7825e-5f, 3710.f, 3720.f, 651.86f, .43325f, -.0025584f, -7.4576e-7f,
- -.0013717f, 1.1441e-5f, 3720.f, 3730.f, 360.94f, .49364f, .0033219f,
- -1.9819e-5f, .0045993f, -1.8704e-5f, 3730.f, 3740.f, 57.048f, .71411f,
- .013964f, -5.8323e-5f, .015441f, -6.5072e-5f, 3740.f, 3750.f, 1.6419f,
- .94961f, .031167f, -1.2796e-4f, .03253f, -1.3294e-4f, 3750.f, 3760.f,
- .0072097f, .71242f, .053044f, -2.1219e-4f, .055695f, -2.2364e-4f,
- 3760.f, 3770.f, 3.2929e-4f, .16488f, .043688f, -1.8453e-4f, .042346f,
- -1.8165e-4f, 3770.f, 3780.f, .0014501f, .17127f, .036748f, -1.5788e-4f,
- .035331f, -1.524e-4f, 3780.f, 3790.f, .0047585f, .19488f, .031054f,
- -1.364e-4f, .028516f, -1.3041e-4f, 3790.f, 3800.f, .0056312f, .2178f,
- .027563f, -1.2299e-4f, .02536f, -1.1514e-4f, 3800.f, 3810.f, .0025663f,
- .23975f, .026455f, -1.1697e-4f, .025771f, -1.0379e-4f, 3810.f, 3820.f,
- .0073473f, .2611f, .028264f, -1.2512e-4f, .026543f, -1.1735e-4f, 3820.f,
- 3830.f, .0041625f, .3064f, .0335f, -1.4328e-4f, .032396f, -1.4197e-4f,
- 3830.f, 3840.f, 6.2707e-4f, .49963f, .042723f, -1.7265e-4f, .041198f,
- -1.7864e-4f, 3840.f, 3850.f, 5.2281e-5f, .443f, .041789f, -1.3546e-4f,
- .041381f, -1.6812e-4f, 3850.f, 3860.f, 1.1349e-4f, .48522f, .040194f,
- -1.3982e-4f, .03909f, -1.6958e-4f, 3860.f, 3870.f, 1.1733e-4f, .49615f,
- .044541f, -1.6207e-4f, .043254f, -1.8688e-4f, 3870.f, 3880.f,
- 2.1994e-5f, .36694f, .051435f, -1.7841e-4f, .051058f, -2.162e-4f,
- 3880.f, 3890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3890.f, 3900.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 3900.f, 3910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3910.f,
- 3920.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3920.f, 3930.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 3930.f, 3940.f, 1.0712e-5f, .11242f, .038222f, -1.6405e-4f, .035612f,
- -1.6058e-4f, 3940.f, 3950.f, 2.226e-5f, .088337f, .032098f, -1.4078e-4f,
- .029142f, -1.356e-4f, 3950.f, 3960.f, 6.0145e-5f, .1215f, .02614f,
- -1.1441e-4f, .023109f, -1.101e-4f, 3960.f, 3970.f, 1.1812e-4f, .5338f,
- .023839f, -9.6178e-5f, .023506f, -1.0676e-4f, 3970.f, 3980.f, 6.12e-5f,
- .32611f, .020895f, -7.6119e-5f, .020369f, -8.7589e-5f, 3980.f, 3990.f,
- 3.019e-4f, .84191f, .024861f, -9.352e-5f, .024385f, -1.0546e-4f, 3990.f,
- 4e3f, .0013735f, .6758f, .014099f, -6.4565e-5f, .011933f, -5.7363e-5f,
- 4e3f, 4010.f, .0017095f, .28901f, .013726f, -6.7497e-5f, .010543f,
- -6.096e-5f, 4010.f, 4020.f, .0020687f, .45821f, .021277f, -8.6802e-5f,
- .020845f, -9.0012e-5f, 4020.f, 4030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 4030.f,
-
- 4040.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4040.f, 4050.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 4050.f, 4060.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4060.f, 4070.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 4070.f, 4080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4080.f,
- 4090.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4090.f, 4100.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 4100.f, 4110.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4110.f, 4120.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 4120.f, 4130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4130.f,
- 4140.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4140.f, 4150.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 4150.f, 4160.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4160.f, 4170.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 4170.f, 4180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4180.f,
- 4190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4190.f, 4200.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 4200.f, 4210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4210.f, 4220.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 4220.f, 4230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4230.f,
- 4240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4240.f, 4250.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 4250.f, 4260.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4260.f, 4270.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 4270.f, 4280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4280.f,
- 4290.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4290.f, 4300.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 4300.f, 4310.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4310.f, 4320.f, 0.f,
- 0.f,
-
- 0.f, 0.f, 0.f, 0.f, 4320.f, 4330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4330.f,
- 4340.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4340.f, 4350.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 4350.f, 4360.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4360.f, 4370.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 4370.f, 4380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4380.f,
- 4390.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4390.f, 4400.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 4400.f, 4410.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4410.f, 4420.f,
- 2.629e-5f,
- .099522f, -.0026652f, -2.6042e-6f, -.0055447f, 3.2186e-6f, 4420.f,
- 4430.f, 8.0883e-5f, .18978f, 5.7466e-4f, -1.4607e-5f, -.0025665f,
- -8.7838e-6f, 4430.f, 4440.f, 5.526e-5f, .18005f, .0065537f, -3.7323e-5f,
- .0036814f, -3.3174e-5f, 4440.f, 4450.f, 8.255e-6f, .05991f, .012867f,
- -6.4515e-5f, .0097575f, -5.8512e-5f, 4450.f, 4460.f, 0.f, 0.f, 0.f, 0.f,
- 0.f, 0.f, 4460.f, 4470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4470.f, 4480.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 4480.f, 4490.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 4490.f,
- 4500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4500.f, 4510.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 4510.f, 4520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4520.f, 4530.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 4530.f, 4540.f, 5.6586e-6f, .058006f, .021852f,
- -1.003e-4f, .018901f, -9.4764e-5f, 4540.f, 4550.f, 6.0995e-5f, .17176f,
- .013472f, -6.3857e-5f, .010919f, -6.1333e-5f, 4550.f, 4560.f,
- 1.6173e-4f, .1827f, .0055264f, -3.3401e-5f, .0025266f, -2.8677e-5f,
- 4560.f, 4570.f, 1.342e-4f, .18669f, 8.6662e-5f, -1.2871e-5f, -.0031886f,
- -6.3395e-6f, 4570.f, 4580.f, 7.7677e-6f, .035973f, -.0017804f,
- 3.5792e-6f, -.004378f, 4.7097e-6f, 4580.f, 4590.f, 2.1446e-4f, .52918f,
- -.0026414f, 1.9171e-8f, -.0051868f, 3.1486e-6f, 4590.f, 4600.f,
- 4.9732e-4f, .19678f, -.0015023f, -6.4944e-6f, -.0045248f, -6.0552e-7f,
- 4600.f, 4610.f, 5.7844e-4f, .21566f, .0036076f, -2.5498e-5f, 6.874e-4f,
- -2.1166e-5f, 4610.f, 4620.f, 1.836e-4f, .19472f, .010909f, -4.5759e-5f,
- .0094535f, -5.3705e-5f, 4620.f, 4630.f, 2.1722e-5f, .066168f, .010212f,
- 2.4083e-5f, .016411f, -6.7231e-5f, 4630.f, 4640.f, 1.5836e-5f,
- .0025231f, -.0037387f, 1.6847e-6f, -.0066855f, 7.7758e-6f, 4640.f,
- 4650.f, 2.8194e-5f, .055835f, .011719f, 7.8341e-5f, .028162f,
- -6.5915e-5f, 4650.f, 4660.f, 2.9246e-5f, .15846f, .033601f, -1.2318e-4f,
- .031988f, -1.4227e-4f, 4660.f, 4670.f, 6.866e-5f, .23768f, .030956f,
- -1.3481e-4f, .028087f, -1.3066e-4f, 4670.f, 4680.f, 2.5776e-5f, .14238f,
- .026879f, -1.1219e-4f, .025142f, -1.1785e-4f, 4680.f, 4690.f,
- 6.7605e-5f, .28782f, .028103f, -9.7067e-5f, .028478f, -1.1197e-4f,
- 4690.f, 4700.f, 9.4449e-5f, .58934f, .03528f, -9.4266e-5f, .037047f,
- -1.3314e-4f, 4700.f, 4710.f, 2.1985e-4f, .94207f, .026856f, 1.5457e-5f,
- .034398f, -7.9603e-5f, 4710.f, 4720.f, 5.9268e-4f, .92654f, .019629f,
- 7.9413e-5f, .02922f, -3.244e-5f, 4720.f, 4730.f, .001207f, .99725f,
- .019414f, 1.0014e-4f, .026778f, -2.2067e-5f, 4730.f, 4740.f, .0022806f,
- 1.2176f, .028561f, -2.1574e-5f, .030485f, -7.5567e-5f, 4740.f, 4750.f,
- .0043327f, 1.3486f, .028595f, -6.6405e-5f, .027851f, -7.4726e-5f,
- 4750.f, 4760.f, .0077428f, 1.4486f, .030758f, -1.1612e-4f, .029991f,
- -1.2747e-4f, 4760.f, 4770.f, .025636f, 1.0146f, .025412f, -1.0692e-4f,
- .02508f, -1.0479e-4f, 4770.f, 4780.f, .071004f, .80049f, .019034f,
- -8.2075e-5f, .019591f, -8.1415e-5f, 4780.f, 4790.f, .12168f, .79844f,
- .014488f, -6.4424e-5f, .0152f, -5.8903e-5f, 4790.f, 4800.f, .076746f,
- 1.2201f, .015267f, -5.7662e-5f, .014334f, -5.5273e-5f, 4800.f, 4810.f,
- .25656f, .72698f, .012794f, -6.0697e-5f, .011343f, -5.448e-5f, 4810.f,
- 4820.f, .71618f, .47943f, .0075299f, -3.4485e-5f, .0086269f,
- -4.1288e-5f, 4820.f, 4830.f, 1.9439f, .28552f, 6.0337e-4f, -1.0585e-5f,
- .0017705f, -3.3465e-6f, 4830.f, 4840.f, 2.2409f, .24124f, -.0032243f,
- 7.7209e-7f, -.0036357f, 1.7134e-5f, 4840.f, 4850.f, 1.023f, .23661f,
- -.0044285f, 5.6593e-6f, -.0054571f, 1.8603e-5f, 4850.f, 4860.f, 2.9838f,
- .24972f, -.0026005f, -2.2445e-6f, -.0048507f, 6.708e-6f, 4860.f, 4870.f,
- 1.7331f, .24569f, .002513f, -2.0912e-5f, 9.7879e-5f, -1.4658e-5f,
- 4870.f, 4880.f, .23009f, .24263f, .012134f, -5.5883e-5f, .011873f,
- -4.6579e-5f, 4880.f, 4890.f, .0073766f, .50576f, .021012f, 1.3113e-5f,
- .033128f, -7.4753e-5f, 4890.f, 4900.f, .0053301f, 1.1415f, .02315f,
- 8.1743e-5f, .032613f, -4.9011e-5f, 4900.f, 4910.f, .019881f, 1.1163f,
- .030658f, -8.9121e-5f, .031493f, -1.049e-4f, 4910.f, 4920.f, .13274f,
- .8018f, .023959f, -9.6864e-5f, .026465f, -1.057e-4f, 4920.f, 4930.f,
- .54198f, .58029f, .016095f, -6.7361e-5f, .019209f, -7.4544e-5f, 4930.f,
- 4940.f, 2.3931f, .43634f, .0083244f, -3.8869e-5f, .01091f, -4.0486e-5f,
- 4940.f, 4950.f, 6.364f, .38463f, .0024225f, -1.7014e-5f, .0051156f,
- -1.3677e-5f, 4950.f, 4960.f, 11.174f, .37051f, -.0020924f, -1.8861e-6f,
- 1.9797e-4f, 8.4038e-6f, 4960.f, 4970.f, 4.7425f, .4397f, -.0023967f,
- 1.1771e-5f, .0015888f, 1.1027e-5f, 4970.f, 4980.f, 13.215f, .42301f,
-
- -.002886f, 4.5346e-6f, -.0018435f, 1.2941e-5f, 4980.f, 4990.f, 10.682f,
- .28898f, 9.1279e-4f, -1.3741e-5f, 2.9048e-4f, -3.723e-6f, 4990.f, 5e3f,
- 1.9873f, .27401f, .0096347f, -4.5675e-5f, .0089294f, -4.3606e-5f, 5e3f,
- 5010.f, .025245f, .25842f, .027802f, -1.1266e-4f, .028517f, -1.1312e-4f,
- 5010.f, 5020.f, .0010773f, .39566f, .019467f, -9.0504e-6f, .021521f,
- -4.662e-5f, 5020.f, 5030.f, .0026445f, .46517f, .022864f, -5.1981e-6f,
- .021923f, -4.8242e-5f, 5030.f, 5040.f, .0089353f, .34218f, .025304f,
- -8.7147e-5f, .020721f, -6.3342e-5f, 5040.f, 5050.f, .066176f, .21908f,
- .017982f, -8.0841e-5f, .017736f, -7.414e-5f, 5050.f, 5060.f
- };
-
- /* carbon dioxide (2500 - 5050 cm-1) */
- for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
-} /* dica1 */
-
-
-void
-ozon1 (float a[8], const long int inu)
-{
-
-
- static const float acr[2048] = { .062007f, 2.4365f,
- -5.9503e-4f, -8.1198e-6f, -.0039418f, -2.4624e-6f, 2500.f, 2510.f,
- .023839f, 2.3534f, .0037377f, -6.15e-6f, .0015592f, -1.2727e-5f, 2510.f,
- 2520.f, .0090127f, 1.2172f, -.0014733f, -4.7053e-6f, -.0042092f,
- -1.5909e-6f, 2520.f, 2530.f, .0058863f, 1.1f, 3.3397e-4f, -1.3388e-5f,
- -.0024956f, -9.7955e-6f, 2530.f, 2540.f, .0021326f, .57054f, .0025704f,
- -2.3597e-5f, -2.6961e-4f, -1.9566e-5f, 2540.f, 2550.f, 2.6378e-4f,
- .095762f, .0021816f, -2.4506e-5f, -8.9441e-4f, -1.8362e-5f, 2550.f,
- 2560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2560.f, 2570.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 2570.f, 2580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2580.f, 2590.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 2590.f, 2600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2600.f,
- 2610.f, 1.2538e-4f, .06037f, .017057f, -8.3526e-5f, .013989f,
- -7.7656e-5f, 2610.f, 2620.f, .0033172f, 1.2606f, .015787f, -6.9353e-5f,
- .013123f, -6.8937e-5f, 2620.f, 2630.f, .008713f, 2.2667f, .014103f,
- -5.7967e-5f, .011482f, -5.9919e-5f, 2630.f, 2640.f, .0172f, 3.144f,
- .011768f, -4.8179e-5f, .0088246f, -4.9702e-5f, 2640.f, 2650.f, .034158f,
- 3.5816f, .0099884f, -4.184e-5f, .0074214f, -4.4219e-5f, 2650.f, 2660.f,
- .058424f, 3.8732f, .0072077f, -3.3325e-5f, .004529f, -3.3709e-5f,
- 2660.f, 2670.f, .091154f, 4.3262f, .0058558f, -2.8338e-5f, .0036931f,
- -2.8993e-5f, 2670.f, 2680.f, .14108f, 4.4142f, .0030363f, -1.8897e-5f,
- 8.3735e-4f, -1.8016e-5f, 2680.f, 2690.f, .19337f, 5.4007f, .0022914f,
- -1.3229e-5f, 5.9045e-4f, -1.4091e-5f, 2690.f, 2700.f, .22397f, 5.654f,
- 4.0913e-4f, -5.5214e-8f, -4.337e-4f, -1.0921e-6f, 2700.f, 2710.f,
- .25652f, 5.9001f, .0016172f, 5.8755e-6f, .0013629f, -1.6939e-6f, 2710.f,
- 2720.f, .26204f, 6.3198f, .0046886f, 1.25e-5f, .0044002f, -9.3401e-6f,
- 2720.f, 2730.f, 1.1785f, 7.1393f, .0037596f, -7.5943e-6f, .0028497f,
- -1.6442e-5f, 2730.f, 2740.f, 1.2094f, 5.2539f, .0056671f, -2.7298e-5f,
- .0028397f, -2.2464e-5f, 2740.f, 2750.f, 2.6976f, 4.6649f, .0025634f,
- -2.0935e-5f, 3.1356e-4f, -1.7037e-5f, 2750.f, 2760.f, 5.2789f, 4.5914f,
- -7.3997e-4f, -9.2529e-6f, -.0021265f, -8.3858e-6f, 2760.f, 2770.f,
- 5.611f, 6.1724f, -.0032253f, 2.5797e-6f, -.0028278f, 8.7898e-8f, 2770.f,
- 2780.f, 4.928f, 9.4156f, -.0020334f, 1.9294e-6f, -.0030249f, -1.069e-6f,
- 2780.f, 2790.f, 9.8978f, 7.256f, -.0024986f, -1.5096e-6f, -.0036608f,
- -5.8064e-7f, 2790.f, 2800.f, 3.3206f, 9.3181f, .0047633f, -2.5074e-5f,
- .0053638f, -3.2113e-5f, 2800.f, 2810.f, .02474f, 2.6388f, .0070889f,
- -3.2967e-5f, .0046677f, -3.4491e-5f, 2810.f, 2820.f, .034545f, 2.9892f,
- .0049198f, -2.638e-5f, .0026057f, -2.5038e-5f, 2820.f, 2830.f, .04698f,
- 4.234f, .0050308f, -1.5985e-5f, .0030829f, -2.1189e-5f, 2830.f, 2840.f,
- .07243f, 5.0065f, .0059166f, -2.0703e-5f, .0028776f, -2.3414e-5f,
- 2840.f, 2850.f, .11034f, 4.0562f, .0040989f, -2.3368e-5f, 8.42e-4f,
- -1.8356e-5f, 2850.f, 2860.f, .12579f, 3.6106f, .0011211f, -1.2332e-5f,
- -8.604e-4f, -1.0593e-5f, 2860.f, 2870.f, .095405f, 4.2611f, .0010479f,
- -5.3844e-6f, -6.5774e-4f, -8.3477e-6f, 2870.f, 2880.f, .092029f,
- 4.3877f, .0013349f, -8.8914e-6f, -8.978e-4f, -9.601e-6f, 2880.f, 2890.f,
- .085314f, 2.2957f, -.0010376f, -3.9555e-7f, -.0023459f, -3.1759e-6f,
- 2890.f, 2900.f, .1913f, 2.1329f, 9.3145e-5f, -1.0935e-5f, -.0023306f,
- -7.0411e-6f, 2900.f, 2910.f, .14327f, 3.0363f, .0049245f, -1.9969e-5f,
- .0019913f, -1.9177e-5f, 2910.f, 2920.f, .062081f, 2.9232f, .0028349f,
- 4.5083e-6f, .0026887f, -6.9673e-6f, 2920.f, 2930.f, .054536f, 2.5833f,
- .003389f, 5.9711e-6f, .0039633f, 1.706e-6f, 2930.f, 2940.f, .067558f,
- 4.1622f, .012948f, 1.8636e-5f, .013881f, -2.7246e-5f, 2940.f, 2950.f,
- .10694f, 4.2481f, .019447f, -4.2948e-5f, .016908f, -6.0648e-5f, 2950.f,
- 2960.f, .23821f, 4.1323f, .020561f, -8.5072e-5f, .016888f, -7.7856e-5f,
- 2960.f, 2970.f, .64222f, 3.762f, .01732f, -8.1718e-5f, .014625f,
- -7.652e-5f, 2970.f, 2980.f, 1.63f, 3.7899f, .013216f, -6.5623e-5f,
- .011621f, -6.3803e-5f, 2980.f, 2990.f, 3.8611f, 4.0234f, .0091789f,
- -4.9247e-5f, .0082148f, -4.8334e-5f, 2990.f, 3e3f, 8.4985f, 4.366f,
- .0053518f, -3.3739e-5f, .0046322f, -3.3282e-5f, 3e3f, 3010.f, 16.437f,
- 4.6428f, .0018372f, -1.9254e-5f, .0014965f, -1.9554e-5f, 3010.f, 3020.f,
- 26.227f, 5.2685f, -.0010368f, -6.92e-6f, -.0010546f, -7.8474e-6f,
- 3020.f, 3030.f, 29.674f, 6.9683f, -.0027894f, 1.5655e-6f, -.0027673f,
- 3.4286e-7f, 3030.f, 3040.f, 24.306f, 9.5097f, -.002074f, 6.2838e-6f,
- -.0020776f, 2.179e-6f, 3040.f, 3050.f, 63.521f, 9.8031f, -.0012075f,
-
- -2.994e-6f, -.0022793f, -5.3779e-6f, 3050.f, 3060.f, 1.1941f, 5.4609f,
- .0015524f, -9.5161e-6f, -9.6618e-4f, -7.6711e-6f, 3060.f, 3070.f,
- .92867f, 5.355f, -6.2368e-4f, -3.643e-6f, -.0029524f, -1.6001e-6f,
- 3070.f, 3080.f, .67841f, 5.2135f, 5.235e-4f, 6.0726e-6f, -3.7339e-4f,
- -2.3662e-6f, 3080.f, 3090.f, 3.1429f, 5.2297f, .0017001f, -8.0369e-6f,
- -2.527e-4f, -9.2399e-6f, 3090.f, 3100.f, .55537f, 4.0641f, -8.4176e-4f,
- 3.74e-7f, -.0020788f, -8.3774e-7f, 3100.f, 3110.f, .62683f, 4.1264f,
- -6.4674e-4f, -8.4882e-7f, -5.9275e-4f, -1.4998e-6f, 3110.f, 3120.f,
- .75072f, 5.6505f, .0024151f, -8.8833e-6f, .0024005f, -1.4915e-5f,
- 3120.f, 3130.f, .63692f, 5.2929f, .0052702f, -2.0599e-5f, .0049282f,
- -2.9353e-5f, 3130.f, 3140.f, .6931f, 5.7878f, .0069797f, -3.6776e-5f,
- .0052917f, -3.67e-5f, 3140.f, 3150.f, 1.0593f, 5.0675f, .0040985f,
- -2.5996e-5f, .0032401f, -2.8071e-5f, 3150.f, 3160.f, 1.7493f, 4.5943f,
- -1.8037e-4f, -8.6286e-6f, 2.5807e-4f, -1.0009e-5f, 3160.f, 3170.f,
- 2.0855f, 5.9045f, -.0022784f, 1.4682e-6f, -.0024776f, -2.9964e-6f,
- 3170.f, 3180.f, 1.3759f, 5.4986f, -.0034094f, 2.6712e-6f, -.0053592f,
- 5.6885e-6f, 3180.f, 3190.f, 3.923f, 8.3024f, -.0018506f, -3.5742e-7f,
- -.0024786f, -1.1732e-6f, 3190.f, 3200.f, 1.1841f, 5.1604f, .0039237f,
- -2.2108e-5f, .0038274f, -2.7628e-5f, 3200.f, 3210.f, 0.f, 0.f, 0.f, 0.f,
- 0.f, 0.f, 3210.f, 3220.f, 5.5594e-4f, .13449f, 1.458e-4f, -1.5828e-5f,
- -.0029023f, -1.0057e-5f, 3220.f, 3230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 3230.f, 3240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3240.f, 3250.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 3250.f, 3260.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3260.f,
- 3270.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3270.f, 3280.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 3280.f, 3290.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3290.f, 3300.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 3300.f, 3310.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3310.f,
- 3320.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3320.f, 3330.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 3330.f, 3340.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3340.f, 3350.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 3350.f, 3360.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3360.f,
- 3370.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3370.f, 3380.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 3380.f, 3390.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3390.f, 3400.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 3400.f, 3410.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3410.f,
- 3420.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3420.f, 3430.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 3430.f, 3440.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3440.f, 3450.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 3450.f, 3460.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3460.f,
- 3470.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3470.f, 3480.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 3480.f, 3490.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3490.f, 3500.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 3500.f, 3510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3510.f,
- 3520.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3520.f, 3530.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 3530.f, 3540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3540.f, 3550.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 3550.f, 3560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3560.f,
- 3570.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3570.f, 3580.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 3580.f, 3590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3590.f, 3600.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 3600.f, 3610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3610.f,
- 3620.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3620.f, 3630.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 3630.f, 3640.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3640.f, 3650.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 3650.f, 3660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3660.f,
- 3670.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3670.f, 3680.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 3680.f, 3690.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3690.f, 3700.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 3700.f, 3710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3710.f,
- 3720.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3720.f, 3730.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 3730.f, 3740.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3740.f, 3750.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 3750.f, 3760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3760.f,
- 3770.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3770.f, 3780.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 3780.f, 3790.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3790.f, 3800.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 3800.f, 3810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3810.f,
- 3820.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3820.f, 3830.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 3830.f, 3840.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3840.f, 3850.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 3850.f, 3860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3860.f,
- 3870.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3870.f, 3880.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 3880.f, 3890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3890.f, 3900.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 3900.f, 3910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3910.f,
- 3920.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3920.f, 3930.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 3930.f, 3940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3940.f, 3950.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 3950.f, 3960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3960.f,
- 3970.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3970.f, 3980.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 3980.f, 3990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3990.f, 4e3f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 4e3f, 4010.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4010.f, 4020.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 4020.f, 4030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4030.f,
- 4040.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4040.f, 4050.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 4050.f, 4060.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4060.f, 4070.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 4070.f, 4080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4080.f,
- 4090.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4090.f, 4100.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 4100.f, 4110.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4110.f, 4120.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 4120.f, 4130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4130.f,
- 4140.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4140.f, 4150.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 4150.f, 4160.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4160.f, 4170.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 4170.f, 4180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4180.f,
- 4190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4190.f, 4200.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 4200.f, 4210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4210.f, 4220.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 4220.f, 4230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4230.f,
- 4240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4240.f, 4250.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 4250.f, 4260.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4260.f, 4270.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 4270.f, 4280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4280.f,
- 4290.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4290.f, 4300.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 4300.f, 4310.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4310.f, 4320.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 4320.f, 4330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4330.f,
- 4340.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4340.f, 4350.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 4350.f, 4360.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4360.f, 4370.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 4370.f, 4380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4380.f,
- 4390.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4390.f, 4400.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 4400.f, 4410.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4410.f, 4420.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 4420.f, 4430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4430.f,
- 4440.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4440.f, 4450.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 4450.f, 4460.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4460.f, 4470.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 4470.f, 4480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4480.f,
- 4490.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4490.f, 4500.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 4500.f, 4510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4510.f, 4520.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 4520.f, 4530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4530.f,
- 4540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4540.f, 4550.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 4550.f, 4560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4560.f, 4570.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 4570.f, 4580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4580.f,
- 4590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4590.f, 4600.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 4600.f, 4610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4610.f, 4620.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 4620.f, 4630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4630.f,
- 4640.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4640.f, 4650.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 4650.f, 4660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4660.f, 4670.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 4670.f, 4680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4680.f,
- 4690.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4690.f, 4700.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 4700.f, 4710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4710.f, 4720.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 4720.f, 4730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4730.f,
- 4740.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4740.f, 4750.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 4750.f, 4760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4760.f, 4770.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 4770.f, 4780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4780.f,
- 4790.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4790.f, 4800.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 4800.f, 4810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4810.f, 4820.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 4820.f, 4830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4830.f,
- 4840.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4840.f, 4850.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 4850.f, 4860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4860.f, 4870.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 4870.f, 4880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4880.f,
- 4890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4890.f, 4900.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 4900.f, 4910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4910.f, 4920.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 4920.f, 4930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4930.f,
- 4940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4940.f, 4950.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 4950.f, 4960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4960.f, 4970.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 4970.f, 4980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4980.f,
- 4990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4990.f, 5e3f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 5e3f, 5010.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5010.f, 5020.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 5020.f, 5030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5030.f,
- 5040.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5040.f, 5050.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 5050.f, 5060.f
- };
-
-
- /* ozone (2500 - 5040 cm-1) */
- for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
-} /* ozon1 */
-
-
-void
-niox6 (float a[8], const long int inu)
-{
-
-
- static const float acr[2048] = { 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f, 15300.f, 15310.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15310.f, 15320.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 15320.f, 15330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 15330.f, 15340.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15340.f, 15350.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 15350.f, 15360.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 15360.f,
- 15370.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15370.f, 15380.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 15380.f, 15390.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15390.f,
- 15400.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15400.f, 15410.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 15410.f, 15420.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15420.f, 15430.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 15430.f, 15440.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 15440.f,
- 15450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15450.f, 15460.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 15460.f, 15470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15470.f,
-
- 15480.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15480.f, 15490.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 15490.f, 15500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15500.f, 15510.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 15510.f, 15520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 15520.f,
- 15530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15530.f, 15540.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 15540.f, 15550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15550.f,
- 15560.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15560.f, 15570.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 15570.f, 15580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15580.f, 15590.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 15590.f, 15600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 15600.f,
- 15610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15610.f, 15620.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 15620.f, 15630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15630.f,
- 15640.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15640.f, 15650.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 15650.f, 15660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15660.f, 15670.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 15670.f, 15680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 15680.f,
- 15690.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15690.f, 15700.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 15700.f, 15710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15710.f,
- 15720.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15720.f, 15730.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 15730.f, 15740.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15740.f, 15750.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 15750.f, 15760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 15760.f,
- 15770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15770.f, 15780.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 15780.f, 15790.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15790.f,
- 15800.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15800.f, 15810.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 15810.f, 15820.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15820.f, 15830.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 15830.f, 15840.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 15840.f,
- 15850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15850.f, 15860.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 15860.f, 15870.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15870.f,
- 15880.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15880.f, 15890.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 15890.f, 15900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15900.f, 15910.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 15910.f, 15920.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 15920.f,
- 15930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15930.f, 15940.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 15940.f, 15950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15950.f,
- 15960.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15960.f, 15970.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 15970.f, 15980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15980.f, 15990.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 15990.f, 1.6e4f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.6e4f,
- 16010.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16010.f, 16020.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16020.f, 16030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16030.f,
- 16040.f,
-
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16040.f, 16050.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16050.f, 16060.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16060.f, 16070.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16070.f, 16080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16080.f,
- 16090.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16090.f, 16100.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16100.f, 16110.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16110.f,
- 16120.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16120.f, 16130.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16130.f, 16140.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16140.f, 16150.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16150.f, 16160.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16160.f,
- 16170.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16170.f, 16180.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16180.f, 16190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16190.f,
- 16200.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16200.f, 16210.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16210.f, 16220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16220.f, 16230.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16230.f, 16240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16240.f,
- 16250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16250.f, 16260.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16260.f, 16270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16270.f,
- 16280.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16280.f, 16290.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16290.f, 16300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16300.f, 16310.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16310.f, 16320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16320.f,
- 16330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16330.f, 16340.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16340.f, 16350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16350.f,
- 16360.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16360.f, 16370.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16370.f, 16380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16380.f, 16390.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16390.f, 16400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16400.f,
- 16410.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16410.f, 16420.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16420.f, 16430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16430.f,
- 16440.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16440.f, 16450.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16450.f, 16460.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16460.f, 16470.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16470.f, 16480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16480.f,
- 16490.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16490.f, 16500.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16500.f, 16510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16510.f,
- 16520.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16520.f, 16530.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16530.f, 16540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16540.f, 16550.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16550.f, 16560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16560.f,
- 16570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16570.f, 16580.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16580.f, 16590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16590.f,
- 16600.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16600.f, 16610.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16610.f, 16620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16620.f, 16630.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16630.f, 16640.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16640.f,
- 16650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16650.f, 16660.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16660.f, 16670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16670.f,
- 16680.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16680.f, 16690.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16690.f, 16700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16700.f, 16710.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16710.f, 16720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16720.f,
- 16730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16730.f, 16740.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16740.f, 16750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16750.f,
- 16760.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16760.f, 16770.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16770.f, 16780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16780.f, 16790.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16790.f, 16800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16800.f,
- 16810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16810.f, 16820.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16820.f, 16830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16830.f,
- 16840.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16840.f, 16850.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16850.f, 16860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16860.f, 16870.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16870.f, 16880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16880.f,
- 16890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16890.f, 16900.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16900.f, 16910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16910.f,
- 16920.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16920.f, 16930.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16930.f, 16940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16940.f, 16950.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16950.f, 16960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16960.f,
- 16970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16970.f, 16980.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16980.f, 16990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16990.f, 1.7e4f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.7e4f, 17010.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 17010.f, 17020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17020.f, 17030.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 17030.f, 17040.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 17040.f,
- 17050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17050.f, 17060.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 17060.f, 17070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17070.f,
- 17080.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17080.f, 17090.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 17090.f, 17100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17100.f, 17110.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 17110.f, 17120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 17120.f,
- 17130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17130.f, 17140.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 17140.f, 17150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17150.f,
- 17160.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17160.f, 17170.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 17170.f, 17180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17180.f, 17190.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 17190.f, 17200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 17200.f,
- 17210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17210.f, 17220.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 17220.f, 17230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17230.f,
- 17240.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17240.f, 17250.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 17250.f, 17260.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17260.f, 17270.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 17270.f, 17280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 17280.f,
- 17290.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17290.f, 17300.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 17300.f, 17310.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17310.f,
- 17320.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17320.f, 17330.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 17330.f, 17340.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17340.f, 17350.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 17350.f, 17360.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 17360.f,
- 17370.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17370.f, 17380.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 17380.f, 17390.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17390.f,
- 17400.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17400.f, 17410.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 17410.f, 17420.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17420.f, 17430.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 17430.f, 17440.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 17440.f,
- 17450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17450.f, 17460.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 17460.f, 17470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17470.f,
- 17480.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17480.f, 17490.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 17490.f, 17500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17500.f, 17510.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 17510.f, 17520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 17520.f,
- 17530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17530.f, 17540.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 17540.f, 17550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17550.f,
- 17560.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17560.f, 17570.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 17570.f, 17580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17580.f, 17590.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 17590.f, 17600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 17600.f,
- 17610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17610.f, 17620.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 17620.f, 17630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17630.f,
- 17640.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17640.f, 17650.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 17650.f, 17660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17660.f, 17670.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 17670.f, 17680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 17680.f,
- 17690.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17690.f, 17700.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 17700.f, 17710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17710.f,
- 17720.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17720.f, 17730.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 17730.f, 17740.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17740.f, 17750.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 17750.f, 17760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 17760.f,
- 17770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17770.f, 17780.f, 0.f, 0.f, 0.f,
-
- 0.f,
- 0.f, 0.f, 17780.f, 17790.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17790.f,
- 17800.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17800.f, 17810.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 17810.f, 17820.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17820.f, 17830.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 17830.f, 17840.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 17840.f,
- 17850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17850.f, 17860.f
- };
-
- /* nitrous oxide (15300 - 17870 cm-1) */
- for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
-} /* niox6 */
-
-void
-niox5 (float a[8], const long int inu)
-{
-
-
- static const float acr[2048] = { 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f, 12740.f, 12750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12750.f, 12760.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 12760.f, 12770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 12770.f, 12780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12780.f, 12790.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 12790.f, 12800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 12800.f,
- 12810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12810.f, 12820.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 12820.f, 12830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12830.f,
- 12840.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12840.f, 12850.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 12850.f, 12860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12860.f, 12870.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 12870.f, 12880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 12880.f,
- 12890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12890.f, 12900.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 12900.f, 12910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12910.f,
- 12920.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12920.f, 12930.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 12930.f, 12940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12940.f, 12950.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 12950.f, 12960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 12960.f,
- 12970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12970.f, 12980.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 12980.f, 12990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12990.f, 1.3e4f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.3e4f, 13010.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13010.f, 13020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13020.f, 13030.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13030.f, 13040.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 13040.f,
- 13050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13050.f, 13060.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 13060.f, 13070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13070.f,
- 13080.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13080.f, 13090.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13090.f, 13100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13100.f, 13110.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13110.f, 13120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 13120.f,
- 13130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13130.f, 13140.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 13140.f, 13150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13150.f,
- 13160.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13160.f, 13170.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13170.f, 13180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13180.f, 13190.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13190.f, 13200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 13200.f,
- 13210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13210.f, 13220.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 13220.f, 13230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13230.f,
- 13240.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13240.f, 13250.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13250.f, 13260.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13260.f, 13270.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13270.f, 13280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
-
- 13280.f,
- 13290.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13290.f, 13300.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 13300.f, 13310.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13310.f,
- 13320.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13320.f, 13330.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13330.f, 13340.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13340.f, 13350.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13350.f, 13360.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 13360.f,
- 13370.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13370.f, 13380.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 13380.f, 13390.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13390.f,
- 13400.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13400.f, 13410.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13410.f, 13420.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13420.f, 13430.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13430.f, 13440.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 13440.f,
- 13450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13450.f, 13460.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 13460.f, 13470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13470.f,
- 13480.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13480.f, 13490.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13490.f, 13500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13500.f, 13510.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13510.f, 13520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 13520.f,
- 13530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13530.f, 13540.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 13540.f, 13550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13550.f,
- 13560.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13560.f, 13570.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13570.f, 13580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13580.f, 13590.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13590.f, 13600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 13600.f,
- 13610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13610.f, 13620.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 13620.f, 13630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13630.f,
- 13640.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13640.f, 13650.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13650.f, 13660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13660.f, 13670.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13670.f, 13680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 13680.f,
- 13690.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13690.f, 13700.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 13700.f, 13710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13710.f,
- 13720.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13720.f, 13730.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13730.f, 13740.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13740.f, 13750.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13750.f, 13760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 13760.f,
- 13770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13770.f, 13780.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 13780.f, 13790.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13790.f,
- 13800.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13800.f, 13810.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13810.f, 13820.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13820.f, 13830.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13830.f, 13840.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 13840.f,
- 13850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13850.f, 13860.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 13860.f, 13870.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13870.f,
- 13880.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13880.f, 13890.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13890.f, 13900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13900.f, 13910.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13910.f, 13920.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 13920.f,
- 13930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13930.f, 13940.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 13940.f, 13950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13950.f,
- 13960.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13960.f, 13970.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13970.f, 13980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13980.f, 13990.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13990.f, 1.4e4f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.4e4f,
- 14010.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14010.f, 14020.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 14020.f, 14030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14030.f,
- 14040.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14040.f, 14050.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 14050.f, 14060.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14060.f, 14070.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 14070.f, 14080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 14080.f,
- 14090.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14090.f, 14100.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 14100.f, 14110.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14110.f,
-
- 14120.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14120.f, 14130.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 14130.f, 14140.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14140.f, 14150.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 14150.f, 14160.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 14160.f,
- 14170.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14170.f, 14180.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 14180.f, 14190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14190.f,
- 14200.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14200.f, 14210.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 14210.f, 14220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14220.f, 14230.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 14230.f, 14240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 14240.f,
- 14250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14250.f, 14260.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 14260.f, 14270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14270.f,
- 14280.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14280.f, 14290.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 14290.f, 14300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14300.f, 14310.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 14310.f, 14320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 14320.f,
- 14330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14330.f, 14340.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 14340.f, 14350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14350.f,
- 14360.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14360.f, 14370.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 14370.f, 14380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14380.f, 14390.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 14390.f, 14400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 14400.f,
- 14410.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14410.f, 14420.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 14420.f, 14430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14430.f,
- 14440.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14440.f, 14450.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 14450.f, 14460.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14460.f, 14470.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 14470.f, 14480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 14480.f,
- 14490.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14490.f, 14500.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 14500.f, 14510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14510.f,
- 14520.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14520.f, 14530.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 14530.f, 14540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14540.f, 14550.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 14550.f, 14560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
-
- 14560.f,
- 14570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14570.f, 14580.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 14580.f, 14590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14590.f,
- 14600.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14600.f, 14610.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 14610.f, 14620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14620.f, 14630.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 14630.f, 14640.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 14640.f,
- 14650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14650.f, 14660.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 14660.f, 14670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14670.f,
- 14680.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14680.f, 14690.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 14690.f, 14700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14700.f, 14710.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 14710.f, 14720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 14720.f,
- 14730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14730.f, 14740.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 14740.f, 14750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14750.f,
- 14760.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14760.f, 14770.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 14770.f, 14780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14780.f, 14790.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 14790.f, 14800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 14800.f,
- 14810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14810.f, 14820.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 14820.f, 14830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14830.f,
- 14840.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14840.f, 14850.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 14850.f, 14860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14860.f, 14870.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 14870.f, 14880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 14880.f,
- 14890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14890.f, 14900.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 14900.f, 14910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14910.f,
- 14920.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14920.f, 14930.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 14930.f, 14940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14940.f, 14950.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 14950.f, 14960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 14960.f,
- 14970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14970.f, 14980.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 14980.f, 14990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14990.f, 1.5e4f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.5e4f, 15010.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 15010.f, 15020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15020.f, 15030.f, 0.f,
-
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 15030.f, 15040.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 15040.f,
- 15050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15050.f, 15060.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 15060.f, 15070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15070.f,
- 15080.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15080.f, 15090.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 15090.f, 15100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15100.f, 15110.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 15110.f, 15120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 15120.f,
- 15130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15130.f, 15140.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 15140.f, 15150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15150.f,
- 15160.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15160.f, 15170.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 15170.f, 15180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15180.f, 15190.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 15190.f, 15200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 15200.f,
- 15210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15210.f, 15220.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 15220.f, 15230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15230.f,
- 15040.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15240.f, 15250.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 15250.f, 15260.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15260.f, 15270.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 15270.f, 15280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 15280.f,
- 15290.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15290.f, 15300.f
- };
-
- /* nitrous oxide (12740 - 15290 cm-1) */
- for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
-} /* niox5 */
-
-void
-niox4 (float a[8], const long int inu)
-{
-
-
- static const float acr[2048] = { 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f, 10180.f, 10190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10190.f, 10200.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 10200.f, 10210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 10210.f, 10220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10220.f, 10230.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 10230.f, 10240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 10240.f,
- 10250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10250.f, 10260.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 10260.f, 10270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10270.f,
- 10280.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10280.f, 10290.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 10290.f, 10300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10300.f, 10310.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 10310.f, 10320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 10320.f,
- 10330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10330.f, 10340.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 10340.f, 10350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10350.f,
- 10360.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10360.f, 10370.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 10370.f, 10380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10380.f, 10390.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 10390.f, 10400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 10400.f,
- 10410.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10410.f, 10420.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 10420.f, 10430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10430.f,
- 10440.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10440.f, 10450.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 10450.f, 10460.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10460.f, 10470.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 10470.f, 10480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 10480.f,
- 10490.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10490.f, 10500.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 10500.f, 10510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10510.f,
- 10520.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10520.f, 10530.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 10530.f, 10540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10540.f, 10550.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 10550.f, 10560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 10560.f,
- 10570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10570.f, 10580.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 10580.f, 10590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10590.f,
- 10600.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10600.f, 10610.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 10610.f, 10620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10620.f, 10630.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 10630.f, 10640.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 10640.f,
- 10650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10650.f, 10660.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 10660.f, 10670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10670.f,
- 10680.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10680.f, 10690.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 10690.f, 10700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10700.f, 10710.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 10710.f, 10720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 10720.f,
- 10730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10730.f, 10740.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 10740.f, 10750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10750.f,
- 10760.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10760.f, 10770.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 10770.f, 10780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10780.f, 10790.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 10790.f, 10800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 10800.f,
- 10810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10810.f, 10820.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 10820.f, 10830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10830.f,
- 10840.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10840.f, 10850.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 10850.f, 10860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10860.f, 10870.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 10870.f, 10880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 10880.f,
-
- 10890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10890.f, 10900.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 10900.f, 10910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10910.f,
- 10920.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10920.f, 10930.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 10930.f, 10940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10940.f, 10950.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 10950.f, 10960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 10960.f,
- 10970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10970.f, 10980.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 10980.f, 10990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10990.f, 1.1e4f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.1e4f, 11010.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 11010.f, 11020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11020.f, 11030.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 11030.f, 11040.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 11040.f,
- 11050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11050.f, 11060.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 11060.f, 11070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11070.f,
- 11080.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11080.f, 11090.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 11090.f, 11100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11100.f, 11110.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 11110.f, 11120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 11120.f,
- 11130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11130.f, 11140.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 11140.f, 11150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11150.f,
- 11160.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11160.f, 11170.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 11170.f, 11180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11180.f, 11190.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 11190.f, 11200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 11200.f,
- 11210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11210.f, 11220.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 11220.f, 11230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11230.f,
- 11240.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11240.f, 11250.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
-
- 11250.f, 11260.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11260.f, 11270.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 11270.f, 11280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 11280.f,
- 11290.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11290.f, 11300.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 11300.f, 11310.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11310.f,
- 11320.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11320.f, 11330.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 11330.f, 11340.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11340.f, 11350.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 11350.f, 11360.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 11360.f,
- 11370.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11370.f, 11380.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 11380.f, 11390.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11390.f,
- 11400.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11400.f, 11410.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 11410.f, 11420.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11420.f, 11430.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 11430.f, 11440.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 11440.f,
- 11450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11450.f, 11460.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 11460.f, 11470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11470.f,
- 11480.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11480.f, 11490.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 11490.f, 11500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11500.f, 11510.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 11510.f, 11520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 11520.f,
- 11530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11530.f, 11540.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 11540.f, 11550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11550.f,
- 11560.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11560.f, 11570.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 11570.f, 11580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11580.f, 11590.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 11590.f, 11600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 11600.f,
- 11610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11610.f, 11620.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 11620.f, 11630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11630.f,
- 11640.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11640.f, 11650.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 11650.f, 11660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11660.f, 11670.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 11670.f, 11680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 11680.f,
- 11690.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11690.f, 11700.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 11700.f, 11710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11710.f,
- 11720.f,
-
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11720.f, 11730.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 11730.f, 11740.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11740.f, 11750.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 11750.f, 11760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 11760.f,
- 11770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11770.f, 11780.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 11780.f, 11790.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11790.f,
- 11800.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11800.f, 11810.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 11810.f, 11820.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11820.f, 11830.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 11830.f, 11840.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 11840.f,
- 11850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11850.f, 11860.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 11860.f, 11870.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11870.f,
- 11880.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11880.f, 11890.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 11890.f, 11900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11900.f, 11910.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 11910.f, 11920.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 11920.f,
- 11930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11930.f, 11940.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 11940.f, 11950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11950.f,
- 11960.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11960.f, 11970.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 11970.f, 11980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11980.f, 11990.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 11990.f, 1.2e4f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.2e4f,
- 12010.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12010.f, 12020.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 12020.f, 12030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12030.f,
- 12040.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12040.f, 12050.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 12050.f, 12060.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12060.f, 12070.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 12070.f, 12080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 12080.f,
- 12090.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12090.f, 12100.f, 0.f, 0.f, 0.f,
-
- 0.f,
- 0.f, 0.f, 12100.f, 12110.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12110.f,
- 12120.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12120.f, 12130.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 12130.f, 12140.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12140.f, 12150.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 12150.f, 12160.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 12160.f,
- 12170.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12170.f, 12180.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 12180.f, 12190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12190.f,
- 12200.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12200.f, 12210.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 12210.f, 12220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12220.f, 12230.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 12230.f, 12240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 12240.f,
- 12250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12250.f, 12260.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 12260.f, 12270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12270.f,
- 12280.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12280.f, 12290.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 12290.f, 12300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12300.f, 12310.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 12310.f, 12320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 12320.f,
- 12330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12330.f, 12340.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 12340.f, 12350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12350.f,
- 12360.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12360.f, 12370.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 12370.f, 12380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12380.f, 12390.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 12390.f, 12400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 12400.f,
- 12410.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12410.f, 12420.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 12420.f, 12430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12430.f,
- 12440.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12440.f, 12450.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 12450.f, 12460.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12460.f, 12470.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 12470.f, 12480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 12480.f,
- 12490.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12490.f, 12500.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 12500.f, 12510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12510.f,
- 12520.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12520.f, 12530.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 12530.f, 12540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12540.f, 12550.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 12550.f, 12560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 12560.f,
- 12570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12570.f, 12580.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 12580.f, 12590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12590.f,
- 12600.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12600.f, 12610.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 12610.f, 12620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12620.f, 12630.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 12630.f, 12640.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 12640.f,
- 12650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12650.f, 12660.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 12660.f, 12670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12670.f,
- 12680.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12680.f, 12690.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 12690.f, 12700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12700.f, 12710.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 12710.f, 12720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 12720.f,
- 12730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12730.f, 12740.f
- };
-
- /* nitrous oxide (10180 - 12730 cm-1) */
- for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
-} /* niox4 */
-
-void
-niox3 (float a[8], const long int inu)
-{
-
-
- static const float acr[2048] = { 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f, 7620.f, 7630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7630.f, 7640.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 7640.f, 7650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7650.f,
- 7660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7660.f, 7670.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 7670.f, 7680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7680.f, 7690.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 7690.f, 7700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7700.f,
- 7710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7710.f, 7720.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 7720.f, 7730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7730.f, 7740.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 7740.f, 7750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7750.f,
- 7760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7760.f, 7770.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 7770.f, 7780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7780.f, 7790.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 7790.f, 7800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7800.f,
- 7810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7810.f, 7820.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 7820.f, 7830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7830.f, 7840.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 7840.f, 7850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7850.f,
- 7860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7860.f, 7870.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 7870.f, 7880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7880.f, 7890.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 7890.f, 7900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7900.f,
- 7910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7910.f, 7920.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 7920.f, 7930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7930.f, 7940.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 7940.f, 7950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7950.f,
- 7960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7960.f, 7970.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 7970.f, 7980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7980.f, 7990.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 7990.f, 8e3f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8e3f,
- 8010.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8010.f, 8020.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8020.f, 8030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8030.f, 8040.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8040.f, 8050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8050.f,
- 8060.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8060.f, 8070.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8070.f, 8080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8080.f, 8090.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8090.f, 8100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8100.f,
- 8110.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8110.f, 8120.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8120.f, 8130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8130.f, 8140.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8140.f, 8150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8150.f,
- 8160.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8160.f, 8170.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8170.f, 8180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8180.f, 8190.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8190.f, 8200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8200.f,
- 8210.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8210.f, 8220.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8220.f, 8230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8230.f, 8240.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8240.f, 8250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8250.f,
- 8260.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8260.f, 8270.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8270.f, 8280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8280.f, 8290.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8290.f, 8300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8300.f,
- 8310.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8310.f, 8320.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8320.f, 8330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8330.f, 8340.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8340.f, 8350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8350.f,
- 8360.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8360.f, 8370.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8370.f, 8380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8380.f, 8390.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8390.f, 8400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8400.f,
- 8410.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8410.f, 8420.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8420.f, 8430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8430.f, 8440.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8440.f, 8450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8450.f,
- 8460.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8460.f, 8470.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8470.f, 8480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8480.f, 8490.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8490.f, 8500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8500.f,
- 8510.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8510.f, 8520.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8520.f, 8530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8530.f, 8540.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8540.f, 8550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8550.f,
- 8560.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8560.f, 8570.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8570.f, 8580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8580.f, 8590.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8590.f, 8600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8600.f,
- 8610.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8610.f, 8620.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8620.f, 8630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8630.f, 8640.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8640.f, 8650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8650.f,
- 8660.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8660.f, 8670.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8670.f, 8680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8680.f, 8690.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8690.f, 8700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8700.f,
- 8710.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8710.f, 8720.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8720.f, 8730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8730.f, 8740.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8740.f, 8750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8750.f,
- 8760.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8760.f, 8770.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8770.f, 8780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8780.f, 8790.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8790.f, 8800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8800.f,
- 8810.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8810.f, 8820.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8820.f, 8830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8830.f, 8840.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8840.f, 8850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8850.f,
- 8860.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8860.f, 8870.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8870.f, 8880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8880.f, 8890.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8890.f, 8900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8900.f,
- 8910.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8910.f, 8920.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8920.f, 8930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8930.f, 8940.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8940.f, 8950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8950.f,
- 8960.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8960.f, 8970.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8970.f, 8980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8980.f, 8990.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8990.f, 9e3f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9e3f, 9010.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 9010.f, 9020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 9020.f,
-
- 9030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9030.f, 9040.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 9040.f, 9050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9050.f, 9060.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 9060.f, 9070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9070.f,
- 9080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9080.f, 9090.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 9090.f, 9100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9100.f, 9110.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 9110.f, 9120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9120.f,
- 9130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9130.f, 9140.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 9140.f, 9150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9150.f, 9160.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 9160.f, 9170.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9170.f,
- 9180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9180.f, 9190.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 9190.f, 9200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9200.f, 9210.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 9210.f, 9220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9220.f,
- 9230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9230.f, 9240.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 9240.f, 9250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9250.f, 9260.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 9260.f, 9270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9270.f,
- 9280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9280.f, 9290.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 9290.f, 9300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9300.f, 9310.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 9310.f, 9320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9320.f,
- 9330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9330.f, 9340.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 9340.f, 9350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9350.f, 9360.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 9360.f, 9370.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9370.f,
- 9380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9380.f, 9390.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 9390.f, 9400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9400.f, 9410.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 9410.f, 9420.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9420.f,
- 9430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9430.f, 9440.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 9440.f, 9450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9450.f, 9460.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 9460.f, 9470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9470.f,
- 9480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9480.f, 9490.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 9490.f, 9500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9500.f, 9510.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 9510.f, 9520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9520.f,
-
- 9530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9530.f, 9540.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 9540.f, 9550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9550.f, 9560.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 9560.f, 9570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9570.f,
- 9580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9580.f, 9590.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 9590.f, 9600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9600.f, 9610.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 9610.f, 9620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9620.f,
- 9630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9630.f, 9640.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 9640.f, 9650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9650.f, 9660.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 9660.f, 9670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9670.f,
- 9680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9680.f, 9690.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 9690.f, 9700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9700.f, 9710.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 9710.f, 9720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9720.f,
- 9730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9730.f, 9740.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 9740.f, 9750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9750.f, 9760.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 9760.f, 9770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9770.f,
- 9780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9780.f, 9790.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 9790.f, 9800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9800.f, 9810.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 9810.f, 9820.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9820.f,
- 9830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9830.f, 9840.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 9840.f, 9850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9850.f, 9860.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 9860.f, 9870.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9870.f,
- 9880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9880.f, 9890.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 9890.f, 9900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9900.f, 9910.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 9910.f, 9920.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9920.f,
- 9930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9930.f, 9940.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 9940.f, 9950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9950.f, 9960.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 9960.f, 9970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9970.f,
- 9980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9980.f, 9990.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 9990.f, 1e4f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1e4f, 10010.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 10010.f, 10020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10020.f,
- 10030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10030.f, 10040.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 10040.f, 10050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10050.f,
- 10060.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10060.f, 10070.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 10070.f, 10080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10080.f, 10090.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 10090.f, 10100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 10100.f,
- 10110.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10110.f, 10120.f, 0.f, 0.f, 0.f,
- 0.f,
-
- 0.f, 0.f, 10120.f, 10130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10130.f,
- 10140.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10140.f, 10150.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 10150.f, 10160.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10160.f, 10170.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 10170.f, 10180.f
- };
-
- /* nitrous oxide (7620 - 10170 cm-1) */
- for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
-} /* niox3 */
-
-void
-niox2 (float a[8], const long int inu)
-{
-
-
- static const float acr[2048] = { .072211f, .24584f,
- .0096738f, -5.1958e-5f, .0067533f, -4.7277e-5f, 5060.f, 5070.f, .21388f,
- .25456f, .0043318f, -3.1058e-5f, .0012217f, -2.5614e-5f, 5070.f, 5080.f,
- .57556f, .33263f, -2.6597e-4f, -1.2844e-5f, -.0033007f, -7.3238e-6f,
- 5080.f, 5090.f, .67723f, .36014f, -.0034018f, -8.0539e-7f, -.006515f,
- 5.4383e-6f, 5090.f, 5100.f, .30093f, .41799f, -.0047912f, 4.5347e-6f,
- -.0079672f, 1.0982e-5f, 5100.f, 5110.f, 1.0645f, .53257f, -.003157f,
- -1.4679e-6f, -.0062971f, 4.7135e-6f, 5110.f, 5120.f, .67643f, .61899f,
- .0025029f, -2.0398e-5f, 2.0488e-4f, -1.9155e-5f, 5120.f, 5130.f,
- .018117f, .12425f, .013386f, -6.7752e-5f, .010428f, -6.2211e-5f, 5130.f,
- 5140.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5140.f, 5150.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 5150.f, 5160.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5160.f, 5170.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 5170.f, 5180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5180.f,
- 5190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5190.f, 5200.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 5200.f, 5210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5210.f, 5220.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 5220.f, 5230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5230.f,
- 5240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5240.f, 5250.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 5250.f, 5260.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5260.f, 5270.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 5270.f, 5280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5280.f,
- 5290.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5290.f, 5300.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 5300.f, 5310.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5310.f, 5320.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 5320.f, 5330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5330.f,
- 5340.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5340.f, 5350.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 5350.f, 5360.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5360.f, 5370.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 5370.f, 5380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5380.f,
- 5390.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5390.f, 5400.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 5400.f, 5410.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5410.f, 5420.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 5420.f, 5430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5430.f,
- 5440.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5440.f, 5450.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 5450.f, 5460.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5460.f, 5470.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 5470.f, 5480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5480.f,
- 5490.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5490.f, 5500.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 5500.f, 5510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5510.f, 5520.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 5520.f, 5530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5530.f,
- 5540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5540.f, 5550.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 5550.f, 5560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5560.f, 5570.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 5570.f, 5580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5580.f,
- 5590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5590.f, 5600.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 5600.f, 5610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5610.f, 5620.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 5620.f, 5630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5630.f,
- 5640.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5640.f, 5650.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 5650.f, 5660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5660.f, 5670.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 5670.f, 5680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5680.f,
- 5690.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5690.f, 5700.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 5700.f, 5710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5710.f, 5720.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 5720.f, 5730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5730.f,
- 5740.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5740.f, 5750.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 5750.f, 5760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5760.f, 5770.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 5770.f, 5780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5780.f,
- 5790.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5790.f, 5800.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 5800.f, 5810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5810.f, 5820.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 5820.f, 5830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5830.f,
- 5840.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5840.f, 5850.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 5850.f, 5860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5860.f, 5870.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 5870.f, 5880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5880.f,
- 5890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5890.f, 5900.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 5900.f, 5910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5910.f, 5920.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 5920.f, 5930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5930.f,
- 5940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5940.f, 5950.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 5950.f, 5960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5960.f, 5970.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 5970.f, 5980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5980.f,
- 5990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5990.f, 6e3f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 6e3f, 6010.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6010.f, 6020.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 6020.f, 6030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6030.f,
- 6040.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6040.f, 6050.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 6050.f, 6060.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6060.f, 6070.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 6070.f, 6080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6080.f,
- 6090.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6090.f, 6100.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 6100.f, 6110.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6110.f, 6120.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 6120.f, 6130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6130.f,
- 6140.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6140.f, 6150.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 6150.f, 6160.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6160.f, 6170.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 6170.f, 6180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6180.f,
- 6190.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6190.f, 6200.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 6200.f, 6210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6210.f, 6220.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 6220.f, 6230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6230.f,
- 6240.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6240.f, 6250.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 6250.f, 6260.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6260.f, 6270.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 6270.f, 6280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6280.f,
- 6290.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6290.f, 6300.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 6300.f, 6310.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6310.f, 6320.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 6320.f, 6330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6330.f,
- 6340.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6340.f, 6350.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 6350.f, 6360.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6360.f, 6370.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 6370.f, 6380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6380.f,
- 6390.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6390.f, 6400.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 6400.f, 6410.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6410.f, 6420.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 6420.f, 6430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6430.f,
- 6440.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6440.f, 6450.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 6450.f, 6460.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6460.f, 6470.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 6470.f, 6480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6480.f,
- 6490.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6490.f, 6500.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 6500.f, 6510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6510.f, 6520.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 6520.f, 6530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6530.f,
- 6540.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6540.f, 6550.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 6550.f, 6560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6560.f, 6570.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 6570.f, 6580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6580.f,
- 6590.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6590.f, 6600.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 6600.f, 6610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6610.f, 6620.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 6620.f, 6630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6630.f,
- 6640.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6640.f, 6650.f, 0.f, 0.f, 0.f, 0.f, 0.f,
-
- 0.f,
- 6650.f, 6660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6660.f, 6670.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 6670.f, 6680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6680.f,
- 6690.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6690.f, 6700.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 6700.f, 6710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6710.f, 6720.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 6720.f, 6730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6730.f,
- 6740.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6740.f, 6750.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 6750.f, 6760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6760.f, 6770.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 6770.f, 6780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6780.f,
- 6790.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6790.f, 6800.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 6800.f, 6810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6810.f, 6820.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 6820.f, 6830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6830.f,
- 6840.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6840.f, 6850.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 6850.f, 6860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6860.f, 6870.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 6870.f, 6880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6880.f,
- 6890.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6890.f, 6900.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 6900.f, 6910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6910.f, 6920.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 6920.f, 6930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6930.f,
- 6940.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6940.f, 6950.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 6950.f, 6960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6960.f, 6970.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 6970.f, 6980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6980.f,
- 6990.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6990.f, 7e3f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 7e3f,
- 7010.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7010.f, 7020.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 7020.f, 7030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7030.f, 7040.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 7040.f, 7050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7050.f,
- 7060.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7060.f, 7070.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 7070.f, 7080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7080.f, 7090.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 7090.f, 7100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7100.f,
- 7110.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7110.f, 7120.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 7120.f, 7130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7130.f, 7140.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 7140.f, 7150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7150.f,
- 7160.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7160.f, 7170.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 7170.f, 7180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7180.f, 7190.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 7190.f, 7200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7200.f,
- 7210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7210.f, 7220.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 7220.f, 7230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7230.f, 7240.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 7240.f, 7250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7250.f,
- 7260.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7260.f, 7270.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 7270.f, 7280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7280.f, 7290.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 7290.f, 7300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7300.f,
- 7310.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7310.f, 7320.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 7320.f, 7330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7330.f, 7340.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 7340.f, 7350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7350.f,
- 7360.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7360.f, 7370.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 7370.f, 7380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7380.f, 7390.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 7390.f, 7400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7400.f,
- 7410.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7410.f, 7420.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 7420.f, 7430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7430.f, 7440.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 7440.f, 7450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7450.f,
- 7460.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7460.f, 7470.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 7470.f, 7480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7480.f, 7490.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 7490.f, 7500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7500.f,
- 7510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7510.f, 7520.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 7520.f, 7530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7530.f, 7540.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 7540.f, 7550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7550.f,
- 7560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7560.f, 7570.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 7570.f, 7580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7580.f, 7590.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 7590.f, 7600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7600.f,
- 7610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7610.f, 7620.f
- };
-
- /* nitrous oxide (5060 - 7610 cm-1) */
- for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
-} /* niox2 */
-
-void
-niox1 (float a[8], const long int inu)
-{
-
-
- static const float acr[2048] = { 2.0198f, 1.2223f,
- .021725f, -7.4064e-5f, .021102f, -6.8716e-5f, 2500.f, 2510.f, 5.563f,
- .51358f, .018526f, -8.1387e-5f, .020173f, -7.5293e-5f, 2510.f, 2520.f,
- 30.587f, .41845f, .010994f, -5.2858e-5f, .012658f, -4.4443e-5f, 2520.f,
- 2530.f, 127.44f, .46867f, .0044706f, -2.7536e-5f, .0057879f,
- -1.6691e-5f, 2530.f, 2540.f, 288.02f, .51762f, -2.6998e-4f, -8.7651e-6f,
- .0012264f, 2.1451e-6f, 2540.f, 2550.f, 353.69f, .7476f, -.0029604f,
- 4.5093e-6f, -.0013209f, 1.2765e-5f, 2550.f, 2560.f, 185.24f, 1.0395f,
- -.0026365f, 1.2028e-5f, 6.176e-4f, 1.0222e-5f, 2560.f, 2570.f, 464.55f,
- .85773f, -.0024108f, -1.72e-6f, -7.7777e-4f, 5.7019e-6f, 2570.f, 2580.f,
- 293.83f, 1.0741f, .0031043f, -2.1797e-5f, .0037703f, -2.0707e-5f,
- 2580.f, 2590.f, 55.672f, 1.7813f, .013484f, -6.2711e-5f, .013188f,
- -6.339e-5f, 2590.f, 2600.f, 6.6505f, 2.3452f, .023437f, -9.9109e-5f,
- .023591f, -1.0503e-4f, 2600.f, 2610.f, .41623f, 2.2528f, .035914f,
- -1.5047e-4f, .035732f, -1.5387e-4f, 2610.f, 2620.f, .01271f, 1.0271f,
- .047982f, -1.9811e-4f, .047474f, -2.0344e-4f, 2620.f, 2630.f, 0.f, 0.f,
- 0.f, 0.f, 0.f, 0.f, 2630.f, 2640.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2640.f,
- 2650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2650.f, 2660.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 2660.f, 2670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2670.f, 2680.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 2680.f, 2690.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2690.f,
- 2700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2700.f, 2710.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 2710.f, 2720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2720.f, 2730.f,
- .018198f,
- .18592f, .025778f, -1.1646e-4f, .02282f, -1.1152e-4f, 2730.f, 2740.f,
- .21623f, .86664f, .021368f, -9.617e-5f, .018994f, -9.4763e-5f, 2740.f,
- 2750.f, .9723f, 1.0815f, .015101f, -7.1229e-5f, .012988f, -7.0769e-5f,
- 2750.f, 2760.f, 3.1871f, 1.6537f, .0095979f, -4.1092e-5f, .0109f,
- -5.0556e-5f, 2760.f, 2770.f, 9.1207f, 2.0456f, .0045146f, -1.7223e-5f,
- .0068327f, -3.3329e-5f, 2770.f, 2780.f, 15.769f, 2.4147f, .00151f,
- 2.7306e-6f, .004717f, -2.1798e-5f, 2780.f, 2790.f, 63.944f, 2.2532f,
- -9.2395e-4f, -1.4987e-6f, -.0017516f, -2.476e-6f, 2790.f, 2800.f,
- 13.465f, .81561f, -.0029579f, 7.8199e-6f, -.0016132f, 7.282e-6f, 2800.f,
- 2810.f, 15.397f, .59138f, -4.591e-4f, -9.3657e-6f, -.0015437f,
- -2.9788e-6f, 2810.f, 2820.f, 3.8011f, .48019f, .0069255f, -3.8126e-5f,
- .0047344f, -3.7097e-5f, 2820.f, 2830.f, .17619f, .34619f, .019824f,
- -8.9371e-5f, .017957f, -8.9565e-5f, 2830.f, 2840.f, 0.f, 0.f, 0.f, 0.f,
- 0.f, 0.f, 2840.f, 2850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2850.f, 2860.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 2860.f, 2870.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 2870.f,
- 2880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2880.f, 2890.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 2890.f, 2900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2900.f, 2910.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 2910.f, 2920.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2920.f,
- 2930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2930.f, 2940.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 2940.f, 2950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2950.f, 2960.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 2960.f, 2970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2970.f,
- 2980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2980.f, 2990.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 2990.f, 3e3f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3e3f, 3010.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 3010.f, 3020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3020.f,
- 3030.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3030.f, 3040.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 3040.f, 3050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3050.f, 3060.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 3060.f, 3070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3070.f,
- 3080.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3080.f, 3090.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 3090.f, 3100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3100.f, 3110.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 3110.f, 3120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3120.f,
- 3130.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3130.f, 3140.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 3140.f, 3150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3150.f, 3160.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 3160.f, 3170.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3170.f,
- 3180.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3180.f, 3190.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 3190.f, 3200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3200.f, 3210.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 3210.f, 3220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3220.f,
- 3230.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3230.f, 3240.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 3240.f, 3250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3250.f, 3260.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 3260.f, 3270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3270.f,
- 3280.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3280.f, 3290.f, .031935f, .33591f, .031875f,
- -1.4104e-4f, .028977f, -1.3626e-4f, 3290.f, 3300.f, .29281f, .7467f,
- .024844f, -1.1101e-4f, .022436f, -1.0879e-4f, 3300.f, 3310.f, 1.3054f,
- .88331f, .018331f, -8.5898e-5f, .015557f, -8.2041e-5f, 3310.f, 3320.f,
- 4.3559f, .97784f, .012392f, -6.2543e-5f, .0096436f, -5.8644e-5f, 3320.f,
- 3330.f, 10.74f, .87778f, .0059037f, -3.4711e-5f, .0041535f, -3.5594e-5f,
- 3330.f, 3340.f, 23.794f, .67907f, 5.4208e-5f, -1.1592e-5f, -8.2054e-4f,
- -1.2774e-5f, 3340.f, 3350.f, 27.447f, .86607f, -.0018645f, 4.7336e-6f,
- -.001502f, -1.8166e-6f, 3350.f, 3360.f, 12.839f, .92051f, -.0018449f,
- 1.8928e-5f, -3.1436e-5f, 6.4319e-6f, 3360.f, 3370.f, 33.503f, .561f,
- -.0027786f, -1.9224e-7f, -.0032856f, 1.1355e-5f, 3370.f, 3380.f, 20.6f,
- .44389f, .0016967f, -1.9484e-5f, -.0011701f, -1.5371e-5f, 3380.f,
- 3390.f, 3.8609f, .51395f, .010469f, -4.8303e-5f, .010318f, -4.3382e-5f,
- 3390.f, 3400.f, .29988f, .99187f, .032066f, -1.0701e-4f, .031782f,
- -1.3149e-4f, 3400.f, 3410.f, 1.1046f, .96114f, .03056f, -1.2026e-4f,
- .031203f, -1.3653e-4f, 3410.f, 3420.f, 5.3792f, .96792f, .023315f,
- -9.51e-5f, .024421f, -1.0864e-4f, 3420.f, 3430.f, 25.745f, .89943f,
- .015618f, -6.5963e-5f, .017309f, -7.84e-5f, 3430.f, 3440.f, 90.538f,
- .79321f, .009142f, -4.2087e-5f, .010653f, -5.0451e-5f, 3440.f, 3450.f,
- 302.63f, .81416f, .0031369f, -1.9699e-5f, .0046971f, -2.3774e-5f,
- 3450.f, 3460.f, 451.74f, .71592f, -.0010912f, -4.691e-6f, 7.436e-4f,
- -4.31e-6f, 3460.f, 3470.f, 395.99f, .95008f, -.0034795f, 5.0213e-6f,
- -.0012061f, 8.3238e-6f, 3470.f, 3480.f, 391.94f, 1.0413f, -.0024518f,
- 9.7005e-6f, 3.1609e-4f, 6.168e-6f, 3480.f, 3490.f, 753.96f, .84036f,
- -9.1794e-4f, -4.5133e-6f, -2.3983e-4f, -6.0537e-7f, 3490.f, 3500.f,
- 216.44f, .71621f, .00633f, -3.2276e-5f, .0065565f, -3.1312e-5f, 3500.f,
- 3510.f, 1.8617f, .41652f, .026193f, -1.1186e-4f, .025872f, -1.1548e-4f,
- 3510.f, 3520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3520.f, 3530.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 3530.f, 3540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3540.f,
- 3550.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3550.f, 3560.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 3560.f, 3570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3570.f, 3580.f, .11329f,
- .32221f, .011785f, -5.9055e-5f, .009293f, -5.6411e-5f, 3580.f, 3590.f,
- .6324f, .37454f, .0039372f, -2.85e-5f, .0010518f, -2.435e-5f, 3590.f,
- 3600.f, 1.3646f, .37234f, -.0012358f, -8.9975e-6f, -.0042592f,
- -3.4218e-6f, 3600.f, 3610.f, 1.1991f, .43663f, -.0040429f, 1.6771e-6f,
- -.007273f, 8.322e-6f, 3610.f, 3620.f, .84759f, .39017f, -.0045304f,
- 3.5248e-6f, -.0077172f, 1.0072e-5f, 3620.f, 3630.f, 1.7247f, .41455f,
- -.0023639f, -4.6172e-6f, -.0054164f, 1.1967e-6f, 3630.f, 3640.f, .9314f,
- .40923f, .002508f, -2.2795e-5f, -3.8062e-4f, -1.8608e-5f, 3640.f,
- 3650.f, .17321f, .37301f, .010558f, -5.3495e-5f, .0082291f, -5.1685e-5f,
- 3650.f, 3660.f, .0028992f, .031363f, .018626f, -8.9141e-5f, .015463f,
- -8.2773e-5f, 3660.f, 3670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3670.f, 3680.f,
-
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3680.f, 3690.f, .052016f, .2333f, .023008f,
- -1.0429e-4f, .020466f, -1.014e-4f, 3690.f, 3700.f, .40077f, .43751f,
- .015625f, -7.0109e-5f, .014974f, -7.3666e-5f, 3700.f, 3710.f, 2.1822f,
- .57186f, .0083501f, -3.9798e-5f, .0081924f, -4.424e-5f, 3710.f, 3720.f,
- 6.6262f, .62697f, .0026483f, -1.7431e-5f, .0025461f, -2.1437e-5f,
- 3720.f, 3730.f, 11.503f, .6936f, -.001529f, -2.0568e-6f, -.0018176f,
- -4.1926e-6f, 3730.f, 3740.f, 5.547f, .70735f, -.0036265f, 5.5723e-6f,
- -.0039987f, 4.3869e-6f, 3740.f, 3750.f, 10.823f, .8515f, -.0028437f,
- 4.704e-6f, -.0029039f, 1.4795e-6f, 3750.f, 3760.f, 13.145f, .83989f,
- 2.3467e-4f, -7.519e-6f, 3.7066e-4f, -1.0406e-5f, 3760.f, 3770.f,
- 3.9192f, .87428f, .0073134f, -3.2311e-5f, .0084021f, -3.9596e-5f,
- 3770.f, 3780.f, .56238f, .59784f, .018114f, -8.3716e-5f, .016001f,
- -8.226e-5f, 3780.f, 3790.f, 1.486f, .24352f, .011201f, -5.7941e-5f,
- .0083855f, -5.3563e-5f, 3790.f, 3800.f, 5.7846f, .28312f, .0051402f,
- -3.3968e-5f, .0020967f, -2.8941e-5f, 3800.f, 3810.f, 15.534f, .38502f,
- 2.6866e-4f, -1.3504e-5f, -.0010262f, -5.4149e-6f, 3810.f, 3820.f,
- 20.107f, .46654f, -.0028471f, 4.7046e-7f, -.0034091f, 7.0565e-6f,
- 3820.f, 3830.f, 9.6329f, .68399f, -.0033535f, 1.0816e-5f, -.0031945f,
- 9.1488e-6f, 3830.f, 3840.f, 28.782f, .76658f, -.0028915f, 1.4121e-6f,
- -.0036898f, 2.7782e-6f, 3840.f, 3850.f, 22.068f, .72888f, .0013903f,
- -1.6991e-5f, -3.5656e-4f, -1.6534e-5f, 3850.f, 3860.f, 4.1416f, 1.4182f,
- .010989f, -5.3426e-5f, .0089392f, -5.1526e-5f, 3860.f, 3870.f, 1.386f,
- 1.0616f, .014465f, -7.035e-5f, .011642f, -6.6421e-5f, 3870.f, 3880.f,
- .21981f, .827f, .023073f, -1.0318e-4f, .020793f, -1.0169e-4f, 3880.f,
- 3890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3890.f, 3900.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 3900.f, 3910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3910.f, 3920.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 3920.f, 3930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3930.f,
- 3940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3940.f, 3950.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 3950.f, 3960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3960.f, 3970.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 3970.f, 3980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3980.f,
- 3990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3990.f, 4e3f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 4e3f, 4010.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4010.f, 4020.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 4020.f, 4030.f, .046381f, .22687f, .0024345f, -2.3816e-5f,
- -7.0852e-4f, -1.7981e-5f, 4030.f, 4040.f, .11207f, .33988f, -.0013925f,
- -8.515e-6f, -.0044315f, -2.7839e-6f, 4040.f, 4050.f, .26494f, .78086f,
- 7.5352e-4f, -1.0882e-5f, -.00225f, -8.0414e-6f, 4050.f, 4060.f, .52355f,
- .95211f, -.003229f, -8.4991e-7f, -.0065316f, 5.7606e-6f, 4060.f, 4070.f,
- .20288f, .51222f, -.0019356f, -5.8786e-6f, -.0049461f, -5.0049e-7f,
- 4070.f, 4080.f, .047528f, .22508f, .002968f, -2.5911e-5f, -1.9533e-4f,
- -2.0081e-5f, 4080.f, 4090.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4090.f, 4100.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4100.f, 4110.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 4110.f, 4120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4120.f, 4130.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 4130.f, 4140.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4140.f,
- 4150.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4150.f, 4160.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 4160.f, 4170.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4170.f, 4180.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 4180.f, 4190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4190.f,
- 4200.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4200.f, 4210.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 4210.f, 4220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4220.f, 4230.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 4230.f, 4240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4240.f,
- 4250.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4250.f, 4260.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 4260.f, 4270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4270.f, 4280.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 4280.f, 4290.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4290.f,
- 4300.f,
- .010261f, .065002f, .0034485f, -2.8392e-5f, 1.7191e-4f, -2.183e-5f,
- 4300.f, 4310.f, .084185f, .33064f, 1.571e-4f, -1.4472e-5f, -.0028838f,
- -8.9966e-6f, 4310.f, 4320.f, .11106f, .39358f, -.0032422f, -1.3748e-6f,
- -.006363f, 4.8743e-6f, 4320.f, 4330.f, .58854f, 1.3088f, -9.7669e-4f,
- 7.0381e-7f, -.0031832f, 2.6227e-6f, 4330.f, 4340.f, .25725f, 1.0051f,
- .006086f, 4.6822e-5f, .0059645f, 6.3569e-6f, 4340.f, 4350.f, .46043f,
- 1.0822f, .014451f, -3.4551e-5f, .010783f, -4.3114e-5f, 4350.f, 4360.f,
- 1.0879f, .79314f, .015344f, -7.4899e-5f, .012327f, -6.9661e-5f, 4360.f,
- 4370.f, 2.8336f, .83143f, .010372f, -5.4787e-5f, .0077026f, -5.1069e-5f,
- 4370.f, 4380.f, 5.6315f, .55232f, .0048246f, -3.1963e-5f, .0030343f,
- -3.1434e-5f, 4380.f, 4390.f, 11.627f, .66242f, .0012226f, -1.4669e-5f,
- 9.6618e-4f, -1.906e-5f, 4390.f, 4400.f, 18.357f, .81274f, -.0015078f,
- 2.8307e-6f, 3.021e-4f, -3.645e-6f, 4400.f, 4410.f, 8.1517f, .53727f,
- -.0041588f, 8.2656e-6f, -.0039017f, 1.9754e-5f, 4410.f, 4420.f, 21.947f,
- .50379f, -.0036693f, 3.4765e-7f, -.0068581f, 6.819e-6f, 4420.f, 4430.f,
- 21.321f, .70812f, .0014866f, -1.5888e-5f, -7.1958e-4f, -1.5047e-5f,
- 4430.f, 4440.f, .76039f, .46213f, .015813f, -7.1293e-5f, .014807f,
- -7.4172e-5f, 4440.f, 4450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4450.f, 4460.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4460.f, 4470.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 4470.f, 4480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4480.f, 4490.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 4490.f, 4500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4500.f,
- 4510.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4510.f, 4520.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 4520.f, 4530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4530.f, 4540.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 4540.f, 4550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4550.f,
- 4560.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4560.f, 4570.f, .0027208f, .031363f,
- .019608f,
- -9.3071e-5f, .016446f, -8.6703e-5f, 4570.f, 4580.f, .075316f, .2673f,
- .013852f, -6.7928e-5f, .01126f, -6.4664e-5f, 4580.f, 4590.f, .26478f,
- .24916f, .0075261f, -4.3549e-5f, .0044923f, -3.8501e-5f, 4590.f, 4600.f,
- .94057f, .32245f, .0019994f, -2.1568e-5f, -.0010356f, -1.639e-5f,
- 4600.f, 4610.f, 1.6283f, .34503f, -.002067f, -5.9246e-6f, -.0051076f,
- -7.9763e-8f, 4610.f, 4620.f, 1.1361f, .39643f, -.0042841f, 2.5773e-6f,
- -.007504f, 9.2053e-6f, 4620.f, 4630.f, 1.3595f, .42824f, -.0043267f,
- 2.7527e-6f, -.0075382f, 9.366e-6f, 4630.f, 4640.f, 2.345f, .5039f,
- -.0013021f, -8.1896e-6f, -.0042803f, -3.1004e-6f, 4640.f, 4650.f,
- .73444f, .57859f, .006112f, -3.3071e-5f, .0044533f, -3.3529e-5f, 4650.f,
- 4660.f, .038422f, .23935f, .02365f, -1.0589e-4f, .020573f, -1.0116e-4f,
- 4660.f, 4670.f, .16643f, .21059f, .017844f, -8.4429e-5f, .015076f,
- -8.0351e-5f, 4670.f, 4680.f, .66361f, .33032f, .012376f, -5.9085e-5f,
- .01164f, -5.974e-5f, 4680.f, 4690.f, 2.4086f, .4322f, .0069608f,
- -3.6434e-5f, .0066271f, -3.8146e-5f, 4690.f, 4700.f, 5.7007f, .46363f,
- .0024374f, -1.85e-5f, .0021804f, -2.0294e-5f, 4700.f, 4710.f, 11.243f,
- .58097f, -.0013313f, -4.1463e-6f, -.001735f, -4.8882e-6f, 4710.f,
- 4720.f, 7.8568f, .66135f, -.0035465f, 4.3994e-6f, -.0041602f,
- 4.5248e-6f, 4720.f, 4730.f, 9.4234f, .73404f, -.0035684f, 4.612e-6f,
- -.0040476f, 4.3652e-6f, 4730.f, 4740.f, 18.463f, 1.0659f, 1.1174e-6f,
- -7.5689e-6f, -1.4938e-4f, -1.035e-5f, 4740.f, 4750.f, 2.9519f, .92577f,
- .009335f, -4.0974e-5f, .010093f, -5.0109e-5f, 4750.f, 4760.f, 0.f, 0.f,
- 0.f, 0.f, 0.f, 0.f, 4760.f, 4770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4770.f,
- 4780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4780.f, 4790.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 4790.f, 4800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4800.f, 4810.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 4810.f, 4820.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4820.f,
- 4830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4830.f, 4840.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 4840.f, 4850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4850.f, 4860.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 4860.f, 4870.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4870.f,
- 4880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4880.f, 4890.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 4890.f, 4900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4900.f, 4910.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 4910.f, 4920.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4920.f,
- 4930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4930.f, 4940.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 4940.f, 4950.f, .057081f, .26504f, 2.1749e-4f, -1.4991e-5f,
- -.0028657f, -9.2093e-6f, 4950.f, 4960.f, .089281f, .35365f, -.0029091f,
- -2.6962e-6f, -.0059925f, 3.4121e-6f, 4960.f, 4970.f, .46911f, 1.1088f,
- -.0015343f, -4.5097e-6f, -.0043859f, -9.5143e-7f, 4970.f, 4980.f,
- .1858f, .71004f, 2.2264e-4f, 5.4082e-6f, -.0022981f, 3.4446e-7f, 4980.f,
- 4990.f, .30113f, .63162f, .0034248f, -2.4398e-5f, -2.019e-4f,
- -1.8173e-5f, 4990.f, 5e3f, .54259f, .33048f, 1.4963e-4f, -1.4443e-5f,
- -.0028875f, -8.9818e-6f, 5e3f, 5010.f, .69468f, .35696f, -.0031719f,
- -1.6864e-6f, -.0062635f, 4.4718e-6f, 5010.f, 5020.f, .31258f, .41285f,
- -.0047292f, 4.2957e-6f, -.0079123f, 1.0784e-5f, 5020.f, 5030.f, .9629f,
- .50181f, -.0034905f, -3.0499e-7f, -.0066561f, 6.056e-6f, 5030.f, 5040.f,
- .75559f, .535f, .0012181f, -1.6925e-5f, -.0015139f, -1.3577e-5f, 5040.f,
- 5050.f, .089652f, .35481f, .010413f, -5.3691e-5f, .0078717f,
- -5.0854e-5f, 5050.f, 5060.f
- };
-
- /* nitrous oxide (2500 - 5050 cm-1) */
- for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
-} /* niox1 */
-
-
-void
-meth6 (float a[8], const long int inu)
-{
-
-
- static const float acr[2048] = { 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f, 15300.f, 15310.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15310.f, 15320.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 15320.f, 15330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 15330.f, 15340.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15340.f, 15350.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 15350.f, 15360.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 15360.f,
- 15370.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15370.f, 15380.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 15380.f, 15390.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15390.f,
- 15400.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15400.f, 15410.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 15410.f, 15420.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15420.f, 15430.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 15430.f, 15440.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 15440.f,
- 15450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15450.f, 15460.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 15460.f, 15470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15470.f,
- 15480.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15480.f, 15490.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 15490.f, 15500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15500.f, 15510.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 15510.f, 15520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
-
- 15520.f,
-
- 15530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15530.f, 15540.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 15540.f, 15550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15550.f,
- 15560.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15560.f, 15570.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 15570.f, 15580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15580.f, 15590.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 15590.f, 15600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 15600.f,
- 15610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15610.f, 15620.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 15620.f, 15630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15630.f,
- 15640.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15640.f, 15650.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 15650.f, 15660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15660.f, 15670.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 15670.f, 15680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 15680.f,
- 15690.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15690.f, 15700.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 15700.f, 15710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15710.f,
- 15720.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15720.f, 15730.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 15730.f, 15740.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15740.f, 15750.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 15750.f, 15760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 15760.f,
- 15770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15770.f, 15780.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 15780.f, 15790.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15790.f,
- 15800.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15800.f, 15810.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 15810.f, 15820.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15820.f, 15830.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 15830.f, 15840.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 15840.f,
- 15850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15850.f, 15860.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 15860.f, 15870.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15870.f,
- 15880.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15880.f, 15890.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 15890.f, 15900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15900.f, 15910.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 15910.f, 15920.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 15920.f,
- 15930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15930.f, 15940.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 15940.f, 15950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15950.f,
- 15960.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15960.f, 15970.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 15970.f, 15980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15980.f, 15990.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 15990.f, 1.6e4f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.6e4f,
- 16010.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16010.f, 16020.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16020.f, 16030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16030.f,
- 16040.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16040.f, 16050.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16050.f, 16060.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16060.f, 16070.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16070.f, 16080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16080.f,
- 16090.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16090.f, 16100.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16100.f, 16110.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16110.f,
- 16120.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16120.f, 16130.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16130.f, 16140.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16140.f, 16150.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16150.f, 16160.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16160.f,
- 16170.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16170.f, 16180.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16180.f, 16190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16190.f,
- 16200.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16200.f, 16210.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16210.f, 16220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16220.f, 16230.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16230.f, 16240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16240.f,
- 16250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16250.f, 16260.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16260.f, 16270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16270.f,
- 16280.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16280.f, 16290.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16290.f, 16300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16300.f, 16310.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16310.f, 16320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16320.f,
- 16330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16330.f, 16340.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16340.f, 16350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16350.f,
- 16360.f,
-
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16360.f, 16370.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16370.f, 16380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16380.f, 16390.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16390.f, 16400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16400.f,
- 16410.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16410.f, 16420.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16420.f, 16430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16430.f,
- 16440.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16440.f, 16450.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16450.f, 16460.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16460.f, 16470.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16470.f, 16480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16480.f,
- 16490.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16490.f, 16500.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16500.f, 16510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16510.f,
- 16520.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16520.f, 16530.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16530.f, 16540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16540.f, 16550.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16550.f, 16560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16560.f,
- 16570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16570.f, 16580.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16580.f, 16590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16590.f,
- 16600.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16600.f, 16610.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16610.f, 16620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16620.f, 16630.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16630.f, 16640.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16640.f,
- 16650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16650.f, 16660.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16660.f, 16670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16670.f,
- 16680.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16680.f, 16690.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16690.f, 16700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16700.f, 16710.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16710.f, 16720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16720.f,
- 16730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16730.f, 16740.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16740.f, 16750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16750.f,
- 16760.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16760.f, 16770.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16770.f, 16780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16780.f, 16790.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16790.f, 16800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16800.f,
- 16810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16810.f, 16820.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16820.f, 16830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16830.f,
- 16840.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16840.f, 16850.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16850.f, 16860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16860.f, 16870.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16870.f, 16880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16880.f,
- 16890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16890.f, 16900.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16900.f, 16910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16910.f,
- 16920.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16920.f, 16930.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16930.f, 16940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16940.f, 16950.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16950.f, 16960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16960.f,
- 16970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16970.f, 16980.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16980.f, 16990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16990.f, 1.7e4f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.7e4f, 17010.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 17010.f, 17020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17020.f, 17030.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 17030.f, 17040.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 17040.f,
- 17050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17050.f, 17060.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 17060.f, 17070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17070.f,
- 17080.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17080.f, 17090.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 17090.f, 17100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17100.f, 17110.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 17110.f, 17120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 17120.f,
- 17130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17130.f, 17140.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 17140.f, 17150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17150.f,
- 17160.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17160.f, 17170.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 17170.f, 17180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17180.f, 17190.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 17190.f, 17200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 17200.f,
- 17210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17210.f, 17220.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 17220.f, 17230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17230.f,
- 17240.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17240.f, 17250.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 17250.f, 17260.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17260.f, 17270.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 17270.f, 17280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 17280.f,
- 17290.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17290.f, 17300.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 17300.f, 17310.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17310.f,
- 17320.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17320.f, 17330.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 17330.f, 17340.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17340.f, 17350.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 17350.f, 17360.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 17360.f,
- 17370.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17370.f, 17380.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 17380.f, 17390.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17390.f,
- 17400.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17400.f, 17410.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 17410.f, 17420.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17420.f, 17430.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 17430.f, 17440.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 17440.f,
- 17450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17450.f, 17460.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 17460.f, 17470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17470.f,
- 17480.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17480.f, 17490.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 17490.f, 17500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17500.f, 17510.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 17510.f, 17520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 17520.f,
- 17530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17530.f, 17540.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 17540.f, 17550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17550.f,
- 17560.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17560.f, 17570.f, 0.f, 0.f, 0.f, 0.f, 0.f,
-
- 0.f,
- 17570.f, 17580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17580.f, 17590.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 17590.f, 17600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 17600.f,
- 17610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17610.f, 17620.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 17620.f, 17630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17630.f,
- 17640.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17640.f, 17650.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 17650.f, 17660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17660.f, 17670.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 17670.f, 17680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 17680.f,
- 17690.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17690.f, 17700.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 17700.f, 17710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17710.f,
- 17720.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17720.f, 17730.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 17730.f, 17740.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17740.f, 17750.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 17750.f, 17760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 17760.f,
- 17770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17770.f, 17780.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 17780.f, 17790.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17790.f,
- 17800.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17800.f, 17810.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 17810.f, 17820.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17820.f, 17830.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 17830.f, 17840.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 17840.f,
- 17850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17850.f, 17860.f
- };
-
- /* methane (15300 - 17870 cm-1) */
- for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
-} /* meth6 */
-
-void
-meth5 (float a[8], const long int inu)
-{
-
-
- static const float acr[2048] = { 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f, 12740.f, 12750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12750.f, 12760.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 12760.f, 12770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 12770.f, 12780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12780.f, 12790.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 12790.f, 12800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 12800.f,
- 12810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12810.f, 12820.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 12820.f, 12830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12830.f,
- 12840.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12840.f, 12850.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 12850.f, 12860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12860.f, 12870.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 12870.f, 12880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 12880.f,
- 12890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12890.f, 12900.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 12900.f, 12910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12910.f,
- 12920.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12920.f, 12930.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 12930.f, 12940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12940.f, 12950.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 12950.f, 12960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 12960.f,
- 12970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12970.f, 12980.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 12980.f, 12990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12990.f, 1.3e4f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.3e4f, 13010.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13010.f, 13020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13020.f, 13030.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13030.f, 13040.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 13040.f,
- 13050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13050.f, 13060.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 13060.f, 13070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13070.f,
- 13080.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13080.f, 13090.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13090.f, 13100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13100.f, 13110.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13110.f, 13120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 13120.f,
- 13130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13130.f, 13140.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 13140.f, 13150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13150.f,
- 13160.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13160.f, 13170.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13170.f, 13180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13180.f, 13190.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13190.f, 13200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 13200.f,
- 13210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13210.f, 13220.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 13220.f, 13230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13230.f,
- 13240.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13240.f, 13250.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13250.f, 13260.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13260.f, 13270.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13270.f, 13280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 13280.f,
- 13290.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13290.f, 13300.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 13300.f, 13310.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13310.f,
- 13320.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13320.f, 13330.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13330.f, 13340.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13340.f, 13350.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13350.f, 13360.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 13360.f,
- 13370.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13370.f, 13380.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 13380.f, 13390.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13390.f,
- 13400.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13400.f, 13410.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13410.f, 13420.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13420.f, 13430.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13430.f, 13440.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 13440.f,
- 13450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13450.f, 13460.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 13460.f, 13470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13470.f,
- 13480.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13480.f, 13490.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13490.f, 13500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13500.f, 13510.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13510.f, 13520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 13520.f,
- 13530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13530.f, 13540.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 13540.f, 13550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13550.f,
- 13560.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13560.f, 13570.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13570.f, 13580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13580.f, 13590.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13590.f, 13600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 13600.f,
- 13610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13610.f, 13620.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 13620.f, 13630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13630.f,
- 13640.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13640.f, 13650.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13650.f, 13660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13660.f, 13670.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13670.f, 13680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 13680.f,
- 13690.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13690.f, 13700.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 13700.f, 13710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13710.f,
- 13720.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13720.f, 13730.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13730.f, 13740.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13740.f, 13750.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13750.f, 13760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 13760.f,
- 13770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13770.f, 13780.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 13780.f, 13790.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13790.f,
- 13800.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13800.f, 13810.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13810.f, 13820.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13820.f, 13830.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13830.f, 13840.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 13840.f,
- 13850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13850.f, 13860.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 13860.f, 13870.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13870.f,
- 13880.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13880.f, 13890.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
-
- 13890.f, 13900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13900.f, 13910.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13910.f, 13920.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 13920.f,
- 13930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13930.f, 13940.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 13940.f, 13950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13950.f,
- 13960.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13960.f, 13970.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13970.f, 13980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13980.f, 13990.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13990.f, 1.4e4f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.4e4f,
- 14010.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14010.f, 14020.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 14020.f, 14030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14030.f,
- 14040.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14040.f, 14050.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 14050.f, 14060.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14060.f, 14070.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 14070.f, 14080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 14080.f,
- 14090.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14090.f, 14100.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 14100.f, 14110.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14110.f,
- 14120.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14120.f, 14130.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 14130.f, 14140.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14140.f, 14150.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 14150.f, 14160.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 14160.f,
- 14170.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14170.f, 14180.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 14180.f, 14190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14190.f,
- 14200.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14200.f, 14210.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 14210.f, 14220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14220.f, 14230.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 14230.f, 14240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 14240.f,
- 14250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14250.f, 14260.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 14260.f, 14270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14270.f,
- 14280.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14280.f, 14290.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 14290.f, 14300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14300.f, 14310.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 14310.f, 14320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 14320.f,
- 14330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14330.f, 14340.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 14340.f, 14350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14350.f,
- 14360.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14360.f, 14370.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 14370.f, 14380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14380.f, 14390.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 14390.f, 14400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 14400.f,
- 14410.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14410.f, 14420.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 14420.f, 14430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14430.f,
- 14440.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14440.f, 14450.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 14450.f, 14460.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14460.f, 14470.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 14470.f, 14480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 14480.f,
- 14490.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14490.f, 14500.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 14500.f, 14510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14510.f,
- 14520.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14520.f, 14530.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 14530.f, 14540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14540.f, 14550.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 14550.f, 14560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 14560.f,
- 14570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14570.f, 14580.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 14580.f, 14590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14590.f,
- 14600.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14600.f, 14610.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 14610.f, 14620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14620.f, 14630.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 14630.f, 14640.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 14640.f,
- 14650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14650.f, 14660.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 14660.f, 14670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14670.f,
- 14680.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14680.f, 14690.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 14690.f, 14700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14700.f, 14710.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 14710.f, 14720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 14720.f,
-
- 14730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14730.f, 14740.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 14740.f, 14750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14750.f,
- 14760.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14760.f, 14770.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 14770.f, 14780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14780.f, 14790.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 14790.f, 14800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 14800.f,
- 14810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14810.f, 14820.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 14820.f, 14830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14830.f,
- 14840.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14840.f, 14850.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 14850.f, 14860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14860.f, 14870.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 14870.f, 14880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 14880.f,
- 14890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14890.f, 14900.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 14900.f, 14910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14910.f,
- 14920.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14920.f, 14930.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 14930.f, 14940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14940.f, 14950.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 14950.f, 14960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 14960.f,
- 14970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14970.f, 14980.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 14980.f, 14990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14990.f, 1.5e4f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.5e4f, 15010.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 15010.f, 15020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15020.f, 15030.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 15030.f, 15040.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 15040.f,
- 15050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15050.f, 15060.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 15060.f, 15070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15070.f,
- 15080.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15080.f, 15090.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 15090.f, 15100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15100.f, 15110.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 15110.f, 15120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 15120.f,
- 15130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15130.f, 15140.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 15140.f, 15150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15150.f,
- 15160.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15160.f, 15170.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 15170.f, 15180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15180.f, 15190.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 15190.f, 15200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 15200.f,
- 15210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15210.f, 15220.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 15220.f, 15230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15230.f,
- 15240.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15240.f, 15250.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 15250.f, 15260.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15260.f, 15270.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 15270.f, 15280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 15280.f,
- 15290.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15290.f, 15300.f
- };
-
- /* methane (12740 - 15290 cm-1) */
- for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
-} /* meth5 */
-
-void
-meth4 (float a[8], const long int inu)
-{
-
-
- static const float acr[2048] = { 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f, 10180.f, 10190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10190.f, 10200.f,
- 0.f,
-
- 0.f, 0.f, 0.f, 0.f, 0.f, 10200.f, 10210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 10210.f, 10220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10220.f, 10230.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 10230.f, 10240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 10240.f,
- 10250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10250.f, 10260.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 10260.f, 10270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10270.f,
- 10280.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10280.f, 10290.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 10290.f, 10300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10300.f, 10310.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 10310.f, 10320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 10320.f,
- 10330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10330.f, 10340.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 10340.f, 10350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10350.f,
- 10360.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10360.f, 10370.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 10370.f, 10380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10380.f, 10390.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 10390.f, 10400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 10400.f,
- 10410.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10410.f, 10420.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 10420.f, 10430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10430.f,
- 10440.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10440.f, 10450.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 10450.f, 10460.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10460.f, 10470.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 10470.f, 10480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 10480.f,
- 10490.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10490.f, 10500.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 10500.f, 10510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10510.f,
- 10520.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10520.f, 10530.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 10530.f, 10540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10540.f, 10550.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 10550.f, 10560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 10560.f,
- 10570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10570.f, 10580.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 10580.f, 10590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10590.f,
- 10600.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10600.f, 10610.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 10610.f, 10620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10620.f, 10630.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 10630.f, 10640.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 10640.f,
- 10650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10650.f, 10660.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 10660.f, 10670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10670.f,
- 10680.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10680.f, 10690.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 10690.f, 10700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10700.f, 10710.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 10710.f, 10720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 10720.f,
- 10730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10730.f, 10740.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 10740.f, 10750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10750.f,
- 10760.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10760.f, 10770.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 10770.f, 10780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10780.f, 10790.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 10790.f, 10800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 10800.f,
- 10810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10810.f, 10820.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 10820.f, 10830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10830.f,
- 10840.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10840.f, 10850.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 10850.f, 10860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10860.f, 10870.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 10870.f, 10880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 10880.f,
- 10890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10890.f, 10900.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 10900.f, 10910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10910.f,
- 10920.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10920.f, 10930.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 10930.f, 10940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10940.f, 10950.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 10950.f, 10960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 10960.f,
- 10970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10970.f, 10980.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 10980.f, 10990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10990.f, 1.1e4f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.1e4f, 11010.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 11010.f, 11020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11020.f, 11030.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 11030.f, 11040.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 11040.f,
- 11050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11050.f, 11060.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 11060.f, 11070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11070.f,
- 11080.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11080.f, 11090.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 11090.f, 11100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11100.f, 11110.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 11110.f, 11120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 11120.f,
- 11130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11130.f, 11140.f, 0.f, 0.f, 0.f,
- 0.f,
-
- 0.f, 0.f, 11140.f, 11150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11150.f,
- 11160.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11160.f, 11170.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 11170.f, 11180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11180.f, 11190.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 11190.f, 11200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 11200.f,
- 11210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11210.f, 11220.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 11220.f, 11230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11230.f,
- 11240.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11240.f, 11250.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 11250.f, 11260.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11260.f, 11270.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 11270.f, 11280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 11280.f,
- 11290.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11290.f, 11300.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 11300.f, 11310.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11310.f,
- 11320.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11320.f, 11330.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 11330.f, 11340.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11340.f, 11350.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 11350.f, 11360.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 11360.f,
- 11370.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11370.f, 11380.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 11380.f, 11390.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11390.f,
- 11400.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11400.f, 11410.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 11410.f, 11420.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11420.f, 11430.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 11430.f, 11440.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 11440.f,
- 11450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11450.f, 11460.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 11460.f, 11470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11470.f,
- 11480.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11480.f, 11490.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 11490.f, 11500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11500.f, 11510.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 11510.f, 11520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 11520.f,
- 11530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11530.f, 11540.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 11540.f, 11550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11550.f,
- 11560.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11560.f, 11570.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 11570.f, 11580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11580.f, 11590.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 11590.f, 11600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 11600.f,
- 11610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11610.f, 11620.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 11620.f, 11630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11630.f,
- 11640.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11640.f, 11650.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 11650.f, 11660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11660.f, 11670.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 11670.f, 11680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 11680.f,
- 11690.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11690.f, 11700.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 11700.f, 11710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11710.f,
- 11720.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11720.f, 11730.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 11730.f, 11740.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11740.f, 11750.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 11750.f, 11760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 11760.f,
- 11770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11770.f, 11780.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 11780.f, 11790.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11790.f,
- 11800.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11800.f, 11810.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 11810.f, 11820.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11820.f, 11830.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 11830.f, 11840.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 11840.f,
- 11850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11850.f, 11860.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 11860.f, 11870.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11870.f,
- 11880.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11880.f, 11890.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 11890.f, 11900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11900.f, 11910.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 11910.f, 11920.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 11920.f,
- 11930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11930.f, 11940.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 11940.f, 11950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11950.f,
- 11960.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11960.f, 11970.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 11970.f, 11980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11980.f, 11990.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 11990.f, 1.2e4f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.2e4f,
- 12010.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12010.f, 12020.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 12020.f, 12030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12030.f,
- 12040.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12040.f, 12050.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 12050.f, 12060.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12060.f, 12070.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 12070.f, 12080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 12080.f,
- 12090.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12090.f, 12100.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 12100.f, 12110.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12110.f,
- 12120.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12120.f, 12130.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 12130.f, 12140.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12140.f, 12150.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 12150.f, 12160.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 12160.f,
- 12170.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12170.f, 12180.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 12180.f, 12190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12190.f,
- 12200.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12200.f, 12210.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 12210.f, 12220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12220.f, 12230.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 12230.f, 12240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 12240.f,
- 12250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12250.f, 12260.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 12260.f, 12270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12270.f,
- 12280.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12280.f, 12290.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 12290.f, 12300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12300.f, 12310.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 12310.f, 12320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 12320.f,
- 12330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12330.f, 12340.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 12340.f, 12350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12350.f,
- 12360.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12360.f, 12370.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 12370.f, 12380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12380.f, 12390.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 12390.f, 12400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 12400.f,
- 12410.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12410.f, 12420.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 12420.f, 12430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12430.f,
- 12440.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12440.f, 12450.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 12450.f, 12460.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12460.f, 12470.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 12470.f, 12480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 12480.f,
- 12490.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12490.f, 12500.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 12500.f, 12510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12510.f,
- 12520.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12520.f, 12530.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 12530.f, 12540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12540.f, 12550.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 12550.f, 12560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 12560.f,
- 12570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12570.f, 12580.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 12580.f, 12590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12590.f,
- 12600.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12600.f, 12610.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 12610.f, 12620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12620.f, 12630.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 12630.f, 12640.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 12640.f,
- 12650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12650.f, 12660.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 12660.f, 12670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12670.f,
- 12680.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12680.f, 12690.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 12690.f, 12700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12700.f, 12710.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 12710.f, 12720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 12720.f,
- 12730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12730.f, 12740.f
- };
-
- /* methane (10180 - 12730 cm-1) */
- for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
-} /* meth4 */
-
-void
-meth3 (float a[8], const long int inu)
-{
-
-
- static const float acr[2048] = { 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f, 7620.f, 7630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7630.f, 7640.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 7640.f, 7650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7650.f,
- 7660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7660.f, 7670.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 7670.f, 7680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7680.f, 7690.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 7690.f, 7700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7700.f,
- 7710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7710.f, 7720.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 7720.f, 7730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7730.f, 7740.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 7740.f, 7750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7750.f,
- 7760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7760.f, 7770.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 7770.f, 7780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7780.f, 7790.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 7790.f, 7800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7800.f,
- 7810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7810.f, 7820.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 7820.f, 7830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7830.f, 7840.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 7840.f, 7850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7850.f,
- 7860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7860.f, 7870.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 7870.f, 7880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7880.f, 7890.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 7890.f, 7900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7900.f,
- 7910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7910.f, 7920.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 7920.f, 7930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7930.f, 7940.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 7940.f, 7950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7950.f,
- 7960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7960.f, 7970.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 7970.f, 7980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7980.f, 7990.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 7990.f, 8e3f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8e3f,
- 8010.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8010.f, 8020.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8020.f, 8030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8030.f, 8040.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8040.f, 8050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8050.f,
- 8060.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8060.f, 8070.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8070.f, 8080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8080.f, 8090.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8090.f, 8100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8100.f,
- 8110.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8110.f, 8120.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8120.f, 8130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8130.f, 8140.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8140.f, 8150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8150.f,
- 8160.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8160.f, 8170.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8170.f, 8180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8180.f, 8190.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8190.f, 8200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8200.f,
- 8210.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8210.f, 8220.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8220.f, 8230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8230.f, 8240.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8240.f, 8250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8250.f,
- 8260.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8260.f, 8270.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8270.f, 8280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8280.f, 8290.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8290.f, 8300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8300.f,
- 8310.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8310.f, 8320.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8320.f, 8330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8330.f, 8340.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8340.f, 8350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8350.f,
- 8360.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8360.f, 8370.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8370.f, 8380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8380.f, 8390.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8390.f, 8400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8400.f,
- 8410.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8410.f, 8420.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8420.f, 8430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8430.f, 8440.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8440.f, 8450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8450.f,
- 8460.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8460.f, 8470.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8470.f, 8480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8480.f, 8490.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8490.f, 8500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8500.f,
- 8510.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8510.f, 8520.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8520.f, 8530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8530.f, 8540.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8540.f, 8550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8550.f,
- 8560.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8560.f, 8570.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8570.f, 8580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8580.f, 8590.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8590.f, 8600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8600.f,
- 8610.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8610.f, 8620.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8620.f, 8630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8630.f, 8640.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8640.f, 8650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8650.f,
- 8660.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8660.f, 8670.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8670.f, 8680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8680.f, 8690.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8690.f, 8700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8700.f,
- 8710.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8710.f, 8720.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8720.f, 8730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8730.f, 8740.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8740.f, 8750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8750.f,
- 8760.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8760.f, 8770.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8770.f, 8780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8780.f, 8790.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8790.f, 8800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8800.f,
- 8810.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8810.f, 8820.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8820.f, 8830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8830.f, 8840.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8840.f, 8850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8850.f,
- 8860.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8860.f, 8870.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8870.f, 8880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8880.f, 8890.f, 0.f, 0.f,
- 0.f,
-
- 0.f, 0.f, 0.f, 8890.f, 8900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8900.f,
- 8910.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8910.f, 8920.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8920.f, 8930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8930.f, 8940.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8940.f, 8950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8950.f,
- 8960.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8960.f, 8970.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8970.f, 8980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8980.f, 8990.f, 0.f, 0.f,
- 0.f,
-
- 0.f, 0.f, 0.f, 8990.f, 9e3f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9e3f, 9010.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 9010.f, 9020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 9020.f,
- 9030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9030.f, 9040.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 9040.f, 9050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9050.f, 9060.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 9060.f, 9070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9070.f,
- 9080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9080.f, 9090.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 9090.f, 9100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9100.f, 9110.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 9110.f, 9120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9120.f,
- 9130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9130.f, 9140.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 9140.f, 9150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9150.f, 9160.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 9160.f, 9170.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9170.f,
- 9180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9180.f, 9190.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 9190.f, 9200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9200.f, 9210.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 9210.f, 9220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9220.f,
- 9230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9230.f, 9240.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 9240.f, 9250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9250.f, 9260.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 9260.f, 9270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9270.f,
- 9280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9280.f, 9290.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 9290.f, 9300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9300.f, 9310.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 9310.f, 9320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9320.f,
- 9330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9330.f, 9340.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 9340.f, 9350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9350.f, 9360.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 9360.f, 9370.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9370.f,
- 9380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9380.f, 9390.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 9390.f, 9400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9400.f, 9410.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 9410.f, 9420.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9420.f,
- 9430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9430.f, 9440.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 9440.f, 9450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9450.f, 9460.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 9460.f, 9470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9470.f,
- 9480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9480.f, 9490.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 9490.f, 9500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9500.f, 9510.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 9510.f, 9520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9520.f,
- 9530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9530.f, 9540.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 9540.f, 9550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9550.f, 9560.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 9560.f, 9570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9570.f,
- 9580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9580.f, 9590.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 9590.f, 9600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9600.f, 9610.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 9610.f, 9620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9620.f,
- 9630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9630.f, 9640.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 9640.f, 9650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9650.f, 9660.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 9660.f, 9670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9670.f,
- 9680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9680.f, 9690.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 9690.f, 9700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9700.f, 9710.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 9710.f, 9720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9720.f,
- 9730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9730.f, 9740.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 9740.f, 9750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9750.f, 9760.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 9760.f, 9770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9770.f,
- 9780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9780.f, 9790.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 9790.f, 9800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9800.f, 9810.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 9810.f, 9820.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9820.f,
- 9830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9830.f, 9840.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 9840.f, 9850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9850.f, 9860.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 9860.f, 9870.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9870.f,
- 9880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9880.f, 9890.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 9890.f, 9900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9900.f, 9910.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 9910.f, 9920.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9920.f,
- 9930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9930.f, 9940.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 9940.f, 9950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9950.f, 9960.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 9960.f, 9970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9970.f,
- 9980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9980.f, 9990.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 9990.f, 1e4f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1e4f, 10010.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 10010.f, 10020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10020.f,
- 10030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10030.f, 10040.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 10040.f, 10050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10050.f,
- 10060.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10060.f, 10070.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 10070.f, 10080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10080.f, 10090.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 10090.f, 10100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 10100.f,
- 10110.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10110.f, 10120.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 10120.f, 10130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10130.f,
- 10140.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10140.f, 10150.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 10150.f, 10160.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10160.f, 10170.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 10170.f, 10180.f
- };
-
- /* methane (7620 - 10170 cm-1) */
- for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
-} /* meth3 */
-
-void
-meth2 (float a[8], const long int inu)
-{
-
-
- static const float acr[2048] = { 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f, 5060.f, 5070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5070.f, 5080.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 5080.f, 5090.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5090.f,
- 5100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5100.f, 5110.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 5110.f, 5120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5120.f, 5130.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 5130.f, 5140.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5140.f,
- 5150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5150.f, 5160.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 5160.f, 5170.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5170.f, 5180.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 5180.f, 5190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5190.f,
- 5200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5200.f, 5210.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 5210.f, 5220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5220.f, 5230.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 5230.f, 5240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5240.f,
- 5250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5250.f, 5260.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 5260.f, 5270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5270.f, 5280.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 5280.f, 5290.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5290.f,
- 5300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5300.f, 5310.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 5310.f, 5320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5320.f, 5330.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 5330.f, 5340.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5340.f,
- 5350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5350.f, 5360.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 5360.f, 5370.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5370.f, 5380.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 5380.f, 5390.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5390.f,
- 5400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5400.f, 5410.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 5410.f, 5420.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5420.f, 5430.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 5430.f, 5440.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5440.f,
- 5450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5450.f, 5460.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 5460.f, 5470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5470.f, 5480.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 5480.f, 5490.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5490.f,
- 5500.f, .50197f, .25265f, .0033519f, -2.4607e-5f, 6.8955e-4f,
- -2.0482e-5f, 5500.f, 5510.f, 2.3899f, .60596f, 2.7671e-5f, -1.2307e-5f,
- -.0033058f, -5.2945e-6f, 5510.f, 5520.f, 2.4379f, .30699f, -6.0867e-4f,
- -9.0704e-6f, -.0032892f, -5.0115e-6f, 5520.f, 5530.f, 2.1592f, .38949f,
- -.0023556f, -3.3022e-6f, -.0052838f, 2.4513e-6f, 5530.f, 5540.f,
- 2.3029f, .15736f, -.0035795f, 2.1673e-6f, -.005968f, 6.0863e-6f, 5540.f,
- 5550.f, 1.954f, .11711f, -.0044087f, 5.103e-6f, -.0068665f, 9.1701e-6f,
- 5550.f, 5560.f, 1.195f, .29396f, -.0010618f, 3.4067e-6f, -.0024231f,
- -2.582e-6f, 5560.f, 5570.f, 4.8095f, 1.2465f, .0019344f, -1.5456e-5f,
- -6.8788e-4f, -1.287e-5f, 5570.f, 5580.f, 11.674f, 1.5114f, -.0025504f,
- 8.25e-7f, -.0045912f, 2.2777e-6f, 5580.f, 5590.f, 2.3702f, .84024f,
- -8.2688e-4f, 2.9123e-6f, -.0020134f, -5.0547e-6f, 5590.f, 5600.f,
- 3.4064f, 1.1326f, -.0025002f, 8.9997e-7f, -.0048837f, 2.6082e-6f,
- 5600.f, 5610.f, 1.7392f, .31991f, -.0045126f, 8.6603e-6f, -.0061278f,
- 9.3747e-6f, 5610.f, 5620.f, 4.348f, .58786f, -.0043137f, 4.6334e-6f,
- -.0070133f, 9.529e-6f, 5620.f, 5630.f, 6.6586f, 1.8023f, -.0019866f,
- -1.5163e-6f, -.0039533f, -8.5993e-7f, 5630.f, 5640.f, 4.3959f, .91267f,
- -.0018359f, -2.6379e-6f, -.0045115f, 1.3137e-6f, 5640.f, 5650.f,
- 2.9732f, .90097f, -4.5783e-4f, -8.654e-6f, -.0035958f, -2.8318e-6f,
- 5650.f, 5660.f, 2.7758f, .82876f, .0019221f, -1.4165e-5f, -.0010447f,
- -1.1375e-5f, 5660.f, 5670.f, 1.4345f, .92016f, .0046313f, -1.9911e-5f,
- .0018272f, -2.0246e-5f, 5670.f, 5680.f, 1.0486f, .4465f, -3.8086e-4f,
- 5.6985e-6f, -.0018929f, -1.1857e-6f, 5680.f, 5690.f, .94797f, .35596f,
- -2.2904e-4f, 8.4588e-6f, -.0016889f, -3.7956e-7f, 5690.f, 5700.f,
- .93528f, .41431f, .00128f, -8.7918e-7f, -.0014444f, -4.7052e-6f, 5700.f,
- 5710.f, 1.6454f, .57474f, .0026463f, -1.3124e-5f, -3.7027e-4f,
- -1.2452e-5f, 5710.f, 5720.f, 2.0351f, .34637f, .0026986f, -1.9613e-5f,
- -4.6781e-4f, -1.4709e-5f, 5720.f, 5730.f, 2.2445f, .69714f, .0019373f,
- -1.6752e-5f, -8.5242e-4f, -1.2956e-5f, 5730.f, 5740.f, 3.2153f, .75956f,
-
- .0013362f, -1.4189e-5f, -.0010894f, -1.1571e-5f, 5740.f, 5750.f,
- 3.4596f, .73536f, .0012876f, -1.2547e-5f, -4.537e-4f, -1.2912e-5f,
- 5750.f, 5760.f, 4.9414f, 1.0526f, 6.4547e-4f, -1.0024e-5f, -9.6857e-4f,
- -1.1592e-5f, 5760.f, 5770.f, 7.5119f, 1.41f, 2.8819e-4f, -7.444e-6f,
- -.0012786f, -1.0307e-5f, 5770.f, 5780.f, 7.5235f, 1.323f, -4.9407e-4f,
- -6.8773e-6f, -.002629f, -6.638e-6f, 5780.f, 5790.f, 10.241f, 1.6323f,
- -.0013776f, -5.3214e-6f, -.0037904f, -2.3185e-6f, 5790.f, 5800.f,
- 9.1281f, .93597f, -.0035876f, 2.3809e-6f, -.0059879f, 5.9495e-6f,
- 5800.f, 5810.f, 3.9872f, .6767f, -.0044503f, 6.8501e-6f, -.0067178f,
- 9.7535e-6f, 5810.f, 5820.f, 2.9318f, .24918f, -.0051233f, 7.7265e-6f,
- -.0076555f, 1.1663e-5f, 5820.f, 5830.f, 3.6596f, .91227f, -.0026988f,
- 2.3063e-6f, -.0047124f, 2.5366e-6f, 5830.f, 5840.f, 6.9904f, .93296f,
- -.0037966f, 6.1051e-6f, -.0055025f, 7.3047e-6f, 5840.f, 5850.f, 12.815f,
- 1.9354f, -.0021432f, 8.1298e-7f, -.0042246f, 2.2902e-6f, 5850.f, 5860.f,
- 10.246f, 2.1238f, 4.6316e-5f, -6.0726e-6f, -.00223f, -5.3836e-6f,
- 5860.f, 5870.f, 9.5647f, 1.9821f, .0012796f, -7.4626e-6f, -9.2616e-4f,
- -1.0886e-5f, 5870.f, 5880.f, 4.8776f, 1.7308f, .0012461f, -8.1397e-6f,
- -5.6127e-5f, -1.3882e-5f, 5880.f, 5890.f, 5.7337f, .87446f, .0038286f,
- -1.704e-5f, 6.941e-4f, -1.573e-5f, 5890.f, 5900.f, 7.472f, .73641f,
- .0028865f, -2.0558e-5f, -6.6892e-4f, -1.358e-5f, 5900.f, 5910.f,
- 7.0944f, .66112f, .0024095f, -2.1458e-5f, -9.9935e-4f, -1.3636e-5f,
- 5910.f, 5920.f, 8.1168f, .58477f, .0013314f, -1.7142e-5f, -.0010021f,
- -1.3588e-5f, 5920.f, 5930.f, 10.972f, .47138f, -3.0541e-4f, -9.6826e-6f,
- -.0014478f, -9.657e-6f, 5930.f, 5940.f, 7.3055f, .38828f, -.0015833f,
- -3.9472e-6f, -.0024534f, -5.2105e-6f, 5940.f, 5950.f, .18257f, .15141f,
- .0032545f, -2.5286e-5f, 3.2305e-4f, -1.9965e-5f, 5950.f, 5960.f, 8.803f,
- .28605f, -.0031163f, 1.3762e-6f, -.0040606f, 1.0755e-6f, 5960.f, 5970.f,
- 6.8729f, .20493f, -.0040682f, 5.468e-6f, -.004767f, 4.3804e-6f, 5970.f,
- 5980.f, 2.9955f, .47987f, -.002474f, 9.9034e-6f, -8.4087e-4f,
- -7.5046e-6f, 5980.f, 5990.f, 14.364f, 1.4135f, .0066597f, -3.1277e-5f,
- .0045742f, -3.1988e-5f, 5990.f, 6e3f, 65.167f, .97529f, -.0019616f,
- -2.2633e-6f, -.0046527f, 1.0271e-6f, 6e3f, 6010.f, 3.5647f, .20344f,
- -.0052252f, 1.0688e-5f, -.0057674f, 8.0346e-6f, 6010.f, 6020.f, 3.4141f,
- .14357f, -.0054304f, 9.5186e-6f, -.0072736f, 1.143e-5f, 6020.f, 6030.f,
- 7.635f, .4332f, -.0031157f, 1.3276e-5f, -.001277f, 1.7678e-7f, 6030.f,
- 6040.f, 16.118f, .28374f, -.0041664f, 4.9599e-6f, -.0056931f,
- 5.7765e-6f, 6040.f, 6050.f, 19.177f, .33833f, -.0035167f, 1.7094e-6f,
- -.0061198f, 6.6957e-6f, 6050.f, 6060.f, 16.85f, .88879f, -.002146f,
- -3.2028e-6f, -.0042847f, 2.7277e-7f, 6060.f, 6070.f, 21.077f, .25352f,
- -9.3983e-4f, -9.0824e-6f, -.0038178f, -2.813e-6f, 6070.f, 6080.f,
- 14.763f, .2437f, 5.8706e-4f, -1.4814e-5f, -.0030455f, -5.893e-6f,
- 6080.f, 6090.f, 12.16f, .31237f, .002521f, -2.1431e-5f, -.0011996f,
- -1.1964e-5f, 6090.f, 6100.f, 10.601f, .42935f, .0043443f, -2.7697e-5f,
- 3.1712e-4f, -1.7641e-5f, 6100.f, 6110.f, 7.7832f, .54373f, .0057906f,
- -2.6532e-5f, .001438f, -1.9125e-5f, 6110.f, 6120.f, 5.7902f, 1.1869f,
- .0054008f, -1.8503e-5f, .0023381f, -2.0741e-5f, 6120.f, 6130.f, 4.0292f,
- .58128f, .0079694f, -2.4981e-5f, .0032731f, -2.2237e-5f, 6130.f, 6140.f,
- 3.0446f, .82071f, .0077456f, -1.3929e-5f, .0053212f, -2.5965e-5f,
- 6140.f, 6150.f, 1.9431f, .98831f, .006064f, -2.2019e-5f, .0032998f,
- -2.4905e-5f, 6150.f, 6160.f, .97862f, .77724f, .0073198f, -3.3144e-5f,
- .0043341f, -3.23e-5f, 6160.f, 6170.f, .41035f, .31003f, .0044331f,
- -2.7381e-5f, .0019194f, -2.471e-5f, 6170.f, 6180.f, .19122f, .12211f,
- .0046368f, -3.0314e-5f, .0017315f, -2.5376e-5f, 6180.f, 6190.f, 0.f, 0.f,
- 0.f, 0.f, 0.f, 0.f, 6190.f, 6200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6200.f,
- 6210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6210.f, 6220.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 6220.f, 6230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6230.f, 6240.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 6240.f, 6250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6250.f,
- 6260.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6260.f, 6270.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 6270.f, 6280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6280.f, 6290.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 6290.f, 6300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6300.f,
- 6310.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6310.f, 6320.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 6320.f, 6330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6330.f, 6340.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 6340.f, 6350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6350.f,
- 6360.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6360.f, 6370.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 6370.f, 6380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6380.f, 6390.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 6390.f, 6400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6400.f,
- 6410.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6410.f, 6420.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 6420.f, 6430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6430.f, 6440.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 6440.f, 6450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6450.f,
- 6460.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6460.f, 6470.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 6470.f, 6480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6480.f, 6490.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 6490.f, 6500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6500.f,
- 6510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6510.f, 6520.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 6520.f, 6530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6530.f, 6540.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 6540.f, 6550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6550.f,
- 6560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6560.f, 6570.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 6570.f, 6580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6580.f, 6590.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 6590.f, 6600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6600.f,
- 6610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6610.f, 6620.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 6620.f, 6630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6630.f, 6640.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 6640.f, 6650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6650.f,
- 6660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6660.f, 6670.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 6670.f, 6680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6680.f, 6690.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 6690.f, 6700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6700.f,
- 6710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6710.f, 6720.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 6720.f, 6730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6730.f, 6740.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 6740.f, 6750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6750.f,
- 6760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6760.f, 6770.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 6770.f, 6780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6780.f, 6790.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 6790.f, 6800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6800.f,
- 6810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6810.f, 6820.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 6820.f, 6830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6830.f, 6840.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 6840.f, 6850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6850.f,
- 6860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6860.f, 6870.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 6870.f, 6880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6880.f, 6890.f, 0.f,
- 0.f,
-
- 0.f, 0.f, 0.f, 0.f, 6890.f, 6900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6900.f,
- 6910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6910.f, 6920.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 6920.f, 6930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6930.f, 6940.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 6940.f, 6950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6950.f,
- 6960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6960.f, 6970.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 6970.f, 6980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6980.f, 6990.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 6990.f, 7e3f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7e3f,
- 7010.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7010.f, 7020.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 7020.f, 7030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7030.f, 7040.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 7040.f, 7050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7050.f,
- 7060.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7060.f, 7070.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 7070.f, 7080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7080.f, 7090.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 7090.f, 7100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7100.f,
- 7110.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7110.f, 7120.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 7120.f, 7130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7130.f, 7140.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 7140.f, 7150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7150.f,
- 7160.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7160.f, 7170.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 7170.f, 7180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7180.f, 7190.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 7190.f, 7200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7200.f,
- 7210.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7210.f, 7220.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 7220.f, 7230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7230.f, 7240.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 7240.f, 7250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7250.f,
- 7260.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7260.f, 7270.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 7270.f, 7280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7280.f, 7290.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 7290.f, 7300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7300.f,
- 7310.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7310.f, 7320.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 7320.f, 7330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7330.f, 7340.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 7340.f, 7350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7350.f,
- 7360.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7360.f, 7370.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 7370.f, 7380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7380.f, 7390.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 7390.f, 7400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7400.f,
- 7410.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7410.f, 7420.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 7420.f, 7430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7430.f, 7440.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 7440.f, 7450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7450.f,
- 7460.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7460.f, 7470.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 7470.f, 7480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7480.f, 7490.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 7490.f, 7500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7500.f,
- 7510.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7510.f, 7520.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 7520.f, 7530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7530.f, 7540.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 7540.f, 7550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7550.f,
- 7560.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7560.f, 7570.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 7570.f, 7580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7580.f, 7590.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 7590.f, 7600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7600.f,
- 7610.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7610.f, 7620.f
- };
-
- /* methane (5060 - 7610 cm-1) */
- for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
-} /* meth2 */
-
-void
-meth1 (float a[8], const long int inu)
-{
-
-
- static const float acr[2048] = { 1.4454f, .47807f,
- .0052823f, -3.0056e-5f, .002903f, -2.686e-5f, 2500.f, 2510.f, 8.7736f,
- .49348f, 3.8511e-4f, -6.0533e-6f, 1.0891e-4f, -9.3895e-6f, 2510.f,
- 2520.f, 5.7188f, .51082f, 3.239e-4f, -7.2399e-6f, 1.6424e-4f,
- -1.0608e-5f, 2520.f, 2530.f, 4.5159f, .73333f, 5.5152e-4f, -2.5526e-6f,
- 2.6319e-4f, -1.1149e-5f, 2530.f, 2540.f, 6.2089f, .57459f, -5.1671e-5f,
- -3.2924e-6f, -.0012056f, -7.7167e-6f, 2540.f, 2550.f, 9.8841f, .5111f,
- -.0015575f, 1.7182e-6f, -.001203f, -3.8007e-6f, 2550.f, 2560.f, 7.6169f,
- .80719f, 1.2985e-4f, -5.7517e-6f, -.0011789f, -6.7688e-6f, 2560.f,
- 2570.f, 7.3766f, .91538f, -6.9626e-4f, -9.8403e-8f, -.0010951f,
- -5.6422e-6f, 2570.f, 2580.f, 7.9669f, 1.0249f, -.0020553f, 6.0631e-6f,
- -.0025043f, 1.2199e-6f, 2580.f, 2590.f, 12.942f, 1.8227f, .0016813f,
- -1.019e-5f, 8.4177e-4f, -1.3848e-5f, 2590.f, 2600.f, 11.671f, .93909f,
- -.0023388f, 7.1737e-6f, -.0030848f, 1.0079e-5f, 2600.f, 2610.f, 7.682f,
- .22382f, -.0036797f, 1.7419e-5f, -.002062f, 2.0955e-5f, 2610.f, 2620.f,
- 5.628f, .56037f, -.0012398f, 1.026e-5f, -.001454f, 8.1367e-6f, 2620.f,
- 2630.f, 14.127f, 1.2843f, 7.6229e-5f, 5.7331e-6f, -6.8637e-4f,
- -4.6206e-6f, 2630.f, 2640.f, 9.0425f, 1.3886f, .0042412f, 2.3021e-6f,
- .0040176f, -2.0017e-5f, 2640.f, 2650.f, 10.155f, .90252f, 9.0385e-6f,
- 1.3215e-5f, -4.9853e-4f, -1.2678e-6f, 2650.f, 2660.f, 10.154f, .79137f,
- .0031844f, -3.2869e-6f, .0011834f, -1.1313e-5f, 2660.f, 2670.f, 11.725f,
- .70879f, -.0014287f, 1.8146e-6f, -.0025033f, -1.0406e-7f, 2670.f,
- 2680.f, 14.948f, .92692f, .0062395f, -3.3167e-5f, .0031727f,
- -2.6064e-5f, 2680.f, 2690.f, 26.279f, .87829f, .0028361f, -1.4791e-5f,
- .0014018f, -1.4682e-5f, 2690.f, 2700.f, 7.1745f, .92595f, .0030055f,
- -2.7951e-6f, .0045235f, -2.2596e-5f, 2700.f, 2710.f, 27.757f, .81447f,
- .0030565f, -1.9569e-5f, .0025866f, -2.0025e-5f, 2710.f, 2720.f, 36.518f,
- .82512f, .0018262f, -1.5755e-5f, .0012027f, -1.7464e-5f, 2720.f, 2730.f,
- 7.1564f, .77634f, .0051047f, -2.7255e-5f, .003528f, -2.6912e-5f, 2730.f,
- 2740.f, 53.441f, .64417f, -7.6181e-5f, -1.012e-5f, -8.2299e-4f,
- -9.7201e-6f, 2740.f, 2750.f, 38.926f, .7434f, -6.9195e-4f, -4.3135e-6f,
- 2.1091e-4f, -6.9939e-6f, 2750.f, 2760.f, 15.709f, 1.3287f, .0030102f,
- -4.8796e-6f, .0052525f, -2.2331e-5f, 2760.f, 2770.f, 54.733f, 1.246f,
- -.0010987f, 5.2563e-6f, .002214f, -1.2844e-5f, 2770.f, 2780.f, 47.55f,
- 1.5791f, 8.4509e-4f, -2.0192e-6f, .0011472f, -1.6086e-5f, 2780.f,
- 2790.f, 66.52f, 1.2817f, -2.9084e-4f, -6.0279e-6f, -.0013817f,
- -7.9406e-6f, 2790.f, 2800.f, 54.178f, .80208f, -.0020375f, 1.3886e-6f,
- -.002404f, 9.4209e-6f, 2800.f, 2810.f, 53.2f, .65974f, -7.1708e-4f,
- 8.8569e-6f, -2.5373e-4f, 1.13e-5f, 2810.f, 2820.f, 148.4f, .84587f,
- -.0016143f, 2.0628e-6f, -9.7561e-4f, 9.6287e-6f, 2820.f, 2830.f, 45.29f,
- 1.3591f, -2.3074e-4f, 1.8732e-5f, .0020323f, 6.678e-6f, 2830.f, 2840.f,
- 32.141f, 1.1794f, 7.5732e-4f, 5.0043e-5f, .005454f, 1.3952e-6f, 2840.f,
- 2850.f, 52.919f, .85346f, .0010685f, 4.9698e-5f, .0029632f, 1.729e-5f,
- 2850.f, 2860.f, 92.855f, 1.2724f, .0034021f, 3.1892e-5f, .0020937f,
- 7.5591e-6f, 2860.f, 2870.f, 115.15f, 1.6724f, .0068873f, 1.0637e-5f,
- .0045477f, -1.5654e-5f, 2870.f, 2880.f, 149.81f, 1.2641f, .0081325f,
- -1.1177e-6f, .0053865f, -1.8572e-5f, 2880.f, 2890.f, 225.46f, .83931f,
- .011197f, -4.4342e-5f, .0080886f, -3.4016e-5f, 2890.f, 2900.f, 337.19f,
- .68846f, .0074267f, -2.7002e-5f, .0051288f, -1.7032e-5f, 2900.f, 2910.f,
- 593.38f, .59397f, .0062712f, -3.0983e-5f, .0039217f, -1.5025e-5f,
- 2910.f, 2920.f, 814.37f, .44567f, .0050972f, -3.2548e-5f, .0037255f,
- -1.8409e-5f, 2920.f, 2930.f, 1008.f, .42373f, .002722f, -2.2438e-5f,
- .001776f, -8.5011e-6f, 2930.f, 2940.f, 1273.8f, .39048f, 9.1833e-4f,
- -1.5902e-5f, 3.8752e-4f, -6.11e-6f, 2940.f, 2950.f, 1822.6f, .32354f,
- -8.3613e-4f, -9.1286e-6f, -.0012748f, 6.4576e-7f, 2950.f, 2960.f,
- 1144.9f, .28404f, -.0022237f, -3.1413e-6f, -.0015533f, 4e-6f, 2960.f,
- 2970.f, 1422.2f, .24694f, -.0034946f, 2.0028e-6f, -.0022609f,
- 9.6681e-6f, 2970.f, 2980.f, 1129.9f, .25225f, -.0043236f, 6.0179e-6f,
- -.0023072f, 8.9383e-6f, 2980.f, 2990.f, 382.43f, .28365f, -.0047369f,
- 1.1124e-5f, .0018248f, 1.9257e-5f, 2990.f, 3e3f, 231.12f, 2.8616f,
- .0085402f, 4.3691e-5f, .016112f, -4.2673e-5f, 3e3f, 3010.f, 12795.f,
- 1.9671f, -2.1206e-4f, -1.4984e-6f, -3.9307e-4f, -5.8544e-6f, 3010.f,
- 3020.f, 578.69f, .79629f, -.0043645f, 1.3898e-5f, 7.3408e-4f,
- -4.5626e-6f, 3020.f, 3030.f, 434.57f, .096576f, -.0055811f, 1.294e-5f,
- .0011172f, 2.1736e-5f, 3030.f, 3040.f, 899.49f, .11536f, -.0052201f,
- 1.0059e-5f, -.0015874f, 2.2277e-5f, 3040.f, 3050.f, 2131.4f, .12202f,
- -.0045842f, 6.3207e-6f, -.003267f, 2.194e-5f, 3050.f, 3060.f, 2451.4f,
- .19437f, -.0035989f, 2.0635e-6f, -.0037611f, 1.5519e-5f, 3060.f, 3070.f,
- 1860.9f, .31324f, -.0022827f, -2.6816e-6f, -.0014644f, 8.4665e-6f,
- 3070.f, 3080.f, 2857.1f, .3194f, -8.3645e-4f, -9.0192e-6f, -7.6302e-4f,
- 2.417e-6f, 3080.f, 3090.f, 1935.6f, .28235f, 9.2008e-4f, -1.5863e-5f,
- .0010109f, -1.3517e-6f, 3090.f, 3100.f, 1498.4f, .32994f, .0028983f,
- -2.3966e-5f, .0020895f, -9.8936e-6f, 3100.f, 3110.f, 1250.8f, .36564f,
- .005137f, -3.2908e-5f, .0037408f, -1.8191e-5f, 3110.f, 3120.f, 818.19f,
- .45356f, .0075913f, -4.2727e-5f, .0055871f, -2.645e-5f, 3120.f, 3130.f,
- 483.02f, .62289f, .010573f, -5.4032e-5f, .0075195f, -3.888e-5f, 3130.f,
- 3140.f, 405.16f, 1.0372f, .01439f, -6.8744e-5f, .011121f, -5.8648e-5f,
- 3140.f, 3150.f, 80.532f, .8961f, .01798f, -6.9816e-5f, .012298f,
- -5.1675e-5f, 3150.f, 3160.f, 41.171f, .85486f, .021624f, -8.2706e-5f,
- .015717f, -6.4082e-5f, 3160.f, 3170.f, 18.087f, .82972f, .024369f,
- -8.2555e-5f, .018128f, -6.8246e-5f, 3170.f, 3180.f, 7.8303f, .7783f,
- .024083f, -4.5258e-5f, .018125f, -5.3074e-5f, 3180.f, 3190.f, 5.5218f,
- 1.2503f, .023406f, -1.2671e-6f, .019648f, -4.075e-5f, 3190.f, 3200.f,
- .69216f, .51644f, .01424f, -8.731e-6f, .01086f, -3.2732e-5f, 3200.f,
- 3210.f, .30939f, .2177f, .0082095f, -4.4565e-5f, .0058697f, -4.1343e-5f,
- 3210.f, 3220.f, .22568f, .37985f, .012091f, -6.0525e-5f, .0090838f,
- -5.5067e-5f, 3220.f, 3230.f, .18766f, .2799f, .01283f, -6.1005e-5f,
- .010043f, -5.7718e-5f, 3230.f, 3240.f, .063205f, .18476f, .014107f,
- -6.7485e-5f, .011333f, -6.3191e-5f, 3240.f, 3250.f, .028821f, .059172f,
- .014986f, -7.1903e-5f, .012123f, -6.7129e-5f, 3250.f, 3260.f, 0.f, 0.f,
- 0.f, 0.f, 0.f, 0.f, 3260.f, 3270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3270.f,
- 3280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3280.f, 3290.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 3290.f, 3300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3300.f, 3310.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 3310.f, 3320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3320.f,
- 3330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3330.f, 3340.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 3340.f, 3350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3350.f, 3360.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 3360.f, 3370.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3370.f,
- 3380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3380.f, 3390.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 3390.f, 3400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3400.f, 3410.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 3410.f, 3420.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3420.f,
- 3430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3430.f, 3440.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 3440.f, 3450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3450.f, 3460.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 3460.f, 3470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3470.f,
- 3480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3480.f, 3490.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 3490.f, 3500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3500.f, 3510.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 3510.f, 3520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3520.f,
- 3530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3530.f, 3540.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 3540.f, 3550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3550.f, 3560.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 3560.f, 3570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3570.f,
- 3580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3580.f, 3590.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 3590.f, 3600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3600.f, 3610.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 3610.f, 3620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3620.f,
- 3630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3630.f, 3640.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 3640.f, 3650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3650.f, 3660.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 3660.f, 3670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3670.f,
- 3680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3680.f, 3690.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 3690.f, 3700.f, .014928f, .049339f, .0010215f, -1.7301e-5f,
- -.0020195f, -1.1177e-5f, 3700.f, 3710.f, .086139f, .13757f, .0010215f,
- -1.7301e-5f, -.0020195f, -1.1177e-5f, 3710.f, 3720.f, .067083f, .12495f,
- .0010215f, -1.7301e-5f, -.0020195f, -1.1177e-5f, 3720.f, 3730.f,
- .020862f, .049275f, .0010215f, -1.7301e-5f, -.0020195f, -1.1177e-5f,
- 3730.f, 3740.f, .067784f, .11899f, .0010215f, -1.7301e-5f, -.0020195f,
- -1.1177e-5f, 3740.f, 3750.f, .15027f, .18565f, .0010215f, -1.7301e-5f,
- -.0020195f, -1.1177e-5f, 3750.f, 3760.f, .31581f, .26221f, .0010215f,
- -1.7301e-5f, -.0020195f, -1.1177e-5f, 3760.f, 3770.f, .48086f, .2992f,
- .0010215f, -1.7301e-5f, -.0020195f, -1.1177e-5f, 3770.f, 3780.f,
- .59376f, .29431f, .0010215f, -1.7301e-5f, -.0020195f, -1.1177e-5f,
- 3780.f, 3790.f, 1.8375f, .36994f, .0010215f, -1.7301e-5f, -.0020195f,
- -1.1177e-5f, 3790.f, 3800.f, 2.5355f, .40322f, .0010215f, -1.7301e-5f,
- -.0020195f, -1.1177e-5f, 3800.f, 3810.f, 2.7002f, .43597f, .0010215f,
- -1.7301e-5f, -.0020195f, -1.1177e-5f, 3810.f, 3820.f, 6.1651f, .55369f,
- .0010215f, -1.7301e-5f, -.0020195f, -1.1177e-5f, 3820.f, 3830.f,
- 4.0461f, .57732f, .0010215f, -1.7301e-5f, -.0020195f, -1.1177e-5f,
- 3830.f, 3840.f, 6.3365f, .67727f, .0010215f, -1.7301e-5f, -.0020195f,
- -1.1177e-5f, 3840.f, 3850.f, 9.3866f, .95498f, .0010215f, -1.7301e-5f,
- -.0020195f, -1.1177e-5f, 3850.f, 3860.f, 20.329f, 1.0079f, .0010215f,
- -1.7301e-5f, -.0020195f, -1.1177e-5f, 3860.f, 3870.f, 3.8488f, .60704f,
- -.0030055f, 4.6922e-6f, -.0036436f, -2.5739e-6f, 3870.f, 3880.f,
- 11.688f, .69118f, -.0033148f, 3.0917e-6f, -.0045244f, 8.2466e-7f,
- 3880.f, 3890.f, 15.787f, .75496f, -3.761e-4f, -9.5219e-6f, -.0028616f,
- -7.036e-6f, 3890.f, 3900.f, 12.339f, 1.2573f, .0010215f, -1.7301e-5f,
- -.0020195f, -1.1177e-5f, 3900.f, 3910.f, 4.4035f, 1.1712f, .0010215f,
- -1.7301e-5f, -.0020195f, -1.1177e-5f, 3910.f, 3920.f, 1.452f, 1.1029f,
- .0010215f, -1.7301e-5f, -.0020195f, -1.1177e-5f, 3920.f, 3930.f,
- .94805f, .51649f, .0010215f, -1.7301e-5f, -.0020195f, -1.1177e-5f,
- 3930.f, 3940.f, 1.3512f, .57924f, .0010215f, -1.7301e-5f, -.0020195f,
- -1.1177e-5f, 3940.f, 3950.f, 1.2982f, .5633f, .0010215f, -1.7301e-5f,
- -.0020195f, -1.1177e-5f, 3950.f, 3960.f, 1.1898f, .7034f, .0010215f,
- -1.7301e-5f, -.0020195f, -1.1177e-5f, 3960.f, 3970.f, 1.2669f, .70992f,
- .0010215f, -1.7301e-5f, -.0020195f, -1.1177e-5f, 3970.f, 3980.f,
-
- 1.1486f, .75703f, .0010215f, -1.7301e-5f, -.0020195f, -1.1177e-5f,
- 3980.f, 3990.f, .94294f, .67691f, .0010215f, -1.7301e-5f, -.0020195f,
- -1.1177e-5f, 3990.f, 4e3f, 1.1722f, .71803f, .0010215f, -1.7301e-5f,
- -.0020195f, -1.1177e-5f, 4e3f, 4010.f, 1.6614f, 1.1434f, .0010215f,
- -1.7301e-5f, -.0020195f, -1.1177e-5f, 4010.f, 4020.f, 1.3169f, .99418f,
- .0010215f, -1.7301e-5f, -.0020195f, -1.1177e-5f, 4020.f, 4030.f,
- 1.6675f, 1.5586f, .0010215f, -1.7301e-5f, -.0020195f, -1.1177e-5f,
- 4030.f, 4040.f, 2.2754f, 1.5263f, .0010215f, -1.7301e-5f, -.0020195f,
- -1.1177e-5f, 4040.f, 4050.f, 3.3696f, 1.614f, .0010215f, -1.7301e-5f,
- -.0020195f, -1.1177e-5f, 4050.f, 4060.f, 4.4078f, 1.7299f, .0010215f,
- -1.7301e-5f, -.0020195f, -1.1177e-5f, 4060.f, 4070.f, 6.4093f, 1.6235f,
- .0010215f, -1.7301e-5f, -.0020195f, -1.1177e-5f, 4070.f, 4080.f,
- 8.8553f, 1.445f, .0010215f, -1.7301e-5f, -.0020195f, -1.1177e-5f,
- 4080.f, 4090.f, 8.5641f, 1.5633f, .0010215f, -1.7301e-5f, -.0020195f,
- -1.1177e-5f, 4090.f, 4100.f, 16.356f, 1.9485f, .0010215f, -1.7301e-5f,
- -.0020195f, -1.1177e-5f, 4100.f, 4110.f, 15.552f, 1.5099f, .0010215f,
- -1.7301e-5f, -.0020195f, -1.1177e-5f, 4110.f, 4120.f, 23.823f, 2.7996f,
- .0010215f, -1.7301e-5f, -.0020195f, -1.1177e-5f, 4120.f, 4130.f,
- 18.843f, 1.4075f, .0058105f, -2.6748e-5f, 6.4011e-4f, -1.7934e-5f,
- 4130.f, 4140.f, 7.1651f, .45187f, .0070593f, -2.9644e-5f, .0039603f,
- -2.9724e-5f, 4140.f, 4150.f, 37.171f, .44157f, .0068418f, -3.8862e-5f,
- .0036076f, -3.2195e-5f, 4150.f, 4160.f, 38.158f, .32296f, .0043474f,
- -2.9319e-5f, .00185f, -2.5238e-5f, 4160.f, 4170.f, 65.621f, .45796f,
- .0022774f, -2.0417e-5f, 8.223e-5f, -1.7919e-5f, 4170.f, 4180.f, 79.347f,
- .33603f, -8.4769e-4f, -8.4263e-6f, -.0034772f, -3.6512e-6f, 4180.f,
- 4190.f, 65.038f, .4819f, -.0014827f, -1.4444e-6f, -.0022137f,
- -5.6866e-6f, 4190.f, 4200.f, 86.982f, .77363f, -7.1575e-4f, 2.9104e-7f,
- -.0017062f, -5.7132e-6f, 4200.f, 4210.f, 309.82f, 1.6801f, -8.9037e-4f,
- -1.3593e-6f, -.0021551f, -4.6701e-6f, 4210.f, 4220.f, 81.077f, .588f,
- -.0012356f, -7.661e-7f, -.0026793f, -4.4252e-6f, 4220.f, 4230.f,
- 89.975f, .39899f, -.0039748f, 5.6557e-6f, -.0048805f, 4.5246e-6f,
- 4230.f, 4240.f, 148.96f, .80968f, -.002216f, -1.5823e-6f, -.0039631f,
- -2.9253e-7f, 4240.f, 4250.f, 155.94f, 1.2514f, 4.5507e-4f, -8.2566e-6f,
- -.0014417f, -8.5226e-6f, 4250.f, 4260.f, 100.6f, 1.2829f, .0020903f,
- -1.6069e-5f, -3.6824e-4f, -1.5144e-5f, 4260.f, 4270.f, 117.04f, 1.5739f,
- 5.5952e-4f, -2.1104e-6f, -8.6496e-4f, -9.3941e-6f, 4270.f, 4280.f,
- 72.794f, 1.549f, -6.9688e-4f, -3.1516e-6f, -.0027541f, -2.9267e-6f,
- 4280.f, 4290.f, 55.269f, .72223f, -.0034302f, 5.1174e-6f, -.0052484f,
- 7.0355e-6f, 4290.f, 4300.f, 59.856f, 1.1762f, -5.5565e-4f, 2.0772e-7f,
- -.0019773f, -5.0966e-6f, 4300.f, 4310.f, 218.17f, 2.2377f, -.0013492f,
- -1.8427e-6f, -.0029966f, -3.2329e-6f, 4310.f, 4320.f, 10.284f, .071846f,
- -.0057696f, 9.8901e-6f, -.0087876f, 1.5909e-5f, 4320.f, 4330.f, 96.725f,
- .88048f, -.0045462f, 6.1508e-6f, -.0069991f, 9.6787e-6f, 4330.f, 4340.f,
- 111.26f, 1.6893f, -.002444f, 5.0136e-7f, -.0044752f, 1.1244e-6f, 4340.f,
- 4350.f, 102.83f, 1.8062f, -3.868e-4f, -5.0005e-6f, -.0021043f,
- -6.8556e-6f, 4350.f, 4360.f, 89.61f, 1.1851f, -6.654e-4f, 2.3556e-6f,
- -.001897f, -3.4232e-6f, 4360.f, 4370.f, 66.668f, .73012f, -.0022103f,
- 2.3323e-6f, -.0030787f, -5.6056e-7f, 4370.f, 4380.f, 81.907f, .54144f,
- -.0025213f, -8.9597e-7f, -.0047474f, 1.5149e-6f, 4380.f, 4390.f,
- 90.229f, .49784f, -.0023921f, -1.0143e-6f, -.0043793f, 4.6547e-7f,
- 4390.f, 4400.f, 82.849f, .85204f, -1.0412e-4f, -8.1641e-6f, -.0020032f,
- -8.0151e-6f, 4400.f, 4410.f, 44.643f, .57527f, .0023103f, -1.4133e-5f,
- 8.589e-4f, -1.8551e-5f, 4410.f, 4420.f, 69.032f, .78506f, 3.9855e-4f,
- -1.0098e-5f, -.0010159f, -1.0449e-5f, 4420.f, 4430.f, 58.683f, .96123f,
- .0024151f, -1.8621e-5f, 9.2225e-4f, -1.9737e-5f, 4430.f, 4440.f,
- 37.181f, 1.0126f, .0046217f, -2.9919e-5f, .0020589f, -2.6447e-5f,
- 4440.f, 4450.f, 42.607f, 1.0332f, .0047981f, -3.088e-5f, .0014909f,
- -2.4304e-5f, 4450.f, 4460.f, 33.113f, .94984f, .0043677f, -2.6166e-5f,
- .0012754f, -2.2104e-5f, 4460.f, 4470.f, 32.668f, .8529f, .0023495f,
- -1.622e-5f, -4.7342e-4f, -1.3768e-5f, 4470.f, 4480.f, 23.216f, .8354f,
- .0022982f, -7.3604e-6f, 6.8926e-4f, -1.3485e-5f, 4480.f, 4490.f,
- 13.719f, .6592f, .0014982f, -6.2753e-6f, -3.7161e-4f, -1.1492e-5f,
- 4490.f, 4500.f, 16.799f, .41229f, -7.848e-4f, 1.7545e-6f, -.001216f,
- -7.1041e-6f, 4500.f, 4510.f, 10.085f, .14021f, -.0037976f, 6.6108e-6f,
- -.0050669f, 6.8711e-6f, 4510.f, 4520.f, 3.1009f, .087599f, -.0043682f,
- 1.0148e-5f, -.0057555f, 1.0223e-5f, 4520.f, 4530.f, 18.983f, 1.5932f,
- .0014519f, -9.1544e-6f, -9.7256e-4f, -1.0139e-5f, 4530.f, 4540.f,
- 63.83f, 2.0016f, -.0011189f, -2.1104e-6f, -.0028048f, -3.8802e-6f,
- 4540.f, 4550.f, 3.1441f, .067773f, -.0040447f, 1.4471e-5f, -.0037016f,
- 5.8757e-6f, 4550.f, 4560.f, 2.1782f, .029389f, -.005929f, 1.0501e-5f,
- -.00897f, 1.6625e-5f, 4560.f, 4570.f, 4.0086f, .078646f, -.0053825f,
- 8.3305e-6f, -.0083558f, 1.4185e-5f, 4570.f, 4580.f, 1.3954f, .11032f,
- -.0040678f, 3.1725e-6f, -.0071674f, 9.4743e-6f, 4580.f, 4590.f, 8.2827f,
- .13524f, -.0044855f, 4.8983e-6f, -.0072447f, 9.9023e-6f, 4590.f, 4600.f,
- 8.1728f, .18866f, -.0033132f, 4.1656e-7f, -.0059898f, 5.0092e-6f,
- 4600.f, 4610.f, 6.4947f, .31086f, -.0016438f, -5.9966e-6f, -.0043498f,
- -1.4967e-6f, 4610.f, 4620.f, 6.3479f, .34741f, 1.5663e-4f, -1.2499e-5f,
- -.0026034f, -7.9833e-6f, 4620.f, 4630.f, 2.4602f, .20366f, .0017162f,
- -1.8956e-5f, -9.66e-4f, -1.4741e-5f, 4630.f, 4640.f, 2.0994f, .2061f,
- .004364f, -2.6098e-5f, .0019605f, -2.4954e-5f, 4640.f, 4650.f, 1.6635f,
- .21606f, .0038987f, -2.7059e-5f, .001059f, -2.2496e-5f, 4650.f, 4660.f,
- .9148f, .11908f, .0055341f, -3.5022e-5f, .002491f, -2.9056e-5f, 4660.f,
- 4670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4670.f, 4680.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 4680.f, 4690.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4690.f, 4700.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 4700.f, 4710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4710.f,
- 4720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4720.f, 4730.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 4730.f, 4740.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4740.f, 4750.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 4750.f, 4760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4760.f,
- 4770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4770.f, 4780.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 4780.f, 4790.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4790.f, 4800.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 4800.f, 4810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4810.f,
- 4820.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4820.f, 4830.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 4830.f, 4840.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4840.f, 4850.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 4850.f, 4860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4860.f,
- 4870.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4870.f, 4880.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 4880.f, 4890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4890.f, 4900.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 4900.f, 4910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4910.f,
- 4920.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4920.f, 4930.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 4930.f, 4940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4940.f, 4950.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 4950.f, 4960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4960.f,
- 4970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4970.f, 4980.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 4980.f, 4990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4990.f, 5e3f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 5e3f, 5010.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5010.f, 5020.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 5020.f, 5030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 5030.f,
- 5040.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5040.f, 5050.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 5050.f, 5060.f
- };
-
- /* methane (2500 - 5050 cm-1) */
- for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
-} /* meth1 */
-
-
-void
-moca6 (float a[8], const long int inu)
-{
-
-
- static const float acr[2048] = { 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f, 15300.f, 15310.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15310.f, 15320.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 15320.f, 15330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 15330.f, 15340.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15340.f, 15350.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 15350.f, 15360.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 15360.f,
- 15370.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15370.f, 15380.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 15380.f, 15390.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15390.f,
- 15400.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15400.f, 15410.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 15410.f, 15420.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15420.f, 15430.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 15430.f, 15440.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 15440.f,
- 15450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15450.f, 15460.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 15460.f, 15470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15470.f,
- 15480.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15480.f, 15490.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 15490.f, 15500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15500.f, 15510.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 15510.f, 15520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 15520.f,
- 15530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15530.f, 15540.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 15540.f, 15550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15550.f,
- 15560.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15560.f, 15570.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 15570.f, 15580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15580.f, 15590.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 15590.f, 15600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 15600.f,
- 15610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15610.f, 15620.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 15620.f, 15630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15630.f,
- 15640.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15640.f, 15650.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 15650.f, 15660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15660.f, 15670.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 15670.f, 15680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 15680.f,
- 15690.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15690.f, 15700.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 15700.f, 15710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15710.f,
- 15720.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15720.f, 15730.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 15730.f, 15740.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15740.f, 15750.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 15750.f, 15760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 15760.f,
- 15770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15770.f, 15780.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 15780.f, 15790.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15790.f,
- 15800.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15800.f, 15810.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 15810.f, 15820.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15820.f, 15830.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 15830.f, 15840.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 15840.f,
- 15850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15850.f, 15860.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 15860.f, 15870.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15870.f,
- 15880.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15880.f, 15890.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 15890.f, 15900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15900.f, 15910.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 15910.f, 15920.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 15920.f,
- 15930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15930.f, 15940.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 15940.f, 15950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15950.f,
- 15960.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15960.f, 15970.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 15970.f, 15980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15980.f, 15990.f, 0.f,
- 0.f,
-
- 0.f, 0.f, 0.f, 0.f, 15990.f, 1.6e4f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.6e4f,
- 16010.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16010.f, 16020.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16020.f, 16030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16030.f,
- 16040.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16040.f, 16050.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16050.f, 16060.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16060.f, 16070.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16070.f, 16080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16080.f,
- 16090.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16090.f, 16100.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16100.f, 16110.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16110.f,
- 16120.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16120.f, 16130.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16130.f, 16140.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16140.f, 16150.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16150.f, 16160.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16160.f,
- 16170.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16170.f, 16180.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16180.f, 16190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16190.f,
- 16200.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16200.f, 16210.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16210.f, 16220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16220.f, 16230.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16230.f, 16240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16240.f,
- 16250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16250.f, 16260.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16260.f, 16270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16270.f,
- 16280.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16280.f, 16290.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16290.f, 16300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16300.f, 16310.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16310.f, 16320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16320.f,
- 16330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16330.f, 16340.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16340.f, 16350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16350.f,
- 16360.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16360.f, 16370.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16370.f, 16380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16380.f, 16390.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16390.f, 16400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16400.f,
- 16410.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16410.f, 16420.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16420.f, 16430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16430.f,
- 16440.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16440.f, 16450.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16450.f, 16460.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16460.f, 16470.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16470.f, 16480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16480.f,
- 16490.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16490.f, 16500.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16500.f, 16510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16510.f,
- 16520.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16520.f, 16530.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16530.f, 16540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16540.f, 16550.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16550.f, 16560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16560.f,
- 16570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16570.f, 16580.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16580.f, 16590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16590.f,
- 16600.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16600.f, 16610.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16610.f, 16620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16620.f, 16630.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16630.f, 16640.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16640.f,
- 16650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16650.f, 16660.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16660.f, 16670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16670.f,
- 16680.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16680.f, 16690.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16690.f, 16700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16700.f, 16710.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16710.f, 16720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16720.f,
- 16730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16730.f, 16740.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16740.f, 16750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16750.f,
- 16760.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16760.f, 16770.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16770.f, 16780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16780.f, 16790.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16790.f, 16800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16800.f,
- 16810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16810.f, 16820.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16820.f, 16830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16830.f,
- 16840.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16840.f, 16850.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16850.f, 16860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16860.f, 16870.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16870.f, 16880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16880.f,
- 16890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16890.f, 16900.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16900.f, 16910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16910.f,
- 16920.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16920.f, 16930.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16930.f, 16940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16940.f, 16950.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16950.f, 16960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16960.f,
- 16970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16970.f, 16980.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16980.f, 16990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16990.f, 1.7e4f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.7e4f, 17010.f, 0.f, 0.f, 0.f, 0.f, 0.f,
-
- 0.f,
- 17010.f, 17020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17020.f, 17030.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 17030.f, 17040.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 17040.f,
- 17050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17050.f, 17060.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 17060.f, 17070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17070.f,
- 17080.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17080.f, 17090.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 17090.f, 17100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17100.f, 17110.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 17110.f, 17120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 17120.f,
- 17130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17130.f, 17140.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 17140.f, 17150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17150.f,
- 17160.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17160.f, 17170.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 17170.f, 17180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17180.f, 17190.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 17190.f, 17200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 17200.f,
- 17210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17210.f, 17220.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 17220.f, 17230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17230.f,
- 17240.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17240.f, 17250.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 17250.f, 17260.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17260.f, 17270.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 17270.f, 17280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 17280.f,
- 17290.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17290.f, 17300.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 17300.f, 17310.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17310.f,
- 17320.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17320.f, 17330.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 17330.f, 17340.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17340.f, 17350.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 17350.f, 17360.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 17360.f,
- 17370.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17370.f, 17380.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 17380.f, 17390.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17390.f,
- 17400.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17400.f, 17410.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 17410.f, 17420.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17420.f, 17430.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 17430.f, 17440.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 17440.f,
- 17450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17450.f, 17460.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 17460.f, 17470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17470.f,
- 17480.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17480.f, 17490.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 17490.f, 17500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17500.f, 17510.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 17510.f, 17520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 17520.f,
- 17530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17530.f, 17540.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 17540.f, 17550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17550.f,
- 17560.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17560.f, 17570.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 17570.f, 17580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17580.f, 17590.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 17590.f, 17600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 17600.f,
- 17610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17610.f, 17620.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 17620.f, 17630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17630.f,
- 17640.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17640.f, 17650.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 17650.f, 17660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17660.f, 17670.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 17670.f, 17680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 17680.f,
- 17690.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17690.f, 17700.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 17700.f, 17710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17710.f,
- 17720.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17720.f, 17730.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 17730.f, 17740.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17740.f, 17750.f, 0.f,
- 0.f,
-
- 0.f, 0.f, 0.f, 0.f, 17750.f, 17760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 17760.f,
- 17770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17770.f, 17780.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 17780.f, 17790.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17790.f,
- 17800.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17800.f, 17810.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 17810.f, 17820.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17820.f, 17830.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 17830.f, 17840.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 17840.f,
- 17850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17850.f, 17860.f
- };
-
- /* carbon monoxide (15300 - 17870 cm-1) */
- for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
-} /* moca6 */
-
-void
-moca5 (float a[8], const long int inu)
-{
-
-
- static const float acr[2048] = { 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f, 12740.f, 12750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12750.f, 12760.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 12760.f, 12770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 12770.f, 12780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12780.f, 12790.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 12790.f, 12800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 12800.f,
- 12810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12810.f, 12820.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 12820.f, 12830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12830.f,
- 12840.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12840.f, 12850.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 12850.f, 12860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12860.f, 12870.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 12870.f, 12880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 12880.f,
- 12890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12890.f, 12900.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 12900.f, 12910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12910.f,
- 12920.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12920.f, 12930.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 12930.f, 12940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12940.f, 12950.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 12950.f, 12960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 12960.f,
- 12970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12970.f, 12980.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 12980.f, 12990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12990.f, 1.3e4f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.3e4f, 13010.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13010.f, 13020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13020.f, 13030.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13030.f, 13040.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 13040.f,
- 13050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13050.f, 13060.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 13060.f, 13070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13070.f,
- 13080.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13080.f, 13090.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13090.f, 13100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13100.f, 13110.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13110.f, 13120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 13120.f,
- 13130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13130.f, 13140.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 13140.f, 13150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13150.f,
- 13160.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13160.f, 13170.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13170.f, 13180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13180.f, 13190.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13190.f, 13200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 13200.f,
- 13210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13210.f, 13220.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 13220.f, 13230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13230.f,
- 13240.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13240.f, 13250.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13250.f, 13260.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13260.f, 13270.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13270.f, 13280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 13280.f,
- 13290.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13290.f, 13300.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 13300.f, 13310.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13310.f,
- 13320.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13320.f, 13330.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13330.f, 13340.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13340.f, 13350.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13350.f, 13360.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 13360.f,
- 13370.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13370.f, 13380.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 13380.f, 13390.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13390.f,
- 13400.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13400.f, 13410.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13410.f, 13420.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13420.f, 13430.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13430.f, 13440.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 13440.f,
- 13450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13450.f, 13460.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 13460.f, 13470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13470.f,
- 13480.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13480.f, 13490.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13490.f, 13500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13500.f, 13510.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13510.f, 13520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 13520.f,
- 13530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13530.f, 13540.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 13540.f, 13550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13550.f,
- 13560.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13560.f, 13570.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13570.f, 13580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13580.f, 13590.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13590.f, 13600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 13600.f,
- 13610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13610.f, 13620.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 13620.f, 13630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13630.f,
- 13640.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13640.f, 13650.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13650.f, 13660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13660.f, 13670.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13670.f, 13680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 13680.f,
- 13690.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13690.f, 13700.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 13700.f, 13710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13710.f,
- 13720.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13720.f, 13730.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13730.f, 13740.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13740.f, 13750.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13750.f, 13760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 13760.f,
- 13770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13770.f, 13780.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 13780.f, 13790.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13790.f,
- 13800.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13800.f, 13810.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13810.f, 13820.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13820.f, 13830.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13830.f, 13840.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 13840.f,
- 13850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13850.f, 13860.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 13860.f, 13870.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13870.f,
- 13880.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13880.f, 13890.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13890.f, 13900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13900.f, 13910.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13910.f, 13920.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 13920.f,
- 13930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13930.f, 13940.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 13940.f, 13950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13950.f,
- 13960.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13960.f, 13970.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13970.f, 13980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13980.f, 13990.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13990.f, 1.4e4f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.4e4f,
- 14010.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14010.f, 14020.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 14020.f, 14030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14030.f,
- 14040.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14040.f, 14050.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 14050.f, 14060.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14060.f, 14070.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 14070.f, 14080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 14080.f,
- 14090.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14090.f, 14100.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 14100.f, 14110.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14110.f,
- 14120.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14120.f, 14130.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 14130.f, 14140.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14140.f, 14150.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 14150.f, 14160.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 14160.f,
- 14170.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14170.f, 14180.f, 0.f, 0.f, 0.f,
-
- 0.f,
- 0.f, 0.f, 14180.f, 14190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14190.f,
- 14200.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14200.f, 14210.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 14210.f, 14220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14220.f, 14230.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 14230.f, 14240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 14240.f,
- 14250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14250.f, 14260.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 14260.f, 14270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14270.f,
- 14280.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14280.f, 14290.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 14290.f, 14300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14300.f, 14310.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 14310.f, 14320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 14320.f,
- 14330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14330.f, 14340.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 14340.f, 14350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14350.f,
- 14360.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14360.f, 14370.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 14370.f, 14380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14380.f, 14390.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 14390.f, 14400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 14400.f,
- 14410.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14410.f, 14420.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 14420.f, 14430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14430.f,
- 14440.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14440.f, 14450.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 14450.f, 14460.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14460.f, 14470.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 14470.f, 14480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 14480.f,
- 14490.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14490.f, 14500.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 14500.f, 14510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14510.f,
- 14520.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14520.f, 14530.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 14530.f, 14540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14540.f, 14550.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 14550.f, 14560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 14560.f,
- 14570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14570.f, 14580.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 14580.f, 14590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14590.f,
- 14600.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14600.f, 14610.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 14610.f, 14620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14620.f, 14630.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 14630.f, 14640.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 14640.f,
- 14650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14650.f, 14660.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 14660.f, 14670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14670.f,
- 14680.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14680.f, 14690.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 14690.f, 14700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14700.f, 14710.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 14710.f, 14720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 14720.f,
- 14730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14730.f, 14740.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 14740.f, 14750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14750.f,
- 14760.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14760.f, 14770.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 14770.f, 14780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14780.f, 14790.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 14790.f, 14800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 14800.f,
- 14810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14810.f, 14820.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 14820.f, 14830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14830.f,
- 14840.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14840.f, 14850.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 14850.f, 14860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14860.f, 14870.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 14870.f, 14880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 14880.f,
- 14890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14890.f, 14900.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 14900.f, 14910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14910.f,
- 14920.f,
-
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14920.f, 14930.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 14930.f, 14940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14940.f, 14950.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 14950.f, 14960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 14960.f,
- 14970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14970.f, 14980.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 14980.f, 14990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14990.f, 1.5e4f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.5e4f, 15010.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 15010.f, 15020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15020.f, 15030.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 15030.f, 15040.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 15040.f,
- 15050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15050.f, 15060.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 15060.f, 15070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15070.f,
- 15080.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15080.f, 15090.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 15090.f, 15100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15100.f, 15110.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 15110.f, 15120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 15120.f,
- 15130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15130.f, 15140.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 15140.f, 15150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15150.f,
- 15160.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15160.f, 15170.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 15170.f, 15180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15180.f, 15190.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 15190.f, 15200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 15200.f,
- 15210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15210.f, 15220.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 15220.f, 15230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15230.f,
- 15240.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15240.f, 15250.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 15250.f, 15260.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15260.f, 15270.f, 0.f,
-
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 15270.f, 15280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 15280.f,
- 15290.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15290.f, 15300.f
- };
-
- /* carbon monoxide (12740 - 15290 cm-1) */
- for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
-} /* moca5 */
-
-
-void moca4 (float a[8], const long int inu)
-{
- static const float acr[2048] = { 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f, 10180.f, 10190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10190.f, 10200.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 10200.f, 10210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 10210.f, 10220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10220.f, 10230.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 10230.f, 10240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 10240.f,
- 10250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10250.f, 10260.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 10260.f, 10270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10270.f,
- 10280.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10280.f, 10290.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 10290.f, 10300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10300.f, 10310.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 10310.f, 10320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 10320.f,
- 10330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10330.f, 10340.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 10340.f, 10350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10350.f,
- 10360.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10360.f, 10370.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 10370.f, 10380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10380.f, 10390.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 10390.f, 10400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 10400.f,
- 10410.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10410.f, 10420.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 10420.f, 10430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10430.f,
- 10440.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10440.f, 10450.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 10450.f, 10460.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10460.f, 10470.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 10470.f, 10480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 10480.f,
- 10490.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10490.f, 10500.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 10500.f, 10510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10510.f,
- 10520.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10520.f, 10530.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 10530.f, 10540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10540.f, 10550.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 10550.f, 10560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 10560.f,
- 10570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10570.f, 10580.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 10580.f, 10590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10590.f,
- 10600.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10600.f, 10610.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 10610.f, 10620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10620.f, 10630.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 10630.f, 10640.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 10640.f,
- 10650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10650.f, 10660.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 10660.f, 10670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10670.f,
- 10680.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10680.f, 10690.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 10690.f, 10700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10700.f, 10710.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 10710.f, 10720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 10720.f,
- 10730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10730.f, 10740.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 10740.f, 10750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10750.f,
- 10760.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10760.f, 10770.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 10770.f, 10780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10780.f, 10790.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 10790.f, 10800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 10800.f,
- 10810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10810.f, 10820.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 10820.f, 10830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10830.f,
- 10840.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10840.f, 10850.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
-
- 10850.f, 10860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10860.f, 10870.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 10870.f, 10880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 10880.f,
- 10890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10890.f, 10900.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 10900.f, 10910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10910.f,
- 10920.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10920.f, 10930.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 10930.f, 10940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10940.f, 10950.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 10950.f, 10960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 10960.f,
- 10970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10970.f, 10980.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 10980.f, 10990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10990.f, 1.1e4f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.1e4f, 11010.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 11010.f, 11020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11020.f, 11030.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 11030.f, 11040.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 11040.f,
- 11050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11050.f, 11060.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 11060.f, 11070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11070.f,
- 11080.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11080.f, 11090.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 11090.f, 11100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11100.f, 11110.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 11110.f, 11120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 11120.f,
- 11130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11130.f, 11140.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 11140.f, 11150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11150.f,
- 11160.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11160.f, 11170.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 11170.f, 11180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11180.f, 11190.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 11190.f, 11200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 11200.f,
- 11210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11210.f, 11220.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 11220.f, 11230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11230.f,
- 11240.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11240.f, 11250.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 11250.f, 11260.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11260.f, 11270.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 11270.f, 11280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 11280.f,
- 11290.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11290.f, 11300.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 11300.f, 11310.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11310.f,
- 11320.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11320.f, 11330.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 11330.f, 11340.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11340.f, 11350.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 11350.f, 11360.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 11360.f,
- 11370.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11370.f, 11380.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 11380.f, 11390.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11390.f,
- 11400.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11400.f, 11410.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 11410.f, 11420.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11420.f, 11430.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 11430.f, 11440.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 11440.f,
- 11450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11450.f, 11460.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 11460.f, 11470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11470.f,
- 11480.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11480.f, 11490.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 11490.f, 11500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11500.f, 11510.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 11510.f, 11520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 11520.f,
- 11530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11530.f, 11540.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 11540.f, 11550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11550.f,
- 11560.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11560.f, 11570.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 11570.f, 11580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11580.f, 11590.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 11590.f, 11600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 11600.f,
- 11610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11610.f, 11620.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 11620.f, 11630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11630.f,
- 11640.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11640.f, 11650.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 11650.f, 11660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11660.f, 11670.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 11670.f, 11680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 11680.f,
-
- 11690.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11690.f, 11700.f, 0.f, 0.f, 0.f,
- 0.f,
-
- 0.f, 0.f, 11700.f, 11710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11710.f,
- 11720.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11720.f, 11730.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 11730.f, 11740.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11740.f, 11750.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 11750.f, 11760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 11760.f,
- 11770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11770.f, 11780.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 11780.f, 11790.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11790.f,
- 11800.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11800.f, 11810.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 11810.f, 11820.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11820.f, 11830.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 11830.f, 11840.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 11840.f,
- 11850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11850.f, 11860.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 11860.f, 11870.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11870.f,
- 11880.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11880.f, 11890.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 11890.f, 11900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11900.f, 11910.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 11910.f, 11920.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 11920.f,
- 11930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11930.f, 11940.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 11940.f, 11950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11950.f,
- 11960.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11960.f, 11970.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 11970.f, 11980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11980.f, 11990.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 11990.f, 1.2e4f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.2e4f,
- 12010.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12010.f, 12020.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 12020.f, 12030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12030.f,
- 12040.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12040.f, 12050.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 12050.f, 12060.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12060.f, 12070.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 12070.f, 12080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 12080.f,
- 12090.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12090.f, 12100.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 12100.f, 12110.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12110.f,
- 12120.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12120.f, 12130.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 12130.f, 12140.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12140.f, 12150.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 12150.f, 12160.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 12160.f,
- 12170.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12170.f, 12180.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 12180.f, 12190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12190.f,
- 12200.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12200.f, 12210.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 12210.f, 12220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12220.f, 12230.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 12230.f, 12240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 12240.f,
- 12250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12250.f, 12260.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 12260.f, 12270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12270.f,
- 12280.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12280.f, 12290.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 12290.f, 12300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12300.f, 12310.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 12310.f, 12320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 12320.f,
- 12330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12330.f, 12340.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 12340.f, 12350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12350.f,
- 12360.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12360.f, 12370.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 12370.f, 12380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12380.f, 12390.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 12390.f, 12400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 12400.f,
- 12410.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12410.f, 12420.f, 0.f, 0.f, 0.f,
-
- 0.f,
- 0.f, 0.f, 12420.f, 12430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12430.f,
- 12440.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12440.f, 12450.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 12450.f, 12460.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12460.f, 12470.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 12470.f, 12480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 12480.f,
- 12490.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12490.f, 12500.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 12500.f, 12510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12510.f,
- 12520.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12520.f, 12530.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 12530.f, 12540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12540.f, 12550.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 12550.f, 12560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 12560.f,
- 12570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12570.f, 12580.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 12580.f, 12590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12590.f,
- 12600.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12600.f, 12610.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 12610.f, 12620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12620.f, 12630.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 12630.f, 12640.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 12640.f,
- 12650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12650.f, 12660.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 12660.f, 12670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12670.f,
- 12680.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12680.f, 12690.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 12690.f, 12700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12700.f, 12710.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 12710.f, 12720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 12720.f,
- 12730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12730.f, 12740.f
- };
-
- /* carbon monoxide (10180 - 12730 cm-1) */
- for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
-} /* moca4 */
-
-void
-moca3 (float a[8], const long int inu)
-{
-
-
- static const float acr[2048] = { 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f, 7620.f, 7630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7630.f, 7640.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 7640.f, 7650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7650.f,
- 7660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7660.f, 7670.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 7670.f, 7680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7680.f, 7690.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 7690.f, 7700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7700.f,
- 7710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7710.f, 7720.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 7720.f, 7730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7730.f, 7740.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 7740.f, 7750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7750.f,
- 7760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7760.f, 7770.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 7770.f, 7780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7780.f, 7790.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 7790.f, 7800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7800.f,
- 7810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7810.f, 7820.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 7820.f, 7830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7830.f, 7840.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 7840.f, 7850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7850.f,
- 7860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7860.f, 7870.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 7870.f, 7880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7880.f, 7890.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 7890.f, 7900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7900.f,
- 7910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7910.f, 7920.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 7920.f, 7930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7930.f, 7940.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 7940.f, 7950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7950.f,
- 7960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7960.f, 7970.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 7970.f, 7980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7980.f, 7990.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 7990.f, 8e3f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8e3f,
- 8010.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8010.f, 8020.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8020.f, 8030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8030.f, 8040.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8040.f, 8050.f, 1.354e-16f, .017736f, .11256f, -4.5834e-4f,
- .10977f, -4.527e-4f, 8050.f, 8060.f, 4.1572e-16f, .017736f, .10803f,
- -4.4019e-4f, .10523f, -4.3455e-4f, 8060.f, 8070.f, 1.2473e-15f,
- .017736f, .10358f, -4.2239e-4f, .10078f, -4.1676e-4f, 8070.f, 8080.f,
- 3.6626e-15f, .017736f, .099217f, -4.0495e-4f, .096419f, -3.9931e-4f,
- 8080.f, 8090.f, 1.0521e-14f, .017736f, .094944f, -3.8786e-4f, .092146f,
- -3.8222e-4f, 8090.f, 8100.f, 2.9549e-14f, .017736f, .09076f,
- -3.7112e-4f, .087962f, -3.6548e-4f, 8100.f, 8110.f, 8.1193e-14f,
- .017736f, .086664f, -3.5474e-4f, .083866f, -3.491e-4f, 8110.f, 8120.f,
- 2.1814e-13f, .017736f, .082657f, -3.3871e-4f, .079859f, -3.3307e-4f,
- 8120.f, 8130.f, 5.7319e-13f, .017736f, .078739f, -3.2303e-4f, .075941f,
- -3.174e-4f, 8130.f, 8140.f, 1.4733e-12f, .017736f, .07491f, -3.0772e-4f,
- .072112f, -3.0208e-4f, 8140.f, 8150.f, 3.7005e-12f, .017736f, .07117f,
- -2.9276e-4f, .068372f, -2.8712e-4f, 8150.f, 8160.f, 9.0898e-12f,
- .017736f, .067519f, -2.7816e-4f, .064721f, -2.7252e-4f, 8160.f, 8170.f,
- 2.1828e-11f, .017736f, .063958f, -2.6391e-4f, .06116f, -2.5828e-4f,
- 8170.f, 8180.f, 1.6892e-10f, .034043f, .058108f, -2.3936e-4f, .055638f,
- -2.3553e-4f, 8180.f, 8190.f, 2.6399e-10f, .017736f, .053812f,
- -2.2333e-4f, .051015f, -2.177e-4f, 8190.f, 8200.f, 5.7886e-10f,
- .017736f, .050611f, -2.1052e-4f, .047813f, -2.0489e-4f, 8200.f, 8210.f,
- 1.2407e-9f, .017957f, .047499f, -1.9807e-4f, .044701f, -1.9244e-4f,
- 8210.f, 8220.f, 2.5994e-9f, .018179f, .044477f, -1.8599e-4f, .041679f,
- -1.8035e-4f, 8220.f, 8230.f, 1.596e-8f, .036001f, .039635f, -1.6576e-4f,
- .03707f, -1.6145e-4f, 8230.f, 8240.f, 2.0795e-8f, .018844f, .035955f,
- -1.519e-4f, .033157f, -1.4627e-4f, 8240.f, 8250.f, 3.9708e-8f, .019066f,
- .033295f, -1.4126e-4f, .030497f, -1.3563e-4f, 8250.f, 8260.f,
- 2.0895e-7f, .03799f, .029113f, -1.2386e-4f, .026495f, -1.1926e-4f,
- 8260.f, 8270.f, 2.3995e-7f, .019731f, .025861f, -1.1153e-4f, .023064f,
- -1.0589e-4f, 8270.f, 8280.f, 4.1681e-7f, .019953f, .023566f,
- -1.0234e-4f, .020768f, -9.6709e-5f, 8280.f, 8290.f, 1.8774e-6f,
- .040651f, .020033f, -8.771e-5f, .017363f, -8.2825e-5f, 8290.f, 8300.f,
- 1.8914e-6f, .021283f, .017225f, -7.698e-5f, .014427f, -7.1347e-5f,
- 8300.f, 8310.f, 7.568e-6f, .043989f, .014172f, -6.438e-5f, .011463f,
- -5.9288e-5f, 8310.f, 8320.f, 6.8789e-6f, .023145f, .011707f,
- -5.4908e-5f, .0089094f, -4.9275e-5f, 8320.f, 8330.f, 2.4399e-5f,
- .046699f, .0091256f, -4.4298e-5f, .0063969f, -3.9079e-5f, 8330.f,
- 8340.f, 4.6806e-5f, .049425f, .006215f, -3.2716e-5f, .0034666f,
- -2.739e-5f, 8340.f, 8350.f, 8.0605e-5f, .050945f, .0036678f,
- -2.2582e-5f, 9.0701e-4f, -1.718e-5f, 8350.f, 8360.f, 1.2377e-4f,
- .051881f, .0014843f, -1.3895e-5f, -.0012918f, -8.4086e-6f, 8360.f,
- 8370.f, 1.6751e-4f, .053029f, -3.3537e-4f, -6.6561e-6f, -.0031202f,
- -1.1154e-6f, 8370.f, 8380.f, 1.9593e-4f, .054802f, -.0017908f,
- -8.6649e-7f, -.0045868f, 4.7351e-6f, 8380.f, 8390.f, 1.8975e-4f,
- .058538f, -.0028817f, 3.4723e-6f, -.0056846f, 9.1141e-6f, 8390.f,
- 8400.f, 1.3472e-4f, .062039f, -.0036068f, 6.3564e-6f, -.006417f,
- 1.2035e-5f, 8400.f, 8410.f, 6.4957e-5f, .06993f, -.0039984f, 7.9148e-6f,
- -.006795f, 1.3543e-5f, 8410.f, 8420.f, 3.0309e-4f, .090113f, -.0036875f,
- 6.6869e-6f, -.0065101f, 1.2442e-5f, 8420.f, 8430.f, 5.1352e-4f, .08362f,
- -.0026038f, 2.4173e-6f, -.0054145f, 8.1551e-6f, 8430.f, 8440.f,
- 8.2971e-4f, .13049f, 5.179e-5f, -7.5797e-6f, -.0026588f, -2.2561e-6f,
- 8440.f, 8450.f, 4.4414e-4f, .14201f, .0055167f, -2.7842e-5f, .0033215f,
- -2.3351e-5f, 8450.f, 8460.f, 8.4089e-5f, .17964f, .015226f, -6.0171e-5f,
- .015481f, -6.3601e-5f, 8460.f, 8470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 8470.f,
- 8480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8480.f, 8490.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 8490.f, 8500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8500.f, 8510.f, 0.f,
- 0.f,
-
- 0.f, 0.f, 0.f, 0.f, 8510.f, 8520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8520.f,
- 8530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8530.f, 8540.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 8540.f, 8550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8550.f, 8560.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 8560.f, 8570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8570.f,
- 8580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8580.f, 8590.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 8590.f, 8600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8600.f, 8610.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 8610.f, 8620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8620.f,
- 8630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8630.f, 8640.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 8640.f, 8650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8650.f, 8660.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 8660.f, 8670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8670.f,
- 8680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8680.f, 8690.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 8690.f, 8700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8700.f, 8710.f, 0.f,
-
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 8710.f, 8720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8720.f,
- 8730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8730.f, 8740.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 8740.f, 8750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8750.f, 8760.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 8760.f, 8770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8770.f,
- 8780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8780.f, 8790.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 8790.f, 8800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8800.f, 8810.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 8810.f, 8820.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8820.f,
- 8830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8830.f, 8840.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 8840.f, 8850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8850.f, 8860.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 8860.f, 8870.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8870.f,
- 8880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8880.f, 8890.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 8890.f, 8900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8900.f, 8910.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 8910.f, 8920.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8920.f,
- 8930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8930.f, 8940.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 8940.f, 8950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8950.f, 8960.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 8960.f, 8970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8970.f,
- 8980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8980.f, 8990.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 8990.f, 9e3f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9e3f, 9010.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 9010.f, 9020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9020.f,
- 9030.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9030.f, 9040.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 9040.f, 9050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9050.f, 9060.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 9060.f, 9070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9070.f,
- 9080.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9080.f, 9090.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 9090.f, 9100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9100.f, 9110.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 9110.f, 9120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9120.f,
- 9130.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9130.f, 9140.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 9140.f, 9150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9150.f, 9160.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 9160.f, 9170.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9170.f,
- 9180.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9180.f, 9190.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 9190.f, 9200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9200.f, 9210.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 9210.f, 9220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9220.f,
- 9230.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9230.f, 9240.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 9240.f, 9250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9250.f, 9260.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 9260.f, 9270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9270.f,
- 9280.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9280.f, 9290.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 9290.f, 9300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9300.f, 9310.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 9310.f, 9320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9320.f,
- 9330.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9330.f, 9340.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 9340.f, 9350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9350.f, 9360.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 9360.f, 9370.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9370.f,
- 9380.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9380.f, 9390.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 9390.f, 9400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9400.f, 9410.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 9410.f, 9420.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9420.f,
- 9430.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9430.f, 9440.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 9440.f, 9450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9450.f, 9460.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 9460.f, 9470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9470.f,
- 9480.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9480.f, 9490.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 9490.f, 9500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9500.f, 9510.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 9510.f, 9520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9520.f,
- 9530.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9530.f, 9540.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 9540.f, 9550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9550.f, 9560.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 9560.f, 9570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9570.f,
- 9580.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9580.f, 9590.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 9590.f, 9600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9600.f, 9610.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 9610.f, 9620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9620.f,
- 9630.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9630.f, 9640.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 9640.f, 9650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9650.f, 9660.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 9660.f, 9670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9670.f,
- 9680.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9680.f, 9690.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 9690.f, 9700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9700.f, 9710.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 9710.f, 9720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9720.f,
- 9730.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9730.f, 9740.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 9740.f, 9750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9750.f, 9760.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 9760.f, 9770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9770.f,
- 9780.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9780.f, 9790.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 9790.f, 9800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9800.f, 9810.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 9810.f, 9820.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9820.f,
- 9830.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9830.f, 9840.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 9840.f, 9850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9850.f, 9860.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 9860.f, 9870.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9870.f,
- 9880.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9880.f, 9890.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 9890.f, 9900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9900.f, 9910.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 9910.f, 9920.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9920.f,
- 9930.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9930.f, 9940.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 9940.f, 9950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9950.f, 9960.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 9960.f, 9970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9970.f,
- 9980.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9980.f, 9990.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 9990.f, 1e4f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1e4f, 10010.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 10010.f, 10020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10020.f,
- 10030.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10030.f, 10040.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 10040.f, 10050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10050.f, 10060.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 10060.f, 10070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 10070.f,
- 10080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10080.f, 10090.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 10090.f, 10100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10100.f,
- 10110.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10110.f, 10120.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 10120.f, 10130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10130.f, 10140.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 10140.f, 10150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 10150.f,
- 10160.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10160.f, 10170.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 10170.f, 10180.f
- };
-
- /* carbon monoxide (7600 - 10170 cm-1) */
- for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
-} /* moca3 */
-
-void
-moca2 (float a[8], const long int inu)
-{
-
-
- static const float acr[2048] = { 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f, 5060.f, 5070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5070.f, 5080.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 5080.f, 5090.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5090.f,
- 5100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5100.f, 5110.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 5110.f, 5120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5120.f, 5130.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 5130.f, 5140.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5140.f,
- 5150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5150.f, 5160.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 5160.f, 5170.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5170.f, 5180.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 5180.f, 5190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5190.f,
- 5200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5200.f, 5210.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 5210.f, 5220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5220.f, 5230.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 5230.f, 5240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5240.f,
- 5250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5250.f, 5260.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 5260.f, 5270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5270.f, 5280.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 5280.f, 5290.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5290.f,
- 5300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5300.f, 5310.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 5310.f, 5320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5320.f, 5330.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 5330.f, 5340.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5340.f,
- 5350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5350.f, 5360.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 5360.f, 5370.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5370.f, 5380.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 5380.f, 5390.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5390.f,
- 5400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5400.f, 5410.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 5410.f, 5420.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5420.f, 5430.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 5430.f, 5440.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5440.f,
- 5450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5450.f, 5460.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 5460.f, 5470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5470.f, 5480.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 5480.f, 5490.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5490.f,
- 5500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5500.f, 5510.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 5510.f, 5520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5520.f, 5530.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 5530.f, 5540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5540.f,
- 5550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5550.f, 5560.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 5560.f, 5570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5570.f, 5580.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 5580.f, 5590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5590.f,
- 5600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5600.f, 5610.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 5610.f, 5620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5620.f, 5630.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 5630.f, 5640.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5640.f,
- 5650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5650.f, 5660.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 5660.f, 5670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5670.f, 5680.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 5680.f, 5690.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5690.f,
- 5700.f, 4.6683e-26f, 3.9946e-7f, .15004f, -6.0825e-4f, .14724f,
- -6.0261e-4f, 5700.f, 5710.f, 1.2312e-25f, 3.9946e-7f, .14595f,
- -5.9188e-4f, .14315f, -5.8625e-4f, 5710.f, 5720.f, 1.1266e-24f,
- 7.5927e-7f, .13909f, -5.6295e-4f, .13671f, -5.5959e-4f, 5720.f, 5730.f,
- 2.0103e-24f, 3.9946e-7f, .13415f, -5.447e-4f, .13135f, -5.3906e-4f,
- 5730.f, 5740.f, 4.9063e-24f, 3.9946e-7f, .13038f, -5.2961e-4f, .12758f,
- -5.2397e-4f, 5740.f, 5750.f, 3.9255e-23f, 7.6518e-7f, .12413f,
- -5.0331e-4f, .12169f, -4.9966e-4f, 5750.f, 5760.f, 6.3305e-23f,
- 3.9946e-7f, .11954f, -4.8626e-4f, .11675f, -4.8063e-4f, 5760.f, 5770.f,
- 1.5847e-21f, 1.0092e-6f, .10516f, -4.1519e-4f, .10467f, -4.2332e-4f,
- 5770.f, 5780.f, 3.6811e-21f, 7.1016e-7f, .09985f, -3.9815e-4f, .098651f,
- -4.013e-4f, 5780.f, 5790.f, 3.2319e-20f, 1.2898e-6f, .092607f,
- -3.6764e-4f, .092132f, -3.7318e-4f, 5790.f, 5800.f, 5.6403e-20f,
-
- 6.4883e-7f, .087374f, -3.4877e-4f, .086636f, -3.5122e-4f, 5800.f,
- 5810.f, 1.6009e-19f, 9.5335e-7f, .0849f, -3.3381e-4f, .084844f,
- -3.4257e-4f, 5810.f, 5820.f, 1.0493e-18f, 1.0941e-6f, .076482f,
- -3.0762e-4f, .080072f, -2.5402e-4f, 5820.f, 5830.f, 1.8849e-18f,
- 2.3089e-6f, .073551f, -2.7995e-4f, .10134f, -1.0464e-4f, 5830.f, 5840.f,
- 1.2274e-17f, 1.8503e-6f, .065955f, -2.6262e-4f, .08719f, -6.1536e-5f,
- 5840.f, 5850.f, 1.9475e-17f, 2.1482e-6f, .062641f, -2.3947e-4f,
- .092133f, -5.5475e-5f, 5850.f, 5860.f, 4.2834e-17f, 5.2914e-6f,
- .060443f, -2.1227e-4f, .10022f, -9.1581e-5f, 5860.f, 5870.f,
- 2.5814e-16f, 2.709e-6f, .053613f, -2.0674e-4f, .078473f, -2.4556e-5f,
- 5870.f, 5880.f, 3.4582e-16f, 2.4018e-6f, .049817f, -1.8578e-4f,
- .083893f, -9.9109e-6f, 5880.f, 5890.f, 1.9766e-15f, 2.6621e-6f,
- .044522f, -1.7276e-4f, .070531f, 1.7855e-5f, 5890.f, 5900.f,
- 7.0047e-15f, 5.7066e-6f, .039496f, -1.4181e-4f, .075654f, 5.7712e-6f,
- 5900.f, 5910.f, 8.6757e-15f, 3.3052e-5f, .040851f, -4.9822e-5f,
- .088823f, -2.0654e-4f, 5910.f, 5920.f, 4.0761e-14f, 1.4076e-5f,
- .033721f, -8.1073e-5f, .073952f, -7.155e-5f, 5920.f, 5930.f,
- 1.1802e-13f, 1.8315e-5f, .029401f, -5.6811e-5f, .072527f, -6.1682e-5f,
- 5930.f, 5940.f, 1.2517e-13f, 3.208e-5f, .029645f, 5.2262e-6f, .075673f,
- -1.605e-4f, 5940.f, 5950.f, 5.3299e-13f, 8.3885e-5f, .028648f,
- 5.1037e-5f, .076701f, -1.1804e-4f, 5950.f, 5960.f, 1.2176e-12f,
- 4.3932e-5f, .023072f, 3.9649e-5f, .070157f, -2.5205e-5f, 5960.f, 5970.f,
- 2.6812e-12f, 7.4724e-5f, .021392f, 7.8492e-5f, .0689f, -5.7739e-5f,
- 5970.f, 5980.f, 5.2852e-12f, 8.1623e-5f, .018441f, 9.2123e-5f, .072474f,
- 3.8196e-5f, 5980.f, 5990.f, 1.2137e-11f, 2.5414e-4f, .024162f,
- 1.7686e-4f, .065473f, -1.1219e-4f, 5990.f, 6e3f, 2.022e-11f, 1.7439e-4f,
- .021342f, 1.7061e-4f, .061647f, -4.9481e-5f, 6e3f, 6010.f, 7.0256e-11f,
- 3.9013e-4f, .025354f, 1.739e-4f, .056294f, -1.0119e-4f, 6010.f, 6020.f,
- 9.1715e-11f, 3.8456e-4f, .027846f, 1.3835e-4f, .055857f, -8.5738e-5f,
- 6020.f, 6030.f, 3.5812e-10f, 8.9526e-4f, .036811f, -1.9691e-5f,
- .060026f, -5.1263e-5f, 6030.f, 6040.f, 5.1951e-10f, 6.5082e-4f,
- .034472f, -3.8106e-5f, .057771f, -1.7166e-5f, 6040.f, 6050.f,
- 2.3396e-9f, .0012585f, .037673f, -1.3867e-4f, .056388f, -3.7053e-5f,
- 6050.f, 6060.f, 3.1627e-9f, .0012183f, .033941f, -1.1427e-4f, .058265f,
- -1.4231e-5f, 6060.f, 6070.f, 1.3747e-8f, .0010905f, .030224f,
- -1.1494e-4f, .045888f, -1.243e-5f, 6070.f, 6080.f, 1.6746e-8f,
- .0011055f, .0271f, -9.4052e-5f, .048795f, 1.7267e-6f, 6080.f, 6090.f,
- 6.9627e-8f, .0014531f, .023474f, -8.7211e-5f, .042687f, 2.9187e-5f,
- 6090.f, 6100.f, 1.789e-7f, .0023713f, .020122f, -5.984e-5f, .042924f,
- 9.3171e-6f, 6100.f, 6110.f, 1.6918e-7f, .002373f, .018564f, -3.2576e-5f,
- .047913f, -5.6001e-6f, 6110.f, 6120.f, 6.1497e-7f, .0020751f, .014671f,
- -3.6986e-5f, .03447f, 3.2655e-5f, 6120.f, 6130.f, 1.3012e-6f, .0059809f,
- .014081f, 1.2706e-5f, .041059f, -1.4713e-5f, 6130.f, 6140.f, 2.3687e-6f,
- .0034824f, .010334f, 1.187e-5f, .031822f, 2.134e-5f, 6140.f, 6150.f,
- 4.1168e-6f, .0049295f, .0084797f, 3.3745e-5f, .032297f, 2.8091e-5f,
- 6150.f, 6160.f, 7.275e-6f, .015527f, .012669f, 9.9217e-5f, .036777f,
- -5.5634e-5f, 6160.f, 6170.f, 9.7222e-6f, .0091547f, .010267f,
- 9.5535e-5f, .030194f, -2.5674e-5f, 6170.f, 6180.f, 1.7703e-5f, .012682f,
- .0090194f, 1.0461e-4f, .028528f, -8.8439e-6f, 6180.f, 6190.f,
- 3.2557e-5f, .038848f, .022453f, 5.1526e-5f, .032595f, -1.0114e-4f,
- 6190.f, 6200.f, 3.6378e-5f, .026446f, .022869f, 1.5344e-5f, .029472f,
- -7.8062e-5f, 6200.f, 6210.f, 1.5091e-4f, .045107f, .027472f,
- -9.5379e-5f, .027231f, -1.0428e-4f, 6210.f, 6220.f, 4.4635e-4f,
- .044617f, .022992f, -8.3379e-5f, .022135f, -8.6546e-5f, 6220.f, 6230.f,
- 4.645e-4f, .025101f, .020065f, -7.4635e-5f, .019585f, -7.1162e-5f,
- 6230.f, 6240.f, .0018567f, .045449f, .017769f, -7.6382e-5f, .015878f,
- -6.8709e-5f, 6240.f, 6250.f, .0042909f, .047419f, .01417f, -6.399e-5f,
- .012295f, -5.5119e-5f, 6250.f, 6260.f, .0037371f, .024446f, .011714f,
- -5.4834e-5f, .0096092f, -4.6244e-5f, 6260.f, 6270.f, .012658f, .047613f,
- .0091389f, -4.4311e-5f, .006717f, -3.7584e-5f, 6270.f, 6280.f, .022981f,
- .050782f, .0062294f, -3.2686e-5f, .0039945f, -2.4418e-5f, 6280.f,
- 6290.f, .03751f, .052128f, .0036805f, -2.2546e-5f, .0014034f,
- -1.3971e-5f, 6290.f, 6300.f, .054636f, .053047f, .0014952f, -1.3854e-5f,
- -7.4579e-4f, -4.3465e-6f, 6300.f, 6310.f, .070262f, .053883f,
- -3.2751e-4f, -6.6345e-6f, -.0026603f, 2.8956e-6f, 6310.f, 6320.f,
- .078204f, .055207f, -.0017859f, -8.6799e-7f, -.0043181f, 7.5236e-6f,
- 6320.f, 6330.f, .10057f, .088588f, -.0030519f, 4.1846e-6f, -.0057894f,
- 1.0937e-5f, 6330.f, 6340.f, .031333f, .065185f, -.0038296f, 7.2424e-6f,
- -.006643f, 1.2937e-5f, 6340.f, 6350.f, .033845f, .06492f, -.0039811f,
- 7.8455e-6f, -.0067871f, 1.3512e-5f, 6350.f, 6360.f, .12178f, .088198f,
- -.0034193f, 5.6304e-6f, -.0062387f, 1.1334e-5f, 6360.f, 6370.f, .15914f,
- .081345f, -.0020733f, 3.2783e-7f, -.0048764f, 5.9258e-6f, 6370.f,
- 6380.f, .17605f, .10382f, 4.7396e-4f, -9.4825e-6f, -.0022623f,
- -4.3366e-6f, 6380.f, 6390.f, .10257f, .11943f, .0050797f, -2.6879e-5f,
- .002564f, -2.3075e-5f, 6390.f, 6400.f, .025341f, .11996f, .012613f,
- -5.5092e-5f, .010613f, -5.3927e-5f, 6400.f, 6410.f, .0020638f, .13697f,
- .024524f, -9.7954e-5f, .025258f, -9.9948e-5f, 6410.f, 6420.f, 0.f, 0.f,
- 0.f, 0.f, 0.f, 0.f, 6420.f, 6430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6430.f,
- 6440.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6440.f, 6450.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 6450.f, 6460.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6460.f, 6470.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 6470.f, 6480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6480.f,
- 6490.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6490.f, 6500.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 6500.f, 6510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6510.f, 6520.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 6520.f, 6530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6530.f,
- 6540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6540.f, 6550.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 6550.f, 6560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6560.f, 6570.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 6570.f, 6580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6580.f,
- 6590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6590.f, 6600.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 6600.f, 6610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6610.f, 6620.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 6620.f, 6630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6630.f,
- 6640.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6640.f, 6650.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 6650.f, 6660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6660.f, 6670.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 6670.f, 6680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6680.f,
- 6690.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6690.f, 6700.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 6700.f, 6710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6710.f, 6720.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 6720.f, 6730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6730.f,
- 6740.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6740.f, 6750.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 6750.f, 6760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6760.f, 6770.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 6770.f, 6780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6780.f,
- 6790.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6790.f, 6800.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 6800.f, 6810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6810.f, 6820.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 6820.f, 6830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6830.f,
- 6840.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6840.f, 6850.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 6850.f, 6860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6860.f, 6870.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 6870.f, 6880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6880.f,
- 6890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6890.f, 6900.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 6900.f, 6910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6910.f, 6920.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 6920.f, 6930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6930.f,
- 6940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6940.f, 6950.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 6950.f, 6960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6960.f, 6970.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 6970.f, 6980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6980.f,
- 6990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6990.f, 7e3f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 7e3f, 7010.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7010.f, 7020.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 7020.f, 7030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7030.f,
- 7040.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7040.f, 7050.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 7050.f, 7060.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7060.f, 7070.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 7070.f, 7080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7080.f,
- 7090.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7090.f, 7100.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 7100.f, 7110.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7110.f, 7120.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 7120.f, 7130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7130.f,
- 7140.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7140.f, 7150.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 7150.f, 7160.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7160.f, 7170.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 7170.f, 7180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7180.f,
- 7190.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7190.f, 7200.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 7200.f, 7210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7210.f, 7220.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 7220.f, 7230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7230.f,
- 7240.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7240.f, 7250.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 7250.f, 7260.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7260.f, 7270.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 7270.f, 7280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7280.f,
- 7290.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7290.f, 7300.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 7300.f, 7310.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7310.f, 7320.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 7320.f, 7330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7330.f,
- 7340.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7340.f, 7350.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 7350.f, 7360.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7360.f, 7370.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 7370.f, 7380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7380.f,
- 7390.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7390.f, 7400.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 7400.f, 7410.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7410.f, 7420.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 7420.f, 7430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7430.f,
- 7440.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7440.f, 7450.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 7450.f, 7460.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7460.f, 7470.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 7470.f, 7480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7480.f,
- 7490.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7490.f, 7500.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 7500.f, 7510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7510.f, 7520.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 7520.f, 7530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7530.f,
- 7540.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7540.f, 7550.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 7550.f, 7560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7560.f, 7570.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 7570.f, 7580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7580.f,
- 7590.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7590.f, 7600.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 7600.f, 7610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7610.f, 7620.f
- };
-
- /* carbon monoxide (5060 - 7610 cm-1) */
- for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
-} /* moca2 */
-
-void
-moca1 (float a[8], const long int inu)
-{
-
-
- static const float acr[2048] = { 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f, 2500.f, 2510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2510.f, 2520.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 2520.f, 2530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2530.f,
- 2540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2540.f, 2550.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 2550.f, 2560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2560.f, 2570.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 2570.f, 2580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2580.f,
- 2590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2590.f, 2600.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 2600.f, 2610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2610.f, 2620.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 2620.f, 2630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2630.f,
- 2640.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2640.f, 2650.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 2650.f, 2660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2660.f, 2670.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 2670.f, 2680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2680.f,
- 2690.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2690.f, 2700.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 2700.f, 2710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2710.f, 2720.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 2720.f, 2730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2730.f,
- 2740.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2740.f, 2750.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 2750.f, 2760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2760.f, 2770.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 2770.f, 2780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2780.f,
- 2790.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2790.f, 2800.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 2800.f, 2810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2810.f, 2820.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 2820.f, 2830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2830.f,
- 2840.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2840.f, 2850.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 2850.f, 2860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2860.f, 2870.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 2870.f, 2880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2880.f,
- 2890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2890.f, 2900.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 2900.f, 2910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2910.f, 2920.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 2920.f, 2930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2930.f,
- 2940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2940.f, 2950.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 2950.f, 2960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2960.f, 2970.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 2970.f, 2980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2980.f,
- 2990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2990.f, 3e3f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 3e3f, 3010.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3010.f, 3020.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 3020.f, 3030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3030.f,
- 3040.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3040.f, 3050.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 3050.f, 3060.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3060.f, 3070.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 3070.f, 3080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3080.f,
- 3090.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3090.f, 3100.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 3100.f, 3110.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3110.f, 3120.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 3120.f, 3130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3130.f,
- 3140.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3140.f, 3150.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 3150.f, 3160.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3160.f, 3170.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 3170.f, 3180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3180.f,
- 3190.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3190.f, 3200.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 3200.f, 3210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3210.f, 3220.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 3220.f, 3230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3230.f,
- 3240.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3240.f, 3250.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 3250.f, 3260.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3260.f, 3270.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 3270.f, 3280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3280.f,
- 3290.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3290.f, 3300.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 3300.f, 3310.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3310.f, 3320.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 3320.f, 3330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3330.f,
- 3340.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3340.f, 3350.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 3350.f, 3360.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3360.f, 3370.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 3370.f, 3380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3380.f,
- 3390.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3390.f, 3400.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 3400.f, 3410.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3410.f, 3420.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 3420.f, 3430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3430.f,
- 3440.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3440.f, 3450.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 3450.f, 3460.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3460.f, 3470.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 3470.f, 3480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3480.f,
- 3490.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3490.f, 3500.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 3500.f, 3510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3510.f, 3520.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 3520.f, 3530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3530.f,
- 3540.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3540.f, 3550.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 3550.f, 3560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3560.f, 3570.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 3570.f, 3580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3580.f,
- 3590.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3590.f, 3600.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 3600.f, 3610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3610.f, 3620.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 3620.f, 3630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3630.f,
- 3640.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3640.f, 3650.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 3650.f, 3660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3660.f, 3670.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 3670.f, 3680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3680.f,
- 3690.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3690.f, 3700.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 3700.f, 3710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3710.f, 3720.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 3720.f, 3730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3730.f,
- 3740.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3740.f, 3750.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 3750.f, 3760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3760.f, 3770.f, 2.6188e-23f,
- 7.5648e-7f, .14705f, -5.9469e-4f, .14469f, -5.9147e-4f, 3770.f, 3780.f,
- 1.7237e-22f, 7.5958e-7f, .13909f, -5.6296e-4f, .13671f, -5.596e-4f,
- 3780.f, 3790.f, 3.0601e-22f, 3.9946e-7f, .13415f, -5.447e-4f, .13135f,
- -5.3906e-4f, 3790.f, 3800.f, 2.5148e-21f, 7.6406e-7f, .12775f,
- -5.1775e-4f, .12533f, -5.1417e-4f, 3800.f, 3810.f, 2.5745e-19f,
- 6.6661e-7f, .10289f, -4.1172e-4f, .10359f, -4.1229e-4f, 3810.f, 3820.f,
- 2.3471e-18f, 8.5834e-7f, .095064f, -3.8496e-4f, .093786f, -3.8192e-4f,
- 3820.f, 3830.f, 4.4267e-18f, 6.1131e-7f, .090479f, -3.6372e-4f,
- .091063f, -3.6128e-4f, 3830.f, 3840.f, 3.7544e-17f, 9.6342e-7f,
- .083552f, -3.3748e-4f, .083109f, -3.3494e-4f, 3840.f, 3850.f,
- 6.6043e-17f, 4.5762e-6f, .080581f, -2.9237e-4f, .1186f, -1.9899e-4f,
- 3850.f, 3860.f, 5.0104e-16f, 3.0566e-6f, .073204f, -2.8334e-4f, .10085f,
- -1.1404e-4f, 3860.f, 3870.f, 2.5102e-15f, 5.6505e-6f, .066558f,
- -2.4745e-4f, .10411f, -1.0858e-4f, 3870.f, 3880.f, 1.179e-14f,
- 7.1883e-6f, .060355f, -2.1477e-4f, .099433f, -1.0798e-4f, 3880.f,
- 3890.f, 1.7518e-14f, 1.0491e-5f, .058888f, -1.6207e-4f, .09819f,
- -2.0655e-4f, 3890.f, 3900.f, 1.2334e-13f, 8.2478e-5f, .061162f,
- -4.6855e-5f, .099456f, -3.0433e-4f, 3900.f, 3910.f, 5.9987e-13f,
- 1.9476e-4f, .061687f, 1.0764e-5f, .093436f, -3.2996e-4f, 3910.f, 3920.f,
- 1.7948e-12f, 9.9622e-5f, .052116f, 1.2152e-5f, .087699f, -2.7025e-4f,
- 3920.f, 3930.f, 8.3226e-12f, 3.291e-4f, .054625f, 5.1416e-5f, .089131f,
- -2.3629e-4f, 3930.f, 3940.f, 2.0276e-11f, 2.1725e-4f, .045681f,
- 6.3672e-5f, .093594f, -1.044e-4f, 3940.f, 3950.f, 9.452e-11f,
- 4.2081e-4f, .049658f, 5.7601e-5f, .079407f, -1.9603e-4f, 3950.f, 3960.f,
- 2.0604e-10f, 4.2113e-4f, .043092f, 7.9797e-5f, .08456f, -1.0065e-4f,
- 3960.f, 3970.f, 9.2559e-10f, 5.2769e-4f, .046842f, 2.13e-5f, .070955f,
- -1.5981e-4f, 3970.f, 3980.f, 4.0093e-9f, .0016525f, .048905f,
- -4.3479e-5f, .080584f, -1.3211e-4f, 3980.f, 3990.f, 7.2188e-9f,
- .0049631f, .047903f, 3.506e-5f, .087341f, -2.2515e-4f, 3990.f, 4e3f,
- 3.5244e-8f, .0026406f, .044217f, -4.3905e-5f, .074799f, -1.3539e-4f,
- 4e3f, 4010.f, 1.4041e-7f, .0058689f, .045795f, -7.4645e-5f, .073346f,
- -1.7741e-4f, 4010.f, 4020.f, 4.8242e-7f, .0031728f, .03946f,
- -9.4315e-5f, .063747f, -1.0552e-4f, 4020.f, 4030.f, 1.5614e-6f,
- .0029789f, .03481f, -9.4517e-5f, .058578f, -7.6764e-5f, 4030.f, 4040.f,
- 2.3212e-6f, .011038f, .038571f, -4.0092e-6f, .064826f, -1.8611e-4f,
- 4040.f, 4050.f, 1.0679e-5f, .014942f, .035924f, 2.0954e-7f, .05826f,
- -1.6362e-4f, 4050.f, 4060.f, 2.5314e-5f, .0076112f, .028757f,
- -2.7274e-6f, .050639f, -1.0468e-4f, 4060.f, 4070.f, 8.2488e-5f,
- .019238f, .031099f, 3.2981e-5f, .049127f, -1.4923e-4f, 4070.f, 4080.f,
- 1.5838e-4f, .010696f, .024633f, 3.8132e-5f, .04326f, -9.7166e-5f,
- 4080.f, 4090.f, 5.3014e-4f, .027912f, .028944f, 3.4086e-5f, .042425f,
- -1.3608e-4f, 4090.f, 4100.f, .0019236f, .031464f, .026171f, 2.5248e-5f,
- .036412f, -1.1618e-4f, 4100.f, 4110.f, .002417f, .018774f, .023171f,
- 3.1047e-5f, .032949f, -9.3254e-5f, 4110.f, 4120.f, .0095957f, .039252f,
- .027808f, -5.0845e-5f, .030866f, -1.1461e-4f, 4120.f, 4130.f, .029222f,
- .041309f, .025476f, -7.0834e-5f, .025927f, -9.9072e-5f, 4130.f, 4140.f,
- .080521f, .042144f, .023591f, -9.2915e-5f, .022029f, -9.0905e-5f,
- 4140.f, 4150.f, .21163f, .043454f, .019801f, -8.4058e-5f, .017719f,
- -7.6225e-5f, 4150.f, 4160.f, .20177f, .023178f, .017214f, -7.6243e-5f,
- .015553f, -6.4832e-5f, 4160.f, 4170.f, .7632f, .046725f, .01416f,
- -6.3818e-5f, .012147f, -5.4565e-5f, 4170.f, 4180.f, 1.5947f, .047792f,
- .010708f, -5.0352e-5f, .0083233f, -4.2778e-5f, 4180.f, 4190.f, 5.2669f,
- .073957f, .0067643f, -3.4467e-5f, .004319f, -2.8069e-5f, 4190.f, 4200.f,
- 6.4202f, .051382f, .0036772f, -2.2614e-5f, 9.742e-4f, -1.6763e-5f,
- 4200.f, 4210.f, 9.2445f, .052627f, .0014938f, -1.3915e-5f, -.0010491f,
- -6.9012e-6f, 4210.f, 4220.f, 11.75f, .05381f, -3.2681e-4f, -6.6562e-6f,
- -.0028054f, 1.0375e-6f, 4220.f, 4230.f, 12.919f, .055506f, -.0017838f,
- -8.5608e-7f, -.0042665f, 7.1579e-6f, 4230.f, 4240.f, 16.381f, .089081f,
- -.003049f, 4.1985e-6f, -.0056615f, 1.1648e-5f, 4240.f, 4250.f, 5.0278f,
- .066105f, -.0038255f, 7.3053e-6f, -.0061865f, 1.7191e-5f, 4250.f,
- 4260.f, 5.3208f, .065464f, -.0039797f, 7.8726e-6f, -.006508f,
- 1.6403e-5f, 4260.f, 4270.f, 18.844f, .088395f, -.0034205f, 5.6382e-6f,
- -.0061631f, 1.2216e-5f, 4270.f, 4280.f, 24.188f, .081391f, -.0020758f,
- 3.3792e-7f, -.004851f, 6.276e-6f, 4280.f, 4290.f, 20.85f, .078388f,
- 7.1143e-5f, -8.1227e-6f, -.0026924f, -2.6258e-6f, 4290.f, 4300.f,
- 16.326f, .099662f, .003472f, -2.1159e-5f, 8.2032e-4f, -1.6489e-5f,
- 4300.f, 4310.f, 5.9676f, .090468f, .0087017f, -4.1571e-5f, .0061894f,
- -3.7687e-5f, 4310.f, 4320.f, 1.4674f, .080452f, .015334f, -6.7528e-5f,
- .012977f, -6.4486e-5f, 4320.f, 4330.f, .26137f, .087098f, .023749f,
- -9.9448e-5f, .02192f, -9.8971e-5f, 4330.f, 4340.f, .017052f, .094008f,
- .036064f, -1.4594e-4f, .035363f, -1.4924e-4f, 4340.f, 4350.f,
- 1.3974e-4f, .088019f, .056495f, -2.2628e-4f, .057375f, -2.2878e-4f,
- 4350.f, 4360.f, 2.5708e-10f, .017736f, .10803f, -4.4019e-4f, .10523f,
- -4.3455e-4f, 4360.f, 4370.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4370.f, 4380.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4380.f, 4390.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 4390.f, 4400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4400.f, 4410.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 4410.f, 4420.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4420.f,
- 4430.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4430.f, 4440.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 4440.f, 4450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4450.f, 4460.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 4460.f, 4470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4470.f,
- 4480.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4480.f, 4490.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 4490.f, 4500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4500.f, 4510.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 4510.f, 4520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4520.f,
- 4530.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4530.f, 4540.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 4540.f, 4550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4550.f, 4560.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 4560.f, 4570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4570.f,
- 4580.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4580.f, 4590.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 4590.f, 4600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4600.f, 4610.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 4610.f, 4620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4620.f,
- 4630.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4630.f, 4640.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 4640.f, 4650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4650.f, 4660.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 4660.f, 4670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4670.f,
- 4680.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4680.f, 4690.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 4690.f, 4700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4700.f, 4710.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 4710.f, 4720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4720.f,
- 4730.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4730.f, 4740.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 4740.f, 4750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4750.f, 4760.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 4760.f, 4770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4770.f,
- 4780.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4780.f, 4790.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 4790.f, 4800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4800.f, 4810.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 4810.f, 4820.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4820.f,
-
- 4830.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4830.f, 4840.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 4840.f, 4850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4850.f, 4860.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 4860.f, 4870.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4870.f,
- 4880.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4880.f, 4890.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 4890.f, 4900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4900.f, 4910.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 4910.f, 4920.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4920.f,
- 4930.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4930.f, 4940.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 4940.f, 4950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4950.f, 4960.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 4960.f, 4970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4970.f,
- 4980.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4980.f, 4990.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 4990.f, 5e3f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5e3f, 5010.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 5010.f, 5020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5020.f, 5030.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 5030.f, 5040.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 5040.f,
- 5050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5050.f, 5060.f
- };
-
- /* carbon monoxide (2500 - 5050 cm-1) */
- for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
-} /* moca1 */
-
-
-void
-oxyg6 (float a[8], const long int inu)
-{
-
-
- static const float acr[2048] = { 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f, 15300.f, 15310.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15310.f, 15320.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 15320.f, 15330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 15330.f, 15340.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15340.f, 15350.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 15350.f, 15360.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 15360.f,
- 15370.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15370.f, 15380.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 15380.f, 15390.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15390.f,
- 15400.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15400.f, 15410.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 15410.f, 15420.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15420.f, 15430.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 15430.f, 15440.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 15440.f,
- 15450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15450.f, 15460.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 15460.f, 15470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15470.f,
- 15480.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15480.f, 15490.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 15490.f, 15500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15500.f, 15510.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 15510.f, 15520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 15520.f,
- 15530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15530.f, 15540.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 15540.f, 15550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15550.f,
- 15560.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15560.f, 15570.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 15570.f, 15580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15580.f, 15590.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 15590.f, 15600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 15600.f,
- 15610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15610.f, 15620.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 15620.f, 15630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15630.f,
- 15640.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15640.f, 15650.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 15650.f, 15660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15660.f, 15670.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 15670.f, 15680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 15680.f,
- 15690.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15690.f, 15700.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 15700.f, 15710.f, 1.596e-8f, .018194f, .038561f, -1.5424e-4f,
- .036533f, -1.5016e-4f, 15710.f, 15720.f, 1.5504e-8f, .018194f, .03852f,
- -1.5408e-4f, .036492f, -1.5e-4f, 15720.f, 15730.f, 8.6149e-8f, .036385f,
- .03409f, -1.3636e-4f, .032063f, -1.3228e-4f, 15730.f, 15740.f, 0.f, 0.f,
- 0.f, 0.f, 0.f, 0.f, 15740.f, 15750.f, 2.2012e-7f, .036385f, .029911f,
- -1.1964e-4f, .027883f, -1.1556e-4f, 15750.f, 15760.f, 5.2469e-7f,
- .036384f, .026002f, -1.0401e-4f, .023974f, -9.9924e-5f, 15760.f,
- 15770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15770.f, 15780.f, 1.1652e-6f,
- .037236f, .022365f, -8.9458e-5f, .020337f, -8.5374e-5f, 15780.f,
- 15790.f, 2.4086e-6f, .038115f, .019f, -7.5998e-5f, .016972f,
- -7.1915e-5f, 15790.f, 15800.f, 4.63e-6f, .039407f, .015907f,
- -6.3629e-5f, .01388f, -5.9545e-5f, 15800.f, 15810.f, 4.2478e-6f,
- .019927f, .01311f, -5.2439e-5f, .011082f, -4.8357e-5f, 15810.f, 15820.f,
- 4.0121e-6f, .019927f, .013066f, -5.2262e-5f, .011038f, -4.818e-5f,
- 15820.f, 15830.f, 1.3653e-5f, .041148f, .010543f, -4.2171e-5f,
- .0085153f, -3.8088e-5f, 15830.f, 15840.f, 2.0849e-5f, .04334f,
- .0082714f, -3.3085e-5f, .0062412f, -2.8988e-5f, 15840.f, 15850.f,
- 2.9295e-5f, .044164f, .0062748f, -2.5099e-5f, .004247f, -2.1015e-5f,
- 15850.f, 15860.f, 3.768e-5f, .045464f, .0045528f, -1.8211e-5f, .002525f,
- -1.4127e-5f, 15860.f, 15870.f, 6.8735e-5f, .070552f, .0026882f,
- -1.0606e-5f, 6.7182e-4f, -6.6419e-6f, 15870.f, 15880.f, 6.2284e-5f,
- .071735f, .0013301f, -5.2392e-6f, -7.0196e-4f, -1.1788e-6f, 15880.f,
- 15890.f, 3.9741e-5f, .0779f, 3.5779e-4f, -1.1367e-6f, -.0013542f,
- 4.5537e-6f, 15890.f, 15900.f, 1.6287e-5f, .058682f, 3.1178e-4f,
- 2.4589e-6f, 5.313e-4f, 1.3293e-5f, 15900.f, 15910.f, 9.9855e-5f,
- .14228f, .0013456f, -1.6726e-6f, .0010356f, 3.4749e-6f, 15910.f,
- 15920.f, 1.9246e-4f, .31716f, .005754f, -1.6318e-5f, .0052332f,
- -1.9378e-5f, 15920.f, 15930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15930.f,
- 15940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15940.f, 15950.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 15950.f, 15960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15960.f,
- 15970.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15970.f, 15980.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 15980.f, 15990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15990.f, 1.6e4f, 0.f, 0.f,
- 0.f, 0.f, 0.f, 0.f, 1.6e4f, 16010.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16010.f,
- 16020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16020.f, 16030.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16030.f, 16040.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16040.f,
- 16050.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16050.f, 16060.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16060.f, 16070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16070.f, 16080.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16080.f, 16090.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16090.f,
- 16100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16100.f, 16110.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16110.f, 16120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16120.f,
- 16130.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16130.f, 16140.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16140.f, 16150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16150.f, 16160.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16160.f, 16170.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16170.f,
- 16180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16180.f, 16190.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16190.f, 16200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16200.f,
- 16210.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16210.f, 16220.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16220.f, 16230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16230.f, 16240.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16240.f, 16250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16250.f,
- 16260.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16260.f, 16270.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16270.f, 16280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16280.f,
- 16290.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16290.f, 16300.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16300.f, 16310.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16310.f, 16320.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16320.f, 16330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16330.f,
- 16340.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16340.f, 16350.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16350.f, 16360.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16360.f,
- 16370.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16370.f, 16380.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16380.f, 16390.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16390.f, 16400.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16400.f, 16410.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16410.f,
- 16420.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16420.f, 16430.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16430.f, 16440.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16440.f,
- 16450.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16450.f, 16460.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16460.f, 16470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16470.f, 16480.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16480.f, 16490.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16490.f,
- 16500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16500.f, 16510.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16510.f, 16520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16520.f,
- 16530.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16530.f, 16540.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16540.f, 16550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16550.f, 16560.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16560.f, 16570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16570.f,
- 16580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16580.f, 16590.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16590.f, 16600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16600.f,
- 16610.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16610.f, 16620.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16620.f, 16630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16630.f, 16640.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16640.f, 16650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16650.f,
- 16660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16660.f, 16670.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16670.f, 16680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16680.f,
- 16690.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16690.f, 16700.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16700.f, 16710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16710.f, 16720.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16720.f, 16730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16730.f,
- 16740.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16740.f, 16750.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16750.f, 16760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16760.f,
- 16770.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16770.f, 16780.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16780.f, 16790.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16790.f, 16800.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16800.f, 16810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16810.f,
- 16820.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16820.f, 16830.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16830.f, 16840.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16840.f,
- 16850.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16850.f, 16860.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16860.f, 16870.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16870.f, 16880.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16880.f, 16890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16890.f,
- 16900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16900.f, 16910.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16910.f, 16920.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16920.f,
- 16930.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16930.f, 16940.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 16940.f, 16950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16950.f, 16960.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 16960.f, 16970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 16970.f,
- 16980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16980.f, 16990.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 16990.f, 1.7e4f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.7e4f, 17010.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 17010.f, 17020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 17020.f, 17030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17030.f, 17040.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 17040.f, 17050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 17050.f,
- 17060.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17060.f, 17070.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 17070.f, 17080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17080.f,
- 17090.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17090.f, 17100.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 17100.f, 17110.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17110.f, 17120.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 17120.f, 17130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 17130.f,
- 17140.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17140.f, 17150.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 17150.f, 17160.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17160.f,
- 17170.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17170.f, 17180.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 17180.f, 17190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17190.f, 17200.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 17200.f, 17210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 17210.f,
- 17220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17220.f, 17230.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 17230.f, 17240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17240.f,
- 17250.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17250.f, 17260.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 17260.f, 17270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17270.f, 17280.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 17280.f, 17290.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 17290.f,
- 17300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17300.f, 17310.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 17310.f, 17320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17320.f,
- 17330.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17330.f, 17340.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 17340.f, 17350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17350.f, 17360.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 17360.f, 17370.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 17370.f,
- 17380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17380.f, 17390.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 17390.f, 17400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17400.f,
- 17410.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17410.f, 17420.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 17420.f, 17430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17430.f, 17440.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 17440.f, 17450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 17450.f,
- 17460.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17460.f, 17470.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 17470.f, 17480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17480.f,
- 17490.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17490.f, 17500.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 17500.f, 17510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17510.f, 17520.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 17520.f, 17530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 17530.f,
- 17540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17540.f, 17550.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 17550.f, 17560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17560.f,
- 17570.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17570.f, 17580.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 17580.f, 17590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17590.f, 17600.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 17600.f, 17610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 17610.f,
- 17620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17620.f, 17630.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 17630.f, 17640.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17640.f,
- 17650.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17650.f, 17660.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 17660.f, 17670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17670.f, 17680.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 17680.f, 17690.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 17690.f,
- 17700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17700.f, 17710.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 17710.f, 17720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17720.f,
- 17730.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17730.f, 17740.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 17740.f, 17750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17750.f, 17760.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 17760.f, 17770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 17770.f,
- 17780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17780.f, 17790.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 17790.f, 17800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17800.f,
- 17810.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17810.f, 17820.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 17820.f, 17830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17830.f, 17840.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 17840.f, 17850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 17850.f,
- 17860.f
- };
-
- /* oxygen (15300 - 17870 cm-1) */
- for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
-} /* oxyg6 */
-
-void oxyg5 (float a[8], const long int inu)
-{
- static const float acr[2048] = { 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f, 12740.f, 12750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12750.f, 12760.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 12760.f, 12770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 12770.f, 12780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12780.f, 12790.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 12790.f, 12800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 12800.f,
-
- 12810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12810.f, 12820.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 12820.f, 12830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12830.f,
- 12840.f,
- 1.4615e-8f, .036385f, .0669f, -2.676e-4f, .064873f, -2.6352e-4f,
- 12840.f, 12850.f, 1.7551e-8f, .018194f, .063056f, -2.5222e-4f, .061029f,
- -2.4814e-4f, 12850.f, 12860.f, 5.5571e-8f, .034936f, .060516f,
- -2.4079e-4f, .058832f, -2.3863e-4f, 12860.f, 12870.f, 1.1652e-7f,
- .036823f, .057157f, -2.2751e-4f, .055426f, -2.2511e-4f, 12870.f,
-
- 12880.f, 2.2758e-7f, .037524f, .05406f, -2.1528e-4f, .052277f,
- -2.1261e-4f, 12880.f, 12890.f, 4.1844e-7f, .044301f, .051439f,
- -2.03e-4f, .050656f, -2.0073e-4f, 12890.f, 12900.f, 1.1196e-6f,
- .064417f, .048398f, -1.9212e-4f, .047119f, -1.8843e-4f, 12900.f,
- 12910.f, 1.3443e-6f, .056296f, .046024f, -1.7943e-4f, .045942f,
- -1.7773e-4f, 12910.f, 12920.f, 1.9719e-6f, .064603f, .044605f,
- -1.7094e-4f, .044515f, -1.7298e-4f, 12920.f, 12930.f, 2.6027e-6f,
- .060089f, .042943f, -1.6604e-4f, .04177f, -1.6646e-4f, 12930.f, 12940.f,
- 5.7954e-6f, .10762f, .040374f, -1.577e-4f, .038909f, -1.5614e-4f,
- 12940.f, 12950.f, 4.3014e-6f, .084704f, .042188f, -1.5762e-4f, .040357f,
- -1.5977e-4f, 12950.f, 12960.f, 7.9614e-6f, .097284f, .041471f,
- -1.6264e-4f, .038436f, -1.5588e-4f, 12960.f, 12970.f, 1.7998e-5f,
- .071534f, .03844f, -1.5372e-4f, .036186f, -1.4871e-4f, 12970.f, 12980.f,
- 2.7733e-5f, .06553f, .0349f, -1.3823e-4f, .034326f, -1.4018e-4f,
- 12980.f, 12990.f, 8.7111e-5f, .082142f, .031863f, -1.2227e-4f, .033009f,
- -1.3017e-4f, 12990.f, 1.3e4f, 5.9912e-5f, .064608f, .031064f,
- -1.1475e-4f, .036751f, -1.2672e-4f, 1.3e4f, 13010.f, 2.6987e-4f,
- .037736f, .026012f, -1.039e-4f, .024588f, -9.7152e-5f, 13010.f, 13020.f,
- 5.9914e-4f, .037261f, .022365f, -8.9458e-5f, .020337f, -8.5375e-5f,
- 13020.f, 13030.f, .0012384f, .038141f, .019f, -7.5998e-5f, .016972f,
- -7.1916e-5f, 13030.f, 13040.f, .0023802f, .03944f, .015907f,
- -6.3629e-5f, .01388f, -5.9546e-5f, 13040.f, 13050.f, .0078692f,
- .059793f, .01191f, -4.6882e-5f, .010043f, -4.3832e-5f, 13050.f, 13060.f,
- .014112f, .0632f, .0088039f, -3.4775e-5f, .0068655f, -3.1246e-5f,
- 13060.f, 13070.f, .01506f, .044198f, .0062748f, -2.5099e-5f, .0042475f,
- -2.1017e-5f, 13070.f, 13080.f, .019365f, .045501f, .0045529f,
- -1.8211e-5f, .0025253f, -1.4128e-5f, 13080.f, 13090.f, .035332f,
- .070599f, .0026881f, -1.0606e-5f, 6.7201e-4f, -6.6426e-6f, 13090.f,
- 13100.f, .032021f, .071785f, .0013302f, -5.2395e-6f, -7.0181e-4f,
- -1.1794e-6f, 13100.f, 13110.f, .020424f, .076507f, 3.4001e-4f,
- -1.3505e-6f, -.0017047f, 2.7972e-6f, 13110.f, 13120.f, .0083211f,
- .050488f, 6.3467e-5f, -2.5366e-7f, -.0019594f, 3.8105e-6f, 13120.f,
- 13130.f, .039472f, .095766f, 7.6617e-4f, -3.019e-6f, -.0012832f,
- 1.1287e-6f, 13130.f, 13140.f, .057473f, .11569f, .0028314f, -1.0907e-5f,
- 8.5516e-4f, -7.1029e-6f, 13140.f, 13150.f, .046463f, .16239f, .0072656f,
- -2.6424e-5f, .0059616f, -2.4138e-5f, 13150.f, 13160.f, .0070486f,
- .18365f, .016807f, -5.8784e-5f, .017894f, -6.4531e-5f, 13160.f, 13170.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13170.f, 13180.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13180.f, 13190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13190.f, 13200.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13200.f, 13210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 13210.f,
- 13220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13220.f, 13230.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 13230.f, 13240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13240.f,
- 13250.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13250.f, 13260.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13260.f, 13270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13270.f, 13280.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13280.f, 13290.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 13290.f,
- 13300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13300.f, 13310.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 13310.f, 13320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13320.f,
- 13330.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13330.f, 13340.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13340.f, 13350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13350.f, 13360.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13360.f, 13370.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 13370.f,
- 13380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13380.f, 13390.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 13390.f, 13400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13400.f,
- 13410.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13410.f, 13420.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13420.f, 13430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13430.f, 13440.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13440.f, 13450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 13450.f,
- 13460.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13460.f, 13470.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 13470.f, 13480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13480.f,
- 13490.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13490.f, 13500.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13500.f, 13510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13510.f, 13520.f, 0.f,
-
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13520.f, 13530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 13530.f,
- 13540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13540.f, 13550.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 13550.f, 13560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13560.f,
- 13570.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13570.f, 13580.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13580.f, 13590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13590.f, 13600.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13600.f, 13610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 13610.f,
- 13620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13620.f, 13630.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 13630.f, 13640.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13640.f,
- 13650.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13650.f, 13660.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13660.f, 13670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13670.f, 13680.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13680.f, 13690.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 13690.f,
- 13700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13700.f, 13710.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 13710.f, 13720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13720.f,
- 13730.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13730.f, 13740.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13740.f, 13750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13750.f, 13760.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13760.f, 13770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 13770.f,
- 13780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13780.f, 13790.f, 0.f, 0.f, 0.f,
-
- 0.f,
- 0.f, 0.f, 13790.f, 13800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13800.f,
- 13810.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13810.f, 13820.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13820.f, 13830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13830.f, 13840.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13840.f, 13850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 13850.f,
- 13860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13860.f, 13870.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 13870.f, 13880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13880.f,
- 13890.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13890.f, 13900.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13900.f, 13910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13910.f, 13920.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 13920.f, 13930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 13930.f,
- 13940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13940.f, 13950.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 13950.f, 13960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13960.f,
- 13970.f,
-
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13970.f, 13980.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 13980.f, 13990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13990.f, 1.4e4f, 0.f, 0.f,
- 0.f, 0.f, 0.f, 0.f, 1.4e4f, 14010.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 14010.f,
- 14020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14020.f, 14030.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 14030.f, 14040.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14040.f,
- 14050.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14050.f, 14060.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 14060.f, 14070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14070.f, 14080.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 14080.f, 14090.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 14090.f,
- 14100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14100.f, 14110.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 14110.f, 14120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14120.f,
- 14130.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14130.f, 14140.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 14140.f, 14150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14150.f, 14160.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 14160.f, 14170.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 14170.f,
- 14180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14180.f, 14190.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 14190.f, 14200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14200.f,
- 14210.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14210.f, 14220.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 14220.f, 14230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14230.f, 14240.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 14240.f, 14250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 14250.f,
- 14260.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14260.f, 14270.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 14270.f, 14280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14280.f,
- 14290.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14290.f, 14300.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 14300.f, 14310.f, 3.2848e-8f, .036386f, .053505f, -2.1402e-4f, .051477f,
- -2.0994e-4f, 14310.f, 14320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14320.f,
- 14330.f, 1.1021e-7f, .036386f, .048248f, -1.9299e-4f, .046221f,
- -1.8891e-4f, 14330.f, 14340.f, 3.4571e-7f, .036386f, .04326f,
- -1.7304e-4f, .041233f, -1.6896e-4f, 14340.f, 14350.f, 0.f, 0.f, 0.f, 0.f,
- 0.f, 0.f, 14350.f, 14360.f, 1.0131e-6f, .036386f, .03854f, -1.5416e-4f,
- .036513f, -1.5008e-4f, 14360.f, 14370.f, 2.7746e-6f, .036442f, .034089f,
- -1.3635e-4f, .032054f, -1.3222e-4f, 14370.f, 14380.f, 3.6059e-6f,
- .01824f, .02993f, -1.1971e-4f, .027892f, -1.1557e-4f, 14380.f, 14390.f,
- 3.4852e-6f, .018279f, .029884f, -1.1951e-4f, .027832f, -1.1527e-4f,
- 14390.f, 14400.f, 1.6898e-5f, .036461f, .026f, -1.0399e-4f, .023962f,
- -9.9845e-5f, 14400.f, 14410.f, 3.7525e-5f, .037306f, .022363f,
- -8.9448e-5f, .020327f, -8.5313e-5f, 14410.f, 14420.f, 7.7568e-5f,
- .038179f, .018999f, -7.5991e-5f, .016964f, -7.1868e-5f, 14420.f,
- 14430.f, 7.644e-5f, .019568f, .015927f, -6.3702e-5f, .013885f,
- -5.9534e-5f, 14430.f, 14440.f, 2.0947e-4f, .038957f, .014055f,
- -5.5384e-5f, .012236f, -5.2506e-5f, 14440.f, 14450.f, 3.5608e-4f,
- .040125f, .011458f, -4.5137e-5f, .0095851f, -4.1989e-5f, 14450.f,
- 14460.f, 5.6079e-4f, .041622f, .0091259f, -3.5944e-5f, .0072131f,
- -3.2578e-5f, 14460.f, 14470.f, 8.1523e-4f, .043384f, .0070608f,
- -2.7807e-5f, .0051286f, -2.4309e-5f, 14470.f, 14480.f, .0016639f,
- .067344f, .0050076f, -1.9758e-5f, .0030273f, -1.599e-5f, 14480.f,
- 14490.f, .0014146f, .046358f, .003106f, -1.2424e-5f, .0010767f,
- -8.3329e-6f, 14490.f, 14500.f, .0022165f, .071957f, .0016398f,
- -6.477e-6f, -3.8835e-4f, -2.4326e-6f, 14500.f, 14510.f, .0015542f,
- .07478f, 6.4291e-4f, -2.5306e-6f, -.0013922f, 1.5886e-6f, 14510.f,
- 14520.f, 3.1245e-4f, .026878f, 9.5018e-5f, -3.8003e-7f, -.0019316f,
- 3.6996e-6f, 14520.f, 14530.f, .0015805f, .097644f, 3.0344e-4f,
- -1.0773e-6f, -.0013616f, 5.954e-6f, 14530.f, 14540.f, .0044256f,
- .14544f, .0020504f, -7.4913e-6f, 6.2397e-4f, -9.5059e-7f, 14540.f,
- 14550.f, .0039335f, .29035f, .0078502f, -2.3749e-5f, .0080984f,
- -2.7655e-5f, 14550.f, 14560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14560.f,
- 14570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14570.f, 14580.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 14580.f, 14590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14590.f,
- 14600.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14600.f, 14610.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 14610.f, 14620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14620.f, 14630.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 14630.f, 14640.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 14640.f,
- 14650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14650.f, 14660.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 14660.f, 14670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14670.f,
- 14680.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14680.f, 14690.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 14690.f, 14700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14700.f, 14710.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 14710.f, 14720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 14720.f,
- 14730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14730.f, 14740.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 14740.f, 14750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14750.f,
- 14760.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14760.f, 14770.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 14770.f, 14780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14780.f, 14790.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 14790.f, 14800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 14800.f,
- 14810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14810.f, 14820.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 14820.f, 14830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14830.f,
- 14840.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14840.f, 14850.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 14850.f, 14860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14860.f, 14870.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 14870.f, 14880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 14880.f,
- 14890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14890.f, 14900.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 14900.f, 14910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14910.f,
- 14920.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14920.f, 14930.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 14930.f, 14940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14940.f, 14950.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 14950.f, 14960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 14960.f,
- 14970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14970.f, 14980.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 14980.f, 14990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14990.f, 1.5e4f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.5e4f, 15010.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 15010.f, 15020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15020.f, 15030.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 15030.f, 15040.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 15040.f,
- 15050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15050.f, 15060.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 15060.f, 15070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15070.f,
- 15080.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15080.f, 15090.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 15090.f, 15100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15100.f, 15110.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 15110.f, 15120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 15120.f,
- 15130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15130.f, 15140.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 15140.f, 15150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15150.f,
- 15160.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15160.f, 15170.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 15170.f, 15180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15180.f, 15190.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 15190.f, 15200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
-
- 15200.f,
- 15210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15210.f, 15220.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 15220.f, 15230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15230.f,
- 15240.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15240.f, 15250.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 15250.f, 15260.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15260.f, 15270.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 15270.f, 15280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 15280.f,
- 15290.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15290.f, 15300.f
- };
-
- /* oxygen (12740 - 15290 cm-1) */
- for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
-} /* oxyg5 */
-
-void
-oxyg4 (float a[8], const long int inu)
-{
-
-
- static const float acr[2048] = { 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f, 10180.f, 10190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10190.f, 10200.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 10200.f, 10210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 10210.f, 10220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10220.f, 10230.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 10230.f, 10240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 10240.f,
- 10250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10250.f, 10260.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 10260.f, 10270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10270.f,
- 10280.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10280.f, 10290.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 10290.f, 10300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10300.f, 10310.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 10310.f, 10320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 10320.f,
- 10330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10330.f, 10340.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 10340.f, 10350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10350.f,
- 10360.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10360.f, 10370.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 10370.f, 10380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10380.f, 10390.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 10390.f, 10400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 10400.f,
- 10410.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10410.f, 10420.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 10420.f, 10430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10430.f,
- 10440.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10440.f, 10450.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 10450.f, 10460.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10460.f, 10470.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 10470.f, 10480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 10480.f,
- 10490.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10490.f, 10500.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 10500.f, 10510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10510.f,
- 10520.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10520.f, 10530.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 10530.f, 10540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10540.f, 10550.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 10550.f, 10560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 10560.f,
- 10570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10570.f, 10580.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 10580.f, 10590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10590.f,
- 10600.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10600.f, 10610.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 10610.f, 10620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10620.f, 10630.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 10630.f, 10640.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 10640.f,
- 10650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10650.f, 10660.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 10660.f, 10670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10670.f,
- 10680.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10680.f, 10690.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 10690.f, 10700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10700.f, 10710.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 10710.f, 10720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 10720.f,
- 10730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10730.f, 10740.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 10740.f, 10750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10750.f,
- 10760.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10760.f, 10770.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 10770.f, 10780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10780.f, 10790.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 10790.f, 10800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 10800.f,
- 10810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10810.f, 10820.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 10820.f, 10830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10830.f,
- 10840.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10840.f, 10850.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 10850.f, 10860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10860.f, 10870.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 10870.f, 10880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 10880.f,
- 10890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10890.f, 10900.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 10900.f, 10910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10910.f,
- 10920.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10920.f, 10930.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 10930.f, 10940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10940.f, 10950.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 10950.f, 10960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 10960.f,
- 10970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10970.f, 10980.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 10980.f, 10990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10990.f, 1.1e4f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.1e4f, 11010.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 11010.f, 11020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11020.f, 11030.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 11030.f, 11040.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 11040.f,
- 11050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11050.f, 11060.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 11060.f, 11070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11070.f,
- 11080.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11080.f, 11090.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 11090.f, 11100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11100.f, 11110.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 11110.f, 11120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 11120.f,
- 11130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11130.f, 11140.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 11140.f, 11150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11150.f,
- 11160.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11160.f, 11170.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 11170.f, 11180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11180.f, 11190.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 11190.f, 11200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 11200.f,
- 11210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11210.f, 11220.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 11220.f, 11230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11230.f,
- 11240.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11240.f, 11250.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 11250.f, 11260.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11260.f, 11270.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 11270.f, 11280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 11280.f,
- 11290.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11290.f, 11300.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 11300.f, 11310.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11310.f,
- 11320.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11320.f, 11330.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 11330.f, 11340.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11340.f, 11350.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 11350.f, 11360.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 11360.f,
- 11370.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11370.f, 11380.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 11380.f, 11390.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11390.f,
- 11400.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11400.f, 11410.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 11410.f, 11420.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11420.f, 11430.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 11430.f, 11440.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 11440.f,
- 11450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11450.f, 11460.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 11460.f, 11470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11470.f,
- 11480.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11480.f, 11490.f, 2.485e-8f, .039407f,
- .053053f, -2.1221e-4f, .051025f, -2.0813e-4f, 11490.f, 11500.f,
- 1.1624e-7f, .079933f, .048686f, -1.9403e-4f, .046806f, -1.9088e-4f,
- 11500.f, 11510.f, 1.0964e-7f, .043304f, .045502f, -1.8201e-4f, .043474f,
- -1.7792e-4f, 11510.f, 11520.f, 2.5643e-7f, .066862f, .042844f,
- -1.7105e-4f, .040871f, -1.6735e-4f, 11520.f, 11530.f, 3.2105e-7f,
- .068728f, .040797f, -1.6299e-4f, .038797f, -1.5911e-4f, 11530.f,
- 11540.f, 3.5585e-7f, .071858f, .038944f, -1.557e-4f, .036916f,
- -1.5165e-4f, 11540.f, 11550.f, 2.4915e-7f, .074592f, .037957f,
- -1.5179e-4f, .035912f, -1.4766e-4f, 11550.f, 11560.f, 4.9923e-8f,
- .026857f, .037416f, -1.4966e-4f, .035388f, -1.4558e-4f, 11560.f,
- 11570.f, 2.5239e-7f, .096092f, .037615f, -1.5045e-4f, .035561f,
- -1.4627e-4f, 11570.f, 11580.f, 5.8358e-7f, .11778f, .039104f,
- -1.5615e-4f, .03708f, -1.5221e-4f, 11580.f, 11590.f, 4.8767e-7f,
- .11043f, .041978f, -1.6721e-4f, .04006f, -1.6392e-4f, 11590.f, 11600.f,
- 2.0866e-7f, .10009f, .046771f, -1.859e-4f, .045f, -1.8335e-4f, 11600.f,
- 11610.f, 6.2339e-8f, .091546f, .052598f, -2.0809e-4f, .051104f,
- -2.0723e-4f, 11610.f, 11620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11620.f,
- 11630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11630.f, 11640.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 11640.f, 11650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11650.f,
- 11660.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11660.f, 11670.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 11670.f, 11680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11680.f, 11690.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 11690.f, 11700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 11700.f,
- 11710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11710.f, 11720.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 11720.f, 11730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11730.f,
- 11740.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11740.f, 11750.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 11750.f, 11760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11760.f, 11770.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 11770.f, 11780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 11780.f,
- 11790.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11790.f, 11800.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 11800.f, 11810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11810.f,
- 11820.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11820.f, 11830.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 11830.f, 11840.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11840.f, 11850.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 11850.f, 11860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 11860.f,
- 11870.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11870.f, 11880.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 11880.f, 11890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11890.f,
- 11900.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11900.f, 11910.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 11910.f, 11920.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11920.f, 11930.f, 0.f,
-
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 11930.f, 11940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 11940.f,
- 11950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11950.f, 11960.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 11960.f, 11970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11970.f,
- 11980.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11980.f, 11990.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 11990.f, 1.2e4f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.2e4f, 12010.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 12010.f, 12020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12020.f,
- 12030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12030.f, 12040.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 12040.f, 12050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12050.f,
- 12060.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12060.f, 12070.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 12070.f, 12080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12080.f, 12090.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 12090.f, 12100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 12100.f,
- 12110.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12110.f, 12120.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 12120.f, 12130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12130.f,
- 12140.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12140.f, 12150.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 12150.f, 12160.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12160.f, 12170.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 12170.f, 12180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 12180.f,
- 12190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12190.f, 12200.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 12200.f, 12210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12210.f,
- 12220.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12220.f, 12230.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 12230.f, 12240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12240.f, 12250.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 12250.f, 12260.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 12260.f,
- 12270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12270.f, 12280.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 12280.f, 12290.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12290.f,
- 12300.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12300.f, 12310.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 12310.f, 12320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12320.f, 12330.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 12330.f, 12340.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 12340.f,
- 12350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12350.f, 12360.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 12360.f, 12370.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12370.f,
- 12380.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12380.f, 12390.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 12390.f, 12400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12400.f, 12410.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 12410.f, 12420.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 12420.f,
- 12430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12430.f, 12440.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 12440.f, 12450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12450.f,
- 12460.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12460.f, 12470.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 12470.f, 12480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12480.f, 12490.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 12490.f, 12500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 12500.f,
- 12510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12510.f, 12520.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 12520.f, 12530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12530.f,
- 12540.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12540.f, 12550.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 12550.f, 12560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12560.f, 12570.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 12570.f, 12580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 12580.f,
- 12590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12590.f, 12600.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 12600.f, 12610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12610.f,
- 12620.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12620.f, 12630.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 12630.f, 12640.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12640.f, 12650.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 12650.f, 12660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 12660.f,
- 12670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12670.f, 12680.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 12680.f, 12690.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12690.f,
- 12700.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12700.f, 12710.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 12710.f, 12720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12720.f, 12730.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 12730.f, 12740.f
- };
-
- /* oxygen (10180 - 12730 cm-1) */
- for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
-} /* oxyg4 */
-
-void
-oxyg3 (float a[8], const long int inu)
-{
- static const float acr[2048] = { 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f, 7620.f, 7630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7630.f, 7640.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 7640.f, 7650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7650.f,
- 7660.f, 5.4851e-9f, .018194f, .043239f, -1.7296e-4f, .041212f,
- -1.6888e-4f, 7660.f, 7670.f, 1.5945e-8f, .018194f, .03852f, -1.5408e-4f,
- .036492f, -1.5e-4f, 7670.f, 7680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7680.f,
- 7690.f, 4.3251e-8f, .018194f, .034069f, -1.3628e-4f, .032042f,
- -1.3219e-4f, 7690.f, 7700.f, 1.0929e-7f, .018194f, .029889f,
- -1.1956e-4f, .027862f, -1.1547e-4f, 7700.f, 7710.f, 2.5722e-7f,
- .018194f, .02598f, -1.0392e-4f, .023953f, -9.9839e-5f, 7710.f, 7720.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7720.f, 7730.f, 5.6266e-7f, .018194f,
- .022343f, -8.9371e-5f, .020315f, -8.5289e-5f, 7730.f, 7740.f,
- 1.1425e-6f, .01906f, .018977f, -7.591e-5f, .01695f, -7.1828e-5f, 7740.f,
- 7750.f, 2.1596e-6f, .022229f, .016034f, -6.2289e-5f, .015554f,
- -5.5716e-5f, 7750.f, 7760.f, 8.1892e-8f, .052034f, .039222f,
- -1.5556e-4f, .037572f, -1.5339e-4f, 7760.f, 7770.f, 3.9209e-6f,
- .032273f, .014036f, -4.6954e-5f, .015654f, -4.8384e-5f, 7770.f, 7780.f,
- 6.4421e-6f, .036427f, .011888f, -3.5835e-5f, .013496f, -4.0675e-5f,
- 7780.f, 7790.f, 1.1047e-5f, .055891f, .011375f, -2.6109e-5f, .013172f,
- -4.0967e-5f, 7790.f, 7800.f, 1.7987e-5f, .067558f, .010748f,
- -2.3562e-5f, .01137f, -3.8223e-5f, 7800.f, 7810.f, 9.8092e-6f, .038971f,
- .015905f, -6.3621e-5f, .013877f, -5.9532e-5f, 7810.f, 7820.f,
- 4.4018e-5f, .082997f, .0095499f, -3.1911e-5f, .0077993f, -3.2091e-5f,
- 7820.f, 7830.f, 7.0926e-5f, .086557f, .0076614f, -2.7697e-5f, .0055197f,
- -2.4447e-5f, 7830.f, 7840.f, 1.0119e-4f, .087824f, .0052157f,
- -1.9889e-5f, .00297f, -1.5277e-5f, 7840.f, 7850.f, 1.2386e-4f, .090123f,
- .0034834f, -1.2896e-5f, .0022642f, -3.5587e-6f, 7850.f, 7860.f,
- 1.3558e-4f, .14355f, .0025455f, 7.5114e-7f, .0043782f, 4.2838e-6f,
- 7860.f, 7870.f, 3.6155e-4f, .30611f, .00774f, -2.3164e-5f, .0072019f,
- -2.6289e-5f, 7870.f, 7880.f, 7.4132e-4f, .38505f, .0019206f,
- -6.4925e-6f, 1.9419e-5f, -3.3562e-6f, 7880.f, 7890.f, 2.6142e-4f,
- .099139f, 5.6355e-4f, -2.1878e-6f, -.0015085f, 2.0396e-6f, 7890.f,
- 7900.f, 3.3585e-4f, .12035f, .0017877f, -6.7625e-6f, -3.0147e-4f,
- -2.6201e-6f, 7900.f, 7910.f, 2.1797e-4f, .09124f, .0044856f,
- -1.7351e-5f, .0025121f, -1.3772e-5f, 7910.f, 7920.f, 1.8805e-4f,
- .12809f, .0061732f, -1.8626e-5f, .0047187f, -2.0003e-5f, 7920.f, 7930.f,
- 8.7414e-5f, .10246f, .0071283f, -9.5048e-6f, .0079366f, -2.5696e-5f,
- 7930.f, 7940.f, 5.0284e-5f, .070001f, .0058651f, -1.5881e-6f, .0099197f,
- -1.9259e-5f, 7940.f, 7950.f, 3.4484e-5f, .036136f, .0050423f,
- -1.3556e-5f, .0083314f, -2.9461e-6f, 7950.f, 7960.f, 2.508e-5f,
-
- .023597f, .0062798f, -2.4587e-5f, .0054199f, -1.4942e-5f, 7960.f,
- 7970.f, 1.7175e-5f, .021672f, .0082429f, -3.2972e-5f, .0062159f,
- -2.8891e-5f, 7970.f, 7980.f, 1.0919e-5f, .0208f, .010514f, -4.2054e-5f,
- .0084864f, -3.7973e-5f, 7980.f, 7990.f, 6.453e-6f, .019927f, .013058f,
- -5.2234e-5f, .011031f, -4.8151e-5f, 7990.f, 8e3f, 3.5484e-6f, .019493f,
- .015877f, -6.3508e-5f, .01385f, -5.9425e-5f, 8e3f, 8010.f, 1.8178e-6f,
- .01906f, .018969f, -7.5874e-5f, .016941f, -7.1792e-5f, 8010.f, 8020.f,
- 8.6808e-7f, .018194f, .022333f, -8.9332e-5f, .020306f, -8.525e-5f,
- 8020.f, 8030.f, 5.4731e-7f, .034766f, .027088f, -1.0685e-4f, .025457f,
- -1.0498e-4f, 8030.f, 8040.f, 6.2423e-8f, .018194f, .034057f,
- -1.3623e-4f, .03203f, -1.3215e-4f, 8040.f, 8050.f, 2.2644e-8f, .018194f,
- .038506f, -1.5403e-4f, .036479f, -1.4994e-4f, 8050.f, 8060.f,
- 7.6809e-9f, .018194f, .043225f, -1.729e-4f, .041198f, -1.6882e-4f,
- 8060.f, 8070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8070.f, 8080.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8080.f, 8090.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8090.f,
- 8100.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8100.f, 8110.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8110.f, 8120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8120.f, 8130.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8130.f, 8140.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8140.f,
- 8150.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8150.f, 8160.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8160.f, 8170.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8170.f, 8180.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8180.f, 8190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8190.f,
- 8200.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8200.f, 8210.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8210.f, 8220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8220.f, 8230.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8230.f, 8240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8240.f,
- 8250.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8250.f, 8260.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8260.f, 8270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8270.f, 8280.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8280.f, 8290.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8290.f,
- 8300.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8300.f, 8310.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8310.f, 8320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8320.f, 8330.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8330.f, 8340.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8340.f,
- 8350.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8350.f, 8360.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8360.f, 8370.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8370.f, 8380.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8380.f, 8390.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8390.f,
- 8400.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8400.f, 8410.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8410.f, 8420.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8420.f, 8430.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8430.f, 8440.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8440.f,
- 8450.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8450.f, 8460.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8460.f, 8470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8470.f, 8480.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8480.f, 8490.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8490.f,
- 8500.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8500.f, 8510.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8510.f, 8520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8520.f, 8530.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8530.f, 8540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8540.f,
- 8550.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8550.f, 8560.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8560.f, 8570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8570.f, 8580.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8580.f, 8590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8590.f,
- 8600.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8600.f, 8610.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8610.f, 8620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8620.f, 8630.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8630.f, 8640.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8640.f,
- 8650.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8650.f, 8660.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8660.f, 8670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8670.f, 8680.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8680.f, 8690.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8690.f,
- 8700.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8700.f, 8710.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8710.f, 8720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8720.f, 8730.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8730.f, 8740.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8740.f,
- 8750.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8750.f, 8760.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8760.f, 8770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8770.f, 8780.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8780.f, 8790.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8790.f,
- 8800.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8800.f, 8810.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8810.f, 8820.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8820.f, 8830.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8830.f, 8840.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8840.f,
- 8850.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8850.f, 8860.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8860.f, 8870.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8870.f, 8880.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8880.f, 8890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8890.f,
- 8900.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8900.f, 8910.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8910.f, 8920.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8920.f, 8930.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8930.f, 8940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8940.f,
- 8950.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8950.f, 8960.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 8960.f, 8970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8970.f, 8980.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 8980.f, 8990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8990.f, 9e3f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 9e3f, 9010.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 9010.f,
- 9020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9020.f, 9030.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 9030.f, 9040.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9040.f, 9050.f, 0.f,
-
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 9050.f, 9060.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9060.f,
- 9070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9070.f, 9080.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 9080.f, 9090.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9090.f, 9100.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 9100.f, 9110.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9110.f,
- 9120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9120.f, 9130.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 9130.f, 9140.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9140.f, 9150.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 9150.f, 9160.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9160.f,
- 9170.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9170.f, 9180.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 9180.f, 9190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9190.f, 9200.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 9200.f, 9210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9210.f,
- 9220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9220.f, 9230.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 9230.f, 9240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9240.f, 9250.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 9250.f, 9260.f, 2.9327e-8f, .020793f, .01052f,
- -4.2079e-5f, .0084925f, -3.7997e-5f, 9260.f, 9270.f, 4.284e-8f,
- .021659f, .0082482f, -3.2993e-5f, .0062209f, -2.8911e-5f, 9270.f,
- 9280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9280.f, 9290.f, 1.4493e-7f,
- .078959f,
- .011173f, -3.6086e-5f, .0098558f, -3.9242e-5f, 9290.f, 9300.f,
- 2.5005e-7f, .083955f, .0092831f, -3.2526e-5f, .0073578f, -3.1073e-5f,
- 9300.f, 9310.f, 2.7511e-7f, .065813f, .0069254f, -2.5251e-5f, .0046721f,
- -2.1357e-5f, 9310.f, 9320.f, 3.3929e-7f, .065167f, .0055165f,
- -2.0774e-5f, .0031412f, -1.5731e-5f, 9320.f, 9330.f, 7.3603e-7f,
- .092398f, .0037855f, -1.4891e-5f, .0017763f, -1.1006e-5f, 9330.f,
- 9340.f, 4.4813e-7f, .07935f, .0045127f, -2.4202e-6f, .0042176f,
- -9.3426e-6f, 9340.f, 9350.f, 1.4773e-6f, .2629f, .0066029f, -1.8761e-5f,
- .004739f, -1.8284e-5f, 9350.f, 9360.f, 3.6258e-6f, .35403f, .0024719f,
- -8.6417e-6f, 5.0685e-4f, -5.3198e-6f, 9360.f, 9370.f, 1.0885e-6f,
- .098959f, 2.798e-4f, -1.1056e-6f, -.0017654f, 3.0416e-6f, 9370.f,
- 9380.f, 1.6901e-6f, .12199f, .0012891f, -4.9557e-6f, -7.9138e-4f,
- -7.506e-7f, 9380.f, 9390.f, 1.6816e-6f, .13899f, .0035668f, -1.2886e-5f,
- .0015543f, -9.4945e-6f, 9390.f, 9400.f, 1.0341e-6f, .16279f, .0068719f,
- -1.996e-5f, .0057191f, -2.3184e-5f, 9400.f, 9410.f, 3.1773e-7f, .06436f,
- .0052558f, -2.7296e-6f, .0065364f, -1.6975e-5f, 9410.f, 9420.f,
- 2.0773e-7f, .023392f, .0030789f, -1.2316e-5f, .0010516f, -8.2335e-6f,
- 9420.f, 9430.f, 1.6613e-7f, .022959f, .0045253f, -1.8101e-5f, .0024979f,
- -1.4019e-5f, 9430.f, 9440.f, 1.2289e-7f, .022092f, .0062467f,
- -2.4987e-5f, .0042194f, -2.0905e-5f, 9440.f, 9450.f, 8.4168e-8f,
- .021659f, .0082429f, -3.2972e-5f, .0062156f, -2.8889e-5f, 9450.f,
- 9460.f, 8.5119e-8f, .040142f, .011444f, -4.5054e-5f, .0095711f,
- -4.1931e-5f, 9460.f, 9470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9470.f, 9480.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9480.f, 9490.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 9490.f, 9500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9500.f, 9510.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 9510.f, 9520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9520.f,
- 9530.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9530.f, 9540.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 9540.f, 9550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9550.f, 9560.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 9560.f, 9570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9570.f,
- 9580.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9580.f, 9590.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 9590.f, 9600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9600.f, 9610.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 9610.f, 9620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9620.f,
- 9630.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9630.f, 9640.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 9640.f, 9650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9650.f, 9660.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 9660.f, 9670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9670.f,
- 9680.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9680.f, 9690.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 9690.f, 9700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9700.f, 9710.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 9710.f, 9720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9720.f,
- 9730.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9730.f, 9740.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 9740.f, 9750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9750.f, 9760.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 9760.f, 9770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9770.f,
- 9780.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9780.f, 9790.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
-
- 9790.f, 9800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9800.f, 9810.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 9810.f, 9820.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9820.f,
- 9830.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9830.f, 9840.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 9840.f, 9850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9850.f, 9860.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 9860.f, 9870.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9870.f,
- 9880.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9880.f, 9890.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 9890.f, 9900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9900.f, 9910.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 9910.f, 9920.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9920.f,
- 9930.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9930.f, 9940.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 9940.f, 9950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9950.f, 9960.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 9960.f, 9970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9970.f,
- 9980.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9980.f, 9990.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 9990.f, 1e4f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1e4f, 10010.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 10010.f, 10020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10020.f,
- 10030.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10030.f, 10040.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 10040.f, 10050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10050.f, 10060.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 10060.f, 10070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 10070.f,
- 10080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10080.f, 10090.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 10090.f, 10100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10100.f,
- 10110.f,
- 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10110.f, 10120.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 0.f,
- 10120.f, 10130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10130.f, 10140.f, 0.f,
- 0.f,
- 0.f, 0.f, 0.f, 0.f, 10140.f, 10150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
- 10150.f,
- 10160.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10160.f, 10170.f, 0.f, 0.f, 0.f,
- 0.f,
- 0.f, 0.f, 10170.f, 10180.f
- };
-
- /* oxygen (7620 - 10170 cm-1) */
- for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
-} /* oxyg3 */
-
-
-void abstra (const AtmosModel& atms, const Altitude& alt,
- const float wl, const float xmus, const float xmuv,
- const float uw, const float uo3, float& uwus, float& uo3us,
- const float uwpl, const float uo3pl, const float uwusp,
- const float uo3usp, AbstraStruct& as )
-{
- // transmittance calculation for ozone, water vapor,
- // carbon dioxyde and oxygen.
-
- float tnu[10][3],a[8],rm[34],r2[34],r3[34],tp[34],rat[10];
- float rmpl[34],r2pl[34],r3pl[34],ratpl[10];
- float dtcont,utcont,ttcont;
- float v,te2,phi,psi,uu,u,up,uud,uut,uuu;
- float ud,ut,upd,upt,udp,updp,udtp,updtp;
- float ds2,uupl,upl,uppl,ah2o;
- float xh,xi,xd,ako3,test1,test2,test3,udt,atest;
- float updt,tt,y,utt,uptt,tn;
- float ds,te,roair;
- double ptest, ptest1;
- int iv,id,idgaz,inu = 0,n,nh;
-
- int ivli[6] = { 2500,5060,7620,10180,12740,15300 };
- float co3[102] = {
- 4.50e-03, 8.00e-03, 1.07e-02, 1.10e-02, 1.27e-02, 1.71e-02,
- 2.00e-02, 2.45e-02, 3.07e-02, 3.84e-02, 4.78e-02, 5.67e-02,
- 6.54e-02, 7.62e-02, 9.15e-02, 1.00e-01, 1.09e-01, 1.20e-01,
- 1.28e-01, 1.12e-01, 1.11e-01, 1.16e-01, 1.19e-01, 1.13e-01,
- 1.03e-01, 9.24e-02, 8.28e-02, 7.57e-02, 7.07e-02, 6.58e-02,
- 5.56e-02, 4.77e-02, 4.06e-02, 3.87e-02, 3.82e-02, 2.94e-02,
- 2.09e-02, 1.80e-02, 1.91e-02, 1.66e-02, 1.17e-02, 7.70e-03,
- 6.10e-03, 8.50e-03, 6.10e-03, 3.70e-03, 3.20e-03, 3.10e-03,
- 2.55e-03, 1.98e-03, 1.40e-03, 8.25e-04, 2.50e-04, 0. ,
- 0. , 0. , 5.65e-04, 2.04e-03, 7.35e-03, 2.03e-02,
- 4.98e-02, 1.18e-01, 2.46e-01, 5.18e-01, 1.02e+00, 1.95e+00,
- 3.79e+00, 6.65e+00, 1.24e+01, 2.20e+01, 3.67e+01, 5.95e+01,
- 8.50e+01, 1.26e+02, 1.68e+02, 2.06e+02, 2.42e+02, 2.71e+02,
- 2.91e+02, 3.02e+02, 3.03e+02, 2.94e+02, 2.77e+02, 2.54e+02,
- 2.26e+02, 1.96e+02, 1.68e+02, 1.44e+02, 1.17e+02, 9.75e+01,
- 7.65e+01, 6.04e+01, 4.62e+01, 3.46e+01, 2.52e+01, 2.00e+01,
- 1.57e+01, 1.20e+01, 1.00e+01, 8.80e+00, 8.30e+00, 8.60e+00
- };
-
- float cch2o[15] = {
- 0.00,0.19,0.15,0.12,0.10,
- 0.09,0.10,0.12,0.15,0.17,
- 0.20,0.24,0.28,0.33,0.00
- };
-
- as.dtwava = 1;
- as.utwava = 1;
- as.ttwava = 1;
- dtcont = 1;
- utcont = 1;
- ttcont = 1;
- as.dtozon = 1;
- as.utozon = 1;
- as.ttozon = 1;
- as.dtdica = 1;
- as.utdica = 1;
- as.ttdica = 1;
- as.dtoxyg = 1;
-
- as.utoxyg = 1;
- as.ttoxyg = 1;
- as.dtniox = 1;
- as.utniox = 1;
- as.ttniox = 1;
- as.dtmeth = 1;
- as.utmeth = 1;
- as.ttmeth = 1;
- as.dtmoca = 1;
- as.utmoca = 1;
- as.ttmoca = 1;
-
- for(int i = 0 ; i < 10; i++ )
- {
- rat[i] = 1;
- tnu[i][0] = 1;
- tnu[i][1] = 1;
- tnu[i][2] = 1;
- }
-
- if (atms.idatm == 0) return;
-
- if((xmus == 0.) || (xmuv == 0.))
- {
- fprintf(stderr, "Error on zenithal angle ( near 90 deg )\n");
- return;
- }
-
- /* constants determination */
- const float p0 = 1013.25f;
- const float g = 98.1f;
-
- const float t0 = 250.f;
-
- /* volumic mass in kilogrammes per m3 */
- ds = 0;
- te = 0;
- roair = 0;
- const float air = 0.028964 / 0.0224;
- const float roco2 = 0.044 / 0.0224;
- const float rmo2 = 0.032 / 0.0224;
- const float rmo3 = 0.048 / 0.0224;
- const float rmn2o = 0.044 / 0.0224;
- const float rmch4 = 0.016 / 0.0224;
- const float rmco = 0.028 / 0.0224;
-
- uwus = 1.424;
- uo3us = .344;
-
- if(atms.idatm == 8)
- {
- rat[0] = uw / uwus;
- rat[1] = 1;
- rat[2] = 1;
- rat[3] = uo3 / uo3us;
- rat[4] = 1;
- rat[5] = 1;
- rat[6] = 1;
- rat[7] = uw / uwus;
- rat[8] = uw / uwus;
- rat[9] = uw / uwus;
- }
-
- v = (float)(1e+04 / wl);
- iv = (int)(v / 5);
- iv = iv * 5;
- id = ((iv - 2500) / 10) / 256 + 1;
-
- for(idgaz = 1; idgaz <= 7; idgaz++)
- {
- if (id <= 6) inu = (iv - ivli[id-1]) / 10 + 1;
-
- bool to270 = false;
- switch(id)
- {
- case 1:
- {
- if(idgaz == 1) wava1(a,inu);
- if(idgaz == 2) dica1(a,inu);
- if(idgaz == 3) to270 = true;
- if(idgaz == 4) ozon1(a,inu);
- if(idgaz == 5) niox1(a,inu);
- if(idgaz == 6) meth1(a,inu);
- if(idgaz == 7) moca1(a,inu);
- break;
- }
- case 2:
- {
- if(idgaz == 1) wava2(a,inu);
- if(idgaz == 2) dica2(a,inu);
- if(idgaz == 3) to270 = true;
- if(idgaz == 4) to270 = true;
- if(idgaz == 5) niox2(a,inu);
- if(idgaz == 6) meth2(a,inu);
- if(idgaz == 7) moca2(a,inu);
- break;
- }
- case 3:
- {
- if(idgaz == 1) wava3(a,inu);
- if(idgaz == 2) dica3(a,inu);
- if(idgaz == 3) oxyg3(a,inu);
- if(idgaz == 4) to270 = true;
- if(idgaz == 5) niox3(a,inu);
- if(idgaz == 6) meth3(a,inu);
- if(idgaz == 7) moca3(a,inu);
- break;
- }
- case 4:
- {
- if(idgaz == 1) wava4(a,inu);
- if(idgaz == 2) to270 = true;
- if(idgaz == 3) oxyg4(a,inu);
- if(idgaz == 4) to270 = true;
- if(idgaz == 5) niox4(a,inu);
- if(idgaz == 6) meth4(a,inu);
- if(idgaz == 7) moca4(a,inu);
- break;
- }
- case 5:
- {
- if(idgaz == 1) wava5(a,inu);
- if(idgaz == 2) to270 = true;
- if(idgaz == 3) oxyg5(a,inu);
- if(idgaz == 4) to270 = true;
- if(idgaz == 5) niox5(a,inu);
- if(idgaz == 6) meth5(a,inu);
- if(idgaz == 7) moca5(a,inu);
- break;
- }
- case 6:
- {
- if(idgaz == 1) wava6(a,inu);
- if(idgaz == 2) to270 = true;
- if(idgaz == 3) oxyg6(a,inu);
- if(idgaz == 4) to270 = true;
- if(idgaz == 5) niox6(a,inu);
- if(idgaz == 6) meth6(a,inu);
- if(idgaz == 7) moca6(a,inu);
- break;
- }
- default: to270 = true;
- }
-
- if(to270) for(int i = 0; i < 8; i++) a[i] = 0;
-
- /* mixing ratio calculation for each gaseous constituents */
- int k;
- for(k = 0; k < 33; k++)
- {
- roair = air * 273.16f * atms.p[k] / (1013.25f * atms.t[k]);
- tp[k] = (atms.t[k] + atms.t[k + 1]) / 2.f;
- te = tp[k] - t0;
- te2 = te * te;
- phi = (float)exp(a[2] * te + a[3] * te2);
- psi = (float)exp(a[4] * te + a[5] * te2);
- if(idgaz == 1) rm[k] = atms.wh[k] / (roair * 1000);
- if(idgaz == 2) rm[k] = 3.3e-04f * roco2 / air;
- if(idgaz == 3) rm[k] = 0.20947f * rmo2 / air;
- if(idgaz == 4) rm[k] = atms.wo[k] / (roair * 1000);
- if(idgaz == 5) rm[k] = 310.e-09f * rmn2o / air;
- if(idgaz == 6) rm[k] = 1.72e-06f * rmch4 / air;
- if(idgaz == 7) rm[k] = 1.00e-09f * rmco / air;
- r2[k] = rm[k] * phi;
- r3[k] = rm[k] * psi;
- }
-
- uu = 0;
- u = 0;
- up = 0;
- uud = 0;
- uut = 0;
- uuu = 0;
- ud = 0;
- ut = 0;
- upd = 0;
- upt = 0;
- udp = 0;
- updp = 0;
- udtp = 0;
- updtp = 0;
-
- /* pressure scale integration sigma = atms.p / p0 */
- for(k = 1; k < 33; k++)
- {
- ds = (atms.p[k-1] - atms.p[k]) / atms.p[0];
- ds2 = (atms.p[k-1] * atms.p[k-1] - atms.p[k] * atms.p[k]) / (2 * atms.p[0] * p0);
- uu = uu + ((rm[k] + rm[k-1]) / 2) * ds * rat[idgaz-1];
- u = u + ((r2[k] + r2[k-1]) / 2) * ds * rat[idgaz-1];
- up = up + ((r3[k] + r3[k-1]) / 2) * ds2 * rat[idgaz-1];
- }
-
- uu = uu * atms.p[0] * 100 / g;
- u = u * atms.p[0] * 100 / g;
- up = up * atms.p[0] * 100 / g;
-
- if(idgaz == 4) uu = 1000 * uu / rmo3;
- if(idgaz == 2) uu = 1000 * uu / roco2;
- if(idgaz == 5) uu = 1000 * uu / rmn2o;
- if(idgaz == 6) uu = 1000 * uu / rmch4;
- if(idgaz == 7) uu = 1000 * uu / rmco;
-
- /* mixing ratio for plane calculation for each gaseous constituents */
- if ((alt.idatmp == 0) || (alt.idatmp == 4))
- {
- uupl = uu;
- upl = u;
- uppl = up;
- }
- else
- {
- int k;
- for(k = 0; k < 33; k++)
- {
- roair = air * 273.16f * alt.plane_sim.ppl[k] / (1013.25f * alt.plane_sim.tpl[k]);
- tp[k] = (alt.plane_sim.tpl[k] + alt.plane_sim.tpl[k + 1]) / 2;
- te = tp[k] - t0;
- te2 = te * te;
- phi = (float)exp(a[2] * te + a[3] * te2);
- psi = (float)exp(a[4] * te + a[5] * te2);
- if(idgaz == 1) rmpl[k] = alt.plane_sim.whpl[k] / (roair * 1000);
- if(idgaz == 2) rmpl[k] = 3.3e-04f * roco2 / air;
- if(idgaz == 3) rmpl[k] = 0.20947f * rmo2 / air;
- if(idgaz == 4) rmpl[k] = alt.plane_sim.wopl[k] / (roair * 1000);
- if(idgaz == 5) rmpl[k] = 310.e-09f * rmn2o / air;
- if(idgaz == 6) rmpl[k] = 1.72e-06f * rmch4 / air;
- if(idgaz == 7) rmpl[k] = 1.00e-09f * rmco / air;
- r2pl[k] = rmpl[k] * phi;
- r3pl[k] = rmpl[k] * psi;
- }
-
- uupl = 0;
- upl = 0;
- uppl = 0;
-
- /* update ratio plane */
- for(int i = 0; i < 10; i++) ratpl[i] = 1;
-
- if (alt.idatmp == 8)
- {
- ratpl[0] = uwpl / uwusp;
- ratpl[1] = 1;
- ratpl[2] = 1;
- ratpl[3] = uo3pl / uo3usp;
- ratpl[4] = 1;
- ratpl[5] = 1;
- ratpl[6] = 1;
- ratpl[7] = uwpl / uwusp;
- ratpl[8] = uwpl / uwusp;
- ratpl[9] = uwpl / uwusp;
- }
-
- /* pressure scale integration sigma = atms.p / p0 */
- /* * all gases*/
-
- for(k = 1; k < 33; k++)
- {
- ds = (alt.plane_sim.ppl[k-1] - alt.plane_sim.ppl[k]) / alt.plane_sim.ppl[0];
- ds2 = (alt.plane_sim.ppl[k-1] * alt.plane_sim.ppl[k-1] -
- alt.plane_sim.ppl[k] * alt.plane_sim.ppl[k]) /
- (2 * alt.plane_sim.ppl[0] * p0);
- uupl = uupl + ((rmpl[k] + rmpl[k-1]) / 2) * ds * ratpl[idgaz-1];
- upl = upl + ((r2pl[k] + r2pl[k-1]) / 2) * ds * ratpl[idgaz-1];
- uppl = uppl + ((r3pl[k] + r3pl[k-1]) / 2) * ds2 * ratpl[idgaz-1];
- }
-
- uupl = uupl * alt.plane_sim.ppl[0] * 100 / g;
- upl = upl * alt.plane_sim.ppl[0] * 100 / g;
- uppl = uppl * alt.plane_sim.ppl[0] * 100 / g;
-
- if(idgaz == 4) uupl = 1000 * uupl / rmo3;
- if(idgaz == 2) uupl = 1000 * uupl / roco2;
- if(idgaz == 5) uupl = 1000 * uupl / rmn2o;
- if(idgaz == 6) uupl = 1000 * uupl / rmch4;
- if(idgaz == 7) uupl = 1000 * uupl / rmco;
-
- } /* endif test atms.idatm = 0,4 */
-
- /* downward path */
- uud = uu / xmus;
- /* upward path */
- uuu = uupl / xmuv;
- /* total(down + up) path */
- uut = uu / xmus + uupl / xmuv;
-
- if((idgaz == 2 && iv > 9620) || (idgaz == 3 && iv > 15920))
- {
- tnu[idgaz-1][0] = 1;
- tnu[idgaz-1][1] = 1;
- tnu[idgaz-1][2] = 1;
- continue;
- }
-
- if(idgaz == 1 || idgaz == 4)
- {
- xi = 0;
- n = 0;
- xd = 0;
- if(!(iv < 2350 || iv > 3000))
-
- {
- xi = (v - 2350) / 50 + 1;
- nh = (int)(xi + 1.001f);
- xh = xi - float(nh);
- ah2o = cch2o[nh-1] + xh * (cch2o[nh-1]-cch2o[nh-2]);
- dtcont = (float)exp(-ah2o * uud);
- utcont = (float)exp(-ah2o * uuu);
- ttcont = (float)exp(-ah2o * uut);
- }
-
- if (!((idgaz == 1) || (iv < 13000)))
- {
- if(iv <= 23400) xi = (v - 13000) / 200 + 1;
- else if(iv >= 27500) xi = (v - 27500) / 500 + 57;
- else
- {
- tnu[3][0] = 1;
- tnu[3][1] = 1;
- tnu[3][2] = 1;
- break;
- }
-
- n = (int)(xi + 1.001);
- xd = xi-float(n);
- ako3 = co3[n-1] + xd * (co3[n-1] - co3[n-2]);
- test1 = ako3 * uud;
- test2 = ako3 * uuu;
- test3 = ako3 * uut;
-
- /* exponential overflow test */
-
- if(test1 > 86.0) test1 = 86.0;
- if(test2 > 86.0) test2 = 86.0;
- if(test3 > 86.0) test3 = 86.0;
-
- tnu[3][0] = (float)exp(-test1);
- tnu[3][1] = (float)exp(-test2);
- tnu[3][2] = (float)exp(-test3);
-
- continue;
- }
- }
-
- if(idgaz == 4 && iv > 3020) {
- tnu[idgaz-1][0] = 1;
- tnu[idgaz-1][1] = 1;
- tnu[idgaz-1][2] = 1;
- continue;
- }
-
- /* downward path */
- ud = u / xmus;
- upd = up / xmus;
- udt = ud;
- if(ud == 0 && upd == 0) udt = 1;
- tn = a[1] * upd / (2 * udt);
- atest = a[1];
- if (a[1] == 0 && a[0] == 0.) atest = 1;
- updt = upd;
- if(ud == 0 && upd == 0.) updt = 1;
- tt = 1 + 4 * (a[0] / atest) * ((ud * ud) / updt);
- y = (float)(-tn * (sqrt(tt) - 1));
- if(idgaz == 1) y = (float)(-a[0] * ud / sqrt(1 + (a[0] / atest) * (ud * ud / updt)));
- tnu[idgaz-1][0] = (float)exp(y);
-
-
- /* upward path modified to take account for plane content */
- udp = upl / xmuv;
- updp = uppl / xmuv;
- udtp = udp;
- if(udp == 0 && updp == 0.) udtp = 1;
- tn = a[1] * updp / (2 * udtp);
- atest = a[1];
- if (a[1] == 0 && a[0] == 0.) atest = 1;
- updtp = updp;
- if(udp == 0 && updp == 0.) updtp = 1;
- tt = 1 + 4 * (a[0] / atest) * ((udp * udp) / updtp);
- y = (float)(-tn * (sqrt(tt) - 1));
- if(idgaz == 1) y = (float)(-a[0] * udp / sqrt(1 + (a[0] / atest) * (udp * udp / updtp)));
- tnu[idgaz-1][1] = (float)exp(y);
-
- /* total(down + up) path modified on the way up */
- ut = u / xmus + upl / xmuv;
- upt = up / xmus + uppl / xmuv;
- utt = ut;
- if(ut == 0 && upt == 0.) utt = 1;
- tn = a[1] * upt / (2 * utt);
- uptt = upt;
- if(ut == 0 && upt == 0.) uptt = 1;
- tt = 1 + 4 * (a[0] / atest) * ((ut * ut) / uptt);
- y = (float)(-tn * (sqrt(tt) - 1));
- if(idgaz == 1) y = (float)(-a[0] * ut / sqrt(1 + (a[0] / atest) * (ut * ut / uptt)));
- tnu[idgaz-1][2] = (float)exp(y);
- }
-
- ptest1 = tnu[0][0] * dtcont;
- ptest = ptest1;
- if (ptest > 1e-10) as.dtwava = (float)ptest;
- else as.dtwava = 0;
-
- ptest1 = tnu[0][1] * utcont;
- ptest = ptest1;
-
- if (ptest > 1e-10) as.utwava = (float)ptest;
- else as.utwava = 0;
-
- ptest1 = tnu[0][2] * ttcont;
- ptest = ptest1;
-
- if (ptest > 1e-10) as.ttwava = (float)ptest;
- else as.ttwava = 0;
-
- as.dtdica = tnu[1][0];
- as.utdica = tnu[1][1];
- as.ttdica = tnu[1][2];
- as.dtoxyg = tnu[2][0];
- as.utoxyg = tnu[2][1];
- as.ttoxyg = tnu[2][2];
- as.dtozon = tnu[3][0];
- as.utozon = tnu[3][1];
- as.ttozon = tnu[3][2];
- as.dtniox = tnu[4][0];
- as.utniox = tnu[4][1];
- as.ttniox = tnu[4][2];
- as.dtmeth = tnu[5][0];
- as.utmeth = tnu[5][1];
- as.ttmeth = tnu[5][2];
- as.dtmoca = tnu[6][0];
- as.utmoca = tnu[6][1];
- as.ttmoca = tnu[6][2];
-
- if (alt.idatmp == 0)
- {
- as.ttwava = as.dtwava;
- as.utwava = 1;
- as.ttdica = as.dtdica;
- as.utdica = 1;
- as.ttoxyg = as.dtoxyg;
- as.utoxyg = 1;
- as.ttozon = as.dtozon;
- as.utozon = 1;
- as.ttniox = as.dtniox;
- as.utniox = 1;
- as.ttmeth = as.dtmeth;
- as.utmeth = 1;
- as.ttmoca = as.dtmoca;
- as.utmoca = 1;
- }
-}
Deleted: grass/trunk/imagery/i.atcorr/Abstra.h
===================================================================
--- grass/trunk/imagery/i.atcorr/Abstra.h 2014-06-09 08:51:29 UTC (rev 60762)
+++ grass/trunk/imagery/i.atcorr/Abstra.h 2014-06-09 09:12:09 UTC (rev 60763)
@@ -1,44 +0,0 @@
-#ifndef ABSTRA_H
-#define ABSTRA_H
-
-struct AbstraStruct
-{
- float dtwava; /* downward absorption water vapor dtwava */
- float dtozon; /* downward absorption ozone dtozon */
- float dtdica; /* downward absorption carbon diox dtdica */
- float dtoxyg; /* downward absorption oxygen dtoxyg */
- float dtniox; /* downward absorption nitrous oxi dtniox */
- float dtmeth; /* downward absorption methane dtmeth */
- float dtmoca; /* downward absorption carbon mono dtmoca */
- float utwava; /* upward absorption water vapor utwava */
- float utozon; /* upward absorption ozone utozon */
- float utdica; /* upward absorption carbon diox utdica */
- float utoxyg; /* upward absorption oxygen utoxyg */
- float utniox; /* upward absorption nitrous oxi utniox */
- float utmeth; /* upward absorption methane utmeth */
- float utmoca; /* upward absorption carbon mono utmoca */
- float ttwava; /* total(on the two paths ) absorption water vapor ttwava */
- float ttozon; /* total(on the two paths ) absorption ozone ttozon */
- float ttdica; /* total(on the two paths ) absorption carbon diox ttdica */
- float ttoxyg; /* total(on the two paths ) absorption oxygen ttoxyg */
- float ttniox; /* total absorption nitrous oxi ttniox */
- float ttmeth; /* total absorption methane ttmeth */
- float ttmoca; /* total absorption carbon mono ttmoca */
-};
-
-struct AtmosModel;
-struct Altitude;
-
-/*
-To compute the gaseous transmittance between 0.25 and 4 mm for downward,
-upward and total paths. We consider the six gases (O2, CO2, H 2O, O3, N 2O and CH4) separately.
-The total transmission is put equal to the simple product of each ones. The spectral resolution is
-equal to 10 cm-1.
-iinf*/
-void abstra (const AtmosModel& atms, const Altitude& alt,
- const float wl, const float xmus, const float xmuv,
- const float uw, const float uo3, float& uwus, float& uo3us,
- const float uwpl, const float uo3pl, const float uwusp,
- const float uo3usp, AbstraStruct& as );
-
-#endif /* ABSTRA_H */
Deleted: grass/trunk/imagery/i.atcorr/AerosolConcentration.cpp
===================================================================
--- grass/trunk/imagery/i.atcorr/AerosolConcentration.cpp 2014-06-09 08:51:29 UTC (rev 60762)
+++ grass/trunk/imagery/i.atcorr/AerosolConcentration.cpp 2014-06-09 09:12:09 UTC (rev 60763)
@@ -1,142 +0,0 @@
-#include "AerosolConcentration.h"
-#include "AtmosModel.h"
-#include "common.h"
-
-/**********************************************************************c
-c aerosol model (concentration) c
-c ---------------------------- c
-c c
-c c
-c v if you have an estimate of the meteorological c
-c parameter: the visibility v, enter directly the c
-c value of v in km (the aerosol optical depth will c
-c be computed from a standard aerosol profile) c
-
-c c
-c v=0, taer55 if you have an estimate of aerosol optical depth , c
-c enter v=0 for the visibility and enter the aerosol c
-c optical depth at 550 c
-c c
-c v=-1 warning: if iaer=0, enter v=-1 c
-c c
-c**********************************************************************/
-void AerosolConcentration::parse(const long int _iaer, const AtmosModel& atms)
-{
- iaer = _iaer;
-
- taer55 = 0.f;
- cin >> v;
- cin.ignore(numeric_limits<int>::max(),'\n'); /* ignore comments */
-
- if(v == 0)
- {
- cin >> taer55;
- cin.ignore(numeric_limits<int>::max(),'\n'); /* ignore comments */
- v = (float)(exp(-log(taer55/2.7628f)/0.79902f));
- }
- else if(v > 0) oda550(v, atms);
-}
-
-void AerosolConcentration::oda550(const float v, const AtmosModel& atms)
-{
- /* aerosol optical depth at wl=550nm */
- /* vertical repartition of aerosol density for v=23km */
- /* ( in nbr of part/cm3 ) */
- static const float an23[34] = {
- 2.828e+03,1.244e+03,5.371e+02,2.256e+02,1.192e+02,
- 8.987e+01,6.337e+01,5.890e+01,6.069e+01,5.818e+01,
- 5.675e+01,5.317e+01,5.585e+01,5.156e+01,5.048e+01,
- 4.744e+01,4.511e+01,4.458e+01,4.314e+01,3.634e+01,
- 2.667e+01,1.933e+01,1.455e+01,1.113e+01,8.826e+00,
- 7.429e+00,2.238e+00,5.890e-01,1.550e-01,4.082e-02,
- 1.078e-02,5.550e-05,1.969e-08,0.000e+00
- };
-
-
- /* vertical repartition of aerosol density for v=5km */
- /* ( in nbr of part/cm3 ) */
- static const float an5[34] = {
- 1.378e+04,5.030e+03,1.844e+03,6.731e+02,2.453e+02,
- 8.987e+01,6.337e+01,5.890e+01,6.069e+01,5.818e+01,
- 5.675e+01,5.317e+01,5.585e+01,5.156e+01,5.048e+01,
- 4.744e+01,4.511e+01,4.458e+01,4.314e+01,3.634e+01,
- 2.667e+01,1.933e+01,1.455e+01,1.113e+01,8.826e+00,
- 7.429e+00,2.238e+00,5.890e-01,1.550e-01,4.082e-02,
- 1.078e-02,5.550e-05,1.969e-08,0.000e+00
- };
-
- taer55 = 0;
- if(fabs(v) <= 0) return;
- if(iaer == 0) return;
-
- for(int k = 0; k < 32; k++)
- {
- float dz = atms.z[k+1] - atms.z[k];
- float az = (115.f / 18.f) * (an5[k] - an23[k]);
- float az1 = (115.f / 18.f) * (an5[k+1] - an23[k+1]);
-
- float bz = (5.f * an5[k] / 18.f) - (23.f * an23[k] / 18.f);
- float bz1 = (5.f * an5[k+1] / 18.f) - (23.f * an23[k+1] / 18.f);
-
- float bnz = az / v - bz;
- float bnz1 = az1 / v - bz1;
-
- float ev = (float)(dz * exp((log(bnz) + log(bnz1)) / 2));
- taer55 += ev * sigma * 1.0e-03f;
- }
-}
-
-void AerosolConcentration::print()
-{
- /* --- aerosol model (concentration) ---- */
- Output::Begin();
- Output::End();
- if(iaer == 0) return;
-
- Output::Begin();
- Output::Repeat(10, ' ');
- Output::Print(" optical condition identity :");
- Output::End();
- if(fabs(v) <= xacc)
- {
- Output::Begin();
- Output::Repeat(15, ' ');
- Output::Print(" user def. opt. thick. at 550nm :");
- ostringstream s;
- s.setf(ios::fixed, ios::floatfield);
- s << setprecision(4);
- s << setw(11) << taer55 << ends;
- Output::Print(s.str());
- Output::End();
- }
- else
- {
- Output::Begin();
- Output::Repeat(15, ' ');
- Output::Print(" visibility :");
- ostringstream s1;
- s1.setf(ios::fixed, ios::floatfield);
- s1 << setprecision(2);
- s1 << setw(8) << v << ends;
- Output::Print(s1.str());
- Output::Print(" km opt. thick. 550nm :");
- ostringstream s2;
- s2.setf(ios::fixed, ios::floatfield);
- s2 << setprecision(4);
- s2 << setw(9) << taer55 << ends;
- Output::Print(s2.str());
- Output::End();
- }
-
- Output::Begin();
- Output::End();
-}
-
-
-AerosolConcentration AerosolConcentration::Parse(const long int iaer, const AtmosModel& atms)
-{
- AerosolConcentration aerocon;
- aerocon.parse(iaer, atms);
- return aerocon;
-}
-
Deleted: grass/trunk/imagery/i.atcorr/AerosolConcentration.h
===================================================================
--- grass/trunk/imagery/i.atcorr/AerosolConcentration.h 2014-06-09 08:51:29 UTC (rev 60762)
+++ grass/trunk/imagery/i.atcorr/AerosolConcentration.h 2014-06-09 09:12:09 UTC (rev 60763)
@@ -1,51 +0,0 @@
-/***************************************************************************
- AerosolConcentration.h - description
- -------------------
- begin : Mon Jan 13 2003
- copyright : (C) 2003 by Christo Zietsman
- email : 13422863 at sun.ac.za
- ***************************************************************************/
-
-#ifndef AEROSOLCONCENTRATION_H
-#define AEROSOLCONCENTRATION_H
-
-/**********************************************************************c
-c aerosol model (concentration) c
-c ---------------------------- c
-c c
-c c
-c v if you have an estimate of the meteorological c
-c parameter: the visibility v, enter directly the c
-c value of v in km (the aerosol optical depth will c
-c be computed from a standard aerosol profile) c
-
-c c
-c v=0, taer55 if you have an estimate of aerosol optical depth , c
-c enter v=0 for the visibility and enter the aerosol c
-c optical depth at 550 c
-c c
-c v=-1 warning: if iaer=0, enter v=-1 c
-c c
-c**********************************************************************/
-struct AtmosModel;
-
-struct AerosolConcentration
-{
- /* aerosol concentration parameters */
- float taer55;
-
-private:
- long int iaer;
- float v;
- void parse(const long int iaer, const AtmosModel &atms);
- void oda550(const float v, const AtmosModel &atms);
-
-public:
- /* Set the visibility, this will overide any previous estimates of taer55 */
- void set_visibility (const float vis, const AtmosModel &atms) { if(vis > 0) oda550(vis, atms); }
- void print();
- static AerosolConcentration Parse(const long int iaer, const AtmosModel &atms);
-};
-
-#endif /* AEROSOLCONCENTRATION_H */
-
Deleted: grass/trunk/imagery/i.atcorr/AerosolModel.cpp
===================================================================
--- grass/trunk/imagery/i.atcorr/AerosolModel.cpp 2014-06-09 08:51:29 UTC (rev 60762)
+++ grass/trunk/imagery/i.atcorr/AerosolModel.cpp 2014-06-09 09:12:09 UTC (rev 60763)
@@ -1,1169 +0,0 @@
-extern "C" {
-#include <grass/gis.h>
-#include <grass/glocale.h>
-}
-
-#include "common.h"
-#include "AerosolModel.h"
-#include "AtmosModel.h"
-#ifdef WIN32
-#pragma warning(disable:4305) /* disable warning about initialization of a float by a double */
-#endif /* WIN32 */
-
-/* (background desert model...) */
-void AerosolModel::bdm()
-{
- sixs_aerbas.ph = &sixs_aerbas.bdm_ph;
-}
-
-/* (biomass burning model...) */
-void AerosolModel::bbm()
-{
- sixs_aerbas.ph = &sixs_aerbas.bbm_ph;
-}
-
-/* (stratospherique aerosol model...) */
-void AerosolModel::stm()
-{
- sixs_aerbas.ph = &sixs_aerbas.stm_ph;
-}
-
-/* dust model */
-void AerosolModel::dust()
-{
- sixs_aerbas.ph = &(sixs_aerbas.dust_ph);
-}
-
-/* water model */
-void AerosolModel::wate()
-{
- sixs_aerbas.ph = &(sixs_aerbas.wate_ph);
-}
-
-/* ocean model */
-void AerosolModel::ocea()
-{
- sixs_aerbas.ph = &sixs_aerbas.ocea_ph;
-}
-
-/* soot model */
-void AerosolModel::soot()
-{
- sixs_aerbas.ph = &sixs_aerbas.soot_ph;
-}
-
-/* (user defined model from size distribution) */
-/* To compute, using the scattering of electromagnetic waves by a homogeneous
- isotropic sphere, the physical properties of particles whose sizes are
- comparable to or larger than the wavelength, and to generate mixture of
- dry particles. */
-void AerosolModel::mie(float (&ex)[4][10], float (&sc)[4][10], float (&asy)[4][10])
-{
- double np[4];
- double ext[10][4];
- double sca[10][4];
- double p1[10][4][83];
-
- const double rmul = 0.99526231496887960135245539673954; /*rlogpas = 0.030; (10**rlogpas-1.D+00)*/
-
- int i;
- for(i = 0; i < mie_in.icp; i++)
- {
-
-
-
- np[i] = 0;
- for(int j = 0; j < 10; j++)
- {
- ex[i][j] = 0;
- sc[i][j] = 0;
- ext[j][i] = 0;
- sca[j][i] = 0;
- for(int k = 0; k < 83; k++) p1[j][i][k] = 0;
- }
- }
-
- double r;
- double dr;
- double nr = 0;
- /* LOOPS ON THE NUMBER OF PARTICLE TYPE (4 max) */
- for(i = 0; i < mie_in.icp; i++)
- {
- r = mie_in.rmin;
- dr = r*rmul;
-
- /* LOOPS ON THE RADIUS OF THE PARTICLE */
- do {
-
- /* call of the size distribution nr. For our computation, we need dn/dr for */
- /* all functions except for sun-photometer inputs for which we need dV/dlog(r) */
-
- switch(iaer-7)
- {
- case 1:
- {
- /* --- Mixture of particles (Log-Normal distribution functions, up to 5)*/
- const double sqrt2PI = 2.506628274631000502415765284811;
- const double ln10 = 2.3025850929940456840179914546844;
- double log10_x2 = log10(mie_in.x2[i]);
- double sq = log10(r/mie_in.x1[i])/log10_x2;
- nr = exp(-0.5*sq*sq);
- nr /= sqrt2PI * log10_x2 * ln10 * r;
- break;
- }
- case 2:
- {
- /* --- Modified Gamma distribution function */
- const double ldexp = -300.;
- double arg=-mie_in.x2[i]*pow(r,(double)mie_in.x3[i]);
- if(arg > ldexp) nr = pow(r,(double)mie_in.x1[i])*exp(arg);
- else nr = 0;
- break;
- }
- case 3:
- {
- /* --- Junge power-law function */
- nr = pow(0.1,-(double)mie_in.x1[i]);
- if(r > 0.1) nr = pow(r,-(double)mie_in.x1[i]);
- break;
- }
- case 4:
- {
- /* --- from sun photometer */
- nr = 0;
- for(int j = 1; j < mie_in.irsunph; j++)
- if((r-mie_in.rsunph[j]) < 0.000001)
- {
- nr = (r - mie_in.rsunph[j-1])/(mie_in.rsunph[j]-mie_in.rsunph[j-1]);
- nr = mie_in.nrsunph[j-1] + nr*(mie_in.nrsunph[j] - mie_in.nrsunph[j-1]);
- break;
- }
- }
- }
-
- /* The Mie's calculations have to be called several times (min=2, max=10 for
- each type of particle): at wavelengths bounding the range of the selected
- wavelengths,and at 0.550 microns to normalized the extinction coefficient
- (if it's not in the selected range of wavelengths). */
-
- double xndpr2 = nr * dr * M_PI * (r * r);
- /* relatif number of particle for each type of particle (has to be equal to 1) */
- np[i]+= nr * dr;
-
- for(int j = 0; j < 10; j++)
- {
- if( (xndpr2*mie_in.cij[i]) < (1e-8 / sqrt(sixs_disc.wldis[j])) ) break;
-
- double alpha = 2. * M_PI * r / sixs_disc.wldis[j];
- double Qext, Qsca;
- double p11[83];
- exscphase(alpha, mie_in.rn[j][i], mie_in.ri[j][i], Qext, Qsca, p11);
- ext[j][i] += xndpr2 * Qext;
- sca[j][i] += xndpr2 * Qsca;
-
- /* phase function for each type of particle */
- for(int k = 0; k < 83; k++) p1[j][i][k] += p11[k]*xndpr2;
- }
-
- r += dr;
- dr = r * rmul;
- } while (r < mie_in.rmax);
- }
-
-
- /* NOW WE MIXTE THE DIFFERENT TYPES OF PARTICLE
- computation of the scattering and extinction coefficients. We first start
- at 0.550 micron (the extinction coefficient is normalized at 0.550 micron) */
- int j;
- for(j = 0; j < 10; j++)
- for(int i = 0; i < mie_in.icp; i++)
- {
- ext[j][i] /= np[i] * 1000;
- sca[j][i] /= np[i] * 1000;
- ex[0][j] += (float)(mie_in.cij[i] * ext[j][i]);
- sc[0][j] += (float)(mie_in.cij[i] * sca[j][i]);
- }
-
- /* computation of the phase function and the asymetry coefficient
- of the mixture of particles */
-
- for(j = 0; j < 10; j++)
- {
- double asy_n = 0;
- double asy_d = 0;
-
- for(int k = 0; k < 83; k++)
- {
- sixs_aerbas.usr_ph[j][k] = 0;
- for(int i = 0; i < mie_in.icp; i++)
- sixs_aerbas.usr_ph[j][k] += (float)(mie_in.cij[i] * p1[j][i][k] / np[i] / 1000);
-
- sixs_aerbas.usr_ph[j][k] += (float)sc[0][j];
- asy_n += sixs_sos.cgaus[k] * sixs_aerbas.usr_ph[j][k] * sixs_sos.pdgs[k] / 10.;
- asy_d += sixs_aerbas.usr_ph[j][k] * sixs_sos.pdgs[k] / 10.;
- }
-
- asy[0][j] = (float)(asy_n / asy_d);
- }
-
- sixs_aerbas.ph = &sixs_aerbas.usr_ph;
-}
-
-/***************************************************************************
- Using the Mie's theory, this subroutine compute the scattering and
- extinction efficiency factors (usually written Qsca and Qext) and it also
- compute the scattering intensity efficiency
-***************************************************************************/
-void AerosolModel::exscphase(const double X, const double nr,
- const double ni, double& Qext,
- double& Qsca, double (&p11)[83])
-{
- double Ren=nr/(nr*nr+ni*ni);
- double Imn=ni/(nr*nr+ni*ni);
-
- /* ---Identification of the greater order of computation (=mu)
- as defined by F.J. Corbato, J. Assoc. Computing Machinery, 1959,
- 6, 366-375 */
- int N=int(0.5*(-1+sqrt(1+4*X*X)))+1;
- if (N == 1) N = 2;
-
- int mu2 = 1000000;
- double Up = 2 * X / (2 * N + 1);
- int mu1 = int(N + 30. * (0.1 + 0.35 * Up * (2. - Up * Up) / 2 / (1 - Up)));
- int Np = int(X - 0.5 * sqrt(30. * 0.35 * X));
-
- if(Np > N)
- {
- Up = 2 * X / (2 * Np + 1);
- mu2 = int(Np + 30. * (0.1 + 0.35 * Up * (2 - Up * Up)/ 2 / (1 - Up)));
- }
-
- int mu = (mu1 < mu2) ? mu1 : mu2; /* min(mu1, mu2) */
-
- /* --- Identification of the transition line. Below this line the Bessel
- function j behaves as oscillating functions. Above the behavior
- becomes monotonic. We start at a order greater than this transition
- line (order max=mu) because a downward recursion is called for. */
-
- double Rn[10001], xj[10001];
- int k = mu + 1;
-
- Rn[mu] = 0;
- int mub;
- while(true)
- {
- k--;
- xj[k] = 0;
- Rn[k-1] = X / (2 * k + 1 - X * Rn[k]);
-
- if ( k == 2)
- {
- xj[mu + 1] = 0;
- xj[mu] = 1;
- mub = mu;
- break;
- }
-
- if(Rn[k-1] > 1)
- {
- xj[k] = Rn[k-1];
- xj[k-1] = 1;
- mub = k - 1;
- break;
- }
- }
-
- for(k = mub; k >= 1; k--) xj[k-1] = (2 * k + 1) * xj[k] / X - xj[k+1];
- double coxj = xj[0] - X * xj[1] * cos(X) + X * xj[0] * sin(X);
-
- /* --- Computation Dn(alpha) and Dn(alpha*m) (cf MIE's theory)
- downward recursion - real and imaginary parts */
-
- double RDnY[10001];
- double IDnY[10001];
- double RDnX[10001];
- RDnY[mu] = 0;
- IDnY[mu] = 0;
- RDnX[mu] = 0;
-
-
- for(k = mu; k >= 1; k--)
- {
- RDnX[k-1] = k / X - 1 / (RDnX[k] + k / X);
- double XnumRDnY = RDnY[k] + Ren * k / X;
- double XnumIDnY = IDnY[k] + Imn * k / X;
- double XdenDnY = XnumRDnY * XnumRDnY + XnumIDnY * XnumIDnY;
- RDnY[k-1] = k * Ren / X - XnumRDnY / XdenDnY;
- IDnY[k-1] = k * Imn / X + XnumIDnY / XdenDnY;
- }
-
- /* --- Initialization of the upward recursions
- macro to help keep indexing correct, can't be to safe */
-#define INDEX(X) ((X)+1)
- double xy[10002];
- xy[INDEX(-1)] = sin(X) / X;
- xy[INDEX(0)] = -cos(X) / X;
-
- double RGnX[10001];
- double IGnX[10001];
- RGnX[0] = 0;
- IGnX[0] = -1;
- Qsca = 0;
- Qext = 0;
-
- double RAn[10001];
- double IAn[10001];
- double RBn[10001];
- double IBn[10001];
-
- for(k = 1; k <= mu; k++)
- {
- if (k <= mub) xj[k] /= coxj;
- else xj[k] = Rn[k-1] * xj[k-1];
-
- /* --- Computation of bessel's function y(alpha) */
- xy[INDEX(k)] = (2 * k - 1) * xy[INDEX(k-1)] / X - xy[INDEX(k-2)];
- double xJonH = xj[k] / ( xj[k] * xj[k] + xy[INDEX(k)] * xy[INDEX(k)] );
-
- /* --- Computation of Gn(alpha), Real and Imaginary part */
- double XdenGNX = (RGnX[k-1] - k/X)*(RGnX[k-1] - k/X) + IGnX[k-1] * IGnX[k-1];
- RGnX[k] = (k / X - RGnX[k-1])/XdenGNX - k / X;
- IGnX[k] = IGnX[k-1] / XdenGNX;
-
- /* --- Computation of An(alpha) and Bn(alpha), Real and Imaginary part */
- double Xnum1An = RDnY[k] - nr * RDnX[k];
- double Xnum2An = IDnY[k] + ni * RDnX[k];
- double Xden1An = RDnY[k] - nr * RGnX[k] - ni * IGnX[k];
- double Xden2An = IDnY[k] + ni * RGnX[k] - nr * IGnX[k];
- double XdenAn = Xden1An * Xden1An + Xden2An * Xden2An;
- double RAnb = (Xnum1An * Xden1An + Xnum2An * Xden2An) / XdenAn;
- double IAnb = (-Xnum1An * Xden2An + Xnum2An * Xden1An) / XdenAn;
- RAn[k] = xJonH * (xj[k] * RAnb - xy[INDEX(k)] * IAnb);
- IAn[k] = xJonH * (xy[INDEX(k)] * RAnb + xj[k] * IAnb);
-
- double Xnum1Bn = nr * RDnY[k] + ni * IDnY[k] - RDnX[k];
- double Xnum2Bn = nr * IDnY[k] - ni * RDnY[k];
- double Xden1Bn = nr * RDnY[k] + ni * IDnY[k] - RGnX[k];
- double Xden2Bn = nr * IDnY[k] - ni * RDnY[k] - IGnX[k];
- double XdenBn = Xden1Bn * Xden1Bn + Xden2Bn * Xden2Bn;
- double RBnb = (Xnum1Bn * Xden1Bn + Xnum2Bn * Xden2Bn) / XdenBn;
- double IBnb = (-Xnum1Bn * Xden2Bn + Xnum2Bn * Xden1Bn) / XdenBn;
- RBn[k] = xJonH * (xj[k] * RBnb - xy[INDEX(k)] * IBnb);
- IBn[k] = xJonH * (xy[INDEX(k)] * RBnb + xj[k] * IBnb);
-
- /* ---Criterion on the recursion formulas as defined by D. Deirmendjian
- et al., J. Opt. Soc. Am., 1961, 51, 6, 620-633 */
- double temp = RAn[k] * RAn[k] + IAn[k] * IAn[k] + RBn[k] * RBn[k] + IBn[k] * IBn[k];
- if((temp/k) < 1e-14)
- {
- mu = k;
- break;
- }
-
- /* --- Computation of the scattering and extinction efficiency factor */
- double xpond = 2 / X / X * (2 * k + 1);
- Qsca = Qsca + xpond * temp;
- Qext = Qext + xpond * (RAn[k] + RBn[k]);
- }
-
-
- /* --- Computation of the amplitude functions S1 and S2 (cf MIE's theory)
- defined by PIn, TAUn, An and Bn with PIn and TAUn related to the
- Legendre polynomials. */
- for(int j = 0; j < 83; j++)
- {
- double RS1 = 0;
- double RS2 = 0;
- double IS1 = 0;
- double IS2 = 0;
- double PIn[10001];
- double TAUn[10001];
-
- PIn[0] = 0;
- PIn[1] = 0;
- TAUn[1] = sixs_sos.cgaus[j];
-
- for(int k = 1; k <= mu; k++)
- {
- double co_n = (2 * k + 1) / k / (k + 1);
- RS1 += co_n * (RAn[k] * PIn[k] + RBn[k] * TAUn[k]);
- RS2 += co_n * (RAn[k] * TAUn[k] + RBn[k] * PIn[k]);
- IS1 += co_n * (IAn[k] * PIn[k] + IBn[k] * TAUn[k]);
- IS2 += co_n * (IAn[k] * TAUn[k] + IBn[k] * PIn[k]);
-
- PIn[k+1] = ((2 * k + 1) * sixs_sos.cgaus[j] * PIn[k] - (k + 1) * PIn[k-1])/k;
- TAUn[k+1] = (k + 1) * sixs_sos.cgaus[j] * PIn[k + 1] - (k + 2) * PIn[k];
- }
-
- /* --- Computation of the scattering intensity efficiency */
- p11[j] = 2 * (RS1 *RS1 + IS1 * IS1 + RS2 * RS2 + IS2 * IS2)/X/X;
- }
-}
-
-
-/* load parameters from .mie file */
-void AerosolModel::load()
-{
- int i;
- ifstream in(filename.c_str());
- cin.ignore(numeric_limits<int>::max(),'\n'); /* ignore this line */
-
- in.ignore(8);
- for(i = 0; i < 10; i++)
- {
- in.ignore(3);
- in >> sixs_aer.ext[i];
- in.ignore(6);
- in >> sca[i];
- in.ignore(6);
- in >> sixs_aer.ome[i];
- in.ignore(6);
- in >> sixs_aer.gasym[i];
- in.ignore(3);
- cin.ignore(numeric_limits<int>::max(),'\n'); /* ignore the rest */
- }
-
- /* ignore 3 lines */
- cin.ignore(numeric_limits<int>::max(),'\n'); /* ignore this line */
- cin.ignore(numeric_limits<int>::max(),'\n'); /* ignore this line */
- cin.ignore(numeric_limits<int>::max(),'\n'); /* ignore this line */
-
- for(i = 0; i < 83; i++)
- {
- in.ignore(8);
- for(int j = 0; j < 10; j++)
- {
- in.ignore(1);
- in >> sixs_sos.phasel[j][i];
- }
- cin.ignore(numeric_limits<int>::max(),'\n'); /* ignore the rest */
- }
-}
-
-
-/* do we wish to save this? */
-void AerosolModel::save()
-{
- ofstream out(filename.c_str());
- /* output header */
- out << " Wlgth Nor_Ext_Co Nor_Sca_Co Sg_Sca_Alb Asymm_Para Extinct_Co Scatter_Co" << endl;
- int i;
- for(i = 0; i < 10; i++)
- {
- out << setprecision(4); /* set the required precision */
- out << " " << setw(10) << sixs_disc.wldis[0]
- << " " << setw(10) << sixs_aer.ext[i]
- << " " << setw(10) << sca[i]
- << " " << setw(10) << sixs_aer.ome[i]
- << " " << setw(10) << sixs_aer.gasym[i]
- << " " << setw(10) << sixs_aer.ext[i]/nis
- << " " << setw(10) << sca[i]/nis << endl;
- }
-
- out << endl << endl << setw(20) << " " << " Phase Function " << endl;
- out << " TETA ";
- for(i = 0; i < 10; i++) out << " " << setw(10) << sixs_disc.wldis[i] << " ";
- out << endl;
-
- for(i = 0; i < 83; i++)
- {
- out << setprecision(2);
- out << " " << setw(8) << (180.*acos(sixs_sos.cgaus[i])/M_PI);
-
- out << setprecision(4);
- out.setf(ios::scientific, ios::floatfield);
- for(int j = 0; j < 10; j++) out << " " << setw(14) << sixs_sos.phasel[j][i];
- out.setf(ios::fixed, ios::floatfield);
- out << endl;
- }
-}
-
-
-/*
- To compute the optical scattering parameters (extinction and scattering
- coefficients, single scattering albedo, phase function, assymetry factor) at the ten discrete
- wavelengths for the selected model (or created model) from:
- (1) the characteristics of the basic components of the International Radiation Commission.
- (1983).
- dust-like component (D.L., SUBROUTINE DUST)
- oceanic component (O.C., SUBROUTINE OCEA)
- water-soluble component (W.S., SUBROUTINE WATE)
- soot component (S.O., SUBROUTINE SOOT)
- (2) pre-computed caracteristics,
- now available are the desertic aerosol model corresponding to background conditions, as
- described in Shettle(1984), a stratospheric aerosol model as measured Mona Loa (Hawaii)
- during El Chichon eruption and as described by King et al. (1984), and a biomass burning
- aerosol model as deduced from measurements taken by sunphotometers in Amazonia.
- (SUBROUTINES BDM, STM and BBM)
- (3) computed using the MIE theory with inputs (size distribution, refractive indexes...) given
- by the user (see SUBROUTINES MIE and EXSCPHASE).
- These models don't correspond to a mixture of the four basic components.
-*/
-void AerosolModel::aeroso(const float xmud)
-{
-/* sra basic components for aerosol model, extinction coefficients are */
-/* in km-1. */
-/* dust-like = 1 */
-/* water-soluble = 2 */
-/* oceanique = 3 */
-/* soot = 4 */
- static const double vi[4] = { 113.983516, 1.13983516e-4, 5.1444150196, 5.977353425e-5 };
- static const double ni[4] = { 54.734, 1868550., 276.05, 1805820. };
-
- /* i: 1=dust-like 2=water-soluble 3=oceanic 4=soot */
- static const float s_ex[4][10] =
- {
- {0.1796674e-01,0.1815135e-01,0.1820247e-01,0.1827016e-01,0.1842182e-01,
- 0.1853081e-01,0.1881427e-01,0.1974608e-01,0.1910712e-01,0.1876025e-01},
- {0.7653460e-06,0.6158538e-06,0.5793444e-06,0.5351736e-06,0.4480091e-06,
- 0.3971033e-06,0.2900993e-06,0.1161433e-06,0.3975192e-07,0.1338443e-07},
- {0.3499458e-02,0.3574996e-02,0.3596592e-02,0.3622467e-02,0.3676341e-02,
- 0.3708866e-02,0.3770822e-02,0.3692255e-02,0.3267943e-02,0.2801670e-02},
- {0.8609083e-06,0.6590103e-06,0.6145787e-06,0.5537643e-06,0.4503008e-06,
- 0.3966041e-06,0.2965532e-06,0.1493927e-06,0.1017134e-06,0.6065031e-07}
- };
-
- static const float s_sc[4][10] =
- {
- {0.1126647e-01,0.1168918e-01,0.1180978e-01,0.1196792e-01,0.1232056e-01,
- 0.1256952e-01,0.1319347e-01,0.1520712e-01,0.1531952e-01,0.1546761e-01},
- {0.7377123e-06,0.5939413e-06,0.5587120e-06,0.5125148e-06,0.4289210e-06,
- 0.3772760e-06,0.2648252e-06,0.9331806e-07,0.3345499e-07,0.1201109e-07},
- {0.3499455e-02,0.3574993e-02,0.3596591e-02,0.3622465e-02,0.3676338e-02,
- 0.3708858e-02,0.3770696e-02,0.3677038e-02,0.3233194e-02,0.2728013e-02},
- {0.2299196e-06,0.1519321e-06,0.1350890e-06,0.1155423e-06,0.8200095e-07,
- 0.6469735e-07,0.3610638e-07,0.6227224e-08,0.1779378e-08,0.3050002e-09}
- };
-
- static const float ex2[10] =
- {
- 43.83631f, 42.12415f, 41.57425f, 40.85399f, 39.1404f,
- 37.89763f, 34.67506f, 24.59f, 17.96726f, 10.57569f
- };
-
- static const float sc2[10] =
- {
- 40.28625f, 39.04473f, 38.6147f, 38.03645f, 36.61054f,
- 35.54456f, 32.69951f, 23.41019f, 17.15375f,10.09731f
- };
-
- static const float ex3[10] =
- {
- 95397.86f, 75303.6f, 70210.64f, 64218.28f, 52430.56f,
- 45577.68f, 31937.77f, 9637.68f, 3610.691f, 810.5614f
- };
-
- static const float sc3[10] =
- {
- 92977.9f, 73397.17f, 68425.49f, 62571.8f, 51049.87f,
- 44348.77f, 31006.21f, 9202.678f, 3344.476f, 664.1915f
- };
-
- static const float ex4[10] =
- {
- 54273040.f, 61981440.f, 63024320.f, 63489470.f, 61467600.f,
- 58179720.f, 46689090.f, 15190620.f, 5133055.f, 899859.4f
- };
-
-
- static const float sc4[10] =
- {
- 54273040.f, 61981440.f, 63024320.f, 63489470.f, 61467600.f,
- 58179720.f, 46689090.f, 15190620.f, 5133055.f, 899859.4f
- };
-
- static const float s_asy[4][10] =
- {
- {0.896,0.885,0.880,0.877,0.867,0.860,0.845,0.836,0.905,0.871},
- {0.642,0.633,0.631,0.628,0.621,0.616,0.610,0.572,0.562,0.495},
- {0.795,0.790,0.788,0.781,0.783,0.782,0.778,0.783,0.797,0.750},
- {0.397,0.359,0.348,0.337,0.311,0.294,0.253,0.154,0.103,0.055}
- };
-
- static const float asy2[10] = { .718f, .712f, .71f, .708f, .704f, .702f, .696f, .68f, .668f, .649f };
-
- static const float asy3[10] = { .704f, .69f, .686f, .68f, .667f, .659f, .637f, .541f, .437f, .241f };
- static const float asy4[10] = { .705f, .744f, .751f, .757f, .762f, .759f, .737f, .586f, .372f, .139f };
-
- /* local */
- double coef;
- float sigm;
- double sumni;
- double dd[4][10];
- double pha[5][10][83];
-
- float ex[4][10];
- float sc[4][10];
- float asy[4][10];
-
- int i; /* crappy VS6 */
- /* initialize ex, sc & asy */
- for(i = 0; i < 4; i++)
- {
- int j;
- for(j = 0; j < 10; j++) ex[i][j] = s_ex[i][j];
- for(j = 0; j < 10; j++) sc[i][j] = s_sc[i][j];
- for(j = 0; j < 10; j++) asy[i][j] = s_asy[i][j];
- }
-
- /* optical properties of aerosol model computed from sra basic comp */
- for (i = 0; i < 10; ++i)
- {
- if(i == 4 && iaer == 0) sixs_aer.ext[i] = 1.f;
- else sixs_aer.ext[i] = 0.f;
- sca[i] = 0.f;
- sixs_aer.ome[i] = 0.f;
- sixs_aer.gasym[i] = 0.f;
- sixs_aer.phase[i] = 0.f;
-
- for (int k = 1; k <= 83; ++k) sixs_sos.phasel[i][k] = 0.f;
- }
-
- /* return if iear = 0 */
- if(iaer == 0) return;
-
- /* look for an interval in cgaus */
- long int j1 = -1;
- for (i = 0; i < 82; ++i)
- if (xmud >= sixs_sos.cgaus[i] && xmud < sixs_sos.cgaus[i+1]) { j1 = i; break; }
- if(j1 == -1) return; /* unable to find interval */
-
- coef = -(xmud - sixs_sos.cgaus[j1]) / (sixs_sos.cgaus[j1+1] - sixs_sos.cgaus[j1]);
-
- switch(iaer)
- {
- case 12: /* read from file */
- {
- load();
- for(i = 0; i < 10; i++)
- sixs_aer.phase[i] = (float)(sixs_sos.phasel[i][j1] +
- coef*(sixs_sos.phasel[i][j1]-sixs_sos.phasel[i][j1+1]));
- return;
- }
- case 5:
- {
- for(i = 0; i < 10; i++)
- {
- asy[0][i] = asy2[i];
- ex[0][i] = ex2[i];
- sc[0][i] = sc2[i];
- }
- break;
- }
- case 6:
- {
- for(i = 0; i < 10; i++)
- {
- asy[0][i] = asy3[i];
- ex[0][i] = ex3[i];
- sc[0][i] = sc3[i];
- }
- break;
- }
- case 7:
- {
- for(i = 0; i < 10; i++)
- {
- asy[0][i] = asy4[i];
- ex[0][i] = ex4[i];
- sc[0][i] = sc4[i];
- }
- break;
- }
- default:;
- }
-
-
- if(iaer >= 5 && iaer <= 11)
- {
- /* calling a special aerosol model */
-
- switch(iaer)
- {
- /* (background desert model...) */
- case 5: bdm(); break;
- /* (biomass burning model...) */
- case 6: bbm(); break;
- /* (stratospherique aerosol model...) */
- case 7: stm(); break;
-
- /* (user defined model from size distribution) */
- case 8:
- case 9:
- case 10:
- case 11: mie (ex, sc, asy); break;
- }
-
- for (int i = 0; i < 10; i++)
- {
- dd[0][i] = (*sixs_aerbas.ph)[i][j1] + coef * ((*sixs_aerbas.ph)[i][j1] - (*sixs_aerbas.ph)[i][j1+1]);
- for(int k = 0; k < 83; k++) pha[0][i][k] = (*sixs_aerbas.ph)[i][k];
- }
-
- mie_in.icp = 1;
- mie_in.cij[0] = 1.f;
- /* for normalization of the extinction coefficient */
- nis = 1. / ex[0][3];
- }
- else {
- /* calling each sra components */
- mie_in.icp = 4;
- /* -dust */
- dust();
- for(i = 0; i < 10; i++)
- {
- dd[0][i] = (*sixs_aerbas.ph)[i][j1] + coef * ((*sixs_aerbas.ph)[i][j1] - (*sixs_aerbas.ph)[i][j1+1]);
- for(int k = 0; k < 83; k++) pha[0][i][k] = ((*sixs_aerbas.ph))[i][k];
- }
-
- /* -water soluble */
- wate();
- for(i = 0; i < 10; i++)
- {
- dd[1][i] = (*sixs_aerbas.ph)[i][j1]+coef*((*sixs_aerbas.ph)[i][j1]-(*sixs_aerbas.ph)[i][j1+1]);
- for(int k = 0; k < 83; k++) pha[1][i][k] = (*sixs_aerbas.ph)[i][k];
- }
-
-
- /* -oceanic type */
- ocea();
- for(i = 0; i < 10; i++)
- {
- dd[2][i] = (*sixs_aerbas.ph)[i][j1]+coef*((*sixs_aerbas.ph)[i][j1]-(*sixs_aerbas.ph)[i][j1+1]);
- for(int k = 0; k < 83; k++) pha[2][i][k] = (*sixs_aerbas.ph)[i][k];
- }
-
- /* -soot */
- soot();
- for(i = 0; i < 10; i++)
- {
- dd[3][i] = (*sixs_aerbas.ph)[i][j1]+coef*((*sixs_aerbas.ph)[i][j1]-(*sixs_aerbas.ph)[i][j1+1]);
- for(int k = 0; k < 83; k++) pha[3][i][k] = (*sixs_aerbas.ph)[i][k];
- }
-
- /* summ of the c/vi calculation */
- sumni = 0.f;
- sigm = 0.f;
-
- for(i = 0; i < 4; i++) sigm+=(float)(c[i]/vi[i]);
-
- /* cij coefficients calculation */
- for(i = 0; i < 4; i++) {
- mie_in.cij[i] = (float)(c[i]/vi[i]/sigm);
- sumni += mie_in.cij[i]/ni[i];
- }
-
- nis = 1. / sumni;
- }
-
-
- /* mixing parameters calculation */
- for(i = 0; i < 10; i++)
- {
- for(int j = 0; j < mie_in.icp; j++)
- {
- sixs_aer.ext[i] += (float)(ex[j][i] * mie_in.cij[j]);
- sca[i] += (float)(sc[j][i] * mie_in.cij[j]);
- sixs_aer.gasym[i] += (float)(sc[j][i] * mie_in.cij[j] * asy[j][i]);
- sixs_aer.phase[i] += (float)(sc[j][i] * mie_in.cij[j] * dd[j][i]);
-
- for(int k = 0; k < 83; k++)
- sixs_sos.phasel[i][k] += (float)(sc[j][i] * mie_in.cij[j] * pha[j][i][k]);
- }
-
- sixs_aer.ome[i] = sca[i]/sixs_aer.ext[i];
- sixs_aer.gasym[i] /= sca[i];
- sixs_aer.phase[i] /= sca[i];
-
- for(int k = 0; k < 83; k++) sixs_sos.phasel[i][k] /= sca[i];
-
- sixs_aer.ext[i] *= (float)nis;
- sca[i] *= (float)nis;
- }
-
- if (filename.size() != 0 && iaer >= 8 && iaer <= 11) save();
-}
-
-void AerosolModel::parse(const float xmud)
-{
- cin >> iaer;
- cin.ignore(numeric_limits<int>::max(),'\n');
-
- /* initialize vars; */
- mie_in.rmin = 0.f;
- mie_in.rmax = 0.f;
- mie_in.icp = 1;
-
- int i;
- for(i = 0; i < 4; i++)
- {
- mie_in.cij[i] = 0.f;
-
- mie_in.x1[i] = 0.f;
- mie_in.x2[i] = 0.f;
- mie_in.x3[i] = 0.f;
-
- for(int j = 0; j < 10; j++)
- {
- mie_in.rn[j][i] = 0.f;
- mie_in.ri[j][i] = 0.f;
- }
- }
-
- for(i = 0; i < 50; i++)
- {
- mie_in.rsunph[i] = 0.f;
- mie_in.nrsunph[i] = 0.f;
- }
- mie_in.cij[0] = 1.00f;
-
- switch (iaer)
- {
- case 0:
- case 5:
- case 6:
- case 7: break; /* do nothing */
-
- case 1:
- {
- c[0]=0.70f;
- c[1]=0.29f;
- c[2]=0.00f;
- c[3]=0.01f;
- break;
- }
- case 2:
- {
- c[0]=0.00f;
- c[1]=0.05f;
- c[2]=0.95f;
- c[3]=0.00f;
- break;
- }
- case 3:
- {
- c[0]=0.17f;
- c[1]=0.61f;
- c[2]=0.00f;
- c[3]=0.22f;
- break;
- }
- case 4:
- {
- for(int i = 0; i < 4; i++) cin >> c[i];
- cin.ignore(numeric_limits<int>::max(),'\n');
- break;
- }
- case 8:
- {
- cin >> mie_in.rmin;
- cin >> mie_in.rmax;
- cin >> mie_in.icp;
- cin.ignore(numeric_limits<int>::max(),'\n');
-
- if(mie_in.icp >= 4) {
- G_fatal_error(_("mie_in.icp: %ld > 4, will cause internal buffer overflow"), mie_in.icp);
- }
-
- for(int i = 0; i < mie_in.icp; i++)
- {
- cin >> mie_in.x1[i];
- cin >> mie_in.x2[i];
- cin >> mie_in.cij[i];
- cin.ignore(numeric_limits<int>::max(),'\n');
-
- int j;
- for(j = 0; j < 10; j++) cin >> mie_in.rn[j][i];
- cin.ignore(numeric_limits<int>::max(),'\n');
-
- for(j = 0; j < 10; j++) cin >> mie_in.ri[j][i];
- cin.ignore(numeric_limits<int>::max(),'\n');
- }
- break;
- }
- case 9:
- {
- cin >> mie_in.rmin;
- cin >> mie_in.rmax;
- cin.ignore(numeric_limits<int>::max(),'\n');
-
- cin >> mie_in.x1[0];
- cin >> mie_in.x2[0];
- cin >> mie_in.x3[0];
- cin.ignore(numeric_limits<int>::max(),'\n');
-
- int j;
- for(j = 0; j < 10; j++) cin >> mie_in.rn[j][0];
- cin.ignore(numeric_limits<int>::max(),'\n');
-
-
- for(j = 0; j < 10; j++) cin >> mie_in.ri[j][0];
- cin.ignore(numeric_limits<int>::max(),'\n');
-
- break;
- }
- case 10:
- {
- cin >> mie_in.rmin;
- cin >> mie_in.rmax;
- cin.ignore(numeric_limits<int>::max(),'\n');
-
- cin >> mie_in.x1[0];
- cin.ignore(numeric_limits<int>::max(),'\n');
-
- int j;
- for(j = 0; j < 10; j++) cin >> mie_in.rn[j][0];
- cin.ignore(numeric_limits<int>::max(),'\n');
-
- for(j = 0; j < 10; j++) cin >> mie_in.ri[j][0];
- cin.ignore(numeric_limits<int>::max(),'\n');
-
- break;
- }
- case 11:
- {
- cin >> mie_in.irsunph;
- cin.ignore(numeric_limits<int>::max(),'\n');
-
- if(mie_in.irsunph >= 50) {
- G_fatal_error(_("mie_in.irsunph: %ld > 50, will cause internal buffer overflow"), mie_in.irsunph);
- }
-
- int i;
- for(i = 0; i < mie_in.irsunph; i++)
- {
- cin >> mie_in.rsunph[i];
- cin >> mie_in.nrsunph[i];
- cin.ignore(numeric_limits<int>::max(),'\n');
-
- double sq = mie_in.rsunph[i]*mie_in.rsunph[i];
- const double ln10 = 2.3025850929940456840179914546844;
- mie_in.nrsunph[i] = (float)(mie_in.nrsunph[i]/(sq*sq)/ln10);
- }
- mie_in.rmin=mie_in.rsunph[0];
- mie_in.rmax=mie_in.rsunph[mie_in.irsunph-1]+1e-07f;
-
- for(i = 0; i < 10; i++) cin >> mie_in.rn[i][0];
- cin.ignore(numeric_limits<int>::max(),'\n');
-
- for(i = 0; i < 10; i++) cin >> mie_in.ri[i][0];
- cin.ignore(numeric_limits<int>::max(),'\n');
- break;
- }
- case 12:
- { /* read file name */
- getline(cin,filename);
- filename = filename.substr(0, filename.find(" "));
- break;
- }
- default: G_warning(_("Unknown aerosol model!"));
- }
-
- if(iaer >= 8 && iaer <= 11)
- {
- cin >> iaerp;
- if( iaerp == 1 ) /* read file name */
- {
- getline(cin,filename);
- filename = filename.substr(0, filename.find(" "));
- filename += ".mie";
- }
- }
-
- aeroso(xmud);
-}
-
-/* format 132 */
-void AerosolModel::print132(string s)
-{
- Output::Begin();
- Output::Repeat(15, ' ');
- Output::Print(s);
- Output::Print(" aerosols model");
- Output::End();
-}
-
-/* --- aerosols model ---- */
-void AerosolModel::print()
-{
- /* --- aerosols model (type) ---- */
- Output::Begin();
- Output::Repeat(10, ' ');
- Output::Print(" aerosols type identity :");
- Output::End();
-
- if(iaer == 4 || (iaer >= 8 && iaer != 11))
- {
- Output::Begin();
- Output::Repeat(15, ' ');
- Output::Print(" user defined aerosols model ");
- Output::End();
- }
-
- switch(iaer)
- {
- case 0:
- {
- Output::Begin();
- Output::Repeat(15, ' ');
- Output::Print(" no aerosols computed ");
- Output::End();
- break;
- }
- case 1: print132(" Continental"); break;
- case 2: print132(" Maritime"); break;
- case 3: print132(" Urban"); break;
- case 4:
- {
- static const string desc[4] = {
- string(" % of dust-like"),
- string(" % of water-soluble"),
- string(" % of oceanic"),
- string(" % of soot")
- };
-
- for(int i = 0; i < 4; i++)
- {
- Output::Begin();
- Output::Repeat(26, ' ');
- ostringstream s;
- s.setf(ios::fixed, ios::floatfield);
- s << setprecision(3);
- s << c[i] << desc[i] << ends;
- Output::Print(s.str());
- Output::End();
- }
- break;
- }
- case 5: print132(" Desertic"); break;
- case 6: print132(" Smoke"); break;
- case 7: print132(" Stratospheric"); break;
- case 8:
- {
- Output::Begin();
- Output::Repeat(15, ' ');
- ostringstream s;
- s << "using " << mie_in.icp << " Log-normal size-distribution(s)" << ends;
- Output::Print(s.str());
- Output::End();
-
- Output::Begin();
- Output::Repeat(15, ' ');
- Output::Print("Mean radius Stand. Dev. Percent. dencity");
- Output::End();
-
- for(int i = 0; i < mie_in.icp; i++)
- {
- Output::Begin();
- Output::Position(41);
- ostringstream s1;
- s1.setf(ios::fixed, ios::floatfield);
- s1 << setprecision(4);
- s1 << setw(10) << mie_in.x1[i] << ends;
- Output::Print(s1.str());
-
- Output::Position(55);
- ostringstream s2;
- s2.setf(ios::fixed, ios::floatfield);
- s2 << setprecision(3);
- s2 << setw(8) << mie_in.x2[i] << ends;
- Output::Print(s2.str());
-
- Output::Position(69);
- ostringstream s3;
- s3.setf(ios::fixed, ios::floatfield);
- s3 << setprecision(3);
- s3 << setw(11) << mie_in.cij[i] << ends;
- Output::Print(s3.str());
-
- Output::End();
- }
- break;
- }
- case 9:
- {
- Output::Begin();
- Output::Repeat(15, ' ');
- Output::Print("using a Modified Gamma size-distribution");
- Output::End();
-
- Output::Begin();
- Output::Repeat(19, ' ');
- Output::Print("Alpha b Gamma");
- Output::End();
-
- Output::Begin();
- Output::Position(20);
- ostringstream s1;
- s1.setf(ios::fixed, ios::floatfield);
- s1 << setprecision(3);
- s1 << setw(9) << mie_in.x1[0] << ends;
- Output::Print(s1.str());
-
- Output::Position(31);
- ostringstream s2;
- s2.setf(ios::fixed, ios::floatfield);
- s2 << setprecision(3);
- s2 << setw(9) << mie_in.x2[0] << ends;
- Output::Print(s2.str());
-
- Output::Position(47);
- ostringstream s3;
- s3.setf(ios::fixed, ios::floatfield);
- s3 << setprecision(3);
- s3 << setw(9) << mie_in.x3[0] << ends;
- Output::Print(s3.str());
-
- Output::End();
- break;
- }
- case 10:
- {
- Output::Begin();
- Output::Repeat(15, ' ');
- Output::Print("using a Power law size-distribution with alpha=");
- ostringstream s;
- s.setf(ios::fixed, ios::floatfield);
- s << setprecision(1);
- s << setw(4) << mie_in.x1[0] << ends;
- Output::Print(s.str());
- Output::End();
-
- break;
- }
- case 11: print132(" Sun Photometer"); break;
- case 12:
- {
- Output::Begin();
- Output::Repeat(15, ' ');
- Output::Print("using data from the file:");
- Output::End();
-
- Output::Begin();
- Output::Position(25);
- Output::Print(filename);
- Output::End();
- }
- }
-
- if(iaer > 7 && iaerp == 1)
- {
- Output::Begin();
- Output::Repeat(15, ' ');
- Output::Print(" results saved into the file:");
- Output::End();
-
- Output::Begin();
- Output::Position(25);
- Output::Print(filename);
- Output::End();
- }
-}
-
-AerosolModel AerosolModel::Parse(const float xmud)
-{
- AerosolModel aero;
- aero.parse(xmud);
- return aero;
-}
-
Deleted: grass/trunk/imagery/i.atcorr/AerosolModel.h
===================================================================
--- grass/trunk/imagery/i.atcorr/AerosolModel.h 2014-06-09 08:51:29 UTC (rev 60762)
+++ grass/trunk/imagery/i.atcorr/AerosolModel.h 2014-06-09 09:12:09 UTC (rev 60763)
@@ -1,145 +0,0 @@
-#ifndef AEROSOL_MODEL_H
-#define AEROSOL_MODEL_H
-
-/* **********************************************************************c */
-/* c */
-/* iaer aerosol model(type) c */
-/* -------------- c */
-/* c */
-/* c */
-/* you select one of the following standard aerosol models: c */
-/* 0 no aerosols c */
-/* 1 continental model ) c */
-/* 2 maritime model ) according to sra models c */
-/* 3 urban model ) c */
-/* 5 shettle model for background desert aerosol c */
-/* 6 biomass burning c */
-/* 7 stratospheric model c */
-/* c */
-/* or you define your own model using basic components: iaer=4 c */
-/* 4 enter the volumic percentage of each component c */
-/* c(1) = volumic % of dust-like c */
-/* c(2) = volumic % of water-soluble c */
-/* c(3) = volumic % of oceanic c */
-/* c(4) = volumic % of soot c */
-/* between 0 to 1 c */
-/* c */
-/* or you define your own model using size distribution function: c */
-/* 8 Multimodal Log Normal distribution (up to 4 modes) c */
-/* 9 Modified gamma distribution c */
-/* 10 Junge Power-Law distribution c */
-/* c */
-/* or you define a model using sun-photometer measurements: c */
-/* 11 Sun Photometer distribution (50 values max) c */
-/* you have to enter: r and d V / d (logr) c */
-/* where r is the radius (in micron) and V the volume c */
-/* and d V / d (logr) in (cm3/cm2/micron) c */
-/* and then you have to enter: nr and ni for each wavelengthc */
-/* where nr and ni are respectively the real and c */
-/* imaginary part of the refractive index c */
-/* c */
-/* or you can use results computed and previously saved c */
-/* 12 Reading of data previously saved into FILE c */
-/* you have to enter the identification name FILE in the c */
-/* next line of inputs. c */
-/* c */
-/* c */
-/* iaerp and FILE aerosol model(type)-Printing of results c */
-/* --------------------------------------- c */
-/* c */
-/* For iaer=8,9,10,and 11: c */
-/* results from the MIE subroutine may be saved into the file c */
-/* FILE.mie (Extinction and scattering coefficients, single c */
-/* scattering albedo, Asymmetry parameter, phase function at c */
-/* predefined wavelengths) and then can be re-used with the c */
-/* option iaer=12 where FILE is an identification name you c */
-/* have to enter. c */
-/* c */
-/* So, if you select iaer=8,9,10,or 11, next line following the c */
-/* requested inputs by the options 8,9,10, or 11 you have to enter c */
-/* iaerp c */
-/* c */
-/* iaerp=0 results will not be saved c */
-/* iaerp=1 results will be saved into the file FILE.mie c */
-/* next line enter FILE c */
-/* c */
-/* c */
-/* example for iaer and iaerp c */
-/* 8 Multimodal Log-Normale distribution selected c */
-/* 0.0001 100.0 3 Rmin, Rmax, 3 components c */
-/* 0.5000 2.99 1.66E-7 Rmean, Sigma, percentage density-1st componentc */
-/* 1.53 1.53 1.53 1.53 1.53 1.53 1.52 1.40 1.22 1.27 nr-10 wavelengths c */
-/* .008 .008 .008 .008 .008 .008 .008 .008 .009 .011 ni-10 wavelengths c */
-/* 0.0050 2.99 0.5945 Rmean, Sigma, percentage density-2nd componentc */
-/* 1.53 1.53 1.53 1.53 1.53 1.53 1.52 1.51 1.42 1.452 nr-10 wavelengths c */
-/* .005 .005 .005 .005 .006 .007 .012 .023 .010 .004 ni-10 wavelengths c */
-/* 0.0118 2.00 0.4055 Rmean, Sigma, percentage density-3rd componentc */
-/* 1.75 1.75 1.75 1.75 1.75 1.75 1.75 1.77 1.81 1.90 nr-10 wavelengths c */
-/* .46 .45 .45 .44 .43 .43 .43 .46 .50 .57 ni-10 wavelengths c */
-/* 1 Results will be saved into FILE.mie c */
-/* URBAN-WCP112 Identification of the output file called FILE c */
-/* -> results will be saved into URBAN-WCP112.mie c */
-/* c */
-/* **********************************************************************c */
-
-struct AerosolModel
-{
- long int iaer; /* aerosol model */
- float c[4];
-
-private:
- double nis;
- float sca[10];
- long int iaerp;
-
- /* methods */
- void aeroso(const float xmud);
-
- string filename;
- void load();
- void save(); /* .mie file */
-
- /* defined models' initilizations */
- void bdm();
- void bbm();
- void stm();
- void dust();
- void wate();
- void ocea();
- void soot();
-
- struct Mie_in
- {
- float rmax;
- float rmin;
- float rn[10][4];
- float ri[10][4];
- float x1[4];
- float x2[4];
- float x3[4];
- float cij[4];
- float rsunph[50];
- float nrsunph[50];
-
- long int icp;
- long int irsunph;
- };
-
- Mie_in mie_in;
- void mie(float (&ex)[4][10], float (&sc)[4][10], float (&asy)[4][10]);
- void exscphase(const double alpha, const double nr,
- const double ni, double& Qext,
- double& Qsca, double (&p11)[83]);
-
- void parse(const float xmud);
-
- /* format 132 */
- void print132(string s);
-public:
- void print();
- static AerosolModel Parse(const float xmud);
-};
-
-
-
-#endif /* AEROSOL_MODEL_H */
Deleted: grass/trunk/imagery/i.atcorr/Altitude.cpp
===================================================================
--- grass/trunk/imagery/i.atcorr/Altitude.cpp 2014-06-09 08:51:29 UTC (rev 60762)
+++ grass/trunk/imagery/i.atcorr/Altitude.cpp 2014-06-09 09:12:09 UTC (rev 60763)
@@ -1,423 +0,0 @@
-#include "common.h"
-#include "Altitude.h"
-#include "AtmosModel.h"
-#include "AerosolConcentration.h"
-
-/* Update the atmospheric profile (P(z),T(z),H2O(z),O3(z)) in case the target
- is not at sea level.
-
-
- Given the altitude of the target in kilometers as input, we transform the
- original atmospheric profile (Pressure, Temperature, Water Vapor, Ozone)
- so that first level of the new profile is the one at the target altitude.
- We also compute the new integrated content in water vapor and ozone, that
- are used as outputs or in computations when the user chooses to enter a
- specific amount of Ozone and Water Vapor.
-*/
-void Altitude::pressure(AtmosModel& atms, float& uw, float& uo3)
-{
- /* log linear interpolation */
- if(xps >= 100) xps = 99.99f;
-
- int i;
- for(i = 0; atms.z[i] <= xps; i++);
-
- int isup = i;
- int iinf = i - 1;
-
- float xa = (float)((atms.z[isup] - atms.z[iinf]) / log(atms.p[isup] / atms.p[iinf]));
- float xb = (float)(atms.z[isup] - xa * log(atms.p[isup]));
- float ps = (float)exp((xps - xb) / xa);
-
- /* interpolating temperature wator vapor and ozone profile versus altitude */
- float xalt = xps;
- float xtemp = (atms.t[isup] - atms.t[iinf]) / (atms.z[isup] - atms.z[iinf]);
- xtemp = xtemp * (xalt - atms.z[iinf]) + atms.t[iinf];
- float xwo = (atms.wo[isup] - atms.wo[iinf]) / (atms.z[isup] - atms.z[iinf]);
- xwo = xwo * (xalt - atms.z[iinf]) + atms.wo[iinf];
- float xwh = (atms.wh[isup] - atms.wh[iinf]) / (atms.z[isup] - atms.z[iinf]);
- xwh = xwh * (xalt - atms.z[iinf]) + atms.wh[iinf];
-
- /* updating atmospheric profile
- 1rst level: target , complete to 34
- with interpolated layers */
- atms.z[0] = xalt;
- atms.p[0] = ps;
- atms.t[0] = xtemp;
- atms.wh[0] = xwh;
- atms.wo[0] = xwo;
-
- for (i = 1; i < 33 - iinf; ++i)
- {
- atms.z[i] = atms.z[i + iinf];
- atms.p[i] = atms.p[i + iinf];
- atms.t[i] = atms.t[i + iinf];
- atms.wh[i] = atms.wh[i + iinf];
- atms.wo[i] = atms.wo[i + iinf];
- }
- int l = 33 - iinf - 1;
- for (i = l; i < 34; ++i)
- {
- atms.z[i] = (atms.z[33] - atms.z[l]) * (i - l) / (33 - l) + atms.z[l];
- atms.p[i] = (atms.p[33] - atms.p[l]) * (i - l) / (33 - l) + atms.p[l];
- atms.t[i] = (atms.t[33] - atms.t[l]) * (i - l) / (33 - l) + atms.t[l];
- atms.wh[i] = (atms.wh[33] - atms.wh[l]) * (i - l) / (33 - l) + atms.wh[l];
- atms.wo[i] = (atms.wo[33] - atms.wo[l]) * (i - l) / (33 - l) + atms.wo[l];
- }
-
- /* compute modified h2o and o3 integrated content */
- uw = 0;
- uo3 = 0;
- const float g = 98.1f;
- const float air = 0.028964f/0.0224f;
- const float ro3 = 0.048f/0.0224f;
-
- float rmwh[34];
- float rmo3[34];
- int k;
- for (k = 0; k < 33; ++k)
- {
- float roair = air * 273.16f * atms.p[k] / (atms.t[k] * 1013.25f);
- rmwh[k] = atms.wh[k] / (roair * 1e3f);
- rmo3[k] = atms.wo[k] / (roair * 1e3f);
- }
-
- for (k = 1; k < 33; ++k)
- {
- float ds = (atms.p[k - 1] - atms.p[k]) / atms.p[0];
- uw += (rmwh[k] + rmwh[k - 1]) * ds / 2.f;
- uo3 += (rmo3[k] + rmo3[k - 1]) * ds / 2.f;
- }
- uw = uw * atms.p[0] * 100.f / g;
- uo3 = uo3 * atms.p[0] * 100.f / g;
- uo3 = uo3 * 1e3f / ro3;
-}
-
-/*
- Function: Update the atmospheric profile (P(z),T(z),H2O(z),O3(z)) in case the observer is on
- board an aircraft.
-
- Description: Given the altitude or pressure at aircraft level as input, the first task is to
- compute the altitude (in case the pressure has been entered) or the pressure (in case the altitude has
- been entered) at plane level. Then, a new atmospheric profile is created (Pp,Tp,H2Op,O3p) for which
- the last level is located at the plane altitude. This profile is used in the gaseous absorption
- computation (ABSTRA.f) for the path from target to sensor (upward transmission). The ozone and
- water vapor integrated content of the "plane" atmospheric profile are also an output of this
- subroutine. The last output is the proportion of molecules below plane level which is useful in
- scattering computations (OS.f,ISO.f).
-*/
-void Altitude::presplane(AtmosModel& atms)
-{
- /* log linear interpolation */
- xpp += atms.z[0];
- if(xpp >= 100) xpp = 1000;
-
- int i;
- for(i = 0; atms.z[i] <= xpp; i++);
-
- int isup = i;
- int iinf = i-1;
-
- float xa = (float)((atms.z[isup] - atms.z[iinf]) / log(atms.p[isup] / atms.p[iinf]));
- float xb = (float)(atms.z[isup] - xa * log(atms.p[isup]));
- float ps = (float)(exp((xpp - xb) / xa));
-
- /* interpolating temperature wator vapor and ozone profile versus altitud */
- float xalt = xpp;
- float xtemp = (atms.t[isup] - atms.t[iinf])/ (atms.z[isup] - atms.z[iinf]);
- xtemp = xtemp * (xalt - atms.z[iinf]) + atms.t[iinf];
- float xwo = (atms.wo[isup] - atms.wo[iinf]) / (atms.z[isup] - atms.z[iinf]);
- xwo = xwo * (xalt - atms.z[iinf]) + atms.wo[iinf];
- float xwh = (atms.wh[isup] - atms.wh[iinf]) / (atms.z[isup] - atms.z[iinf]);
- xwh = xwh * (xalt - atms.z[iinf]) + atms.wh[iinf];
-
- /* updating atmospheric profile
- last level: plane , complete to 34
- with interpolated layers */
- for(i = 0; i <= iinf; i++)
- {
- plane_sim.zpl[i] = atms.z[i];
- plane_sim.ppl[i] = atms.p[i];
- plane_sim.tpl[i] = atms.t[i];
- plane_sim.whpl[i] = atms.wh[i];
- plane_sim.wopl[i] = atms.wo[i];
- }
-
- for(i = iinf+1; i < 34; i++)
- {
- plane_sim.zpl[i] = xalt;
- plane_sim.ppl[i] = ps;
- plane_sim.tpl[i] = xtemp;
- plane_sim.whpl[i] = xwh;
- plane_sim.wopl[i] = xwo;
- }
-
- /* compute modified h2o and o3 integrated content
- compute conversion factor for rayleigh optical thickness computation
- ftray=rp/rt */
- atms.uw = 0;
- atms.uo3 = 0;
- const float g = 98.1f;
- const float air = 0.028964f/0.0224f;
- const float ro3 = 0.048f/0.0224f;
- float rt = 0;
- float rp = 0;
-
- float rmo3[34];
- float rmwh[34];
- int k;
- for(k = 0; k < 33; k++)
- {
- float roair = (float)(air * 273.16 * plane_sim.ppl[k] / (1013.25 * plane_sim.tpl[k]));
- rmwh[k] = atms.wh[k] / (roair * 1000);
- rmo3[k] = atms.wo[k] / (roair * 1000);
- rt += (atms.p[k+1] / atms.t[k+1] + atms.p[k] / atms.p[k]) * (atms.z[k+1] - atms.z[k]);
- rp += (plane_sim.ppl[k+1] / plane_sim.tpl[k+1] + plane_sim.ppl[k] / plane_sim.tpl[k])
- * (plane_sim.zpl[k+1] - plane_sim.zpl[k]);
- }
-
- ftray = rp / rt;
- for(k = 1; k < 33; k++)
- {
- float ds = (plane_sim.ppl[k-1] - plane_sim.ppl[k]) / plane_sim.ppl[0];
- atms.uw += (rmwh[k] + rmwh[k-1])*ds/2;
- atms.uo3+= (rmo3[k] + rmo3[k-1])*ds/2;
- }
-
- atms.uw *= plane_sim.ppl[0] * 100 / g;
- atms.uo3*= plane_sim.ppl[0] * 100 / g;
- atms.uo3*= 1000 / ro3;
-}
-
-void Altitude::init(AtmosModel &atms, const AerosolConcentration &aerocon)
-{
- xps = original_xps;
- xpp = original_xpp;
-
- float uwus;
- float uo3us;
- if(xps <= 0)
- {
- xps = 0;
- uwus = 1.424f;
- uo3us = 0.344f;
- }
- else if(atms.idatm != 8) pressure(atms, atms.uw, atms.uo3);
- else pressure(atms, uwus, uo3us);
-
- if(xpp <= 0)
- {
- /* ground measurement option */
- palt = 0;
- pps = atms.p[0];
- idatmp = 0;
- original_taer55p = taer55p = 0;
- puw = 0;
- }
- else if(xpp >= 100)
- {
- /* satellite case of equivalent */
- palt = 1000;
- pps = 0;
- original_taer55p = taer55p = aerocon.taer55;
- puw = 0;
- ftray = 1;
- idatmp = 4;
- }
- else
- {
- /* "real" plane case */
- cin >> original_puw;
- cin >> original_puo3;
- cin.ignore(numeric_limits < int >::max(), '\n'); /* ignore comments */
-
- puw = original_puw;
- puo3 = original_puo3;
- if ( puw < 0 )
- {
- presplane(atms);
- idatmp = 2;
-
- if (atms.idatm == 8)
- {
- puwus = puw;
- puo3us = puo3;
- puw *= atms.uw / uwus;
- puo3 *= atms.uo3 / uo3us;
- idatmp = 8;
- }
- }
- else
- {
- presplane(atms);
- idatmp = 8;
- }
-
- palt = plane_sim.zpl[33] - atms.z[0];
- pps = plane_sim.ppl[33];
- cin >> original_taer55p;
- taer55p = original_taer55p;
-
- if ((taer55p > 0) || ((aerocon.taer55 - taer55p) < 1e-03))
- {
- /* a scale heigh of 2km is assumed in case no value is given for taer55p */
- taer55p = (float)(aerocon.taer55 * (1 - exp(-palt / 2)));
- }
- else
- {
- /* compute effective scale heigh */
- double sham = exp(-palt / 4);
- double sha = 1 - (taer55p / aerocon.taer55);
-
- if( sha >= sham) taer55p = (float)(aerocon.taer55 * (1 - exp(-palt / 4)));
- else {
- sha = -palt/log(sha);
- taer55p = (float)(aerocon.taer55 * (1 - exp(-palt/sha)));
- }
- }
- }
-}
-
-void Altitude::update_hv(AtmosModel & atms, const AerosolConcentration & aerocon)
-{
- xps = original_xps;
- xpp = original_xpp;
-
- float uwus;
- float uo3us;
-
- if (xps <= 0) {
- xps = 0;
- uwus = 1.424f;
- uo3us = 0.344f;
- }
- else if (atms.idatm != 8)
- pressure(atms, atms.uw, atms.uo3);
- else
- pressure(atms, uwus, uo3us);
-
- if (xpp <= 0) {
- /* ground measurement option */
- palt = 0;
- pps = atms.p[0];
- idatmp = 0;
- taer55p = 0;
- puw = 0;
- }
- else if (xpp >= 100) {
- /* satellite case of equivalent */
- palt = 1000;
- pps = 0;
- taer55p = aerocon.taer55;
- puw = 0;
- ftray = 1;
- idatmp = 4;
- }
- else {
- /* "real" plane case */
-
- puw = original_puw;
- puo3 = original_puo3;
-
- if (puw < 0) {
- presplane(atms);
- idatmp = 2;
-
- if (atms.idatm == 8) {
- puwus = puw;
- puo3us = puo3;
- puw *= atms.uw / uwus;
- puo3 *= atms.uo3 / uo3us;
- idatmp = 8;
- }
- }
- else {
- presplane(atms);
- idatmp = 8;
- }
-
- palt = plane_sim.zpl[33] - atms.z[0];
- pps = plane_sim.ppl[33];
- taer55p = original_taer55p;
-
- if ((taer55p > 0) || ((aerocon.taer55 - taer55p) < 1e-03)) {
- /* a scale heigh of 2km is assumed in case no value is given for taer55p */
- taer55p = (float)(aerocon.taer55 * (1 - exp(-palt / 2)));
- }
- else {
- /* compute effective scale heigh */
- double sham = exp(-palt / 4);
- double sha = 1 - (taer55p / aerocon.taer55);
-
- if (sha >= sham)
- taer55p = (float)(aerocon.taer55 * (1 - exp(-palt / 4)));
- else {
- sha = -palt / log(sha);
- taer55p = (float)(aerocon.taer55 * (1 - exp(-palt / sha)));
- }
- }
- }
-}
-
-void Altitude::parse()
-{
- cin >> original_xps;
- cin.ignore(numeric_limits<int>::max(),'\n'); /* ignore comments */
- original_xps = -original_xps;
-
- cin >> original_xpp;
- cin.ignore(numeric_limits<int>::max(),'\n'); /* ignore comments */
- original_xpp = -original_xpp;
-}
-
-/* --- plane simulation output if selected ---- */
-void Altitude::print()
-{
- if(palt < 1000)
- {
- Output::Ln();
- Output::WriteLn(22," plane simulation description ");
- Output::WriteLn(22," ---------------------------- ");
-
- ostringstream s1;
- s1.setf(ios::fixed, ios::floatfield);
- s1.precision(2);
- s1 << " plane pressure [mb] " << setw(9) << pps << ends;
- Output::WriteLn(10,s1.str());
-
- ostringstream s2;
- s2.setf(ios::fixed, ios::floatfield);
- s2.precision(3);
- s2 << " plane altitude absolute [km] " << setw(9) << plane_sim.zpl[33] << ends;
- Output::WriteLn(10,s2.str());
-
-
- Output::WriteLn(15," atmosphere under plane description: ");
-
- ostringstream s3;
- s3.setf(ios::fixed, ios::floatfield);
- s3.precision(3);
- s3 << " ozone content " << setw(9) << puo3 << ends;
- Output::WriteLn(15,s3.str());
-
-
- ostringstream s4;
- s4.setf(ios::fixed, ios::floatfield);
- s4.precision(3);
- s4 << " h2o content " << setw(9) << puw << ends;
- Output::WriteLn(15,s4.str());
-
- ostringstream s5;
- s5.setf(ios::fixed, ios::floatfield);
- s5.precision(3);
- s5 << "aerosol opt. thick. 550nm " << setw(9) << taer55p << ends;
- Output::WriteLn(15,s5.str());
- }
-}
-
-Altitude Altitude::Parse()
-{
- Altitude alt;
- alt.parse();
- return alt;
-}
Deleted: grass/trunk/imagery/i.atcorr/Altitude.h
===================================================================
--- grass/trunk/imagery/i.atcorr/Altitude.h 2014-06-09 08:51:29 UTC (rev 60762)
+++ grass/trunk/imagery/i.atcorr/Altitude.h 2014-06-09 09:12:09 UTC (rev 60763)
@@ -1,99 +0,0 @@
-#ifndef ALTITUDE_H
-#define ALTITUDE_H
-
-/**********************************************************************c
-c xps is the parameter to express the altitude of target c
-c c
-c c
-c xps >=0. means the target is at the sea level c
-c c
-c xps <0. means you know the altitude of the target c
-c expressed in km and you put that value as xps c
-c c
-c c
-c**********************************************************************/
-
-/**********************************************************************c
-c c
-c xpp is the parameter to express the sensor altitude c
-c c
-c xpp= -1000 means that the sensor is a board a satellite c
-c xpp= 0 means that the sensor is at the ground level c
-c c
-c c
-c for aircraft simulations c
-c -100< xpp <0 means you know the altitude of the sensor expressed c
-c in kilometers units c
-C this altitude is relative to the target altitude c
-c c
-c for aircraft simulations only, you have to give c
-c puw,po3 (water vapor content,ozone content between the c
-c aircraft and the surface) c
-c taerp (the aerosol optical thickness at 550nm between the c
-c aircraft and the surface) c
-c if these data are not available, enter negative values for all c
-c of them, puw,po3 will then be interpolated from the us62 standard c
-C profile according to the values at ground level. Taerp will be c
-c computed according to a 2km exponential profile for aerosol. c
-c**********************************************************************/
-struct AtmosModel;
-struct AerosolConcentration;
-
-struct Altitude
-{
- float xps;
- float xpp;
-
- /* some vars */
- mutable float palt;
- float pps;
- int idatmp;
- float taer55p;
- float puw;
- float puo3;
- float ftray;
-
- float puwus;
- float puo3us;
-
- struct Plane_sim
- {
- float zpl[34];
- float ppl[34];
- float tpl[34];
- float whpl[34];
- float wopl[34];
- } plane_sim;
-
-private:
- /* remember the original input values
- these values are set the first time when parse is called
- and used in subsequent calls to init to set xps and xpp */
- float original_xps;
- float original_xpp;
- float original_taer55p;
- float original_puw;
- float original_puo3;
-
- void pressure(AtmosModel& atms, float& uw, float& uo3);
-
- void presplane(AtmosModel& atms);
-
- /* Reads xps and xpp from the input file */
- void parse();
-
-public:
- void print();
-
- /* Set the height to be used the next time init is called */
- void set_height(const float height) { original_xps = height; }
- /* call init only once: init parses input file */
- void init(AtmosModel& atms, const AerosolConcentration &aerocon);
- /* call update_hv whenever xps changes */
- void update_hv(AtmosModel& atms, const AerosolConcentration &aerocon);
-
- static Altitude Parse();
-};
-
-
-#endif /* ALTITUDE_H */
Deleted: grass/trunk/imagery/i.atcorr/AtmosModel.cpp
===================================================================
--- grass/trunk/imagery/i.atcorr/AtmosModel.cpp 2014-06-09 08:51:29 UTC (rev 60762)
+++ grass/trunk/imagery/i.atcorr/AtmosModel.cpp 2014-06-09 09:12:09 UTC (rev 60763)
@@ -1,470 +0,0 @@
-extern "C" {
-#include <grass/gis.h>
-#include <grass/glocale.h>
-}
-
-#include "common.h"
-#include "AtmosModel.h"
-
-void AtmosModel::tropic()
-{
- static const float z1[34] =
- {
- 0.f, 1.f, 2.f, 3.f, 4.f, 5.f, 6.f, 7.f, 8.f, 9.f, 10.f, 11.f,
- 12.f, 13.f, 14.f, 15.f, 16.f, 17.f, 18.f, 19.f, 20.f, 21.f,
- 22.f, 23.f, 24.f, 25.f, 30.f, 35.f, 40.f, 45.f, 50.f, 70.f, 100.f, 99999.f
- };
-
- static const float p1[34] =
- {
- 1013.f, 904.f, 805.f, 715.f, 633.f, 559.f, 492.f, 432.f, 378.f,
- 329.f, 286.f, 247.f, 213.f, 182.f, 156.f, 132.f, 111.f, 93.7f,
- 78.9f, 66.6f, 56.5f, 48.f, 40.9f, 35.f, 30.f, 25.7f, 12.2f, 6.f,
- 3.05f, 1.59f, .854f, .0579f, 3e-4f, 0.f
- };
-
- static const float t1[34] =
- {
- 300.f, 294.f, 288.f, 284.f, 277.f, 270.f, 264.f, 257.f, 250.f,
- 244.f, 237.f, 230.f, 224.f, 217.f, 210.f, 204.f, 197.f, 195.f,
- 199.f, 203.f, 207.f, 211.f, 215.f, 217.f, 219.f, 221.f, 232.f,
- 243.f, 254.f, 265.f, 270.f, 219.f, 210.f, 210.f
- };
-
- static const float wh1[34] =
- {
- 19.f, 13.f, 9.3f, 4.7f, 2.2f, 1.5f, .85f, .47f, .25f, .12f, .05f,
-
-
- .017f, .006f, .0018f, .001f, 7.6e-4f, 6.4e-4f, 5.6e-4f, 5e-4f,
- 4.9e-4f, 4.5e-4f, 5.1e-4f, 5.1e-4f, 5.4e-4f, 6e-4f, 6.7e-4f,
- 3.6e-4f, 1.1e-4f, 4.3e-5f, 1.9e-5f, 6.3e-6f, 1.4e-7f, 1e-9f, 0.f
- };
-
- static const float wo1[34] =
- {
- 5.6e-5f, 5.6e-5f, 5.4e-5f, 5.1e-5f, 4.7e-5f, 4.5e-5f,
- 4.3e-5f, 4.1e-5f, 3.9e-5f, 3.9e-5f, 3.9e-5f, 4.1e-5f, 4.3e-5f, 4.5e-5f,
- 4.5e-5f, 4.7e-5f, 4.7e-5f, 6.9e-5f, 9e-5f, 1.4e-4f, 1.9e-4f, 2.4e-4f,
- 2.8e-4f, 3.2e-4f, 3.4e-4f, 3.4e-4f, 2.4e-4f, 9.2e-5f, 4.1e-5f, 1.3e-5f,
- 4.3e-6f, 8.6e-8f, 4.3e-11f, 0.f
- };
-
- /* model: tropical mc clatchey */
- for (int i = 0; i < 34; i++)
- {
- z[i] = z1[i];
- p[i] = p1[i];
- t[i] = t1[i];
- wh[i] = wh1[i];
- wo[i] = wo1[i];
- }
-}
-
-void AtmosModel::midsum()
-{
- static const float z1[34] =
- {
- 0.f, 1.f, 2.f, 3.f, 4.f, 5.f, 6.f, 7.f, 8.f, 9.f, 10.f, 11.f,
- 12.f, 13.f, 14.f, 15.f, 16.f, 17.f, 18.f, 19.f, 20.f, 21.f, 22.f, 23.f,
- 24.f, 25.f, 30.f, 35.f, 40.f, 45.f, 50.f, 70.f, 100.f, 99999.f
- };
-
- static const float p1[34] =
- {
- 1013.f, 902.f, 802.f, 710.f, 628.f, 554.f, 487.f, 426.f,
- 372.f, 324.f, 281.f, 243.f, 209.f, 179.f, 153.f, 130.f, 111.f, 95.f,
- 81.2f, 69.5f, 59.5f, 51.f, 43.7f, 37.6f, 32.2f, 27.7f, 13.2f, 6.52f,
- 3.33f, 1.76f, .951f, .0671f, 3e-4f, 0.f
- };
-
- static const float t1[34] =
- {
- 294.f, 290.f, 285.f, 279.f, 273.f, 267.f, 261.f, 255.f,
- 248.f, 242.f, 235.f, 229.f, 222.f, 216.f, 216.f, 216.f, 216.f, 216.f,
- 216.f, 217.f, 218.f, 219.f, 220.f, 222.f, 223.f, 224.f, 234.f, 245.f, 258.f,
- 270.f, 276.f, 218.f, 210.f, 210.f
- };
-
- static const float wh1[34] =
- {
- 14.f, 9.3f, 5.9f, 3.3f, 1.9f, 1.f, .61f, .37f, .21f, .12f,
- .064f, .022f, .006f, .0018f, .001f, 7.6e-4f, 6.4e-4f, 5.6e-4f, 5e-4f,
- 4.9e-4f, 4.5e-4f, 5.1e-4f, 5.1e-4f, 5.4e-4f, 6e-4f, 6.7e-4f, 3.6e-4f,
- 1.1e-4f, 4.3e-5f, 1.9e-5f, 1.3e-6f, 1.4e-7f, 1e-9f, 0.f
- };
-
- static const float wo1[34] =
- {
- 6e-5f, 6e-5f, 6e-5f, 6.2e-5f, 6.4e-5f, 6.6e-5f, 6.9e-5f,
- 7.5e-5f, 7.9e-5f, 8.6e-5f, 9e-5f, 1.1e-4f, 1.2e-4f, 1.5e-4f, 1.8e-4f,
- 1.9e-4f, 2.1e-4f, 2.4e-4f, 2.8e-4f, 3.2e-4f, 3.4e-4f, 3.6e-4f, 3.6e-4f,
- 3.4e-4f, 3.2e-4f, 3e-4f, 2e-4f, 9.2e-5f, 4.1e-5f, 1.3e-5f, 4.3e-6f,
- 8.6e-8f, 4.3e-11f, 0.f
- };
-
- /* model: midlatitude summer mc clatchey */
- for (int i = 0; i < 34; i++)
- {
- z[i] = z1[i];
- p[i] = p1[i];
- t[i] = t1[i];
- wh[i] = wh1[i];
- wo[i] = wo1[i];
- }
-}
-
-void AtmosModel::midwin()
-{
- static const float z1[34] =
- {
- 0.f, 1.f, 2.f, 3.f, 4.f, 5.f, 6.f, 7.f, 8.f, 9.f, 10.f, 11.f,
- 12.f, 13.f, 14.f, 15.f, 16.f, 17.f, 18.f, 19.f, 20.f, 21.f, 22.f, 23.f,
- 24.f, 25.f, 30.f, 35.f, 40.f, 45.f, 50.f, 70.f, 100.f, 99999.f
- };
-
- static const float p1[34] =
- {
- 1018.f, 897.3f, 789.7f, 693.8f, 608.1f, 531.3f, 462.7f,
- 401.6f, 347.3f, 299.2f, 256.8f, 219.9f, 188.2f, 161.f, 137.8f, 117.8f,
- 100.7f, 86.1f, 73.5f, 62.8f, 53.7f, 45.8f, 39.1f, 33.4f, 28.6f, 24.3f,
- 11.1f, 5.18f, 2.53f, 1.29f, .682f, .0467f, 3e-4f, 0.f
- };
-
- static const float t1[34] =
- {
- 272.2f, 268.7f, 265.2f, 261.7f, 255.7f, 249.7f, 243.7f,
- 237.7f, 231.7f, 225.7f, 219.7f, 219.2f, 218.7f, 218.2f, 217.7f, 217.2f,
- 216.7f, 216.2f, 215.7f, 215.2f, 215.2f, 215.2f, 215.2f, 215.2f, 215.2f,
- 215.2f, 217.4f, 227.8f, 243.2f, 258.5f, 265.7f, 230.7f, 210.2f, 210.f
- };
-
- static const float wh1[34] =
- {
- 3.5f, 2.5f, 1.8f, 1.2f, .66f, .38f, .21f, .085f, .035f,
- .016f, .0075f, .0069f, .006f, .0018f, .001f, 7.6e-4f, 6.4e-4f, 5.6e-4f,
- 5e-4f, 4.9e-4f, 4.5e-4f, 5.1e-4f, 5.1e-4f, 5.4e-4f, 6e-4f, 6.7e-4f,
- 3.6e-4f, 1.1e-4f, 4.3e-5f, 1.9e-5f, 6.3e-6f, 1.4e-7f, 1e-9f, 0.f
- };
-
- static const float wo1[34] =
- {
- 6e-5f, 5.4e-5f, 4.9e-5f, 4.9e-5f, 4.9e-5f, 5.8e-5f,
- 6.4e-5f, 7.7e-5f, 9e-5f, 1.2e-4f, 1.6e-4f, 2.1e-4f, 2.6e-4f, 3e-4f,
- 3.2e-4f, 3.4e-4f, 3.6e-4f, 3.9e-4f, 4.1e-4f, 4.3e-4f, 4.5e-4f, 4.3e-4f,
- 4.3e-4f, 3.9e-4f, 3.6e-4f, 3.4e-4f, 1.9e-4f, 9.2e-5f, 4.1e-5f, 1.3e-5f,
- 4.3e-6f, 8.6e-8f, 4.3e-11f, 0.f
- };
-
- /* model: midlatitude winter mc clatchey */
- for (int i = 0; i < 34; i++)
- {
- z[i] = z1[i];
- p[i] = p1[i];
- t[i] = t1[i];
- wh[i] = wh1[i];
- wo[i] = wo1[i];
- }
-}
-
-void AtmosModel::subsum()
-{
- static const float z1[34] =
- {
- 0.f, 1.f, 2.f, 3.f, 4.f, 5.f, 6.f, 7.f, 8.f, 9.f, 10.f, 11.f,
- 12.f, 13.f, 14.f, 15.f, 16.f, 17.f, 18.f, 19.f, 20.f, 21.f, 22.f, 23.f,
- 24.f, 25.f, 30.f, 35.f, 40.f, 45.f, 50.f, 70.f, 100.f, 99999.f
- };
-
- static const float p1[34] =
- {
- 1010.f, 896.f, 792.9f, 700.f, 616.f, 541.f, 473.f, 413.f,
- 359.f, 310.7f, 267.7f, 230.f, 197.7f, 170.f, 146.f, 125.f, 108.f, 92.8f,
- 79.8f, 68.6f, 58.9f, 50.7f, 43.6f, 37.5f, 32.27f, 27.8f, 13.4f, 6.61f,
- 3.4f, 1.81f, .987f, .0707f, 3e-4f, 0.f
- };
-
- static const float t1[34] =
- {
- 287.f, 282.f, 276.f, 271.f, 266.f, 260.f, 253.f, 246.f,
- 239.f, 232.f, 225.f, 225.f, 225.f, 225.f, 225.f, 225.f, 225.f, 225.f,
- 225.f, 225.f, 225.f, 225.f, 225.f, 225.f, 226.f, 228.f, 235.f, 247.f, 262.f,
- 274.f, 277.f, 216.f, 210.f, 210.f
- };
-
- static const float wh1[34] =
- {
- 9.1f, 6.f, 4.2f, 2.7f, 1.7f, 1.f, .54f, .29f, .13f, .042f,
- .015f, .0094f, .006f, .0018f, .001f, 7.6e-4f, 6.4e-4f, 5.6e-4f, 5e-4f,
- 4.9e-4f, 4.5e-4f, 5.1e-4f, 5.1e-4f, 5.4e-4f, 6e-4f, 6.7e-4f, 3.6e-4f,
- 1.1e-4f, 4.3e-5f, 1.9e-5f, 6.3e-6f, 1.4e-7f, 1e-9f, 0.f
- };
-
- static const float wo1[34] =
- {
- 4.9e-5f, 5.4e-5f, 5.6e-5f, 5.8e-5f, 6e-5f, 6.4e-5f,
- 7.1e-5f, 7.5e-5f, 7.9e-5f, 1.1e-4f, 1.3e-4f, 1.8e-4f, 2.1e-4f, 2.6e-4f,
- 2.8e-4f, 3.2e-4f, 3.4e-4f, 3.9e-4f, 4.1e-4f, 4.1e-4f, 3.9e-4f, 3.6e-4f,
- 3.2e-4f, 3e-4f, 2.8e-4f, 2.6e-4f, 1.4e-4f, 9.2e-5f, 4.1e-5f, 1.3e-5f,
- 4.3e-6f, 8.6e-8f, 4.3e-11f, 0.f
- };
-
- /* model: subarctique summer mc clatchey */
- for (int i = 0; i < 34; i++)
- {
- z[i] = z1[i];
- p[i] = p1[i];
- t[i] = t1[i];
- wh[i] = wh1[i];
- wo[i] = wo1[i];
- }
-}
-
-void AtmosModel::subwin()
-{
- static const float z1[34] =
- {
- 0.f, 1.f, 2.f, 3.f, 4.f, 5.f, 6.f, 7.f, 8.f, 9.f, 10.f, 11.f,
- 12.f, 13.f, 14.f, 15.f, 16.f, 17.f, 18.f, 19.f, 20.f, 21.f, 22.f, 23.f,
- 24.f, 25.f, 30.f, 35.f, 40.f, 45.f, 50.f, 70.f, 100.f, 99999.f
- };
-
- static const float p1[34] =
- {
- 1013.f, 887.8f, 777.5f, 679.8f, 593.2f, 515.8f, 446.7f,
- 385.3f, 330.8f, 282.9f, 241.8f, 206.7f, 176.6f, 151.f, 129.1f, 110.3f,
- 94.31f, 80.58f, 68.82f, 58.75f, 50.14f, 42.77f, 36.47f, 31.09f, 26.49f,
- 22.56f, 10.2f, 4.701f, 2.243f, 1.113f, .5719f, .04016f, 3e-4f, 0.f
- };
-
- static const float t1[34] =
- {
- 257.1f, 259.1f, 255.9f, 252.7f, 247.7f, 240.9f, 234.1f,
- 227.3f, 220.6f, 217.2f, 217.2f, 217.2f, 217.2f, 217.2f, 217.2f, 217.2f,
- 216.6f, 216.f, 215.4f, 214.8f, 214.1f, 213.6f, 213.f, 212.4f, 211.8f,
- 211.2f, 216.f, 222.2f, 234.7f, 247.f, 259.3f, 245.7f, 210.f, 210.f
- };
-
- static const float wh1[34] =
- {
- 1.2f, 1.2f, .94f, .68f, .41f, .2f, .098f, .054f, .011f,
- .0084f, .0055f, .0038f, .0026f, .0018f, .001f, 7.6e-4f, 6.4e-4f, 5.6e-4f,
- 5e-4f, 4.9e-4f, 4.5e-4f, 5.1e-4f, 5.1e-4f, 5.4e-4f, 6e-4f, 6.7e-4f,
- 3.6e-4f, 1.1e-4f, 4.3e-5f, 1.9e-5f, 6.3e-6f, 1.4e-7f, 1e-9f, 0.f
- };
-
- static const float wo1[34] =
- {
- 4.1e-5f, 4.1e-5f, 4.1e-5f, 4.3e-5f, 4.5e-5f, 4.7e-5f,
- 4.9e-5f, 7.1e-5f, 9e-5f, 1.6e-4f, 2.4e-4f, 3.2e-4f, 4.3e-4f, 4.7e-4f,
- 4.9e-4f, 5.6e-4f, 6.2e-4f, 6.2e-4f, 6.2e-4f, 6e-4f, 5.6e-4f, 5.1e-4f,
- 4.7e-4f, 4.3e-4f, 3.6e-4f, 3.2e-4f, 1.5e-4f, 9.2e-5f, 4.1e-5f, 1.3e-5f,
- 4.3e-6f, 8.6e-8f, 4.3e-11f, 0.f
- };
-
- /* model: subarctique winter mc clatchey */
- for (int i = 0; i < 34; i++)
- {
- z[i] = z1[i];
- p[i] = p1[i];
- t[i] = t1[i];
- wh[i] = wh1[i];
- wo[i] = wo1[i];
- }
-}
-
-void AtmosModel::us62()
-{
- static const float z1[34] =
- {
- 0.f, 1.f, 2.f, 3.f, 4.f, 5.f, 6.f, 7.f, 8.f, 9.f, 10.f, 11.f,
- 12.f, 13.f, 14.f, 15.f, 16.f, 17.f, 18.f, 19.f, 20.f, 21.f, 22.f, 23.f,
- 24.f, 25.f, 30.f, 35.f, 40.f, 45.f, 50.f, 70.f, 100.f, 99999.f
- };
-
- static const float p1[34] =
- {
- 1013.f, 898.6f, 795.f, 701.2f, 616.6f, 540.5f, 472.2f,
- 411.1f, 356.5f, 308.f, 265.f, 227.f, 194.f, 165.8f, 141.7f, 121.1f,
- 103.5f, 88.5f, 75.65f, 64.67f, 55.29f, 47.29f, 40.47f, 34.67f, 29.72f, 25.49f,
- 11.97f, 5.746f, 2.871f, 1.491f, .7978f, .0552f, 3.008e-4f, 0.f
- };
-
- static const float t1[34] =
- {
- 288.1f, 281.6f, 275.1f, 268.7f, 262.2f, 255.7f, 249.2f,
- 242.7f, 236.2f, 229.7f, 223.2f, 216.8f, 216.6f, 216.6f, 216.6f, 216.6f,
- 216.6f, 216.6f, 216.6f, 216.6f, 216.6f, 217.6f, 218.6f, 219.6f, 220.6f,
- 221.6f, 226.5f, 236.5f, 253.4f, 264.2f, 270.6f, 219.7f, 210.f, 210.f
- };
-
- static const float wh1[34] =
- {
- 5.9f, 4.2f, 2.9f, 1.8f, 1.1f, .64f, .38f, .21f, .12f,
- .046f, .018f, .0082f, .0037f, .0018f, 8.4e-4f, 7.2e-4f, 6.1e-4f, 5.2e-4f,
- 4.4e-4f, 4.4e-4f, 4.4e-4f, 4.8e-4f, 5.2e-4f, 5.7e-4f, 6.1e-4f, 6.6e-4f,
- 3.8e-4f, 1.6e-4f, 6.7e-5f, 3.2e-5f, 1.2e-5f, 1.5e-7f, 1e-9f, 0.f
- };
-
- static const float wo1[34] =
- {
- 5.4e-5f, 5.4e-5f, 5.4e-5f, 5e-5f, 4.6e-5f, 4.6e-5f,
- 4.5e-5f, 4.9e-5f, 5.2e-5f, 7.1e-5f, 9e-5f, 1.3e-4f, 1.6e-4f, 1.7e-4f,
- 1.9e-4f, 2.1e-4f, 2.4e-4f, 2.8e-4f, 3.2e-4f, 3.5e-4f, 3.8e-4f, 3.8e-4f,
- 3.9e-4f, 3.8e-4f, 3.6e-4f, 3.4e-4f, 2e-4f, 1.1e-4f, 4.9e-5f, 1.7e-5f,
- 4e-6f, 8.6e-8f, 4.3e-11f, 0.f
- };
-
- /* model: us standard 62 mc clatchey */
- for (int i = 0; i < 34; i++)
- {
- z[i] = z1[i];
- p[i] = p1[i];
- t[i] = t1[i];
- wh[i] = wh1[i];
- wo[i] = wo1[i];
- }
-}
-
-
-void AtmosModel::parse()
-{
- cin >> idatm;
- cin.ignore(numeric_limits<int>::max(),'\n'); /* read the rest of the scraps, like comments */
-
- uw = 0.;
- uo3 = 0.;
-
- switch(idatm)
- {
- case 0: us62(); break;
- case 1: tropic(); break;
- case 2: midsum(); break;
- case 3: midwin(); break;
- case 4: subsum(); break;
- case 5: subwin(); break;
- case 6: us62(); break;
- case 7:
- {
- /* read input */
- for(int i = 0; i < 34; i++)
- {
- cin >> z[i];
- cin >> p[i];
- cin >> t[i];
- cin >> wh[i];
- cin >> wo[i];
- cin.ignore(numeric_limits<int>::max(),'\n'); /* read the rest of the scraps, like comments */
- }
- break;
- }
- case 8:
- {
- cin >> uw;
- cin >> uo3;
- cin.ignore(numeric_limits<int>::max(),'\n'); /* read the rest of the scraps, like comments */
- us62();
- break;
- }
- default: G_warning(_("Unknown atmospheric model!"));
- }
-}
-
-/* --- atmospheric model ---- */
-void AtmosModel::print()
-{
- static const string head(" atmospheric model description ");
- static const string line(" ----------------------------- ");
- Output::Begin(); Output::Repeat(22,' '); Output::Print(head); Output::End();
- Output::Begin(); Output::Repeat(22,' '); Output::Print(line); Output::End();
-
- if(idatm < 7)
- {
- static const string atmid[7] = {
- string("no absorption computed "),
- string("tropical (uh2o=4.12g/cm2,uo3=.247cm-atm)"),
- string("midlatitude summer (uh2o=2.93g/cm2,uo3=.319cm-atm)"),
- string("midlatitude winter (uh2o=.853g/cm2,uo3=.395cm-atm)"),
- string("subarctic summer (uh2o=2.10g/cm2,uo3=.480cm-atm)"),
- string("subarctic winter (uh2o=.419g/cm2,uo3=.480cm-atm)"),
- string("us standard 1962 (uh2o=1.42g/cm2,uo3=.344cm-atm)")
- };
-
- Output::Begin();
- Output::Repeat(10,' ');
- Output::Print(" atmospheric model identity : ");
- Output::End();
-
- Output::Begin();
- Output::Repeat(15,' ');
- Output::Print(atmid[idatm]);
- Output::End();
- }
- else if(idatm == 7)
- {
- Output::Begin();
- Output::Print(" atmospheric model identity : ");
- Output::End();
-
- Output::Begin();
- Output::Repeat(12, ' ');
- Output::Print(" user defined atmospheric model ");
- Output::End();
-
- Output::Begin();
- Output::Repeat(12, ' ');
- Output::Print("*altitude *pressure *temp. *h2o dens. *o3 dens. ");
- Output::End();
-
- for(int i = 0; i < 34; i++)
- {
- Output::Begin();
- Output::Repeat(12, ' ');
- ostringstream s;
- s.setf(ios::fixed, ios::floatfield);
- s << setprecision(4);
- s << setw(9) << z[i] << " ";
- s << setw(9) << p[i] << " ";
- s << setw(9) << t[i] << " ";
- s << setw(9) << wh[i] << " ";
- s << setw(9) << wo[i] << " ";
- s << ends;
- Output::Print(s.str());
- Output::End();
- }
- }
- else
- {
- Output::Begin();
- Output::Repeat(10, ' ');
- Output::Print(" atmospheric model identity : ");
- Output::End();
-
- Output::Begin();
- Output::Repeat(12, ' ');
- ostringstream s1;
- s1.setf(ios::fixed, ios::floatfield);
- s1 << setprecision(3);
- s1 << " user defined water content : uh2o=" << setw(9) << uw << " g/cm2 ";
- Output::Print(s1.str());
- Output::End();
-
- Output::Begin();
- Output::Repeat(12, ' ');
- ostringstream s2;
- s2.setf(ios::fixed, ios::floatfield);
- s2 << setprecision(3);
- s2 << " user defined ozone content : uo3 =" << setw(9) << uo3 << " cm-atm";
- Output::Print(s2.str());
- Output::End();
- }
-
- Output::Begin(); Output::End();
-}
-
-AtmosModel AtmosModel::Parse()
-{
- AtmosModel atms;
- atms.parse();
- return atms;
-}
Deleted: grass/trunk/imagery/i.atcorr/AtmosModel.h
===================================================================
--- grass/trunk/imagery/i.atcorr/AtmosModel.h 2014-06-09 08:51:29 UTC (rev 60762)
+++ grass/trunk/imagery/i.atcorr/AtmosModel.h 2014-06-09 09:12:09 UTC (rev 60763)
@@ -1,68 +0,0 @@
-#ifndef ATMOSPHERIC_MODEL_H
-#define ATMOSPHERIC_MODEL_H
-
-/* **********************************************************************c */
-/* idatm atmospheric model c */
-/* -------------------- c */
-/* c */
-/* c */
-/* you select one of the following standard atmosphere: idatm=0 to 6 c */
-/* 0 no gaseous absorption c */
-/* 1 tropical ) c */
-/* 2 midlatitude summer ) c */
-/* 3 midlatitude winter ) c */
-/* 4 subarctic summer ) from lowtran c */
-/* 5 subarctic winter ) c */
-/* 6 us standard 62 ) c */
-/* c */
-/* or you define your own atmospheric model idatm=7 or 8 c */
-/* 7 user profile (radiosonde data on 34 levels) c */
-/* enter altitude ( in km ) c */
-/* pressure ( in mb ) c */
-/* temperature ( in k ) c */
-/* h2o density (in g/m3) c */
-/* o3 density (in g/m3) c */
-/* c */
-/* for example, altitudes are from 0 to 25km step of 1km c */
-/* from 25 to 50km step of 5km c */
-/* and two values at 70km and 100km c */
-/* so you have 34*5 values to input. c */
-/* 8 enter water vapor and ozone contents c */
-/* uw (in g/cm2 ) c */
-/* uo3 (in cm-atm) c */
-/* profil is taken from us62 c */
-/* c */
-/* **********************************************************************c */
-
-struct AtmosModel
-{
- long int idatm; /* atmospheric model*/
-
- /* secondary */
- float uw;
- float uo3;
-
- /* primary */
- float z[34];
- float p[34];
- float t[34];
- float wh[34];
- float wo[34];
-
-private:
- /* methods to initialize each model */
- void us62();
- void tropic();
- void midsum();
- void midwin();
- void subsum();
- void subwin();
-
- void parse();
-
-public:
- void print();
- static AtmosModel Parse();
-};
-
-#endif /* ATMOSPHERIC_MODEL_H */
Deleted: grass/trunk/imagery/i.atcorr/Date.h
===================================================================
--- grass/trunk/imagery/i.atcorr/Date.h 2014-06-09 08:51:29 UTC (rev 60762)
+++ grass/trunk/imagery/i.atcorr/Date.h 2014-06-09 09:12:09 UTC (rev 60763)
@@ -1,55 +0,0 @@
-#ifndef MY_DATE_H
-#define MY_DATE_H
-
-#include "common.h"
-
-class Date
-{
- unsigned char day;
- unsigned char month;
- unsigned short year;
-
-public:
- Date() { day = 0; month = 0; year = 0; }
-
- /* Date needs to be in the format dd/mm/yyyy to be accepted */
- Date(std::string date)
- {
- std::istringstream buf(date);
- buf >> day;
- buf.ignore(numeric_limits<int>::max(), '/');
- buf >> month;
- buf.ignore(numeric_limits<int>::max(), '/');
- buf >> year;
-
- if(day > 31 || month > 12)
- cerr << "Date expected in format dd/mm/yyyy, not as " << date << endl;
- }
-
- Date(std::istream& in)
- {
- in >> day;
- in.ignore(numeric_limits<int>::max(), '/');
- in >> month;
- in.ignore(numeric_limits<int>::max(), '/');
- in >> year;
-
- if(day > 31 || month > 12)
- cerr << "Date expected in format dd/mm/yyyy!" << endl;
- }
-
- Date(unsigned char d, unsigned char m, unsigned short y) : day(d), month(m), year(m) {}
-
- unsigned char getDay() { return day; }
- unsigned char getMonth() { return month; }
- unsigned short getYear() { return year; }
-
- bool operator<(const Date& date)
- {
- return (year < date.year) ||
- ((year == date.year) && (month < date.month)) ||
- ((year == date.year) && (month == date.month) && (day < date.day));
- }
-};
-
-#endif /* MY_DATE_H */
Deleted: grass/trunk/imagery/i.atcorr/Gauss.h
===================================================================
--- grass/trunk/imagery/i.atcorr/Gauss.h 2014-06-09 08:51:29 UTC (rev 60762)
+++ grass/trunk/imagery/i.atcorr/Gauss.h 2014-06-09 09:12:09 UTC (rev 60763)
@@ -1,36 +0,0 @@
-#ifndef MY_GAUSS_H
-#define MY_GAUSS_H
-
-const long int mu = 25;
-const long int np = 49;
-
-/* index standard interval [-1,1] */
-#define STDI(X) ((X)+mu)
-
-struct Gauss
-{
-private:
- static float angmu[10];
- static float angphi[13];
-
-public:
- /* [a,b] = [0,2*Pi] */
- float rp[np]; /* gaussian angles */
- float gp[np]; /* gaussian weights */
-
- // [a,b] = [-1,1]
- float rm[2*mu+1]; /* shifted gaussian angles */
- float gb[2*mu+1]; /* shifted gaussian weights */
- /* with the ends zeroed as well as the center */
- /* [0 ? ? ? ? 0 ? ? ? ? 0] */
-
- /* preliminary computations for gauss integration */
- void init();
-
- /* Compute for a given n, the gaussian quadrature (the n gaussian angles and the
- their respective weights). The gaussian quadrature is used in numerical integration involving the
- cosine of emergent or incident direction zenith angle. */
- static void gauss (float a, float b, float *x, float *w, long int n);
-};
-
-#endif /* MY_GAUSS_H */
Deleted: grass/trunk/imagery/i.atcorr/GeomCond.cpp
===================================================================
--- grass/trunk/imagery/i.atcorr/GeomCond.cpp 2014-06-09 08:51:29 UTC (rev 60762)
+++ grass/trunk/imagery/i.atcorr/GeomCond.cpp 2014-06-09 09:12:09 UTC (rev 60763)
@@ -1,501 +0,0 @@
-extern "C" {
-#include <grass/gis.h>
-#include <grass/glocale.h>
-}
-
-#include "GeomCond.h"
-#include "common.h"
-
-/* **********************************************************************c */
-/* c */
-/* * sun c */
-/* \ * / c */
-/* * * * * * c */
-/* z / * \ c */
-/* + /+ c */
-/* satellite / + / c */
-/* o/ + / c */
-/* /.\ + /. c */
-/* / . \ _avis-_+_-asol_/ . c */
-/* . \- -+ / . north c */
-/* . \ + / . + c */
-/* . \ + / .+ c */
-/* . \ + / +. c */
-/* . \ + / + . c */
-/* . \ + / + . c */
-/* . \ +/ + . c */
-/* west + + + + + + + . + + + + +\+ + + + + . + + + + + + + + east c */
-/* . +.. . c */
-/* . + . . . c */
-/* . + . . . c */
-/* . + . .'. . c */
-/* . + .. . , ' .. c */
-/* .+ . \ . c */
-/* +. . \ . c */
-/* + . . \ . c */
-/* south . . (phiv-phi0) c */
-/* c */
-/* c */
-/* c */
-/* **********************************************************************c */
-
-
-/* To take into account the variation of the solar constant as a function
- of the Julian day.
-
- return dsol
- dsol is a multiplicative factor to apply to the mean value of solar constant
-*/
-float GeomCond::varsol ()
-{
-/* calculation of the variability of the solar constant during the year.
- jday is the number of the day in the month */
- long int j;
- if (month <= 2) j = (month - 1) * 31 + jday;
- else if (month > 8) j = (month - 1) * 31 - (month - 2) / 2 - 2 + jday;
- else j = (month - 1) * 31 - (month - 1) / 2 - 2 + jday;
-
-/* Computing 2nd power */
- double tmp = 1.f - cos ((float) (j - 4) * 0.9856f * M_PI / 180.f) * .01673f;
- return 1.f / (float)(tmp * tmp);
-}
-
-
-/* spot, landsat5 and landsat7 is handled the same way */
-void GeomCond::landsat(float tu)
-{
-/* warning !!! */
-/* xlon and xlat are the coordinates of the scene center. */
- avis = 0.f;
- phiv = 0.f;
- possol(tu);
-}
-
-/*
- To compute the solar azimuthal and zenithal angles (in degrees) for a point over
- the globe defined by its longitude and its latitude (in dec. degrees) for a day of the year (fixed by
- number of the month and number of the day in the month) at any Greenwich Meridian Time (GMT
- dec. hour).
-*/
-void GeomCond::possol(float tu)
-{
- long int ia = 0;
- long int nojour;
-/* solar position (zenithal angle asol,azimuthal angle phi0 */
-/* in degrees) */
-/* jday is the number of the day in the month */
- day_number(ia, nojour);
- pos_fft (nojour, tu);
- if (asol > 90.f)
- G_warning(_("The sun is not raised"));
-}
-
-void GeomCond::day_number(long int ia, long int& j)
-{
- if (month <= 2)
- {
- j = (month - 1) * 31 + jday;
- return;
- }
-
- if (month > 8) j = (month - 1) * 31 - (month - 2) / 2 - 2 + jday;
- else j = (month - 1) * 31 - (month - 1) / 2 - 2 + jday;
-
- if (ia != 0 && ia % 4 == 0) ++j;
-}
-
-/* returns the sign of the element */
-#define SIGN(X) (((X) >= 0) ? 1. : -1.)
-
-void GeomCond::pos_fft (long int j, float tu)
-{
- /* Local variables */
- double ah, et, az, caz, xla, tet, tsm, tsv, elev, azim, delta, amuzero;
-
- /* solar position (zenithal angle asol,azimuthal angle phi0 */
- /* in degrees) */
- /* j is the day number in the year */
-
- /* mean solar time (heure decimale) */
- tsm = tu + xlon / 15.;
- xla = xlat * M_PI / 180.;
- tet = (float)(j) * M_PI2 / 365.;
-
- /* time equation (in mn.dec) */
- et = 7.5e-5f + 0.001868f * cos (tet) - 0.032077f * sin (tet) -
- 0.014615f * cos (tet * 2.f) - 0.040849f * sin (tet * 2.f);
-
- et = et * 12.f * 60.f / M_PI;
-
- /* true solar time */
- tsv = tsm + et / 60.f;
- tsv += -12.f;
-
- /* hour angle */
- ah = tsv * 15.f * M_PI / 180.f;
-
- /* solar declination (in radian) */
- delta = 0.006918f - 0.399912f * cos (tet) + 0.070257f * sin (tet) -
- 0.006758f * cos (tet * 2.f) + 9.07e-4f * sin (tet * 2.f) -
- 0.002697f * cos (tet * 3.f) + 0.00148f * sin (tet * 3.f);
-
- /* elevation,azimuth */
- amuzero = sin (xla) * sin (delta) + cos (xla) * cos (delta) * cos (ah);
- elev = asin (amuzero);
- az = cos (delta) * sin (ah) / cos (elev);
-
- if (fabs (az) - 1.f > 0.f) az = SIGN(az);
-
- caz = (-cos (xla) * sin (delta) + sin (xla) * cos (delta) * cos (ah)) / cos (elev);
- azim = asin (az);
- if (caz <= 0.f) azim = M_PI - azim;
-
- if (caz > 0.f && az <= 0.f) azim += M_PI2;
-
- azim += M_PI;
- if (azim > M_PI2) azim -= M_PI2;
-
- elev = elev * 180. / M_PI;
-
- /* conversion in degrees */
- asol = (float)(90. - elev);
- phi0 = (float)(azim * 180. / M_PI);
-}
-
-/*
- convert:
- 1 = meteosat observation
- 2 = goes east observation
- 3 = goes west observation
-*/
-void GeomCond::posobs(float tu, int nc, int nl)
-{
- double yr, xr, alti;
-
- if(igeom == 1) /* meteosat observation */
- {
- yr = nl - 1250.5;
- xr = nc - 2500.5;
- alti = 42164.0 - 6378.155;
- }
- else if(igeom == 2) /* goes east observation */
- {
- yr = nl - 8665.5;
- xr = nc - 6498.5;
- alti = 42107.0 - 6378.155;
- }
- else /* goes west observation */
- {
- yr = nl - 8665.5;
- xr = nc - 6498.5;
- alti = 42147.0 - 6378.155;
- }
-
-
- const double re = 6378.155;
- const double aaa = 1. / 297.;
- const double rp = re / (1.f + aaa);
- const double cdr = M_PI / 180.;
- const double crd = 180. / M_PI;
-
- double deltax;
- double deltay;
-
- if(igeom == 1)
- {
- deltax = 18.0 / 5000.0;
- deltay = 18.0 / 2500.0;
- }
- else
- {
- deltax = 18.0 / 12997.0;
- deltay = 20.0 / 17331.0;
- }
-
- double x = xr * deltax * cdr;
- double y = yr * deltay * cdr;
- double rs = re + alti;
- double tanx = tan(x);
- double tany = tan(y);
- double val1 = 1.0 + (tanx * tanx);
- double val2 = 1.0 + (tany * (1.0 + aaa)) * (tany * (1.0 + aaa));
- double yk = rs / re;
- double cosx2 = 1. / (val1 * val2);
-
- double sn, zt, xt, yt, teta, ylat, ylon;
- if((1. / cosx2) > ((yk * yk) / (yk*yk - 1.)))
- {
- G_warning(_("No possibility to compute lat. and long."));
- return;
- }
- else
- {
- sn = (rs - (re * (sqrt((yk * yk) - (yk*yk - 1.) * (1. / cosx2))))) / (1. / cosx2);
- zt = rs - sn;
- xt = -(sn * tanx);
- yt = sn * tany / cos(x);
- teta = asin(yt / rp);
- ylat = (atan(((tan(teta)) * rp) / re));
- ylon = atan(xt / zt);
- }
-
- xlat = (float)(ylat * crd);
-
- if(igeom == 1) xlon = (float)(ylon * crd);
- else if(igeom == 2) xlon = (float)(ylon * crd - 75.);
- else xlon = (float)(ylon * crd - 135.);
-
- possol(tu);
-
- if(igeom == 1) ylon = xlon * M_PI / 180.;
- else if(igeom == 2) ylon = xlon * M_PI / 180. + 75. * cdr;
- else ylon = xlon * M_PI / 180. + 135. * cdr;
-
- ylat = xlat * M_PI / 180.;
- double gam = sqrt(((1. / cosx2) - 1.) * cosx2);
- avis = (float)(asin((1. + alti / re) * (gam)) * 180. / M_PI);
- phiv = (float)((atan2(tan(ylon),sin(ylat)) + M_PI) * 180. / M_PI);
-}
-
-void GeomCond::posnoa(float tu, int nc, float xlonan, float campm, float hna)
-{
-/* noaa 6 definition
- orbite inclination ai in radians
- hor mouv in rad/s an
- h/r=860/6378
- campm allows the user to switch to pm platforms */
-
- const double r = 860. / 6378.155;
- const double ai = 98.96 * M_PI / 180.;
- const double an = 360. * M_PI / (6119. * 180.);
- double ylonan = xlonan * M_PI / 180.;
- double t = tu * 3600;
- double hnam = hna;
- hnam = hnam * 3600;
- double u = t - hnam;
- u = campm * u * an;
- double delt = ((nc - (2048 + 1) / 2.) * 55.385 / ((2048. - 1) / 2.));
- delt = campm * delt * M_PI / 180.;
- avis = (float)asin((1 + r) * sin(delt));
- double d = avis - delt;
- double y = cos(d) * cos(ai) * sin(u) - sin(ai) * sin(d);
- double z = cos(d) * sin(ai) * sin(u) + cos(ai) * sin(d);
- double ylat = asin(z);
- double cosy = cos(d) * cos(u) / cos(ylat);
-
- double siny = y / cos(ylat);
- double ylon = asin(siny);
- if(cosy <= 0.)
- {
- if(siny > 0) ylon = M_PI - ylon;
- if(siny <= 0) ylon = -(M_PI + ylon);
- }
- double ylo1 = ylon + ylonan - (t - hnam) * 2. * M_PI / 86400.;
- xlat = (float)(ylat * 180. / M_PI);
- xlon = (float)(ylo1 * 180. / M_PI);
-
-
-
- possol(tu);
-
- double zlat = asin(sin(ai) * sin(u));
- double zlon = atan2(cos(ai) * sin(u),cos(u));
- if(nc != 1024)
- {
- double xnum = sin(zlon - ylon) * cos(zlat) / sin(fabs(d));
- double xden = (sin(zlat) - sin(ylat) * cos(d)) / cos(ylat) / sin(fabs(d));
- phiv = (float)atan2(xnum,xden);
- }
- else phiv = 0.;
- phiv = (float)(phiv * 180. / M_PI);
- avis = (float)(fabs(avis) * 180. / M_PI);
-}
-
-void GeomCond::parse()
-{
- cin >> igeom;
- cin.ignore(numeric_limits<int>::max(),'\n'); /* read the rest of the scraps, like comments */
-
- float campm = -1.0f; /* initialize in case igeom == 5 */
- float tu, xlonan, hna;
- int nc, nl;
-
- switch(igeom)
- {
- case 0: /* internal format */
- {
- cin >> asol;
- cin >> phi0;
- cin >> avis;
- cin >> phiv;
- cin >> month;
- cin >> jday;
- cin.ignore(numeric_limits<int>::max(),'\n'); /* read the rest of the scraps, like comments */
- break;
- }
- case 1: /* meteosat observation */
- case 2: /* goes east observation */
- case 3: /* goes west observation */
- {
- cin >> month;
- cin >> jday;
- cin >> tu;
- cin >> nc;
- cin >> nl;
- cin.ignore(numeric_limits<int>::max(),'\n');
- posobs(tu, nc, nl);
- break;
- }
- case 4: campm = 1.0f;
- case 5:
- {
- cin >> month;
- cin >> jday;
- cin >> tu;
- cin >> nc;
- cin >> xlonan;
- cin >> hna;
- cin.ignore(numeric_limits<int>::max(),'\n');
- posnoa(tu, nc, xlonan, campm, hna);
- break;
- }
- case 6: /* hrv ( spot ) * enter month,day,hh.ddd,long.,lat. */
- case 7: /* tm ( landsat ) * enter month,day,hh.ddd,long.,lat. */
- case 8: /* etm+ ( landsat7) * enter month,day,hh.ddd,long.,lat. */
- case 9: /* liss ( IRS 1C) * enter month,day,hh.ddd,long.,lat. */
- case 10: /* aster * enter month,day,hh.ddd,long.,lat. */
- case 11: /* avnir * enter month,day,hh.ddd,long.,lat. */
- case 12: /* ikonos * enter month,day,hh.ddd,long.,lat. */
- case 13: /* rapideye * enter month,day,hh.ddd,long.,lat. */
- case 14: /* vgt1_spot4 * enter month,day,hh.ddd,long.,lat. */
- case 15: /* vgt2_spot5 * enter month,day,hh.ddd,long.,lat. */
- case 16: /* worldview2 * enter month,day,hh.ddd,long.,lat. */
- case 17: /* quickbird2 * enter month,day,hh.ddd,long.,lat. */
- case 18: /* Landsat 8 * enter month,day,hh.ddd,long.,lat. */
- {
- cin >> month;
- cin >> jday;
- cin >> tu;
- cin >> xlon;
- cin >> xlat;
- cin.ignore(numeric_limits<int>::max(),'\n'); /* read the rest of the scraps, like comments */
- landsat(tu);
- break;
- }
- default: G_fatal_error(_("Unsupported/unreadable format in control file (found igeom=%ld)"), igeom);
- }
-
-
- /* ********************************************************************** */
- /* */
- /* / scattered direction */
- /* / */
- /* / */
- /* / adif */
- /* incident + + + + + + + + + + + + + + + */
- /* direction */
- /* */
- /* ********************************************************************** */
- phi = (float)fabs(phiv - phi0);
- phirad = (phi0 - phiv) * (float)M_PI / 180.f;
- if (phirad < 0.f) phirad += (float)M_PI2;
- if (phirad > M_PI2) phirad -= (float)M_PI2;
-
- xmus = (float)cos (asol * M_PI / 180.f);
- xmuv = (float)cos (avis * M_PI / 180.f);
- xmup = (float)cos (phirad);
- xmud = -xmus * xmuv - (float)sqrt (1.f - xmus * xmus) * (float)sqrt (1.f - xmuv * xmuv) * xmup;
-
- /* test vermote bug */
- if (xmud > 1.f) xmud = 1.f;
- if (xmud < -1.f) xmud = -1.f;
- adif = (float)acos (xmud) * 180.f / (float)M_PI;
-
- dsol = varsol();
-}
-
-/* ---- print geometrical conditions ---- */
-void GeomCond::print()
-{
- static const string etiq1[] = {
- string(" user defined conditions "),
- string(" Meteosat observation "),
- string(" GOES east observation "),
- string(" GOES west observation "),
- string(" AVHRR (AM noaa) observation "),
- string(" AVHRR (PM noaa) observation "),
- string(" H.R.V. observation "),
- string(" T.M. observation "),
- string(" ETM+ observation "),
- string(" LISS observation "),
- string(" ASTER observation "),
- string(" AVNIR observation "),
- string(" Ikonos observation "),
- string(" Rapideye observation "),
- string(" VGT1-SPOT4 observation "),
- string(" VGT2-SPOT5 observation "),
- string(" Worldview2 observation "),
- string(" Quickbird2 observation "),
- string(" Landsat 8 observation ")
- };
-
- static const string head(" geometrical conditions identity ");
- static const string line(" ------------------------------- ");
- Output::Begin(); Output::Repeat(22,' '); Output::Print(head); Output::End();
- Output::Begin(); Output::Repeat(22,' '); Output::Print(line); Output::End();
-
-
- Output::Begin(); Output::Repeat(22,' '); Output::Print(etiq1[igeom]); Output::End();
- Output::Begin(); Output::End();
-
-
- Output::Begin(); Output::Repeat(2,' ');
- ostringstream s1;
- s1.setf(ios::fixed, ios::floatfield);
- s1 << " month: " << month << " day: " << jday;
- s1 << ends;
- Output::Print(s1.str());
- Output::End();
-
-
- Output::Begin(); Output::Repeat(2,' ');
- ostringstream s2;
- s2.setf(ios::fixed, ios::floatfield);
- s2 << setprecision(2);
-
-
- s2 << " solar zenith angle: " << setw(6) << asol << " deg ";
- s2 << " solar azimuthal angle: " << setw(6) << phi0 << " deg";
- s2 << ends;
- Output::Print(s2.str());
- Output::End();
-
-
- Output::Begin(); Output::Repeat(2,' ');
- ostringstream s3;
- s3.setf(ios::fixed, ios::floatfield);
- s3 << setprecision(2);
- s3 << " view zenith angle: " << setw(6) << avis << " deg ";
- s3 << " view azimuthal angle: " << setw(6) << phiv << " deg ";
- s3 << ends;
- Output::Print(s3.str());
- Output::End();
- Output::Begin(); Output::Repeat(2,' ');
- ostringstream s4;
- s4.setf(ios::fixed, ios::floatfield);
- s4 << setprecision(2);
- s4 << " scattering angle: " << setw(6) << adif << " deg ";
- s4 << " azimuthal angle difference: " << setw(6) << phi << " deg ";
- s4 << ends;
- Output::Print(s4.str());
- Output::End();
-
- Output::Begin(); Output::End();
-}
-
-GeomCond GeomCond::Parse()
-{
- GeomCond geom;
- geom.parse();
- return geom;
-}
Deleted: grass/trunk/imagery/i.atcorr/GeomCond.h
===================================================================
--- grass/trunk/imagery/i.atcorr/GeomCond.h 2014-06-09 08:51:29 UTC (rev 60762)
+++ grass/trunk/imagery/i.atcorr/GeomCond.h 2014-06-09 09:12:09 UTC (rev 60763)
@@ -1,120 +0,0 @@
-#ifndef GEOMETRICAL_CONTITIONS_H
-#define GEOMETRICAL_CONTITIONS_H
-
-/* **********************************************************************c */
-/* igeom geometrical conditions c */
-/* -------------------------------------- c */
-/* c */
-/* c */
-/* you choose your own conditions; igeom=0 c */
-/* 0 enter solar zenith angle (in degrees ) c */
-/* solar azimuth angle " c */
-/* satellite zenith angle " c */
-/* satellite azimuth angle " c */
-/* month c */
-/* day of the month c */
-/* c */
-/* or you select one of the following satellite conditions:igeom=1to7 c */
-/* 1 meteosat observation c */
-/* enter month,day,decimal hour (universal time-hh.ddd) c */
-/* n. of column,n. of line.(full scale 5000*2500) c */
-/* c */
-/* 2 goes east observation c */
-/* enter month,day,decimal hour (universal time-hh.ddd) c */
-/* n. of column,n. of line.(full scale 17000*12000)c */
-/* c */
-/* 3 goes west observation c */
-/* enter month,day,decimal hour (universal time-hh.ddd) c */
-/* n. of column,n. of line.(full scale 17000*12000)c */
-/* c */
-/* 4 avhrr ( PM noaa ) c */
-/* enter month,day,decimal hour (universal time-hh.ddd) c */
-/* n. of column(1-2048),xlonan,hna c */
-/* give long.(xlonan) and overpass hour (hna) at c */
-/* the ascendant node at equator c */
-/* c */
-/* 5 avhrr ( AM noaa ) c */
-/* enter month,day,decimal hour (universal time-hh.ddd) c */
-/* n. of column(1-2048),xlonan,hna c */
-/* give long.(xlonan) and overpass hour (hna) at c */
-/* the ascendant node at equator c */
-/* c */
-/* 6 hrv ( spot ) * enter month,day,hh.ddd,long.,lat.c */
-/* c */
-/* 7 tm ( landsat ) * enter month,day,hh.ddd,long.,lat.c */
-/* c */
-/* 8 etm+ ( landsat7) * enter month,day,hh.ddd,long.,lat.c */
-/* c */
-/* 9 liss ( IRC 1C ) * enter month,day,hh.ddd,long.,lat.c */
-/* c */
-/* 10 aster * enter month,day,hh.ddd,long.,lat.c */
-/* c */
-/* 11 avnir * enter month,day,hh.ddd,long.,lat.c */
-/* c */
-/* 12 ikonos * enter month,day,hh.ddd,long.,lat.c */
-/* c */
-/* 13 rapideye * enter month,day,hh.ddd,long.,lat.c */
-/* c */
-/* 14 vgt1_spot4 * enter month,day,hh.ddd,long.,lat.c */
-/* c */
-/* 15 vgt2_spot5 * enter month,day,hh.ddd,long.,lat.c */
-/* c */
-/* 16 worldview2 * enter month,day,hh.ddd,long.,lat.c */
-/* c */
-/* 17 quickbird * enter month,day,hh.ddd,long.,lat. c */
-/* c */
-/* 18 Landsat 8 * enter month,day,hh.ddd,long.,lat. c */
-/* c */
-/* note: for hrv and tm experiments long. and lat. are the c */
-/* coordinates of the scene center. c */
-/* lat. must be > 0 for north lat., < 0 for south lat. c */
-/* long. must be > 0 for east long., < 0 for west long. c */
-/* c */
-/* solar and viewing positions are computed c */
-/* c */
-/* *********************************************************************c */
-
-struct GeomCond
-{
- long int igeom; /* geometrical conditions */
-
- /* primary */
- float asol;
- float phi0;
- float avis;
- float phiv;
- long int month;
- long int jday;
- float xlon;
- float xlat;
-
- /* some vars */
- float phi;
- float phirad;
- float xmus;
- float xmuv;
- float xmup;
- float xmud;
- float adif;
-
- float dsol;
-
- void print();
-
-private:
- /* conversion routines */
- void possol(float tu);
- void landsat(float tu);
- void posobs(float tu, int nc, int nl);
- void posnoa(float tu, int nc, float xlonan, float campm, float hna);
-
- void day_number(long int ia, long int& j);
- void pos_fft (long int j, float tu);
-
- float varsol(); /* returns dsol as in fortran proggie */
- void parse();
-public:
- static GeomCond Parse();
-};
-
-#endif /* GEOMETRICAL_CONTITIONS_H */
Deleted: grass/trunk/imagery/i.atcorr/Interp.cpp
===================================================================
--- grass/trunk/imagery/i.atcorr/Interp.cpp 2014-06-09 08:51:29 UTC (rev 60762)
+++ grass/trunk/imagery/i.atcorr/Interp.cpp 2014-06-09 09:12:09 UTC (rev 60763)
@@ -1,203 +0,0 @@
-#include "common.h"
-#include "Interp.h"
-
-void interp (const int iaer, const int idatmp,
- const float wl, const float taer55,
- const float taer55p, const float xmud,
- InterpStruct& is)
-{
-/* that for the atmosphere :
- the reflectances
- rayleigh = rorayl
- aerosols = roaero
- mixing = romix
- the downward transmittances
- rayleigh = dtotr
- aerosols = dtota
- total = dtott
- the upward transmittances
- rayleigh = utotr
- aerosols = utota
- total = utott
- the spherical albedos
- rayleigh = asray
- aerosols = asaer
- total = astot
- the optical thickness of total atmosphere
- rayleigh = tray
- aerosols = taer
- the optical thickness of the atmosphere above the plane
- rayleigh = is.trayp
- aerosols = taerp
- the tsca of the aerosols (god dammed it)
- total atmosphere = tsca */
-
- int linf = 0;
- for(int i = 0; i < 9; i++) if(wl > sixs_disc.wldis[i] && wl <= sixs_disc.wldis[i+1]) linf = i;
-
- if(wl > sixs_disc.wldis[9]) linf = 8;
- int lsup = linf + 1;
-
-
- /* interpolation in function of wavelength for scattering
- atmospheric functions from discrete values at sixs_disc.wldis */
-
- float alphaa = 0;
- float betaa = 0;
- float alphar = 0;
- float betar = 0;
- float alphac = 0;
- float betac = 0;
- is.phaa = 0;
- is.roaero = 0;
- is.dtota = 1;
- is.utota = 1;
- is.asaer = 0;
- is.taer = 0;
- is.taerp = 0;
- float coef = (float)log(sixs_disc.wldis[lsup] / sixs_disc.wldis[linf]);
- float wlinf = sixs_disc.wldis[linf];
-
- if(iaer != 0)
- {
- alphaa = (float)(log(sixs_aer.phase[lsup] / sixs_aer.phase[linf]) / coef);
- betaa = (float)(sixs_aer.phase[linf] / pow(wlinf,alphaa));
- is.phaa = (float)(betaa * pow(wl,alphaa));
- }
-
- float d2 = 2 + delta;
- is.phar = (2 * (1 - delta) / d2) * .75f * (1 + xmud * xmud) + 3 * delta / d2;
- if(idatmp == 0)
- {
- betar = 0;
- betaa = 0;
- betac = 0;
- }
- else
- {
- if(sixs_disc.roatm[0][linf] < 0.001)
- {
- is.rorayl = sixs_disc.roatm[0][linf] + (sixs_disc.roatm[0][lsup] - sixs_disc.roatm[0][linf])
- * (wl - sixs_disc.wldis[linf]) / (sixs_disc.wldis[lsup] - sixs_disc.wldis[linf]);
- }
- else
- {
- alphar = (float)(log(sixs_disc.roatm[0][lsup] / sixs_disc.roatm[0][linf]) / coef);
- betar = (float)(sixs_disc.roatm[0][linf] / pow(wlinf,alphar));
- is.rorayl = (float)(betar * pow(wl,alphar));
- }
-
- if(sixs_disc.roatm[1][linf] < 0.001)
- {
- is.romix = sixs_disc.roatm[1][linf] + (sixs_disc.roatm[1][lsup] - sixs_disc.roatm[1][linf])
- * (wl - sixs_disc.wldis[linf]) / (sixs_disc.wldis[lsup] - sixs_disc.wldis[linf]);
- }
- else
- {
- alphac = (float)(log(sixs_disc.roatm[1][lsup] / sixs_disc.roatm[1][linf]) / coef);
- betac = (float)(sixs_disc.roatm[1][linf] / pow(wlinf,alphac));
- is.romix = (float)(betac * pow(wl,alphac));
- }
-
- if(iaer != 0)
- {
-
- if(sixs_disc.roatm[2][linf] < 0.001)
- {
- is.roaero = sixs_disc.roatm[2][linf]+(sixs_disc.roatm[2][lsup] - sixs_disc.roatm[2][linf])
- * (wl - sixs_disc.wldis[linf]) / (sixs_disc.wldis[lsup] - sixs_disc.wldis[linf]);
- }
- else
- {
- alphaa = (float)(log(sixs_disc.roatm[2][lsup] / sixs_disc.roatm[2][linf]) / coef);
- betaa = (float)(sixs_disc.roatm[2][linf] / pow(wlinf,alphaa));
- is.roaero = (float)(betaa * pow(wl,alphaa));
- }
- }
- }
-
- alphar = (float)(log(sixs_disc.trayl[lsup] / sixs_disc.trayl[linf]) / coef);
- betar = (float)(sixs_disc.trayl[linf] / pow(wlinf,alphar));
- is.tray = (float)(betar * pow(wl,alphar));
-
- if (idatmp != 0)
- {
- alphar = (float)(log(sixs_disc.traypl[lsup] / sixs_disc.traypl[linf]) / coef);
- betar = (float)(sixs_disc.traypl[linf] / pow(wlinf,alphar));
- is.trayp = (float)(betar * pow(wl,alphar));
- }
- else is.trayp = 0;
-
- if(iaer != 0)
- {
- alphaa = (float)(log(sixs_aer.ext[lsup] * sixs_aer.ome[lsup] / (sixs_aer.ext[linf] * sixs_aer.ome[linf])) / coef);
- betaa = (float)(sixs_aer.ext[linf] * sixs_aer.ome[linf] / pow(wlinf,alphaa));
- is.tsca = (float)(taer55 * betaa * pow(wl,alphaa) / sixs_aer.ext[3]);
- alphaa = (float)(log(sixs_aer.ext[lsup] / sixs_aer.ext[linf]) / coef);
- betaa = (float)(sixs_aer.ext[linf] / pow(wlinf,alphaa));
- is.taerp = (float)(taer55p * betaa * pow(wl,alphaa) / sixs_aer.ext[3]);
- is.taer = (float)(taer55 * betaa * pow(wl,alphaa) / sixs_aer.ext[3]);
- }
-
- float drinf = sixs_disc.dtdif[0][linf] + sixs_disc.dtdir[0][linf];
- float drsup = sixs_disc.dtdif[0][lsup] + sixs_disc.dtdir[0][lsup];
- alphar = (float)(log(drsup / drinf) / coef);
- betar = (float)(drinf / pow(wlinf,alphar));
- is.dtotr = (float)(betar * pow(wl,alphar));
- float dtinf = sixs_disc.dtdif[1][linf] + sixs_disc.dtdir[1][linf];
- float dtsup = sixs_disc.dtdif[1][lsup] + sixs_disc.dtdir[1][lsup];
- alphac = (float)(log((dtsup * drinf) / (dtinf * drsup)) / coef);
- betac = (float)((dtinf / drinf) / pow(wlinf,alphac));
- float dtotc = (float)(betac * pow(wl,alphac));
- float dainf = sixs_disc.dtdif[2][linf] + sixs_disc.dtdir[2][linf];
- float dasup = sixs_disc.dtdif[2][lsup] + sixs_disc.dtdir[2][lsup];
-
- if(iaer != 0)
- {
- alphaa = (float)(log(dasup / dainf) / coef);
- betaa = (float)(dainf / pow(wlinf,alphaa));
- is.dtota = (float)(betaa * pow(wl,alphaa));
- }
-
- is.dtott = dtotc * is.dtotr;
- float urinf = sixs_disc.utdif[0][linf] + sixs_disc.utdir[0][linf];
- float ursup = sixs_disc.utdif[0][lsup] + sixs_disc.utdir[0][lsup];
- alphar = (float)(log(ursup / urinf) / coef);
- betar = (float)(urinf / pow(wlinf,alphar));
- is.utotr = (float)(betar * pow(wl,alphar));
- float utinf = sixs_disc.utdif[1][linf] + sixs_disc.utdir[1][linf];
- float utsup = sixs_disc.utdif[1][lsup] + sixs_disc.utdir[1][lsup];
- alphac = (float)(log((utsup * urinf) / (utinf * ursup)) / coef);
- betac = (float)((utinf / urinf) / pow(wlinf,alphac));
- float utotc = (float)(betac * pow(wl,alphac));
- float uainf = sixs_disc.utdif[2][linf] + sixs_disc.utdir[2][linf];
- float uasup = sixs_disc.utdif[2][lsup] + sixs_disc.utdir[2][lsup];
- is.utott = utotc * is.utotr;
-
- if(iaer != 0)
- {
- alphaa = (float)(log(uasup / uainf) / coef);
- betaa = (float)(uainf / pow(wlinf,alphaa));
- is.utota = (float)(betaa * pow(wl,alphaa));
- }
-
- float arinf = sixs_disc.sphal[0][linf];
- float arsup = sixs_disc.sphal[0][lsup];
- alphar = (float)(log(arsup / arinf) / coef);
- betar = (float)(arinf / pow(wlinf,alphar));
- is.asray = (float)(betar * pow(wl,alphar));
- float atinf = sixs_disc.sphal[1][linf];
- float atsup = sixs_disc.sphal[1][lsup];
- alphac = (float)(log(atsup / atinf) / coef);
- betac = (float)(atinf / pow(wlinf,alphac));
- is.astot = (float)(betac * pow(wl,alphac));
- float aainf = sixs_disc.sphal[2][linf];
- float aasup = sixs_disc.sphal[2][lsup];
-
- if(iaer != 0)
- {
- alphaa = (float)(log(aasup / aainf) / coef);
- betaa = (float)(aainf / pow(wlinf,alphaa));
- is.asaer = (float)(betaa * pow(wl,alphaa));
- }
-}
Deleted: grass/trunk/imagery/i.atcorr/Interp.h
===================================================================
--- grass/trunk/imagery/i.atcorr/Interp.h 2014-06-09 08:51:29 UTC (rev 60762)
+++ grass/trunk/imagery/i.atcorr/Interp.h 2014-06-09 09:12:09 UTC (rev 60763)
@@ -1,36 +0,0 @@
-#ifndef INTERP_H
-#define INTERP_H
-
-struct InterpStruct
-{
- float romix;
- float rorayl;
- float roaero;
- float phaa;
- float phar;
- float tsca;
- float tray;
- float trayp;
- float taer;
- float taerp;
- float dtott;
- float utott;
- float astot;
- float asray;
- float asaer;
- float utotr;
- float utota;
- float dtotr;
- float dtota;
-};
-
-/*
-To estimate the different atmospheric functions r(mS,mv,fS,fv), T(q) and S at any
-wavelength from the 10 discret computations (subroutine DISCOM).
- */
-void interp (const int iaer, const int idatmp,
- const float wl, const float taer55,
- const float taer55p, const float xmud,
- InterpStruct& is);
-
-#endif /* INTERP_H */
Deleted: grass/trunk/imagery/i.atcorr/Iwave.cpp
===================================================================
--- grass/trunk/imagery/i.atcorr/Iwave.cpp 2014-06-09 08:51:29 UTC (rev 60762)
+++ grass/trunk/imagery/i.atcorr/Iwave.cpp 2014-06-09 09:12:09 UTC (rev 60763)
@@ -1,3317 +0,0 @@
-extern "C" {
-#include <grass/gis.h>
-#include <grass/glocale.h>
-}
-
-#include "common.h"
-#include "Iwave.h"
-
-#ifdef WIN32
-#pragma warning(disable:4305) /* disable warning about initialization of a float by a double */
-#endif
-
-/* Adding new band filters:
- * see README
- */
-
-
-/*
- spectral band of meteosat
-*/
-void IWave::meteo()
-{
- static const float sr[305] = {
- .00, .00, .00, .01, .01, .01, .02,
- .02, .02, .02, .02, .02, .03, .03,
- .04, .04, .04, .05, .05, .05, .06,
- .06, .07, .07, .07, .08, .08, .09,
- .09, .10, .10, .10, .11, .11, .12,
- .12, .12, .13, .14, .14, .15, .15,
- .16, .16, .17, .17, .18, .18, .19,
- .20, .20, .21, .21, .22, .23, .24,
- .24, .25, .26, .27, .28, .28, .29,
- .30, .30, .31, .32, .33, .34, .35,
- .35, .36, .37, .38, .39, .40, .40,
- .41, .42, .43, .44, .45, .46, .48,
- .49, .50, .51, .52, .53, .55, .56,
- .57, .58, .60, .61, .62, .63, .64,
- .65, .65, .66, .67, .67, .68, .69,
- .69, .70, .71, .71, .72, .73, .73,
- .74, .76, .77, .78, .78, .79, .80,
- .81, .82, .83, .84, .85, .86, .87,
- .88, .89, .89, .91, .92, .93, .94,
- .95, .96, .96, .97, .98, .98, .99,
- .99, .99, .99, 1.00, 1.00, 1.00, 1.00,
- 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, .99,
- .99, .99, .99, .98, .98, .98, .98,
- .98, .97, .97, .97, .97, .97, .97,
- .97, .96, .96, .96, .96, .96, .96,
- .96, .96, .96, .96, .95, .95, .95,
- .94, .93, .93, .92, .92, .91, .90,
- .89, .89, .88, .88, .87, .86, .86,
- .85, .85, .84, .84, .83, .82, .82,
- .81, .80, .80, .79, .79, .78, .77,
- .77, .76, .76, .75, .75, .74, .74,
- .74, .73, .73, .72, .71, .70, .68,
- .67, .65, .64, .63, .62, .61, .60,
- .59, .58, .57, .56, .55, .54, .53,
- .52, .51, .50, .49, .49, .48, .47,
- .46, .45, .43, .42, .41, .40, .39,
- .38, .37, .36, .35, .34, .33, .31,
- .30, .29, .28, .28, .27, .25, .24,
- .23, .22, .21, .20, .19, .18, .17,
- .16, .15, .14, .13, .12, .11, .11,
- .10, .09, .08, .08, .08, .07, .06,
- .06, .05, .05, .05, .04, .04, .03,
- .03, .02, .02, .01, .01, .01, .01,
- .01, .00, .00, .00 };
-
-
- ffu.wlinf=0.3499999f;
- ffu.wlsup=1.11f;
-
- int i;
- for(i = 0; i < 40; i++) ffu.s[0] = 0;
- for(i = 0; i < 305; i++) ffu.s[40+i] = sr[i];
- for(i = 345; i < 1501; i++) ffu.s[i] = 0;
-}
-
-
-void IWave::goes_east()
-{
- /* spectral band of goes east */
- static const float sr[165] = {
- .00, .00, .00, .01, .01, .03, .05,
- .09, .13, .22, .30, .38, .46, .52,
- .58, .63, .68, .70, .73, .75, .77,
- .79, .81, .82, .84, .85, .86, .87,
- .88, .89, .90, .91, .92, .93, .93,
- .94, .95, .96, .96, .97, .98, .99,
- .99, .99, .98, .98, .97, .97, .96,
- .95, .95, .94, .94, .93, .93, .92,
- .92, .91, .91, .91, .91, .91, .91,
- .91, .91, .91, .91, .90, .89, .88,
- .88, .86, .84, .83, .81, .79, .77,
- .75, .73, .71, .69, .69, .68, .67,
- .66, .65, .64, .63, .61, .60, .59,
- .57, .56, .54, .52, .50, .49, .47,
- .46, .44, .43, .41, .40, .38, .36,
- .35, .33, .32, .30, .29, .28, .27,
- .26, .25, .23, .22, .21, .20, .19,
- .18, .17, .16, .15, .14, .13, .12,
- .11, .10, .10, .09, .08, .08, .07,
- .06, .06, .05, .05, .04, .04, .03,
- .03, .03, .02, .02, .02, .02, .01,
- .01, .01, .01, .01, .00, .00, .00,
- .00, .00, .00, .00, .00, .00, .00,
- .00, .00, .00, .00 };
-
- ffu.wlinf = 0.49f;
- ffu.wlsup = 0.8999999f;
- int i = 0;
- for(i = 0; i < 96; i++) ffu.s[i] = 0;
- for(i = 0; i < 165; i++) ffu.s[96+i] = sr[i];
- for(i = 261; i < 1501; i++) ffu.s[i] = 0;
-}
-
-void IWave::goes_west()
-{
- /* spectral band of goes west */
-
- static const float sr[165] = {
- .00, .00, .00, .00, .00, .01, .02,
- .04, .06, .12, .18, .30, .41, .51,
- .61, .69, .77, .83, .89, .91, .93,
- .94, .96, .96, .97, .98, .99, .99,
- .99, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00,
- .99, .99, .99, .98, .98, .97, .97,
- .96, .96, .96, .95, .95, .95, .94,
- .94, .93, .92, .91, .90, .89, .88,
- .87, .86, .85, .84, .83, .82, .81,
- .80, .80, .79, .78, .77, .76, .75,
- .74, .73, .72, .70, .69, .67, .66,
- .64, .63, .61, .59, .58, .56, .55,
- .54, .52, .51, .50, .49, .48, .46,
- .45, .44, .43, .41, .40, .38, .37,
- .36, .34, .33, .32, .31, .29, .28,
- .27, .26, .24, .23, .22, .21, .20,
- .19, .18, .17, .17, .16, .15, .14,
- .14, .13, .12, .12, .11, .10, .09,
- .09, .08, .08, .07, .07, .07, .06,
- .06, .05, .05, .05, .04, .04, .03,
- .03, .03, .03, .02, .02, .02, .02,
- .02, .01, .01, .01, .01, .01, .01,
- .01, .00, .00, .00, .00, .00, .00,
- .00, .00, .00, .00 };
-
- ffu.wlinf = 0.49f;
- ffu.wlsup = 0.8999999f;
- int i = 0;
- for(i = 0; i < 96; i++) ffu.s[i] = 0;
- for(i = 0; i < 165; i++) ffu.s[96+i] = sr[i];
- for(i = 261; i < 1501; i++) ffu.s[i] = 0;
-}
-
-void IWave::avhrr(int iwa)
-{
- /* 1st spectral band of avhrr (noaa 6) */
- static const float sr1[80] = {
- .0000, .0178, .0355, .0533, .0710, .1655, .2600, .3545,
- .4490, .5215, .5940, .6665, .7390, .7575, .7760, .7945,
- .8130, .8113, .8095, .8078, .8060, .8201, .8343, .8484,
- .8625, .8766, .8908, .9049, .9190, .9291, .9393, .9494,
- .9595, .9696, .9798, .9899, 1.000, .9996, .9992, .9989,
- .9985, .9981, .9977, .9974, .9970, .9596, .9222, .8849,
- .8475, .8101, .7727, .7354, .6980, .6047, .5115, .4182,
- .3250, .2767, .2285, .1802, .1320, .1127, .0935, .0742,
- .0550, .0480, .0410, .0340, .0270, .0235, .0200, .0165,
- .0130, .0115, .0100, .0085, .0070, .0052, .0035, .0017
- };
-
- /* 2nd spectral band of avhrr (noaa 6) */
- static const float sr2[173] = {
-
- .0000, .0020, .0040, .0060, .0080, .0710, .1340, .1970,
- .2600, .3492, .4385, .5277, .6170, .6678, .7185, .7693,
- .8200, .8435, .8670, .8905, .9140, .9212, .9285, .9358,
- .9430, .9415, .9400, .9385, .9370, .9520, .9670, .9820,
- .9970, .9977, .9985, .9992, 1.000, .9813, .9625, .9438,
- .9250, .9148, .9045, .8943, .8840, .8751, .8663, .8574,
- .8485, .8396, .8307, .8219, .8130, .8100, .8070, .8040,
- .8010, .7980, .7950, .7920, .7890, .7878, .7865, .7853,
- .7840, .7828, .7815, .7803, .7790, .7751, .7713, .7674,
- .7635, .7596, .7558, .7519, .7480, .7464, .7448, .7431,
- .7415, .7399, .7383, .7366, .7350, .7225, .7100, .6975,
- .6850, .6783, .6715, .6648, .6580, .6515, .6450, .6385,
- .6320, .6270, .6220, .6170, .6120, .6093, .6065, .6038,
- .6010, .5993, .5975, .5958, .5940, .5910, .5880, .5850,
- .5820, .5720, .5620, .5520, .5420, .5243, .5065, .4887,
- .4710, .4402, .4095, .3787, .3480, .3155, .2830, .2505,
- .2180, .1935, .1690, .1445, .1200, .1055, .0910, .0765,
- .0620, .0540, .0460, .0380, .0300, .0257, .0215, .0172,
- .0130, .0112, .0095, .0077, .0060, .0053, .0045, .0038,
- .0030, .0025, .0020, .0015, .0010, .0010, .0010, .0010,
- .0010, .0009, .0007, .0006, .0005, .0004, .0004, .0003,
- .0002, .0002, .0001, .0001, .0000
- };
-
-
- /* 1st spectral band of avhrr (noaa 7) */
- static const float sr3[121] = {
- .0000, .0008, .0016, .0024, .0032, .0032, .0031, .0030,
- .0030, .0029, .0029, .0028, .0028, .0027, .0027, .0026,
- .0025, .0031, .0036, .0042, .0047, .0288, .0529, .0769,
- .1010, .1943, .2875, .3808, .4740, .5363, .5985, .6608,
- .7230, .7390, .7550, .7710, .7870, .7838, .7805, .7773,
- .7740, .7788, .7835, .7883, .7930, .8100, .8270, .8440,
- .8610, .8958, .9305, .9653,1.0000, .9860, .9720, .9580,
- .9440, .9435, .9430, .9425, .9420, .9442, .9465, .9487,
- .9510, .9575, .9640, .9705, .9770, .9135, .8500, .7865,
- .7230, .6285, .5340, .4395, .3450, .2955, .2460, .1965,
- .1470, .1280, .1090, .0900, .0710, .0638, .0565, .0493,
- .0420, .0383, .0345, .0307, .0270, .0245, .0220, .0195,
- .0170, .0158, .0145, .0132, .0120, .0114, .0107, .0101,
- .0095, .0096, .0098, .0099, .0100, .0103, .0105, .0108,
- .0110, .0100, .0090, .0080, .0070, .0052, .0035, .0017,
- .0000
- };
-
- /* 2nd spectral band of avhrr (noaa 7) */
- static const float sr4[213] = {
- .0000, .0018, .0035, .0053, .0070, .0068, .0065, .0063,
- .0060, .0058, .0055, .0052, .0050, .0050, .0050, .0050,
- .0050, .0060, .0070, .0080, .0090, .0320, .0550, .0780,
- .1010, .1788, .2565, .3343, .4120, .4922, .5725, .6527,
- .7330, .7765, .8200, .8635, .9070, .9218, .9365, .9513,
- .9660, .9725, .9790, .9855, .9920, .9940, .9960, .9980,
- 1.0000, .9962,.9925, .9887, .9850, .9870, .9890, .9910,
- .9930, .9763, .9595, .9428, .9260, .9298, .9335, .9373,
- .9410, .9373, .9335, .9298, .9260, .9120, .8980, .8840,
- .8700, .8700, .8700, .8700, .8700, .8703, .8705, .8708,
- .8710, .8708, .8705, .8703, .8700, .8715, .8730, .8745,
- .8760, .8740, .8720, .8700, .8680, .8690, .8700, .8710,
- .8720, .8687, .8655, .8623, .8590, .8555, .8520, .8485,
- .8450, .8428, .8405, .8383, .8360, .8328, .8295, .8263,
- .8230, .8145, .8060, .7975, .7890, .7872, .7855, .7838,
- .7820, .7790, .7760, .7730, .7700, .7682, .7665, .7648,
- .7630, .7545, .7460, .7375, .7290, .6987, .6685, .6382,
- .6080, .5623, .5165, .4707, .4250, .3812, .3375, .2937/
- .2500, .2215, .1930, .1645, .1360, .1202, .1045, .0887,
- .0730, .0647, .0565, .0482, .0400, .0357, .0315, .0272,
- .0230, .0207, .0185, .0162, .0140, .0125, .0110, .0095,
- .0080, .0075, .0070, .0065, .0060, .0055, .0050, .0045,
- .0040, .0039, .0038, .0037, .0036, .0036, .0037, .0037,
- .0037, .0035, .0034, .0032, .0031, .0029, .0028, .0026,
- .0025, .0025, .0024, .0024, .0023, .0023, .0022, .0022,
- .0021, .0021, .0021, .0020, .0020, .0019, .0019, .0018,
- .0018, .0013, .0009, .0004, .0000
- };
-
- /* 1st spectral band of avhrr (noaa 8) */
- static const float sr5[189] = {
- .0000, .0012, .0024, .0036, .0048, .0223, .0399, .0574,
- .0749, .1633, .2517, .3400, .4284, .4937, .5590, .6243,
- .6896, .7135, .7375, .7614, .7853, .7833, .7813, .7793,
- .7773, .7774, .7775, .7776, .7777, .7922, .8067, .8211,
- .8356, .8566, .8777, .8987, .9197, .9332, .9468, .9603,
- .9739, .9674, .9609, .9545, .9480, .9507, .9534, .9561,
- .9588, .9691, .9794, .9897,1.0000, .9692, .9385, .9077,
- .8770, .7775, .6779, .5784, .4789, .4108, .3428, .2747,
- .2067, .1782, .1497, .1213, .0928, .0820, .0712, .0604,
- .0496, .0425, .0355, .0284, .0214, .0208, .0202, .0196,
- .0190, .0167, .0145, .0122, .0100, .0095, .0090, .0085,
- .0080, .0083, .0086, .0089, .0092, .0094, .0097, .0100,
- .0103, .0100, .0096, .0093, .0090, .0086, .0083, .0079,
- .0076, .0082, .0087, .0093, .0099, .0104, .0110, .0115,
- .0121, .0114, .0108, .0101, .0094, .0088, .0081, .0075,
- .0068, .0074, .0079, .0085, .0091, .0097, .0102, .0108,
- .0114, .0115, .0115, .0116, .0117, .0118, .0119, .0119,
- .0120, .0136, .0152, .0167, .0183, .0204, .0224, .0245,
- .0265, .0295, .0324, .0354, .0384, .0419, .0453, .0488,
- .0522, .0514, .0507, .0499, .0491, .0467, .0443, .0420,
- .0396, .0348, .0299, .0251, .0203, .0183, .0164, .0144,
- .0125, .0118, .0110, .0103, .0095, .0083, .0071, .0060,
- .0048, .0041, .0035, .0028, .0022, .0022, .0021, .0021,
- .0021, .0016, .0010, .0005, .0000
- };
-
-
- /* 2nd spectral band of avhrr (noaa 8) */
- static const float sr6[177] = {
- .0000, .0095, .0190, .0285, .0381, .0476, .0571, .0666,
- .0761, .1559, .2358, .3156, .3954, .4855, .5756, .6658,
- .7559, .7966, .8373, .8779, .9186, .9332, .9478, .9624,
- .9770, .9814, .9858, .9902, .9946, .9959, .9973, .9986,
- 1.0000, .9965, .9930, .9896, .9861, .9796, .9731, .9666,
- .9601, .9518, .9435, .9351, .9268, .9171, .9073, .8976,
- .8879, .8791, .8703, .8615, .8527, .8439, .8351, .8263,
- .8175, .8140, .8104, .8068, .8033, .7997, .7962, .7926,
- .7891, .7871, .7850, .7830, .7810, .7790, .7769, .7749,
- .7729, .7711, .7694, .7677, .7659, .7642, .7624, .7607,
- .7589, .7558, .7528, .7497, .7466, .7436, .7405, .7375,
- .7344, .7282, .7220, .7158, .7096, .7034, .6972, .6910,
- .6848, .6781, .6713, .6646, .6579, .6511, .6444, .6376,
- .6309, .6265, .6221, .6177, .6133, .6088, .6044, .6000,
- .5956, .5888, .5820, .5752, .5684, .5616, .5548, .5480,
- .5412, .5159, .4906, .4653, .4400, .4147, .3894, .3641,
- .3388, .3061, .2734, .2408, .2081, .1851, .1621, .1392,
- .1162, .1023, .0884, .0745, .0606, .0532, .0458, .0384/
- .0310, .0271, .0231, .0192, .0153, .0134, .0115, .0096,
- .0077, .0071, .0065, .0059, .0053, .0046, .0040, .0034,
- .0028, .0026, .0024, .0023, .0021, .0019, .0017, .0016,
- .0014, .0012, .0010, .0009, .0007, .0005, .0003, .0002,
- .0000
- };
-
- /* 1st spectral band of avhrr (noaa 9) */
- static const float sr7[113] = {
- .0000, .0001, .0003, .0004, .0006, .0040, .0074, .0108,
- .0142, .0622, .1101, .1581, .2060, .2810, .3561, .4311,
- .5061, .5500, .5940, .6379, .6818, .7127, .7437, .7746,
- .8055, .8122, .8190, .8170, .8150, .8063, .7975, .7887,
- .7800, .7881, .7962, .8044, .8125, .8335, .8544, .8753,
- .8963, .9000, .9037, .9074, .9111, .8899, .8688, .8476,
- .8265, .8198, .8130, .8110, .8090, .8277, .8464, .8650,
- .8837, .9128, .9419, .9709,1.0000, .9678, .9356, .9035,
- .8713, .7712, .6711, .5711, .4710, .4067, .3424, .2782,
- .2139, .1849, .1559, .1269, .0979, .0861, .0743, .0625,
- .0507, .0454, .0400, .0347, .0294, .0266, .0238, .0210,
- .0182, .0170, .0157, .0145, .0133, .0124, .0115, .0107,
- .0098, .0092, .0086, .0080, .0074, .0071, .0069, .0066,
- .0063, .0062, .0061, .0061, .0060, .0045, .0030, .0015,
- .0000
- };
-
- /* 2nd spectral band of avhrr (noaa 9) */
- static const float sr8[197] = {
- .0000, .0011, .0022, .0033, .0044, .0207, .0369, .0532,
- .0694, .1410, .2127, .2843, .3559, .4388, .5217, .6047,
- .6876, .7304, .7731, .8159, .8586, .8782, .8977, .9173,
- .9369, .9491, .9614, .9736, .9859, .9894, .9930, .9965,
- 1.0000, .9956, .9912, .9869, .9825, .9699, .9574, .9448,
- .9323, .9243, .9163, .9083, .9003, .8971, .8939, .8907,
- .8875, .8881, .8887, .8893, .8899, .8931, .8963, .8994,
- .9026, .9046, .9067, .9087, .9108, .9114, .9120, .9126,
- .9132, .9065, .8997, .8930, .8863, .8807, .8750, .8694,
- .8638, .8605, .8571, .8538, .8504, .8532, .8560, .8588,
- .8616, .8644, .8672, .8701, .8729, .8749, .8770, .8790,
- .8811, .8766, .8721, .8677, .8632, .8502, .8372, .8242,
- .8112, .7959, .7806, .7653, .7500, .7423, .7347, .7270,
- .7193, .7166, .7138, .7111, .7084, .7169, .7255, .7340,
- .7425, .7382, .7338, .7295, .7251, .6819, .6387, .5955,
- .5523, .4922, .4321, .3721, .3120, .2722, .2325, .1927,
- .1529, .1336, .1144, .0951, .0759, .0673, .0586, .0500,
- .0414, .0370, .0327, .0283, .0240, .0217, .0195, .0172,
- .0150, .0139, .0128, .0118, .0107, .0099, .0090, .0082,
- .0074, .0070, .0066, .0061, .0057, .0054, .0051, .0049,
- .0046, .0044, .0042, .0041, .0039, .0037, .0036, .0034,
- .0033, .0032, .0031, .0030, .0029, .0028, .0027, .0026,
- .0025, .0025, .0025, .0024, .0024, .0023, .0022, .0021,
- .0020, .0019, .0018, .0018, .0017, .0016, .0015, .0015,
- .0014, .0010, .0007, .0003, .0000
- };
-
- /* 1st spectral band of avhrr (noaa 10) */
- static const float sr9[101] = {
- .0000, .0005, .0010, .0015, .0020, .0023, .0025, .0028,
- .0030, .0239, .0448, .0657, .0866, .1852, .2838, .3824,
- .4810, .5470, .6130, .6790, .7450, .7640, .7830, .8020,
- .8210, .8182, .8154, .8126, .8098, .8219, .8339, .8460,
- .8580, .8808, .9035, .9263, .9490, .9607, .9723, .9840,
- .9956, .9875, .9793, .9712, .9630, .9595, .9560, .9525,
- .9490, .9618, .9745, .9872,1.0000, .9980, .9960, .9940,
- .9920, .9013, .8105, .7197, .6290, .5400, .4510, .3620,
- .2730, .2315, .1900, .1485, .1070, .0935, .0800, .0665,
- .0530, .0468, .0405, .0343, .0280, .0255, .0230, .0205,
- .0180, .0165, .0150, .0135, .0120, .0110, .0100, .0090,
- .0080, .0070, .0061, .0051, .0042, .0034, .0026, .0018,
- .0010, .0007, .0005, .0002, .0000
- };
-
- /* 2nd spectral band of avhrr (noaa 10) */
- static const float sr10[237] = {
- .0000, .0006, .0012, .0018, .0024, .0030, .0036, .0042,
- .0048, .0049, .0049, .0050, .0051, .0051, .0052, .0052,
- .0053, .0053, .0054, .0054, .0055, .0055, .0056, .0056,
- .0057, .0054, .0050, .0047, .0044, .0041, .0037, .0034,
- .0031, .0031, .0032, .0032, .0033, .0033, .0033, .0034,
- .0034, .0239, .0445, .0650, .0855, .1561, .2267, .2974,
- .3680, .4508, .5335, .6163, .6990, .7430, .7870, .8310,
- .8750, .8918, .9085, .9253, .9420, .9510, .9600, .9690,
- .9780, .9835, .9890, .9945,1.0000, .9933, .9866, .9800,
- .9733, .9661, .9589, .9517, .9445, .9329, .9213, .9096,
- .8980, .8935, .8890, .8845, .8800, .8788, .8775, .8763,
- .8750, .8658, .8565, .8473, .8380, .8415, .8450, .8485,
- .8520, .8508, .8495, .8483, .8470, .8410, .8350, .8290,
- .8230, .8148, .8065, .7983, .7900, .7983, .8065, .8148,
- .8230, .8190, .8150, .8110, .8070, .7990, .7910, .7830,
- .7750, .7712, .7675, .7637, .7600, .7425, .7250, .7075,
- .6900, .6855, .6810, .6765, .6720, .6710, .6700, .6690,
- .6680, .6655, .6630, .6605, .6580, .6455, .6330, .6205,
- .6080, .5993, .5905, .5818, .5730, .5602, .5475, .5347,
- .5220, .4872, .4525, .4177, .3830, .3435, .3040, .2645,
- .2250, .2015, .1780, .1545, .1310, .1155, .1000, .0845,
- .0690, .0613, .0535, .0457, .0380, .0337, .0295, .0252,
- .0210, .0189, .0168, .0147, .0126, .0114, .0102, .0091,
- .0079, .0073, .0067, .0060, .0054, .0051, .0047, .0044,
- .0041, .0040, .0038, .0037, .0036, .0035, .0034, .0033,
- .0032, .0031, .0030, .0030, .0029, .0028, .0027, .0027,
- .0026, .0026, .0025, .0025, .0024, .0023, .0022, .0022,
- .0021, .0020, .0019, .0018, .0017, .0016, .0016, .0015,
- .0015, .0015, .0014, .0014, .0014, .0014, .0014, .0015,
- .0015, .0011, .0008, .0004, .0000
- };
-
- /* 1st spectral band of avhrr (noaa 11) */
- static const float sr11[113] = {
- .0000, .0033, .0065, .0098, .0130, .0500, .0870, .1240,
- .1610, .2385, .3160, .3935, .4710, .5150, .5590, .6030,
- .6470, .6768, .7065, .7363, .7660, .7745, .7830, .7915,
- .8000, .7918, .7835, .7753, .7670, .7747, .7825, .7903,
- .7980, .8215, .8450, .8685, .8920, .8907, .8895, .8882,
- .8870, .8702, .8535, .8367, .8200, .8110, .8020, .7930,
- .7840, .8050, .8260, .8470, .8680, .9010, .9340, .9670,
- 1.0000, .9562, .9125, .8687, .8250, .7192, .6135, .5077,
- .4020, .3467, .2915, .2362, .1810, .1568, .1325, .1083,
- .0840, .0735, .0630, .0525, .0420, .0380, .0340, .0300,
- .0260, .0242, .0225, .0207, .0190, .0180, .0170, .0160,
- .0150, .0137, .0125, .0112, .0100, .0087, .0075, .0062,
- .0050, .0052, .0055, .0057, .0060, .0060, .0060, .0060,
- .0060, .0060, .0060, .0060, .0060, .0045, .0030, .0015,
- .0000
- };
-
- /* 2nd spectral band of avhrr (noaa 11) */
- static const float sr12[209] = {
- .0000, .0005, .0010, .0015, .0020, .0025, .0030, .0035,
- .0040, .0039, .0037, .0036, .0035, .0034, .0032, .0031,
- .0030, .0029, .0028, .0026, .0025, .0024, .0023, .0021,
- .0020, .0020, .0020, .0020, .0020, .0020, .0020, .0020,
- .0020, .0028, .0035, .0043, .0050, .0173, .0295, .0418,
- .0540, .1150, .1760, .2370, .2980, .3822, .4665, .5507,
- .6350, .6865, .7380, .7895, .8410, .8623, .8835, .9048,
- .9260, .9415, .9570, .9725, .9880, .9910, .9940, .9970,
- 1.0000, .9925, .9850, .9775, .9700, .9600, .9500, .9400,
- .9300, .9193, .9085, .8978, .8870, .8770, .8670, .8570,
- .8470, .8478, .8485, .8493, .8500, .8518, .8535, .8553,
- .8570, .8602, .8635, .8668, .8700, .8673, .8645, .8618,
- .8590, .8505, .8420, .8335, .8250, .8183, .8115, .8047,
- .7980, .7983, .7985, .7988, .7990, .7935, .7880, .7825,
- .7770, .7835, .7900, .7965, .8030, .8075, .8120, .8165,
- .8210, .8108, .8005, .7903, .7800, .7767, .7735, .7703,
- .7670, .7473, .7275, .7077, .6880, .6755, .6630, .6505,
- .6380, .6350, .6320, .6290, .6260, .6345, .6430, .6515/
- .6600, .6695, .6790, .6885, .6980, .6790, .6600, .6410,
- .6220, .5645, .5070, .4495, .3920, .3420, .2920, .2420,
- .1920, .1667, .1415, .1162, .0910, .0795, .0680, .0565,
- .0450, .0411, .0372, .0334, .0295, .0256, .0217, .0179,
- .0140, .0129, .0117, .0106, .0095, .0084, .0072, .0061,
- .0050, .0048, .0045, .0043, .0040, .0038, .0035, .0033,
- .0030, .0029, .0027, .0026, .0025, .0024, .0022, .0021,
- .0020, .0017, .0015, .0012, .0010, .0007, .0005, .0002,
- .0000
- };
-
- /* 1st spectral band of avhrr (noaa 12) */
- static const float sr13[201] = {
- .0000, .0000, .0000, .0000, .0000, .0000, .0000, .0000,
- .0000, .0000, .0000, .0000, .0000, .0000, .0000, .0000,
- .0000, .0000, .0000, .0000, .0000, .0048, .0135, .0200,
- .0270, .1046, .2094, .3253, .4360, .5286, .6030, .6621,
- .7090, .7464, .7753, .7966, .8110, .8196, .8249, .8301,
-
- .8380, .8507, .8668, .8837, .8990, .9109, .9198, .9265,
- .9320, .9371, .9419, .9466, .9510, .9552, .9587, .9612,
- .9620, .9610, .9593, .9582, .9590, .9625, .9673, .9715,
- .9730, .9707, .9666, .9635, .9640, .9701, .9799, .9908,
- 1.0000, .9805, .9590, .9407, .9180, .8357, .7325, .6205,
- .5120, .4170, .3365, .2692, .2140, .1695, .1343, .1066,
- .0850, .0679, .0546, .0442, .0360, .0294, .0240, .0196,
- .0160, .0130, .0105, .0089, .0080, .0080, .0083, .0085,
- .0080, .0064, .0041, .0018, .0000, .0000, .0000, .0000,
- .0000, .0000, .0000, .0000, .0000, .0000, .0000, .0000,
- .0000, .0000, .0000, .0000, .0000, .0000, .0000, .0000,
- .0000, .0000, .0000, .0000, .0000, .0000, .0000, .0000,
- .0000, .0024, .0056, .0087, .0110, .0118, .0117, .0112,
- .0110, .0117, .0130, .0145, .0160, .0171, .0178, .0184,
- .0190, .0197, .0205, .0213, .0220, .0226, .0229, .0228,
- .0220, .0205, .0187, .0170, .0160, .0159, .0160, .0157,
- .0140, .0106, .0063, .0023, .0000, .0001, .0018, .0038,
- .0050, .0044, .0027, .0009, .0000, .0006, .0023, .0040,
- .0050, .0046, .0032, .0015, .0000, .0000, .0000, .0000,
- .0000, .0000, .0000, .0000, .0000, .0000, .0000, .0000,
- .0000
- };
-
- /* 2nd spectral band of avhrr (noaa 12) */
- static const float sr14[189] = {
- .0000, .0000, .0000, .0000, .0000, .0000, .0000, .0000,
- .0000, .0050, .0111, .0162, .0180, .0153, .0097, .0038,
- .0000, .0005, .0060, .0168, .0330, .0555, .0869, .1303,
- .1890, .2643, .3509, .4418, .5300, .6096, .6796, .7403,
- .7920, .8350, .8702, .8988, .9220, .9408, .9559, .9680,
- .9780, .9863, .9929, .9975,1.0000, .0115, .9987, .9958,
- .9920, .9876, .9821, .9748, .9650, .9522, .9370, .9203,
- .9030, .8858, .8694, .8543, .8410, .8299, .8207, .8129,
- .8060, .7997, .7943, .7902, .7880, .7879, .7893, .7916,
- .7940, .7959, .7971, .7972, .7960, .7935, .7900, .7860,
- .7820, .7783, .7747, .7704, .7650, .7582, .7506, .7433,
- .7370, .7326, .7299, .7288, .7290, .7303, .7323, .7350,
- .7380, .7411, .7441, .7468, .7490, .7504, .7510, .7505,
- .7490, .7463, .7421, .7365, .7290, .7197, .7086, .6960,
- .6820, .6670, .6518, .6371, .6240, .6131, .6043, .5973,
- .5920, .5881, .5857, .5849, .5860, .5889, .5929, .5969,
- .6000, .6011, .5986, .5905, .5750, .5508, .5186, .4792,
- .4340, .3842, .3326, .2822, .2360, .1964, .1633, .1357,
- .1130, .0943, .0789, .0664, .0560, .0473, .0400, .0339,
- .0290, .0250, .0217, .0191, .0170, .0152, .0137, .0123,
- .0110, .0098, .0086, .0077, .0070, .0066, .0063, .0059,
- .0050, .0035, .0019, .0005, .0000, .0006, .0019, .0033,
- .0040, .0036, .0025, .0011, .0000, .0000, .0000, .0000,
- .0000, .0000, .0000, .0000, .0000
- };
-
- /* 1st spectral band of avhrr (noaa 14) -from NOAA/POD Guide */
- static const float sr15[241] = {
- .0000, .0000, .0000, .0000, .0000, .0000, .0000, .0000,
- .0000, .0000, .0000, .0000, .0000, .0000, .0000, .0000,
- .0000, .0003, .0007, .0010, .0013, .0152, .0290, .0429,
- .0568, .1226, .1884, .2543, .3201, .3727, .4254, .4780,
- .5306, .5528, .5749, .5971, .6193, .6267, .6342, .6417,
- .6492, .6538, .6583, .6629, .6675, .6734, .6793, .6853,
- .6912, .6948, .6984, .7020, .7056, .7106, .7156, .7206,
- .7256, .7243, .7229, .7216, .7203, .7188, .7174, .7159,
- .7145, .7130, .7116, .7102, .7088, .7154, .7221, .7287,
- .7353, .7292, .7232, .7172, .7111, .6501, .5891, .5281,
- .4671, .4037, .3402, .2768, .2133, .1830, .1527, .1223,
- .0920, .0797, .0675, .0553, .0431, .0406, .0381, .0357,
- .0332, .0279, .0226, .0173, .0120, .0117, .0114, .0110,
- .0107, .0100, .0093, .0086, .0080, .0076, .0072, .0069,
- .0065, .0062, .0059, .0055, .0052, .0051, .0050, .0048,
- .0047, .0048, .0049, .0050, .0051, .0051, .0050, .0050,
- .0050, .0050, .0051, .0052, .0052, .0053, .0054, .0054,
- .0055, .0057, .0059, .0061, .0063, .0068, .0072, .0076,
- .0080, .0084, .0088, .0092, .0096, .0100, .0104, .0108,
- .0113, .0116, .0119, .0122, .0125, .0127, .0128, .0130,
- .0132, .0130, .0128, .0126, .0123, .0120, .0116, .0112,
- .0108, .0104, .0099, .0095, .0090, .0086, .0082, .0078,
- .0074, .0072, .0070, .0067, .0065, .0063, .0060, .0058,
- .0055, .0053, .0050, .0048, .0046, .0044, .0042, .0040,
- .0038, .0036, .0034, .0032, .0030, .0028, .0027, .0025,
- .0023, .0022, .0022, .0021, .0020, .0019, .0018, .0017,
- .0016, .0016, .0015, .0014, .0014, .0013, .0012, .0012,
- .0011, .0011, .0011, .0011, .0011, .0011, .0011, .0011,
- .0011, .0011, .0011, .0011, .0011, .0011, .0011, .0010,
- .0010, .0010, .0010, .0010, .0010, .0010, .0010, .0010,
- .0010
- };
-
- /* 2nd spectral band of avhrr (noaa 14) */
- static const float sr16[176] = {
- .0000,.0000,.0000,.0000,.0000,.0000,.0022,.0045,
- .0067,.0090,.0107,.0125,.0143,.0160,.0543,.0925,
- .1308,.1690,.2573,.3455,.4338,.5220,.5978,.6735,
- .7492,.8250,.8503,.8755,.9007,.9260,.9362,.9465,
- .9568,.9670,.9737,.9805,.9872,.9940,.9935,.9930,
- .9925,.9920,.9940,.9960,.9980,1.000,.9885,.9770,
- .9655,.9540,.9398,.9255,.9112,.8970,.8855,.8740,
- .8625,.8510,.8400,.8290,.8180,.8070,.8052,.8035,
- .8018,.8000,.8065,.8130,.8195,.8260,.8257,.8255,
- .8253,.8250,.8245,.8240,.8235,.8230,.8230,.8230,
- .8230,.8230,.8210,.8190,.8170,.8150,.8147,.8145,
- .8142,.8140,.8183,.8225,.8267,.8310,.8367,.8425,
- .8482,.8540,.8547,.8555,.8562,.8570,.8510,.8450,
- .8390,.8330,.8170,.8010,.7850,.7690,.7587,.7485,
- .7383,.7280,.7203,.7125,.7048,.6970,.6957,.6945,
- .6932,.6920,.6970,.7020,.7070,.7120,.7035,.6950,
- .6865,.6780,.6370,.5960,.5550,.5140,.4560,.3980,
- .3400,.2820,.2458,.2095,.1732,.1370,.1190,.1010,
- .0830,.0650,.0560,.0470,.0380,.0290,.0250,.0210,
- .0170,.0130,.0095,.0060,.0050,.0040,.0020,.0000,
- .0010,.0020,.0018,.0015,.0012,.0010,.0010,.0010,
- .0010,.0010,.0008,.0005,.0003,.0000,.0000,.0000
- };
-
- static const float wli[16] = { 0.55, 0.69, 0.5, 0.64, 0.54, 0.68, 0.53, 0.68, 0.53, 0.60, 0.54, 0.60, 0.50, 0.65, 0.50, 0.68 };
- static const float wls[16] = { 0.75, 1.12, 0.8, 1.17, 1.01, 1.12, 0.81, 1.17, 0.78, 1.19, 0.82, 1.12, 1.00, 1.12, 1.11, 1.10 };
-
- ffu.wlinf = (float)wli[iwa-1];
- ffu.wlsup = (float)wls[iwa-1];
-
- int i;
- for(i = 0; i < 1501; i++) ffu.s[i] = 0;
-
- switch(iwa)
- {
- case 1: for(i = 0; i < 80; i++) ffu.s[120+i] = sr1[i];
- break;
- case 2: for(i = 0; i < 173; i++) ffu.s[176+i] = sr2[i];
- break;
- case 3: for(i = 0; i < 121; i++) ffu.s[100+i] = sr3[i];
- break;
- case 4: for(i = 0; i < 213; i++) ffu.s[156+i] = sr4[i];
- break;
- case 5: for(i = 0; i < 189; i++) ffu.s[116+i] = sr5[i];
- break;
- case 6: for(i = 0; i < 177; i++) ffu.s[172+i] = sr6[i];
- break;
- case 7: for(i = 0; i < 113; i++) ffu.s[112+i] = sr7[i];
- break;
- case 8: for(i = 0; i < 197; i++) ffu.s[172+i] = sr8[i];
- break;
- case 9: for(i = 0; i < 101; i++) ffu.s[112+i] = sr9[i];
- break;
- case 10: for(i = 0; i < 237; i++) ffu.s[140+i] = sr10[i];
- break;
- case 11: for(i = 0; i < 113; i++) ffu.s[116+i] = sr11[i];
- break;
- case 12: for(i = 0; i < 209; i++) ffu.s[140+i] = sr12[i];
- break;
- case 13: for(i = 0; i < 201; i++) ffu.s[100+i] = sr13[i];
- break;
- case 14: for(i = 0; i < 189; i++) ffu.s[160+i] = sr14[i];
- break;
- case 15: for(i = 0; i < 241; i++) ffu.s[100+i] = sr15[i];
- break;
- case 16: for(i = 0; i < 176; i++) ffu.s[168+i] = sr16[i];
- }
-}
-
-void IWave::hrv(int iwa)
-{
-
- /* 1st spectral band of hrv1 */
- static const float sr1[73] = {
- .0010, .0023, .0035, .0048, .0060, .0492, .0925, .1357,
- .1790, .2598, .3405, .4213, .5020, .5575, .6130, .6685,
- .7240, .7588, .7935, .8283, .8630, .8900, .9170, .9440,
- .9710, .9782, .9855, .9927,1.0000, .9875, .9750, .9625,
- .9500, .9255, .9010, .8765, .8520, .8225, .7930, .7635,
- .7340, .7105, .6870, .6635, .6400, .5945, .5490, .5035,
- .4580, .3985, .3390, .2795, .2200, .1787, .1375, .0962,
- .0550, .0437, .0325, .0212, .0100, .0085, .0070, .0055,
- .0040, .0035, .0030, .0025, .0020, .0015, .0010, .0005,
- .0000
- };
-
- /* 2nd spectral band of hrv1 */
- static const float sr2[49] = {
- .0190, .0845, .1500, .2155, .2810, .3870, .4930, .5990,
- .7050, .7663, .8275, .8888, .9500, .9557, .9615, .9672,
- .9730, .9797, .9865, .9933,1.0000, .8445, .6890, .5335,
- .3780, .3152, .2525, .1897, .1270, .1067, .0865, .0662,
- .0460, .0395, .0330, .0265, .0200, .0172, .0145, .0117,
- .0090, .0080, .0070, .0060, .0050, .0045, .0040, .0035,
- .0030
- };
-
- /* 3rd spectral band of hrv1 */
- static const float sr3[81] = {
- .0010, .0033, .0055, .0078, .0100, .0238, .0375, .0513,
- .0650, .0953, .1255, .1558, .1860, .2470, .3080, .3690,
- .4300, .4918, .5535, .6153, .6770, .7222, .7675, .8127,
- .8580, .8825, .9070, .9315, .9560, .9670, .9780, .9890,
- 1.0000, .9915, .9830, .9745, .9660, .9557, .9455, .9352,
- .9250, .9112, .8975, .8837, .8700, .8777, .8855, .8932,
- .9010, .8342, .7675, .7007, .6340, .5600, .4860, .4120,
- .3380, .2875, .2370, .1865, .1360, .1130, .0900, .0670,
- .0440, .0360, .0280, .0200, .0120, .0108, .0095, .0083,
- .0070, .0067, .0065, .0062, .0060, .0047, .0035, .0022,
- .0010
- };
-
- /* panchromatic band of hrv1 */
- static const float sr4[129] = {
- .0000, .0013, .0025, .0038, .0050, .0322, .0595, .0867,
- .1140, .1723, .2305, .2888, .3470, .3748, .4025, .4303,
- .4580, .4750, .4920, .5090, .5260, .5538, .5815, .6093,
- .6370, .6575, .6780, .6985, .7190, .7228, .7265, .7303,
- .7340, .7370, .7400, .7430, .7460, .7595, .7730, .7865,
- .8000, .8163, .8325, .8488, .8650, .8767, .8885, .9003,
- .9120, .9137, .9155, .9172, .9190, .9245, .9300, .9355,
- .9410, .9387, .9365, .9342, .9320, .9373, .9425, .9478,
- .9530, .9575, .9620, .9665, .9710, .9783, .9855, .9928,
- 1.0000, .9898, .9795, .9693, .9590, .9450, .9310, .9170,
- .9030, .8780, .8530, .8280, .8030, .7770, .7510, .7250,
- .6990, .6820, .6650, .6480, .6310, .6235, .6160, .6085,
- .6010, .5535, .5060, .4585, .4110, .3620, .3130, .2640,
- .2150, .1825, .1500, .1175, .0850, .0720, .0590, .0460,
- .0330, .0282, .0235, .0187, .0140, .0120, .0100, .0080,
- .0060, .0055, .0050, .0045, .0040, .0035, .0030, .0025,
- .0020
- };
-
- /* 1st spectral band of hrv2 */
- static const float sr5[73] = {
- .0010, .0015, .0020, .0025, .0030, .0040, .0050, .0060,
- .0070, .0850, .1630, .2410, .3190, .3918, .4645, .5373,
- .6100, .6500, .6900, .7300, .7700, .7965, .8230, .8495,
- .8760, .8957, .9155, .9352, .9550, .9663, .9775, .9888,
- 1.0000, .9915, .9830, .9745, .9660, .9362, .9065, .8767,
- .8470, .8147, .7825, .7502, .7180, .6660, .6140, .5620,
- .5100, .4638, .4175, .3713, .3250, .2737, .2225, .1712,
- .1200, .1012, .0825, .0637, .0450, .0377, .0305, .0232,
- .0160, .0122, .0085, .0047, .0010, .0007, .0005, .0002,
- .0000
- };
-
- /* 2nd spectral band of hrv2 */
- static const float sr6[57] = {
- .0040, .0045, .0050, .0055, .0060, .0115, .0170, .0225,
- .0280, .0893, .1505, .2118, .2730, .3593, .4455, .5318,
- .6180, .6803, .7425, .8048, .8670, .9003, .9335, .9668,
- 1.0000, .9365, .8730, .8095, .7460, .6830, .6200, .5570,
- .4940, .4405, .3870, .3335, .2800, .2452, .2105, .1757,
- .1410, .1222, .1035, .0847, .0660, .0575, .0490, .0405,
- .0320, .0283, .0245, .0208, .0170, .0152, .0135, .0117,
- .0100
- };
-
- /* 3rd spectral band of hrv2 */
- static const float sr7[81] = {
- .0020, .0030, .0040, .0050, .0060, .0105, .0150, .0195,
- .0240, .0380, .0520, .0660, .0800, .1140, .1480, .1820,
- .2160, .2722, .3285, .3847, .4410, .5018, .5625, .6233,
- .6840, .7298, .7755, .8213, .8670, .8920, .9170, .9420,
- .9670, .9753, .9835, .9918,1.0000, .9967, .9935, .9902,
- .9870, .9793, .9715, .9638, .9560, .9500, .9440, .9380,
- .9320, .9047, .8775, .8502, .8230, .7665, .7100, .6535,
- .5970, .5305, .4640, .3975, .3310, .2850, .2390, .1930,
- .1470, .1250, .1030, .0810, .0590, .0497, .0405, .0312,
- .0220, .0185, .0150, .0115, .0080, .0062, .0045, .0027,
- .0010
- };
-
- /* panchromatic spectral band of hrv2 */
- static const float sr8[129] = {
- .0010, .0013, .0015, .0018, .0020, .0137, .0255, .0372,
- .0490, .0898, .1305, .1713, .2120, .2468, .2815, .3163,
- .3510, .3725, .3940, .4155, .4370, .4655, .4940, .5225,
- .5510, .5742, .5975, .6207, .6440, .6505, .6570, .6635,
- .6700, .6752, .6805, .6858, .6910, .7032, .7155, .7278,
- .7400, .7530, .7660, .7790, .7920, .8027, .8135, .8242,
- .8350, .8427, .8505, .8582, .8660, .8692, .8725, .8758,
- .8790, .8830, .8870, .8910, .8950, .9025, .9100, .9175,
- .9250, .9365, .9480, .9595, .9710, .9783, .9855, .9928,
- 1.0000, .9930, .9860, .9790, .9720, .9548, .9375, .9202,
- .9030, .8802, .8575, .8347, .8120, .7945, .7770, .7595,
- .7420, .7062, .6705, .6347, .5990, .5587, .5185, .4782,
- .4380, .3893, .3405, .2918, .2430, .2085, .1740, .1395,
- .1050, .0895, .0740, .0585, .0430, .0367, .0305, .0242,
- .0180, .0155, .0130, .0105, .0080, .0070, .0060, .0050,
- .0040, .0035, .0030, .0025, .0020, .0018, .0015, .0013,
- .0010
- };
-
- static const float wli[8] = { 0.4699999, 0.60, 0.73, 0.4699999, 0.4699999, 0.5899999, 0.74, 0.4699999 };
- static const float wls[8] = { 0.6499999, 0.72, 0.93, 0.7900000, 0.6499999, 0.7300000, 0.94, 0.7900000 };
-
- ffu.wlinf = wli[iwa-1];
- ffu.wlsup = wls[iwa-1];
-
- int i;
- for(i = 0; i < 1501; i++) ffu.s[i] = 0;
-
- switch(iwa)
- {
- case 1: for(i = 0; i < 73; i++) ffu.s[88+i] = sr1[i];
- break;
- case 2: for(i = 0; i < 49; i++) ffu.s[140+i] = sr2[i];
- break;
- case 3: for(i = 0; i < 81; i++) ffu.s[192+i] = sr3[i];
- break;
- case 4: for(i = 0; i < 129; i++) ffu.s[88+i] = sr4[i];
- break;
- case 5: for(i = 0; i < 73; i++) ffu.s[88+i] = sr5[i];
- break;
- case 6: for(i = 0; i < 57; i++) ffu.s[136+i] = sr6[i];
- break;
- case 7: for(i = 0; i < 81; i++) ffu.s[196+i] = sr7[i];
- break;
- case 8: for(i = 0; i < 129; i++) ffu.s[88+i] = sr8[i];
- break;
- }
-}
-
-
-void IWave::tm(int iwa)
-{
- /* 1st spectral band of thematic mapper */
- static const float sr1[53] = {
- .0030, .0085, .0140, .0255, .0370, .0500, .0630, .2010,
- .3390, .5030, .6670, .6935, .7200, .7525, .7850, .8030,
- .8210, .8370, .8530, .8780, .9030, .9135, .9240, .9355,
- .9470, .9625, .9780, .9835, .9890, .9860, .9830, .9060,
- .8290, .7815, .7340, .5265, .3190, .1995, .0800, .0630,
- .0460, .0380, .0300, .0230, .0160, .0120, .0080, .0065,
- .0050, .0045, .0040, .0035, .0030
- };
-
- /* 2nd spectral band of thematic mapper */
- static const float sr2[61] = {
- .0010, .0055, .0100, .0165, .0230, .0305, .0380, .1010,
- .1640, .2710, .3780, .4750, .5720, .6150, .6580, .6945,
- .7310, .7575, .7840, .8105, .8370, .8510, .8650, .8770,
- .8890, .8965, .9040, .9055, .9070, .9070, .9070, .9095,
- .9120, .9310, .9500, .9685, .9870, .9951, .9980, .9705,
- .9430, .8655, .7880, .6250, .4620, .3330, .2040, .1505,
- .0970, .0745, .0520, .0440, .0360, .0285, .0210, .0165,
- .0120, .0090, .0060, .0030, .0000
- };
-
- /* 3rd spectral band of thematic mapper */
- static const float sr3[65] = {
- .0020, .0020, .0020, .0020, .0020, .0030, .0040, .0060,
- .0080, .0140, .0200, .0290, .0380, .0730, .1080, .2020,
- .2960, .3840, .4720, .5245, .5770, .6625, .7480, .7830,
- .8180, .8430, .8680, .8845, .9010, .9030, .9050, .9055,
- .9060, .9200, .9340, .9520, .9700, .9815, .9930,1.0000,
- .9980, .9770, .9560, .8715, .7870, .5775, .3680, .2435,
- .1190, .0920, .0650, .0555, .0460, .0385, .0310, .0255,
- .0200, .0160, .0120, .0090, .0060, .0055, .0050, .0040,
- .0030
- };
-
- /* 4th spectral band of thematic mapper */
- static const float sr4[89] = {
- .0020, .0035, .0050, .0060, .0070, .0080, .0090, .0140,
- .0190, .0260, .0330, .0520, .0710, .1035, .1360, .2055,
- .2750, .3615, .4480, .5505, .6530, .7410, .8290, .8795,
- .9300, .9520, .9740, .9870,1.0000, .9955, .9910, .9855,
- .9800, .9685, .9570, .9465, .9360, .9260, .9160, .9165,
- .9170, .9180, .9190, .9195, .9200, .9215, .9230, .9240,
- .9250, .9160, .9070, .8965, .8860, .8835, .8810, .8825,
- .8840, .8825, .8810, .8705, .8600, .8410, .8220, .8030,
- .7840, .7715, .7590, .7370, .7150, .5905, .4660, .3385,
- .2110, .1440, .0770, .0540, .0310, .0230, .0150, .0115,
- .0080, .0070, .0060, .0050, .0040, .0030, .0020, .0010,
- .0000
- };
-
- /* 5th spectral band of thematic mapper */
- static const float sr5[156] = {
- .0000, .0003, .0007, .0010, .0013, .0015, .0018, .0020,
- .0038, .0055, .0073, .0090, .0123, .0155, .0188, .0220,
- .0393, .0565, .0738, .0910, .1410, .1910, .2410, .2910,
- .3617, .4325, .5032, .5740, .6383, .7025, .7668, .8310,
- .8622, .8935, .9248, .9560, .9522, .9485, .9447, .9410,
- .9417, .9425, .9433, .9440, .9505, .9570, .9635, .9700,
- .9738, .9775, .9813, .9850, .9833, .9815, .9797, .9780,
- .9747, .9715, .9682, .9650, .9682, .9715, .9747, .9780,
- .9793, .9805, .9818, .9830, .9837, .9845, .9852, .9860,
- .9838, .9815, .9793, .9770, .9815, .9860, .9905, .9950,
- .9963, .9975, .9988,1.0000, .9992, .9985, .9977, .9970,
- .9912, .9855, .9797, .9740, .9697, .9655, .9613, .9570,
- .9553, .9535, .9517, .9500, .9505, .9510, .9515, .9520,
- .9370, .9220, .9070, .8920, .8260, .7600, .6940, .6280,
- .5507, .4735, .3962, .3190, .2780, .2370, .1960, .1550,
- .1340, .1130, .0920, .0710, .0643, .0575, .0508, .0440,
- .0385, .0330, .0275, .0220, .0197, .0175, .0152, .0130,
- .0120, .0110, .0100, .0090, .0077, .0065, .0052, .0040,
- .0037, .0035, .0032, .0030, .0027, .0025, .0022, .0020,
- .0015, .0010, .0005, .0000
- };
-
- /* 7th spectral band of thematic mapper */
- static const float sr6[185] = {
- .0000, .0005, .0010, .0015, .0020, .0025, .0030, .0035,
- .0040, .0043, .0045, .0048, .0050, .0055, .0060, .0065,
- .0070, .0075, .0080, .0085, .0090, .0103, .0115, .0128,
- .0140, .0153, .0165, .0178, .0190, .0233, .0275, .0318,
- .0360, .0400, .0440, .0480, .0520, .0563, .0605, .0648,
- .0690, .0768, .0845, .0923, .1000, .1125, .1250, .1375,
- .1500, .1753, .2005, .2258, .2510, .2870, .3230, .3590,
- .3950, .4313, .4675, .5038, .5400, .5788, .6175, .6563,
- .6950, .7345, .7740, .8135, .8530, .8737, .8945, .9152,
- .9360, .9398, .9435, .9473, .9510, .9472, .9435, .9397,
- .9360, .9385, .9410, .9435, .9460, .9500, .9540, .9580,
- .9620, .9693, .9765, .9838, .9910, .9930, .9950, .9970,
- .9990,1.0000, .9988, .9975, .9960, .9952, .9945, .9937,
- .9930, .9922, .9915, .9908, .9900, .9815, .9730, .9645,
- .9560, .9525, .9490, .9455, .9420, .9370, .9320, .9270,
- .9220, .9205, .9190, .9175, .9160, .9135, .9110, .9085,
- .9060, .9020, .8980, .8940, .8900, .8730, .8560, .8390,
- .8220, .8058, .7895, .7732, .7570, .7545, .7520, .7495,
- .7470, .7623, .7775, .7928, .8080, .8245, .8410, .8575,
- .8740, .8292, .7845, .7397, .6950, .6290, .5630, .4970,
- .4310, .3747, .3185, .2622, .2060, .1735, .1410, .1085,
- .0760, .0653, .0545, .0438, .0330, .0275, .0220, .0165,
- .0110, .0097, .0085, .0072, .0060, .0045, .0030, .0015,
- .0000
- };
-
- static const float wli[6] = { 0.43, 0.5000000, 0.5799999, 0.73, 1.5025, 1.95 };
- static const float wls[6] = { 0.56, 0.6499999, 0.7400000, 0.95, 1.8900, 2.41 };
-
- ffu.wlinf = wli[iwa-1];
- ffu.wlsup = wls[iwa-1];
-
- int i;
- for(i = 0; i < 1501; i++) ffu.s[i] = 0;
-
- switch(iwa)
- {
- case 1: for(i = 0; i < 53; i++) ffu.s[72+i] = sr1[i];
- break;
- case 2: for(i = 0; i < 61; i++) ffu.s[100+i] = sr2[i];
- break;
- case 3: for(i = 0; i < 65; i++) ffu.s[132+i] = sr3[i];
- break;
- case 4: for(i = 0; i < 89; i++) ffu.s[192+i] = sr4[i];
- break;
- case 5: for(i = 0; i < 156; i++) ffu.s[501+i] = sr5[i];
- break;
- case 6: for(i = 0; i < 185; i++) ffu.s[680+i] = sr6[i];
- break;
- }
-}
-
-void IWave::mss(int iwa)
-{
- /* 1st spectral band of multi spectral scanner */
- static const float sr1[67] = {
- .00, .01, .01, .01, .02, .04, .05,
- .09, .13, .21, .29, .45, .61, .72,
- .82, .85, .89, .92, .95, .96, .98,
- .99, .99, 1.00, 1.00, 1.00, 1.00, 1.00,
- 1.00, 1.00, .99, .99, .98, .98, .98,
- .97, .97, .96, .96, .96, .96, .95,
- .95, .93, .91, .89, .87, .85, .82,
- .73, .65, .54, .43, .38, .33, .24,
- .15, .11, .08, .06, .04, .03, .03,
- .02, .02, .02, .01
- };
-
- /* 2nd spectral band of multi spectral scanner */
- static const float sr2[69] = {
- .01, .01, .01, .01, .01, .01, .02,
- .03, .04, .08, .13, .21, .29, .43,
- .57, .69, .80, .86, .92, .94, .96,
- .97, .99, .99, 1.00, 1.00, 1.00, .99,
- .98, .97, .96, .94, .93, .90, .88,
- .92, .96, .96, .96, .95, .95, .90,
- .84, .82, .80, .79, .78, .79, .80,
- .80, .80, .73, .67, .59, .50, .38,
- .25, .18, .11, .09, .08, .07, .06,
- .05, .05, .04, .04, .03, .03
- };
-
- /* 3rd spectral band of multi spectral scanner */
- static const float sr3[81] = {
- .01, .01, .01, .02, .02, .02, .02,
- .03, .03, .05, .07, .10, .14, .17,
- .20, .31, .41, .48, .56, .66, .75,
- .83, .90, .93, .97, .98, .99, 1.00,
- 1.00, 1.00, .99, .99, .98, .97, .96,
- .94, .93, .90, .88, .87, .86, .84,
- .83, .82, .82, .82, .82, .82, .83,
- .83, .83, .83, .83, .81, .80, .78,
- .75, .68, .61, .55, .49, .41, .34,
- .29, .24, .19, .15, .12, .08, .07,
- .07, .05, .03, .03, .03, .02, .02,
- .01, .01, .01, .01
- };
-
- /* 4th spectral band of multi spectral scanner */
- static const float sr4[127] = {
- .01, .02, .02, .04, .06, .14, .21,
- .45, .68, .76, .83, .89, .94, .94,
- .94, .94, .95, .95, .96, .97, .98,
- .99, .99, 1.00, 1.00, 1.00, 1.00, 1.00,
- 1.00, 1.00, .99, .98, .97, .96, .95,
- .94, .93, .92, .92, .91, .90, .89,
- .88, .87, .86, .86, .85, .83, .82,
- .81, .80, .78, .77, .76, .76, .75,
- .74, .72, .70, .69, .68, .66, .64,
- .63, .62, .61, .60, .58, .57, .56/
- .55, .55, .54, .52, .51, .50, .49,
- .47, .46, .45, .44, .43, .42, .41,
- .40, .39, .39, .38, .37, .36, .35,
- .34, .33, .32, .31, .30, .29, .28,
- .27, .26, .25, .24, .23, .22, .21,
- .20, .20, .19, .18, .16, .15, .14,
- .13, .12, .12, .11, .10, .08, .07,
- .06, .06, .05, .04, .03, .02, .01,
- .01
- };
-
- static const float wli[4] = { 0.4749999, 0.5799999, 0.6549999, 0.7849999 };
- static const float wls[4] = { 0.6399999, 0.7500000, 0.8549998, 1.1000000 };
-
- ffu.wlinf = wli[iwa-1];
- ffu.wlsup = wls[iwa-1];
-
- int i;
- for(i = 0; i < 1501; i++) ffu.s[i] = 0;
-
- switch(iwa)
- {
- case 1: for(i = 0; i < 67; i++) ffu.s[90+i] = sr1[i];
- break;
- case 2: for(i = 0; i < 69; i++) ffu.s[132+i] = sr2[i];
- break;
- case 3: for(i = 0; i < 81; i++) ffu.s[162+i] = sr3[i];
- break;
- case 4: for(i = 0; i < 127; i++) ffu.s[214+i] = sr4[i];
- break;
- }
-}
-
-void IWave::mas(int iwa)
-{
- /* first spectral band of Modis airborne simulator */
- static const float sr1[35] = {
- .0244, .0338, .0536, .1052, .1941, .3166, .4797, .6893,
- .9417,1.2218,1.4890,1.7202,1.9194,2.0812,2.1934,2.2580,
- 2.3031,2.3395,2.3620,2.3575,2.3228,2.2421,2.1129,1.9317,
- 1.7031,1.4126,1.0985, .8088, .5573, .3477, .1843, .0918,
- .0473, .0308, .0248
- };
-
- /* second spectral band of Modis airborne simulator */
- static const float sr2[38] = {
- .0197, .0223, .0298, .0481, .0877, .1645, .2829, .4699,
- .7101, .9752,1.2209,1.4459,1.6307,1.7482,1.8092,1.8370,
- 1.8465,1.8527,1.8574,1.8627,1.8703,1.8733,1.8763,1.8769,
- 1.8731,1.8599,1.8221,1.7208,1.5341,1.2689, .9810, .6911,
- .4250, .2204, .0947, .0447, .0253, .0209
- };
-
- /* third spectral band of Modis airborne simulator */
- static const float sr3[34] = {
- .0273, .0357, .0560, .1265, .3269, .6239, .9777,1.3481,
- 1.7037,2.0081,2.1885,2.2765,2.3178,2.3474,2.3777,2.4053,
- 2.4286,2.4487,2.4604,2.4324,2.2594,1.9695,1.6105,1.2200,
- .8289, .4724, .2484, .1443, .0998, .0726, .0546, .0421,
- .0333, .0270
- };
-
- /* fourth spectral band of Modis airborne simulator */
- static const float sr4[40] = {
- .0242, .0276, .0364, .0505, .0717, .1058, .1841, .3889,
- .7570,1.1872,1.6245,1.9511,2.0986,2.1652,2.2058,2.2430,
- 2.2471,2.2299,2.2190,2.2052,2.1875,2.1519,2.0989,2.0314,
- 1.9292,1.7185,1.3603, .9476, .5555, .2803, .1608, .1090,
- .0926, .0830, .0720, .0590, .0476, .0377, .0300, .0245
- };
-
- /* fifth spectral band of Modis airborne simulator */
-
- static const float sr5[56] = {
- .0232, .0234, .0254, .0259, .0300, .0313, .0325, .0368,
- .0397, .0432, .0454, .0525, .0624, .0839, .1305, .2066,
- .3012, .4087, .5292, .6814, .8961,1.1607,1.4407,1.6803,
- 1.8543,1.9683,2.0260,2.0562,2.0704,2.0550,2.0031,1.9304,
- 1.8731,1.8325,1.7974,1.7334,1.6188,1.4710,1.2919,1.0871,
- .8785, .6871, .5194, .3728, .2565, .1667, .1099, .0720,
- .0536, .0434, .0375, .0355, .0324, .0281, .0251, .0214
- };
-
-
- /* sixth spectral band of Modis airborne simulator */
- static const float sr6[40] = {
- .0229, .0271, .0404, .0690, .1237, .2051, .3206, .4619,
- .6269, .8073,1.0025,1.2045,1.4075,1.5980,1.7690,1.9111,
- 2.0102,2.0697,2.0965,2.1009,2.0903,2.0685,2.0262,1.9608,
- 1.8675,1.7447,1.5974,1.4411,1.2742,1.0954, .9031, .7062,
- .5164, .3475, .2148, .1205, .0665, .0376, .0254, .0211
- };
-
- /* seventh spectral band of Modis airborne simulator */
- static const float sr7[117] = {
- .0075, .0087, .0108, .0133, .0168, .0208, .0257, .0312,
- .0379, .0456, .0540, .0629, .0728, .0828, .0937, .1054,
- .1189, .1329, .1478, .1618, .1729, .1845, .1963, .2095,
- .2206, .2326, .2448, .2578, .2714, .2864, .3033, .3192,
- .3349, .3515, .3724, .3922, .4100, .4291, .4477, .4674,
- .4824, .4992, .5197, .5436, .5681, .5908, .6099, .6204,
- .6284, .6393, .6466, .6466, .6488, .6531, .6575, .6612,
- .6572, .6566, .6577, .6602, .6649, .6595, .6568, .6522,
- .6606, .6656, .6606, .6517, .6426, .6374, .6311, .6217,
- .6053, .5933, .5827, .5672, .5483, .5325, .5241, .5121,
- .5077, .4958, .4827, .4718, .4552, .4369, .4200, .4076,
- .3921, .3730, .3550, .3397, .3224, .3045, .2849, .2622,
- .2426, .2223, .2035, .1830, .1628, .1416, .1211, .1033,
- .0871, .0731, .0606, .0491, .0395, .0315, .0245, .0189,
- .0151, .0117, .0093, .0076, .0070
- };
-
- /* third band of MODIS (469nm) soil and vegetation differences */
- static const float sr8[13] = {
- .0732, .8372,3.6403,4.9195,5.0091,5.0102,5.0102,5.0099,
- 4.9670,4.0931,1.2880, .1186, .0237
- };
-
- /* fifth band of MODIS ( 1.24micron) leaf and canopy properties */
- static const float sr9[25] = {
- .0094, .0143, .0248, .0457, .0902, .1928, .4494,1.1087,
- 2.4282,3.6387,4.5556,4.9434,4.9975,4.9434,4.5556,3.6387,
- 2.4282,1.1087, .4494, .1928, .0902, .0457, .0248, .0143,
- .0094
- };
-
- /* sixth band of MODIS ( 1.64microns) snow and cloud differences */
- static const float sr10[27] = {
- .0215, .0307, .0493, .0827, .1454, .2693, .5240,1.0412,
- 1.9431,2.6724,3.3494,3.8269,4.0296,4.0624,4.0296,3.8269,
- 3.3494,2.6724,1.9097,1.0412, .5240, .2693, .1454, .0827,
- .0493, .0307, .0215
- };
-
- static const float wli[10] = { 0.5025, 0.6075, 0.8300, 0.9000, 1.8200, 2.0950, 3.5800, 0.4550, 1.2100, 1.6075 };
- static const float wls[10] = { 0.5875, 0.7000, 0.9125, 0.9975, 1.9575, 2.1925, 3.8700, 0.4850, 1.2700, 1.6725 };
-
- ffu.wlinf = wli[iwa-1];
- ffu.wlsup = wls[iwa-1];
-
- int i;
- for(i = 0; i < 1501; i++) ffu.s[i] = 0;
-
- switch(iwa)
- {
- case 1: for(i = 0; i < 35; i++) ffu.s[101+i] = sr1[i];
- break;
- case 2: for(i = 0; i < 38; i++) ffu.s[143+i] = sr2[i];
- break;
- case 3: for(i = 0; i < 34; i++) ffu.s[232+i] = sr3[i];
- break;
- case 4: for(i = 0; i < 40; i++) ffu.s[260+i] = sr4[i];
- break;
- case 5: for(i = 0; i < 56; i++) ffu.s[628+i] = sr5[i];
- break;
- case 6: for(i = 0; i < 40; i++) ffu.s[738+i] = sr6[i];
- break;
- case 7: for(i = 0; i < 117; i++) ffu.s[1332+i] = sr7[i];
- break;
- case 8: for(i = 0; i < 13; i++) ffu.s[82+i] = sr8[i];
- break;
- case 9: for(i = 0; i < 25; i++) ffu.s[384+i] = sr9[i];
- break;
- case 10: for(i = 0; i < 27; i++) ffu.s[543+i] = sr10[i];
- break;
- }
-}
-
-void IWave::modis(int iwa)
-{
- /* band 1 of MODIS (vegetation monitoring at 250m) */
- static const float sr1[31] = {
- .0000, .0000, .0101, .0984, .2914, .5020, .6564, .6881,
- .7064, .7114, .7292, .7523, .7721, .7852, .8112, .8664,
- .9309, .9794,1.0000, .9855, .9333, .8429, .7187, .5672,
- .3996, .2327, .1024, .0369, .0157, .0092, .0000
- };
-
- /* band 2 of MODIS (vegetation monitoring at 250m) */
- static const float sr2[34] = {
- .0000, .0216, .0502, .0923, .1431, .1938, .2713, .4292,
- .6543, .8606, .9672, .9609, .9418, .9273, .9311, .9550,
- .9827, .9948,1.0000, .9782, .9308, .7860, .5430, .2931,
- .1477, .0824, .0520, .0367, .0276, .0213, .0159, .0112,
- .0076, .0000
- };
-
- /* band 3 of MODIS (vegetation monitoring at 500m / MVI) */
- static const float sr3[14] = {
- .0000, .0222, .2021, .7451,1.0141, .9036, .8745, .9242,
- 1.0009, .9305, .5877, .1496, .0170, .0000
- };
-
- /* band 4 of MODIS (green channel at 500m ) */
- static const float sr4[13] = {
- .0286, .2645, .7583, .9889,1.0002, .9750, .9726, .9878,
- .9622, .7041, .2147, .0163, .0000
- };
-
- /* band 5 of MODIS (cloud channel at 500m ) */
- static const float sr5[23] = {
- .0000, .0188, .0381, .0984, .1872, .3188, .4933, .6582,
- .8046, .8877, .9564, .9973,1.0000, .9451, .8172, .6366,
- .3949, .2260, .1218, .0623, .0253, .0173, .0000
- };
-
- /* band 6 of MODIS (snow/ice channel at 500m ) */
- static const float sr6[27] = {
- .0000, .0580, .0910, .1611, .2705, .4289, .6049, .7688,
- .8948, .9729,1.0000, .9969, .9875, .9648, .9278, .8629,
- .7530, .6041, .4342, .2748, .1614, .0911, .0508, .0299,
- .0162, .0108, .0000
- };
-
- /* band 7 of MODIS (liquid water absorption channel at 500m ) */
- static const float sr7[51] = {
- .0000, .0124, .0165, .0229, .0317, .0444, .0630, .0918,
- .1358, .2006, .2904, .4032, .5329, .6632, .7775, .8680,
- .9308, .9700, .9913,1.0000,1.0009, .9961, .9866, .9715,
- .9498, .9209, .8851, .8446, .8022, .7614, .7241, .6860,
- .6423, .5915, .5326, .4637, .3846, .3042, .2317, .1698,
- .1195, .0814, .0553, .0381, .0266, .0189, .0137, .0097,
- .0056, .0001, .0000
- };
-
- static const float wli[7] = { 0.6100, 0.8200, 0.4500, 0.5400, 1.2150, 1.6000, 2.0575 };
- static const float wls[7] = { 0.6850, 0.9025, 0.4825, 0.5700, 1.2700, 1.6650, 2.1825 };
-
- ffu.wlinf = wli[iwa-1];
- ffu.wlsup = wls[iwa-1];
-
- int i;
- for(i = 0; i < 1501; i++) ffu.s[i] = 0;
-
- switch(iwa)
- {
- case 1: for(i = 0; i < 31; i++) ffu.s[144+i] = sr1[i];
- break;
- case 2: for(i = 0; i < 34; i++) ffu.s[228+i] = sr2[i];
- break;
- case 3: for(i = 0; i < 14; i++) ffu.s[80+i] = sr3[i];
- break;
- case 4: for(i = 0; i < 13; i++) ffu.s[116+i] = sr4[i];
- break;
- case 5: for(i = 0; i < 23; i++) ffu.s[386+i] = sr5[i];
- break;
- case 6: for(i = 0; i < 27; i++) ffu.s[540+i] = sr6[i];
- break;
- case 7: for(i = 0; i < 51; i++) ffu.s[723+i] = sr7[i];
- break;
- }
-}
-
-void IWave::polder(int iwa)
-{
- /* band 1 of POLDER (443 mic, polarized channel) */
- static const float sr1[27] = {
- .0003, .0042, .0028, .0036, .0060, .0134, .0430, .1284,
- .3394, .6162, .8056, .9060, .9656, .9968, .9880, .8944,
-
- .6612, .3880, .1950, .0966, .0512, .0292, .0180, .0122,
- .0040, .0000, .0000
- };
-
- /* band 2 of POLDER (490 mic) */
- static const float sr2[46] = {
- .0000, .0000, .0000, .0000, .0000, .0000, .0000, .0000,
- .0000, .0000, .0000, .0000, .0000, .0000, .0000, .0000,
- .0000, .0000, .0000, .0000, .0012, .0014, .0022, .0032,
- .0060, .0116, .0252, .0666, .1932, .4896, .8104, .9414,
- .9544, .9710, .9898, .9544, .6920, .3438, .1466, .0630,
- .0304, .0170, .0102, .0070, .0000, .0000
- };
-
- /* band 3 of POLDER (565 mic) */
- static const float sr3[26] = {
- .0000, .0016, .0048, .0074, .0130, .0258, .0566, .1368,
- .3294, .6592, .9270, .9946, .9798, .9544, .9262, .8814,
- .7692, .5420, .2814, .1218, .0518, .0244, .0118, .0066,
- .0038, .0000
- };
-
- /* band 4 of POLDER (670 P1, polarized channel) */
- static const float sr4[30] = {
- .0000, .0000, .0000, .0000, .0010, .0044, .0022, .0140,
- .0176, .0394, .1004, .2476, .5462, .8672, .9902, .9874,
- .9572, .9484, .9264, .8274, .5688, .2828, .1154, .0500,
- .0224, .0186, .0160, .0072, .0000, .0000
- };
-
- /* band 5 of POLDER (763 mic, oxygen absorption channel) */
- static const float sr5[15] = {
- .0000, .0004, .0046, .0134, .0834, .4148, .8056, .9274,
- .9880, .7488, .2416, .0416, .0094, .0008, .0000
- };
-
- /* band 6 of POLDER (765 mic, oxygen absorption channel) */
- static const float sr6[53] = {
- .0000, .0000, .0010, .0018, .0010, .0030, .0046, .0080,
- .0096, .0140, .0202, .0300, .0410, .0622, .0958, .1516,
- .2400, .3648, .5174, .6640, .7798, .8494, .8858, .9066,
- .9202, .9374, .9516, .9692, .9886, .9932, .9650, .8684,
- .6836, .4686, .2922, .1724, .1012, .0594, .0360, .0238,
- .0144, .0104, .0088, .0060, .0052, .0046, .0038, .0052,
- .0028, .0022, .0000, .0000, .0000
- };
-
- /* band 7 of POLDER (865 P1, polarized channel) */
- static const float sr7[45] = {
- .0000, .0004, .0008, .0024, .0030, .0056, .0102, .0186,
- .0338, .0622, .1110, .1974, .3410, .5432, .7610, .9218,
- .9896, .9936, .9744, .9514, .9352, .9222, .9150, .9094,
- .8954, .8592, .7766, .6354, .4604, .3006, .1838, .1082,
- .0626, .0346, .0198, .0112, .0064, .0038, .0028, .0016,
- .0014, .0006, .0000, .0000, .0000
- };
-
- /* band 8 of POLDER (910 mic, water vapor absorption channel) */
- static const float sr8[31] = {
- .0000, .0000, .0000, .0012, .0016, .0018, .0032, .0046,
- .0082, .0158, .0354, .0876, .2242, .5142, .8436, .9848,
- .9838, .9534, .9254, .9084, .8560, .6444, .3388, .1424,
- .0566, .0238, .0098, .0000, .0000, .0000, .0000
- };
-
- static const float wli[8] = { 0.4125, 0.4100, 0.5325, 0.6300, 0.7450, 0.7000, 0.8100, 0.8650 };
- static const float wls[8] = { 0.4775, 0.5225, 0.5950, 0.7025, 0.7800, 0.8300, 0.9200, 0.9400 };
-
- ffu.wlinf = wli[iwa-1];
- ffu.wlsup = wls[iwa-1];
-
- int i;
- for(i = 0; i < 1501; i++) ffu.s[i] = 0;
-
- switch(iwa)
- {
- case 1: for(i = 0; i < 27; i++) ffu.s[65+i] = sr1[i];
- break;
- case 2: for(i = 0; i < 46; i++) ffu.s[64+i] = sr2[i];
- break;
- case 3: for(i = 0; i < 26; i++) ffu.s[113+i] = sr3[i];
- break;
- case 4: for(i = 0; i < 30; i++) ffu.s[152+i] = sr4[i];
- break;
- case 5: for(i = 0; i < 15; i++) ffu.s[198+i] = sr5[i];
- break;
- case 6: for(i = 0; i < 53; i++) ffu.s[180+i] = sr6[i];
- break;
- case 7: for(i = 0; i < 45; i++) ffu.s[224+i] = sr7[i];
- break;
- case 8: for(i = 0; i < 31; i++) ffu.s[246+i] = sr8[i];
- break;
- }
-}
-
-void IWave::etmplus(int iwa)
-{
- /* Spectral filter data found on the following page:
- http://ltpwww.gsfc.nasa.gov/IAS/handbook/handbook_toc.html
- */
- /* 1st spectral band of enhanced thematic mapper plus */
- static const float sr1[35] = {
- .0160, .0710, .2870, .6665, .7920, .8570, .8390, .8060,
- .7790, .8460, .9010, .8995, .8900, .8510, .8750, .8930,
- .8840, .9300, .9580, .9540, .9800, .9750, .9650, .9625,
- .9950, .9900, .9900, .9795, .9830, .9685, .9600, .7685,
- .2930, .0545, .0090
- };
-
- /* 2nd spectral band of enhanced thematic mapper plus */
- static const float sr2[50] = {
- .0006, .0015, .0030, .0117, .0260, .0740, .1740, .3480,
- .5520, .6960, .7590, .7845, .8220, .8695, .9050, .9285,
- .9470, .9525, .9520, .9515, .9530, .9500, .9540, .9670,
- .9590, .9405, .9330, .9385, .9510, .9565, .9550, .9560,
- .9730, .9915,1.0000, .9760, .9420, .9300, .9120, .7985,
- .5740, .3400, .1850, .1055, .0620, .0375, .0210, .0109,
- .0048, .0021
- };
-
- /* 3rd spectral band of enhanced thematic mapper plus */
- static const float sr3[36] = {
- .0001, .0006, .0020, .0095, .0470, .1740, .4190, .7310,
- .9210, .9425, .9370, .9365, .9490, .9645, .9730, .9705,
- .9580, .9550, .9620, .9800, .9930, .9980,1.0000, .9955,
- .9920, .9885, .9770, .9545, .9320, .8805, .7290, .4440,
- .1830, .0660, .0250, .0121
- };
-
- /* 4th spectral band of enhanced thematic mapper plus */
- static const float sr4[70] = {
- .0004, .0021, .0037, .0024, .0010, .0199, .0315, .0518,
- .0690, .1100, .1750, .2710, .4020, .5555, .7050, .8120,
- .8710, .8955, .9080, .9180, .9260, .9280, .9300, .9255,
- .9250, .9280, .9230, .9165, .9080, .9035, .9090, .9240,
- .9460, .9655, .9710, .9690, .9670, .9655, .9670, .9605,
- .9490, .9310, .9250, .9295, .9430, .9610, .9850, .9925,
- .9980, .9915, .9940, .9970, .9980, .9995, .9910, .9880,
- .9690, .9265, .8680, .8175, .8190, .8800, .8540, .5725,
- .2560, .1035, .0440, .0220, .0110, .0071
-
- };
-
- /* 5th spectral band of enhanced thematic mapper plus */
- static const float sr5[116] = {
- .0015, .0000, .0010, .0112, .0120, .0060, .0135, .0210,
- .0400, .0530, .0760, .1028, .1480, .2052, .2740, .3660,
- .4620, .5137, .5780, .6250, .6670, .7090, .7370, .7710,
- .8080, .8315, .8590, .8750, .8930, .9013, .8960, .8953,
- .8945, .8878, .8760, .8685, .8725, .8773, .8740, .8605,
- .8680, .8785, .8990, .8940, .9000, .9020, .9190, .9248,
- .9290, .9455, .9475, .9533, .9520, .9668, .9610, .9598,
- .9780, .9587, .9535, .9513, .9517, .9550, .9440, .9345,
- .9305, .9385, .9480, .9398, .9385, .9470, .9450, .9450,
- .9553, .9648, .9690, .9733, .9910, .9960, .9975, .9945,
- 1.0000, .9913, .9865, .9885, .9895, .9875, .9810, .9812,
- .9780, .9685, .9600, .9383, .9020, .8545, .7910, .6928,
- .6077, .5257, .4275, .3420, .2670, .2028, .1585, .1187,
- .0840, .0723, .0535, .0437, .0390, .0305, .0205, .0217,
- .0110, .0100, .0060, .0020
- };
-
- /* 7th spectral band of enhanced thematic mapper plus */
- static const float sr6[147] = {
- .0020, .0020, .0120, .0085, .0090, .0177, .0170, .0313,
- .0370, .0458, .0580, .0762, .0880, .1097, .1490, .1960,
- .2420, .3030, .3670, .4368, .5190, .6100, .6765, .7182,
- .7560, .7738, .7840, .7755, .7890, .7817, .7780, .7665,
- .7615, .7680, .7750, .7690, .7880, .8085, .7940, .8230,
- .8115, .8195, .8365, .8370, .8360, .8513, .8585, .8553,
- .8710, .8735, .8750, .8590, .8715, .8593, .8720, .8625,
- .8650, .8680, .8765, .8730, .8690, .8760, .8680, .8793,
- .8735, .8760, .8800, .8745, .8700, .8578, .8630, .8585,
- .8440, .8585, .8545, .8625, .8680, .8560, .8470, .8613,
- .8510, .8520, .8380, .8465, .8403, .8305, .8355, .8382,
- .8220, .8380, .8385, .8425, .8535, .8623, .8730, .8680,
- .8790, .8908, .8980, .9195, .9200, .9263, .9275, .9340,
- .9360, .9533, .9540, .9518, .9600, .9728, .9850, .9720,
- .9700, .9938, .9895, .9748,1.0000, .9912, .9680, .9658,
- .9555, .9295, .9290, .9255, .9030, .9235, .9290, .9285,
- .9200, .8533, .7750, .6587, .5315, .4035, .2750, .2175,
- .1310, .1035, .0750, .0518, .0290, .0280, .0135, .0193,
- .0130, .0065, .0150
- };
-
- /* 8th spectral band of enhanced thematic mapper plus (Pan) */
- static const float sr7[164] = {
- .0028, .0175, .0563, .1500, .3285, .5015, .5845, .5990,
- .6018, .6095, .6143, .6100, .6035, .6035, .6118, .6270,
- .6385, .6445, .6438, .6320, .6260, .6245, .6320, .6420,
- .6593, .6775, .6898, .6970, .7005, .7050, .7110, .7130,
- .7165, .7180, .7120, .7070, .7040, .7030, .7148, .7300,
- .7440, .7535, .7615, .7640, .7533, .7450, .7353, .7290,
- .7285, .7310, .7328, .7340, .7435, .7495, .7540, .7580,
- .7618, .7680, .7720, .7790, .7815, .7850, .7900, .7930,
- .7918, .7915, .7950, .7980, .8018, .8060, .8133, .8200,
- .8275, .8315, .8370, .8420, .8485, .8545, .8605, .8680,
- .8723, .8795, .8853, .8920, .8945, .8960, .8945, .8940,
- .8943, .8955, .8975, .9000, .9033, .9035, .9023, .9000,
- .8968, .8935, .8828, .8790, .8783, .8730, .8760, .8800,
- .8813, .8865, .8910, .8930, .9035, .9105, .9183, .9200,
- .9175, .9160, .9183, .9180, .9168, .9155, .9173, .9270,
- .9290, .9375, .9497, .9570, .9638, .9695, .9715, .9770,
- .9795, .9840, .9908, .9970, .9985, .9980, .9953, .9940,
- .9920, .9930, .9925, .9870, .9755, .9650, .9583, .9490,
- .9348, .9240, .9133, .9070, .9053, .9085, .9193, .9400,
- .9658, .9780, .9625, .8950, .7520, .5715, .3962, .2580,
- .1675, .1080, .0687, .0440
- };
-
- static const float wli[7] = { 0.4350, 0.5000, 0.6150, 0.7400, 1.5050, 2.0150, 0.5025 };
- static const float wls[7] = { 0.5200, 0.6225, 0.7025, 0.9125, 1.7925, 2.3800, 0.9100 };
-
- ffu.wlinf = wli[iwa-1];
- ffu.wlsup = wls[iwa-1];
-
- int i;
- for(i = 0; i < 1501; i++) ffu.s[i] = 0;
-
- switch(iwa)
- {
- case 1: for(i = 0; i < 35; i++) ffu.s[74+i] = sr1[i];
- break;
- case 2: for(i = 0; i < 50; i++) ffu.s[100+i] = sr2[i];
- break;
- case 3: for(i = 0; i < 36; i++) ffu.s[146+i] = sr3[i];
- break;
- case 4: for(i = 0; i < 70; i++) ffu.s[196+i] = sr4[i];
- break;
- case 5: for(i = 0; i < 116; i++) ffu.s[502+i] = sr5[i];
- break;
- case 6: for(i = 0; i < 147; i++) ffu.s[706+i] = sr6[i];
- break;
- case 7: for(i = 0; i < 164; i++) ffu.s[101+i] = sr7[i];
- }
-}
-
-float IWave::solirr(const float wl) const
-{
-/* si (in w/m2/micron) contains the values of the solar
- irradiance between 0.25 and 4.0 microns, by step of 0.0025 m.
- the value of the total irradiance is 1372 w/m2 on the whole
- spectrum (1358 w/m2 between 0.25 and 4.0 microns) */
-
- static const float si[1501] = {
- 69.30, 77.65, 86.00, 100.06, 114.12, 137.06, 160.00,
- 169.52, 179.04, 178.02, 177.00, 193.69, 210.38, 241.69,
- 273.00, 318.42, 363.84, 434.42, 505.00, 531.50, 558.00,
- 547.50, 537.00, 559.02, 581.03, 619.52, 658.00, 694.39,
- 730.78, 774.39, 817.99, 871.99, 925.99, 912.04, 898.09,
- 920.69, 943.29, 925.99, 908.69, 936.09, 963.49, 994.94,
- 1026.39, 980.74, 935.09,1036.29,1137.49,1163.74,1189.99,
- 1109.34,1028.69,1088.99,1149.29,1033.69, 918.09,1031.89,
- 1145.69,1035.09, 924.49,1269.29,1614.09,1631.09,1648.09,
- 1677.19,1706.29,1744.89,1783.49,1750.19,1716.89,1705.19,
- 1693.49,1597.69,1501.89,1630.99,1760.09,1775.24,1790.39,
- 1859.94,1929.49,1993.44,2057.39,2039.23,2021.08,2030.73,
- 2040.38,2026.53,2012.68,1999.53,1986.38,2002.88,2019.38,
- 2038.09,2056.79,1967.74,1878.68,1905.83,1932.98,1953.58,
- 1974.18,1935.68,1897.19,1916.78,1936.38,1937.23,1938.09,
- 1881.44,1824.79,1814.09,1803.39,1832.24,1861.09,1885.93,
- 1910.78,1904.68,1898.58,1875.73,1852.88,1865.64,1878.39,
- 1874.74,1871.09,1872.44,1873.79,1850.39,1826.99,1837.04,
- 1847.09,1841.18,1835.28,1849.48,1863.69,1851.03,1838.38,
- 1840.73,1843.08,1802.83,1762.58,1778.78,1794.99,1777.48,
- 1759.98,1764.73,1769.49,1753.48,1737.48,1713.14,1688.80,
- 1702.88,1716.97,1696.07,1675.17,1672.03,1668.89,1663.56,
- 1658.23,1647.75,1637.27,1630.02,1622.77,1606.06,1589.36,
- 1552.29,1515.22,1528.91,1542.60,1548.90,1555.21,1544.41,
- 1533.62,1525.24,1516.86,1507.92,1498.98,1484.07,1469.17,
- 1464.28,1459.39,1448.73,1438.08,1423.16,1408.24,1407.53,
- 1406.82,1397.82,1388.82,1378.51,1368.21,1352.13,1336.05,
- 1343.88,1351.71,1339.60,1327.50,1320.72,1313.94,1294.94,
- 1275.94,1280.92,1285.90,1278.04,1270.19,1263.68,1257.18,
- 1249.80,1242.41,1231.30,1220.19,1212.14,1204.10,1201.69,
- 1199.29,1194.78,1190.27,1185.47,1180.68,1174.38,1168.09,
- 1156.17,1144.26,1143.46,1142.67,1132.95,1123.23,1116.71,
- 1110.19,1110.89,1111.59,1094.80,1078.01,1077.75,1077.49,
- 1073.89,1070.29,1058.71,1047.13,1045.66,1044.20,1037.03,
- 1029.86,1010.40, 990.94, 966.91, 942.89, 972.87,1002.86,
- 978.93, 955.00, 960.95, 966.91, 983.31, 999.71, 991.91,
- 984.11, 979.05, 973.99, 968.79, 963.60, 958.23, 952.87,
- 947.93, 942.99, 937.99, 933.00, 928.00, 923.00, 918.18,
- 913.37, 908.74, 904.11, 899.05, 893.99, 889.18, 884.37,
- 879.74, 875.12, 870.24, 865.36, 860.94, 856.53, 852.02,
- 847.50, 843.00, 838.50, 833.99, 829.49, 824.98, 820.48,
- 815.99, 811.50, 806.99, 802.49, 798.17, 793.86, 789.74,
- 785.63, 781.25, 776.87, 772.92, 768.98, 764.80, 760.63,
- 756.06, 751.49, 746.99, 742.49, 738.18, 733.88, 729.76,
- 725.63, 721.24, 716.86, 712.92, 708.99, 704.81, 700.63,
- 696.25, 691.87, 687.94, 684.01, 680.01, 676.00, 671.80,
- 667.61, 663.23, 658.86, 655.32, 651.77, 649.07, 646.37,
- 643.74, 641.11, 638.05, 634.99, 632.18, 629.37, 626.74,
- 624.12, 621.06, 618.00, 615.18, 612.37, 609.92, 607.48,
- 604.79, 602.11, 599.24, 596.38, 593.93, 591.48, 588.79,
- 586.11, 583.25, 580.40, 577.94, 575.48, 572.99, 570.51,
- 568.00, 565.49, 562.98, 560.47, 557.98, 555.50, 553.01,
- 550.51, 548.00, 545.49, 542.98, 540.48, 537.98, 535.49,
- 533.19, 530.90, 528.94, 526.99, 524.80, 522.62, 520.24,
- 517.87, 515.44, 513.01, 509.59, 506.17, 502.89, 499.62,
- 496.35, 493.09, 489.81, 486.54, 483.27, 480.01, 476.73,
- 473.46, 470.19, 466.92, 463.64, 460.37, 457.10, 453.84,
- 450.57, 447.30, 444.03, 440.76, 437.48, 434.21, 430.94,
- 427.67, 424.40, 421.13, 417.86, 414.59, 411.32, 408.05,
- 404.78, 401.51, 398.24, 394.97, 391.70, 388.43, 392.57,
- 396.71, 401.92, 407.14, 405.32, 403.50, 401.67, 399.84,
- 398.02, 396.21, 394.37, 392.54, 390.72, 388.90, 387.06,
- 385.23, 383.42, 381.60, 379.77, 377.95, 376.12, 374.30,
- 372.48, 370.66, 368.82, 366.99, 365.17, 363.35, 361.52,
- 359.69, 357.87, 356.05, 354.22, 352.39, 350.57, 348.75,
- 346.92, 345.10, 343.27, 341.45, 341.84, 342.24, 342.95,
- 343.66, 342.27, 340.89, 339.49, 338.09, 336.69, 335.30,
- 333.91, 332.53, 331.13, 329.73, 328.34, 326.96, 325.56,
- 324.16, 322.77, 321.39, 319.99, 318.59, 317.20, 315.82,
- 314.42, 313.03, 311.63, 310.24, 308.85, 307.46, 306.06,
- 304.66, 303.28, 301.90, 300.50, 299.10, 297.71, 296.32,
- 294.93, 293.54, 293.41, 293.28, 293.35, 293.42, 292.26,
- 291.10, 289.97, 288.84, 287.69, 286.54, 285.39, 284.25,
- 283.10, 281.96, 280.81, 279.67, 278.52, 277.38, 276.23,
- 275.08, 273.94, 272.80, 271.65, 270.51, 269.36, 268.22,
- 267.07, 265.93, 264.78, 263.64, 262.49, 261.34, 260.20,
- 259.06, 257.91, 256.77, 255.62, 254.47, 253.33, 252.20,
- 251.16, 250.13, 249.11, 248.09, 246.97, 245.86, 244.74,
- 243.61, 242.49, 241.37, 240.24, 239.12, 238.00, 236.89,
- 235.76, 234.64, 233.51, 232.38, 231.26, 230.13, 229.01,
- 227.90, 226.77, 225.65, 224.53, 223.42, 222.29, 221.16,
- 220.04, 218.92, 217.80, 216.68, 215.55, 214.43, 213.30,
- 212.18, 211.06, 209.94, 208.82, 207.69, 206.99, 206.29,
- 205.65, 205.02, 203.98, 202.95, 201.90, 200.85, 199.81,
- 198.78, 197.74, 196.70, 195.65, 194.61, 193.57, 192.54,
- 191.50, 190.47, 189.42, 188.37, 187.33, 186.30, 185.26,
- 184.22, 183.18, 182.14, 181.10, 180.06, 179.02, 177.98,
- 176.93, 175.89, 174.86, 173.83, 172.78, 171.73, 170.70,
- 169.67, 168.62, 167.57, 167.59, 167.60, 167.76, 167.93,
- 167.09, 166.26, 165.42, 164.58, 163.75, 162.92, 162.08,
- 161.25, 160.41, 159.58, 158.74, 157.91, 157.07, 156.24,
- 155.40, 154.57, 153.73, 152.90, 152.06, 151.23, 150.39,
- 149.56, 148.72, 147.89, 147.06, 146.23, 145.39, 144.55,
- 143.71, 142.88, 142.05, 141.22, 140.38, 139.54, 138.70,
- 137.86, 137.99, 138.11, 138.36, 138.60, 137.94, 137.29,
- 136.64, 136.00, 135.35, 134.71, 134.05, 133.39, 132.74,
- 132.09, 131.45, 130.81, 130.15, 129.49, 128.84, 128.20,
- 127.55, 126.90, 126.25, 125.60, 124.94, 124.29, 123.64,
- 123.00, 122.35, 121.70, 121.05, 120.40, 119.74, 119.09,
- 118.45, 117.81, 117.15, 116.50, 115.85, 115.19, 115.25,
- 115.31, 115.46, 115.62, 115.11, 114.60, 114.09, 113.58,
- 113.06, 112.54, 112.03, 111.53, 111.01, 110.50, 109.99,
- 109.47, 108.95, 108.44, 107.93, 107.42, 106.92, 106.42,
- 105.89, 105.37, 104.85, 104.34, 103.83, 103.33, 102.81,
- 102.29, 101.79, 101.29, 100.77, 100.25, 99.74, 99.22,
- 98.71, 98.20, 97.69, 97.18, 97.12, 97.07, 97.09,
- 97.11, 96.68, 96.26, 95.84, 95.42, 94.99, 94.56,
- 94.14, 93.72, 93.31, 92.89, 92.46, 92.03, 91.61,
- 91.19, 90.76, 90.34, 89.92, 89.49, 89.07, 88.66,
- 88.24, 87.81, 87.39, 86.97, 86.55, 86.12, 85.69,
- 85.26, 84.85, 84.43, 84.01, 83.59, 83.17, 82.75,
- 82.32, 81.89, 81.89, 81.89, 81.95, 82.02, 81.68,
- 81.35, 81.00, 80.65, 80.32, 79.99, 79.64, 79.30,
- 78.96, 78.61, 78.27, 77.94, 77.60, 77.26, 76.91,
- 76.57, 76.24, 75.90, 75.56, 75.22, 74.88, 74.54,
- 74.20, 73.86, 73.52, 73.18, 72.84, 72.50, 72.16,
- 71.82, 71.48, 71.14, 70.80, 70.47, 70.13, 69.79,
- 69.76, 69.73, 69.76, 69.80, 69.52, 69.24, 68.96,
- 68.68, 68.41, 68.14, 67.85, 67.57, 67.29, 67.02,
- 66.75, 66.48, 66.19, 65.90, 65.63, 65.36, 65.08,
- 64.80, 64.53, 64.25, 63.97, 63.69, 63.41, 63.14,
- 62.85, 62.57, 62.30, 62.03, 61.75, 61.47, 61.19,
- 60.92, 60.64, 60.36, 60.08, 59.81, 59.80, 59.80,
- 59.82, 59.85, 59.63, 59.40, 59.17, 58.95, 58.73,
- 58.50, 58.28, 58.06, 57.83, 57.60, 57.37, 57.15,
- 56.93, 56.70, 56.48, 56.26, 56.03, 55.79, 55.57,
- 55.36, 55.13, 54.90, 54.66, 54.43, 54.22, 54.00,
- 53.77, 53.55, 53.32, 53.09, 52.87, 52.65, 52.43,
- 52.20, 51.97, 51.75, 51.72, 51.68, 51.67, 51.67,
- 51.48, 51.30, 51.11, 50.92, 50.73, 50.55, 50.37,
- 50.18, 49.98, 49.79, 49.61, 49.43, 49.23, 49.04,
- 48.85, 48.67, 48.48, 48.30, 48.12, 47.93, 47.73,
- 47.54, 47.36, 47.18, 46.98, 46.79, 46.60, 46.42,
- 46.24, 46.06, 45.87, 45.67, 45.48, 45.30, 45.12,
- 44.93, 44.87, 44.82, 44.80, 44.79, 44.62, 44.45,
- 44.29, 44.14, 43.98, 43.83, 43.66, 43.49, 43.34,
- 43.18, 43.02, 42.86, 42.70, 42.55, 42.38, 42.21,
- 42.06, 41.90, 41.74, 41.58, 41.42, 41.26, 41.10,
- 40.94, 40.78, 40.62, 40.46, 40.31, 40.14, 39.97,
- 39.81, 39.66, 39.50, 39.34, 39.18, 39.03, 38.99,
- 38.96, 38.94, 38.92, 38.79, 38.66, 38.52, 38.38,
- 38.25, 38.12, 37.99, 37.86, 37.72, 37.58, 37.44,
- 37.30, 37.17, 37.05, 36.91, 36.77, 36.64, 36.50,
- 36.36, 36.23, 36.09, 35.96, 35.82, 35.69, 35.55,
- 35.42, 35.28, 35.15, 35.01, 34.88, 34.75, 34.61,
- 34.47, 34.34, 34.20, 34.07, 34.05, 34.03, 34.03,
- 34.03, 33.91, 33.79, 33.68, 33.57, 33.46, 33.35,
- 33.23, 33.12, 33.01, 32.90, 32.78, 32.67, 32.55,
- 32.44, 32.33, 32.23, 32.11, 32.00, 31.89, 31.77,
- 31.66, 31.55, 31.43, 31.31, 31.20, 31.10, 30.99,
- 30.87, 30.76, 30.66, 30.54, 30.42, 30.31, 30.20,
- 30.08, 29.97, 29.93, 29.90, 29.88, 29.87, 29.76,
- 29.66, 29.56, 29.46, 29.36, 29.27, 29.17, 29.08,
- 28.98, 28.88, 28.77, 28.67, 28.58, 28.49, 28.39,
- 28.30, 28.20, 28.10, 28.00, 27.91, 27.81, 27.71,
- 27.61, 27.52, 27.41, 27.31, 27.21, 27.12, 27.03,
- 26.93, 26.83, 26.74, 26.64, 26.54, 26.44, 26.35,
- 26.33, 26.31, 26.29, 26.28, 26.20, 26.12, 26.04,
- 25.95, 25.87, 25.79, 25.71, 25.64, 25.54, 25.45,
- 25.37, 25.30, 25.21, 25.12, 25.05, 24.98, 24.89,
- 24.80, 24.71, 24.63, 24.55, 24.47, 24.39, 24.31,
- 24.22, 24.14, 24.05, 23.97, 23.89, 23.81, 23.73,
- 23.66, 23.56, 23.47, 23.39, 23.31, 23.28, 23.26,
- 23.23, 23.21, 23.13, 23.06, 22.99, 22.92, 22.84,
- 22.76, 22.69, 22.63, 22.55, 22.47, 22.41, 22.35,
- 22.27, 22.19, 22.11, 22.04, 21.97, 21.90, 21.83,
- 21.76, 21.68, 21.60, 21.53, 21.47, 21.39, 21.31,
- 21.24, 21.18, 21.11, 21.03, 20.96, 20.89, 20.81,
- 20.73, 20.66, 20.60, 20.57, 20.55, 20.54, 20.53,
- 20.46, 20.40, 20.34, 20.28, 20.21, 20.14, 20.08,
- 20.03, 19.96, 19.90, 19.83, 19.77, 19.71, 19.65,
- 19.59, 19.53, 19.46, 19.39, 19.33, 19.27, 19.21,
- 19.15, 19.08, 19.02, 18.96, 18.90, 18.84, 18.78,
- 18.71, 18.64, 18.58, 18.53, 18.46, 18.40, 18.33,
- 18.27, 18.26, 18.25, 18.24, 18.24, 18.19, 18.14,
- 18.08, 18.03, 17.98, 17.93, 17.88, 17.83, 17.77,
- 17.71, 17.66, 17.62, 17.56, 17.50, 17.45, 17.41,
- 17.35, 17.29, 17.25, 17.21, 17.14, 17.08, 17.04,
- 17.00, 16.93, 16.87, 16.83, 16.79, 16.72, 16.66,
- 16.61, 16.57, 16.51, 16.46, 16.41, 16.36, 16.34,
- 16.33, 16.31, 16.30, 16.26, 16.22, 16.17, 16.13,
- 16.08, 16.04, 16.00, 15.96, 15.90, 15.84, 15.81,
- 15.78, 15.73, 15.68, 15.63, 15.59, 15.55, 15.50,
- 15.45, 15.40, 15.36, 15.32, 15.28, 15.24, 15.18,
- 15.13, 15.09, 15.05, 15.01, 14.96, 14.91, 14.87,
- 14.82, 14.78, 14.73, 14.69, 14.66, 14.64, 14.64,
- 14.63, 14.59, 14.55, 14.50, 14.45, 14.41, 14.38,
- 14.35, 14.32, 14.26, 14.21, 14.18, 14.15, 14.10,
- 14.05, 14.01, 13.98, 13.94, 13.91, 13.86, 13.82,
- 13.78, 13.74, 13.70, 13.67, 13.62, 13.58, 13.54,
- 13.50, 13.46, 13.43, 13.39, 13.35, 13.30, 13.25,
- 13.22, 13.18, 13.17, 13.16, 13.14, 13.12, 13.09,
- 13.06, 13.03, 13.00, 12.96, 12.92, 12.89, 12.85,
- 12.81, 12.78, 12.74, 12.70, 12.67, 12.65, 12.61,
- 12.57, 12.53, 12.50, 12.46, 12.43, 12.39, 12.36,
- 12.32, 12.28, 12.25, 12.22, 12.18, 12.15, 12.11,
- 12.07, 12.04, 12.01, 11.97, 11.94, 11.90, 11.86,
- 11.85, 11.85, 11.85, 11.84, 11.81, 11.78, 11.75,
- 11.72, 11.69, 11.66, 11.63, 11.60, 11.58, 11.55,
- 11.51, 11.47, 11.45, 11.42, 11.39, 11.36, 11.33,
- 11.30, 11.27, 11.24, 11.21, 11.18, 11.15, 11.12,
- 11.09, 11.06, 11.03, 11.00, 10.97, 10.94, 10.91,
- 10.89, 10.85, 10.82, 10.78, 10.75, 10.73, 10.72,
- 10.71, 10.70, 10.67, 10.64, 10.62, 10.59, 10.55,
- 10.52, 10.50, 10.47, 10.44, 10.42, 10.39, 10.37,
- 10.34, 10.31, 10.28, 10.25, 10.22, 10.20, 10.17,
- 10.15, 10.12, 10.10, 10.06, 10.03, 10.00, 9.98,
- 9.95, 9.92, 9.89, 9.86, 9.84, 9.82, 9.79,
- 9.75, 9.73, 9.71, 9.70, 9.70, 9.70, 9.70,
- 9.67, 9.63, 9.61, 9.59, 9.58, 9.56, 9.53,
- 9.50, 9.48, 9.45, 9.43, 9.41, 9.39, 9.36,
- 9.34, 9.32, 9.30, 9.27, 9.24, 9.22, 9.20,
- 9.18, 9.15, 9.13, 9.11, 9.08, 9.06, 9.05,
- 9.02, 8.99, 8.96, 8.94, 8.92, 8.90, 8.87,
- 8.85, 8.83, 8.81
- };
-
- float pas = 0.0025;
- int iwl = (int)((wl - 0.250) / pas + 1.5);
-
- if(iwl >= 0) return si[iwl-1];
-
- cout << " wavelength less than 0.25 micron: " << endl << " let's take s(l)=s(0.25)" << endl;
- return si[0];
-}
-
-void IWave::irs_1c_liss(int iwa)
-{
- /* 2nd spectral band of IRS 1C LISS III */
- static const float sr2[61] = {
- .0006, .0009, .0012, .0020, .0036, .0080, .0216, .0655,
- .1690, .3080, .4280, .5600, .7010, .7600, .7640, .7690,
- .7960, .8400, .8760, .8820, .8670, .8560, .8620, .8890,
- .9240, .9480, .9590, .9540, .9460, .9490, .9660, .9860,
- 1.0000,.9960, .9740, .9490, .9340, .9340, .9340, .9210,
- .8820, .8300, .7880, .7770, .7670, .6640, .4190, .1980,
- .0882, .0396, .0192, .0107, .0066, .0041, .0026, .0018,
- .0012, .0010, .0007, .0006
- };
-
- /* 3rd spectral band of IRS 1C LISS III */
- static const float sr3[45] = {
- .0041, .0110, .0357, .1310, .4020, .7200, .8300, .8700,
- .8980, .9120, .9230, .9300, .9320, .9310, .9270, .9300,
- .9390, .9510, .9580, .9600, .9630, .9700, .9890,1.0000,
- .9880, .9390, .8740, .8220, .8040, .8350, .9000, .9620,
- .9730, .9410, .9170, .8790, .6460, .2940, .1050, .0390,
- .0105, .0040, .0020, .0010, .0000
- };
-
- /* 4th spectral band of IRS 1C LISS III */
- static const float sr4[65] = {
- .0090, .0149, .0244, .0400, .0649, .1020, .1520, .2170,
- .2940, .3820, .4830, .6120, .7270, .8320, .9180, .9760,
- 1.0000,.9970, .9800, .9590, .9410, .9330, .9330, .9390,
- .9480, .9550, .9620, .9580, .9500, .9380, .9270, .9150,
- .9100, .9050, .9050, .9020, .8970, .8900, .8830, .8740,
- .8690, .8700, .8720, .8740, .8680, .8490, .8150, .7720,
- .7310, .6990, .6840, .6800, .6640, .5750, .4060, .2280,
- .1240, .0641, .0356, .0206, .0126, .0080, .0052, .0035,
- .0025
- };
-
- /* 5th spectral band of IRS 1C LISS III */
- static const float sr5[155] = {
- .0000, .0000, .0000, .0000, .0001, .0001, .0001, .0001,
- .0000, .0001, .0001, .0021, .0001, .0000, .0001, .0001,
- .0001, .0001, .0001, .0002, .0002, .0002, .0001, .0005,
- .0004, .0006, .0007, .0010, .0011, .0015, .0020, .0024,
- .0030, .0039, .0051, .0068, .0088, .0114, .0153, .0206,
- .0281, .0372, .0515, .0708, .0983, .1370, .1870, .2580,
- .3470, .4410, .5340, .6190, .6920, .7510, .7940, .8270,
- .8500, .8680, .8800, .8920, .9010, .9090, .9170, .9250,
- .9310, .9400, .9490, .9590, .9700, .9760, .9850, .9920,
- .9960,1.0000,1.0000, .9960, .9910, .9860, .9790, .9730,
- .9680, .9660, .9620, .9640, .9670, .9700, .9750, .9810,
- .9850, .9880, .9840, .9770, .9690, .9560, .9400, .9240,
- .9080, .8880, .8710, .8570, .8410, .8300, .8220, .8180,
- .8170, .8220, .8290, .8370, .8460, .8550, .8450, .8310,
- .8110, .7870, .7580, .7180, .6780, .6380, .5990, .5640,
- .5280, .4930, .4590, .4210, .3770, .3320, .2770, .2160,
- .1580, .1110, .0772, .0528, .0357, .0242, .0165, .0117,
- .0083, .0059, .0042, .0031, .0023, .0017, .0013, .0009,
- .0007, .0005, .0004, .0002, .0002, .0001, .0001, .0001,
- .0001, .0000, .0000
- };
-
- static const float wli[4] = { 0.502, 0.612, 0.752, 1.452 };
- static const float wls[4] = { 0.620, 0.700, 0.880, 1.760 };
-
- ffu.wlinf = wli[iwa-1];
- ffu.wlsup = wls[iwa-1];
-
- int i;
- for(i = 0; i < 1501; i++) ffu.s[i] = 0;
-
- switch(iwa)
- {
- case 1: for(i = 0; i < 61; i++) ffu.s[101+i] = sr2[i];
- break;
- case 2: for(i = 0; i < 45; i++) ffu.s[145+i] = sr3[i];
- break;
- case 3: for(i = 0; i < 65; i++) ffu.s[201+i] = sr4[i];
- break;
- case 4: for(i = 0; i < 155; i++) ffu.s[481+i] = sr5[i];
- break;
- }
-}
-
-void IWave::aster(int iwa)
-{
- /* Spectral filter data found on the following page:
- http://www.science.aster.ersdac.or.jp/en/about_aster/sensor/
- */
- /* Band 1 of Aster; Central Wavelength = 556nm */
- static const float sr1[67] = {
- .0000, .0054, .0073, .0078, .0076, .0074, .0093, .0217,
- .0580, .0947, .1566, .2694, .3712, .4813, .6204, .7414,
- .8392, .9077, .9552, .9878, .9973, .9992, .9781, .9373,
- .8900, .8784, .8786, .8941, .8993, .9049, .9231, .9238,
- .9184, .9301, .9423, .9493, .9522, .9548, .9598, .9593,
- .9528, .9256, .8967, .8748, .8265, .7625, .7065, .6282,
- .5206, .3775, .2535, .1629, .1168, .0859, .0593, .0451,
- .0355, .0174, .0078, .0049, .0040, .0038, .0053, .0052,
- .0037, .0023, .0000
- };
-
- /* Band 2 of Aster; Central Wavelength = 659nm */
- static const float sr2[59] = {
- .0000, .0038, .0034, .0008, .0008, .0024, .0029, .0006,
- .0047, .0050, .0033, .0049, .0126, .0000, .1220, .2738,
- .4703, .6723, .8350, .9709, .9990, .9835, .9715, .9710,
- .9734, .9430, .9095, .9305, .9418, .9386, .9202, .9100,
- .8973, .8606, .8195, .7986, .7889, .7702, .7538, .6961,
- .6087, .5186, .4523, .4258, .3811, .3244, .2591, .1854,
- .1121, .0623, .0469, .0334, .0181, .0112, .0010, .0054,
- .0044, .0017, .0000
- };
-
- /* Band 3N (N=Nadir pointing) of Aster; Central Wavelength = 807nm */
- static const float sr3[77] = {
- .0000, .0017, .0078, .0167, .0285, .0447, .0492, .0509,
- .0744, .1160, .1768, .2527, .3625, .5534, .8008,1.0000,
- .9903, .9613, .9012, .9032, .9197, .9655, .9868, .9942,
- .9857, .9745, .9648, .9465, .9368, .9634, .9760, .9820,
- .9938, .9968, .9908, .9810, .9756, .9855, .9832, .9694,
- .9587, .9527, .9499, .9357, .9263, .9552, .9579, .9489,
- .9447, .9399, .9322, .8945, .8220, .7353, .6193, .4813,
- .3584, .2614, .1890, .1269, .0841, .0618, .0442, .0318,
- .0277, .0245, .0213, .0130, .0075, .0074, .0068, .0049,
- .0030, .0024, .0024, .0017, .0000
- };
-
- /* Band 4 of Aster; Central Wavelength = 1657nm */
- static const float sr4[89] = {
- .0000, .0001, .0001, .0002, .0004, .0005, .0007, .0009,
- .0012, .0014, .0017, .0021, .0024, .0028, .0032, .0036,
- .0040, .0045, .0054, .0065, .0080, .0112, .0170, .0245,
- .0330, .0450, .0740, .0990, .1520, .2140, .3050, .4200,
- .5970, .6750, .7900, .8270, .8400, .8408, .9010, .9050,
- .9100, .9140, .9050, .9260, .9470, .9670, .9760, .9840,
- .9710, .9790, .9880,1.0000, .9902, .9840, .9780, .9710,
- .9470, .9510, .9450, .9380, .9340, .9300, .9360, .9420,
- .9140, .8970, .7980, .7000, .5970, .4610, .3700, .2630,
- .1730, .1259, .0888, .0619, .0450, .0346, .0267, .0207,
- .0160, .0120, .0086, .0060, .0040, .0025, .0013, .0003,
- .0000
- };
-
- /* Band 5 of Aster; Central Wavelength = 2169nm */
- static const float sr5[74] = {
- .0000, .0001, .0007, .0017, .0030, .0045, .0062, .0080,
- .0100, .0124, .0157, .0200, .0290, .0410, .0780, .1310,
- .2050, .3030, .5410, .7050, .7790, .7910, .8030, .8220,
- .8400, .9180, .9590,1.0000, .9750, .9020, .7790, .6890,
- .5900, .4180, .3030, .2300, .1720, .1070, .0700, .0610,
- .0498, .0385, .0273, .0160, .0140, .0120, .0100, .0080,
- .0070, .0060, .0050, .0040, .0038, .0036, .0034, .0033,
- .0031, .0029, .0027, .0025, .0024, .0023, .0021, .0020,
- .0019, .0017, .0016, .0015, .0013, .0011, .0008, .0005,
- .0002, .0000
- };
-
- /* Band 6 of Aster; Central Wavelength = 2209nm */
- static const float sr6[78] = {
- .0000, .0001, .0001, .0003, .0005, .0007, .0010, .0014,
- .0018, .0022, .0027, .0032, .0037, .0044, .0050, .0057,
- .0064, .0072, .0080, .0092, .0110, .0133, .0160, .0194,
- .0240, .0298, .0370, .0490, .0660, .1070, .1720, .2540,
- .3520, .5000, .6020, .7420, .7620, .7790, .8520, .8690,
- .8860, .9020, .9290, .9550, .9840,1.0000, .9340, .8200,
- .7540, .5160, .3280, .2380, .1640, .1070, .0570, .0468,
- .0365, .0263, .0160, .0140, .0120, .0100, .0080, .0070,
- .0060, .0050, .0040, .0036, .0032, .0029, .0025, .0022,
- .0018, .0015, .0011, .0006, .0002, .0000
- };
-
- /* Band 7 of Aster; Central Wavelength = 2263nm */
- static const float sr7[78] = {
- .0000, .0012, .0031, .0054, .0080, .0111, .0149, .0195,
- .0250, .0330, .0490, .0700, .1150, .1760, .2500, .3850,
- .5080, .6560, .7950, .8690, .8480, .9100, .9100, .9260,
- .9260, .9430, .9590, .9750, .9750,1.0000, .9590, .8690,
- .7990, .7050, .6230, .5000, .3930, .3030, .2420, .1760,
- .1270, .1060, .0840, .0625, .0410, .0370, .0330, .0290,
- .0250, .0230, .0215, .0199, .0182, .0165, .0147, .0130,
- .0112, .0093, .0084, .0078, .0074, .0070, .0067, .0062,
- .0058, .0053, .0049, .0044, .0040, .0035, .0031, .0027,
- .0022, .0018, .0013, .0008, .0004, .0000
- };
-
- /* Band 8 of Aster; Central Wavelength = 2334nm */
- static const float sr8[92] = {
- .0000, .0026, .0055, .0081, .0103, .0120, .0131, .0138,
- .0147, .0160, .0195, .0260, .0347, .0450, .0610, .0820,
- .1060, .1390, .2040, .2860, .4490, .6040, .7020, .8330,
- .9710, .9880, .9550, .9800, .9770, .9750, .9720, .9700,
- .9670, .9470, .9620, .9770, .9920,1.0000, .9800, .9960,
- .9920, .9960, .9550, .9630, .9060, .8370, .7840, .7020,
- .5800, .4410, .3430, .2780, .2200, .1670, .1307, .0996,
- .0747, .0570, .0440, .0332, .0250, .0200, .0171, .0150,
- .0134, .0120, .0108, .0098, .0089, .0080, .0070, .0059,
- .0049, .0040, .0031, .0022, .0015, .0012, .0010, .0009,
- .0008, .0007, .0006, .0005, .0004, .0004, .0003, .0002,
- .0002, .0001, .0001, .0000
- };
-
- /* Band 9 of Aster; Central Wavelength = 2400nm */
- static const float sr9[98] = {
- .0000, .0004, .0012, .0020, .0028, .0036, .0044, .0053,
- .0062, .0071, .0080, .0089, .0098, .0108, .0120, .0133,
- .0148, .0169, .0200, .0290, .0450, .0650, .0780, .1100,
- .1550, .2290, .3270, .4240, .5390, .7270, .7840, .9060,
- .9270, .8980, .9000, .9010, .9030, .9040, .9060, .9310,
- .9270, .9220, .9610,1.0000, .9800, .9590, .9270, .8940,
- .8690, .8330, .8160, .7670, .7020, .6610, .5630, .4240,
- .3430, .2610, .1920, .1439, .1021, .0695, .0490, .0369,
- .0274, .0205, .0160, .0132, .0111, .0094, .0080, .0066,
- .0053, .0044, .0040, .0051, .0073, .0087, .0088, .0088,
- .0087, .0087, .0086, .0085, .0084, .0082, .0079, .0076,
- .0072, .0067, .0062, .0055, .0047, .0039, .0029, .0018,
- .0005, .0000
- };
-
- static const float wli[9] = { 0.4800, 0.5875, 0.7225, 1.5300, 2.1025, 2.1050, 2.2000, 2.2475, 2.2950 };
- static const float wls[9] = { 0.6450, 0.7325, 0.9125, 1.7500, 2.2850, 2.2975, 2.3925, 2.4750, 2.5375 };
-
- ffu.wlinf = wli[iwa-1];
- ffu.wlsup = wls[iwa-1];
-
- int i;
- for(i = 0; i < 1501; i++) ffu.s[i] = 0;
-
- switch(iwa)
- {
- case 1: for(i = 0; i < 67; i++) ffu.s[92+i] = sr1[i];
- break;
- case 2: for(i = 0; i < 59; i++) ffu.s[135+i] = sr2[i];
- break;
- case 3: for(i = 0; i < 77; i++) ffu.s[189+i] = sr3[i];
- break;
- case 4: for(i = 0; i < 89; i++) ffu.s[512+i] = sr4[i];
- break;
- case 5: for(i = 0; i < 74; i++) ffu.s[741+i] = sr5[i];
- break;
- case 6: for(i = 0; i < 78; i++) ffu.s[742+i] = sr6[i];
- break;
- case 7: for(i = 0; i < 78; i++) ffu.s[780+i] = sr7[i];
- break;
- case 8: for(i = 0; i < 92; i++) ffu.s[799+i] = sr8[i];
- break;
- case 9: for(i = 0; i < 98; i++) ffu.s[818+i] = sr9[i];
- }
-}
-
-/* Following filter function created using create_iwave.py */
-
-void IWave::avnir(int iwa)
-{
- /* "band 1" of AVNIR */
- static const float sr1[65] = {
- .0000, .0000, .0000, .0008, .0017, .0049, .0080, .0186,
- .0293, .0776, .1260, .2609, .3958, .5315, .6672, .6947,
- .7223, .7262, .7300, .7272, .7245, .7717, .8189, .8502,
- .8815, .9068, .9322, .9496, .9669, .9708, .9747, .9873,
- 1.0000, .9849, .9699, .9507, .9316, .9365, .9415, .9632,
- .9849, .9600, .9351, .7552, .5754, .3911, .2068, .1361,
- .0655, .0440, .0226, .0150, .0075, .0046, .0018, .0009,
- .0000, .0000, .0000, .0000, .0000, .0000, .0000, .0000,
- .0000
- };
-
- /* "band 2" of AVNIR */
- static const float sr2[57] = {
- .0000, .0000, .0000, .0008, .0015, .0030, .0045, .0123,
- .0202, .0470, .0739, .1358, .1977, .3205, .4433, .5633,
- .6832, .7137, .7442, .7594, .7746, .8089, .8432, .8576,
- .8719, .8721, .8724, .8873, .9022, .9254, .9486, .9625,
- .9764, .9882, 1.0000, .9904, .9808, .9349, .8890, .8367,
- .7843, .7651, .7458, .7156, .6854, .5639, .4425, .3005,
- .1586, .0985, .0384, .0236, .0088, .0053, .0017, .0008,
- .0000
- };
-
- /* "band 3" of AVNIR */
- static const float sr3[81] = {
- .0000, .0000, .0000, .0000, .0000, .0000, .0000, .0008,
- .0016, .0025, .0034, .0043, .0051, .0075, .0099, .0126,
- .0153, .0228, .0304, .0462, .0620, .0995, .1370, .2107,
- .2844, .3857, .4871, .5747, .6624, .7198, .7771, .7896,
- .8021, .7991, .7960, .7989, .8017, .8312, .8606, .8982,
- .9359, .9592, .9825, .9912, 1.0000, .9931, .9862, .9568,
- .9275, .9046, .8818, .8607, .8395, .8344, .8293, .8215,
- .8136, .7470, .6804, .5481, .4158, .3100, .2043, .1471,
- .0898, .0634, .0369, .0273, .0177, .0135, .0093, .0076,
- .0060, .0045, .0030, .0023, .0015, .0016, .0016, .0008,
- .0000
- };
-
- /* "band 4" of AVNIR */
- static const float sr4[121] = {
- .0000, .0000, .0000, .0000, .0000, .0000, .0000, .0011,
- .0023, .0023, .0022, .0033, .0045, .0080, .0115, .0190,
- .0264, .0484, .0704, .1138, .1572, .2351, .3129, .4431,
- .5733, .7244, .8754, .9377, 1.0000, .9884, .9768, .9528,
- .9288, .9091, .8894, .8763, .8633, .8627, .8622, .8753,
- .8885, .9136, .9388, .9437, .9486, .9531, .9576, .9411,
- .9247, .8969, .8691, .8467, .8242, .7893, .7545, .7331,
- .7117, .6911, .6705, .6560, .6414, .6357, .6299, .6258,
- .6217, .6227, .6237, .6025, .5812, .5843, .5874, .5867,
- .5860, .5696, .5532, .5251, .4969, .4438, .3908, .3191,
- .2475, .1906, .1338, .1033, .0727, .0543, .0359, .0292,
- .0224, .0161, .0097, .0069, .0040, .0038, .0036, .0030,
- .0025, .0024, .0024, .0015, .0007, .0004, .0000, .0003,
- .0007, .0006, .0006, .0006, .0006, .0003, .0000, .0000,
- .0000, .0000, .0000, .0000, .0000, .0000, .0000, .0000,
- .0000
- };
-
- static const float wli[4] = {0.390, 0.485, 0.545, 0.700};
- static const float wls[4] = {0.550, 0.625, 0.745, 1.000};
-
- ffu.wlinf = (float)wli[iwa-1];
- ffu.wlsup = (float)wls[iwa-1];
-
- int i;
- for(i = 0; i < 1501; i++) ffu.s[i] = 0;
-
- switch(iwa)
- {
- case 1: for(i = 0; i < 65; i++) ffu.s[56+i] = sr1[i];
- break;
- case 2: for(i = 0; i < 57; i++) ffu.s[94+i] = sr2[i];
- break;
- case 3: for(i = 0; i < 81; i++) ffu.s[118+i] = sr3[i];
- break;
- case 4: for(i = 0; i < 121; i++) ffu.s[180+i] = sr4[i];
- break;
- }
-}
-
-/* Following filter function created using create_iwave.py */
-
-void IWave::ikonos(int iwa)
-{
-
- /* Ikonos Green of ikonos */
- static const float sr1[275] = {
- .0008, .0011, .0015, .0012, .0009, .0008, .0007, .0007,
- .0007, .0010, .0013, .0015, .0017, .0018, .0019, .0024,
- .0028, .0040, .0052, .0064, .0077, .0082, .0088, .0103,
- .0119, .0147, .0175, .0262, .0350, .0602, .0854, .1392,
- .1929, .2617, .3305, .3750, .4195, .4638, .5082, .5607,
- .6132, .6437, .6742, .6973, .7204, .7406, .7608, .7605,
- .7601, .7742, .7883, .8225, .8566, .8730, .8894, .9165,
- .9436, .9718, 1.0000, .9934, .9868, .9562, .9255, .8434,
- .7613, .6519, .5424, .4282, .3139, .2590, .2041, .1780,
- .1519, .1188, .0856, .0644, .0432, .0371, .0310, .0288,
- .0266, .0244, .0222, .0221, .0221, .0242, .0262, .0279,
- .0296, .0283, .0270, .0248, .0226, .0240, .0254, .0280,
- .0305, .0289, .0274, .0243, .0213, .0215, .0217, .0257,
- .0296, .0319, .0342, .0306, .0271, .0233, .0195, .0195,
- .0195, .0193, .0190, .0165, .0140, .0107, .0073, .0067,
- .0060, .0056, .0051, .0065, .0079, .0101, .0123, .0161,
- .0200, .0210, .0221, .0214, .0208, .0199, .0190, .0172,
- .0155, .0126, .0097, .0083, .0068, .0059, .0049, .0052,
- .0054, .0085, .0115, .0169, .0222, .0231, .0240, .0180,
- .0121, .0080, .0040, .0031, .0022, .0024, .0026, .0024,
- .0023, .0029, .0035, .0030, .0025, .0024, .0023, .0032,
- .0040, .0038, .0036, .0032, .0027, .0025, .0024, .0025,
- .0026, .0024, .0022, .0019, .0016, .0016, .0016, .0018,
- .0020, .0020, .0020, .0023, .0025, .0031, .0036, .0046,
- .0056, .0061, .0066, .0071, .0075, .0078, .0080, .0087,
- .0095, .0089, .0083, .0085, .0088, .0090, .0093, .0100,
- .0107, .0116, .0125, .0128, .0131, .0131, .0131, .0125,
- .0119, .0112, .0105, .0100, .0095, .0091, .0088, .0086,
- .0084, .0083, .0082, .0081, .0080, .0082, .0084, .0082,
- .0081, .0081, .0080, .0080, .0080, .0074, .0069, .0062,
- .0054, .0051, .0048, .0046, .0045, .0043, .0041, .0038,
- .0036, .0035, .0035, .0034, .0033, .0030, .0028, .0028,
- .0028, .0026, .0024, .0024, .0023, .0025, .0026, .0026,
- .0026, .0026, .0026, .0021, .0016, .0018, .0019, .0022,
- .0024, .0019, .0013
- };
-
- /* Ikonos Red of ikonos */
- static const float sr2[275] = {
- .0006, .0007, .0008, .0008, .0007, .0008, .0008, .0007,
- .0006, .0007, .0008, .0007, .0006, .0008, .0009, .0007,
- .0006, .0010, .0013, .0013, .0012, .0019, .0027, .0018,
- .0010, .0011, .0013, .0016, .0019, .0023, .0027, .0030,
- .0034, .0037, .0040, .0049, .0057, .0074, .0091, .0102,
- .0113, .0113, .0113, .0122, .0130, .0151, .0172, .0208,
- .0245, .0306, .0367, .0435, .0503, .0565, .0628, .0861,
- .1094, .1512, .1931, .2421, .2911, .3653, .4396, .5451,
- .6507, .7286, .8066, .8391, .8717, .8801, .8884, .8891,
- .8898, .8824, .8749, .8635, .8521, .8722, .8923, .9450,
- .9977, .9819, .9661, .9369, .9077, .9005, .8932, .9195,
- .9459, .9715, .9972, .9785, .9598, .9186, .8774, .8136,
- .7497, .6259, .5020, .3926, .2832, .2215, .1599, .1334,
- .1068, .0947, .0825, .0732, .0640, .0557, .0474, .0397,
- .0320, .0273, .0227, .0196, .0166, .0155, .0145, .0147,
- .0148, .0155, .0162, .0174, .0186, .0193, .0199, .0193,
- .0188, .0170, .0152, .0138, .0125, .0122, .0119, .0114,
- .0109, .0122, .0135, .0150, .0165, .0174, .0183, .0171,
- .0159, .0135, .0112, .0088, .0063, .0059, .0055, .0044,
- .0034, .0036, .0039, .0037, .0035, .0032, .0030, .0030,
- .0031, .0027, .0023, .0029, .0034, .0035, .0036, .0044,
- .0053, .0059, .0065, .0068, .0072, .0080, .0089, .0092,
- .0095, .0088, .0080, .0075, .0070, .0067, .0064, .0063,
- .0061, .0059, .0056, .0054, .0053, .0057, .0061, .0068,
- .0074, .0070, .0067, .0067, .0067, .0081, .0094, .0111,
- .0128, .0135, .0143, .0151, .0159, .0165, .0171, .0172,
- .0172, .0168, .0163, .0158, .0152, .0143, .0134, .0127,
- .0120, .0113, .0106, .0103, .0100, .0096, .0092, .0095,
- .0098, .0093, .0089, .0087, .0084, .0081, .0078, .0077,
- .0075, .0072, .0070, .0064, .0059, .0056, .0054, .0050,
- .0046, .0043, .0039, .0038, .0036, .0034, .0033, .0031,
- .0029, .0029, .0028, .0028, .0028, .0025, .0022, .0024,
- .0025, .0024, .0022, .0024, .0025, .0023, .0021, .0019,
- .0017, .0019, .0021, .0021, .0020, .0021, .0022, .0018,
- .0014, .0015, .0016
- };
-
- /* Ikonos NIR of ikonos */
- static const float sr3[275] = {
- .0000, .0003, .0005, .0004, .0004, .0005, .0006, .0005,
- .0003, .0006, .0008, .0007, .0007, .0005, .0004, .0009,
- .0015, .0018, .0020, .0025, .0030, .0033, .0035, .0038,
- .0040, .0041, .0041, .0060, .0078, .0081, .0084, .0083,
- .0082, .0066, .0051, .0038, .0026, .0035, .0043, .0049,
- .0055, .0055, .0055, .0042, .0029, .0023, .0017, .0016,
- .0015, .0026, .0036, .0040, .0043, .0034, .0025, .0023,
- .0020, .0017, .0013, .0014, .0015, .0015, .0015, .0018,
- .0021, .0022, .0024, .0025, .0027, .0030, .0034, .0031,
- .0029, .0029, .0029, .0035, .0041, .0050, .0060, .0066,
- .0072, .0083, .0093, .0093, .0093, .0090, .0087, .0091,
- .0095, .0099, .0103, .0118, .0133, .0169, .0204, .0244,
- .0285, .0316, .0347, .0388, .0428, .0502, .0575, .0715,
- .0855, .1052, .1249, .1506, .1764, .2174, .2584, .3386,
- .4188, .5285, .6381, .7213, .8045, .8414, .8784, .8990,
- .9196, .9364, .9532, .9545, .9559, .9424, .9289, .9339,
- .9389, .9628, .9866, .9917, .9968, .9524, .9079, .8388,
- .7698, .6808, .5919, .5067, .4215, .3634, .3053, .2658,
- .2262, .1923, .1583, .1315, .1046, .0860, .0674, .0560,
- .0447, .0373, .0299, .0269, .0239, .0230, .0220, .0202,
- .0184, .0171, .0159, .0161, .0162, .0159, .0157, .0161,
- .0165, .0168, .0171, .0167, .0163, .0142, .0121, .0106,
- .0091, .0079, .0068, .0065, .0062, .0059, .0056, .0049,
- .0042, .0042, .0042, .0046, .0050, .0045, .0040, .0040,
- .0040, .0033, .0027, .0028, .0030, .0028, .0025, .0029,
- .0033, .0029, .0026, .0026, .0026, .0027, .0028, .0027,
- .0027, .0028, .0028, .0027, .0026, .0026, .0026, .0025,
- .0025, .0024, .0024, .0024, .0023, .0026, .0029, .0028,
- .0027, .0029, .0031, .0035, .0039, .0040, .0040, .0040,
- .0040, .0037, .0035, .0031, .0026, .0024, .0022, .0019,
- .0016, .0015, .0014, .0014, .0013, .0013, .0014, .0012,
- .0011, .0011, .0012, .0012, .0012, .0011, .0010, .0013,
- .0016, .0013, .0010, .0012, .0013, .0014, .0014, .0022,
- .0029, .0023, .0018, .0020, .0023, .0018, .0013, .0011,
- .0009, .0004, .0000
- };
-
- static const float wli[3] = {0.350, 0.350, 0.350};
- static const float wls[3] = {1.035, 1.035, 1.035};
-
- ffu.wlinf = (float)wli[iwa-1];
- ffu.wlsup = (float)wls[iwa-1];
-
- int i;
- for(i = 0; i < 1501; i++) ffu.s[i] = 0;
-
- switch(iwa)
- {
- case 1: for(i = 0; i < 275; i++) ffu.s[40+i] = sr1[i];
- break;
- case 2: for(i = 0; i < 275; i++) ffu.s[40+i] = sr2[i];
- break;
- case 3: for(i = 0; i < 275; i++) ffu.s[40+i] = sr3[i];
- break;
- }
-}
-
-/* Following filter function created using create_iwave.py */
-
-void IWave::rapideye(int iwa)
-{
-
- /* "Blue" of rapideye */
- static const float sr1[30] = {
- .0200, .5050, .7300, .7450, .7600, .7750, .7800,
- .8000, .8000, .8000, .8100, .8000, .8100, .8200,
- .8300, .8400, .8500, .8650, .8800, .8900, .9200,
- .9500, .9700, .9700, 1.0000, 1.0000
- };
-
- /* "Green" of rapideye */
- static const float sr2[53] = {
- .0100, .0183, .0267, .0105, .0132, .0158, .0184,
- .0237, .0263, .0289, .0288, .0268, .0248, .0228,
- .0188, .0168, .0148, .0128, .0108, .0200, .1200,
- .8700, .8700, .8800, .8700, .8800, .8800, .8800,
- .8900, .9000, .9000, .9050, .9200, .9250, .9300,
- .9500, .9550, .9700, .9750, .9800, .9800, .9900,
- .9900, .9850, 1.0000, .2750
- };
-
- /* "Red" of rapideye */
- static const float sr3[27] = {
- .0100, .0300, .2000, .7900, .8500, .8750, .8800,
- .9000, .9100, .9100, .9200, .9300, .9450, .9500,
- .9700, .9750, .9900, .9900, .9900, .9900, 1.0000,
- .8600, .1150
- };
-
- /* "RedEdge " of rapideye */
- static const float sr4[95] = {
- .0300, .0285, .0271, .0256, .0241, .0226, .0212,
- .0182, .0168, .0153, .0138, .0124, .0109, .0101,
- .0108, .0111, .0114, .0118, .0121, .0124, .0128,
- .0134, .0138, .0141, .0144, .0147, .0151, .0154,
- .0161, .0164, .0167, .0170, .0174, .0177, .0180,
- .0187, .0190, .0193, .0197, .0200, .0200, .0200,
- .0200, .0200, .0200, .0200, .0200, .0200, .0200,
- .0200, .0200, .0197, .0191, .0185, .0178, .0172,
- .0159, .0153, .0146, .0140, .0133, .0127, .0121,
- .0108, .0101, .0200, .1050, .4900, .9450, 1.0000,
- 1.0000, .9900, .9900, .9900, .9800, .9750, .9700,
- .9600, .9450, .9400, .9000, .4300, .0950
- };
-
- /* "NIR " of rapideye */
- static const float sr5[137] = {
- .0100, .0102, .0103, .0105, .0106, .0108, .0110,
- .0113, .0115, .0116, .0118, .0119, .0121, .0123,
- .0126, .0128, .0129, .0131, .0132, .0134, .0136,
- .0139, .0141, .0142, .0144, .0145, .0147, .0149,
- .0152, .0154, .0155, .0157, .0158, .0160, .0162,
- .0165, .0167, .0168, .0170, .0171, .0173, .0175,
- .0178, .0180, .0181, .0183, .0184, .0186, .0188,
- .0191, .0193, .0194, .0196, .0197, .0199, .0199,
- .0192, .0188, .0185, .0182, .0178, .0175, .0171,
- .0164, .0161, .0158, .0154, .0151, .0147, .0144,
- .0137, .0134, .0130, .0127, .0123, .0120, .0116,
- .0110, .0106, .0103, .0100, .0100, .0250, .0700,
- .5000, .8850, 1.0000, .9750, .9700, .9750, .9800,
- .9700, .9600, .9600, .9600, .9600, .9600, .9600,
- .9500, .9400, .9400, .9300, .9300, .9300, .9300,
- .9200, .9200, .9100, .9000, .8900, .8850, .8800,
- .8600, .8400, .8400, .8150, .5800, .2450, .0800,
-
- };
-
- static const float wli[5] = {0.438, 0.463, 0.624, 0.500, 0.520};
- static const float wls[5] = {0.513, 0.594, 0.690, 0.737, 0.862};
-
- ffu.wlinf = (float)wli[iwa-1];
- ffu.wlsup = (float)wls[iwa-1];
-
- int i;
- for(i = 0; i < 1501; i++) ffu.s[i] = 0;
-
- switch(iwa)
- {
- case 1: for(i = 0; i < 30; i++) ffu.s[75+i] = sr1[i];
- break;
- case 2: for(i = 0; i < 53; i++) ffu.s[85+i] = sr2[i];
- break;
- case 3: for(i = 0; i < 27; i++) ffu.s[149+i] = sr3[i];
- break;
- case 4: for(i = 0; i < 95; i++) ffu.s[100+i] = sr4[i];
- break;
- case 5: for(i = 0; i < 137; i++) ffu.s[108+i] = sr5[i];
- break;
- }
-}
-
-/* Following filter function created using create_iwave.py */
-
-void IWave::vgt1_spot4(int iwa)
-{
-
- /* B0 of VGT1-spot4 */
- static const float sr1[41] = {
- .0001, .0003, .0005, .0007, .0010, .0013, .0028, .0050,
- .0182, .0377, .0828, .1423, .2234, .3168, .4108, .5052,
- .5925, .6759, .7509, .8212, .8815, .9361, .9699, .9920,
- .9907, .9761, .9528, .9248, .8811, .8287, .7223, .5857,
- .4394, .2876, .1820, .1024, .0579, .0331, .0196, .0125,
- .0000
- };
-
- /* B2 of VGT1-spot4 */
- static const float sr2[82] = {
- .0017, .0017, .0016, .0016, .0016, .0024, .0031, .0039,
- .0046, .0439, .0832, .1225, .1618, .2737, .3856, .4975,
- .6094, .6615, .7136, .7657, .8178, .8278, .8377, .8477,
- .8577, .8673, .8769, .8865, .8961, .9088, .9214, .9341,
- .9468, .9595, .9722, .9849, .9976, .9895, .9815, .9734,
- .9653, .9169, .8685, .8201, .7717, .6989, .6260, .5532,
- .4804, .4243, .3681, .3120, .2559, .2229, .1899, .1569,
- .1239, .1063, .0887, .0712, .0536, .0454, .0372, .0289,
- .0207, .0175, .0143, .0111, .0079, .0069, .0060, .0050,
- .0040, .0034, .0027, .0021, .0015, .0015, .0015, .0015,
- .0015, .0000
- };
-
- /* B3 of VGT1-spot4 */
- static const float sr3[133] = {
- .0007, .0008, .0008, .0009, .0010, .0011, .0013, .0014,
- .0015, .0019, .0022, .0026, .0030, .0051, .0072, .0092,
- .0113, .0210, .0308, .0406, .0503, .0806, .1109, .1411,
- .1714, .2271, .2828, .3385, .3942, .4584, .5226, .5869,
- .6511, .6966, .7421, .7876, .8331, .8607, .8883, .9159,
- .9435, .9552, .9668, .9785, .9902, .9927, .9951, .9976,
- 1.0000, .9999, .9997, .9996, .9994, .9984, .9974, .9964,
- .9954, .9927, .9900, .9873, .9846, .9766, .9686, .9606,
- .9526, .9445, .9365, .9284, .9203, .9008, .8813, .8618,
- .8423, .7897, .7370, .6844, .6318, .5584, .4849, .4114,
- .3380, .2893, .2407, .1920, .1434, .1222, .1010, .0798,
- .0586, .0505, .0425, .0345, .0264, .0229, .0194, .0159,
- .0124, .0111, .0098, .0085, .0072, .0065, .0057, .0050,
- .0042, .0038, .0034, .0031, .0027, .0024, .0021, .0017,
- .0014, .0014, .0014, .0013, .0013, .0013, .0013, .0012,
- .0012, .0012, .0011, .0011, .0011, .0010, .0009, .0009,
- .0008, .0007, .0006, .0006, .0005
- };
-
- /* MIR of VGT1-spot4 */
- static const float sr4[141] = {
- .0010, .0010, .0010, .0010, .0010, .0011, .0011, .0012,
- .0013, .0014, .0014, .0015, .0016, .0016, .0017, .0018,
- .0018, .0019, .0021, .0022, .0024, .0026, .0028, .0030,
- .0032, .0035, .0038, .0041, .0044, .0050, .0055, .0060,
- .0066, .0075, .0083, .0092, .0101, .0118, .0136, .0154,
- .0171, .0203, .0235, .0267, .0299, .0366, .0433, .0501,
- .0568, .0708, .0848, .0989, .1129, .1406, .1684, .1961,
- .2239, .2691, .3142, .3594, .4045, .4677, .5308, .5939,
- .6571, .7099, .7628, .8156, .8685, .8934, .9183, .9433,
- .9682, .9761, .9841, .9920, 1.0000, .9971, .9941, .9912,
- .9883, .9840, .9797, .9753, .9710, .9517, .9325, .9132,
- .8939, .8713, .8488, .8262, .8036, .7457, .6878, .6299,
- .5720, .5109, .4498, .3887, .3276, .2926, .2576, .2226,
- .1876, .1704, .1531, .1358, .1186, .1078, .0970, .0863,
- .0755, .0685, .0614, .0544, .0474, .0430, .0385, .0340,
- .0296, .0269, .0242, .0214, .0187, .0172, .0157, .0142,
- .0127, .0118, .0109, .0101, .0092, .0086, .0080, .0075,
- .0069, .0064, .0060, .0055, .0050
- };
-
- static const float wli[4] = {0.400, 0.580, 0.700, 1.450};
- static const float wls[4] = {0.500, 0.782, 1.030, 1.800};
-
- ffu.wlinf = (float)wli[iwa-1];
- ffu.wlsup = (float)wls[iwa-1];
-
- int i;
- for(i = 0; i < 1501; i++) ffu.s[i] = 0;
-
- switch(iwa)
- {
- case 1: for(i = 0; i < 41; i++) ffu.s[60+i] = sr1[i];
- break;
- case 2: for(i = 0; i < 82; i++) ffu.s[132+i] = sr2[i];
- break;
- case 3: for(i = 0; i < 133; i++) ffu.s[180+i] = sr3[i];
- break;
- case 4: for(i = 0; i < 141; i++) ffu.s[480+i] = sr4[i];
- break;
- }
-}
-
-/* Following filter function created using create_iwave.py */
-
-void IWave::vgt2_spot5(int iwa)
-{
-
- /* B0 of VGT2_spot5 */
- static const float sr1[61] = {
- .0007, .0008, .0010, .0010, .0011, .0012, .0013, .0029,
- .0045, .0209, .0374, .0964, .1553, .2551, .3549, .4536,
- .5524, .6318, .7111, .7602, .8093, .8304, .8514, .8698,
- .8882, .9441, 1.0000, .9787, .9574, .7493, .5412, .3553,
- .1694, .1083, .0472, .0318, .0163, .0116, .0069, .0053,
- .0036, .0028, .0020, .0017, .0014, .0011, .0009, .0008,
- .0008, .0008, .0007, .0006, .0006, .0006, .0005, .0004,
- .0004, .0004, .0004, .0003, .0003
- };
-
- /* B2 of VGT2_spot5 */
- static const float sr2[81] = {
- .0006, .0006, .0006, .0007, .0007, .0033, .0059, .0084,
- .0110, .0688, .1265, .1842, .2420, .3532, .4643, .5755,
- .6866, .7306, .7745, .8185, .8625, .8766, .8906, .9046,
- .9187, .9307, .9426, .9546, .9666, .9749, .9833, .9917,
- 1.0000, .9957, .9915, .9872, .9829, .9387, .8945, .8503,
- .8061, .7316, .6570, .5825, .5079, .4468, .3856, .3245,
- .2634, .2293, .1952, .1611, .1270, .1095, .0921, .0746,
- .0572, .0490, .0408, .0326, .0244, .0208, .0171, .0135,
- .0099, .0085, .0071, .0057, .0043, .0037, .0031, .0025,
- .0019, .0017, .0014, .0012, .0010, .0009, .0008, .0007,
- .0006
- };
-
- /* B3 of VGT2_spot5 */
- static const float sr3[121] = {
- .0003, .0003, .0003, .0003, .0003, .0003, .0003, .0004,
- .0004, .0005, .0006, .0008, .0009, .0017, .0024, .0032,
- .0040, .0082, .0124, .0166, .0208, .0361, .0514, .0667,
- .0820, .1175, .1530, .1885, .2240, .2774, .3309, .3844,
- .4378, .4906, .5434, .5962, .6490, .6899, .7308, .7716,
- .8125, .8369, .8612, .8856, .9100, .9248, .9396, .9544,
- .9692, .9761, .9829, .9898, .9967, .9975, .9983, .9992,
- 1.0000, .9939, .9878, .9817, .9756, .9618, .9480, .9342,
- .9204, .9030, .8856, .8682, .8508, .8236, .7965, .7693,
- .7422, .6945, .6467, .5989, .5512, .4910, .4308, .3706,
- .3104, .2681, .2258, .1836, .1413, .1213, .1013, .0813,
- .0613, .0530, .0447, .0364, .0281, .0245, .0209, .0172,
- .0136, .0120, .0104, .0089, .0073, .0065, .0056, .0047,
- .0039, .0036, .0032, .0029, .0025, .0023, .0021, .0018,
- .0016, .0015, .0014, .0012, .0011, .0010, .0008, .0007,
- .0006
- };
-
- /* MIR of VGT2_spot5 */
- static const float sr4[141] = {
- .0005, .0006, .0006, .0007, .0008, .0008, .0008, .0009,
- .0009, .0009, .0009, .0009, .0009, .0011, .0014, .0016,
- .0019, .0022, .0024, .0027, .0029, .0034, .0040, .0045,
- .0050, .0060, .0070, .0080, .0090, .0108, .0126, .0143,
- .0161, .0196, .0231, .0266, .0301, .0372, .0444, .0515,
- .0586, .0723, .0860, .0997, .1134, .1401, .1668, .1936,
- .2203, .2668, .3134, .3599, .4065, .4664, .5263, .5863,
- .6462, .6929, .7396, .7862, .8329, .8630, .8931, .9233,
- .9534, .9644, .9754, .9863, .9973, .9980, .9987, .9993,
- 1.0000, .9987, .9974, .9962, .9949, .9914, .9879, .9845,
- .9810, .9687, .9564, .9440, .9317, .9055, .8793, .8532,
- .8270, .7811, .7351, .6892, .6433, .5746, .5059, .4371,
- .3684, .3244, .2803, .2363, .1923, .1713, .1502, .1292,
- .1082, .0970, .0859, .0747, .0636, .0575, .0514, .0453,
- .0392, .0360, .0327, .0295, .0262, .0235, .0209, .0182,
- .0155, .0139, .0123, .0106, .0090, .0082, .0073, .0065,
- .0057, .0053, .0050, .0046, .0043, .0040, .0037, .0033,
- .0030, .0026, .0022, .0019, .0015
- };
-
- static const float wli[4] = {0.400, 0.580, 0.700, 1.450};
- static const float wls[4] = {0.550, 0.780, 1.000, 1.800};
-
- ffu.wlinf = (float)wli[iwa-1];
- ffu.wlsup = (float)wls[iwa-1];
-
- int i;
- for(i = 0; i < 1501; i++) ffu.s[i] = 0;
-
- switch(iwa)
- {
- case 1: for(i = 0; i < 61; i++) ffu.s[60+i] = sr1[i];
- break;
- case 2: for(i = 0; i < 81; i++) ffu.s[132+i] = sr2[i];
- break;
- case 3: for(i = 0; i < 121; i++) ffu.s[180+i] = sr3[i];
- break;
- case 4: for(i = 0; i < 141; i++) ffu.s[480+i] = sr4[i];
- break;
- }
-}
-
-void IWave::worldview2(int iwa)
-{
-
- /* WV2 Pan of wv2_spectral_response */
- static const float sr1[301] = {
- .0055, .0062, .0068, .0045, .0022, .0024, .0027, .0034,
- .0041, .0038, .0030, .0039, .0049, .0042, .0034, .0037,
- .0040, .0050, .0060, .0050, .0040, .0036, .0033, .0037,
- .0042, .0052, .0063, .0048, .0034, .0061, .0088, .0105,
- .0121, .0499, .0881, .2723, .4599, 1.6988, 2.9515, 55.9008,
- 109.7660, 271.3440, 436.1630, 461.8220, 487.5330, 494.8560, 504.9920, 515.2150,
- 525.5960, 529.5890, 535.5830, 529.7560, 522.2330, 527.2070, 533.6600, 528.6020,
- 523.0890, 541.1120, 557.2800, 558.1700, 558.2320, 580.8990, 605.5330, 616.2080,
- 626.7920, 612.1180, 595.4140, 612.0080, 630.7120, 649.1530, 671.5410, 663.7040,
- 654.7330, 672.5320, 693.0980, 691.3350, 688.2370, 678.2900, 664.9730, 683.3230,
- 701.5600, 705.9920, 713.5760, 709.8480, 709.7860, 738.4220, 765.7520, 762.7560,
- 757.8270, 759.1620, 759.8180, 779.9830, 794.0850, 797.9350, 800.7150, 811.3510,
- 819.2900, 820.8140, 823.0300, 829.7940, 838.8690, 848.9130, 860.8020, 858.0370,
- 858.4620, 865.1970, 870.2850, 877.9320, 889.2780, 896.4750, 909.2530, 913.0800,
- 917.8850, 914.2210, 910.7620, 916.9790, 924.8900, 936.8300, 950.7910, 943.9980,
- 936.9110, 932.3110, 929.4170, 938.2740, 951.2320, 960.0120, 962.7810, 957.5010,
- 953.8650, 954.7520, 957.3760, 968.1550, 977.7350, 961.3320, 949.2170, 946.9550,
- 953.3340, 946.6560, 952.1930, 962.4700, 969.5950, 983.9680, 1000.0000, 994.3200,
- 994.0030, 980.9740, 969.5630, 968.2530, 968.3970, 973.6740, 978.8550, 966.8470,
- 963.7410, 952.2520, 946.6540, 945.9200, 952.9380, 954.7590, 962.5830, 962.1420,
- 956.6370, 950.3810, 940.9620, 936.2240, 924.5960, 923.3790, 921.6840, 933.5680,
- 940.8310, 957.9770, 963.8320, 958.1430, 941.2970, 924.2600, 903.0000, 895.8780,
- 887.1520, 910.5230, 929.4020, 744.0190, 553.8670, 320.2460, 85.8164, 51.4292,
- 17.2983, 12.0102, 6.5998, 4.3680, 2.1313, 1.5356, .9222, .7218,
- .5287, .4897, .4497, .4318, .4090, .4071, .3964, .4203,
- .4465, .4033, .3613, .3303, .2980, .3011, .3085, .2862,
- .2615, .2536, .2423, .2746, .3070, .2950, .2837, .2615,
- .2375, .2483, .2590, .2701, .2825, .2617, .2408, .2486,
- .2580, .2735, .2876, .2828, .2762, .2753, .2731, .2568,
- .2422, .2392, .2343, .2234, .2135, .2157, .2186, .2048,
- .1911, .1799, .1690, .1771, .1832, .1676, .1513, .1388,
- .1258, .1297, .1337, .1225, .1114, .1029, .0942, .1047,
- .1152, .0995, .0839, .0845, .0853, .0776, .0701, .0707,
- .0711, .0657, .0600, .0621, .0642, .0557, .0473, .0433,
- .0392, .0361, .0329, .0341, .0352, .0314, .0276, .0255,
- .0234, .0211, .0188, .0180, .0171, .0151, .0131, .0121,
- .0111, .0100, .0088, .0088, .0087, .0080, .0072, .0071,
- .0069, .0067, .0064, .0064, .0063
- };
-
- /* WV2 Coastal Blue of wv2_spectral_response */
- static const float sr2[301] = {
- .0019, .0033, .0033, .0028, .0017, .0033, .0036, .0044,
- .0029, .0062, .0054, .0050, .0074, .0135, .0454, .1731,
- .6347, 3.4150, 27.4284, 132.9030, 355.9880, 592.5800, 700.7190, 739.6250,
- 765.3070, 787.8420, 817.0880, 838.6870, 861.7800, 883.5130, 905.0550, 917.0720,
- 927.2080, 947.6580, 965.0880, 979.3040, 985.9210, 989.0940, 997.2360, 974.6130,
- 853.9400, 588.0320, 281.5770, 80.5215, 8.9461, 1.3331, .3609, .1454,
- .0712, .0380, .0115, .0096, .0051, .0112, .0110, .0108,
- .0091, .0101, .0117, .0064, .0013, .0014, .0009, .0006,
- .0007, .0009, .0009, .0011, .0010, .0007, .0009, .0012,
- .0036, .0013, .0004, .0005, .0003, .0005, .0004, .0126,
- .1417, .0024, .0003, .0003, .0005, .0005, .0003, .0003,
- .0001, .0000, .0002, .0016, .0017, .0004, .0001, .0001,
- .0005, .0029, .0045, .0028, .0010, .0017, .0013, .0014,
- .0023, .0031, .0061, .0116, .0101, .0056, .0039, .0032,
- .0027, .0031, .0025, .0026, .0027, .0027, .0025, .0021,
- .0022, .0018, .0017, .0018, .0018, .0021, .0024, .0030,
- .0044, .0093, .0172, .0163, .0078, .0042, .0044, .0042,
- .0036, .0042, .0066, .0185, .0264, .0124, .0081, .0076,
- .0085, .0096, .0122, .0292, .0976, .0936, .0333, .0238,
- .0298, .0442, .0669, .1526, .4227, .2563, .0653, .0414,
- .0578, .2646, .7112, .4411, .0894, .0305, .0131, .0081,
- .0060, .0059, .0070, .0112, .0193, .0331, .0553, .1062,
- .2462, .2458, .1162, .0691, .1216, .1248, .1605, .1959,
- .1637, .1168, .0928, .0797, .0730, .0625, .0716, .0692,
- .0699, .0721, .0593, .0474, .0512, .0388, .0287, .0282,
- .0423, .0284, .0276, .0314, .0321, .0255, .0155, .0168,
- .0152, .0173, .0183, .0163, .0163, .0211, .0168, .0132,
- .0099, .0096, .0092, .0160, .0189, .0195, .0168, .0153,
- .0145, .0112, .0095, .0074, .0062, .0047, .0040, .0040,
- .0030, .0033, .0025, .0030, .0030, .0034, .0036, .0042,
- .0041, .0050, .0054, .0060, .0054, .0064, .0054, .0049,
- .0044, .0039, .0037, .0041, .0039, .0040, .0046, .0053,
- .0049, .0046, .0042, .0035, .0032, .0026, .0024, .0023,
- .0024, .0023, .0026, .0030, .0031, .0037, .0037, .0037,
- .0038, .0034, .0031, .0027, .0025, .0021, .0019, .0016,
- .0015, .0015, .0015, .0017, .0019, .0025, .0029, .0034,
- .0041, .0043, .0046, .0048, .0047, .0050, .0050, .0056,
- .0058, .0063, .0068, .0078, .0081
- };
-
- /* WV2 Blue of wv2_spectral_response */
- static const float sr3[301] = {
- .0008, .0004, .0003, .0002, .0003, .0001, .0002, .0003,
- .0004, .0005, .0004, .0005, .0004, .0003, .0005, .0006,
- .0007, .0005, .0006, .0007, .0028, .0024, .0017, .0010,
- .0026, .0062, .0135, .0275, .0412, .0515, .0701, .1333,
- .3374, .9579, 2.2771, 5.4329, 19.7821, 81.8229, 245.2000, 503.3090,
- 700.9700, 757.6050, 778.2550, 788.6260, 800.0000, 801.7370, 809.8590, 821.0700,
- 826.0450, 830.9250, 842.2620, 862.7060, 878.4820, 876.9430, 878.2670, 887.6130,
- 907.5760, 930.5590, 950.1920, 976.8010, 1000.0000, 978.9400, 855.7790, 593.8730,
- 297.6290, 125.6610, 50.3684, 18.1990, 5.7341, 2.9735, 1.6560, .9803,
- .6049, .3915, .2592, .1681, .1089, .0763, .0514, .0520,
- .0667, .0623, .0607, .0594, .0626, .0549, .0587, .0488,
- .0494, .0415, .0310, .0297, .0174, .0175, .0143, .0109,
- .0128, .0092, .0086, .0092, .0081, .0085, .0090, .0076,
- .0081, .0091, .0074, .0072, .0080, .0061, .0055, .0061,
- .0042, .0035, .0041, .0038, .0028, .0038, .0038, .0032,
- .0042, .0054, .0057, .0057, .0100, .0162, .0175, .0215,
- .0359, .0457, .0343, .0239, .0243, .0255, .0195, .0134,
- .0126, .0141, .0120, .0086, .0076, .0088, .0101, .0090,
- .0070, .0081, .0109, .0134, .0124, .0120, .0149, .0224,
- .0310, .0326, .0310, .0340, .0454, .0611, .0653, .0523,
- .0415, .0420, .0510, .0638, .0645, .0492, .0354, .0300,
- .0320, .0400, .0444, .0393, .0299, .0248, .0245, .0294,
- .0405, .0507, .0515, .0447, .0595, .0543, .0609, .0773,
- .0848, .0927, .0950, .0805, .0570, .0509, .0510, .0429,
- .0566, .0641, .0635, .0645, .0686, .0662, .0780, .0785,
- .0748, .0557, .0449, .0383, .0324, .0264, .0202, .0219,
- .0214, .0236, .0270, .0351, .0351, .0308, .0297, .0280,
- .0215, .0221, .0192, .0175, .0185, .0174, .0181, .0187,
- .0178, .0187, .0184, .0172, .0158, .0142, .0148, .0135,
- .0130, .0131, .0118, .0109, .0106, .0099, .0088, .0079,
- .0070, .0061, .0064, .0069, .0074, .0090, .0105, .0120,
- .0136, .0146, .0152, .0146, .0128, .0114, .0094, .0078,
- .0063, .0056, .0053, .0053, .0052, .0054, .0053, .0048,
- .0038, .0032, .0027, .0022, .0020, .0021, .0022, .0024,
- .0029, .0029, .0028, .0025, .0021, .0019, .0015, .0014,
- .0014, .0018, .0022, .0027, .0030, .0032, .0030, .0027,
- .0025, .0021, .0018, .0021, .0027, .0038, .0047, .0056,
- .0063, .0059, .0051, .0043, .0033
- };
-
- /* WV2 Green of wv2_spectral_response */
- static const float sr4[301] = {
- .0004, .0003, .0001, .0002, .0002, .0001, .0002, .0002,
- .0003, .0003, .0002, .0003, .0004, .0002, .0004, .0005,
- .0004, .0004, .0004, .0005, .0004, .0005, .0005, .0005,
- .0005, .0004, .0004, .0005, .0003, .0005, .0004, .0004,
- .0003, .0004, .0005, .0003, .0002, .0003, .0005, .0004,
- .0006, .0006, .0005, .0005, .0023, .0044, .0085, .0128,
- .0141, .0159, .0198, .0212, .0226, .0266, .0356, .0435,
- .0664, .1438, .3963, 1.1357, 3.0919, 11.1042, 40.5198, 133.7880,
- 351.5100, 606.0390, 723.0070, 760.0260, 779.3890, 788.8110, 806.8500, 828.0350,
- 840.7560, 842.0390, 844.3050, 846.8570, 850.3350, 859.7230, 863.5160, 869.1430,
- 882.5710, 900.7200, 924.4690, 942.1680, 962.2850, 976.6010, 985.7260, 994.7640,
- 1000.0000, 993.0530, 979.1210, 907.7450, 664.0400, 301.4360, 92.9241, 25.2385,
- 5.5627, 2.4767, 1.1294, .5085, .2229, .1072, .0539, .0257,
- .0069, .0035, .0017, .0003, .0018, .0017, .0062, .0086,
- .0152, .0161, .0257, .0325, .0292, .0270, .0241, .0141,
- .0002, .0001, .0002, .0002, .0003, .0005, .0007, .0008,
- .0010, .0008, .0006, .0010, .0011, .0006, .0009, .0011,
- .0012, .0011, .0009, .0008, .0011, .0011, .0010, .0009,
- .0011, .0009, .0010, .0011, .0011, .0011, .0010, .0013,
- .0009, .0011, .0008, .0008, .0010, .0012, .0008, .0010,
- .0011, .0013, .0011, .0010, .0011, .0012, .0014, .0012,
- .0017, .0035, .0040, .0027, .0014, .0010, .0008, .0007,
- .0003, .0007, .0008, .0011, .0010, .0026, .0009, .0002,
- .0000, .0000, .0000, .0000, .0000, .0000, .0000, .0006,
- .0051, .0042, .0018, .0005, .0003, .0004, .0008, .0003,
- .0001, .0023, .0086, .0047, .0017, .0002, .0001, .0017,
- .0013, .0017, .0010, .0002, .0117, .0095, .0112, .0091,
- .0090, .0085, .0077, .0067, .0077, .0070, .0060, .0055,
- .0061, .0069, .0062, .0066, .0066, .0058, .0060, .0054,
- .0054, .0049, .0040, .0036, .0035, .0035, .0029, .0026,
- .0023, .0021, .0029, .0024, .0022, .0022, .0020, .0018,
- .0018, .0017, .0015, .0015, .0012, .0014, .0014, .0013,
- .0012, .0011, .0013, .0013, .0011, .0013, .0014, .0016,
- .0016, .0020, .0019, .0018, .0019, .0019, .0017, .0016,
- .0017, .0014, .0013, .0013, .0012, .0013, .0013, .0015,
- .0017, .0019, .0023, .0030, .0038, .0052, .0072, .0097,
- .0132, .0170, .0211, .0255, .0300, .0351, .0407, .0474,
- .0551, .0653, .0811, .1055, .1401
- };
-
- /* WV2 Yellow of wv2_spectral_response */
- static const float sr5[301] = {
- .0003, .0001, .0001, .0001, .0000, .0000, .0001, .0001,
- .0001, .0001, .0001, .0001, .0001, .0001, .0001, .0003,
- .0006, .0211, .0273, .0005, .0000, .0001, .0000, .0001,
- .0002, .0002, .0001, .0002, .0002, .0003, .0003, .0002,
- .0003, .0004, .0004, .0004, .0010, .0050, .0032, .0012,
- .0005, .0003, .0004, .0003, .0007, .0006, .0005, .0005,
- .0004, .0007, .0007, .0007, .0007, .0007, .0007, .0006,
- .0007, .0006, .0003, .0004, .0002, .0003, .0002, .0002,
- .0002, .0002, .0001, .0003, .0001, .0002, .0004, .0003,
- .0005, .0002, .0002, .0002, .0001, .0004, .0004, .0038,
- .0070, .0062, .0044, .0049, .0038, .0111, .0267, .0575,
- .1271, .3445, .8950, 2.2247, 5.8789, 26.5572, 134.6520, 389.2200,
- 663.5500, 848.1980, 899.8060, 920.0230, 932.6340, 940.1810, 947.0260, 952.4410,
- 966.4120, 981.4690, 989.7230, 992.7060, 1000.0000, 969.3680, 759.4330, 436.6510,
- 134.3220, 30.8525, 7.3852, 2.2367, .6906, .2851, .1576, .0963,
- .0443, .0231, .0129, .0075, .0050, .0033, .0022, .0014,
- .0008, .0010, .0008, .0007, .0009, .0005, .0008, .0009,
- .0006, .0009, .0005, .0007, .0010, .0005, .0009, .0008,
- .0007, .0011, .0009, .0008, .0012, .0011, .0015, .0013,
- .0012, .0011, .0013, .0013, .0010, .0009, .0011, .0011,
- .0010, .0008, .0009, .0008, .0008, .0009, .0008, .0008,
- .0006, .0005, .0005, .0006, .0007, .0002, .0004, .0006,
- .0003, .0004, .0006, .0006, .0234, .0159, .0189, .0213,
- .0113, .0140, .0189, .0200, .0194, .0099, .0183, .0115,
- .0093, .0135, .0106, .0113, .0119, .0076, .0120, .0127,
- .0171, .0114, .0067, .0086, .0089, .0068, .0044, .0064,
- .0049, .0058, .0060, .0049, .0019, .0039, .0036, .0029,
- .0033, .0030, .0031, .0047, .0039, .0043, .0039, .0038,
- .0033, .0028, .0025, .0021, .0020, .0017, .0018, .0018,
- .0010, .0014, .0013, .0013, .0007, .0008, .0009, .0009,
- .0008, .0008, .0009, .0009, .0006, .0010, .0009, .0007,
- .0009, .0007, .0007, .0008, .0009, .0008, .0010, .0014,
- .0015, .0016, .0018, .0018, .0015, .0014, .0012, .0010,
- .0005, .0004, .0005, .0004, .0004, .0005, .0004, .0003,
- .0003, .0004, .0004, .0004, .0003, .0004, .0003, .0003,
- .0002, .0002, .0002, .0001, .0001, .0001, .0001, .0001,
- .0001, .0001, .0001, .0001, .0001, .0002, .0002, .0003,
- .0003, .0004, .0005, .0005, .0006
- };
-
- /* WV2 Red of wv2_spectral_response */
- static const float sr6[301] = {
- .0003, .0001, .0001, .0000, .0001, .0000, .0001, .0001,
- .0002, .0001, .0001, .0002, .0002, .0001, .0002, .0003,
- .0004, .0002, .0003, .0004, .0003, .0003, .0003, .0004,
- .0004, .0004, .0006, .0006, .0003, .0003, .0003, .0003,
- .0003, .0003, .0002, .0002, .0003, .0002, .0004, .0002,
- .0003, .0003, .0003, .0002, .0019, .0034, .0008, .0006,
- .0012, .0024, .0010, .0009, .0006, .0013, .0013, .0014,
- .0029, .0019, .0029, .0022, .0015, .0023, .0008, .0002,
- .0003, .0002, .0002, .0002, .0002, .0002, .0001, .0000,
- .0002, .0000, .0000, .0000, .0001, .0001, .0001, .0001,
- .0001, .0000, .0001, .0002, .0001, .0001, .0001, .0001,
- .0002, .0001, .0001, .0003, .0002, .0004, .0005, .0006,
- .0008, .0009, .0013, .0091, .0126, .0268, .0410, .0704,
- .1229, .2687, .6281, 1.6492, 4.8674, 22.7608, 95.5659, 294.3530,
- 596.0710, 822.2890, 872.7760, 885.3350, 927.9280, 955.6950, 965.0420, 967.0950,
- 965.5880, 957.7760, 955.5000, 952.8310, 955.8010, 965.2530, 970.3580, 976.4930,
- 987.5260, 996.5750, 999.0850, 992.1070, 983.6940, 978.3110, 885.2800, 632.5950,
- 291.8230, 83.2547, 20.4412, 5.6355, 1.9137, .8432, .4036, .2037,
- .1018, .0569, .0272, .0162, .0142, .0168, .0133, .0144,
- .0132, .0125, .0106, .0061, .0031, .0034, .0015, .0014,
- .0012, .0004, .0006, .0012, .0030, .0050, .0095, .0073,
- .0067, .0089, .0069, .0049, .0055, .0022, .0015, .0005,
- .0022, .0007, .0006, .0009, .0138, .0140, .0134, .0163,
- .0106, .0124, .0108, .0077, .0089, .0090, .0079, .0043,
- .0108, .0045, .0070, .0065, .0062, .0064, .0084, .0069,
- .0027, .0065, .0063, .0065, .0051, .0071, .0092, .0108,
- .0067, .0079, .0041, .0043, .0086, .0062, .0072, .0061,
- .0039, .0055, .0048, .0050, .0057, .0051, .0042, .0044,
- .0040, .0035, .0035, .0040, .0027, .0031, .0032, .0024,
- .0031, .0027, .0021, .0017, .0017, .0016, .0013, .0011,
- .0012, .0010, .0013, .0010, .0011, .0009, .0008, .0007,
- .0007, .0007, .0008, .0007, .0007, .0006, .0006, .0006,
- .0005, .0005, .0005, .0006, .0005, .0006, .0005, .0005,
- .0002, .0006, .0005, .0004, .0004, .0004, .0003, .0003,
- .0004, .0005, .0005, .0006, .0006, .0008, .0007, .0006,
- .0005, .0003, .0003, .0002, .0001, .0002, .0001, .0001,
- .0002, .0002, .0002, .0002, .0002, .0002, .0002, .0002,
- .0001, .0001, .0001, .0001, .0001
- };
-
- /* WV2 RedEdge of wv2_spectral_response */
- static const float sr7[301] = {
- .0001, .0002, .0003, .0002, .0002, .0001, .0001, .0002,
- .0002, .0002, .0002, .0002, .0003, .0003, .0003, .0004,
- .0008, .0023, .0013, .0013, .0020, .0011, .0016, .0010,
- .0010, .0011, .0009, .0020, .0011, .0009, .0007, .0010,
- .0097, .0509, .0025, .0003, .0008, .0239, .0026, .0002,
- .0002, .0003, .0001, .0002, .0002, .0002, .0002, .0001,
- .0001, .0005, .0008, .0017, .0009, .0058, .0138, .0079,
- .0039, .0057, .0153, .0099, .0012, .0015, .0042, .0014,
- .0002, .0002, .0001, .0001, .0002, .0001, .0001, .0001,
- .0002, .0001, .0002, .0002, .0001, .0001, .0001, .0000,
- .0000, .0001, .0002, .0001, .0004, .0020, .0021, .0008,
- .0009, .0020, .0031, .0031, .0045, .0067, .0061, .0050,
- .0071, .0113, .0138, .0161, .0240, .0344, .0375, .0398,
- .0538, .0794, .0884, .0759, .0904, .1744, .1848, .0517,
- .0088, .0045, .0027, .0015, .0011, .0007, .0014, .0028,
- .0050, .0064, .0081, .0106, .0116, .0115, .0118, .0105,
- .0113, .0084, .0082, .0089, .0097, .0153, .0328, .0787,
- .2073, .7591, 3.1275, 18.8368, 99.6101, 346.8350, 622.9080, 853.7850,
- 952.7920, 978.4220, 987.6340, 989.0260, 993.9010, 999.8580, 999.2800, 989.4170,
- 986.8130, 980.9620, 977.1160, 944.1910, 846.3990, 615.8370, 359.7630, 138.8130,
- 30.5442, 7.0917, 2.1585, .7300, .2699, .1188, .0553, .0240,
- .0096, .0069, .0053, .0033, .0043, .0040, .0051, .0077,
- .0083, .0094, .0064, .0050, .0001, .0003, .0003, .0003,
- .0002, .0003, .0002, .0002, .0002, .0001, .0001, .0003,
- .0002, .0002, .0002, .0001, .0003, .0003, .0002, .0004,
- .0004, .0002, .0008, .0008, .0019, .0039, .0088, .0112,
- .0114, .0077, .0047, .0043, .0104, .0084, .0076, .0074,
- .0089, .0118, .0153, .0190, .0174, .0171, .0183, .0187,
- .0180, .0190, .0157, .0145, .0127, .0102, .0081, .0062,
- .0045, .0039, .0032, .0025, .0020, .0016, .0015, .0011,
- .0010, .0010, .0008, .0007, .0008, .0006, .0007, .0005,
- .0006, .0006, .0007, .0006, .0007, .0004, .0004, .0006,
- .0004, .0005, .0005, .0005, .0005, .0004, .0004, .0004,
- .0004, .0004, .0004, .0004, .0003, .0003, .0002, .0002,
- .0002, .0002, .0002, .0002, .0002, .0001, .0001, .0001,
- .0001, .0002, .0002, .0001, .0002, .0002, .0002, .0002,
- .0002, .0001, .0001, .0001, .0001, .0001, .0001, .0000,
- .0001, .0001, .0001, .0003, .0005
- };
-
- /* WV2 NIR1 of wv2_spectral_response */
- static const float sr8[301] = {
- .0003, .0000, .0000, .0001, .0001, .0000, .0000, .0001,
- .0001, .0000, .0000, .0000, .0000, .0000, .0000, .0000,
- .0001, .0000, .0000, .0001, .0002, .0000, .0001, .0001,
- .0001, .0002, .0001, .0001, .0001, .0001, .0001, .0001,
- .0001, .0002, .0001, .0001, .0016, .0061, .0004, .0001,
- .0004, .0003, .0003, .0003, .0003, .0004, .0005, .0006,
- .0004, .0004, .0007, .0014, .0006, .0009, .0016, .0006,
- .0005, .0006, .0003, .0002, .0003, .0001, .0002, .0004,
- .0002, .0003, .0003, .0004, .0003, .0004, .0002, .0001,
- .0001, .0000, .0000, .0000, .0000, .0000, .0001, .0001,
- .0000, .0001, .0001, .0002, .0001, .0000, .0001, .0001,
- .0000, .0000, .0001, .0000, .0000, .0000, .0000, .0001,
- .0001, .0000, .0000, .0000, .0002, .0000, .0000, .0002,
- .0000, .0001, .0000, .0001, .0000, .0000, .0000, .0001,
- .0000, .0000, .0000, .0001, .0000, .0001, .0001, .0004,
- .0005, .0005, .0006, .0005, .0007, .0007, .0010, .0008,
- .0011, .0008, .0009, .0010, .0010, .0009, .0009, .0012,
- .0013, .0010, .0009, .0021, .0017, .0035, .0048, .0064,
- .0052, .0043, .0039, .0044, .0050, .0060, .0066, .0111,
- .0162, .0284, .0440, .0705, .1061, .1653, .2562, .4123,
- .7130, 1.3994, 2.8857, 5.9533, 12.6868, 27.6938, 58.8599, 123.1170,
- 260.2040, 506.7740, 759.9670, 940.5800, 995.8050, 997.6220, 988.9070, 983.0910,
- 972.9340, 958.3120, 941.1390, 931.9070, 919.3820, 909.0800, 897.6000, 882.1200,
- 871.1910, 863.0540, 844.2840, 836.4960, 838.0360, 841.1890, 835.6570, 833.8190,
- 842.5480, 830.7770, 818.6040, 816.8370, 806.7110, 810.7600, 794.1610, 779.8840,
- 767.3130, 749.6020, 739.2710, 738.7140, 734.1450, 711.8330, 697.1410, 680.4620,
- 658.6350, 649.7810, 632.4710, 619.9080, 609.1200, 598.9920, 590.9140, 566.1070,
- 507.1120, 402.7990, 275.1740, 157.6670, 73.8047, 32.7870, 13.8147, 5.3908,
- 2.6246, 1.8086, 1.3063, 1.0328, .9172, .8912, .7983, .7457,
- .7272, .7833, .7011, .6553, .6028, .5579, .2812, .2742,
- .0044, .0032, .0029, .0022, .0020, .0015, .0011, .0010,
- .0011, .0009, .0009, .0007, .0007, .0007, .0007, .0007,
- .0004, .0006, .0007, .0006, .0003, .0005, .0005, .0005,
- .0003, .0004, .0004, .0003, .0002, .0005, .0003, .0003,
- .0003, .0004, .0003, .0003, .0002, .0002, .0002, .0002,
- .0001, .0002, .0002, .0001, .0001, .0001, .0001, .0001,
- .0001, .0001, .0001, .0001, .0001, .0001, .0001, .0001,
- .0001, .0001, .0001, .0000, .0001
- };
-
- /* WV2 NIR2 of wv2_spectral_response */
- static const float sr9[301] = {
- .0003, .0070, .0199, .0874, .0748, .0052, .0005, .0006,
- .0003, .0001, .0002, .0003, .0001, .0002, .0002, .0002,
- .0002, .0002, .0002, .0002, .0002, .0001, .0002, .0002,
- .0004, .0002, .0002, .0002, .0001, .0002, .0002, .0002,
- .0001, .0002, .0001, .0008, .0012, .0001, .0002, .0019,
- .0012, .0008, .0006, .0002, .0000, .0001, .0004, .0002,
- .0000, .0009, .0037, .0012, .0002, .0001, .0007, .0009,
- .0000, .0003, .0001, .0000, .0007, .0008, .0000, .0001,
- .0002, .0004, .0008, .0009, .0004, .0002, .0002, .0027,
- .0088, .0007, .0004, .0040, .0047, .0001, .0003, .0021,
- .0010, .0001, .0002, .0001, .0001, .0000, .0000, .0000,
- .0000, .0000, .0000, .0001, .0013, .0001, .0003, .0002,
- .0002, .0005, .0006, .0002, .0006, .0005, .0005, .0006,
- .0012, .0005, .0003, .0002, .0005, .0006, .0006, .0011,
- .0011, .0003, .0004, .0005, .0001, .0006, .0007, .0008,
- .0012, .0019, .0024, .0010, .0005, .0015, .0005, .0000,
- .0003, .0002, .0003, .0005, .0008, .0002, .0002, .0005,
- .0008, .0002, .0004, .0003, .0001, .0002, .0001, .0004,
- .0005, .0007, .0007, .0009, .0009, .0006, .0010, .0009,
- .0007, .0007, .0009, .0011, .0006, .0009, .0010, .0010,
- .0012, .0009, .0008, .0005, .0008, .0007, .0009, .0006,
- .0005, .0011, .0010, .0005, .0006, .0009, .0009, .0008,
- .0012, .1141, .4534, .5047, .7796, 1.0461, .9763, 1.1133,
- 1.0687, 1.0909, 1.0955, 1.1311, 1.0945, 1.0891, 1.0416, 1.1403,
- 1.1270, 1.1706, 1.1509, 1.2061, 1.3547, 1.3002, 1.4918, 2.2310,
- 4.3284, 10.5836, 30.5957, 107.8530, 313.7460, 571.8840, 789.2690, 951.5410,
- 987.1440, 991.6770, 993.3630, 999.6910, 996.6910, 983.3270, 970.8560, 952.3600,
- 933.0200, 922.3760, 910.9220, 899.7670, 892.1120, 878.5650, 864.6450, 850.5250,
- 841.2980, 827.2570, 808.1800, 794.0050, 774.3770, 760.2820, 746.9060, 725.8480,
- 708.9670, 689.1840, 661.7200, 640.6300, 620.9290, 596.4570, 574.6850, 551.8710,
- 530.9050, 511.6300, 493.6670, 474.1180, 454.3110, 437.7660, 421.4490, 406.0470,
- 389.7410, 376.6220, 363.5170, 349.8550, 336.6970, 326.9620, 317.0800, 305.8060,
- 294.9200, 282.2030, 271.4390, 260.8070, 250.9120, 243.3730, 235.7340, 227.6580,
- 217.5590, 208.7220, 198.5760, 188.1520, 178.7050, 168.4410, 159.0320, 148.1250,
- 137.7700, 124.5570, 109.6120, 91.7406, 71.5068, 50.3125, 32.8064, 19.8817,
- 9.7957, 4.7076, 2.1849, 1.0292, .5237, .2985, .2000, .1460,
- .1143, .1020, .0801, .0766, .0801, .0645, .0701, .0646,
- .0538, .0298, .0300, .0277, .0007
- };
-
- static const float wli[9] = {0.350, 0.350, 0.350, 0.350, 0.350, 0.350, 0.350, 0.350, 0.350};
- static const float wls[9] = {1.100, 1.100, 1.100, 1.100, 1.100, 1.100, 1.100, 1.100, 1.100};
-
- ffu.wlinf = (float)wli[iwa-1];
- ffu.wlsup = (float)wls[iwa-1];
-
- int i;
- for(i = 0; i < 1501; i++) ffu.s[i] = 0;
-
- switch(iwa)
- {
- case 1: for(i = 0; i < 301; i++) ffu.s[40+i] = sr1[i];
- break;
- case 2: for(i = 0; i < 301; i++) ffu.s[40+i] = sr2[i];
- break;
- case 3: for(i = 0; i < 301; i++) ffu.s[40+i] = sr3[i];
- break;
- case 4: for(i = 0; i < 301; i++) ffu.s[40+i] = sr4[i];
- break;
- case 5: for(i = 0; i < 301; i++) ffu.s[40+i] = sr5[i];
- break;
- case 6: for(i = 0; i < 301; i++) ffu.s[40+i] = sr6[i];
- break;
- case 7: for(i = 0; i < 301; i++) ffu.s[40+i] = sr7[i];
- break;
- case 8: for(i = 0; i < 301; i++) ffu.s[40+i] = sr8[i];
- break;
- case 9: for(i = 0; i < 301; i++) ffu.s[40+i] = sr9[i];
- break;
- }
-}
-
-void IWave::quickbird2(int iwa)
-{
-
- /* QuickBird Pan of quickbird2 */
- static const float sr1[65] = {
- 300.0000, 312.5000, 325.0000, 337.5000, 350.0000, 362.5000, 375.0000, 387.5000,
- 400.0000, 412.5000, 425.0000, 437.5000, 450.0000, 462.5000, 475.0000, 487.5000,
- 500.0000, 512.5000, 525.0000, 537.5000, 550.0000, 562.5000, 575.0000, 587.5000,
- 600.0000, 612.5000, 625.0000, 637.5000, 650.0000, 662.5000, 675.0000, 687.5000,
- 700.0000, 712.5000, 725.0000, 737.5000, 750.0000, 762.5000, 775.0000, 787.5000,
- 800.0000, 812.5000, 825.0000, 837.5000, 850.0000, 862.5000, 875.0000, 887.5000,
- 900.0000, 912.5000, 925.0000, 937.5000, 950.0000, 962.5000, 975.0000, 987.5000,
- 1000.0000, 1012.5000, 1025.0000, 1037.5000, 1050.0000, 1062.5000, 1075.0000, 1087.5000,
- 1100.0000
- };
-
- /* QuickBird Blue of quickbird2 */
- static const float sr2[65] = {
- .0000, .0000, .0000, .0000, .0014, .0010, .0020, .0138,
- .0362, .0758, .1219, .1789, .2198, .2854, .3364, .3579,
- .3781, .4276, .4982, .5925, .7051, .8105, .8911, .9426,
- .9598, .9922, .9876, .9573, .9183, .8831, .8893, .8848,
- .8888, .8677, .8625, .8897, .9295, .9130, .9039, .8761,
- .8457, .8582, .8339, .8526, .8394, .7850, .7342, .6788,
- .6186, .5832, .4969, .4305, .3738, .3035, .2567, .2162,
- .1776, .1421, .1085, .0773, .0548, .0050, .0000, .0000,
- .0000
- };
-
- /* QuickBird Green of quickbird2 */
- static const float sr3[65] = {
- .0000, .0000, .0010, .0037, .0053, .0030, .0013, .0023,
- .0025, .0053, .0284, .2164, .6299, .8176, .9178, .9801,
- .9179, .4787, .1592, .0663, .0293, .0126, .0126, .0098,
- .0098, .0091, .0036, .0025, .0028, .0030, .0089, .0256,
- .0083, .0086, .0091, .0028, .0031, .0034, .0036, .0033,
- .0030, .0035, .0040, .0042, .0048, .0057, .0052, .0052,
- .0068, .0101, .0093, .0056, .0035, .0019, .0014, .0012,
- .0011, .0012, .0015, .0015, .0012, .0000, .0000, .0000,
- .0000
- };
-
- /* QuickBird Red of quickbird2 */
- static const float sr4[65] = {
- .0000, .0000, .0000, .0000, .0031, .0023, .0014, .0012,
- .0012, .0013, .0023, .0046, .0178, .0356, .0982, .2739,
- .5277, .8005, .8705, .9640, .9934, .9733, .9652, .7230,
- .3124, .1139, .0365, .0268, .0242, .0140, .0132, .0076,
- .0032, .0035, .0076, .0047, .0022, .0029, .0034, .0041,
- .0038, .0031, .0031, .0035, .0051, .0084, .0090, .0078,
- .0076, .0081, .0067, .0043, .0027, .0016, .0013, .0010,
- .0008, .0009, .0013, .0010, .0009, .0000, .0000, .0000,
- .0000
- };
-
- /* QuickBird NIR of quickbird2 */
- static const float sr5[65] = {
- .0000, .0000, .0000, .0000, .0037, .0018, .0011, .0009,
- .0007, .0013, .0010, .0024, .0029, .0032, .0032, .0023,
- .0031, .0036, .0053, .0065, .0078, .0110, .0177, .0399,
- .0872, .2675, .6620, .8976, .9798, .9961, .8726, .5119,
- .1651, .0417, .0201, .0205, .0095, .0048, .0045, .0063,
- .0045, .0026, .0025, .0025, .0025, .0024, .0022, .0019,
- .0021, .0028, .0015, .0010, .0010, .0008, .0007, .0006,
- .0008, .0007, .0008, .0009, .0008, .0000, .0000, .0000,
- .0000
- };
-
- static const float wli[5] = {0.001, 0.001, 0.001, 0.001, 0.001};
- static const float wls[5] = {0.161, 0.161, 0.161, 0.161, 0.161};
-
- ffu.wlinf = (float)wli[iwa-1];
- ffu.wlsup = (float)wls[iwa-1];
-
- int i;
- for(i = 0; i < 1501; i++) ffu.s[i] = 0;
-
- switch(iwa)
- {
- case 1: for(i = 0; i < 65; i++) ffu.s[-99+i] = sr1[i];
- break;
- case 2: for(i = 0; i < 65; i++) ffu.s[-99+i] = sr2[i];
- break;
- case 3: for(i = 0; i < 65; i++) ffu.s[-99+i] = sr3[i];
- break;
- case 4: for(i = 0; i < 65; i++) ffu.s[-99+i] = sr4[i];
- break;
- case 5: for(i = 0; i < 65; i++) ffu.s[-99+i] = sr5[i];
- break;
- }
-}
-
-void IWave::landsat_8(int iwa)
-{
-
- /* Coastal Aerosol of landsat_8 */
- static const float sr1[13] = {
- .0001, .0025, .0248, .3860, .9087, .9806, .9867, .9966,
- .9828, .8257, .2264, .0256, .0024
- };
-
- /* Blue of landsat_8 */
- static const float sr2[37] = {
- .0000, .0002, .0005, .0016, .0069, .0429, .2714, .7907,
- .9030, .9047, .8897, .8792, .8797, .8898, .8485, .8363,
- .8685, .9115, .9317, .9549, .9564, .9838, .9895, .9681,
- .9887, .9611, .9661, .9821, .9631, .9982, .8449, .1195,
- .0053, .0013, .0005, .0001, .0000
- };
-
- /* Green of landsat_8 */
- static const float sr3[35] = {
- .0000, .0003, .0009, .0022, .0049, .0133, .0415, .1676,
- .5459, .8963, .9542, .9631, .9525, .9779, .9809, .9961,
- .9838, .9612, .9479, .9721, .9534, .9743, .9810, .9733,
- .9758, .9744, .9678, .9717, .9837, .9603, .8093, .4353,
- .0878, .0100, .0010
- };
-
- /* Red of landsat_8 */
- static const float sr4[23] = {
- .0003, .0027, .0145, .1077, .5268, .9267, .9474, .9689,
- .9836, .9783, .9556, .9550, 1.0000, .9831, .9730, .9945,
- .9640, .9690, .9499, .4629, .0460, .0053, .0006
- };
-
- /* Pan of landsat_8 */
- static const float sr5[82] = {
- .0002, .0013, .0038, .0123, .0427, .1601, .4725, .7454,
- .8319, .8553, .8596, .8577, .8585, .8583, .8502, .8582,
- .8615, .8577, .8792, .8917, .9063, .9129, .9029, .9207,
- .9130, .8857, .8794, .8742, .8754, .8917, .8741, .8869,
- .9035, .9110, .9132, .9202, .9244, .9298, .9489, .9405,
- .9457, .9394, .9467, .9340, .9408, .9580, .9682, .9665,
- .9572, .9477, .9525, .9575, .9642, .9674, .9770, .9760,
- .9696, .9728, .9658, .9667, .9721, .9793, .9711, .9534,
- .9639, .9671, .9706, .9800, .9883, .9918, 1.0000, .9985,
- .9926, .9858, .9139, .5244, .1673, .0462, .0152, .0067,
- .0032, .0012
- };
-
- /* Nir of landsat_8 */
- static const float sr6[27] = {
- .0000, .0002, .0005, .0012, .0032, .0090, .0283, .1149,
- .4035, .8177, .9868, .9884, .9898, .9740, .9512, .9523,
- .9401, .9613, .9366, .7120, .2888, .0793, .0207, .0062,
- .0019, .0006, .0001
- };
-
- /* Cirrus of landsat_8 */
- static const float sr7[25] = {
- .0001, .0004, .0009, .0016, .0030, .0063, .0170, .0560,
- .1828, .5269, .8624, .9465, .9387, .9933, .9832, .9638,
- .8727, .5295, .1910, .0538, .0162, .0056, .0018, .0007,
- .0001
- };
-
- /* SWIR1 of landsat_8 */
- static const float sr8[73] = {
- .0001, .0003, .0006, .0010, .0016, .0023, .0033, .0046,
- .0064, .0090, .0124, .0176, .0259, .0378, .0554, .0826,
- .1202, .1755, .2529, .3528, .4736, .6052, .7213, .8047,
- .8734, .9035, .9187, .9270, .9251, .9241, .9214, .9237,
- .9346, .9451, .9464, .9489, .9513, .9548, .9615, .9591,
- .9609, .9611, .9679, .9722, .9791, .9813, .9959, .9999,
- .9966, .9826, .9551, .8983, .7965, .6654, .5099, .3684,
- .2513, .1657, .1067, .0694, .0450, .0291, .0187, .0124,
- .0082, .0054, .0036, .0024, .0015, .0009, .0005, .0003,
- .0000
- };
-
- /* SWIR2 of landsat_8 */
- static const float sr9[125] = {
- .0000, .0002, .0003, .0005, .0007, .0010, .0014, .0019,
- .0024, .0032, .0041, .0054, .0071, .0094, .0123, .0159,
- .0210, .0274, .0354, .0482, .0633, .0841, .1128, .1534,
- .2028, .2673, .3425, .4315, .5225, .6134, .6897, .7665,
- .8137, .8500, .8836, .8907, .9097, .9221, .9322, .9420,
- .9431, .9464, .9497, .9510, .9531, .9509, .9475, .9494,
- .9533, .9494, .9515, .9437, .9434, .9426, .9381, .9468,
- .9474, .9473, .9341, .9390, .9347, .9264, .9369, .9295,
- .9358, .9364, .9566, .9543, .9644, .9630, .9637, .9600,
- .9578, .9502, .9588, .9576, .9520, .9607, .9493, .9619,
- .9643, .9694, .9809, .9844, .9915, .9954, .9927, .9996,
- .9944, .9860, .9891, .9765, .9742, .9757, .9737, .9584,
- .9551, .9419, .9071, .8695, .7849, .6751, .5526, .4283,
- .3157, .2284, .1617, .1143, .0803, .0567, .0404, .0294,
- .0213, .0156, .0114, .0085, .0063, .0047, .0034, .0025,
- .0018, .0012, .0008, .0005, .0002
- };
-
- static const float wli[9] = {0.427, 0.436, 0.513, 0.626, 0.488, 0.830, 1.341, 1.516, 2.038};
- static const float wls[9] = {0.459, 0.527, 0.600, 0.682, 0.692, 0.896, 1.402, 1.696, 2.350};
-
- ffu.wlinf = (float)wli[iwa-1];
- ffu.wlsup = (float)wls[iwa-1];
-
- int i;
- for(i = 0; i < 1501; i++) ffu.s[i] = 0;
-
- switch(iwa)
- {
- case 1: for(i = 0; i < 13; i++) ffu.s[70+i] = sr1[i];
- break;
- case 2: for(i = 0; i < 37; i++) ffu.s[74+i] = sr2[i];
- break;
- case 3: for(i = 0; i < 35; i++) ffu.s[105+i] = sr3[i];
- break;
- case 4: for(i = 0; i < 23; i++) ffu.s[150+i] = sr4[i];
- break;
- case 5: for(i = 0; i < 82; i++) ffu.s[95+i] = sr5[i];
- break;
- case 6: for(i = 0; i < 27; i++) ffu.s[232+i] = sr6[i];
- break;
- case 7: for(i = 0; i < 25; i++) ffu.s[436+i] = sr7[i];
- break;
- case 8: for(i = 0; i < 73; i++) ffu.s[506+i] = sr8[i];
- break;
- case 9: for(i = 0; i < 125; i++) ffu.s[715+i] = sr9[i];
- break;
- }
-}
-
-
-
-float IWave::equivwl() const
-{
- float seb = 0;
- float wlwave = 0;
-
- for(int i = iinf; i <= isup; i++)
- {
- float sbor = ffu.s[i];
- if(i == iinf || i == isup) sbor *= 0.5;
- float wl = (float)(0.25 + i * step);
- float swl = solirr(wl);
- float coef = sbor * step * swl;
- seb += coef;
- wlwave += wl * coef;
- }
-
- return wlwave/seb;
-}
-
-void IWave::parse()
-{
- iinf = 0;
- isup = 1500;
-
- int i;
- for(i = 0; i <= isup; i++) ffu.s[i] = 1;
-
- cin >> iwave;
- cin.ignore(numeric_limits<int>::max(),'\n');
-
- if(iwave == 0 || iwave == -2)
- {
- cin >> ffu.wlinf;
- cin >> ffu.wlsup;
- cin.ignore(numeric_limits<int>::max(),'\n');
- }
- else if(iwave < 0) /* excludes -2 */
- {
- cin >> wl;
- cin.ignore(numeric_limits<int>::max(),'\n');
- ffu.wlinf = wl;
- ffu.wlsup = wl;
- }
- else
- {
- /* da big switch */
- if(iwave == 1)
- {
- cin >> ffu.wlinf;
- cin >> ffu.wlsup;
- cin.ignore(numeric_limits<int>::max(),'\n');
- /* moved rest further on */
- }
- else if(iwave == 2) meteo();
- else if(iwave == 3) goes_east();
- else if(iwave == 4) goes_west();
- else if(iwave <= 16) avhrr(iwave - 4);
- else if(iwave <= 24) hrv(iwave - 16);
- else if(iwave <= 30) tm(iwave - 24);
- else if(iwave <= 34) mss(iwave - 30);
- else if(iwave <= 41) mas(iwave - 34);
- else if(iwave <= 48) modis(iwave - 41);
- else if(iwave <= 52) avhrr(iwave - 36);
- else if(iwave <= 60) polder(iwave - 52);
- else if(iwave <= 67) etmplus(iwave - 60);
- else if(iwave <= 71) irs_1c_liss(iwave - 67);
- else if(iwave <= 80) aster(iwave - 71);
- else if(iwave <= 84) avnir(iwave - 80);
- else if(iwave <= 87) ikonos(iwave - 84);
- else if(iwave <= 92) rapideye(iwave - 87);
- else if(iwave <= 96) vgt1_spot4(iwave - 92);
- else if(iwave <= 100) vgt2_spot5(iwave - 96);
- else if(iwave <= 109) worldview2(iwave - 100);
- else if(iwave <= 114) quickbird2(iwave - 109);
- else if(iwave <= 123) landsat_8(iwave - 114);
- else G_warning(_("Unsupported iwave value: %d"), iwave);
- }
-
- iinf = (int)((ffu.wlinf - 0.25f) / 0.0025f + 1.5f) - 1; /* remember indexing*/
- isup = (int)((ffu.wlsup - 0.25f) / 0.0025f + 1.5f) - 1; /* "*/
-
- if(iwave == 1) /* moved here to avoid unnecessery gotos */
- {
- for(int i = iinf; i <= isup; i++) cin >> ffu.s[i];
- cin.ignore(numeric_limits<int>::max(),'\n');
- }
-}
-
-/* --- spectral condition ---- */
-void IWave::print()
-{
-/* The compiler will deduce the dimension from the initializer list. */
- static const string nsat[] = {
- string(" constant "), string(" user s "),
- string(" meteosat "), string(" goes east "), string(" goes west "),
- string(" avhrr 1 (noaa6) "), string(" avhrr 2 (noaa6) "),
- string(" avhrr 1 (noaa7) "), string(" avhrr 2 (noaa7) "),
- string(" avhrr 1 (noaa8) "), string(" avhrr 2 (noaa8) "),
- string(" avhrr 1 (noaa9) "), string(" avhrr 2 (noaa9) "),
- string(" avhrr 1 (noaa10)"), string(" avhrr 2 (noaa10)"),
- string(" avhrr 1 (noaa11)"), string(" avhrr 2 (noaa11)"),
- string(" hrv1 1 "), string(" hrv1 2 "), string(" hrv1 3 "),
- string(" hrv1 pan "),
- string(" hrv2 1 "), string(" hrv2 2 "), string(" hrv2 3 "),
- string(" hrv2 pan "),
- string(" tm 1 "), string(" tm 2 "), string(" tm 3 "),
- string(" tm 4 "), string(" tm 5 "), string(" tm 7 "),
- string(" mss 4 "), string(" mss 5 "),
- string(" mss 6 "), string(" mss 7 "),
- string(" mas 1 "), string(" mas 2 "), string(" mas 3 "),
- string(" mas 4 "), string(" mas 5 "), string(" mas 6 "),
- string(" mas 7 "), string(" modis 1 "), string(" modis 2 "),
- string(" modis 3 "), string(" modis 4 "), string(" modis 5 "),
- string(" modis 6 "), string(" modis 7 "),
- string(" avhrr 1 (noaa12)"), string(" avhrr 2 (noaa12)"),
- string(" avhrr 1 (noaa14)"), string(" avhrr 2 (noaa14)"),
- string(" polder 1 "), string(" polder 2 "),
- string(" polder 3 "), string(" polder 4 "), string(" polder 6 "),
- string(" polder 6 "), string(" polder 7 "), string(" polder 8 "),
- string(" etm+ 1 "), string(" etm+ 2 "), string(" etm+ 3 "),
- string(" etm+ 4 "), string(" etm+ 5 "), string(" etm+ 7 "),
- string(" etm+ 8 "),
- string(" liss 2 "), string(" liss 3 "), string(" liss 4 "),
- string(" liss 5 "),
- string(" aster 1 "), string(" aster 2 "), string(" aster 3N "),
- string(" aster 4 "), string(" aster 5 "), string(" aster 6 "),
- string(" aster 7 "), string(" aster 8 "), string(" aster 9 "),
- string(" avnir 1 "), string(" avnir 2 "), string(" avnir 3 "),
- string(" avnir 4 "),
- string(" ikonos green "), string(" ikonos red "), string(" ikonos NIR "),
- string(" rapideye blue "), string(" rapideye green "), string(" rapideye red "),
- string(" rapideye rededge"), string(" rapideye NIR "),
- string(" vgt1 spot4 0 "), string(" vgt1 spot4 2 "), string(" vgt1 spot4 3 "),
- string(" vgt1 spot4 MIR "),
- string(" vgt2 spot5 0 "), string(" vgt2 spot5 2 "), string(" vgt2 spot5 3 "),
- string(" vgt2 spot5 MIR "), string(" worldview 2 pan "), string(" worldview 2 coastal blue"),
- string(" worldview 2 blue "), string(" worldview 2 blue "), string(" worldview 2 green"),
- string(" worldview 2 yellow"), string(" worldview 2 red"), string(" worldview 2 red edge"),
- string(" worldview 2 nir1"), string(" worldview 2 nir2"), string(" quickbird 2 pan"),
- string(" quickbird 2 blue"), string(" quickbird 2 green"), string(" quickbird 2 red"),
- string(" quickbird 2 nir"), string(" Landsat 8 Coastal Aerosol"), string(" Landsat 8 Blue"),
- string(" Landsat 8 Green"),string(" Landsat 8 Red"), string(" Landsat 8 Panchromatic"),
- string(" Landsat 8 NIR"),string(" Landsat 8 Cirrus"),string(" Landsat 8 SWIR1"),
- string(" Landsat 8 SWIR2")
- };
-
-
- Output::Begin();
- Output::Repeat(22, ' ');
- Output::Print(" spectral condition ");
- Output::End();
-
- Output::Begin();
- Output::Repeat(22, ' ');
- Output::Print(" ------------------ ");
- Output::End();
-
- if(iwave == -2)
- {
- Output::Begin();
- Output::Repeat(10,' ');
- Output::Print(nsat[0]);
- Output::End();
-
- Output::Begin();
- Output::Repeat(15,' ');
- Output::Print("value of filter function :");
- Output::End();
-
- Output::Begin();
- Output::Repeat(15,' ');
- ostringstream s;
- s.setf(ios::fixed, ios::floatfield);
- s << setprecision(3);
- s << " wl inf=" << setw(9) << ffu.wlinf << " mic "
- << " wl sup=" << setw(9) << ffu.wlsup << " mic" << ends;
- Output::Print(s.str());
- Output::End();
- }
- else if(iwave == -1)
- {
- Output::Begin();
- Output::Repeat(12,' ');
- ostringstream s;
- s.setf(ios::fixed, ios::floatfield);
- s << setprecision(3);
- s << " monochromatic calculation at wl :" << setw(9) << ffu.wlsup << " micron" << ends;
- Output::Print(s.str());
- Output::End();
- }
- else if(iwave >= 0)
- {
- Output::Begin();
- Output::Repeat(10,' ');
- Output::Print(nsat[iwave]);
- Output::End();
-
- Output::Begin();
- Output::Repeat(15,' ');
- Output::Print("value of filter function :");
- Output::End();
-
- Output::Begin();
- Output::Repeat(15,' ');
- ostringstream s;
- s.setf(ios::fixed, ios::floatfield);
- s << setprecision(3);
- s << " wl inf=" << setw(9) << ffu.wlinf << " mic "
- << " wl sup=" << setw(9) << ffu.wlsup << " mic" << ends;
- Output::Print(s.str());
- Output::End();
- }
-}
-
-IWave IWave::Parse()
-{
- IWave iwave;
- iwave.parse();
- return iwave;
-}
Deleted: grass/trunk/imagery/i.atcorr/Iwave.h
===================================================================
--- grass/trunk/imagery/i.atcorr/Iwave.h 2014-06-09 08:51:29 UTC (rev 60762)
+++ grass/trunk/imagery/i.atcorr/Iwave.h 2014-06-09 09:12:09 UTC (rev 60763)
@@ -1,209 +0,0 @@
-#ifndef IWAVE_H
-#define IWAVE_H
-
-
-/**********************************************************************c
-c iwave input of the spectral conditions c
-c -------------------------------- c
-c c
-c you choose to define your own spectral conditions: iwave=-1,0 or 1 c
-c (three user s conditions ) c
-c -2 enter wlinf, wlsup, the filter function will be equal to 1c
-c over the whole band (as iwave=0) but step by step output c
-c will be printed c
-c -1 enter wl (monochr. cond, gaseous absorption is included) c
-c c
-c 0 enter wlinf, wlsup. the filter function will be equal to 1c
-c over the whole band. c
-c c
-c 1 enter wlinf, wlsup and user's filter function s(lambda) c
-c ( by step of 0.0025 micrometer). c
-c c
-c c
-c or you select one of the following satellite spectral band c
-c with indication in brackets of the band limits used in the code : c
-c iwave=2 to 60 c
-c 2 vis band of meteosat ( 0.350-1.110 ) c
-c 3 vis band of goes east ( 0.490-0.900 ) c
-c 4 vis band of goes west ( 0.490-0.900 ) c
-c 5 1st band of avhrr(noaa6) ( 0.550-0.750 ) c
-c 6 2nd " ( 0.690-1.120 ) c
-c 7 1st band of avhrr(noaa7) ( 0.500-0.800 ) c
-c 8 2nd " ( 0.640-1.170 ) c
-c 9 1st band of avhrr(noaa8) ( 0.540-1.010 ) c
-c 10 2nd " ( 0.680-1.120 ) c
-c 11 1st band of avhrr(noaa9) ( 0.530-0.810 ) c
-c 12 2nd " ( 0.680-1.170 ) c
-c 13 1st band of avhrr(noaa10 ( 0.530-0.780 ) c
-c 14 2nd " ( 0.600-1.190 ) c
-c 15 1st band of avhrr(noaa11 ( 0.540-0.820 ) c
-c 16 2nd " ( 0.600-1.120 ) c
-c 17 1st band of hrv1(spot1) ( 0.470-0.650 ) c
-c 18 2nd " ( 0.600-0.720 ) c
-c 19 3rd " ( 0.730-0.930 ) c
-c 20 pan " ( 0.470-0.790 ) c
-c 21 1st band of hrv2(spot1) ( 0.470-0.650 ) c
-c 22 2nd " ( 0.590-0.730 ) c
-c 23 3rd " ( 0.740-0.940 ) c
-c 24 pan " ( 0.470-0.790 ) c
-c 25 1st band of tm(landsat5) ( 0.430-0.560 ) c
-c 26 2nd " ( 0.500-0.650 ) c
-c 27 3rd " ( 0.580-0.740 ) c
-c 28 4th " ( 0.730-0.950 ) c
-c 29 5th " ( 1.5025-1.890 ) c
-c 30 7th " ( 1.950-2.410 ) c
-c 31 1st band of mss(landsat5)( 0.475-0.640 ) c
-c 32 2nd " ( 0.580-0.750 ) c
-c 33 3rd " ( 0.655-0.855 ) c
-c 34 4th " ( 0.785-1.100 ) c
-c 35 1st band of MAS (ER2) ( 0.5025-0.5875) c
-c 36 2nd " ( 0.6075-0.7000) c
-c 37 3rd " ( 0.8300-0.9125) c
-c 38 4th " ( 0.9000-0.9975) c
-c 39 5th " ( 1.8200-1.9575) c
-c 40 6th " ( 2.0950-2.1925) c
-c 41 7th " ( 3.5800-3.8700) c
-c 42 MODIS band 1 ( 0.6100-0.6850) c
-c 43 MODIS band 2 ( 0.8200-0.9025) c
-c 44 MODIS band 3 ( 0.4500-0.4825) c
-c 45 MODIS band 4 ( 0.5400-0.5700) c
-c 46 MODIS band 5 ( 1.2150-1.2700) c
-c 47 MODIS band 6 ( 1.6000-1.6650) c
-c 48 MODIS band 7 ( 2.0575-2.1825) c
-c 49 1st band of avhrr(noaa12 ( 0.500-1.000 ) c
-c 50 2nd " ( 0.650-1.120 ) c
-c 51 1st band of avhrr(noaa14 ( 0.500-1.110 ) c
-c 52 2nd " ( 0.680-1.100 ) c
-c 53 POLDER band 1 ( 0.4125-0.4775) c
-c 54 POLDER band 2 (non polar( 0.4100-0.5225) c
-c 55 POLDER band 3 (non polar( 0.5325-0.5950) c
-c 56 POLDER band 4 P1 ( 0.6300-0.7025) c
-c 57 POLDER band 5 (non polar( 0.7450-0.7800) c
-c 58 POLDER band 6 (non polar( 0.7000-0.8300) c
-c 59 POLDER band 7 P1 ( 0.8100-0.9200) c
-c 60 POLDER band 8 (non polar( 0.8650-0.9400) c
-c 61 1st band of etm+(landsat7( 0.435-0.520 ) c
-c 62 2nd " ( 0.506-0.621 ) c
-c 63 3rd " ( 0.622-0.702 ) c
-c 64 4th " ( 0.751-0.911 ) c
-c 65 5th " ( 1.512-1.792 ) c
-c 66 7th " ( 2.020-2.380 ) c
-c 67 8th " ( 0.504-0.909 ) c
-c 68 2nd band of liss (IRC 1C)( 0.502-0.620 ) c
-c 69 3rd " ( 0.612-0.700 ) c
-c 70 4th " ( 0.752-0.880 ) c
-c 71 5th " ( 1.452-1.760 ) c
-c 72 1st band of aster ( 0.480-0.645 ) c
-c 73 2nd " ( 0.588-0.733 ) c
-c 74 3N " ( 0.723-0.913 ) c
-c 75 4th " ( 1.530-1.750 ) c
-c 76 5th " ( 2.103-2.285 ) c
-c 77 6th " ( 2.105-2.298 ) c
-c 78 7th " ( 2.200-2.393 ) c
-c 79 8th " ( 2.248-2.475 ) c
-c 80 9th " ( 2.295-2.538 ) c
-c 81 1st band of avnir ( 0.390-0.550 ) c
-c 82 2nd " ( 0.485-0.695 ) c
-c 83 3rd " ( 0.545-0.745 ) c
-c 84 4th " ( 0.700-0.925 ) c
-c 85 Green band of IKONOS ( 0.350-1.035 ) c
-c 86 Red " ( 0.350-1.035 ) c
-c 87 NIR " ( 0.350-1.035 ) c
-c 88 Blue band of RapidEye ( 0.438-0.513 ) c
-c 89 Green " ( 0.463-0.594 ) c
-c 90 Red " ( 0.624-0.690 ) c
-c 91 RedEdge " ( 0.500-0.737 ) c
-c 92 NIR " ( 0.520-0.862 ) c
-c 93 B0 band of VGT1 (SPOT4) ( 0.400-0.500 ) c
-c 94 B2 " ( 0.580-0.782 ) c
-c 95 B3 " ( 0.700-1.030 ) c
-c 96 MIR " ( 1.450-1.800 ) c
-c 97 B0 band of VGT2 (SPOT5) ( 0.400-0.550 ) c
-c 98 B2 " ( 0.580-0.780 ) c
-c 99 B3 " ( 0.700-1.000 ) c
-c 100 MIR " ( 1.450-1.800 ) c
-c 101 Pan band of Worldview 2 ( 0.450-0.800 ) c
-c 102 Coastal " ( 0.396-0.458 ) c
-c 103 Blue " ( 0.442-0.515 ) c
-c 104 Green " ( 0.506-0.586 ) c
-c 105 Yellow " ( 0.584-0.632 ) c
-c 106 Red " ( 0.624-0.694 ) c
-c 107 RedEdge " ( 0.699-0.749 ) c
-c 108 NIR1 " ( 0.765-0.901 ) c
-c 109 NIR2 " ( 0.856-1.043 ) c
-c 110 Pan band of QuickBird 2 ( 0.405-1.053 ) c
-c 111 Blue " ( 0.430-0.545 ) c
-c 112 Green " ( 0.466-0.620 ) c
-c 113 Red " ( 0.590-0.710 ) c
-c 114 NIR " ( 0.715-0.918 ) c
-c 115 Coastal Aerosol of LS8 ( 0.427-0.459 ) c
-c 116 Blue " ( 0.436-0.527 ) c
-c 117 Green " ( 0.512-0.610 ) c
-c 118 Red " ( 0.625-0.691 ) c
-c 119 Pan " ( 0.488-0.692 ) c
-c 120 NIR " ( 0.829-0.900 ) c
-c 121 Cirrus " ( 1.340-1.409 ) c
-c 122 SWIR1 " ( 1.515-1.697 ) c
-c 123 SWIR2 " ( 2.037-2.037 ) c
-c c
-c note: wl has to be in micrometer c
-c**********************************************************************/
-
-struct IWave
-{
- int iwave;
- int iinf;
- int isup;
-
- float wl;
- float wlmoy;
-
-
- struct FFu
- {
- float s[1501];
- float wlinf;
- float wlsup;
- } ffu;
-
-private:
- void parse();
-
- void meteo();
- void goes_east();
- void goes_west();
- void avhrr(int iwa);
- void hrv(int iwa);
- void tm(int iwa);
- void mss(int iwa);
- void mas(int iwa);
- void modis(int iwa);
- void polder(int iwa);
- void etmplus(int iwa);
- void irs_1c_liss(int iwa);
- void aster(int iwa);
- void avnir(int iwa);
- void ikonos(int iwa);
- void rapideye(int iwa);
- void vgt1_spot4(int iwa);
- void vgt2_spot5(int iwa);
- void worldview2(int iwa);
- void quickbird2(int iwa);
- void landsat_8(int iwa);
-
-public:
- /* To compute the equivalent wavelength needed for the calculation of the
- downward radiation field used in the computation of the non lambertian
- target contribution (main.f). */
- float equivwl() const;
-
- /* To read the solar irradiance (in Wm-2mm-1) from 250 nm to 4000 nm by
- steps of 2.5 nm, The total solar irradiance is put equal to 1372 Wm-2.
- Between 250 and 4000 nm we have 1358 Wm-2. */
- float solirr(float wl) const;
-
- void print();
- static IWave Parse();
-};
-
-#endif /* IWAVE_H */
Deleted: grass/trunk/imagery/i.atcorr/Makefile
===================================================================
--- grass/trunk/imagery/i.atcorr/Makefile 2014-06-09 08:51:29 UTC (rev 60762)
+++ grass/trunk/imagery/i.atcorr/Makefile 2014-06-09 09:12:09 UTC (rev 60763)
@@ -1,15 +0,0 @@
-MODULE_TOPDIR = ../..
-
-PGM = i.atcorr
-
-include $(MODULE_TOPDIR)/include/Make/Module.make
-
-LIBES = $(RASTERLIB) $(GISLIB) $(MATHLIB) $(BTREE2LIB)
-DEPENDENCIES = $(RASTERDEP) $(GISDEP)
-
-LINK = $(CXX)
-
-ifneq ($(CXX),)
-default: cmd
-endif
-
Deleted: grass/trunk/imagery/i.atcorr/Output.cpp
===================================================================
--- grass/trunk/imagery/i.atcorr/Output.cpp 2014-06-09 08:51:29 UTC (rev 60762)
+++ grass/trunk/imagery/i.atcorr/Output.cpp 2014-06-09 09:12:09 UTC (rev 60763)
@@ -1,2 +0,0 @@
-#include "Output.h"
-unsigned int Output::pos = 0;
Deleted: grass/trunk/imagery/i.atcorr/Output.h
===================================================================
--- grass/trunk/imagery/i.atcorr/Output.h 2014-06-09 08:51:29 UTC (rev 60762)
+++ grass/trunk/imagery/i.atcorr/Output.h 2014-06-09 09:12:09 UTC (rev 60763)
@@ -1,70 +0,0 @@
-#ifndef MY_OUTPUT_H
-#define MY_OUTPUT_H
-
-#include <cstdio>
-#include <iostream>
-#include <sstream>
-#include <string>
-
-class Output
-{
- static unsigned int pos;
-
-public:
- /* begin a line */
- static void Begin()
- {
- pos += 2;
- fprintf(stderr, "* ");
- }
-
- /* print a string */
- static void Print(std::string x)
- {
- pos += x.length();
- fprintf(stderr, "%s", x.c_str());
- }
-
- /* print c, cnt times */
- static void Repeat(int cnt, char c)
- {
- pos += cnt;
- for(int i = 0; i < cnt; i++) fprintf(stderr, "%c", c);
- }
-
- /* end the line */
-
-
- static void End()
- {
- Position(79);
- fprintf(stderr, " *\n");
- pos = 0;
- }
-
- /* position the stream upto, but excluding p */
- static void Position(unsigned int p)
- {
- if(p < pos) return;
- for(unsigned int i = pos; i < p; i++) fprintf(stderr, " ");
- pos = p - 1;
- }
-
- /* write a s after cnt spaces */
- static void WriteLn(int cnt, std::string s)
- {
- Begin();
- Repeat(cnt,' ');
- Print(s);
- End();
- }
-
- /* write a blank line */
- static void Ln()
- {
- Begin();
- End();
- }
-};
-
-#endif /* MY_OUTPUT */
Deleted: grass/trunk/imagery/i.atcorr/README
===================================================================
--- grass/trunk/imagery/i.atcorr/README 2014-06-09 08:51:29 UTC (rev 60762)
+++ grass/trunk/imagery/i.atcorr/README 2014-06-09 09:12:09 UTC (rev 60763)
@@ -1,53 +0,0 @@
-Adding new band filters (see also Iwave.h):
-
- Note: the spectral range is from 250 nm to 4000 nm (see Iwave.h) which is
- 4000-250=3750nm. The step size is (4000-250)/1500=2.5 nm in the ffu.s array.
-
- o bands are defined by their discrete filter function
- o to compute a band position in the 1500 slots of ffu.s array, start
- with 250nm using 2.5nm increments. The result is the starting index
- for the spectral band.
- o 1500 is the number of wavelength spectral description slots.
- - a 'for' loop fills up the slots with 0
- - then the ffu.s array is filled with each of the spectral band data
- one after the other.
- Example Lsat TM: (435-250) / 2.5 = 74
-
- o add filter function to Iwave.cpp, before IWave::equivwl()
- o add else-if in IWave::parse() in Iwave.cpp
- o add print strings in Iwave.cpp
-
- o add iwave values and signature in Iwave.h
- o add to GeomCond.cpp and GeomCond.h
- o add to i.atcorr.html
-
-
-Preparation of the Iwave.cpp file code:
-
-The helper script create_iwave.py can help to interpolate the filter functions
-to the correct step size of 2.5 nm (in case that the filter function data
-are delivered with a different step size).
-The output filter function in a format as needed in the Iwave.cpp file.
-
-The script create_iwave.py basically needs a .csv file with spectral
-response for each band in a column. The first column has to be the
-wavelength (nm). The first line (and only first) is a header with
-wavelength, followed by band names file name is used for sensor name.
-See for example ./sensors_csv/ikonos.csv.
-
-Usage
- create_iwave.py <csv file>
-
-If generates the filter function as IWave.cpp template from csv file.
-
-Note: If the spectral response is null for a frequency, leave it empty
-in csv file. Ex.:
-
- WL(nm),band 1,band 2,band 3,band 4
- 455,0.93,,,
- 485,0.94,0.00,,
- 545,0.00,0.87,0.00,
-
-Program will interpolate filter function to 2.5 nm steps
-and output a CPP template file in the IWave format.
-
Deleted: grass/trunk/imagery/i.atcorr/Transform.cpp
===================================================================
--- grass/trunk/imagery/i.atcorr/Transform.cpp 2014-06-09 08:51:29 UTC (rev 60762)
+++ grass/trunk/imagery/i.atcorr/Transform.cpp 2014-06-09 09:12:09 UTC (rev 60763)
@@ -1,189 +0,0 @@
-#include <math.h>
-#include "Transform.h"
-
-void EtmDN(int iwave, float asol, bool before, float &lmin, float &lmax)
-{
- if (before) /* ETM+ digital numbers taken before July 1, 2000 */
- {
- switch(iwave)
- {
- case 61:
- {
- lmin = -6.2f;
- lmax = 194.3f;
- break;
- }
-
- case 62:
- {
- lmin = -6.0f;
- lmax = 202.4f;
- break;
- }
-
- case 63:
- {
- lmin = -4.5f;
- lmax = 158.6f;
- break;
- }
-
- case 64:
- {
- if (asol < 45.)
- {
- lmin = -4.5f;
- lmax = 235.0f;
- }
- else
- {
- lmin = -4.5f;
- lmax = 157.5f;
- }
- break;
- }
-
- case 65:
- {
- lmin = -1.0f;
- lmax = 31.76f;
- break;
- }
-
- case 66:
- {
- lmin = -0.35f;
- lmax = 10.932f;
- break;
- }
-
- case 67:
- {
- lmin = -5.0f;
- lmax = 244.00f;
- break;
- }
- }
- }
- else /* ETM+ digital numbers taken after July 1, 2000 */
- {
- switch(iwave)
- {
- case 61:
- {
- lmin = -6.2f;
- lmax = 191.6f;
- break;
- }
-
- case 62:
- {
- lmin = -6.4f;
- lmax = 196.5f;
- break;
- }
-
- case 63:
- {
- lmin = -5.0f;
- lmax = 152.9f;
- break;
- }
-
- case 64:
- {
- if (asol < 45.)
- {
- lmin = -5.1f;
- lmax = 241.1f;
- }
- else
- {
- lmin = -5.1f;
- lmax = 157.4f;
- }
- break;
- }
-
- case 65:
- {
- lmin = -1.0f;
- lmax = 31.06f;
- break;
- }
-
- case 66:
- {
- lmin = -0.35f;
- lmax = 10.80f;
- break;
- }
-
- case 67:
- {
- lmin = -4.7f;
- lmax = 243.1f;
- break;
- }
- }
- }
-}
-
-/* Assuming input value between 0 and 1
- if rad is true, idn should first be converted to a reflectance value
- returns adjusted value also between 0 and 1 */
-float transform(const TransformInput ti, InputMask imask, float idn)
-{
- /* convert from radiance to reflectance */
- if((imask & ETM_BEFORE) || (imask & ETM_AFTER))
- {
- /* http://ltpwww.gsfc.nas */
- float lmin, lmax;
- EtmDN(ti.iwave, ti.asol, imask & ETM_BEFORE, lmin, lmax);
-
- /* multiply idn by 255.f to correct precondition that idn lies in [0, 255] */
- idn = (lmax - lmin) / 254.f * (idn * 255.f - 1.f) + lmin;
- if (idn < 0.f) idn = 0.f;
- idn /= 255.f;
- }
- if(imask & RADIANCE) idn += (float)M_PI * idn * 255.f * ti.sb / ti.xmus / ti.seb;
-
- float rapp = idn;
- float ainrpix = ti.ainr[0][0];
- float xa = 0.0f;
- float xb = 0.0f;
- float xc = 0.0f;
- float rog = rapp / ti.tgasm;
- /* The if below was added to avoid ground reflectances lower than
- zero when ainr(1,1) greater than rapp/tgasm
- In such case either the choice of atmospheric model was not
- adequate for that image or the calculated apparent reflectance
- was too low. Run the model again for other conditions.
- The lines below just decrease ainr(1,1)/tgasm to avoid too
- bright pixels in the image. Check the output file to see if that
- has happened. */
-
- float decrfact = 1.0f;
- if (rog < (ainrpix / ti.tgasm))
- {
- do
- {
- decrfact = decrfact - 0.1f;
- ainrpix = decrfact * ainrpix;
- }
- while(rog < (ainrpix / ti.tgasm));
- }
-
- rog = (rog - ainrpix / ti.tgasm) / ti.sutott / ti.sdtott;
- rog = rog / (1.f + rog * ti.sast);
- xa = (float)M_PI * ti.sb / ti.xmus / ti.seb / ti.tgasm / ti.sutott / ti.sdtott;
- xb = ti.srotot / ti.sutott / ti.sdtott / ti.tgasm;
- xc = ti.sast;
-
- if (rog > 1) rog = 1;
- if (rog < 0) rog = 0;
-
- return rog;
-}
-
-
Deleted: grass/trunk/imagery/i.atcorr/Transform.h
===================================================================
--- grass/trunk/imagery/i.atcorr/Transform.h 2014-06-09 08:51:29 UTC (rev 60762)
+++ grass/trunk/imagery/i.atcorr/Transform.h 2014-06-09 09:12:09 UTC (rev 60763)
@@ -1,47 +0,0 @@
-/***************************************************************************
- Transform.h - do atmospheric correction on an input value
- -------------------
- begin : Fri Jan 10 2003
- copyright : (C) 2003 by Christo Zietsman
- email : 13422863 at sun.ac.za
- ***************************************************************************/
-
-#ifndef TRANSFORM_H
-#define TRANSFORM_H
-
-/* Inputs needed to do transformation */
-struct TransformInput
-{
- int iwave;
- float asol;
-
- float ainr[2][3];
- float sb;
- float seb;
- float tgasm;
- float sutott;
- float sdtott;
- float sast;
- float srotot;
- float xmus;
-};
-
-/* The following combinations of input values types exist */
-enum InputMask
-{
- REFLECTANCE = 0,
- RADIANCE = 1, /* the default */
- ETM_BEFORE = 2, /* etm+ taken before July 1, 2000 */
- REF_ETM_BEFORE = 2,
- RAD_ETM_BEFORE = 3,
- ETM_AFTER = 4, /* etm+ taken after July 1, 2000 */
- REF_ETM_AFTER = 4,
- RAD_ETM_AFTER = 5
-};
-
-/* Assuming input value between 0 and 1
-if rad is true, idn should first be converted to a reflectance value
-returns adjusted value also between 0 and 1 */
-extern float transform(const TransformInput ti, InputMask imask, float idn);
-
-#endif /* TRANSFORM_H */
Copied: grass/trunk/imagery/i.atcorr/abstra.cpp (from rev 60762, grass/trunk/imagery/i.atcorr/Abstra.cpp)
===================================================================
--- grass/trunk/imagery/i.atcorr/abstra.cpp (rev 0)
+++ grass/trunk/imagery/i.atcorr/abstra.cpp 2014-06-09 09:12:09 UTC (rev 60763)
@@ -0,0 +1,10658 @@
+#ifdef WIN32
+#pragma warning (disable : 4305)
+#endif /* WIN32 */
+#include "common.h"
+#include "abstra.h"
+#include "atmosmodel.h"
+#include "altitude.h"
+
+void
+wava6 (float a[8], const long int inu)
+{
+
+
+ static const float acr[2048] = { .011482f, .13183f,
+ -.0038755f, 3.4491e-6f, -.0069899f, 9.3146e-6f, 15300.f, 15310.f,
+ .0015124f, .19547f, .0028474f, -4.7616e-6f, .0017802f, -1.079e-5f,
+ 15310.f, 15320.f, .0092482f, .16207f, -.0025675f, 1.271e-5f, -.0027267f,
+ 6.2076e-6f, 15320.f, 15330.f, .0104f, .25148f, .0028271f, -1.6657e-5f,
+ .0013667f, -1.7862e-5f, 15330.f, 15340.f, .036425f, .35831f, -.0010013f,
+ -1.0673e-6f, -.0025219f, -1.7475e-6f, 15340.f, 15350.f, .0050755f,
+ .12303f, -.0018115f, 9.8037e-7f, -.0034793f, 8.572e-7f, 15350.f,
+ 15360.f, .0040405f, .079669f, -.0035356f, 4.2888e-6f, -.0049964f,
+ 5.6042e-6f, 15360.f, 15370.f, .0012748f, .10104f, .0012869f,
+ -4.1165e-6f, -2.5366e-4f, -8.5685e-6f, 15370.f, 15380.f, .004332f,
+ .087049f, -.0037819f, 4.8177e-6f, -.0066616f, 9.4206e-6f, 15380.f,
+ 15390.f, .018759f, .14839f, -.0050183f, 8.8733e-6f, -.0069647f,
+ 1.2888e-5f, 15390.f, 15400.f, .013161f, .13948f, -.0039758f, 3.962e-6f,
+ -.006383f, 8.2226e-6f, 15400.f, 15410.f, .014766f, .30841f, -.0025568f,
+ -1.0002e-6f, -.0049777f, 2.925e-6f, 15410.f, 15420.f, .021082f, .15162f,
+ -.0015321f, -5.6826e-6f, -.0038546f, -1.6492e-6f, 15420.f, 15430.f,
+ .020195f, .19485f, -2.7645e-4f, -9.8888e-6f, -.0024022f, -6.5352e-6f,
+ 15430.f, 15440.f, .011166f, .18799f, .0030297f, -2.1309e-5f, 4.9231e-4f,
+ -1.6445e-5f, 15440.f, 15450.f, .011405f, .30263f, .0033723f,
+ -1.9312e-5f, .0012213f, -1.8339e-5f, 15450.f, 15460.f, .0081879f,
+ .2948f, .0056918f, -2.2518e-5f, .0049723f, -2.6308e-5f, 15460.f,
+ 15470.f, .0086587f, .31194f, .0049388f, -2.4988e-5f, .0025729f,
+ -2.3785e-5f, 15470.f, 15480.f, .0029624f, .25004f, .0021191f,
+ 1.2889e-5f, .0021547f, -5.0741e-6f, 15480.f, 15490.f, .0010355f, .1518f,
+ .010772f, -5.3973e-5f, .0081789f, -4.9803e-5f, 15490.f, 15500.f,
+ .0019209f, .15869f, .0035388f, -1.5675e-6f, .0030429f, -1.3275e-5f,
+ 15500.f, 15510.f, .0021168f, .22695f, .0033055f, -7.1274e-7f, .0018066f,
+ -1.051e-5f, 15510.f, 15520.f, 3.63e-4f, .041337f, .004643f, -3.0966e-5f,
+ .0016831f, -2.5006e-5f, 15520.f, 15530.f, 6.422e-4f, .040141f,
+ .0011384f, -1.6948e-5f, -.0017809f, -1.1069e-5f, 15530.f, 15540.f,
+ .0017361f, .12935f, 7.0897e-6f, -1.1804e-5f, -.0029721f, -5.606e-6f,
+ 15540.f, 15550.f, 3.6772e-4f, .069843f, .0015876f, -1.7017e-5f,
+ -.0014188f, -1.1298e-5f, 15550.f, 15560.f, 8.1562e-4f, .085732f,
+ .0028597f, -2.3409e-5f, -8.1651e-5f, -1.7172e-5f, 15560.f, 15570.f,
+ 4.1832e-5f, .037286f, .0071945f, -4.1172e-5f, .0048022f, -3.6355e-5f,
+ 15570.f, 15580.f, 2.89e-4f, .059772f, .00431f, -2.7519e-5f, .0025363f,
+ -2.6086e-5f, 15580.f, 15590.f, 3.4153e-4f, .068927f, .0058634f,
+ -2.8708e-5f, .002971f, -2.6151e-5f, 15590.f, 15600.f, 6.3462e-4f,
+ .10803f, .0062584f, -1.912e-5f, .0049128f, -2.4384e-5f, 15600.f,
+ 15610.f, 3.9706e-4f, .12303f, .0073825f, -2.4245e-5f, .0050938f,
+ -2.795e-5f, 15610.f, 15620.f, 1.1711e-4f, .063154f, .0049218f,
+ -2.6583e-5f, .0021634f, -2.368e-5f, 15620.f, 15630.f, 2.8022e-4f,
+ .091171f, .011895f, -5.9964e-5f, .0091244f, -5.4363e-5f, 15630.f,
+ 15640.f, 4.8561e-4f, .17953f, .0048672f, -2.2506e-5f, .0012405f,
+ -1.7834e-5f, 15640.f, 15650.f, 3.295e-4f, .13103f, .0079212f,
+ -3.1361e-5f, .0048579f, -3.0501e-5f, 15650.f, 15660.f, 6.2254e-4f,
+ .13066f, .0068683f, -3.4929e-5f, .0042198f, -3.0853e-5f, 15660.f,
+ 15670.f, 3.4175e-4f, .0686f, .0071102f, -4.0828e-5f, .0041954f,
+ -3.4941e-5f, 15670.f, 15680.f, 6.7893e-4f, .25103f, .002638f,
+ -1.0784e-5f, -1.9402e-4f, -1.0493e-5f, 15680.f, 15690.f, .0022454f,
+ .2126f, .0045521f, -3.0054e-5f, .0018943f, -2.5356e-5f, 15690.f,
+ 15700.f, 2.2324e-4f, .16386f, 9.9924e-5f, -4.6542e-6f, -.0032498f,
+ -4.4042e-7f, 15700.f, 15710.f, .0011732f, .071121f, .0017438f,
+ -1.9369e-5f, -.0010378f, -1.3774e-5f, 15710.f, 15720.f, .0011939f,
+ .22194f, .0022505f, -2.0274e-5f, -3.0389e-4f, -1.5915e-5f, 15720.f,
+ 15730.f, .0011335f, .1131f, 6.5038e-4f, -1.4226e-5f, -.0023716f,
+ -8.4484e-6f, 15730.f, 15740.f, .0013693f, .066759f, -4.9503e-4f,
+ -1.0274e-5f, -.0033442f, -4.9491e-6f, 15740.f, 15750.f, .0022675f,
+ .11019f, -.0015659f, -6.0385e-6f, -.0042073f, -9.9453e-7f, 15750.f,
+ 15760.f, .0021492f, .11169f, -.0025591f, -1.868e-6f, -.0052151f,
+ 2.9531e-6f, 15760.f, 15770.f, 5.2724e-4f, .079449f, -.0015077f,
+ 3.7703e-7f, -.0037765f, 1.0136e-6f, 15770.f, 15780.f, .0017852f,
+ .092282f, -.0042337f, 4.5463e-6f, -.0075615f, 1.1296e-5f, 15780.f,
+ 15790.f, 5.7289e-4f, .18138f, .001042f, 1.1358e-7f, -.0010771f,
+ -3.8585e-6f, 15790.f, 15800.f, .0024903f, .21722f, 6.1161e-4f,
+ 2.0815e-6f, -6.5545e-4f, -6.5063e-6f, 15800.f, 15810.f, .0033934f,
+ .23501f, 3.4083e-4f, -1.2029e-5f, -.0027676f, -5.6508e-6f, 15810.f,
+ 15820.f, .0043759f, .14995f, -.003628f, 2.8054e-6f, -.0061589f,
+ 7.1308e-6f, 15820.f, 15830.f, 9.6328e-4f, .12298f, -.0027284f,
+ 2.0822e-6f, -.0051044f, 4.1652e-6f, 15830.f, 15840.f, 6.1564e-4f,
+ .047547f, -.0041578f, 4.2375e-6f, -.007361f, 1.0687e-5f, 15840.f,
+ 15850.f, 1.445e-4f, .047164f, -.0026523f, -1.7845e-6f, -.0054095f,
+ 3.7673e-6f, 15850.f, 15860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15860.f,
+ 15870.f, .0027617f, .080618f, -.0054341f, 9.35e-6f, -.0086841f,
+ 1.5797e-5f, 15870.f, 15880.f, .0038448f, .0889f, -.0045065f, 5.7229e-6f,
+ -.0074065f, 1.161e-5f, 15880.f, 15890.f, .002669f, .12359f, -.003403f,
+ 1.5184e-6f, -.0062551f, 6.94e-6f, 15890.f, 15900.f, .0035205f, .15929f,
+ -.0029195f, -6.0033e-7f, -.0055137f, 4.5063e-6f, 15900.f, 15910.f,
+ .0033857f, .15288f, -5.5305e-4f, -1.0049e-5f, -.0030402f, -5.3251e-6f,
+ 15910.f, 15920.f, .0055123f, .20681f, 6.3027e-5f, -1.1203e-5f,
+ -.0021942f, -7.6854e-6f, 15920.f, 15930.f, .0025555f, .15612f,
+ .0036149f, -2.367e-5f, 8.1154e-4f, -1.8842e-5f, 15930.f, 15940.f,
+ 6.0708e-4f, .15267f, .0069583f, -2.3922e-5f, .0059157f, -3.3379e-5f,
+ 15940.f, 15950.f, .0013307f, .12652f, .005072f, -3.1273e-5f, .0029461f,
+ -2.8552e-5f, 15950.f, 15960.f, 1.9184e-4f, .031816f, .010823f,
+ -5.5684e-5f, .0080654f, -5.0132e-5f, 15960.f, 15970.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f, 0.f, 15970.f, 15980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15980.f,
+ 15990.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15990.f, 1.6e4f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 1.6e4f, 16010.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16010.f, 16020.f, 0.f, 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16020.f, 16030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16030.f,
+ 16040.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16040.f, 16050.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16050.f, 16060.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16060.f,
+ 16070.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16070.f, 16080.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16080.f, 16090.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16090.f, 16100.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16100.f, 16110.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16110.f,
+ 16120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16120.f, 16130.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16130.f, 16140.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16140.f,
+ 16150.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16150.f, 16160.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16160.f, 16170.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16170.f, 16180.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16180.f, 16190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16190.f,
+ 16200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16200.f, 16210.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16210.f, 16220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16220.f,
+ 16230.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16230.f, 16240.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16240.f, 16250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16250.f, 16260.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16260.f, 16270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16270.f,
+ 16280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16280.f, 16290.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16290.f, 16300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16300.f,
+ 16310.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16310.f, 16320.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16320.f, 16330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16330.f, 16340.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16340.f, 16350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16350.f,
+ 16360.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16360.f, 16370.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16370.f, 16380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16380.f,
+ 16390.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16390.f, 16400.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16400.f, 16410.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16410.f, 16420.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16420.f, 16430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16430.f,
+ 16440.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16440.f, 16450.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16450.f, 16460.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16460.f,
+ 16470.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16470.f, 16480.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16480.f, 16490.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16490.f, 16500.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16500.f, 16510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16510.f,
+ 16520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16520.f, 16530.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16530.f, 16540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16540.f,
+ 16550.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16550.f, 16560.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16560.f, 16570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16570.f, 16580.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16580.f, 16590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16590.f,
+ 16600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16600.f, 16610.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16610.f, 16620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16620.f,
+ 16630.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16630.f, 16640.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16640.f, 16650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16650.f, 16660.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16660.f, 16670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16670.f,
+ 16680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16680.f, 16690.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16690.f, 16700.f, 9.3657e-4f, .16814f, .0071611f, -3.2337e-5f,
+ .0051118f, -3.429e-5f, 16700.f, 16710.f, .002716f, .13632f, .0024507f,
+ -1.7614e-5f, 6.4545e-4f, -1.7104e-5f, 16710.f, 16720.f, .01021f,
+ .33525f, .0035136f, -2.0013e-5f, .0012395f, -1.7557e-5f, 16720.f,
+ 16730.f, .0056241f, .14518f, .0025514f, -6.0743e-6f, 4.0412e-4f,
+ -9.6804e-6f, 16730.f, 16740.f, .0090151f, .16435f, 5.9525e-4f,
+ -7.4453e-6f, -7.7433e-4f, -8.1348e-6f, 16740.f, 16750.f, .017084f,
+ .37569f, .0017092f, -1.0104e-5f, 5.4764e-5f, -1.1565e-5f, 16750.f,
+ 16760.f, .004068f, .16946f, .0051318f, -1.2576e-5f, .0021847f,
+ -1.7187e-5f, 16760.f, 16770.f, .014025f, .25075f, -4.9903e-4f,
+ -3.9474e-6f, -.0024356f, -2.4014e-6f, 16770.f, 16780.f, .0084391f,
+ .29482f, .00143f, -1.4909e-5f, -5.8149e-4f, -1.2205e-5f, 16780.f,
+ 16790.f, .0042603f, .15728f, -.0017076f, 1.1819e-5f, -.0025115f,
+ 1.7886e-6f, 16790.f, 16800.f, .016111f, .35565f, 9.8453e-4f,
+ -1.0561e-5f, -.0015547f, -8.0917e-6f, 16800.f, 16810.f, .032806f,
+ .40538f, 3.2361e-4f, -7.1099e-6f, -.0017591f, -6.4585e-6f, 16810.f,
+ 16820.f, .039593f, .37366f, -.0017738f, -3.6504e-6f, -.0044894f,
+ 1.5591e-6f, 16820.f, 16830.f, .0041709f, .15463f, -.001046f,
+ -1.7983e-6f, -.0027043f, -2.9685e-6f, 16830.f, 16840.f, .0035117f,
+ .15272f, -.0028931f, 3.0829e-6f, -.0046348f, 4.9372e-6f, 16840.f,
+ 16850.f, .014133f, .12212f, -.0040965f, 4.1489e-6f, -.0071928f,
+ 1.0033e-5f, 16850.f, 16860.f, .0077536f, .19684f, -.0044631f,
+ 8.2821e-6f, -.0062227f, 1.0476e-5f, 16860.f, 16870.f, .025192f, .3428f,
+ -.003503f, 5.8569e-6f, -.0052023f, 7.3334e-6f, 16870.f, 16880.f,
+ .030248f, .27295f, -.0026774f, 1.2042e-6f, -.0042996f, 2.2385e-6f,
+ 16880.f, 16890.f, .012936f, .30454f, -.0022564f, -1.1282e-6f,
+ -.0042435f, 1.4398e-6f, 16890.f, 16900.f, .011031f, .24979f, -.0032635f,
+ 5.324e-6f, -.0041759f, 4.4122e-6f, 16900.f, 16910.f, .014293f, .29998f,
+ -3.4569e-4f, -9.0328e-6f, -.0021933f, -6.7146e-6f, 16910.f, 16920.f,
+ .0091809f, .29615f, .0023482f, -1.7235e-5f, -5.9956e-4f, -1.1968e-5f,
+ 16920.f, 16930.f, .008126f, .323f, 1.1339e-4f, -9.8017e-7f, -.0013639f,
+ -4.0912e-6f, 16930.f, 16940.f, .040319f, .36952f, -.0034585f,
+ 7.4285e-6f, -.0043038f, 5.2677e-6f, 16940.f, 16950.f, .013921f, .36738f,
+ -7.7085e-4f, 4.5894e-7f, -.0026272f, -1.4583e-6f, 16950.f, 16960.f,
+ .014345f, .25675f, -.0022235f, 1.8237e-6f, -.0031796f, 3.5185e-6f,
+ 16960.f, 16970.f, .016501f, .22846f, -7.3791e-4f, -8.1276e-6f,
+ -.0030972f, -3.4017e-6f, 16970.f, 16980.f, .019984f, .24072f,
+ 4.6284e-4f, -1.157e-5f, -.0016535f, -8.0246e-6f, 16980.f, 16990.f,
+ .014605f, .42551f, .0042003f, -2.4403e-5f, .0012313f, -1.961e-5f,
+ 16990.f, 1.7e4f, .0056604f, .31925f, .0037029f, -1.1447e-5f, .0028937f,
+ -1.9869e-5f, 1.7e4f, 17010.f, .0063352f, .35092f, .0026893f,
+ -1.5677e-5f, 5.5216e-4f, -1.3231e-5f, 17010.f, 17020.f, .003844f,
+ .22874f, -1.2718e-4f, -9.3893e-8f, -.0018171f, -1.6527e-7f, 17020.f,
+ 17030.f, .0013581f, .13591f, .0068077f, -3.5228e-5f, .0039267f,
+ -3.0049e-5f, 17030.f, 17040.f, .0018736f, .25317f, .004094f, -1.115e-5f,
+ .0020737f, -1.6908e-5f, 17040.f, 17050.f, .0012084f, .1688f, -.0010058f,
+ -7.8902e-7f, -.0025863f, -1.1192e-6f, 17050.f, 17060.f, .0010487f,
+ .069135f, .006375f, -3.3619e-5f, .0036725f, -3.0416e-5f, 17060.f,
+ 17070.f, 5.0984e-4f, .11462f, .0031391f, -2.153e-5f, 4.5939e-4f,
+ -1.7989e-5f, 17070.f, 17080.f, 8.4428e-4f, .14457f, -5.8124e-4f,
+ -7.7648e-6f, -.0029191f, -4.3661e-6f, 17080.f, 17090.f, 3.0536e-4f,
+ .074835f, 1.5726e-4f, -1.2441e-5f, -.0024876f, -7.6201e-6f, 17090.f,
+ 17100.f, 5.526e-4f, .12225f, .0040329f, -2.6244e-5f, .0012152f,
+ -2.1176e-5f, 17100.f, 17110.f, 3.7571e-4f, .06606f, .004893f,
+ -1.7932e-5f, .0027254f, -2.1243e-5f, 17110.f, 17120.f, 3.8817e-4f,
+ .096834f, .0050965f, -2.8072e-5f, .0025414f, -2.5439e-5f, 17120.f,
+ 17130.f, 4.3455e-4f, .10332f, .0037899f, -2.5805e-5f, .0011068f,
+ -2.147e-5f, 17130.f, 17140.f, 2.797e-4f, .13222f, .0049706f,
+ -1.1993e-5f, .0022042f, -1.6597e-5f, 17140.f, 17150.f, 3.5542e-4f,
+ .094199f, .0069032f, -3.8399e-5f, .0042436f, -3.3972e-5f, 17150.f,
+ 17160.f, 1.4332e-4f, .10096f, .0080342f, -4.4157e-5f, .0052994f,
+ -3.893e-5f, 17160.f, 17170.f, 1.131e-4f, .07032f, .0094132f,
+ -1.9979e-5f, .0084399f, -3.3269e-5f, 17170.f, 17180.f, 1.097e-4f,
+ .073653f, .0070015f, -3.1921e-5f, .0041785f, -3.033e-5f, 17180.f,
+ 17190.f, 1.9539e-4f, .11002f, .0025848f, -2.1294e-5f, 1.5132e-4f,
+ -1.7461e-5f, 17190.f, 17200.f, 2.2464e-5f, .040498f, .0015081f,
+ -1.8426e-5f, -8.0302e-4f, -1.3773e-5f, 17200.f, 17210.f, 1.1068e-4f,
+ .041949f, .0011384f, -1.6948e-5f, -.001862f, -1.0906e-5f, 17210.f,
+ 17220.f, 2.6372e-4f, .1423f, .0074076f, -9.6003e-7f, .004947f,
+ -1.6056e-5f, 17220.f, 17230.f, 1.6225e-4f, .064754f, 9.1255e-4f,
+ 4.5791e-6f, 2.8912e-5f, -2.743e-6f, 17230.f, 17240.f, 3.4492e-4f,
+ .13306f, -.0022341f, -3.1568e-6f, -.0051367f, 2.5216e-6f, 17240.f,
+ 17250.f, 2.9083e-4f, .1273f, .014643f, -7.0324e-5f, .011799f,
+ -6.4717e-5f, 17250.f, 17260.f, 7.9159e-5f, .084959f, .0033618f,
+ 1.0957e-5f, -1.9083e-6f, 1.5045e-6f, 17260.f, 17270.f, 3.991e-4f,
+ .1611f, .0052228f, -6.6224e-6f, .003315f, -1.7428e-5f, 17270.f, 17280.f,
+ 3.6117e-4f, .14552f, .0053239f, -2.7921e-6f, .0027764f, -1.3072e-5f,
+ 17280.f, 17290.f, 5.6601e-4f, .2023f, .0081509f, -3.975e-5f, .0051039f,
+ -3.5401e-5f, 17290.f, 17300.f, 5.522e-4f, .27444f, .0022665f,
+ -4.1297e-6f, 6.9271e-4f, -1.2175e-5f, 17300.f, 17310.f, .0012177f,
+ .31594f, .0026446f, -1.1117e-5f, -.0010442f, -7.3851e-6f, 17310.f,
+ 17320.f, .0012068f, .36919f, .0046393f, -2.5102e-5f, .001937f,
+ -2.1181e-5f, 17320.f, 17330.f, 8.1484e-4f, .12504f, .0033991f,
+ -2.4509e-5f, -1.7719e-4f, -1.657e-5f, 17330.f, 17340.f, .0010075f,
+ .10415f, .0045176f, -3.0424e-5f, .0016795f, -2.4622e-5f, 17340.f,
+ 17350.f, .0014383f, .23566f, .0013476f, -1.0965e-5f, -.0023371f,
+ -4.3633e-6f, 17350.f, 17360.f, 7.8276e-4f, .2229f, -.0015478f,
+ -1.8316e-6f, -.0039408f, 4.9016e-7f, 17360.f, 17370.f, .0023195f,
+ .1644f, .0012573f, -1.668e-5f, -.0019183f, -9.5692e-6f, 17370.f,
+ 17380.f, 7.0669e-4f, .18348f, -.001353f, -5.5696e-6f, -.0046409f,
+ 1.1901e-6f, 17380.f, 17390.f, .0026577f, .24613f, -3.4475e-4f,
+ -9.149e-6f, -.0027647f, -4.4906e-6f, 17390.f, 17400.f, .0014266f,
+ .18058f, -1.7564e-4f, -3.1091e-6f, -.0023868f, -2.4568e-6f, 17400.f,
+ 17410.f, .0013368f, .089183f, -7.5731e-4f, -3.0495e-6f, -.0013138f,
+ -5.5029e-6f, 17410.f, 17420.f, .0031555f, .29805f, -.0014978f,
+ -6.4349e-7f, -.0036817f, 1.3405e-6f, 17420.f, 17430.f, .0015803f,
+ .20706f, .0027308f, -1.4728e-5f, 2.1412e-4f, -1.4434e-5f, 17430.f,
+ 17440.f, .0025444f, .19283f, -.0026123f, 3.7928e-6f, -.0040723f,
+ 3.3236e-6f, 17440.f, 17450.f, .0028951f, .14488f, 8.2222e-4f,
+ -1.4617e-5f, -.0020986f, -8.6758e-6f, 17450.f, 17460.f, 9.9222e-4f,
+ .058296f, -6.973e-4f, -8.8805e-6f, -.0030012f, -5.1319e-6f, 17460.f,
+ 17470.f, .0049761f, .23841f, -.0034073f, 2.1975e-6f, -.00609f,
+ 6.7461e-6f, 17470.f, 17480.f, .0024737f, .16103f, -.0033546f,
+ 5.2399e-6f, -.0050448f, 4.9288e-6f, 17480.f, 17490.f, 6.5774e-4f,
+ .076908f, -.0048253f, 7.2725e-6f, -.0072344f, 1.1372e-5f, 17490.f,
+ 17500.f, 8.5946e-4f, .1372f, -.0034619f, 3.8209e-6f, -.0055141f,
+ 6.4456e-6f, 17500.f, 17510.f, 1.3088e-4f, .077214f, 1.0378e-4f,
+ -6.7806e-6f, -.0024574f, -4.3444e-6f, 17510.f, 17520.f, 7.2177e-4f,
+ .12037f, -.0032371f, 3.8429e-6f, -.005706f, 6.3102e-6f, 17520.f,
+ 17530.f, .0025932f, .057507f, -.0053841f, 9.3892e-6f, -.0080102f,
+ 1.4171e-5f, 17530.f, 17540.f, .0064329f, .34361f, -.0033999f,
+ 4.1519e-6f, -.0047285f, 4.1554e-6f, 17540.f, 17550.f, .0020356f,
+ .18182f, -.0031524f, 9.2073e-7f, -.0056549f, 4.9733e-6f, 17550.f,
+ 17560.f, .0065331f, .22623f, -.0015636f, -4.1008e-6f, -.0032357f,
+ -2.3034e-6f, 17560.f, 17570.f, .0059972f, .29545f, -6.0272e-4f,
+ -7.9159e-6f, -.0032228f, -3.1603e-6f, 17570.f, 17580.f, .0040039f,
+ .3136f, .0032065f, -2.0617e-5f, 6.7568e-4f, -1.7932e-5f, 17580.f,
+ 17590.f, .0016959f, .28903f, .005156f, -1.9347e-5f, .0033983f,
+ -2.1801e-5f, 17590.f, 17600.f, 7.0732e-4f, .16014f, .0010501f,
+ -1.4628e-5f, -.0015478f, -9.7179e-6f, 17600.f, 17610.f, .0012558f,
+ .1798f, .0044641f, -2.5933e-5f, .0019766f, -2.2898e-5f, 17610.f,
+ 17620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17620.f, 17630.f, 5.944e-5f,
+ .033158f, .0060208f, -3.6477e-5f, .0032636f, -3.0925e-5f, 17630.f,
+ 17640.f, 1.6627e-4f, .041123f, -.0027846f, -1.2553e-6f, -.0055418f,
+ 4.2965e-6f, 17640.f, 17650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17650.f,
+ 17660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17660.f, 17670.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 17670.f, 17680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17680.f,
+ 17690.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17690.f, 17700.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 17700.f, 17710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17710.f, 17720.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 17720.f, 17730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 17730.f,
+ 17740.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17740.f, 17750.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 17750.f, 17760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17760.f,
+ 17770.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17770.f, 17780.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 17780.f, 17790.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17790.f, 17800.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 17800.f, 17810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 17810.f,
+ 17820.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17820.f, 17830.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 17830.f, 17840.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17840.f,
+ 17850.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17850.f, 17860.f
+ };
+
+ /* WATER VAPOR (15300 - 17860 CM-1) */
+ for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
+} /* wava6 */
+
+void
+wava5 (float a[8], const long int inu)
+{
+
+
+ static const float acr[2048] = { 4.6416e-4f, .04653f,
+ .011484f, -5.0228e-5f, .0057564f, -2.8823e-5f, 12740.f, 12750.f,
+ 2.6026e-5f, .069686f, .0050381f, -3.0969e-5f, .0023565f, -2.6498e-5f,
+ 12750.f, 12760.f, 2.1016e-4f, .078469f, -.0024738f, -2.0423e-6f,
+ -.0056905f, 4.9529e-6f, 12760.f, 12770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 12770.f, 12780.f, 6.0427e-5f, .037767f, 5.4219e-4f, -1.4563e-5f,
+ -.002215f, -9.0107e-6f, 12780.f, 12790.f, 2.496e-5f, .041123f,
+ -.0026523f, -1.7845e-6f, -.0054095f, 3.7673e-6f, 12790.f, 12800.f, 0.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 12800.f, 12810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 12810.f, 12820.f, 6.3228e-5f, .037767f, -6.7259e-4f, -9.7034e-6f,
+ -.0034298f, -4.1516e-6f, 12820.f, 12830.f, 7.0635e-5f, .034814f,
+ .0017376f, -1.9344e-5f, -.0010196f, -1.3792e-5f, 12830.f, 12840.f,
+ 3.5776e-5f, .068419f, .0046121f, -2.7372e-5f, .0015491f, -2.2291e-5f,
+ 12840.f, 12850.f, 8.2613e-5f, .072444f, .0029409f, -2.2687e-5f,
+ 1.2304e-4f, -1.7626e-5f, 12850.f, 12860.f, 1.3149e-5f, .034814f,
+ .0017682f, -1.9467e-5f, -9.8895e-4f, -1.3915e-5f, 12860.f, 12870.f, 0.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 12870.f, 12880.f, 1.0952e-5f, .034814f,
+ .0039164f,
+ -2.8059e-5f, .0011592f, -2.2508e-5f, 12880.f, 12890.f, 1.1287e-5f,
+ .037767f, .0031085f, -2.4828e-5f, 3.5131e-4f, -1.9276e-5f, 12890.f,
+ 12900.f, 1.2534e-5f, .034814f, .006137f, -3.6942e-5f, .0033798f,
+ -3.139e-5f, 12900.f, 12910.f, 1.9577e-5f, .031771f, .0046608f,
+ -3.1037e-5f, .0019036f, -2.5485e-5f, 12910.f, 12920.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f, 0.f, 12920.f, 12930.f, 9.153e-6f, .028818f, .0079937f, -4.4369e-5f,
+ .0052366f, -3.8817e-5f, 12930.f, 12940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 12940.f, 12950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12950.f, 12960.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 12960.f, 12970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+
+
+
+ 12970.f,
+ 12980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12980.f, 12990.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 12990.f, 1.3e4f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.3e4f, 13010.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 13010.f, 13020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 13020.f, 13030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13030.f, 13040.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13040.f, 13050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 13050.f,
+ 13060.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13060.f, 13070.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 13070.f, 13080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13080.f,
+ 13090.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13090.f, 13100.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13100.f, 13110.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13110.f, 13120.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13120.f, 13130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 13130.f,
+ 13140.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13140.f, 13150.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 13150.f, 13160.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13160.f,
+ 13170.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13170.f, 13180.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13180.f, 13190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13190.f, 13200.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13200.f, 13210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 13210.f,
+ 13220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13220.f, 13230.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 13230.f, 13240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13240.f,
+ 13250.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13250.f, 13260.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13260.f, 13270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13270.f, 13280.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13280.f, 13290.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 13290.f,
+ 13300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13300.f, 13310.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 13310.f, 13320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13320.f,
+ 13330.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13330.f, 13340.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13340.f, 13350.f, 3.4847e-5f, .04882f, .025041f, -1.1142e-4f, .022291f,
+ -1.0647e-4f, 13350.f, 13360.f, 6.4041e-5f, .10448f, .01454f,
+ -4.7733e-5f, .013707f, -6.0524e-5f, 13360.f, 13370.f, 4.8972e-5f,
+ .061588f, .015816f, -3.1234e-5f, .012279f, -4.4662e-5f, 13370.f,
+ 13380.f, 3.4101e-4f, .20633f, .0080284f, -9.6908e-6f, .0076822f,
+ -2.8886e-5f, 13380.f, 13390.f, 1.6731e-5f, .03468f, .029361f,
+ -1.2984e-4f, .026604f, -1.2428e-4f, 13390.f, 13400.f, 3.9582e-4f,
+ .10507f, .018729f, -6.1046e-5f, .015312f, -6.0499e-5f, 13400.f, 13410.f,
+ 5.7395e-4f, .20422f, .012292f, -3.0378e-5f, .010954f, -4.4352e-5f,
+ 13410.f, 13420.f, 1.6304e-4f, .075327f, .024345f, -1.0453e-4f, .022312f,
+ -1.0356e-4f, 13420.f, 13430.f, .0014276f, .27047f, .017891f,
+ -7.3505e-5f, .016458f, -7.1692e-5f, 13430.f, 13440.f, 3.2739e-4f,
+ .19765f, .021521f, -5.2027e-5f, .020205f, -6.8454e-5f, 13440.f, 13450.f,
+ 8.4176e-4f, .22651f, .014704f, -5.7138e-5f, .012449f, -5.5586e-5f,
+ 13450.f, 13460.f, .003321f, .26989f, .014889f, -6.1022e-5f, .014319f,
+ -6.4594e-5f, 13460.f, 13470.f, .0020184f, .15068f, .014242f,
+ -5.0382e-5f, .014352f, -5.2958e-5f, 13470.f, 13480.f, .0034847f,
+ .23656f, .01296f, -5.4713e-5f, .011654f, -5.3532e-5f, 13480.f, 13490.f,
+ .0051848f, .22152f, .01005f, -4.214e-5f, .010802f, -4.9706e-5f, 13490.f,
+ 13500.f, .002246f, .20257f, .011509f, -1.145e-6f, .012567f, -2.9901e-5f,
+ 13500.f, 13510.f, .01207f, .22916f, .0070442f, -3.1499e-5f, .0063368f,
+ -3.3814e-5f, 13510.f, 13520.f, .011903f, .21411f, .006383f, -2.2698e-5f,
+ .0062241f, -2.6759e-5f, 13520.f, 13530.f, .009548f, .21575f, .0044827f,
+ -1.1921e-5f, .0055699f, -2.5927e-5f, 13530.f, 13540.f, .011523f,
+ .40682f, .0091253f, -1.9397e-5f, .0079449f, -3.2998e-5f, 13540.f,
+ 13550.f, .0084497f, .29293f, .0047841f, -1.1629e-5f, .0057988f,
+ -2.5164e-5f, 13550.f, 13560.f, .026919f, .27673f, .0019766f,
+ -3.7751e-6f, .0016743f, -8.638e-6f, 13560.f, 13570.f, .021945f, .3387f,
+ .005114f, 3.7089e-6f, .0063004f, -2.3091e-5f, 13570.f, 13580.f,
+ .021982f, .18246f, 3.6494e-4f, 1.1207e-6f, -3.7751e-4f, -1.4267e-6f,
+ 13580.f, 13590.f, .010404f, .21217f, .0039463f, 5.5125e-6f, .0030886f,
+ -1.2313e-5f, 13590.f, 13600.f, .022785f, .35675f, .0080322f, -4.828e-6f,
+ .0057084f, -1.9313e-5f, 13600.f, 13610.f, .021944f, .17661f, .0028308f,
+ 8.2581e-6f, .0014574f, -4.9721e-6f, 13610.f, 13620.f, .015009f, .16917f,
+ .001106f, 1.4866e-5f, .001036f, -3.5775e-6f, 13620.f, 13630.f, .028056f,
+ .27826f, .010985f, -5.284e-5f, .0083121f, -4.5055e-5f, 13630.f, 13640.f,
+ .017905f, .21652f, .0091202f, -4.3033e-5f, .0064523f, -3.6725e-5f,
+ 13640.f, 13650.f, .040842f, .16141f, .002459f, -4.3246e-6f, 2.4001e-4f,
+ -1.8088e-6f, 13650.f, 13660.f, .064344f, .36355f, .002624f, -5.0938e-6f,
+ 8.4629e-4f, -7.2912e-6f, 13660.f, 13670.f, .098009f, .46873f, .003736f,
+ -2.2472e-5f, .0012376f, -1.8409e-5f, 13670.f, 13680.f, .10223f, .26441f,
+ .0043146f, -2.6517e-5f, .003082f, -2.1843e-5f, 13680.f, 13690.f,
+ .051383f, .36953f, .0029461f, -4.1201e-6f, .001609f, -1.0556e-5f,
+ 13690.f, 13700.f, .079035f, .41629f, .0039863f, -1.0096e-5f, .0020593f,
+ -1.5846e-5f, 13700.f, 13710.f, .17862f, .23727f, 7.0664e-4f,
+ -1.3429e-5f, -.0024735f, -6.33e-6f, 13710.f, 13720.f, .023457f, .12905f,
+ -.0022038f, -1.2856e-6f, -.0036094f, 1.0306e-6f, 13720.f, 13730.f,
+ .1498f, .27847f, -7.0337e-4f, -8.8658e-6f, -.0037774f, -2.5192e-6f,
+ 13730.f, 13740.f, .15951f, .19705f, -.0012269f, -5.7441e-6f, -.0026138f,
+ -3.9795e-6f, 13740.f, 13750.f, .030444f, .2508f, .001339f, -3.667e-6f,
+ .0013056f, -7.9865e-6f, 13750.f, 13760.f, .091463f, .42355f, .0015252f,
+ -5.082e-6f, 1.0296e-4f, -1.0731e-5f, 13760.f, 13770.f, .055724f,
+ .23315f, 5.0264e-4f, -5.1006e-7f, -.0018097f, -3.8866e-6f, 13770.f,
+ 13780.f, .20577f, .30719f, -.0013969f, 1.9333e-6f, -.0029895f,
+ -5.1114e-7f, 13780.f, 13790.f, .076501f, .36547f, .0034715f,
+ -2.4093e-5f, .0010916f, -1.9569e-5f, 13790.f, 13800.f, .26798f, .22416f,
+ -.0016316f, -1.9581e-6f, -.0041508f, 1.1385e-6f, 13800.f, 13810.f,
+ .20338f, .16881f, -.0022177f, -1.1382e-6f, -.0032452f, -1.5814e-7f,
+ 13810.f, 13820.f, .12951f, .12548f, -.0038707f, 6.337e-6f, -.0045229f,
+ 6.1639e-6f, 13820.f, 13830.f, .088731f, .17991f, -.0038169f, 7.3459e-6f,
+ -.0042642f, 6.6757e-6f, 13830.f, 13840.f, .0067788f, .12625f, .0098132f,
+ -4.8875e-5f, .007723f, -4.7347e-5f, 13840.f, 13850.f, .010502f, .21694f,
+ 8.6711e-4f, 4.6135e-6f, .0011488f, -8.9674e-6f, 13850.f, 13860.f,
+ .04906f, .16058f, -.0030216f, 1.0044e-5f, -.0024328f, 6.7471e-6f,
+ 13860.f, 13870.f, .24278f, .15261f, -.0051224f, 8.9719e-6f, -.0065887f,
+ 1.2603e-5f, 13870.f, 13880.f, .27304f, .29617f, -.003541f, 3.4588e-6f,
+ -.0050128f, 8.099e-6f, 13880.f, 13890.f, .13252f, .25864f, -.0015695f,
+ -2.898e-6f, -.002959f, -3.2727e-6f, 13890.f, 13900.f, .27275f, .14969f,
+ -.0015578f, -4.3912e-6f, -.0023477f, -2.7675e-6f, 13900.f, 13910.f,
+ .28731f, .24848f, -2.6722e-4f, -9.0595e-6f, -.002097f, -6.6308e-6f,
+ 13910.f, 13920.f, .20952f, .31628f, .0028828f, -2.1023e-5f, 9.3184e-4f,
+ -1.7842e-5f, 13920.f, 13930.f, .12621f, .34509f, .0047187f, -2.6132e-5f,
+ .0021269f, -2.2662e-5f, 13930.f, 13940.f, .082581f, .35712f, .0065235f,
+ -2.9651e-5f, .0046608f, -2.9306e-5f, 13940.f, 13950.f, .02215f, .56251f,
+ .011273f, -2.023e-5f, .0098905f, -3.5866e-5f, 13950.f, 13960.f,
+ .013395f, .23595f, .0075697f, -1.1677e-5f, .0047404f, -1.3519e-5f,
+ 13960.f, 13970.f, .0097251f, .389f, .0045853f, -4.4223e-6f, .0013332f,
+ -8.8812e-6f, 13970.f, 13980.f, .01416f, .3192f, .0014413f, 7.7474e-7f,
+ .0010611f, -6.6038e-6f, 13980.f, 13990.f, .0064431f, .38168f, .0021106f,
+ -5.5268e-6f, 6.2478e-4f, -4.2781e-6f, 13990.f, 1.4e4f, .0074763f,
+ .21449f, 8.6863e-6f, -4.7583e-6f, -.0024648f, -3.1646e-6f, 1.4e4f,
+ 14010.f, .0044339f, .31044f, .0062951f, -8.282e-6f, .00239f,
+ -1.0886e-5f, 14010.f, 14020.f, .0063698f, .37192f, .0035714f,
+ -7.0127e-6f, .0022531f, -1.3753e-5f, 14020.f, 14030.f, .0030618f,
+ .32199f, .0067837f, -4.6145e-6f, .0056415f, -1.9199e-5f, 14030.f,
+ 14040.f, .0045836f, .19592f, .0034269f, -6.7013e-6f, .0015603f,
+ -2.0576e-6f, 14040.f, 14050.f, .0028921f, .26752f, .0054727f,
+ -8.232e-6f, .0034172f, -1.6235e-5f, 14050.f, 14060.f, .0083604f, .491f,
+ .0036871f, -2.6932e-6f, .0022258f, -1.2432e-5f, 14060.f, 14070.f,
+ .0048958f, .40049f, .0028518f, -8.9707e-6f, 7.3805e-4f, -1.0552e-5f,
+ 14070.f, 14080.f, .0060175f, .66182f, .0036922f, -1.2082e-5f, .002131f,
+ -1.7251e-5f, 14080.f, 14090.f, .0051267f, .30376f, .012373f,
+ -5.2388e-5f, .0092416f, -4.9701e-5f, 14090.f, 14100.f, .0051874f,
+ .37923f, .0085604f, -3.2476e-5f, .0048279f, -2.831e-5f, 14100.f,
+ 14110.f, .0037549f, .24752f, .0026234f, 1.353e-6f, 1.7089e-4f,
+ -5.9579e-6f, 14110.f, 14120.f, .008547f, .48393f, .0055118f,
+ -1.2616e-5f, .0021682f, -1.5595e-5f, 14120.f, 14130.f, .007167f,
+ .42356f, .0073835f, -3.8638e-5f, .0043338f, -3.2395e-5f, 14130.f,
+ 14140.f, .0084611f, .31558f, .0047305f, -1.7484e-5f, .0013223f,
+ -1.1411e-5f, 14140.f, 14150.f, .0086532f, .27748f, .005894f, -3.133e-5f,
+ .0032608f, -2.6952e-5f, 14150.f, 14160.f, .012236f, .32519f, .0020656f,
+ -1.1881e-5f, -4.5247e-4f, -1.1093e-5f, 14160.f, 14170.f, .019531f,
+ .25874f, .0039764f, -2.6715e-5f, .0012538f, -1.9528e-5f, 14170.f,
+ 14180.f, .0057931f, .18836f, .0039509f, -2.0877e-5f, .001896f,
+ -1.8677e-5f, 14180.f, 14190.f, .0065709f, .31403f, .0030661f,
+ -6.3795e-6f, .0013225f, -1.1966e-5f, 14190.f, 14200.f, .026818f,
+ .21236f, .0016226f, -1.6759e-5f, -4.3884e-4f, -1.1258e-5f, 14200.f,
+ 14210.f, .0015917f, .17083f, .0098825f, -2.9767e-5f, .0059285f,
+ -2.8608e-5f, 14210.f, 14220.f, .036373f, .30478f, 9.7187e-4f,
+ -8.1756e-6f, 8.1092e-5f, -1.0434e-5f, 14220.f, 14230.f, .018351f,
+ .085618f, -.0015427f, -3.9022e-6f, -.0026215f, 7.5823e-7f, 14230.f,
+ 14240.f, .027421f, .1672f, -.0016048f, 1.04e-6f, -.0021918f,
+ -7.3937e-7f, 14240.f, 14250.f, .019137f, .34394f, .0054701f,
+ -3.1082e-5f, .0021305f, -2.3894e-5f, 14250.f, 14260.f, .011742f,
+ .24754f, -.0015398f, 1.4005e-6f, -.0032941f, 1.7021e-7f, 14260.f,
+ 14270.f, .030406f, .25107f, -.0021777f, 1.1738e-6f, -.0042308f,
+ 1.983e-6f, 14270.f, 14280.f, .02572f, .17272f, .0014929f, -1.7124e-5f,
+ -2.0245e-4f, -1.5475e-5f, 14280.f, 14290.f, .023411f, .14155f,
+ -.0036159f, 5.4534e-6f, -.0056547f, 8.3323e-6f, 14290.f, 14300.f,
+ .050436f, .17597f, -.0035358f, 2.7001e-6f, -.005998f, 7.9894e-6f,
+ 14300.f, 14310.f, .010835f, .16074f, -.0023328f, 3.6258e-6f, -.0036191f,
+ 6.6611e-7f, 14310.f, 14320.f, .0097229f, .1372f, -.0026043f, 3.3682e-6f,
+ -.0039301f, 2.3934e-6f, 14320.f, 14330.f, .0041727f, .26898f,
+ 8.9506e-4f, -3.3799e-6f, -8.0987e-4f, -7.4366e-6f, 14330.f, 14340.f,
+ .0028313f, .11399f, -.0023514f, 1.9057e-8f, -.0043191f, 3.2086e-6f,
+ 14340.f, 14350.f, .0094087f, .13847f, -.0033995f, 5.3082e-6f,
+ -.0048841f, 7.2565e-6f, 14350.f, 14360.f, .045453f, .1618f, -.0049821f,
+ 9.5517e-6f, -.0062627f, 1.3183e-5f, 14360.f, 14370.f, .05478f, .246f,
+ -.003323f, 3.3083e-6f, -.0044595f, 4.3249e-6f, 14370.f, 14380.f,
+ .057794f, .29926f, -.0018524f, -2.6891e-6f, -.0034713f, -1.4711e-6f,
+ 14380.f, 14390.f, .017789f, .040974f, -5.5041e-4f, -9.0402e-6f,
+ -.0019035f, -4.1538e-6f, 14390.f, 14400.f, .066509f, .31802f,
+ 1.7874e-4f, -1.0469e-5f, -.0014428f, -9.3839e-6f, 14400.f, 14410.f,
+ .033243f, .21287f, .0023294f, -1.8667e-5f, -4.0745e-4f, -1.2383e-5f,
+ 14410.f, 14420.f, .030315f, .32935f, .005459f, -3.1244e-5f, .0033095f,
+ -2.8644e-5f, 14420.f, 14430.f, .011921f, .16637f, .0064852f,
+ -3.2883e-5f, .0040894f, -2.982e-5f, 14430.f, 14440.f, .0035817f,
+ .24062f, .010713f, -2.2991e-5f, .0076719f, -3.0879e-5f, 14440.f,
+ 14450.f, .0020434f, .09533f, .0074555f, -4.0758e-5f, .003952f,
+ -3.2281e-5f, 14450.f, 14460.f, .0019531f, .057626f, .013393f,
+ -6.572e-5f, .010648f, -6.0338e-5f, 14460.f, 14470.f, .0015972f,
+
+ .063531f, -.0028566f, -9.3552e-7f, -.0057668f, 5.2381e-6f, 14470.f,
+ 14480.f, 6.208e-4f, .14581f, -.0038143f, 3.5516e-6f, -.006417f,
+ 7.6586e-6f, 14480.f, 14490.f, 2.573e-4f, .034903f, .0017376f,
+ -1.9344e-5f, -.0010196f, -1.3792e-5f, 14490.f, 14500.f, 5.8326e-4f,
+ .07101f, .0037987f, -2.7471e-5f, .0011761f, -2.2502e-5f, 14500.f,
+ 14510.f, 1.981e-4f, .037767f, 5.4219e-4f, -1.4563e-5f, -.002215f,
+ -9.0107e-6f, 14510.f, 14520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14520.f,
+ 14530.f, 6.1723e-4f, .05996f, .0029608f, -2.3205e-5f, -5.41e-4f,
+ -1.4715e-5f, 14530.f, 14540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14540.f,
+ 14550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14550.f, 14560.f, 8.7384e-4f,
+ .20577f, .001467f, -1.2035e-5f, -.0013037f, -8.5219e-6f, 14560.f,
+ 14570.f, 3.6981e-4f, .15319f, .0026086f, 5.1176e-7f, -9.4964e-4f,
+ -4.1621e-6f, 14570.f, 14580.f, 5.3062e-4f, .2039f, -9.2668e-4f,
+ -1.7265e-6f, -.0025209f, -3.9176e-6f, 14580.f, 14590.f, 2.3625e-4f,
+ .10952f, 3.608e-5f, -6.6963e-7f, -.0029777f, -5.5782e-7f, 14590.f,
+ 14600.f, 2.5529e-4f, .085175f, .0086357f, -4.5158e-5f, .0055824f,
+ -3.9246e-5f, 14600.f, 14610.f, 3.5469e-4f, .17005f, 5.5905e-4f,
+ 3.4517e-6f, -.0012201f, -2.0532e-6f, 14610.f, 14620.f, 1.4962e-4f,
+ .070668f, 3.6006e-4f, -1.3091e-5f, -.002318f, -8.0334e-6f, 14620.f,
+ 14630.f, 1.6283e-4f, .043851f, -.0019069f, -4.7662e-6f, -.0047857f,
+ 1.0305e-6f, 14630.f, 14640.f, 3.4849e-4f, .091227f, 1.957e-4f,
+ -6.7027e-6f, -.0019067f, -6.8831e-6f, 14640.f, 14650.f, 2.4098e-4f,
+ .073915f, 5.8149e-4f, 2.017e-6f, -.0021878f, -6.9336e-7f, 14650.f,
+ 14660.f, 1.8929e-4f, .040095f, -9.767e-4f, -8.487e-6f, -.003815f,
+ -2.7719e-6f, 14660.f, 14670.f, 2.8551e-4f, .089939f, 9.0134e-4f,
+ -1.5963e-5f, -.0017529f, -1.0799e-5f, 14670.f, 14680.f, 1.3624e-4f,
+ .063104f, .0051307f, -3.2797e-5f, .002189f, -2.6775e-5f, 14680.f,
+ 14690.f, 9.1275e-5f, .031681f, .0031085f, -2.4828e-5f, 3.5131e-4f,
+ -1.9276e-5f, 14690.f, 14700.f, 8.8122e-5f, .040141f, .0011384f,
+ -1.6948e-5f, -.0017809f, -1.1069e-5f, 14700.f, 14710.f, 0.f, 0.f, 0.f,
+ 0.f, 0.f, 0.f, 14710.f, 14720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14720.f,
+ 14730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14730.f, 14740.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 14740.f, 14750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14750.f,
+ 14760.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14760.f, 14770.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 14770.f, 14780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14780.f, 14790.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 14790.f, 14800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 14800.f,
+ 14810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14810.f, 14820.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 14820.f, 14830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14830.f,
+ 14840.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14840.f, 14850.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 14850.f, 14860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14860.f, 14870.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 14870.f, 14880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 14880.f,
+ 14890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14890.f, 14900.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 14900.f, 14910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14910.f,
+ 14920.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14920.f, 14930.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 14930.f, 14940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14940.f, 14950.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 14950.f, 14960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 14960.f,
+ 14970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14970.f, 14980.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 14980.f, 14990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14990.f, 1.5e4f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.5e4f, 15010.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 15010.f, 15020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15020.f, 15030.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 15030.f, 15040.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 15040.f,
+ 15050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15050.f, 15060.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 15060.f, 15070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15070.f,
+ 15080.f,
+ 7.1934e-4f, .12682f, .0061012f, 1.5559e-5f, .0027848f, -4.5145e-6f,
+ 15080.f, 15090.f, 4.9571e-4f, .13321f, .0050157f, 1.7658e-5f, .0024032f,
+ -4.0605e-6f, 15090.f, 15100.f, 2.2621e-4f, .12674f, .016133f,
+ -6.1229e-5f, .013281f, -6.2746e-5f, 15100.f, 15110.f, 8.5668e-4f,
+ .12425f, .016195f, -7.6668e-5f, .013811f, -7.25e-5f, 15110.f, 15120.f,
+ 5.5721e-4f, .11061f, .0048501f, 3.2762e-5f, .0041846f, 4.2515e-7f,
+ 15120.f, 15130.f, .0010214f, .16075f, .0077437f, -9.7938e-6f, .0033244f,
+ -1.335e-5f, 15130.f, 15140.f, .0037351f, .23141f, .0075468f,
+ -1.8073e-5f, .0038208f, -1.7101e-5f, 15140.f, 15150.f, 6.9279e-4f,
+ .16527f, .0092564f, -2.4217e-5f, .0059447f, -2.8136e-5f, 15150.f,
+ 15160.f, .0020924f, .19937f, .0067646f, -1.9228e-5f, .0021429f,
+ -1.4011e-5f, 15160.f, 15170.f, .0029213f, .11019f, .0078105f,
+ -4.068e-5f, .0061601f, -3.7164e-5f, 15170.f, 15180.f, .0040031f, .2888f,
+ .0050758f, -1.9158e-5f, .0019869f, -1.728e-5f, 15180.f, 15190.f,
+ .0024252f, .15747f, .0044234f, -2.0027e-5f, 3.4479e-4f, -1.2338e-5f,
+ 15190.f, 15200.f, .0087795f, .14543f, .0042621f, -2.7308e-5f,
+ 7.3031e-4f, -1.681e-5f, 15200.f, 15210.f, .0095997f, .374f, .0046013f,
+ -2.8568e-5f, .002061f, -2.4098e-5f, 15210.f, 15220.f, 9.5938e-4f,
+ .22877f, .0032518f, -1.2364e-5f, .00118f, -1.6396e-5f, 15220.f, 15230.f,
+ .0089911f, .27602f, .0015486f, -1.7622e-5f, -7.0027e-4f, -1.3639e-5f,
+ 15230.f, 15240.f, .0070384f, .19525f, .0017332f, -1.8418e-5f,
+ -.0010753f, -1.2514e-5f, 15240.f, 15250.f, .012889f, .20893f,
+ 5.2643e-4f, -8.5726e-6f, -8.0955e-4f, -8.4315e-6f, 15250.f, 15260.f,
+ .01071f, .10552f, -.0015016f, -6.0962e-6f, -.0038322f, -1.9428e-6f,
+ 15260.f, 15270.f, .011725f, .11142f, -.0024386f, -2.089e-6f, -.0045783f,
+ 1.5311e-6f, 15270.f, 15280.f, .0036695f, .13405f, -.0019794f,
+ 1.4362e-7f, -.0035859f, 2.0003e-6f, 15280.f, 15290.f, .0038912f,
+ .14992f, -3.0601e-5f, 8.2096e-6f, -1.4088e-4f, -1.393e-6f, 15290.f,
+ 15300.f
+ };
+
+ /* WATER VAPOR (12740 - 15280 CM-1) */
+ for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
+} /* wava5 */
+
+void
+wava4 (float a[8], const long int inu)
+{
+
+
+ static const float acr[2048] = { .037011f, .34865f,
+ .0071795f, -2.429e-5f, .0061217f, -2.5788e-5f, 10180.f, 10190.f,
+ .096531f, .1963f, .0044353f, -2.7769e-5f, .0020496f, -1.902e-5f,
+ 10190.f, 10200.f, .11553f, .22356f, .0057418f, -2.861e-5f, .005252f,
+ -3.0274e-5f, 10200.f, 10210.f, .17877f, .25357f, .0036991f, -1.9865e-5f,
+ .0035644f, -1.5681e-5f, 10210.f, 10220.f, .094449f, .35387f, .0021016f,
+ -1.5037e-5f, 5.8316e-4f, -1.1084e-5f, 10220.f, 10230.f, .079869f,
+ .2603f, .0051322f, -2.0923e-5f, .0039204f, -2.2157e-5f, 10230.f,
+ 10240.f, .30687f, .32758f, 6.3705e-4f, -9.1396e-6f, 2.5647e-4f,
+ -3.6374e-6f, 10240.f, 10250.f, .15358f, .13982f, -8.3666e-4f,
+ 3.3048e-6f, .0027185f, 1.2493e-5f, 10250.f, 10260.f, .38232f, .35543f,
+ -.0010313f, -1.8768e-6f, -.0016001f, 3.8356e-7f, 10260.f, 10270.f,
+ .0562f, .34487f, .0036934f, 7.3751e-6f, .0070064f, -1.2975e-5f, 10270.f,
+ 10280.f, .11137f, .21188f, -.0024327f, 1.6553e-5f, -3.0535e-4f,
+ 1.9603e-5f, 10280.f, 10290.f, .16704f, .162f, -.0028871f, 9.8108e-6f,
+ -4.298e-4f, 1.7309e-5f, 10290.f, 10300.f, .15496f, .19365f, -.0025906f,
+ 1.7434e-5f, -3.5463e-4f, 8.1537e-6f, 10300.f, 10310.f, .050239f,
+ .44504f, .0082014f, 4.7362e-5f, .0097304f, -1.0209e-5f, 10310.f,
+ 10320.f, .21509f, .29651f, -.0021764f, 2.0847e-5f, -2.3124e-4f,
+ 1.0958e-5f, 10320.f, 10330.f, .15838f, .17695f, -.0019477f, 2.8641e-6f,
+ -.0031011f, 6.2742e-6f, 10330.f, 10340.f, .45807f, .42831f, -4.7039e-5f,
+ 1.6616e-5f, .001452f, 6.4036e-6f, 10340.f, 10350.f, .14196f, .4315f,
+ .0032845f, 1.8573e-5f, .0044632f, -3.8921e-6f, 10350.f, 10360.f,
+ .46768f, .4897f, .0030587f, -9.9296e-6f, .0017377f, -1.2227e-5f,
+ 10360.f, 10370.f, .49107f, .45881f, .0017676f, 2.3059e-5f, .0037946f,
+ -7.9699e-6f, 10370.f, 10380.f, .40709f, .39513f, .0024501f, 3.4328e-6f,
+ .0033911f, -1.6475e-5f, 10380.f, 10390.f, .53368f, .30449f, .002764f,
+ 1.6491e-5f, .0031852f, -7.9335e-6f, 10390.f, 10400.f, .50598f, .38596f,
+ .0011335f, 7.9179e-6f, .0016436f, -4.2442e-6f, 10400.f, 10410.f,
+ .36712f, .58535f, .0035486f, -2.5563e-6f, .0025513f, -1.2028e-5f,
+ 10410.f, 10420.f, .98775f, .50104f, .0056199f, -1.6902e-5f, .0043563f,
+ -2.6045e-5f, 10420.f, 10430.f, .76493f, .41145f, .0027287f, -1.2684e-5f,
+ 9.6642e-4f, -1.2013e-5f, 10430.f, 10440.f, .4518f, .45681f, .0055394f,
+ -1.8929e-5f, .0049043f, -2.5553e-5f, 10440.f, 10450.f, .93845f, .25977f,
+ .0063165f, -3.3633e-5f, .0030572f, -2.3591e-5f, 10450.f, 10460.f,
+ 1.0799f, .52983f, .0049753f, -2.2413e-5f, .0037285f, -1.9018e-5f,
+ 10460.f, 10470.f, 1.9954f, .24666f, .0043881f, -2.9035e-5f, .0020409f,
+ -2.1664e-5f, 10470.f, 10480.f, .53954f, .3608f, .0038367f, -2.492e-5f,
+ .0016345f, -2.0659e-5f, 10480.f, 10490.f, 1.9042f, .28357f, .0020331f,
+ -1.9809e-5f, 1.178e-4f, -1.5063e-5f, 10490.f, 10500.f, 1.3639f, .41799f,
+ .0017903f, -1.4939e-5f, 7.7921e-4f, -1.3895e-5f, 10500.f, 10510.f,
+ .27245f, .53566f, .0028306f, -2.1067e-6f, .0041171f, -1.2108e-5f,
+ 10510.f, 10520.f, 4.225f, .34405f, -9.2601e-4f, -5.8016e-6f, -.0020236f,
+ -9.379e-7f, 10520.f, 10530.f, .41591f, .38497f, .004158f, 5.6585e-6f,
+ .0031671f, -1.1552e-5f, 10530.f, 10540.f, 2.4868f, .21796f, -.0020342f,
+ 2.1116e-6f, -.0020977f, 3.2759e-6f, 10540.f, 10550.f, .9442f, .51349f,
+ .0018825f, 2.2079e-6f, .0015856f, -8.8233e-6f, 10550.f, 10560.f, 2.139f,
+ .25647f, -.0019634f, 7.9808e-6f, -.0024854f, 4.6652e-6f, 10560.f,
+ 10570.f, 1.3917f, .33676f, .0035449f, -2.0344e-5f, 3.2271e-4f,
+ -1.2565e-5f, 10570.f, 10580.f, 5.9303f, .30084f, 1.3471e-4f,
+ -5.1658e-6f, -.0018823f, -4.8751e-6f, 10580.f, 10590.f, 1.0087f,
+ .13259f, -.0014095f, -4.7735e-6f, -.0024541f, 2.6832e-6f, 10590.f,
+ 10600.f, 4.3983f, .19046f, -.0034725f, 2.4224e-6f, -.0053127f,
+ 7.1676e-6f, 10600.f, 10610.f, .96572f, .30982f, -.0027372f, 6.8946e-6f,
+ -.0023672f, 8.3925e-6f, 10610.f, 10620.f, .91323f, .32206f, -.0024872f,
+ 3.2962e-6f, -.0026005f, 2.0821e-6f, 10620.f, 10630.f, .64383f, .32142f,
+ -.0040036f, 1.1751e-5f, -.0046913f, 1.096e-5f, 10630.f, 10640.f,
+ .20419f, .32226f, -.0010057f, 3.7593e-7f, -.0012761f, -1.9796e-6f,
+ 10640.f, 10650.f, 3.2582f, .41089f, -.0042525f, 1.1056e-5f, -.003553f,
+ 1.043e-5f, 10650.f, 10660.f, 4.0011f, .26987f, -.0041265f, 6.8604e-6f,
+ -.0047731f, 8.9525e-6f, 10660.f, 10670.f, 2.3087f, .2861f, -.0029291f,
+ 1.5494e-6f, -.0036647f, 3.1219e-6f, 10670.f, 10680.f, 5.0379f, .43636f,
+ -4.8143e-4f, 6.8393e-6f, -.0011602f, 8.769e-7f, 10680.f, 10690.f,
+ 3.4572f, .24029f, -3.8723e-4f, -8.7391e-6f, -4.4231e-4f, -7.617e-6f,
+ 10690.f, 10700.f, 3.4164f, .31894f, 5.1822e-4f, -9.7127e-6f,
+ -8.7127e-5f, -1.1526e-5f, 10700.f, 10710.f, 1.9975f, .24091f, .0020391f,
+ -1.8108e-5f, 8.1249e-4f, -1.3281e-5f, 10710.f, 10720.f, 1.8993f,
+ .38637f, .0046303f, -2.5016e-5f, .0035053f, -2.2372e-5f, 10720.f,
+ 10730.f, 1.958f, .33984f, .0057686f, -3.2398e-5f, .0041169f, -2.863e-5f,
+ 10730.f, 10740.f, .56316f, .41883f, .011363f, -4.522e-5f, .0082366f,
+ -3.7842e-5f, 10740.f, 10750.f, .35401f, .69851f, .010496f, -2.1851e-5f,
+ .0066866f, -2.4626e-5f, 10750.f, 10760.f, .19707f, .69982f, .010773f,
+ -9.278e-6f, .0083529f, -1.8664e-5f, 10760.f, 10770.f, .2189f, .61722f,
+ .0026481f, 1.4368e-5f, .0037728f, -1.6702e-7f, 10770.f, 10780.f,
+
+ .055267f, .6593f, .007075f, 3.4583e-6f, .0056327f, -1.8713e-5f, 10780.f,
+ 10790.f, .082626f, .56771f, .0014488f, 9.0784e-6f, .0015016f,
+ -4.5502e-6f, 10790.f, 10800.f, .070929f, .31037f, 3.4662e-6f,
+ 4.3968e-6f, -6.1123e-4f, -1.1496e-7f, 10800.f, 10810.f, .097418f,
+ .44409f, -3.1642e-4f, 5.1491e-6f, -.0010289f, -1.8238e-6f, 10810.f,
+ 10820.f, .084947f, .43514f, .0039381f, -1.2895e-6f, .0026186f,
+ -1.3069e-5f, 10820.f, 10830.f, .05826f, .18252f, .0019735f, -6.3696e-6f,
+ -5.8857e-4f, -5.1048e-6f, 10830.f, 10840.f, .11036f, .40791f, .0027504f,
+ 5.4669e-6f, .0010814f, -7.3999e-6f, 10840.f, 10850.f, .063822f, .3839f,
+ .0050367f, -2.0231e-5f, .0028937f, -1.8685e-5f, 10850.f, 10860.f,
+ .010028f, .29145f, .0059963f, -2.3315e-5f, .0034252f, -2.032e-5f,
+ 10860.f, 10870.f, .12414f, .24481f, .0065529f, -3.7402e-5f, .0035139f,
+ -3.0249e-5f, 10870.f, 10880.f, .14508f, .36269f, -3.4622e-4f,
+ 7.2138e-6f, -3.3853e-4f, 7.4773e-7f, 10880.f, 10890.f, .32952f, .51235f,
+ .001156f, -9.9464e-6f, -.0017097f, -6.9684e-6f, 10890.f, 10900.f,
+ .081689f, .43746f, .002472f, -8.5593e-6f, 8.107e-4f, -1.0007e-5f,
+ 10900.f, 10910.f, .36297f, .47635f, -7.551e-4f, 3.2155e-6f, -.001416f,
+ 1.3385e-6f, 10910.f, 10920.f, .21833f, .56037f, .0015815f, -1.3282e-5f,
+ 2.7446e-4f, -1.2751e-5f, 10920.f, 10930.f, .062283f, .46899f, .003716f,
+ 9.7049e-7f, .0030288f, -1.3634e-5f, 10930.f, 10940.f, .49012f, .36842f,
+ -8.7423e-4f, -6.7163e-6f, -.0022164f, -2.6838e-6f, 10940.f, 10950.f,
+ .14742f, .42276f, .0021422f, 5.937e-6f, 8.8387e-4f, -6.8671e-6f,
+ 10950.f, 10960.f, .281f, .22881f, -.0022496f, -9.4548e-7f, -.0031883f,
+ 4.4808e-7f, 10960.f, 10970.f, .22513f, .41493f, .0036269f, -1.6185e-5f,
+ .0017037f, -1.7793e-5f, 10970.f, 10980.f, .21994f, .21688f, -.0036261f,
+ 5.7974e-6f, -.0041527f, 8.0739e-6f, 10980.f, 10990.f, .14084f, .33322f,
+ 1.3752e-4f, -6.2038e-6f, -.0011146f, -6.0724e-6f, 10990.f, 1.1e4f,
+ .323f, .17636f, -.0013536f, -5.8665e-7f, -.0024854f, -3.0662e-7f,
+ 1.1e4f, 11010.f, .4018f, .22575f, -.0022932f, -2.3319e-6f, -.0044015f,
+ 2.451e-6f, 11010.f, 11020.f, .40187f, .17827f, -.0028707f, 1.5665e-6f,
+ -.0044357f, 3.1485e-6f, 11020.f, 11030.f, .096411f, .21466f, -.0022778f,
+ 4.124e-6f, -.0027585f, 2.0224e-6f, 11030.f, 11040.f, .096343f, .15703f,
+ -.0022356f, 1.5369e-6f, -.0030654f, -3.2505e-7f, 11040.f, 11050.f,
+ .079848f, .17965f, -.0020125f, 9.6504e-6f, -.00326f, 5.3659e-6f,
+ 11050.f, 11060.f, .062139f, .10557f, -.0040683f, 9.3909e-6f, -.0047053f,
+ 1.0347e-5f, 11060.f, 11070.f, .25071f, .1119f, -.0048932f, 9.8071e-6f,
+ -.0052555f, 9.7232e-6f, 11070.f, 11080.f, .50363f, .18561f, -.0040852f,
+ 4.7194e-6f, -.0061085f, 9.9471e-6f, 11080.f, 11090.f, .23621f, .35575f,
+ -6.9998e-4f, -3.8983e-7f, -7.4838e-4f, -6.3021e-6f, 11090.f, 11100.f,
+ .41715f, .20786f, -.0026671f, -8.5957e-7f, -.0044855f, 3.6346e-6f,
+ 11100.f, 11110.f, .35497f, .15568f, -2.0655e-4f, -1.0414e-5f,
+ -.0019241f, -7.491e-6f, 11110.f, 11120.f, .36391f, .22115f, 8.0888e-5f,
+ -8.0079e-6f, -7.2043e-4f, -8.8371e-6f, 11120.f, 11130.f, .239f, .19893f,
+ .0017314f, -1.745e-5f, -7.2547e-4f, -1.0781e-5f, 11130.f, 11140.f,
+ .18535f, .23329f, .0044356f, -2.4159e-5f, .002562f, -2.1329e-5f,
+ 11140.f, 11150.f, .18058f, .20287f, .0053731f, -2.948e-5f, .0026609f,
+ -2.2876e-5f, 11150.f, 11160.f, .086563f, .18472f, .0071342f,
+ -3.4497e-5f, .0062094f, -3.7103e-5f, 11160.f, 11170.f, .040545f,
+ .27173f, .012595f, -5.3501e-5f, .0098569f, -5.1164e-5f, 11170.f,
+ 11180.f, .015934f, .21414f, .021094f, -9.1779e-5f, .018771f,
+ -8.8619e-5f, 11180.f, 11190.f, .032149f, .20819f, .0053736f, 4.7418e-6f,
+ .0028308f, -3.9739e-6f, 11190.f, 11200.f, .0033026f, .1125f, -.0049337f,
+ 8.3861e-6f, -.0074414f, 1.2308e-5f, 11200.f, 11210.f, .0069621f,
+ .11936f, .002482f, 1.4188e-5f, .0041457f, -7.6324e-6f, 11210.f, 11220.f,
+ .0018624f, .073437f, .0037334f, 6.4996e-5f, .0021277f, 2.507e-5f,
+ 11220.f, 11230.f, .0056133f, .14671f, 5.7744e-4f, -1.0633e-5f,
+ -.0020996f, -6.969e-6f, 11230.f, 11240.f, 5.9301e-4f, .13188f,
+ .0043109f, -2.7217e-5f, .0014102f, -2.1872e-5f, 11240.f, 11250.f,
+ .0062071f, .08021f, .0031276f, -2.2059e-5f, 6.1977e-4f, -1.6464e-5f,
+ 11250.f, 11260.f, 7.0445e-4f, .090176f, .006354f, -1.7728e-5f,
+ .0035488f, -2.1566e-5f, 11260.f, 11270.f, .0024343f, .082442f,
+ -1.2318e-4f, -1.1355e-5f, -.0023203f, -8.0507e-6f, 11270.f, 11280.f,
+ .0053124f, .10493f, .002512f, -2.1412e-5f, -2.5472e-4f, -1.6312e-5f,
+ 11280.f, 11290.f, .0010156f, .075674f, .0067257f, -3.904e-5f, .0037539f,
+ -3.2659e-5f, 11290.f, 11300.f, 4.5845e-4f, .031771f, .0083901f,
+ -4.5954e-5f, .005633f, -4.0402e-5f, 11300.f, 11310.f, .0013128f, .1362f,
+ .0032287f, -2.4445e-5f, 6.7354e-4f, -2.006e-5f, 11310.f, 11320.f,
+ 9.1527e-4f, .043387f, .013028f, -6.4031e-5f, .010684f, -6.015e-5f,
+ 11320.f, 11330.f, .0016381f, .11364f, .0082323f, -4.1843e-5f, .0046964f,
+ -3.5054e-5f, 11330.f, 11340.f, 8.2138e-4f, .051673f, .0074756f,
+ -4.1981e-5f, .0051092f, -3.7995e-5f, 11340.f, 11350.f, 8.2766e-4f,
+ .072646f, .0053277f, -3.266e-5f, .0034473f, -3.0783e-5f, 11350.f,
+ 11360.f, 2.9086e-4f, .031771f, .0094981f, -5.0386e-5f, .0067409f,
+ -4.4834e-5f, 11360.f, 11370.f, 2.1807e-4f, .058942f, .015709f,
+ -5.9258e-5f, .013592f, -6.3956e-5f, 11370.f, 11380.f, 6.2704e-4f,
+ .12257f, .010699f, -4.9284e-5f, .0095849f, -5.3234e-5f, 11380.f,
+ 11390.f, 1.0702e-4f, .028818f, .0079994f, -4.4391e-5f, .0052422f,
+ -3.8839e-5f, 11390.f, 11400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11400.f,
+ 11410.f, 2.2042e-4f, .065689f, .016094f, -7.5895e-5f, .013589f,
+ -7.1741e-5f, 11410.f, 11420.f, 8.1809e-5f, .030563f, .019812f,
+ -9.1641e-5f, .017055f, -8.6089e-5f, 11420.f, 11430.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f, 0.f, 11430.f, 11440.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11440.f,
+ 11450.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11450.f, 11460.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 11460.f, 11470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11470.f, 11480.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 11480.f, 11490.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 11490.f,
+ 11500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11500.f, 11510.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 11510.f, 11520.f, 6.8748e-6f, .028818f, .014135f, -6.8935e-5f,
+ .011378f, -6.3383e-5f, 11520.f, 11530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 11530.f, 11540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11540.f, 11550.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 11550.f, 11560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 11560.f,
+ 11570.f, 1.1592e-5f, .037767f, .0031085f, -2.4828e-5f, 3.5131e-4f,
+ -1.9276e-5f, 11570.f, 11580.f, 1.2377e-4f, .091349f, .012838f,
+ -3.6325e-5f, .0084626f, -3.8447e-5f, 11580.f, 11590.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f, 0.f, 11590.f, 11600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11600.f,
+ 11610.f,
+ 2.7776e-4f, .099768f, .016197f, -7.1636e-5f, .012877f, -6.2598e-5f,
+ 11610.f, 11620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11620.f, 11630.f,
+ 6.0387e-4f, .079303f, .011427f, -5.6399e-5f, .0076314f, -4.5247e-5f,
+ 11630.f, 11640.f, 8.3575e-5f, .082334f, .015996f, -7.3351e-5f, .013978f,
+ -7.131e-5f, 11640.f, 11650.f, 2.7734e-4f, .028818f, .012698f,
+ -6.3185e-5f, .0099405f, -5.7633e-5f, 11650.f, 11660.f, .0013776f,
+ .1275f, .0089606f, -4.0931e-5f, .006208f, -3.6077e-5f, 11660.f, 11670.f,
+ 4.5458e-4f, .05909f, .0073062f, -4.1015e-5f, .0053622f, -3.8549e-5f,
+ 11670.f, 11680.f, .0019815f, .15477f, .006225f, -3.2087e-5f, .0049876f,
+ -3.2313e-5f, 11680.f, 11690.f, 9.9572e-4f, .08831f, .0056347f,
+ -2.7093e-5f, .0037058f, -2.8108e-5f, 11690.f, 11700.f, .0025341f,
+ .10399f, .0032192f, -2.1942e-5f, .0010784f, -1.8674e-5f, 11700.f,
+ 11710.f, .001691f, .18929f, .0042421f, -2.4597e-5f, .0031654f,
+ -2.3807e-5f, 11710.f, 11720.f, .001706f, .12598f, 6.5013e-4f,
+ -1.3447e-5f, -.0021977f, -8.4803e-6f, 11720.f, 11730.f, .0032703f,
+ .1478f, .0014549f, -1.0754e-5f, 3.5403e-4f, -1.3234e-5f, 11730.f,
+ 11740.f, .0055601f, .15726f, -.0020459f, -2.8933e-6f, -.0040613f,
+ 2.3816e-6f, 11740.f, 11750.f, .0023988f, .10521f, -8.9604e-5f,
+ -8.9256e-6f, -.0019341f, -4.1252e-6f, 11750.f, 11760.f, .0021014f,
+ .20346f, .001557f, -3.876e-7f, 4.2674e-4f, -7.4882e-6f, 11760.f,
+ 11770.f, .0044559f, .17649f, -.0026665f, 2.6782e-6f, -.0043678f,
+ 1.1412e-5f, 11770.f, 11780.f, .0024355f, .1438f, -.0030347f, 1.3498e-5f,
+ -.0029099f, 8.3348e-6f, 11780.f, 11790.f, .0012088f, .14652f, .0043364f,
+ -2.3499e-5f, .004136f, -2.5136e-5f, 11790.f, 11800.f, 3.5615e-4f,
+ .076935f, -4.1654e-4f, 1.6868e-5f, -3.6975e-4f, 6.6392e-6f, 11800.f,
+ 11810.f, .0033205f, .14642f, -.0022883f, 1.5563e-5f, -.0011424f,
+ 6.601e-6f, 11810.f, 11820.f, 9.6482e-4f, .11674f, -.0020293f,
+ 3.3475e-5f, .0018153f, 1.8034e-5f, 11820.f, 11830.f, .0025468f, .23891f,
+ -3.7386e-4f, 2.5112e-5f, -7.037e-4f, 1.2657e-5f, 11830.f, 11840.f,
+ .003978f, .19525f, .0017761f, 1.7009e-5f, .0028654f, 9.7695e-7f,
+ 11840.f, 11850.f, .009308f, .22287f, -.0028141f, 6.1915e-6f, -.0035846f,
+ 9.0001e-6f, 11850.f, 11860.f, .0011913f, .14817f, .0011043f, 4.7279e-5f,
+ .0021704f, 1.6632e-5f, 11860.f, 11870.f, .010095f, .3319f, -3.025e-4f,
+ 2.7919e-5f, 4.6706e-4f, 1.3481e-5f, 11870.f, 11880.f, .0094837f,
+ .29542f, .0041573f, -4.5489e-6f, .0046629f, -1.3608e-5f, 11880.f,
+ 11890.f, .0057807f, .16128f, .0022948f, 3.093e-5f, .0032856f,
+ 7.3247e-6f, 11890.f, 11900.f, .0090317f, .33992f, .0064901f, 1.3104e-5f,
+ .0058385f, -1.237e-5f, 11900.f, 11910.f, .0034946f, .17472f, 9.0274e-4f,
+ 9.569e-6f, 7.5517e-4f, 7.6716e-7f, 11910.f, 11920.f, .010712f, .34337f,
+ .0057845f, 3.273e-6f, .0051567f, -1.5291e-5f, 11920.f, 11930.f,
+ .018599f, .48317f, .010589f, -3.4336e-5f, .0073964f, -3.6504e-5f,
+ 11930.f, 11940.f, .011137f, .31418f, .0088066f, -1.9115e-5f, .0066643f,
+ -2.5755e-5f, 11940.f, 11950.f, .014277f, .15769f, .010665f, -4.2217e-5f,
+ .0066305f, -3.2258e-5f, 11950.f, 11960.f, .027875f, .26865f, .010692f,
+ -4.8825e-5f, .007738f, -4.3664e-5f, 11960.f, 11970.f, .012682f, .20777f,
+ .010603f, -4.8734e-5f, .0081358f, -4.1884e-5f, 11970.f, 11980.f,
+ .036127f, .20496f, .0077739f, -4.0475e-5f, .0055098f, -3.2025e-5f,
+ 11980.f, 11990.f, .026197f, .26047f, .0093353f, -4.7349e-5f, .0069758f,
+ -4.2653e-5f, 11990.f, 1.2e4f, .031642f, .28308f, .0072441f, -3.3775e-5f,
+ .0041744f, -2.7701e-5f, 1.2e4f, 12010.f, .13538f, .163f, .0042895f,
+ -2.9341e-5f, .001443f, -2.3228e-5f, 12010.f, 12020.f, .04616f, .26257f,
+ .0059122f, -3.4545e-5f, .0033253f, -2.959e-5f, 12020.f, 12030.f,
+ .098778f, .16239f, .0019096f, -1.947e-5f, 1.9375e-4f, -1.6507e-5f,
+ 12030.f, 12040.f, .04218f, .15687f, .0011607f, -1.5189e-5f, 3.26e-4f,
+ -1.0808e-5f, 12040.f, 12050.f, .081749f, .1447f, .0019087f, -1.8894e-5f,
+ 4.6347e-5f, -1.5861e-5f, 12050.f, 12060.f, .14244f, .15544f,
+ -4.8204e-4f, -1.0055e-5f, -.0030791f, -4.5136e-6f, 12060.f, 12070.f,
+ .15967f, .14014f, -.0015241f, -6.1008e-6f, -.0038422f, -1.2202e-6f,
+ 12070.f, 12080.f, .14263f, .16924f, -.0025815f, -1.3799e-6f, -.0046065f,
+ 2.7252e-6f, 12080.f, 12090.f, .028755f, .09297f, -.0034559f, 3.6475e-6f,
+ -.0038455f, 8.6258e-6f, 12090.f, 12100.f, .13867f, .13244f, -.0035649f,
+ 5.23e-6f, -.0053551f, 8.6133e-6f, 12100.f, 12110.f, .022667f, .083805f,
+ -.00172f, -3.4708e-6f, -.0030806f, 3.0367e-6f, 12110.f, 12120.f,
+ .092398f, .11619f, -.0042643f, 1.2112e-5f, -.0033307f, 1.1625e-5f,
+ 12120.f, 12130.f, .036116f, .2779f, .0029762f, 1.3854e-6f, .0042021f,
+ -1.2139e-5f, 12130.f, 12140.f, .44373f, .46666f, 3.1523e-4f,
+ -3.0509e-6f, -2.0293e-4f, -7.5095e-6f, 12140.f, 12150.f, .27187f,
+ .27772f, -.0011411f, 1.4254e-6f, -.001681f, -8.1908e-7f, 12150.f,
+ 12160.f, .051449f, .10126f, -.0037317f, 6.5728e-6f, -.0032342f,
+ 1.2751e-5f, 12160.f, 12170.f, .038984f, .17694f, -.0039312f, 1.3072e-5f,
+ -.0033739f, 1.401e-5f, 12170.f, 12180.f, .0044227f, .11724f, .0062039f,
+ -3.2339e-5f, .0022912f, -2.0596e-5f, 12180.f, 12190.f, .18992f, .14819f,
+ -.0050473f, 8.811e-6f, -.0068829f, 1.2852e-5f, 12190.f, 12200.f,
+ .25583f, .13027f, -.0044286f, 5.7917e-6f, -.0063447f, 9.414e-6f,
+ 12200.f, 12210.f, .13625f, .18565f, -.0034046f, 2.2857e-6f, -.0050965f,
+ 6.4148e-6f, 12210.f, 12220.f, .29053f, .22511f, -.0027471f, -8.8244e-7f,
+ -.0045852f, 2.3044e-6f, 12220.f, 12230.f, .19038f, .14946f, -6.8588e-4f,
+ -9.3784e-6f, -.0027488f, -5.0351e-6f, 12230.f, 12240.f, .33873f,
+ .28292f, -1.0104e-4f, -1.0239e-5f, -.0013958f, -9.0346e-6f, 12240.f,
+ 12250.f, .1325f, .17121f, .0024653f, -1.9723e-5f, 1.8597e-4f,
+ -1.4634e-5f, 12250.f, 12260.f, .12157f, .37106f, .0037908f, -2.2351e-5f,
+ .0010325f, -1.6657e-5f, 12260.f, 12270.f, .07651f, .16258f, .0034104f,
+ -2.3774e-5f, .0018529f, -2.1863e-5f, 12270.f, 12280.f, .07529f, .33562f,
+ .0076059f, -3.4182e-5f, .0052641f, -3.0402e-5f, 12280.f, 12290.f,
+ .060409f, .25407f, .0068386f, -2.9386e-5f, .0061709f, -2.8132e-5f,
+ 12290.f, 12300.f, .027161f, .42647f, .0097512f, -3.3363e-5f, .0063871f,
+ -3.1407e-5f, 12300.f, 12310.f, .009111f, .28999f, .010916f, -3.5531e-5f,
+ .0085325f, -3.6715e-5f, 12310.f, 12320.f, .019913f, .33483f, .0088198f,
+ -1.1414e-5f, .0072926f, -2.8077e-5f, 12320.f, 12330.f, .0081899f,
+ .31312f, .014481f, -5.2817e-5f, .010281f, -4.4189e-5f, 12330.f, 12340.f,
+ .0047198f, .32687f, .0079614f, 6.2153e-6f, .0072159f, -1.9264e-5f,
+ 12340.f, 12350.f, .011347f, .34063f, .002382f, 2.8934e-5f, .0025122f,
+ 2.6528e-6f, 12350.f, 12360.f, .0035162f, .2474f, .0064215f, -4.522e-6f,
+ .0068198f, -2.2326e-5f, 12360.f, 12370.f, .0045582f, .33334f, .0040843f,
+ -6.8827e-6f, .0026935f, -1.6936e-5f, 12370.f, 12380.f, .0025789f,
+ .33203f, .004947f, -1.6065e-5f, .003438f, -2.2968e-5f, 12380.f, 12390.f,
+ .0045336f, .2043f, .0047629f, -2.7839e-5f, .0025633f, -2.4703e-5f,
+ 12390.f, 12400.f, .0030244f, .20516f, .0081732f, -4.1804e-5f, .0046359f,
+ -2.9989e-5f, 12400.f, 12410.f, .0041242f, .23106f, .0057501f,
+ -3.1437e-5f, .0034257f, -2.8835e-5f, 12410.f, 12420.f, .010287f,
+ .33673f, .0041222f, -2.574e-5f, .0014121f, -2.0905e-5f, 12420.f,
+ 12430.f, .0052103f, .19644f, .0037193f, -2.6341e-5f, 9.394e-4f,
+ -2.0581e-5f, 12430.f, 12440.f, 2.2877e-4f, .12174f, .0092724f,
+ -4.5126e-5f, .0056853f, -3.7747e-5f, 12440.f, 12450.f, .015209f,
+ .45993f, .0011296f, -1.4042e-5f, -.0011241f, -1.1493e-5f, 12450.f,
+ 12460.f, .005545f, .1911f, .0015443f, -1.3043e-5f, -3.2861e-4f,
+ -1.1764e-5f, 12460.f, 12470.f, .011275f, .1922f, 7.547e-5f, -1.0276e-5f,
+ -.0020095f, -7.6051e-6f, 12470.f, 12480.f, .014331f, .19322f,
+ -.0010929f, -7.1557e-6f, -.0030976f, -4.5871e-6f, 12480.f, 12490.f,
+ .013106f, .20676f, -.0021472f, -1.689e-6f, -.00333f, -4.7675e-7f,
+ 12490.f, 12500.f, .0031859f, .26518f, .0018883f, -3.7481e-6f,
+ 4.5064e-5f, -1.1501e-5f, 12500.f, 12510.f, .0066833f, .21228f,
+ -.0021409f, 4.8505e-6f, -.0028895f, 4.0738e-6f, 12510.f, 12520.f,
+ .011966f, .28263f, -.0013922f, 6.3802e-6f, -7.3809e-4f, -1.1743e-6f,
+ 12520.f, 12530.f, .0040664f, .24183f, .0035636f, -2.8875e-6f, .0022372f,
+ -1.6411e-5f, 12530.f, 12540.f, .014346f, .3851f, 2.0035e-4f, 3.7739e-6f,
+ -6.1012e-5f, -7.988e-6f, 12540.f, 12550.f, .031841f, .37389f,
+ -.0014467f, -2.5515e-6f, -.0036219f, -9.456e-7f, 12550.f, 12560.f,
+ .014117f, .15375f, -.0027582f, 1.5847e-6f, -.0042341f, 5.2506e-6f,
+ 12560.f, 12570.f, .0069458f, .17261f, -.0018858f, -1.3771e-6f,
+ -.0038705f, 1.8317e-6f, 12570.f, 12580.f, .0034163f, .16476f,
+ -.0038874f, 8.9594e-6f, -.004751f, 6.5193e-6f, 12580.f, 12590.f,
+ .0010085f, .13402f, 8.9094e-4f, -6.018e-6f, -6.4581e-6f, -9.4409e-6f,
+ 12590.f, 12600.f, .017942f, .20327f, -.0039862f, 7.5053e-6f, -.0052785f,
+ 7.3576e-6f, 12600.f, 12610.f, .0080749f, .061138f, -.0049341f,
+ 7.5781e-6f, -.0072374f, 1.1499e-5f, 12610.f, 12620.f, .022511f, .21226f,
+ -.0034799f, 3.196e-6f, -.0050773f, 6.2716e-6f, 12620.f, 12630.f,
+ .0091364f, .16111f, -.0029375f, 2.6306e-7f, -.0049473f, 4.3965e-6f,
+ 12630.f, 12640.f, .014688f, .1553f, -.0020029f, -2.3192e-6f, -.0029945f,
+ -2.1575e-6f, 12640.f, 12650.f, .016309f, .20204f, 1.6988e-6f,
+ -1.109e-5f, -.0014702f, -9.9629e-6f, 12650.f, 12660.f, .028046f,
+ .24162f, 2.1643e-4f, -1.1209e-5f, -.0017491f, -8.904e-6f, 12660.f,
+ 12670.f, .011289f, .29319f, .0034128f, -2.3021e-5f, .0010846f,
+ -1.8419e-5f, 12670.f, 12680.f, .0049531f, .14498f, .0053073f,
+ -2.8791e-5f, .0032927f, -2.5157e-5f, 12680.f, 12690.f, .0072485f,
+ .17855f, .0056992f, -3.2465e-5f, .0041153f, -3.2129e-5f, 12690.f,
+ 12700.f, .0061604f, .2478f, .0073217f, -3.1129e-5f, .0058029f,
+ -3.2007e-5f, 12700.f, 12710.f, .0013393f, .12405f, .012672f,
+ -4.8102e-5f, .0088276f, -3.9342e-5f, 12710.f, 12720.f, .0010615f,
+ .14687f, .012203f, -5.0558e-5f, .01058f, -5.4423e-5f, 12720.f, 12730.f,
+ 4.7236e-4f, .080989f, .0036212f, 3.4855e-5f, .0023529f, 7.9526e-6f,
+ 12730.f, 12740.f
+ };
+
+ /* WATER VAPOR (10180 - 12720 CM-1) */
+ for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
+} /* wava4 */
+
+void
+wava3 (float a[8], const long int inu)
+{
+
+
+ static const float acr[2048] = { .092641f, .26739f,
+ .0074828f, -3.6295e-5f, .0065918f, -3.6255e-5f, 7620.f, 7630.f, .24311f,
+ .19859f, .0029686f, -1.983e-5f, .0023399f, -1.6807e-5f, 7630.f, 7640.f,
+ .12025f, .11463f, .005982f, -3.2695e-5f, .00555f, -2.817e-5f, 7640.f,
+ 7650.f, .13658f, .26836f, .0072502f, -2.1381e-5f, .0073061f,
+ -3.0405e-5f, 7650.f, 7660.f, .10472f, .25523f, .0079597f, -3.2676e-5f,
+ .0058214f, -3.1308e-5f, 7660.f, 7670.f, .099714f, .25003f, .012338f,
+ -5.6896e-5f, .010569f, -5.1734e-5f, 7670.f, 7680.f, .058366f, .22207f,
+ .011694f, -5.1427e-5f, .011909f, -4.905e-5f, 7680.f, 7690.f, .035387f,
+ .17329f, .016862f, -7.5246e-5f, .013502f, -6.3311e-5f, 7690.f, 7700.f,
+ .036568f, .21034f, .0081374f, -2.4226e-5f, .0063861f, -2.5253e-5f,
+ 7700.f, 7710.f, .027597f, .33962f, .017925f, -6.8929e-5f, .015283f,
+ -6.6807e-5f, 7710.f, 7720.f, .010316f, .41286f, .019917f, -4.8503e-5f,
+ .017007f, -5.8717e-5f, 7720.f, 7730.f, .0081553f, .2556f, .021997f,
+ -8.8437e-5f, .020546f, -8.5162e-5f, 7730.f, 7740.f, .015975f, .21315f,
+ .0071481f, 3.1142e-6f, .010474f, -1.3461e-5f, 7740.f, 7750.f, .013868f,
+ .24329f, .0094502f, -1.8614e-5f, .010702f, -3.4118e-5f, 7750.f, 7760.f,
+ .0077141f, .22964f, .011399f, -1.0108e-5f, .012776f, -3.7304e-5f,
+ 7760.f, 7770.f, .0021739f, .34321f, .019734f, -5.1909e-5f, .019414f,
+ -7.3442e-5f, 7770.f, 7780.f, .004572f, .18176f, .010354f, -1.7399e-5f,
+ .010948f, -3.5358e-5f, 7780.f, 7790.f, .0011295f, .18695f, .014646f,
+ 4.036e-5f, .015891f, -2.0174e-5f, 7790.f, 7800.f, .0033023f, .15293f,
+ .013409f, -5.3371e-5f, .011569f, -4.7548e-5f, 7800.f, 7810.f, .0052016f,
+ .24404f, .012628f, -3.6541e-5f, .01295f, -3.8949e-5f, 7810.f, 7820.f,
+ 1.133e-4f, .081552f, .01837f, -7.7312e-5f, .014695f, -7.0503e-5f,
+ 7820.f, 7830.f, .0054995f, .14297f, .0065566f, -2.675e-5f, .0045262f,
+ -2.0113e-5f, 7830.f, 7840.f, 3.1204e-4f, .10156f, .0088239f,
+ -3.8012e-5f, .0082963f, -3.4068e-5f, 7840.f, 7850.f, .0019523f, .20697f,
+ .02048f, -6.0781e-5f, .018775f, -6.9708e-5f, 7850.f, 7860.f, .0024757f,
+ .09698f, .011294f, -4.651e-5f, .0098378f, -4.2459e-5f, 7860.f, 7870.f,
+ 2.7171e-4f, .14226f, .017805f, -6.9496e-5f, .015097f, -7.0161e-5f,
+ 7870.f, 7880.f, .0012276f, .10591f, .014194f, -5.4065e-5f, .010612f,
+ -5.2507e-5f, 7880.f, 7890.f, 4.1923e-4f, .13358f, .01696f, -4.4025e-5f,
+ .015096f, -5.8421e-5f, 7890.f, 7900.f, 3.3444e-4f, .13345f, .011391f,
+ -1.184e-6f, .012153f, -2.3277e-5f, 7900.f, 7910.f, .0013058f, .21624f,
+ .016927f, -6.9213e-5f, .013941f, -6.3876e-5f, 7910.f, 7920.f,
+ 1.1995e-4f, .075585f, .013632f, -4.0157e-5f, .013768f, -5.0661e-5f,
+ 7920.f, 7930.f, .0011716f, .18257f, .013971f, -5.1254e-5f, .012846f,
+ -5.6651e-5f, 7930.f, 7940.f, 5.052e-4f, .076356f, .012922f, -2.0119e-5f,
+ .013988f, -4.2851e-5f, 7940.f, 7950.f, 2.4426e-4f, .1253f, .010339f,
+ -4.3784e-6f, .010719f, -3.665e-5f, 7950.f, 7960.f, 5.414e-4f, .072313f,
+ .019259f, -8.565e-5f, .01592f, -7.9109e-5f, 7960.f, 7970.f, 7.6374e-4f,
+ .068718f, .018517f, -6.7616e-5f, .016394f, -7.3663e-5f, 7970.f, 7980.f,
+ 2.5606e-4f, .077067f, .016494f, -7.5101e-5f, .01272f, -6.6656e-5f,
+ 7980.f, 7990.f, 1.5654e-4f, .11158f, .010695f, -4.0866e-5f, .0081416f,
+ -4.363e-5f, 7990.f, 8e3f, 4.1929e-5f, .090036f, .024363f, -1.0641e-4f,
+ .021621f, -1.0231e-4f, 8e3f, 8010.f, 7.3175e-4f, .10587f, .016949f,
+ -6.039e-5f, .015862f, -7.1742e-5f, 8010.f, 8020.f, 8.008e-5f, .030563f,
+ .019843f, -9.1766e-5f, .017086f, -8.6214e-5f, 8020.f, 8030.f,
+ 2.4279e-5f, .056812f, .022624f, -9.9621e-5f, .020301f, -9.7332e-5f,
+ 8030.f, 8040.f, 1.8866e-5f, .052834f, .012394f, -4.4016e-5f, .0093994f,
+ -4.6495e-5f, 8040.f, 8050.f, 9.7669e-4f, .089736f, .0062407f,
+ -2.5133e-5f, .005852f, -2.556e-5f, 8050.f, 8060.f, .0011471f, .029409f,
+ .02069f, -9.511e-5f, .018237f, -9.0575e-5f, 8060.f, 8070.f, 7.7566e-4f,
+ .12509f, .012079f, -5.088e-5f, .010725f, -5.2092e-5f, 8070.f, 8080.f,
+ .003103f, .073291f, .016462f, -7.3991e-5f, .015208f, -6.8516e-5f,
+ 8080.f, 8090.f, .001251f, .11933f, .014229f, -6.2251e-5f, .011779f,
+ -6.099e-5f, 8090.f, 8100.f, .001499f, .13662f, .0065894f, -8.557e-6f,
+ .0083512f, -1.9086e-5f, 8100.f, 8110.f, .0020532f, .10298f, .015994f,
+ -6.5137e-5f, .014131f, -6.2564e-5f, 8110.f, 8120.f, .0017448f, .067598f,
+ .014749f, -6.293e-5f, .013541f, -5.9773e-5f, 8120.f, 8130.f, .0015039f,
+ .12946f, .018816f, -5.0022e-5f, .017492f, -5.9638e-5f, 8130.f, 8140.f,
+ .0046638f, .1035f, .0062829f, -3.4218e-5f, .0036814f, -2.5761e-5f,
+ 8140.f, 8150.f, .0010319f, .066367f, .0071775f, -2.8782e-5f, .010631f,
+ -2.023e-5f, 8150.f, 8160.f, .0046436f, .096269f, .015527f, -6.1225e-5f,
+ .015071f, -6.3728e-5f, 8160.f, 8170.f, .0057048f, .15352f, .0032127f,
+ -1.6432e-5f, .0035091f, -1.2277e-5f, 8170.f, 8180.f, .011525f, .15916f,
+ .0083892f, -1.0637e-5f, .0067801f, -2.5386e-5f, 8180.f, 8190.f,
+ .0074791f, .18295f, .0048041f, -2.0748e-5f, .0044988f, -1.7162e-5f,
+ 8190.f, 8200.f, .011502f, .15897f, .0099626f, -1.7036e-5f, .010154f,
+ -3.5251e-5f, 8200.f, 8210.f, .032694f, .12981f, .0016557f, 1.4661e-5f,
+ .0035153f, 1.0696e-6f, 8210.f, 8220.f, .007492f, .12913f, .0071536f,
+ -2.9018e-5f, .0069835f, -3.3541e-5f, 8220.f, 8230.f, .047072f, .21294f,
+ .0094858f, -4.2608e-5f, .0075764f, -3.9014e-5f, 8230.f, 8240.f,
+ .017525f, .16065f, .0024969f, -1.0727e-6f, .0020059f, -5.349e-6f,
+ 8240.f, 8250.f, .057547f, .16256f, .0053651f, -3.1796e-5f, .0032968f,
+ -2.8841e-5f, 8250.f, 8260.f, .043086f, .11299f, .0044958f, -2.4017e-5f,
+ .0036046f, -2.0674e-5f, 8260.f, 8270.f, .10051f, .15621f, .0034824f,
+ -2.1289e-5f, .0019497f, -2.0952e-5f, 8270.f, 8280.f, .073404f, .16218f,
+ .0017977f, -1.3976e-5f, 1.5476e-4f, -6.5472e-6f, 8280.f, 8290.f,
+ .08523f, .11256f, 2.9553e-4f, -9.9833e-6f, -1.2813e-4f, -4.6912e-6f,
+ 8290.f, 8300.f, .1818f, .19506f, -.0018708f, -2.1763e-6f, -.0027279f,
+ 2.3065e-6f, 8300.f, 8310.f, .030278f, .1674f, .0055443f, -2.3707e-5f,
+ .0051615f, -2.3428e-5f, 8310.f, 8320.f, .11462f, .20492f, -.0010659f,
+ -9.4245e-7f, -.0022118f, 4.2668e-6f, 8320.f, 8330.f, .099231f, .19833f,
+ -3.5775e-4f, -3.838e-6f, -.0025607f, -3.6304e-7f, 8330.f, 8340.f,
+ .099199f, .18538f, -.0023017f, 6.6528e-6f, -.0023339f, 6.1821e-6f,
+ 8340.f, 8350.f, .059379f, .077001f, -.004912f, 1.4256e-5f, -.0025954f,
+ 3.0037e-5f, 8350.f, 8360.f, .044008f, .20401f, .0014099f, -5.1535e-6f,
+ .0019118f, -1.6011e-6f, 8360.f, 8370.f, .090539f, .08076f, -.0035383f,
+ 1.3223e-5f, -.0028138f, 1.3001e-5f, 8370.f, 8380.f, .014326f, .1809f,
+ .0059988f, 7.331e-7f, .0076689f, -1.7035e-5f, 8380.f, 8390.f, .046664f,
+ .1734f, -8.7294e-4f, 1.0561e-5f, 3.1024e-4f, 2.7678e-6f, 8390.f, 8400.f,
+ .10171f, .16186f, -.0017894f, -2.8284e-6f, -.0040067f, -1.4559e-7f,
+ 8400.f, 8410.f, .30821f, .25107f, -.0032854f, 5.8502e-6f, -.0036961f,
+ 9.3802e-6f, 8410.f, 8420.f, .063199f, .24205f, -.0011158f, 3.7207e-6f,
+ -.0013624f, 5.0058e-6f, 8420.f, 8430.f, .099053f, .16171f, -.0031354f,
+ 1.4107e-5f, -4.1612e-4f, 9.0938e-6f, 8430.f, 8440.f, .18961f, .16575f,
+ -.0036207f, 4.9966e-6f, -.0041916f, 8.2034e-6f, 8440.f, 8450.f, .17725f,
+ .21239f, -7.7569e-4f, -2.0023e-6f, -4.9558e-4f, -5.1555e-6f, 8450.f,
+ 8460.f, .27753f, .33354f, 9.0668e-4f, -7.5987e-6f, 1.7804e-4f,
+ -6.4173e-6f, 8460.f, 8470.f, .14123f, .13127f, -1.2234e-4f, -8.3078e-6f,
+ -4.417e-4f, -4.4651e-6f, 8470.f, 8480.f, .093615f, .12378f, -.0022473f,
+ 6.446e-6f, -.0023144f, 2.1685e-5f, 8480.f, 8490.f, .20449f, .23918f,
+ .0011176f, -3.6761e-6f, .0018f, -5.0232e-6f, 8490.f, 8500.f, .089489f,
+ .16701f, .0039531f, -6.6471e-6f, .0051864f, 4.9471e-6f, 8500.f, 8510.f,
+ .23406f, .40842f, .0043192f, -1.5846e-5f, .0044314f, -2.3087e-5f,
+ 8510.f, 8520.f, .14482f, .32325f, .0041937f, 5.6608e-6f, .0044945f,
+ 3.2348e-7f, 8520.f, 8530.f, .064432f, .26897f, .0065578f, -1.2568e-5f,
+ .007607f, -2.0405e-5f, 8530.f, 8540.f, .057924f, .33321f, .0091543f,
+ 9.8398e-6f, .0086335f, -1.8156e-5f, 8540.f, 8550.f, .10794f, .40047f,
+ .010231f, 1.2947e-5f, .010777f, -2.3286e-5f, 8550.f, 8560.f, .081479f,
+ .27006f, .010378f, -1.4458e-5f, .0096133f, -3.1676e-5f, 8560.f, 8570.f,
+ .21551f, .37486f, .015271f, -4.3087e-5f, .011958f, -4.878e-5f, 8570.f,
+ 8580.f, .1197f, .42176f, .011436f, -2.7559e-5f, .012343f, -4.8358e-5f,
+ 8580.f, 8590.f, .1194f, .26383f, .017025f, -6.3908e-5f, .012895f,
+ -5.3752e-5f, 8590.f, 8600.f, .35022f, .24839f, .015312f, -6.7204e-5f,
+ .011349f, -5.723e-5f, 8600.f, 8610.f, .43429f, .32749f, .014111f,
+ -6.1858e-5f, .0111f, -5.2145e-5f, 8610.f, 8620.f, .649f, .17775f,
+ .012005f, -5.7105e-5f, .0091759f, -4.5878e-5f, 8620.f, 8630.f, .62583f,
+ .2559f, .011761f, -5.603e-5f, .0090211f, -4.8934e-5f, 8630.f, 8640.f,
+ .3575f, .36475f, .010308f, -4.3411e-5f, .0088328f, -3.9083e-5f, 8640.f,
+ 8650.f, 1.1133f, .13506f, .0080358f, -4.3334e-5f, .0068137f,
+ -3.9624e-5f, 8650.f, 8660.f, 1.3387f, .31665f, .0078192f, -3.8805e-5f,
+ .0049558f, -3.3187e-5f, 8660.f, 8670.f, 2.7498f, .16946f, .0049939f,
+ -3.0487e-5f, .0031261f, -2.5786e-5f, 8670.f, 8680.f, 2.4398f, .19531f,
+ .0044402f, -2.9193e-5f, .0022819f, -2.5054e-5f, 8680.f, 8690.f, 3.0993f,
+ .19328f, .0022645f, -1.9507e-5f, 5.743e-4f, -1.6236e-5f, 8690.f, 8700.f,
+ 1.2713f, .17117f, .0010656f, -1.5353e-5f, -6.2313e-4f, -8.8734e-6f,
+ 8700.f, 8710.f, 3.1649f, .17696f, .0010942f, -1.5108e-5f, -8.8648e-4f,
+ -8.7401e-6f, 8710.f, 8720.f, 3.1075f, .11851f, -9.4639e-5f, -9.2083e-6f,
+ -3.6777e-4f, -6.4753e-6f, 8720.f, 8730.f, 7.0407f, .19201f, -.0021209f,
+ -3.6303e-6f, -.0046941f, 1.0611e-6f, 8730.f, 8740.f, 1.2454f, .17319f,
+ -.0019955f, -1.4314e-6f, -.0021532f, -5.8242e-7f, 8740.f, 8750.f,
+ .83443f, .1489f, -.0031702f, 3.926e-6f, -.0022958f, 3.8306e-6f, 8750.f,
+ 8760.f, 3.6918f, .11215f, -.0041869f, 4.6517e-6f, -.0065413f,
+ 1.1815e-5f, 8760.f, 8770.f, .93114f, .16247f, 8.6756e-4f, -4.9431e-6f,
+ 6.7174e-4f, -4.722e-6f, 8770.f, 8780.f, 2.5247f, .085808f, -.004835f,
+ 9.227e-6f, -.0060959f, 1.2095e-5f, 8780.f, 8790.f, .53387f, .20115f,
+ -.0016551f, 7.1592e-6f, -5.3003e-4f, 9.888e-7f, 8790.f, 8800.f, 6.6475f,
+ .28681f, -.0018744f, 3.5629e-6f, -.0015672f, 2.949e-6f, 8800.f, 8810.f,
+ 13.449f, .46562f, .0010817f, -8.1158e-6f, 4.4146e-4f, -9.6568e-6f,
+ 8810.f, 8820.f, 2.3072f, .29228f, .0018897f, 4.5344e-6f, .0023839f,
+ -8.7201e-6f, 8820.f, 8830.f, .38221f, .2037f, 4.9695e-4f, 6.5162e-6f,
+ .0021768f, 3.2622e-6f, 8830.f, 8840.f, 1.1249f, .14056f, -.0038223f,
+ 1.6534e-5f, 2.8673e-4f, 1.9579e-5f, 8840.f, 8850.f, 4.8272f, .098788f,
+ -.005013f, 9.0675e-6f, -.005665f, 1.3142e-5f, 8850.f, 8860.f, 7.562f,
+ .14568f, -.0043638f, 5.3176e-6f, -.0063322f, 1.074e-5f, 8860.f, 8870.f,
+ 2.4448f, .13155f, -.002417f, -2.7983e-7f, -.0034547f, 3.4138e-6f,
+ 8870.f, 8880.f, 8.0582f, .19292f, -.0028534f, -8.0358e-7f, -.0051566f,
+ 3.9531e-6f, 8880.f, 8890.f, 5.7451f, .18168f, -5.0148e-4f, -9.5111e-6f,
+ -.0019306f, -6.0172e-6f, 8890.f, 8900.f, 7.0547f, .19464f, -.0010049f,
+ -7.4656e-6f, -.0025268f, -4.3122e-6f, 8900.f, 8910.f, 5.4039f, .15719f,
+ .0016933f, -1.8412e-5f, 5.6219e-4f, -1.6145e-5f, 8910.f, 8920.f,
+ 3.5653f, .19909f, .0033052f, -2.2923e-5f, 5.191e-4f, -1.4385e-5f,
+ 8920.f, 8930.f, 2.9405f, .30828f, .0050674f, -2.9116e-5f, .0027789f,
+ -2.3443e-5f, 8930.f, 8940.f, 1.9927f, .15337f, .0040525f, -2.4922e-5f,
+ .0021726f, -1.8937e-5f, 8940.f, 8950.f, 3.1994f, .39446f, .0066249f,
+ -3.4407e-5f, .0041704f, -2.98e-5f, 8950.f, 8960.f, 1.0124f, .3051f,
+ .0095861f, -4.26e-5f, .007142f, -3.9564e-5f, 8960.f, 8970.f, .55494f,
+ .31765f, .012349f, -5.0981e-5f, .0084323f, -3.9712e-5f, 8970.f, 8980.f,
+ .62962f, .34745f, .0068325f, -6.7823e-6f, .006612f, -2.2655e-5f, 8980.f,
+ 8990.f, .39155f, .17506f, .014525f, -6.4228e-5f, .012836f, -5.854e-5f,
+ 8990.f, 9e3f, .29338f, .19531f, .014921f, -5.7995e-5f, .012214f,
+ -4.6413e-5f, 9e3f, 9010.f, .117f, .34769f, .013815f, -1.4315e-5f,
+ .011336f, -3.2553e-5f, 9010.f, 9020.f, .16223f, .35064f, .0089364f,
+ 2.1825e-5f, .010979f, -2.503e-5f, 9020.f, 9030.f, .021742f, .25837f,
+ .021279f, -6.9818e-5f, .017662f, -6.8568e-5f, 9030.f, 9040.f, .056078f,
+ .27822f, .012493f, 1.8431e-5f, .013824f, -2.7676e-5f, 9040.f, 9050.f,
+ .050045f, .24927f, .0025877f, 4.5316e-5f, .0058234f, 9.7906e-6f, 9050.f,
+ 9060.f, .074041f, .1688f, .0031016f, -1.2901e-5f, .0031503f,
+ -9.5272e-6f, 9060.f, 9070.f, .035788f, .25671f, .0055742f, -3.3952e-6f,
+ .0067343f, -9.7505e-6f, 9070.f, 9080.f, .057922f, .23584f, .0022587f,
+ -9.2537e-6f, .0015239f, -7.0447e-6f, 9080.f, 9090.f, .033597f, .22977f,
+ .0030824f, -1.1293e-5f, .0033924f, -5.6695e-6f, 9090.f, 9100.f,
+ .070807f, .38398f, .0033167f, -8.2422e-6f, .002352f, -1.7904e-5f,
+ 9100.f, 9110.f, .007025f, .18707f, .008814f, -2.739e-5f, .008404f,
+ -2.9932e-5f, 9110.f, 9120.f, .069936f, .25325f, .0019174f, -1.1175e-5f,
+ .001279f, -1.4168e-5f, 9120.f, 9130.f, .052387f, .30346f, 9.3076e-4f,
+ 5.2452e-6f, .0021985f, -1.2943e-5f, 9130.f, 9140.f, .015639f, .086845f,
+ .0072697f, -3.4455e-5f, .0051914f, -3.2991e-5f, 9140.f, 9150.f,
+ .091802f, .17031f, -5.4142e-4f, 2.9713e-6f, -.0010743f, -2.3472e-6f,
+ 9150.f, 9160.f, .011168f, .099076f, .005622f, -3.0231e-5f, .0047197f,
+ -2.3663e-5f, 9160.f, 9170.f, .048371f, .1417f, -5.9903e-4f, -4.5058e-6f,
+ -.0011328f, 9.448e-7f, 9170.f, 9180.f, .018874f, .15366f, .0042614f,
+ -2.6279e-5f, 8.9656e-4f, -2.0193e-5f, 9180.f, 9190.f, .016112f, .12245f,
+ .0061155f, -3.4764e-5f, .0039418f, -3.163e-5f, 9190.f, 9200.f, .065149f,
+ .14651f, .0013623f, -1.4483e-5f, 1.0964e-5f, -1.1796e-5f, 9200.f,
+ 9210.f, .011149f, .21185f, .0041991f, -1.3718e-5f, .0030892f,
+ -2.0781e-5f, 9210.f, 9220.f, .031171f, .12753f, .0045967f, -2.5041e-5f,
+ .0038974f, -2.7102e-5f, 9220.f, 9230.f, 4.0823e-4f, .030563f, .0247f,
+ -1.1119e-4f, .021942f, -1.0564e-4f, 9230.f, 9240.f, .012977f, .16914f,
+ .0055548f, -2.5826e-5f, .0033619f, -2.2004e-5f, 9240.f, 9250.f,
+ .020816f, .10896f, .0066122f, -3.4731e-5f, .0052212f, -3.4187e-5f,
+ 9250.f, 9260.f, .0030262f, .11279f, .010901f, -5.2842e-5f, .0086449f,
+ -4.5417e-5f, 9260.f, 9270.f, .0033673f, .11423f, .010899f, -3.4157e-5f,
+ .0080866f, -3.8803e-5f, 9270.f, 9280.f, .017536f, .16659f, .0083759f,
+ -4.46e-5f, .005112f, -3.6571e-5f, 9280.f, 9290.f, 8.1624e-4f, .16081f,
+ .015916f, -6.3848e-5f, .013156f, -6.3084e-5f, 9290.f, 9300.f, .011313f,
+ .13057f, .011852f, -5.8953e-5f, .0088407f, -5.1297e-5f, 9300.f, 9310.f,
+ .0015081f, .069261f, .0041982f, -7.5358e-6f, .0057185f, -1.6686e-5f,
+ 9310.f, 9320.f, .0045702f, .1342f, .013143f, -5.4394e-5f, .01017f,
+ -5.2848e-5f, 9320.f, 9330.f, 7.5901e-4f, .16485f, .017789f, -4.1657e-5f,
+ .014232f, -5.1704e-5f, 9330.f, 9340.f, .0023315f, .14437f, .015924f,
+ -7.3095e-5f, .012997f, -6.7546e-5f, 9340.f, 9350.f, .0024761f, .13342f,
+ .017367f, -6.5679e-5f, .014468f, -6.2866e-5f, 9350.f, 9360.f, .0011255f,
+ .11586f, .016217f, -5.9242e-5f, .013009f, -5.7135e-5f, 9360.f, 9370.f,
+ 4.6631e-4f, .031553f, .0231f, -1.0479e-4f, .020342f, -9.924e-5f, 9370.f,
+ 9380.f, 5.8334e-4f, .14333f, .014779f, -4.7773e-5f, .011406f,
+ -5.2169e-5f, 9380.f, 9390.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9390.f, 9400.f,
+ 4.6492e-4f, .064777f, .012413f, -2.9282e-5f, .013774f, -4.9601e-5f,
+ 9400.f, 9410.f, 4.0085e-4f, .030483f, .010823f, -5.5684e-5f, .0080667f,
+ -5.0135e-5f, 9410.f, 9420.f, 6.5363e-5f, .053752f, .0231f, -1.0479e-4f,
+ .020342f, -9.924e-5f, 9420.f, 9430.f, 2.4119e-5f, .027609f, .03515f,
+ -1.5299e-4f, .032393f, -1.4744e-4f, 9430.f, 9440.f, 1.3718e-4f, .04682f,
+ .01614f, -5.2767e-5f, .016119f, -6.7234e-5f, 9440.f, 9450.f, 5.534e-5f,
+ .046161f, .016226f, -4.5595e-5f, .015446f, -5.9474e-5f, 9450.f, 9460.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9460.f, 9470.f, 5.7428e-5f, .063455f,
+ .017377f, -4.729e-5f, .016614f, -6.2421e-5f, 9470.f, 9480.f, 3.8406e-5f,
+ .031771f, .0046608f, -3.1037e-5f, .0019036f, -2.5485e-5f, 9480.f,
+ 9490.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9490.f, 9500.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 9500.f, 9510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9510.f, 9520.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 9520.f, 9530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9530.f,
+ 9540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9540.f, 9550.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 9550.f, 9560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9560.f, 9570.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 9570.f, 9580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9580.f,
+ 9590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9590.f, 9600.f, 2.4903e-5f,
+ .024969f,
+ .025759f, -1.1543e-4f, .023002f, -1.0988e-4f, 9600.f, 9610.f,
+ 4.8976e-5f, .034814f, .004643f, -3.0966e-5f, .0018858f, -2.5414e-5f,
+ 9610.f, 9620.f, 6.6257e-5f, .052528f, .020662f, -9.5042e-5f, .017905f,
+ -8.949e-5f, 9620.f, 9630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9630.f, 9640.f,
+
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9640.f, 9650.f, 1.9405e-4f, .0908f,
+ .012893f,
+ -4.7907e-5f, .008999f, -4.3597e-5f, 9650.f, 9660.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f, 0.f, 9660.f, 9670.f, 3.5455e-4f, .062906f, .01178f, -5.9514e-5f,
+ .0090225f, -5.3961e-5f, 9670.f, 9680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 9680.f, 9690.f, 7.3346e-4f, .095357f, .0080776f, -3.5126e-5f, .0063761f,
+ -3.2075e-5f, 9690.f, 9700.f, 2.6888e-4f, .062321f, .01172f, -5.6759e-5f,
+ .0098726f, -5.5238e-5f, 9700.f, 9710.f, 4.8999e-4f, .10498f, .0062757f,
+ -3.2864e-5f, .0049464f, -3.2626e-5f, 9710.f, 9720.f, .0010507f,
+ .071841f, .0058574f, -3.2015e-5f, .0039666f, -3.1106e-5f, 9720.f,
+ 9730.f, .0025494f, .10376f, .0030444f, -2.0413e-5f, .0012384f,
+ -1.8532e-5f, 9730.f, 9740.f, .0013019f, .13387f, .0019451f, -1.3612e-5f,
+ -8.9213e-6f, -1.3158e-5f, 9740.f, 9750.f, 6.2353e-4f, .078233f,
+ 7.0756e-4f, -1.519e-5f, -.0020739f, -9.6993e-6f, 9750.f, 9760.f,
+ .0056535f, .1971f, 1.6071e-4f, -5.7489e-6f, -.0014878f, -4.8238e-6f,
+ 9760.f, 9770.f, .001909f, .041123f, -.0019069f, -4.7662e-6f, -.004664f,
+ 7.8558e-7f, 9770.f, 9780.f, .0017619f, .13162f, -.0022639f, 7.7041e-7f,
+ -.0049756f, 4.3744e-6f, 9780.f, 9790.f, 5.7144e-4f, .099432f, .0040501f,
+ -1.5471e-5f, .0018591f, -1.7658e-5f, 9790.f, 9800.f, .0038209f, .13329f,
+ -.0046298f, 6.3691e-6f, -.0077028f, 1.2343e-5f, 9800.f, 9810.f,
+ .0017147f, .079407f, 4.5502e-4f, -1.3444e-5f, -.0030355f, -5.7728e-6f,
+ 9810.f, 9820.f, .0012145f, .072418f, 2.5064e-4f, -5.9535e-6f,
+ 3.3766e-6f, -6.2695e-6f, 9820.f, 9830.f, .0011057f, .13614f, .0018444f,
+ -3.817e-6f, -6.6263e-4f, -6.1358e-6f, 9830.f, 9840.f, .0021971f,
+ .053016f, -.0048189f, 9.7527e-6f, -.0060279f, 1.7406e-5f, 9840.f,
+ 9850.f, .0019933f, .17956f, -.0010152f, 7.3537e-6f, -.0033437f,
+ 4.3246e-6f, 9850.f, 9860.f, 8.7206e-4f, .047547f, -.0041578f,
+ 4.2375e-6f, -.007361f, 1.0687e-5f, 9860.f, 9870.f, .0029909f, .069285f,
+ -.0047147f, 1.0991e-5f, -.0056075f, 1.5292e-5f, 9870.f, 9880.f,
+ .001506f, .17429f, .003529f, -1.5241e-5f, 9.8555e-4f, -1.3485e-5f,
+ 9880.f, 9890.f, .0024655f, .15187f, -9.6328e-4f, 3.0116e-6f, -.002379f,
+ 6.199e-6f, 9890.f, 9900.f, .0081762f, .23349f, -.0033911f, 1.8786e-6f,
+ -.0060119f, 6.563e-6f, 9900.f, 9910.f, .0035952f, .09571f, -.002565f,
+ 6.9268e-6f, -.0025302f, 8.7846e-6f, 9910.f, 9920.f, .004102f, .16571f,
+ -8.2348e-4f, 4.4729e-6f, 5.0555e-5f, -1.3431e-6f, 9920.f, 9930.f,
+ .0015616f, .12559f, -.001712f, 9.5737e-7f, -.002329f, 2.8914e-6f,
+ 9930.f, 9940.f, .0029147f, .1397f, .0017969f, -5.9773e-6f, .0040034f,
+ -1.6529e-5f, 9940.f, 9950.f, .0021013f, .0985f, .0026194f, -1.629e-5f,
+ .0026829f, -1.8333e-5f, 9950.f, 9960.f, .0025118f, .078548f, -.0011652f,
+ -3.1932e-6f, -.0017647f, -3.6546e-6f, 9960.f, 9970.f, .0054922f,
+ .27847f, .0022288f, -6.2983e-6f, .0011941f, -9.9545e-6f, 9970.f, 9980.f,
+ .0077074f, .24403f, .0023234f, -1.7376e-5f, 9.1247e-4f, -1.6357e-5f,
+ 9980.f, 9990.f, .0015919f, .17498f, .004876f, -1.537e-5f, .0030207f,
+ -2.2305e-5f, 9990.f, 1e4f, .0023052f, .12024f, .0026434f, 3.4883e-6f,
+ .0053038f, -7.4735e-6f, 1e4f, 10010.f, 9.9075e-4f, .060379f, .0048519f,
+ -2.4596e-5f, .0039231f, -2.671e-5f, 10010.f, 10020.f, .0026106f,
+ .15994f, .0057076f, -1.5791e-5f, .0063216f, -2.8717e-5f, 10020.f,
+ 10030.f, 9.0384e-4f, .21421f, .0073532f, -1.3113e-6f, .009333f,
+ -1.9232e-5f, 10030.f, 10040.f, .0020888f, .22211f, .0093854f,
+ -1.1006e-5f, .0077851f, -1.8919e-5f, 10040.f, 10050.f, .0010096f,
+ .093543f, .0051826f, -2.8108e-5f, .0041051f, -2.3759e-5f, 10050.f,
+ 10060.f, .0022561f, .25885f, .013532f, -1.4879e-5f, .011628f,
+ -3.4287e-5f, 10060.f, 10070.f, .0077191f, .28721f, .0097888f,
+ -1.1073e-5f, .008539f, -2.4771e-5f, 10070.f, 10080.f, .0034195f,
+ .20647f, .0074823f, -2.1978e-5f, .007444f, -2.4751e-5f, 10080.f,
+ 10090.f, .0063694f, .19871f, .011877f, -3.28e-5f, .009567f, -3.9672e-5f,
+ 10090.f, 10100.f, .0063072f, .3731f, .0047744f, 2.8648e-5f, .006887f,
+ -8.4982e-6f, 10100.f, 10110.f, .0010617f, .15783f, .019027f,
+ -3.7386e-5f, .017346f, -6.0605e-5f, 10110.f, 10120.f, .016376f, .34661f,
+ .014148f, -4.8223e-5f, .010187f, -4.3401e-5f, 10120.f, 10130.f,
+ .0077156f, .39174f, .0071212f, 8.3584e-6f, .0074196f, -2.0778e-5f,
+ 10130.f, 10140.f, .0081991f, .34376f, .010657f, -2.049e-5f, .009186f,
+ -3.4657e-5f, 10140.f, 10150.f, .045748f, .35631f, .011031f, -4.1938e-5f,
+ .0079877f, -3.3077e-5f, 10150.f, 10160.f, .026803f, .2161f, .011739f,
+ -5.3624e-5f, .010169f, -5.0362e-5f, 10160.f, 10170.f, .061462f, .24685f,
+ .008227f, -3.1656e-5f, .0077778f, -3.1665e-5f, 10170.f, 10180.f
+ };
+
+ /* WATER VAPOR (7620 - 10160 CM-1) */
+ for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
+} /* wava3 */
+
+void
+wava2 (float a[8], const long int inu)
+{
+
+
+ static const float acr[2048] = { .32591f, .48473f,
+ .010062f, 1.8245e-5f, .01189f, -1.2621e-5f, 5060.f, 5070.f, .73059f,
+ .13181f, .010626f, 7.3795e-6f, .011376f, -1.7764e-5f, 5070.f, 5080.f,
+ .39211f, .39522f, .01459f, -6.8376e-6f, .016326f, -3.165e-5f, 5080.f,
+ 5090.f, 2.3255f, .26901f, .0092468f, 6.3821e-6f, .0083396f, -1.2628e-5f,
+ 5090.f, 5100.f, 1.9706f, .34245f, .0056073f, -9.4265e-8f, .0059986f,
+ -1.0398e-5f, 5100.f, 5110.f, 2.8938f, .22738f, .022463f, -9.7912e-5f,
+ .021063f, -8.8497e-5f, 5110.f, 5120.f, 1.1454f, .40811f, .0089642f,
+ -5.1753e-6f, .0089863f, -1.9479e-5f, 5120.f, 5130.f, 2.92f, .33384f,
+ .014298f, -3.2571e-5f, .012431f, -3.5993e-5f, 5130.f, 5140.f, 6.318f,
+ .28323f, .0099085f, -1.94e-5f, .0060737f, -1.671e-5f, 5140.f, 5150.f,
+ 14.918f, .41681f, .012935f, -5.2738e-5f, .010041f, -4.0263e-5f, 5150.f,
+ 5160.f, 10.19f, .13237f, .011091f, -4.8728e-5f, .0081335f, -2.7045e-5f,
+ 5160.f, 5170.f, 14.437f, .36156f, .0094685f, -3.4308e-5f, .0067537f,
+ -2.4477e-5f, 5170.f, 5180.f, 34.792f, .30287f, .0073719f, -3.7632e-5f,
+ .0051901f, -2.8247e-5f, 5180.f, 5190.f, 21.869f, .22075f, .0069763f,
+ -3.1715e-5f, .0041088f, -1.7042e-5f, 5190.f, 5200.f, 94.938f, .25888f,
+ .0046429f, -2.8823e-5f, .0034889f, -2.3494e-5f, 5200.f, 5210.f, 18.298f,
+ .20311f, .0050431f, -2.4681e-5f, .0028469f, -1.707e-5f, 5210.f, 5220.f,
+ 69.538f, .19126f, .002196f, -2.0268e-5f, 6.875e-4f, -1.7413e-5f, 5220.f,
+ 5230.f, 40.772f, .23521f, .0018896f, -1.692e-5f, 5.9126e-4f,
+ -1.3609e-5f, 5230.f, 5240.f, 131.08f, .17928f, 1.5657e-4f, -1.2114e-5f,
+ -.0017405f, -8.3108e-6f, 5240.f, 5250.f, 69.597f, .10896f, -.0015337f,
+
+ -4.7461e-6f, -.0027082f, -1.5598e-6f, 5250.f, 5260.f, 153.51f, .20025f,
+ -.0022803f, -2.9253e-6f, -.004398f, 2.8697e-6f, 5260.f, 5270.f, 2.6114f,
+ .24878f, -8.2927e-4f, 4.6226e-6f, -1.1922e-4f, 1.0717e-5f, 5270.f,
+ 5280.f, 48.681f, .175f, -.0037857f, 4.6902e-6f, -.0036353f, 1.1426e-5f,
+ 5280.f, 5290.f, 77.56f, .13557f, -.0037228f, 3.6212e-6f, -.0041326f,
+ 1.5278e-5f, 5290.f, 5300.f, 60.444f, .1151f, -.0047324f, 1.0254e-5f,
+ -.0036821f, 1.4636e-5f, 5300.f, 5310.f, 15.328f, .19998f, -.0012681f,
+ 2.9898e-6f, -4.683e-4f, 2.0999e-6f, 5310.f, 5320.f, 87.54f, .16972f,
+ -.0041972f, 7.1961e-6f, -.0037508f, 7.0298e-6f, 5320.f, 5330.f, 195.61f,
+ .26284f, -.0023874f, -2.1407e-7f, -.0037245f, 4.6625e-6f, 5330.f,
+ 5340.f, 168.41f, .26546f, 2.4931e-4f, -9.4775e-6f, -.0016338f,
+ -6.291e-6f, 5340.f, 5350.f, 93.921f, .31129f, .0028343f, -7.1173e-6f,
+ .0026325f, -1.1816e-5f, 5350.f, 5360.f, 25.579f, .36877f, .0072262f,
+ -1.5821e-5f, .0060257f, -2.1996e-5f, 5360.f, 5370.f, 137.79f, .17089f,
+ -.004665f, 1.3962e-5f, -.002641f, 1.792e-5f, 5370.f, 5380.f, 84.199f,
+ .12293f, -.0039643f, 9.7938e-6f, -.0017023f, 1.5901e-5f, 5380.f, 5390.f,
+ 140.72f, .10478f, -.0041237f, 5.0169e-6f, -.0043789f, 1.7244e-5f,
+ 5390.f, 5400.f, 56.622f, .23084f, -.0025409f, -2.9811e-7f, -.0027639f,
+ 7.6091e-6f, 5400.f, 5410.f, 185.34f, .21363f, -.0028691f, -4.4392e-7f,
+ -.0042358f, 6.6265e-6f, 5410.f, 5420.f, 96.955f, .12223f, -5.2081e-4f,
+ -9.6057e-6f, -.0016418f, -1.9789e-6f, 5420.f, 5430.f, 117.89f, .13571f,
+ -.0014763f, -5.7081e-6f, -.0024763f, -1.7817e-7f, 5430.f, 5440.f,
+ 191.02f, .24199f, 6.976e-4f, -1.4228e-5f, -.001445f, -7.5253e-6f,
+ 5440.f, 5450.f, 22.138f, .14268f, .0012465f, -1.3898e-5f, .00202f,
+ -8.418e-6f, 5450.f, 5460.f, 95.115f, .24823f, .0035551f, -2.5604e-5f,
+ .0012041f, -1.8465e-5f, 5460.f, 5470.f, 62.976f, .15811f, .0050592f,
+ -2.9507e-5f, .0029262f, -2.138e-5f, 5470.f, 5480.f, 29.147f, .11805f,
+ .008422f, -4.2987e-5f, .0067418f, -3.6032e-5f, 5480.f, 5490.f, 51.614f,
+ .19818f, .0058436f, -3.46e-5f, .003939f, -2.8598e-5f, 5490.f, 5500.f,
+ 23.266f, .1679f, .011075f, -5.348e-5f, .0084735f, -4.6037e-5f, 5500.f,
+ 5510.f, 10.989f, .20302f, .0063972f, -1.4524e-5f, .0042223f,
+ -2.0806e-5f, 5510.f, 5520.f, 10.027f, .16542f, .013794f, -6.332e-5f,
+ .011093f, -5.5041e-5f, 5520.f, 5530.f, 9.3954f, .21952f, .013366f,
+ -5.7474e-5f, .0098104f, -4.6605e-5f, 5530.f, 5540.f, 4.2252f, .19874f,
+ .016633f, -7.121e-5f, .01335f, -6.0705e-5f, 5540.f, 5550.f, 6.2656f,
+ .26354f, .0098363f, -9.5486e-6f, .0079542f, -2.4062e-5f, 5550.f, 5560.f,
+ 1.6378f, .16463f, .013976f, -8.3427e-6f, .012806f, -3.571e-5f, 5560.f,
+ 5570.f, 1.9767f, .27227f, .014721f, -2.6094e-5f, .012774f, -4.5522e-5f,
+ 5570.f, 5580.f, .586f, .20958f, .012874f, 3.9258e-5f, .011964f,
+ -1.5397e-5f, 5580.f, 5590.f, .73058f, .24104f, .02517f, -9.8784e-5f,
+ .021222f, -8.5036e-5f, 5590.f, 5600.f, 1.3668f, .20354f, .00746f,
+ -5.4501e-6f, .010036f, -2.7451e-5f, 5600.f, 5610.f, .7017f, .14013f,
+ .0054963f, 1.2171e-5f, .010386f, -5.7235e-6f, 5610.f, 5620.f, .97806f,
+ .19171f, .0021812f, 1.6431e-5f, .0066588f, 9.5186e-6f, 5620.f, 5630.f,
+ .29391f, .23855f, .0090316f, 2.3604e-5f, .012635f, -6.6897e-6f, 5630.f,
+ 5640.f, .15354f, .15176f, .0057073f, 2e-5f, .014561f, -4.0698e-6f,
+ 5640.f, 5650.f, .08073f, .28405f, .014753f, 3.439e-5f, .018447f,
+ -1.775e-5f, 5650.f, 5660.f, .86381f, .14813f, .0029607f, -2.0586e-5f,
+ .0028212f, -1.2594e-5f, 5660.f, 5670.f, .22599f, .16383f, .0084407f,
+ -3.2709e-5f, .011049f, -1.6279e-5f, 5670.f, 5680.f, .0030594f, .17069f,
+ .034284f, -1.0113e-4f, .035042f, -1.1247e-4f, 5680.f, 5690.f, .38291f,
+ .16459f, .0096772f, -4.3054e-5f, .0087884f, -3.2862e-5f, 5690.f, 5700.f,
+ .17817f, .065371f, .0044945f, -2.6954e-5f, .0044075f, 7.1895e-7f,
+ 5700.f, 5710.f, .0073272f, .32673f, .018605f, -3.6631e-5f, .021288f,
+ -5.004e-5f, 5710.f, 5720.f, .33773f, .13375f, .0060665f, -3.0734e-5f,
+ .0046922f, -2.5584e-5f, 5720.f, 5730.f, .083205f, .058895f, .0083229f,
+ -4.2023e-5f, .0099661f, -2.959e-5f, 5730.f, 5740.f, .1796f, .1205f,
+ .0065668f, -3.475e-5f, .004411f, -2.7489e-5f, 5740.f, 5750.f, .074406f,
+ .16592f, .012426f, -4.4049e-5f, .012086f, -4.8157e-5f, 5750.f, 5760.f,
+ .029803f, .065159f, .011506f, -5.4589e-5f, .012823f, -5.1753e-5f,
+ 5760.f, 5770.f, .134f, .079723f, .011174f, -5.413e-5f, .010639f,
+ -4.7462e-5f, 5770.f, 5780.f, .027397f, .11303f, .0070869f, -8.5837e-6f,
+ .0087642f, -2.4197e-5f, 5780.f, 5790.f, .04813f, .1528f, .017121f,
+ -6.8541e-5f, .016166f, -7.1739e-5f, 5790.f, 5800.f, .098878f, .11702f,
+ .011647f, -5.4757e-5f, .0095467f, -4.9145e-5f, 5800.f, 5810.f,
+ .0011937f, .11746f, .029514f, -1.178e-4f, .026592f, -1.0438e-4f, 5810.f,
+ 5820.f, .021084f, .041603f, .018136f, -8.3736e-5f, .01662f, -7.5802e-5f,
+ 5820.f, 5830.f, .041859f, .10038f, .011698f, -5.1084e-5f, .0091292f,
+ -3.8447e-5f, 5830.f, 5840.f, .0042835f, .054158f, .020564f, -7.9064e-5f,
+ .016849f, -6.1318e-5f, 5840.f, 5850.f, .039742f, .14212f, .015543f,
+ -6.5164e-5f, .012937f, -6.0213e-5f, 5850.f, 5860.f, .0044465f, .13575f,
+ .018218f, -6.1185e-5f, .017472f, -6.1811e-5f, 5860.f, 5870.f, .013183f,
+ .084879f, .018786f, -7.5902e-5f, .01503f, -6.7738e-5f, 5870.f, 5880.f,
+ .0036488f, .086695f, .023765f, -7.6455e-5f, .019459f, -6.0338e-5f,
+ 5880.f, 5890.f, .018172f, .13595f, .016681f, -5.4016e-5f, .014894f,
+ -6.0543e-5f, 5890.f, 5900.f, .0024118f, .072933f, .025664f, -9.6848e-5f,
+ .026465f, -1.0476e-4f, 5900.f, 5910.f, .01494f, .1207f, .017582f,
+ -6.8945e-5f, .016946f, -6.9945e-5f, 5910.f, 5920.f, .0014531f, .081478f,
+ .02565f, -5.6688e-5f, .020849f, -5.2418e-5f, 5920.f, 5930.f, .004057f,
+ .064725f, .024344f, -1.0574e-4f, .021209f, -9.2148e-5f, 5930.f, 5940.f,
+ 5.9362e-4f, .052682f, .023362f, -8.193e-5f, .01857f, -7.6269e-5f,
+ 5940.f, 5950.f, .0021418f, .075485f, .023733f, -8.0625e-5f, .021119f,
+ -8.5514e-5f, 5950.f, 5960.f, .0033439f, .12209f, .022556f, -8.973e-5f,
+ .019031f, -8.5459e-5f, 5960.f, 5970.f, .0014641f, .13608f, .015568f,
+ 3.7809e-6f, .01603f, -2.9177e-5f, 5970.f, 5980.f, 6.3999e-4f, .094011f,
+ .027455f, -3.9873e-5f, .019599f, -3.6883e-5f, 5980.f, 5990.f, .0013405f,
+ .090254f, .029576f, -1.1767e-4f, .026759f, -1.1158e-4f, 5990.f, 6e3f,
+ .0017604f, .17547f, .017851f, -6.4948e-5f, .016287f, -5.6437e-5f, 6e3f,
+ 6010.f, .0011569f, .13348f, .026563f, -8.7926e-5f, .023528f,
+ -9.1174e-5f, 6010.f, 6020.f, 2.8575e-4f, .078833f, .019053f,
+ -1.8306e-5f, .018303f, -5.1186e-5f, 6020.f, 6030.f, 8.7532e-4f, .16112f,
+ .022556f, -3.3852e-5f, .021206f, -6.4336e-5f, 6030.f, 6040.f,
+ 4.8531e-4f, .054398f, .022035f, -9.7698e-5f, .019943f, -8.9334e-5f,
+ 6040.f, 6050.f, 4.2083e-4f, .13305f, .011783f, 6.0192e-5f, .01191f,
+ 7.0965e-6f, 6050.f, 6060.f, 3.1283e-4f, .10974f, .024828f, -3.5695e-5f,
+ .021926f, -6.102e-5f, 6060.f, 6070.f, .0016917f, .14682f, .0023913f,
+ 1.937e-5f, .0028143f, 1.0914e-5f, 6070.f, 6080.f, 2.4107e-4f, .056225f,
+ .019103f, -5.8306e-6f, .02305f, -4.6373e-5f, 6080.f, 6090.f, 4.4079e-4f,
+ .073062f, .0078845f, -3.8279e-5f, .0064841f, -2.5252e-5f, 6090.f,
+ 6100.f, 1.7156e-4f, .08447f, .010336f, 1.0341e-4f, .0085994f,
+ 4.3979e-5f, 6100.f, 6110.f, 1.5736e-4f, .047359f, .020348f, -3.159e-5f,
+ .024132f, -5.6992e-5f, 6110.f, 6120.f, .0010666f, .13835f, .0061165f,
+ -8.7157e-6f, .0071462f, -1.5e-5f, 6120.f, 6130.f, 4.1402e-5f, .071564f,
+ .014541f, -3.0661e-5f, .013703f, -3.2448e-5f, 6130.f, 6140.f,
+ 1.6673e-5f, .033602f, .019118f, -8.8866e-5f, .016523f, -8.3641e-5f,
+ 6140.f, 6150.f, 4.5173e-4f, .19416f, .0081406f, -4.6697e-6f, .0096975f,
+ -2.7594e-5f, 6150.f, 6160.f, 8.4192e-5f, .0848f, .0068868f, 2.0465e-5f,
+ .0065557f, -3.9158e-6f, 6160.f, 6170.f, 1.9983e-4f, .034955f, .013243f,
+ -4.8483e-5f, .014163f, -4.8663e-5f, 6170.f, 6180.f, 5.654e-4f, .092508f,
+ .0032982f, -2.8242e-7f, .0023537f, -1.1797e-5f, 6180.f, 6190.f,
+ 2.6602e-4f, .14864f, -.0035881f, 8.4292e-6f, -.0064288f, 1.1323e-5f,
+ 6190.f, 6200.f, 6.6332e-4f, .082351f, 4.0475e-5f, -9.1191e-6f,
+ -.0013832f, -7.433e-7f, 6200.f, 6210.f, 5.089e-4f, .13947f, .003362f,
+ -3.1112e-6f, 4.078e-4f, 8.6176e-7f, 6210.f, 6220.f, 1.2815e-4f,
+ .087906f, .012262f, -4.0572e-5f, .01202f, -4.9984e-5f, 6220.f, 6230.f,
+ 1.2854e-4f, .12035f, .0025735f, -1.5152e-5f, -2.5291e-4f, -1.3133e-5f,
+ 6230.f, 6240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6240.f, 6250.f, 3.8748e-4f,
+ .088892f, .0070553f, -2.9374e-5f, .0061982f, -3.1937e-5f, 6250.f,
+ 6260.f, 1.6711e-4f, .096035f, .013535f, -5.983e-5f, .011956f,
+ -5.7292e-5f, 6260.f, 6270.f, 5.1664e-4f, .11783f, .0086933f,
+ -2.7481e-5f, .0070865f, -2.8728e-5f, 6270.f, 6280.f, .001613f, .21378f,
+ .0034321f, -1.5373e-5f, .0028098f, -8.7169e-6f, 6280.f, 6290.f,
+ 1.104e-4f, .05027f, .011461f, -5.2791e-5f, .010667f, -5.0501e-5f,
+ 6290.f, 6300.f, .0022339f, .16944f, .0043566f, -1.8834e-5f, .0025925f,
+ -1.7523e-5f, 6300.f, 6310.f, 7.0293e-4f, .10055f, .0086229f,
+ -3.5378e-5f, .0057065f, -3.2557e-5f, 6310.f, 6320.f, 2.805e-4f, .12764f,
+ .0056648f, 7.4065e-5f, .0085368f, 1.7469e-5f, 6320.f, 6330.f,
+ 6.2308e-4f, .089292f, .01011f, -2.8113e-5f, .010994f, -3.9797e-5f,
+ 6330.f, 6340.f, 4.9924e-4f, .15704f, .014233f, -5.3536e-5f, .011904f,
+ -5.3159e-5f, 6340.f, 6350.f, 4.5485e-4f, .2206f, .0045598f, -2.1706e-6f,
+ .0040803f, -1.9834e-5f, 6350.f, 6360.f, 4.4859e-4f, .31977f, .015688f,
+ -3.0431e-5f, .012918f, -4.8166e-5f, 6360.f, 6370.f, 2.7811e-4f, .13882f,
+ .011781f, -2.0096e-5f, .011797f, -2.376e-5f, 6370.f, 6380.f, 8.6844e-4f,
+ .2569f, .011839f, -6.454e-6f, .0097827f, -2.9934e-5f, 6380.f, 6390.f,
+ 8.4205e-4f, .26741f, .010125f, -9.2493e-6f, .009507f, -2.6314e-5f,
+ 6390.f, 6400.f, .0016976f, .15422f, .0095094f, 1.9053e-5f, .010682f,
+ -7.9536e-6f, 6400.f, 6410.f, 4.7975e-4f, .09426f, .011121f, -4.7922e-5f,
+ .0093837f, -4.1295e-5f, 6410.f, 6420.f, 5.2022e-4f, .16038f, .017528f,
+
+ -3.7366e-5f, .019737f, -6.1655e-5f, 6420.f, 6430.f, 8.2574e-4f, .16899f,
+ .016228f, -5.7574e-5f, .014443f, -6.2197e-5f, 6430.f, 6440.f, .0021296f,
+ .24095f, .018574f, -5.7065e-5f, .018731f, -6.6716e-5f, 6440.f, 6450.f,
+ 2.6201e-4f, .11418f, .021012f, -6.7706e-5f, .019337f, -6.9411e-5f,
+ 6450.f, 6460.f, .0026631f, .29606f, .0094001f, 3.2264e-5f, .0092032f,
+ -9.2228e-6f, 6460.f, 6470.f, .0025496f, .1395f, .02196f, -9.1558e-5f,
+ .019725f, -7.8434e-5f, 6470.f, 6480.f, .0030217f, .24286f, .021221f,
+ -4.9207e-5f, .017707f, -5.6279e-5f, 6480.f, 6490.f, .0025925f, .22189f,
+ .011972f, -3.5111e-5f, .011532f, -3.4767e-5f, 6490.f, 6500.f, .0036908f,
+ .17271f, .017079f, -6.2898e-5f, .018276f, -6.9468e-5f, 6500.f, 6510.f,
+ .0058412f, .27765f, .021239f, -8.2779e-5f, .019328f, -7.9739e-5f,
+ 6510.f, 6520.f, .0010097f, .36424f, .014201f, 1.4574e-5f, .014137f,
+ -2.5464e-5f, 6520.f, 6530.f, .015531f, .36032f, .015962f, -5.5747e-5f,
+ .013807f, -5.4878e-5f, 6530.f, 6540.f, .021827f, .16998f, .012887f,
+ -5.3561e-5f, .013686f, -4.8168e-5f, 6540.f, 6550.f, .025524f, .44895f,
+ .014216f, -3.1158e-5f, .013867f, -4.6536e-5f, 6550.f, 6560.f, .0046252f,
+ .14687f, .017426f, -7.1751e-5f, .018048f, -6.5015e-5f, 6560.f, 6570.f,
+ .022064f, .27f, .015309f, -5.8062e-5f, .016735f, -6.1409e-5f, 6570.f,
+ 6580.f, .042593f, .28026f, .015131f, -6.0674e-5f, .014017f, -5.2957e-5f,
+ 6580.f, 6590.f, .039072f, .14924f, .0094106f, -4.0098e-5f, .0098574f,
+ -2.9732e-5f, 6590.f, 6600.f, .054808f, .37702f, .012248f, -2.1938e-5f,
+ .012749f, -3.4984e-5f, 6600.f, 6610.f, .036908f, .16694f, .011325f,
+ -4.1839e-5f, .012369f, -2.3977e-5f, 6610.f, 6620.f, .0049128f, .31728f,
+ .016178f, -8.7947e-6f, .019507f, -3.6007e-5f, 6620.f, 6630.f, .027419f,
+ .23237f, .022088f, -4.83e-5f, .021397f, -5.8784e-5f, 6630.f, 6640.f,
+ .09883f, .17529f, .0067054f, -2.8981e-5f, .0098183f, -2.1164e-5f,
+ 6640.f, 6650.f, .097673f, .26249f, .015514f, -2.0366e-5f, .018041f,
+ -4.7825e-5f, 6650.f, 6660.f, .029234f, .39325f, .011043f, 6.9627e-6f,
+ .014995f, -2.8824e-5f, 6660.f, 6670.f, .073358f, .26517f, .022641f,
+ -9.0861e-5f, .020163f, -8.1954e-5f, 6670.f, 6680.f, .28609f, .27963f,
+ .012746f, -3.1154e-5f, .011122f, -2.9019e-5f, 6680.f, 6690.f, .15415f,
+ .42581f, .0092965f, -1.6598e-5f, .010866f, -3.0004e-5f, 6690.f, 6700.f,
+ .50854f, .25928f, .011806f, -4.9706e-5f, .01195f, -4.4564e-5f, 6700.f,
+ 6710.f, .54248f, .29219f, .0086655f, -1.078e-5f, .0096072f, -2.0886e-5f,
+ 6710.f, 6720.f, 1.1829f, .23177f, .0084264f, -3.6835e-5f, .0078692f,
+ -3.165e-5f, 6720.f, 6730.f, .66413f, .22652f, .0096388f, -4.5502e-5f,
+ .0094036f, -4.2748e-5f, 6730.f, 6740.f, 2.0327f, .2021f, .0051382f,
+ -2.4524e-5f, .0066314f, -1.6094e-5f, 6740.f, 6750.f, 2.8639f, .19875f,
+ .0048057f, -2.8413e-5f, .0044821f, -2.1857e-5f, 6750.f, 6760.f, 2.3946f,
+ .11681f, .0025701f, -2.0163e-5f, .0026061f, -1.6227e-5f, 6760.f, 6770.f,
+ 2.3817f, .35427f, .0039392f, -1.7028e-5f, .004929f, -1.8773e-5f, 6770.f,
+ 6780.f, 1.6155f, .23449f, 7.3307e-4f, -7.3637e-6f, .0016677f,
+ -2.5528e-6f, 6780.f, 6790.f, 8.3481f, .29624f, 2.1533e-4f, -8.9091e-6f,
+ -1.954e-4f, -6.9089e-6f, 6790.f, 6800.f, 3.9018f, .13513f, -.002043f,
+ 4.7043e-6f, .0019385f, 1.5453e-5f, 6800.f, 6810.f, 3.3911f, .24098f,
+ -2.0667e-4f, -6.3633e-6f, -1.6731e-4f, -2.2699e-6f, 6810.f, 6820.f,
+ 2.8798f, .25576f, -.0021074f, 5.4951e-6f, -.0021041f, 8.2116e-6f,
+ 6820.f, 6830.f, 2.7426f, .15514f, -.0029057f, 1.2463e-5f, .0017031f,
+ 1.9513e-5f, 6830.f, 6840.f, 3.2308f, .18429f, -.0036805f, 1.3879e-5f,
+ 3.8114e-4f, 2.111e-5f, 6840.f, 6850.f, .82936f, .18124f, 4.1735e-4f,
+ 1.4616e-6f, .0025198f, -1.3464e-6f, 6850.f, 6860.f, .35131f, .41646f,
+ .015485f, -4.647e-5f, .013388f, -3.6422e-5f, 6860.f, 6870.f, 4.6683f,
+ .15324f, -.0042182f, 9.0437e-6f, -.0013329f, 1.8577e-5f, 6870.f, 6880.f,
+ 2.8455f, .17389f, -.0022094f, 1.4962e-6f, -.0015658f, 9.7344e-6f,
+ 6880.f, 6890.f, 8.8724f, .42657f, -.0018169f, 8.1105e-6f, -6.5751e-4f,
+ 1.2321e-5f, 6890.f, 6900.f, .81595f, .32457f, .0028256f, 1.2078e-6f,
+ .0059842f, 1.543e-6f, 6900.f, 6910.f, 12.055f, .40831f, -.0011236f,
+ 2.2677e-6f, -8.159e-4f, 1.7078e-6f, 6910.f, 6920.f, 1.4005f, .42874f,
+ .0073135f, -1.6167e-5f, .0082389f, -1.8229e-5f, 6920.f, 6930.f, 9.4914f,
+ .29494f, -.0033677f, 1.1156e-5f, -.0016627f, 1.6279e-5f, 6930.f, 6940.f,
+ 3.731f, .44986f, .0084547f, -3.0585e-5f, .010303f, -3.5351e-5f, 6940.f,
+ 6950.f, 7.9581f, .26975f, -.0014256f, 4.1782e-6f, 1.3886e-4f,
+ 7.5184e-6f, 6950.f, 6960.f, 3.409f, .33223f, -8.355e-4f, 9.9982e-6f,
+ .0032926f, 7.9289e-6f, 6960.f, 6970.f, 6.9934f, .49549f, .0034299f,
+ 1.3868e-5f, .0073246f, -1.1357e-5f, 6970.f, 6980.f, 8.4288f, .29235f,
+ .0012515f, -6.6867e-6f, .0022057f, -7.2817e-6f, 6980.f, 6990.f, 3.7771f,
+ .34377f, .0066839f, 1.4877e-5f, .0099074f, -2.4726e-5f, 6990.f, 7e3f,
+ 5.9358f, .4452f, .0047532f, -1.1726e-5f, .0057444f, -1.6773e-5f, 7e3f,
+ 7010.f, 3.6653f, .46656f, .0075924f, -1.4859e-5f, .0085483f,
+ -2.7681e-5f, 7010.f, 7020.f, 7.623f, .59145f, .010355f, -2.3877e-5f,
+ .0084375f, -3.5191e-5f, 7020.f, 7030.f, 2.9785f, .49616f, .0095318f,
+ -2.8442e-5f, .0094393f, -3.7258e-5f, 7030.f, 7040.f, 11.489f, .4463f,
+ .012118f, -4.7464e-5f, .0089557f, -4.3911e-5f, 7040.f, 7050.f, 5.707f,
+ .30579f, .012792f, -5.848e-5f, .011943f, -4.9567e-5f, 7050.f, 7060.f,
+ 4.3341f, .45254f, .0087102f, -3.6977e-5f, .0062554f, -2.9678e-5f,
+ 7060.f, 7070.f, 18.415f, .27325f, .011045f, -5.5565e-5f, .0087811f,
+ -4.6635e-5f, 7070.f, 7080.f, 9.2559f, .37006f, .0093565f, -4.6638e-5f,
+ .008623f, -4.1694e-5f, 7080.f, 7090.f, 34.399f, .2696f, .0073722f,
+ -4.0297e-5f, .005669f, -3.4996e-5f, 7090.f, 7100.f, 27.357f, .28185f,
+ .0041186f, -2.4656e-5f, .0015333f, -1.4846e-5f, 7100.f, 7110.f, 59.142f,
+ .21235f, .004202f, -2.8298e-5f, .0026623f, -2.2726e-5f, 7110.f, 7120.f,
+ 8.729f, .31743f, .0050667f, -2.9057e-5f, .0050497f, -2.4756e-5f, 7120.f,
+ 7130.f, 66.372f, .25989f, .0021171f, -2.001e-5f, 9.8789e-4f,
+ -1.5045e-5f, 7130.f, 7140.f, 40.254f, .15248f, 6.4299e-4f, -1.3315e-5f,
+ -6.7491e-4f, -2.9781e-7f, 7140.f, 7150.f, 1.5991f, .45391f, .0083749f,
+ -1.2893e-5f, .011832f, -2.3466e-5f, 7150.f, 7160.f, 138.4f, .26185f,
+ -9.2005e-4f, -7.5058e-6f, -.0022766f, 1.2031e-6f, 7160.f, 7170.f,
+ 13.476f, .27958f, 1.7108e-4f, 2.8602e-6f, .0019003f, 2.2534e-6f, 7170.f,
+ 7180.f, 95.96f, .20582f, -.0022657f, 1.3812e-6f, -.0015351f, 8.8048e-6f,
+ 7180.f, 7190.f, 14.69f, .24608f, 7.8336e-4f, 1.5252e-5f, .003739f,
+ -6.918e-6f, 7190.f, 7200.f, 55.288f, .25862f, -.0013454f, 9.9116e-6f,
+ -8.8298e-4f, 1.7423e-6f, 7200.f, 7210.f, 48.147f, .25568f, .0049183f,
+ -2.3894e-5f, .0037052f, -2.2724e-5f, 7210.f, 7220.f, 40.415f, .20103f,
+ -.0024259f, 7.5229e-6f, -.0017525f, 2.6464e-6f, 7220.f, 7230.f, 109.84f,
+ .33075f, 7.5622e-4f, -1.2921e-5f, -.0011898f, -5.9125e-6f, 7230.f,
+ 7240.f, 130.02f, .18533f, -.0033239f, 1.8173e-6f, -.0046918f,
+
+ 8.1132e-6f, 7240.f, 7250.f, 24.491f, .30951f, -.0026793f, 5.8588e-6f,
+ -.0021237f, 4.8e-6f, 7250.f, 7260.f, 19.609f, .15703f, -.0025743f,
+ 2.8622e-6f, -.0016255f, 4.4422e-6f, 7260.f, 7270.f, 17.072f, .26657f,
+ -.0029675f, 1.2335e-5f, -6.9569e-4f, 7.7744e-6f, 7270.f, 7280.f,
+ 25.243f, .38981f, -.0023499f, 7.2438e-6f, -.0015088f, 4.0106e-6f,
+ 7280.f, 7290.f, 139.62f, .16193f, -.0050479f, 9.269e-6f, -.0053276f,
+ 1.5266e-5f, 7290.f, 7300.f, 86.705f, .11761f, -.0037859f, 4.4125e-6f,
+
+ -.0030774f, 1.0295e-5f, 7300.f, 7310.f, 66.458f, .22506f, -.0031197f,
+ 2.1671e-6f, -.003942f, 5.6842e-6f, 7310.f, 7320.f, 147.42f, .24611f,
+ -.0023854f, -1.4496e-6f, -.0034285f, 1.2805e-6f, 7320.f, 7330.f,
+ 87.291f, .22526f, -1.1541e-4f, -9.6671e-6f, -9.0479e-4f, -7.8703e-6f,
+ 7330.f, 7340.f, 155.36f, .27754f, -2.3889e-4f, -8.8494e-6f, -.001057f,
+ -7.3024e-6f, 7340.f, 7350.f, 60.8f, .21141f, .0022877f, -1.825e-5f,
+ .0021735f, -1.6084e-5f, 7350.f, 7360.f, 65.821f, .31454f, .0035102f,
+ -2.3014e-5f, .0021764f, -1.996e-5f, 7360.f, 7370.f, 39.314f, .19452f,
+ .0045708f, -2.8104e-5f, .0035157f, -2.3151e-5f, 7370.f, 7380.f, 33.606f,
+ .30823f, .0071777f, -3.6203e-5f, .0052193f, -2.5338e-5f, 7380.f, 7390.f,
+ 28.667f, .22825f, .0067636f, -3.404e-5f, .0062429f, -3.5213e-5f, 7390.f,
+ 7400.f, 9.5852f, .3028f, .012912f, -5.3899e-5f, .010209f, -4.4318e-5f,
+ 7400.f, 7410.f, 7.5752f, .36859f, .010673f, -1.5633e-5f, .0094631f,
+ -3.3501e-5f, 7410.f, 7420.f, 3.3599f, .31735f, .015132f, -5.0575e-5f,
+ .013714f, -4.8842e-5f, 7420.f, 7430.f, 1.421f, .51877f, .010564f,
+ 2.7798e-5f, .010716f, -1.6576e-5f, 7430.f, 7440.f, 1.3357f, .34135f,
+ .0055009f, 2.9075e-5f, .010731f, -1.4716e-5f, 7440.f, 7450.f, .90292f,
+ .35257f, .0064439f, 4.3621e-6f, .0093295f, -7.9773e-6f, 7450.f, 7460.f,
+ .47321f, .34413f, .0075753f, 3.1118e-5f, .0088184f, 2.3143e-6f, 7460.f,
+ 7470.f, .14277f, .63005f, .015765f, -3.876e-5f, .014284f, -4.1344e-5f,
+ 7470.f, 7480.f, .84751f, .092347f, .0044433f, -2.3373e-5f, .0065281f,
+ -2.0814e-5f, 7480.f, 7490.f, .34962f, .49346f, 3.9951e-4f, 2.823e-6f,
+ .0021242f, -6.058e-7f, 7490.f, 7500.f, .66686f, .32642f, .0015242f,
+ -8.7602e-6f, .0033093f, -6.2194e-6f, 7500.f, 7510.f, .7038f, .37824f,
+ .0040335f, -1.7144e-5f, .0058765f, -1.8563e-5f, 7510.f, 7520.f, .44176f,
+ .28314f, .0041609f, -2.1428e-5f, .0052238f, -2.1647e-5f, 7520.f, 7530.f,
+ .23859f, .25536f, .0046384f, -3.1469e-6f, .0056672f, -1.3268e-5f,
+ 7530.f, 7540.f, .12451f, .19246f, .003173f, -1.645e-5f, .0046905f,
+ -1.9919e-5f, 7540.f, 7550.f, .40142f, .2566f, .0068917f, -2.2016e-5f,
+ .0042921f, -2.2533e-5f, 7550.f, 7560.f, .24593f, .28458f, 3.567e-4f,
+ -9.0627e-7f, 6.7869e-4f, -6.7459e-6f, 7560.f, 7570.f, .41189f, .23957f,
+ -2.7548e-4f, 3.566e-6f, 3.9542e-4f, -3.8485e-6f, 7570.f, 7580.f,
+ .20341f, .14662f, .0060408f, -3.5022e-5f, .0043079f, -3.1225e-5f,
+ 7580.f, 7590.f, .18188f, .14279f, .0012602f, -3.0833e-6f, .0033638f,
+ -1.3417e-5f, 7590.f, 7600.f, .17978f, .35062f, .005044f, -3.1112e-6f,
+ .0036165f, -1.3022e-5f, 7600.f, 7610.f, .31504f, .16627f, .003265f,
+ -1.3345e-5f, .0040505f, -2.0124e-5f, 7610.f, 7620.f
+ };
+
+ /* WATER VAPOR (5060 - 7600 CM-1) */
+ for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
+} /* wava2 */
+
+void
+wava1 (float a[8], const long int inu)
+{
+
+
+ static const float acr[2048] = { 5.2155e-5f, .1088f,
+ .024708f, 5.6434e-5f, .028126f, -3.6504e-5f, 2500.f, 2510.f, 2.6024e-4f,
+ .21216f, .025876f, 3.0026e-5f, .030504f, -6.2253e-5f, 2510.f, 2520.f,
+ 1.2221e-4f, .091374f, .023862f, -7.9891e-5f, .020651f, -8.5449e-5f,
+ 2520.f, 2530.f, 6.8892e-5f, .12703f, .030103f, -6.0355e-5f, .031571f,
+ -9.5671e-5f, 2530.f, 2540.f, 9.5684e-5f, .11204f, .033051f, -9.6752e-5f,
+ .030485f, -1.1273e-4f, 2540.f, 2550.f, 1.0008e-4f, .092789f, .016702f,
+ 4.1104e-5f, .021654f, -1.2175e-5f, 2550.f, 2560.f, 1.1515e-4f, .072392f,
+ .028437f, -8.9454e-5f, .028734f, -1.022e-4f, 2560.f, 2570.f, 1.098e-4f,
+ .093023f, .023611f, 1.0889e-5f, .02688f, -5.0398e-5f, 2570.f, 2580.f,
+ 1.0952e-4f, .07579f, .029206f, -9.8206e-5f, .030307f, -1.1103e-4f,
+ 2580.f, 2590.f, 1.1941e-4f, .070428f, .019144f, -2.8423e-5f, .019587f,
+ -5.4379e-5f, 2590.f, 2600.f, 8.0498e-5f, .061889f, .024778f,
+ -5.5252e-5f, .028205f, -1.2627e-4f, 2600.f, 2610.f, 7.2792e-5f,
+ .062776f, .026682f, -5.8101e-5f, .029166f, -1.1148e-4f, 2610.f, 2620.f,
+ 1.6616e-4f, .015773f, .023141f, -6.0394e-5f, .024947f, -1.1178e-4f,
+
+ 2620.f, 2630.f, 1.8043e-4f, .087686f, .026248f, -3.0398e-5f, .03174f,
+ -1.367e-4f, 2630.f, 2640.f, 1.3339e-4f, .05328f, .012701f, -4.6874e-5f,
+ .012628f, -6.7487e-5f, 2640.f, 2650.f, 4.115e-5f, .0075778f, .011257f,
+ 1.1038e-4f, .036362f, -1.1284e-4f, 2650.f, 2660.f, 6.1395e-5f, .026074f,
+ .016798f, 1.0755e-4f, .035481f, -1.3778e-4f, 2660.f, 2670.f, 3.5062e-4f,
+ .080662f, .021065f, -3.9968e-5f, .021602f, -8.7339e-5f, 2670.f, 2680.f,
+ 2.6391e-4f, .11483f, .02727f, -4.0691e-5f, .029928f, -1.1046e-4f,
+ 2680.f, 2690.f, 8.741e-4f, .06007f, .021732f, -8.76e-5f, .020645f,
+ -9.6557e-5f, 2690.f, 2700.f, 3.0675e-5f, .02297f, .0094212f, 7.8691e-6f,
+ .015402f, -7.4597e-5f, 2700.f, 2710.f, 2.1928e-4f, .13351f, .022082f,
+ -4.5472e-5f, .02546f, -9.6549e-5f, 2710.f, 2720.f, 3.4904e-4f, .095073f,
+ .013969f, 1.2276e-6f, .016415f, -6.5204e-5f, 2720.f, 2730.f, .002136f,
+ .061072f, .018908f, -7.653e-5f, .019801f, -7.7251e-5f, 2730.f, 2740.f,
+ 1.3372e-4f, .10806f, .025683f, -4.923e-5f, .025729f, -8.9387e-5f,
+ 2740.f, 2750.f, .0021697f, .062188f, .018593f, -8.0474e-5f, .016349f,
+ -8.1422e-5f, 2750.f, 2760.f, 4.503e-5f, .014902f, .011376f, 2.086e-4f,
+ .04688f, -1.3018e-4f, 2760.f, 2770.f, 3.9413e-4f, .075433f, .019773f,
+ 3.0322e-5f, .02086f, -4.5326e-5f, 2770.f, 2780.f, .0048935f, .096746f,
+ .019042f, -7.2945e-5f, .016358f, -7.6368e-5f, 2780.f, 2790.f,
+ 5.6197e-5f, .026178f, .017977f, 1.4035e-4f, .032163f, -7.1639e-5f,
+ 2790.f, 2800.f, .0017459f, .049818f, .012334f, -5.2052e-5f, .013169f,
+ -4.5266e-5f, 2800.f, 2810.f, .013747f, .048325f, .012754f, -6.181e-5f,
+ .011564f, -4.9886e-5f, 2810.f, 2820.f, 8.2805e-4f, .084185f, .021588f,
+ 3.0162e-6f, .021186f, -3.7441e-5f, 2820.f, 2830.f, .011866f, .034247f,
+ .0094911f, -5.0331e-5f, .0068889f, -4.5062e-5f, 2830.f, 2840.f,
+ .0053887f, .10669f, .021019f, -5.3528e-5f, .021717f, -5.4515e-5f,
+ 2840.f, 2850.f, 1.0411e-4f, .11175f, .031522f, 3.5658e-5f, .036103f,
+ -8.82e-5f, 2850.f, 2860.f, .0079899f, .07314f, .02926f, -1.0778e-4f,
+ .03194f, -1.11e-4f, 2860.f, 2870.f, .024725f, .10335f, .008848f,
+ -3.2902e-5f, .010195f, -1.929e-5f, 2870.f, 2880.f, 5.7422e-4f, .18372f,
+ .046405f, -1.7178e-4f, .046094f, -1.887e-4f, 2880.f, 2890.f, .067995f,
+ .089991f, .016432f, -5.4992e-5f, .019457f, -5.5113e-5f, 2890.f, 2900.f,
+ .03635f, .17982f, .015309f, 7.9551e-7f, .018904f, -3.6064e-5f, 2900.f,
+ 2910.f, .02725f, .14127f, .030783f, -1.2895e-4f, .031036f, -1.2355e-4f,
+ 2910.f, 2920.f, .002652f, .19136f, .041919f, -1.6834e-4f, .042452f,
+ -1.753e-4f, 2920.f, 2930.f, .52888f, .269f, .012546f, -3.0896e-5f,
+ .013568f, -4.2996e-5f, 2930.f, 2940.f, .053771f, .17608f, .020209f,
+ -6.024e-5f, .025687f, -8.3758e-5f, 2940.f, 2950.f, .32492f, .1684f,
+ .021364f, -9.2341e-5f, .020449f, -8.8117e-5f, 2950.f, 2960.f, .61749f,
+ .1805f, .013955f, -6.0114e-5f, .014337f, -5.833e-5f, 2960.f, 2970.f,
+ 1.5421f, .13158f, .0096584f, -4.1781e-5f, .0089471f, -3.729e-5f, 2970.f,
+
+ 2980.f, 1.6668f, .2273f, .0099338f, -3.7288e-5f, .01043f, -3.702e-5f,
+ 2980.f, 2990.f, 1.5158f, .13985f, .011565f, -5.1421e-5f, .011056f,
+ -4.3391e-5f, 2990.f, 3e3f, 1.6503f, .17713f, .0095447f, -3.7275e-5f,
+ .0086134f, -3.6851e-5f, 3e3f, 3010.f, 6.5433f, .21911f, .0060474f,
+ -3.289e-5f, .0053084f, -2.7435e-5f, 3010.f, 3020.f, 2.2497f, .12464f,
+ 8.6253e-4f, -6.1061e-6f, .0037153f, 4.0466e-6f, 3020.f, 3030.f, 10.011f,
+ .23151f, .0027571f, -1.9224e-5f, .0021442f, -1.1081e-5f, 3030.f, 3040.f,
+ 2.7015f, .12619f, .0016271f, -1.3887e-5f, .001636f, -1.9543e-8f, 3040.f,
+ 3050.f, 5.2767f, .13242f, .001288f, -1.3169e-5f, .0012577f, -3.613e-6f,
+ 3050.f, 3060.f, 9.1595f, .12205f, -.0012513f, -4.0326e-6f, -.0018414f,
+ 2.4599e-6f, 3060.f, 3070.f, 4.6857f, .15647f, -4.3308e-5f, -6.9326e-6f,
+ -8.1377e-4f, -3.1694e-6f, 3070.f, 3080.f, 3.2521f, .14435f, .0035016f,
+ -2.0102e-5f, .0037489f, -1.4446e-5f, 3080.f, 3090.f, 8.6678f, .20679f,
+ -.0014866f, 2.2765e-6f, -.001046f, 1.7536e-6f, 3090.f, 3100.f, 9.0277f,
+ .2295f, -.0010574f, -1.1212e-6f, -6.8088e-4f, -3.9181e-8f, 3100.f,
+ 3110.f, 12.148f, .38295f, 4.9769e-4f, -4.4194e-6f, 4.3116e-4f,
+ -4.0708e-6f, 3110.f, 3120.f, 9.4078f, .34012f, -3.175e-5f, 2.1043e-6f,
+ .0022348f, 1.6614e-7f, 3120.f, 3130.f, 6.1004f, .077373f, -.004677f,
+ 1.1726e-5f, -5.7011e-4f, 3.3047e-5f, 3130.f, 3140.f, .64298f, .083113f,
+ -9.0344e-4f, 7.4815e-6f, .0068034f, 3.8978e-5f, 3140.f, 3150.f, .31468f,
+ .22047f, .0087793f, -1.3249e-5f, .014974f, -2.9267e-5f, 3150.f, 3160.f,
+ .84773f, .34913f, .0023565f, -7.7347e-7f, .004167f, 2.4148e-6f, 3160.f,
+ 3170.f, 6.7043f, .10518f, -.0049662f, 1.3112e-5f, -9.2458e-4f,
+ 3.1899e-5f, 3170.f, 3180.f, 3.3487f, .17575f, -.0036206f, 1.2779e-5f,
+ 5.0643e-5f, 2.6882e-5f, 3180.f, 3190.f, 7.1051f, .15577f, -.0032039f,
+ 5.7362e-6f, -.0027319f, 2.0608e-5f, 3190.f, 3200.f, 4.9187f, .094692f,
+ -.0034658f, 9.9349e-6f, 6.5696e-4f, 2.9105e-5f, 3200.f, 3210.f, 11.08f,
+ .15706f, -.0036162f, 6.4921e-6f, -.002575f, 1.9544e-5f, 3210.f, 3220.f,
+ 6.4326f, .26178f, -3.2818e-4f, 3.2261e-6f, 5.6524e-4f, 5.0713e-6f,
+ 3220.f, 3230.f, 4.8444f, .21447f, -.0019614f, 1.5381e-5f, .0019305f,
+ 2.4092e-5f, 3230.f, 3240.f, 8.8873f, .19618f, -.0011584f, 1.5371e-6f,
+ 5.7401e-4f, 5.5356e-6f, 3240.f, 3250.f, 6.7011f, .11596f, 3.1879e-4f,
+ -3.2082e-7f, .0027244f, 9.5927e-6f, 3250.f, 3260.f, 3.2951f, .21537f,
+ .0018132f, -9.3642e-6f, .0034721f, -1.0415e-5f, 3260.f, 3270.f, 11.905f,
+ .31637f, -1.7961e-5f, 7.0218e-6f, .0027392f, 8.7434e-8f, 3270.f, 3280.f,
+ 4.8139f, .2732f, .0023884f, 2.6589e-5f, .0043504f, 5.7992e-6f, 3280.f,
+ 3290.f, 6.9428f, .3268f, .0028073f, -7.0232e-6f, .0032805f, -8.5722e-6f,
+ 3290.f, 3300.f, 5.2753f, .19806f, .0027307f, -1.4565e-6f, .0049125f,
+ -1.2966e-5f, 3300.f, 3310.f, 4.7208f, .23262f, .002983f, 2.6911e-5f,
+ .0064942f, -7.7622e-6f, 3310.f, 3320.f, 3.2466f, .37221f, .0099704f,
+ -2.8634e-5f, .011158f, -3.6092e-5f, 3320.f, 3330.f, 4.2083f, .17584f,
+ .013723f, -3.9504e-5f, .013219f, -4.4922e-5f, 3330.f, 3340.f, .78485f,
+ .29505f, .018153f, -7.6368e-5f, .018172f, -6.9561e-5f, 3340.f, 3350.f,
+ 4.0763f, .2731f, .011974f, -3.8706e-5f, .010563f, -3.3592e-5f, 3350.f,
+ 3360.f, 12.275f, .42572f, .0045309f, 5.9958e-6f, .0056864f, -1.5831e-5f,
+ 3360.f, 3370.f, .94088f, .2913f, .012712f, -2.3725e-5f, .01375f,
+ -2.6806e-5f, 3370.f, 3380.f, 5.802f, .18758f, .0056963f, -9.9475e-6f,
+ .0091903f, -1.2922e-5f, 3380.f, 3390.f, 11.279f, .22153f, .010955f,
+ -4.55e-5f, .010347f, -3.3646e-5f, 3390.f, 3400.f, 3.0915f, .29101f,
+ .0076973f, -3.1164e-6f, .0079615f, -1.2231e-5f, 3400.f, 3410.f, 2.746f,
+ .24709f, .01353f, -3.9278e-5f, .015939f, -3.5039e-5f, 3410.f, 3420.f,
+ 14.49f, .18486f, .0089652f, -3.5228e-5f, .009544f, -2.5256e-5f, 3420.f,
+ 3430.f, 4.152f, .37165f, .0094576f, -9.1648e-6f, .01319f, -1.9085e-5f,
+ 3430.f, 3440.f, 35.28f, .29267f, .0077335f, -3.3655e-5f, .0086235f,
+ -3.439e-5f, 3440.f, 3450.f, 1.6073f, .33722f, .016402f, 1.5852e-5f,
+ .018964f, -3.2271e-5f, 3450.f, 3460.f, 13.605f, .31569f, .0095057f,
+ -1.5485e-5f, .0094813f, -1.6751e-5f, 3460.f, 3470.f, 7.5164f, .27307f,
+ .0075889f, -4.7962e-6f, .012249f, -2.3811e-5f, 3470.f, 3480.f, 33.484f,
+ .31131f, .0077627f, -1.1503e-5f, .0094019f, -2.0136e-5f, 3480.f, 3490.f,
+ 13.815f, .23917f, .010592f, -3.1935e-5f, .012433f, -3.6436e-5f, 3490.f,
+ 3500.f, 61.974f, .36287f, .0075577f, 2.6848e-6f, .010181f, -2.3323e-5f,
+ 3500.f, 3510.f, 14.812f, .37195f, .008261f, -1.8654e-5f, .010113f,
+ -3.1482e-5f, 3510.f, 3520.f, 83.223f, .39932f, .0076795f, 5.0656e-7f,
+ .0082892f, -2.0998e-5f, 3520.f, 3530.f, 21.464f, .29835f, .014148f,
+ -4.3852e-5f, .013193f, -5.1897e-5f, 3530.f, 3540.f, 78.956f, .41357f,
+ .012512f, -2.8052e-5f, .0093167f, -3.188e-5f, 3540.f, 3550.f, 57.829f,
+ .33002f, .0050941f, -8.3644e-6f, .0066338f, -1.927e-5f, 3550.f, 3560.f,
+ 264.95f, .48627f, .0094242f, -2.4386e-5f, .0071083f, -3.052e-5f, 3560.f,
+ 3570.f, 48.65f, .32647f, .003423f, -1.2164e-5f, .0023536f, -9.56e-6f,
+ 3570.f, 3580.f, 278.65f, .3935f, .010521f, -4.8325e-5f, .0076691f,
+ -3.9509e-5f, 3580.f, 3590.f, 160.87f, .35038f, .0056295f, -1.9831e-5f,
+ .0040519f, -1.575e-5f, 3590.f, 3600.f, 337.87f, .23399f, .0064862f,
+ -3.0846e-5f, .0044382f, -2.4648e-5f, 3600.f, 3610.f, 576.3f, .34952f,
+ .0047866f, -2.6607e-5f, .0014788f, -1.5623e-5f, 3610.f, 3620.f, 753.87f,
+ .18159f, .0042931f, -2.8734e-5f, .0024163f, -2.2384e-5f, 3620.f, 3630.f,
+ 135.67f, .19692f, .0012097f, -8.0313e-6f, -4.4021e-4f, 5.3739e-7f,
+ 3630.f, 3640.f, 776.59f, .21673f, .0021798f, -2.0291e-5f, 5.0596e-4f,
+ -1.5749e-5f, 3640.f, 3650.f, 657.22f, .1435f, .001212f, -1.6829e-5f,
+ -2.0471e-4f, -9.1773e-6f, 3650.f, 3660.f, 229.37f, .088535f, -3.47e-4f,
+ -8.0698e-6f, 7.053e-4f, -5.8648e-7f, 3660.f, 3670.f, 1746.9f, .21306f,
+ -.0011718f, -7.1619e-6f, -.0032694f, -2.8781e-7f, 3670.f, 3680.f,
+ 833.45f, .086211f, -.0027517f, -7.8552e-7f, -.0033472f, 1.3487e-5f,
+ 3680.f, 3690.f, 324.07f, .27669f, -.0021659f, 4.4909e-7f, -.0016982f,
+ 1.0818e-5f, 3690.f, 3700.f, 485.79f, .23163f, -.0033766f, 7.1088e-6f,
+ -.0016229f, 1.3215e-5f, 3700.f, 3710.f, 693.99f, .19031f, -.0023753f,
+ 1.1342e-5f, 2.795e-4f, 1.1827e-5f, 3710.f, 3720.f, 309.49f, .32694f,
+ .0051146f, -3.3747e-6f, .0055153f, -1.4764e-5f, 3720.f, 3730.f, 1205.8f,
+ .33098f, 2.6244e-4f, 4.4389e-6f, 4.3858e-4f, -5.8687e-6f, 3730.f,
+ 3740.f, 2387.3f, .35395f, -.0013313f, -2.6877e-6f, -.0025997f,
+ -1.5668e-6f, 3740.f, 3750.f, 1331.8f, .24255f, -.0023524f, 5.7434e-7f,
+ -.0030581f, 2.0511e-6f, 3750.f, 3760.f, 462.66f, .18423f, -.002022f,
+ 1.4083e-6f, -.0011856f, 1.3407e-6f, 3760.f, 3770.f, 221.29f, .15206f,
+ -.0045078f, 1.2626e-5f, -.0025579f, 1.1787e-5f, 3770.f, 3780.f, 72.994f,
+ .26021f, -9.4598e-4f, 5.8721e-6f, .0020193f, 1.4281e-6f, 3780.f, 3790.f,
+ 243.54f, .11623f, -.0039723f, 1.0003e-5f, -.0024749f, 1.1674e-5f,
+ 3790.f, 3800.f, 1610.2f, .13844f, -.0050654f, 8.5459e-6f, -.0061217f,
+ 1.4867e-5f, 3800.f, 3810.f, 925.09f, .095941f, -.0040019f, 4.2438e-6f,
+ -.0041671f, 1.3408e-5f, 3810.f, 3820.f, 878.65f, .19813f, -.0032809f,
+ 1.3909e-6f, -.0048774f, 6.0213e-6f, 3820.f, 3830.f, 1445.5f, .15082f,
+ -.0027746f, -6.1623e-7f, -.004156f, 6.6755e-6f, 3830.f, 3840.f, 368.8f,
+ .2433f, 4.8895e-4f, -1.2565e-5f, -3.1389e-4f, -8.6255e-6f, 3840.f,
+ 3850.f, 2068.8f, .2275f, -8.8059e-4f, -7.9102e-6f, -.0024751f,
+ -3.6839e-6f, 3850.f, 3860.f, 634.35f, .19602f, .0017316f, -1.7618e-5f,
+ 2.7542e-4f, -9.9025e-6f, 3860.f, 3870.f, 660.01f, .16073f, .0019181f,
+ -1.8141e-5f, 8.7743e-4f, -1.3268e-5f, 3870.f, 3880.f, 596.2f, .22715f,
+ .0044999f, -2.8285e-5f, .0029743f, -2.3179e-5f, 3880.f, 3890.f, 497.07f,
+ .23257f, .0049027f, -2.8299e-5f, .0031352f, -2.2089e-5f, 3890.f, 3900.f,
+ 476.01f, .20656f, .0070284f, -3.7624e-5f, .0056038f, -3.3998e-5f,
+ 3900.f, 3910.f, 97.812f, .12575f, .012028f, -5.8026e-5f, .010886f,
+ -5.051e-5f, 3910.f, 3920.f, 154.07f, .2759f, .0075519f, -2.7169e-5f,
+ .0059888f, -2.6593e-5f, 3920.f, 3930.f, 75.906f, .19815f, .014672f,
+ -6.2916e-5f, .010813f, -4.7324e-5f, 3930.f, 3940.f, 91.761f, .19338f,
+ .015621f, -6.9646e-5f, .014264f, -6.8568e-5f, 3940.f, 3950.f, 23.976f,
+ .28167f, .0049108f, 1.7525e-5f, .0072419f, -1.0423e-5f, 3950.f, 3960.f,
+ 14.037f, .20425f, .017638f, -2.7195e-5f, .013686f, -3.6754e-5f, 3960.f,
+ 3970.f, 15.37f, .33316f, .0098866f, 2.0342e-5f, .011243f, -2.1419e-5f,
+ 3970.f, 3980.f, 5.4881f, .22417f, .0075532f, 3.9091e-5f, .010416f,
+ -2.6476e-6f, 3980.f, 3990.f, 8.3126f, .20066f, .013204f, -8.1155e-7f,
+ .014493f, -3.2804e-5f, 3990.f, 4e3f, 8.7033f, .12823f, .0053683f,
+ -1.0088e-5f, .0083956f, -9.9974e-6f, 4e3f, 4010.f, 7.1987f, .21615f,
+ .0019288f, 1.9286e-5f, .006975f, 2.1036e-5f, 4010.f, 4020.f, 7.374f,
+ .10603f, .0021924f, -1.68e-5f, .0031402f, 6.6314e-10f, 4020.f, 4030.f,
+ 1.2253f, .20951f, .0061999f, 3.6357e-5f, .012788f, -6.0887e-6f, 4030.f,
+ 4040.f, 7.9524f, .12691f, .0039534f, -2.3885e-5f, .0036525f,
+ -1.0242e-5f, 4040.f, 4050.f, .51733f, .11847f, .011888f, -3.4371e-5f,
+ .016178f, -2.9656e-5f, 4050.f, 4060.f, 1.8317f, .094248f, .0053224f,
+ -2.5376e-5f, .005784f, -6.4186e-6f, 4060.f, 4070.f, 2.7229f, .12453f,
+ .0093697f, -3.7263e-5f, .0090599f, -2.2481e-5f, 4070.f, 4080.f, 3.4742f,
+ .19542f, .0072771f, -3.4478e-5f, .0043552f, -2.4708e-5f, 4080.f, 4090.f,
+ .08819f, .11131f, .0125f, -3.4253e-5f, .016631f, -2.1563e-5f, 4090.f,
+ 4100.f, 4.472f, .16534f, .0066915f, -3.536e-5f, .0054523f, -3.2561e-5f,
+ 4100.f, 4110.f, .017698f, .14435f, .0099143f, 3.28e-5f, .020212f,
+ 3.5978e-6f, 4110.f, 4120.f, .49468f, .13443f, .0087298f, -3.5276e-5f,
+ .0068006f, -3.1378e-5f, 4120.f, 4130.f, 2.2881f, .15905f, .011097f,
+ -4.923e-5f, .01025f, -4.8021e-5f, 4130.f, 4140.f, .62111f, .16054f,
+ .011288f, -5.0025e-5f, .010196f, -4.7296e-5f, 4140.f, 4150.f, .60454f,
+ .14755f, .014727f, -4.9548e-5f, .014191f, -5.8716e-5f, 4150.f, 4160.f,
+ .093094f, .068954f, .004002f, -3.9015e-6f, .0055718f, -1.3126e-6f,
+ 4160.f, 4170.f, .27101f, .093272f, .013113f, -5.6084e-5f, .012707f,
+ -5.2567e-5f, 4170.f, 4180.f, .5398f, .067639f, .016122f, -7.5048e-5f,
+ .013265f, -6.515e-5f, 4180.f, 4190.f, .44133f, .17104f, .016673f,
+ -7.1388e-5f, .014609f, -6.461e-5f, 4190.f, 4200.f, .36918f, .11239f,
+ .013785f, -5.548e-5f, .014404f, -5.8254e-5f, 4200.f, 4210.f, .13276f,
+ .12746f, .017403f, -5.447e-5f, .013863f, -4.8485e-5f, 4210.f, 4220.f,
+ .080464f, .086998f, .022044f, -9.2895e-5f, .019048f, -8.7985e-5f,
+ 4220.f, 4230.f, .063692f, .14834f, .022806f, -8.4692e-5f, .023548f,
+ -9.253e-5f, 4230.f, 4240.f, .01811f, .12119f, .018389f, -2.2676e-6f,
+ .013683f, -2.6036e-5f, 4240.f, 4250.f, .209f, .16597f, .019432f,
+ -7.8011e-5f, .019282f, -8.4089e-5f, 4250.f, 4260.f, .049819f, .06211f,
+ .026704f, -1.1099e-4f, .025655f, -1.0067e-4f, 4260.f, 4270.f, .051444f,
+ .1311f, .014568f, -3.4291e-5f, .014016f, -4.9479e-5f, 4270.f, 4280.f,
+ .010759f, .15106f, .027993f, -1.0013e-4f, .023418f, -8.4057e-5f, 4280.f,
+ 4290.f, .005931f, .085611f, .036412f, -1.5063e-4f, .034796f,
+ -1.4138e-4f, 4290.f, 4300.f, .060294f, .13145f, .023253f, -8.8313e-5f,
+ .022949f, -9.0705e-5f, 4300.f, 4310.f, .0087499f, .11428f, .024739f,
+ -5.6984e-5f, .024765f, -7.2542e-5f, 4310.f, 4320.f, .0043984f, .17658f,
+ .035844f, -1.1719e-4f, .030706f, -1.0295e-4f, 4320.f, 4330.f, .0031592f,
+ .14762f, .014237f, 6.5312e-6f, .014523f, -1.9336e-5f, 4330.f, 4340.f,
+
+ .0022605f, .13901f, .023941f, 1.0579e-5f, .023751f, -4.5551e-5f, 4340.f,
+ 4350.f, 8.4338e-8f, 1.5285e-4f, .0047057f, -2.5631e-5f, .0022316f,
+ -2.3738e-5f, 4350.f, 4360.f, 9.5411e-8f, 1.1284e-4f, .0051111f,
+ -2.6317e-5f, .0030958f, -2.5483e-5f, 4360.f, 4370.f, 1.5708e-8f,
+ 4.7653e-5f, .0099036f, -4.9633e-5f, .0072007f, -4.4307e-5f, 4370.f,
+ 4380.f, 7.2646e-5f, .073368f, .017942f, 1.2698e-5f, .012584f,
+ -3.4551e-5f, 4380.f, 4390.f, 5.9152e-5f, .041171f, .00839f, -4.5951e-5f,
+ .0057949f, -4.0723e-5f, 4390.f, 4400.f, 9.0913e-5f, .0094376f, .037251f,
+ -1.6131e-4f, .034629f, -1.5582e-4f, 4400.f, 4410.f, 3.4561e-8f,
+ 4.7569e-5f, .0015514f, -1.0274e-5f, 6.5701e-7f, -1.2526e-5f, 4410.f,
+ 4420.f, 4.3107e-4f, .054262f, .024045f, -4.9839e-5f, .016547f,
+ -4.4636e-5f, 4420.f, 4430.f, 3.1142e-4f, .038963f, .014134f,
+ -6.8927e-5f, .011537f, -6.369e-5f, 4430.f, 4440.f, 1.4945e-8f,
+ 7.8332e-5f, .0089337f, -4.3145e-5f, .0069004f, -4.2442e-5f, 4440.f,
+ 4450.f, .0016802f, .051222f, .015502f, -2.3447e-5f, .010002f,
+ -3.2528e-5f, 4450.f, 4460.f, 1.0007e-4f, .066862f, .02459f, -9.8504e-5f,
+ .022882f, -1.0233e-4f, 4460.f, 4470.f, .0030025f, .051153f, .01923f,
+ -8.107e-5f, .015535f, -6.8267e-5f, 4470.f, 4480.f, 8.6831e-5f, .040458f,
+ .036221f, -1.5713e-4f, .03335f, -1.5083e-4f, 4480.f, 4490.f, .0080902f,
+ .1275f, .016863f, -7.6478e-5f, .01678f, -7.7918e-5f, 4490.f, 4500.f,
+ .0022317f, .15229f, .012535f, -1.3795e-5f, .010875f, -3.7123e-5f,
+ 4500.f, 4510.f, .019169f, .11664f, .010716f, -5.1479e-5f, .0082124f,
+ -4.6198e-5f, 4510.f, 4520.f, .0065788f, .15986f, .012038f, -5.1957e-5f,
+ .010074f, -5.1345e-5f, 4520.f, 4530.f, .03291f, .11768f, .0084067f,
+ -4.3158e-5f, .0067305f, -4.0106e-5f, 4530.f, 4540.f, .044345f, .15763f,
+ .0035365f, -2.4308e-5f, 7.9048e-4f, -1.7012e-5f, 4540.f, 4550.f,
+ .027331f, .16819f, .0042859f, -2.1639e-5f, .0038192f, -2.5423e-5f,
+ 4550.f, 4560.f, .020407f, .09609f, .001546f, -1.6323e-5f, 6.6197e-4f,
+ -9.1244e-6f, 4560.f, 4570.f, .057143f, .18848f, .0030453f, -1.8516e-5f,
+ .0016176f, -1.8614e-5f, 4570.f, 4580.f, .052929f, .13102f, -.0010515f,
+ -4.5621e-6f, -.0023271f, 2.7682e-6f, 4580.f, 4590.f, .028557f, .14681f,
+ -4.8301e-4f, -6.3151e-6f, -.0019647f, -5.3522e-6f, 4590.f, 4600.f,
+ .0046383f, .13391f, .0088609f, -2.6493e-5f, .0082741f, -3.2453e-5f,
+ 4600.f, 4610.f, .02773f, .10824f, -.0034789f, 5.4132e-6f, -.0030391f,
+ 8.0678e-6f, 4610.f, 4620.f, .051267f, .16778f, -.0015076f, -7.4663e-7f,
+ -.0025263f, 3.707e-6f, 4620.f, 4630.f, .0129f, .13459f, 4.1658e-4f,
+ 7.4475e-7f, .0012458f, -7.7586e-6f, 4630.f, 4640.f, .044954f, .38311f,
+ -.0018643f, 4.6026e-6f, -.0027134f, 4.4958e-6f, 4640.f, 4650.f,
+ .0048639f, .10343f, .0025659f, -1.6961e-5f, .0023819f, -1.4778e-5f,
+ 4650.f, 4660.f, .0012082f, .18004f, .014733f, -5.2646e-5f, .014275f,
+ -6.0508e-5f, 4660.f, 4670.f, .0013469f, .34467f, .012177f, -2.3395e-5f,
+ .010966f, -3.6299e-5f, 4670.f, 4680.f, .0068991f, .1607f, 6.4738e-4f,
+ 3.7071e-6f, .0032901f, -2.0981e-6f, 4680.f, 4690.f, .027452f, .060959f,
+ -.0051851f, 1.2668e-5f, -.0041528f, 2.6305e-5f, 4690.f, 4700.f,
+ .017796f, .15523f, -.0027265f, 3.7407e-6f, -.0033733f, 1.0358e-5f,
+ 4700.f, 4710.f, .011446f, .17796f, -6.8324e-4f, 6.8406e-6f, -.0010826f,
+ 5.9431e-6f, 4710.f, 4720.f, .029309f, .13652f, -.0017282f, 6.762e-6f,
+ 5.6764e-4f, 1.3237e-5f, 4720.f, 4730.f, .021395f, .18395f, -.0015768f,
+ 1.4383e-5f, 1.5897e-4f, 8.796e-6f, 4730.f, 4740.f, .0025077f, .18622f,
+ .0042912f, -4.9559e-6f, .0045676f, -2.6247e-6f, 4740.f, 4750.f,
+ .031587f, .13943f, -.0012088f, -8.9815e-8f, -1.571e-4f, 2.0359e-5f,
+ 4750.f, 4760.f, .034566f, .28253f, .0016858f, -8.995e-6f, 9.752e-4f,
+ -8.1082e-6f, 4760.f, 4770.f, .020369f, .14591f, -.0014421f, 1.9399e-5f,
+ .0039665f, 1.4338e-5f, 4770.f, 4780.f, .0081447f, .12195f, .0013964f,
+ 3.2025e-5f, .0037728f, 2.0537e-5f, 4780.f, 4790.f, .019803f, .14625f,
+ 9.6298e-4f, -2.9783e-6f, .0041118f, -9.7923e-7f, 4790.f, 4800.f,
+ .0052146f, .17691f, .014543f, -3.1749e-5f, .0149f, -4.4049e-5f, 4800.f,
+ 4810.f, .035065f, .21617f, -.0021492f, 2.3072e-5f, .001178f, 2.4416e-5f,
+ 4810.f, 4820.f, .012656f, .15792f, .0083705f, -2.1219e-5f, .0082684f,
+ -2.8775e-5f, 4820.f, 4830.f, .014126f, .4985f, .0096621f, 2.3197e-5f,
+ .011163f, -2.0765e-5f, 4830.f, 4840.f, .023704f, .35541f, .0055808f,
+ -1.0952e-6f, .0068854f, -1.3359e-5f, 4840.f, 4850.f, .032166f, .23632f,
+ -2.3289e-4f, 7.945e-6f, .0017163f, 2.8957e-6f, 4850.f, 4860.f, .026468f,
+ .24812f, .008326f, 8.9107e-6f, .010638f, -2.4848e-5f, 4860.f, 4870.f,
+ .012607f, .28278f, .014341f, -1.7161e-5f, .017744f, -4.3433e-5f, 4870.f,
+ 4880.f, .0019484f, .13452f, .014299f, -5.8644e-5f, .012622f,
+ -5.8891e-5f, 4880.f, 4890.f, .019835f, .43138f, .016502f, -3.7834e-5f,
+ .015564f, -5.3844e-5f, 4890.f, 4900.f, .031673f, .23676f, .018724f,
+ -6.2795e-5f, .017963f, -6.7476e-5f, 4900.f, 4910.f, .020383f, .1686f,
+ .02082f, -9.2373e-5f, .018807f, -8.5676e-5f, 4910.f, 4920.f, .034221f,
+ .37729f, .014636f, 9.8132e-6f, .015033f, -3.2546e-5f, 4920.f, 4930.f,
+ .041381f, .17341f, .004227f, 2.6778e-5f, .0073624f, -6.193e-6f, 4930.f,
+ 4940.f, .050322f, .24574f, .01506f, -6.0731e-5f, .01171f, -4.9448e-5f,
+ 4940.f, 4950.f, .11355f, .43168f, .012506f, -2.3567e-5f, .010508f,
+ -3.2884e-5f, 4950.f, 4960.f, .073646f, .28063f, .01551f, -6.3821e-5f,
+ .012136f, -5.1762e-5f, 4960.f, 4970.f, .0021754f, .2329f, .025115f,
+ 1.3402e-6f, .023138f, -4.9298e-5f, 4970.f, 4980.f, .20462f, .37006f,
+ .013871f, -5.7344e-5f, .011137f, -4.9726e-5f, 4980.f, 4990.f, .15479f,
+ .14505f, .012101f, -5.5517e-5f, .011913f, -3.8561e-5f, 4990.f, 5e3f,
+ .1627f, .14157f, .012656f, -4.9554e-5f, .01273f, -4.7918e-5f, 5e3f,
+ 5010.f, .20283f, .16538f, .0098358f, -4.1905e-5f, .0091599f,
+ -3.3109e-5f, 5010.f, 5020.f, .32847f, .20501f, .010455f, -3.0987e-5f,
+ .011634f, -2.2216e-5f, 5020.f, 5030.f, .4088f, .1568f, .0097922f,
+ -4.2397e-5f, .0098076f, -3.8651e-5f, 5030.f, 5040.f, .27012f, .21951f,
+ .012867f, -1.8768e-6f, .012462f, -2.155e-5f, 5040.f, 5050.f, .5761f,
+ .16605f, .0061804f, -3.0533e-5f, .0069772f, -1.7735e-5f, 5050.f, 5060.f
+ };
+
+ /* WATER VAPOR (2500 - 5040 CM-1) */
+ for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
+} /* wava1 */
+
+
+void dica3 (float a[8], const long int inu)
+{
+
+
+ static const float acr[2048] = { 4.1135e-5f, .13491f,
+ .019511f, -8.8592e-5f, .017169f, -8.6383e-5f, 7620.f, 7630.f, 0.f, 0.f,
+ 0.f, 0.f, 0.f, 0.f, 7630.f, 7640.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7640.f,
+ 7650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7650.f, 7660.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 7660.f, 7670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7670.f, 7680.f,
+ 6.9843e-6f, .05869f, .017996f, -8.495e-5f, .014986f, -7.9255e-5f,
+ 7680.f, 7690.f, 4.4856e-5f, .1161f, .012313f, -6.1208e-5f, .0094917f,
+ -5.6817e-5f, 7690.f, 7700.f, 2.1119e-4f, .14823f, .0058288f,
+
+ -3.5255e-5f, .0029752f, -3.0772e-5f, 7700.f, 7710.f, 6.8368e-4f,
+ .18822f, 2.1812e-4f, -1.3229e-5f, -.0027425f, -8.0771e-6f, 7710.f,
+ 7720.f, 8.0401e-4f, .20648f, -.0032887f, 5.0708e-8f, -.0062117f,
+ 5.94e-6f, 7720.f, 7730.f, 3.6897e-4f, .20612f, -.0045166f, 4.7173e-6f,
+ -.0074494f, 1.0697e-5f, 7730.f, 7740.f, .0011094f, .31021f, -.0022536f,
+ -1.0224e-6f, -.0033444f, 2.1129e-6f, 7740.f, 7750.f, 6.5848e-4f,
+ .26193f, .0027594f, -2.1278e-5f, 2.5217e-4f, -1.8776e-5f, 7750.f,
+ 7760.f, 7.3155e-5f, .30739f, .013041f, -6.319e-5f, .010499f,
+ -6.0136e-5f, 7760.f, 7770.f, 1.9363e-5f, .19417f, .014647f, -7.1772e-5f,
+ .011659f, -6.5892e-5f, 7770.f, 7780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 7780.f,
+ 7790.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7790.f, 7800.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 7800.f, 7810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7810.f, 7820.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 7820.f, 7830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7830.f,
+ 7840.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7840.f, 7850.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 7850.f, 7860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7860.f, 7870.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 7870.f, 7880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7880.f,
+ 7890.f, 3.719e-5f, .1891f, 3.2484e-4f, -1.3576e-5f, -.0026862f,
+ -8.2867e-6f, 7890.f, 7900.f, 9.4656e-5f, .363f, -.0020395f, -4.2752e-6f,
+ -.0049939f, 1.2049e-6f, 7900.f, 7910.f, 7.3888e-5f, .33612f, -.0027854f,
+ -1.4358e-6f, -.005628f, 3.7427e-6f, 7910.f, 7920.f, 3.5986e-5f, .14439f,
+ -.0040916f, 3.0556e-6f, -.0070423f, 9.0581e-6f, 7920.f, 7930.f,
+ 7.729e-5f, .22754f, -.0015562f, -6.2734e-6f, -.0044592f, -1.0627e-6f,
+ 7930.f, 7940.f, 1.8388e-5f, .092491f, .0027526f, -2.4014e-5f,
+ -3.4204e-4f, -1.8092e-5f, 7940.f, 7950.f, 1.9936e-7f, .0010968f,
+ .001703f, -2.0156e-5f, -.0013872f, -1.4222e-5f, 7950.f, 7960.f,
+ 4.9455e-7f, .0019615f, -.0015846f, -6.8674e-6f, -.004292f, -1.7132e-6f,
+ 7960.f, 7970.f, 2.7828e-7f, .0013177f, -.0036989f, 1.1926e-6f,
+ -.0065515f, 6.9563e-6f, 7970.f, 7980.f, 3.8372e-7f, .0017475f,
+ -.0038411f, 1.7875e-6f, -.0067043f, 7.5942e-6f, 7980.f, 7990.f,
+ 7.3276e-7f, .003011f, -6.7794e-4f, -9.4857e-6f, -.0034111f,
+ -5.1641e-6f, 7990.f, 8e3f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8e3f, 8010.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 8010.f, 8020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 8020.f,
+ 8030.f, 3.7029e-8f, 3.6096e-4f, .012109f, -6.2089e-5f, .0089059f,
+ -5.5639e-5f, 8030.f, 8040.f, 2.1335e-7f, .0010751f, .0088149f,
+ -4.8284e-5f, .0057133f, -4.2623e-5f, 8040.f, 8050.f, 4.6462e-7f,
+ .001086f, .0049284f, -3.291e-5f, .0017555f, -2.6942e-5f, 8050.f, 8060.f,
+ 1.5991e-6f, .0018385f, 6.4633e-4f, -1.5477e-5f, -.0022392f,
+ -1.0372e-5f, 8060.f, 8070.f, 1.7752e-6f, .0016397f, -.0024966f,
+ -3.4666e-6f, -.0051909f, 1.8847e-6f, 8070.f, 8080.f, 2.4423e-5f,
+ .26254f, .02579f, -7.7107e-5f, .025403f, -1.1405e-4f, 8080.f, 8090.f,
+ 6.1857e-5f, .23309f, .021977f, -7.7807e-5f, .020482f, -9.5402e-5f,
+ 8090.f, 8100.f, 1.3473e-4f, .23293f, .019374f, -8.4779e-5f, .016814f,
+ -8.2971e-5f, 8100.f, 8110.f, 3.3293e-4f, .42794f, .016857f, -7.4779e-5f,
+ .01563f, -7.4735e-5f, 8110.f, 8120.f, 4.5545e-4f, .42084f, .014131f,
+ -6.4833e-5f, .011587f, -6.2246e-5f, 8120.f, 8130.f, 3.9267e-4f, .4459f,
+ .01422f, -6.6328e-5f, .010179f, -5.8346e-5f, 8130.f, 8140.f, .0014095f,
+ .66221f, .012879f, -6.3481e-5f, .010259f, -5.9679e-5f, 8140.f, 8150.f,
+ .0025744f, .34109f, .0081434f, -3.5365e-5f, .010242f, -4.4763e-5f,
+ 8150.f, 8160.f, .0053482f, .12345f, .0021618f, -2.1398e-5f, -8.9174e-4f,
+ -1.5761e-5f, 8160.f, 8170.f, .0085974f, .12902f, -.0011939f, -8.269e-6f,
+ -.0041809f, -2.5012e-6f, 8170.f, 8180.f, .011093f, .20887f, -.0036354f,
+ 1.357e-6f, -.006594f, 7.4093e-6f, 8180.f, 8190.f, .0090124f, .22951f,
+ -.0041975f, 3.4952e-6f, -.0071581f, 9.6182e-6f, 8190.f, 8200.f,
+ .022977f, .54634f, 5.4679e-4f, -7.4452e-6f, 3.2715e-5f, -7.7515e-6f,
+ 8200.f, 8210.f, 4.0967e-5f, .33171f, .029828f, -1.2884e-4f, .027502f,
+ -1.2751e-4f, 8210.f, 8220.f, 1.3117e-4f, .36661f, .024705f, -1.0516e-4f,
+ .023688f, -1.1029e-4f, 8220.f, 8230.f, 4.1427e-4f, .33236f, .018964f,
+ -8.1986e-5f, .018612f, -8.8547e-5f, 8230.f, 8240.f, .0011268f, .30228f,
+ .013786f, -6.0455e-5f, .014251f, -6.6968e-5f, 8240.f, 8250.f, .0038631f,
+ .3115f, .0080823f, -3.8679e-5f, .0084273f, -4.2578e-5f, 8250.f, 8260.f,
+ .0060039f, .26991f, .0040499f, -2.3093e-5f, .0051036f, -2.751e-5f,
+ 8260.f, 8270.f, .014968f, .24443f, -6.0624e-4f, -8.9134e-6f, -.0014888f,
+ -7.5779e-6f, 8270.f, 8280.f, .015831f, .42226f, -.0020274f, 6.2203e-6f,
+ -1.636e-4f, -2.1524e-6f, 8280.f, 8290.f, .0086272f, .42161f, -.0028717f,
+ 1.6391e-5f, 5.8996e-4f, 1.5552e-5f, 8290.f, 8300.f, .038978f, .60506f,
+ -1.8963e-4f, -4.6658e-6f, -.0011243f, -4.8784e-6f, 8300.f, 8310.f, 0.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 8310.f, 8320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 8320.f,
+ 8330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8330.f, 8340.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 8340.f, 8350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8350.f, 8360.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 8360.f, 8370.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8370.f,
+ 8380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8380.f, 8390.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 8390.f, 8400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8400.f, 8410.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 8410.f, 8420.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8420.f,
+ 8430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8430.f, 8440.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 8440.f, 8450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8450.f, 8460.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 8460.f, 8470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8470.f,
+ 8480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8480.f, 8490.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 8490.f, 8500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8500.f, 8510.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 8510.f, 8520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8520.f,
+ 8530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8530.f, 8540.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 8540.f, 8550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8550.f, 8560.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 8560.f, 8570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8570.f,
+ 8580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8580.f, 8590.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 8590.f, 8600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8600.f, 8610.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 8610.f, 8620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8620.f,
+ 8630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8630.f, 8640.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 8640.f, 8650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8650.f, 8660.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 8660.f, 8670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8670.f,
+ 8680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8680.f, 8690.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 8690.f, 8700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8700.f, 8710.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 8710.f, 8720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8720.f,
+ 8730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8730.f, 8740.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 8740.f, 8750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8750.f, 8760.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 8760.f, 8770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8770.f,
+ 8780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8780.f, 8790.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 8790.f, 8800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8800.f, 8810.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 8810.f, 8820.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8820.f,
+ 8830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8830.f, 8840.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 8840.f, 8850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8850.f, 8860.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 8860.f, 8870.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8870.f,
+ 8880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8880.f, 8890.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 8890.f, 8900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8900.f, 8910.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 8910.f, 8920.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8920.f,
+ 8930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8930.f, 8940.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 8940.f, 8950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8950.f, 8960.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 8960.f, 8970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8970.f,
+ 8980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8980.f, 8990.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 8990.f, 9e3f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9e3f, 9010.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 9010.f, 9020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9020.f,
+ 9030.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9030.f, 9040.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 9040.f, 9050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9050.f, 9060.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 9060.f, 9070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9070.f,
+ 9080.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9080.f, 9090.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 9090.f, 9100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9100.f, 9110.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 9110.f, 9120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9120.f,
+ 9130.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9130.f, 9140.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 9140.f, 9150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9150.f, 9160.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 9160.f, 9170.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9170.f,
+ 9180.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9180.f, 9190.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 9190.f, 9200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9200.f, 9210.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 9210.f, 9220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9220.f,
+ 9230.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9230.f, 9240.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 9240.f, 9250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9250.f, 9260.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 9260.f, 9270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9270.f,
+ 9280.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9280.f, 9290.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 9290.f, 9300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9300.f, 9310.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 9310.f, 9320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9320.f,
+ 9330.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9330.f, 9340.f, 9.9593e-6f, .060237f,
+ .0097616f, -5.2148e-5f, .0066534f, -4.6124e-5f, 9340.f, 9350.f,
+ 4.3567e-5f, .12051f, .0054505f, -3.4277e-5f, .0024633f, -2.9032e-5f,
+ 9350.f, 9360.f, 8.8924e-5f, .12477f, .0012273f, -1.774e-5f, -.0018429f,
+ -1.1984e-5f, 9360.f, 9370.f, 1.5573e-4f, .16489f, -.0021342f,
+ -4.4631e-6f, -.005046f, 1.1731e-6f, 9370.f, 9380.f, 9.4382e-5f, .17579f,
+ -.0041243f, 3.1944e-6f, -.0071235f, 9.3601e-6f, 9380.f, 9390.f,
+ 2.1829e-4f, .27491f, -.0034678f, 8.2722e-7f, -.0064858f, 7.0242e-6f,
+ 9390.f, 9400.f, 2.27e-4f, .36616f, .0019245f, -1.579e-5f, -1.5673e-4f,
+ -1.5436e-5f, 9400.f, 9410.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9410.f, 9420.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9420.f, 9430.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 9430.f, 9440.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9440.f, 9450.f, 4.0618e-5f,
+ .33672f, .016922f, -7.9759e-5f, .013854f, -7.4271e-5f, 9450.f, 9460.f,
+ 8.026e-5f, .35567f, .013366f, -6.6285e-5f, .010448f, -6.0815e-5f,
+ 9460.f, 9470.f, 1.7445e-4f, .15326f, .0081302f, -4.4538e-5f, .0056112f,
+ -4.1022e-5f, 9470.f, 9480.f, 3.3041e-4f, .26053f, .0049592f, -2.831e-5f,
+ .0049032f, -3.3415e-5f, 9480.f, 9490.f, 8.9723e-4f, .1582f, -1.1481e-4f,
+ -1.225e-5f, -.0031268f, -6.7086e-6f, 9490.f, 9500.f, 8.7248e-4f,
+ .13522f, -.0029599f, -1.3666e-6f, -.005813f, 4.3278e-6f, 9500.f, 9510.f,
+ 5.7391e-4f, .20153f, -.0043771f, 4.1806e-6f, -.0073125f, 1.0212e-5f,
+ 9510.f, 9520.f, .002106f, .33852f, -.0026269f, -1.9082e-6f, -.0056393f,
+ 3.824e-6f, 9520.f, 9530.f, 8.7766e-4f, .35363f, .0044041f, -2.4109e-5f,
+ .0031707f, -2.6057e-5f, 9530.f, 9540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 9540.f, 9550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9550.f, 9560.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 9560.f, 9570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9570.f,
+ 9580.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9580.f, 9590.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 9590.f, 9600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9600.f, 9610.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 9610.f, 9620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9620.f,
+ 9630.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9630.f, 9640.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 9640.f, 9650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9650.f, 9660.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 9660.f, 9670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9670.f,
+ 9680.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9680.f, 9690.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 9690.f, 9700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9700.f, 9710.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 9710.f, 9720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9720.f,
+ 9730.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9730.f, 9740.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 9740.f, 9750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9750.f, 9760.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 9760.f, 9770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9770.f,
+ 9780.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9780.f, 9790.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 9790.f, 9800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9800.f, 9810.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 9810.f, 9820.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9820.f,
+ 9830.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9830.f, 9840.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 9840.f, 9850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9850.f, 9860.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 9860.f, 9870.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9870.f,
+ 9880.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9880.f, 9890.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 9890.f, 9900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9900.f, 9910.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 9910.f, 9920.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9920.f,
+ 9930.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9930.f, 9940.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 9940.f, 9950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9950.f, 9960.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 9960.f, 9970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9970.f,
+ 9980.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9980.f, 9990.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 9990.f, 1e4f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1e4f, 10010.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 10010.f, 10020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10020.f,
+ 10030.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10030.f, 10040.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 10040.f, 10050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10050.f, 10060.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 10060.f, 10070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 10070.f,
+ 10080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10080.f, 10090.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 10090.f, 10100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10100.f,
+ 10110.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10110.f, 10120.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 10120.f, 10130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10130.f, 10140.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 10140.f, 10150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 10150.f,
+ 10160.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10160.f, 10170.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 10170.f, 10180.f
+ };
+
+ /* carbon dioxide (7620 - 10170 cm-1) */
+ for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
+} /* dica3 */
+
+
+void dica2 (float a[8], const long int inu)
+{
+
+
+ static const float acr[2048] = { .37011f, .18132f,
+ .0098385f, -4.992e-5f, .0096965f, -3.9497e-5f, 5060.f, 5070.f, 1.7202f,
+ .2316f, .0029954f, -2.2435e-5f, .0029757f, -9.2488e-6f, 5070.f, 5080.f,
+ 3.3606f, .25416f, -.0016977f, -4.0846e-6f, -.0013656f, 1.1658e-5f,
+ 5080.f, 5090.f, 1.8282f, .30223f, -.0032772f, 9.4805e-6f, -5.335e-4f,
+ 2.1209e-5f, 5090.f, 5100.f, 2.9024f, .38026f, -.0030989f, 7.2616e-6f,
+ -.001377f, 1.615e-5f, 5100.f, 5110.f, 4.2563f, .41711f, -1.4453e-4f,
+ -8.0697e-6f, 4.2978e-4f, -2.7285e-6f, 5110.f, 5120.f, 1.1106f, .56558f,
+ .0071956f, -3.6594e-5f, .0079066f, -3.7847e-5f, 5120.f, 5130.f, .30634f,
+ .97715f, .015099f, -6.7211e-5f, .015152f, -6.5294e-5f, 5130.f, 5140.f,
+ .11213f, .77801f, .019757f, -8.6279e-5f, .020188f, -8.4289e-5f, 5140.f,
+ 5150.f, .014584f, 1.0474f, .030585f, -1.2981e-4f, .030136f, -1.2999e-4f,
+ 5150.f, 5160.f, .001482f, .96349f, .039762f, -1.6303e-4f, .039329f,
+ -1.6879e-4f, 5160.f, 5170.f, 7.185e-5f, .75521f, .050597f, -1.9183e-4f,
+ .049189f, -2.096e-4f, 5170.f, 5180.f, 2.9909e-5f, .14908f, .03608f,
+ -1.1815e-4f, .034793f, -1.453e-4f, 5180.f, 5190.f, 1.2504e-4f, .18326f,
+ .032726f, -1.4282e-4f, .029813f, -1.3805e-4f, 5190.f, 5200.f,
+ 2.1512e-4f, .19978f, .02843f, -1.2662e-4f, .025525f, -1.2103e-4f,
+ 5200.f, 5210.f, 9.6169e-5f, .20142f, .026447f, -1.1912e-4f, .023511f,
+ -1.1308e-4f, 5210.f, 5220.f, 1.9738e-4f, .21048f, .02716f, -1.2182e-4f,
+ .024213f, -1.1582e-4f, 5220.f, 5230.f, 2.6384e-4f, .44256f, .028679f,
+ -1.144e-4f, .024161f, -1.056e-4f, 5230.f, 5240.f, 3.6492e-4f, .82665f,
+ .01703f, -5.0383e-5f, .015395f, -5.7885e-5f, 5240.f, 5250.f, 1.5039e-4f,
+ .27488f, .013098f, -6.1988e-5f, .010623f, -5.4594e-5f, 5250.f, 5260.f,
+ 2.4449e-4f, .45805f, .01877f, -8.2525e-5f, .016371f, -8.1515e-5f,
+ 5260.f, 5270.f, 6.037e-5f, .43685f, .016157f, -6.0387e-5f, .013838f,
+ -6.3959e-5f, 5270.f, 5280.f, 4.5624e-4f, 1.0732f, .012236f, -4.3571e-5f,
+ .011139f, -5.5369e-5f, 5280.f, 5290.f, 9.4288e-4f, .71418f, .0033079f,
+ -9.3343e-6f, .0045345f, -2.5858e-5f, 5290.f, 5300.f, .0024083f, .75842f,
+ .0033829f, 4.6857e-7f, .0043964f, -1.9712e-5f, 5300.f, 5310.f, .011861f,
+ .7448f, -.0016809f, -1.8723e-6f, -.0036883f, 4.435e-6f, 5310.f, 5320.f,
+ .005669f, .26992f, -.0026897f, -1.9753e-6f, -.0056893f, 3.9128e-6f,
+ 5320.f, 5330.f, .0043472f, .36618f, .0037666f, -2.1625e-5f, .0021182f,
+ -2.2907e-5f, 5330.f, 5340.f, 6.5931e-5f, .17111f, .021978f, -9.6238e-5f,
+ .020336f, -9.699e-5f, 5340.f, 5350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 5350.f,
+ 5360.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5360.f, 5370.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 5370.f, 5380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5380.f, 5390.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 5390.f, 5400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5400.f,
+ 5410.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5410.f, 5420.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 5420.f, 5430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5430.f, 5440.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 5440.f, 5450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5450.f,
+ 5460.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5460.f, 5470.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 5470.f, 5480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5480.f, 5490.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 5490.f, 5500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5500.f,
+ 5510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5510.f, 5520.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 5520.f, 5530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5530.f, 5540.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 5540.f, 5550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5550.f,
+ 5560.f, 6.8899e-6f, .12901f, .032092f, -1.4141e-4f, .029106f,
+ -1.3565e-4f, 5560.f, 5570.f, 5.4438e-6f, .10241f, .030061f, -1.3353e-4f,
+ .027225f, -1.2783e-4f, 5570.f, 5580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 5580.f,
+ 5590.f, 1.3218e-5f, .23142f, .031168f, -1.3734e-4f, .028262f,
+ -1.3193e-4f, 5590.f, 5600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5600.f, 5610.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5610.f, 5620.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 5620.f, 5630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5630.f, 5640.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 5640.f, 5650.f, 3.3959e-6f, .061663f, .034194f,
+ -1.4999e-4f, .031058f, -1.438e-4f, 5650.f, 5660.f, 1.0828e-5f, .12604f,
+ .03117f, -1.3759e-4f, .028105f, -1.3178e-4f, 5660.f, 5670.f, 1.7083e-5f,
+ .16767f, .028148f, -1.2567e-4f, .025263f, -1.1999e-4f, 5670.f, 5680.f,
+ 4.9699e-6f, .072931f, .026646f, -1.1993e-4f, .02372f, -1.1402e-4f,
+ 5680.f, 5690.f, 3.2495e-5f, .33854f, .028198f, -1.2521e-4f, .025185f,
+ -1.1947e-4f, 5690.f, 5700.f, 8.5544e-6f, .12346f, .03299f, -1.4471e-4f,
+ .029937f, -1.3907e-4f, 5700.f, 5710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 5710.f,
+ 5720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5720.f, 5730.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 5730.f, 5740.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5740.f, 5750.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 5750.f, 5760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5760.f,
+ 5770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5770.f, 5780.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 5780.f, 5790.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5790.f, 5800.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 5800.f, 5810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5810.f,
+ 5820.f, 1.0801e-7f, 6.4763e-4f, .00504f, -3.331e-5f, .0018319f,
+ -2.715e-5f, 5820.f, 5830.f, 3.6558e-7f, .0011712f, .0012766f,
+ -1.7918e-5f, -.0017271f, -1.2476e-5f, 5830.f, 5840.f, 6.5048e-7f,
+ .0015865f, -.0022804f, -3.9603e-6f, -.0050092f, 1.3558e-6f, 5840.f,
+ 5850.f, 2.8928e-7f, .0011091f, -.0041564f, 3.1815e-6f, -.0071328f,
+ 9.2288e-6f, 5850.f, 5860.f, 8.7451e-7f, .0023908f, -.003329f,
+ 2.1406e-7f, -.0062303f, 6.1286e-6f, 5860.f, 5870.f, 6.7089e-7f,
+ .0021602f, .0012514f, -1.6242e-5f, -.0014507f, -1.275e-5f, 5870.f,
+ 5880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5880.f, 5890.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 5890.f, 5900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5900.f, 5910.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 5910.f, 5920.f, 1.7501e-8f, 1.3034e-4f, .0051578f,
+ -3.4109e-5f, .0018735f, -2.7495e-5f, 5920.f, 5930.f, 6.9507e-7f,
+ .0034287f, 4.4624e-4f, -1.3702e-5f, -.0024553f, -8.9919e-6f, 5930.f,
+ 5940.f, 7.8354e-7f, .0027679f, -.002211f, -4.0762e-6f, -.0050605f,
+ 1.5266e-6f, 5940.f, 5950.f, 1.7028e-5f, .28847f, .029444f, -1.0994e-4f,
+ .027638f, -1.257e-4f, 5950.f, 5960.f, 1.43e-5f, .23307f, .025314f,
+ -6.3115e-5f, .025428f, -1.0758e-4f, 5960.f, 5970.f, 2.9931e-5f, .32693f,
+ .031262f, -1.0549e-4f, .030096f, -1.315e-4f, 5970.f, 5980.f, 1.6591e-4f,
+ .85547f, .027749f, -1.2007e-4f, .025471f, -1.1947e-4f, 5980.f, 5990.f,
+ 4.2245e-4f, .43143f, .020385f, -9.2124e-5f, .018281f, -8.9908e-5f,
+ 5990.f, 6e3f, 9.3274e-4f, .46433f, .015249f, -7.1885e-5f, .01312f,
+ -6.839e-5f, 6e3f, 6010.f, 7.0225e-4f, .54757f, .013086f, -5.8065e-5f,
+ .011855f, -5.6321e-5f, 6010.f, 6020.f, 6.928e-4f, .65125f, .013222f,
+ -5.6472e-5f, .011874f, -5.5027e-5f, 6020.f, 6030.f, .0015664f, .5897f,
+ .015019f, -7.1875e-5f, .012178f, -6.7231e-5f, 6030.f, 6040.f, .0038079f,
+ .38374f, .0089238f, -3.815e-5f, .0095406f, -4.6524e-5f, 6040.f, 6050.f,
+ .011401f, .22142f, .0011962f, -1.4969e-5f, 5.0672e-4f, -5.0173e-6f,
+ 6050.f, 6060.f, .015986f, .20314f, -.0028719f, -1.5218e-6f, -.0057785f,
+ 4.2132e-6f, 6060.f, 6070.f, .0065575f, .20869f, -.0045237f, 4.7582e-6f,
+ -.0074277f, 1.0726e-5f, 6070.f, 6080.f, .016542f, .20732f, -.0033062f,
+ 1.2692e-7f, -.0062117f, 5.9729e-6f, 6080.f, 6090.f, .0148f, .21832f,
+ 5.2489e-4f, -1.4021e-5f, -.002348f, -9.405e-6f, 6090.f, 6100.f,
+ .0037777f, .221f, .0079105f, -4.1125e-5f, .0056565f, -3.9694e-5f,
+ 6100.f, 6110.f, 2.3785e-4f, .20223f, .019267f, -7.498e-5f, .018479f,
+ -8.4052e-5f, 6110.f, 6120.f, 8.7992e-6f, .013627f, .0023267f,
+ 9.2669e-5f, .014502f, 8.1104e-5f, 6120.f, 6130.f, 4.6902e-5f, .41886f,
+ .0248f, 7.0996e-5f, .036122f, -1.3184e-4f, 6130.f, 6140.f, 1.7614e-4f,
+ .70325f, .034157f, -1.2548e-4f, .032692f, -1.4479e-4f, 6140.f, 6150.f,
+ 5.1423e-4f, .765f, .030511f, -1.3248e-4f, .028126f, -1.2927e-4f, 6150.f,
+ 6160.f, .0016425f, .80783f, .024399f, -1.0406e-4f, .023798f,
+ -1.0618e-4f, 6160.f, 6170.f, .0047297f, .7047f, .018441f, -8.1354e-5f,
+ .017633f, -8.284e-5f, 6170.f, 6180.f, .012112f, .7774f, .014404f,
+ -6.4815e-5f, .014093f, -6.4401e-5f, 6180.f, 6190.f, .029946f, .46202f,
+ .0077033f, -3.8421e-5f, .0091624f, -3.7333e-5f, 6190.f, 6200.f,
+ .084779f, .36412f, .0025097f, -1.7677e-5f, .0033111f, -1.9653e-5f,
+ 6200.f, 6210.f, .14928f, .35083f, -.0016626f, 6.5627e-7f, -1.0556e-5f,
+ 3.0708e-6f, 6210.f, 6220.f, .055916f, .2564f, -.0037859f, 9.6465e-6f,
+ -4.846e-4f, 2.9685e-5f, 6220.f, 6230.f, .14147f, .24788f, -.0037163f,
+ 1.7896e-6f, -.006379f, 1.0289e-5f, 6230.f, 6240.f, .16605f, .27773f,
+ 3.1594e-4f, -1.2404e-5f, -.0024142f, -8.6644e-6f, 6240.f, 6250.f,
+ .026015f, .2642f, .0096177f, -4.5715e-5f, .0081902f, -4.718e-5f, 6250.f,
+ 6260.f, 3.4429e-4f, .24315f, .027429f, -1.0196e-4f, .028346f,
+ -1.1603e-4f, 6260.f, 6270.f, 4.6627e-5f, .19149f, .036426f, -1.3678e-4f,
+ .034831f, -1.5131e-4f, 6270.f, 6280.f, 2.1373e-4f, .25683f, .031955f,
+ -1.3913e-4f, .029335f, -1.3555e-4f, 6280.f, 6290.f, .0013513f, .24863f,
+ .022352f, -9.6861e-5f, .021515f, -9.9991e-5f, 6290.f, 6300.f, .0054489f,
+ .20135f, .014377f, -6.5562e-5f, .015352f, -6.4813e-5f, 6300.f, 6310.f,
+ .027679f, .22784f, .0074243f, -3.7863e-5f, .0085371f, -3.3611e-5f,
+ 6310.f, 6320.f, .078593f, .25925f, .0020493f, -1.5599e-5f, .0043199f,
+ -6.7814e-6f, 6320.f, 6330.f, .14691f, .31965f, -.0018417f, -2.6752e-7f,
+ -4.3593e-4f, 7.2456e-6f, 6330.f, 6340.f, .060904f, .38372f, -.0026072f,
+ 1.0806e-5f, 3.4105e-5f, 6.1858e-6f, 6340.f, 6350.f, .16958f, .41812f,
+ -.0032411f, 1.9629e-6f, -.0029726f, 8.5775e-6f, 6350.f, 6360.f, .14604f,
+ .4663f, .0014212f, -1.3457e-5f, .0019636f, -1.361e-5f, 6360.f, 6370.f,
+ .031358f, .68476f, .010997f, -4.6694e-5f, .011746f, -5.4252e-5f, 6370.f,
+ 6380.f, .0010642f, .83438f, .027721f, -1.1549e-4f, .027342f,
+ -1.2081e-4f, 6380.f, 6390.f, 1.0993e-5f, .084985f, .011868f, 1.2012e-4f,
+ .014373f, 3.5831e-5f, 6390.f, 6400.f, 6.8548e-5f, .19065f, -1.396e-4f,
+ -1.1926e-5f, -.0033005f, -5.8719e-6f, 6400.f, 6410.f, 5.8606e-5f,
+ .18176f, .0053969f, -3.2912e-5f, .0024598f, -2.8413e-5f, 6410.f, 6420.f,
+ 1.3107e-5f, .089518f, .011918f, -6.0253e-5f, .0088864f, -5.4787e-5f,
+ 6420.f, 6430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6430.f, 6440.f, 1.17e-5f,
+ .080752f, .030987f, -1.3581e-4f, .028483f, -1.3216e-4f, 6440.f, 6450.f,
+ 1.5147e-4f, .133f, .021388f, -9.5943e-5f, .019129f, -9.4039e-5f, 6450.f,
+ 6460.f, .0010569f, .14161f, .012722f, -6.2067e-5f, .010104f,
+ -5.8766e-5f, 6460.f, 6470.f, .0062046f, .17678f, .0050148f, -3.1545e-5f,
+ .002256f, -2.7623e-5f, 6470.f, 6480.f, .012909f, .15821f, -1.1368e-4f,
+ -1.2254e-5f, -.0031262f, -6.7108e-6f, 6480.f, 6490.f, .018519f, .26278f,
+ -.0033124f, 1.2436e-6f, -.0049708f, 1.187e-5f, 6490.f, 6500.f,
+ .0094276f, .28543f, -.0037172f, 9.5584e-6f, -.0028297f, 1.7915e-5f,
+ 6500.f, 6510.f, .02326f, .34557f, -.0016092f, -1.5397e-6f, -.0015497f,
+ 2.6953e-6f, 6510.f, 6520.f, .011602f, .45777f, .0040857f, -2.3186e-5f,
+ .003463f, -2.4006e-5f, 6520.f, 6530.f, .0026251f, 1.0461f, .0096811f,
+ -3.5495e-5f, .0054387f, -2.7418e-5f, 6530.f, 6540.f, .0013999f, .87933f,
+ .011802f, -4.3414e-5f, .0093028f, -3.5381e-5f, 6540.f, 6550.f,
+ .0010684f, .70255f, .015871f, -6.462e-5f, .012638f, -5.6493e-5f, 6550.f,
+ 6560.f, 1.6155e-4f, .42392f, .025507f, -1.1133e-4f, .023436f,
+ -1.1063e-4f, 6560.f, 6570.f, 1.8042e-5f, .32854f, .030046f, -1.3213e-4f,
+ .02717f, -1.2714e-4f, 6570.f, 6580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 6580.f,
+ 6590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6590.f, 6600.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 6600.f, 6610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6610.f, 6620.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 6620.f, 6630.f, 1.6128e-5f, .088896f, .01184f,
+ -5.9958e-5f, .0088458f, -5.4627e-5f, 6630.f, 6640.f, 5.7685e-5f, .1197f,
+ .0066894f, -3.9133e-5f, .0037276f, -3.4034e-5f, 6640.f, 6650.f,
+ 1.6743e-4f, .15492f, .0016277f, -1.8979e-5f, -.0013919f, -1.3601e-5f,
+ 6650.f, 6660.f, 2.3995e-4f, .19763f, -.0015517f, -2.5448e-6f,
+ -.0034273f, 4.3033e-7f, 6660.f, 6670.f, .0011561f, .75988f, -.001204f,
+ -2.7363e-6f, -.0037117f, -3.8924e-7f, 6670.f, 6680.f, 2.3092e-4f,
+ .26967f, -.0038326f, 2.1748e-6f, -.0067421f, 8.1124e-6f, 6680.f, 6690.f,
+ 1.8913e-4f, .29419f, 2.3018e-4f, -1.1781e-5f, -.0022434f, -9.0419e-6f,
+ 6690.f, 6700.f, 4.262e-6f, .033197f, .008741f, -4.0921e-5f, .0057336f,
+ -3.8266e-5f, 6700.f, 6710.f, 9.8135e-7f, .0038989f, .019411f,
+ -9.0203e-5f, .01638f, -8.4877e-5f, 6710.f, 6720.f, 2.4238e-6f,
+ .0042762f, .015022f, -7.3077e-5f, .01219f, -6.7965e-5f, 6720.f, 6730.f,
+ 4.5088e-6f, .0043488f, .010996f, -5.6685e-5f, .0085436f, -5.3188e-5f,
+ 6730.f, 6740.f, 1.0584e-5f, .0026967f, .0057298f, -3.4851e-5f,
+ .0039372f, -3.384e-5f, 6740.f, 6750.f, 2.4861e-5f, .0051111f, .0029099f,
+ -1.5549e-5f, .0043761f, -2.6982e-5f, 6750.f, 6760.f, 3.9077e-5f,
+ .0028826f, -.001771f, -1.6701e-6f, -.001197f, 3.3e-6f, 6760.f, 6770.f,
+ 2.3656e-5f, .0021453f, -.004179f, 3.1183e-6f, -.0071966f, 9.311e-6f,
+ 6770.f, 6780.f, 4.577e-5f, .0032492f, -.003795f, 1.7261e-6f, -.006782f,
+ 7.9425e-6f, 6780.f, 6790.f, 6.1088e-5f, .0055679f, .001493f,
+ -1.1871e-5f, 7.2114e-4f, -1.3903e-5f, 6790.f, 6800.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f, 0.f, 6800.f, 6810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6810.f, 6820.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 6820.f, 6830.f, 9.2277e-7f, .029726f, .049361f,
+ -2.108e-4f, .046239f, -2.0451e-4f, 6830.f, 6840.f, 1.4134e-5f, .25624f,
+ .046651f, -1.979e-4f, .043955f, -1.9411e-4f, 6840.f, 6850.f, 7.2012e-5f,
+ .62577f, .042787f, -1.8123e-4f, .0404f, -1.7929e-4f, 6850.f, 6860.f,
+ 1.8633e-4f, .5831f, .038378f, -1.6303e-4f, .035924f, -1.6051e-4f,
+ 6860.f, 6870.f, 5.7256e-4f, .7495f, .03396f, -1.4641e-4f, .03134f,
+ -1.4291e-4f, 6870.f, 6880.f, .0014919f, .79461f, .029669f, -1.2898e-4f,
+ .027598f, -1.2671e-4f, 6880.f, 6890.f, .003259f, .69112f, .02466f,
+ -1.0873e-4f, .022993f, -1.093e-4f, 6890.f, 6900.f, .0079821f, .66219f,
+ .020779f, -9.1999e-5f, .020053f, -9.48e-5f, 6900.f, 6910.f, .019955f,
+ .70298f, .016653f, -7.4032e-5f, .017622f, -7.4061e-5f, 6910.f, 6920.f,
+ .047678f, .44625f, .011512f, -5.6613e-5f, .010983f, -5.0893e-5f, 6920.f,
+ 6930.f, .072667f, .31454f, .0067346f, -3.8595e-5f, .0058565f,
+ -4.0764e-5f, 6930.f, 6940.f, .21391f, .45263f, .0039143f, -1.9313e-5f,
+ .0056575f, -2.8872e-5f, 6940.f, 6950.f, .3773f, .2493f, -.0011236f,
+ -3.7053e-6f, 4.1967e-4f, 5.3393e-6f, 6950.f, 6960.f, .29585f, .17647f,
+ -.0038687f, 2.2126e-6f, -.0068173f, 8.2438e-6f, 6960.f, 6970.f, .30531f,
+ .23118f, -.004195f, 3.5322e-6f, -.0069672f, 1.113e-5f, 6970.f, 6980.f,
+ .77834f, .54008f, 5.3815e-4f, -7.5276e-6f, -1.0156e-4f, -7.935e-6f,
+ 6980.f, 6990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6990.f, 7e3f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 7e3f, 7010.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7010.f, 7020.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 7020.f, 7030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7030.f,
+ 7040.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7040.f, 7050.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 7050.f, 7060.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7060.f, 7070.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 7070.f, 7080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7080.f,
+ 7090.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7090.f, 7100.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 7100.f, 7110.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7110.f, 7120.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 7120.f, 7130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7130.f,
+ 7140.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7140.f, 7150.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+
+ 0.f, 7150.f, 7160.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7160.f, 7170.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 7170.f, 7180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7180.f,
+ 7190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7190.f, 7200.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 7200.f, 7210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7210.f, 7220.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 7220.f, 7230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7230.f,
+ 7240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7240.f, 7250.f, 9.7362e-6f,
+ .061285f,
+ .004498f, -3.1185e-5f, .0013664f, -2.5022e-5f, 7250.f, 7260.f,
+ 5.4706e-5f, .18852f, 2.4251e-4f, -1.332e-5f, -.0027302f, -8.1259e-6f,
+ 7260.f, 7270.f, 6.1563e-5f, .20629f, -.0032814f, 2.2e-8f, -.0062079f,
+ 5.925e-6f, 7270.f, 7280.f, 1.4699e-5f, .075241f, -.0044219f, 4.3348e-6f,
+ -.0074089f, 1.0364e-5f, 7280.f, 7290.f, 7.0542e-5f, .20329f, -.002882f,
+ -1.4802e-6f, -.0057837f, 4.2344e-6f, 7290.f, 7300.f, 5.4492e-5f,
+ .21457f, .0013783f, -1.721e-5f, -.0014841f, -1.2786e-5f, 7300.f, 7310.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7310.f, 7320.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 7320.f, 7330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7330.f, 7340.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 7340.f, 7350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7350.f,
+ 7360.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7360.f, 7370.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 7370.f, 7380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7380.f, 7390.f, 4.0391e-5f,
+ .34559f, .016271f, -7.7571e-5f, .013286f, -7.2256e-5f, 7390.f, 7400.f,
+ 4.8302e-5f, .37526f, .012898f, -6.4691e-5f, .010001f, -5.8901e-5f,
+ 7400.f, 7410.f, 2.6773e-5f, .14702f, .016569f, -7.6331e-5f, .013558f,
+ -7.16e-5f, 7410.f, 7420.f, 2.0816e-4f, .52374f, .010994f, -5.4458e-5f,
+ .0090105f, -5.4076e-5f, 7420.f, 7430.f, 4.8129e-4f, .23329f, .0042161f,
+ -2.5147e-5f, .0034174f, -2.5567e-5f, 7430.f, 7440.f, .0010907f, .19364f,
+ -.0012077f, -7.8171e-6f, -.0041544f, -2.4136e-6f, 7440.f, 7450.f,
+ 7.8191e-4f, .2075f, -.0039131f, 2.4015e-6f, -.0069105f, 8.5956e-6f,
+ 7450.f, 7460.f, 7.115e-4f, .19688f, -.0041668f, 3.3692e-6f, -.0070951f,
+ 9.4003e-6f, 7460.f, 7470.f, .0014863f, .25817f, -.0012495f, -7.1361e-6f,
+ -.0041323f, -2.2309e-6f, 7470.f, 7480.f, 4.7705e-4f, .2487f, .005832f,
+ -3.2625e-5f, .0036125f, -3.1486e-5f, 7480.f, 7490.f, 2.3552e-5f,
+ .11333f, .017332f, -8.0926e-5f, .014655f, -7.7124e-5f, 7490.f, 7500.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7500.f, 7510.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 7510.f, 7520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7520.f, 7530.f, 7.1378e-6f,
+ .057272f, .023828f, -1.0818e-4f, .020923f, -1.0279e-4f, 7530.f, 7540.f,
+ 5.5634e-5f, .11302f, .017308f, -8.0844e-5f, .014641f, -7.7072e-5f,
+ 7540.f, 7550.f, 3.874e-4f, .29038f, .010833f, -4.9887e-5f, .010414f,
+ -5.4606e-5f, 7550.f, 7560.f, 9.6863e-4f, .27281f, .0053932f,
+ -2.8655e-5f, .0052931f, -3.3358e-5f, 7560.f, 7570.f, .0023248f, .26964f,
+ 4.149e-4f, -1.1296e-5f, -6.0618e-5f, -1.1765e-5f, 7570.f, 7580.f,
+ .0029909f, .2796f, -.0030237f, 8.4962e-7f, -.0041122f, 3.9569e-6f,
+ 7580.f, 7590.f, .001504f, .43911f, -.0026031f, 1.2211e-5f, -.0012549f,
+ 4.2399e-6f, 7590.f, 7600.f, .004448f, .35168f, -.0020068f, -1.1923e-6f,
+ -.0024644f, 4.0855e-6f, 7600.f, 7610.f, .0020548f, .3146f, .0041619f,
+ -2.4632e-5f, .0023465f, -2.5042e-5f, 7610.f, 7620.f
+ };
+
+ /* carbon dioxide (5060 - 7610 cm-1) */
+ for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
+} /* dica2 */
+
+
+void dica1 (float a[8], const long int inu)
+{
+
+
+
+ static const float acr[2048] = { 1.1446e-5f, .0020117f,
+ -.0041334f, 3.2304e-6f, -.0069982f, 9.0084e-6f, 2500.f, 2510.f,
+ 1.9234e-5f, .0019311f, -.0017326f, -5.8646e-6f, -.0045311f,
+ -6.0352e-7f, 2510.f, 2520.f, 9.202e-6f, .0017952f, .0034861f,
+ -2.526e-5f, 5.8777e-4f, -2.0915e-5f, 2520.f, 2530.f, 1.6374e-6f,
+ .0018281f, .010418f, -4.3535e-5f, .0074404f, -4.1207e-5f, 2530.f,
+ 2540.f, 1.9079e-7f, .0010034f, .011048f, -9.739e-6f, .010458f,
+
+ -3.7165e-5f, 2540.f, 2550.f, 3.4315e-9f, 2.4238e-5f, .0054443f,
+ -3.5215e-5f, .00216f, -2.8602e-5f, 2550.f, 2560.f, 8.2488e-9f,
+ 1.2211e-4f, .026474f, -1.1937e-4f, .023595f, -1.1358e-4f, 2560.f,
+ 2570.f, 6.4587e-7f, .0014539f, .017175f, -7.7312e-5f, .015125f,
+ -7.6621e-5f, 2570.f, 2580.f, 5.4268e-6f, .0015777f, .0078126f,
+ -4.2151e-5f, .0051843f, -3.9096e-5f, 2580.f, 2590.f, 2.0993e-5f,
+ .0024666f, .0015156f, -1.4469e-5f, .0014551f, -1.2874e-5f, 2590.f,
+ 2600.f, 3.1892e-5f, .0032261f, -.0024271f, 1.4275e-6f, -.0024514f,
+ 2.5977e-6f, 2600.f, 2610.f, 1.1919e-5f, .0029607f, -.0037722f,
+ 7.2919e-6f, -.004064f, 7.442e-6f, 2610.f, 2620.f, 3.5396e-5f, .0031915f,
+ -.0024421f, -5.4413e-7f, -.0029857f, 7.7772e-7f, 2620.f, 2630.f,
+ 2.2174e-5f, .0031839f, .002243f, -1.6625e-5f, .0017446f, -1.7477e-5f,
+ 2630.f, 2640.f, 4.9654e-6f, .0031706f, .0096026f, -4.1529e-5f,
+ .0087311f, -4.451e-5f, 2640.f, 2650.f, 5.9768e-7f, .0013719f, .0076702f,
+ 1.3005e-5f, .0090078f, -2.4905e-5f, 2650.f, 2660.f, 1.3394e-7f,
+ 3.2465e-4f, .0037114f, -2.6108e-5f, 9.3326e-4f, -2.2404e-5f, 2660.f,
+ 2670.f, 9.101e-9f, 7.1741e-5f, .010072f, -5.3553e-5f, .0068917f,
+ -4.7305e-5f, 2670.f, 2680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2680.f, 2690.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2690.f, 2700.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 2700.f, 2710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2710.f, 2720.f, 3.0498e-7f,
+ .0012211f, .011385f, -5.7015e-5f, .008676f, -5.3344e-5f, 2720.f, 2730.f,
+ 2.3044e-6f, .0018735f, .0031625f, -2.3857e-5f, 4.2583e-4f, -2.0332e-5f,
+ 2730.f, 2740.f, 4.587e-6f, .0020082f, -.0021166f, -4.3444e-6f,
+ -.0048776f, 8.714e-7f, 2740.f, 2750.f, 1.8151e-6f, .001778f, -.0043591f,
+ 3.9928e-6f, -.0074161f, 1.0271e-5f, 2750.f, 2760.f, 4.3155e-6f,
+ .0021845f, -.0035667f, 1.0325e-6f, -.0064484f, 6.9079e-6f, 2760.f,
+ 2770.f, 3.5601e-6f, .0015853f, -2.4397e-4f, -1.1623e-5f, -.0030932f,
+ -6.6664e-6f, 2770.f, 2780.f, 1.4023e-6f, .0017421f, .0052527f,
+ -3.1584e-5f, .0022672f, -2.6978e-5f, 2780.f, 2790.f, 1.9517e-7f,
+ .0010843f, .011752f, -5.0614e-5f, .0090578f, -5.0929e-5f, 2790.f,
+ 2800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2800.f, 2810.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 2810.f, 2820.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2820.f, 2830.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 2830.f, 2840.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2840.f,
+ 2850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2850.f, 2860.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 2860.f, 2870.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2870.f, 2880.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 2880.f, 2890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2890.f,
+ 2900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2900.f, 2910.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 2910.f, 2920.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2920.f, 2930.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 2930.f, 2940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2940.f,
+ 2950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2950.f, 2960.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 2960.f, 2970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2970.f, 2980.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 2980.f, 2990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2990.f,
+ 3e3f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3e3f, 3010.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 3010.f, 3020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3020.f, 3030.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 3030.f, 3040.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3040.f,
+ 3050.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3050.f, 3060.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 3060.f, 3070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3070.f, 3080.f, 3.3052e-6f,
+ .058651f, .034989f, -1.529e-4f, .031987f, -1.4721e-4f, 3080.f, 3090.f,
+ 4.1503e-5f, .20207f, .026206f, -1.1436e-4f, .023672f, -1.1213e-4f,
+ 3090.f, 3100.f, 8.7906e-5f, .21783f, .018422f, -8.5123e-5f, .015304f,
+ -7.985e-5f, 3100.f, 3110.f, 2.9489e-5f, .12859f, .014066f, -6.9404e-5f,
+ .011044f, -6.3254e-5f, 3110.f, 3120.f, 3.1118e-5f, .2981f, .025033f,
+ -1.1155e-4f, .022143f, -1.0719e-4f, 3120.f, 3130.f, 1.4832e-4f, .7106f,
+ .018309f, -7.0285e-5f, .015857f, -7.3742e-5f, 3130.f, 3140.f,
+ 5.0912e-4f, .39631f, .016927f, -7.7076e-5f, .014306f, -7.4481e-5f,
+ 3140.f, 3150.f, .0018569f, .28375f, .0076498f, -3.6249e-5f, .0067089f,
+ -3.6791e-5f, 3150.f, 3160.f, .0023217f, .3497f, .0010351f, -1.0688e-5f,
+ 9.4905e-4f, -6.7349e-6f, 3160.f, 3170.f, 4.761e-4f, .41947f, .0019347f,
+ 1.6317e-5f, .0033594f, -7.9441e-6f, 3170.f, 3180.f, 4.6778e-4f, .77616f,
+ 7.9129e-4f, 2.3675e-5f, 9.1006e-4f, 4.8023e-6f, 3180.f, 3190.f,
+ .0030862f, .25667f, -.0014396f, -4.1338e-6f, -.0027351f, 6.4924e-6f,
+ 3190.f, 3200.f, .0034062f, .18499f, .003259f, -2.4779e-5f, 2.1425e-4f,
+ -1.9664e-5f, 3200.f, 3210.f, .0014366f, .17452f, .010436f, -5.221e-5f,
+ .0077713f, -4.9107e-5f, 3210.f, 3220.f, 2.6116e-4f, .16068f, .020114f,
+ -8.9663e-5f, .017964f, -8.8666e-5f, 3220.f, 3230.f, 3.408e-5f, .26237f,
+ .031854f, -1.3724e-4f, .029565f, -1.3533e-4f, 3230.f, 3240.f,
+ 3.8044e-5f, .18154f, .023462f, -1.0477e-4f, .020484f, -1.0031e-4f,
+ 3240.f, 3250.f, 2.3642e-5f, .12587f, .01793f, -8.3993e-5f, .014725f,
+ -7.8063e-5f, 3250.f, 3260.f, 1.3555e-6f, .0021856f, .0043607f,
+ -2.9254e-5f, .0012372f, -2.4119e-5f, 3260.f, 3270.f, 3.5631e-4f,
+ .86373f, .015491f, -6.0741e-5f, .014051f, -6.1126e-5f, 3270.f, 3280.f,
+ 3.3068e-4f, .41597f, .01708f, -4.5243e-5f, .018249f, -6.1327e-5f,
+ 3280.f, 3290.f, .001398f, .43415f, .020779f, -8.71e-5f, .019046f,
+ -8.4016e-5f, 3290.f, 3300.f, .0054038f, .37316f, .013012f, -5.4513e-5f,
+ .014582f, -6.1135e-5f, 3300.f, 3310.f, .011865f, .37215f, .005333f,
+ -2.4891e-5f, .0077872f, -2.3154e-5f, 3310.f, 3320.f, .0081717f, .45864f,
+ 7.0369e-4f, -2.5399e-6f, .0032045f, -2.1463e-6f, 3320.f, 3330.f,
+ .0067313f, .55963f, -.0020245f, 2.6702e-6f, -.0024299f, 1.777e-5f,
+ 3330.f, 3340.f, .013254f, .74729f, -.001815f, 5.4501e-6f, .0013181f,
+ -4.3636e-7f, 3340.f, 3350.f, .036823f, .36421f, -2.01e-4f, -5.8593e-6f,
+ .0013324f, -2.3987e-6f, 3350.f, 3360.f, .035439f, .40306f, .0054434f,
+ -2.6546e-5f, .0067677f, -2.8288e-5f, 3360.f, 3370.f, .0090957f, .48115f,
+ .014512f, -6.1088e-5f, .016771f, -6.5673e-5f, 3370.f, 3380.f, .0015199f,
+ .65754f, .023451f, -8.6e-5f, .024073f, -8.9238e-5f, 3380.f, 3390.f,
+ 1.3838e-4f, .96599f, .027438f, -3.7378e-5f, .026069f, -7.2896e-5f,
+ 3390.f, 3400.f, 3.1321e-4f, .32432f, .014691f, -4.5546e-5f, .01786f,
+ -4.056e-5f, 3400.f, 3410.f, 9.6318e-4f, .34642f, .017708f, -6.6986e-5f,
+ .020408f, -5.3348e-5f, 3410.f, 3420.f, 6.1782e-4f, .30724f, .02599f,
+ -8.9579e-5f, .025999f, -9.8228e-5f, 3420.f, 3430.f, 4.0506e-4f, .30755f,
+ .038698f, -1.6162e-4f, .035406f, -1.5721e-4f, 3430.f, 3440.f, .0011183f,
+ .2365f, .034497f, -1.4952e-4f, .032465f, -1.4642e-4f, 3440.f, 3450.f,
+ .0018653f, .34796f, .029814f, -1.2999e-4f, .026883f, -1.245e-4f, 3450.f,
+ 3460.f, .0035542f, .40556f, .017369f, -5.7102e-5f, .019546f,
+ -4.6731e-5f, 3460.f, 3470.f, .0090605f, .50199f, .012281f, 2.333e-7f,
+ .01992f, 2.7162e-5f, 3470.f, 3480.f, .008421f, .7135f, .011986f,
+ 7.348e-5f, .024636f, 8.1574e-5f, 3480.f, 3490.f, .0060886f, .9612f,
+ .023574f, 1.0867e-4f, .044783f, -7.2014e-5f, 3490.f, 3500.f, .035622f,
+ 1.6535f, .012077f, 1.3532e-4f, .02212f, 8.0854e-5f, 3500.f, 3510.f,
+ .078238f, 1.3688f, .016785f, 1.4511e-4f, .032327f, -1.2296e-5f, 3510.f,
+ 3520.f, .17292f, 1.6314f, .028411f, -4.0866e-6f, .033279f, -8.391e-5f,
+ 3520.f, 3530.f, .58094f, 1.4177f, .030478f, -9.228e-5f, .032074f,
+ -1.1676e-4f, 3530.f, 3540.f, 1.9973f, 1.0662f, .026332f, -1.0563e-4f,
+ .027668f, -1.086e-4f, 3540.f, 3550.f, 5.8904f, .85364f, .020626f,
+ -8.7922e-5f, .022034f, -8.7919e-5f, 3550.f, 3560.f, 16.608f, .82681f,
+ .016296f, -7.197e-5f, .016508f, -6.8914e-5f, 3560.f, 3570.f, 33.94f,
+ .67293f, .011756f, -5.5546e-5f, .012667f, -5.0727e-5f, 3570.f, 3580.f,
+ 105.89f, .40519f, .0053354f, -3.05e-5f, .00642f, -2.7269e-5f, 3580.f,
+ 3590.f, 286.58f, .37875f, 3.1591e-4f, -7.6033e-6f, .0017571f,
+ -6.9331e-6f, 3590.f, 3600.f, 258.81f, .31632f, -.0031299f, 5.3577e-6f,
+ -.0014554f, 1.6811e-5f, 3600.f, 3610.f, 153.98f, .23899f, -.0042487f,
+ 5.6295e-6f, -.0038259f, 2.864e-5f, 3610.f, 3620.f, 381.54f, .2369f,
+ -.0021079f, -4.2102e-6f, -.0046108f, 4.6494e-6f, 3620.f, 3630.f,
+ 189.08f, .24104f, .003487f, -2.4525e-5f, .0012111f, -1.869e-5f, 3630.f,
+ 3640.f, 22.631f, .27596f, .013843f, -6.0817e-5f, .013983f, -5.5436e-5f,
+ 3640.f, 3650.f, .789f, .45834f, .0288f, -9.2261e-5f, .033526f,
+ -1.1634e-4f, 3650.f, 3660.f, 3.5516f, .24747f, .021606f, -9.1483e-5f,
+ .025091f, -7.7825e-5f, 3660.f, 3670.f, 26.382f, .26344f, .013128f,
+ -5.9351e-5f, .015813f, -4.5315e-5f, 3670.f, 3680.f, 114.51f, .25517f,
+ .0061726f, -3.2903e-5f, .0088361f, -1.856e-5f, 3680.f, 3690.f, 375.87f,
+ .29958f, 6.1303e-4f, -1.0823e-5f, .0025691f, 2.5921e-6f, 3690.f, 3700.f,
+ 399.12f, .32406f, -.0024055f, 3.4271e-6f, 8.3356e-4f, 1.4624e-5f,
+ 3700.f, 3710.f, 209.7f, .49024f, -.0029825f, 1.1251e-5f, 9.8088e-4f,
+ 1.7825e-5f, 3710.f, 3720.f, 651.86f, .43325f, -.0025584f, -7.4576e-7f,
+ -.0013717f, 1.1441e-5f, 3720.f, 3730.f, 360.94f, .49364f, .0033219f,
+ -1.9819e-5f, .0045993f, -1.8704e-5f, 3730.f, 3740.f, 57.048f, .71411f,
+ .013964f, -5.8323e-5f, .015441f, -6.5072e-5f, 3740.f, 3750.f, 1.6419f,
+ .94961f, .031167f, -1.2796e-4f, .03253f, -1.3294e-4f, 3750.f, 3760.f,
+ .0072097f, .71242f, .053044f, -2.1219e-4f, .055695f, -2.2364e-4f,
+ 3760.f, 3770.f, 3.2929e-4f, .16488f, .043688f, -1.8453e-4f, .042346f,
+ -1.8165e-4f, 3770.f, 3780.f, .0014501f, .17127f, .036748f, -1.5788e-4f,
+ .035331f, -1.524e-4f, 3780.f, 3790.f, .0047585f, .19488f, .031054f,
+ -1.364e-4f, .028516f, -1.3041e-4f, 3790.f, 3800.f, .0056312f, .2178f,
+ .027563f, -1.2299e-4f, .02536f, -1.1514e-4f, 3800.f, 3810.f, .0025663f,
+ .23975f, .026455f, -1.1697e-4f, .025771f, -1.0379e-4f, 3810.f, 3820.f,
+ .0073473f, .2611f, .028264f, -1.2512e-4f, .026543f, -1.1735e-4f, 3820.f,
+ 3830.f, .0041625f, .3064f, .0335f, -1.4328e-4f, .032396f, -1.4197e-4f,
+ 3830.f, 3840.f, 6.2707e-4f, .49963f, .042723f, -1.7265e-4f, .041198f,
+ -1.7864e-4f, 3840.f, 3850.f, 5.2281e-5f, .443f, .041789f, -1.3546e-4f,
+ .041381f, -1.6812e-4f, 3850.f, 3860.f, 1.1349e-4f, .48522f, .040194f,
+ -1.3982e-4f, .03909f, -1.6958e-4f, 3860.f, 3870.f, 1.1733e-4f, .49615f,
+ .044541f, -1.6207e-4f, .043254f, -1.8688e-4f, 3870.f, 3880.f,
+ 2.1994e-5f, .36694f, .051435f, -1.7841e-4f, .051058f, -2.162e-4f,
+ 3880.f, 3890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3890.f, 3900.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 3900.f, 3910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3910.f,
+ 3920.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3920.f, 3930.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 3930.f, 3940.f, 1.0712e-5f, .11242f, .038222f, -1.6405e-4f, .035612f,
+ -1.6058e-4f, 3940.f, 3950.f, 2.226e-5f, .088337f, .032098f, -1.4078e-4f,
+ .029142f, -1.356e-4f, 3950.f, 3960.f, 6.0145e-5f, .1215f, .02614f,
+ -1.1441e-4f, .023109f, -1.101e-4f, 3960.f, 3970.f, 1.1812e-4f, .5338f,
+ .023839f, -9.6178e-5f, .023506f, -1.0676e-4f, 3970.f, 3980.f, 6.12e-5f,
+ .32611f, .020895f, -7.6119e-5f, .020369f, -8.7589e-5f, 3980.f, 3990.f,
+ 3.019e-4f, .84191f, .024861f, -9.352e-5f, .024385f, -1.0546e-4f, 3990.f,
+ 4e3f, .0013735f, .6758f, .014099f, -6.4565e-5f, .011933f, -5.7363e-5f,
+ 4e3f, 4010.f, .0017095f, .28901f, .013726f, -6.7497e-5f, .010543f,
+ -6.096e-5f, 4010.f, 4020.f, .0020687f, .45821f, .021277f, -8.6802e-5f,
+ .020845f, -9.0012e-5f, 4020.f, 4030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 4030.f,
+
+ 4040.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4040.f, 4050.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 4050.f, 4060.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4060.f, 4070.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 4070.f, 4080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4080.f,
+ 4090.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4090.f, 4100.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 4100.f, 4110.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4110.f, 4120.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 4120.f, 4130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4130.f,
+ 4140.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4140.f, 4150.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 4150.f, 4160.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4160.f, 4170.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 4170.f, 4180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4180.f,
+ 4190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4190.f, 4200.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 4200.f, 4210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4210.f, 4220.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 4220.f, 4230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4230.f,
+ 4240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4240.f, 4250.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 4250.f, 4260.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4260.f, 4270.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 4270.f, 4280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4280.f,
+ 4290.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4290.f, 4300.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 4300.f, 4310.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4310.f, 4320.f, 0.f,
+ 0.f,
+
+ 0.f, 0.f, 0.f, 0.f, 4320.f, 4330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4330.f,
+ 4340.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4340.f, 4350.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 4350.f, 4360.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4360.f, 4370.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 4370.f, 4380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4380.f,
+ 4390.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4390.f, 4400.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 4400.f, 4410.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4410.f, 4420.f,
+ 2.629e-5f,
+ .099522f, -.0026652f, -2.6042e-6f, -.0055447f, 3.2186e-6f, 4420.f,
+ 4430.f, 8.0883e-5f, .18978f, 5.7466e-4f, -1.4607e-5f, -.0025665f,
+ -8.7838e-6f, 4430.f, 4440.f, 5.526e-5f, .18005f, .0065537f, -3.7323e-5f,
+ .0036814f, -3.3174e-5f, 4440.f, 4450.f, 8.255e-6f, .05991f, .012867f,
+ -6.4515e-5f, .0097575f, -5.8512e-5f, 4450.f, 4460.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f, 0.f, 4460.f, 4470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4470.f, 4480.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 4480.f, 4490.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 4490.f,
+ 4500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4500.f, 4510.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 4510.f, 4520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4520.f, 4530.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 4530.f, 4540.f, 5.6586e-6f, .058006f, .021852f,
+ -1.003e-4f, .018901f, -9.4764e-5f, 4540.f, 4550.f, 6.0995e-5f, .17176f,
+ .013472f, -6.3857e-5f, .010919f, -6.1333e-5f, 4550.f, 4560.f,
+ 1.6173e-4f, .1827f, .0055264f, -3.3401e-5f, .0025266f, -2.8677e-5f,
+ 4560.f, 4570.f, 1.342e-4f, .18669f, 8.6662e-5f, -1.2871e-5f, -.0031886f,
+ -6.3395e-6f, 4570.f, 4580.f, 7.7677e-6f, .035973f, -.0017804f,
+ 3.5792e-6f, -.004378f, 4.7097e-6f, 4580.f, 4590.f, 2.1446e-4f, .52918f,
+ -.0026414f, 1.9171e-8f, -.0051868f, 3.1486e-6f, 4590.f, 4600.f,
+ 4.9732e-4f, .19678f, -.0015023f, -6.4944e-6f, -.0045248f, -6.0552e-7f,
+ 4600.f, 4610.f, 5.7844e-4f, .21566f, .0036076f, -2.5498e-5f, 6.874e-4f,
+ -2.1166e-5f, 4610.f, 4620.f, 1.836e-4f, .19472f, .010909f, -4.5759e-5f,
+ .0094535f, -5.3705e-5f, 4620.f, 4630.f, 2.1722e-5f, .066168f, .010212f,
+ 2.4083e-5f, .016411f, -6.7231e-5f, 4630.f, 4640.f, 1.5836e-5f,
+ .0025231f, -.0037387f, 1.6847e-6f, -.0066855f, 7.7758e-6f, 4640.f,
+ 4650.f, 2.8194e-5f, .055835f, .011719f, 7.8341e-5f, .028162f,
+ -6.5915e-5f, 4650.f, 4660.f, 2.9246e-5f, .15846f, .033601f, -1.2318e-4f,
+ .031988f, -1.4227e-4f, 4660.f, 4670.f, 6.866e-5f, .23768f, .030956f,
+ -1.3481e-4f, .028087f, -1.3066e-4f, 4670.f, 4680.f, 2.5776e-5f, .14238f,
+ .026879f, -1.1219e-4f, .025142f, -1.1785e-4f, 4680.f, 4690.f,
+ 6.7605e-5f, .28782f, .028103f, -9.7067e-5f, .028478f, -1.1197e-4f,
+ 4690.f, 4700.f, 9.4449e-5f, .58934f, .03528f, -9.4266e-5f, .037047f,
+ -1.3314e-4f, 4700.f, 4710.f, 2.1985e-4f, .94207f, .026856f, 1.5457e-5f,
+ .034398f, -7.9603e-5f, 4710.f, 4720.f, 5.9268e-4f, .92654f, .019629f,
+ 7.9413e-5f, .02922f, -3.244e-5f, 4720.f, 4730.f, .001207f, .99725f,
+ .019414f, 1.0014e-4f, .026778f, -2.2067e-5f, 4730.f, 4740.f, .0022806f,
+ 1.2176f, .028561f, -2.1574e-5f, .030485f, -7.5567e-5f, 4740.f, 4750.f,
+ .0043327f, 1.3486f, .028595f, -6.6405e-5f, .027851f, -7.4726e-5f,
+ 4750.f, 4760.f, .0077428f, 1.4486f, .030758f, -1.1612e-4f, .029991f,
+ -1.2747e-4f, 4760.f, 4770.f, .025636f, 1.0146f, .025412f, -1.0692e-4f,
+ .02508f, -1.0479e-4f, 4770.f, 4780.f, .071004f, .80049f, .019034f,
+ -8.2075e-5f, .019591f, -8.1415e-5f, 4780.f, 4790.f, .12168f, .79844f,
+ .014488f, -6.4424e-5f, .0152f, -5.8903e-5f, 4790.f, 4800.f, .076746f,
+ 1.2201f, .015267f, -5.7662e-5f, .014334f, -5.5273e-5f, 4800.f, 4810.f,
+ .25656f, .72698f, .012794f, -6.0697e-5f, .011343f, -5.448e-5f, 4810.f,
+ 4820.f, .71618f, .47943f, .0075299f, -3.4485e-5f, .0086269f,
+ -4.1288e-5f, 4820.f, 4830.f, 1.9439f, .28552f, 6.0337e-4f, -1.0585e-5f,
+ .0017705f, -3.3465e-6f, 4830.f, 4840.f, 2.2409f, .24124f, -.0032243f,
+ 7.7209e-7f, -.0036357f, 1.7134e-5f, 4840.f, 4850.f, 1.023f, .23661f,
+ -.0044285f, 5.6593e-6f, -.0054571f, 1.8603e-5f, 4850.f, 4860.f, 2.9838f,
+ .24972f, -.0026005f, -2.2445e-6f, -.0048507f, 6.708e-6f, 4860.f, 4870.f,
+ 1.7331f, .24569f, .002513f, -2.0912e-5f, 9.7879e-5f, -1.4658e-5f,
+ 4870.f, 4880.f, .23009f, .24263f, .012134f, -5.5883e-5f, .011873f,
+ -4.6579e-5f, 4880.f, 4890.f, .0073766f, .50576f, .021012f, 1.3113e-5f,
+ .033128f, -7.4753e-5f, 4890.f, 4900.f, .0053301f, 1.1415f, .02315f,
+ 8.1743e-5f, .032613f, -4.9011e-5f, 4900.f, 4910.f, .019881f, 1.1163f,
+ .030658f, -8.9121e-5f, .031493f, -1.049e-4f, 4910.f, 4920.f, .13274f,
+ .8018f, .023959f, -9.6864e-5f, .026465f, -1.057e-4f, 4920.f, 4930.f,
+ .54198f, .58029f, .016095f, -6.7361e-5f, .019209f, -7.4544e-5f, 4930.f,
+ 4940.f, 2.3931f, .43634f, .0083244f, -3.8869e-5f, .01091f, -4.0486e-5f,
+ 4940.f, 4950.f, 6.364f, .38463f, .0024225f, -1.7014e-5f, .0051156f,
+ -1.3677e-5f, 4950.f, 4960.f, 11.174f, .37051f, -.0020924f, -1.8861e-6f,
+ 1.9797e-4f, 8.4038e-6f, 4960.f, 4970.f, 4.7425f, .4397f, -.0023967f,
+ 1.1771e-5f, .0015888f, 1.1027e-5f, 4970.f, 4980.f, 13.215f, .42301f,
+
+ -.002886f, 4.5346e-6f, -.0018435f, 1.2941e-5f, 4980.f, 4990.f, 10.682f,
+ .28898f, 9.1279e-4f, -1.3741e-5f, 2.9048e-4f, -3.723e-6f, 4990.f, 5e3f,
+ 1.9873f, .27401f, .0096347f, -4.5675e-5f, .0089294f, -4.3606e-5f, 5e3f,
+ 5010.f, .025245f, .25842f, .027802f, -1.1266e-4f, .028517f, -1.1312e-4f,
+ 5010.f, 5020.f, .0010773f, .39566f, .019467f, -9.0504e-6f, .021521f,
+ -4.662e-5f, 5020.f, 5030.f, .0026445f, .46517f, .022864f, -5.1981e-6f,
+ .021923f, -4.8242e-5f, 5030.f, 5040.f, .0089353f, .34218f, .025304f,
+ -8.7147e-5f, .020721f, -6.3342e-5f, 5040.f, 5050.f, .066176f, .21908f,
+ .017982f, -8.0841e-5f, .017736f, -7.414e-5f, 5050.f, 5060.f
+ };
+
+ /* carbon dioxide (2500 - 5050 cm-1) */
+ for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
+} /* dica1 */
+
+
+void
+ozon1 (float a[8], const long int inu)
+{
+
+
+ static const float acr[2048] = { .062007f, 2.4365f,
+ -5.9503e-4f, -8.1198e-6f, -.0039418f, -2.4624e-6f, 2500.f, 2510.f,
+ .023839f, 2.3534f, .0037377f, -6.15e-6f, .0015592f, -1.2727e-5f, 2510.f,
+ 2520.f, .0090127f, 1.2172f, -.0014733f, -4.7053e-6f, -.0042092f,
+ -1.5909e-6f, 2520.f, 2530.f, .0058863f, 1.1f, 3.3397e-4f, -1.3388e-5f,
+ -.0024956f, -9.7955e-6f, 2530.f, 2540.f, .0021326f, .57054f, .0025704f,
+ -2.3597e-5f, -2.6961e-4f, -1.9566e-5f, 2540.f, 2550.f, 2.6378e-4f,
+ .095762f, .0021816f, -2.4506e-5f, -8.9441e-4f, -1.8362e-5f, 2550.f,
+ 2560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2560.f, 2570.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 2570.f, 2580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2580.f, 2590.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 2590.f, 2600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2600.f,
+ 2610.f, 1.2538e-4f, .06037f, .017057f, -8.3526e-5f, .013989f,
+ -7.7656e-5f, 2610.f, 2620.f, .0033172f, 1.2606f, .015787f, -6.9353e-5f,
+ .013123f, -6.8937e-5f, 2620.f, 2630.f, .008713f, 2.2667f, .014103f,
+ -5.7967e-5f, .011482f, -5.9919e-5f, 2630.f, 2640.f, .0172f, 3.144f,
+ .011768f, -4.8179e-5f, .0088246f, -4.9702e-5f, 2640.f, 2650.f, .034158f,
+ 3.5816f, .0099884f, -4.184e-5f, .0074214f, -4.4219e-5f, 2650.f, 2660.f,
+ .058424f, 3.8732f, .0072077f, -3.3325e-5f, .004529f, -3.3709e-5f,
+ 2660.f, 2670.f, .091154f, 4.3262f, .0058558f, -2.8338e-5f, .0036931f,
+ -2.8993e-5f, 2670.f, 2680.f, .14108f, 4.4142f, .0030363f, -1.8897e-5f,
+ 8.3735e-4f, -1.8016e-5f, 2680.f, 2690.f, .19337f, 5.4007f, .0022914f,
+ -1.3229e-5f, 5.9045e-4f, -1.4091e-5f, 2690.f, 2700.f, .22397f, 5.654f,
+ 4.0913e-4f, -5.5214e-8f, -4.337e-4f, -1.0921e-6f, 2700.f, 2710.f,
+ .25652f, 5.9001f, .0016172f, 5.8755e-6f, .0013629f, -1.6939e-6f, 2710.f,
+ 2720.f, .26204f, 6.3198f, .0046886f, 1.25e-5f, .0044002f, -9.3401e-6f,
+ 2720.f, 2730.f, 1.1785f, 7.1393f, .0037596f, -7.5943e-6f, .0028497f,
+ -1.6442e-5f, 2730.f, 2740.f, 1.2094f, 5.2539f, .0056671f, -2.7298e-5f,
+ .0028397f, -2.2464e-5f, 2740.f, 2750.f, 2.6976f, 4.6649f, .0025634f,
+ -2.0935e-5f, 3.1356e-4f, -1.7037e-5f, 2750.f, 2760.f, 5.2789f, 4.5914f,
+ -7.3997e-4f, -9.2529e-6f, -.0021265f, -8.3858e-6f, 2760.f, 2770.f,
+ 5.611f, 6.1724f, -.0032253f, 2.5797e-6f, -.0028278f, 8.7898e-8f, 2770.f,
+ 2780.f, 4.928f, 9.4156f, -.0020334f, 1.9294e-6f, -.0030249f, -1.069e-6f,
+ 2780.f, 2790.f, 9.8978f, 7.256f, -.0024986f, -1.5096e-6f, -.0036608f,
+ -5.8064e-7f, 2790.f, 2800.f, 3.3206f, 9.3181f, .0047633f, -2.5074e-5f,
+ .0053638f, -3.2113e-5f, 2800.f, 2810.f, .02474f, 2.6388f, .0070889f,
+ -3.2967e-5f, .0046677f, -3.4491e-5f, 2810.f, 2820.f, .034545f, 2.9892f,
+ .0049198f, -2.638e-5f, .0026057f, -2.5038e-5f, 2820.f, 2830.f, .04698f,
+ 4.234f, .0050308f, -1.5985e-5f, .0030829f, -2.1189e-5f, 2830.f, 2840.f,
+ .07243f, 5.0065f, .0059166f, -2.0703e-5f, .0028776f, -2.3414e-5f,
+ 2840.f, 2850.f, .11034f, 4.0562f, .0040989f, -2.3368e-5f, 8.42e-4f,
+ -1.8356e-5f, 2850.f, 2860.f, .12579f, 3.6106f, .0011211f, -1.2332e-5f,
+ -8.604e-4f, -1.0593e-5f, 2860.f, 2870.f, .095405f, 4.2611f, .0010479f,
+ -5.3844e-6f, -6.5774e-4f, -8.3477e-6f, 2870.f, 2880.f, .092029f,
+ 4.3877f, .0013349f, -8.8914e-6f, -8.978e-4f, -9.601e-6f, 2880.f, 2890.f,
+ .085314f, 2.2957f, -.0010376f, -3.9555e-7f, -.0023459f, -3.1759e-6f,
+ 2890.f, 2900.f, .1913f, 2.1329f, 9.3145e-5f, -1.0935e-5f, -.0023306f,
+ -7.0411e-6f, 2900.f, 2910.f, .14327f, 3.0363f, .0049245f, -1.9969e-5f,
+ .0019913f, -1.9177e-5f, 2910.f, 2920.f, .062081f, 2.9232f, .0028349f,
+ 4.5083e-6f, .0026887f, -6.9673e-6f, 2920.f, 2930.f, .054536f, 2.5833f,
+ .003389f, 5.9711e-6f, .0039633f, 1.706e-6f, 2930.f, 2940.f, .067558f,
+ 4.1622f, .012948f, 1.8636e-5f, .013881f, -2.7246e-5f, 2940.f, 2950.f,
+ .10694f, 4.2481f, .019447f, -4.2948e-5f, .016908f, -6.0648e-5f, 2950.f,
+ 2960.f, .23821f, 4.1323f, .020561f, -8.5072e-5f, .016888f, -7.7856e-5f,
+ 2960.f, 2970.f, .64222f, 3.762f, .01732f, -8.1718e-5f, .014625f,
+ -7.652e-5f, 2970.f, 2980.f, 1.63f, 3.7899f, .013216f, -6.5623e-5f,
+ .011621f, -6.3803e-5f, 2980.f, 2990.f, 3.8611f, 4.0234f, .0091789f,
+ -4.9247e-5f, .0082148f, -4.8334e-5f, 2990.f, 3e3f, 8.4985f, 4.366f,
+ .0053518f, -3.3739e-5f, .0046322f, -3.3282e-5f, 3e3f, 3010.f, 16.437f,
+ 4.6428f, .0018372f, -1.9254e-5f, .0014965f, -1.9554e-5f, 3010.f, 3020.f,
+ 26.227f, 5.2685f, -.0010368f, -6.92e-6f, -.0010546f, -7.8474e-6f,
+ 3020.f, 3030.f, 29.674f, 6.9683f, -.0027894f, 1.5655e-6f, -.0027673f,
+ 3.4286e-7f, 3030.f, 3040.f, 24.306f, 9.5097f, -.002074f, 6.2838e-6f,
+ -.0020776f, 2.179e-6f, 3040.f, 3050.f, 63.521f, 9.8031f, -.0012075f,
+
+ -2.994e-6f, -.0022793f, -5.3779e-6f, 3050.f, 3060.f, 1.1941f, 5.4609f,
+ .0015524f, -9.5161e-6f, -9.6618e-4f, -7.6711e-6f, 3060.f, 3070.f,
+ .92867f, 5.355f, -6.2368e-4f, -3.643e-6f, -.0029524f, -1.6001e-6f,
+ 3070.f, 3080.f, .67841f, 5.2135f, 5.235e-4f, 6.0726e-6f, -3.7339e-4f,
+ -2.3662e-6f, 3080.f, 3090.f, 3.1429f, 5.2297f, .0017001f, -8.0369e-6f,
+ -2.527e-4f, -9.2399e-6f, 3090.f, 3100.f, .55537f, 4.0641f, -8.4176e-4f,
+ 3.74e-7f, -.0020788f, -8.3774e-7f, 3100.f, 3110.f, .62683f, 4.1264f,
+ -6.4674e-4f, -8.4882e-7f, -5.9275e-4f, -1.4998e-6f, 3110.f, 3120.f,
+ .75072f, 5.6505f, .0024151f, -8.8833e-6f, .0024005f, -1.4915e-5f,
+ 3120.f, 3130.f, .63692f, 5.2929f, .0052702f, -2.0599e-5f, .0049282f,
+ -2.9353e-5f, 3130.f, 3140.f, .6931f, 5.7878f, .0069797f, -3.6776e-5f,
+ .0052917f, -3.67e-5f, 3140.f, 3150.f, 1.0593f, 5.0675f, .0040985f,
+ -2.5996e-5f, .0032401f, -2.8071e-5f, 3150.f, 3160.f, 1.7493f, 4.5943f,
+ -1.8037e-4f, -8.6286e-6f, 2.5807e-4f, -1.0009e-5f, 3160.f, 3170.f,
+ 2.0855f, 5.9045f, -.0022784f, 1.4682e-6f, -.0024776f, -2.9964e-6f,
+ 3170.f, 3180.f, 1.3759f, 5.4986f, -.0034094f, 2.6712e-6f, -.0053592f,
+ 5.6885e-6f, 3180.f, 3190.f, 3.923f, 8.3024f, -.0018506f, -3.5742e-7f,
+ -.0024786f, -1.1732e-6f, 3190.f, 3200.f, 1.1841f, 5.1604f, .0039237f,
+ -2.2108e-5f, .0038274f, -2.7628e-5f, 3200.f, 3210.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f, 0.f, 3210.f, 3220.f, 5.5594e-4f, .13449f, 1.458e-4f, -1.5828e-5f,
+ -.0029023f, -1.0057e-5f, 3220.f, 3230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 3230.f, 3240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3240.f, 3250.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 3250.f, 3260.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3260.f,
+ 3270.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3270.f, 3280.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 3280.f, 3290.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3290.f, 3300.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 3300.f, 3310.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3310.f,
+ 3320.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3320.f, 3330.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 3330.f, 3340.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3340.f, 3350.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 3350.f, 3360.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3360.f,
+ 3370.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3370.f, 3380.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 3380.f, 3390.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3390.f, 3400.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 3400.f, 3410.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3410.f,
+ 3420.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3420.f, 3430.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 3430.f, 3440.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3440.f, 3450.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 3450.f, 3460.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3460.f,
+ 3470.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3470.f, 3480.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 3480.f, 3490.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3490.f, 3500.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 3500.f, 3510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3510.f,
+ 3520.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3520.f, 3530.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 3530.f, 3540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3540.f, 3550.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 3550.f, 3560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3560.f,
+ 3570.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3570.f, 3580.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 3580.f, 3590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3590.f, 3600.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 3600.f, 3610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3610.f,
+ 3620.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3620.f, 3630.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 3630.f, 3640.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3640.f, 3650.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 3650.f, 3660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3660.f,
+ 3670.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3670.f, 3680.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 3680.f, 3690.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3690.f, 3700.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 3700.f, 3710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3710.f,
+ 3720.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3720.f, 3730.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 3730.f, 3740.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3740.f, 3750.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 3750.f, 3760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3760.f,
+ 3770.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3770.f, 3780.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 3780.f, 3790.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3790.f, 3800.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 3800.f, 3810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3810.f,
+ 3820.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3820.f, 3830.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 3830.f, 3840.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3840.f, 3850.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 3850.f, 3860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3860.f,
+ 3870.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3870.f, 3880.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 3880.f, 3890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3890.f, 3900.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 3900.f, 3910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3910.f,
+ 3920.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3920.f, 3930.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 3930.f, 3940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3940.f, 3950.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 3950.f, 3960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3960.f,
+ 3970.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3970.f, 3980.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 3980.f, 3990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3990.f, 4e3f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 4e3f, 4010.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4010.f, 4020.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 4020.f, 4030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4030.f,
+ 4040.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4040.f, 4050.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 4050.f, 4060.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4060.f, 4070.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 4070.f, 4080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4080.f,
+ 4090.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4090.f, 4100.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 4100.f, 4110.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4110.f, 4120.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 4120.f, 4130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4130.f,
+ 4140.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4140.f, 4150.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 4150.f, 4160.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4160.f, 4170.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 4170.f, 4180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4180.f,
+ 4190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4190.f, 4200.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 4200.f, 4210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4210.f, 4220.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 4220.f, 4230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4230.f,
+ 4240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4240.f, 4250.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 4250.f, 4260.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4260.f, 4270.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 4270.f, 4280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4280.f,
+ 4290.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4290.f, 4300.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 4300.f, 4310.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4310.f, 4320.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 4320.f, 4330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4330.f,
+ 4340.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4340.f, 4350.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 4350.f, 4360.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4360.f, 4370.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 4370.f, 4380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4380.f,
+ 4390.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4390.f, 4400.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 4400.f, 4410.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4410.f, 4420.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 4420.f, 4430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4430.f,
+ 4440.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4440.f, 4450.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 4450.f, 4460.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4460.f, 4470.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 4470.f, 4480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4480.f,
+ 4490.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4490.f, 4500.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 4500.f, 4510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4510.f, 4520.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 4520.f, 4530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4530.f,
+ 4540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4540.f, 4550.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 4550.f, 4560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4560.f, 4570.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 4570.f, 4580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4580.f,
+ 4590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4590.f, 4600.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 4600.f, 4610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4610.f, 4620.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 4620.f, 4630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4630.f,
+ 4640.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4640.f, 4650.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 4650.f, 4660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4660.f, 4670.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 4670.f, 4680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4680.f,
+ 4690.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4690.f, 4700.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 4700.f, 4710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4710.f, 4720.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 4720.f, 4730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4730.f,
+ 4740.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4740.f, 4750.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 4750.f, 4760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4760.f, 4770.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 4770.f, 4780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4780.f,
+ 4790.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4790.f, 4800.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 4800.f, 4810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4810.f, 4820.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 4820.f, 4830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4830.f,
+ 4840.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4840.f, 4850.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 4850.f, 4860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4860.f, 4870.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 4870.f, 4880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4880.f,
+ 4890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4890.f, 4900.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 4900.f, 4910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4910.f, 4920.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 4920.f, 4930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4930.f,
+ 4940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4940.f, 4950.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 4950.f, 4960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4960.f, 4970.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 4970.f, 4980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4980.f,
+ 4990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4990.f, 5e3f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 5e3f, 5010.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5010.f, 5020.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 5020.f, 5030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5030.f,
+ 5040.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5040.f, 5050.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 5050.f, 5060.f
+ };
+
+
+ /* ozone (2500 - 5040 cm-1) */
+ for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
+} /* ozon1 */
+
+
+void
+niox6 (float a[8], const long int inu)
+{
+
+
+ static const float acr[2048] = { 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f, 15300.f, 15310.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15310.f, 15320.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 15320.f, 15330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 15330.f, 15340.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15340.f, 15350.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 15350.f, 15360.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 15360.f,
+ 15370.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15370.f, 15380.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 15380.f, 15390.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15390.f,
+ 15400.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15400.f, 15410.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 15410.f, 15420.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15420.f, 15430.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 15430.f, 15440.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 15440.f,
+ 15450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15450.f, 15460.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 15460.f, 15470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15470.f,
+
+ 15480.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15480.f, 15490.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 15490.f, 15500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15500.f, 15510.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 15510.f, 15520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 15520.f,
+ 15530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15530.f, 15540.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 15540.f, 15550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15550.f,
+ 15560.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15560.f, 15570.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 15570.f, 15580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15580.f, 15590.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 15590.f, 15600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 15600.f,
+ 15610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15610.f, 15620.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 15620.f, 15630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15630.f,
+ 15640.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15640.f, 15650.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 15650.f, 15660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15660.f, 15670.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 15670.f, 15680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 15680.f,
+ 15690.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15690.f, 15700.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 15700.f, 15710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15710.f,
+ 15720.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15720.f, 15730.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 15730.f, 15740.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15740.f, 15750.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 15750.f, 15760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 15760.f,
+ 15770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15770.f, 15780.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 15780.f, 15790.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15790.f,
+ 15800.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15800.f, 15810.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 15810.f, 15820.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15820.f, 15830.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 15830.f, 15840.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 15840.f,
+ 15850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15850.f, 15860.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 15860.f, 15870.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15870.f,
+ 15880.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15880.f, 15890.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 15890.f, 15900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15900.f, 15910.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 15910.f, 15920.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 15920.f,
+ 15930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15930.f, 15940.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 15940.f, 15950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15950.f,
+ 15960.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15960.f, 15970.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 15970.f, 15980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15980.f, 15990.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 15990.f, 1.6e4f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.6e4f,
+ 16010.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16010.f, 16020.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16020.f, 16030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16030.f,
+ 16040.f,
+
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16040.f, 16050.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16050.f, 16060.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16060.f, 16070.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16070.f, 16080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16080.f,
+ 16090.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16090.f, 16100.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16100.f, 16110.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16110.f,
+ 16120.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16120.f, 16130.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16130.f, 16140.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16140.f, 16150.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16150.f, 16160.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16160.f,
+ 16170.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16170.f, 16180.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16180.f, 16190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16190.f,
+ 16200.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16200.f, 16210.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16210.f, 16220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16220.f, 16230.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16230.f, 16240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16240.f,
+ 16250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16250.f, 16260.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16260.f, 16270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16270.f,
+ 16280.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16280.f, 16290.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16290.f, 16300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16300.f, 16310.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16310.f, 16320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16320.f,
+ 16330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16330.f, 16340.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16340.f, 16350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16350.f,
+ 16360.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16360.f, 16370.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16370.f, 16380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16380.f, 16390.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16390.f, 16400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16400.f,
+ 16410.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16410.f, 16420.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16420.f, 16430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16430.f,
+ 16440.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16440.f, 16450.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16450.f, 16460.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16460.f, 16470.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16470.f, 16480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16480.f,
+ 16490.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16490.f, 16500.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16500.f, 16510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16510.f,
+ 16520.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16520.f, 16530.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16530.f, 16540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16540.f, 16550.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16550.f, 16560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16560.f,
+ 16570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16570.f, 16580.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16580.f, 16590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16590.f,
+ 16600.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16600.f, 16610.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16610.f, 16620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16620.f, 16630.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16630.f, 16640.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16640.f,
+ 16650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16650.f, 16660.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16660.f, 16670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16670.f,
+ 16680.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16680.f, 16690.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16690.f, 16700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16700.f, 16710.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16710.f, 16720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16720.f,
+ 16730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16730.f, 16740.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16740.f, 16750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16750.f,
+ 16760.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16760.f, 16770.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16770.f, 16780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16780.f, 16790.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16790.f, 16800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16800.f,
+ 16810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16810.f, 16820.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16820.f, 16830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16830.f,
+ 16840.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16840.f, 16850.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16850.f, 16860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16860.f, 16870.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16870.f, 16880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16880.f,
+ 16890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16890.f, 16900.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16900.f, 16910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16910.f,
+ 16920.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16920.f, 16930.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16930.f, 16940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16940.f, 16950.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16950.f, 16960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16960.f,
+ 16970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16970.f, 16980.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16980.f, 16990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16990.f, 1.7e4f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.7e4f, 17010.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 17010.f, 17020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17020.f, 17030.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 17030.f, 17040.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 17040.f,
+ 17050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17050.f, 17060.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 17060.f, 17070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17070.f,
+ 17080.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17080.f, 17090.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 17090.f, 17100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17100.f, 17110.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 17110.f, 17120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 17120.f,
+ 17130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17130.f, 17140.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 17140.f, 17150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17150.f,
+ 17160.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17160.f, 17170.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 17170.f, 17180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17180.f, 17190.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 17190.f, 17200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 17200.f,
+ 17210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17210.f, 17220.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 17220.f, 17230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17230.f,
+ 17240.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17240.f, 17250.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 17250.f, 17260.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17260.f, 17270.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 17270.f, 17280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 17280.f,
+ 17290.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17290.f, 17300.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 17300.f, 17310.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17310.f,
+ 17320.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17320.f, 17330.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 17330.f, 17340.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17340.f, 17350.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 17350.f, 17360.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 17360.f,
+ 17370.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17370.f, 17380.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 17380.f, 17390.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17390.f,
+ 17400.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17400.f, 17410.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 17410.f, 17420.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17420.f, 17430.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 17430.f, 17440.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 17440.f,
+ 17450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17450.f, 17460.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 17460.f, 17470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17470.f,
+ 17480.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17480.f, 17490.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 17490.f, 17500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17500.f, 17510.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 17510.f, 17520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 17520.f,
+ 17530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17530.f, 17540.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 17540.f, 17550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17550.f,
+ 17560.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17560.f, 17570.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 17570.f, 17580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17580.f, 17590.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 17590.f, 17600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 17600.f,
+ 17610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17610.f, 17620.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 17620.f, 17630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17630.f,
+ 17640.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17640.f, 17650.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 17650.f, 17660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17660.f, 17670.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 17670.f, 17680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 17680.f,
+ 17690.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17690.f, 17700.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 17700.f, 17710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17710.f,
+ 17720.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17720.f, 17730.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 17730.f, 17740.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17740.f, 17750.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 17750.f, 17760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 17760.f,
+ 17770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17770.f, 17780.f, 0.f, 0.f, 0.f,
+
+ 0.f,
+ 0.f, 0.f, 17780.f, 17790.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17790.f,
+ 17800.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17800.f, 17810.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 17810.f, 17820.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17820.f, 17830.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 17830.f, 17840.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 17840.f,
+ 17850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17850.f, 17860.f
+ };
+
+ /* nitrous oxide (15300 - 17870 cm-1) */
+ for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
+} /* niox6 */
+
+void
+niox5 (float a[8], const long int inu)
+{
+
+
+ static const float acr[2048] = { 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f, 12740.f, 12750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12750.f, 12760.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 12760.f, 12770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 12770.f, 12780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12780.f, 12790.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 12790.f, 12800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 12800.f,
+ 12810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12810.f, 12820.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 12820.f, 12830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12830.f,
+ 12840.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12840.f, 12850.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 12850.f, 12860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12860.f, 12870.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 12870.f, 12880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 12880.f,
+ 12890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12890.f, 12900.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 12900.f, 12910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12910.f,
+ 12920.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12920.f, 12930.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 12930.f, 12940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12940.f, 12950.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 12950.f, 12960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 12960.f,
+ 12970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12970.f, 12980.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 12980.f, 12990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12990.f, 1.3e4f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.3e4f, 13010.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13010.f, 13020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13020.f, 13030.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13030.f, 13040.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 13040.f,
+ 13050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13050.f, 13060.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 13060.f, 13070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13070.f,
+ 13080.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13080.f, 13090.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13090.f, 13100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13100.f, 13110.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13110.f, 13120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 13120.f,
+ 13130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13130.f, 13140.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 13140.f, 13150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13150.f,
+ 13160.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13160.f, 13170.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13170.f, 13180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13180.f, 13190.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13190.f, 13200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 13200.f,
+ 13210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13210.f, 13220.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 13220.f, 13230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13230.f,
+ 13240.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13240.f, 13250.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13250.f, 13260.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13260.f, 13270.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13270.f, 13280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+
+ 13280.f,
+ 13290.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13290.f, 13300.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 13300.f, 13310.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13310.f,
+ 13320.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13320.f, 13330.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13330.f, 13340.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13340.f, 13350.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13350.f, 13360.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 13360.f,
+ 13370.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13370.f, 13380.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 13380.f, 13390.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13390.f,
+ 13400.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13400.f, 13410.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13410.f, 13420.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13420.f, 13430.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13430.f, 13440.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 13440.f,
+ 13450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13450.f, 13460.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 13460.f, 13470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13470.f,
+ 13480.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13480.f, 13490.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13490.f, 13500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13500.f, 13510.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13510.f, 13520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 13520.f,
+ 13530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13530.f, 13540.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 13540.f, 13550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13550.f,
+ 13560.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13560.f, 13570.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13570.f, 13580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13580.f, 13590.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13590.f, 13600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 13600.f,
+ 13610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13610.f, 13620.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 13620.f, 13630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13630.f,
+ 13640.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13640.f, 13650.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13650.f, 13660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13660.f, 13670.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13670.f, 13680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 13680.f,
+ 13690.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13690.f, 13700.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 13700.f, 13710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13710.f,
+ 13720.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13720.f, 13730.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13730.f, 13740.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13740.f, 13750.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13750.f, 13760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 13760.f,
+ 13770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13770.f, 13780.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 13780.f, 13790.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13790.f,
+ 13800.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13800.f, 13810.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13810.f, 13820.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13820.f, 13830.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13830.f, 13840.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 13840.f,
+ 13850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13850.f, 13860.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 13860.f, 13870.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13870.f,
+ 13880.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13880.f, 13890.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13890.f, 13900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13900.f, 13910.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13910.f, 13920.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 13920.f,
+ 13930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13930.f, 13940.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 13940.f, 13950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13950.f,
+ 13960.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13960.f, 13970.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13970.f, 13980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13980.f, 13990.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13990.f, 1.4e4f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.4e4f,
+ 14010.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14010.f, 14020.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 14020.f, 14030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14030.f,
+ 14040.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14040.f, 14050.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 14050.f, 14060.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14060.f, 14070.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 14070.f, 14080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 14080.f,
+ 14090.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14090.f, 14100.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 14100.f, 14110.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14110.f,
+
+ 14120.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14120.f, 14130.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 14130.f, 14140.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14140.f, 14150.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 14150.f, 14160.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 14160.f,
+ 14170.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14170.f, 14180.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 14180.f, 14190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14190.f,
+ 14200.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14200.f, 14210.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 14210.f, 14220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14220.f, 14230.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 14230.f, 14240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 14240.f,
+ 14250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14250.f, 14260.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 14260.f, 14270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14270.f,
+ 14280.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14280.f, 14290.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 14290.f, 14300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14300.f, 14310.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 14310.f, 14320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 14320.f,
+ 14330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14330.f, 14340.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 14340.f, 14350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14350.f,
+ 14360.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14360.f, 14370.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 14370.f, 14380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14380.f, 14390.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 14390.f, 14400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 14400.f,
+ 14410.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14410.f, 14420.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 14420.f, 14430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14430.f,
+ 14440.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14440.f, 14450.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 14450.f, 14460.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14460.f, 14470.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 14470.f, 14480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 14480.f,
+ 14490.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14490.f, 14500.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 14500.f, 14510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14510.f,
+ 14520.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14520.f, 14530.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 14530.f, 14540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14540.f, 14550.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 14550.f, 14560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+
+ 14560.f,
+ 14570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14570.f, 14580.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 14580.f, 14590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14590.f,
+ 14600.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14600.f, 14610.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 14610.f, 14620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14620.f, 14630.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 14630.f, 14640.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 14640.f,
+ 14650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14650.f, 14660.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 14660.f, 14670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14670.f,
+ 14680.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14680.f, 14690.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 14690.f, 14700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14700.f, 14710.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 14710.f, 14720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 14720.f,
+ 14730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14730.f, 14740.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 14740.f, 14750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14750.f,
+ 14760.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14760.f, 14770.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 14770.f, 14780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14780.f, 14790.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 14790.f, 14800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 14800.f,
+ 14810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14810.f, 14820.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 14820.f, 14830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14830.f,
+ 14840.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14840.f, 14850.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 14850.f, 14860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14860.f, 14870.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 14870.f, 14880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 14880.f,
+ 14890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14890.f, 14900.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 14900.f, 14910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14910.f,
+ 14920.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14920.f, 14930.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 14930.f, 14940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14940.f, 14950.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 14950.f, 14960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 14960.f,
+ 14970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14970.f, 14980.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 14980.f, 14990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14990.f, 1.5e4f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.5e4f, 15010.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 15010.f, 15020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15020.f, 15030.f, 0.f,
+
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 15030.f, 15040.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 15040.f,
+ 15050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15050.f, 15060.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 15060.f, 15070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15070.f,
+ 15080.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15080.f, 15090.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 15090.f, 15100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15100.f, 15110.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 15110.f, 15120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 15120.f,
+ 15130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15130.f, 15140.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 15140.f, 15150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15150.f,
+ 15160.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15160.f, 15170.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 15170.f, 15180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15180.f, 15190.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 15190.f, 15200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 15200.f,
+ 15210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15210.f, 15220.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 15220.f, 15230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15230.f,
+ 15040.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15240.f, 15250.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 15250.f, 15260.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15260.f, 15270.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 15270.f, 15280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 15280.f,
+ 15290.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15290.f, 15300.f
+ };
+
+ /* nitrous oxide (12740 - 15290 cm-1) */
+ for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
+} /* niox5 */
+
+void
+niox4 (float a[8], const long int inu)
+{
+
+
+ static const float acr[2048] = { 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f, 10180.f, 10190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10190.f, 10200.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 10200.f, 10210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 10210.f, 10220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10220.f, 10230.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 10230.f, 10240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 10240.f,
+ 10250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10250.f, 10260.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 10260.f, 10270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10270.f,
+ 10280.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10280.f, 10290.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 10290.f, 10300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10300.f, 10310.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 10310.f, 10320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 10320.f,
+ 10330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10330.f, 10340.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 10340.f, 10350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10350.f,
+ 10360.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10360.f, 10370.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 10370.f, 10380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10380.f, 10390.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 10390.f, 10400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 10400.f,
+ 10410.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10410.f, 10420.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 10420.f, 10430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10430.f,
+ 10440.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10440.f, 10450.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 10450.f, 10460.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10460.f, 10470.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 10470.f, 10480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 10480.f,
+ 10490.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10490.f, 10500.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 10500.f, 10510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10510.f,
+ 10520.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10520.f, 10530.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 10530.f, 10540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10540.f, 10550.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 10550.f, 10560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 10560.f,
+ 10570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10570.f, 10580.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 10580.f, 10590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10590.f,
+ 10600.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10600.f, 10610.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 10610.f, 10620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10620.f, 10630.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 10630.f, 10640.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 10640.f,
+ 10650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10650.f, 10660.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 10660.f, 10670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10670.f,
+ 10680.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10680.f, 10690.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 10690.f, 10700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10700.f, 10710.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 10710.f, 10720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 10720.f,
+ 10730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10730.f, 10740.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 10740.f, 10750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10750.f,
+ 10760.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10760.f, 10770.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 10770.f, 10780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10780.f, 10790.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 10790.f, 10800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 10800.f,
+ 10810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10810.f, 10820.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 10820.f, 10830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10830.f,
+ 10840.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10840.f, 10850.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 10850.f, 10860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10860.f, 10870.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 10870.f, 10880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 10880.f,
+
+ 10890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10890.f, 10900.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 10900.f, 10910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10910.f,
+ 10920.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10920.f, 10930.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 10930.f, 10940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10940.f, 10950.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 10950.f, 10960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 10960.f,
+ 10970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10970.f, 10980.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 10980.f, 10990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10990.f, 1.1e4f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.1e4f, 11010.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 11010.f, 11020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11020.f, 11030.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 11030.f, 11040.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 11040.f,
+ 11050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11050.f, 11060.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 11060.f, 11070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11070.f,
+ 11080.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11080.f, 11090.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 11090.f, 11100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11100.f, 11110.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 11110.f, 11120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 11120.f,
+ 11130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11130.f, 11140.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 11140.f, 11150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11150.f,
+ 11160.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11160.f, 11170.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 11170.f, 11180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11180.f, 11190.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 11190.f, 11200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 11200.f,
+ 11210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11210.f, 11220.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 11220.f, 11230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11230.f,
+ 11240.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11240.f, 11250.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+
+ 11250.f, 11260.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11260.f, 11270.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 11270.f, 11280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 11280.f,
+ 11290.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11290.f, 11300.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 11300.f, 11310.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11310.f,
+ 11320.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11320.f, 11330.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 11330.f, 11340.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11340.f, 11350.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 11350.f, 11360.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 11360.f,
+ 11370.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11370.f, 11380.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 11380.f, 11390.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11390.f,
+ 11400.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11400.f, 11410.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 11410.f, 11420.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11420.f, 11430.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 11430.f, 11440.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 11440.f,
+ 11450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11450.f, 11460.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 11460.f, 11470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11470.f,
+ 11480.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11480.f, 11490.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 11490.f, 11500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11500.f, 11510.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 11510.f, 11520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 11520.f,
+ 11530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11530.f, 11540.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 11540.f, 11550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11550.f,
+ 11560.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11560.f, 11570.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 11570.f, 11580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11580.f, 11590.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 11590.f, 11600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 11600.f,
+ 11610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11610.f, 11620.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 11620.f, 11630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11630.f,
+ 11640.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11640.f, 11650.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 11650.f, 11660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11660.f, 11670.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 11670.f, 11680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 11680.f,
+ 11690.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11690.f, 11700.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 11700.f, 11710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11710.f,
+ 11720.f,
+
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11720.f, 11730.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 11730.f, 11740.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11740.f, 11750.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 11750.f, 11760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 11760.f,
+ 11770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11770.f, 11780.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 11780.f, 11790.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11790.f,
+ 11800.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11800.f, 11810.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 11810.f, 11820.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11820.f, 11830.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 11830.f, 11840.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 11840.f,
+ 11850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11850.f, 11860.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 11860.f, 11870.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11870.f,
+ 11880.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11880.f, 11890.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 11890.f, 11900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11900.f, 11910.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 11910.f, 11920.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 11920.f,
+ 11930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11930.f, 11940.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 11940.f, 11950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11950.f,
+ 11960.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11960.f, 11970.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 11970.f, 11980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11980.f, 11990.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 11990.f, 1.2e4f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.2e4f,
+ 12010.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12010.f, 12020.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 12020.f, 12030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12030.f,
+ 12040.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12040.f, 12050.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 12050.f, 12060.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12060.f, 12070.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 12070.f, 12080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 12080.f,
+ 12090.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12090.f, 12100.f, 0.f, 0.f, 0.f,
+
+ 0.f,
+ 0.f, 0.f, 12100.f, 12110.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12110.f,
+ 12120.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12120.f, 12130.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 12130.f, 12140.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12140.f, 12150.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 12150.f, 12160.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 12160.f,
+ 12170.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12170.f, 12180.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 12180.f, 12190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12190.f,
+ 12200.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12200.f, 12210.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 12210.f, 12220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12220.f, 12230.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 12230.f, 12240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 12240.f,
+ 12250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12250.f, 12260.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 12260.f, 12270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12270.f,
+ 12280.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12280.f, 12290.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 12290.f, 12300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12300.f, 12310.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 12310.f, 12320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 12320.f,
+ 12330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12330.f, 12340.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 12340.f, 12350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12350.f,
+ 12360.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12360.f, 12370.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 12370.f, 12380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12380.f, 12390.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 12390.f, 12400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 12400.f,
+ 12410.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12410.f, 12420.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 12420.f, 12430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12430.f,
+ 12440.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12440.f, 12450.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 12450.f, 12460.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12460.f, 12470.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 12470.f, 12480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 12480.f,
+ 12490.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12490.f, 12500.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 12500.f, 12510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12510.f,
+ 12520.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12520.f, 12530.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 12530.f, 12540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12540.f, 12550.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 12550.f, 12560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 12560.f,
+ 12570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12570.f, 12580.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 12580.f, 12590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12590.f,
+ 12600.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12600.f, 12610.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 12610.f, 12620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12620.f, 12630.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 12630.f, 12640.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 12640.f,
+ 12650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12650.f, 12660.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 12660.f, 12670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12670.f,
+ 12680.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12680.f, 12690.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 12690.f, 12700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12700.f, 12710.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 12710.f, 12720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 12720.f,
+ 12730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12730.f, 12740.f
+ };
+
+ /* nitrous oxide (10180 - 12730 cm-1) */
+ for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
+} /* niox4 */
+
+void
+niox3 (float a[8], const long int inu)
+{
+
+
+ static const float acr[2048] = { 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f, 7620.f, 7630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7630.f, 7640.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 7640.f, 7650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7650.f,
+ 7660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7660.f, 7670.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 7670.f, 7680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7680.f, 7690.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 7690.f, 7700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7700.f,
+ 7710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7710.f, 7720.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 7720.f, 7730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7730.f, 7740.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 7740.f, 7750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7750.f,
+ 7760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7760.f, 7770.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 7770.f, 7780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7780.f, 7790.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 7790.f, 7800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7800.f,
+ 7810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7810.f, 7820.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 7820.f, 7830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7830.f, 7840.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 7840.f, 7850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7850.f,
+ 7860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7860.f, 7870.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 7870.f, 7880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7880.f, 7890.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 7890.f, 7900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7900.f,
+ 7910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7910.f, 7920.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 7920.f, 7930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7930.f, 7940.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 7940.f, 7950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7950.f,
+ 7960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7960.f, 7970.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 7970.f, 7980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7980.f, 7990.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 7990.f, 8e3f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8e3f,
+ 8010.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8010.f, 8020.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8020.f, 8030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8030.f, 8040.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8040.f, 8050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8050.f,
+ 8060.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8060.f, 8070.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8070.f, 8080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8080.f, 8090.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8090.f, 8100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8100.f,
+ 8110.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8110.f, 8120.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8120.f, 8130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8130.f, 8140.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8140.f, 8150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8150.f,
+ 8160.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8160.f, 8170.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8170.f, 8180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8180.f, 8190.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8190.f, 8200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8200.f,
+ 8210.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8210.f, 8220.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8220.f, 8230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8230.f, 8240.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8240.f, 8250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8250.f,
+ 8260.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8260.f, 8270.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8270.f, 8280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8280.f, 8290.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8290.f, 8300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8300.f,
+ 8310.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8310.f, 8320.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8320.f, 8330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8330.f, 8340.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8340.f, 8350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8350.f,
+ 8360.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8360.f, 8370.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8370.f, 8380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8380.f, 8390.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8390.f, 8400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8400.f,
+ 8410.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8410.f, 8420.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8420.f, 8430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8430.f, 8440.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8440.f, 8450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8450.f,
+ 8460.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8460.f, 8470.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8470.f, 8480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8480.f, 8490.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8490.f, 8500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8500.f,
+ 8510.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8510.f, 8520.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8520.f, 8530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8530.f, 8540.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8540.f, 8550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8550.f,
+ 8560.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8560.f, 8570.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8570.f, 8580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8580.f, 8590.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8590.f, 8600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8600.f,
+ 8610.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8610.f, 8620.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8620.f, 8630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8630.f, 8640.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8640.f, 8650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8650.f,
+ 8660.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8660.f, 8670.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8670.f, 8680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8680.f, 8690.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8690.f, 8700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8700.f,
+ 8710.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8710.f, 8720.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8720.f, 8730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8730.f, 8740.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8740.f, 8750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8750.f,
+ 8760.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8760.f, 8770.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8770.f, 8780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8780.f, 8790.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8790.f, 8800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8800.f,
+ 8810.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8810.f, 8820.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8820.f, 8830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8830.f, 8840.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8840.f, 8850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8850.f,
+ 8860.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8860.f, 8870.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8870.f, 8880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8880.f, 8890.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8890.f, 8900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8900.f,
+ 8910.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8910.f, 8920.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8920.f, 8930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8930.f, 8940.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8940.f, 8950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8950.f,
+ 8960.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8960.f, 8970.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8970.f, 8980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8980.f, 8990.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8990.f, 9e3f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9e3f, 9010.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 9010.f, 9020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 9020.f,
+
+ 9030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9030.f, 9040.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 9040.f, 9050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9050.f, 9060.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 9060.f, 9070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9070.f,
+ 9080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9080.f, 9090.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 9090.f, 9100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9100.f, 9110.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 9110.f, 9120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9120.f,
+ 9130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9130.f, 9140.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 9140.f, 9150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9150.f, 9160.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 9160.f, 9170.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9170.f,
+ 9180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9180.f, 9190.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 9190.f, 9200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9200.f, 9210.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 9210.f, 9220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9220.f,
+ 9230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9230.f, 9240.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 9240.f, 9250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9250.f, 9260.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 9260.f, 9270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9270.f,
+ 9280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9280.f, 9290.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 9290.f, 9300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9300.f, 9310.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 9310.f, 9320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9320.f,
+ 9330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9330.f, 9340.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 9340.f, 9350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9350.f, 9360.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 9360.f, 9370.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9370.f,
+ 9380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9380.f, 9390.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 9390.f, 9400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9400.f, 9410.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 9410.f, 9420.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9420.f,
+ 9430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9430.f, 9440.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 9440.f, 9450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9450.f, 9460.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 9460.f, 9470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9470.f,
+ 9480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9480.f, 9490.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 9490.f, 9500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9500.f, 9510.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 9510.f, 9520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9520.f,
+
+ 9530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9530.f, 9540.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 9540.f, 9550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9550.f, 9560.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 9560.f, 9570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9570.f,
+ 9580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9580.f, 9590.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 9590.f, 9600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9600.f, 9610.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 9610.f, 9620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9620.f,
+ 9630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9630.f, 9640.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 9640.f, 9650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9650.f, 9660.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 9660.f, 9670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9670.f,
+ 9680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9680.f, 9690.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 9690.f, 9700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9700.f, 9710.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 9710.f, 9720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9720.f,
+ 9730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9730.f, 9740.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 9740.f, 9750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9750.f, 9760.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 9760.f, 9770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9770.f,
+ 9780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9780.f, 9790.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 9790.f, 9800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9800.f, 9810.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 9810.f, 9820.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9820.f,
+ 9830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9830.f, 9840.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 9840.f, 9850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9850.f, 9860.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 9860.f, 9870.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9870.f,
+ 9880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9880.f, 9890.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 9890.f, 9900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9900.f, 9910.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 9910.f, 9920.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9920.f,
+ 9930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9930.f, 9940.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 9940.f, 9950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9950.f, 9960.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 9960.f, 9970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9970.f,
+ 9980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9980.f, 9990.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 9990.f, 1e4f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1e4f, 10010.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 10010.f, 10020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10020.f,
+ 10030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10030.f, 10040.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 10040.f, 10050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10050.f,
+ 10060.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10060.f, 10070.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 10070.f, 10080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10080.f, 10090.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 10090.f, 10100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 10100.f,
+ 10110.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10110.f, 10120.f, 0.f, 0.f, 0.f,
+ 0.f,
+
+ 0.f, 0.f, 10120.f, 10130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10130.f,
+ 10140.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10140.f, 10150.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 10150.f, 10160.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10160.f, 10170.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 10170.f, 10180.f
+ };
+
+ /* nitrous oxide (7620 - 10170 cm-1) */
+ for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
+} /* niox3 */
+
+void
+niox2 (float a[8], const long int inu)
+{
+
+
+ static const float acr[2048] = { .072211f, .24584f,
+ .0096738f, -5.1958e-5f, .0067533f, -4.7277e-5f, 5060.f, 5070.f, .21388f,
+ .25456f, .0043318f, -3.1058e-5f, .0012217f, -2.5614e-5f, 5070.f, 5080.f,
+ .57556f, .33263f, -2.6597e-4f, -1.2844e-5f, -.0033007f, -7.3238e-6f,
+ 5080.f, 5090.f, .67723f, .36014f, -.0034018f, -8.0539e-7f, -.006515f,
+ 5.4383e-6f, 5090.f, 5100.f, .30093f, .41799f, -.0047912f, 4.5347e-6f,
+ -.0079672f, 1.0982e-5f, 5100.f, 5110.f, 1.0645f, .53257f, -.003157f,
+ -1.4679e-6f, -.0062971f, 4.7135e-6f, 5110.f, 5120.f, .67643f, .61899f,
+ .0025029f, -2.0398e-5f, 2.0488e-4f, -1.9155e-5f, 5120.f, 5130.f,
+ .018117f, .12425f, .013386f, -6.7752e-5f, .010428f, -6.2211e-5f, 5130.f,
+ 5140.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5140.f, 5150.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 5150.f, 5160.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5160.f, 5170.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 5170.f, 5180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5180.f,
+ 5190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5190.f, 5200.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 5200.f, 5210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5210.f, 5220.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 5220.f, 5230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5230.f,
+ 5240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5240.f, 5250.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 5250.f, 5260.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5260.f, 5270.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 5270.f, 5280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5280.f,
+ 5290.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5290.f, 5300.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 5300.f, 5310.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5310.f, 5320.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 5320.f, 5330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5330.f,
+ 5340.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5340.f, 5350.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 5350.f, 5360.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5360.f, 5370.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 5370.f, 5380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5380.f,
+ 5390.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5390.f, 5400.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 5400.f, 5410.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5410.f, 5420.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 5420.f, 5430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5430.f,
+ 5440.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5440.f, 5450.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 5450.f, 5460.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5460.f, 5470.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 5470.f, 5480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5480.f,
+ 5490.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5490.f, 5500.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 5500.f, 5510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5510.f, 5520.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 5520.f, 5530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5530.f,
+ 5540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5540.f, 5550.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 5550.f, 5560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5560.f, 5570.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 5570.f, 5580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5580.f,
+ 5590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5590.f, 5600.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 5600.f, 5610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5610.f, 5620.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 5620.f, 5630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5630.f,
+ 5640.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5640.f, 5650.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 5650.f, 5660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5660.f, 5670.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 5670.f, 5680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5680.f,
+ 5690.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5690.f, 5700.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 5700.f, 5710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5710.f, 5720.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 5720.f, 5730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5730.f,
+ 5740.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5740.f, 5750.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 5750.f, 5760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5760.f, 5770.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 5770.f, 5780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5780.f,
+ 5790.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5790.f, 5800.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 5800.f, 5810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5810.f, 5820.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 5820.f, 5830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5830.f,
+ 5840.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5840.f, 5850.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 5850.f, 5860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5860.f, 5870.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 5870.f, 5880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5880.f,
+ 5890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5890.f, 5900.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 5900.f, 5910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5910.f, 5920.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 5920.f, 5930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5930.f,
+ 5940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5940.f, 5950.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 5950.f, 5960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5960.f, 5970.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 5970.f, 5980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5980.f,
+ 5990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5990.f, 6e3f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 6e3f, 6010.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6010.f, 6020.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 6020.f, 6030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6030.f,
+ 6040.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6040.f, 6050.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 6050.f, 6060.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6060.f, 6070.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 6070.f, 6080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6080.f,
+ 6090.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6090.f, 6100.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 6100.f, 6110.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6110.f, 6120.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 6120.f, 6130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6130.f,
+ 6140.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6140.f, 6150.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 6150.f, 6160.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6160.f, 6170.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 6170.f, 6180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6180.f,
+ 6190.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6190.f, 6200.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 6200.f, 6210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6210.f, 6220.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 6220.f, 6230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6230.f,
+ 6240.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6240.f, 6250.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 6250.f, 6260.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6260.f, 6270.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 6270.f, 6280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6280.f,
+ 6290.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6290.f, 6300.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 6300.f, 6310.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6310.f, 6320.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 6320.f, 6330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6330.f,
+ 6340.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6340.f, 6350.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 6350.f, 6360.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6360.f, 6370.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 6370.f, 6380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6380.f,
+ 6390.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6390.f, 6400.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 6400.f, 6410.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6410.f, 6420.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 6420.f, 6430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6430.f,
+ 6440.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6440.f, 6450.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 6450.f, 6460.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6460.f, 6470.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 6470.f, 6480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6480.f,
+ 6490.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6490.f, 6500.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 6500.f, 6510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6510.f, 6520.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 6520.f, 6530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6530.f,
+ 6540.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6540.f, 6550.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 6550.f, 6560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6560.f, 6570.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 6570.f, 6580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6580.f,
+ 6590.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6590.f, 6600.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 6600.f, 6610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6610.f, 6620.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 6620.f, 6630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6630.f,
+ 6640.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6640.f, 6650.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+
+ 0.f,
+ 6650.f, 6660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6660.f, 6670.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 6670.f, 6680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6680.f,
+ 6690.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6690.f, 6700.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 6700.f, 6710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6710.f, 6720.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 6720.f, 6730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6730.f,
+ 6740.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6740.f, 6750.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 6750.f, 6760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6760.f, 6770.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 6770.f, 6780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6780.f,
+ 6790.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6790.f, 6800.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 6800.f, 6810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6810.f, 6820.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 6820.f, 6830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6830.f,
+ 6840.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6840.f, 6850.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 6850.f, 6860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6860.f, 6870.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 6870.f, 6880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6880.f,
+ 6890.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6890.f, 6900.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 6900.f, 6910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6910.f, 6920.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 6920.f, 6930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6930.f,
+ 6940.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6940.f, 6950.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 6950.f, 6960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6960.f, 6970.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 6970.f, 6980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6980.f,
+ 6990.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6990.f, 7e3f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 7e3f,
+ 7010.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7010.f, 7020.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 7020.f, 7030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7030.f, 7040.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 7040.f, 7050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7050.f,
+ 7060.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7060.f, 7070.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 7070.f, 7080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7080.f, 7090.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 7090.f, 7100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7100.f,
+ 7110.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7110.f, 7120.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 7120.f, 7130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7130.f, 7140.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 7140.f, 7150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7150.f,
+ 7160.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7160.f, 7170.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 7170.f, 7180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7180.f, 7190.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 7190.f, 7200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7200.f,
+ 7210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7210.f, 7220.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 7220.f, 7230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7230.f, 7240.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 7240.f, 7250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7250.f,
+ 7260.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7260.f, 7270.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 7270.f, 7280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7280.f, 7290.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 7290.f, 7300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7300.f,
+ 7310.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7310.f, 7320.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 7320.f, 7330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7330.f, 7340.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 7340.f, 7350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7350.f,
+ 7360.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7360.f, 7370.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 7370.f, 7380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7380.f, 7390.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 7390.f, 7400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7400.f,
+ 7410.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7410.f, 7420.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 7420.f, 7430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7430.f, 7440.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 7440.f, 7450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7450.f,
+ 7460.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7460.f, 7470.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 7470.f, 7480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7480.f, 7490.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 7490.f, 7500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7500.f,
+ 7510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7510.f, 7520.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 7520.f, 7530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7530.f, 7540.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 7540.f, 7550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7550.f,
+ 7560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7560.f, 7570.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 7570.f, 7580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7580.f, 7590.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 7590.f, 7600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7600.f,
+ 7610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7610.f, 7620.f
+ };
+
+ /* nitrous oxide (5060 - 7610 cm-1) */
+ for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
+} /* niox2 */
+
+void
+niox1 (float a[8], const long int inu)
+{
+
+
+ static const float acr[2048] = { 2.0198f, 1.2223f,
+ .021725f, -7.4064e-5f, .021102f, -6.8716e-5f, 2500.f, 2510.f, 5.563f,
+ .51358f, .018526f, -8.1387e-5f, .020173f, -7.5293e-5f, 2510.f, 2520.f,
+ 30.587f, .41845f, .010994f, -5.2858e-5f, .012658f, -4.4443e-5f, 2520.f,
+ 2530.f, 127.44f, .46867f, .0044706f, -2.7536e-5f, .0057879f,
+ -1.6691e-5f, 2530.f, 2540.f, 288.02f, .51762f, -2.6998e-4f, -8.7651e-6f,
+ .0012264f, 2.1451e-6f, 2540.f, 2550.f, 353.69f, .7476f, -.0029604f,
+ 4.5093e-6f, -.0013209f, 1.2765e-5f, 2550.f, 2560.f, 185.24f, 1.0395f,
+ -.0026365f, 1.2028e-5f, 6.176e-4f, 1.0222e-5f, 2560.f, 2570.f, 464.55f,
+ .85773f, -.0024108f, -1.72e-6f, -7.7777e-4f, 5.7019e-6f, 2570.f, 2580.f,
+ 293.83f, 1.0741f, .0031043f, -2.1797e-5f, .0037703f, -2.0707e-5f,
+ 2580.f, 2590.f, 55.672f, 1.7813f, .013484f, -6.2711e-5f, .013188f,
+ -6.339e-5f, 2590.f, 2600.f, 6.6505f, 2.3452f, .023437f, -9.9109e-5f,
+ .023591f, -1.0503e-4f, 2600.f, 2610.f, .41623f, 2.2528f, .035914f,
+ -1.5047e-4f, .035732f, -1.5387e-4f, 2610.f, 2620.f, .01271f, 1.0271f,
+ .047982f, -1.9811e-4f, .047474f, -2.0344e-4f, 2620.f, 2630.f, 0.f, 0.f,
+ 0.f, 0.f, 0.f, 0.f, 2630.f, 2640.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2640.f,
+ 2650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2650.f, 2660.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 2660.f, 2670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2670.f, 2680.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 2680.f, 2690.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2690.f,
+ 2700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2700.f, 2710.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 2710.f, 2720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2720.f, 2730.f,
+ .018198f,
+ .18592f, .025778f, -1.1646e-4f, .02282f, -1.1152e-4f, 2730.f, 2740.f,
+ .21623f, .86664f, .021368f, -9.617e-5f, .018994f, -9.4763e-5f, 2740.f,
+ 2750.f, .9723f, 1.0815f, .015101f, -7.1229e-5f, .012988f, -7.0769e-5f,
+ 2750.f, 2760.f, 3.1871f, 1.6537f, .0095979f, -4.1092e-5f, .0109f,
+ -5.0556e-5f, 2760.f, 2770.f, 9.1207f, 2.0456f, .0045146f, -1.7223e-5f,
+ .0068327f, -3.3329e-5f, 2770.f, 2780.f, 15.769f, 2.4147f, .00151f,
+ 2.7306e-6f, .004717f, -2.1798e-5f, 2780.f, 2790.f, 63.944f, 2.2532f,
+ -9.2395e-4f, -1.4987e-6f, -.0017516f, -2.476e-6f, 2790.f, 2800.f,
+ 13.465f, .81561f, -.0029579f, 7.8199e-6f, -.0016132f, 7.282e-6f, 2800.f,
+ 2810.f, 15.397f, .59138f, -4.591e-4f, -9.3657e-6f, -.0015437f,
+ -2.9788e-6f, 2810.f, 2820.f, 3.8011f, .48019f, .0069255f, -3.8126e-5f,
+ .0047344f, -3.7097e-5f, 2820.f, 2830.f, .17619f, .34619f, .019824f,
+ -8.9371e-5f, .017957f, -8.9565e-5f, 2830.f, 2840.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f, 0.f, 2840.f, 2850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2850.f, 2860.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 2860.f, 2870.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 2870.f,
+ 2880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2880.f, 2890.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 2890.f, 2900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2900.f, 2910.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 2910.f, 2920.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2920.f,
+ 2930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2930.f, 2940.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 2940.f, 2950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2950.f, 2960.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 2960.f, 2970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2970.f,
+ 2980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2980.f, 2990.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 2990.f, 3e3f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3e3f, 3010.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 3010.f, 3020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3020.f,
+ 3030.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3030.f, 3040.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 3040.f, 3050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3050.f, 3060.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 3060.f, 3070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3070.f,
+ 3080.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3080.f, 3090.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 3090.f, 3100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3100.f, 3110.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 3110.f, 3120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3120.f,
+ 3130.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3130.f, 3140.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 3140.f, 3150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3150.f, 3160.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 3160.f, 3170.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3170.f,
+ 3180.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3180.f, 3190.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 3190.f, 3200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3200.f, 3210.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 3210.f, 3220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3220.f,
+ 3230.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3230.f, 3240.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 3240.f, 3250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3250.f, 3260.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 3260.f, 3270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3270.f,
+ 3280.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3280.f, 3290.f, .031935f, .33591f, .031875f,
+ -1.4104e-4f, .028977f, -1.3626e-4f, 3290.f, 3300.f, .29281f, .7467f,
+ .024844f, -1.1101e-4f, .022436f, -1.0879e-4f, 3300.f, 3310.f, 1.3054f,
+ .88331f, .018331f, -8.5898e-5f, .015557f, -8.2041e-5f, 3310.f, 3320.f,
+ 4.3559f, .97784f, .012392f, -6.2543e-5f, .0096436f, -5.8644e-5f, 3320.f,
+ 3330.f, 10.74f, .87778f, .0059037f, -3.4711e-5f, .0041535f, -3.5594e-5f,
+ 3330.f, 3340.f, 23.794f, .67907f, 5.4208e-5f, -1.1592e-5f, -8.2054e-4f,
+ -1.2774e-5f, 3340.f, 3350.f, 27.447f, .86607f, -.0018645f, 4.7336e-6f,
+ -.001502f, -1.8166e-6f, 3350.f, 3360.f, 12.839f, .92051f, -.0018449f,
+ 1.8928e-5f, -3.1436e-5f, 6.4319e-6f, 3360.f, 3370.f, 33.503f, .561f,
+ -.0027786f, -1.9224e-7f, -.0032856f, 1.1355e-5f, 3370.f, 3380.f, 20.6f,
+ .44389f, .0016967f, -1.9484e-5f, -.0011701f, -1.5371e-5f, 3380.f,
+ 3390.f, 3.8609f, .51395f, .010469f, -4.8303e-5f, .010318f, -4.3382e-5f,
+ 3390.f, 3400.f, .29988f, .99187f, .032066f, -1.0701e-4f, .031782f,
+ -1.3149e-4f, 3400.f, 3410.f, 1.1046f, .96114f, .03056f, -1.2026e-4f,
+ .031203f, -1.3653e-4f, 3410.f, 3420.f, 5.3792f, .96792f, .023315f,
+ -9.51e-5f, .024421f, -1.0864e-4f, 3420.f, 3430.f, 25.745f, .89943f,
+ .015618f, -6.5963e-5f, .017309f, -7.84e-5f, 3430.f, 3440.f, 90.538f,
+ .79321f, .009142f, -4.2087e-5f, .010653f, -5.0451e-5f, 3440.f, 3450.f,
+ 302.63f, .81416f, .0031369f, -1.9699e-5f, .0046971f, -2.3774e-5f,
+ 3450.f, 3460.f, 451.74f, .71592f, -.0010912f, -4.691e-6f, 7.436e-4f,
+ -4.31e-6f, 3460.f, 3470.f, 395.99f, .95008f, -.0034795f, 5.0213e-6f,
+ -.0012061f, 8.3238e-6f, 3470.f, 3480.f, 391.94f, 1.0413f, -.0024518f,
+ 9.7005e-6f, 3.1609e-4f, 6.168e-6f, 3480.f, 3490.f, 753.96f, .84036f,
+ -9.1794e-4f, -4.5133e-6f, -2.3983e-4f, -6.0537e-7f, 3490.f, 3500.f,
+ 216.44f, .71621f, .00633f, -3.2276e-5f, .0065565f, -3.1312e-5f, 3500.f,
+ 3510.f, 1.8617f, .41652f, .026193f, -1.1186e-4f, .025872f, -1.1548e-4f,
+ 3510.f, 3520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3520.f, 3530.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 3530.f, 3540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3540.f,
+ 3550.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3550.f, 3560.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 3560.f, 3570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3570.f, 3580.f, .11329f,
+ .32221f, .011785f, -5.9055e-5f, .009293f, -5.6411e-5f, 3580.f, 3590.f,
+ .6324f, .37454f, .0039372f, -2.85e-5f, .0010518f, -2.435e-5f, 3590.f,
+ 3600.f, 1.3646f, .37234f, -.0012358f, -8.9975e-6f, -.0042592f,
+ -3.4218e-6f, 3600.f, 3610.f, 1.1991f, .43663f, -.0040429f, 1.6771e-6f,
+ -.007273f, 8.322e-6f, 3610.f, 3620.f, .84759f, .39017f, -.0045304f,
+ 3.5248e-6f, -.0077172f, 1.0072e-5f, 3620.f, 3630.f, 1.7247f, .41455f,
+ -.0023639f, -4.6172e-6f, -.0054164f, 1.1967e-6f, 3630.f, 3640.f, .9314f,
+ .40923f, .002508f, -2.2795e-5f, -3.8062e-4f, -1.8608e-5f, 3640.f,
+ 3650.f, .17321f, .37301f, .010558f, -5.3495e-5f, .0082291f, -5.1685e-5f,
+ 3650.f, 3660.f, .0028992f, .031363f, .018626f, -8.9141e-5f, .015463f,
+ -8.2773e-5f, 3660.f, 3670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3670.f, 3680.f,
+
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3680.f, 3690.f, .052016f, .2333f, .023008f,
+ -1.0429e-4f, .020466f, -1.014e-4f, 3690.f, 3700.f, .40077f, .43751f,
+ .015625f, -7.0109e-5f, .014974f, -7.3666e-5f, 3700.f, 3710.f, 2.1822f,
+ .57186f, .0083501f, -3.9798e-5f, .0081924f, -4.424e-5f, 3710.f, 3720.f,
+ 6.6262f, .62697f, .0026483f, -1.7431e-5f, .0025461f, -2.1437e-5f,
+ 3720.f, 3730.f, 11.503f, .6936f, -.001529f, -2.0568e-6f, -.0018176f,
+ -4.1926e-6f, 3730.f, 3740.f, 5.547f, .70735f, -.0036265f, 5.5723e-6f,
+ -.0039987f, 4.3869e-6f, 3740.f, 3750.f, 10.823f, .8515f, -.0028437f,
+ 4.704e-6f, -.0029039f, 1.4795e-6f, 3750.f, 3760.f, 13.145f, .83989f,
+ 2.3467e-4f, -7.519e-6f, 3.7066e-4f, -1.0406e-5f, 3760.f, 3770.f,
+ 3.9192f, .87428f, .0073134f, -3.2311e-5f, .0084021f, -3.9596e-5f,
+ 3770.f, 3780.f, .56238f, .59784f, .018114f, -8.3716e-5f, .016001f,
+ -8.226e-5f, 3780.f, 3790.f, 1.486f, .24352f, .011201f, -5.7941e-5f,
+ .0083855f, -5.3563e-5f, 3790.f, 3800.f, 5.7846f, .28312f, .0051402f,
+ -3.3968e-5f, .0020967f, -2.8941e-5f, 3800.f, 3810.f, 15.534f, .38502f,
+ 2.6866e-4f, -1.3504e-5f, -.0010262f, -5.4149e-6f, 3810.f, 3820.f,
+ 20.107f, .46654f, -.0028471f, 4.7046e-7f, -.0034091f, 7.0565e-6f,
+ 3820.f, 3830.f, 9.6329f, .68399f, -.0033535f, 1.0816e-5f, -.0031945f,
+ 9.1488e-6f, 3830.f, 3840.f, 28.782f, .76658f, -.0028915f, 1.4121e-6f,
+ -.0036898f, 2.7782e-6f, 3840.f, 3850.f, 22.068f, .72888f, .0013903f,
+ -1.6991e-5f, -3.5656e-4f, -1.6534e-5f, 3850.f, 3860.f, 4.1416f, 1.4182f,
+ .010989f, -5.3426e-5f, .0089392f, -5.1526e-5f, 3860.f, 3870.f, 1.386f,
+ 1.0616f, .014465f, -7.035e-5f, .011642f, -6.6421e-5f, 3870.f, 3880.f,
+ .21981f, .827f, .023073f, -1.0318e-4f, .020793f, -1.0169e-4f, 3880.f,
+ 3890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3890.f, 3900.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 3900.f, 3910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3910.f, 3920.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 3920.f, 3930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3930.f,
+ 3940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3940.f, 3950.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 3950.f, 3960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3960.f, 3970.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 3970.f, 3980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3980.f,
+ 3990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3990.f, 4e3f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 4e3f, 4010.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4010.f, 4020.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 4020.f, 4030.f, .046381f, .22687f, .0024345f, -2.3816e-5f,
+ -7.0852e-4f, -1.7981e-5f, 4030.f, 4040.f, .11207f, .33988f, -.0013925f,
+ -8.515e-6f, -.0044315f, -2.7839e-6f, 4040.f, 4050.f, .26494f, .78086f,
+ 7.5352e-4f, -1.0882e-5f, -.00225f, -8.0414e-6f, 4050.f, 4060.f, .52355f,
+ .95211f, -.003229f, -8.4991e-7f, -.0065316f, 5.7606e-6f, 4060.f, 4070.f,
+ .20288f, .51222f, -.0019356f, -5.8786e-6f, -.0049461f, -5.0049e-7f,
+ 4070.f, 4080.f, .047528f, .22508f, .002968f, -2.5911e-5f, -1.9533e-4f,
+ -2.0081e-5f, 4080.f, 4090.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4090.f, 4100.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4100.f, 4110.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 4110.f, 4120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4120.f, 4130.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 4130.f, 4140.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4140.f,
+ 4150.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4150.f, 4160.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 4160.f, 4170.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4170.f, 4180.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 4180.f, 4190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4190.f,
+ 4200.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4200.f, 4210.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 4210.f, 4220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4220.f, 4230.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 4230.f, 4240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4240.f,
+ 4250.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4250.f, 4260.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 4260.f, 4270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4270.f, 4280.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 4280.f, 4290.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4290.f,
+ 4300.f,
+ .010261f, .065002f, .0034485f, -2.8392e-5f, 1.7191e-4f, -2.183e-5f,
+ 4300.f, 4310.f, .084185f, .33064f, 1.571e-4f, -1.4472e-5f, -.0028838f,
+ -8.9966e-6f, 4310.f, 4320.f, .11106f, .39358f, -.0032422f, -1.3748e-6f,
+ -.006363f, 4.8743e-6f, 4320.f, 4330.f, .58854f, 1.3088f, -9.7669e-4f,
+ 7.0381e-7f, -.0031832f, 2.6227e-6f, 4330.f, 4340.f, .25725f, 1.0051f,
+ .006086f, 4.6822e-5f, .0059645f, 6.3569e-6f, 4340.f, 4350.f, .46043f,
+ 1.0822f, .014451f, -3.4551e-5f, .010783f, -4.3114e-5f, 4350.f, 4360.f,
+ 1.0879f, .79314f, .015344f, -7.4899e-5f, .012327f, -6.9661e-5f, 4360.f,
+ 4370.f, 2.8336f, .83143f, .010372f, -5.4787e-5f, .0077026f, -5.1069e-5f,
+ 4370.f, 4380.f, 5.6315f, .55232f, .0048246f, -3.1963e-5f, .0030343f,
+ -3.1434e-5f, 4380.f, 4390.f, 11.627f, .66242f, .0012226f, -1.4669e-5f,
+ 9.6618e-4f, -1.906e-5f, 4390.f, 4400.f, 18.357f, .81274f, -.0015078f,
+ 2.8307e-6f, 3.021e-4f, -3.645e-6f, 4400.f, 4410.f, 8.1517f, .53727f,
+ -.0041588f, 8.2656e-6f, -.0039017f, 1.9754e-5f, 4410.f, 4420.f, 21.947f,
+ .50379f, -.0036693f, 3.4765e-7f, -.0068581f, 6.819e-6f, 4420.f, 4430.f,
+ 21.321f, .70812f, .0014866f, -1.5888e-5f, -7.1958e-4f, -1.5047e-5f,
+ 4430.f, 4440.f, .76039f, .46213f, .015813f, -7.1293e-5f, .014807f,
+ -7.4172e-5f, 4440.f, 4450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4450.f, 4460.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4460.f, 4470.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 4470.f, 4480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4480.f, 4490.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 4490.f, 4500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4500.f,
+ 4510.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4510.f, 4520.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 4520.f, 4530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4530.f, 4540.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 4540.f, 4550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4550.f,
+ 4560.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4560.f, 4570.f, .0027208f, .031363f,
+ .019608f,
+ -9.3071e-5f, .016446f, -8.6703e-5f, 4570.f, 4580.f, .075316f, .2673f,
+ .013852f, -6.7928e-5f, .01126f, -6.4664e-5f, 4580.f, 4590.f, .26478f,
+ .24916f, .0075261f, -4.3549e-5f, .0044923f, -3.8501e-5f, 4590.f, 4600.f,
+ .94057f, .32245f, .0019994f, -2.1568e-5f, -.0010356f, -1.639e-5f,
+ 4600.f, 4610.f, 1.6283f, .34503f, -.002067f, -5.9246e-6f, -.0051076f,
+ -7.9763e-8f, 4610.f, 4620.f, 1.1361f, .39643f, -.0042841f, 2.5773e-6f,
+ -.007504f, 9.2053e-6f, 4620.f, 4630.f, 1.3595f, .42824f, -.0043267f,
+ 2.7527e-6f, -.0075382f, 9.366e-6f, 4630.f, 4640.f, 2.345f, .5039f,
+ -.0013021f, -8.1896e-6f, -.0042803f, -3.1004e-6f, 4640.f, 4650.f,
+ .73444f, .57859f, .006112f, -3.3071e-5f, .0044533f, -3.3529e-5f, 4650.f,
+ 4660.f, .038422f, .23935f, .02365f, -1.0589e-4f, .020573f, -1.0116e-4f,
+ 4660.f, 4670.f, .16643f, .21059f, .017844f, -8.4429e-5f, .015076f,
+ -8.0351e-5f, 4670.f, 4680.f, .66361f, .33032f, .012376f, -5.9085e-5f,
+ .01164f, -5.974e-5f, 4680.f, 4690.f, 2.4086f, .4322f, .0069608f,
+ -3.6434e-5f, .0066271f, -3.8146e-5f, 4690.f, 4700.f, 5.7007f, .46363f,
+ .0024374f, -1.85e-5f, .0021804f, -2.0294e-5f, 4700.f, 4710.f, 11.243f,
+ .58097f, -.0013313f, -4.1463e-6f, -.001735f, -4.8882e-6f, 4710.f,
+ 4720.f, 7.8568f, .66135f, -.0035465f, 4.3994e-6f, -.0041602f,
+ 4.5248e-6f, 4720.f, 4730.f, 9.4234f, .73404f, -.0035684f, 4.612e-6f,
+ -.0040476f, 4.3652e-6f, 4730.f, 4740.f, 18.463f, 1.0659f, 1.1174e-6f,
+ -7.5689e-6f, -1.4938e-4f, -1.035e-5f, 4740.f, 4750.f, 2.9519f, .92577f,
+ .009335f, -4.0974e-5f, .010093f, -5.0109e-5f, 4750.f, 4760.f, 0.f, 0.f,
+ 0.f, 0.f, 0.f, 0.f, 4760.f, 4770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4770.f,
+ 4780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4780.f, 4790.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 4790.f, 4800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4800.f, 4810.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 4810.f, 4820.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4820.f,
+ 4830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4830.f, 4840.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 4840.f, 4850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4850.f, 4860.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 4860.f, 4870.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4870.f,
+ 4880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4880.f, 4890.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 4890.f, 4900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4900.f, 4910.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 4910.f, 4920.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4920.f,
+ 4930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4930.f, 4940.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 4940.f, 4950.f, .057081f, .26504f, 2.1749e-4f, -1.4991e-5f,
+ -.0028657f, -9.2093e-6f, 4950.f, 4960.f, .089281f, .35365f, -.0029091f,
+ -2.6962e-6f, -.0059925f, 3.4121e-6f, 4960.f, 4970.f, .46911f, 1.1088f,
+ -.0015343f, -4.5097e-6f, -.0043859f, -9.5143e-7f, 4970.f, 4980.f,
+ .1858f, .71004f, 2.2264e-4f, 5.4082e-6f, -.0022981f, 3.4446e-7f, 4980.f,
+ 4990.f, .30113f, .63162f, .0034248f, -2.4398e-5f, -2.019e-4f,
+ -1.8173e-5f, 4990.f, 5e3f, .54259f, .33048f, 1.4963e-4f, -1.4443e-5f,
+ -.0028875f, -8.9818e-6f, 5e3f, 5010.f, .69468f, .35696f, -.0031719f,
+ -1.6864e-6f, -.0062635f, 4.4718e-6f, 5010.f, 5020.f, .31258f, .41285f,
+ -.0047292f, 4.2957e-6f, -.0079123f, 1.0784e-5f, 5020.f, 5030.f, .9629f,
+ .50181f, -.0034905f, -3.0499e-7f, -.0066561f, 6.056e-6f, 5030.f, 5040.f,
+ .75559f, .535f, .0012181f, -1.6925e-5f, -.0015139f, -1.3577e-5f, 5040.f,
+ 5050.f, .089652f, .35481f, .010413f, -5.3691e-5f, .0078717f,
+ -5.0854e-5f, 5050.f, 5060.f
+ };
+
+ /* nitrous oxide (2500 - 5050 cm-1) */
+ for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
+} /* niox1 */
+
+
+void
+meth6 (float a[8], const long int inu)
+{
+
+
+ static const float acr[2048] = { 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f, 15300.f, 15310.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15310.f, 15320.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 15320.f, 15330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 15330.f, 15340.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15340.f, 15350.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 15350.f, 15360.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 15360.f,
+ 15370.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15370.f, 15380.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 15380.f, 15390.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15390.f,
+ 15400.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15400.f, 15410.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 15410.f, 15420.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15420.f, 15430.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 15430.f, 15440.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 15440.f,
+ 15450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15450.f, 15460.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 15460.f, 15470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15470.f,
+ 15480.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15480.f, 15490.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 15490.f, 15500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15500.f, 15510.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 15510.f, 15520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+
+ 15520.f,
+
+ 15530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15530.f, 15540.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 15540.f, 15550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15550.f,
+ 15560.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15560.f, 15570.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 15570.f, 15580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15580.f, 15590.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 15590.f, 15600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 15600.f,
+ 15610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15610.f, 15620.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 15620.f, 15630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15630.f,
+ 15640.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15640.f, 15650.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 15650.f, 15660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15660.f, 15670.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 15670.f, 15680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 15680.f,
+ 15690.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15690.f, 15700.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 15700.f, 15710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15710.f,
+ 15720.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15720.f, 15730.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 15730.f, 15740.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15740.f, 15750.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 15750.f, 15760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 15760.f,
+ 15770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15770.f, 15780.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 15780.f, 15790.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15790.f,
+ 15800.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15800.f, 15810.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 15810.f, 15820.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15820.f, 15830.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 15830.f, 15840.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 15840.f,
+ 15850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15850.f, 15860.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 15860.f, 15870.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15870.f,
+ 15880.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15880.f, 15890.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 15890.f, 15900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15900.f, 15910.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 15910.f, 15920.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 15920.f,
+ 15930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15930.f, 15940.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 15940.f, 15950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15950.f,
+ 15960.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15960.f, 15970.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 15970.f, 15980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15980.f, 15990.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 15990.f, 1.6e4f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.6e4f,
+ 16010.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16010.f, 16020.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16020.f, 16030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16030.f,
+ 16040.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16040.f, 16050.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16050.f, 16060.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16060.f, 16070.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16070.f, 16080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16080.f,
+ 16090.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16090.f, 16100.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16100.f, 16110.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16110.f,
+ 16120.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16120.f, 16130.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16130.f, 16140.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16140.f, 16150.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16150.f, 16160.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16160.f,
+ 16170.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16170.f, 16180.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16180.f, 16190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16190.f,
+ 16200.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16200.f, 16210.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16210.f, 16220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16220.f, 16230.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16230.f, 16240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16240.f,
+ 16250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16250.f, 16260.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16260.f, 16270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16270.f,
+ 16280.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16280.f, 16290.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16290.f, 16300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16300.f, 16310.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16310.f, 16320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16320.f,
+ 16330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16330.f, 16340.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16340.f, 16350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16350.f,
+ 16360.f,
+
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16360.f, 16370.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16370.f, 16380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16380.f, 16390.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16390.f, 16400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16400.f,
+ 16410.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16410.f, 16420.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16420.f, 16430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16430.f,
+ 16440.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16440.f, 16450.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16450.f, 16460.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16460.f, 16470.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16470.f, 16480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16480.f,
+ 16490.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16490.f, 16500.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16500.f, 16510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16510.f,
+ 16520.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16520.f, 16530.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16530.f, 16540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16540.f, 16550.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16550.f, 16560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16560.f,
+ 16570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16570.f, 16580.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16580.f, 16590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16590.f,
+ 16600.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16600.f, 16610.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16610.f, 16620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16620.f, 16630.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16630.f, 16640.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16640.f,
+ 16650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16650.f, 16660.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16660.f, 16670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16670.f,
+ 16680.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16680.f, 16690.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16690.f, 16700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16700.f, 16710.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16710.f, 16720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16720.f,
+ 16730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16730.f, 16740.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16740.f, 16750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16750.f,
+ 16760.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16760.f, 16770.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16770.f, 16780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16780.f, 16790.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16790.f, 16800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16800.f,
+ 16810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16810.f, 16820.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16820.f, 16830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16830.f,
+ 16840.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16840.f, 16850.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16850.f, 16860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16860.f, 16870.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16870.f, 16880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16880.f,
+ 16890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16890.f, 16900.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16900.f, 16910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16910.f,
+ 16920.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16920.f, 16930.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16930.f, 16940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16940.f, 16950.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16950.f, 16960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16960.f,
+ 16970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16970.f, 16980.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16980.f, 16990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16990.f, 1.7e4f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.7e4f, 17010.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 17010.f, 17020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17020.f, 17030.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 17030.f, 17040.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 17040.f,
+ 17050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17050.f, 17060.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 17060.f, 17070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17070.f,
+ 17080.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17080.f, 17090.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 17090.f, 17100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17100.f, 17110.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 17110.f, 17120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 17120.f,
+ 17130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17130.f, 17140.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 17140.f, 17150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17150.f,
+ 17160.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17160.f, 17170.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 17170.f, 17180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17180.f, 17190.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 17190.f, 17200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 17200.f,
+ 17210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17210.f, 17220.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 17220.f, 17230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17230.f,
+ 17240.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17240.f, 17250.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 17250.f, 17260.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17260.f, 17270.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 17270.f, 17280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 17280.f,
+ 17290.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17290.f, 17300.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 17300.f, 17310.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17310.f,
+ 17320.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17320.f, 17330.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 17330.f, 17340.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17340.f, 17350.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 17350.f, 17360.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 17360.f,
+ 17370.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17370.f, 17380.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 17380.f, 17390.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17390.f,
+ 17400.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17400.f, 17410.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 17410.f, 17420.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17420.f, 17430.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 17430.f, 17440.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 17440.f,
+ 17450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17450.f, 17460.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 17460.f, 17470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17470.f,
+ 17480.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17480.f, 17490.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 17490.f, 17500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17500.f, 17510.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 17510.f, 17520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 17520.f,
+ 17530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17530.f, 17540.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 17540.f, 17550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17550.f,
+ 17560.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17560.f, 17570.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+
+ 0.f,
+ 17570.f, 17580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17580.f, 17590.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 17590.f, 17600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 17600.f,
+ 17610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17610.f, 17620.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 17620.f, 17630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17630.f,
+ 17640.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17640.f, 17650.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 17650.f, 17660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17660.f, 17670.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 17670.f, 17680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 17680.f,
+ 17690.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17690.f, 17700.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 17700.f, 17710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17710.f,
+ 17720.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17720.f, 17730.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 17730.f, 17740.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17740.f, 17750.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 17750.f, 17760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 17760.f,
+ 17770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17770.f, 17780.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 17780.f, 17790.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17790.f,
+ 17800.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17800.f, 17810.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 17810.f, 17820.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17820.f, 17830.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 17830.f, 17840.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 17840.f,
+ 17850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17850.f, 17860.f
+ };
+
+ /* methane (15300 - 17870 cm-1) */
+ for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
+} /* meth6 */
+
+void
+meth5 (float a[8], const long int inu)
+{
+
+
+ static const float acr[2048] = { 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f, 12740.f, 12750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12750.f, 12760.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 12760.f, 12770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 12770.f, 12780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12780.f, 12790.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 12790.f, 12800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 12800.f,
+ 12810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12810.f, 12820.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 12820.f, 12830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12830.f,
+ 12840.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12840.f, 12850.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 12850.f, 12860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12860.f, 12870.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 12870.f, 12880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 12880.f,
+ 12890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12890.f, 12900.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 12900.f, 12910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12910.f,
+ 12920.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12920.f, 12930.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 12930.f, 12940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12940.f, 12950.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 12950.f, 12960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 12960.f,
+ 12970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12970.f, 12980.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 12980.f, 12990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12990.f, 1.3e4f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.3e4f, 13010.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13010.f, 13020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13020.f, 13030.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13030.f, 13040.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 13040.f,
+ 13050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13050.f, 13060.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 13060.f, 13070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13070.f,
+ 13080.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13080.f, 13090.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13090.f, 13100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13100.f, 13110.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13110.f, 13120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 13120.f,
+ 13130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13130.f, 13140.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 13140.f, 13150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13150.f,
+ 13160.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13160.f, 13170.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13170.f, 13180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13180.f, 13190.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13190.f, 13200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 13200.f,
+ 13210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13210.f, 13220.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 13220.f, 13230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13230.f,
+ 13240.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13240.f, 13250.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13250.f, 13260.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13260.f, 13270.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13270.f, 13280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 13280.f,
+ 13290.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13290.f, 13300.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 13300.f, 13310.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13310.f,
+ 13320.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13320.f, 13330.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13330.f, 13340.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13340.f, 13350.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13350.f, 13360.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 13360.f,
+ 13370.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13370.f, 13380.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 13380.f, 13390.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13390.f,
+ 13400.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13400.f, 13410.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13410.f, 13420.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13420.f, 13430.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13430.f, 13440.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 13440.f,
+ 13450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13450.f, 13460.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 13460.f, 13470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13470.f,
+ 13480.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13480.f, 13490.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13490.f, 13500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13500.f, 13510.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13510.f, 13520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 13520.f,
+ 13530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13530.f, 13540.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 13540.f, 13550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13550.f,
+ 13560.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13560.f, 13570.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13570.f, 13580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13580.f, 13590.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13590.f, 13600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 13600.f,
+ 13610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13610.f, 13620.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 13620.f, 13630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13630.f,
+ 13640.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13640.f, 13650.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13650.f, 13660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13660.f, 13670.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13670.f, 13680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 13680.f,
+ 13690.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13690.f, 13700.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 13700.f, 13710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13710.f,
+ 13720.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13720.f, 13730.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13730.f, 13740.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13740.f, 13750.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13750.f, 13760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 13760.f,
+ 13770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13770.f, 13780.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 13780.f, 13790.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13790.f,
+ 13800.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13800.f, 13810.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13810.f, 13820.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13820.f, 13830.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13830.f, 13840.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 13840.f,
+ 13850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13850.f, 13860.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 13860.f, 13870.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13870.f,
+ 13880.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13880.f, 13890.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+
+ 13890.f, 13900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13900.f, 13910.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13910.f, 13920.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 13920.f,
+ 13930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13930.f, 13940.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 13940.f, 13950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13950.f,
+ 13960.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13960.f, 13970.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13970.f, 13980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13980.f, 13990.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13990.f, 1.4e4f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.4e4f,
+ 14010.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14010.f, 14020.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 14020.f, 14030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14030.f,
+ 14040.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14040.f, 14050.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 14050.f, 14060.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14060.f, 14070.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 14070.f, 14080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 14080.f,
+ 14090.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14090.f, 14100.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 14100.f, 14110.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14110.f,
+ 14120.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14120.f, 14130.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 14130.f, 14140.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14140.f, 14150.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 14150.f, 14160.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 14160.f,
+ 14170.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14170.f, 14180.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 14180.f, 14190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14190.f,
+ 14200.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14200.f, 14210.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 14210.f, 14220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14220.f, 14230.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 14230.f, 14240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 14240.f,
+ 14250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14250.f, 14260.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 14260.f, 14270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14270.f,
+ 14280.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14280.f, 14290.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 14290.f, 14300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14300.f, 14310.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 14310.f, 14320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 14320.f,
+ 14330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14330.f, 14340.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 14340.f, 14350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14350.f,
+ 14360.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14360.f, 14370.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 14370.f, 14380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14380.f, 14390.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 14390.f, 14400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 14400.f,
+ 14410.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14410.f, 14420.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 14420.f, 14430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14430.f,
+ 14440.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14440.f, 14450.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 14450.f, 14460.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14460.f, 14470.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 14470.f, 14480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 14480.f,
+ 14490.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14490.f, 14500.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 14500.f, 14510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14510.f,
+ 14520.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14520.f, 14530.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 14530.f, 14540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14540.f, 14550.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 14550.f, 14560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 14560.f,
+ 14570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14570.f, 14580.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 14580.f, 14590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14590.f,
+ 14600.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14600.f, 14610.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 14610.f, 14620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14620.f, 14630.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 14630.f, 14640.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 14640.f,
+ 14650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14650.f, 14660.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 14660.f, 14670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14670.f,
+ 14680.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14680.f, 14690.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 14690.f, 14700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14700.f, 14710.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 14710.f, 14720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 14720.f,
+
+ 14730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14730.f, 14740.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 14740.f, 14750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14750.f,
+ 14760.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14760.f, 14770.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 14770.f, 14780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14780.f, 14790.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 14790.f, 14800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 14800.f,
+ 14810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14810.f, 14820.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 14820.f, 14830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14830.f,
+ 14840.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14840.f, 14850.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 14850.f, 14860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14860.f, 14870.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 14870.f, 14880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 14880.f,
+ 14890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14890.f, 14900.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 14900.f, 14910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14910.f,
+ 14920.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14920.f, 14930.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 14930.f, 14940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14940.f, 14950.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 14950.f, 14960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 14960.f,
+ 14970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14970.f, 14980.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 14980.f, 14990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14990.f, 1.5e4f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.5e4f, 15010.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 15010.f, 15020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15020.f, 15030.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 15030.f, 15040.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 15040.f,
+ 15050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15050.f, 15060.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 15060.f, 15070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15070.f,
+ 15080.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15080.f, 15090.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 15090.f, 15100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15100.f, 15110.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 15110.f, 15120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 15120.f,
+ 15130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15130.f, 15140.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 15140.f, 15150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15150.f,
+ 15160.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15160.f, 15170.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 15170.f, 15180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15180.f, 15190.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 15190.f, 15200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 15200.f,
+ 15210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15210.f, 15220.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 15220.f, 15230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15230.f,
+ 15240.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15240.f, 15250.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 15250.f, 15260.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15260.f, 15270.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 15270.f, 15280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 15280.f,
+ 15290.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15290.f, 15300.f
+ };
+
+ /* methane (12740 - 15290 cm-1) */
+ for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
+} /* meth5 */
+
+void
+meth4 (float a[8], const long int inu)
+{
+
+
+ static const float acr[2048] = { 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f, 10180.f, 10190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10190.f, 10200.f,
+ 0.f,
+
+ 0.f, 0.f, 0.f, 0.f, 0.f, 10200.f, 10210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 10210.f, 10220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10220.f, 10230.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 10230.f, 10240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 10240.f,
+ 10250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10250.f, 10260.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 10260.f, 10270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10270.f,
+ 10280.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10280.f, 10290.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 10290.f, 10300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10300.f, 10310.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 10310.f, 10320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 10320.f,
+ 10330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10330.f, 10340.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 10340.f, 10350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10350.f,
+ 10360.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10360.f, 10370.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 10370.f, 10380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10380.f, 10390.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 10390.f, 10400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 10400.f,
+ 10410.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10410.f, 10420.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 10420.f, 10430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10430.f,
+ 10440.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10440.f, 10450.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 10450.f, 10460.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10460.f, 10470.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 10470.f, 10480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 10480.f,
+ 10490.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10490.f, 10500.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 10500.f, 10510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10510.f,
+ 10520.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10520.f, 10530.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 10530.f, 10540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10540.f, 10550.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 10550.f, 10560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 10560.f,
+ 10570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10570.f, 10580.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 10580.f, 10590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10590.f,
+ 10600.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10600.f, 10610.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 10610.f, 10620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10620.f, 10630.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 10630.f, 10640.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 10640.f,
+ 10650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10650.f, 10660.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 10660.f, 10670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10670.f,
+ 10680.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10680.f, 10690.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 10690.f, 10700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10700.f, 10710.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 10710.f, 10720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 10720.f,
+ 10730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10730.f, 10740.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 10740.f, 10750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10750.f,
+ 10760.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10760.f, 10770.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 10770.f, 10780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10780.f, 10790.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 10790.f, 10800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 10800.f,
+ 10810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10810.f, 10820.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 10820.f, 10830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10830.f,
+ 10840.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10840.f, 10850.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 10850.f, 10860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10860.f, 10870.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 10870.f, 10880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 10880.f,
+ 10890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10890.f, 10900.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 10900.f, 10910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10910.f,
+ 10920.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10920.f, 10930.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 10930.f, 10940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10940.f, 10950.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 10950.f, 10960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 10960.f,
+ 10970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10970.f, 10980.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 10980.f, 10990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10990.f, 1.1e4f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.1e4f, 11010.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 11010.f, 11020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11020.f, 11030.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 11030.f, 11040.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 11040.f,
+ 11050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11050.f, 11060.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 11060.f, 11070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11070.f,
+ 11080.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11080.f, 11090.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 11090.f, 11100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11100.f, 11110.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 11110.f, 11120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 11120.f,
+ 11130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11130.f, 11140.f, 0.f, 0.f, 0.f,
+ 0.f,
+
+ 0.f, 0.f, 11140.f, 11150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11150.f,
+ 11160.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11160.f, 11170.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 11170.f, 11180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11180.f, 11190.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 11190.f, 11200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 11200.f,
+ 11210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11210.f, 11220.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 11220.f, 11230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11230.f,
+ 11240.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11240.f, 11250.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 11250.f, 11260.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11260.f, 11270.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 11270.f, 11280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 11280.f,
+ 11290.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11290.f, 11300.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 11300.f, 11310.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11310.f,
+ 11320.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11320.f, 11330.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 11330.f, 11340.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11340.f, 11350.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 11350.f, 11360.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 11360.f,
+ 11370.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11370.f, 11380.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 11380.f, 11390.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11390.f,
+ 11400.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11400.f, 11410.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 11410.f, 11420.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11420.f, 11430.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 11430.f, 11440.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 11440.f,
+ 11450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11450.f, 11460.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 11460.f, 11470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11470.f,
+ 11480.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11480.f, 11490.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 11490.f, 11500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11500.f, 11510.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 11510.f, 11520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 11520.f,
+ 11530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11530.f, 11540.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 11540.f, 11550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11550.f,
+ 11560.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11560.f, 11570.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 11570.f, 11580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11580.f, 11590.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 11590.f, 11600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 11600.f,
+ 11610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11610.f, 11620.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 11620.f, 11630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11630.f,
+ 11640.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11640.f, 11650.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 11650.f, 11660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11660.f, 11670.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 11670.f, 11680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 11680.f,
+ 11690.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11690.f, 11700.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 11700.f, 11710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11710.f,
+ 11720.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11720.f, 11730.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 11730.f, 11740.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11740.f, 11750.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 11750.f, 11760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 11760.f,
+ 11770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11770.f, 11780.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 11780.f, 11790.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11790.f,
+ 11800.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11800.f, 11810.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 11810.f, 11820.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11820.f, 11830.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 11830.f, 11840.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 11840.f,
+ 11850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11850.f, 11860.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 11860.f, 11870.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11870.f,
+ 11880.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11880.f, 11890.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 11890.f, 11900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11900.f, 11910.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 11910.f, 11920.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 11920.f,
+ 11930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11930.f, 11940.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 11940.f, 11950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11950.f,
+ 11960.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11960.f, 11970.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 11970.f, 11980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11980.f, 11990.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 11990.f, 1.2e4f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.2e4f,
+ 12010.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12010.f, 12020.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 12020.f, 12030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12030.f,
+ 12040.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12040.f, 12050.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 12050.f, 12060.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12060.f, 12070.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 12070.f, 12080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 12080.f,
+ 12090.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12090.f, 12100.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 12100.f, 12110.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12110.f,
+ 12120.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12120.f, 12130.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 12130.f, 12140.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12140.f, 12150.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 12150.f, 12160.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 12160.f,
+ 12170.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12170.f, 12180.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 12180.f, 12190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12190.f,
+ 12200.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12200.f, 12210.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 12210.f, 12220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12220.f, 12230.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 12230.f, 12240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 12240.f,
+ 12250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12250.f, 12260.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 12260.f, 12270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12270.f,
+ 12280.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12280.f, 12290.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 12290.f, 12300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12300.f, 12310.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 12310.f, 12320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 12320.f,
+ 12330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12330.f, 12340.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 12340.f, 12350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12350.f,
+ 12360.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12360.f, 12370.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 12370.f, 12380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12380.f, 12390.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 12390.f, 12400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 12400.f,
+ 12410.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12410.f, 12420.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 12420.f, 12430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12430.f,
+ 12440.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12440.f, 12450.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 12450.f, 12460.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12460.f, 12470.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 12470.f, 12480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 12480.f,
+ 12490.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12490.f, 12500.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 12500.f, 12510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12510.f,
+ 12520.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12520.f, 12530.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 12530.f, 12540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12540.f, 12550.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 12550.f, 12560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 12560.f,
+ 12570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12570.f, 12580.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 12580.f, 12590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12590.f,
+ 12600.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12600.f, 12610.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 12610.f, 12620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12620.f, 12630.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 12630.f, 12640.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 12640.f,
+ 12650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12650.f, 12660.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 12660.f, 12670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12670.f,
+ 12680.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12680.f, 12690.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 12690.f, 12700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12700.f, 12710.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 12710.f, 12720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 12720.f,
+ 12730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12730.f, 12740.f
+ };
+
+ /* methane (10180 - 12730 cm-1) */
+ for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
+} /* meth4 */
+
+void
+meth3 (float a[8], const long int inu)
+{
+
+
+ static const float acr[2048] = { 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f, 7620.f, 7630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7630.f, 7640.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 7640.f, 7650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7650.f,
+ 7660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7660.f, 7670.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 7670.f, 7680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7680.f, 7690.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 7690.f, 7700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7700.f,
+ 7710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7710.f, 7720.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 7720.f, 7730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7730.f, 7740.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 7740.f, 7750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7750.f,
+ 7760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7760.f, 7770.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 7770.f, 7780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7780.f, 7790.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 7790.f, 7800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7800.f,
+ 7810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7810.f, 7820.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 7820.f, 7830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7830.f, 7840.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 7840.f, 7850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7850.f,
+ 7860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7860.f, 7870.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 7870.f, 7880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7880.f, 7890.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 7890.f, 7900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7900.f,
+ 7910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7910.f, 7920.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 7920.f, 7930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7930.f, 7940.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 7940.f, 7950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7950.f,
+ 7960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7960.f, 7970.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 7970.f, 7980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7980.f, 7990.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 7990.f, 8e3f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8e3f,
+ 8010.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8010.f, 8020.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8020.f, 8030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8030.f, 8040.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8040.f, 8050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8050.f,
+ 8060.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8060.f, 8070.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8070.f, 8080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8080.f, 8090.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8090.f, 8100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8100.f,
+ 8110.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8110.f, 8120.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8120.f, 8130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8130.f, 8140.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8140.f, 8150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8150.f,
+ 8160.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8160.f, 8170.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8170.f, 8180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8180.f, 8190.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8190.f, 8200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8200.f,
+ 8210.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8210.f, 8220.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8220.f, 8230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8230.f, 8240.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8240.f, 8250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8250.f,
+ 8260.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8260.f, 8270.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8270.f, 8280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8280.f, 8290.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8290.f, 8300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8300.f,
+ 8310.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8310.f, 8320.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8320.f, 8330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8330.f, 8340.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8340.f, 8350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8350.f,
+ 8360.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8360.f, 8370.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8370.f, 8380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8380.f, 8390.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8390.f, 8400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8400.f,
+ 8410.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8410.f, 8420.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8420.f, 8430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8430.f, 8440.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8440.f, 8450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8450.f,
+ 8460.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8460.f, 8470.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8470.f, 8480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8480.f, 8490.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8490.f, 8500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8500.f,
+ 8510.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8510.f, 8520.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8520.f, 8530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8530.f, 8540.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8540.f, 8550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8550.f,
+ 8560.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8560.f, 8570.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8570.f, 8580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8580.f, 8590.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8590.f, 8600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8600.f,
+ 8610.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8610.f, 8620.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8620.f, 8630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8630.f, 8640.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8640.f, 8650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8650.f,
+ 8660.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8660.f, 8670.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8670.f, 8680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8680.f, 8690.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8690.f, 8700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8700.f,
+ 8710.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8710.f, 8720.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8720.f, 8730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8730.f, 8740.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8740.f, 8750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8750.f,
+ 8760.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8760.f, 8770.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8770.f, 8780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8780.f, 8790.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8790.f, 8800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8800.f,
+ 8810.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8810.f, 8820.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8820.f, 8830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8830.f, 8840.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8840.f, 8850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8850.f,
+ 8860.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8860.f, 8870.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8870.f, 8880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8880.f, 8890.f, 0.f, 0.f,
+ 0.f,
+
+ 0.f, 0.f, 0.f, 8890.f, 8900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8900.f,
+ 8910.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8910.f, 8920.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8920.f, 8930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8930.f, 8940.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8940.f, 8950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8950.f,
+ 8960.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8960.f, 8970.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8970.f, 8980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8980.f, 8990.f, 0.f, 0.f,
+ 0.f,
+
+ 0.f, 0.f, 0.f, 8990.f, 9e3f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9e3f, 9010.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 9010.f, 9020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 9020.f,
+ 9030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9030.f, 9040.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 9040.f, 9050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9050.f, 9060.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 9060.f, 9070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9070.f,
+ 9080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9080.f, 9090.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 9090.f, 9100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9100.f, 9110.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 9110.f, 9120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9120.f,
+ 9130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9130.f, 9140.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 9140.f, 9150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9150.f, 9160.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 9160.f, 9170.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9170.f,
+ 9180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9180.f, 9190.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 9190.f, 9200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9200.f, 9210.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 9210.f, 9220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9220.f,
+ 9230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9230.f, 9240.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 9240.f, 9250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9250.f, 9260.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 9260.f, 9270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9270.f,
+ 9280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9280.f, 9290.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 9290.f, 9300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9300.f, 9310.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 9310.f, 9320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9320.f,
+ 9330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9330.f, 9340.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 9340.f, 9350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9350.f, 9360.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 9360.f, 9370.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9370.f,
+ 9380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9380.f, 9390.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 9390.f, 9400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9400.f, 9410.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 9410.f, 9420.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9420.f,
+ 9430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9430.f, 9440.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 9440.f, 9450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9450.f, 9460.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 9460.f, 9470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9470.f,
+ 9480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9480.f, 9490.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 9490.f, 9500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9500.f, 9510.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 9510.f, 9520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9520.f,
+ 9530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9530.f, 9540.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 9540.f, 9550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9550.f, 9560.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 9560.f, 9570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9570.f,
+ 9580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9580.f, 9590.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 9590.f, 9600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9600.f, 9610.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 9610.f, 9620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9620.f,
+ 9630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9630.f, 9640.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 9640.f, 9650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9650.f, 9660.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 9660.f, 9670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9670.f,
+ 9680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9680.f, 9690.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 9690.f, 9700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9700.f, 9710.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 9710.f, 9720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9720.f,
+ 9730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9730.f, 9740.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 9740.f, 9750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9750.f, 9760.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 9760.f, 9770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9770.f,
+ 9780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9780.f, 9790.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 9790.f, 9800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9800.f, 9810.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 9810.f, 9820.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9820.f,
+ 9830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9830.f, 9840.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 9840.f, 9850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9850.f, 9860.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 9860.f, 9870.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9870.f,
+ 9880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9880.f, 9890.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 9890.f, 9900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9900.f, 9910.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 9910.f, 9920.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9920.f,
+ 9930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9930.f, 9940.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 9940.f, 9950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9950.f, 9960.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 9960.f, 9970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9970.f,
+ 9980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9980.f, 9990.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 9990.f, 1e4f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1e4f, 10010.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 10010.f, 10020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10020.f,
+ 10030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10030.f, 10040.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 10040.f, 10050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10050.f,
+ 10060.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10060.f, 10070.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 10070.f, 10080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10080.f, 10090.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 10090.f, 10100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 10100.f,
+ 10110.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10110.f, 10120.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 10120.f, 10130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10130.f,
+ 10140.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10140.f, 10150.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 10150.f, 10160.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10160.f, 10170.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 10170.f, 10180.f
+ };
+
+ /* methane (7620 - 10170 cm-1) */
+ for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
+} /* meth3 */
+
+void
+meth2 (float a[8], const long int inu)
+{
+
+
+ static const float acr[2048] = { 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f, 5060.f, 5070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5070.f, 5080.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 5080.f, 5090.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5090.f,
+ 5100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5100.f, 5110.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 5110.f, 5120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5120.f, 5130.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 5130.f, 5140.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5140.f,
+ 5150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5150.f, 5160.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 5160.f, 5170.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5170.f, 5180.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 5180.f, 5190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5190.f,
+ 5200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5200.f, 5210.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 5210.f, 5220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5220.f, 5230.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 5230.f, 5240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5240.f,
+ 5250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5250.f, 5260.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 5260.f, 5270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5270.f, 5280.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 5280.f, 5290.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5290.f,
+ 5300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5300.f, 5310.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 5310.f, 5320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5320.f, 5330.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 5330.f, 5340.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5340.f,
+ 5350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5350.f, 5360.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 5360.f, 5370.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5370.f, 5380.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 5380.f, 5390.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5390.f,
+ 5400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5400.f, 5410.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 5410.f, 5420.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5420.f, 5430.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 5430.f, 5440.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5440.f,
+ 5450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5450.f, 5460.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 5460.f, 5470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5470.f, 5480.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 5480.f, 5490.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5490.f,
+ 5500.f, .50197f, .25265f, .0033519f, -2.4607e-5f, 6.8955e-4f,
+ -2.0482e-5f, 5500.f, 5510.f, 2.3899f, .60596f, 2.7671e-5f, -1.2307e-5f,
+ -.0033058f, -5.2945e-6f, 5510.f, 5520.f, 2.4379f, .30699f, -6.0867e-4f,
+ -9.0704e-6f, -.0032892f, -5.0115e-6f, 5520.f, 5530.f, 2.1592f, .38949f,
+ -.0023556f, -3.3022e-6f, -.0052838f, 2.4513e-6f, 5530.f, 5540.f,
+ 2.3029f, .15736f, -.0035795f, 2.1673e-6f, -.005968f, 6.0863e-6f, 5540.f,
+ 5550.f, 1.954f, .11711f, -.0044087f, 5.103e-6f, -.0068665f, 9.1701e-6f,
+ 5550.f, 5560.f, 1.195f, .29396f, -.0010618f, 3.4067e-6f, -.0024231f,
+ -2.582e-6f, 5560.f, 5570.f, 4.8095f, 1.2465f, .0019344f, -1.5456e-5f,
+ -6.8788e-4f, -1.287e-5f, 5570.f, 5580.f, 11.674f, 1.5114f, -.0025504f,
+ 8.25e-7f, -.0045912f, 2.2777e-6f, 5580.f, 5590.f, 2.3702f, .84024f,
+ -8.2688e-4f, 2.9123e-6f, -.0020134f, -5.0547e-6f, 5590.f, 5600.f,
+ 3.4064f, 1.1326f, -.0025002f, 8.9997e-7f, -.0048837f, 2.6082e-6f,
+ 5600.f, 5610.f, 1.7392f, .31991f, -.0045126f, 8.6603e-6f, -.0061278f,
+ 9.3747e-6f, 5610.f, 5620.f, 4.348f, .58786f, -.0043137f, 4.6334e-6f,
+ -.0070133f, 9.529e-6f, 5620.f, 5630.f, 6.6586f, 1.8023f, -.0019866f,
+ -1.5163e-6f, -.0039533f, -8.5993e-7f, 5630.f, 5640.f, 4.3959f, .91267f,
+ -.0018359f, -2.6379e-6f, -.0045115f, 1.3137e-6f, 5640.f, 5650.f,
+ 2.9732f, .90097f, -4.5783e-4f, -8.654e-6f, -.0035958f, -2.8318e-6f,
+ 5650.f, 5660.f, 2.7758f, .82876f, .0019221f, -1.4165e-5f, -.0010447f,
+ -1.1375e-5f, 5660.f, 5670.f, 1.4345f, .92016f, .0046313f, -1.9911e-5f,
+ .0018272f, -2.0246e-5f, 5670.f, 5680.f, 1.0486f, .4465f, -3.8086e-4f,
+ 5.6985e-6f, -.0018929f, -1.1857e-6f, 5680.f, 5690.f, .94797f, .35596f,
+ -2.2904e-4f, 8.4588e-6f, -.0016889f, -3.7956e-7f, 5690.f, 5700.f,
+ .93528f, .41431f, .00128f, -8.7918e-7f, -.0014444f, -4.7052e-6f, 5700.f,
+ 5710.f, 1.6454f, .57474f, .0026463f, -1.3124e-5f, -3.7027e-4f,
+ -1.2452e-5f, 5710.f, 5720.f, 2.0351f, .34637f, .0026986f, -1.9613e-5f,
+ -4.6781e-4f, -1.4709e-5f, 5720.f, 5730.f, 2.2445f, .69714f, .0019373f,
+ -1.6752e-5f, -8.5242e-4f, -1.2956e-5f, 5730.f, 5740.f, 3.2153f, .75956f,
+
+ .0013362f, -1.4189e-5f, -.0010894f, -1.1571e-5f, 5740.f, 5750.f,
+ 3.4596f, .73536f, .0012876f, -1.2547e-5f, -4.537e-4f, -1.2912e-5f,
+ 5750.f, 5760.f, 4.9414f, 1.0526f, 6.4547e-4f, -1.0024e-5f, -9.6857e-4f,
+ -1.1592e-5f, 5760.f, 5770.f, 7.5119f, 1.41f, 2.8819e-4f, -7.444e-6f,
+ -.0012786f, -1.0307e-5f, 5770.f, 5780.f, 7.5235f, 1.323f, -4.9407e-4f,
+ -6.8773e-6f, -.002629f, -6.638e-6f, 5780.f, 5790.f, 10.241f, 1.6323f,
+ -.0013776f, -5.3214e-6f, -.0037904f, -2.3185e-6f, 5790.f, 5800.f,
+ 9.1281f, .93597f, -.0035876f, 2.3809e-6f, -.0059879f, 5.9495e-6f,
+ 5800.f, 5810.f, 3.9872f, .6767f, -.0044503f, 6.8501e-6f, -.0067178f,
+ 9.7535e-6f, 5810.f, 5820.f, 2.9318f, .24918f, -.0051233f, 7.7265e-6f,
+ -.0076555f, 1.1663e-5f, 5820.f, 5830.f, 3.6596f, .91227f, -.0026988f,
+ 2.3063e-6f, -.0047124f, 2.5366e-6f, 5830.f, 5840.f, 6.9904f, .93296f,
+ -.0037966f, 6.1051e-6f, -.0055025f, 7.3047e-6f, 5840.f, 5850.f, 12.815f,
+ 1.9354f, -.0021432f, 8.1298e-7f, -.0042246f, 2.2902e-6f, 5850.f, 5860.f,
+ 10.246f, 2.1238f, 4.6316e-5f, -6.0726e-6f, -.00223f, -5.3836e-6f,
+ 5860.f, 5870.f, 9.5647f, 1.9821f, .0012796f, -7.4626e-6f, -9.2616e-4f,
+ -1.0886e-5f, 5870.f, 5880.f, 4.8776f, 1.7308f, .0012461f, -8.1397e-6f,
+ -5.6127e-5f, -1.3882e-5f, 5880.f, 5890.f, 5.7337f, .87446f, .0038286f,
+ -1.704e-5f, 6.941e-4f, -1.573e-5f, 5890.f, 5900.f, 7.472f, .73641f,
+ .0028865f, -2.0558e-5f, -6.6892e-4f, -1.358e-5f, 5900.f, 5910.f,
+ 7.0944f, .66112f, .0024095f, -2.1458e-5f, -9.9935e-4f, -1.3636e-5f,
+ 5910.f, 5920.f, 8.1168f, .58477f, .0013314f, -1.7142e-5f, -.0010021f,
+ -1.3588e-5f, 5920.f, 5930.f, 10.972f, .47138f, -3.0541e-4f, -9.6826e-6f,
+ -.0014478f, -9.657e-6f, 5930.f, 5940.f, 7.3055f, .38828f, -.0015833f,
+ -3.9472e-6f, -.0024534f, -5.2105e-6f, 5940.f, 5950.f, .18257f, .15141f,
+ .0032545f, -2.5286e-5f, 3.2305e-4f, -1.9965e-5f, 5950.f, 5960.f, 8.803f,
+ .28605f, -.0031163f, 1.3762e-6f, -.0040606f, 1.0755e-6f, 5960.f, 5970.f,
+ 6.8729f, .20493f, -.0040682f, 5.468e-6f, -.004767f, 4.3804e-6f, 5970.f,
+ 5980.f, 2.9955f, .47987f, -.002474f, 9.9034e-6f, -8.4087e-4f,
+ -7.5046e-6f, 5980.f, 5990.f, 14.364f, 1.4135f, .0066597f, -3.1277e-5f,
+ .0045742f, -3.1988e-5f, 5990.f, 6e3f, 65.167f, .97529f, -.0019616f,
+ -2.2633e-6f, -.0046527f, 1.0271e-6f, 6e3f, 6010.f, 3.5647f, .20344f,
+ -.0052252f, 1.0688e-5f, -.0057674f, 8.0346e-6f, 6010.f, 6020.f, 3.4141f,
+ .14357f, -.0054304f, 9.5186e-6f, -.0072736f, 1.143e-5f, 6020.f, 6030.f,
+ 7.635f, .4332f, -.0031157f, 1.3276e-5f, -.001277f, 1.7678e-7f, 6030.f,
+ 6040.f, 16.118f, .28374f, -.0041664f, 4.9599e-6f, -.0056931f,
+ 5.7765e-6f, 6040.f, 6050.f, 19.177f, .33833f, -.0035167f, 1.7094e-6f,
+ -.0061198f, 6.6957e-6f, 6050.f, 6060.f, 16.85f, .88879f, -.002146f,
+ -3.2028e-6f, -.0042847f, 2.7277e-7f, 6060.f, 6070.f, 21.077f, .25352f,
+ -9.3983e-4f, -9.0824e-6f, -.0038178f, -2.813e-6f, 6070.f, 6080.f,
+ 14.763f, .2437f, 5.8706e-4f, -1.4814e-5f, -.0030455f, -5.893e-6f,
+ 6080.f, 6090.f, 12.16f, .31237f, .002521f, -2.1431e-5f, -.0011996f,
+ -1.1964e-5f, 6090.f, 6100.f, 10.601f, .42935f, .0043443f, -2.7697e-5f,
+ 3.1712e-4f, -1.7641e-5f, 6100.f, 6110.f, 7.7832f, .54373f, .0057906f,
+ -2.6532e-5f, .001438f, -1.9125e-5f, 6110.f, 6120.f, 5.7902f, 1.1869f,
+ .0054008f, -1.8503e-5f, .0023381f, -2.0741e-5f, 6120.f, 6130.f, 4.0292f,
+ .58128f, .0079694f, -2.4981e-5f, .0032731f, -2.2237e-5f, 6130.f, 6140.f,
+ 3.0446f, .82071f, .0077456f, -1.3929e-5f, .0053212f, -2.5965e-5f,
+ 6140.f, 6150.f, 1.9431f, .98831f, .006064f, -2.2019e-5f, .0032998f,
+ -2.4905e-5f, 6150.f, 6160.f, .97862f, .77724f, .0073198f, -3.3144e-5f,
+ .0043341f, -3.23e-5f, 6160.f, 6170.f, .41035f, .31003f, .0044331f,
+ -2.7381e-5f, .0019194f, -2.471e-5f, 6170.f, 6180.f, .19122f, .12211f,
+ .0046368f, -3.0314e-5f, .0017315f, -2.5376e-5f, 6180.f, 6190.f, 0.f, 0.f,
+ 0.f, 0.f, 0.f, 0.f, 6190.f, 6200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6200.f,
+ 6210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6210.f, 6220.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 6220.f, 6230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6230.f, 6240.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 6240.f, 6250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6250.f,
+ 6260.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6260.f, 6270.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 6270.f, 6280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6280.f, 6290.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 6290.f, 6300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6300.f,
+ 6310.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6310.f, 6320.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 6320.f, 6330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6330.f, 6340.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 6340.f, 6350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6350.f,
+ 6360.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6360.f, 6370.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 6370.f, 6380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6380.f, 6390.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 6390.f, 6400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6400.f,
+ 6410.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6410.f, 6420.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 6420.f, 6430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6430.f, 6440.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 6440.f, 6450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6450.f,
+ 6460.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6460.f, 6470.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 6470.f, 6480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6480.f, 6490.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 6490.f, 6500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6500.f,
+ 6510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6510.f, 6520.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 6520.f, 6530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6530.f, 6540.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 6540.f, 6550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6550.f,
+ 6560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6560.f, 6570.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 6570.f, 6580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6580.f, 6590.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 6590.f, 6600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6600.f,
+ 6610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6610.f, 6620.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 6620.f, 6630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6630.f, 6640.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 6640.f, 6650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6650.f,
+ 6660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6660.f, 6670.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 6670.f, 6680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6680.f, 6690.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 6690.f, 6700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6700.f,
+ 6710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6710.f, 6720.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 6720.f, 6730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6730.f, 6740.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 6740.f, 6750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6750.f,
+ 6760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6760.f, 6770.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 6770.f, 6780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6780.f, 6790.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 6790.f, 6800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6800.f,
+ 6810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6810.f, 6820.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 6820.f, 6830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6830.f, 6840.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 6840.f, 6850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6850.f,
+ 6860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6860.f, 6870.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 6870.f, 6880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6880.f, 6890.f, 0.f,
+ 0.f,
+
+ 0.f, 0.f, 0.f, 0.f, 6890.f, 6900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6900.f,
+ 6910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6910.f, 6920.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 6920.f, 6930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6930.f, 6940.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 6940.f, 6950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6950.f,
+ 6960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6960.f, 6970.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 6970.f, 6980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6980.f, 6990.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 6990.f, 7e3f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7e3f,
+ 7010.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7010.f, 7020.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 7020.f, 7030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7030.f, 7040.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 7040.f, 7050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7050.f,
+ 7060.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7060.f, 7070.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 7070.f, 7080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7080.f, 7090.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 7090.f, 7100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7100.f,
+ 7110.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7110.f, 7120.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 7120.f, 7130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7130.f, 7140.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 7140.f, 7150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7150.f,
+ 7160.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7160.f, 7170.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 7170.f, 7180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7180.f, 7190.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 7190.f, 7200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7200.f,
+ 7210.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7210.f, 7220.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 7220.f, 7230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7230.f, 7240.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 7240.f, 7250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7250.f,
+ 7260.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7260.f, 7270.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 7270.f, 7280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7280.f, 7290.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 7290.f, 7300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7300.f,
+ 7310.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7310.f, 7320.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 7320.f, 7330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7330.f, 7340.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 7340.f, 7350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7350.f,
+ 7360.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7360.f, 7370.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 7370.f, 7380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7380.f, 7390.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 7390.f, 7400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7400.f,
+ 7410.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7410.f, 7420.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 7420.f, 7430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7430.f, 7440.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 7440.f, 7450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7450.f,
+ 7460.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7460.f, 7470.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 7470.f, 7480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7480.f, 7490.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 7490.f, 7500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7500.f,
+ 7510.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7510.f, 7520.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 7520.f, 7530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7530.f, 7540.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 7540.f, 7550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7550.f,
+ 7560.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7560.f, 7570.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 7570.f, 7580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7580.f, 7590.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 7590.f, 7600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7600.f,
+ 7610.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7610.f, 7620.f
+ };
+
+ /* methane (5060 - 7610 cm-1) */
+ for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
+} /* meth2 */
+
+void
+meth1 (float a[8], const long int inu)
+{
+
+
+ static const float acr[2048] = { 1.4454f, .47807f,
+ .0052823f, -3.0056e-5f, .002903f, -2.686e-5f, 2500.f, 2510.f, 8.7736f,
+ .49348f, 3.8511e-4f, -6.0533e-6f, 1.0891e-4f, -9.3895e-6f, 2510.f,
+ 2520.f, 5.7188f, .51082f, 3.239e-4f, -7.2399e-6f, 1.6424e-4f,
+ -1.0608e-5f, 2520.f, 2530.f, 4.5159f, .73333f, 5.5152e-4f, -2.5526e-6f,
+ 2.6319e-4f, -1.1149e-5f, 2530.f, 2540.f, 6.2089f, .57459f, -5.1671e-5f,
+ -3.2924e-6f, -.0012056f, -7.7167e-6f, 2540.f, 2550.f, 9.8841f, .5111f,
+ -.0015575f, 1.7182e-6f, -.001203f, -3.8007e-6f, 2550.f, 2560.f, 7.6169f,
+ .80719f, 1.2985e-4f, -5.7517e-6f, -.0011789f, -6.7688e-6f, 2560.f,
+ 2570.f, 7.3766f, .91538f, -6.9626e-4f, -9.8403e-8f, -.0010951f,
+ -5.6422e-6f, 2570.f, 2580.f, 7.9669f, 1.0249f, -.0020553f, 6.0631e-6f,
+ -.0025043f, 1.2199e-6f, 2580.f, 2590.f, 12.942f, 1.8227f, .0016813f,
+ -1.019e-5f, 8.4177e-4f, -1.3848e-5f, 2590.f, 2600.f, 11.671f, .93909f,
+ -.0023388f, 7.1737e-6f, -.0030848f, 1.0079e-5f, 2600.f, 2610.f, 7.682f,
+ .22382f, -.0036797f, 1.7419e-5f, -.002062f, 2.0955e-5f, 2610.f, 2620.f,
+ 5.628f, .56037f, -.0012398f, 1.026e-5f, -.001454f, 8.1367e-6f, 2620.f,
+ 2630.f, 14.127f, 1.2843f, 7.6229e-5f, 5.7331e-6f, -6.8637e-4f,
+ -4.6206e-6f, 2630.f, 2640.f, 9.0425f, 1.3886f, .0042412f, 2.3021e-6f,
+ .0040176f, -2.0017e-5f, 2640.f, 2650.f, 10.155f, .90252f, 9.0385e-6f,
+ 1.3215e-5f, -4.9853e-4f, -1.2678e-6f, 2650.f, 2660.f, 10.154f, .79137f,
+ .0031844f, -3.2869e-6f, .0011834f, -1.1313e-5f, 2660.f, 2670.f, 11.725f,
+ .70879f, -.0014287f, 1.8146e-6f, -.0025033f, -1.0406e-7f, 2670.f,
+ 2680.f, 14.948f, .92692f, .0062395f, -3.3167e-5f, .0031727f,
+ -2.6064e-5f, 2680.f, 2690.f, 26.279f, .87829f, .0028361f, -1.4791e-5f,
+ .0014018f, -1.4682e-5f, 2690.f, 2700.f, 7.1745f, .92595f, .0030055f,
+ -2.7951e-6f, .0045235f, -2.2596e-5f, 2700.f, 2710.f, 27.757f, .81447f,
+ .0030565f, -1.9569e-5f, .0025866f, -2.0025e-5f, 2710.f, 2720.f, 36.518f,
+ .82512f, .0018262f, -1.5755e-5f, .0012027f, -1.7464e-5f, 2720.f, 2730.f,
+ 7.1564f, .77634f, .0051047f, -2.7255e-5f, .003528f, -2.6912e-5f, 2730.f,
+ 2740.f, 53.441f, .64417f, -7.6181e-5f, -1.012e-5f, -8.2299e-4f,
+ -9.7201e-6f, 2740.f, 2750.f, 38.926f, .7434f, -6.9195e-4f, -4.3135e-6f,
+ 2.1091e-4f, -6.9939e-6f, 2750.f, 2760.f, 15.709f, 1.3287f, .0030102f,
+ -4.8796e-6f, .0052525f, -2.2331e-5f, 2760.f, 2770.f, 54.733f, 1.246f,
+ -.0010987f, 5.2563e-6f, .002214f, -1.2844e-5f, 2770.f, 2780.f, 47.55f,
+ 1.5791f, 8.4509e-4f, -2.0192e-6f, .0011472f, -1.6086e-5f, 2780.f,
+ 2790.f, 66.52f, 1.2817f, -2.9084e-4f, -6.0279e-6f, -.0013817f,
+ -7.9406e-6f, 2790.f, 2800.f, 54.178f, .80208f, -.0020375f, 1.3886e-6f,
+ -.002404f, 9.4209e-6f, 2800.f, 2810.f, 53.2f, .65974f, -7.1708e-4f,
+ 8.8569e-6f, -2.5373e-4f, 1.13e-5f, 2810.f, 2820.f, 148.4f, .84587f,
+ -.0016143f, 2.0628e-6f, -9.7561e-4f, 9.6287e-6f, 2820.f, 2830.f, 45.29f,
+ 1.3591f, -2.3074e-4f, 1.8732e-5f, .0020323f, 6.678e-6f, 2830.f, 2840.f,
+ 32.141f, 1.1794f, 7.5732e-4f, 5.0043e-5f, .005454f, 1.3952e-6f, 2840.f,
+ 2850.f, 52.919f, .85346f, .0010685f, 4.9698e-5f, .0029632f, 1.729e-5f,
+ 2850.f, 2860.f, 92.855f, 1.2724f, .0034021f, 3.1892e-5f, .0020937f,
+ 7.5591e-6f, 2860.f, 2870.f, 115.15f, 1.6724f, .0068873f, 1.0637e-5f,
+ .0045477f, -1.5654e-5f, 2870.f, 2880.f, 149.81f, 1.2641f, .0081325f,
+ -1.1177e-6f, .0053865f, -1.8572e-5f, 2880.f, 2890.f, 225.46f, .83931f,
+ .011197f, -4.4342e-5f, .0080886f, -3.4016e-5f, 2890.f, 2900.f, 337.19f,
+ .68846f, .0074267f, -2.7002e-5f, .0051288f, -1.7032e-5f, 2900.f, 2910.f,
+ 593.38f, .59397f, .0062712f, -3.0983e-5f, .0039217f, -1.5025e-5f,
+ 2910.f, 2920.f, 814.37f, .44567f, .0050972f, -3.2548e-5f, .0037255f,
+ -1.8409e-5f, 2920.f, 2930.f, 1008.f, .42373f, .002722f, -2.2438e-5f,
+ .001776f, -8.5011e-6f, 2930.f, 2940.f, 1273.8f, .39048f, 9.1833e-4f,
+ -1.5902e-5f, 3.8752e-4f, -6.11e-6f, 2940.f, 2950.f, 1822.6f, .32354f,
+ -8.3613e-4f, -9.1286e-6f, -.0012748f, 6.4576e-7f, 2950.f, 2960.f,
+ 1144.9f, .28404f, -.0022237f, -3.1413e-6f, -.0015533f, 4e-6f, 2960.f,
+ 2970.f, 1422.2f, .24694f, -.0034946f, 2.0028e-6f, -.0022609f,
+ 9.6681e-6f, 2970.f, 2980.f, 1129.9f, .25225f, -.0043236f, 6.0179e-6f,
+ -.0023072f, 8.9383e-6f, 2980.f, 2990.f, 382.43f, .28365f, -.0047369f,
+ 1.1124e-5f, .0018248f, 1.9257e-5f, 2990.f, 3e3f, 231.12f, 2.8616f,
+ .0085402f, 4.3691e-5f, .016112f, -4.2673e-5f, 3e3f, 3010.f, 12795.f,
+ 1.9671f, -2.1206e-4f, -1.4984e-6f, -3.9307e-4f, -5.8544e-6f, 3010.f,
+ 3020.f, 578.69f, .79629f, -.0043645f, 1.3898e-5f, 7.3408e-4f,
+ -4.5626e-6f, 3020.f, 3030.f, 434.57f, .096576f, -.0055811f, 1.294e-5f,
+ .0011172f, 2.1736e-5f, 3030.f, 3040.f, 899.49f, .11536f, -.0052201f,
+ 1.0059e-5f, -.0015874f, 2.2277e-5f, 3040.f, 3050.f, 2131.4f, .12202f,
+ -.0045842f, 6.3207e-6f, -.003267f, 2.194e-5f, 3050.f, 3060.f, 2451.4f,
+ .19437f, -.0035989f, 2.0635e-6f, -.0037611f, 1.5519e-5f, 3060.f, 3070.f,
+ 1860.9f, .31324f, -.0022827f, -2.6816e-6f, -.0014644f, 8.4665e-6f,
+ 3070.f, 3080.f, 2857.1f, .3194f, -8.3645e-4f, -9.0192e-6f, -7.6302e-4f,
+ 2.417e-6f, 3080.f, 3090.f, 1935.6f, .28235f, 9.2008e-4f, -1.5863e-5f,
+ .0010109f, -1.3517e-6f, 3090.f, 3100.f, 1498.4f, .32994f, .0028983f,
+ -2.3966e-5f, .0020895f, -9.8936e-6f, 3100.f, 3110.f, 1250.8f, .36564f,
+ .005137f, -3.2908e-5f, .0037408f, -1.8191e-5f, 3110.f, 3120.f, 818.19f,
+ .45356f, .0075913f, -4.2727e-5f, .0055871f, -2.645e-5f, 3120.f, 3130.f,
+ 483.02f, .62289f, .010573f, -5.4032e-5f, .0075195f, -3.888e-5f, 3130.f,
+ 3140.f, 405.16f, 1.0372f, .01439f, -6.8744e-5f, .011121f, -5.8648e-5f,
+ 3140.f, 3150.f, 80.532f, .8961f, .01798f, -6.9816e-5f, .012298f,
+ -5.1675e-5f, 3150.f, 3160.f, 41.171f, .85486f, .021624f, -8.2706e-5f,
+ .015717f, -6.4082e-5f, 3160.f, 3170.f, 18.087f, .82972f, .024369f,
+ -8.2555e-5f, .018128f, -6.8246e-5f, 3170.f, 3180.f, 7.8303f, .7783f,
+ .024083f, -4.5258e-5f, .018125f, -5.3074e-5f, 3180.f, 3190.f, 5.5218f,
+ 1.2503f, .023406f, -1.2671e-6f, .019648f, -4.075e-5f, 3190.f, 3200.f,
+ .69216f, .51644f, .01424f, -8.731e-6f, .01086f, -3.2732e-5f, 3200.f,
+ 3210.f, .30939f, .2177f, .0082095f, -4.4565e-5f, .0058697f, -4.1343e-5f,
+ 3210.f, 3220.f, .22568f, .37985f, .012091f, -6.0525e-5f, .0090838f,
+ -5.5067e-5f, 3220.f, 3230.f, .18766f, .2799f, .01283f, -6.1005e-5f,
+ .010043f, -5.7718e-5f, 3230.f, 3240.f, .063205f, .18476f, .014107f,
+ -6.7485e-5f, .011333f, -6.3191e-5f, 3240.f, 3250.f, .028821f, .059172f,
+ .014986f, -7.1903e-5f, .012123f, -6.7129e-5f, 3250.f, 3260.f, 0.f, 0.f,
+ 0.f, 0.f, 0.f, 0.f, 3260.f, 3270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3270.f,
+ 3280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3280.f, 3290.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 3290.f, 3300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3300.f, 3310.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 3310.f, 3320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3320.f,
+ 3330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3330.f, 3340.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 3340.f, 3350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3350.f, 3360.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 3360.f, 3370.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3370.f,
+ 3380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3380.f, 3390.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 3390.f, 3400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3400.f, 3410.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 3410.f, 3420.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3420.f,
+ 3430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3430.f, 3440.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 3440.f, 3450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3450.f, 3460.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 3460.f, 3470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3470.f,
+ 3480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3480.f, 3490.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 3490.f, 3500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3500.f, 3510.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 3510.f, 3520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3520.f,
+ 3530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3530.f, 3540.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 3540.f, 3550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3550.f, 3560.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 3560.f, 3570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3570.f,
+ 3580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3580.f, 3590.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 3590.f, 3600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3600.f, 3610.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 3610.f, 3620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3620.f,
+ 3630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3630.f, 3640.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 3640.f, 3650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3650.f, 3660.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 3660.f, 3670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3670.f,
+ 3680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3680.f, 3690.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 3690.f, 3700.f, .014928f, .049339f, .0010215f, -1.7301e-5f,
+ -.0020195f, -1.1177e-5f, 3700.f, 3710.f, .086139f, .13757f, .0010215f,
+ -1.7301e-5f, -.0020195f, -1.1177e-5f, 3710.f, 3720.f, .067083f, .12495f,
+ .0010215f, -1.7301e-5f, -.0020195f, -1.1177e-5f, 3720.f, 3730.f,
+ .020862f, .049275f, .0010215f, -1.7301e-5f, -.0020195f, -1.1177e-5f,
+ 3730.f, 3740.f, .067784f, .11899f, .0010215f, -1.7301e-5f, -.0020195f,
+ -1.1177e-5f, 3740.f, 3750.f, .15027f, .18565f, .0010215f, -1.7301e-5f,
+ -.0020195f, -1.1177e-5f, 3750.f, 3760.f, .31581f, .26221f, .0010215f,
+ -1.7301e-5f, -.0020195f, -1.1177e-5f, 3760.f, 3770.f, .48086f, .2992f,
+ .0010215f, -1.7301e-5f, -.0020195f, -1.1177e-5f, 3770.f, 3780.f,
+ .59376f, .29431f, .0010215f, -1.7301e-5f, -.0020195f, -1.1177e-5f,
+ 3780.f, 3790.f, 1.8375f, .36994f, .0010215f, -1.7301e-5f, -.0020195f,
+ -1.1177e-5f, 3790.f, 3800.f, 2.5355f, .40322f, .0010215f, -1.7301e-5f,
+ -.0020195f, -1.1177e-5f, 3800.f, 3810.f, 2.7002f, .43597f, .0010215f,
+ -1.7301e-5f, -.0020195f, -1.1177e-5f, 3810.f, 3820.f, 6.1651f, .55369f,
+ .0010215f, -1.7301e-5f, -.0020195f, -1.1177e-5f, 3820.f, 3830.f,
+ 4.0461f, .57732f, .0010215f, -1.7301e-5f, -.0020195f, -1.1177e-5f,
+ 3830.f, 3840.f, 6.3365f, .67727f, .0010215f, -1.7301e-5f, -.0020195f,
+ -1.1177e-5f, 3840.f, 3850.f, 9.3866f, .95498f, .0010215f, -1.7301e-5f,
+ -.0020195f, -1.1177e-5f, 3850.f, 3860.f, 20.329f, 1.0079f, .0010215f,
+ -1.7301e-5f, -.0020195f, -1.1177e-5f, 3860.f, 3870.f, 3.8488f, .60704f,
+ -.0030055f, 4.6922e-6f, -.0036436f, -2.5739e-6f, 3870.f, 3880.f,
+ 11.688f, .69118f, -.0033148f, 3.0917e-6f, -.0045244f, 8.2466e-7f,
+ 3880.f, 3890.f, 15.787f, .75496f, -3.761e-4f, -9.5219e-6f, -.0028616f,
+ -7.036e-6f, 3890.f, 3900.f, 12.339f, 1.2573f, .0010215f, -1.7301e-5f,
+ -.0020195f, -1.1177e-5f, 3900.f, 3910.f, 4.4035f, 1.1712f, .0010215f,
+ -1.7301e-5f, -.0020195f, -1.1177e-5f, 3910.f, 3920.f, 1.452f, 1.1029f,
+ .0010215f, -1.7301e-5f, -.0020195f, -1.1177e-5f, 3920.f, 3930.f,
+ .94805f, .51649f, .0010215f, -1.7301e-5f, -.0020195f, -1.1177e-5f,
+ 3930.f, 3940.f, 1.3512f, .57924f, .0010215f, -1.7301e-5f, -.0020195f,
+ -1.1177e-5f, 3940.f, 3950.f, 1.2982f, .5633f, .0010215f, -1.7301e-5f,
+ -.0020195f, -1.1177e-5f, 3950.f, 3960.f, 1.1898f, .7034f, .0010215f,
+ -1.7301e-5f, -.0020195f, -1.1177e-5f, 3960.f, 3970.f, 1.2669f, .70992f,
+ .0010215f, -1.7301e-5f, -.0020195f, -1.1177e-5f, 3970.f, 3980.f,
+
+ 1.1486f, .75703f, .0010215f, -1.7301e-5f, -.0020195f, -1.1177e-5f,
+ 3980.f, 3990.f, .94294f, .67691f, .0010215f, -1.7301e-5f, -.0020195f,
+ -1.1177e-5f, 3990.f, 4e3f, 1.1722f, .71803f, .0010215f, -1.7301e-5f,
+ -.0020195f, -1.1177e-5f, 4e3f, 4010.f, 1.6614f, 1.1434f, .0010215f,
+ -1.7301e-5f, -.0020195f, -1.1177e-5f, 4010.f, 4020.f, 1.3169f, .99418f,
+ .0010215f, -1.7301e-5f, -.0020195f, -1.1177e-5f, 4020.f, 4030.f,
+ 1.6675f, 1.5586f, .0010215f, -1.7301e-5f, -.0020195f, -1.1177e-5f,
+ 4030.f, 4040.f, 2.2754f, 1.5263f, .0010215f, -1.7301e-5f, -.0020195f,
+ -1.1177e-5f, 4040.f, 4050.f, 3.3696f, 1.614f, .0010215f, -1.7301e-5f,
+ -.0020195f, -1.1177e-5f, 4050.f, 4060.f, 4.4078f, 1.7299f, .0010215f,
+ -1.7301e-5f, -.0020195f, -1.1177e-5f, 4060.f, 4070.f, 6.4093f, 1.6235f,
+ .0010215f, -1.7301e-5f, -.0020195f, -1.1177e-5f, 4070.f, 4080.f,
+ 8.8553f, 1.445f, .0010215f, -1.7301e-5f, -.0020195f, -1.1177e-5f,
+ 4080.f, 4090.f, 8.5641f, 1.5633f, .0010215f, -1.7301e-5f, -.0020195f,
+ -1.1177e-5f, 4090.f, 4100.f, 16.356f, 1.9485f, .0010215f, -1.7301e-5f,
+ -.0020195f, -1.1177e-5f, 4100.f, 4110.f, 15.552f, 1.5099f, .0010215f,
+ -1.7301e-5f, -.0020195f, -1.1177e-5f, 4110.f, 4120.f, 23.823f, 2.7996f,
+ .0010215f, -1.7301e-5f, -.0020195f, -1.1177e-5f, 4120.f, 4130.f,
+ 18.843f, 1.4075f, .0058105f, -2.6748e-5f, 6.4011e-4f, -1.7934e-5f,
+ 4130.f, 4140.f, 7.1651f, .45187f, .0070593f, -2.9644e-5f, .0039603f,
+ -2.9724e-5f, 4140.f, 4150.f, 37.171f, .44157f, .0068418f, -3.8862e-5f,
+ .0036076f, -3.2195e-5f, 4150.f, 4160.f, 38.158f, .32296f, .0043474f,
+ -2.9319e-5f, .00185f, -2.5238e-5f, 4160.f, 4170.f, 65.621f, .45796f,
+ .0022774f, -2.0417e-5f, 8.223e-5f, -1.7919e-5f, 4170.f, 4180.f, 79.347f,
+ .33603f, -8.4769e-4f, -8.4263e-6f, -.0034772f, -3.6512e-6f, 4180.f,
+ 4190.f, 65.038f, .4819f, -.0014827f, -1.4444e-6f, -.0022137f,
+ -5.6866e-6f, 4190.f, 4200.f, 86.982f, .77363f, -7.1575e-4f, 2.9104e-7f,
+ -.0017062f, -5.7132e-6f, 4200.f, 4210.f, 309.82f, 1.6801f, -8.9037e-4f,
+ -1.3593e-6f, -.0021551f, -4.6701e-6f, 4210.f, 4220.f, 81.077f, .588f,
+ -.0012356f, -7.661e-7f, -.0026793f, -4.4252e-6f, 4220.f, 4230.f,
+ 89.975f, .39899f, -.0039748f, 5.6557e-6f, -.0048805f, 4.5246e-6f,
+ 4230.f, 4240.f, 148.96f, .80968f, -.002216f, -1.5823e-6f, -.0039631f,
+ -2.9253e-7f, 4240.f, 4250.f, 155.94f, 1.2514f, 4.5507e-4f, -8.2566e-6f,
+ -.0014417f, -8.5226e-6f, 4250.f, 4260.f, 100.6f, 1.2829f, .0020903f,
+ -1.6069e-5f, -3.6824e-4f, -1.5144e-5f, 4260.f, 4270.f, 117.04f, 1.5739f,
+ 5.5952e-4f, -2.1104e-6f, -8.6496e-4f, -9.3941e-6f, 4270.f, 4280.f,
+ 72.794f, 1.549f, -6.9688e-4f, -3.1516e-6f, -.0027541f, -2.9267e-6f,
+ 4280.f, 4290.f, 55.269f, .72223f, -.0034302f, 5.1174e-6f, -.0052484f,
+ 7.0355e-6f, 4290.f, 4300.f, 59.856f, 1.1762f, -5.5565e-4f, 2.0772e-7f,
+ -.0019773f, -5.0966e-6f, 4300.f, 4310.f, 218.17f, 2.2377f, -.0013492f,
+ -1.8427e-6f, -.0029966f, -3.2329e-6f, 4310.f, 4320.f, 10.284f, .071846f,
+ -.0057696f, 9.8901e-6f, -.0087876f, 1.5909e-5f, 4320.f, 4330.f, 96.725f,
+ .88048f, -.0045462f, 6.1508e-6f, -.0069991f, 9.6787e-6f, 4330.f, 4340.f,
+ 111.26f, 1.6893f, -.002444f, 5.0136e-7f, -.0044752f, 1.1244e-6f, 4340.f,
+ 4350.f, 102.83f, 1.8062f, -3.868e-4f, -5.0005e-6f, -.0021043f,
+ -6.8556e-6f, 4350.f, 4360.f, 89.61f, 1.1851f, -6.654e-4f, 2.3556e-6f,
+ -.001897f, -3.4232e-6f, 4360.f, 4370.f, 66.668f, .73012f, -.0022103f,
+ 2.3323e-6f, -.0030787f, -5.6056e-7f, 4370.f, 4380.f, 81.907f, .54144f,
+ -.0025213f, -8.9597e-7f, -.0047474f, 1.5149e-6f, 4380.f, 4390.f,
+ 90.229f, .49784f, -.0023921f, -1.0143e-6f, -.0043793f, 4.6547e-7f,
+ 4390.f, 4400.f, 82.849f, .85204f, -1.0412e-4f, -8.1641e-6f, -.0020032f,
+ -8.0151e-6f, 4400.f, 4410.f, 44.643f, .57527f, .0023103f, -1.4133e-5f,
+ 8.589e-4f, -1.8551e-5f, 4410.f, 4420.f, 69.032f, .78506f, 3.9855e-4f,
+ -1.0098e-5f, -.0010159f, -1.0449e-5f, 4420.f, 4430.f, 58.683f, .96123f,
+ .0024151f, -1.8621e-5f, 9.2225e-4f, -1.9737e-5f, 4430.f, 4440.f,
+ 37.181f, 1.0126f, .0046217f, -2.9919e-5f, .0020589f, -2.6447e-5f,
+ 4440.f, 4450.f, 42.607f, 1.0332f, .0047981f, -3.088e-5f, .0014909f,
+ -2.4304e-5f, 4450.f, 4460.f, 33.113f, .94984f, .0043677f, -2.6166e-5f,
+ .0012754f, -2.2104e-5f, 4460.f, 4470.f, 32.668f, .8529f, .0023495f,
+ -1.622e-5f, -4.7342e-4f, -1.3768e-5f, 4470.f, 4480.f, 23.216f, .8354f,
+ .0022982f, -7.3604e-6f, 6.8926e-4f, -1.3485e-5f, 4480.f, 4490.f,
+ 13.719f, .6592f, .0014982f, -6.2753e-6f, -3.7161e-4f, -1.1492e-5f,
+ 4490.f, 4500.f, 16.799f, .41229f, -7.848e-4f, 1.7545e-6f, -.001216f,
+ -7.1041e-6f, 4500.f, 4510.f, 10.085f, .14021f, -.0037976f, 6.6108e-6f,
+ -.0050669f, 6.8711e-6f, 4510.f, 4520.f, 3.1009f, .087599f, -.0043682f,
+ 1.0148e-5f, -.0057555f, 1.0223e-5f, 4520.f, 4530.f, 18.983f, 1.5932f,
+ .0014519f, -9.1544e-6f, -9.7256e-4f, -1.0139e-5f, 4530.f, 4540.f,
+ 63.83f, 2.0016f, -.0011189f, -2.1104e-6f, -.0028048f, -3.8802e-6f,
+ 4540.f, 4550.f, 3.1441f, .067773f, -.0040447f, 1.4471e-5f, -.0037016f,
+ 5.8757e-6f, 4550.f, 4560.f, 2.1782f, .029389f, -.005929f, 1.0501e-5f,
+ -.00897f, 1.6625e-5f, 4560.f, 4570.f, 4.0086f, .078646f, -.0053825f,
+ 8.3305e-6f, -.0083558f, 1.4185e-5f, 4570.f, 4580.f, 1.3954f, .11032f,
+ -.0040678f, 3.1725e-6f, -.0071674f, 9.4743e-6f, 4580.f, 4590.f, 8.2827f,
+ .13524f, -.0044855f, 4.8983e-6f, -.0072447f, 9.9023e-6f, 4590.f, 4600.f,
+ 8.1728f, .18866f, -.0033132f, 4.1656e-7f, -.0059898f, 5.0092e-6f,
+ 4600.f, 4610.f, 6.4947f, .31086f, -.0016438f, -5.9966e-6f, -.0043498f,
+ -1.4967e-6f, 4610.f, 4620.f, 6.3479f, .34741f, 1.5663e-4f, -1.2499e-5f,
+ -.0026034f, -7.9833e-6f, 4620.f, 4630.f, 2.4602f, .20366f, .0017162f,
+ -1.8956e-5f, -9.66e-4f, -1.4741e-5f, 4630.f, 4640.f, 2.0994f, .2061f,
+ .004364f, -2.6098e-5f, .0019605f, -2.4954e-5f, 4640.f, 4650.f, 1.6635f,
+ .21606f, .0038987f, -2.7059e-5f, .001059f, -2.2496e-5f, 4650.f, 4660.f,
+ .9148f, .11908f, .0055341f, -3.5022e-5f, .002491f, -2.9056e-5f, 4660.f,
+ 4670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4670.f, 4680.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 4680.f, 4690.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4690.f, 4700.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 4700.f, 4710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4710.f,
+ 4720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4720.f, 4730.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 4730.f, 4740.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4740.f, 4750.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 4750.f, 4760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4760.f,
+ 4770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4770.f, 4780.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 4780.f, 4790.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4790.f, 4800.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 4800.f, 4810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4810.f,
+ 4820.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4820.f, 4830.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 4830.f, 4840.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4840.f, 4850.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 4850.f, 4860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4860.f,
+ 4870.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4870.f, 4880.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 4880.f, 4890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4890.f, 4900.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 4900.f, 4910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4910.f,
+ 4920.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4920.f, 4930.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 4930.f, 4940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4940.f, 4950.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 4950.f, 4960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4960.f,
+ 4970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4970.f, 4980.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 4980.f, 4990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4990.f, 5e3f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 5e3f, 5010.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5010.f, 5020.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 5020.f, 5030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 5030.f,
+ 5040.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5040.f, 5050.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 5050.f, 5060.f
+ };
+
+ /* methane (2500 - 5050 cm-1) */
+ for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
+} /* meth1 */
+
+
+void
+moca6 (float a[8], const long int inu)
+{
+
+
+ static const float acr[2048] = { 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f, 15300.f, 15310.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15310.f, 15320.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 15320.f, 15330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 15330.f, 15340.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15340.f, 15350.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 15350.f, 15360.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 15360.f,
+ 15370.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15370.f, 15380.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 15380.f, 15390.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15390.f,
+ 15400.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15400.f, 15410.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 15410.f, 15420.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15420.f, 15430.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 15430.f, 15440.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 15440.f,
+ 15450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15450.f, 15460.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 15460.f, 15470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15470.f,
+ 15480.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15480.f, 15490.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 15490.f, 15500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15500.f, 15510.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 15510.f, 15520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 15520.f,
+ 15530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15530.f, 15540.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 15540.f, 15550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15550.f,
+ 15560.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15560.f, 15570.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 15570.f, 15580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15580.f, 15590.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 15590.f, 15600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 15600.f,
+ 15610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15610.f, 15620.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 15620.f, 15630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15630.f,
+ 15640.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15640.f, 15650.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 15650.f, 15660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15660.f, 15670.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 15670.f, 15680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 15680.f,
+ 15690.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15690.f, 15700.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 15700.f, 15710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15710.f,
+ 15720.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15720.f, 15730.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 15730.f, 15740.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15740.f, 15750.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 15750.f, 15760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 15760.f,
+ 15770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15770.f, 15780.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 15780.f, 15790.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15790.f,
+ 15800.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15800.f, 15810.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 15810.f, 15820.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15820.f, 15830.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 15830.f, 15840.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 15840.f,
+ 15850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15850.f, 15860.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 15860.f, 15870.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15870.f,
+ 15880.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15880.f, 15890.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 15890.f, 15900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15900.f, 15910.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 15910.f, 15920.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 15920.f,
+ 15930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15930.f, 15940.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 15940.f, 15950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15950.f,
+ 15960.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15960.f, 15970.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 15970.f, 15980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15980.f, 15990.f, 0.f,
+ 0.f,
+
+ 0.f, 0.f, 0.f, 0.f, 15990.f, 1.6e4f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.6e4f,
+ 16010.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16010.f, 16020.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16020.f, 16030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16030.f,
+ 16040.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16040.f, 16050.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16050.f, 16060.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16060.f, 16070.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16070.f, 16080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16080.f,
+ 16090.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16090.f, 16100.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16100.f, 16110.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16110.f,
+ 16120.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16120.f, 16130.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16130.f, 16140.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16140.f, 16150.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16150.f, 16160.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16160.f,
+ 16170.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16170.f, 16180.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16180.f, 16190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16190.f,
+ 16200.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16200.f, 16210.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16210.f, 16220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16220.f, 16230.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16230.f, 16240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16240.f,
+ 16250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16250.f, 16260.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16260.f, 16270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16270.f,
+ 16280.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16280.f, 16290.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16290.f, 16300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16300.f, 16310.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16310.f, 16320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16320.f,
+ 16330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16330.f, 16340.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16340.f, 16350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16350.f,
+ 16360.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16360.f, 16370.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16370.f, 16380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16380.f, 16390.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16390.f, 16400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16400.f,
+ 16410.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16410.f, 16420.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16420.f, 16430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16430.f,
+ 16440.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16440.f, 16450.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16450.f, 16460.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16460.f, 16470.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16470.f, 16480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16480.f,
+ 16490.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16490.f, 16500.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16500.f, 16510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16510.f,
+ 16520.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16520.f, 16530.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16530.f, 16540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16540.f, 16550.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16550.f, 16560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16560.f,
+ 16570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16570.f, 16580.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16580.f, 16590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16590.f,
+ 16600.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16600.f, 16610.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16610.f, 16620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16620.f, 16630.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16630.f, 16640.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16640.f,
+ 16650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16650.f, 16660.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16660.f, 16670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16670.f,
+ 16680.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16680.f, 16690.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16690.f, 16700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16700.f, 16710.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16710.f, 16720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16720.f,
+ 16730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16730.f, 16740.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16740.f, 16750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16750.f,
+ 16760.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16760.f, 16770.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16770.f, 16780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16780.f, 16790.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16790.f, 16800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16800.f,
+ 16810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16810.f, 16820.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16820.f, 16830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16830.f,
+ 16840.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16840.f, 16850.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16850.f, 16860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16860.f, 16870.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16870.f, 16880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16880.f,
+ 16890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16890.f, 16900.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16900.f, 16910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16910.f,
+ 16920.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16920.f, 16930.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16930.f, 16940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16940.f, 16950.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16950.f, 16960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16960.f,
+ 16970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16970.f, 16980.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16980.f, 16990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16990.f, 1.7e4f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.7e4f, 17010.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+
+ 0.f,
+ 17010.f, 17020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17020.f, 17030.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 17030.f, 17040.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 17040.f,
+ 17050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17050.f, 17060.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 17060.f, 17070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17070.f,
+ 17080.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17080.f, 17090.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 17090.f, 17100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17100.f, 17110.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 17110.f, 17120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 17120.f,
+ 17130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17130.f, 17140.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 17140.f, 17150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17150.f,
+ 17160.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17160.f, 17170.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 17170.f, 17180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17180.f, 17190.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 17190.f, 17200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 17200.f,
+ 17210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17210.f, 17220.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 17220.f, 17230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17230.f,
+ 17240.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17240.f, 17250.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 17250.f, 17260.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17260.f, 17270.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 17270.f, 17280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 17280.f,
+ 17290.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17290.f, 17300.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 17300.f, 17310.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17310.f,
+ 17320.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17320.f, 17330.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 17330.f, 17340.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17340.f, 17350.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 17350.f, 17360.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 17360.f,
+ 17370.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17370.f, 17380.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 17380.f, 17390.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17390.f,
+ 17400.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17400.f, 17410.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 17410.f, 17420.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17420.f, 17430.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 17430.f, 17440.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 17440.f,
+ 17450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17450.f, 17460.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 17460.f, 17470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17470.f,
+ 17480.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17480.f, 17490.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 17490.f, 17500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17500.f, 17510.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 17510.f, 17520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 17520.f,
+ 17530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17530.f, 17540.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 17540.f, 17550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17550.f,
+ 17560.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17560.f, 17570.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 17570.f, 17580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17580.f, 17590.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 17590.f, 17600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 17600.f,
+ 17610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17610.f, 17620.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 17620.f, 17630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17630.f,
+ 17640.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17640.f, 17650.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 17650.f, 17660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17660.f, 17670.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 17670.f, 17680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 17680.f,
+ 17690.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17690.f, 17700.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 17700.f, 17710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17710.f,
+ 17720.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17720.f, 17730.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 17730.f, 17740.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17740.f, 17750.f, 0.f,
+ 0.f,
+
+ 0.f, 0.f, 0.f, 0.f, 17750.f, 17760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 17760.f,
+ 17770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17770.f, 17780.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 17780.f, 17790.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17790.f,
+ 17800.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17800.f, 17810.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 17810.f, 17820.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17820.f, 17830.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 17830.f, 17840.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 17840.f,
+ 17850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17850.f, 17860.f
+ };
+
+ /* carbon monoxide (15300 - 17870 cm-1) */
+ for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
+} /* moca6 */
+
+void
+moca5 (float a[8], const long int inu)
+{
+
+
+ static const float acr[2048] = { 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f, 12740.f, 12750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12750.f, 12760.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 12760.f, 12770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 12770.f, 12780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12780.f, 12790.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 12790.f, 12800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 12800.f,
+ 12810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12810.f, 12820.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 12820.f, 12830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12830.f,
+ 12840.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12840.f, 12850.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 12850.f, 12860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12860.f, 12870.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 12870.f, 12880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 12880.f,
+ 12890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12890.f, 12900.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 12900.f, 12910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12910.f,
+ 12920.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12920.f, 12930.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 12930.f, 12940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12940.f, 12950.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 12950.f, 12960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 12960.f,
+ 12970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12970.f, 12980.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 12980.f, 12990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12990.f, 1.3e4f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.3e4f, 13010.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13010.f, 13020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13020.f, 13030.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13030.f, 13040.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 13040.f,
+ 13050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13050.f, 13060.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 13060.f, 13070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13070.f,
+ 13080.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13080.f, 13090.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13090.f, 13100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13100.f, 13110.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13110.f, 13120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 13120.f,
+ 13130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13130.f, 13140.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 13140.f, 13150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13150.f,
+ 13160.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13160.f, 13170.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13170.f, 13180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13180.f, 13190.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13190.f, 13200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 13200.f,
+ 13210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13210.f, 13220.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 13220.f, 13230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13230.f,
+ 13240.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13240.f, 13250.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13250.f, 13260.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13260.f, 13270.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13270.f, 13280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 13280.f,
+ 13290.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13290.f, 13300.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 13300.f, 13310.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13310.f,
+ 13320.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13320.f, 13330.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13330.f, 13340.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13340.f, 13350.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13350.f, 13360.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 13360.f,
+ 13370.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13370.f, 13380.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 13380.f, 13390.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13390.f,
+ 13400.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13400.f, 13410.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13410.f, 13420.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13420.f, 13430.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13430.f, 13440.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 13440.f,
+ 13450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13450.f, 13460.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 13460.f, 13470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13470.f,
+ 13480.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13480.f, 13490.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13490.f, 13500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13500.f, 13510.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13510.f, 13520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 13520.f,
+ 13530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13530.f, 13540.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 13540.f, 13550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13550.f,
+ 13560.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13560.f, 13570.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13570.f, 13580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13580.f, 13590.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13590.f, 13600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 13600.f,
+ 13610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13610.f, 13620.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 13620.f, 13630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13630.f,
+ 13640.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13640.f, 13650.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13650.f, 13660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13660.f, 13670.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13670.f, 13680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 13680.f,
+ 13690.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13690.f, 13700.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 13700.f, 13710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13710.f,
+ 13720.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13720.f, 13730.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13730.f, 13740.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13740.f, 13750.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13750.f, 13760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 13760.f,
+ 13770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13770.f, 13780.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 13780.f, 13790.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13790.f,
+ 13800.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13800.f, 13810.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13810.f, 13820.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13820.f, 13830.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13830.f, 13840.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 13840.f,
+ 13850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13850.f, 13860.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 13860.f, 13870.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13870.f,
+ 13880.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13880.f, 13890.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13890.f, 13900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13900.f, 13910.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13910.f, 13920.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 13920.f,
+ 13930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13930.f, 13940.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 13940.f, 13950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13950.f,
+ 13960.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13960.f, 13970.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13970.f, 13980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13980.f, 13990.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13990.f, 1.4e4f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.4e4f,
+ 14010.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14010.f, 14020.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 14020.f, 14030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14030.f,
+ 14040.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14040.f, 14050.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 14050.f, 14060.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14060.f, 14070.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 14070.f, 14080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 14080.f,
+ 14090.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14090.f, 14100.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 14100.f, 14110.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14110.f,
+ 14120.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14120.f, 14130.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 14130.f, 14140.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14140.f, 14150.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 14150.f, 14160.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 14160.f,
+ 14170.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14170.f, 14180.f, 0.f, 0.f, 0.f,
+
+ 0.f,
+ 0.f, 0.f, 14180.f, 14190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14190.f,
+ 14200.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14200.f, 14210.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 14210.f, 14220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14220.f, 14230.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 14230.f, 14240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 14240.f,
+ 14250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14250.f, 14260.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 14260.f, 14270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14270.f,
+ 14280.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14280.f, 14290.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 14290.f, 14300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14300.f, 14310.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 14310.f, 14320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 14320.f,
+ 14330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14330.f, 14340.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 14340.f, 14350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14350.f,
+ 14360.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14360.f, 14370.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 14370.f, 14380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14380.f, 14390.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 14390.f, 14400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 14400.f,
+ 14410.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14410.f, 14420.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 14420.f, 14430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14430.f,
+ 14440.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14440.f, 14450.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 14450.f, 14460.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14460.f, 14470.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 14470.f, 14480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 14480.f,
+ 14490.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14490.f, 14500.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 14500.f, 14510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14510.f,
+ 14520.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14520.f, 14530.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 14530.f, 14540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14540.f, 14550.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 14550.f, 14560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 14560.f,
+ 14570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14570.f, 14580.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 14580.f, 14590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14590.f,
+ 14600.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14600.f, 14610.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 14610.f, 14620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14620.f, 14630.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 14630.f, 14640.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 14640.f,
+ 14650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14650.f, 14660.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 14660.f, 14670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14670.f,
+ 14680.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14680.f, 14690.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 14690.f, 14700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14700.f, 14710.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 14710.f, 14720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 14720.f,
+ 14730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14730.f, 14740.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 14740.f, 14750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14750.f,
+ 14760.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14760.f, 14770.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 14770.f, 14780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14780.f, 14790.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 14790.f, 14800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 14800.f,
+ 14810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14810.f, 14820.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 14820.f, 14830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14830.f,
+ 14840.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14840.f, 14850.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 14850.f, 14860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14860.f, 14870.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 14870.f, 14880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 14880.f,
+ 14890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14890.f, 14900.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 14900.f, 14910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14910.f,
+ 14920.f,
+
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14920.f, 14930.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 14930.f, 14940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14940.f, 14950.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 14950.f, 14960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 14960.f,
+ 14970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14970.f, 14980.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 14980.f, 14990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14990.f, 1.5e4f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.5e4f, 15010.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 15010.f, 15020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15020.f, 15030.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 15030.f, 15040.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 15040.f,
+ 15050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15050.f, 15060.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 15060.f, 15070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15070.f,
+ 15080.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15080.f, 15090.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 15090.f, 15100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15100.f, 15110.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 15110.f, 15120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 15120.f,
+ 15130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15130.f, 15140.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 15140.f, 15150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15150.f,
+ 15160.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15160.f, 15170.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 15170.f, 15180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15180.f, 15190.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 15190.f, 15200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 15200.f,
+ 15210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15210.f, 15220.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 15220.f, 15230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15230.f,
+ 15240.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15240.f, 15250.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 15250.f, 15260.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15260.f, 15270.f, 0.f,
+
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 15270.f, 15280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 15280.f,
+ 15290.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15290.f, 15300.f
+ };
+
+ /* carbon monoxide (12740 - 15290 cm-1) */
+ for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
+} /* moca5 */
+
+
+void moca4 (float a[8], const long int inu)
+{
+ static const float acr[2048] = { 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f, 10180.f, 10190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10190.f, 10200.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 10200.f, 10210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 10210.f, 10220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10220.f, 10230.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 10230.f, 10240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 10240.f,
+ 10250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10250.f, 10260.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 10260.f, 10270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10270.f,
+ 10280.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10280.f, 10290.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 10290.f, 10300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10300.f, 10310.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 10310.f, 10320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 10320.f,
+ 10330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10330.f, 10340.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 10340.f, 10350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10350.f,
+ 10360.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10360.f, 10370.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 10370.f, 10380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10380.f, 10390.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 10390.f, 10400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 10400.f,
+ 10410.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10410.f, 10420.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 10420.f, 10430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10430.f,
+ 10440.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10440.f, 10450.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 10450.f, 10460.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10460.f, 10470.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 10470.f, 10480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 10480.f,
+ 10490.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10490.f, 10500.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 10500.f, 10510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10510.f,
+ 10520.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10520.f, 10530.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 10530.f, 10540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10540.f, 10550.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 10550.f, 10560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 10560.f,
+ 10570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10570.f, 10580.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 10580.f, 10590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10590.f,
+ 10600.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10600.f, 10610.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 10610.f, 10620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10620.f, 10630.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 10630.f, 10640.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 10640.f,
+ 10650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10650.f, 10660.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 10660.f, 10670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10670.f,
+ 10680.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10680.f, 10690.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 10690.f, 10700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10700.f, 10710.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 10710.f, 10720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 10720.f,
+ 10730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10730.f, 10740.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 10740.f, 10750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10750.f,
+ 10760.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10760.f, 10770.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 10770.f, 10780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10780.f, 10790.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 10790.f, 10800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 10800.f,
+ 10810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10810.f, 10820.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 10820.f, 10830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10830.f,
+ 10840.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10840.f, 10850.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+
+ 10850.f, 10860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10860.f, 10870.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 10870.f, 10880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 10880.f,
+ 10890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10890.f, 10900.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 10900.f, 10910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10910.f,
+ 10920.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10920.f, 10930.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 10930.f, 10940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10940.f, 10950.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 10950.f, 10960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 10960.f,
+ 10970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10970.f, 10980.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 10980.f, 10990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10990.f, 1.1e4f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.1e4f, 11010.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 11010.f, 11020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11020.f, 11030.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 11030.f, 11040.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 11040.f,
+ 11050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11050.f, 11060.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 11060.f, 11070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11070.f,
+ 11080.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11080.f, 11090.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 11090.f, 11100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11100.f, 11110.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 11110.f, 11120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 11120.f,
+ 11130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11130.f, 11140.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 11140.f, 11150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11150.f,
+ 11160.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11160.f, 11170.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 11170.f, 11180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11180.f, 11190.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 11190.f, 11200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 11200.f,
+ 11210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11210.f, 11220.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 11220.f, 11230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11230.f,
+ 11240.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11240.f, 11250.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 11250.f, 11260.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11260.f, 11270.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 11270.f, 11280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 11280.f,
+ 11290.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11290.f, 11300.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 11300.f, 11310.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11310.f,
+ 11320.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11320.f, 11330.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 11330.f, 11340.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11340.f, 11350.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 11350.f, 11360.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 11360.f,
+ 11370.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11370.f, 11380.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 11380.f, 11390.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11390.f,
+ 11400.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11400.f, 11410.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 11410.f, 11420.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11420.f, 11430.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 11430.f, 11440.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 11440.f,
+ 11450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11450.f, 11460.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 11460.f, 11470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11470.f,
+ 11480.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11480.f, 11490.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 11490.f, 11500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11500.f, 11510.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 11510.f, 11520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 11520.f,
+ 11530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11530.f, 11540.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 11540.f, 11550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11550.f,
+ 11560.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11560.f, 11570.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 11570.f, 11580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11580.f, 11590.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 11590.f, 11600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 11600.f,
+ 11610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11610.f, 11620.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 11620.f, 11630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11630.f,
+ 11640.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11640.f, 11650.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 11650.f, 11660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11660.f, 11670.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 11670.f, 11680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 11680.f,
+
+ 11690.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11690.f, 11700.f, 0.f, 0.f, 0.f,
+ 0.f,
+
+ 0.f, 0.f, 11700.f, 11710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11710.f,
+ 11720.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11720.f, 11730.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 11730.f, 11740.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11740.f, 11750.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 11750.f, 11760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 11760.f,
+ 11770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11770.f, 11780.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 11780.f, 11790.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11790.f,
+ 11800.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11800.f, 11810.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 11810.f, 11820.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11820.f, 11830.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 11830.f, 11840.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 11840.f,
+ 11850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11850.f, 11860.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 11860.f, 11870.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11870.f,
+ 11880.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11880.f, 11890.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 11890.f, 11900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11900.f, 11910.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 11910.f, 11920.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 11920.f,
+ 11930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11930.f, 11940.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 11940.f, 11950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11950.f,
+ 11960.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11960.f, 11970.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 11970.f, 11980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11980.f, 11990.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 11990.f, 1.2e4f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.2e4f,
+ 12010.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12010.f, 12020.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 12020.f, 12030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12030.f,
+ 12040.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12040.f, 12050.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 12050.f, 12060.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12060.f, 12070.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 12070.f, 12080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 12080.f,
+ 12090.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12090.f, 12100.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 12100.f, 12110.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12110.f,
+ 12120.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12120.f, 12130.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 12130.f, 12140.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12140.f, 12150.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 12150.f, 12160.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 12160.f,
+ 12170.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12170.f, 12180.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 12180.f, 12190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12190.f,
+ 12200.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12200.f, 12210.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 12210.f, 12220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12220.f, 12230.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 12230.f, 12240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 12240.f,
+ 12250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12250.f, 12260.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 12260.f, 12270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12270.f,
+ 12280.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12280.f, 12290.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 12290.f, 12300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12300.f, 12310.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 12310.f, 12320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 12320.f,
+ 12330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12330.f, 12340.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 12340.f, 12350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12350.f,
+ 12360.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12360.f, 12370.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 12370.f, 12380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12380.f, 12390.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 12390.f, 12400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 12400.f,
+ 12410.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12410.f, 12420.f, 0.f, 0.f, 0.f,
+
+ 0.f,
+ 0.f, 0.f, 12420.f, 12430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12430.f,
+ 12440.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12440.f, 12450.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 12450.f, 12460.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12460.f, 12470.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 12470.f, 12480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 12480.f,
+ 12490.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12490.f, 12500.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 12500.f, 12510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12510.f,
+ 12520.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12520.f, 12530.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 12530.f, 12540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12540.f, 12550.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 12550.f, 12560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 12560.f,
+ 12570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12570.f, 12580.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 12580.f, 12590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12590.f,
+ 12600.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12600.f, 12610.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 12610.f, 12620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12620.f, 12630.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 12630.f, 12640.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 12640.f,
+ 12650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12650.f, 12660.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 12660.f, 12670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12670.f,
+ 12680.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12680.f, 12690.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 12690.f, 12700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12700.f, 12710.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 12710.f, 12720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 12720.f,
+ 12730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12730.f, 12740.f
+ };
+
+ /* carbon monoxide (10180 - 12730 cm-1) */
+ for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
+} /* moca4 */
+
+void
+moca3 (float a[8], const long int inu)
+{
+
+
+ static const float acr[2048] = { 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f, 7620.f, 7630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7630.f, 7640.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 7640.f, 7650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7650.f,
+ 7660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7660.f, 7670.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 7670.f, 7680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7680.f, 7690.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 7690.f, 7700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7700.f,
+ 7710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7710.f, 7720.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 7720.f, 7730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7730.f, 7740.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 7740.f, 7750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7750.f,
+ 7760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7760.f, 7770.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 7770.f, 7780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7780.f, 7790.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 7790.f, 7800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7800.f,
+ 7810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7810.f, 7820.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 7820.f, 7830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7830.f, 7840.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 7840.f, 7850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7850.f,
+ 7860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7860.f, 7870.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 7870.f, 7880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7880.f, 7890.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 7890.f, 7900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7900.f,
+ 7910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7910.f, 7920.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 7920.f, 7930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7930.f, 7940.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 7940.f, 7950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7950.f,
+ 7960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7960.f, 7970.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 7970.f, 7980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7980.f, 7990.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 7990.f, 8e3f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8e3f,
+ 8010.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8010.f, 8020.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8020.f, 8030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8030.f, 8040.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8040.f, 8050.f, 1.354e-16f, .017736f, .11256f, -4.5834e-4f,
+ .10977f, -4.527e-4f, 8050.f, 8060.f, 4.1572e-16f, .017736f, .10803f,
+ -4.4019e-4f, .10523f, -4.3455e-4f, 8060.f, 8070.f, 1.2473e-15f,
+ .017736f, .10358f, -4.2239e-4f, .10078f, -4.1676e-4f, 8070.f, 8080.f,
+ 3.6626e-15f, .017736f, .099217f, -4.0495e-4f, .096419f, -3.9931e-4f,
+ 8080.f, 8090.f, 1.0521e-14f, .017736f, .094944f, -3.8786e-4f, .092146f,
+ -3.8222e-4f, 8090.f, 8100.f, 2.9549e-14f, .017736f, .09076f,
+ -3.7112e-4f, .087962f, -3.6548e-4f, 8100.f, 8110.f, 8.1193e-14f,
+ .017736f, .086664f, -3.5474e-4f, .083866f, -3.491e-4f, 8110.f, 8120.f,
+ 2.1814e-13f, .017736f, .082657f, -3.3871e-4f, .079859f, -3.3307e-4f,
+ 8120.f, 8130.f, 5.7319e-13f, .017736f, .078739f, -3.2303e-4f, .075941f,
+ -3.174e-4f, 8130.f, 8140.f, 1.4733e-12f, .017736f, .07491f, -3.0772e-4f,
+ .072112f, -3.0208e-4f, 8140.f, 8150.f, 3.7005e-12f, .017736f, .07117f,
+ -2.9276e-4f, .068372f, -2.8712e-4f, 8150.f, 8160.f, 9.0898e-12f,
+ .017736f, .067519f, -2.7816e-4f, .064721f, -2.7252e-4f, 8160.f, 8170.f,
+ 2.1828e-11f, .017736f, .063958f, -2.6391e-4f, .06116f, -2.5828e-4f,
+ 8170.f, 8180.f, 1.6892e-10f, .034043f, .058108f, -2.3936e-4f, .055638f,
+ -2.3553e-4f, 8180.f, 8190.f, 2.6399e-10f, .017736f, .053812f,
+ -2.2333e-4f, .051015f, -2.177e-4f, 8190.f, 8200.f, 5.7886e-10f,
+ .017736f, .050611f, -2.1052e-4f, .047813f, -2.0489e-4f, 8200.f, 8210.f,
+ 1.2407e-9f, .017957f, .047499f, -1.9807e-4f, .044701f, -1.9244e-4f,
+ 8210.f, 8220.f, 2.5994e-9f, .018179f, .044477f, -1.8599e-4f, .041679f,
+ -1.8035e-4f, 8220.f, 8230.f, 1.596e-8f, .036001f, .039635f, -1.6576e-4f,
+ .03707f, -1.6145e-4f, 8230.f, 8240.f, 2.0795e-8f, .018844f, .035955f,
+ -1.519e-4f, .033157f, -1.4627e-4f, 8240.f, 8250.f, 3.9708e-8f, .019066f,
+ .033295f, -1.4126e-4f, .030497f, -1.3563e-4f, 8250.f, 8260.f,
+ 2.0895e-7f, .03799f, .029113f, -1.2386e-4f, .026495f, -1.1926e-4f,
+ 8260.f, 8270.f, 2.3995e-7f, .019731f, .025861f, -1.1153e-4f, .023064f,
+ -1.0589e-4f, 8270.f, 8280.f, 4.1681e-7f, .019953f, .023566f,
+ -1.0234e-4f, .020768f, -9.6709e-5f, 8280.f, 8290.f, 1.8774e-6f,
+ .040651f, .020033f, -8.771e-5f, .017363f, -8.2825e-5f, 8290.f, 8300.f,
+ 1.8914e-6f, .021283f, .017225f, -7.698e-5f, .014427f, -7.1347e-5f,
+ 8300.f, 8310.f, 7.568e-6f, .043989f, .014172f, -6.438e-5f, .011463f,
+ -5.9288e-5f, 8310.f, 8320.f, 6.8789e-6f, .023145f, .011707f,
+ -5.4908e-5f, .0089094f, -4.9275e-5f, 8320.f, 8330.f, 2.4399e-5f,
+ .046699f, .0091256f, -4.4298e-5f, .0063969f, -3.9079e-5f, 8330.f,
+ 8340.f, 4.6806e-5f, .049425f, .006215f, -3.2716e-5f, .0034666f,
+ -2.739e-5f, 8340.f, 8350.f, 8.0605e-5f, .050945f, .0036678f,
+ -2.2582e-5f, 9.0701e-4f, -1.718e-5f, 8350.f, 8360.f, 1.2377e-4f,
+ .051881f, .0014843f, -1.3895e-5f, -.0012918f, -8.4086e-6f, 8360.f,
+ 8370.f, 1.6751e-4f, .053029f, -3.3537e-4f, -6.6561e-6f, -.0031202f,
+ -1.1154e-6f, 8370.f, 8380.f, 1.9593e-4f, .054802f, -.0017908f,
+ -8.6649e-7f, -.0045868f, 4.7351e-6f, 8380.f, 8390.f, 1.8975e-4f,
+ .058538f, -.0028817f, 3.4723e-6f, -.0056846f, 9.1141e-6f, 8390.f,
+ 8400.f, 1.3472e-4f, .062039f, -.0036068f, 6.3564e-6f, -.006417f,
+ 1.2035e-5f, 8400.f, 8410.f, 6.4957e-5f, .06993f, -.0039984f, 7.9148e-6f,
+ -.006795f, 1.3543e-5f, 8410.f, 8420.f, 3.0309e-4f, .090113f, -.0036875f,
+ 6.6869e-6f, -.0065101f, 1.2442e-5f, 8420.f, 8430.f, 5.1352e-4f, .08362f,
+ -.0026038f, 2.4173e-6f, -.0054145f, 8.1551e-6f, 8430.f, 8440.f,
+ 8.2971e-4f, .13049f, 5.179e-5f, -7.5797e-6f, -.0026588f, -2.2561e-6f,
+ 8440.f, 8450.f, 4.4414e-4f, .14201f, .0055167f, -2.7842e-5f, .0033215f,
+ -2.3351e-5f, 8450.f, 8460.f, 8.4089e-5f, .17964f, .015226f, -6.0171e-5f,
+ .015481f, -6.3601e-5f, 8460.f, 8470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 8470.f,
+ 8480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8480.f, 8490.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 8490.f, 8500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8500.f, 8510.f, 0.f,
+ 0.f,
+
+ 0.f, 0.f, 0.f, 0.f, 8510.f, 8520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8520.f,
+ 8530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8530.f, 8540.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 8540.f, 8550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8550.f, 8560.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 8560.f, 8570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8570.f,
+ 8580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8580.f, 8590.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 8590.f, 8600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8600.f, 8610.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 8610.f, 8620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8620.f,
+ 8630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8630.f, 8640.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 8640.f, 8650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8650.f, 8660.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 8660.f, 8670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8670.f,
+ 8680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8680.f, 8690.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 8690.f, 8700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8700.f, 8710.f, 0.f,
+
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 8710.f, 8720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8720.f,
+ 8730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8730.f, 8740.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 8740.f, 8750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8750.f, 8760.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 8760.f, 8770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8770.f,
+ 8780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8780.f, 8790.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 8790.f, 8800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8800.f, 8810.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 8810.f, 8820.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8820.f,
+ 8830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8830.f, 8840.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 8840.f, 8850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8850.f, 8860.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 8860.f, 8870.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8870.f,
+ 8880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8880.f, 8890.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 8890.f, 8900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8900.f, 8910.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 8910.f, 8920.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8920.f,
+ 8930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8930.f, 8940.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 8940.f, 8950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8950.f, 8960.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 8960.f, 8970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8970.f,
+ 8980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8980.f, 8990.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 8990.f, 9e3f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9e3f, 9010.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 9010.f, 9020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9020.f,
+ 9030.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9030.f, 9040.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 9040.f, 9050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9050.f, 9060.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 9060.f, 9070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9070.f,
+ 9080.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9080.f, 9090.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 9090.f, 9100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9100.f, 9110.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 9110.f, 9120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9120.f,
+ 9130.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9130.f, 9140.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 9140.f, 9150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9150.f, 9160.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 9160.f, 9170.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9170.f,
+ 9180.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9180.f, 9190.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 9190.f, 9200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9200.f, 9210.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 9210.f, 9220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9220.f,
+ 9230.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9230.f, 9240.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 9240.f, 9250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9250.f, 9260.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 9260.f, 9270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9270.f,
+ 9280.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9280.f, 9290.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 9290.f, 9300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9300.f, 9310.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 9310.f, 9320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9320.f,
+ 9330.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9330.f, 9340.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 9340.f, 9350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9350.f, 9360.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 9360.f, 9370.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9370.f,
+ 9380.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9380.f, 9390.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 9390.f, 9400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9400.f, 9410.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 9410.f, 9420.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9420.f,
+ 9430.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9430.f, 9440.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 9440.f, 9450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9450.f, 9460.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 9460.f, 9470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9470.f,
+ 9480.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9480.f, 9490.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 9490.f, 9500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9500.f, 9510.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 9510.f, 9520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9520.f,
+ 9530.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9530.f, 9540.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 9540.f, 9550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9550.f, 9560.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 9560.f, 9570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9570.f,
+ 9580.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9580.f, 9590.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 9590.f, 9600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9600.f, 9610.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 9610.f, 9620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9620.f,
+ 9630.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9630.f, 9640.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 9640.f, 9650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9650.f, 9660.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 9660.f, 9670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9670.f,
+ 9680.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9680.f, 9690.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 9690.f, 9700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9700.f, 9710.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 9710.f, 9720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9720.f,
+ 9730.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9730.f, 9740.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 9740.f, 9750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9750.f, 9760.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 9760.f, 9770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9770.f,
+ 9780.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9780.f, 9790.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 9790.f, 9800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9800.f, 9810.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 9810.f, 9820.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9820.f,
+ 9830.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9830.f, 9840.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 9840.f, 9850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9850.f, 9860.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 9860.f, 9870.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9870.f,
+ 9880.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9880.f, 9890.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 9890.f, 9900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9900.f, 9910.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 9910.f, 9920.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9920.f,
+ 9930.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9930.f, 9940.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 9940.f, 9950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9950.f, 9960.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 9960.f, 9970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9970.f,
+ 9980.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9980.f, 9990.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 9990.f, 1e4f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1e4f, 10010.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 10010.f, 10020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10020.f,
+ 10030.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10030.f, 10040.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 10040.f, 10050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10050.f, 10060.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 10060.f, 10070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 10070.f,
+ 10080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10080.f, 10090.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 10090.f, 10100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10100.f,
+ 10110.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10110.f, 10120.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 10120.f, 10130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10130.f, 10140.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 10140.f, 10150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 10150.f,
+ 10160.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10160.f, 10170.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 10170.f, 10180.f
+ };
+
+ /* carbon monoxide (7600 - 10170 cm-1) */
+ for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
+} /* moca3 */
+
+void
+moca2 (float a[8], const long int inu)
+{
+
+
+ static const float acr[2048] = { 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f, 5060.f, 5070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5070.f, 5080.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 5080.f, 5090.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5090.f,
+ 5100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5100.f, 5110.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 5110.f, 5120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5120.f, 5130.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 5130.f, 5140.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5140.f,
+ 5150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5150.f, 5160.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 5160.f, 5170.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5170.f, 5180.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 5180.f, 5190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5190.f,
+ 5200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5200.f, 5210.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 5210.f, 5220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5220.f, 5230.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 5230.f, 5240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5240.f,
+ 5250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5250.f, 5260.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 5260.f, 5270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5270.f, 5280.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 5280.f, 5290.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5290.f,
+ 5300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5300.f, 5310.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 5310.f, 5320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5320.f, 5330.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 5330.f, 5340.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5340.f,
+ 5350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5350.f, 5360.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 5360.f, 5370.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5370.f, 5380.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 5380.f, 5390.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5390.f,
+ 5400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5400.f, 5410.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 5410.f, 5420.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5420.f, 5430.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 5430.f, 5440.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5440.f,
+ 5450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5450.f, 5460.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 5460.f, 5470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5470.f, 5480.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 5480.f, 5490.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5490.f,
+ 5500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5500.f, 5510.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 5510.f, 5520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5520.f, 5530.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 5530.f, 5540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5540.f,
+ 5550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5550.f, 5560.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 5560.f, 5570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5570.f, 5580.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 5580.f, 5590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5590.f,
+ 5600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5600.f, 5610.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 5610.f, 5620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5620.f, 5630.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 5630.f, 5640.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5640.f,
+ 5650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5650.f, 5660.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 5660.f, 5670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5670.f, 5680.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 5680.f, 5690.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5690.f,
+ 5700.f, 4.6683e-26f, 3.9946e-7f, .15004f, -6.0825e-4f, .14724f,
+ -6.0261e-4f, 5700.f, 5710.f, 1.2312e-25f, 3.9946e-7f, .14595f,
+ -5.9188e-4f, .14315f, -5.8625e-4f, 5710.f, 5720.f, 1.1266e-24f,
+ 7.5927e-7f, .13909f, -5.6295e-4f, .13671f, -5.5959e-4f, 5720.f, 5730.f,
+ 2.0103e-24f, 3.9946e-7f, .13415f, -5.447e-4f, .13135f, -5.3906e-4f,
+ 5730.f, 5740.f, 4.9063e-24f, 3.9946e-7f, .13038f, -5.2961e-4f, .12758f,
+ -5.2397e-4f, 5740.f, 5750.f, 3.9255e-23f, 7.6518e-7f, .12413f,
+ -5.0331e-4f, .12169f, -4.9966e-4f, 5750.f, 5760.f, 6.3305e-23f,
+ 3.9946e-7f, .11954f, -4.8626e-4f, .11675f, -4.8063e-4f, 5760.f, 5770.f,
+ 1.5847e-21f, 1.0092e-6f, .10516f, -4.1519e-4f, .10467f, -4.2332e-4f,
+ 5770.f, 5780.f, 3.6811e-21f, 7.1016e-7f, .09985f, -3.9815e-4f, .098651f,
+ -4.013e-4f, 5780.f, 5790.f, 3.2319e-20f, 1.2898e-6f, .092607f,
+ -3.6764e-4f, .092132f, -3.7318e-4f, 5790.f, 5800.f, 5.6403e-20f,
+
+ 6.4883e-7f, .087374f, -3.4877e-4f, .086636f, -3.5122e-4f, 5800.f,
+ 5810.f, 1.6009e-19f, 9.5335e-7f, .0849f, -3.3381e-4f, .084844f,
+ -3.4257e-4f, 5810.f, 5820.f, 1.0493e-18f, 1.0941e-6f, .076482f,
+ -3.0762e-4f, .080072f, -2.5402e-4f, 5820.f, 5830.f, 1.8849e-18f,
+ 2.3089e-6f, .073551f, -2.7995e-4f, .10134f, -1.0464e-4f, 5830.f, 5840.f,
+ 1.2274e-17f, 1.8503e-6f, .065955f, -2.6262e-4f, .08719f, -6.1536e-5f,
+ 5840.f, 5850.f, 1.9475e-17f, 2.1482e-6f, .062641f, -2.3947e-4f,
+ .092133f, -5.5475e-5f, 5850.f, 5860.f, 4.2834e-17f, 5.2914e-6f,
+ .060443f, -2.1227e-4f, .10022f, -9.1581e-5f, 5860.f, 5870.f,
+ 2.5814e-16f, 2.709e-6f, .053613f, -2.0674e-4f, .078473f, -2.4556e-5f,
+ 5870.f, 5880.f, 3.4582e-16f, 2.4018e-6f, .049817f, -1.8578e-4f,
+ .083893f, -9.9109e-6f, 5880.f, 5890.f, 1.9766e-15f, 2.6621e-6f,
+ .044522f, -1.7276e-4f, .070531f, 1.7855e-5f, 5890.f, 5900.f,
+ 7.0047e-15f, 5.7066e-6f, .039496f, -1.4181e-4f, .075654f, 5.7712e-6f,
+ 5900.f, 5910.f, 8.6757e-15f, 3.3052e-5f, .040851f, -4.9822e-5f,
+ .088823f, -2.0654e-4f, 5910.f, 5920.f, 4.0761e-14f, 1.4076e-5f,
+ .033721f, -8.1073e-5f, .073952f, -7.155e-5f, 5920.f, 5930.f,
+ 1.1802e-13f, 1.8315e-5f, .029401f, -5.6811e-5f, .072527f, -6.1682e-5f,
+ 5930.f, 5940.f, 1.2517e-13f, 3.208e-5f, .029645f, 5.2262e-6f, .075673f,
+ -1.605e-4f, 5940.f, 5950.f, 5.3299e-13f, 8.3885e-5f, .028648f,
+ 5.1037e-5f, .076701f, -1.1804e-4f, 5950.f, 5960.f, 1.2176e-12f,
+ 4.3932e-5f, .023072f, 3.9649e-5f, .070157f, -2.5205e-5f, 5960.f, 5970.f,
+ 2.6812e-12f, 7.4724e-5f, .021392f, 7.8492e-5f, .0689f, -5.7739e-5f,
+ 5970.f, 5980.f, 5.2852e-12f, 8.1623e-5f, .018441f, 9.2123e-5f, .072474f,
+ 3.8196e-5f, 5980.f, 5990.f, 1.2137e-11f, 2.5414e-4f, .024162f,
+ 1.7686e-4f, .065473f, -1.1219e-4f, 5990.f, 6e3f, 2.022e-11f, 1.7439e-4f,
+ .021342f, 1.7061e-4f, .061647f, -4.9481e-5f, 6e3f, 6010.f, 7.0256e-11f,
+ 3.9013e-4f, .025354f, 1.739e-4f, .056294f, -1.0119e-4f, 6010.f, 6020.f,
+ 9.1715e-11f, 3.8456e-4f, .027846f, 1.3835e-4f, .055857f, -8.5738e-5f,
+ 6020.f, 6030.f, 3.5812e-10f, 8.9526e-4f, .036811f, -1.9691e-5f,
+ .060026f, -5.1263e-5f, 6030.f, 6040.f, 5.1951e-10f, 6.5082e-4f,
+ .034472f, -3.8106e-5f, .057771f, -1.7166e-5f, 6040.f, 6050.f,
+ 2.3396e-9f, .0012585f, .037673f, -1.3867e-4f, .056388f, -3.7053e-5f,
+ 6050.f, 6060.f, 3.1627e-9f, .0012183f, .033941f, -1.1427e-4f, .058265f,
+ -1.4231e-5f, 6060.f, 6070.f, 1.3747e-8f, .0010905f, .030224f,
+ -1.1494e-4f, .045888f, -1.243e-5f, 6070.f, 6080.f, 1.6746e-8f,
+ .0011055f, .0271f, -9.4052e-5f, .048795f, 1.7267e-6f, 6080.f, 6090.f,
+ 6.9627e-8f, .0014531f, .023474f, -8.7211e-5f, .042687f, 2.9187e-5f,
+ 6090.f, 6100.f, 1.789e-7f, .0023713f, .020122f, -5.984e-5f, .042924f,
+ 9.3171e-6f, 6100.f, 6110.f, 1.6918e-7f, .002373f, .018564f, -3.2576e-5f,
+ .047913f, -5.6001e-6f, 6110.f, 6120.f, 6.1497e-7f, .0020751f, .014671f,
+ -3.6986e-5f, .03447f, 3.2655e-5f, 6120.f, 6130.f, 1.3012e-6f, .0059809f,
+ .014081f, 1.2706e-5f, .041059f, -1.4713e-5f, 6130.f, 6140.f, 2.3687e-6f,
+ .0034824f, .010334f, 1.187e-5f, .031822f, 2.134e-5f, 6140.f, 6150.f,
+ 4.1168e-6f, .0049295f, .0084797f, 3.3745e-5f, .032297f, 2.8091e-5f,
+ 6150.f, 6160.f, 7.275e-6f, .015527f, .012669f, 9.9217e-5f, .036777f,
+ -5.5634e-5f, 6160.f, 6170.f, 9.7222e-6f, .0091547f, .010267f,
+ 9.5535e-5f, .030194f, -2.5674e-5f, 6170.f, 6180.f, 1.7703e-5f, .012682f,
+ .0090194f, 1.0461e-4f, .028528f, -8.8439e-6f, 6180.f, 6190.f,
+ 3.2557e-5f, .038848f, .022453f, 5.1526e-5f, .032595f, -1.0114e-4f,
+ 6190.f, 6200.f, 3.6378e-5f, .026446f, .022869f, 1.5344e-5f, .029472f,
+ -7.8062e-5f, 6200.f, 6210.f, 1.5091e-4f, .045107f, .027472f,
+ -9.5379e-5f, .027231f, -1.0428e-4f, 6210.f, 6220.f, 4.4635e-4f,
+ .044617f, .022992f, -8.3379e-5f, .022135f, -8.6546e-5f, 6220.f, 6230.f,
+ 4.645e-4f, .025101f, .020065f, -7.4635e-5f, .019585f, -7.1162e-5f,
+ 6230.f, 6240.f, .0018567f, .045449f, .017769f, -7.6382e-5f, .015878f,
+ -6.8709e-5f, 6240.f, 6250.f, .0042909f, .047419f, .01417f, -6.399e-5f,
+ .012295f, -5.5119e-5f, 6250.f, 6260.f, .0037371f, .024446f, .011714f,
+ -5.4834e-5f, .0096092f, -4.6244e-5f, 6260.f, 6270.f, .012658f, .047613f,
+ .0091389f, -4.4311e-5f, .006717f, -3.7584e-5f, 6270.f, 6280.f, .022981f,
+ .050782f, .0062294f, -3.2686e-5f, .0039945f, -2.4418e-5f, 6280.f,
+ 6290.f, .03751f, .052128f, .0036805f, -2.2546e-5f, .0014034f,
+ -1.3971e-5f, 6290.f, 6300.f, .054636f, .053047f, .0014952f, -1.3854e-5f,
+ -7.4579e-4f, -4.3465e-6f, 6300.f, 6310.f, .070262f, .053883f,
+ -3.2751e-4f, -6.6345e-6f, -.0026603f, 2.8956e-6f, 6310.f, 6320.f,
+ .078204f, .055207f, -.0017859f, -8.6799e-7f, -.0043181f, 7.5236e-6f,
+ 6320.f, 6330.f, .10057f, .088588f, -.0030519f, 4.1846e-6f, -.0057894f,
+ 1.0937e-5f, 6330.f, 6340.f, .031333f, .065185f, -.0038296f, 7.2424e-6f,
+ -.006643f, 1.2937e-5f, 6340.f, 6350.f, .033845f, .06492f, -.0039811f,
+ 7.8455e-6f, -.0067871f, 1.3512e-5f, 6350.f, 6360.f, .12178f, .088198f,
+ -.0034193f, 5.6304e-6f, -.0062387f, 1.1334e-5f, 6360.f, 6370.f, .15914f,
+ .081345f, -.0020733f, 3.2783e-7f, -.0048764f, 5.9258e-6f, 6370.f,
+ 6380.f, .17605f, .10382f, 4.7396e-4f, -9.4825e-6f, -.0022623f,
+ -4.3366e-6f, 6380.f, 6390.f, .10257f, .11943f, .0050797f, -2.6879e-5f,
+ .002564f, -2.3075e-5f, 6390.f, 6400.f, .025341f, .11996f, .012613f,
+ -5.5092e-5f, .010613f, -5.3927e-5f, 6400.f, 6410.f, .0020638f, .13697f,
+ .024524f, -9.7954e-5f, .025258f, -9.9948e-5f, 6410.f, 6420.f, 0.f, 0.f,
+ 0.f, 0.f, 0.f, 0.f, 6420.f, 6430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6430.f,
+ 6440.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6440.f, 6450.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 6450.f, 6460.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6460.f, 6470.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 6470.f, 6480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6480.f,
+ 6490.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6490.f, 6500.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 6500.f, 6510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6510.f, 6520.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 6520.f, 6530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6530.f,
+ 6540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6540.f, 6550.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 6550.f, 6560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6560.f, 6570.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 6570.f, 6580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6580.f,
+ 6590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6590.f, 6600.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 6600.f, 6610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6610.f, 6620.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 6620.f, 6630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6630.f,
+ 6640.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6640.f, 6650.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 6650.f, 6660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6660.f, 6670.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 6670.f, 6680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6680.f,
+ 6690.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6690.f, 6700.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 6700.f, 6710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6710.f, 6720.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 6720.f, 6730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6730.f,
+ 6740.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6740.f, 6750.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 6750.f, 6760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6760.f, 6770.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 6770.f, 6780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6780.f,
+ 6790.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6790.f, 6800.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 6800.f, 6810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6810.f, 6820.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 6820.f, 6830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6830.f,
+ 6840.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6840.f, 6850.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 6850.f, 6860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6860.f, 6870.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 6870.f, 6880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6880.f,
+ 6890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6890.f, 6900.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 6900.f, 6910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6910.f, 6920.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 6920.f, 6930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6930.f,
+ 6940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6940.f, 6950.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 6950.f, 6960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6960.f, 6970.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 6970.f, 6980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6980.f,
+ 6990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 6990.f, 7e3f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 7e3f, 7010.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7010.f, 7020.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 7020.f, 7030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7030.f,
+ 7040.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7040.f, 7050.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 7050.f, 7060.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7060.f, 7070.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 7070.f, 7080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7080.f,
+ 7090.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7090.f, 7100.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 7100.f, 7110.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7110.f, 7120.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 7120.f, 7130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7130.f,
+ 7140.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7140.f, 7150.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 7150.f, 7160.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7160.f, 7170.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 7170.f, 7180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7180.f,
+ 7190.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7190.f, 7200.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 7200.f, 7210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7210.f, 7220.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 7220.f, 7230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7230.f,
+ 7240.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7240.f, 7250.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 7250.f, 7260.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7260.f, 7270.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 7270.f, 7280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7280.f,
+ 7290.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7290.f, 7300.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 7300.f, 7310.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7310.f, 7320.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 7320.f, 7330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7330.f,
+ 7340.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7340.f, 7350.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 7350.f, 7360.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7360.f, 7370.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 7370.f, 7380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7380.f,
+ 7390.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7390.f, 7400.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 7400.f, 7410.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7410.f, 7420.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 7420.f, 7430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7430.f,
+ 7440.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7440.f, 7450.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 7450.f, 7460.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7460.f, 7470.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 7470.f, 7480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7480.f,
+ 7490.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7490.f, 7500.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 7500.f, 7510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7510.f, 7520.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 7520.f, 7530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7530.f,
+ 7540.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7540.f, 7550.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 7550.f, 7560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7560.f, 7570.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 7570.f, 7580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7580.f,
+ 7590.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7590.f, 7600.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 7600.f, 7610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7610.f, 7620.f
+ };
+
+ /* carbon monoxide (5060 - 7610 cm-1) */
+ for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
+} /* moca2 */
+
+void
+moca1 (float a[8], const long int inu)
+{
+
+
+ static const float acr[2048] = { 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f, 2500.f, 2510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2510.f, 2520.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 2520.f, 2530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2530.f,
+ 2540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2540.f, 2550.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 2550.f, 2560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2560.f, 2570.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 2570.f, 2580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2580.f,
+ 2590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2590.f, 2600.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 2600.f, 2610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2610.f, 2620.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 2620.f, 2630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2630.f,
+ 2640.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2640.f, 2650.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 2650.f, 2660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2660.f, 2670.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 2670.f, 2680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2680.f,
+ 2690.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2690.f, 2700.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 2700.f, 2710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2710.f, 2720.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 2720.f, 2730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2730.f,
+ 2740.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2740.f, 2750.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 2750.f, 2760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2760.f, 2770.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 2770.f, 2780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2780.f,
+ 2790.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2790.f, 2800.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 2800.f, 2810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2810.f, 2820.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 2820.f, 2830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2830.f,
+ 2840.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2840.f, 2850.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 2850.f, 2860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2860.f, 2870.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 2870.f, 2880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2880.f,
+ 2890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2890.f, 2900.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 2900.f, 2910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2910.f, 2920.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 2920.f, 2930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2930.f,
+ 2940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2940.f, 2950.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 2950.f, 2960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2960.f, 2970.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 2970.f, 2980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2980.f,
+ 2990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 2990.f, 3e3f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 3e3f, 3010.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3010.f, 3020.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 3020.f, 3030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3030.f,
+ 3040.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3040.f, 3050.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 3050.f, 3060.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3060.f, 3070.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 3070.f, 3080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3080.f,
+ 3090.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3090.f, 3100.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 3100.f, 3110.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3110.f, 3120.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 3120.f, 3130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3130.f,
+ 3140.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3140.f, 3150.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 3150.f, 3160.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3160.f, 3170.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 3170.f, 3180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3180.f,
+ 3190.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3190.f, 3200.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 3200.f, 3210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3210.f, 3220.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 3220.f, 3230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3230.f,
+ 3240.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3240.f, 3250.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 3250.f, 3260.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3260.f, 3270.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 3270.f, 3280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3280.f,
+ 3290.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3290.f, 3300.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 3300.f, 3310.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3310.f, 3320.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 3320.f, 3330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3330.f,
+ 3340.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3340.f, 3350.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 3350.f, 3360.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3360.f, 3370.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 3370.f, 3380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3380.f,
+ 3390.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3390.f, 3400.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 3400.f, 3410.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3410.f, 3420.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 3420.f, 3430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3430.f,
+ 3440.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3440.f, 3450.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 3450.f, 3460.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3460.f, 3470.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 3470.f, 3480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3480.f,
+ 3490.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3490.f, 3500.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 3500.f, 3510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3510.f, 3520.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 3520.f, 3530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3530.f,
+ 3540.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3540.f, 3550.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 3550.f, 3560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3560.f, 3570.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 3570.f, 3580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3580.f,
+ 3590.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3590.f, 3600.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 3600.f, 3610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3610.f, 3620.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 3620.f, 3630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3630.f,
+ 3640.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3640.f, 3650.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 3650.f, 3660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3660.f, 3670.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 3670.f, 3680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3680.f,
+ 3690.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3690.f, 3700.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 3700.f, 3710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3710.f, 3720.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 3720.f, 3730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3730.f,
+ 3740.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3740.f, 3750.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 3750.f, 3760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 3760.f, 3770.f, 2.6188e-23f,
+ 7.5648e-7f, .14705f, -5.9469e-4f, .14469f, -5.9147e-4f, 3770.f, 3780.f,
+ 1.7237e-22f, 7.5958e-7f, .13909f, -5.6296e-4f, .13671f, -5.596e-4f,
+ 3780.f, 3790.f, 3.0601e-22f, 3.9946e-7f, .13415f, -5.447e-4f, .13135f,
+ -5.3906e-4f, 3790.f, 3800.f, 2.5148e-21f, 7.6406e-7f, .12775f,
+ -5.1775e-4f, .12533f, -5.1417e-4f, 3800.f, 3810.f, 2.5745e-19f,
+ 6.6661e-7f, .10289f, -4.1172e-4f, .10359f, -4.1229e-4f, 3810.f, 3820.f,
+ 2.3471e-18f, 8.5834e-7f, .095064f, -3.8496e-4f, .093786f, -3.8192e-4f,
+ 3820.f, 3830.f, 4.4267e-18f, 6.1131e-7f, .090479f, -3.6372e-4f,
+ .091063f, -3.6128e-4f, 3830.f, 3840.f, 3.7544e-17f, 9.6342e-7f,
+ .083552f, -3.3748e-4f, .083109f, -3.3494e-4f, 3840.f, 3850.f,
+ 6.6043e-17f, 4.5762e-6f, .080581f, -2.9237e-4f, .1186f, -1.9899e-4f,
+ 3850.f, 3860.f, 5.0104e-16f, 3.0566e-6f, .073204f, -2.8334e-4f, .10085f,
+ -1.1404e-4f, 3860.f, 3870.f, 2.5102e-15f, 5.6505e-6f, .066558f,
+ -2.4745e-4f, .10411f, -1.0858e-4f, 3870.f, 3880.f, 1.179e-14f,
+ 7.1883e-6f, .060355f, -2.1477e-4f, .099433f, -1.0798e-4f, 3880.f,
+ 3890.f, 1.7518e-14f, 1.0491e-5f, .058888f, -1.6207e-4f, .09819f,
+ -2.0655e-4f, 3890.f, 3900.f, 1.2334e-13f, 8.2478e-5f, .061162f,
+ -4.6855e-5f, .099456f, -3.0433e-4f, 3900.f, 3910.f, 5.9987e-13f,
+ 1.9476e-4f, .061687f, 1.0764e-5f, .093436f, -3.2996e-4f, 3910.f, 3920.f,
+ 1.7948e-12f, 9.9622e-5f, .052116f, 1.2152e-5f, .087699f, -2.7025e-4f,
+ 3920.f, 3930.f, 8.3226e-12f, 3.291e-4f, .054625f, 5.1416e-5f, .089131f,
+ -2.3629e-4f, 3930.f, 3940.f, 2.0276e-11f, 2.1725e-4f, .045681f,
+ 6.3672e-5f, .093594f, -1.044e-4f, 3940.f, 3950.f, 9.452e-11f,
+ 4.2081e-4f, .049658f, 5.7601e-5f, .079407f, -1.9603e-4f, 3950.f, 3960.f,
+ 2.0604e-10f, 4.2113e-4f, .043092f, 7.9797e-5f, .08456f, -1.0065e-4f,
+ 3960.f, 3970.f, 9.2559e-10f, 5.2769e-4f, .046842f, 2.13e-5f, .070955f,
+ -1.5981e-4f, 3970.f, 3980.f, 4.0093e-9f, .0016525f, .048905f,
+ -4.3479e-5f, .080584f, -1.3211e-4f, 3980.f, 3990.f, 7.2188e-9f,
+ .0049631f, .047903f, 3.506e-5f, .087341f, -2.2515e-4f, 3990.f, 4e3f,
+ 3.5244e-8f, .0026406f, .044217f, -4.3905e-5f, .074799f, -1.3539e-4f,
+ 4e3f, 4010.f, 1.4041e-7f, .0058689f, .045795f, -7.4645e-5f, .073346f,
+ -1.7741e-4f, 4010.f, 4020.f, 4.8242e-7f, .0031728f, .03946f,
+ -9.4315e-5f, .063747f, -1.0552e-4f, 4020.f, 4030.f, 1.5614e-6f,
+ .0029789f, .03481f, -9.4517e-5f, .058578f, -7.6764e-5f, 4030.f, 4040.f,
+ 2.3212e-6f, .011038f, .038571f, -4.0092e-6f, .064826f, -1.8611e-4f,
+ 4040.f, 4050.f, 1.0679e-5f, .014942f, .035924f, 2.0954e-7f, .05826f,
+ -1.6362e-4f, 4050.f, 4060.f, 2.5314e-5f, .0076112f, .028757f,
+ -2.7274e-6f, .050639f, -1.0468e-4f, 4060.f, 4070.f, 8.2488e-5f,
+ .019238f, .031099f, 3.2981e-5f, .049127f, -1.4923e-4f, 4070.f, 4080.f,
+ 1.5838e-4f, .010696f, .024633f, 3.8132e-5f, .04326f, -9.7166e-5f,
+ 4080.f, 4090.f, 5.3014e-4f, .027912f, .028944f, 3.4086e-5f, .042425f,
+ -1.3608e-4f, 4090.f, 4100.f, .0019236f, .031464f, .026171f, 2.5248e-5f,
+ .036412f, -1.1618e-4f, 4100.f, 4110.f, .002417f, .018774f, .023171f,
+ 3.1047e-5f, .032949f, -9.3254e-5f, 4110.f, 4120.f, .0095957f, .039252f,
+ .027808f, -5.0845e-5f, .030866f, -1.1461e-4f, 4120.f, 4130.f, .029222f,
+ .041309f, .025476f, -7.0834e-5f, .025927f, -9.9072e-5f, 4130.f, 4140.f,
+ .080521f, .042144f, .023591f, -9.2915e-5f, .022029f, -9.0905e-5f,
+ 4140.f, 4150.f, .21163f, .043454f, .019801f, -8.4058e-5f, .017719f,
+ -7.6225e-5f, 4150.f, 4160.f, .20177f, .023178f, .017214f, -7.6243e-5f,
+ .015553f, -6.4832e-5f, 4160.f, 4170.f, .7632f, .046725f, .01416f,
+ -6.3818e-5f, .012147f, -5.4565e-5f, 4170.f, 4180.f, 1.5947f, .047792f,
+ .010708f, -5.0352e-5f, .0083233f, -4.2778e-5f, 4180.f, 4190.f, 5.2669f,
+ .073957f, .0067643f, -3.4467e-5f, .004319f, -2.8069e-5f, 4190.f, 4200.f,
+ 6.4202f, .051382f, .0036772f, -2.2614e-5f, 9.742e-4f, -1.6763e-5f,
+ 4200.f, 4210.f, 9.2445f, .052627f, .0014938f, -1.3915e-5f, -.0010491f,
+ -6.9012e-6f, 4210.f, 4220.f, 11.75f, .05381f, -3.2681e-4f, -6.6562e-6f,
+ -.0028054f, 1.0375e-6f, 4220.f, 4230.f, 12.919f, .055506f, -.0017838f,
+ -8.5608e-7f, -.0042665f, 7.1579e-6f, 4230.f, 4240.f, 16.381f, .089081f,
+ -.003049f, 4.1985e-6f, -.0056615f, 1.1648e-5f, 4240.f, 4250.f, 5.0278f,
+ .066105f, -.0038255f, 7.3053e-6f, -.0061865f, 1.7191e-5f, 4250.f,
+ 4260.f, 5.3208f, .065464f, -.0039797f, 7.8726e-6f, -.006508f,
+ 1.6403e-5f, 4260.f, 4270.f, 18.844f, .088395f, -.0034205f, 5.6382e-6f,
+ -.0061631f, 1.2216e-5f, 4270.f, 4280.f, 24.188f, .081391f, -.0020758f,
+ 3.3792e-7f, -.004851f, 6.276e-6f, 4280.f, 4290.f, 20.85f, .078388f,
+ 7.1143e-5f, -8.1227e-6f, -.0026924f, -2.6258e-6f, 4290.f, 4300.f,
+ 16.326f, .099662f, .003472f, -2.1159e-5f, 8.2032e-4f, -1.6489e-5f,
+ 4300.f, 4310.f, 5.9676f, .090468f, .0087017f, -4.1571e-5f, .0061894f,
+ -3.7687e-5f, 4310.f, 4320.f, 1.4674f, .080452f, .015334f, -6.7528e-5f,
+ .012977f, -6.4486e-5f, 4320.f, 4330.f, .26137f, .087098f, .023749f,
+ -9.9448e-5f, .02192f, -9.8971e-5f, 4330.f, 4340.f, .017052f, .094008f,
+ .036064f, -1.4594e-4f, .035363f, -1.4924e-4f, 4340.f, 4350.f,
+ 1.3974e-4f, .088019f, .056495f, -2.2628e-4f, .057375f, -2.2878e-4f,
+ 4350.f, 4360.f, 2.5708e-10f, .017736f, .10803f, -4.4019e-4f, .10523f,
+ -4.3455e-4f, 4360.f, 4370.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4370.f, 4380.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4380.f, 4390.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 4390.f, 4400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4400.f, 4410.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 4410.f, 4420.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4420.f,
+ 4430.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4430.f, 4440.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 4440.f, 4450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4450.f, 4460.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 4460.f, 4470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4470.f,
+ 4480.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4480.f, 4490.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 4490.f, 4500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4500.f, 4510.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 4510.f, 4520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4520.f,
+ 4530.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4530.f, 4540.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 4540.f, 4550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4550.f, 4560.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 4560.f, 4570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4570.f,
+ 4580.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4580.f, 4590.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 4590.f, 4600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4600.f, 4610.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 4610.f, 4620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4620.f,
+ 4630.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4630.f, 4640.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 4640.f, 4650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4650.f, 4660.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 4660.f, 4670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4670.f,
+ 4680.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4680.f, 4690.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 4690.f, 4700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4700.f, 4710.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 4710.f, 4720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4720.f,
+ 4730.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4730.f, 4740.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 4740.f, 4750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4750.f, 4760.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 4760.f, 4770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4770.f,
+ 4780.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4780.f, 4790.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 4790.f, 4800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4800.f, 4810.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 4810.f, 4820.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4820.f,
+
+ 4830.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4830.f, 4840.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 4840.f, 4850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4850.f, 4860.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 4860.f, 4870.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4870.f,
+ 4880.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4880.f, 4890.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 4890.f, 4900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4900.f, 4910.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 4910.f, 4920.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4920.f,
+ 4930.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4930.f, 4940.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 4940.f, 4950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4950.f, 4960.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 4960.f, 4970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4970.f,
+ 4980.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 4980.f, 4990.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 4990.f, 5e3f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5e3f, 5010.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 5010.f, 5020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5020.f, 5030.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 5030.f, 5040.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 5040.f,
+ 5050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 5050.f, 5060.f
+ };
+
+ /* carbon monoxide (2500 - 5050 cm-1) */
+ for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
+} /* moca1 */
+
+
+void
+oxyg6 (float a[8], const long int inu)
+{
+
+
+ static const float acr[2048] = { 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f, 15300.f, 15310.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15310.f, 15320.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 15320.f, 15330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 15330.f, 15340.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15340.f, 15350.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 15350.f, 15360.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 15360.f,
+ 15370.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15370.f, 15380.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 15380.f, 15390.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15390.f,
+ 15400.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15400.f, 15410.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 15410.f, 15420.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15420.f, 15430.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 15430.f, 15440.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 15440.f,
+ 15450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15450.f, 15460.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 15460.f, 15470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15470.f,
+ 15480.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15480.f, 15490.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 15490.f, 15500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15500.f, 15510.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 15510.f, 15520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 15520.f,
+ 15530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15530.f, 15540.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 15540.f, 15550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15550.f,
+ 15560.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15560.f, 15570.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 15570.f, 15580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15580.f, 15590.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 15590.f, 15600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 15600.f,
+ 15610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15610.f, 15620.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 15620.f, 15630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15630.f,
+ 15640.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15640.f, 15650.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 15650.f, 15660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15660.f, 15670.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 15670.f, 15680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 15680.f,
+ 15690.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15690.f, 15700.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 15700.f, 15710.f, 1.596e-8f, .018194f, .038561f, -1.5424e-4f,
+ .036533f, -1.5016e-4f, 15710.f, 15720.f, 1.5504e-8f, .018194f, .03852f,
+ -1.5408e-4f, .036492f, -1.5e-4f, 15720.f, 15730.f, 8.6149e-8f, .036385f,
+ .03409f, -1.3636e-4f, .032063f, -1.3228e-4f, 15730.f, 15740.f, 0.f, 0.f,
+ 0.f, 0.f, 0.f, 0.f, 15740.f, 15750.f, 2.2012e-7f, .036385f, .029911f,
+ -1.1964e-4f, .027883f, -1.1556e-4f, 15750.f, 15760.f, 5.2469e-7f,
+ .036384f, .026002f, -1.0401e-4f, .023974f, -9.9924e-5f, 15760.f,
+ 15770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15770.f, 15780.f, 1.1652e-6f,
+ .037236f, .022365f, -8.9458e-5f, .020337f, -8.5374e-5f, 15780.f,
+ 15790.f, 2.4086e-6f, .038115f, .019f, -7.5998e-5f, .016972f,
+ -7.1915e-5f, 15790.f, 15800.f, 4.63e-6f, .039407f, .015907f,
+ -6.3629e-5f, .01388f, -5.9545e-5f, 15800.f, 15810.f, 4.2478e-6f,
+ .019927f, .01311f, -5.2439e-5f, .011082f, -4.8357e-5f, 15810.f, 15820.f,
+ 4.0121e-6f, .019927f, .013066f, -5.2262e-5f, .011038f, -4.818e-5f,
+ 15820.f, 15830.f, 1.3653e-5f, .041148f, .010543f, -4.2171e-5f,
+ .0085153f, -3.8088e-5f, 15830.f, 15840.f, 2.0849e-5f, .04334f,
+ .0082714f, -3.3085e-5f, .0062412f, -2.8988e-5f, 15840.f, 15850.f,
+ 2.9295e-5f, .044164f, .0062748f, -2.5099e-5f, .004247f, -2.1015e-5f,
+ 15850.f, 15860.f, 3.768e-5f, .045464f, .0045528f, -1.8211e-5f, .002525f,
+ -1.4127e-5f, 15860.f, 15870.f, 6.8735e-5f, .070552f, .0026882f,
+ -1.0606e-5f, 6.7182e-4f, -6.6419e-6f, 15870.f, 15880.f, 6.2284e-5f,
+ .071735f, .0013301f, -5.2392e-6f, -7.0196e-4f, -1.1788e-6f, 15880.f,
+ 15890.f, 3.9741e-5f, .0779f, 3.5779e-4f, -1.1367e-6f, -.0013542f,
+ 4.5537e-6f, 15890.f, 15900.f, 1.6287e-5f, .058682f, 3.1178e-4f,
+ 2.4589e-6f, 5.313e-4f, 1.3293e-5f, 15900.f, 15910.f, 9.9855e-5f,
+ .14228f, .0013456f, -1.6726e-6f, .0010356f, 3.4749e-6f, 15910.f,
+ 15920.f, 1.9246e-4f, .31716f, .005754f, -1.6318e-5f, .0052332f,
+ -1.9378e-5f, 15920.f, 15930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15930.f,
+ 15940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15940.f, 15950.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 15950.f, 15960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15960.f,
+ 15970.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15970.f, 15980.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 15980.f, 15990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15990.f, 1.6e4f, 0.f, 0.f,
+ 0.f, 0.f, 0.f, 0.f, 1.6e4f, 16010.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16010.f,
+ 16020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16020.f, 16030.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16030.f, 16040.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16040.f,
+ 16050.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16050.f, 16060.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16060.f, 16070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16070.f, 16080.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16080.f, 16090.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16090.f,
+ 16100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16100.f, 16110.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16110.f, 16120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16120.f,
+ 16130.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16130.f, 16140.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16140.f, 16150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16150.f, 16160.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16160.f, 16170.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16170.f,
+ 16180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16180.f, 16190.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16190.f, 16200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16200.f,
+ 16210.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16210.f, 16220.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16220.f, 16230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16230.f, 16240.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16240.f, 16250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16250.f,
+ 16260.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16260.f, 16270.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16270.f, 16280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16280.f,
+ 16290.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16290.f, 16300.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16300.f, 16310.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16310.f, 16320.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16320.f, 16330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16330.f,
+ 16340.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16340.f, 16350.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16350.f, 16360.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16360.f,
+ 16370.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16370.f, 16380.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16380.f, 16390.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16390.f, 16400.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16400.f, 16410.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16410.f,
+ 16420.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16420.f, 16430.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16430.f, 16440.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16440.f,
+ 16450.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16450.f, 16460.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16460.f, 16470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16470.f, 16480.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16480.f, 16490.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16490.f,
+ 16500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16500.f, 16510.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16510.f, 16520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16520.f,
+ 16530.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16530.f, 16540.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16540.f, 16550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16550.f, 16560.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16560.f, 16570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16570.f,
+ 16580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16580.f, 16590.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16590.f, 16600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16600.f,
+ 16610.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16610.f, 16620.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16620.f, 16630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16630.f, 16640.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16640.f, 16650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16650.f,
+ 16660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16660.f, 16670.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16670.f, 16680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16680.f,
+ 16690.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16690.f, 16700.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16700.f, 16710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16710.f, 16720.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16720.f, 16730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16730.f,
+ 16740.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16740.f, 16750.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16750.f, 16760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16760.f,
+ 16770.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16770.f, 16780.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16780.f, 16790.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16790.f, 16800.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16800.f, 16810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16810.f,
+ 16820.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16820.f, 16830.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16830.f, 16840.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16840.f,
+ 16850.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16850.f, 16860.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16860.f, 16870.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16870.f, 16880.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16880.f, 16890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16890.f,
+ 16900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16900.f, 16910.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16910.f, 16920.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16920.f,
+ 16930.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16930.f, 16940.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 16940.f, 16950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16950.f, 16960.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 16960.f, 16970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 16970.f,
+ 16980.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 16980.f, 16990.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 16990.f, 1.7e4f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.7e4f, 17010.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 17010.f, 17020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 17020.f, 17030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17030.f, 17040.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 17040.f, 17050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 17050.f,
+ 17060.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17060.f, 17070.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 17070.f, 17080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17080.f,
+ 17090.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17090.f, 17100.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 17100.f, 17110.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17110.f, 17120.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 17120.f, 17130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 17130.f,
+ 17140.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17140.f, 17150.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 17150.f, 17160.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17160.f,
+ 17170.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17170.f, 17180.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 17180.f, 17190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17190.f, 17200.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 17200.f, 17210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 17210.f,
+ 17220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17220.f, 17230.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 17230.f, 17240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17240.f,
+ 17250.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17250.f, 17260.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 17260.f, 17270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17270.f, 17280.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 17280.f, 17290.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 17290.f,
+ 17300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17300.f, 17310.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 17310.f, 17320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17320.f,
+ 17330.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17330.f, 17340.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 17340.f, 17350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17350.f, 17360.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 17360.f, 17370.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 17370.f,
+ 17380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17380.f, 17390.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 17390.f, 17400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17400.f,
+ 17410.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17410.f, 17420.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 17420.f, 17430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17430.f, 17440.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 17440.f, 17450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 17450.f,
+ 17460.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17460.f, 17470.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 17470.f, 17480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17480.f,
+ 17490.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17490.f, 17500.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 17500.f, 17510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17510.f, 17520.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 17520.f, 17530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 17530.f,
+ 17540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17540.f, 17550.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 17550.f, 17560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17560.f,
+ 17570.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17570.f, 17580.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 17580.f, 17590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17590.f, 17600.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 17600.f, 17610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 17610.f,
+ 17620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17620.f, 17630.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 17630.f, 17640.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17640.f,
+ 17650.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17650.f, 17660.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 17660.f, 17670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17670.f, 17680.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 17680.f, 17690.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 17690.f,
+ 17700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17700.f, 17710.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 17710.f, 17720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17720.f,
+ 17730.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17730.f, 17740.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 17740.f, 17750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17750.f, 17760.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 17760.f, 17770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 17770.f,
+ 17780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17780.f, 17790.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 17790.f, 17800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17800.f,
+ 17810.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17810.f, 17820.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 17820.f, 17830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 17830.f, 17840.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 17840.f, 17850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 17850.f,
+ 17860.f
+ };
+
+ /* oxygen (15300 - 17870 cm-1) */
+ for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
+} /* oxyg6 */
+
+void oxyg5 (float a[8], const long int inu)
+{
+ static const float acr[2048] = { 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f, 12740.f, 12750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12750.f, 12760.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 12760.f, 12770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 12770.f, 12780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12780.f, 12790.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 12790.f, 12800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 12800.f,
+
+ 12810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12810.f, 12820.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 12820.f, 12830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12830.f,
+ 12840.f,
+ 1.4615e-8f, .036385f, .0669f, -2.676e-4f, .064873f, -2.6352e-4f,
+ 12840.f, 12850.f, 1.7551e-8f, .018194f, .063056f, -2.5222e-4f, .061029f,
+ -2.4814e-4f, 12850.f, 12860.f, 5.5571e-8f, .034936f, .060516f,
+ -2.4079e-4f, .058832f, -2.3863e-4f, 12860.f, 12870.f, 1.1652e-7f,
+ .036823f, .057157f, -2.2751e-4f, .055426f, -2.2511e-4f, 12870.f,
+
+ 12880.f, 2.2758e-7f, .037524f, .05406f, -2.1528e-4f, .052277f,
+ -2.1261e-4f, 12880.f, 12890.f, 4.1844e-7f, .044301f, .051439f,
+ -2.03e-4f, .050656f, -2.0073e-4f, 12890.f, 12900.f, 1.1196e-6f,
+ .064417f, .048398f, -1.9212e-4f, .047119f, -1.8843e-4f, 12900.f,
+ 12910.f, 1.3443e-6f, .056296f, .046024f, -1.7943e-4f, .045942f,
+ -1.7773e-4f, 12910.f, 12920.f, 1.9719e-6f, .064603f, .044605f,
+ -1.7094e-4f, .044515f, -1.7298e-4f, 12920.f, 12930.f, 2.6027e-6f,
+ .060089f, .042943f, -1.6604e-4f, .04177f, -1.6646e-4f, 12930.f, 12940.f,
+ 5.7954e-6f, .10762f, .040374f, -1.577e-4f, .038909f, -1.5614e-4f,
+ 12940.f, 12950.f, 4.3014e-6f, .084704f, .042188f, -1.5762e-4f, .040357f,
+ -1.5977e-4f, 12950.f, 12960.f, 7.9614e-6f, .097284f, .041471f,
+ -1.6264e-4f, .038436f, -1.5588e-4f, 12960.f, 12970.f, 1.7998e-5f,
+ .071534f, .03844f, -1.5372e-4f, .036186f, -1.4871e-4f, 12970.f, 12980.f,
+ 2.7733e-5f, .06553f, .0349f, -1.3823e-4f, .034326f, -1.4018e-4f,
+ 12980.f, 12990.f, 8.7111e-5f, .082142f, .031863f, -1.2227e-4f, .033009f,
+ -1.3017e-4f, 12990.f, 1.3e4f, 5.9912e-5f, .064608f, .031064f,
+ -1.1475e-4f, .036751f, -1.2672e-4f, 1.3e4f, 13010.f, 2.6987e-4f,
+ .037736f, .026012f, -1.039e-4f, .024588f, -9.7152e-5f, 13010.f, 13020.f,
+ 5.9914e-4f, .037261f, .022365f, -8.9458e-5f, .020337f, -8.5375e-5f,
+ 13020.f, 13030.f, .0012384f, .038141f, .019f, -7.5998e-5f, .016972f,
+ -7.1916e-5f, 13030.f, 13040.f, .0023802f, .03944f, .015907f,
+ -6.3629e-5f, .01388f, -5.9546e-5f, 13040.f, 13050.f, .0078692f,
+ .059793f, .01191f, -4.6882e-5f, .010043f, -4.3832e-5f, 13050.f, 13060.f,
+ .014112f, .0632f, .0088039f, -3.4775e-5f, .0068655f, -3.1246e-5f,
+ 13060.f, 13070.f, .01506f, .044198f, .0062748f, -2.5099e-5f, .0042475f,
+ -2.1017e-5f, 13070.f, 13080.f, .019365f, .045501f, .0045529f,
+ -1.8211e-5f, .0025253f, -1.4128e-5f, 13080.f, 13090.f, .035332f,
+ .070599f, .0026881f, -1.0606e-5f, 6.7201e-4f, -6.6426e-6f, 13090.f,
+ 13100.f, .032021f, .071785f, .0013302f, -5.2395e-6f, -7.0181e-4f,
+ -1.1794e-6f, 13100.f, 13110.f, .020424f, .076507f, 3.4001e-4f,
+ -1.3505e-6f, -.0017047f, 2.7972e-6f, 13110.f, 13120.f, .0083211f,
+ .050488f, 6.3467e-5f, -2.5366e-7f, -.0019594f, 3.8105e-6f, 13120.f,
+ 13130.f, .039472f, .095766f, 7.6617e-4f, -3.019e-6f, -.0012832f,
+ 1.1287e-6f, 13130.f, 13140.f, .057473f, .11569f, .0028314f, -1.0907e-5f,
+ 8.5516e-4f, -7.1029e-6f, 13140.f, 13150.f, .046463f, .16239f, .0072656f,
+ -2.6424e-5f, .0059616f, -2.4138e-5f, 13150.f, 13160.f, .0070486f,
+ .18365f, .016807f, -5.8784e-5f, .017894f, -6.4531e-5f, 13160.f, 13170.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13170.f, 13180.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13180.f, 13190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13190.f, 13200.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13200.f, 13210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 13210.f,
+ 13220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13220.f, 13230.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 13230.f, 13240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13240.f,
+ 13250.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13250.f, 13260.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13260.f, 13270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13270.f, 13280.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13280.f, 13290.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 13290.f,
+ 13300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13300.f, 13310.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 13310.f, 13320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13320.f,
+ 13330.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13330.f, 13340.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13340.f, 13350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13350.f, 13360.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13360.f, 13370.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 13370.f,
+ 13380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13380.f, 13390.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 13390.f, 13400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13400.f,
+ 13410.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13410.f, 13420.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13420.f, 13430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13430.f, 13440.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13440.f, 13450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 13450.f,
+ 13460.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13460.f, 13470.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 13470.f, 13480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13480.f,
+ 13490.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13490.f, 13500.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13500.f, 13510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13510.f, 13520.f, 0.f,
+
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13520.f, 13530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 13530.f,
+ 13540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13540.f, 13550.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 13550.f, 13560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13560.f,
+ 13570.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13570.f, 13580.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13580.f, 13590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13590.f, 13600.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13600.f, 13610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 13610.f,
+ 13620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13620.f, 13630.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 13630.f, 13640.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13640.f,
+ 13650.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13650.f, 13660.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13660.f, 13670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13670.f, 13680.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13680.f, 13690.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 13690.f,
+ 13700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13700.f, 13710.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 13710.f, 13720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13720.f,
+ 13730.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13730.f, 13740.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13740.f, 13750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13750.f, 13760.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13760.f, 13770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 13770.f,
+ 13780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13780.f, 13790.f, 0.f, 0.f, 0.f,
+
+ 0.f,
+ 0.f, 0.f, 13790.f, 13800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13800.f,
+ 13810.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13810.f, 13820.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13820.f, 13830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13830.f, 13840.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13840.f, 13850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 13850.f,
+ 13860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13860.f, 13870.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 13870.f, 13880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13880.f,
+ 13890.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13890.f, 13900.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13900.f, 13910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13910.f, 13920.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 13920.f, 13930.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 13930.f,
+ 13940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13940.f, 13950.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 13950.f, 13960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13960.f,
+ 13970.f,
+
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13970.f, 13980.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 13980.f, 13990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 13990.f, 1.4e4f, 0.f, 0.f,
+ 0.f, 0.f, 0.f, 0.f, 1.4e4f, 14010.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 14010.f,
+ 14020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14020.f, 14030.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 14030.f, 14040.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14040.f,
+ 14050.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14050.f, 14060.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 14060.f, 14070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14070.f, 14080.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 14080.f, 14090.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 14090.f,
+ 14100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14100.f, 14110.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 14110.f, 14120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14120.f,
+ 14130.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14130.f, 14140.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 14140.f, 14150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14150.f, 14160.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 14160.f, 14170.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 14170.f,
+ 14180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14180.f, 14190.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 14190.f, 14200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14200.f,
+ 14210.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14210.f, 14220.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 14220.f, 14230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14230.f, 14240.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 14240.f, 14250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 14250.f,
+ 14260.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14260.f, 14270.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 14270.f, 14280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14280.f,
+ 14290.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14290.f, 14300.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 14300.f, 14310.f, 3.2848e-8f, .036386f, .053505f, -2.1402e-4f, .051477f,
+ -2.0994e-4f, 14310.f, 14320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14320.f,
+ 14330.f, 1.1021e-7f, .036386f, .048248f, -1.9299e-4f, .046221f,
+ -1.8891e-4f, 14330.f, 14340.f, 3.4571e-7f, .036386f, .04326f,
+ -1.7304e-4f, .041233f, -1.6896e-4f, 14340.f, 14350.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f, 0.f, 14350.f, 14360.f, 1.0131e-6f, .036386f, .03854f, -1.5416e-4f,
+ .036513f, -1.5008e-4f, 14360.f, 14370.f, 2.7746e-6f, .036442f, .034089f,
+ -1.3635e-4f, .032054f, -1.3222e-4f, 14370.f, 14380.f, 3.6059e-6f,
+ .01824f, .02993f, -1.1971e-4f, .027892f, -1.1557e-4f, 14380.f, 14390.f,
+ 3.4852e-6f, .018279f, .029884f, -1.1951e-4f, .027832f, -1.1527e-4f,
+ 14390.f, 14400.f, 1.6898e-5f, .036461f, .026f, -1.0399e-4f, .023962f,
+ -9.9845e-5f, 14400.f, 14410.f, 3.7525e-5f, .037306f, .022363f,
+ -8.9448e-5f, .020327f, -8.5313e-5f, 14410.f, 14420.f, 7.7568e-5f,
+ .038179f, .018999f, -7.5991e-5f, .016964f, -7.1868e-5f, 14420.f,
+ 14430.f, 7.644e-5f, .019568f, .015927f, -6.3702e-5f, .013885f,
+ -5.9534e-5f, 14430.f, 14440.f, 2.0947e-4f, .038957f, .014055f,
+ -5.5384e-5f, .012236f, -5.2506e-5f, 14440.f, 14450.f, 3.5608e-4f,
+ .040125f, .011458f, -4.5137e-5f, .0095851f, -4.1989e-5f, 14450.f,
+ 14460.f, 5.6079e-4f, .041622f, .0091259f, -3.5944e-5f, .0072131f,
+ -3.2578e-5f, 14460.f, 14470.f, 8.1523e-4f, .043384f, .0070608f,
+ -2.7807e-5f, .0051286f, -2.4309e-5f, 14470.f, 14480.f, .0016639f,
+ .067344f, .0050076f, -1.9758e-5f, .0030273f, -1.599e-5f, 14480.f,
+ 14490.f, .0014146f, .046358f, .003106f, -1.2424e-5f, .0010767f,
+ -8.3329e-6f, 14490.f, 14500.f, .0022165f, .071957f, .0016398f,
+ -6.477e-6f, -3.8835e-4f, -2.4326e-6f, 14500.f, 14510.f, .0015542f,
+ .07478f, 6.4291e-4f, -2.5306e-6f, -.0013922f, 1.5886e-6f, 14510.f,
+ 14520.f, 3.1245e-4f, .026878f, 9.5018e-5f, -3.8003e-7f, -.0019316f,
+ 3.6996e-6f, 14520.f, 14530.f, .0015805f, .097644f, 3.0344e-4f,
+ -1.0773e-6f, -.0013616f, 5.954e-6f, 14530.f, 14540.f, .0044256f,
+ .14544f, .0020504f, -7.4913e-6f, 6.2397e-4f, -9.5059e-7f, 14540.f,
+ 14550.f, .0039335f, .29035f, .0078502f, -2.3749e-5f, .0080984f,
+ -2.7655e-5f, 14550.f, 14560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14560.f,
+ 14570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14570.f, 14580.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 14580.f, 14590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14590.f,
+ 14600.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14600.f, 14610.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 14610.f, 14620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14620.f, 14630.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 14630.f, 14640.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 14640.f,
+ 14650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14650.f, 14660.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 14660.f, 14670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14670.f,
+ 14680.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14680.f, 14690.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 14690.f, 14700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14700.f, 14710.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 14710.f, 14720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 14720.f,
+ 14730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14730.f, 14740.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 14740.f, 14750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14750.f,
+ 14760.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14760.f, 14770.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 14770.f, 14780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14780.f, 14790.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 14790.f, 14800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 14800.f,
+ 14810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14810.f, 14820.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 14820.f, 14830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14830.f,
+ 14840.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14840.f, 14850.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 14850.f, 14860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14860.f, 14870.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 14870.f, 14880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 14880.f,
+ 14890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14890.f, 14900.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 14900.f, 14910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14910.f,
+ 14920.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14920.f, 14930.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 14930.f, 14940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14940.f, 14950.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 14950.f, 14960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 14960.f,
+ 14970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14970.f, 14980.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 14980.f, 14990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 14990.f, 1.5e4f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.5e4f, 15010.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 15010.f, 15020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15020.f, 15030.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 15030.f, 15040.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 15040.f,
+ 15050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15050.f, 15060.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 15060.f, 15070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15070.f,
+ 15080.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15080.f, 15090.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 15090.f, 15100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15100.f, 15110.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 15110.f, 15120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 15120.f,
+ 15130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15130.f, 15140.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 15140.f, 15150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15150.f,
+ 15160.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15160.f, 15170.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 15170.f, 15180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15180.f, 15190.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 15190.f, 15200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+
+ 15200.f,
+ 15210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15210.f, 15220.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 15220.f, 15230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15230.f,
+ 15240.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15240.f, 15250.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 15250.f, 15260.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15260.f, 15270.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 15270.f, 15280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 15280.f,
+ 15290.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 15290.f, 15300.f
+ };
+
+ /* oxygen (12740 - 15290 cm-1) */
+ for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
+} /* oxyg5 */
+
+void
+oxyg4 (float a[8], const long int inu)
+{
+
+
+ static const float acr[2048] = { 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f, 10180.f, 10190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10190.f, 10200.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 10200.f, 10210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 10210.f, 10220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10220.f, 10230.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 10230.f, 10240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 10240.f,
+ 10250.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10250.f, 10260.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 10260.f, 10270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10270.f,
+ 10280.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10280.f, 10290.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 10290.f, 10300.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10300.f, 10310.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 10310.f, 10320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 10320.f,
+ 10330.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10330.f, 10340.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 10340.f, 10350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10350.f,
+ 10360.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10360.f, 10370.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 10370.f, 10380.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10380.f, 10390.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 10390.f, 10400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 10400.f,
+ 10410.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10410.f, 10420.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 10420.f, 10430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10430.f,
+ 10440.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10440.f, 10450.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 10450.f, 10460.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10460.f, 10470.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 10470.f, 10480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 10480.f,
+ 10490.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10490.f, 10500.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 10500.f, 10510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10510.f,
+ 10520.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10520.f, 10530.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 10530.f, 10540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10540.f, 10550.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 10550.f, 10560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 10560.f,
+ 10570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10570.f, 10580.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 10580.f, 10590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10590.f,
+ 10600.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10600.f, 10610.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 10610.f, 10620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10620.f, 10630.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 10630.f, 10640.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 10640.f,
+ 10650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10650.f, 10660.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 10660.f, 10670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10670.f,
+ 10680.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10680.f, 10690.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 10690.f, 10700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10700.f, 10710.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 10710.f, 10720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 10720.f,
+ 10730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10730.f, 10740.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 10740.f, 10750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10750.f,
+ 10760.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10760.f, 10770.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 10770.f, 10780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10780.f, 10790.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 10790.f, 10800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 10800.f,
+ 10810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10810.f, 10820.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 10820.f, 10830.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10830.f,
+ 10840.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10840.f, 10850.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 10850.f, 10860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10860.f, 10870.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 10870.f, 10880.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 10880.f,
+ 10890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10890.f, 10900.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 10900.f, 10910.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10910.f,
+ 10920.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10920.f, 10930.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 10930.f, 10940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10940.f, 10950.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 10950.f, 10960.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 10960.f,
+ 10970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10970.f, 10980.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 10980.f, 10990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10990.f, 1.1e4f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.1e4f, 11010.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 11010.f, 11020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11020.f, 11030.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 11030.f, 11040.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 11040.f,
+ 11050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11050.f, 11060.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 11060.f, 11070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11070.f,
+ 11080.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11080.f, 11090.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 11090.f, 11100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11100.f, 11110.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 11110.f, 11120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 11120.f,
+ 11130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11130.f, 11140.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 11140.f, 11150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11150.f,
+ 11160.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11160.f, 11170.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 11170.f, 11180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11180.f, 11190.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 11190.f, 11200.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 11200.f,
+ 11210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11210.f, 11220.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 11220.f, 11230.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11230.f,
+ 11240.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11240.f, 11250.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 11250.f, 11260.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11260.f, 11270.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 11270.f, 11280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 11280.f,
+ 11290.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11290.f, 11300.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 11300.f, 11310.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11310.f,
+ 11320.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11320.f, 11330.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 11330.f, 11340.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11340.f, 11350.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 11350.f, 11360.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 11360.f,
+ 11370.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11370.f, 11380.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 11380.f, 11390.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11390.f,
+ 11400.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11400.f, 11410.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 11410.f, 11420.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11420.f, 11430.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 11430.f, 11440.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 11440.f,
+ 11450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11450.f, 11460.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 11460.f, 11470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11470.f,
+ 11480.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11480.f, 11490.f, 2.485e-8f, .039407f,
+ .053053f, -2.1221e-4f, .051025f, -2.0813e-4f, 11490.f, 11500.f,
+ 1.1624e-7f, .079933f, .048686f, -1.9403e-4f, .046806f, -1.9088e-4f,
+ 11500.f, 11510.f, 1.0964e-7f, .043304f, .045502f, -1.8201e-4f, .043474f,
+ -1.7792e-4f, 11510.f, 11520.f, 2.5643e-7f, .066862f, .042844f,
+ -1.7105e-4f, .040871f, -1.6735e-4f, 11520.f, 11530.f, 3.2105e-7f,
+ .068728f, .040797f, -1.6299e-4f, .038797f, -1.5911e-4f, 11530.f,
+ 11540.f, 3.5585e-7f, .071858f, .038944f, -1.557e-4f, .036916f,
+ -1.5165e-4f, 11540.f, 11550.f, 2.4915e-7f, .074592f, .037957f,
+ -1.5179e-4f, .035912f, -1.4766e-4f, 11550.f, 11560.f, 4.9923e-8f,
+ .026857f, .037416f, -1.4966e-4f, .035388f, -1.4558e-4f, 11560.f,
+ 11570.f, 2.5239e-7f, .096092f, .037615f, -1.5045e-4f, .035561f,
+ -1.4627e-4f, 11570.f, 11580.f, 5.8358e-7f, .11778f, .039104f,
+ -1.5615e-4f, .03708f, -1.5221e-4f, 11580.f, 11590.f, 4.8767e-7f,
+ .11043f, .041978f, -1.6721e-4f, .04006f, -1.6392e-4f, 11590.f, 11600.f,
+ 2.0866e-7f, .10009f, .046771f, -1.859e-4f, .045f, -1.8335e-4f, 11600.f,
+ 11610.f, 6.2339e-8f, .091546f, .052598f, -2.0809e-4f, .051104f,
+ -2.0723e-4f, 11610.f, 11620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11620.f,
+ 11630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11630.f, 11640.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 11640.f, 11650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11650.f,
+ 11660.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11660.f, 11670.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 11670.f, 11680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11680.f, 11690.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 11690.f, 11700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 11700.f,
+ 11710.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11710.f, 11720.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 11720.f, 11730.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11730.f,
+ 11740.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11740.f, 11750.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 11750.f, 11760.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11760.f, 11770.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 11770.f, 11780.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 11780.f,
+ 11790.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11790.f, 11800.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 11800.f, 11810.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11810.f,
+ 11820.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11820.f, 11830.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 11830.f, 11840.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11840.f, 11850.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 11850.f, 11860.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 11860.f,
+ 11870.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11870.f, 11880.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 11880.f, 11890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11890.f,
+ 11900.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11900.f, 11910.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 11910.f, 11920.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11920.f, 11930.f, 0.f,
+
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 11930.f, 11940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 11940.f,
+ 11950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11950.f, 11960.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 11960.f, 11970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11970.f,
+ 11980.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 11980.f, 11990.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 11990.f, 1.2e4f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1.2e4f, 12010.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 12010.f, 12020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12020.f,
+ 12030.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12030.f, 12040.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 12040.f, 12050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12050.f,
+ 12060.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12060.f, 12070.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 12070.f, 12080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12080.f, 12090.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 12090.f, 12100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 12100.f,
+ 12110.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12110.f, 12120.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 12120.f, 12130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12130.f,
+ 12140.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12140.f, 12150.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 12150.f, 12160.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12160.f, 12170.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 12170.f, 12180.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 12180.f,
+ 12190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12190.f, 12200.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 12200.f, 12210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12210.f,
+ 12220.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12220.f, 12230.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 12230.f, 12240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12240.f, 12250.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 12250.f, 12260.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 12260.f,
+ 12270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12270.f, 12280.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 12280.f, 12290.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12290.f,
+ 12300.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12300.f, 12310.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 12310.f, 12320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12320.f, 12330.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 12330.f, 12340.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 12340.f,
+ 12350.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12350.f, 12360.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 12360.f, 12370.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12370.f,
+ 12380.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12380.f, 12390.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 12390.f, 12400.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12400.f, 12410.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 12410.f, 12420.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 12420.f,
+ 12430.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12430.f, 12440.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 12440.f, 12450.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12450.f,
+ 12460.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12460.f, 12470.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 12470.f, 12480.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12480.f, 12490.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 12490.f, 12500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 12500.f,
+ 12510.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12510.f, 12520.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 12520.f, 12530.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12530.f,
+ 12540.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12540.f, 12550.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 12550.f, 12560.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12560.f, 12570.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 12570.f, 12580.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 12580.f,
+ 12590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12590.f, 12600.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 12600.f, 12610.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12610.f,
+ 12620.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12620.f, 12630.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 12630.f, 12640.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12640.f, 12650.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 12650.f, 12660.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 12660.f,
+ 12670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12670.f, 12680.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 12680.f, 12690.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12690.f,
+ 12700.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12700.f, 12710.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 12710.f, 12720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 12720.f, 12730.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 12730.f, 12740.f
+ };
+
+ /* oxygen (10180 - 12730 cm-1) */
+ for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
+} /* oxyg4 */
+
+void
+oxyg3 (float a[8], const long int inu)
+{
+ static const float acr[2048] = { 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f, 7620.f, 7630.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7630.f, 7640.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 7640.f, 7650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7650.f,
+ 7660.f, 5.4851e-9f, .018194f, .043239f, -1.7296e-4f, .041212f,
+ -1.6888e-4f, 7660.f, 7670.f, 1.5945e-8f, .018194f, .03852f, -1.5408e-4f,
+ .036492f, -1.5e-4f, 7670.f, 7680.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7680.f,
+ 7690.f, 4.3251e-8f, .018194f, .034069f, -1.3628e-4f, .032042f,
+ -1.3219e-4f, 7690.f, 7700.f, 1.0929e-7f, .018194f, .029889f,
+ -1.1956e-4f, .027862f, -1.1547e-4f, 7700.f, 7710.f, 2.5722e-7f,
+ .018194f, .02598f, -1.0392e-4f, .023953f, -9.9839e-5f, 7710.f, 7720.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 7720.f, 7730.f, 5.6266e-7f, .018194f,
+ .022343f, -8.9371e-5f, .020315f, -8.5289e-5f, 7730.f, 7740.f,
+ 1.1425e-6f, .01906f, .018977f, -7.591e-5f, .01695f, -7.1828e-5f, 7740.f,
+ 7750.f, 2.1596e-6f, .022229f, .016034f, -6.2289e-5f, .015554f,
+ -5.5716e-5f, 7750.f, 7760.f, 8.1892e-8f, .052034f, .039222f,
+ -1.5556e-4f, .037572f, -1.5339e-4f, 7760.f, 7770.f, 3.9209e-6f,
+ .032273f, .014036f, -4.6954e-5f, .015654f, -4.8384e-5f, 7770.f, 7780.f,
+ 6.4421e-6f, .036427f, .011888f, -3.5835e-5f, .013496f, -4.0675e-5f,
+ 7780.f, 7790.f, 1.1047e-5f, .055891f, .011375f, -2.6109e-5f, .013172f,
+ -4.0967e-5f, 7790.f, 7800.f, 1.7987e-5f, .067558f, .010748f,
+ -2.3562e-5f, .01137f, -3.8223e-5f, 7800.f, 7810.f, 9.8092e-6f, .038971f,
+ .015905f, -6.3621e-5f, .013877f, -5.9532e-5f, 7810.f, 7820.f,
+ 4.4018e-5f, .082997f, .0095499f, -3.1911e-5f, .0077993f, -3.2091e-5f,
+ 7820.f, 7830.f, 7.0926e-5f, .086557f, .0076614f, -2.7697e-5f, .0055197f,
+ -2.4447e-5f, 7830.f, 7840.f, 1.0119e-4f, .087824f, .0052157f,
+ -1.9889e-5f, .00297f, -1.5277e-5f, 7840.f, 7850.f, 1.2386e-4f, .090123f,
+ .0034834f, -1.2896e-5f, .0022642f, -3.5587e-6f, 7850.f, 7860.f,
+ 1.3558e-4f, .14355f, .0025455f, 7.5114e-7f, .0043782f, 4.2838e-6f,
+ 7860.f, 7870.f, 3.6155e-4f, .30611f, .00774f, -2.3164e-5f, .0072019f,
+ -2.6289e-5f, 7870.f, 7880.f, 7.4132e-4f, .38505f, .0019206f,
+ -6.4925e-6f, 1.9419e-5f, -3.3562e-6f, 7880.f, 7890.f, 2.6142e-4f,
+ .099139f, 5.6355e-4f, -2.1878e-6f, -.0015085f, 2.0396e-6f, 7890.f,
+ 7900.f, 3.3585e-4f, .12035f, .0017877f, -6.7625e-6f, -3.0147e-4f,
+ -2.6201e-6f, 7900.f, 7910.f, 2.1797e-4f, .09124f, .0044856f,
+ -1.7351e-5f, .0025121f, -1.3772e-5f, 7910.f, 7920.f, 1.8805e-4f,
+ .12809f, .0061732f, -1.8626e-5f, .0047187f, -2.0003e-5f, 7920.f, 7930.f,
+ 8.7414e-5f, .10246f, .0071283f, -9.5048e-6f, .0079366f, -2.5696e-5f,
+ 7930.f, 7940.f, 5.0284e-5f, .070001f, .0058651f, -1.5881e-6f, .0099197f,
+ -1.9259e-5f, 7940.f, 7950.f, 3.4484e-5f, .036136f, .0050423f,
+ -1.3556e-5f, .0083314f, -2.9461e-6f, 7950.f, 7960.f, 2.508e-5f,
+
+ .023597f, .0062798f, -2.4587e-5f, .0054199f, -1.4942e-5f, 7960.f,
+ 7970.f, 1.7175e-5f, .021672f, .0082429f, -3.2972e-5f, .0062159f,
+ -2.8891e-5f, 7970.f, 7980.f, 1.0919e-5f, .0208f, .010514f, -4.2054e-5f,
+ .0084864f, -3.7973e-5f, 7980.f, 7990.f, 6.453e-6f, .019927f, .013058f,
+ -5.2234e-5f, .011031f, -4.8151e-5f, 7990.f, 8e3f, 3.5484e-6f, .019493f,
+ .015877f, -6.3508e-5f, .01385f, -5.9425e-5f, 8e3f, 8010.f, 1.8178e-6f,
+ .01906f, .018969f, -7.5874e-5f, .016941f, -7.1792e-5f, 8010.f, 8020.f,
+ 8.6808e-7f, .018194f, .022333f, -8.9332e-5f, .020306f, -8.525e-5f,
+ 8020.f, 8030.f, 5.4731e-7f, .034766f, .027088f, -1.0685e-4f, .025457f,
+ -1.0498e-4f, 8030.f, 8040.f, 6.2423e-8f, .018194f, .034057f,
+ -1.3623e-4f, .03203f, -1.3215e-4f, 8040.f, 8050.f, 2.2644e-8f, .018194f,
+ .038506f, -1.5403e-4f, .036479f, -1.4994e-4f, 8050.f, 8060.f,
+ 7.6809e-9f, .018194f, .043225f, -1.729e-4f, .041198f, -1.6882e-4f,
+ 8060.f, 8070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8070.f, 8080.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8080.f, 8090.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8090.f,
+ 8100.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8100.f, 8110.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8110.f, 8120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8120.f, 8130.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8130.f, 8140.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8140.f,
+ 8150.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8150.f, 8160.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8160.f, 8170.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8170.f, 8180.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8180.f, 8190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8190.f,
+ 8200.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8200.f, 8210.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8210.f, 8220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8220.f, 8230.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8230.f, 8240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8240.f,
+ 8250.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8250.f, 8260.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8260.f, 8270.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8270.f, 8280.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8280.f, 8290.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8290.f,
+ 8300.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8300.f, 8310.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8310.f, 8320.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8320.f, 8330.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8330.f, 8340.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8340.f,
+ 8350.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8350.f, 8360.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8360.f, 8370.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8370.f, 8380.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8380.f, 8390.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8390.f,
+ 8400.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8400.f, 8410.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8410.f, 8420.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8420.f, 8430.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8430.f, 8440.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8440.f,
+ 8450.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8450.f, 8460.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8460.f, 8470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8470.f, 8480.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8480.f, 8490.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8490.f,
+ 8500.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8500.f, 8510.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8510.f, 8520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8520.f, 8530.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8530.f, 8540.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8540.f,
+ 8550.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8550.f, 8560.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8560.f, 8570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8570.f, 8580.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8580.f, 8590.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8590.f,
+ 8600.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8600.f, 8610.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8610.f, 8620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8620.f, 8630.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8630.f, 8640.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8640.f,
+ 8650.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8650.f, 8660.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8660.f, 8670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8670.f, 8680.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8680.f, 8690.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8690.f,
+ 8700.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8700.f, 8710.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8710.f, 8720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8720.f, 8730.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8730.f, 8740.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8740.f,
+ 8750.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8750.f, 8760.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8760.f, 8770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8770.f, 8780.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8780.f, 8790.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8790.f,
+ 8800.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8800.f, 8810.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8810.f, 8820.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8820.f, 8830.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8830.f, 8840.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8840.f,
+ 8850.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8850.f, 8860.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8860.f, 8870.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8870.f, 8880.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8880.f, 8890.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8890.f,
+ 8900.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8900.f, 8910.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8910.f, 8920.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8920.f, 8930.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8930.f, 8940.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8940.f,
+ 8950.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8950.f, 8960.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 8960.f, 8970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8970.f, 8980.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 8980.f, 8990.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 8990.f, 9e3f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 9e3f, 9010.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 9010.f,
+ 9020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9020.f, 9030.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 9030.f, 9040.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9040.f, 9050.f, 0.f,
+
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 9050.f, 9060.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9060.f,
+ 9070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9070.f, 9080.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 9080.f, 9090.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9090.f, 9100.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 9100.f, 9110.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9110.f,
+ 9120.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9120.f, 9130.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 9130.f, 9140.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9140.f, 9150.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 9150.f, 9160.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9160.f,
+ 9170.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9170.f, 9180.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 9180.f, 9190.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9190.f, 9200.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 9200.f, 9210.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9210.f,
+ 9220.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9220.f, 9230.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 9230.f, 9240.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9240.f, 9250.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 9250.f, 9260.f, 2.9327e-8f, .020793f, .01052f,
+ -4.2079e-5f, .0084925f, -3.7997e-5f, 9260.f, 9270.f, 4.284e-8f,
+ .021659f, .0082482f, -3.2993e-5f, .0062209f, -2.8911e-5f, 9270.f,
+ 9280.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9280.f, 9290.f, 1.4493e-7f,
+ .078959f,
+ .011173f, -3.6086e-5f, .0098558f, -3.9242e-5f, 9290.f, 9300.f,
+ 2.5005e-7f, .083955f, .0092831f, -3.2526e-5f, .0073578f, -3.1073e-5f,
+ 9300.f, 9310.f, 2.7511e-7f, .065813f, .0069254f, -2.5251e-5f, .0046721f,
+ -2.1357e-5f, 9310.f, 9320.f, 3.3929e-7f, .065167f, .0055165f,
+ -2.0774e-5f, .0031412f, -1.5731e-5f, 9320.f, 9330.f, 7.3603e-7f,
+ .092398f, .0037855f, -1.4891e-5f, .0017763f, -1.1006e-5f, 9330.f,
+ 9340.f, 4.4813e-7f, .07935f, .0045127f, -2.4202e-6f, .0042176f,
+ -9.3426e-6f, 9340.f, 9350.f, 1.4773e-6f, .2629f, .0066029f, -1.8761e-5f,
+ .004739f, -1.8284e-5f, 9350.f, 9360.f, 3.6258e-6f, .35403f, .0024719f,
+ -8.6417e-6f, 5.0685e-4f, -5.3198e-6f, 9360.f, 9370.f, 1.0885e-6f,
+ .098959f, 2.798e-4f, -1.1056e-6f, -.0017654f, 3.0416e-6f, 9370.f,
+ 9380.f, 1.6901e-6f, .12199f, .0012891f, -4.9557e-6f, -7.9138e-4f,
+ -7.506e-7f, 9380.f, 9390.f, 1.6816e-6f, .13899f, .0035668f, -1.2886e-5f,
+ .0015543f, -9.4945e-6f, 9390.f, 9400.f, 1.0341e-6f, .16279f, .0068719f,
+ -1.996e-5f, .0057191f, -2.3184e-5f, 9400.f, 9410.f, 3.1773e-7f, .06436f,
+ .0052558f, -2.7296e-6f, .0065364f, -1.6975e-5f, 9410.f, 9420.f,
+ 2.0773e-7f, .023392f, .0030789f, -1.2316e-5f, .0010516f, -8.2335e-6f,
+ 9420.f, 9430.f, 1.6613e-7f, .022959f, .0045253f, -1.8101e-5f, .0024979f,
+ -1.4019e-5f, 9430.f, 9440.f, 1.2289e-7f, .022092f, .0062467f,
+ -2.4987e-5f, .0042194f, -2.0905e-5f, 9440.f, 9450.f, 8.4168e-8f,
+ .021659f, .0082429f, -3.2972e-5f, .0062156f, -2.8889e-5f, 9450.f,
+ 9460.f, 8.5119e-8f, .040142f, .011444f, -4.5054e-5f, .0095711f,
+ -4.1931e-5f, 9460.f, 9470.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9470.f, 9480.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9480.f, 9490.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 9490.f, 9500.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9500.f, 9510.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 9510.f, 9520.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9520.f,
+ 9530.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9530.f, 9540.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 9540.f, 9550.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9550.f, 9560.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 9560.f, 9570.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9570.f,
+ 9580.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9580.f, 9590.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 9590.f, 9600.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9600.f, 9610.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 9610.f, 9620.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9620.f,
+ 9630.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9630.f, 9640.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 9640.f, 9650.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9650.f, 9660.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 9660.f, 9670.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9670.f,
+ 9680.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9680.f, 9690.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 9690.f, 9700.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9700.f, 9710.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 9710.f, 9720.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9720.f,
+ 9730.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9730.f, 9740.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 9740.f, 9750.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9750.f, 9760.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 9760.f, 9770.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9770.f,
+ 9780.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9780.f, 9790.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+
+ 9790.f, 9800.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9800.f, 9810.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 9810.f, 9820.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9820.f,
+ 9830.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9830.f, 9840.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 9840.f, 9850.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9850.f, 9860.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 9860.f, 9870.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9870.f,
+ 9880.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9880.f, 9890.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 9890.f, 9900.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9900.f, 9910.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 9910.f, 9920.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9920.f,
+ 9930.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9930.f, 9940.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 9940.f, 9950.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9950.f, 9960.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 9960.f, 9970.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9970.f,
+ 9980.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 9980.f, 9990.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 9990.f, 1e4f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 1e4f, 10010.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 10010.f, 10020.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10020.f,
+ 10030.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10030.f, 10040.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 10040.f, 10050.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10050.f, 10060.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 10060.f, 10070.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 10070.f,
+ 10080.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10080.f, 10090.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 10090.f, 10100.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10100.f,
+ 10110.f,
+ 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10110.f, 10120.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 10120.f, 10130.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10130.f, 10140.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 0.f, 0.f, 10140.f, 10150.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f,
+ 10150.f,
+ 10160.f, 0.f, 0.f, 0.f, 0.f, 0.f, 0.f, 10160.f, 10170.f, 0.f, 0.f, 0.f,
+ 0.f,
+ 0.f, 0.f, 10170.f, 10180.f
+ };
+
+ /* oxygen (7620 - 10170 cm-1) */
+ for(int i = 0; i < 8; i++) a[i] = acr[i + (inu << 3) - 8];
+} /* oxyg3 */
+
+
+void abstra (const AtmosModel& atms, const Altitude& alt,
+ const float wl, const float xmus, const float xmuv,
+ const float uw, const float uo3, float& uwus, float& uo3us,
+ const float uwpl, const float uo3pl, const float uwusp,
+ const float uo3usp, AbstraStruct& as )
+{
+ // transmittance calculation for ozone, water vapor,
+ // carbon dioxyde and oxygen.
+
+ float tnu[10][3],a[8],rm[34],r2[34],r3[34],tp[34],rat[10];
+ float rmpl[34],r2pl[34],r3pl[34],ratpl[10];
+ float dtcont,utcont,ttcont;
+ float v,te2,phi,psi,uu,u,up,uud,uut,uuu;
+ float ud,ut,upd,upt,udp,updp,udtp,updtp;
+ float ds2,uupl,upl,uppl,ah2o;
+ float xh,xi,xd,ako3,test1,test2,test3,udt,atest;
+ float updt,tt,y,utt,uptt,tn;
+ float ds,te,roair;
+ double ptest, ptest1;
+ int iv,id,idgaz,inu = 0,n,nh;
+
+ int ivli[6] = { 2500,5060,7620,10180,12740,15300 };
+ float co3[102] = {
+ 4.50e-03, 8.00e-03, 1.07e-02, 1.10e-02, 1.27e-02, 1.71e-02,
+ 2.00e-02, 2.45e-02, 3.07e-02, 3.84e-02, 4.78e-02, 5.67e-02,
+ 6.54e-02, 7.62e-02, 9.15e-02, 1.00e-01, 1.09e-01, 1.20e-01,
+ 1.28e-01, 1.12e-01, 1.11e-01, 1.16e-01, 1.19e-01, 1.13e-01,
+ 1.03e-01, 9.24e-02, 8.28e-02, 7.57e-02, 7.07e-02, 6.58e-02,
+ 5.56e-02, 4.77e-02, 4.06e-02, 3.87e-02, 3.82e-02, 2.94e-02,
+ 2.09e-02, 1.80e-02, 1.91e-02, 1.66e-02, 1.17e-02, 7.70e-03,
+ 6.10e-03, 8.50e-03, 6.10e-03, 3.70e-03, 3.20e-03, 3.10e-03,
+ 2.55e-03, 1.98e-03, 1.40e-03, 8.25e-04, 2.50e-04, 0. ,
+ 0. , 0. , 5.65e-04, 2.04e-03, 7.35e-03, 2.03e-02,
+ 4.98e-02, 1.18e-01, 2.46e-01, 5.18e-01, 1.02e+00, 1.95e+00,
+ 3.79e+00, 6.65e+00, 1.24e+01, 2.20e+01, 3.67e+01, 5.95e+01,
+ 8.50e+01, 1.26e+02, 1.68e+02, 2.06e+02, 2.42e+02, 2.71e+02,
+ 2.91e+02, 3.02e+02, 3.03e+02, 2.94e+02, 2.77e+02, 2.54e+02,
+ 2.26e+02, 1.96e+02, 1.68e+02, 1.44e+02, 1.17e+02, 9.75e+01,
+ 7.65e+01, 6.04e+01, 4.62e+01, 3.46e+01, 2.52e+01, 2.00e+01,
+ 1.57e+01, 1.20e+01, 1.00e+01, 8.80e+00, 8.30e+00, 8.60e+00
+ };
+
+ float cch2o[15] = {
+ 0.00,0.19,0.15,0.12,0.10,
+ 0.09,0.10,0.12,0.15,0.17,
+ 0.20,0.24,0.28,0.33,0.00
+ };
+
+ as.dtwava = 1;
+ as.utwava = 1;
+ as.ttwava = 1;
+ dtcont = 1;
+ utcont = 1;
+ ttcont = 1;
+ as.dtozon = 1;
+ as.utozon = 1;
+ as.ttozon = 1;
+ as.dtdica = 1;
+ as.utdica = 1;
+ as.ttdica = 1;
+ as.dtoxyg = 1;
+
+ as.utoxyg = 1;
+ as.ttoxyg = 1;
+ as.dtniox = 1;
+ as.utniox = 1;
+ as.ttniox = 1;
+ as.dtmeth = 1;
+ as.utmeth = 1;
+ as.ttmeth = 1;
+ as.dtmoca = 1;
+ as.utmoca = 1;
+ as.ttmoca = 1;
+
+ for(int i = 0 ; i < 10; i++ )
+ {
+ rat[i] = 1;
+ tnu[i][0] = 1;
+ tnu[i][1] = 1;
+ tnu[i][2] = 1;
+ }
+
+ if (atms.idatm == 0) return;
+
+ if((xmus == 0.) || (xmuv == 0.))
+ {
+ fprintf(stderr, "Error on zenithal angle ( near 90 deg )\n");
+ return;
+ }
+
+ /* constants determination */
+ const float p0 = 1013.25f;
+ const float g = 98.1f;
+
+ const float t0 = 250.f;
+
+ /* volumic mass in kilogrammes per m3 */
+ ds = 0;
+ te = 0;
+ roair = 0;
+ const float air = 0.028964 / 0.0224;
+ const float roco2 = 0.044 / 0.0224;
+ const float rmo2 = 0.032 / 0.0224;
+ const float rmo3 = 0.048 / 0.0224;
+ const float rmn2o = 0.044 / 0.0224;
+ const float rmch4 = 0.016 / 0.0224;
+ const float rmco = 0.028 / 0.0224;
+
+ uwus = 1.424;
+ uo3us = .344;
+
+ if(atms.idatm == 8)
+ {
+ rat[0] = uw / uwus;
+ rat[1] = 1;
+ rat[2] = 1;
+ rat[3] = uo3 / uo3us;
+ rat[4] = 1;
+ rat[5] = 1;
+ rat[6] = 1;
+ rat[7] = uw / uwus;
+ rat[8] = uw / uwus;
+ rat[9] = uw / uwus;
+ }
+
+ v = (float)(1e+04 / wl);
+ iv = (int)(v / 5);
+ iv = iv * 5;
+ id = ((iv - 2500) / 10) / 256 + 1;
+
+ for(idgaz = 1; idgaz <= 7; idgaz++)
+ {
+ if (id <= 6) inu = (iv - ivli[id-1]) / 10 + 1;
+
+ bool to270 = false;
+ switch(id)
+ {
+ case 1:
+ {
+ if(idgaz == 1) wava1(a,inu);
+ if(idgaz == 2) dica1(a,inu);
+ if(idgaz == 3) to270 = true;
+ if(idgaz == 4) ozon1(a,inu);
+ if(idgaz == 5) niox1(a,inu);
+ if(idgaz == 6) meth1(a,inu);
+ if(idgaz == 7) moca1(a,inu);
+ break;
+ }
+ case 2:
+ {
+ if(idgaz == 1) wava2(a,inu);
+ if(idgaz == 2) dica2(a,inu);
+ if(idgaz == 3) to270 = true;
+ if(idgaz == 4) to270 = true;
+ if(idgaz == 5) niox2(a,inu);
+ if(idgaz == 6) meth2(a,inu);
+ if(idgaz == 7) moca2(a,inu);
+ break;
+ }
+ case 3:
+ {
+ if(idgaz == 1) wava3(a,inu);
+ if(idgaz == 2) dica3(a,inu);
+ if(idgaz == 3) oxyg3(a,inu);
+ if(idgaz == 4) to270 = true;
+ if(idgaz == 5) niox3(a,inu);
+ if(idgaz == 6) meth3(a,inu);
+ if(idgaz == 7) moca3(a,inu);
+ break;
+ }
+ case 4:
+ {
+ if(idgaz == 1) wava4(a,inu);
+ if(idgaz == 2) to270 = true;
+ if(idgaz == 3) oxyg4(a,inu);
+ if(idgaz == 4) to270 = true;
+ if(idgaz == 5) niox4(a,inu);
+ if(idgaz == 6) meth4(a,inu);
+ if(idgaz == 7) moca4(a,inu);
+ break;
+ }
+ case 5:
+ {
+ if(idgaz == 1) wava5(a,inu);
+ if(idgaz == 2) to270 = true;
+ if(idgaz == 3) oxyg5(a,inu);
+ if(idgaz == 4) to270 = true;
+ if(idgaz == 5) niox5(a,inu);
+ if(idgaz == 6) meth5(a,inu);
+ if(idgaz == 7) moca5(a,inu);
+ break;
+ }
+ case 6:
+ {
+ if(idgaz == 1) wava6(a,inu);
+ if(idgaz == 2) to270 = true;
+ if(idgaz == 3) oxyg6(a,inu);
+ if(idgaz == 4) to270 = true;
+ if(idgaz == 5) niox6(a,inu);
+ if(idgaz == 6) meth6(a,inu);
+ if(idgaz == 7) moca6(a,inu);
+ break;
+ }
+ default: to270 = true;
+ }
+
+ if(to270) for(int i = 0; i < 8; i++) a[i] = 0;
+
+ /* mixing ratio calculation for each gaseous constituents */
+ int k;
+ for(k = 0; k < 33; k++)
+ {
+ roair = air * 273.16f * atms.p[k] / (1013.25f * atms.t[k]);
+ tp[k] = (atms.t[k] + atms.t[k + 1]) / 2.f;
+ te = tp[k] - t0;
+ te2 = te * te;
+ phi = (float)exp(a[2] * te + a[3] * te2);
+ psi = (float)exp(a[4] * te + a[5] * te2);
+ if(idgaz == 1) rm[k] = atms.wh[k] / (roair * 1000);
+ if(idgaz == 2) rm[k] = 3.3e-04f * roco2 / air;
+ if(idgaz == 3) rm[k] = 0.20947f * rmo2 / air;
+ if(idgaz == 4) rm[k] = atms.wo[k] / (roair * 1000);
+ if(idgaz == 5) rm[k] = 310.e-09f * rmn2o / air;
+ if(idgaz == 6) rm[k] = 1.72e-06f * rmch4 / air;
+ if(idgaz == 7) rm[k] = 1.00e-09f * rmco / air;
+ r2[k] = rm[k] * phi;
+ r3[k] = rm[k] * psi;
+ }
+
+ uu = 0;
+ u = 0;
+ up = 0;
+ uud = 0;
+ uut = 0;
+ uuu = 0;
+ ud = 0;
+ ut = 0;
+ upd = 0;
+ upt = 0;
+ udp = 0;
+ updp = 0;
+ udtp = 0;
+ updtp = 0;
+
+ /* pressure scale integration sigma = atms.p / p0 */
+ for(k = 1; k < 33; k++)
+ {
+ ds = (atms.p[k-1] - atms.p[k]) / atms.p[0];
+ ds2 = (atms.p[k-1] * atms.p[k-1] - atms.p[k] * atms.p[k]) / (2 * atms.p[0] * p0);
+ uu = uu + ((rm[k] + rm[k-1]) / 2) * ds * rat[idgaz-1];
+ u = u + ((r2[k] + r2[k-1]) / 2) * ds * rat[idgaz-1];
+ up = up + ((r3[k] + r3[k-1]) / 2) * ds2 * rat[idgaz-1];
+ }
+
+ uu = uu * atms.p[0] * 100 / g;
+ u = u * atms.p[0] * 100 / g;
+ up = up * atms.p[0] * 100 / g;
+
+ if(idgaz == 4) uu = 1000 * uu / rmo3;
+ if(idgaz == 2) uu = 1000 * uu / roco2;
+ if(idgaz == 5) uu = 1000 * uu / rmn2o;
+ if(idgaz == 6) uu = 1000 * uu / rmch4;
+ if(idgaz == 7) uu = 1000 * uu / rmco;
+
+ /* mixing ratio for plane calculation for each gaseous constituents */
+ if ((alt.idatmp == 0) || (alt.idatmp == 4))
+ {
+ uupl = uu;
+ upl = u;
+ uppl = up;
+ }
+ else
+ {
+ int k;
+ for(k = 0; k < 33; k++)
+ {
+ roair = air * 273.16f * alt.plane_sim.ppl[k] / (1013.25f * alt.plane_sim.tpl[k]);
+ tp[k] = (alt.plane_sim.tpl[k] + alt.plane_sim.tpl[k + 1]) / 2;
+ te = tp[k] - t0;
+ te2 = te * te;
+ phi = (float)exp(a[2] * te + a[3] * te2);
+ psi = (float)exp(a[4] * te + a[5] * te2);
+ if(idgaz == 1) rmpl[k] = alt.plane_sim.whpl[k] / (roair * 1000);
+ if(idgaz == 2) rmpl[k] = 3.3e-04f * roco2 / air;
+ if(idgaz == 3) rmpl[k] = 0.20947f * rmo2 / air;
+ if(idgaz == 4) rmpl[k] = alt.plane_sim.wopl[k] / (roair * 1000);
+ if(idgaz == 5) rmpl[k] = 310.e-09f * rmn2o / air;
+ if(idgaz == 6) rmpl[k] = 1.72e-06f * rmch4 / air;
+ if(idgaz == 7) rmpl[k] = 1.00e-09f * rmco / air;
+ r2pl[k] = rmpl[k] * phi;
+ r3pl[k] = rmpl[k] * psi;
+ }
+
+ uupl = 0;
+ upl = 0;
+ uppl = 0;
+
+ /* update ratio plane */
+ for(int i = 0; i < 10; i++) ratpl[i] = 1;
+
+ if (alt.idatmp == 8)
+ {
+ ratpl[0] = uwpl / uwusp;
+ ratpl[1] = 1;
+ ratpl[2] = 1;
+ ratpl[3] = uo3pl / uo3usp;
+ ratpl[4] = 1;
+ ratpl[5] = 1;
+ ratpl[6] = 1;
+ ratpl[7] = uwpl / uwusp;
+ ratpl[8] = uwpl / uwusp;
+ ratpl[9] = uwpl / uwusp;
+ }
+
+ /* pressure scale integration sigma = atms.p / p0 */
+ /* * all gases*/
+
+ for(k = 1; k < 33; k++)
+ {
+ ds = (alt.plane_sim.ppl[k-1] - alt.plane_sim.ppl[k]) / alt.plane_sim.ppl[0];
+ ds2 = (alt.plane_sim.ppl[k-1] * alt.plane_sim.ppl[k-1] -
+ alt.plane_sim.ppl[k] * alt.plane_sim.ppl[k]) /
+ (2 * alt.plane_sim.ppl[0] * p0);
+ uupl = uupl + ((rmpl[k] + rmpl[k-1]) / 2) * ds * ratpl[idgaz-1];
+ upl = upl + ((r2pl[k] + r2pl[k-1]) / 2) * ds * ratpl[idgaz-1];
+ uppl = uppl + ((r3pl[k] + r3pl[k-1]) / 2) * ds2 * ratpl[idgaz-1];
+ }
+
+ uupl = uupl * alt.plane_sim.ppl[0] * 100 / g;
+ upl = upl * alt.plane_sim.ppl[0] * 100 / g;
+ uppl = uppl * alt.plane_sim.ppl[0] * 100 / g;
+
+ if(idgaz == 4) uupl = 1000 * uupl / rmo3;
+ if(idgaz == 2) uupl = 1000 * uupl / roco2;
+ if(idgaz == 5) uupl = 1000 * uupl / rmn2o;
+ if(idgaz == 6) uupl = 1000 * uupl / rmch4;
+ if(idgaz == 7) uupl = 1000 * uupl / rmco;
+
+ } /* endif test atms.idatm = 0,4 */
+
+ /* downward path */
+ uud = uu / xmus;
+ /* upward path */
+ uuu = uupl / xmuv;
+ /* total(down + up) path */
+ uut = uu / xmus + uupl / xmuv;
+
+ if((idgaz == 2 && iv > 9620) || (idgaz == 3 && iv > 15920))
+ {
+ tnu[idgaz-1][0] = 1;
+ tnu[idgaz-1][1] = 1;
+ tnu[idgaz-1][2] = 1;
+ continue;
+ }
+
+ if(idgaz == 1 || idgaz == 4)
+ {
+ xi = 0;
+ n = 0;
+ xd = 0;
+ if(!(iv < 2350 || iv > 3000))
+
+ {
+ xi = (v - 2350) / 50 + 1;
+ nh = (int)(xi + 1.001f);
+ xh = xi - float(nh);
+ ah2o = cch2o[nh-1] + xh * (cch2o[nh-1]-cch2o[nh-2]);
+ dtcont = (float)exp(-ah2o * uud);
+ utcont = (float)exp(-ah2o * uuu);
+ ttcont = (float)exp(-ah2o * uut);
+ }
+
+ if (!((idgaz == 1) || (iv < 13000)))
+ {
+ if(iv <= 23400) xi = (v - 13000) / 200 + 1;
+ else if(iv >= 27500) xi = (v - 27500) / 500 + 57;
+ else
+ {
+ tnu[3][0] = 1;
+ tnu[3][1] = 1;
+ tnu[3][2] = 1;
+ break;
+ }
+
+ n = (int)(xi + 1.001);
+ xd = xi-float(n);
+ ako3 = co3[n-1] + xd * (co3[n-1] - co3[n-2]);
+ test1 = ako3 * uud;
+ test2 = ako3 * uuu;
+ test3 = ako3 * uut;
+
+ /* exponential overflow test */
+
+ if(test1 > 86.0) test1 = 86.0;
+ if(test2 > 86.0) test2 = 86.0;
+ if(test3 > 86.0) test3 = 86.0;
+
+ tnu[3][0] = (float)exp(-test1);
+ tnu[3][1] = (float)exp(-test2);
+ tnu[3][2] = (float)exp(-test3);
+
+ continue;
+ }
+ }
+
+ if(idgaz == 4 && iv > 3020) {
+ tnu[idgaz-1][0] = 1;
+ tnu[idgaz-1][1] = 1;
+ tnu[idgaz-1][2] = 1;
+ continue;
+ }
+
+ /* downward path */
+ ud = u / xmus;
+ upd = up / xmus;
+ udt = ud;
+ if(ud == 0 && upd == 0) udt = 1;
+ tn = a[1] * upd / (2 * udt);
+ atest = a[1];
+ if (a[1] == 0 && a[0] == 0.) atest = 1;
+ updt = upd;
+ if(ud == 0 && upd == 0.) updt = 1;
+ tt = 1 + 4 * (a[0] / atest) * ((ud * ud) / updt);
+ y = (float)(-tn * (sqrt(tt) - 1));
+ if(idgaz == 1) y = (float)(-a[0] * ud / sqrt(1 + (a[0] / atest) * (ud * ud / updt)));
+ tnu[idgaz-1][0] = (float)exp(y);
+
+
+ /* upward path modified to take account for plane content */
+ udp = upl / xmuv;
+ updp = uppl / xmuv;
+ udtp = udp;
+ if(udp == 0 && updp == 0.) udtp = 1;
+ tn = a[1] * updp / (2 * udtp);
+ atest = a[1];
+ if (a[1] == 0 && a[0] == 0.) atest = 1;
+ updtp = updp;
+ if(udp == 0 && updp == 0.) updtp = 1;
+ tt = 1 + 4 * (a[0] / atest) * ((udp * udp) / updtp);
+ y = (float)(-tn * (sqrt(tt) - 1));
+ if(idgaz == 1) y = (float)(-a[0] * udp / sqrt(1 + (a[0] / atest) * (udp * udp / updtp)));
+ tnu[idgaz-1][1] = (float)exp(y);
+
+ /* total(down + up) path modified on the way up */
+ ut = u / xmus + upl / xmuv;
+ upt = up / xmus + uppl / xmuv;
+ utt = ut;
+ if(ut == 0 && upt == 0.) utt = 1;
+ tn = a[1] * upt / (2 * utt);
+ uptt = upt;
+ if(ut == 0 && upt == 0.) uptt = 1;
+ tt = 1 + 4 * (a[0] / atest) * ((ut * ut) / uptt);
+ y = (float)(-tn * (sqrt(tt) - 1));
+ if(idgaz == 1) y = (float)(-a[0] * ut / sqrt(1 + (a[0] / atest) * (ut * ut / uptt)));
+ tnu[idgaz-1][2] = (float)exp(y);
+ }
+
+ ptest1 = tnu[0][0] * dtcont;
+ ptest = ptest1;
+ if (ptest > 1e-10) as.dtwava = (float)ptest;
+ else as.dtwava = 0;
+
+ ptest1 = tnu[0][1] * utcont;
+ ptest = ptest1;
+
+ if (ptest > 1e-10) as.utwava = (float)ptest;
+ else as.utwava = 0;
+
+ ptest1 = tnu[0][2] * ttcont;
+ ptest = ptest1;
+
+ if (ptest > 1e-10) as.ttwava = (float)ptest;
+ else as.ttwava = 0;
+
+ as.dtdica = tnu[1][0];
+ as.utdica = tnu[1][1];
+ as.ttdica = tnu[1][2];
+ as.dtoxyg = tnu[2][0];
+ as.utoxyg = tnu[2][1];
+ as.ttoxyg = tnu[2][2];
+ as.dtozon = tnu[3][0];
+ as.utozon = tnu[3][1];
+ as.ttozon = tnu[3][2];
+ as.dtniox = tnu[4][0];
+ as.utniox = tnu[4][1];
+ as.ttniox = tnu[4][2];
+ as.dtmeth = tnu[5][0];
+ as.utmeth = tnu[5][1];
+ as.ttmeth = tnu[5][2];
+ as.dtmoca = tnu[6][0];
+ as.utmoca = tnu[6][1];
+ as.ttmoca = tnu[6][2];
+
+ if (alt.idatmp == 0)
+ {
+ as.ttwava = as.dtwava;
+ as.utwava = 1;
+ as.ttdica = as.dtdica;
+ as.utdica = 1;
+ as.ttoxyg = as.dtoxyg;
+ as.utoxyg = 1;
+ as.ttozon = as.dtozon;
+ as.utozon = 1;
+ as.ttniox = as.dtniox;
+ as.utniox = 1;
+ as.ttmeth = as.dtmeth;
+ as.utmeth = 1;
+ as.ttmoca = as.dtmoca;
+ as.utmoca = 1;
+ }
+}
Copied: grass/trunk/imagery/i.atcorr/abstra.h (from rev 60762, grass/trunk/imagery/i.atcorr/Abstra.h)
===================================================================
--- grass/trunk/imagery/i.atcorr/abstra.h (rev 0)
+++ grass/trunk/imagery/i.atcorr/abstra.h 2014-06-09 09:12:09 UTC (rev 60763)
@@ -0,0 +1,44 @@
+#ifndef ABSTRA_H
+#define ABSTRA_H
+
+struct AbstraStruct
+{
+ float dtwava; /* downward absorption water vapor dtwava */
+ float dtozon; /* downward absorption ozone dtozon */
+ float dtdica; /* downward absorption carbon diox dtdica */
+ float dtoxyg; /* downward absorption oxygen dtoxyg */
+ float dtniox; /* downward absorption nitrous oxi dtniox */
+ float dtmeth; /* downward absorption methane dtmeth */
+ float dtmoca; /* downward absorption carbon mono dtmoca */
+ float utwava; /* upward absorption water vapor utwava */
+ float utozon; /* upward absorption ozone utozon */
+ float utdica; /* upward absorption carbon diox utdica */
+ float utoxyg; /* upward absorption oxygen utoxyg */
+ float utniox; /* upward absorption nitrous oxi utniox */
+ float utmeth; /* upward absorption methane utmeth */
+ float utmoca; /* upward absorption carbon mono utmoca */
+ float ttwava; /* total(on the two paths ) absorption water vapor ttwava */
+ float ttozon; /* total(on the two paths ) absorption ozone ttozon */
+ float ttdica; /* total(on the two paths ) absorption carbon diox ttdica */
+ float ttoxyg; /* total(on the two paths ) absorption oxygen ttoxyg */
+ float ttniox; /* total absorption nitrous oxi ttniox */
+ float ttmeth; /* total absorption methane ttmeth */
+ float ttmoca; /* total absorption carbon mono ttmoca */
+};
+
+struct AtmosModel;
+struct Altitude;
+
+/*
+To compute the gaseous transmittance between 0.25 and 4 mm for downward,
+upward and total paths. We consider the six gases (O2, CO2, H 2O, O3, N 2O and CH4) separately.
+The total transmission is put equal to the simple product of each ones. The spectral resolution is
+equal to 10 cm-1.
+iinf*/
+void abstra (const AtmosModel& atms, const Altitude& alt,
+ const float wl, const float xmus, const float xmuv,
+ const float uw, const float uo3, float& uwus, float& uo3us,
+ const float uwpl, const float uo3pl, const float uwusp,
+ const float uo3usp, AbstraStruct& as );
+
+#endif /* ABSTRA_H */
Copied: grass/trunk/imagery/i.atcorr/aerosolconcentration.cpp (from rev 60762, grass/trunk/imagery/i.atcorr/AerosolConcentration.cpp)
===================================================================
--- grass/trunk/imagery/i.atcorr/aerosolconcentration.cpp (rev 0)
+++ grass/trunk/imagery/i.atcorr/aerosolconcentration.cpp 2014-06-09 09:12:09 UTC (rev 60763)
@@ -0,0 +1,142 @@
+#include "aerosolconcentration.h"
+#include "atmosmodel.h"
+#include "common.h"
+
+/**********************************************************************c
+c aerosol model (concentration) c
+c ---------------------------- c
+c c
+c c
+c v if you have an estimate of the meteorological c
+c parameter: the visibility v, enter directly the c
+c value of v in km (the aerosol optical depth will c
+c be computed from a standard aerosol profile) c
+
+c c
+c v=0, taer55 if you have an estimate of aerosol optical depth , c
+c enter v=0 for the visibility and enter the aerosol c
+c optical depth at 550 c
+c c
+c v=-1 warning: if iaer=0, enter v=-1 c
+c c
+c**********************************************************************/
+void AerosolConcentration::parse(const long int _iaer, const AtmosModel& atms)
+{
+ iaer = _iaer;
+
+ taer55 = 0.f;
+ cin >> v;
+ cin.ignore(numeric_limits<int>::max(),'\n'); /* ignore comments */
+
+ if(v == 0)
+ {
+ cin >> taer55;
+ cin.ignore(numeric_limits<int>::max(),'\n'); /* ignore comments */
+ v = (float)(exp(-log(taer55/2.7628f)/0.79902f));
+ }
+ else if(v > 0) oda550(v, atms);
+}
+
+void AerosolConcentration::oda550(const float v, const AtmosModel& atms)
+{
+ /* aerosol optical depth at wl=550nm */
+ /* vertical repartition of aerosol density for v=23km */
+ /* ( in nbr of part/cm3 ) */
+ static const float an23[34] = {
+ 2.828e+03,1.244e+03,5.371e+02,2.256e+02,1.192e+02,
+ 8.987e+01,6.337e+01,5.890e+01,6.069e+01,5.818e+01,
+ 5.675e+01,5.317e+01,5.585e+01,5.156e+01,5.048e+01,
+ 4.744e+01,4.511e+01,4.458e+01,4.314e+01,3.634e+01,
+ 2.667e+01,1.933e+01,1.455e+01,1.113e+01,8.826e+00,
+ 7.429e+00,2.238e+00,5.890e-01,1.550e-01,4.082e-02,
+ 1.078e-02,5.550e-05,1.969e-08,0.000e+00
+ };
+
+
+ /* vertical repartition of aerosol density for v=5km */
+ /* ( in nbr of part/cm3 ) */
+ static const float an5[34] = {
+ 1.378e+04,5.030e+03,1.844e+03,6.731e+02,2.453e+02,
+ 8.987e+01,6.337e+01,5.890e+01,6.069e+01,5.818e+01,
+ 5.675e+01,5.317e+01,5.585e+01,5.156e+01,5.048e+01,
+ 4.744e+01,4.511e+01,4.458e+01,4.314e+01,3.634e+01,
+ 2.667e+01,1.933e+01,1.455e+01,1.113e+01,8.826e+00,
+ 7.429e+00,2.238e+00,5.890e-01,1.550e-01,4.082e-02,
+ 1.078e-02,5.550e-05,1.969e-08,0.000e+00
+ };
+
+ taer55 = 0;
+ if(fabs(v) <= 0) return;
+ if(iaer == 0) return;
+
+ for(int k = 0; k < 32; k++)
+ {
+ float dz = atms.z[k+1] - atms.z[k];
+ float az = (115.f / 18.f) * (an5[k] - an23[k]);
+ float az1 = (115.f / 18.f) * (an5[k+1] - an23[k+1]);
+
+ float bz = (5.f * an5[k] / 18.f) - (23.f * an23[k] / 18.f);
+ float bz1 = (5.f * an5[k+1] / 18.f) - (23.f * an23[k+1] / 18.f);
+
+ float bnz = az / v - bz;
+ float bnz1 = az1 / v - bz1;
+
+ float ev = (float)(dz * exp((log(bnz) + log(bnz1)) / 2));
+ taer55 += ev * sigma * 1.0e-03f;
+ }
+}
+
+void AerosolConcentration::print()
+{
+ /* --- aerosol model (concentration) ---- */
+ Output::Begin();
+ Output::End();
+ if(iaer == 0) return;
+
+ Output::Begin();
+ Output::Repeat(10, ' ');
+ Output::Print(" optical condition identity :");
+ Output::End();
+ if(fabs(v) <= xacc)
+ {
+ Output::Begin();
+ Output::Repeat(15, ' ');
+ Output::Print(" user def. opt. thick. at 550nm :");
+ ostringstream s;
+ s.setf(ios::fixed, ios::floatfield);
+ s << setprecision(4);
+ s << setw(11) << taer55 << ends;
+ Output::Print(s.str());
+ Output::End();
+ }
+ else
+ {
+ Output::Begin();
+ Output::Repeat(15, ' ');
+ Output::Print(" visibility :");
+ ostringstream s1;
+ s1.setf(ios::fixed, ios::floatfield);
+ s1 << setprecision(2);
+ s1 << setw(8) << v << ends;
+ Output::Print(s1.str());
+ Output::Print(" km opt. thick. 550nm :");
+ ostringstream s2;
+ s2.setf(ios::fixed, ios::floatfield);
+ s2 << setprecision(4);
+ s2 << setw(9) << taer55 << ends;
+ Output::Print(s2.str());
+ Output::End();
+ }
+
+ Output::Begin();
+ Output::End();
+}
+
+
+AerosolConcentration AerosolConcentration::Parse(const long int iaer, const AtmosModel& atms)
+{
+ AerosolConcentration aerocon;
+ aerocon.parse(iaer, atms);
+ return aerocon;
+}
+
Copied: grass/trunk/imagery/i.atcorr/aerosolconcentration.h (from rev 60762, grass/trunk/imagery/i.atcorr/AerosolConcentration.h)
===================================================================
--- grass/trunk/imagery/i.atcorr/aerosolconcentration.h (rev 0)
+++ grass/trunk/imagery/i.atcorr/aerosolconcentration.h 2014-06-09 09:12:09 UTC (rev 60763)
@@ -0,0 +1,51 @@
+/***************************************************************************
+ AerosolConcentration.h - description
+ -------------------
+ begin : Mon Jan 13 2003
+ copyright : (C) 2003 by Christo Zietsman
+ email : 13422863 at sun.ac.za
+ ***************************************************************************/
+
+#ifndef AEROSOLCONCENTRATION_H
+#define AEROSOLCONCENTRATION_H
+
+/**********************************************************************c
+c aerosol model (concentration) c
+c ---------------------------- c
+c c
+c c
+c v if you have an estimate of the meteorological c
+c parameter: the visibility v, enter directly the c
+c value of v in km (the aerosol optical depth will c
+c be computed from a standard aerosol profile) c
+
+c c
+c v=0, taer55 if you have an estimate of aerosol optical depth , c
+c enter v=0 for the visibility and enter the aerosol c
+c optical depth at 550 c
+c c
+c v=-1 warning: if iaer=0, enter v=-1 c
+c c
+c**********************************************************************/
+struct AtmosModel;
+
+struct AerosolConcentration
+{
+ /* aerosol concentration parameters */
+ float taer55;
+
+private:
+ long int iaer;
+ float v;
+ void parse(const long int iaer, const AtmosModel &atms);
+ void oda550(const float v, const AtmosModel &atms);
+
+public:
+ /* Set the visibility, this will overide any previous estimates of taer55 */
+ void set_visibility (const float vis, const AtmosModel &atms) { if(vis > 0) oda550(vis, atms); }
+ void print();
+ static AerosolConcentration Parse(const long int iaer, const AtmosModel &atms);
+};
+
+#endif /* AEROSOLCONCENTRATION_H */
+
Copied: grass/trunk/imagery/i.atcorr/aerosolmodel.cpp (from rev 60762, grass/trunk/imagery/i.atcorr/AerosolModel.cpp)
===================================================================
--- grass/trunk/imagery/i.atcorr/aerosolmodel.cpp (rev 0)
+++ grass/trunk/imagery/i.atcorr/aerosolmodel.cpp 2014-06-09 09:12:09 UTC (rev 60763)
@@ -0,0 +1,1169 @@
+extern "C" {
+#include <grass/gis.h>
+#include <grass/glocale.h>
+}
+
+#include "common.h"
+#include "aerosolmodel.h"
+#include "atmosmodel.h"
+#ifdef WIN32
+#pragma warning(disable:4305) /* disable warning about initialization of a float by a double */
+#endif /* WIN32 */
+
+/* (background desert model...) */
+void AerosolModel::bdm()
+{
+ sixs_aerbas.ph = &sixs_aerbas.bdm_ph;
+}
+
+/* (biomass burning model...) */
+void AerosolModel::bbm()
+{
+ sixs_aerbas.ph = &sixs_aerbas.bbm_ph;
+}
+
+/* (stratospherique aerosol model...) */
+void AerosolModel::stm()
+{
+ sixs_aerbas.ph = &sixs_aerbas.stm_ph;
+}
+
+/* dust model */
+void AerosolModel::dust()
+{
+ sixs_aerbas.ph = &(sixs_aerbas.dust_ph);
+}
+
+/* water model */
+void AerosolModel::wate()
+{
+ sixs_aerbas.ph = &(sixs_aerbas.wate_ph);
+}
+
+/* ocean model */
+void AerosolModel::ocea()
+{
+ sixs_aerbas.ph = &sixs_aerbas.ocea_ph;
+}
+
+/* soot model */
+void AerosolModel::soot()
+{
+ sixs_aerbas.ph = &sixs_aerbas.soot_ph;
+}
+
+/* (user defined model from size distribution) */
+/* To compute, using the scattering of electromagnetic waves by a homogeneous
+ isotropic sphere, the physical properties of particles whose sizes are
+ comparable to or larger than the wavelength, and to generate mixture of
+ dry particles. */
+void AerosolModel::mie(float (&ex)[4][10], float (&sc)[4][10], float (&asy)[4][10])
+{
+ double np[4];
+ double ext[10][4];
+ double sca[10][4];
+ double p1[10][4][83];
+
+ const double rmul = 0.99526231496887960135245539673954; /*rlogpas = 0.030; (10**rlogpas-1.D+00)*/
+
+ int i;
+ for(i = 0; i < mie_in.icp; i++)
+ {
+
+
+
+ np[i] = 0;
+ for(int j = 0; j < 10; j++)
+ {
+ ex[i][j] = 0;
+ sc[i][j] = 0;
+ ext[j][i] = 0;
+ sca[j][i] = 0;
+ for(int k = 0; k < 83; k++) p1[j][i][k] = 0;
+ }
+ }
+
+ double r;
+ double dr;
+ double nr = 0;
+ /* LOOPS ON THE NUMBER OF PARTICLE TYPE (4 max) */
+ for(i = 0; i < mie_in.icp; i++)
+ {
+ r = mie_in.rmin;
+ dr = r*rmul;
+
+ /* LOOPS ON THE RADIUS OF THE PARTICLE */
+ do {
+
+ /* call of the size distribution nr. For our computation, we need dn/dr for */
+ /* all functions except for sun-photometer inputs for which we need dV/dlog(r) */
+
+ switch(iaer-7)
+ {
+ case 1:
+ {
+ /* --- Mixture of particles (Log-Normal distribution functions, up to 5)*/
+ const double sqrt2PI = 2.506628274631000502415765284811;
+ const double ln10 = 2.3025850929940456840179914546844;
+ double log10_x2 = log10(mie_in.x2[i]);
+ double sq = log10(r/mie_in.x1[i])/log10_x2;
+ nr = exp(-0.5*sq*sq);
+ nr /= sqrt2PI * log10_x2 * ln10 * r;
+ break;
+ }
+ case 2:
+ {
+ /* --- Modified Gamma distribution function */
+ const double ldexp = -300.;
+ double arg=-mie_in.x2[i]*pow(r,(double)mie_in.x3[i]);
+ if(arg > ldexp) nr = pow(r,(double)mie_in.x1[i])*exp(arg);
+ else nr = 0;
+ break;
+ }
+ case 3:
+ {
+ /* --- Junge power-law function */
+ nr = pow(0.1,-(double)mie_in.x1[i]);
+ if(r > 0.1) nr = pow(r,-(double)mie_in.x1[i]);
+ break;
+ }
+ case 4:
+ {
+ /* --- from sun photometer */
+ nr = 0;
+ for(int j = 1; j < mie_in.irsunph; j++)
+ if((r-mie_in.rsunph[j]) < 0.000001)
+ {
+ nr = (r - mie_in.rsunph[j-1])/(mie_in.rsunph[j]-mie_in.rsunph[j-1]);
+ nr = mie_in.nrsunph[j-1] + nr*(mie_in.nrsunph[j] - mie_in.nrsunph[j-1]);
+ break;
+ }
+ }
+ }
+
+ /* The Mie's calculations have to be called several times (min=2, max=10 for
+ each type of particle): at wavelengths bounding the range of the selected
+ wavelengths,and at 0.550 microns to normalized the extinction coefficient
+ (if it's not in the selected range of wavelengths). */
+
+ double xndpr2 = nr * dr * M_PI * (r * r);
+ /* relatif number of particle for each type of particle (has to be equal to 1) */
+ np[i]+= nr * dr;
+
+ for(int j = 0; j < 10; j++)
+ {
+ if( (xndpr2*mie_in.cij[i]) < (1e-8 / sqrt(sixs_disc.wldis[j])) ) break;
+
+ double alpha = 2. * M_PI * r / sixs_disc.wldis[j];
+ double Qext, Qsca;
+ double p11[83];
+ exscphase(alpha, mie_in.rn[j][i], mie_in.ri[j][i], Qext, Qsca, p11);
+ ext[j][i] += xndpr2 * Qext;
+ sca[j][i] += xndpr2 * Qsca;
+
+ /* phase function for each type of particle */
+ for(int k = 0; k < 83; k++) p1[j][i][k] += p11[k]*xndpr2;
+ }
+
+ r += dr;
+ dr = r * rmul;
+ } while (r < mie_in.rmax);
+ }
+
+
+ /* NOW WE MIXTE THE DIFFERENT TYPES OF PARTICLE
+ computation of the scattering and extinction coefficients. We first start
+ at 0.550 micron (the extinction coefficient is normalized at 0.550 micron) */
+ int j;
+ for(j = 0; j < 10; j++)
+ for(int i = 0; i < mie_in.icp; i++)
+ {
+ ext[j][i] /= np[i] * 1000;
+ sca[j][i] /= np[i] * 1000;
+ ex[0][j] += (float)(mie_in.cij[i] * ext[j][i]);
+ sc[0][j] += (float)(mie_in.cij[i] * sca[j][i]);
+ }
+
+ /* computation of the phase function and the asymetry coefficient
+ of the mixture of particles */
+
+ for(j = 0; j < 10; j++)
+ {
+ double asy_n = 0;
+ double asy_d = 0;
+
+ for(int k = 0; k < 83; k++)
+ {
+ sixs_aerbas.usr_ph[j][k] = 0;
+ for(int i = 0; i < mie_in.icp; i++)
+ sixs_aerbas.usr_ph[j][k] += (float)(mie_in.cij[i] * p1[j][i][k] / np[i] / 1000);
+
+ sixs_aerbas.usr_ph[j][k] += (float)sc[0][j];
+ asy_n += sixs_sos.cgaus[k] * sixs_aerbas.usr_ph[j][k] * sixs_sos.pdgs[k] / 10.;
+ asy_d += sixs_aerbas.usr_ph[j][k] * sixs_sos.pdgs[k] / 10.;
+ }
+
+ asy[0][j] = (float)(asy_n / asy_d);
+ }
+
+ sixs_aerbas.ph = &sixs_aerbas.usr_ph;
+}
+
+/***************************************************************************
+ Using the Mie's theory, this subroutine compute the scattering and
+ extinction efficiency factors (usually written Qsca and Qext) and it also
+ compute the scattering intensity efficiency
+***************************************************************************/
+void AerosolModel::exscphase(const double X, const double nr,
+ const double ni, double& Qext,
+ double& Qsca, double (&p11)[83])
+{
+ double Ren=nr/(nr*nr+ni*ni);
+ double Imn=ni/(nr*nr+ni*ni);
+
+ /* ---Identification of the greater order of computation (=mu)
+ as defined by F.J. Corbato, J. Assoc. Computing Machinery, 1959,
+ 6, 366-375 */
+ int N=int(0.5*(-1+sqrt(1+4*X*X)))+1;
+ if (N == 1) N = 2;
+
+ int mu2 = 1000000;
+ double Up = 2 * X / (2 * N + 1);
+ int mu1 = int(N + 30. * (0.1 + 0.35 * Up * (2. - Up * Up) / 2 / (1 - Up)));
+ int Np = int(X - 0.5 * sqrt(30. * 0.35 * X));
+
+ if(Np > N)
+ {
+ Up = 2 * X / (2 * Np + 1);
+ mu2 = int(Np + 30. * (0.1 + 0.35 * Up * (2 - Up * Up)/ 2 / (1 - Up)));
+ }
+
+ int mu = (mu1 < mu2) ? mu1 : mu2; /* min(mu1, mu2) */
+
+ /* --- Identification of the transition line. Below this line the Bessel
+ function j behaves as oscillating functions. Above the behavior
+ becomes monotonic. We start at a order greater than this transition
+ line (order max=mu) because a downward recursion is called for. */
+
+ double Rn[10001], xj[10001];
+ int k = mu + 1;
+
+ Rn[mu] = 0;
+ int mub;
+ while(true)
+ {
+ k--;
+ xj[k] = 0;
+ Rn[k-1] = X / (2 * k + 1 - X * Rn[k]);
+
+ if ( k == 2)
+ {
+ xj[mu + 1] = 0;
+ xj[mu] = 1;
+ mub = mu;
+ break;
+ }
+
+ if(Rn[k-1] > 1)
+ {
+ xj[k] = Rn[k-1];
+ xj[k-1] = 1;
+ mub = k - 1;
+ break;
+ }
+ }
+
+ for(k = mub; k >= 1; k--) xj[k-1] = (2 * k + 1) * xj[k] / X - xj[k+1];
+ double coxj = xj[0] - X * xj[1] * cos(X) + X * xj[0] * sin(X);
+
+ /* --- Computation Dn(alpha) and Dn(alpha*m) (cf MIE's theory)
+ downward recursion - real and imaginary parts */
+
+ double RDnY[10001];
+ double IDnY[10001];
+ double RDnX[10001];
+ RDnY[mu] = 0;
+ IDnY[mu] = 0;
+ RDnX[mu] = 0;
+
+
+ for(k = mu; k >= 1; k--)
+ {
+ RDnX[k-1] = k / X - 1 / (RDnX[k] + k / X);
+ double XnumRDnY = RDnY[k] + Ren * k / X;
+ double XnumIDnY = IDnY[k] + Imn * k / X;
+ double XdenDnY = XnumRDnY * XnumRDnY + XnumIDnY * XnumIDnY;
+ RDnY[k-1] = k * Ren / X - XnumRDnY / XdenDnY;
+ IDnY[k-1] = k * Imn / X + XnumIDnY / XdenDnY;
+ }
+
+ /* --- Initialization of the upward recursions
+ macro to help keep indexing correct, can't be to safe */
+#define INDEX(X) ((X)+1)
+ double xy[10002];
+ xy[INDEX(-1)] = sin(X) / X;
+ xy[INDEX(0)] = -cos(X) / X;
+
+ double RGnX[10001];
+ double IGnX[10001];
+ RGnX[0] = 0;
+ IGnX[0] = -1;
+ Qsca = 0;
+ Qext = 0;
+
+ double RAn[10001];
+ double IAn[10001];
+ double RBn[10001];
+ double IBn[10001];
+
+ for(k = 1; k <= mu; k++)
+ {
+ if (k <= mub) xj[k] /= coxj;
+ else xj[k] = Rn[k-1] * xj[k-1];
+
+ /* --- Computation of bessel's function y(alpha) */
+ xy[INDEX(k)] = (2 * k - 1) * xy[INDEX(k-1)] / X - xy[INDEX(k-2)];
+ double xJonH = xj[k] / ( xj[k] * xj[k] + xy[INDEX(k)] * xy[INDEX(k)] );
+
+ /* --- Computation of Gn(alpha), Real and Imaginary part */
+ double XdenGNX = (RGnX[k-1] - k/X)*(RGnX[k-1] - k/X) + IGnX[k-1] * IGnX[k-1];
+ RGnX[k] = (k / X - RGnX[k-1])/XdenGNX - k / X;
+ IGnX[k] = IGnX[k-1] / XdenGNX;
+
+ /* --- Computation of An(alpha) and Bn(alpha), Real and Imaginary part */
+ double Xnum1An = RDnY[k] - nr * RDnX[k];
+ double Xnum2An = IDnY[k] + ni * RDnX[k];
+ double Xden1An = RDnY[k] - nr * RGnX[k] - ni * IGnX[k];
+ double Xden2An = IDnY[k] + ni * RGnX[k] - nr * IGnX[k];
+ double XdenAn = Xden1An * Xden1An + Xden2An * Xden2An;
+ double RAnb = (Xnum1An * Xden1An + Xnum2An * Xden2An) / XdenAn;
+ double IAnb = (-Xnum1An * Xden2An + Xnum2An * Xden1An) / XdenAn;
+ RAn[k] = xJonH * (xj[k] * RAnb - xy[INDEX(k)] * IAnb);
+ IAn[k] = xJonH * (xy[INDEX(k)] * RAnb + xj[k] * IAnb);
+
+ double Xnum1Bn = nr * RDnY[k] + ni * IDnY[k] - RDnX[k];
+ double Xnum2Bn = nr * IDnY[k] - ni * RDnY[k];
+ double Xden1Bn = nr * RDnY[k] + ni * IDnY[k] - RGnX[k];
+ double Xden2Bn = nr * IDnY[k] - ni * RDnY[k] - IGnX[k];
+ double XdenBn = Xden1Bn * Xden1Bn + Xden2Bn * Xden2Bn;
+ double RBnb = (Xnum1Bn * Xden1Bn + Xnum2Bn * Xden2Bn) / XdenBn;
+ double IBnb = (-Xnum1Bn * Xden2Bn + Xnum2Bn * Xden1Bn) / XdenBn;
+ RBn[k] = xJonH * (xj[k] * RBnb - xy[INDEX(k)] * IBnb);
+ IBn[k] = xJonH * (xy[INDEX(k)] * RBnb + xj[k] * IBnb);
+
+ /* ---Criterion on the recursion formulas as defined by D. Deirmendjian
+ et al., J. Opt. Soc. Am., 1961, 51, 6, 620-633 */
+ double temp = RAn[k] * RAn[k] + IAn[k] * IAn[k] + RBn[k] * RBn[k] + IBn[k] * IBn[k];
+ if((temp/k) < 1e-14)
+ {
+ mu = k;
+ break;
+ }
+
+ /* --- Computation of the scattering and extinction efficiency factor */
+ double xpond = 2 / X / X * (2 * k + 1);
+ Qsca = Qsca + xpond * temp;
+ Qext = Qext + xpond * (RAn[k] + RBn[k]);
+ }
+
+
+ /* --- Computation of the amplitude functions S1 and S2 (cf MIE's theory)
+ defined by PIn, TAUn, An and Bn with PIn and TAUn related to the
+ Legendre polynomials. */
+ for(int j = 0; j < 83; j++)
+ {
+ double RS1 = 0;
+ double RS2 = 0;
+ double IS1 = 0;
+ double IS2 = 0;
+ double PIn[10001];
+ double TAUn[10001];
+
+ PIn[0] = 0;
+ PIn[1] = 0;
+ TAUn[1] = sixs_sos.cgaus[j];
+
+ for(int k = 1; k <= mu; k++)
+ {
+ double co_n = (2 * k + 1) / k / (k + 1);
+ RS1 += co_n * (RAn[k] * PIn[k] + RBn[k] * TAUn[k]);
+ RS2 += co_n * (RAn[k] * TAUn[k] + RBn[k] * PIn[k]);
+ IS1 += co_n * (IAn[k] * PIn[k] + IBn[k] * TAUn[k]);
+ IS2 += co_n * (IAn[k] * TAUn[k] + IBn[k] * PIn[k]);
+
+ PIn[k+1] = ((2 * k + 1) * sixs_sos.cgaus[j] * PIn[k] - (k + 1) * PIn[k-1])/k;
+ TAUn[k+1] = (k + 1) * sixs_sos.cgaus[j] * PIn[k + 1] - (k + 2) * PIn[k];
+ }
+
+ /* --- Computation of the scattering intensity efficiency */
+ p11[j] = 2 * (RS1 *RS1 + IS1 * IS1 + RS2 * RS2 + IS2 * IS2)/X/X;
+ }
+}
+
+
+/* load parameters from .mie file */
+void AerosolModel::load()
+{
+ int i;
+ ifstream in(filename.c_str());
+ cin.ignore(numeric_limits<int>::max(),'\n'); /* ignore this line */
+
+ in.ignore(8);
+ for(i = 0; i < 10; i++)
+ {
+ in.ignore(3);
+ in >> sixs_aer.ext[i];
+ in.ignore(6);
+ in >> sca[i];
+ in.ignore(6);
+ in >> sixs_aer.ome[i];
+ in.ignore(6);
+ in >> sixs_aer.gasym[i];
+ in.ignore(3);
+ cin.ignore(numeric_limits<int>::max(),'\n'); /* ignore the rest */
+ }
+
+ /* ignore 3 lines */
+ cin.ignore(numeric_limits<int>::max(),'\n'); /* ignore this line */
+ cin.ignore(numeric_limits<int>::max(),'\n'); /* ignore this line */
+ cin.ignore(numeric_limits<int>::max(),'\n'); /* ignore this line */
+
+ for(i = 0; i < 83; i++)
+ {
+ in.ignore(8);
+ for(int j = 0; j < 10; j++)
+ {
+ in.ignore(1);
+ in >> sixs_sos.phasel[j][i];
+ }
+ cin.ignore(numeric_limits<int>::max(),'\n'); /* ignore the rest */
+ }
+}
+
+
+/* do we wish to save this? */
+void AerosolModel::save()
+{
+ ofstream out(filename.c_str());
+ /* output header */
+ out << " Wlgth Nor_Ext_Co Nor_Sca_Co Sg_Sca_Alb Asymm_Para Extinct_Co Scatter_Co" << endl;
+ int i;
+ for(i = 0; i < 10; i++)
+ {
+ out << setprecision(4); /* set the required precision */
+ out << " " << setw(10) << sixs_disc.wldis[0]
+ << " " << setw(10) << sixs_aer.ext[i]
+ << " " << setw(10) << sca[i]
+ << " " << setw(10) << sixs_aer.ome[i]
+ << " " << setw(10) << sixs_aer.gasym[i]
+ << " " << setw(10) << sixs_aer.ext[i]/nis
+ << " " << setw(10) << sca[i]/nis << endl;
+ }
+
+ out << endl << endl << setw(20) << " " << " Phase Function " << endl;
+ out << " TETA ";
+ for(i = 0; i < 10; i++) out << " " << setw(10) << sixs_disc.wldis[i] << " ";
+ out << endl;
+
+ for(i = 0; i < 83; i++)
+ {
+ out << setprecision(2);
+ out << " " << setw(8) << (180.*acos(sixs_sos.cgaus[i])/M_PI);
+
+ out << setprecision(4);
+ out.setf(ios::scientific, ios::floatfield);
+ for(int j = 0; j < 10; j++) out << " " << setw(14) << sixs_sos.phasel[j][i];
+ out.setf(ios::fixed, ios::floatfield);
+ out << endl;
+ }
+}
+
+
+/*
+ To compute the optical scattering parameters (extinction and scattering
+ coefficients, single scattering albedo, phase function, assymetry factor) at the ten discrete
+ wavelengths for the selected model (or created model) from:
+ (1) the characteristics of the basic components of the International Radiation Commission.
+ (1983).
+ dust-like component (D.L., SUBROUTINE DUST)
+ oceanic component (O.C., SUBROUTINE OCEA)
+ water-soluble component (W.S., SUBROUTINE WATE)
+ soot component (S.O., SUBROUTINE SOOT)
+ (2) pre-computed caracteristics,
+ now available are the desertic aerosol model corresponding to background conditions, as
+ described in Shettle(1984), a stratospheric aerosol model as measured Mona Loa (Hawaii)
+ during El Chichon eruption and as described by King et al. (1984), and a biomass burning
+ aerosol model as deduced from measurements taken by sunphotometers in Amazonia.
+ (SUBROUTINES BDM, STM and BBM)
+ (3) computed using the MIE theory with inputs (size distribution, refractive indexes...) given
+ by the user (see SUBROUTINES MIE and EXSCPHASE).
+ These models don't correspond to a mixture of the four basic components.
+*/
+void AerosolModel::aeroso(const float xmud)
+{
+/* sra basic components for aerosol model, extinction coefficients are */
+/* in km-1. */
+/* dust-like = 1 */
+/* water-soluble = 2 */
+/* oceanique = 3 */
+/* soot = 4 */
+ static const double vi[4] = { 113.983516, 1.13983516e-4, 5.1444150196, 5.977353425e-5 };
+ static const double ni[4] = { 54.734, 1868550., 276.05, 1805820. };
+
+ /* i: 1=dust-like 2=water-soluble 3=oceanic 4=soot */
+ static const float s_ex[4][10] =
+ {
+ {0.1796674e-01,0.1815135e-01,0.1820247e-01,0.1827016e-01,0.1842182e-01,
+ 0.1853081e-01,0.1881427e-01,0.1974608e-01,0.1910712e-01,0.1876025e-01},
+ {0.7653460e-06,0.6158538e-06,0.5793444e-06,0.5351736e-06,0.4480091e-06,
+ 0.3971033e-06,0.2900993e-06,0.1161433e-06,0.3975192e-07,0.1338443e-07},
+ {0.3499458e-02,0.3574996e-02,0.3596592e-02,0.3622467e-02,0.3676341e-02,
+ 0.3708866e-02,0.3770822e-02,0.3692255e-02,0.3267943e-02,0.2801670e-02},
+ {0.8609083e-06,0.6590103e-06,0.6145787e-06,0.5537643e-06,0.4503008e-06,
+ 0.3966041e-06,0.2965532e-06,0.1493927e-06,0.1017134e-06,0.6065031e-07}
+ };
+
+ static const float s_sc[4][10] =
+ {
+ {0.1126647e-01,0.1168918e-01,0.1180978e-01,0.1196792e-01,0.1232056e-01,
+ 0.1256952e-01,0.1319347e-01,0.1520712e-01,0.1531952e-01,0.1546761e-01},
+ {0.7377123e-06,0.5939413e-06,0.5587120e-06,0.5125148e-06,0.4289210e-06,
+ 0.3772760e-06,0.2648252e-06,0.9331806e-07,0.3345499e-07,0.1201109e-07},
+ {0.3499455e-02,0.3574993e-02,0.3596591e-02,0.3622465e-02,0.3676338e-02,
+ 0.3708858e-02,0.3770696e-02,0.3677038e-02,0.3233194e-02,0.2728013e-02},
+ {0.2299196e-06,0.1519321e-06,0.1350890e-06,0.1155423e-06,0.8200095e-07,
+ 0.6469735e-07,0.3610638e-07,0.6227224e-08,0.1779378e-08,0.3050002e-09}
+ };
+
+ static const float ex2[10] =
+ {
+ 43.83631f, 42.12415f, 41.57425f, 40.85399f, 39.1404f,
+ 37.89763f, 34.67506f, 24.59f, 17.96726f, 10.57569f
+ };
+
+ static const float sc2[10] =
+ {
+ 40.28625f, 39.04473f, 38.6147f, 38.03645f, 36.61054f,
+ 35.54456f, 32.69951f, 23.41019f, 17.15375f,10.09731f
+ };
+
+ static const float ex3[10] =
+ {
+ 95397.86f, 75303.6f, 70210.64f, 64218.28f, 52430.56f,
+ 45577.68f, 31937.77f, 9637.68f, 3610.691f, 810.5614f
+ };
+
+ static const float sc3[10] =
+ {
+ 92977.9f, 73397.17f, 68425.49f, 62571.8f, 51049.87f,
+ 44348.77f, 31006.21f, 9202.678f, 3344.476f, 664.1915f
+ };
+
+ static const float ex4[10] =
+ {
+ 54273040.f, 61981440.f, 63024320.f, 63489470.f, 61467600.f,
+ 58179720.f, 46689090.f, 15190620.f, 5133055.f, 899859.4f
+ };
+
+
+ static const float sc4[10] =
+ {
+ 54273040.f, 61981440.f, 63024320.f, 63489470.f, 61467600.f,
+ 58179720.f, 46689090.f, 15190620.f, 5133055.f, 899859.4f
+ };
+
+ static const float s_asy[4][10] =
+ {
+ {0.896,0.885,0.880,0.877,0.867,0.860,0.845,0.836,0.905,0.871},
+ {0.642,0.633,0.631,0.628,0.621,0.616,0.610,0.572,0.562,0.495},
+ {0.795,0.790,0.788,0.781,0.783,0.782,0.778,0.783,0.797,0.750},
+ {0.397,0.359,0.348,0.337,0.311,0.294,0.253,0.154,0.103,0.055}
+ };
+
+ static const float asy2[10] = { .718f, .712f, .71f, .708f, .704f, .702f, .696f, .68f, .668f, .649f };
+
+ static const float asy3[10] = { .704f, .69f, .686f, .68f, .667f, .659f, .637f, .541f, .437f, .241f };
+ static const float asy4[10] = { .705f, .744f, .751f, .757f, .762f, .759f, .737f, .586f, .372f, .139f };
+
+ /* local */
+ double coef;
+ float sigm;
+ double sumni;
+ double dd[4][10];
+ double pha[5][10][83];
+
+ float ex[4][10];
+ float sc[4][10];
+ float asy[4][10];
+
+ int i; /* crappy VS6 */
+ /* initialize ex, sc & asy */
+ for(i = 0; i < 4; i++)
+ {
+ int j;
+ for(j = 0; j < 10; j++) ex[i][j] = s_ex[i][j];
+ for(j = 0; j < 10; j++) sc[i][j] = s_sc[i][j];
+ for(j = 0; j < 10; j++) asy[i][j] = s_asy[i][j];
+ }
+
+ /* optical properties of aerosol model computed from sra basic comp */
+ for (i = 0; i < 10; ++i)
+ {
+ if(i == 4 && iaer == 0) sixs_aer.ext[i] = 1.f;
+ else sixs_aer.ext[i] = 0.f;
+ sca[i] = 0.f;
+ sixs_aer.ome[i] = 0.f;
+ sixs_aer.gasym[i] = 0.f;
+ sixs_aer.phase[i] = 0.f;
+
+ for (int k = 1; k <= 83; ++k) sixs_sos.phasel[i][k] = 0.f;
+ }
+
+ /* return if iear = 0 */
+ if(iaer == 0) return;
+
+ /* look for an interval in cgaus */
+ long int j1 = -1;
+ for (i = 0; i < 82; ++i)
+ if (xmud >= sixs_sos.cgaus[i] && xmud < sixs_sos.cgaus[i+1]) { j1 = i; break; }
+ if(j1 == -1) return; /* unable to find interval */
+
+ coef = -(xmud - sixs_sos.cgaus[j1]) / (sixs_sos.cgaus[j1+1] - sixs_sos.cgaus[j1]);
+
+ switch(iaer)
+ {
+ case 12: /* read from file */
+ {
+ load();
+ for(i = 0; i < 10; i++)
+ sixs_aer.phase[i] = (float)(sixs_sos.phasel[i][j1] +
+ coef*(sixs_sos.phasel[i][j1]-sixs_sos.phasel[i][j1+1]));
+ return;
+ }
+ case 5:
+ {
+ for(i = 0; i < 10; i++)
+ {
+ asy[0][i] = asy2[i];
+ ex[0][i] = ex2[i];
+ sc[0][i] = sc2[i];
+ }
+ break;
+ }
+ case 6:
+ {
+ for(i = 0; i < 10; i++)
+ {
+ asy[0][i] = asy3[i];
+ ex[0][i] = ex3[i];
+ sc[0][i] = sc3[i];
+ }
+ break;
+ }
+ case 7:
+ {
+ for(i = 0; i < 10; i++)
+ {
+ asy[0][i] = asy4[i];
+ ex[0][i] = ex4[i];
+ sc[0][i] = sc4[i];
+ }
+ break;
+ }
+ default:;
+ }
+
+
+ if(iaer >= 5 && iaer <= 11)
+ {
+ /* calling a special aerosol model */
+
+ switch(iaer)
+ {
+ /* (background desert model...) */
+ case 5: bdm(); break;
+ /* (biomass burning model...) */
+ case 6: bbm(); break;
+ /* (stratospherique aerosol model...) */
+ case 7: stm(); break;
+
+ /* (user defined model from size distribution) */
+ case 8:
+ case 9:
+ case 10:
+ case 11: mie (ex, sc, asy); break;
+ }
+
+ for (int i = 0; i < 10; i++)
+ {
+ dd[0][i] = (*sixs_aerbas.ph)[i][j1] + coef * ((*sixs_aerbas.ph)[i][j1] - (*sixs_aerbas.ph)[i][j1+1]);
+ for(int k = 0; k < 83; k++) pha[0][i][k] = (*sixs_aerbas.ph)[i][k];
+ }
+
+ mie_in.icp = 1;
+ mie_in.cij[0] = 1.f;
+ /* for normalization of the extinction coefficient */
+ nis = 1. / ex[0][3];
+ }
+ else {
+ /* calling each sra components */
+ mie_in.icp = 4;
+ /* -dust */
+ dust();
+ for(i = 0; i < 10; i++)
+ {
+ dd[0][i] = (*sixs_aerbas.ph)[i][j1] + coef * ((*sixs_aerbas.ph)[i][j1] - (*sixs_aerbas.ph)[i][j1+1]);
+ for(int k = 0; k < 83; k++) pha[0][i][k] = ((*sixs_aerbas.ph))[i][k];
+ }
+
+ /* -water soluble */
+ wate();
+ for(i = 0; i < 10; i++)
+ {
+ dd[1][i] = (*sixs_aerbas.ph)[i][j1]+coef*((*sixs_aerbas.ph)[i][j1]-(*sixs_aerbas.ph)[i][j1+1]);
+ for(int k = 0; k < 83; k++) pha[1][i][k] = (*sixs_aerbas.ph)[i][k];
+ }
+
+
+ /* -oceanic type */
+ ocea();
+ for(i = 0; i < 10; i++)
+ {
+ dd[2][i] = (*sixs_aerbas.ph)[i][j1]+coef*((*sixs_aerbas.ph)[i][j1]-(*sixs_aerbas.ph)[i][j1+1]);
+ for(int k = 0; k < 83; k++) pha[2][i][k] = (*sixs_aerbas.ph)[i][k];
+ }
+
+ /* -soot */
+ soot();
+ for(i = 0; i < 10; i++)
+ {
+ dd[3][i] = (*sixs_aerbas.ph)[i][j1]+coef*((*sixs_aerbas.ph)[i][j1]-(*sixs_aerbas.ph)[i][j1+1]);
+ for(int k = 0; k < 83; k++) pha[3][i][k] = (*sixs_aerbas.ph)[i][k];
+ }
+
+ /* summ of the c/vi calculation */
+ sumni = 0.f;
+ sigm = 0.f;
+
+ for(i = 0; i < 4; i++) sigm+=(float)(c[i]/vi[i]);
+
+ /* cij coefficients calculation */
+ for(i = 0; i < 4; i++) {
+ mie_in.cij[i] = (float)(c[i]/vi[i]/sigm);
+ sumni += mie_in.cij[i]/ni[i];
+ }
+
+ nis = 1. / sumni;
+ }
+
+
+ /* mixing parameters calculation */
+ for(i = 0; i < 10; i++)
+ {
+ for(int j = 0; j < mie_in.icp; j++)
+ {
+ sixs_aer.ext[i] += (float)(ex[j][i] * mie_in.cij[j]);
+ sca[i] += (float)(sc[j][i] * mie_in.cij[j]);
+ sixs_aer.gasym[i] += (float)(sc[j][i] * mie_in.cij[j] * asy[j][i]);
+ sixs_aer.phase[i] += (float)(sc[j][i] * mie_in.cij[j] * dd[j][i]);
+
+ for(int k = 0; k < 83; k++)
+ sixs_sos.phasel[i][k] += (float)(sc[j][i] * mie_in.cij[j] * pha[j][i][k]);
+ }
+
+ sixs_aer.ome[i] = sca[i]/sixs_aer.ext[i];
+ sixs_aer.gasym[i] /= sca[i];
+ sixs_aer.phase[i] /= sca[i];
+
+ for(int k = 0; k < 83; k++) sixs_sos.phasel[i][k] /= sca[i];
+
+ sixs_aer.ext[i] *= (float)nis;
+ sca[i] *= (float)nis;
+ }
+
+ if (filename.size() != 0 && iaer >= 8 && iaer <= 11) save();
+}
+
+void AerosolModel::parse(const float xmud)
+{
+ cin >> iaer;
+ cin.ignore(numeric_limits<int>::max(),'\n');
+
+ /* initialize vars; */
+ mie_in.rmin = 0.f;
+ mie_in.rmax = 0.f;
+ mie_in.icp = 1;
+
+ int i;
+ for(i = 0; i < 4; i++)
+ {
+ mie_in.cij[i] = 0.f;
+
+ mie_in.x1[i] = 0.f;
+ mie_in.x2[i] = 0.f;
+ mie_in.x3[i] = 0.f;
+
+ for(int j = 0; j < 10; j++)
+ {
+ mie_in.rn[j][i] = 0.f;
+ mie_in.ri[j][i] = 0.f;
+ }
+ }
+
+ for(i = 0; i < 50; i++)
+ {
+ mie_in.rsunph[i] = 0.f;
+ mie_in.nrsunph[i] = 0.f;
+ }
+ mie_in.cij[0] = 1.00f;
+
+ switch (iaer)
+ {
+ case 0:
+ case 5:
+ case 6:
+ case 7: break; /* do nothing */
+
+ case 1:
+ {
+ c[0]=0.70f;
+ c[1]=0.29f;
+ c[2]=0.00f;
+ c[3]=0.01f;
+ break;
+ }
+ case 2:
+ {
+ c[0]=0.00f;
+ c[1]=0.05f;
+ c[2]=0.95f;
+ c[3]=0.00f;
+ break;
+ }
+ case 3:
+ {
+ c[0]=0.17f;
+ c[1]=0.61f;
+ c[2]=0.00f;
+ c[3]=0.22f;
+ break;
+ }
+ case 4:
+ {
+ for(int i = 0; i < 4; i++) cin >> c[i];
+ cin.ignore(numeric_limits<int>::max(),'\n');
+ break;
+ }
+ case 8:
+ {
+ cin >> mie_in.rmin;
+ cin >> mie_in.rmax;
+ cin >> mie_in.icp;
+ cin.ignore(numeric_limits<int>::max(),'\n');
+
+ if(mie_in.icp >= 4) {
+ G_fatal_error(_("mie_in.icp: %ld > 4, will cause internal buffer overflow"), mie_in.icp);
+ }
+
+ for(int i = 0; i < mie_in.icp; i++)
+ {
+ cin >> mie_in.x1[i];
+ cin >> mie_in.x2[i];
+ cin >> mie_in.cij[i];
+ cin.ignore(numeric_limits<int>::max(),'\n');
+
+ int j;
+ for(j = 0; j < 10; j++) cin >> mie_in.rn[j][i];
+ cin.ignore(numeric_limits<int>::max(),'\n');
+
+ for(j = 0; j < 10; j++) cin >> mie_in.ri[j][i];
+ cin.ignore(numeric_limits<int>::max(),'\n');
+ }
+ break;
+ }
+ case 9:
+ {
+ cin >> mie_in.rmin;
+ cin >> mie_in.rmax;
+ cin.ignore(numeric_limits<int>::max(),'\n');
+
+ cin >> mie_in.x1[0];
+ cin >> mie_in.x2[0];
+ cin >> mie_in.x3[0];
+ cin.ignore(numeric_limits<int>::max(),'\n');
+
+ int j;
+ for(j = 0; j < 10; j++) cin >> mie_in.rn[j][0];
+ cin.ignore(numeric_limits<int>::max(),'\n');
+
+
+ for(j = 0; j < 10; j++) cin >> mie_in.ri[j][0];
+ cin.ignore(numeric_limits<int>::max(),'\n');
+
+ break;
+ }
+ case 10:
+ {
+ cin >> mie_in.rmin;
+ cin >> mie_in.rmax;
+ cin.ignore(numeric_limits<int>::max(),'\n');
+
+ cin >> mie_in.x1[0];
+ cin.ignore(numeric_limits<int>::max(),'\n');
+
+ int j;
+ for(j = 0; j < 10; j++) cin >> mie_in.rn[j][0];
+ cin.ignore(numeric_limits<int>::max(),'\n');
+
+ for(j = 0; j < 10; j++) cin >> mie_in.ri[j][0];
+ cin.ignore(numeric_limits<int>::max(),'\n');
+
+ break;
+ }
+ case 11:
+ {
+ cin >> mie_in.irsunph;
+ cin.ignore(numeric_limits<int>::max(),'\n');
+
+ if(mie_in.irsunph >= 50) {
+ G_fatal_error(_("mie_in.irsunph: %ld > 50, will cause internal buffer overflow"), mie_in.irsunph);
+ }
+
+ int i;
+ for(i = 0; i < mie_in.irsunph; i++)
+ {
+ cin >> mie_in.rsunph[i];
+ cin >> mie_in.nrsunph[i];
+ cin.ignore(numeric_limits<int>::max(),'\n');
+
+ double sq = mie_in.rsunph[i]*mie_in.rsunph[i];
+ const double ln10 = 2.3025850929940456840179914546844;
+ mie_in.nrsunph[i] = (float)(mie_in.nrsunph[i]/(sq*sq)/ln10);
+ }
+ mie_in.rmin=mie_in.rsunph[0];
+ mie_in.rmax=mie_in.rsunph[mie_in.irsunph-1]+1e-07f;
+
+ for(i = 0; i < 10; i++) cin >> mie_in.rn[i][0];
+ cin.ignore(numeric_limits<int>::max(),'\n');
+
+ for(i = 0; i < 10; i++) cin >> mie_in.ri[i][0];
+ cin.ignore(numeric_limits<int>::max(),'\n');
+ break;
+ }
+ case 12:
+ { /* read file name */
+ getline(cin,filename);
+ filename = filename.substr(0, filename.find(" "));
+ break;
+ }
+ default: G_warning(_("Unknown aerosol model!"));
+ }
+
+ if(iaer >= 8 && iaer <= 11)
+ {
+ cin >> iaerp;
+ if( iaerp == 1 ) /* read file name */
+ {
+ getline(cin,filename);
+ filename = filename.substr(0, filename.find(" "));
+ filename += ".mie";
+ }
+ }
+
+ aeroso(xmud);
+}
+
+/* format 132 */
+void AerosolModel::print132(string s)
+{
+ Output::Begin();
+ Output::Repeat(15, ' ');
+ Output::Print(s);
+ Output::Print(" aerosols model");
+ Output::End();
+}
+
+/* --- aerosols model ---- */
+void AerosolModel::print()
+{
+ /* --- aerosols model (type) ---- */
+ Output::Begin();
+ Output::Repeat(10, ' ');
+ Output::Print(" aerosols type identity :");
+ Output::End();
+
+ if(iaer == 4 || (iaer >= 8 && iaer != 11))
+ {
+ Output::Begin();
+ Output::Repeat(15, ' ');
+ Output::Print(" user defined aerosols model ");
+ Output::End();
+ }
+
+ switch(iaer)
+ {
+ case 0:
+ {
+ Output::Begin();
+ Output::Repeat(15, ' ');
+ Output::Print(" no aerosols computed ");
+ Output::End();
+ break;
+ }
+ case 1: print132(" Continental"); break;
+ case 2: print132(" Maritime"); break;
+ case 3: print132(" Urban"); break;
+ case 4:
+ {
+ static const string desc[4] = {
+ string(" % of dust-like"),
+ string(" % of water-soluble"),
+ string(" % of oceanic"),
+ string(" % of soot")
+ };
+
+ for(int i = 0; i < 4; i++)
+ {
+ Output::Begin();
+ Output::Repeat(26, ' ');
+ ostringstream s;
+ s.setf(ios::fixed, ios::floatfield);
+ s << setprecision(3);
+ s << c[i] << desc[i] << ends;
+ Output::Print(s.str());
+ Output::End();
+ }
+ break;
+ }
+ case 5: print132(" Desertic"); break;
+ case 6: print132(" Smoke"); break;
+ case 7: print132(" Stratospheric"); break;
+ case 8:
+ {
+ Output::Begin();
+ Output::Repeat(15, ' ');
+ ostringstream s;
+ s << "using " << mie_in.icp << " Log-normal size-distribution(s)" << ends;
+ Output::Print(s.str());
+ Output::End();
+
+ Output::Begin();
+ Output::Repeat(15, ' ');
+ Output::Print("Mean radius Stand. Dev. Percent. dencity");
+ Output::End();
+
+ for(int i = 0; i < mie_in.icp; i++)
+ {
+ Output::Begin();
+ Output::Position(41);
+ ostringstream s1;
+ s1.setf(ios::fixed, ios::floatfield);
+ s1 << setprecision(4);
+ s1 << setw(10) << mie_in.x1[i] << ends;
+ Output::Print(s1.str());
+
+ Output::Position(55);
+ ostringstream s2;
+ s2.setf(ios::fixed, ios::floatfield);
+ s2 << setprecision(3);
+ s2 << setw(8) << mie_in.x2[i] << ends;
+ Output::Print(s2.str());
+
+ Output::Position(69);
+ ostringstream s3;
+ s3.setf(ios::fixed, ios::floatfield);
+ s3 << setprecision(3);
+ s3 << setw(11) << mie_in.cij[i] << ends;
+ Output::Print(s3.str());
+
+ Output::End();
+ }
+ break;
+ }
+ case 9:
+ {
+ Output::Begin();
+ Output::Repeat(15, ' ');
+ Output::Print("using a Modified Gamma size-distribution");
+ Output::End();
+
+ Output::Begin();
+ Output::Repeat(19, ' ');
+ Output::Print("Alpha b Gamma");
+ Output::End();
+
+ Output::Begin();
+ Output::Position(20);
+ ostringstream s1;
+ s1.setf(ios::fixed, ios::floatfield);
+ s1 << setprecision(3);
+ s1 << setw(9) << mie_in.x1[0] << ends;
+ Output::Print(s1.str());
+
+ Output::Position(31);
+ ostringstream s2;
+ s2.setf(ios::fixed, ios::floatfield);
+ s2 << setprecision(3);
+ s2 << setw(9) << mie_in.x2[0] << ends;
+ Output::Print(s2.str());
+
+ Output::Position(47);
+ ostringstream s3;
+ s3.setf(ios::fixed, ios::floatfield);
+ s3 << setprecision(3);
+ s3 << setw(9) << mie_in.x3[0] << ends;
+ Output::Print(s3.str());
+
+ Output::End();
+ break;
+ }
+ case 10:
+ {
+ Output::Begin();
+ Output::Repeat(15, ' ');
+ Output::Print("using a Power law size-distribution with alpha=");
+ ostringstream s;
+ s.setf(ios::fixed, ios::floatfield);
+ s << setprecision(1);
+ s << setw(4) << mie_in.x1[0] << ends;
+ Output::Print(s.str());
+ Output::End();
+
+ break;
+ }
+ case 11: print132(" Sun Photometer"); break;
+ case 12:
+ {
+ Output::Begin();
+ Output::Repeat(15, ' ');
+ Output::Print("using data from the file:");
+ Output::End();
+
+ Output::Begin();
+ Output::Position(25);
+ Output::Print(filename);
+ Output::End();
+ }
+ }
+
+ if(iaer > 7 && iaerp == 1)
+ {
+ Output::Begin();
+ Output::Repeat(15, ' ');
+ Output::Print(" results saved into the file:");
+ Output::End();
+
+ Output::Begin();
+ Output::Position(25);
+ Output::Print(filename);
+ Output::End();
+ }
+}
+
+AerosolModel AerosolModel::Parse(const float xmud)
+{
+ AerosolModel aero;
+ aero.parse(xmud);
+ return aero;
+}
+
Copied: grass/trunk/imagery/i.atcorr/aerosolmodel.h (from rev 60762, grass/trunk/imagery/i.atcorr/AerosolModel.h)
===================================================================
--- grass/trunk/imagery/i.atcorr/aerosolmodel.h (rev 0)
+++ grass/trunk/imagery/i.atcorr/aerosolmodel.h 2014-06-09 09:12:09 UTC (rev 60763)
@@ -0,0 +1,145 @@
+#ifndef AEROSOL_MODEL_H
+#define AEROSOL_MODEL_H
+
+/* **********************************************************************c */
+/* c */
+/* iaer aerosol model(type) c */
+/* -------------- c */
+/* c */
+/* c */
+/* you select one of the following standard aerosol models: c */
+/* 0 no aerosols c */
+/* 1 continental model ) c */
+/* 2 maritime model ) according to sra models c */
+/* 3 urban model ) c */
+/* 5 shettle model for background desert aerosol c */
+/* 6 biomass burning c */
+/* 7 stratospheric model c */
+/* c */
+/* or you define your own model using basic components: iaer=4 c */
+/* 4 enter the volumic percentage of each component c */
+/* c(1) = volumic % of dust-like c */
+/* c(2) = volumic % of water-soluble c */
+/* c(3) = volumic % of oceanic c */
+/* c(4) = volumic % of soot c */
+/* between 0 to 1 c */
+/* c */
+/* or you define your own model using size distribution function: c */
+/* 8 Multimodal Log Normal distribution (up to 4 modes) c */
+/* 9 Modified gamma distribution c */
+/* 10 Junge Power-Law distribution c */
+/* c */
+/* or you define a model using sun-photometer measurements: c */
+/* 11 Sun Photometer distribution (50 values max) c */
+/* you have to enter: r and d V / d (logr) c */
+/* where r is the radius (in micron) and V the volume c */
+/* and d V / d (logr) in (cm3/cm2/micron) c */
+/* and then you have to enter: nr and ni for each wavelengthc */
+/* where nr and ni are respectively the real and c */
+/* imaginary part of the refractive index c */
+/* c */
+/* or you can use results computed and previously saved c */
+/* 12 Reading of data previously saved into FILE c */
+/* you have to enter the identification name FILE in the c */
+/* next line of inputs. c */
+/* c */
+/* c */
+/* iaerp and FILE aerosol model(type)-Printing of results c */
+/* --------------------------------------- c */
+/* c */
+/* For iaer=8,9,10,and 11: c */
+/* results from the MIE subroutine may be saved into the file c */
+/* FILE.mie (Extinction and scattering coefficients, single c */
+/* scattering albedo, Asymmetry parameter, phase function at c */
+/* predefined wavelengths) and then can be re-used with the c */
+/* option iaer=12 where FILE is an identification name you c */
+/* have to enter. c */
+/* c */
+/* So, if you select iaer=8,9,10,or 11, next line following the c */
+/* requested inputs by the options 8,9,10, or 11 you have to enter c */
+/* iaerp c */
+/* c */
+/* iaerp=0 results will not be saved c */
+/* iaerp=1 results will be saved into the file FILE.mie c */
+/* next line enter FILE c */
+/* c */
+/* c */
+/* example for iaer and iaerp c */
+/* 8 Multimodal Log-Normale distribution selected c */
+/* 0.0001 100.0 3 Rmin, Rmax, 3 components c */
+/* 0.5000 2.99 1.66E-7 Rmean, Sigma, percentage density-1st componentc */
+/* 1.53 1.53 1.53 1.53 1.53 1.53 1.52 1.40 1.22 1.27 nr-10 wavelengths c */
+/* .008 .008 .008 .008 .008 .008 .008 .008 .009 .011 ni-10 wavelengths c */
+/* 0.0050 2.99 0.5945 Rmean, Sigma, percentage density-2nd componentc */
+/* 1.53 1.53 1.53 1.53 1.53 1.53 1.52 1.51 1.42 1.452 nr-10 wavelengths c */
+/* .005 .005 .005 .005 .006 .007 .012 .023 .010 .004 ni-10 wavelengths c */
+/* 0.0118 2.00 0.4055 Rmean, Sigma, percentage density-3rd componentc */
+/* 1.75 1.75 1.75 1.75 1.75 1.75 1.75 1.77 1.81 1.90 nr-10 wavelengths c */
+/* .46 .45 .45 .44 .43 .43 .43 .46 .50 .57 ni-10 wavelengths c */
+/* 1 Results will be saved into FILE.mie c */
+/* URBAN-WCP112 Identification of the output file called FILE c */
+/* -> results will be saved into URBAN-WCP112.mie c */
+/* c */
+/* **********************************************************************c */
+
+struct AerosolModel
+{
+ long int iaer; /* aerosol model */
+ float c[4];
+
+private:
+ double nis;
+ float sca[10];
+ long int iaerp;
+
+ /* methods */
+ void aeroso(const float xmud);
+
+ string filename;
+ void load();
+ void save(); /* .mie file */
+
+ /* defined models' initilizations */
+ void bdm();
+ void bbm();
+ void stm();
+ void dust();
+ void wate();
+ void ocea();
+ void soot();
+
+ struct Mie_in
+ {
+ float rmax;
+ float rmin;
+ float rn[10][4];
+ float ri[10][4];
+ float x1[4];
+ float x2[4];
+ float x3[4];
+ float cij[4];
+ float rsunph[50];
+ float nrsunph[50];
+
+ long int icp;
+ long int irsunph;
+ };
+
+ Mie_in mie_in;
+ void mie(float (&ex)[4][10], float (&sc)[4][10], float (&asy)[4][10]);
+ void exscphase(const double alpha, const double nr,
+ const double ni, double& Qext,
+ double& Qsca, double (&p11)[83]);
+
+ void parse(const float xmud);
+
+ /* format 132 */
+ void print132(string s);
+public:
+ void print();
+ static AerosolModel Parse(const float xmud);
+};
+
+
+
+#endif /* AEROSOL_MODEL_H */
Copied: grass/trunk/imagery/i.atcorr/altitude.cpp (from rev 60762, grass/trunk/imagery/i.atcorr/Altitude.cpp)
===================================================================
--- grass/trunk/imagery/i.atcorr/altitude.cpp (rev 0)
+++ grass/trunk/imagery/i.atcorr/altitude.cpp 2014-06-09 09:12:09 UTC (rev 60763)
@@ -0,0 +1,423 @@
+#include "common.h"
+#include "altitude.h"
+#include "atmosmodel.h"
+#include "aerosolconcentration.h"
+
+/* Update the atmospheric profile (P(z),T(z),H2O(z),O3(z)) in case the target
+ is not at sea level.
+
+
+ Given the altitude of the target in kilometers as input, we transform the
+ original atmospheric profile (Pressure, Temperature, Water Vapor, Ozone)
+ so that first level of the new profile is the one at the target altitude.
+ We also compute the new integrated content in water vapor and ozone, that
+ are used as outputs or in computations when the user chooses to enter a
+ specific amount of Ozone and Water Vapor.
+*/
+void Altitude::pressure(AtmosModel& atms, float& uw, float& uo3)
+{
+ /* log linear interpolation */
+ if(xps >= 100) xps = 99.99f;
+
+ int i;
+ for(i = 0; atms.z[i] <= xps; i++);
+
+ int isup = i;
+ int iinf = i - 1;
+
+ float xa = (float)((atms.z[isup] - atms.z[iinf]) / log(atms.p[isup] / atms.p[iinf]));
+ float xb = (float)(atms.z[isup] - xa * log(atms.p[isup]));
+ float ps = (float)exp((xps - xb) / xa);
+
+ /* interpolating temperature wator vapor and ozone profile versus altitude */
+ float xalt = xps;
+ float xtemp = (atms.t[isup] - atms.t[iinf]) / (atms.z[isup] - atms.z[iinf]);
+ xtemp = xtemp * (xalt - atms.z[iinf]) + atms.t[iinf];
+ float xwo = (atms.wo[isup] - atms.wo[iinf]) / (atms.z[isup] - atms.z[iinf]);
+ xwo = xwo * (xalt - atms.z[iinf]) + atms.wo[iinf];
+ float xwh = (atms.wh[isup] - atms.wh[iinf]) / (atms.z[isup] - atms.z[iinf]);
+ xwh = xwh * (xalt - atms.z[iinf]) + atms.wh[iinf];
+
+ /* updating atmospheric profile
+ 1rst level: target , complete to 34
+ with interpolated layers */
+ atms.z[0] = xalt;
+ atms.p[0] = ps;
+ atms.t[0] = xtemp;
+ atms.wh[0] = xwh;
+ atms.wo[0] = xwo;
+
+ for (i = 1; i < 33 - iinf; ++i)
+ {
+ atms.z[i] = atms.z[i + iinf];
+ atms.p[i] = atms.p[i + iinf];
+ atms.t[i] = atms.t[i + iinf];
+ atms.wh[i] = atms.wh[i + iinf];
+ atms.wo[i] = atms.wo[i + iinf];
+ }
+ int l = 33 - iinf - 1;
+ for (i = l; i < 34; ++i)
+ {
+ atms.z[i] = (atms.z[33] - atms.z[l]) * (i - l) / (33 - l) + atms.z[l];
+ atms.p[i] = (atms.p[33] - atms.p[l]) * (i - l) / (33 - l) + atms.p[l];
+ atms.t[i] = (atms.t[33] - atms.t[l]) * (i - l) / (33 - l) + atms.t[l];
+ atms.wh[i] = (atms.wh[33] - atms.wh[l]) * (i - l) / (33 - l) + atms.wh[l];
+ atms.wo[i] = (atms.wo[33] - atms.wo[l]) * (i - l) / (33 - l) + atms.wo[l];
+ }
+
+ /* compute modified h2o and o3 integrated content */
+ uw = 0;
+ uo3 = 0;
+ const float g = 98.1f;
+ const float air = 0.028964f/0.0224f;
+ const float ro3 = 0.048f/0.0224f;
+
+ float rmwh[34];
+ float rmo3[34];
+ int k;
+ for (k = 0; k < 33; ++k)
+ {
+ float roair = air * 273.16f * atms.p[k] / (atms.t[k] * 1013.25f);
+ rmwh[k] = atms.wh[k] / (roair * 1e3f);
+ rmo3[k] = atms.wo[k] / (roair * 1e3f);
+ }
+
+ for (k = 1; k < 33; ++k)
+ {
+ float ds = (atms.p[k - 1] - atms.p[k]) / atms.p[0];
+ uw += (rmwh[k] + rmwh[k - 1]) * ds / 2.f;
+ uo3 += (rmo3[k] + rmo3[k - 1]) * ds / 2.f;
+ }
+ uw = uw * atms.p[0] * 100.f / g;
+ uo3 = uo3 * atms.p[0] * 100.f / g;
+ uo3 = uo3 * 1e3f / ro3;
+}
+
+/*
+ Function: Update the atmospheric profile (P(z),T(z),H2O(z),O3(z)) in case the observer is on
+ board an aircraft.
+
+ Description: Given the altitude or pressure at aircraft level as input, the first task is to
+ compute the altitude (in case the pressure has been entered) or the pressure (in case the altitude has
+ been entered) at plane level. Then, a new atmospheric profile is created (Pp,Tp,H2Op,O3p) for which
+ the last level is located at the plane altitude. This profile is used in the gaseous absorption
+ computation (ABSTRA.f) for the path from target to sensor (upward transmission). The ozone and
+ water vapor integrated content of the "plane" atmospheric profile are also an output of this
+ subroutine. The last output is the proportion of molecules below plane level which is useful in
+ scattering computations (OS.f,ISO.f).
+*/
+void Altitude::presplane(AtmosModel& atms)
+{
+ /* log linear interpolation */
+ xpp += atms.z[0];
+ if(xpp >= 100) xpp = 1000;
+
+ int i;
+ for(i = 0; atms.z[i] <= xpp; i++);
+
+ int isup = i;
+ int iinf = i-1;
+
+ float xa = (float)((atms.z[isup] - atms.z[iinf]) / log(atms.p[isup] / atms.p[iinf]));
+ float xb = (float)(atms.z[isup] - xa * log(atms.p[isup]));
+ float ps = (float)(exp((xpp - xb) / xa));
+
+ /* interpolating temperature wator vapor and ozone profile versus altitud */
+ float xalt = xpp;
+ float xtemp = (atms.t[isup] - atms.t[iinf])/ (atms.z[isup] - atms.z[iinf]);
+ xtemp = xtemp * (xalt - atms.z[iinf]) + atms.t[iinf];
+ float xwo = (atms.wo[isup] - atms.wo[iinf]) / (atms.z[isup] - atms.z[iinf]);
+ xwo = xwo * (xalt - atms.z[iinf]) + atms.wo[iinf];
+ float xwh = (atms.wh[isup] - atms.wh[iinf]) / (atms.z[isup] - atms.z[iinf]);
+ xwh = xwh * (xalt - atms.z[iinf]) + atms.wh[iinf];
+
+ /* updating atmospheric profile
+ last level: plane , complete to 34
+ with interpolated layers */
+ for(i = 0; i <= iinf; i++)
+ {
+ plane_sim.zpl[i] = atms.z[i];
+ plane_sim.ppl[i] = atms.p[i];
+ plane_sim.tpl[i] = atms.t[i];
+ plane_sim.whpl[i] = atms.wh[i];
+ plane_sim.wopl[i] = atms.wo[i];
+ }
+
+ for(i = iinf+1; i < 34; i++)
+ {
+ plane_sim.zpl[i] = xalt;
+ plane_sim.ppl[i] = ps;
+ plane_sim.tpl[i] = xtemp;
+ plane_sim.whpl[i] = xwh;
+ plane_sim.wopl[i] = xwo;
+ }
+
+ /* compute modified h2o and o3 integrated content
+ compute conversion factor for rayleigh optical thickness computation
+ ftray=rp/rt */
+ atms.uw = 0;
+ atms.uo3 = 0;
+ const float g = 98.1f;
+ const float air = 0.028964f/0.0224f;
+ const float ro3 = 0.048f/0.0224f;
+ float rt = 0;
+ float rp = 0;
+
+ float rmo3[34];
+ float rmwh[34];
+ int k;
+ for(k = 0; k < 33; k++)
+ {
+ float roair = (float)(air * 273.16 * plane_sim.ppl[k] / (1013.25 * plane_sim.tpl[k]));
+ rmwh[k] = atms.wh[k] / (roair * 1000);
+ rmo3[k] = atms.wo[k] / (roair * 1000);
+ rt += (atms.p[k+1] / atms.t[k+1] + atms.p[k] / atms.p[k]) * (atms.z[k+1] - atms.z[k]);
+ rp += (plane_sim.ppl[k+1] / plane_sim.tpl[k+1] + plane_sim.ppl[k] / plane_sim.tpl[k])
+ * (plane_sim.zpl[k+1] - plane_sim.zpl[k]);
+ }
+
+ ftray = rp / rt;
+ for(k = 1; k < 33; k++)
+ {
+ float ds = (plane_sim.ppl[k-1] - plane_sim.ppl[k]) / plane_sim.ppl[0];
+ atms.uw += (rmwh[k] + rmwh[k-1])*ds/2;
+ atms.uo3+= (rmo3[k] + rmo3[k-1])*ds/2;
+ }
+
+ atms.uw *= plane_sim.ppl[0] * 100 / g;
+ atms.uo3*= plane_sim.ppl[0] * 100 / g;
+ atms.uo3*= 1000 / ro3;
+}
+
+void Altitude::init(AtmosModel &atms, const AerosolConcentration &aerocon)
+{
+ xps = original_xps;
+ xpp = original_xpp;
+
+ float uwus;
+ float uo3us;
+ if(xps <= 0)
+ {
+ xps = 0;
+ uwus = 1.424f;
+ uo3us = 0.344f;
+ }
+ else if(atms.idatm != 8) pressure(atms, atms.uw, atms.uo3);
+ else pressure(atms, uwus, uo3us);
+
+ if(xpp <= 0)
+ {
+ /* ground measurement option */
+ palt = 0;
+ pps = atms.p[0];
+ idatmp = 0;
+ original_taer55p = taer55p = 0;
+ puw = 0;
+ }
+ else if(xpp >= 100)
+ {
+ /* satellite case of equivalent */
+ palt = 1000;
+ pps = 0;
+ original_taer55p = taer55p = aerocon.taer55;
+ puw = 0;
+ ftray = 1;
+ idatmp = 4;
+ }
+ else
+ {
+ /* "real" plane case */
+ cin >> original_puw;
+ cin >> original_puo3;
+ cin.ignore(numeric_limits < int >::max(), '\n'); /* ignore comments */
+
+ puw = original_puw;
+ puo3 = original_puo3;
+ if ( puw < 0 )
+ {
+ presplane(atms);
+ idatmp = 2;
+
+ if (atms.idatm == 8)
+ {
+ puwus = puw;
+ puo3us = puo3;
+ puw *= atms.uw / uwus;
+ puo3 *= atms.uo3 / uo3us;
+ idatmp = 8;
+ }
+ }
+ else
+ {
+ presplane(atms);
+ idatmp = 8;
+ }
+
+ palt = plane_sim.zpl[33] - atms.z[0];
+ pps = plane_sim.ppl[33];
+ cin >> original_taer55p;
+ taer55p = original_taer55p;
+
+ if ((taer55p > 0) || ((aerocon.taer55 - taer55p) < 1e-03))
+ {
+ /* a scale heigh of 2km is assumed in case no value is given for taer55p */
+ taer55p = (float)(aerocon.taer55 * (1 - exp(-palt / 2)));
+ }
+ else
+ {
+ /* compute effective scale heigh */
+ double sham = exp(-palt / 4);
+ double sha = 1 - (taer55p / aerocon.taer55);
+
+ if( sha >= sham) taer55p = (float)(aerocon.taer55 * (1 - exp(-palt / 4)));
+ else {
+ sha = -palt/log(sha);
+ taer55p = (float)(aerocon.taer55 * (1 - exp(-palt/sha)));
+ }
+ }
+ }
+}
+
+void Altitude::update_hv(AtmosModel & atms, const AerosolConcentration & aerocon)
+{
+ xps = original_xps;
+ xpp = original_xpp;
+
+ float uwus;
+ float uo3us;
+
+ if (xps <= 0) {
+ xps = 0;
+ uwus = 1.424f;
+ uo3us = 0.344f;
+ }
+ else if (atms.idatm != 8)
+ pressure(atms, atms.uw, atms.uo3);
+ else
+ pressure(atms, uwus, uo3us);
+
+ if (xpp <= 0) {
+ /* ground measurement option */
+ palt = 0;
+ pps = atms.p[0];
+ idatmp = 0;
+ taer55p = 0;
+ puw = 0;
+ }
+ else if (xpp >= 100) {
+ /* satellite case of equivalent */
+ palt = 1000;
+ pps = 0;
+ taer55p = aerocon.taer55;
+ puw = 0;
+ ftray = 1;
+ idatmp = 4;
+ }
+ else {
+ /* "real" plane case */
+
+ puw = original_puw;
+ puo3 = original_puo3;
+
+ if (puw < 0) {
+ presplane(atms);
+ idatmp = 2;
+
+ if (atms.idatm == 8) {
+ puwus = puw;
+ puo3us = puo3;
+ puw *= atms.uw / uwus;
+ puo3 *= atms.uo3 / uo3us;
+ idatmp = 8;
+ }
+ }
+ else {
+ presplane(atms);
+ idatmp = 8;
+ }
+
+ palt = plane_sim.zpl[33] - atms.z[0];
+ pps = plane_sim.ppl[33];
+ taer55p = original_taer55p;
+
+ if ((taer55p > 0) || ((aerocon.taer55 - taer55p) < 1e-03)) {
+ /* a scale heigh of 2km is assumed in case no value is given for taer55p */
+ taer55p = (float)(aerocon.taer55 * (1 - exp(-palt / 2)));
+ }
+ else {
+ /* compute effective scale heigh */
+ double sham = exp(-palt / 4);
+ double sha = 1 - (taer55p / aerocon.taer55);
+
+ if (sha >= sham)
+ taer55p = (float)(aerocon.taer55 * (1 - exp(-palt / 4)));
+ else {
+ sha = -palt / log(sha);
+ taer55p = (float)(aerocon.taer55 * (1 - exp(-palt / sha)));
+ }
+ }
+ }
+}
+
+void Altitude::parse()
+{
+ cin >> original_xps;
+ cin.ignore(numeric_limits<int>::max(),'\n'); /* ignore comments */
+ original_xps = -original_xps;
+
+ cin >> original_xpp;
+ cin.ignore(numeric_limits<int>::max(),'\n'); /* ignore comments */
+ original_xpp = -original_xpp;
+}
+
+/* --- plane simulation output if selected ---- */
+void Altitude::print()
+{
+ if(palt < 1000)
+ {
+ Output::Ln();
+ Output::WriteLn(22," plane simulation description ");
+ Output::WriteLn(22," ---------------------------- ");
+
+ ostringstream s1;
+ s1.setf(ios::fixed, ios::floatfield);
+ s1.precision(2);
+ s1 << " plane pressure [mb] " << setw(9) << pps << ends;
+ Output::WriteLn(10,s1.str());
+
+ ostringstream s2;
+ s2.setf(ios::fixed, ios::floatfield);
+ s2.precision(3);
+ s2 << " plane altitude absolute [km] " << setw(9) << plane_sim.zpl[33] << ends;
+ Output::WriteLn(10,s2.str());
+
+
+ Output::WriteLn(15," atmosphere under plane description: ");
+
+ ostringstream s3;
+ s3.setf(ios::fixed, ios::floatfield);
+ s3.precision(3);
+ s3 << " ozone content " << setw(9) << puo3 << ends;
+ Output::WriteLn(15,s3.str());
+
+
+ ostringstream s4;
+ s4.setf(ios::fixed, ios::floatfield);
+ s4.precision(3);
+ s4 << " h2o content " << setw(9) << puw << ends;
+ Output::WriteLn(15,s4.str());
+
+ ostringstream s5;
+ s5.setf(ios::fixed, ios::floatfield);
+ s5.precision(3);
+ s5 << "aerosol opt. thick. 550nm " << setw(9) << taer55p << ends;
+ Output::WriteLn(15,s5.str());
+ }
+}
+
+Altitude Altitude::Parse()
+{
+ Altitude alt;
+ alt.parse();
+ return alt;
+}
Copied: grass/trunk/imagery/i.atcorr/altitude.h (from rev 60762, grass/trunk/imagery/i.atcorr/Altitude.h)
===================================================================
--- grass/trunk/imagery/i.atcorr/altitude.h (rev 0)
+++ grass/trunk/imagery/i.atcorr/altitude.h 2014-06-09 09:12:09 UTC (rev 60763)
@@ -0,0 +1,99 @@
+#ifndef ALTITUDE_H
+#define ALTITUDE_H
+
+/**********************************************************************c
+c xps is the parameter to express the altitude of target c
+c c
+c c
+c xps >=0. means the target is at the sea level c
+c c
+c xps <0. means you know the altitude of the target c
+c expressed in km and you put that value as xps c
+c c
+c c
+c**********************************************************************/
+
+/**********************************************************************c
+c c
+c xpp is the parameter to express the sensor altitude c
+c c
+c xpp= -1000 means that the sensor is a board a satellite c
+c xpp= 0 means that the sensor is at the ground level c
+c c
+c c
+c for aircraft simulations c
+c -100< xpp <0 means you know the altitude of the sensor expressed c
+c in kilometers units c
+C this altitude is relative to the target altitude c
+c c
+c for aircraft simulations only, you have to give c
+c puw,po3 (water vapor content,ozone content between the c
+c aircraft and the surface) c
+c taerp (the aerosol optical thickness at 550nm between the c
+c aircraft and the surface) c
+c if these data are not available, enter negative values for all c
+c of them, puw,po3 will then be interpolated from the us62 standard c
+C profile according to the values at ground level. Taerp will be c
+c computed according to a 2km exponential profile for aerosol. c
+c**********************************************************************/
+struct AtmosModel;
+struct AerosolConcentration;
+
+struct Altitude
+{
+ float xps;
+ float xpp;
+
+ /* some vars */
+ mutable float palt;
+ float pps;
+ int idatmp;
+ float taer55p;
+ float puw;
+ float puo3;
+ float ftray;
+
+ float puwus;
+ float puo3us;
+
+ struct Plane_sim
+ {
+ float zpl[34];
+ float ppl[34];
+ float tpl[34];
+ float whpl[34];
+ float wopl[34];
+ } plane_sim;
+
+private:
+ /* remember the original input values
+ these values are set the first time when parse is called
+ and used in subsequent calls to init to set xps and xpp */
+ float original_xps;
+ float original_xpp;
+ float original_taer55p;
+ float original_puw;
+ float original_puo3;
+
+ void pressure(AtmosModel& atms, float& uw, float& uo3);
+
+ void presplane(AtmosModel& atms);
+
+ /* Reads xps and xpp from the input file */
+ void parse();
+
+public:
+ void print();
+
+ /* Set the height to be used the next time init is called */
+ void set_height(const float height) { original_xps = height; }
+ /* call init only once: init parses input file */
+ void init(AtmosModel& atms, const AerosolConcentration &aerocon);
+ /* call update_hv whenever xps changes */
+ void update_hv(AtmosModel& atms, const AerosolConcentration &aerocon);
+
+ static Altitude Parse();
+};
+
+
+#endif /* ALTITUDE_H */
Copied: grass/trunk/imagery/i.atcorr/atmosmodel.cpp (from rev 60762, grass/trunk/imagery/i.atcorr/AtmosModel.cpp)
===================================================================
--- grass/trunk/imagery/i.atcorr/atmosmodel.cpp (rev 0)
+++ grass/trunk/imagery/i.atcorr/atmosmodel.cpp 2014-06-09 09:12:09 UTC (rev 60763)
@@ -0,0 +1,470 @@
+extern "C" {
+#include <grass/gis.h>
+#include <grass/glocale.h>
+}
+
+#include "common.h"
+#include "atmosmodel.h"
+
+void AtmosModel::tropic()
+{
+ static const float z1[34] =
+ {
+ 0.f, 1.f, 2.f, 3.f, 4.f, 5.f, 6.f, 7.f, 8.f, 9.f, 10.f, 11.f,
+ 12.f, 13.f, 14.f, 15.f, 16.f, 17.f, 18.f, 19.f, 20.f, 21.f,
+ 22.f, 23.f, 24.f, 25.f, 30.f, 35.f, 40.f, 45.f, 50.f, 70.f, 100.f, 99999.f
+ };
+
+ static const float p1[34] =
+ {
+ 1013.f, 904.f, 805.f, 715.f, 633.f, 559.f, 492.f, 432.f, 378.f,
+ 329.f, 286.f, 247.f, 213.f, 182.f, 156.f, 132.f, 111.f, 93.7f,
+ 78.9f, 66.6f, 56.5f, 48.f, 40.9f, 35.f, 30.f, 25.7f, 12.2f, 6.f,
+ 3.05f, 1.59f, .854f, .0579f, 3e-4f, 0.f
+ };
+
+ static const float t1[34] =
+ {
+ 300.f, 294.f, 288.f, 284.f, 277.f, 270.f, 264.f, 257.f, 250.f,
+ 244.f, 237.f, 230.f, 224.f, 217.f, 210.f, 204.f, 197.f, 195.f,
+ 199.f, 203.f, 207.f, 211.f, 215.f, 217.f, 219.f, 221.f, 232.f,
+ 243.f, 254.f, 265.f, 270.f, 219.f, 210.f, 210.f
+ };
+
+ static const float wh1[34] =
+ {
+ 19.f, 13.f, 9.3f, 4.7f, 2.2f, 1.5f, .85f, .47f, .25f, .12f, .05f,
+
+
+ .017f, .006f, .0018f, .001f, 7.6e-4f, 6.4e-4f, 5.6e-4f, 5e-4f,
+ 4.9e-4f, 4.5e-4f, 5.1e-4f, 5.1e-4f, 5.4e-4f, 6e-4f, 6.7e-4f,
+ 3.6e-4f, 1.1e-4f, 4.3e-5f, 1.9e-5f, 6.3e-6f, 1.4e-7f, 1e-9f, 0.f
+ };
+
+ static const float wo1[34] =
+ {
+ 5.6e-5f, 5.6e-5f, 5.4e-5f, 5.1e-5f, 4.7e-5f, 4.5e-5f,
+ 4.3e-5f, 4.1e-5f, 3.9e-5f, 3.9e-5f, 3.9e-5f, 4.1e-5f, 4.3e-5f, 4.5e-5f,
+ 4.5e-5f, 4.7e-5f, 4.7e-5f, 6.9e-5f, 9e-5f, 1.4e-4f, 1.9e-4f, 2.4e-4f,
+ 2.8e-4f, 3.2e-4f, 3.4e-4f, 3.4e-4f, 2.4e-4f, 9.2e-5f, 4.1e-5f, 1.3e-5f,
+ 4.3e-6f, 8.6e-8f, 4.3e-11f, 0.f
+ };
+
+ /* model: tropical mc clatchey */
+ for (int i = 0; i < 34; i++)
+ {
+ z[i] = z1[i];
+ p[i] = p1[i];
+ t[i] = t1[i];
+ wh[i] = wh1[i];
+ wo[i] = wo1[i];
+ }
+}
+
+void AtmosModel::midsum()
+{
+ static const float z1[34] =
+ {
+ 0.f, 1.f, 2.f, 3.f, 4.f, 5.f, 6.f, 7.f, 8.f, 9.f, 10.f, 11.f,
+ 12.f, 13.f, 14.f, 15.f, 16.f, 17.f, 18.f, 19.f, 20.f, 21.f, 22.f, 23.f,
+ 24.f, 25.f, 30.f, 35.f, 40.f, 45.f, 50.f, 70.f, 100.f, 99999.f
+ };
+
+ static const float p1[34] =
+ {
+ 1013.f, 902.f, 802.f, 710.f, 628.f, 554.f, 487.f, 426.f,
+ 372.f, 324.f, 281.f, 243.f, 209.f, 179.f, 153.f, 130.f, 111.f, 95.f,
+ 81.2f, 69.5f, 59.5f, 51.f, 43.7f, 37.6f, 32.2f, 27.7f, 13.2f, 6.52f,
+ 3.33f, 1.76f, .951f, .0671f, 3e-4f, 0.f
+ };
+
+ static const float t1[34] =
+ {
+ 294.f, 290.f, 285.f, 279.f, 273.f, 267.f, 261.f, 255.f,
+ 248.f, 242.f, 235.f, 229.f, 222.f, 216.f, 216.f, 216.f, 216.f, 216.f,
+ 216.f, 217.f, 218.f, 219.f, 220.f, 222.f, 223.f, 224.f, 234.f, 245.f, 258.f,
+ 270.f, 276.f, 218.f, 210.f, 210.f
+ };
+
+ static const float wh1[34] =
+ {
+ 14.f, 9.3f, 5.9f, 3.3f, 1.9f, 1.f, .61f, .37f, .21f, .12f,
+ .064f, .022f, .006f, .0018f, .001f, 7.6e-4f, 6.4e-4f, 5.6e-4f, 5e-4f,
+ 4.9e-4f, 4.5e-4f, 5.1e-4f, 5.1e-4f, 5.4e-4f, 6e-4f, 6.7e-4f, 3.6e-4f,
+ 1.1e-4f, 4.3e-5f, 1.9e-5f, 1.3e-6f, 1.4e-7f, 1e-9f, 0.f
+ };
+
+ static const float wo1[34] =
+ {
+ 6e-5f, 6e-5f, 6e-5f, 6.2e-5f, 6.4e-5f, 6.6e-5f, 6.9e-5f,
+ 7.5e-5f, 7.9e-5f, 8.6e-5f, 9e-5f, 1.1e-4f, 1.2e-4f, 1.5e-4f, 1.8e-4f,
+ 1.9e-4f, 2.1e-4f, 2.4e-4f, 2.8e-4f, 3.2e-4f, 3.4e-4f, 3.6e-4f, 3.6e-4f,
+ 3.4e-4f, 3.2e-4f, 3e-4f, 2e-4f, 9.2e-5f, 4.1e-5f, 1.3e-5f, 4.3e-6f,
+ 8.6e-8f, 4.3e-11f, 0.f
+ };
+
+ /* model: midlatitude summer mc clatchey */
+ for (int i = 0; i < 34; i++)
+ {
+ z[i] = z1[i];
+ p[i] = p1[i];
+ t[i] = t1[i];
+ wh[i] = wh1[i];
+ wo[i] = wo1[i];
+ }
+}
+
+void AtmosModel::midwin()
+{
+ static const float z1[34] =
+ {
+ 0.f, 1.f, 2.f, 3.f, 4.f, 5.f, 6.f, 7.f, 8.f, 9.f, 10.f, 11.f,
+ 12.f, 13.f, 14.f, 15.f, 16.f, 17.f, 18.f, 19.f, 20.f, 21.f, 22.f, 23.f,
+ 24.f, 25.f, 30.f, 35.f, 40.f, 45.f, 50.f, 70.f, 100.f, 99999.f
+ };
+
+ static const float p1[34] =
+ {
+ 1018.f, 897.3f, 789.7f, 693.8f, 608.1f, 531.3f, 462.7f,
+ 401.6f, 347.3f, 299.2f, 256.8f, 219.9f, 188.2f, 161.f, 137.8f, 117.8f,
+ 100.7f, 86.1f, 73.5f, 62.8f, 53.7f, 45.8f, 39.1f, 33.4f, 28.6f, 24.3f,
+ 11.1f, 5.18f, 2.53f, 1.29f, .682f, .0467f, 3e-4f, 0.f
+ };
+
+ static const float t1[34] =
+ {
+ 272.2f, 268.7f, 265.2f, 261.7f, 255.7f, 249.7f, 243.7f,
+ 237.7f, 231.7f, 225.7f, 219.7f, 219.2f, 218.7f, 218.2f, 217.7f, 217.2f,
+ 216.7f, 216.2f, 215.7f, 215.2f, 215.2f, 215.2f, 215.2f, 215.2f, 215.2f,
+ 215.2f, 217.4f, 227.8f, 243.2f, 258.5f, 265.7f, 230.7f, 210.2f, 210.f
+ };
+
+ static const float wh1[34] =
+ {
+ 3.5f, 2.5f, 1.8f, 1.2f, .66f, .38f, .21f, .085f, .035f,
+ .016f, .0075f, .0069f, .006f, .0018f, .001f, 7.6e-4f, 6.4e-4f, 5.6e-4f,
+ 5e-4f, 4.9e-4f, 4.5e-4f, 5.1e-4f, 5.1e-4f, 5.4e-4f, 6e-4f, 6.7e-4f,
+ 3.6e-4f, 1.1e-4f, 4.3e-5f, 1.9e-5f, 6.3e-6f, 1.4e-7f, 1e-9f, 0.f
+ };
+
+ static const float wo1[34] =
+ {
+ 6e-5f, 5.4e-5f, 4.9e-5f, 4.9e-5f, 4.9e-5f, 5.8e-5f,
+ 6.4e-5f, 7.7e-5f, 9e-5f, 1.2e-4f, 1.6e-4f, 2.1e-4f, 2.6e-4f, 3e-4f,
+ 3.2e-4f, 3.4e-4f, 3.6e-4f, 3.9e-4f, 4.1e-4f, 4.3e-4f, 4.5e-4f, 4.3e-4f,
+ 4.3e-4f, 3.9e-4f, 3.6e-4f, 3.4e-4f, 1.9e-4f, 9.2e-5f, 4.1e-5f, 1.3e-5f,
+ 4.3e-6f, 8.6e-8f, 4.3e-11f, 0.f
+ };
+
+ /* model: midlatitude winter mc clatchey */
+ for (int i = 0; i < 34; i++)
+ {
+ z[i] = z1[i];
+ p[i] = p1[i];
+ t[i] = t1[i];
+ wh[i] = wh1[i];
+ wo[i] = wo1[i];
+ }
+}
+
+void AtmosModel::subsum()
+{
+ static const float z1[34] =
+ {
+ 0.f, 1.f, 2.f, 3.f, 4.f, 5.f, 6.f, 7.f, 8.f, 9.f, 10.f, 11.f,
+ 12.f, 13.f, 14.f, 15.f, 16.f, 17.f, 18.f, 19.f, 20.f, 21.f, 22.f, 23.f,
+ 24.f, 25.f, 30.f, 35.f, 40.f, 45.f, 50.f, 70.f, 100.f, 99999.f
+ };
+
+ static const float p1[34] =
+ {
+ 1010.f, 896.f, 792.9f, 700.f, 616.f, 541.f, 473.f, 413.f,
+ 359.f, 310.7f, 267.7f, 230.f, 197.7f, 170.f, 146.f, 125.f, 108.f, 92.8f,
+ 79.8f, 68.6f, 58.9f, 50.7f, 43.6f, 37.5f, 32.27f, 27.8f, 13.4f, 6.61f,
+ 3.4f, 1.81f, .987f, .0707f, 3e-4f, 0.f
+ };
+
+ static const float t1[34] =
+ {
+ 287.f, 282.f, 276.f, 271.f, 266.f, 260.f, 253.f, 246.f,
+ 239.f, 232.f, 225.f, 225.f, 225.f, 225.f, 225.f, 225.f, 225.f, 225.f,
+ 225.f, 225.f, 225.f, 225.f, 225.f, 225.f, 226.f, 228.f, 235.f, 247.f, 262.f,
+ 274.f, 277.f, 216.f, 210.f, 210.f
+ };
+
+ static const float wh1[34] =
+ {
+ 9.1f, 6.f, 4.2f, 2.7f, 1.7f, 1.f, .54f, .29f, .13f, .042f,
+ .015f, .0094f, .006f, .0018f, .001f, 7.6e-4f, 6.4e-4f, 5.6e-4f, 5e-4f,
+ 4.9e-4f, 4.5e-4f, 5.1e-4f, 5.1e-4f, 5.4e-4f, 6e-4f, 6.7e-4f, 3.6e-4f,
+ 1.1e-4f, 4.3e-5f, 1.9e-5f, 6.3e-6f, 1.4e-7f, 1e-9f, 0.f
+ };
+
+ static const float wo1[34] =
+ {
+ 4.9e-5f, 5.4e-5f, 5.6e-5f, 5.8e-5f, 6e-5f, 6.4e-5f,
+ 7.1e-5f, 7.5e-5f, 7.9e-5f, 1.1e-4f, 1.3e-4f, 1.8e-4f, 2.1e-4f, 2.6e-4f,
+ 2.8e-4f, 3.2e-4f, 3.4e-4f, 3.9e-4f, 4.1e-4f, 4.1e-4f, 3.9e-4f, 3.6e-4f,
+ 3.2e-4f, 3e-4f, 2.8e-4f, 2.6e-4f, 1.4e-4f, 9.2e-5f, 4.1e-5f, 1.3e-5f,
+ 4.3e-6f, 8.6e-8f, 4.3e-11f, 0.f
+ };
+
+ /* model: subarctique summer mc clatchey */
+ for (int i = 0; i < 34; i++)
+ {
+ z[i] = z1[i];
+ p[i] = p1[i];
+ t[i] = t1[i];
+ wh[i] = wh1[i];
+ wo[i] = wo1[i];
+ }
+}
+
+void AtmosModel::subwin()
+{
+ static const float z1[34] =
+ {
+ 0.f, 1.f, 2.f, 3.f, 4.f, 5.f, 6.f, 7.f, 8.f, 9.f, 10.f, 11.f,
+ 12.f, 13.f, 14.f, 15.f, 16.f, 17.f, 18.f, 19.f, 20.f, 21.f, 22.f, 23.f,
+ 24.f, 25.f, 30.f, 35.f, 40.f, 45.f, 50.f, 70.f, 100.f, 99999.f
+ };
+
+ static const float p1[34] =
+ {
+ 1013.f, 887.8f, 777.5f, 679.8f, 593.2f, 515.8f, 446.7f,
+ 385.3f, 330.8f, 282.9f, 241.8f, 206.7f, 176.6f, 151.f, 129.1f, 110.3f,
+ 94.31f, 80.58f, 68.82f, 58.75f, 50.14f, 42.77f, 36.47f, 31.09f, 26.49f,
+ 22.56f, 10.2f, 4.701f, 2.243f, 1.113f, .5719f, .04016f, 3e-4f, 0.f
+ };
+
+ static const float t1[34] =
+ {
+ 257.1f, 259.1f, 255.9f, 252.7f, 247.7f, 240.9f, 234.1f,
+ 227.3f, 220.6f, 217.2f, 217.2f, 217.2f, 217.2f, 217.2f, 217.2f, 217.2f,
+ 216.6f, 216.f, 215.4f, 214.8f, 214.1f, 213.6f, 213.f, 212.4f, 211.8f,
+ 211.2f, 216.f, 222.2f, 234.7f, 247.f, 259.3f, 245.7f, 210.f, 210.f
+ };
+
+ static const float wh1[34] =
+ {
+ 1.2f, 1.2f, .94f, .68f, .41f, .2f, .098f, .054f, .011f,
+ .0084f, .0055f, .0038f, .0026f, .0018f, .001f, 7.6e-4f, 6.4e-4f, 5.6e-4f,
+ 5e-4f, 4.9e-4f, 4.5e-4f, 5.1e-4f, 5.1e-4f, 5.4e-4f, 6e-4f, 6.7e-4f,
+ 3.6e-4f, 1.1e-4f, 4.3e-5f, 1.9e-5f, 6.3e-6f, 1.4e-7f, 1e-9f, 0.f
+ };
+
+ static const float wo1[34] =
+ {
+ 4.1e-5f, 4.1e-5f, 4.1e-5f, 4.3e-5f, 4.5e-5f, 4.7e-5f,
+ 4.9e-5f, 7.1e-5f, 9e-5f, 1.6e-4f, 2.4e-4f, 3.2e-4f, 4.3e-4f, 4.7e-4f,
+ 4.9e-4f, 5.6e-4f, 6.2e-4f, 6.2e-4f, 6.2e-4f, 6e-4f, 5.6e-4f, 5.1e-4f,
+ 4.7e-4f, 4.3e-4f, 3.6e-4f, 3.2e-4f, 1.5e-4f, 9.2e-5f, 4.1e-5f, 1.3e-5f,
+ 4.3e-6f, 8.6e-8f, 4.3e-11f, 0.f
+ };
+
+ /* model: subarctique winter mc clatchey */
+ for (int i = 0; i < 34; i++)
+ {
+ z[i] = z1[i];
+ p[i] = p1[i];
+ t[i] = t1[i];
+ wh[i] = wh1[i];
+ wo[i] = wo1[i];
+ }
+}
+
+void AtmosModel::us62()
+{
+ static const float z1[34] =
+ {
+ 0.f, 1.f, 2.f, 3.f, 4.f, 5.f, 6.f, 7.f, 8.f, 9.f, 10.f, 11.f,
+ 12.f, 13.f, 14.f, 15.f, 16.f, 17.f, 18.f, 19.f, 20.f, 21.f, 22.f, 23.f,
+ 24.f, 25.f, 30.f, 35.f, 40.f, 45.f, 50.f, 70.f, 100.f, 99999.f
+ };
+
+ static const float p1[34] =
+ {
+ 1013.f, 898.6f, 795.f, 701.2f, 616.6f, 540.5f, 472.2f,
+ 411.1f, 356.5f, 308.f, 265.f, 227.f, 194.f, 165.8f, 141.7f, 121.1f,
+ 103.5f, 88.5f, 75.65f, 64.67f, 55.29f, 47.29f, 40.47f, 34.67f, 29.72f, 25.49f,
+ 11.97f, 5.746f, 2.871f, 1.491f, .7978f, .0552f, 3.008e-4f, 0.f
+ };
+
+ static const float t1[34] =
+ {
+ 288.1f, 281.6f, 275.1f, 268.7f, 262.2f, 255.7f, 249.2f,
+ 242.7f, 236.2f, 229.7f, 223.2f, 216.8f, 216.6f, 216.6f, 216.6f, 216.6f,
+ 216.6f, 216.6f, 216.6f, 216.6f, 216.6f, 217.6f, 218.6f, 219.6f, 220.6f,
+ 221.6f, 226.5f, 236.5f, 253.4f, 264.2f, 270.6f, 219.7f, 210.f, 210.f
+ };
+
+ static const float wh1[34] =
+ {
+ 5.9f, 4.2f, 2.9f, 1.8f, 1.1f, .64f, .38f, .21f, .12f,
+ .046f, .018f, .0082f, .0037f, .0018f, 8.4e-4f, 7.2e-4f, 6.1e-4f, 5.2e-4f,
+ 4.4e-4f, 4.4e-4f, 4.4e-4f, 4.8e-4f, 5.2e-4f, 5.7e-4f, 6.1e-4f, 6.6e-4f,
+ 3.8e-4f, 1.6e-4f, 6.7e-5f, 3.2e-5f, 1.2e-5f, 1.5e-7f, 1e-9f, 0.f
+ };
+
+ static const float wo1[34] =
+ {
+ 5.4e-5f, 5.4e-5f, 5.4e-5f, 5e-5f, 4.6e-5f, 4.6e-5f,
+ 4.5e-5f, 4.9e-5f, 5.2e-5f, 7.1e-5f, 9e-5f, 1.3e-4f, 1.6e-4f, 1.7e-4f,
+ 1.9e-4f, 2.1e-4f, 2.4e-4f, 2.8e-4f, 3.2e-4f, 3.5e-4f, 3.8e-4f, 3.8e-4f,
+ 3.9e-4f, 3.8e-4f, 3.6e-4f, 3.4e-4f, 2e-4f, 1.1e-4f, 4.9e-5f, 1.7e-5f,
+ 4e-6f, 8.6e-8f, 4.3e-11f, 0.f
+ };
+
+ /* model: us standard 62 mc clatchey */
+ for (int i = 0; i < 34; i++)
+ {
+ z[i] = z1[i];
+ p[i] = p1[i];
+ t[i] = t1[i];
+ wh[i] = wh1[i];
+ wo[i] = wo1[i];
+ }
+}
+
+
+void AtmosModel::parse()
+{
+ cin >> idatm;
+ cin.ignore(numeric_limits<int>::max(),'\n'); /* read the rest of the scraps, like comments */
+
+ uw = 0.;
+ uo3 = 0.;
+
+ switch(idatm)
+ {
+ case 0: us62(); break;
+ case 1: tropic(); break;
+ case 2: midsum(); break;
+ case 3: midwin(); break;
+ case 4: subsum(); break;
+ case 5: subwin(); break;
+ case 6: us62(); break;
+ case 7:
+ {
+ /* read input */
+ for(int i = 0; i < 34; i++)
+ {
+ cin >> z[i];
+ cin >> p[i];
+ cin >> t[i];
+ cin >> wh[i];
+ cin >> wo[i];
+ cin.ignore(numeric_limits<int>::max(),'\n'); /* read the rest of the scraps, like comments */
+ }
+ break;
+ }
+ case 8:
+ {
+ cin >> uw;
+ cin >> uo3;
+ cin.ignore(numeric_limits<int>::max(),'\n'); /* read the rest of the scraps, like comments */
+ us62();
+ break;
+ }
+ default: G_warning(_("Unknown atmospheric model!"));
+ }
+}
+
+/* --- atmospheric model ---- */
+void AtmosModel::print()
+{
+ static const string head(" atmospheric model description ");
+ static const string line(" ----------------------------- ");
+ Output::Begin(); Output::Repeat(22,' '); Output::Print(head); Output::End();
+ Output::Begin(); Output::Repeat(22,' '); Output::Print(line); Output::End();
+
+ if(idatm < 7)
+ {
+ static const string atmid[7] = {
+ string("no absorption computed "),
+ string("tropical (uh2o=4.12g/cm2,uo3=.247cm-atm)"),
+ string("midlatitude summer (uh2o=2.93g/cm2,uo3=.319cm-atm)"),
+ string("midlatitude winter (uh2o=.853g/cm2,uo3=.395cm-atm)"),
+ string("subarctic summer (uh2o=2.10g/cm2,uo3=.480cm-atm)"),
+ string("subarctic winter (uh2o=.419g/cm2,uo3=.480cm-atm)"),
+ string("us standard 1962 (uh2o=1.42g/cm2,uo3=.344cm-atm)")
+ };
+
+ Output::Begin();
+ Output::Repeat(10,' ');
+ Output::Print(" atmospheric model identity : ");
+ Output::End();
+
+ Output::Begin();
+ Output::Repeat(15,' ');
+ Output::Print(atmid[idatm]);
+ Output::End();
+ }
+ else if(idatm == 7)
+ {
+ Output::Begin();
+ Output::Print(" atmospheric model identity : ");
+ Output::End();
+
+ Output::Begin();
+ Output::Repeat(12, ' ');
+ Output::Print(" user defined atmospheric model ");
+ Output::End();
+
+ Output::Begin();
+ Output::Repeat(12, ' ');
+ Output::Print("*altitude *pressure *temp. *h2o dens. *o3 dens. ");
+ Output::End();
+
+ for(int i = 0; i < 34; i++)
+ {
+ Output::Begin();
+ Output::Repeat(12, ' ');
+ ostringstream s;
+ s.setf(ios::fixed, ios::floatfield);
+ s << setprecision(4);
+ s << setw(9) << z[i] << " ";
+ s << setw(9) << p[i] << " ";
+ s << setw(9) << t[i] << " ";
+ s << setw(9) << wh[i] << " ";
+ s << setw(9) << wo[i] << " ";
+ s << ends;
+ Output::Print(s.str());
+ Output::End();
+ }
+ }
+ else
+ {
+ Output::Begin();
+ Output::Repeat(10, ' ');
+ Output::Print(" atmospheric model identity : ");
+ Output::End();
+
+ Output::Begin();
+ Output::Repeat(12, ' ');
+ ostringstream s1;
+ s1.setf(ios::fixed, ios::floatfield);
+ s1 << setprecision(3);
+ s1 << " user defined water content : uh2o=" << setw(9) << uw << " g/cm2 ";
+ Output::Print(s1.str());
+ Output::End();
+
+ Output::Begin();
+ Output::Repeat(12, ' ');
+ ostringstream s2;
+ s2.setf(ios::fixed, ios::floatfield);
+ s2 << setprecision(3);
+ s2 << " user defined ozone content : uo3 =" << setw(9) << uo3 << " cm-atm";
+ Output::Print(s2.str());
+ Output::End();
+ }
+
+ Output::Begin(); Output::End();
+}
+
+AtmosModel AtmosModel::Parse()
+{
+ AtmosModel atms;
+ atms.parse();
+ return atms;
+}
Copied: grass/trunk/imagery/i.atcorr/atmosmodel.h (from rev 60762, grass/trunk/imagery/i.atcorr/AtmosModel.h)
===================================================================
--- grass/trunk/imagery/i.atcorr/atmosmodel.h (rev 0)
+++ grass/trunk/imagery/i.atcorr/atmosmodel.h 2014-06-09 09:12:09 UTC (rev 60763)
@@ -0,0 +1,68 @@
+#ifndef ATMOSPHERIC_MODEL_H
+#define ATMOSPHERIC_MODEL_H
+
+/* **********************************************************************c */
+/* idatm atmospheric model c */
+/* -------------------- c */
+/* c */
+/* c */
+/* you select one of the following standard atmosphere: idatm=0 to 6 c */
+/* 0 no gaseous absorption c */
+/* 1 tropical ) c */
+/* 2 midlatitude summer ) c */
+/* 3 midlatitude winter ) c */
+/* 4 subarctic summer ) from lowtran c */
+/* 5 subarctic winter ) c */
+/* 6 us standard 62 ) c */
+/* c */
+/* or you define your own atmospheric model idatm=7 or 8 c */
+/* 7 user profile (radiosonde data on 34 levels) c */
+/* enter altitude ( in km ) c */
+/* pressure ( in mb ) c */
+/* temperature ( in k ) c */
+/* h2o density (in g/m3) c */
+/* o3 density (in g/m3) c */
+/* c */
+/* for example, altitudes are from 0 to 25km step of 1km c */
+/* from 25 to 50km step of 5km c */
+/* and two values at 70km and 100km c */
+/* so you have 34*5 values to input. c */
+/* 8 enter water vapor and ozone contents c */
+/* uw (in g/cm2 ) c */
+/* uo3 (in cm-atm) c */
+/* profil is taken from us62 c */
+/* c */
+/* **********************************************************************c */
+
+struct AtmosModel
+{
+ long int idatm; /* atmospheric model*/
+
+ /* secondary */
+ float uw;
+ float uo3;
+
+ /* primary */
+ float z[34];
+ float p[34];
+ float t[34];
+ float wh[34];
+ float wo[34];
+
+private:
+ /* methods to initialize each model */
+ void us62();
+ void tropic();
+ void midsum();
+ void midwin();
+ void subsum();
+ void subwin();
+
+ void parse();
+
+public:
+ void print();
+ static AtmosModel Parse();
+};
+
+#endif /* ATMOSPHERIC_MODEL_H */
Modified: grass/trunk/imagery/i.atcorr/common.h
===================================================================
--- grass/trunk/imagery/i.atcorr/common.h 2014-06-09 08:51:29 UTC (rev 60762)
+++ grass/trunk/imagery/i.atcorr/common.h 2014-06-09 09:12:09 UTC (rev 60763)
@@ -27,7 +27,7 @@
using std::numeric_limits;
-#include "Output.h"
+#include "output.h"
#ifndef M_PI
Modified: grass/trunk/imagery/i.atcorr/computations.cpp
===================================================================
--- grass/trunk/imagery/i.atcorr/computations.cpp 2014-06-09 08:51:29 UTC (rev 60762)
+++ grass/trunk/imagery/i.atcorr/computations.cpp 2014-06-09 09:12:09 UTC (rev 60763)
@@ -6,14 +6,14 @@
}
#include "common.h"
-#include "GeomCond.h"
-#include "AtmosModel.h"
-#include "AerosolModel.h"
-#include "AerosolConcentration.h"
-#include "Altitude.h"
-#include "Iwave.h"
-#include "Gauss.h"
-#include "Transform.h"
+#include "geomcond.h"
+#include "atmosmodel.h"
+#include "aerosolmodel.h"
+#include "aerosolconcentration.h"
+#include "altitude.h"
+#include "iwave.h"
+#include "gauss.h"
+#include "transform.h"
#ifdef WIN32
#pragma warning (disable : 4305)
#endif
Copied: grass/trunk/imagery/i.atcorr/date.h (from rev 60762, grass/trunk/imagery/i.atcorr/Date.h)
===================================================================
--- grass/trunk/imagery/i.atcorr/date.h (rev 0)
+++ grass/trunk/imagery/i.atcorr/date.h 2014-06-09 09:12:09 UTC (rev 60763)
@@ -0,0 +1,55 @@
+#ifndef MY_DATE_H
+#define MY_DATE_H
+
+#include "common.h"
+
+class Date
+{
+ unsigned char day;
+ unsigned char month;
+ unsigned short year;
+
+public:
+ Date() { day = 0; month = 0; year = 0; }
+
+ /* Date needs to be in the format dd/mm/yyyy to be accepted */
+ Date(std::string date)
+ {
+ std::istringstream buf(date);
+ buf >> day;
+ buf.ignore(numeric_limits<int>::max(), '/');
+ buf >> month;
+ buf.ignore(numeric_limits<int>::max(), '/');
+ buf >> year;
+
+ if(day > 31 || month > 12)
+ cerr << "Date expected in format dd/mm/yyyy, not as " << date << endl;
+ }
+
+ Date(std::istream& in)
+ {
+ in >> day;
+ in.ignore(numeric_limits<int>::max(), '/');
+ in >> month;
+ in.ignore(numeric_limits<int>::max(), '/');
+ in >> year;
+
+ if(day > 31 || month > 12)
+ cerr << "Date expected in format dd/mm/yyyy!" << endl;
+ }
+
+ Date(unsigned char d, unsigned char m, unsigned short y) : day(d), month(m), year(m) {}
+
+ unsigned char getDay() { return day; }
+ unsigned char getMonth() { return month; }
+ unsigned short getYear() { return year; }
+
+ bool operator<(const Date& date)
+ {
+ return (year < date.year) ||
+ ((year == date.year) && (month < date.month)) ||
+ ((year == date.year) && (month == date.month) && (day < date.day));
+ }
+};
+
+#endif /* MY_DATE_H */
Modified: grass/trunk/imagery/i.atcorr/gauss.cpp
===================================================================
--- grass/trunk/imagery/i.atcorr/gauss.cpp 2014-06-09 08:51:29 UTC (rev 60762)
+++ grass/trunk/imagery/i.atcorr/gauss.cpp 2014-06-09 09:12:09 UTC (rev 60763)
@@ -1,6 +1,6 @@
#include <cmath>
#include "common.h"
-#include "Gauss.h"
+#include "gauss.h"
const long int mu2 = 48;
Copied: grass/trunk/imagery/i.atcorr/gauss.h (from rev 60762, grass/trunk/imagery/i.atcorr/Gauss.h)
===================================================================
--- grass/trunk/imagery/i.atcorr/gauss.h (rev 0)
+++ grass/trunk/imagery/i.atcorr/gauss.h 2014-06-09 09:12:09 UTC (rev 60763)
@@ -0,0 +1,36 @@
+#ifndef MY_GAUSS_H
+#define MY_GAUSS_H
+
+const long int mu = 25;
+const long int np = 49;
+
+/* index standard interval [-1,1] */
+#define STDI(X) ((X)+mu)
+
+struct Gauss
+{
+private:
+ static float angmu[10];
+ static float angphi[13];
+
+public:
+ /* [a,b] = [0,2*Pi] */
+ float rp[np]; /* gaussian angles */
+ float gp[np]; /* gaussian weights */
+
+ // [a,b] = [-1,1]
+ float rm[2*mu+1]; /* shifted gaussian angles */
+ float gb[2*mu+1]; /* shifted gaussian weights */
+ /* with the ends zeroed as well as the center */
+ /* [0 ? ? ? ? 0 ? ? ? ? 0] */
+
+ /* preliminary computations for gauss integration */
+ void init();
+
+ /* Compute for a given n, the gaussian quadrature (the n gaussian angles and the
+ their respective weights). The gaussian quadrature is used in numerical integration involving the
+ cosine of emergent or incident direction zenith angle. */
+ static void gauss (float a, float b, float *x, float *w, long int n);
+};
+
+#endif /* MY_GAUSS_H */
Copied: grass/trunk/imagery/i.atcorr/geomcond.cpp (from rev 60762, grass/trunk/imagery/i.atcorr/GeomCond.cpp)
===================================================================
--- grass/trunk/imagery/i.atcorr/geomcond.cpp (rev 0)
+++ grass/trunk/imagery/i.atcorr/geomcond.cpp 2014-06-09 09:12:09 UTC (rev 60763)
@@ -0,0 +1,501 @@
+extern "C" {
+#include <grass/gis.h>
+#include <grass/glocale.h>
+}
+
+#include "geomcond.h"
+#include "common.h"
+
+/* **********************************************************************c */
+/* c */
+/* * sun c */
+/* \ * / c */
+/* * * * * * c */
+/* z / * \ c */
+/* + /+ c */
+/* satellite / + / c */
+/* o/ + / c */
+/* /.\ + /. c */
+/* / . \ _avis-_+_-asol_/ . c */
+/* . \- -+ / . north c */
+/* . \ + / . + c */
+/* . \ + / .+ c */
+/* . \ + / +. c */
+/* . \ + / + . c */
+/* . \ + / + . c */
+/* . \ +/ + . c */
+/* west + + + + + + + . + + + + +\+ + + + + . + + + + + + + + east c */
+/* . +.. . c */
+/* . + . . . c */
+/* . + . . . c */
+/* . + . .'. . c */
+/* . + .. . , ' .. c */
+/* .+ . \ . c */
+/* +. . \ . c */
+/* + . . \ . c */
+/* south . . (phiv-phi0) c */
+/* c */
+/* c */
+/* c */
+/* **********************************************************************c */
+
+
+/* To take into account the variation of the solar constant as a function
+ of the Julian day.
+
+ return dsol
+ dsol is a multiplicative factor to apply to the mean value of solar constant
+*/
+float GeomCond::varsol ()
+{
+/* calculation of the variability of the solar constant during the year.
+ jday is the number of the day in the month */
+ long int j;
+ if (month <= 2) j = (month - 1) * 31 + jday;
+ else if (month > 8) j = (month - 1) * 31 - (month - 2) / 2 - 2 + jday;
+ else j = (month - 1) * 31 - (month - 1) / 2 - 2 + jday;
+
+/* Computing 2nd power */
+ double tmp = 1.f - cos ((float) (j - 4) * 0.9856f * M_PI / 180.f) * .01673f;
+ return 1.f / (float)(tmp * tmp);
+}
+
+
+/* spot, landsat5 and landsat7 is handled the same way */
+void GeomCond::landsat(float tu)
+{
+/* warning !!! */
+/* xlon and xlat are the coordinates of the scene center. */
+ avis = 0.f;
+ phiv = 0.f;
+ possol(tu);
+}
+
+/*
+ To compute the solar azimuthal and zenithal angles (in degrees) for a point over
+ the globe defined by its longitude and its latitude (in dec. degrees) for a day of the year (fixed by
+ number of the month and number of the day in the month) at any Greenwich Meridian Time (GMT
+ dec. hour).
+*/
+void GeomCond::possol(float tu)
+{
+ long int ia = 0;
+ long int nojour;
+/* solar position (zenithal angle asol,azimuthal angle phi0 */
+/* in degrees) */
+/* jday is the number of the day in the month */
+ day_number(ia, nojour);
+ pos_fft (nojour, tu);
+ if (asol > 90.f)
+ G_warning(_("The sun is not raised"));
+}
+
+void GeomCond::day_number(long int ia, long int& j)
+{
+ if (month <= 2)
+ {
+ j = (month - 1) * 31 + jday;
+ return;
+ }
+
+ if (month > 8) j = (month - 1) * 31 - (month - 2) / 2 - 2 + jday;
+ else j = (month - 1) * 31 - (month - 1) / 2 - 2 + jday;
+
+ if (ia != 0 && ia % 4 == 0) ++j;
+}
+
+/* returns the sign of the element */
+#define SIGN(X) (((X) >= 0) ? 1. : -1.)
+
+void GeomCond::pos_fft (long int j, float tu)
+{
+ /* Local variables */
+ double ah, et, az, caz, xla, tet, tsm, tsv, elev, azim, delta, amuzero;
+
+ /* solar position (zenithal angle asol,azimuthal angle phi0 */
+ /* in degrees) */
+ /* j is the day number in the year */
+
+ /* mean solar time (heure decimale) */
+ tsm = tu + xlon / 15.;
+ xla = xlat * M_PI / 180.;
+ tet = (float)(j) * M_PI2 / 365.;
+
+ /* time equation (in mn.dec) */
+ et = 7.5e-5f + 0.001868f * cos (tet) - 0.032077f * sin (tet) -
+ 0.014615f * cos (tet * 2.f) - 0.040849f * sin (tet * 2.f);
+
+ et = et * 12.f * 60.f / M_PI;
+
+ /* true solar time */
+ tsv = tsm + et / 60.f;
+ tsv += -12.f;
+
+ /* hour angle */
+ ah = tsv * 15.f * M_PI / 180.f;
+
+ /* solar declination (in radian) */
+ delta = 0.006918f - 0.399912f * cos (tet) + 0.070257f * sin (tet) -
+ 0.006758f * cos (tet * 2.f) + 9.07e-4f * sin (tet * 2.f) -
+ 0.002697f * cos (tet * 3.f) + 0.00148f * sin (tet * 3.f);
+
+ /* elevation,azimuth */
+ amuzero = sin (xla) * sin (delta) + cos (xla) * cos (delta) * cos (ah);
+ elev = asin (amuzero);
+ az = cos (delta) * sin (ah) / cos (elev);
+
+ if (fabs (az) - 1.f > 0.f) az = SIGN(az);
+
+ caz = (-cos (xla) * sin (delta) + sin (xla) * cos (delta) * cos (ah)) / cos (elev);
+ azim = asin (az);
+ if (caz <= 0.f) azim = M_PI - azim;
+
+ if (caz > 0.f && az <= 0.f) azim += M_PI2;
+
+ azim += M_PI;
+ if (azim > M_PI2) azim -= M_PI2;
+
+ elev = elev * 180. / M_PI;
+
+ /* conversion in degrees */
+ asol = (float)(90. - elev);
+ phi0 = (float)(azim * 180. / M_PI);
+}
+
+/*
+ convert:
+ 1 = meteosat observation
+ 2 = goes east observation
+ 3 = goes west observation
+*/
+void GeomCond::posobs(float tu, int nc, int nl)
+{
+ double yr, xr, alti;
+
+ if(igeom == 1) /* meteosat observation */
+ {
+ yr = nl - 1250.5;
+ xr = nc - 2500.5;
+ alti = 42164.0 - 6378.155;
+ }
+ else if(igeom == 2) /* goes east observation */
+ {
+ yr = nl - 8665.5;
+ xr = nc - 6498.5;
+ alti = 42107.0 - 6378.155;
+ }
+ else /* goes west observation */
+ {
+ yr = nl - 8665.5;
+ xr = nc - 6498.5;
+ alti = 42147.0 - 6378.155;
+ }
+
+
+ const double re = 6378.155;
+ const double aaa = 1. / 297.;
+ const double rp = re / (1.f + aaa);
+ const double cdr = M_PI / 180.;
+ const double crd = 180. / M_PI;
+
+ double deltax;
+ double deltay;
+
+ if(igeom == 1)
+ {
+ deltax = 18.0 / 5000.0;
+ deltay = 18.0 / 2500.0;
+ }
+ else
+ {
+ deltax = 18.0 / 12997.0;
+ deltay = 20.0 / 17331.0;
+ }
+
+ double x = xr * deltax * cdr;
+ double y = yr * deltay * cdr;
+ double rs = re + alti;
+ double tanx = tan(x);
+ double tany = tan(y);
+ double val1 = 1.0 + (tanx * tanx);
+ double val2 = 1.0 + (tany * (1.0 + aaa)) * (tany * (1.0 + aaa));
+ double yk = rs / re;
+ double cosx2 = 1. / (val1 * val2);
+
+ double sn, zt, xt, yt, teta, ylat, ylon;
+ if((1. / cosx2) > ((yk * yk) / (yk*yk - 1.)))
+ {
+ G_warning(_("No possibility to compute lat. and long."));
+ return;
+ }
+ else
+ {
+ sn = (rs - (re * (sqrt((yk * yk) - (yk*yk - 1.) * (1. / cosx2))))) / (1. / cosx2);
+ zt = rs - sn;
+ xt = -(sn * tanx);
+ yt = sn * tany / cos(x);
+ teta = asin(yt / rp);
+ ylat = (atan(((tan(teta)) * rp) / re));
+ ylon = atan(xt / zt);
+ }
+
+ xlat = (float)(ylat * crd);
+
+ if(igeom == 1) xlon = (float)(ylon * crd);
+ else if(igeom == 2) xlon = (float)(ylon * crd - 75.);
+ else xlon = (float)(ylon * crd - 135.);
+
+ possol(tu);
+
+ if(igeom == 1) ylon = xlon * M_PI / 180.;
+ else if(igeom == 2) ylon = xlon * M_PI / 180. + 75. * cdr;
+ else ylon = xlon * M_PI / 180. + 135. * cdr;
+
+ ylat = xlat * M_PI / 180.;
+ double gam = sqrt(((1. / cosx2) - 1.) * cosx2);
+ avis = (float)(asin((1. + alti / re) * (gam)) * 180. / M_PI);
+ phiv = (float)((atan2(tan(ylon),sin(ylat)) + M_PI) * 180. / M_PI);
+}
+
+void GeomCond::posnoa(float tu, int nc, float xlonan, float campm, float hna)
+{
+/* noaa 6 definition
+ orbite inclination ai in radians
+ hor mouv in rad/s an
+ h/r=860/6378
+ campm allows the user to switch to pm platforms */
+
+ const double r = 860. / 6378.155;
+ const double ai = 98.96 * M_PI / 180.;
+ const double an = 360. * M_PI / (6119. * 180.);
+ double ylonan = xlonan * M_PI / 180.;
+ double t = tu * 3600;
+ double hnam = hna;
+ hnam = hnam * 3600;
+ double u = t - hnam;
+ u = campm * u * an;
+ double delt = ((nc - (2048 + 1) / 2.) * 55.385 / ((2048. - 1) / 2.));
+ delt = campm * delt * M_PI / 180.;
+ avis = (float)asin((1 + r) * sin(delt));
+ double d = avis - delt;
+ double y = cos(d) * cos(ai) * sin(u) - sin(ai) * sin(d);
+ double z = cos(d) * sin(ai) * sin(u) + cos(ai) * sin(d);
+ double ylat = asin(z);
+ double cosy = cos(d) * cos(u) / cos(ylat);
+
+ double siny = y / cos(ylat);
+ double ylon = asin(siny);
+ if(cosy <= 0.)
+ {
+ if(siny > 0) ylon = M_PI - ylon;
+ if(siny <= 0) ylon = -(M_PI + ylon);
+ }
+ double ylo1 = ylon + ylonan - (t - hnam) * 2. * M_PI / 86400.;
+ xlat = (float)(ylat * 180. / M_PI);
+ xlon = (float)(ylo1 * 180. / M_PI);
+
+
+
+ possol(tu);
+
+ double zlat = asin(sin(ai) * sin(u));
+ double zlon = atan2(cos(ai) * sin(u),cos(u));
+ if(nc != 1024)
+ {
+ double xnum = sin(zlon - ylon) * cos(zlat) / sin(fabs(d));
+ double xden = (sin(zlat) - sin(ylat) * cos(d)) / cos(ylat) / sin(fabs(d));
+ phiv = (float)atan2(xnum,xden);
+ }
+ else phiv = 0.;
+ phiv = (float)(phiv * 180. / M_PI);
+ avis = (float)(fabs(avis) * 180. / M_PI);
+}
+
+void GeomCond::parse()
+{
+ cin >> igeom;
+ cin.ignore(numeric_limits<int>::max(),'\n'); /* read the rest of the scraps, like comments */
+
+ float campm = -1.0f; /* initialize in case igeom == 5 */
+ float tu, xlonan, hna;
+ int nc, nl;
+
+ switch(igeom)
+ {
+ case 0: /* internal format */
+ {
+ cin >> asol;
+ cin >> phi0;
+ cin >> avis;
+ cin >> phiv;
+ cin >> month;
+ cin >> jday;
+ cin.ignore(numeric_limits<int>::max(),'\n'); /* read the rest of the scraps, like comments */
+ break;
+ }
+ case 1: /* meteosat observation */
+ case 2: /* goes east observation */
+ case 3: /* goes west observation */
+ {
+ cin >> month;
+ cin >> jday;
+ cin >> tu;
+ cin >> nc;
+ cin >> nl;
+ cin.ignore(numeric_limits<int>::max(),'\n');
+ posobs(tu, nc, nl);
+ break;
+ }
+ case 4: campm = 1.0f;
+ case 5:
+ {
+ cin >> month;
+ cin >> jday;
+ cin >> tu;
+ cin >> nc;
+ cin >> xlonan;
+ cin >> hna;
+ cin.ignore(numeric_limits<int>::max(),'\n');
+ posnoa(tu, nc, xlonan, campm, hna);
+ break;
+ }
+ case 6: /* hrv ( spot ) * enter month,day,hh.ddd,long.,lat. */
+ case 7: /* tm ( landsat ) * enter month,day,hh.ddd,long.,lat. */
+ case 8: /* etm+ ( landsat7) * enter month,day,hh.ddd,long.,lat. */
+ case 9: /* liss ( IRS 1C) * enter month,day,hh.ddd,long.,lat. */
+ case 10: /* aster * enter month,day,hh.ddd,long.,lat. */
+ case 11: /* avnir * enter month,day,hh.ddd,long.,lat. */
+ case 12: /* ikonos * enter month,day,hh.ddd,long.,lat. */
+ case 13: /* rapideye * enter month,day,hh.ddd,long.,lat. */
+ case 14: /* vgt1_spot4 * enter month,day,hh.ddd,long.,lat. */
+ case 15: /* vgt2_spot5 * enter month,day,hh.ddd,long.,lat. */
+ case 16: /* worldview2 * enter month,day,hh.ddd,long.,lat. */
+ case 17: /* quickbird2 * enter month,day,hh.ddd,long.,lat. */
+ case 18: /* Landsat 8 * enter month,day,hh.ddd,long.,lat. */
+ {
+ cin >> month;
+ cin >> jday;
+ cin >> tu;
+ cin >> xlon;
+ cin >> xlat;
+ cin.ignore(numeric_limits<int>::max(),'\n'); /* read the rest of the scraps, like comments */
+ landsat(tu);
+ break;
+ }
+ default: G_fatal_error(_("Unsupported/unreadable format in control file (found igeom=%ld)"), igeom);
+ }
+
+
+ /* ********************************************************************** */
+ /* */
+ /* / scattered direction */
+ /* / */
+ /* / */
+ /* / adif */
+ /* incident + + + + + + + + + + + + + + + */
+ /* direction */
+ /* */
+ /* ********************************************************************** */
+ phi = (float)fabs(phiv - phi0);
+ phirad = (phi0 - phiv) * (float)M_PI / 180.f;
+ if (phirad < 0.f) phirad += (float)M_PI2;
+ if (phirad > M_PI2) phirad -= (float)M_PI2;
+
+ xmus = (float)cos (asol * M_PI / 180.f);
+ xmuv = (float)cos (avis * M_PI / 180.f);
+ xmup = (float)cos (phirad);
+ xmud = -xmus * xmuv - (float)sqrt (1.f - xmus * xmus) * (float)sqrt (1.f - xmuv * xmuv) * xmup;
+
+ /* test vermote bug */
+ if (xmud > 1.f) xmud = 1.f;
+ if (xmud < -1.f) xmud = -1.f;
+ adif = (float)acos (xmud) * 180.f / (float)M_PI;
+
+ dsol = varsol();
+}
+
+/* ---- print geometrical conditions ---- */
+void GeomCond::print()
+{
+ static const string etiq1[] = {
+ string(" user defined conditions "),
+ string(" Meteosat observation "),
+ string(" GOES east observation "),
+ string(" GOES west observation "),
+ string(" AVHRR (AM noaa) observation "),
+ string(" AVHRR (PM noaa) observation "),
+ string(" H.R.V. observation "),
+ string(" T.M. observation "),
+ string(" ETM+ observation "),
+ string(" LISS observation "),
+ string(" ASTER observation "),
+ string(" AVNIR observation "),
+ string(" Ikonos observation "),
+ string(" Rapideye observation "),
+ string(" VGT1-SPOT4 observation "),
+ string(" VGT2-SPOT5 observation "),
+ string(" Worldview2 observation "),
+ string(" Quickbird2 observation "),
+ string(" Landsat 8 observation ")
+ };
+
+ static const string head(" geometrical conditions identity ");
+ static const string line(" ------------------------------- ");
+ Output::Begin(); Output::Repeat(22,' '); Output::Print(head); Output::End();
+ Output::Begin(); Output::Repeat(22,' '); Output::Print(line); Output::End();
+
+
+ Output::Begin(); Output::Repeat(22,' '); Output::Print(etiq1[igeom]); Output::End();
+ Output::Begin(); Output::End();
+
+
+ Output::Begin(); Output::Repeat(2,' ');
+ ostringstream s1;
+ s1.setf(ios::fixed, ios::floatfield);
+ s1 << " month: " << month << " day: " << jday;
+ s1 << ends;
+ Output::Print(s1.str());
+ Output::End();
+
+
+ Output::Begin(); Output::Repeat(2,' ');
+ ostringstream s2;
+ s2.setf(ios::fixed, ios::floatfield);
+ s2 << setprecision(2);
+
+
+ s2 << " solar zenith angle: " << setw(6) << asol << " deg ";
+ s2 << " solar azimuthal angle: " << setw(6) << phi0 << " deg";
+ s2 << ends;
+ Output::Print(s2.str());
+ Output::End();
+
+
+ Output::Begin(); Output::Repeat(2,' ');
+ ostringstream s3;
+ s3.setf(ios::fixed, ios::floatfield);
+ s3 << setprecision(2);
+ s3 << " view zenith angle: " << setw(6) << avis << " deg ";
+ s3 << " view azimuthal angle: " << setw(6) << phiv << " deg ";
+ s3 << ends;
+ Output::Print(s3.str());
+ Output::End();
+ Output::Begin(); Output::Repeat(2,' ');
+ ostringstream s4;
+ s4.setf(ios::fixed, ios::floatfield);
+ s4 << setprecision(2);
+ s4 << " scattering angle: " << setw(6) << adif << " deg ";
+ s4 << " azimuthal angle difference: " << setw(6) << phi << " deg ";
+ s4 << ends;
+ Output::Print(s4.str());
+ Output::End();
+
+ Output::Begin(); Output::End();
+}
+
+GeomCond GeomCond::Parse()
+{
+ GeomCond geom;
+ geom.parse();
+ return geom;
+}
Copied: grass/trunk/imagery/i.atcorr/geomcond.h (from rev 60762, grass/trunk/imagery/i.atcorr/GeomCond.h)
===================================================================
--- grass/trunk/imagery/i.atcorr/geomcond.h (rev 0)
+++ grass/trunk/imagery/i.atcorr/geomcond.h 2014-06-09 09:12:09 UTC (rev 60763)
@@ -0,0 +1,120 @@
+#ifndef GEOMETRICAL_CONTITIONS_H
+#define GEOMETRICAL_CONTITIONS_H
+
+/* **********************************************************************c */
+/* igeom geometrical conditions c */
+/* -------------------------------------- c */
+/* c */
+/* c */
+/* you choose your own conditions; igeom=0 c */
+/* 0 enter solar zenith angle (in degrees ) c */
+/* solar azimuth angle " c */
+/* satellite zenith angle " c */
+/* satellite azimuth angle " c */
+/* month c */
+/* day of the month c */
+/* c */
+/* or you select one of the following satellite conditions:igeom=1to7 c */
+/* 1 meteosat observation c */
+/* enter month,day,decimal hour (universal time-hh.ddd) c */
+/* n. of column,n. of line.(full scale 5000*2500) c */
+/* c */
+/* 2 goes east observation c */
+/* enter month,day,decimal hour (universal time-hh.ddd) c */
+/* n. of column,n. of line.(full scale 17000*12000)c */
+/* c */
+/* 3 goes west observation c */
+/* enter month,day,decimal hour (universal time-hh.ddd) c */
+/* n. of column,n. of line.(full scale 17000*12000)c */
+/* c */
+/* 4 avhrr ( PM noaa ) c */
+/* enter month,day,decimal hour (universal time-hh.ddd) c */
+/* n. of column(1-2048),xlonan,hna c */
+/* give long.(xlonan) and overpass hour (hna) at c */
+/* the ascendant node at equator c */
+/* c */
+/* 5 avhrr ( AM noaa ) c */
+/* enter month,day,decimal hour (universal time-hh.ddd) c */
+/* n. of column(1-2048),xlonan,hna c */
+/* give long.(xlonan) and overpass hour (hna) at c */
+/* the ascendant node at equator c */
+/* c */
+/* 6 hrv ( spot ) * enter month,day,hh.ddd,long.,lat.c */
+/* c */
+/* 7 tm ( landsat ) * enter month,day,hh.ddd,long.,lat.c */
+/* c */
+/* 8 etm+ ( landsat7) * enter month,day,hh.ddd,long.,lat.c */
+/* c */
+/* 9 liss ( IRC 1C ) * enter month,day,hh.ddd,long.,lat.c */
+/* c */
+/* 10 aster * enter month,day,hh.ddd,long.,lat.c */
+/* c */
+/* 11 avnir * enter month,day,hh.ddd,long.,lat.c */
+/* c */
+/* 12 ikonos * enter month,day,hh.ddd,long.,lat.c */
+/* c */
+/* 13 rapideye * enter month,day,hh.ddd,long.,lat.c */
+/* c */
+/* 14 vgt1_spot4 * enter month,day,hh.ddd,long.,lat.c */
+/* c */
+/* 15 vgt2_spot5 * enter month,day,hh.ddd,long.,lat.c */
+/* c */
+/* 16 worldview2 * enter month,day,hh.ddd,long.,lat.c */
+/* c */
+/* 17 quickbird * enter month,day,hh.ddd,long.,lat. c */
+/* c */
+/* 18 Landsat 8 * enter month,day,hh.ddd,long.,lat. c */
+/* c */
+/* note: for hrv and tm experiments long. and lat. are the c */
+/* coordinates of the scene center. c */
+/* lat. must be > 0 for north lat., < 0 for south lat. c */
+/* long. must be > 0 for east long., < 0 for west long. c */
+/* c */
+/* solar and viewing positions are computed c */
+/* c */
+/* *********************************************************************c */
+
+struct GeomCond
+{
+ long int igeom; /* geometrical conditions */
+
+ /* primary */
+ float asol;
+ float phi0;
+ float avis;
+ float phiv;
+ long int month;
+ long int jday;
+ float xlon;
+ float xlat;
+
+ /* some vars */
+ float phi;
+ float phirad;
+ float xmus;
+ float xmuv;
+ float xmup;
+ float xmud;
+ float adif;
+
+ float dsol;
+
+ void print();
+
+private:
+ /* conversion routines */
+ void possol(float tu);
+ void landsat(float tu);
+ void posobs(float tu, int nc, int nl);
+ void posnoa(float tu, int nc, float xlonan, float campm, float hna);
+
+ void day_number(long int ia, long int& j);
+ void pos_fft (long int j, float tu);
+
+ float varsol(); /* returns dsol as in fortran proggie */
+ void parse();
+public:
+ static GeomCond Parse();
+};
+
+#endif /* GEOMETRICAL_CONTITIONS_H */
Copied: grass/trunk/imagery/i.atcorr/interp.cpp (from rev 60762, grass/trunk/imagery/i.atcorr/Interp.cpp)
===================================================================
--- grass/trunk/imagery/i.atcorr/interp.cpp (rev 0)
+++ grass/trunk/imagery/i.atcorr/interp.cpp 2014-06-09 09:12:09 UTC (rev 60763)
@@ -0,0 +1,203 @@
+#include "common.h"
+#include "interp.h"
+
+void interp (const int iaer, const int idatmp,
+ const float wl, const float taer55,
+ const float taer55p, const float xmud,
+ InterpStruct& is)
+{
+/* that for the atmosphere :
+ the reflectances
+ rayleigh = rorayl
+ aerosols = roaero
+ mixing = romix
+ the downward transmittances
+ rayleigh = dtotr
+ aerosols = dtota
+ total = dtott
+ the upward transmittances
+ rayleigh = utotr
+ aerosols = utota
+ total = utott
+ the spherical albedos
+ rayleigh = asray
+ aerosols = asaer
+ total = astot
+ the optical thickness of total atmosphere
+ rayleigh = tray
+ aerosols = taer
+ the optical thickness of the atmosphere above the plane
+ rayleigh = is.trayp
+ aerosols = taerp
+ the tsca of the aerosols (god dammed it)
+ total atmosphere = tsca */
+
+ int linf = 0;
+ for(int i = 0; i < 9; i++) if(wl > sixs_disc.wldis[i] && wl <= sixs_disc.wldis[i+1]) linf = i;
+
+ if(wl > sixs_disc.wldis[9]) linf = 8;
+ int lsup = linf + 1;
+
+
+ /* interpolation in function of wavelength for scattering
+ atmospheric functions from discrete values at sixs_disc.wldis */
+
+ float alphaa = 0;
+ float betaa = 0;
+ float alphar = 0;
+ float betar = 0;
+ float alphac = 0;
+ float betac = 0;
+ is.phaa = 0;
+ is.roaero = 0;
+ is.dtota = 1;
+ is.utota = 1;
+ is.asaer = 0;
+ is.taer = 0;
+ is.taerp = 0;
+ float coef = (float)log(sixs_disc.wldis[lsup] / sixs_disc.wldis[linf]);
+ float wlinf = sixs_disc.wldis[linf];
+
+ if(iaer != 0)
+ {
+ alphaa = (float)(log(sixs_aer.phase[lsup] / sixs_aer.phase[linf]) / coef);
+ betaa = (float)(sixs_aer.phase[linf] / pow(wlinf,alphaa));
+ is.phaa = (float)(betaa * pow(wl,alphaa));
+ }
+
+ float d2 = 2 + delta;
+ is.phar = (2 * (1 - delta) / d2) * .75f * (1 + xmud * xmud) + 3 * delta / d2;
+ if(idatmp == 0)
+ {
+ betar = 0;
+ betaa = 0;
+ betac = 0;
+ }
+ else
+ {
+ if(sixs_disc.roatm[0][linf] < 0.001)
+ {
+ is.rorayl = sixs_disc.roatm[0][linf] + (sixs_disc.roatm[0][lsup] - sixs_disc.roatm[0][linf])
+ * (wl - sixs_disc.wldis[linf]) / (sixs_disc.wldis[lsup] - sixs_disc.wldis[linf]);
+ }
+ else
+ {
+ alphar = (float)(log(sixs_disc.roatm[0][lsup] / sixs_disc.roatm[0][linf]) / coef);
+ betar = (float)(sixs_disc.roatm[0][linf] / pow(wlinf,alphar));
+ is.rorayl = (float)(betar * pow(wl,alphar));
+ }
+
+ if(sixs_disc.roatm[1][linf] < 0.001)
+ {
+ is.romix = sixs_disc.roatm[1][linf] + (sixs_disc.roatm[1][lsup] - sixs_disc.roatm[1][linf])
+ * (wl - sixs_disc.wldis[linf]) / (sixs_disc.wldis[lsup] - sixs_disc.wldis[linf]);
+ }
+ else
+ {
+ alphac = (float)(log(sixs_disc.roatm[1][lsup] / sixs_disc.roatm[1][linf]) / coef);
+ betac = (float)(sixs_disc.roatm[1][linf] / pow(wlinf,alphac));
+ is.romix = (float)(betac * pow(wl,alphac));
+ }
+
+ if(iaer != 0)
+ {
+
+ if(sixs_disc.roatm[2][linf] < 0.001)
+ {
+ is.roaero = sixs_disc.roatm[2][linf]+(sixs_disc.roatm[2][lsup] - sixs_disc.roatm[2][linf])
+ * (wl - sixs_disc.wldis[linf]) / (sixs_disc.wldis[lsup] - sixs_disc.wldis[linf]);
+ }
+ else
+ {
+ alphaa = (float)(log(sixs_disc.roatm[2][lsup] / sixs_disc.roatm[2][linf]) / coef);
+ betaa = (float)(sixs_disc.roatm[2][linf] / pow(wlinf,alphaa));
+ is.roaero = (float)(betaa * pow(wl,alphaa));
+ }
+ }
+ }
+
+ alphar = (float)(log(sixs_disc.trayl[lsup] / sixs_disc.trayl[linf]) / coef);
+ betar = (float)(sixs_disc.trayl[linf] / pow(wlinf,alphar));
+ is.tray = (float)(betar * pow(wl,alphar));
+
+ if (idatmp != 0)
+ {
+ alphar = (float)(log(sixs_disc.traypl[lsup] / sixs_disc.traypl[linf]) / coef);
+ betar = (float)(sixs_disc.traypl[linf] / pow(wlinf,alphar));
+ is.trayp = (float)(betar * pow(wl,alphar));
+ }
+ else is.trayp = 0;
+
+ if(iaer != 0)
+ {
+ alphaa = (float)(log(sixs_aer.ext[lsup] * sixs_aer.ome[lsup] / (sixs_aer.ext[linf] * sixs_aer.ome[linf])) / coef);
+ betaa = (float)(sixs_aer.ext[linf] * sixs_aer.ome[linf] / pow(wlinf,alphaa));
+ is.tsca = (float)(taer55 * betaa * pow(wl,alphaa) / sixs_aer.ext[3]);
+ alphaa = (float)(log(sixs_aer.ext[lsup] / sixs_aer.ext[linf]) / coef);
+ betaa = (float)(sixs_aer.ext[linf] / pow(wlinf,alphaa));
+ is.taerp = (float)(taer55p * betaa * pow(wl,alphaa) / sixs_aer.ext[3]);
+ is.taer = (float)(taer55 * betaa * pow(wl,alphaa) / sixs_aer.ext[3]);
+ }
+
+ float drinf = sixs_disc.dtdif[0][linf] + sixs_disc.dtdir[0][linf];
+ float drsup = sixs_disc.dtdif[0][lsup] + sixs_disc.dtdir[0][lsup];
+ alphar = (float)(log(drsup / drinf) / coef);
+ betar = (float)(drinf / pow(wlinf,alphar));
+ is.dtotr = (float)(betar * pow(wl,alphar));
+ float dtinf = sixs_disc.dtdif[1][linf] + sixs_disc.dtdir[1][linf];
+ float dtsup = sixs_disc.dtdif[1][lsup] + sixs_disc.dtdir[1][lsup];
+ alphac = (float)(log((dtsup * drinf) / (dtinf * drsup)) / coef);
+ betac = (float)((dtinf / drinf) / pow(wlinf,alphac));
+ float dtotc = (float)(betac * pow(wl,alphac));
+ float dainf = sixs_disc.dtdif[2][linf] + sixs_disc.dtdir[2][linf];
+ float dasup = sixs_disc.dtdif[2][lsup] + sixs_disc.dtdir[2][lsup];
+
+ if(iaer != 0)
+ {
+ alphaa = (float)(log(dasup / dainf) / coef);
+ betaa = (float)(dainf / pow(wlinf,alphaa));
+ is.dtota = (float)(betaa * pow(wl,alphaa));
+ }
+
+ is.dtott = dtotc * is.dtotr;
+ float urinf = sixs_disc.utdif[0][linf] + sixs_disc.utdir[0][linf];
+ float ursup = sixs_disc.utdif[0][lsup] + sixs_disc.utdir[0][lsup];
+ alphar = (float)(log(ursup / urinf) / coef);
+ betar = (float)(urinf / pow(wlinf,alphar));
+ is.utotr = (float)(betar * pow(wl,alphar));
+ float utinf = sixs_disc.utdif[1][linf] + sixs_disc.utdir[1][linf];
+ float utsup = sixs_disc.utdif[1][lsup] + sixs_disc.utdir[1][lsup];
+ alphac = (float)(log((utsup * urinf) / (utinf * ursup)) / coef);
+ betac = (float)((utinf / urinf) / pow(wlinf,alphac));
+ float utotc = (float)(betac * pow(wl,alphac));
+ float uainf = sixs_disc.utdif[2][linf] + sixs_disc.utdir[2][linf];
+ float uasup = sixs_disc.utdif[2][lsup] + sixs_disc.utdir[2][lsup];
+ is.utott = utotc * is.utotr;
+
+ if(iaer != 0)
+ {
+ alphaa = (float)(log(uasup / uainf) / coef);
+ betaa = (float)(uainf / pow(wlinf,alphaa));
+ is.utota = (float)(betaa * pow(wl,alphaa));
+ }
+
+ float arinf = sixs_disc.sphal[0][linf];
+ float arsup = sixs_disc.sphal[0][lsup];
+ alphar = (float)(log(arsup / arinf) / coef);
+ betar = (float)(arinf / pow(wlinf,alphar));
+ is.asray = (float)(betar * pow(wl,alphar));
+ float atinf = sixs_disc.sphal[1][linf];
+ float atsup = sixs_disc.sphal[1][lsup];
+ alphac = (float)(log(atsup / atinf) / coef);
+ betac = (float)(atinf / pow(wlinf,alphac));
+ is.astot = (float)(betac * pow(wl,alphac));
+ float aainf = sixs_disc.sphal[2][linf];
+ float aasup = sixs_disc.sphal[2][lsup];
+
+ if(iaer != 0)
+ {
+ alphaa = (float)(log(aasup / aainf) / coef);
+ betaa = (float)(aainf / pow(wlinf,alphaa));
+ is.asaer = (float)(betaa * pow(wl,alphaa));
+ }
+}
Copied: grass/trunk/imagery/i.atcorr/interp.h (from rev 60762, grass/trunk/imagery/i.atcorr/Interp.h)
===================================================================
--- grass/trunk/imagery/i.atcorr/interp.h (rev 0)
+++ grass/trunk/imagery/i.atcorr/interp.h 2014-06-09 09:12:09 UTC (rev 60763)
@@ -0,0 +1,36 @@
+#ifndef INTERP_H
+#define INTERP_H
+
+struct InterpStruct
+{
+ float romix;
+ float rorayl;
+ float roaero;
+ float phaa;
+ float phar;
+ float tsca;
+ float tray;
+ float trayp;
+ float taer;
+ float taerp;
+ float dtott;
+ float utott;
+ float astot;
+ float asray;
+ float asaer;
+ float utotr;
+ float utota;
+ float dtotr;
+ float dtota;
+};
+
+/*
+To estimate the different atmospheric functions r(mS,mv,fS,fv), T(q) and S at any
+wavelength from the 10 discret computations (subroutine DISCOM).
+ */
+void interp (const int iaer, const int idatmp,
+ const float wl, const float taer55,
+ const float taer55p, const float xmud,
+ InterpStruct& is);
+
+#endif /* INTERP_H */
Copied: grass/trunk/imagery/i.atcorr/iwave.cpp (from rev 60762, grass/trunk/imagery/i.atcorr/Iwave.cpp)
===================================================================
--- grass/trunk/imagery/i.atcorr/iwave.cpp (rev 0)
+++ grass/trunk/imagery/i.atcorr/iwave.cpp 2014-06-09 09:12:09 UTC (rev 60763)
@@ -0,0 +1,3317 @@
+extern "C" {
+#include <grass/gis.h>
+#include <grass/glocale.h>
+}
+
+#include "common.h"
+#include "iwave.h"
+
+#ifdef WIN32
+#pragma warning(disable:4305) /* disable warning about initialization of a float by a double */
+#endif
+
+/* Adding new band filters:
+ * see README
+ */
+
+
+/*
+ spectral band of meteosat
+*/
+void IWave::meteo()
+{
+ static const float sr[305] = {
+ .00, .00, .00, .01, .01, .01, .02,
+ .02, .02, .02, .02, .02, .03, .03,
+ .04, .04, .04, .05, .05, .05, .06,
+ .06, .07, .07, .07, .08, .08, .09,
+ .09, .10, .10, .10, .11, .11, .12,
+ .12, .12, .13, .14, .14, .15, .15,
+ .16, .16, .17, .17, .18, .18, .19,
+ .20, .20, .21, .21, .22, .23, .24,
+ .24, .25, .26, .27, .28, .28, .29,
+ .30, .30, .31, .32, .33, .34, .35,
+ .35, .36, .37, .38, .39, .40, .40,
+ .41, .42, .43, .44, .45, .46, .48,
+ .49, .50, .51, .52, .53, .55, .56,
+ .57, .58, .60, .61, .62, .63, .64,
+ .65, .65, .66, .67, .67, .68, .69,
+ .69, .70, .71, .71, .72, .73, .73,
+ .74, .76, .77, .78, .78, .79, .80,
+ .81, .82, .83, .84, .85, .86, .87,
+ .88, .89, .89, .91, .92, .93, .94,
+ .95, .96, .96, .97, .98, .98, .99,
+ .99, .99, .99, 1.00, 1.00, 1.00, 1.00,
+ 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, .99,
+ .99, .99, .99, .98, .98, .98, .98,
+ .98, .97, .97, .97, .97, .97, .97,
+ .97, .96, .96, .96, .96, .96, .96,
+ .96, .96, .96, .96, .95, .95, .95,
+ .94, .93, .93, .92, .92, .91, .90,
+ .89, .89, .88, .88, .87, .86, .86,
+ .85, .85, .84, .84, .83, .82, .82,
+ .81, .80, .80, .79, .79, .78, .77,
+ .77, .76, .76, .75, .75, .74, .74,
+ .74, .73, .73, .72, .71, .70, .68,
+ .67, .65, .64, .63, .62, .61, .60,
+ .59, .58, .57, .56, .55, .54, .53,
+ .52, .51, .50, .49, .49, .48, .47,
+ .46, .45, .43, .42, .41, .40, .39,
+ .38, .37, .36, .35, .34, .33, .31,
+ .30, .29, .28, .28, .27, .25, .24,
+ .23, .22, .21, .20, .19, .18, .17,
+ .16, .15, .14, .13, .12, .11, .11,
+ .10, .09, .08, .08, .08, .07, .06,
+ .06, .05, .05, .05, .04, .04, .03,
+ .03, .02, .02, .01, .01, .01, .01,
+ .01, .00, .00, .00 };
+
+
+ ffu.wlinf=0.3499999f;
+ ffu.wlsup=1.11f;
+
+ int i;
+ for(i = 0; i < 40; i++) ffu.s[0] = 0;
+ for(i = 0; i < 305; i++) ffu.s[40+i] = sr[i];
+ for(i = 345; i < 1501; i++) ffu.s[i] = 0;
+}
+
+
+void IWave::goes_east()
+{
+ /* spectral band of goes east */
+ static const float sr[165] = {
+ .00, .00, .00, .01, .01, .03, .05,
+ .09, .13, .22, .30, .38, .46, .52,
+ .58, .63, .68, .70, .73, .75, .77,
+ .79, .81, .82, .84, .85, .86, .87,
+ .88, .89, .90, .91, .92, .93, .93,
+ .94, .95, .96, .96, .97, .98, .99,
+ .99, .99, .98, .98, .97, .97, .96,
+ .95, .95, .94, .94, .93, .93, .92,
+ .92, .91, .91, .91, .91, .91, .91,
+ .91, .91, .91, .91, .90, .89, .88,
+ .88, .86, .84, .83, .81, .79, .77,
+ .75, .73, .71, .69, .69, .68, .67,
+ .66, .65, .64, .63, .61, .60, .59,
+ .57, .56, .54, .52, .50, .49, .47,
+ .46, .44, .43, .41, .40, .38, .36,
+ .35, .33, .32, .30, .29, .28, .27,
+ .26, .25, .23, .22, .21, .20, .19,
+ .18, .17, .16, .15, .14, .13, .12,
+ .11, .10, .10, .09, .08, .08, .07,
+ .06, .06, .05, .05, .04, .04, .03,
+ .03, .03, .02, .02, .02, .02, .01,
+ .01, .01, .01, .01, .00, .00, .00,
+ .00, .00, .00, .00, .00, .00, .00,
+ .00, .00, .00, .00 };
+
+ ffu.wlinf = 0.49f;
+ ffu.wlsup = 0.8999999f;
+ int i = 0;
+ for(i = 0; i < 96; i++) ffu.s[i] = 0;
+ for(i = 0; i < 165; i++) ffu.s[96+i] = sr[i];
+ for(i = 261; i < 1501; i++) ffu.s[i] = 0;
+}
+
+void IWave::goes_west()
+{
+ /* spectral band of goes west */
+
+ static const float sr[165] = {
+ .00, .00, .00, .00, .00, .01, .02,
+ .04, .06, .12, .18, .30, .41, .51,
+ .61, .69, .77, .83, .89, .91, .93,
+ .94, .96, .96, .97, .98, .99, .99,
+ .99, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00,
+ .99, .99, .99, .98, .98, .97, .97,
+ .96, .96, .96, .95, .95, .95, .94,
+ .94, .93, .92, .91, .90, .89, .88,
+ .87, .86, .85, .84, .83, .82, .81,
+ .80, .80, .79, .78, .77, .76, .75,
+ .74, .73, .72, .70, .69, .67, .66,
+ .64, .63, .61, .59, .58, .56, .55,
+ .54, .52, .51, .50, .49, .48, .46,
+ .45, .44, .43, .41, .40, .38, .37,
+ .36, .34, .33, .32, .31, .29, .28,
+ .27, .26, .24, .23, .22, .21, .20,
+ .19, .18, .17, .17, .16, .15, .14,
+ .14, .13, .12, .12, .11, .10, .09,
+ .09, .08, .08, .07, .07, .07, .06,
+ .06, .05, .05, .05, .04, .04, .03,
+ .03, .03, .03, .02, .02, .02, .02,
+ .02, .01, .01, .01, .01, .01, .01,
+ .01, .00, .00, .00, .00, .00, .00,
+ .00, .00, .00, .00 };
+
+ ffu.wlinf = 0.49f;
+ ffu.wlsup = 0.8999999f;
+ int i = 0;
+ for(i = 0; i < 96; i++) ffu.s[i] = 0;
+ for(i = 0; i < 165; i++) ffu.s[96+i] = sr[i];
+ for(i = 261; i < 1501; i++) ffu.s[i] = 0;
+}
+
+void IWave::avhrr(int iwa)
+{
+ /* 1st spectral band of avhrr (noaa 6) */
+ static const float sr1[80] = {
+ .0000, .0178, .0355, .0533, .0710, .1655, .2600, .3545,
+ .4490, .5215, .5940, .6665, .7390, .7575, .7760, .7945,
+ .8130, .8113, .8095, .8078, .8060, .8201, .8343, .8484,
+ .8625, .8766, .8908, .9049, .9190, .9291, .9393, .9494,
+ .9595, .9696, .9798, .9899, 1.000, .9996, .9992, .9989,
+ .9985, .9981, .9977, .9974, .9970, .9596, .9222, .8849,
+ .8475, .8101, .7727, .7354, .6980, .6047, .5115, .4182,
+ .3250, .2767, .2285, .1802, .1320, .1127, .0935, .0742,
+ .0550, .0480, .0410, .0340, .0270, .0235, .0200, .0165,
+ .0130, .0115, .0100, .0085, .0070, .0052, .0035, .0017
+ };
+
+ /* 2nd spectral band of avhrr (noaa 6) */
+ static const float sr2[173] = {
+
+ .0000, .0020, .0040, .0060, .0080, .0710, .1340, .1970,
+ .2600, .3492, .4385, .5277, .6170, .6678, .7185, .7693,
+ .8200, .8435, .8670, .8905, .9140, .9212, .9285, .9358,
+ .9430, .9415, .9400, .9385, .9370, .9520, .9670, .9820,
+ .9970, .9977, .9985, .9992, 1.000, .9813, .9625, .9438,
+ .9250, .9148, .9045, .8943, .8840, .8751, .8663, .8574,
+ .8485, .8396, .8307, .8219, .8130, .8100, .8070, .8040,
+ .8010, .7980, .7950, .7920, .7890, .7878, .7865, .7853,
+ .7840, .7828, .7815, .7803, .7790, .7751, .7713, .7674,
+ .7635, .7596, .7558, .7519, .7480, .7464, .7448, .7431,
+ .7415, .7399, .7383, .7366, .7350, .7225, .7100, .6975,
+ .6850, .6783, .6715, .6648, .6580, .6515, .6450, .6385,
+ .6320, .6270, .6220, .6170, .6120, .6093, .6065, .6038,
+ .6010, .5993, .5975, .5958, .5940, .5910, .5880, .5850,
+ .5820, .5720, .5620, .5520, .5420, .5243, .5065, .4887,
+ .4710, .4402, .4095, .3787, .3480, .3155, .2830, .2505,
+ .2180, .1935, .1690, .1445, .1200, .1055, .0910, .0765,
+ .0620, .0540, .0460, .0380, .0300, .0257, .0215, .0172,
+ .0130, .0112, .0095, .0077, .0060, .0053, .0045, .0038,
+ .0030, .0025, .0020, .0015, .0010, .0010, .0010, .0010,
+ .0010, .0009, .0007, .0006, .0005, .0004, .0004, .0003,
+ .0002, .0002, .0001, .0001, .0000
+ };
+
+
+ /* 1st spectral band of avhrr (noaa 7) */
+ static const float sr3[121] = {
+ .0000, .0008, .0016, .0024, .0032, .0032, .0031, .0030,
+ .0030, .0029, .0029, .0028, .0028, .0027, .0027, .0026,
+ .0025, .0031, .0036, .0042, .0047, .0288, .0529, .0769,
+ .1010, .1943, .2875, .3808, .4740, .5363, .5985, .6608,
+ .7230, .7390, .7550, .7710, .7870, .7838, .7805, .7773,
+ .7740, .7788, .7835, .7883, .7930, .8100, .8270, .8440,
+ .8610, .8958, .9305, .9653,1.0000, .9860, .9720, .9580,
+ .9440, .9435, .9430, .9425, .9420, .9442, .9465, .9487,
+ .9510, .9575, .9640, .9705, .9770, .9135, .8500, .7865,
+ .7230, .6285, .5340, .4395, .3450, .2955, .2460, .1965,
+ .1470, .1280, .1090, .0900, .0710, .0638, .0565, .0493,
+ .0420, .0383, .0345, .0307, .0270, .0245, .0220, .0195,
+ .0170, .0158, .0145, .0132, .0120, .0114, .0107, .0101,
+ .0095, .0096, .0098, .0099, .0100, .0103, .0105, .0108,
+ .0110, .0100, .0090, .0080, .0070, .0052, .0035, .0017,
+ .0000
+ };
+
+ /* 2nd spectral band of avhrr (noaa 7) */
+ static const float sr4[213] = {
+ .0000, .0018, .0035, .0053, .0070, .0068, .0065, .0063,
+ .0060, .0058, .0055, .0052, .0050, .0050, .0050, .0050,
+ .0050, .0060, .0070, .0080, .0090, .0320, .0550, .0780,
+ .1010, .1788, .2565, .3343, .4120, .4922, .5725, .6527,
+ .7330, .7765, .8200, .8635, .9070, .9218, .9365, .9513,
+ .9660, .9725, .9790, .9855, .9920, .9940, .9960, .9980,
+ 1.0000, .9962,.9925, .9887, .9850, .9870, .9890, .9910,
+ .9930, .9763, .9595, .9428, .9260, .9298, .9335, .9373,
+ .9410, .9373, .9335, .9298, .9260, .9120, .8980, .8840,
+ .8700, .8700, .8700, .8700, .8700, .8703, .8705, .8708,
+ .8710, .8708, .8705, .8703, .8700, .8715, .8730, .8745,
+ .8760, .8740, .8720, .8700, .8680, .8690, .8700, .8710,
+ .8720, .8687, .8655, .8623, .8590, .8555, .8520, .8485,
+ .8450, .8428, .8405, .8383, .8360, .8328, .8295, .8263,
+ .8230, .8145, .8060, .7975, .7890, .7872, .7855, .7838,
+ .7820, .7790, .7760, .7730, .7700, .7682, .7665, .7648,
+ .7630, .7545, .7460, .7375, .7290, .6987, .6685, .6382,
+ .6080, .5623, .5165, .4707, .4250, .3812, .3375, .2937/
+ .2500, .2215, .1930, .1645, .1360, .1202, .1045, .0887,
+ .0730, .0647, .0565, .0482, .0400, .0357, .0315, .0272,
+ .0230, .0207, .0185, .0162, .0140, .0125, .0110, .0095,
+ .0080, .0075, .0070, .0065, .0060, .0055, .0050, .0045,
+ .0040, .0039, .0038, .0037, .0036, .0036, .0037, .0037,
+ .0037, .0035, .0034, .0032, .0031, .0029, .0028, .0026,
+ .0025, .0025, .0024, .0024, .0023, .0023, .0022, .0022,
+ .0021, .0021, .0021, .0020, .0020, .0019, .0019, .0018,
+ .0018, .0013, .0009, .0004, .0000
+ };
+
+ /* 1st spectral band of avhrr (noaa 8) */
+ static const float sr5[189] = {
+ .0000, .0012, .0024, .0036, .0048, .0223, .0399, .0574,
+ .0749, .1633, .2517, .3400, .4284, .4937, .5590, .6243,
+ .6896, .7135, .7375, .7614, .7853, .7833, .7813, .7793,
+ .7773, .7774, .7775, .7776, .7777, .7922, .8067, .8211,
+ .8356, .8566, .8777, .8987, .9197, .9332, .9468, .9603,
+ .9739, .9674, .9609, .9545, .9480, .9507, .9534, .9561,
+ .9588, .9691, .9794, .9897,1.0000, .9692, .9385, .9077,
+ .8770, .7775, .6779, .5784, .4789, .4108, .3428, .2747,
+ .2067, .1782, .1497, .1213, .0928, .0820, .0712, .0604,
+ .0496, .0425, .0355, .0284, .0214, .0208, .0202, .0196,
+ .0190, .0167, .0145, .0122, .0100, .0095, .0090, .0085,
+ .0080, .0083, .0086, .0089, .0092, .0094, .0097, .0100,
+ .0103, .0100, .0096, .0093, .0090, .0086, .0083, .0079,
+ .0076, .0082, .0087, .0093, .0099, .0104, .0110, .0115,
+ .0121, .0114, .0108, .0101, .0094, .0088, .0081, .0075,
+ .0068, .0074, .0079, .0085, .0091, .0097, .0102, .0108,
+ .0114, .0115, .0115, .0116, .0117, .0118, .0119, .0119,
+ .0120, .0136, .0152, .0167, .0183, .0204, .0224, .0245,
+ .0265, .0295, .0324, .0354, .0384, .0419, .0453, .0488,
+ .0522, .0514, .0507, .0499, .0491, .0467, .0443, .0420,
+ .0396, .0348, .0299, .0251, .0203, .0183, .0164, .0144,
+ .0125, .0118, .0110, .0103, .0095, .0083, .0071, .0060,
+ .0048, .0041, .0035, .0028, .0022, .0022, .0021, .0021,
+ .0021, .0016, .0010, .0005, .0000
+ };
+
+
+ /* 2nd spectral band of avhrr (noaa 8) */
+ static const float sr6[177] = {
+ .0000, .0095, .0190, .0285, .0381, .0476, .0571, .0666,
+ .0761, .1559, .2358, .3156, .3954, .4855, .5756, .6658,
+ .7559, .7966, .8373, .8779, .9186, .9332, .9478, .9624,
+ .9770, .9814, .9858, .9902, .9946, .9959, .9973, .9986,
+ 1.0000, .9965, .9930, .9896, .9861, .9796, .9731, .9666,
+ .9601, .9518, .9435, .9351, .9268, .9171, .9073, .8976,
+ .8879, .8791, .8703, .8615, .8527, .8439, .8351, .8263,
+ .8175, .8140, .8104, .8068, .8033, .7997, .7962, .7926,
+ .7891, .7871, .7850, .7830, .7810, .7790, .7769, .7749,
+ .7729, .7711, .7694, .7677, .7659, .7642, .7624, .7607,
+ .7589, .7558, .7528, .7497, .7466, .7436, .7405, .7375,
+ .7344, .7282, .7220, .7158, .7096, .7034, .6972, .6910,
+ .6848, .6781, .6713, .6646, .6579, .6511, .6444, .6376,
+ .6309, .6265, .6221, .6177, .6133, .6088, .6044, .6000,
+ .5956, .5888, .5820, .5752, .5684, .5616, .5548, .5480,
+ .5412, .5159, .4906, .4653, .4400, .4147, .3894, .3641,
+ .3388, .3061, .2734, .2408, .2081, .1851, .1621, .1392,
+ .1162, .1023, .0884, .0745, .0606, .0532, .0458, .0384/
+ .0310, .0271, .0231, .0192, .0153, .0134, .0115, .0096,
+ .0077, .0071, .0065, .0059, .0053, .0046, .0040, .0034,
+ .0028, .0026, .0024, .0023, .0021, .0019, .0017, .0016,
+ .0014, .0012, .0010, .0009, .0007, .0005, .0003, .0002,
+ .0000
+ };
+
+ /* 1st spectral band of avhrr (noaa 9) */
+ static const float sr7[113] = {
+ .0000, .0001, .0003, .0004, .0006, .0040, .0074, .0108,
+ .0142, .0622, .1101, .1581, .2060, .2810, .3561, .4311,
+ .5061, .5500, .5940, .6379, .6818, .7127, .7437, .7746,
+ .8055, .8122, .8190, .8170, .8150, .8063, .7975, .7887,
+ .7800, .7881, .7962, .8044, .8125, .8335, .8544, .8753,
+ .8963, .9000, .9037, .9074, .9111, .8899, .8688, .8476,
+ .8265, .8198, .8130, .8110, .8090, .8277, .8464, .8650,
+ .8837, .9128, .9419, .9709,1.0000, .9678, .9356, .9035,
+ .8713, .7712, .6711, .5711, .4710, .4067, .3424, .2782,
+ .2139, .1849, .1559, .1269, .0979, .0861, .0743, .0625,
+ .0507, .0454, .0400, .0347, .0294, .0266, .0238, .0210,
+ .0182, .0170, .0157, .0145, .0133, .0124, .0115, .0107,
+ .0098, .0092, .0086, .0080, .0074, .0071, .0069, .0066,
+ .0063, .0062, .0061, .0061, .0060, .0045, .0030, .0015,
+ .0000
+ };
+
+ /* 2nd spectral band of avhrr (noaa 9) */
+ static const float sr8[197] = {
+ .0000, .0011, .0022, .0033, .0044, .0207, .0369, .0532,
+ .0694, .1410, .2127, .2843, .3559, .4388, .5217, .6047,
+ .6876, .7304, .7731, .8159, .8586, .8782, .8977, .9173,
+ .9369, .9491, .9614, .9736, .9859, .9894, .9930, .9965,
+ 1.0000, .9956, .9912, .9869, .9825, .9699, .9574, .9448,
+ .9323, .9243, .9163, .9083, .9003, .8971, .8939, .8907,
+ .8875, .8881, .8887, .8893, .8899, .8931, .8963, .8994,
+ .9026, .9046, .9067, .9087, .9108, .9114, .9120, .9126,
+ .9132, .9065, .8997, .8930, .8863, .8807, .8750, .8694,
+ .8638, .8605, .8571, .8538, .8504, .8532, .8560, .8588,
+ .8616, .8644, .8672, .8701, .8729, .8749, .8770, .8790,
+ .8811, .8766, .8721, .8677, .8632, .8502, .8372, .8242,
+ .8112, .7959, .7806, .7653, .7500, .7423, .7347, .7270,
+ .7193, .7166, .7138, .7111, .7084, .7169, .7255, .7340,
+ .7425, .7382, .7338, .7295, .7251, .6819, .6387, .5955,
+ .5523, .4922, .4321, .3721, .3120, .2722, .2325, .1927,
+ .1529, .1336, .1144, .0951, .0759, .0673, .0586, .0500,
+ .0414, .0370, .0327, .0283, .0240, .0217, .0195, .0172,
+ .0150, .0139, .0128, .0118, .0107, .0099, .0090, .0082,
+ .0074, .0070, .0066, .0061, .0057, .0054, .0051, .0049,
+ .0046, .0044, .0042, .0041, .0039, .0037, .0036, .0034,
+ .0033, .0032, .0031, .0030, .0029, .0028, .0027, .0026,
+ .0025, .0025, .0025, .0024, .0024, .0023, .0022, .0021,
+ .0020, .0019, .0018, .0018, .0017, .0016, .0015, .0015,
+ .0014, .0010, .0007, .0003, .0000
+ };
+
+ /* 1st spectral band of avhrr (noaa 10) */
+ static const float sr9[101] = {
+ .0000, .0005, .0010, .0015, .0020, .0023, .0025, .0028,
+ .0030, .0239, .0448, .0657, .0866, .1852, .2838, .3824,
+ .4810, .5470, .6130, .6790, .7450, .7640, .7830, .8020,
+ .8210, .8182, .8154, .8126, .8098, .8219, .8339, .8460,
+ .8580, .8808, .9035, .9263, .9490, .9607, .9723, .9840,
+ .9956, .9875, .9793, .9712, .9630, .9595, .9560, .9525,
+ .9490, .9618, .9745, .9872,1.0000, .9980, .9960, .9940,
+ .9920, .9013, .8105, .7197, .6290, .5400, .4510, .3620,
+ .2730, .2315, .1900, .1485, .1070, .0935, .0800, .0665,
+ .0530, .0468, .0405, .0343, .0280, .0255, .0230, .0205,
+ .0180, .0165, .0150, .0135, .0120, .0110, .0100, .0090,
+ .0080, .0070, .0061, .0051, .0042, .0034, .0026, .0018,
+ .0010, .0007, .0005, .0002, .0000
+ };
+
+ /* 2nd spectral band of avhrr (noaa 10) */
+ static const float sr10[237] = {
+ .0000, .0006, .0012, .0018, .0024, .0030, .0036, .0042,
+ .0048, .0049, .0049, .0050, .0051, .0051, .0052, .0052,
+ .0053, .0053, .0054, .0054, .0055, .0055, .0056, .0056,
+ .0057, .0054, .0050, .0047, .0044, .0041, .0037, .0034,
+ .0031, .0031, .0032, .0032, .0033, .0033, .0033, .0034,
+ .0034, .0239, .0445, .0650, .0855, .1561, .2267, .2974,
+ .3680, .4508, .5335, .6163, .6990, .7430, .7870, .8310,
+ .8750, .8918, .9085, .9253, .9420, .9510, .9600, .9690,
+ .9780, .9835, .9890, .9945,1.0000, .9933, .9866, .9800,
+ .9733, .9661, .9589, .9517, .9445, .9329, .9213, .9096,
+ .8980, .8935, .8890, .8845, .8800, .8788, .8775, .8763,
+ .8750, .8658, .8565, .8473, .8380, .8415, .8450, .8485,
+ .8520, .8508, .8495, .8483, .8470, .8410, .8350, .8290,
+ .8230, .8148, .8065, .7983, .7900, .7983, .8065, .8148,
+ .8230, .8190, .8150, .8110, .8070, .7990, .7910, .7830,
+ .7750, .7712, .7675, .7637, .7600, .7425, .7250, .7075,
+ .6900, .6855, .6810, .6765, .6720, .6710, .6700, .6690,
+ .6680, .6655, .6630, .6605, .6580, .6455, .6330, .6205,
+ .6080, .5993, .5905, .5818, .5730, .5602, .5475, .5347,
+ .5220, .4872, .4525, .4177, .3830, .3435, .3040, .2645,
+ .2250, .2015, .1780, .1545, .1310, .1155, .1000, .0845,
+ .0690, .0613, .0535, .0457, .0380, .0337, .0295, .0252,
+ .0210, .0189, .0168, .0147, .0126, .0114, .0102, .0091,
+ .0079, .0073, .0067, .0060, .0054, .0051, .0047, .0044,
+ .0041, .0040, .0038, .0037, .0036, .0035, .0034, .0033,
+ .0032, .0031, .0030, .0030, .0029, .0028, .0027, .0027,
+ .0026, .0026, .0025, .0025, .0024, .0023, .0022, .0022,
+ .0021, .0020, .0019, .0018, .0017, .0016, .0016, .0015,
+ .0015, .0015, .0014, .0014, .0014, .0014, .0014, .0015,
+ .0015, .0011, .0008, .0004, .0000
+ };
+
+ /* 1st spectral band of avhrr (noaa 11) */
+ static const float sr11[113] = {
+ .0000, .0033, .0065, .0098, .0130, .0500, .0870, .1240,
+ .1610, .2385, .3160, .3935, .4710, .5150, .5590, .6030,
+ .6470, .6768, .7065, .7363, .7660, .7745, .7830, .7915,
+ .8000, .7918, .7835, .7753, .7670, .7747, .7825, .7903,
+ .7980, .8215, .8450, .8685, .8920, .8907, .8895, .8882,
+ .8870, .8702, .8535, .8367, .8200, .8110, .8020, .7930,
+ .7840, .8050, .8260, .8470, .8680, .9010, .9340, .9670,
+ 1.0000, .9562, .9125, .8687, .8250, .7192, .6135, .5077,
+ .4020, .3467, .2915, .2362, .1810, .1568, .1325, .1083,
+ .0840, .0735, .0630, .0525, .0420, .0380, .0340, .0300,
+ .0260, .0242, .0225, .0207, .0190, .0180, .0170, .0160,
+ .0150, .0137, .0125, .0112, .0100, .0087, .0075, .0062,
+ .0050, .0052, .0055, .0057, .0060, .0060, .0060, .0060,
+ .0060, .0060, .0060, .0060, .0060, .0045, .0030, .0015,
+ .0000
+ };
+
+ /* 2nd spectral band of avhrr (noaa 11) */
+ static const float sr12[209] = {
+ .0000, .0005, .0010, .0015, .0020, .0025, .0030, .0035,
+ .0040, .0039, .0037, .0036, .0035, .0034, .0032, .0031,
+ .0030, .0029, .0028, .0026, .0025, .0024, .0023, .0021,
+ .0020, .0020, .0020, .0020, .0020, .0020, .0020, .0020,
+ .0020, .0028, .0035, .0043, .0050, .0173, .0295, .0418,
+ .0540, .1150, .1760, .2370, .2980, .3822, .4665, .5507,
+ .6350, .6865, .7380, .7895, .8410, .8623, .8835, .9048,
+ .9260, .9415, .9570, .9725, .9880, .9910, .9940, .9970,
+ 1.0000, .9925, .9850, .9775, .9700, .9600, .9500, .9400,
+ .9300, .9193, .9085, .8978, .8870, .8770, .8670, .8570,
+ .8470, .8478, .8485, .8493, .8500, .8518, .8535, .8553,
+ .8570, .8602, .8635, .8668, .8700, .8673, .8645, .8618,
+ .8590, .8505, .8420, .8335, .8250, .8183, .8115, .8047,
+ .7980, .7983, .7985, .7988, .7990, .7935, .7880, .7825,
+ .7770, .7835, .7900, .7965, .8030, .8075, .8120, .8165,
+ .8210, .8108, .8005, .7903, .7800, .7767, .7735, .7703,
+ .7670, .7473, .7275, .7077, .6880, .6755, .6630, .6505,
+ .6380, .6350, .6320, .6290, .6260, .6345, .6430, .6515/
+ .6600, .6695, .6790, .6885, .6980, .6790, .6600, .6410,
+ .6220, .5645, .5070, .4495, .3920, .3420, .2920, .2420,
+ .1920, .1667, .1415, .1162, .0910, .0795, .0680, .0565,
+ .0450, .0411, .0372, .0334, .0295, .0256, .0217, .0179,
+ .0140, .0129, .0117, .0106, .0095, .0084, .0072, .0061,
+ .0050, .0048, .0045, .0043, .0040, .0038, .0035, .0033,
+ .0030, .0029, .0027, .0026, .0025, .0024, .0022, .0021,
+ .0020, .0017, .0015, .0012, .0010, .0007, .0005, .0002,
+ .0000
+ };
+
+ /* 1st spectral band of avhrr (noaa 12) */
+ static const float sr13[201] = {
+ .0000, .0000, .0000, .0000, .0000, .0000, .0000, .0000,
+ .0000, .0000, .0000, .0000, .0000, .0000, .0000, .0000,
+ .0000, .0000, .0000, .0000, .0000, .0048, .0135, .0200,
+ .0270, .1046, .2094, .3253, .4360, .5286, .6030, .6621,
+ .7090, .7464, .7753, .7966, .8110, .8196, .8249, .8301,
+
+ .8380, .8507, .8668, .8837, .8990, .9109, .9198, .9265,
+ .9320, .9371, .9419, .9466, .9510, .9552, .9587, .9612,
+ .9620, .9610, .9593, .9582, .9590, .9625, .9673, .9715,
+ .9730, .9707, .9666, .9635, .9640, .9701, .9799, .9908,
+ 1.0000, .9805, .9590, .9407, .9180, .8357, .7325, .6205,
+ .5120, .4170, .3365, .2692, .2140, .1695, .1343, .1066,
+ .0850, .0679, .0546, .0442, .0360, .0294, .0240, .0196,
+ .0160, .0130, .0105, .0089, .0080, .0080, .0083, .0085,
+ .0080, .0064, .0041, .0018, .0000, .0000, .0000, .0000,
+ .0000, .0000, .0000, .0000, .0000, .0000, .0000, .0000,
+ .0000, .0000, .0000, .0000, .0000, .0000, .0000, .0000,
+ .0000, .0000, .0000, .0000, .0000, .0000, .0000, .0000,
+ .0000, .0024, .0056, .0087, .0110, .0118, .0117, .0112,
+ .0110, .0117, .0130, .0145, .0160, .0171, .0178, .0184,
+ .0190, .0197, .0205, .0213, .0220, .0226, .0229, .0228,
+ .0220, .0205, .0187, .0170, .0160, .0159, .0160, .0157,
+ .0140, .0106, .0063, .0023, .0000, .0001, .0018, .0038,
+ .0050, .0044, .0027, .0009, .0000, .0006, .0023, .0040,
+ .0050, .0046, .0032, .0015, .0000, .0000, .0000, .0000,
+ .0000, .0000, .0000, .0000, .0000, .0000, .0000, .0000,
+ .0000
+ };
+
+ /* 2nd spectral band of avhrr (noaa 12) */
+ static const float sr14[189] = {
+ .0000, .0000, .0000, .0000, .0000, .0000, .0000, .0000,
+ .0000, .0050, .0111, .0162, .0180, .0153, .0097, .0038,
+ .0000, .0005, .0060, .0168, .0330, .0555, .0869, .1303,
+ .1890, .2643, .3509, .4418, .5300, .6096, .6796, .7403,
+ .7920, .8350, .8702, .8988, .9220, .9408, .9559, .9680,
+ .9780, .9863, .9929, .9975,1.0000, .0115, .9987, .9958,
+ .9920, .9876, .9821, .9748, .9650, .9522, .9370, .9203,
+ .9030, .8858, .8694, .8543, .8410, .8299, .8207, .8129,
+ .8060, .7997, .7943, .7902, .7880, .7879, .7893, .7916,
+ .7940, .7959, .7971, .7972, .7960, .7935, .7900, .7860,
+ .7820, .7783, .7747, .7704, .7650, .7582, .7506, .7433,
+ .7370, .7326, .7299, .7288, .7290, .7303, .7323, .7350,
+ .7380, .7411, .7441, .7468, .7490, .7504, .7510, .7505,
+ .7490, .7463, .7421, .7365, .7290, .7197, .7086, .6960,
+ .6820, .6670, .6518, .6371, .6240, .6131, .6043, .5973,
+ .5920, .5881, .5857, .5849, .5860, .5889, .5929, .5969,
+ .6000, .6011, .5986, .5905, .5750, .5508, .5186, .4792,
+ .4340, .3842, .3326, .2822, .2360, .1964, .1633, .1357,
+ .1130, .0943, .0789, .0664, .0560, .0473, .0400, .0339,
+ .0290, .0250, .0217, .0191, .0170, .0152, .0137, .0123,
+ .0110, .0098, .0086, .0077, .0070, .0066, .0063, .0059,
+ .0050, .0035, .0019, .0005, .0000, .0006, .0019, .0033,
+ .0040, .0036, .0025, .0011, .0000, .0000, .0000, .0000,
+ .0000, .0000, .0000, .0000, .0000
+ };
+
+ /* 1st spectral band of avhrr (noaa 14) -from NOAA/POD Guide */
+ static const float sr15[241] = {
+ .0000, .0000, .0000, .0000, .0000, .0000, .0000, .0000,
+ .0000, .0000, .0000, .0000, .0000, .0000, .0000, .0000,
+ .0000, .0003, .0007, .0010, .0013, .0152, .0290, .0429,
+ .0568, .1226, .1884, .2543, .3201, .3727, .4254, .4780,
+ .5306, .5528, .5749, .5971, .6193, .6267, .6342, .6417,
+ .6492, .6538, .6583, .6629, .6675, .6734, .6793, .6853,
+ .6912, .6948, .6984, .7020, .7056, .7106, .7156, .7206,
+ .7256, .7243, .7229, .7216, .7203, .7188, .7174, .7159,
+ .7145, .7130, .7116, .7102, .7088, .7154, .7221, .7287,
+ .7353, .7292, .7232, .7172, .7111, .6501, .5891, .5281,
+ .4671, .4037, .3402, .2768, .2133, .1830, .1527, .1223,
+ .0920, .0797, .0675, .0553, .0431, .0406, .0381, .0357,
+ .0332, .0279, .0226, .0173, .0120, .0117, .0114, .0110,
+ .0107, .0100, .0093, .0086, .0080, .0076, .0072, .0069,
+ .0065, .0062, .0059, .0055, .0052, .0051, .0050, .0048,
+ .0047, .0048, .0049, .0050, .0051, .0051, .0050, .0050,
+ .0050, .0050, .0051, .0052, .0052, .0053, .0054, .0054,
+ .0055, .0057, .0059, .0061, .0063, .0068, .0072, .0076,
+ .0080, .0084, .0088, .0092, .0096, .0100, .0104, .0108,
+ .0113, .0116, .0119, .0122, .0125, .0127, .0128, .0130,
+ .0132, .0130, .0128, .0126, .0123, .0120, .0116, .0112,
+ .0108, .0104, .0099, .0095, .0090, .0086, .0082, .0078,
+ .0074, .0072, .0070, .0067, .0065, .0063, .0060, .0058,
+ .0055, .0053, .0050, .0048, .0046, .0044, .0042, .0040,
+ .0038, .0036, .0034, .0032, .0030, .0028, .0027, .0025,
+ .0023, .0022, .0022, .0021, .0020, .0019, .0018, .0017,
+ .0016, .0016, .0015, .0014, .0014, .0013, .0012, .0012,
+ .0011, .0011, .0011, .0011, .0011, .0011, .0011, .0011,
+ .0011, .0011, .0011, .0011, .0011, .0011, .0011, .0010,
+ .0010, .0010, .0010, .0010, .0010, .0010, .0010, .0010,
+ .0010
+ };
+
+ /* 2nd spectral band of avhrr (noaa 14) */
+ static const float sr16[176] = {
+ .0000,.0000,.0000,.0000,.0000,.0000,.0022,.0045,
+ .0067,.0090,.0107,.0125,.0143,.0160,.0543,.0925,
+ .1308,.1690,.2573,.3455,.4338,.5220,.5978,.6735,
+ .7492,.8250,.8503,.8755,.9007,.9260,.9362,.9465,
+ .9568,.9670,.9737,.9805,.9872,.9940,.9935,.9930,
+ .9925,.9920,.9940,.9960,.9980,1.000,.9885,.9770,
+ .9655,.9540,.9398,.9255,.9112,.8970,.8855,.8740,
+ .8625,.8510,.8400,.8290,.8180,.8070,.8052,.8035,
+ .8018,.8000,.8065,.8130,.8195,.8260,.8257,.8255,
+ .8253,.8250,.8245,.8240,.8235,.8230,.8230,.8230,
+ .8230,.8230,.8210,.8190,.8170,.8150,.8147,.8145,
+ .8142,.8140,.8183,.8225,.8267,.8310,.8367,.8425,
+ .8482,.8540,.8547,.8555,.8562,.8570,.8510,.8450,
+ .8390,.8330,.8170,.8010,.7850,.7690,.7587,.7485,
+ .7383,.7280,.7203,.7125,.7048,.6970,.6957,.6945,
+ .6932,.6920,.6970,.7020,.7070,.7120,.7035,.6950,
+ .6865,.6780,.6370,.5960,.5550,.5140,.4560,.3980,
+ .3400,.2820,.2458,.2095,.1732,.1370,.1190,.1010,
+ .0830,.0650,.0560,.0470,.0380,.0290,.0250,.0210,
+ .0170,.0130,.0095,.0060,.0050,.0040,.0020,.0000,
+ .0010,.0020,.0018,.0015,.0012,.0010,.0010,.0010,
+ .0010,.0010,.0008,.0005,.0003,.0000,.0000,.0000
+ };
+
+ static const float wli[16] = { 0.55, 0.69, 0.5, 0.64, 0.54, 0.68, 0.53, 0.68, 0.53, 0.60, 0.54, 0.60, 0.50, 0.65, 0.50, 0.68 };
+ static const float wls[16] = { 0.75, 1.12, 0.8, 1.17, 1.01, 1.12, 0.81, 1.17, 0.78, 1.19, 0.82, 1.12, 1.00, 1.12, 1.11, 1.10 };
+
+ ffu.wlinf = (float)wli[iwa-1];
+ ffu.wlsup = (float)wls[iwa-1];
+
+ int i;
+ for(i = 0; i < 1501; i++) ffu.s[i] = 0;
+
+ switch(iwa)
+ {
+ case 1: for(i = 0; i < 80; i++) ffu.s[120+i] = sr1[i];
+ break;
+ case 2: for(i = 0; i < 173; i++) ffu.s[176+i] = sr2[i];
+ break;
+ case 3: for(i = 0; i < 121; i++) ffu.s[100+i] = sr3[i];
+ break;
+ case 4: for(i = 0; i < 213; i++) ffu.s[156+i] = sr4[i];
+ break;
+ case 5: for(i = 0; i < 189; i++) ffu.s[116+i] = sr5[i];
+ break;
+ case 6: for(i = 0; i < 177; i++) ffu.s[172+i] = sr6[i];
+ break;
+ case 7: for(i = 0; i < 113; i++) ffu.s[112+i] = sr7[i];
+ break;
+ case 8: for(i = 0; i < 197; i++) ffu.s[172+i] = sr8[i];
+ break;
+ case 9: for(i = 0; i < 101; i++) ffu.s[112+i] = sr9[i];
+ break;
+ case 10: for(i = 0; i < 237; i++) ffu.s[140+i] = sr10[i];
+ break;
+ case 11: for(i = 0; i < 113; i++) ffu.s[116+i] = sr11[i];
+ break;
+ case 12: for(i = 0; i < 209; i++) ffu.s[140+i] = sr12[i];
+ break;
+ case 13: for(i = 0; i < 201; i++) ffu.s[100+i] = sr13[i];
+ break;
+ case 14: for(i = 0; i < 189; i++) ffu.s[160+i] = sr14[i];
+ break;
+ case 15: for(i = 0; i < 241; i++) ffu.s[100+i] = sr15[i];
+ break;
+ case 16: for(i = 0; i < 176; i++) ffu.s[168+i] = sr16[i];
+ }
+}
+
+void IWave::hrv(int iwa)
+{
+
+ /* 1st spectral band of hrv1 */
+ static const float sr1[73] = {
+ .0010, .0023, .0035, .0048, .0060, .0492, .0925, .1357,
+ .1790, .2598, .3405, .4213, .5020, .5575, .6130, .6685,
+ .7240, .7588, .7935, .8283, .8630, .8900, .9170, .9440,
+ .9710, .9782, .9855, .9927,1.0000, .9875, .9750, .9625,
+ .9500, .9255, .9010, .8765, .8520, .8225, .7930, .7635,
+ .7340, .7105, .6870, .6635, .6400, .5945, .5490, .5035,
+ .4580, .3985, .3390, .2795, .2200, .1787, .1375, .0962,
+ .0550, .0437, .0325, .0212, .0100, .0085, .0070, .0055,
+ .0040, .0035, .0030, .0025, .0020, .0015, .0010, .0005,
+ .0000
+ };
+
+ /* 2nd spectral band of hrv1 */
+ static const float sr2[49] = {
+ .0190, .0845, .1500, .2155, .2810, .3870, .4930, .5990,
+ .7050, .7663, .8275, .8888, .9500, .9557, .9615, .9672,
+ .9730, .9797, .9865, .9933,1.0000, .8445, .6890, .5335,
+ .3780, .3152, .2525, .1897, .1270, .1067, .0865, .0662,
+ .0460, .0395, .0330, .0265, .0200, .0172, .0145, .0117,
+ .0090, .0080, .0070, .0060, .0050, .0045, .0040, .0035,
+ .0030
+ };
+
+ /* 3rd spectral band of hrv1 */
+ static const float sr3[81] = {
+ .0010, .0033, .0055, .0078, .0100, .0238, .0375, .0513,
+ .0650, .0953, .1255, .1558, .1860, .2470, .3080, .3690,
+ .4300, .4918, .5535, .6153, .6770, .7222, .7675, .8127,
+ .8580, .8825, .9070, .9315, .9560, .9670, .9780, .9890,
+ 1.0000, .9915, .9830, .9745, .9660, .9557, .9455, .9352,
+ .9250, .9112, .8975, .8837, .8700, .8777, .8855, .8932,
+ .9010, .8342, .7675, .7007, .6340, .5600, .4860, .4120,
+ .3380, .2875, .2370, .1865, .1360, .1130, .0900, .0670,
+ .0440, .0360, .0280, .0200, .0120, .0108, .0095, .0083,
+ .0070, .0067, .0065, .0062, .0060, .0047, .0035, .0022,
+ .0010
+ };
+
+ /* panchromatic band of hrv1 */
+ static const float sr4[129] = {
+ .0000, .0013, .0025, .0038, .0050, .0322, .0595, .0867,
+ .1140, .1723, .2305, .2888, .3470, .3748, .4025, .4303,
+ .4580, .4750, .4920, .5090, .5260, .5538, .5815, .6093,
+ .6370, .6575, .6780, .6985, .7190, .7228, .7265, .7303,
+ .7340, .7370, .7400, .7430, .7460, .7595, .7730, .7865,
+ .8000, .8163, .8325, .8488, .8650, .8767, .8885, .9003,
+ .9120, .9137, .9155, .9172, .9190, .9245, .9300, .9355,
+ .9410, .9387, .9365, .9342, .9320, .9373, .9425, .9478,
+ .9530, .9575, .9620, .9665, .9710, .9783, .9855, .9928,
+ 1.0000, .9898, .9795, .9693, .9590, .9450, .9310, .9170,
+ .9030, .8780, .8530, .8280, .8030, .7770, .7510, .7250,
+ .6990, .6820, .6650, .6480, .6310, .6235, .6160, .6085,
+ .6010, .5535, .5060, .4585, .4110, .3620, .3130, .2640,
+ .2150, .1825, .1500, .1175, .0850, .0720, .0590, .0460,
+ .0330, .0282, .0235, .0187, .0140, .0120, .0100, .0080,
+ .0060, .0055, .0050, .0045, .0040, .0035, .0030, .0025,
+ .0020
+ };
+
+ /* 1st spectral band of hrv2 */
+ static const float sr5[73] = {
+ .0010, .0015, .0020, .0025, .0030, .0040, .0050, .0060,
+ .0070, .0850, .1630, .2410, .3190, .3918, .4645, .5373,
+ .6100, .6500, .6900, .7300, .7700, .7965, .8230, .8495,
+ .8760, .8957, .9155, .9352, .9550, .9663, .9775, .9888,
+ 1.0000, .9915, .9830, .9745, .9660, .9362, .9065, .8767,
+ .8470, .8147, .7825, .7502, .7180, .6660, .6140, .5620,
+ .5100, .4638, .4175, .3713, .3250, .2737, .2225, .1712,
+ .1200, .1012, .0825, .0637, .0450, .0377, .0305, .0232,
+ .0160, .0122, .0085, .0047, .0010, .0007, .0005, .0002,
+ .0000
+ };
+
+ /* 2nd spectral band of hrv2 */
+ static const float sr6[57] = {
+ .0040, .0045, .0050, .0055, .0060, .0115, .0170, .0225,
+ .0280, .0893, .1505, .2118, .2730, .3593, .4455, .5318,
+ .6180, .6803, .7425, .8048, .8670, .9003, .9335, .9668,
+ 1.0000, .9365, .8730, .8095, .7460, .6830, .6200, .5570,
+ .4940, .4405, .3870, .3335, .2800, .2452, .2105, .1757,
+ .1410, .1222, .1035, .0847, .0660, .0575, .0490, .0405,
+ .0320, .0283, .0245, .0208, .0170, .0152, .0135, .0117,
+ .0100
+ };
+
+ /* 3rd spectral band of hrv2 */
+ static const float sr7[81] = {
+ .0020, .0030, .0040, .0050, .0060, .0105, .0150, .0195,
+ .0240, .0380, .0520, .0660, .0800, .1140, .1480, .1820,
+ .2160, .2722, .3285, .3847, .4410, .5018, .5625, .6233,
+ .6840, .7298, .7755, .8213, .8670, .8920, .9170, .9420,
+ .9670, .9753, .9835, .9918,1.0000, .9967, .9935, .9902,
+ .9870, .9793, .9715, .9638, .9560, .9500, .9440, .9380,
+ .9320, .9047, .8775, .8502, .8230, .7665, .7100, .6535,
+ .5970, .5305, .4640, .3975, .3310, .2850, .2390, .1930,
+ .1470, .1250, .1030, .0810, .0590, .0497, .0405, .0312,
+ .0220, .0185, .0150, .0115, .0080, .0062, .0045, .0027,
+ .0010
+ };
+
+ /* panchromatic spectral band of hrv2 */
+ static const float sr8[129] = {
+ .0010, .0013, .0015, .0018, .0020, .0137, .0255, .0372,
+ .0490, .0898, .1305, .1713, .2120, .2468, .2815, .3163,
+ .3510, .3725, .3940, .4155, .4370, .4655, .4940, .5225,
+ .5510, .5742, .5975, .6207, .6440, .6505, .6570, .6635,
+ .6700, .6752, .6805, .6858, .6910, .7032, .7155, .7278,
+ .7400, .7530, .7660, .7790, .7920, .8027, .8135, .8242,
+ .8350, .8427, .8505, .8582, .8660, .8692, .8725, .8758,
+ .8790, .8830, .8870, .8910, .8950, .9025, .9100, .9175,
+ .9250, .9365, .9480, .9595, .9710, .9783, .9855, .9928,
+ 1.0000, .9930, .9860, .9790, .9720, .9548, .9375, .9202,
+ .9030, .8802, .8575, .8347, .8120, .7945, .7770, .7595,
+ .7420, .7062, .6705, .6347, .5990, .5587, .5185, .4782,
+ .4380, .3893, .3405, .2918, .2430, .2085, .1740, .1395,
+ .1050, .0895, .0740, .0585, .0430, .0367, .0305, .0242,
+ .0180, .0155, .0130, .0105, .0080, .0070, .0060, .0050,
+ .0040, .0035, .0030, .0025, .0020, .0018, .0015, .0013,
+ .0010
+ };
+
+ static const float wli[8] = { 0.4699999, 0.60, 0.73, 0.4699999, 0.4699999, 0.5899999, 0.74, 0.4699999 };
+ static const float wls[8] = { 0.6499999, 0.72, 0.93, 0.7900000, 0.6499999, 0.7300000, 0.94, 0.7900000 };
+
+ ffu.wlinf = wli[iwa-1];
+ ffu.wlsup = wls[iwa-1];
+
+ int i;
+ for(i = 0; i < 1501; i++) ffu.s[i] = 0;
+
+ switch(iwa)
+ {
+ case 1: for(i = 0; i < 73; i++) ffu.s[88+i] = sr1[i];
+ break;
+ case 2: for(i = 0; i < 49; i++) ffu.s[140+i] = sr2[i];
+ break;
+ case 3: for(i = 0; i < 81; i++) ffu.s[192+i] = sr3[i];
+ break;
+ case 4: for(i = 0; i < 129; i++) ffu.s[88+i] = sr4[i];
+ break;
+ case 5: for(i = 0; i < 73; i++) ffu.s[88+i] = sr5[i];
+ break;
+ case 6: for(i = 0; i < 57; i++) ffu.s[136+i] = sr6[i];
+ break;
+ case 7: for(i = 0; i < 81; i++) ffu.s[196+i] = sr7[i];
+ break;
+ case 8: for(i = 0; i < 129; i++) ffu.s[88+i] = sr8[i];
+ break;
+ }
+}
+
+
+void IWave::tm(int iwa)
+{
+ /* 1st spectral band of thematic mapper */
+ static const float sr1[53] = {
+ .0030, .0085, .0140, .0255, .0370, .0500, .0630, .2010,
+ .3390, .5030, .6670, .6935, .7200, .7525, .7850, .8030,
+ .8210, .8370, .8530, .8780, .9030, .9135, .9240, .9355,
+ .9470, .9625, .9780, .9835, .9890, .9860, .9830, .9060,
+ .8290, .7815, .7340, .5265, .3190, .1995, .0800, .0630,
+ .0460, .0380, .0300, .0230, .0160, .0120, .0080, .0065,
+ .0050, .0045, .0040, .0035, .0030
+ };
+
+ /* 2nd spectral band of thematic mapper */
+ static const float sr2[61] = {
+ .0010, .0055, .0100, .0165, .0230, .0305, .0380, .1010,
+ .1640, .2710, .3780, .4750, .5720, .6150, .6580, .6945,
+ .7310, .7575, .7840, .8105, .8370, .8510, .8650, .8770,
+ .8890, .8965, .9040, .9055, .9070, .9070, .9070, .9095,
+ .9120, .9310, .9500, .9685, .9870, .9951, .9980, .9705,
+ .9430, .8655, .7880, .6250, .4620, .3330, .2040, .1505,
+ .0970, .0745, .0520, .0440, .0360, .0285, .0210, .0165,
+ .0120, .0090, .0060, .0030, .0000
+ };
+
+ /* 3rd spectral band of thematic mapper */
+ static const float sr3[65] = {
+ .0020, .0020, .0020, .0020, .0020, .0030, .0040, .0060,
+ .0080, .0140, .0200, .0290, .0380, .0730, .1080, .2020,
+ .2960, .3840, .4720, .5245, .5770, .6625, .7480, .7830,
+ .8180, .8430, .8680, .8845, .9010, .9030, .9050, .9055,
+ .9060, .9200, .9340, .9520, .9700, .9815, .9930,1.0000,
+ .9980, .9770, .9560, .8715, .7870, .5775, .3680, .2435,
+ .1190, .0920, .0650, .0555, .0460, .0385, .0310, .0255,
+ .0200, .0160, .0120, .0090, .0060, .0055, .0050, .0040,
+ .0030
+ };
+
+ /* 4th spectral band of thematic mapper */
+ static const float sr4[89] = {
+ .0020, .0035, .0050, .0060, .0070, .0080, .0090, .0140,
+ .0190, .0260, .0330, .0520, .0710, .1035, .1360, .2055,
+ .2750, .3615, .4480, .5505, .6530, .7410, .8290, .8795,
+ .9300, .9520, .9740, .9870,1.0000, .9955, .9910, .9855,
+ .9800, .9685, .9570, .9465, .9360, .9260, .9160, .9165,
+ .9170, .9180, .9190, .9195, .9200, .9215, .9230, .9240,
+ .9250, .9160, .9070, .8965, .8860, .8835, .8810, .8825,
+ .8840, .8825, .8810, .8705, .8600, .8410, .8220, .8030,
+ .7840, .7715, .7590, .7370, .7150, .5905, .4660, .3385,
+ .2110, .1440, .0770, .0540, .0310, .0230, .0150, .0115,
+ .0080, .0070, .0060, .0050, .0040, .0030, .0020, .0010,
+ .0000
+ };
+
+ /* 5th spectral band of thematic mapper */
+ static const float sr5[156] = {
+ .0000, .0003, .0007, .0010, .0013, .0015, .0018, .0020,
+ .0038, .0055, .0073, .0090, .0123, .0155, .0188, .0220,
+ .0393, .0565, .0738, .0910, .1410, .1910, .2410, .2910,
+ .3617, .4325, .5032, .5740, .6383, .7025, .7668, .8310,
+ .8622, .8935, .9248, .9560, .9522, .9485, .9447, .9410,
+ .9417, .9425, .9433, .9440, .9505, .9570, .9635, .9700,
+ .9738, .9775, .9813, .9850, .9833, .9815, .9797, .9780,
+ .9747, .9715, .9682, .9650, .9682, .9715, .9747, .9780,
+ .9793, .9805, .9818, .9830, .9837, .9845, .9852, .9860,
+ .9838, .9815, .9793, .9770, .9815, .9860, .9905, .9950,
+ .9963, .9975, .9988,1.0000, .9992, .9985, .9977, .9970,
+ .9912, .9855, .9797, .9740, .9697, .9655, .9613, .9570,
+ .9553, .9535, .9517, .9500, .9505, .9510, .9515, .9520,
+ .9370, .9220, .9070, .8920, .8260, .7600, .6940, .6280,
+ .5507, .4735, .3962, .3190, .2780, .2370, .1960, .1550,
+ .1340, .1130, .0920, .0710, .0643, .0575, .0508, .0440,
+ .0385, .0330, .0275, .0220, .0197, .0175, .0152, .0130,
+ .0120, .0110, .0100, .0090, .0077, .0065, .0052, .0040,
+ .0037, .0035, .0032, .0030, .0027, .0025, .0022, .0020,
+ .0015, .0010, .0005, .0000
+ };
+
+ /* 7th spectral band of thematic mapper */
+ static const float sr6[185] = {
+ .0000, .0005, .0010, .0015, .0020, .0025, .0030, .0035,
+ .0040, .0043, .0045, .0048, .0050, .0055, .0060, .0065,
+ .0070, .0075, .0080, .0085, .0090, .0103, .0115, .0128,
+ .0140, .0153, .0165, .0178, .0190, .0233, .0275, .0318,
+ .0360, .0400, .0440, .0480, .0520, .0563, .0605, .0648,
+ .0690, .0768, .0845, .0923, .1000, .1125, .1250, .1375,
+ .1500, .1753, .2005, .2258, .2510, .2870, .3230, .3590,
+ .3950, .4313, .4675, .5038, .5400, .5788, .6175, .6563,
+ .6950, .7345, .7740, .8135, .8530, .8737, .8945, .9152,
+ .9360, .9398, .9435, .9473, .9510, .9472, .9435, .9397,
+ .9360, .9385, .9410, .9435, .9460, .9500, .9540, .9580,
+ .9620, .9693, .9765, .9838, .9910, .9930, .9950, .9970,
+ .9990,1.0000, .9988, .9975, .9960, .9952, .9945, .9937,
+ .9930, .9922, .9915, .9908, .9900, .9815, .9730, .9645,
+ .9560, .9525, .9490, .9455, .9420, .9370, .9320, .9270,
+ .9220, .9205, .9190, .9175, .9160, .9135, .9110, .9085,
+ .9060, .9020, .8980, .8940, .8900, .8730, .8560, .8390,
+ .8220, .8058, .7895, .7732, .7570, .7545, .7520, .7495,
+ .7470, .7623, .7775, .7928, .8080, .8245, .8410, .8575,
+ .8740, .8292, .7845, .7397, .6950, .6290, .5630, .4970,
+ .4310, .3747, .3185, .2622, .2060, .1735, .1410, .1085,
+ .0760, .0653, .0545, .0438, .0330, .0275, .0220, .0165,
+ .0110, .0097, .0085, .0072, .0060, .0045, .0030, .0015,
+ .0000
+ };
+
+ static const float wli[6] = { 0.43, 0.5000000, 0.5799999, 0.73, 1.5025, 1.95 };
+ static const float wls[6] = { 0.56, 0.6499999, 0.7400000, 0.95, 1.8900, 2.41 };
+
+ ffu.wlinf = wli[iwa-1];
+ ffu.wlsup = wls[iwa-1];
+
+ int i;
+ for(i = 0; i < 1501; i++) ffu.s[i] = 0;
+
+ switch(iwa)
+ {
+ case 1: for(i = 0; i < 53; i++) ffu.s[72+i] = sr1[i];
+ break;
+ case 2: for(i = 0; i < 61; i++) ffu.s[100+i] = sr2[i];
+ break;
+ case 3: for(i = 0; i < 65; i++) ffu.s[132+i] = sr3[i];
+ break;
+ case 4: for(i = 0; i < 89; i++) ffu.s[192+i] = sr4[i];
+ break;
+ case 5: for(i = 0; i < 156; i++) ffu.s[501+i] = sr5[i];
+ break;
+ case 6: for(i = 0; i < 185; i++) ffu.s[680+i] = sr6[i];
+ break;
+ }
+}
+
+void IWave::mss(int iwa)
+{
+ /* 1st spectral band of multi spectral scanner */
+ static const float sr1[67] = {
+ .00, .01, .01, .01, .02, .04, .05,
+ .09, .13, .21, .29, .45, .61, .72,
+ .82, .85, .89, .92, .95, .96, .98,
+ .99, .99, 1.00, 1.00, 1.00, 1.00, 1.00,
+ 1.00, 1.00, .99, .99, .98, .98, .98,
+ .97, .97, .96, .96, .96, .96, .95,
+ .95, .93, .91, .89, .87, .85, .82,
+ .73, .65, .54, .43, .38, .33, .24,
+ .15, .11, .08, .06, .04, .03, .03,
+ .02, .02, .02, .01
+ };
+
+ /* 2nd spectral band of multi spectral scanner */
+ static const float sr2[69] = {
+ .01, .01, .01, .01, .01, .01, .02,
+ .03, .04, .08, .13, .21, .29, .43,
+ .57, .69, .80, .86, .92, .94, .96,
+ .97, .99, .99, 1.00, 1.00, 1.00, .99,
+ .98, .97, .96, .94, .93, .90, .88,
+ .92, .96, .96, .96, .95, .95, .90,
+ .84, .82, .80, .79, .78, .79, .80,
+ .80, .80, .73, .67, .59, .50, .38,
+ .25, .18, .11, .09, .08, .07, .06,
+ .05, .05, .04, .04, .03, .03
+ };
+
+ /* 3rd spectral band of multi spectral scanner */
+ static const float sr3[81] = {
+ .01, .01, .01, .02, .02, .02, .02,
+ .03, .03, .05, .07, .10, .14, .17,
+ .20, .31, .41, .48, .56, .66, .75,
+ .83, .90, .93, .97, .98, .99, 1.00,
+ 1.00, 1.00, .99, .99, .98, .97, .96,
+ .94, .93, .90, .88, .87, .86, .84,
+ .83, .82, .82, .82, .82, .82, .83,
+ .83, .83, .83, .83, .81, .80, .78,
+ .75, .68, .61, .55, .49, .41, .34,
+ .29, .24, .19, .15, .12, .08, .07,
+ .07, .05, .03, .03, .03, .02, .02,
+ .01, .01, .01, .01
+ };
+
+ /* 4th spectral band of multi spectral scanner */
+ static const float sr4[127] = {
+ .01, .02, .02, .04, .06, .14, .21,
+ .45, .68, .76, .83, .89, .94, .94,
+ .94, .94, .95, .95, .96, .97, .98,
+ .99, .99, 1.00, 1.00, 1.00, 1.00, 1.00,
+ 1.00, 1.00, .99, .98, .97, .96, .95,
+ .94, .93, .92, .92, .91, .90, .89,
+ .88, .87, .86, .86, .85, .83, .82,
+ .81, .80, .78, .77, .76, .76, .75,
+ .74, .72, .70, .69, .68, .66, .64,
+ .63, .62, .61, .60, .58, .57, .56/
+ .55, .55, .54, .52, .51, .50, .49,
+ .47, .46, .45, .44, .43, .42, .41,
+ .40, .39, .39, .38, .37, .36, .35,
+ .34, .33, .32, .31, .30, .29, .28,
+ .27, .26, .25, .24, .23, .22, .21,
+ .20, .20, .19, .18, .16, .15, .14,
+ .13, .12, .12, .11, .10, .08, .07,
+ .06, .06, .05, .04, .03, .02, .01,
+ .01
+ };
+
+ static const float wli[4] = { 0.4749999, 0.5799999, 0.6549999, 0.7849999 };
+ static const float wls[4] = { 0.6399999, 0.7500000, 0.8549998, 1.1000000 };
+
+ ffu.wlinf = wli[iwa-1];
+ ffu.wlsup = wls[iwa-1];
+
+ int i;
+ for(i = 0; i < 1501; i++) ffu.s[i] = 0;
+
+ switch(iwa)
+ {
+ case 1: for(i = 0; i < 67; i++) ffu.s[90+i] = sr1[i];
+ break;
+ case 2: for(i = 0; i < 69; i++) ffu.s[132+i] = sr2[i];
+ break;
+ case 3: for(i = 0; i < 81; i++) ffu.s[162+i] = sr3[i];
+ break;
+ case 4: for(i = 0; i < 127; i++) ffu.s[214+i] = sr4[i];
+ break;
+ }
+}
+
+void IWave::mas(int iwa)
+{
+ /* first spectral band of Modis airborne simulator */
+ static const float sr1[35] = {
+ .0244, .0338, .0536, .1052, .1941, .3166, .4797, .6893,
+ .9417,1.2218,1.4890,1.7202,1.9194,2.0812,2.1934,2.2580,
+ 2.3031,2.3395,2.3620,2.3575,2.3228,2.2421,2.1129,1.9317,
+ 1.7031,1.4126,1.0985, .8088, .5573, .3477, .1843, .0918,
+ .0473, .0308, .0248
+ };
+
+ /* second spectral band of Modis airborne simulator */
+ static const float sr2[38] = {
+ .0197, .0223, .0298, .0481, .0877, .1645, .2829, .4699,
+ .7101, .9752,1.2209,1.4459,1.6307,1.7482,1.8092,1.8370,
+ 1.8465,1.8527,1.8574,1.8627,1.8703,1.8733,1.8763,1.8769,
+ 1.8731,1.8599,1.8221,1.7208,1.5341,1.2689, .9810, .6911,
+ .4250, .2204, .0947, .0447, .0253, .0209
+ };
+
+ /* third spectral band of Modis airborne simulator */
+ static const float sr3[34] = {
+ .0273, .0357, .0560, .1265, .3269, .6239, .9777,1.3481,
+ 1.7037,2.0081,2.1885,2.2765,2.3178,2.3474,2.3777,2.4053,
+ 2.4286,2.4487,2.4604,2.4324,2.2594,1.9695,1.6105,1.2200,
+ .8289, .4724, .2484, .1443, .0998, .0726, .0546, .0421,
+ .0333, .0270
+ };
+
+ /* fourth spectral band of Modis airborne simulator */
+ static const float sr4[40] = {
+ .0242, .0276, .0364, .0505, .0717, .1058, .1841, .3889,
+ .7570,1.1872,1.6245,1.9511,2.0986,2.1652,2.2058,2.2430,
+ 2.2471,2.2299,2.2190,2.2052,2.1875,2.1519,2.0989,2.0314,
+ 1.9292,1.7185,1.3603, .9476, .5555, .2803, .1608, .1090,
+ .0926, .0830, .0720, .0590, .0476, .0377, .0300, .0245
+ };
+
+ /* fifth spectral band of Modis airborne simulator */
+
+ static const float sr5[56] = {
+ .0232, .0234, .0254, .0259, .0300, .0313, .0325, .0368,
+ .0397, .0432, .0454, .0525, .0624, .0839, .1305, .2066,
+ .3012, .4087, .5292, .6814, .8961,1.1607,1.4407,1.6803,
+ 1.8543,1.9683,2.0260,2.0562,2.0704,2.0550,2.0031,1.9304,
+ 1.8731,1.8325,1.7974,1.7334,1.6188,1.4710,1.2919,1.0871,
+ .8785, .6871, .5194, .3728, .2565, .1667, .1099, .0720,
+ .0536, .0434, .0375, .0355, .0324, .0281, .0251, .0214
+ };
+
+
+ /* sixth spectral band of Modis airborne simulator */
+ static const float sr6[40] = {
+ .0229, .0271, .0404, .0690, .1237, .2051, .3206, .4619,
+ .6269, .8073,1.0025,1.2045,1.4075,1.5980,1.7690,1.9111,
+ 2.0102,2.0697,2.0965,2.1009,2.0903,2.0685,2.0262,1.9608,
+ 1.8675,1.7447,1.5974,1.4411,1.2742,1.0954, .9031, .7062,
+ .5164, .3475, .2148, .1205, .0665, .0376, .0254, .0211
+ };
+
+ /* seventh spectral band of Modis airborne simulator */
+ static const float sr7[117] = {
+ .0075, .0087, .0108, .0133, .0168, .0208, .0257, .0312,
+ .0379, .0456, .0540, .0629, .0728, .0828, .0937, .1054,
+ .1189, .1329, .1478, .1618, .1729, .1845, .1963, .2095,
+ .2206, .2326, .2448, .2578, .2714, .2864, .3033, .3192,
+ .3349, .3515, .3724, .3922, .4100, .4291, .4477, .4674,
+ .4824, .4992, .5197, .5436, .5681, .5908, .6099, .6204,
+ .6284, .6393, .6466, .6466, .6488, .6531, .6575, .6612,
+ .6572, .6566, .6577, .6602, .6649, .6595, .6568, .6522,
+ .6606, .6656, .6606, .6517, .6426, .6374, .6311, .6217,
+ .6053, .5933, .5827, .5672, .5483, .5325, .5241, .5121,
+ .5077, .4958, .4827, .4718, .4552, .4369, .4200, .4076,
+ .3921, .3730, .3550, .3397, .3224, .3045, .2849, .2622,
+ .2426, .2223, .2035, .1830, .1628, .1416, .1211, .1033,
+ .0871, .0731, .0606, .0491, .0395, .0315, .0245, .0189,
+ .0151, .0117, .0093, .0076, .0070
+ };
+
+ /* third band of MODIS (469nm) soil and vegetation differences */
+ static const float sr8[13] = {
+ .0732, .8372,3.6403,4.9195,5.0091,5.0102,5.0102,5.0099,
+ 4.9670,4.0931,1.2880, .1186, .0237
+ };
+
+ /* fifth band of MODIS ( 1.24micron) leaf and canopy properties */
+ static const float sr9[25] = {
+ .0094, .0143, .0248, .0457, .0902, .1928, .4494,1.1087,
+ 2.4282,3.6387,4.5556,4.9434,4.9975,4.9434,4.5556,3.6387,
+ 2.4282,1.1087, .4494, .1928, .0902, .0457, .0248, .0143,
+ .0094
+ };
+
+ /* sixth band of MODIS ( 1.64microns) snow and cloud differences */
+ static const float sr10[27] = {
+ .0215, .0307, .0493, .0827, .1454, .2693, .5240,1.0412,
+ 1.9431,2.6724,3.3494,3.8269,4.0296,4.0624,4.0296,3.8269,
+ 3.3494,2.6724,1.9097,1.0412, .5240, .2693, .1454, .0827,
+ .0493, .0307, .0215
+ };
+
+ static const float wli[10] = { 0.5025, 0.6075, 0.8300, 0.9000, 1.8200, 2.0950, 3.5800, 0.4550, 1.2100, 1.6075 };
+ static const float wls[10] = { 0.5875, 0.7000, 0.9125, 0.9975, 1.9575, 2.1925, 3.8700, 0.4850, 1.2700, 1.6725 };
+
+ ffu.wlinf = wli[iwa-1];
+ ffu.wlsup = wls[iwa-1];
+
+ int i;
+ for(i = 0; i < 1501; i++) ffu.s[i] = 0;
+
+ switch(iwa)
+ {
+ case 1: for(i = 0; i < 35; i++) ffu.s[101+i] = sr1[i];
+ break;
+ case 2: for(i = 0; i < 38; i++) ffu.s[143+i] = sr2[i];
+ break;
+ case 3: for(i = 0; i < 34; i++) ffu.s[232+i] = sr3[i];
+ break;
+ case 4: for(i = 0; i < 40; i++) ffu.s[260+i] = sr4[i];
+ break;
+ case 5: for(i = 0; i < 56; i++) ffu.s[628+i] = sr5[i];
+ break;
+ case 6: for(i = 0; i < 40; i++) ffu.s[738+i] = sr6[i];
+ break;
+ case 7: for(i = 0; i < 117; i++) ffu.s[1332+i] = sr7[i];
+ break;
+ case 8: for(i = 0; i < 13; i++) ffu.s[82+i] = sr8[i];
+ break;
+ case 9: for(i = 0; i < 25; i++) ffu.s[384+i] = sr9[i];
+ break;
+ case 10: for(i = 0; i < 27; i++) ffu.s[543+i] = sr10[i];
+ break;
+ }
+}
+
+void IWave::modis(int iwa)
+{
+ /* band 1 of MODIS (vegetation monitoring at 250m) */
+ static const float sr1[31] = {
+ .0000, .0000, .0101, .0984, .2914, .5020, .6564, .6881,
+ .7064, .7114, .7292, .7523, .7721, .7852, .8112, .8664,
+ .9309, .9794,1.0000, .9855, .9333, .8429, .7187, .5672,
+ .3996, .2327, .1024, .0369, .0157, .0092, .0000
+ };
+
+ /* band 2 of MODIS (vegetation monitoring at 250m) */
+ static const float sr2[34] = {
+ .0000, .0216, .0502, .0923, .1431, .1938, .2713, .4292,
+ .6543, .8606, .9672, .9609, .9418, .9273, .9311, .9550,
+ .9827, .9948,1.0000, .9782, .9308, .7860, .5430, .2931,
+ .1477, .0824, .0520, .0367, .0276, .0213, .0159, .0112,
+ .0076, .0000
+ };
+
+ /* band 3 of MODIS (vegetation monitoring at 500m / MVI) */
+ static const float sr3[14] = {
+ .0000, .0222, .2021, .7451,1.0141, .9036, .8745, .9242,
+ 1.0009, .9305, .5877, .1496, .0170, .0000
+ };
+
+ /* band 4 of MODIS (green channel at 500m ) */
+ static const float sr4[13] = {
+ .0286, .2645, .7583, .9889,1.0002, .9750, .9726, .9878,
+ .9622, .7041, .2147, .0163, .0000
+ };
+
+ /* band 5 of MODIS (cloud channel at 500m ) */
+ static const float sr5[23] = {
+ .0000, .0188, .0381, .0984, .1872, .3188, .4933, .6582,
+ .8046, .8877, .9564, .9973,1.0000, .9451, .8172, .6366,
+ .3949, .2260, .1218, .0623, .0253, .0173, .0000
+ };
+
+ /* band 6 of MODIS (snow/ice channel at 500m ) */
+ static const float sr6[27] = {
+ .0000, .0580, .0910, .1611, .2705, .4289, .6049, .7688,
+ .8948, .9729,1.0000, .9969, .9875, .9648, .9278, .8629,
+ .7530, .6041, .4342, .2748, .1614, .0911, .0508, .0299,
+ .0162, .0108, .0000
+ };
+
+ /* band 7 of MODIS (liquid water absorption channel at 500m ) */
+ static const float sr7[51] = {
+ .0000, .0124, .0165, .0229, .0317, .0444, .0630, .0918,
+ .1358, .2006, .2904, .4032, .5329, .6632, .7775, .8680,
+ .9308, .9700, .9913,1.0000,1.0009, .9961, .9866, .9715,
+ .9498, .9209, .8851, .8446, .8022, .7614, .7241, .6860,
+ .6423, .5915, .5326, .4637, .3846, .3042, .2317, .1698,
+ .1195, .0814, .0553, .0381, .0266, .0189, .0137, .0097,
+ .0056, .0001, .0000
+ };
+
+ static const float wli[7] = { 0.6100, 0.8200, 0.4500, 0.5400, 1.2150, 1.6000, 2.0575 };
+ static const float wls[7] = { 0.6850, 0.9025, 0.4825, 0.5700, 1.2700, 1.6650, 2.1825 };
+
+ ffu.wlinf = wli[iwa-1];
+ ffu.wlsup = wls[iwa-1];
+
+ int i;
+ for(i = 0; i < 1501; i++) ffu.s[i] = 0;
+
+ switch(iwa)
+ {
+ case 1: for(i = 0; i < 31; i++) ffu.s[144+i] = sr1[i];
+ break;
+ case 2: for(i = 0; i < 34; i++) ffu.s[228+i] = sr2[i];
+ break;
+ case 3: for(i = 0; i < 14; i++) ffu.s[80+i] = sr3[i];
+ break;
+ case 4: for(i = 0; i < 13; i++) ffu.s[116+i] = sr4[i];
+ break;
+ case 5: for(i = 0; i < 23; i++) ffu.s[386+i] = sr5[i];
+ break;
+ case 6: for(i = 0; i < 27; i++) ffu.s[540+i] = sr6[i];
+ break;
+ case 7: for(i = 0; i < 51; i++) ffu.s[723+i] = sr7[i];
+ break;
+ }
+}
+
+void IWave::polder(int iwa)
+{
+ /* band 1 of POLDER (443 mic, polarized channel) */
+ static const float sr1[27] = {
+ .0003, .0042, .0028, .0036, .0060, .0134, .0430, .1284,
+ .3394, .6162, .8056, .9060, .9656, .9968, .9880, .8944,
+
+ .6612, .3880, .1950, .0966, .0512, .0292, .0180, .0122,
+ .0040, .0000, .0000
+ };
+
+ /* band 2 of POLDER (490 mic) */
+ static const float sr2[46] = {
+ .0000, .0000, .0000, .0000, .0000, .0000, .0000, .0000,
+ .0000, .0000, .0000, .0000, .0000, .0000, .0000, .0000,
+ .0000, .0000, .0000, .0000, .0012, .0014, .0022, .0032,
+ .0060, .0116, .0252, .0666, .1932, .4896, .8104, .9414,
+ .9544, .9710, .9898, .9544, .6920, .3438, .1466, .0630,
+ .0304, .0170, .0102, .0070, .0000, .0000
+ };
+
+ /* band 3 of POLDER (565 mic) */
+ static const float sr3[26] = {
+ .0000, .0016, .0048, .0074, .0130, .0258, .0566, .1368,
+ .3294, .6592, .9270, .9946, .9798, .9544, .9262, .8814,
+ .7692, .5420, .2814, .1218, .0518, .0244, .0118, .0066,
+ .0038, .0000
+ };
+
+ /* band 4 of POLDER (670 P1, polarized channel) */
+ static const float sr4[30] = {
+ .0000, .0000, .0000, .0000, .0010, .0044, .0022, .0140,
+ .0176, .0394, .1004, .2476, .5462, .8672, .9902, .9874,
+ .9572, .9484, .9264, .8274, .5688, .2828, .1154, .0500,
+ .0224, .0186, .0160, .0072, .0000, .0000
+ };
+
+ /* band 5 of POLDER (763 mic, oxygen absorption channel) */
+ static const float sr5[15] = {
+ .0000, .0004, .0046, .0134, .0834, .4148, .8056, .9274,
+ .9880, .7488, .2416, .0416, .0094, .0008, .0000
+ };
+
+ /* band 6 of POLDER (765 mic, oxygen absorption channel) */
+ static const float sr6[53] = {
+ .0000, .0000, .0010, .0018, .0010, .0030, .0046, .0080,
+ .0096, .0140, .0202, .0300, .0410, .0622, .0958, .1516,
+ .2400, .3648, .5174, .6640, .7798, .8494, .8858, .9066,
+ .9202, .9374, .9516, .9692, .9886, .9932, .9650, .8684,
+ .6836, .4686, .2922, .1724, .1012, .0594, .0360, .0238,
+ .0144, .0104, .0088, .0060, .0052, .0046, .0038, .0052,
+ .0028, .0022, .0000, .0000, .0000
+ };
+
+ /* band 7 of POLDER (865 P1, polarized channel) */
+ static const float sr7[45] = {
+ .0000, .0004, .0008, .0024, .0030, .0056, .0102, .0186,
+ .0338, .0622, .1110, .1974, .3410, .5432, .7610, .9218,
+ .9896, .9936, .9744, .9514, .9352, .9222, .9150, .9094,
+ .8954, .8592, .7766, .6354, .4604, .3006, .1838, .1082,
+ .0626, .0346, .0198, .0112, .0064, .0038, .0028, .0016,
+ .0014, .0006, .0000, .0000, .0000
+ };
+
+ /* band 8 of POLDER (910 mic, water vapor absorption channel) */
+ static const float sr8[31] = {
+ .0000, .0000, .0000, .0012, .0016, .0018, .0032, .0046,
+ .0082, .0158, .0354, .0876, .2242, .5142, .8436, .9848,
+ .9838, .9534, .9254, .9084, .8560, .6444, .3388, .1424,
+ .0566, .0238, .0098, .0000, .0000, .0000, .0000
+ };
+
+ static const float wli[8] = { 0.4125, 0.4100, 0.5325, 0.6300, 0.7450, 0.7000, 0.8100, 0.8650 };
+ static const float wls[8] = { 0.4775, 0.5225, 0.5950, 0.7025, 0.7800, 0.8300, 0.9200, 0.9400 };
+
+ ffu.wlinf = wli[iwa-1];
+ ffu.wlsup = wls[iwa-1];
+
+ int i;
+ for(i = 0; i < 1501; i++) ffu.s[i] = 0;
+
+ switch(iwa)
+ {
+ case 1: for(i = 0; i < 27; i++) ffu.s[65+i] = sr1[i];
+ break;
+ case 2: for(i = 0; i < 46; i++) ffu.s[64+i] = sr2[i];
+ break;
+ case 3: for(i = 0; i < 26; i++) ffu.s[113+i] = sr3[i];
+ break;
+ case 4: for(i = 0; i < 30; i++) ffu.s[152+i] = sr4[i];
+ break;
+ case 5: for(i = 0; i < 15; i++) ffu.s[198+i] = sr5[i];
+ break;
+ case 6: for(i = 0; i < 53; i++) ffu.s[180+i] = sr6[i];
+ break;
+ case 7: for(i = 0; i < 45; i++) ffu.s[224+i] = sr7[i];
+ break;
+ case 8: for(i = 0; i < 31; i++) ffu.s[246+i] = sr8[i];
+ break;
+ }
+}
+
+void IWave::etmplus(int iwa)
+{
+ /* Spectral filter data found on the following page:
+ http://ltpwww.gsfc.nasa.gov/IAS/handbook/handbook_toc.html
+ */
+ /* 1st spectral band of enhanced thematic mapper plus */
+ static const float sr1[35] = {
+ .0160, .0710, .2870, .6665, .7920, .8570, .8390, .8060,
+ .7790, .8460, .9010, .8995, .8900, .8510, .8750, .8930,
+ .8840, .9300, .9580, .9540, .9800, .9750, .9650, .9625,
+ .9950, .9900, .9900, .9795, .9830, .9685, .9600, .7685,
+ .2930, .0545, .0090
+ };
+
+ /* 2nd spectral band of enhanced thematic mapper plus */
+ static const float sr2[50] = {
+ .0006, .0015, .0030, .0117, .0260, .0740, .1740, .3480,
+ .5520, .6960, .7590, .7845, .8220, .8695, .9050, .9285,
+ .9470, .9525, .9520, .9515, .9530, .9500, .9540, .9670,
+ .9590, .9405, .9330, .9385, .9510, .9565, .9550, .9560,
+ .9730, .9915,1.0000, .9760, .9420, .9300, .9120, .7985,
+ .5740, .3400, .1850, .1055, .0620, .0375, .0210, .0109,
+ .0048, .0021
+ };
+
+ /* 3rd spectral band of enhanced thematic mapper plus */
+ static const float sr3[36] = {
+ .0001, .0006, .0020, .0095, .0470, .1740, .4190, .7310,
+ .9210, .9425, .9370, .9365, .9490, .9645, .9730, .9705,
+ .9580, .9550, .9620, .9800, .9930, .9980,1.0000, .9955,
+ .9920, .9885, .9770, .9545, .9320, .8805, .7290, .4440,
+ .1830, .0660, .0250, .0121
+ };
+
+ /* 4th spectral band of enhanced thematic mapper plus */
+ static const float sr4[70] = {
+ .0004, .0021, .0037, .0024, .0010, .0199, .0315, .0518,
+ .0690, .1100, .1750, .2710, .4020, .5555, .7050, .8120,
+ .8710, .8955, .9080, .9180, .9260, .9280, .9300, .9255,
+ .9250, .9280, .9230, .9165, .9080, .9035, .9090, .9240,
+ .9460, .9655, .9710, .9690, .9670, .9655, .9670, .9605,
+ .9490, .9310, .9250, .9295, .9430, .9610, .9850, .9925,
+ .9980, .9915, .9940, .9970, .9980, .9995, .9910, .9880,
+ .9690, .9265, .8680, .8175, .8190, .8800, .8540, .5725,
+ .2560, .1035, .0440, .0220, .0110, .0071
+
+ };
+
+ /* 5th spectral band of enhanced thematic mapper plus */
+ static const float sr5[116] = {
+ .0015, .0000, .0010, .0112, .0120, .0060, .0135, .0210,
+ .0400, .0530, .0760, .1028, .1480, .2052, .2740, .3660,
+ .4620, .5137, .5780, .6250, .6670, .7090, .7370, .7710,
+ .8080, .8315, .8590, .8750, .8930, .9013, .8960, .8953,
+ .8945, .8878, .8760, .8685, .8725, .8773, .8740, .8605,
+ .8680, .8785, .8990, .8940, .9000, .9020, .9190, .9248,
+ .9290, .9455, .9475, .9533, .9520, .9668, .9610, .9598,
+ .9780, .9587, .9535, .9513, .9517, .9550, .9440, .9345,
+ .9305, .9385, .9480, .9398, .9385, .9470, .9450, .9450,
+ .9553, .9648, .9690, .9733, .9910, .9960, .9975, .9945,
+ 1.0000, .9913, .9865, .9885, .9895, .9875, .9810, .9812,
+ .9780, .9685, .9600, .9383, .9020, .8545, .7910, .6928,
+ .6077, .5257, .4275, .3420, .2670, .2028, .1585, .1187,
+ .0840, .0723, .0535, .0437, .0390, .0305, .0205, .0217,
+ .0110, .0100, .0060, .0020
+ };
+
+ /* 7th spectral band of enhanced thematic mapper plus */
+ static const float sr6[147] = {
+ .0020, .0020, .0120, .0085, .0090, .0177, .0170, .0313,
+ .0370, .0458, .0580, .0762, .0880, .1097, .1490, .1960,
+ .2420, .3030, .3670, .4368, .5190, .6100, .6765, .7182,
+ .7560, .7738, .7840, .7755, .7890, .7817, .7780, .7665,
+ .7615, .7680, .7750, .7690, .7880, .8085, .7940, .8230,
+ .8115, .8195, .8365, .8370, .8360, .8513, .8585, .8553,
+ .8710, .8735, .8750, .8590, .8715, .8593, .8720, .8625,
+ .8650, .8680, .8765, .8730, .8690, .8760, .8680, .8793,
+ .8735, .8760, .8800, .8745, .8700, .8578, .8630, .8585,
+ .8440, .8585, .8545, .8625, .8680, .8560, .8470, .8613,
+ .8510, .8520, .8380, .8465, .8403, .8305, .8355, .8382,
+ .8220, .8380, .8385, .8425, .8535, .8623, .8730, .8680,
+ .8790, .8908, .8980, .9195, .9200, .9263, .9275, .9340,
+ .9360, .9533, .9540, .9518, .9600, .9728, .9850, .9720,
+ .9700, .9938, .9895, .9748,1.0000, .9912, .9680, .9658,
+ .9555, .9295, .9290, .9255, .9030, .9235, .9290, .9285,
+ .9200, .8533, .7750, .6587, .5315, .4035, .2750, .2175,
+ .1310, .1035, .0750, .0518, .0290, .0280, .0135, .0193,
+ .0130, .0065, .0150
+ };
+
+ /* 8th spectral band of enhanced thematic mapper plus (Pan) */
+ static const float sr7[164] = {
+ .0028, .0175, .0563, .1500, .3285, .5015, .5845, .5990,
+ .6018, .6095, .6143, .6100, .6035, .6035, .6118, .6270,
+ .6385, .6445, .6438, .6320, .6260, .6245, .6320, .6420,
+ .6593, .6775, .6898, .6970, .7005, .7050, .7110, .7130,
+ .7165, .7180, .7120, .7070, .7040, .7030, .7148, .7300,
+ .7440, .7535, .7615, .7640, .7533, .7450, .7353, .7290,
+ .7285, .7310, .7328, .7340, .7435, .7495, .7540, .7580,
+ .7618, .7680, .7720, .7790, .7815, .7850, .7900, .7930,
+ .7918, .7915, .7950, .7980, .8018, .8060, .8133, .8200,
+ .8275, .8315, .8370, .8420, .8485, .8545, .8605, .8680,
+ .8723, .8795, .8853, .8920, .8945, .8960, .8945, .8940,
+ .8943, .8955, .8975, .9000, .9033, .9035, .9023, .9000,
+ .8968, .8935, .8828, .8790, .8783, .8730, .8760, .8800,
+ .8813, .8865, .8910, .8930, .9035, .9105, .9183, .9200,
+ .9175, .9160, .9183, .9180, .9168, .9155, .9173, .9270,
+ .9290, .9375, .9497, .9570, .9638, .9695, .9715, .9770,
+ .9795, .9840, .9908, .9970, .9985, .9980, .9953, .9940,
+ .9920, .9930, .9925, .9870, .9755, .9650, .9583, .9490,
+ .9348, .9240, .9133, .9070, .9053, .9085, .9193, .9400,
+ .9658, .9780, .9625, .8950, .7520, .5715, .3962, .2580,
+ .1675, .1080, .0687, .0440
+ };
+
+ static const float wli[7] = { 0.4350, 0.5000, 0.6150, 0.7400, 1.5050, 2.0150, 0.5025 };
+ static const float wls[7] = { 0.5200, 0.6225, 0.7025, 0.9125, 1.7925, 2.3800, 0.9100 };
+
+ ffu.wlinf = wli[iwa-1];
+ ffu.wlsup = wls[iwa-1];
+
+ int i;
+ for(i = 0; i < 1501; i++) ffu.s[i] = 0;
+
+ switch(iwa)
+ {
+ case 1: for(i = 0; i < 35; i++) ffu.s[74+i] = sr1[i];
+ break;
+ case 2: for(i = 0; i < 50; i++) ffu.s[100+i] = sr2[i];
+ break;
+ case 3: for(i = 0; i < 36; i++) ffu.s[146+i] = sr3[i];
+ break;
+ case 4: for(i = 0; i < 70; i++) ffu.s[196+i] = sr4[i];
+ break;
+ case 5: for(i = 0; i < 116; i++) ffu.s[502+i] = sr5[i];
+ break;
+ case 6: for(i = 0; i < 147; i++) ffu.s[706+i] = sr6[i];
+ break;
+ case 7: for(i = 0; i < 164; i++) ffu.s[101+i] = sr7[i];
+ }
+}
+
+float IWave::solirr(const float wl) const
+{
+/* si (in w/m2/micron) contains the values of the solar
+ irradiance between 0.25 and 4.0 microns, by step of 0.0025 m.
+ the value of the total irradiance is 1372 w/m2 on the whole
+ spectrum (1358 w/m2 between 0.25 and 4.0 microns) */
+
+ static const float si[1501] = {
+ 69.30, 77.65, 86.00, 100.06, 114.12, 137.06, 160.00,
+ 169.52, 179.04, 178.02, 177.00, 193.69, 210.38, 241.69,
+ 273.00, 318.42, 363.84, 434.42, 505.00, 531.50, 558.00,
+ 547.50, 537.00, 559.02, 581.03, 619.52, 658.00, 694.39,
+ 730.78, 774.39, 817.99, 871.99, 925.99, 912.04, 898.09,
+ 920.69, 943.29, 925.99, 908.69, 936.09, 963.49, 994.94,
+ 1026.39, 980.74, 935.09,1036.29,1137.49,1163.74,1189.99,
+ 1109.34,1028.69,1088.99,1149.29,1033.69, 918.09,1031.89,
+ 1145.69,1035.09, 924.49,1269.29,1614.09,1631.09,1648.09,
+ 1677.19,1706.29,1744.89,1783.49,1750.19,1716.89,1705.19,
+ 1693.49,1597.69,1501.89,1630.99,1760.09,1775.24,1790.39,
+ 1859.94,1929.49,1993.44,2057.39,2039.23,2021.08,2030.73,
+ 2040.38,2026.53,2012.68,1999.53,1986.38,2002.88,2019.38,
+ 2038.09,2056.79,1967.74,1878.68,1905.83,1932.98,1953.58,
+ 1974.18,1935.68,1897.19,1916.78,1936.38,1937.23,1938.09,
+ 1881.44,1824.79,1814.09,1803.39,1832.24,1861.09,1885.93,
+ 1910.78,1904.68,1898.58,1875.73,1852.88,1865.64,1878.39,
+ 1874.74,1871.09,1872.44,1873.79,1850.39,1826.99,1837.04,
+ 1847.09,1841.18,1835.28,1849.48,1863.69,1851.03,1838.38,
+ 1840.73,1843.08,1802.83,1762.58,1778.78,1794.99,1777.48,
+ 1759.98,1764.73,1769.49,1753.48,1737.48,1713.14,1688.80,
+ 1702.88,1716.97,1696.07,1675.17,1672.03,1668.89,1663.56,
+ 1658.23,1647.75,1637.27,1630.02,1622.77,1606.06,1589.36,
+ 1552.29,1515.22,1528.91,1542.60,1548.90,1555.21,1544.41,
+ 1533.62,1525.24,1516.86,1507.92,1498.98,1484.07,1469.17,
+ 1464.28,1459.39,1448.73,1438.08,1423.16,1408.24,1407.53,
+ 1406.82,1397.82,1388.82,1378.51,1368.21,1352.13,1336.05,
+ 1343.88,1351.71,1339.60,1327.50,1320.72,1313.94,1294.94,
+ 1275.94,1280.92,1285.90,1278.04,1270.19,1263.68,1257.18,
+ 1249.80,1242.41,1231.30,1220.19,1212.14,1204.10,1201.69,
+ 1199.29,1194.78,1190.27,1185.47,1180.68,1174.38,1168.09,
+ 1156.17,1144.26,1143.46,1142.67,1132.95,1123.23,1116.71,
+ 1110.19,1110.89,1111.59,1094.80,1078.01,1077.75,1077.49,
+ 1073.89,1070.29,1058.71,1047.13,1045.66,1044.20,1037.03,
+ 1029.86,1010.40, 990.94, 966.91, 942.89, 972.87,1002.86,
+ 978.93, 955.00, 960.95, 966.91, 983.31, 999.71, 991.91,
+ 984.11, 979.05, 973.99, 968.79, 963.60, 958.23, 952.87,
+ 947.93, 942.99, 937.99, 933.00, 928.00, 923.00, 918.18,
+ 913.37, 908.74, 904.11, 899.05, 893.99, 889.18, 884.37,
+ 879.74, 875.12, 870.24, 865.36, 860.94, 856.53, 852.02,
+ 847.50, 843.00, 838.50, 833.99, 829.49, 824.98, 820.48,
+ 815.99, 811.50, 806.99, 802.49, 798.17, 793.86, 789.74,
+ 785.63, 781.25, 776.87, 772.92, 768.98, 764.80, 760.63,
+ 756.06, 751.49, 746.99, 742.49, 738.18, 733.88, 729.76,
+ 725.63, 721.24, 716.86, 712.92, 708.99, 704.81, 700.63,
+ 696.25, 691.87, 687.94, 684.01, 680.01, 676.00, 671.80,
+ 667.61, 663.23, 658.86, 655.32, 651.77, 649.07, 646.37,
+ 643.74, 641.11, 638.05, 634.99, 632.18, 629.37, 626.74,
+ 624.12, 621.06, 618.00, 615.18, 612.37, 609.92, 607.48,
+ 604.79, 602.11, 599.24, 596.38, 593.93, 591.48, 588.79,
+ 586.11, 583.25, 580.40, 577.94, 575.48, 572.99, 570.51,
+ 568.00, 565.49, 562.98, 560.47, 557.98, 555.50, 553.01,
+ 550.51, 548.00, 545.49, 542.98, 540.48, 537.98, 535.49,
+ 533.19, 530.90, 528.94, 526.99, 524.80, 522.62, 520.24,
+ 517.87, 515.44, 513.01, 509.59, 506.17, 502.89, 499.62,
+ 496.35, 493.09, 489.81, 486.54, 483.27, 480.01, 476.73,
+ 473.46, 470.19, 466.92, 463.64, 460.37, 457.10, 453.84,
+ 450.57, 447.30, 444.03, 440.76, 437.48, 434.21, 430.94,
+ 427.67, 424.40, 421.13, 417.86, 414.59, 411.32, 408.05,
+ 404.78, 401.51, 398.24, 394.97, 391.70, 388.43, 392.57,
+ 396.71, 401.92, 407.14, 405.32, 403.50, 401.67, 399.84,
+ 398.02, 396.21, 394.37, 392.54, 390.72, 388.90, 387.06,
+ 385.23, 383.42, 381.60, 379.77, 377.95, 376.12, 374.30,
+ 372.48, 370.66, 368.82, 366.99, 365.17, 363.35, 361.52,
+ 359.69, 357.87, 356.05, 354.22, 352.39, 350.57, 348.75,
+ 346.92, 345.10, 343.27, 341.45, 341.84, 342.24, 342.95,
+ 343.66, 342.27, 340.89, 339.49, 338.09, 336.69, 335.30,
+ 333.91, 332.53, 331.13, 329.73, 328.34, 326.96, 325.56,
+ 324.16, 322.77, 321.39, 319.99, 318.59, 317.20, 315.82,
+ 314.42, 313.03, 311.63, 310.24, 308.85, 307.46, 306.06,
+ 304.66, 303.28, 301.90, 300.50, 299.10, 297.71, 296.32,
+ 294.93, 293.54, 293.41, 293.28, 293.35, 293.42, 292.26,
+ 291.10, 289.97, 288.84, 287.69, 286.54, 285.39, 284.25,
+ 283.10, 281.96, 280.81, 279.67, 278.52, 277.38, 276.23,
+ 275.08, 273.94, 272.80, 271.65, 270.51, 269.36, 268.22,
+ 267.07, 265.93, 264.78, 263.64, 262.49, 261.34, 260.20,
+ 259.06, 257.91, 256.77, 255.62, 254.47, 253.33, 252.20,
+ 251.16, 250.13, 249.11, 248.09, 246.97, 245.86, 244.74,
+ 243.61, 242.49, 241.37, 240.24, 239.12, 238.00, 236.89,
+ 235.76, 234.64, 233.51, 232.38, 231.26, 230.13, 229.01,
+ 227.90, 226.77, 225.65, 224.53, 223.42, 222.29, 221.16,
+ 220.04, 218.92, 217.80, 216.68, 215.55, 214.43, 213.30,
+ 212.18, 211.06, 209.94, 208.82, 207.69, 206.99, 206.29,
+ 205.65, 205.02, 203.98, 202.95, 201.90, 200.85, 199.81,
+ 198.78, 197.74, 196.70, 195.65, 194.61, 193.57, 192.54,
+ 191.50, 190.47, 189.42, 188.37, 187.33, 186.30, 185.26,
+ 184.22, 183.18, 182.14, 181.10, 180.06, 179.02, 177.98,
+ 176.93, 175.89, 174.86, 173.83, 172.78, 171.73, 170.70,
+ 169.67, 168.62, 167.57, 167.59, 167.60, 167.76, 167.93,
+ 167.09, 166.26, 165.42, 164.58, 163.75, 162.92, 162.08,
+ 161.25, 160.41, 159.58, 158.74, 157.91, 157.07, 156.24,
+ 155.40, 154.57, 153.73, 152.90, 152.06, 151.23, 150.39,
+ 149.56, 148.72, 147.89, 147.06, 146.23, 145.39, 144.55,
+ 143.71, 142.88, 142.05, 141.22, 140.38, 139.54, 138.70,
+ 137.86, 137.99, 138.11, 138.36, 138.60, 137.94, 137.29,
+ 136.64, 136.00, 135.35, 134.71, 134.05, 133.39, 132.74,
+ 132.09, 131.45, 130.81, 130.15, 129.49, 128.84, 128.20,
+ 127.55, 126.90, 126.25, 125.60, 124.94, 124.29, 123.64,
+ 123.00, 122.35, 121.70, 121.05, 120.40, 119.74, 119.09,
+ 118.45, 117.81, 117.15, 116.50, 115.85, 115.19, 115.25,
+ 115.31, 115.46, 115.62, 115.11, 114.60, 114.09, 113.58,
+ 113.06, 112.54, 112.03, 111.53, 111.01, 110.50, 109.99,
+ 109.47, 108.95, 108.44, 107.93, 107.42, 106.92, 106.42,
+ 105.89, 105.37, 104.85, 104.34, 103.83, 103.33, 102.81,
+ 102.29, 101.79, 101.29, 100.77, 100.25, 99.74, 99.22,
+ 98.71, 98.20, 97.69, 97.18, 97.12, 97.07, 97.09,
+ 97.11, 96.68, 96.26, 95.84, 95.42, 94.99, 94.56,
+ 94.14, 93.72, 93.31, 92.89, 92.46, 92.03, 91.61,
+ 91.19, 90.76, 90.34, 89.92, 89.49, 89.07, 88.66,
+ 88.24, 87.81, 87.39, 86.97, 86.55, 86.12, 85.69,
+ 85.26, 84.85, 84.43, 84.01, 83.59, 83.17, 82.75,
+ 82.32, 81.89, 81.89, 81.89, 81.95, 82.02, 81.68,
+ 81.35, 81.00, 80.65, 80.32, 79.99, 79.64, 79.30,
+ 78.96, 78.61, 78.27, 77.94, 77.60, 77.26, 76.91,
+ 76.57, 76.24, 75.90, 75.56, 75.22, 74.88, 74.54,
+ 74.20, 73.86, 73.52, 73.18, 72.84, 72.50, 72.16,
+ 71.82, 71.48, 71.14, 70.80, 70.47, 70.13, 69.79,
+ 69.76, 69.73, 69.76, 69.80, 69.52, 69.24, 68.96,
+ 68.68, 68.41, 68.14, 67.85, 67.57, 67.29, 67.02,
+ 66.75, 66.48, 66.19, 65.90, 65.63, 65.36, 65.08,
+ 64.80, 64.53, 64.25, 63.97, 63.69, 63.41, 63.14,
+ 62.85, 62.57, 62.30, 62.03, 61.75, 61.47, 61.19,
+ 60.92, 60.64, 60.36, 60.08, 59.81, 59.80, 59.80,
+ 59.82, 59.85, 59.63, 59.40, 59.17, 58.95, 58.73,
+ 58.50, 58.28, 58.06, 57.83, 57.60, 57.37, 57.15,
+ 56.93, 56.70, 56.48, 56.26, 56.03, 55.79, 55.57,
+ 55.36, 55.13, 54.90, 54.66, 54.43, 54.22, 54.00,
+ 53.77, 53.55, 53.32, 53.09, 52.87, 52.65, 52.43,
+ 52.20, 51.97, 51.75, 51.72, 51.68, 51.67, 51.67,
+ 51.48, 51.30, 51.11, 50.92, 50.73, 50.55, 50.37,
+ 50.18, 49.98, 49.79, 49.61, 49.43, 49.23, 49.04,
+ 48.85, 48.67, 48.48, 48.30, 48.12, 47.93, 47.73,
+ 47.54, 47.36, 47.18, 46.98, 46.79, 46.60, 46.42,
+ 46.24, 46.06, 45.87, 45.67, 45.48, 45.30, 45.12,
+ 44.93, 44.87, 44.82, 44.80, 44.79, 44.62, 44.45,
+ 44.29, 44.14, 43.98, 43.83, 43.66, 43.49, 43.34,
+ 43.18, 43.02, 42.86, 42.70, 42.55, 42.38, 42.21,
+ 42.06, 41.90, 41.74, 41.58, 41.42, 41.26, 41.10,
+ 40.94, 40.78, 40.62, 40.46, 40.31, 40.14, 39.97,
+ 39.81, 39.66, 39.50, 39.34, 39.18, 39.03, 38.99,
+ 38.96, 38.94, 38.92, 38.79, 38.66, 38.52, 38.38,
+ 38.25, 38.12, 37.99, 37.86, 37.72, 37.58, 37.44,
+ 37.30, 37.17, 37.05, 36.91, 36.77, 36.64, 36.50,
+ 36.36, 36.23, 36.09, 35.96, 35.82, 35.69, 35.55,
+ 35.42, 35.28, 35.15, 35.01, 34.88, 34.75, 34.61,
+ 34.47, 34.34, 34.20, 34.07, 34.05, 34.03, 34.03,
+ 34.03, 33.91, 33.79, 33.68, 33.57, 33.46, 33.35,
+ 33.23, 33.12, 33.01, 32.90, 32.78, 32.67, 32.55,
+ 32.44, 32.33, 32.23, 32.11, 32.00, 31.89, 31.77,
+ 31.66, 31.55, 31.43, 31.31, 31.20, 31.10, 30.99,
+ 30.87, 30.76, 30.66, 30.54, 30.42, 30.31, 30.20,
+ 30.08, 29.97, 29.93, 29.90, 29.88, 29.87, 29.76,
+ 29.66, 29.56, 29.46, 29.36, 29.27, 29.17, 29.08,
+ 28.98, 28.88, 28.77, 28.67, 28.58, 28.49, 28.39,
+ 28.30, 28.20, 28.10, 28.00, 27.91, 27.81, 27.71,
+ 27.61, 27.52, 27.41, 27.31, 27.21, 27.12, 27.03,
+ 26.93, 26.83, 26.74, 26.64, 26.54, 26.44, 26.35,
+ 26.33, 26.31, 26.29, 26.28, 26.20, 26.12, 26.04,
+ 25.95, 25.87, 25.79, 25.71, 25.64, 25.54, 25.45,
+ 25.37, 25.30, 25.21, 25.12, 25.05, 24.98, 24.89,
+ 24.80, 24.71, 24.63, 24.55, 24.47, 24.39, 24.31,
+ 24.22, 24.14, 24.05, 23.97, 23.89, 23.81, 23.73,
+ 23.66, 23.56, 23.47, 23.39, 23.31, 23.28, 23.26,
+ 23.23, 23.21, 23.13, 23.06, 22.99, 22.92, 22.84,
+ 22.76, 22.69, 22.63, 22.55, 22.47, 22.41, 22.35,
+ 22.27, 22.19, 22.11, 22.04, 21.97, 21.90, 21.83,
+ 21.76, 21.68, 21.60, 21.53, 21.47, 21.39, 21.31,
+ 21.24, 21.18, 21.11, 21.03, 20.96, 20.89, 20.81,
+ 20.73, 20.66, 20.60, 20.57, 20.55, 20.54, 20.53,
+ 20.46, 20.40, 20.34, 20.28, 20.21, 20.14, 20.08,
+ 20.03, 19.96, 19.90, 19.83, 19.77, 19.71, 19.65,
+ 19.59, 19.53, 19.46, 19.39, 19.33, 19.27, 19.21,
+ 19.15, 19.08, 19.02, 18.96, 18.90, 18.84, 18.78,
+ 18.71, 18.64, 18.58, 18.53, 18.46, 18.40, 18.33,
+ 18.27, 18.26, 18.25, 18.24, 18.24, 18.19, 18.14,
+ 18.08, 18.03, 17.98, 17.93, 17.88, 17.83, 17.77,
+ 17.71, 17.66, 17.62, 17.56, 17.50, 17.45, 17.41,
+ 17.35, 17.29, 17.25, 17.21, 17.14, 17.08, 17.04,
+ 17.00, 16.93, 16.87, 16.83, 16.79, 16.72, 16.66,
+ 16.61, 16.57, 16.51, 16.46, 16.41, 16.36, 16.34,
+ 16.33, 16.31, 16.30, 16.26, 16.22, 16.17, 16.13,
+ 16.08, 16.04, 16.00, 15.96, 15.90, 15.84, 15.81,
+ 15.78, 15.73, 15.68, 15.63, 15.59, 15.55, 15.50,
+ 15.45, 15.40, 15.36, 15.32, 15.28, 15.24, 15.18,
+ 15.13, 15.09, 15.05, 15.01, 14.96, 14.91, 14.87,
+ 14.82, 14.78, 14.73, 14.69, 14.66, 14.64, 14.64,
+ 14.63, 14.59, 14.55, 14.50, 14.45, 14.41, 14.38,
+ 14.35, 14.32, 14.26, 14.21, 14.18, 14.15, 14.10,
+ 14.05, 14.01, 13.98, 13.94, 13.91, 13.86, 13.82,
+ 13.78, 13.74, 13.70, 13.67, 13.62, 13.58, 13.54,
+ 13.50, 13.46, 13.43, 13.39, 13.35, 13.30, 13.25,
+ 13.22, 13.18, 13.17, 13.16, 13.14, 13.12, 13.09,
+ 13.06, 13.03, 13.00, 12.96, 12.92, 12.89, 12.85,
+ 12.81, 12.78, 12.74, 12.70, 12.67, 12.65, 12.61,
+ 12.57, 12.53, 12.50, 12.46, 12.43, 12.39, 12.36,
+ 12.32, 12.28, 12.25, 12.22, 12.18, 12.15, 12.11,
+ 12.07, 12.04, 12.01, 11.97, 11.94, 11.90, 11.86,
+ 11.85, 11.85, 11.85, 11.84, 11.81, 11.78, 11.75,
+ 11.72, 11.69, 11.66, 11.63, 11.60, 11.58, 11.55,
+ 11.51, 11.47, 11.45, 11.42, 11.39, 11.36, 11.33,
+ 11.30, 11.27, 11.24, 11.21, 11.18, 11.15, 11.12,
+ 11.09, 11.06, 11.03, 11.00, 10.97, 10.94, 10.91,
+ 10.89, 10.85, 10.82, 10.78, 10.75, 10.73, 10.72,
+ 10.71, 10.70, 10.67, 10.64, 10.62, 10.59, 10.55,
+ 10.52, 10.50, 10.47, 10.44, 10.42, 10.39, 10.37,
+ 10.34, 10.31, 10.28, 10.25, 10.22, 10.20, 10.17,
+ 10.15, 10.12, 10.10, 10.06, 10.03, 10.00, 9.98,
+ 9.95, 9.92, 9.89, 9.86, 9.84, 9.82, 9.79,
+ 9.75, 9.73, 9.71, 9.70, 9.70, 9.70, 9.70,
+ 9.67, 9.63, 9.61, 9.59, 9.58, 9.56, 9.53,
+ 9.50, 9.48, 9.45, 9.43, 9.41, 9.39, 9.36,
+ 9.34, 9.32, 9.30, 9.27, 9.24, 9.22, 9.20,
+ 9.18, 9.15, 9.13, 9.11, 9.08, 9.06, 9.05,
+ 9.02, 8.99, 8.96, 8.94, 8.92, 8.90, 8.87,
+ 8.85, 8.83, 8.81
+ };
+
+ float pas = 0.0025;
+ int iwl = (int)((wl - 0.250) / pas + 1.5);
+
+ if(iwl >= 0) return si[iwl-1];
+
+ cout << " wavelength less than 0.25 micron: " << endl << " let's take s(l)=s(0.25)" << endl;
+ return si[0];
+}
+
+void IWave::irs_1c_liss(int iwa)
+{
+ /* 2nd spectral band of IRS 1C LISS III */
+ static const float sr2[61] = {
+ .0006, .0009, .0012, .0020, .0036, .0080, .0216, .0655,
+ .1690, .3080, .4280, .5600, .7010, .7600, .7640, .7690,
+ .7960, .8400, .8760, .8820, .8670, .8560, .8620, .8890,
+ .9240, .9480, .9590, .9540, .9460, .9490, .9660, .9860,
+ 1.0000,.9960, .9740, .9490, .9340, .9340, .9340, .9210,
+ .8820, .8300, .7880, .7770, .7670, .6640, .4190, .1980,
+ .0882, .0396, .0192, .0107, .0066, .0041, .0026, .0018,
+ .0012, .0010, .0007, .0006
+ };
+
+ /* 3rd spectral band of IRS 1C LISS III */
+ static const float sr3[45] = {
+ .0041, .0110, .0357, .1310, .4020, .7200, .8300, .8700,
+ .8980, .9120, .9230, .9300, .9320, .9310, .9270, .9300,
+ .9390, .9510, .9580, .9600, .9630, .9700, .9890,1.0000,
+ .9880, .9390, .8740, .8220, .8040, .8350, .9000, .9620,
+ .9730, .9410, .9170, .8790, .6460, .2940, .1050, .0390,
+ .0105, .0040, .0020, .0010, .0000
+ };
+
+ /* 4th spectral band of IRS 1C LISS III */
+ static const float sr4[65] = {
+ .0090, .0149, .0244, .0400, .0649, .1020, .1520, .2170,
+ .2940, .3820, .4830, .6120, .7270, .8320, .9180, .9760,
+ 1.0000,.9970, .9800, .9590, .9410, .9330, .9330, .9390,
+ .9480, .9550, .9620, .9580, .9500, .9380, .9270, .9150,
+ .9100, .9050, .9050, .9020, .8970, .8900, .8830, .8740,
+ .8690, .8700, .8720, .8740, .8680, .8490, .8150, .7720,
+ .7310, .6990, .6840, .6800, .6640, .5750, .4060, .2280,
+ .1240, .0641, .0356, .0206, .0126, .0080, .0052, .0035,
+ .0025
+ };
+
+ /* 5th spectral band of IRS 1C LISS III */
+ static const float sr5[155] = {
+ .0000, .0000, .0000, .0000, .0001, .0001, .0001, .0001,
+ .0000, .0001, .0001, .0021, .0001, .0000, .0001, .0001,
+ .0001, .0001, .0001, .0002, .0002, .0002, .0001, .0005,
+ .0004, .0006, .0007, .0010, .0011, .0015, .0020, .0024,
+ .0030, .0039, .0051, .0068, .0088, .0114, .0153, .0206,
+ .0281, .0372, .0515, .0708, .0983, .1370, .1870, .2580,
+ .3470, .4410, .5340, .6190, .6920, .7510, .7940, .8270,
+ .8500, .8680, .8800, .8920, .9010, .9090, .9170, .9250,
+ .9310, .9400, .9490, .9590, .9700, .9760, .9850, .9920,
+ .9960,1.0000,1.0000, .9960, .9910, .9860, .9790, .9730,
+ .9680, .9660, .9620, .9640, .9670, .9700, .9750, .9810,
+ .9850, .9880, .9840, .9770, .9690, .9560, .9400, .9240,
+ .9080, .8880, .8710, .8570, .8410, .8300, .8220, .8180,
+ .8170, .8220, .8290, .8370, .8460, .8550, .8450, .8310,
+ .8110, .7870, .7580, .7180, .6780, .6380, .5990, .5640,
+ .5280, .4930, .4590, .4210, .3770, .3320, .2770, .2160,
+ .1580, .1110, .0772, .0528, .0357, .0242, .0165, .0117,
+ .0083, .0059, .0042, .0031, .0023, .0017, .0013, .0009,
+ .0007, .0005, .0004, .0002, .0002, .0001, .0001, .0001,
+ .0001, .0000, .0000
+ };
+
+ static const float wli[4] = { 0.502, 0.612, 0.752, 1.452 };
+ static const float wls[4] = { 0.620, 0.700, 0.880, 1.760 };
+
+ ffu.wlinf = wli[iwa-1];
+ ffu.wlsup = wls[iwa-1];
+
+ int i;
+ for(i = 0; i < 1501; i++) ffu.s[i] = 0;
+
+ switch(iwa)
+ {
+ case 1: for(i = 0; i < 61; i++) ffu.s[101+i] = sr2[i];
+ break;
+ case 2: for(i = 0; i < 45; i++) ffu.s[145+i] = sr3[i];
+ break;
+ case 3: for(i = 0; i < 65; i++) ffu.s[201+i] = sr4[i];
+ break;
+ case 4: for(i = 0; i < 155; i++) ffu.s[481+i] = sr5[i];
+ break;
+ }
+}
+
+void IWave::aster(int iwa)
+{
+ /* Spectral filter data found on the following page:
+ http://www.science.aster.ersdac.or.jp/en/about_aster/sensor/
+ */
+ /* Band 1 of Aster; Central Wavelength = 556nm */
+ static const float sr1[67] = {
+ .0000, .0054, .0073, .0078, .0076, .0074, .0093, .0217,
+ .0580, .0947, .1566, .2694, .3712, .4813, .6204, .7414,
+ .8392, .9077, .9552, .9878, .9973, .9992, .9781, .9373,
+ .8900, .8784, .8786, .8941, .8993, .9049, .9231, .9238,
+ .9184, .9301, .9423, .9493, .9522, .9548, .9598, .9593,
+ .9528, .9256, .8967, .8748, .8265, .7625, .7065, .6282,
+ .5206, .3775, .2535, .1629, .1168, .0859, .0593, .0451,
+ .0355, .0174, .0078, .0049, .0040, .0038, .0053, .0052,
+ .0037, .0023, .0000
+ };
+
+ /* Band 2 of Aster; Central Wavelength = 659nm */
+ static const float sr2[59] = {
+ .0000, .0038, .0034, .0008, .0008, .0024, .0029, .0006,
+ .0047, .0050, .0033, .0049, .0126, .0000, .1220, .2738,
+ .4703, .6723, .8350, .9709, .9990, .9835, .9715, .9710,
+ .9734, .9430, .9095, .9305, .9418, .9386, .9202, .9100,
+ .8973, .8606, .8195, .7986, .7889, .7702, .7538, .6961,
+ .6087, .5186, .4523, .4258, .3811, .3244, .2591, .1854,
+ .1121, .0623, .0469, .0334, .0181, .0112, .0010, .0054,
+ .0044, .0017, .0000
+ };
+
+ /* Band 3N (N=Nadir pointing) of Aster; Central Wavelength = 807nm */
+ static const float sr3[77] = {
+ .0000, .0017, .0078, .0167, .0285, .0447, .0492, .0509,
+ .0744, .1160, .1768, .2527, .3625, .5534, .8008,1.0000,
+ .9903, .9613, .9012, .9032, .9197, .9655, .9868, .9942,
+ .9857, .9745, .9648, .9465, .9368, .9634, .9760, .9820,
+ .9938, .9968, .9908, .9810, .9756, .9855, .9832, .9694,
+ .9587, .9527, .9499, .9357, .9263, .9552, .9579, .9489,
+ .9447, .9399, .9322, .8945, .8220, .7353, .6193, .4813,
+ .3584, .2614, .1890, .1269, .0841, .0618, .0442, .0318,
+ .0277, .0245, .0213, .0130, .0075, .0074, .0068, .0049,
+ .0030, .0024, .0024, .0017, .0000
+ };
+
+ /* Band 4 of Aster; Central Wavelength = 1657nm */
+ static const float sr4[89] = {
+ .0000, .0001, .0001, .0002, .0004, .0005, .0007, .0009,
+ .0012, .0014, .0017, .0021, .0024, .0028, .0032, .0036,
+ .0040, .0045, .0054, .0065, .0080, .0112, .0170, .0245,
+ .0330, .0450, .0740, .0990, .1520, .2140, .3050, .4200,
+ .5970, .6750, .7900, .8270, .8400, .8408, .9010, .9050,
+ .9100, .9140, .9050, .9260, .9470, .9670, .9760, .9840,
+ .9710, .9790, .9880,1.0000, .9902, .9840, .9780, .9710,
+ .9470, .9510, .9450, .9380, .9340, .9300, .9360, .9420,
+ .9140, .8970, .7980, .7000, .5970, .4610, .3700, .2630,
+ .1730, .1259, .0888, .0619, .0450, .0346, .0267, .0207,
+ .0160, .0120, .0086, .0060, .0040, .0025, .0013, .0003,
+ .0000
+ };
+
+ /* Band 5 of Aster; Central Wavelength = 2169nm */
+ static const float sr5[74] = {
+ .0000, .0001, .0007, .0017, .0030, .0045, .0062, .0080,
+ .0100, .0124, .0157, .0200, .0290, .0410, .0780, .1310,
+ .2050, .3030, .5410, .7050, .7790, .7910, .8030, .8220,
+ .8400, .9180, .9590,1.0000, .9750, .9020, .7790, .6890,
+ .5900, .4180, .3030, .2300, .1720, .1070, .0700, .0610,
+ .0498, .0385, .0273, .0160, .0140, .0120, .0100, .0080,
+ .0070, .0060, .0050, .0040, .0038, .0036, .0034, .0033,
+ .0031, .0029, .0027, .0025, .0024, .0023, .0021, .0020,
+ .0019, .0017, .0016, .0015, .0013, .0011, .0008, .0005,
+ .0002, .0000
+ };
+
+ /* Band 6 of Aster; Central Wavelength = 2209nm */
+ static const float sr6[78] = {
+ .0000, .0001, .0001, .0003, .0005, .0007, .0010, .0014,
+ .0018, .0022, .0027, .0032, .0037, .0044, .0050, .0057,
+ .0064, .0072, .0080, .0092, .0110, .0133, .0160, .0194,
+ .0240, .0298, .0370, .0490, .0660, .1070, .1720, .2540,
+ .3520, .5000, .6020, .7420, .7620, .7790, .8520, .8690,
+ .8860, .9020, .9290, .9550, .9840,1.0000, .9340, .8200,
+ .7540, .5160, .3280, .2380, .1640, .1070, .0570, .0468,
+ .0365, .0263, .0160, .0140, .0120, .0100, .0080, .0070,
+ .0060, .0050, .0040, .0036, .0032, .0029, .0025, .0022,
+ .0018, .0015, .0011, .0006, .0002, .0000
+ };
+
+ /* Band 7 of Aster; Central Wavelength = 2263nm */
+ static const float sr7[78] = {
+ .0000, .0012, .0031, .0054, .0080, .0111, .0149, .0195,
+ .0250, .0330, .0490, .0700, .1150, .1760, .2500, .3850,
+ .5080, .6560, .7950, .8690, .8480, .9100, .9100, .9260,
+ .9260, .9430, .9590, .9750, .9750,1.0000, .9590, .8690,
+ .7990, .7050, .6230, .5000, .3930, .3030, .2420, .1760,
+ .1270, .1060, .0840, .0625, .0410, .0370, .0330, .0290,
+ .0250, .0230, .0215, .0199, .0182, .0165, .0147, .0130,
+ .0112, .0093, .0084, .0078, .0074, .0070, .0067, .0062,
+ .0058, .0053, .0049, .0044, .0040, .0035, .0031, .0027,
+ .0022, .0018, .0013, .0008, .0004, .0000
+ };
+
+ /* Band 8 of Aster; Central Wavelength = 2334nm */
+ static const float sr8[92] = {
+ .0000, .0026, .0055, .0081, .0103, .0120, .0131, .0138,
+ .0147, .0160, .0195, .0260, .0347, .0450, .0610, .0820,
+ .1060, .1390, .2040, .2860, .4490, .6040, .7020, .8330,
+ .9710, .9880, .9550, .9800, .9770, .9750, .9720, .9700,
+ .9670, .9470, .9620, .9770, .9920,1.0000, .9800, .9960,
+ .9920, .9960, .9550, .9630, .9060, .8370, .7840, .7020,
+ .5800, .4410, .3430, .2780, .2200, .1670, .1307, .0996,
+ .0747, .0570, .0440, .0332, .0250, .0200, .0171, .0150,
+ .0134, .0120, .0108, .0098, .0089, .0080, .0070, .0059,
+ .0049, .0040, .0031, .0022, .0015, .0012, .0010, .0009,
+ .0008, .0007, .0006, .0005, .0004, .0004, .0003, .0002,
+ .0002, .0001, .0001, .0000
+ };
+
+ /* Band 9 of Aster; Central Wavelength = 2400nm */
+ static const float sr9[98] = {
+ .0000, .0004, .0012, .0020, .0028, .0036, .0044, .0053,
+ .0062, .0071, .0080, .0089, .0098, .0108, .0120, .0133,
+ .0148, .0169, .0200, .0290, .0450, .0650, .0780, .1100,
+ .1550, .2290, .3270, .4240, .5390, .7270, .7840, .9060,
+ .9270, .8980, .9000, .9010, .9030, .9040, .9060, .9310,
+ .9270, .9220, .9610,1.0000, .9800, .9590, .9270, .8940,
+ .8690, .8330, .8160, .7670, .7020, .6610, .5630, .4240,
+ .3430, .2610, .1920, .1439, .1021, .0695, .0490, .0369,
+ .0274, .0205, .0160, .0132, .0111, .0094, .0080, .0066,
+ .0053, .0044, .0040, .0051, .0073, .0087, .0088, .0088,
+ .0087, .0087, .0086, .0085, .0084, .0082, .0079, .0076,
+ .0072, .0067, .0062, .0055, .0047, .0039, .0029, .0018,
+ .0005, .0000
+ };
+
+ static const float wli[9] = { 0.4800, 0.5875, 0.7225, 1.5300, 2.1025, 2.1050, 2.2000, 2.2475, 2.2950 };
+ static const float wls[9] = { 0.6450, 0.7325, 0.9125, 1.7500, 2.2850, 2.2975, 2.3925, 2.4750, 2.5375 };
+
+ ffu.wlinf = wli[iwa-1];
+ ffu.wlsup = wls[iwa-1];
+
+ int i;
+ for(i = 0; i < 1501; i++) ffu.s[i] = 0;
+
+ switch(iwa)
+ {
+ case 1: for(i = 0; i < 67; i++) ffu.s[92+i] = sr1[i];
+ break;
+ case 2: for(i = 0; i < 59; i++) ffu.s[135+i] = sr2[i];
+ break;
+ case 3: for(i = 0; i < 77; i++) ffu.s[189+i] = sr3[i];
+ break;
+ case 4: for(i = 0; i < 89; i++) ffu.s[512+i] = sr4[i];
+ break;
+ case 5: for(i = 0; i < 74; i++) ffu.s[741+i] = sr5[i];
+ break;
+ case 6: for(i = 0; i < 78; i++) ffu.s[742+i] = sr6[i];
+ break;
+ case 7: for(i = 0; i < 78; i++) ffu.s[780+i] = sr7[i];
+ break;
+ case 8: for(i = 0; i < 92; i++) ffu.s[799+i] = sr8[i];
+ break;
+ case 9: for(i = 0; i < 98; i++) ffu.s[818+i] = sr9[i];
+ }
+}
+
+/* Following filter function created using create_iwave.py */
+
+void IWave::avnir(int iwa)
+{
+ /* "band 1" of AVNIR */
+ static const float sr1[65] = {
+ .0000, .0000, .0000, .0008, .0017, .0049, .0080, .0186,
+ .0293, .0776, .1260, .2609, .3958, .5315, .6672, .6947,
+ .7223, .7262, .7300, .7272, .7245, .7717, .8189, .8502,
+ .8815, .9068, .9322, .9496, .9669, .9708, .9747, .9873,
+ 1.0000, .9849, .9699, .9507, .9316, .9365, .9415, .9632,
+ .9849, .9600, .9351, .7552, .5754, .3911, .2068, .1361,
+ .0655, .0440, .0226, .0150, .0075, .0046, .0018, .0009,
+ .0000, .0000, .0000, .0000, .0000, .0000, .0000, .0000,
+ .0000
+ };
+
+ /* "band 2" of AVNIR */
+ static const float sr2[57] = {
+ .0000, .0000, .0000, .0008, .0015, .0030, .0045, .0123,
+ .0202, .0470, .0739, .1358, .1977, .3205, .4433, .5633,
+ .6832, .7137, .7442, .7594, .7746, .8089, .8432, .8576,
+ .8719, .8721, .8724, .8873, .9022, .9254, .9486, .9625,
+ .9764, .9882, 1.0000, .9904, .9808, .9349, .8890, .8367,
+ .7843, .7651, .7458, .7156, .6854, .5639, .4425, .3005,
+ .1586, .0985, .0384, .0236, .0088, .0053, .0017, .0008,
+ .0000
+ };
+
+ /* "band 3" of AVNIR */
+ static const float sr3[81] = {
+ .0000, .0000, .0000, .0000, .0000, .0000, .0000, .0008,
+ .0016, .0025, .0034, .0043, .0051, .0075, .0099, .0126,
+ .0153, .0228, .0304, .0462, .0620, .0995, .1370, .2107,
+ .2844, .3857, .4871, .5747, .6624, .7198, .7771, .7896,
+ .8021, .7991, .7960, .7989, .8017, .8312, .8606, .8982,
+ .9359, .9592, .9825, .9912, 1.0000, .9931, .9862, .9568,
+ .9275, .9046, .8818, .8607, .8395, .8344, .8293, .8215,
+ .8136, .7470, .6804, .5481, .4158, .3100, .2043, .1471,
+ .0898, .0634, .0369, .0273, .0177, .0135, .0093, .0076,
+ .0060, .0045, .0030, .0023, .0015, .0016, .0016, .0008,
+ .0000
+ };
+
+ /* "band 4" of AVNIR */
+ static const float sr4[121] = {
+ .0000, .0000, .0000, .0000, .0000, .0000, .0000, .0011,
+ .0023, .0023, .0022, .0033, .0045, .0080, .0115, .0190,
+ .0264, .0484, .0704, .1138, .1572, .2351, .3129, .4431,
+ .5733, .7244, .8754, .9377, 1.0000, .9884, .9768, .9528,
+ .9288, .9091, .8894, .8763, .8633, .8627, .8622, .8753,
+ .8885, .9136, .9388, .9437, .9486, .9531, .9576, .9411,
+ .9247, .8969, .8691, .8467, .8242, .7893, .7545, .7331,
+ .7117, .6911, .6705, .6560, .6414, .6357, .6299, .6258,
+ .6217, .6227, .6237, .6025, .5812, .5843, .5874, .5867,
+ .5860, .5696, .5532, .5251, .4969, .4438, .3908, .3191,
+ .2475, .1906, .1338, .1033, .0727, .0543, .0359, .0292,
+ .0224, .0161, .0097, .0069, .0040, .0038, .0036, .0030,
+ .0025, .0024, .0024, .0015, .0007, .0004, .0000, .0003,
+ .0007, .0006, .0006, .0006, .0006, .0003, .0000, .0000,
+ .0000, .0000, .0000, .0000, .0000, .0000, .0000, .0000,
+ .0000
+ };
+
+ static const float wli[4] = {0.390, 0.485, 0.545, 0.700};
+ static const float wls[4] = {0.550, 0.625, 0.745, 1.000};
+
+ ffu.wlinf = (float)wli[iwa-1];
+ ffu.wlsup = (float)wls[iwa-1];
+
+ int i;
+ for(i = 0; i < 1501; i++) ffu.s[i] = 0;
+
+ switch(iwa)
+ {
+ case 1: for(i = 0; i < 65; i++) ffu.s[56+i] = sr1[i];
+ break;
+ case 2: for(i = 0; i < 57; i++) ffu.s[94+i] = sr2[i];
+ break;
+ case 3: for(i = 0; i < 81; i++) ffu.s[118+i] = sr3[i];
+ break;
+ case 4: for(i = 0; i < 121; i++) ffu.s[180+i] = sr4[i];
+ break;
+ }
+}
+
+/* Following filter function created using create_iwave.py */
+
+void IWave::ikonos(int iwa)
+{
+
+ /* Ikonos Green of ikonos */
+ static const float sr1[275] = {
+ .0008, .0011, .0015, .0012, .0009, .0008, .0007, .0007,
+ .0007, .0010, .0013, .0015, .0017, .0018, .0019, .0024,
+ .0028, .0040, .0052, .0064, .0077, .0082, .0088, .0103,
+ .0119, .0147, .0175, .0262, .0350, .0602, .0854, .1392,
+ .1929, .2617, .3305, .3750, .4195, .4638, .5082, .5607,
+ .6132, .6437, .6742, .6973, .7204, .7406, .7608, .7605,
+ .7601, .7742, .7883, .8225, .8566, .8730, .8894, .9165,
+ .9436, .9718, 1.0000, .9934, .9868, .9562, .9255, .8434,
+ .7613, .6519, .5424, .4282, .3139, .2590, .2041, .1780,
+ .1519, .1188, .0856, .0644, .0432, .0371, .0310, .0288,
+ .0266, .0244, .0222, .0221, .0221, .0242, .0262, .0279,
+ .0296, .0283, .0270, .0248, .0226, .0240, .0254, .0280,
+ .0305, .0289, .0274, .0243, .0213, .0215, .0217, .0257,
+ .0296, .0319, .0342, .0306, .0271, .0233, .0195, .0195,
+ .0195, .0193, .0190, .0165, .0140, .0107, .0073, .0067,
+ .0060, .0056, .0051, .0065, .0079, .0101, .0123, .0161,
+ .0200, .0210, .0221, .0214, .0208, .0199, .0190, .0172,
+ .0155, .0126, .0097, .0083, .0068, .0059, .0049, .0052,
+ .0054, .0085, .0115, .0169, .0222, .0231, .0240, .0180,
+ .0121, .0080, .0040, .0031, .0022, .0024, .0026, .0024,
+ .0023, .0029, .0035, .0030, .0025, .0024, .0023, .0032,
+ .0040, .0038, .0036, .0032, .0027, .0025, .0024, .0025,
+ .0026, .0024, .0022, .0019, .0016, .0016, .0016, .0018,
+ .0020, .0020, .0020, .0023, .0025, .0031, .0036, .0046,
+ .0056, .0061, .0066, .0071, .0075, .0078, .0080, .0087,
+ .0095, .0089, .0083, .0085, .0088, .0090, .0093, .0100,
+ .0107, .0116, .0125, .0128, .0131, .0131, .0131, .0125,
+ .0119, .0112, .0105, .0100, .0095, .0091, .0088, .0086,
+ .0084, .0083, .0082, .0081, .0080, .0082, .0084, .0082,
+ .0081, .0081, .0080, .0080, .0080, .0074, .0069, .0062,
+ .0054, .0051, .0048, .0046, .0045, .0043, .0041, .0038,
+ .0036, .0035, .0035, .0034, .0033, .0030, .0028, .0028,
+ .0028, .0026, .0024, .0024, .0023, .0025, .0026, .0026,
+ .0026, .0026, .0026, .0021, .0016, .0018, .0019, .0022,
+ .0024, .0019, .0013
+ };
+
+ /* Ikonos Red of ikonos */
+ static const float sr2[275] = {
+ .0006, .0007, .0008, .0008, .0007, .0008, .0008, .0007,
+ .0006, .0007, .0008, .0007, .0006, .0008, .0009, .0007,
+ .0006, .0010, .0013, .0013, .0012, .0019, .0027, .0018,
+ .0010, .0011, .0013, .0016, .0019, .0023, .0027, .0030,
+ .0034, .0037, .0040, .0049, .0057, .0074, .0091, .0102,
+ .0113, .0113, .0113, .0122, .0130, .0151, .0172, .0208,
+ .0245, .0306, .0367, .0435, .0503, .0565, .0628, .0861,
+ .1094, .1512, .1931, .2421, .2911, .3653, .4396, .5451,
+ .6507, .7286, .8066, .8391, .8717, .8801, .8884, .8891,
+ .8898, .8824, .8749, .8635, .8521, .8722, .8923, .9450,
+ .9977, .9819, .9661, .9369, .9077, .9005, .8932, .9195,
+ .9459, .9715, .9972, .9785, .9598, .9186, .8774, .8136,
+ .7497, .6259, .5020, .3926, .2832, .2215, .1599, .1334,
+ .1068, .0947, .0825, .0732, .0640, .0557, .0474, .0397,
+ .0320, .0273, .0227, .0196, .0166, .0155, .0145, .0147,
+ .0148, .0155, .0162, .0174, .0186, .0193, .0199, .0193,
+ .0188, .0170, .0152, .0138, .0125, .0122, .0119, .0114,
+ .0109, .0122, .0135, .0150, .0165, .0174, .0183, .0171,
+ .0159, .0135, .0112, .0088, .0063, .0059, .0055, .0044,
+ .0034, .0036, .0039, .0037, .0035, .0032, .0030, .0030,
+ .0031, .0027, .0023, .0029, .0034, .0035, .0036, .0044,
+ .0053, .0059, .0065, .0068, .0072, .0080, .0089, .0092,
+ .0095, .0088, .0080, .0075, .0070, .0067, .0064, .0063,
+ .0061, .0059, .0056, .0054, .0053, .0057, .0061, .0068,
+ .0074, .0070, .0067, .0067, .0067, .0081, .0094, .0111,
+ .0128, .0135, .0143, .0151, .0159, .0165, .0171, .0172,
+ .0172, .0168, .0163, .0158, .0152, .0143, .0134, .0127,
+ .0120, .0113, .0106, .0103, .0100, .0096, .0092, .0095,
+ .0098, .0093, .0089, .0087, .0084, .0081, .0078, .0077,
+ .0075, .0072, .0070, .0064, .0059, .0056, .0054, .0050,
+ .0046, .0043, .0039, .0038, .0036, .0034, .0033, .0031,
+ .0029, .0029, .0028, .0028, .0028, .0025, .0022, .0024,
+ .0025, .0024, .0022, .0024, .0025, .0023, .0021, .0019,
+ .0017, .0019, .0021, .0021, .0020, .0021, .0022, .0018,
+ .0014, .0015, .0016
+ };
+
+ /* Ikonos NIR of ikonos */
+ static const float sr3[275] = {
+ .0000, .0003, .0005, .0004, .0004, .0005, .0006, .0005,
+ .0003, .0006, .0008, .0007, .0007, .0005, .0004, .0009,
+ .0015, .0018, .0020, .0025, .0030, .0033, .0035, .0038,
+ .0040, .0041, .0041, .0060, .0078, .0081, .0084, .0083,
+ .0082, .0066, .0051, .0038, .0026, .0035, .0043, .0049,
+ .0055, .0055, .0055, .0042, .0029, .0023, .0017, .0016,
+ .0015, .0026, .0036, .0040, .0043, .0034, .0025, .0023,
+ .0020, .0017, .0013, .0014, .0015, .0015, .0015, .0018,
+ .0021, .0022, .0024, .0025, .0027, .0030, .0034, .0031,
+ .0029, .0029, .0029, .0035, .0041, .0050, .0060, .0066,
+ .0072, .0083, .0093, .0093, .0093, .0090, .0087, .0091,
+ .0095, .0099, .0103, .0118, .0133, .0169, .0204, .0244,
+ .0285, .0316, .0347, .0388, .0428, .0502, .0575, .0715,
+ .0855, .1052, .1249, .1506, .1764, .2174, .2584, .3386,
+ .4188, .5285, .6381, .7213, .8045, .8414, .8784, .8990,
+ .9196, .9364, .9532, .9545, .9559, .9424, .9289, .9339,
+ .9389, .9628, .9866, .9917, .9968, .9524, .9079, .8388,
+ .7698, .6808, .5919, .5067, .4215, .3634, .3053, .2658,
+ .2262, .1923, .1583, .1315, .1046, .0860, .0674, .0560,
+ .0447, .0373, .0299, .0269, .0239, .0230, .0220, .0202,
+ .0184, .0171, .0159, .0161, .0162, .0159, .0157, .0161,
+ .0165, .0168, .0171, .0167, .0163, .0142, .0121, .0106,
+ .0091, .0079, .0068, .0065, .0062, .0059, .0056, .0049,
+ .0042, .0042, .0042, .0046, .0050, .0045, .0040, .0040,
+ .0040, .0033, .0027, .0028, .0030, .0028, .0025, .0029,
+ .0033, .0029, .0026, .0026, .0026, .0027, .0028, .0027,
+ .0027, .0028, .0028, .0027, .0026, .0026, .0026, .0025,
+ .0025, .0024, .0024, .0024, .0023, .0026, .0029, .0028,
+ .0027, .0029, .0031, .0035, .0039, .0040, .0040, .0040,
+ .0040, .0037, .0035, .0031, .0026, .0024, .0022, .0019,
+ .0016, .0015, .0014, .0014, .0013, .0013, .0014, .0012,
+ .0011, .0011, .0012, .0012, .0012, .0011, .0010, .0013,
+ .0016, .0013, .0010, .0012, .0013, .0014, .0014, .0022,
+ .0029, .0023, .0018, .0020, .0023, .0018, .0013, .0011,
+ .0009, .0004, .0000
+ };
+
+ static const float wli[3] = {0.350, 0.350, 0.350};
+ static const float wls[3] = {1.035, 1.035, 1.035};
+
+ ffu.wlinf = (float)wli[iwa-1];
+ ffu.wlsup = (float)wls[iwa-1];
+
+ int i;
+ for(i = 0; i < 1501; i++) ffu.s[i] = 0;
+
+ switch(iwa)
+ {
+ case 1: for(i = 0; i < 275; i++) ffu.s[40+i] = sr1[i];
+ break;
+ case 2: for(i = 0; i < 275; i++) ffu.s[40+i] = sr2[i];
+ break;
+ case 3: for(i = 0; i < 275; i++) ffu.s[40+i] = sr3[i];
+ break;
+ }
+}
+
+/* Following filter function created using create_iwave.py */
+
+void IWave::rapideye(int iwa)
+{
+
+ /* "Blue" of rapideye */
+ static const float sr1[30] = {
+ .0200, .5050, .7300, .7450, .7600, .7750, .7800,
+ .8000, .8000, .8000, .8100, .8000, .8100, .8200,
+ .8300, .8400, .8500, .8650, .8800, .8900, .9200,
+ .9500, .9700, .9700, 1.0000, 1.0000
+ };
+
+ /* "Green" of rapideye */
+ static const float sr2[53] = {
+ .0100, .0183, .0267, .0105, .0132, .0158, .0184,
+ .0237, .0263, .0289, .0288, .0268, .0248, .0228,
+ .0188, .0168, .0148, .0128, .0108, .0200, .1200,
+ .8700, .8700, .8800, .8700, .8800, .8800, .8800,
+ .8900, .9000, .9000, .9050, .9200, .9250, .9300,
+ .9500, .9550, .9700, .9750, .9800, .9800, .9900,
+ .9900, .9850, 1.0000, .2750
+ };
+
+ /* "Red" of rapideye */
+ static const float sr3[27] = {
+ .0100, .0300, .2000, .7900, .8500, .8750, .8800,
+ .9000, .9100, .9100, .9200, .9300, .9450, .9500,
+ .9700, .9750, .9900, .9900, .9900, .9900, 1.0000,
+ .8600, .1150
+ };
+
+ /* "RedEdge " of rapideye */
+ static const float sr4[95] = {
+ .0300, .0285, .0271, .0256, .0241, .0226, .0212,
+ .0182, .0168, .0153, .0138, .0124, .0109, .0101,
+ .0108, .0111, .0114, .0118, .0121, .0124, .0128,
+ .0134, .0138, .0141, .0144, .0147, .0151, .0154,
+ .0161, .0164, .0167, .0170, .0174, .0177, .0180,
+ .0187, .0190, .0193, .0197, .0200, .0200, .0200,
+ .0200, .0200, .0200, .0200, .0200, .0200, .0200,
+ .0200, .0200, .0197, .0191, .0185, .0178, .0172,
+ .0159, .0153, .0146, .0140, .0133, .0127, .0121,
+ .0108, .0101, .0200, .1050, .4900, .9450, 1.0000,
+ 1.0000, .9900, .9900, .9900, .9800, .9750, .9700,
+ .9600, .9450, .9400, .9000, .4300, .0950
+ };
+
+ /* "NIR " of rapideye */
+ static const float sr5[137] = {
+ .0100, .0102, .0103, .0105, .0106, .0108, .0110,
+ .0113, .0115, .0116, .0118, .0119, .0121, .0123,
+ .0126, .0128, .0129, .0131, .0132, .0134, .0136,
+ .0139, .0141, .0142, .0144, .0145, .0147, .0149,
+ .0152, .0154, .0155, .0157, .0158, .0160, .0162,
+ .0165, .0167, .0168, .0170, .0171, .0173, .0175,
+ .0178, .0180, .0181, .0183, .0184, .0186, .0188,
+ .0191, .0193, .0194, .0196, .0197, .0199, .0199,
+ .0192, .0188, .0185, .0182, .0178, .0175, .0171,
+ .0164, .0161, .0158, .0154, .0151, .0147, .0144,
+ .0137, .0134, .0130, .0127, .0123, .0120, .0116,
+ .0110, .0106, .0103, .0100, .0100, .0250, .0700,
+ .5000, .8850, 1.0000, .9750, .9700, .9750, .9800,
+ .9700, .9600, .9600, .9600, .9600, .9600, .9600,
+ .9500, .9400, .9400, .9300, .9300, .9300, .9300,
+ .9200, .9200, .9100, .9000, .8900, .8850, .8800,
+ .8600, .8400, .8400, .8150, .5800, .2450, .0800,
+
+ };
+
+ static const float wli[5] = {0.438, 0.463, 0.624, 0.500, 0.520};
+ static const float wls[5] = {0.513, 0.594, 0.690, 0.737, 0.862};
+
+ ffu.wlinf = (float)wli[iwa-1];
+ ffu.wlsup = (float)wls[iwa-1];
+
+ int i;
+ for(i = 0; i < 1501; i++) ffu.s[i] = 0;
+
+ switch(iwa)
+ {
+ case 1: for(i = 0; i < 30; i++) ffu.s[75+i] = sr1[i];
+ break;
+ case 2: for(i = 0; i < 53; i++) ffu.s[85+i] = sr2[i];
+ break;
+ case 3: for(i = 0; i < 27; i++) ffu.s[149+i] = sr3[i];
+ break;
+ case 4: for(i = 0; i < 95; i++) ffu.s[100+i] = sr4[i];
+ break;
+ case 5: for(i = 0; i < 137; i++) ffu.s[108+i] = sr5[i];
+ break;
+ }
+}
+
+/* Following filter function created using create_iwave.py */
+
+void IWave::vgt1_spot4(int iwa)
+{
+
+ /* B0 of VGT1-spot4 */
+ static const float sr1[41] = {
+ .0001, .0003, .0005, .0007, .0010, .0013, .0028, .0050,
+ .0182, .0377, .0828, .1423, .2234, .3168, .4108, .5052,
+ .5925, .6759, .7509, .8212, .8815, .9361, .9699, .9920,
+ .9907, .9761, .9528, .9248, .8811, .8287, .7223, .5857,
+ .4394, .2876, .1820, .1024, .0579, .0331, .0196, .0125,
+ .0000
+ };
+
+ /* B2 of VGT1-spot4 */
+ static const float sr2[82] = {
+ .0017, .0017, .0016, .0016, .0016, .0024, .0031, .0039,
+ .0046, .0439, .0832, .1225, .1618, .2737, .3856, .4975,
+ .6094, .6615, .7136, .7657, .8178, .8278, .8377, .8477,
+ .8577, .8673, .8769, .8865, .8961, .9088, .9214, .9341,
+ .9468, .9595, .9722, .9849, .9976, .9895, .9815, .9734,
+ .9653, .9169, .8685, .8201, .7717, .6989, .6260, .5532,
+ .4804, .4243, .3681, .3120, .2559, .2229, .1899, .1569,
+ .1239, .1063, .0887, .0712, .0536, .0454, .0372, .0289,
+ .0207, .0175, .0143, .0111, .0079, .0069, .0060, .0050,
+ .0040, .0034, .0027, .0021, .0015, .0015, .0015, .0015,
+ .0015, .0000
+ };
+
+ /* B3 of VGT1-spot4 */
+ static const float sr3[133] = {
+ .0007, .0008, .0008, .0009, .0010, .0011, .0013, .0014,
+ .0015, .0019, .0022, .0026, .0030, .0051, .0072, .0092,
+ .0113, .0210, .0308, .0406, .0503, .0806, .1109, .1411,
+ .1714, .2271, .2828, .3385, .3942, .4584, .5226, .5869,
+ .6511, .6966, .7421, .7876, .8331, .8607, .8883, .9159,
+ .9435, .9552, .9668, .9785, .9902, .9927, .9951, .9976,
+ 1.0000, .9999, .9997, .9996, .9994, .9984, .9974, .9964,
+ .9954, .9927, .9900, .9873, .9846, .9766, .9686, .9606,
+ .9526, .9445, .9365, .9284, .9203, .9008, .8813, .8618,
+ .8423, .7897, .7370, .6844, .6318, .5584, .4849, .4114,
+ .3380, .2893, .2407, .1920, .1434, .1222, .1010, .0798,
+ .0586, .0505, .0425, .0345, .0264, .0229, .0194, .0159,
+ .0124, .0111, .0098, .0085, .0072, .0065, .0057, .0050,
+ .0042, .0038, .0034, .0031, .0027, .0024, .0021, .0017,
+ .0014, .0014, .0014, .0013, .0013, .0013, .0013, .0012,
+ .0012, .0012, .0011, .0011, .0011, .0010, .0009, .0009,
+ .0008, .0007, .0006, .0006, .0005
+ };
+
+ /* MIR of VGT1-spot4 */
+ static const float sr4[141] = {
+ .0010, .0010, .0010, .0010, .0010, .0011, .0011, .0012,
+ .0013, .0014, .0014, .0015, .0016, .0016, .0017, .0018,
+ .0018, .0019, .0021, .0022, .0024, .0026, .0028, .0030,
+ .0032, .0035, .0038, .0041, .0044, .0050, .0055, .0060,
+ .0066, .0075, .0083, .0092, .0101, .0118, .0136, .0154,
+ .0171, .0203, .0235, .0267, .0299, .0366, .0433, .0501,
+ .0568, .0708, .0848, .0989, .1129, .1406, .1684, .1961,
+ .2239, .2691, .3142, .3594, .4045, .4677, .5308, .5939,
+ .6571, .7099, .7628, .8156, .8685, .8934, .9183, .9433,
+ .9682, .9761, .9841, .9920, 1.0000, .9971, .9941, .9912,
+ .9883, .9840, .9797, .9753, .9710, .9517, .9325, .9132,
+ .8939, .8713, .8488, .8262, .8036, .7457, .6878, .6299,
+ .5720, .5109, .4498, .3887, .3276, .2926, .2576, .2226,
+ .1876, .1704, .1531, .1358, .1186, .1078, .0970, .0863,
+ .0755, .0685, .0614, .0544, .0474, .0430, .0385, .0340,
+ .0296, .0269, .0242, .0214, .0187, .0172, .0157, .0142,
+ .0127, .0118, .0109, .0101, .0092, .0086, .0080, .0075,
+ .0069, .0064, .0060, .0055, .0050
+ };
+
+ static const float wli[4] = {0.400, 0.580, 0.700, 1.450};
+ static const float wls[4] = {0.500, 0.782, 1.030, 1.800};
+
+ ffu.wlinf = (float)wli[iwa-1];
+ ffu.wlsup = (float)wls[iwa-1];
+
+ int i;
+ for(i = 0; i < 1501; i++) ffu.s[i] = 0;
+
+ switch(iwa)
+ {
+ case 1: for(i = 0; i < 41; i++) ffu.s[60+i] = sr1[i];
+ break;
+ case 2: for(i = 0; i < 82; i++) ffu.s[132+i] = sr2[i];
+ break;
+ case 3: for(i = 0; i < 133; i++) ffu.s[180+i] = sr3[i];
+ break;
+ case 4: for(i = 0; i < 141; i++) ffu.s[480+i] = sr4[i];
+ break;
+ }
+}
+
+/* Following filter function created using create_iwave.py */
+
+void IWave::vgt2_spot5(int iwa)
+{
+
+ /* B0 of VGT2_spot5 */
+ static const float sr1[61] = {
+ .0007, .0008, .0010, .0010, .0011, .0012, .0013, .0029,
+ .0045, .0209, .0374, .0964, .1553, .2551, .3549, .4536,
+ .5524, .6318, .7111, .7602, .8093, .8304, .8514, .8698,
+ .8882, .9441, 1.0000, .9787, .9574, .7493, .5412, .3553,
+ .1694, .1083, .0472, .0318, .0163, .0116, .0069, .0053,
+ .0036, .0028, .0020, .0017, .0014, .0011, .0009, .0008,
+ .0008, .0008, .0007, .0006, .0006, .0006, .0005, .0004,
+ .0004, .0004, .0004, .0003, .0003
+ };
+
+ /* B2 of VGT2_spot5 */
+ static const float sr2[81] = {
+ .0006, .0006, .0006, .0007, .0007, .0033, .0059, .0084,
+ .0110, .0688, .1265, .1842, .2420, .3532, .4643, .5755,
+ .6866, .7306, .7745, .8185, .8625, .8766, .8906, .9046,
+ .9187, .9307, .9426, .9546, .9666, .9749, .9833, .9917,
+ 1.0000, .9957, .9915, .9872, .9829, .9387, .8945, .8503,
+ .8061, .7316, .6570, .5825, .5079, .4468, .3856, .3245,
+ .2634, .2293, .1952, .1611, .1270, .1095, .0921, .0746,
+ .0572, .0490, .0408, .0326, .0244, .0208, .0171, .0135,
+ .0099, .0085, .0071, .0057, .0043, .0037, .0031, .0025,
+ .0019, .0017, .0014, .0012, .0010, .0009, .0008, .0007,
+ .0006
+ };
+
+ /* B3 of VGT2_spot5 */
+ static const float sr3[121] = {
+ .0003, .0003, .0003, .0003, .0003, .0003, .0003, .0004,
+ .0004, .0005, .0006, .0008, .0009, .0017, .0024, .0032,
+ .0040, .0082, .0124, .0166, .0208, .0361, .0514, .0667,
+ .0820, .1175, .1530, .1885, .2240, .2774, .3309, .3844,
+ .4378, .4906, .5434, .5962, .6490, .6899, .7308, .7716,
+ .8125, .8369, .8612, .8856, .9100, .9248, .9396, .9544,
+ .9692, .9761, .9829, .9898, .9967, .9975, .9983, .9992,
+ 1.0000, .9939, .9878, .9817, .9756, .9618, .9480, .9342,
+ .9204, .9030, .8856, .8682, .8508, .8236, .7965, .7693,
+ .7422, .6945, .6467, .5989, .5512, .4910, .4308, .3706,
+ .3104, .2681, .2258, .1836, .1413, .1213, .1013, .0813,
+ .0613, .0530, .0447, .0364, .0281, .0245, .0209, .0172,
+ .0136, .0120, .0104, .0089, .0073, .0065, .0056, .0047,
+ .0039, .0036, .0032, .0029, .0025, .0023, .0021, .0018,
+ .0016, .0015, .0014, .0012, .0011, .0010, .0008, .0007,
+ .0006
+ };
+
+ /* MIR of VGT2_spot5 */
+ static const float sr4[141] = {
+ .0005, .0006, .0006, .0007, .0008, .0008, .0008, .0009,
+ .0009, .0009, .0009, .0009, .0009, .0011, .0014, .0016,
+ .0019, .0022, .0024, .0027, .0029, .0034, .0040, .0045,
+ .0050, .0060, .0070, .0080, .0090, .0108, .0126, .0143,
+ .0161, .0196, .0231, .0266, .0301, .0372, .0444, .0515,
+ .0586, .0723, .0860, .0997, .1134, .1401, .1668, .1936,
+ .2203, .2668, .3134, .3599, .4065, .4664, .5263, .5863,
+ .6462, .6929, .7396, .7862, .8329, .8630, .8931, .9233,
+ .9534, .9644, .9754, .9863, .9973, .9980, .9987, .9993,
+ 1.0000, .9987, .9974, .9962, .9949, .9914, .9879, .9845,
+ .9810, .9687, .9564, .9440, .9317, .9055, .8793, .8532,
+ .8270, .7811, .7351, .6892, .6433, .5746, .5059, .4371,
+ .3684, .3244, .2803, .2363, .1923, .1713, .1502, .1292,
+ .1082, .0970, .0859, .0747, .0636, .0575, .0514, .0453,
+ .0392, .0360, .0327, .0295, .0262, .0235, .0209, .0182,
+ .0155, .0139, .0123, .0106, .0090, .0082, .0073, .0065,
+ .0057, .0053, .0050, .0046, .0043, .0040, .0037, .0033,
+ .0030, .0026, .0022, .0019, .0015
+ };
+
+ static const float wli[4] = {0.400, 0.580, 0.700, 1.450};
+ static const float wls[4] = {0.550, 0.780, 1.000, 1.800};
+
+ ffu.wlinf = (float)wli[iwa-1];
+ ffu.wlsup = (float)wls[iwa-1];
+
+ int i;
+ for(i = 0; i < 1501; i++) ffu.s[i] = 0;
+
+ switch(iwa)
+ {
+ case 1: for(i = 0; i < 61; i++) ffu.s[60+i] = sr1[i];
+ break;
+ case 2: for(i = 0; i < 81; i++) ffu.s[132+i] = sr2[i];
+ break;
+ case 3: for(i = 0; i < 121; i++) ffu.s[180+i] = sr3[i];
+ break;
+ case 4: for(i = 0; i < 141; i++) ffu.s[480+i] = sr4[i];
+ break;
+ }
+}
+
+void IWave::worldview2(int iwa)
+{
+
+ /* WV2 Pan of wv2_spectral_response */
+ static const float sr1[301] = {
+ .0055, .0062, .0068, .0045, .0022, .0024, .0027, .0034,
+ .0041, .0038, .0030, .0039, .0049, .0042, .0034, .0037,
+ .0040, .0050, .0060, .0050, .0040, .0036, .0033, .0037,
+ .0042, .0052, .0063, .0048, .0034, .0061, .0088, .0105,
+ .0121, .0499, .0881, .2723, .4599, 1.6988, 2.9515, 55.9008,
+ 109.7660, 271.3440, 436.1630, 461.8220, 487.5330, 494.8560, 504.9920, 515.2150,
+ 525.5960, 529.5890, 535.5830, 529.7560, 522.2330, 527.2070, 533.6600, 528.6020,
+ 523.0890, 541.1120, 557.2800, 558.1700, 558.2320, 580.8990, 605.5330, 616.2080,
+ 626.7920, 612.1180, 595.4140, 612.0080, 630.7120, 649.1530, 671.5410, 663.7040,
+ 654.7330, 672.5320, 693.0980, 691.3350, 688.2370, 678.2900, 664.9730, 683.3230,
+ 701.5600, 705.9920, 713.5760, 709.8480, 709.7860, 738.4220, 765.7520, 762.7560,
+ 757.8270, 759.1620, 759.8180, 779.9830, 794.0850, 797.9350, 800.7150, 811.3510,
+ 819.2900, 820.8140, 823.0300, 829.7940, 838.8690, 848.9130, 860.8020, 858.0370,
+ 858.4620, 865.1970, 870.2850, 877.9320, 889.2780, 896.4750, 909.2530, 913.0800,
+ 917.8850, 914.2210, 910.7620, 916.9790, 924.8900, 936.8300, 950.7910, 943.9980,
+ 936.9110, 932.3110, 929.4170, 938.2740, 951.2320, 960.0120, 962.7810, 957.5010,
+ 953.8650, 954.7520, 957.3760, 968.1550, 977.7350, 961.3320, 949.2170, 946.9550,
+ 953.3340, 946.6560, 952.1930, 962.4700, 969.5950, 983.9680, 1000.0000, 994.3200,
+ 994.0030, 980.9740, 969.5630, 968.2530, 968.3970, 973.6740, 978.8550, 966.8470,
+ 963.7410, 952.2520, 946.6540, 945.9200, 952.9380, 954.7590, 962.5830, 962.1420,
+ 956.6370, 950.3810, 940.9620, 936.2240, 924.5960, 923.3790, 921.6840, 933.5680,
+ 940.8310, 957.9770, 963.8320, 958.1430, 941.2970, 924.2600, 903.0000, 895.8780,
+ 887.1520, 910.5230, 929.4020, 744.0190, 553.8670, 320.2460, 85.8164, 51.4292,
+ 17.2983, 12.0102, 6.5998, 4.3680, 2.1313, 1.5356, .9222, .7218,
+ .5287, .4897, .4497, .4318, .4090, .4071, .3964, .4203,
+ .4465, .4033, .3613, .3303, .2980, .3011, .3085, .2862,
+ .2615, .2536, .2423, .2746, .3070, .2950, .2837, .2615,
+ .2375, .2483, .2590, .2701, .2825, .2617, .2408, .2486,
+ .2580, .2735, .2876, .2828, .2762, .2753, .2731, .2568,
+ .2422, .2392, .2343, .2234, .2135, .2157, .2186, .2048,
+ .1911, .1799, .1690, .1771, .1832, .1676, .1513, .1388,
+ .1258, .1297, .1337, .1225, .1114, .1029, .0942, .1047,
+ .1152, .0995, .0839, .0845, .0853, .0776, .0701, .0707,
+ .0711, .0657, .0600, .0621, .0642, .0557, .0473, .0433,
+ .0392, .0361, .0329, .0341, .0352, .0314, .0276, .0255,
+ .0234, .0211, .0188, .0180, .0171, .0151, .0131, .0121,
+ .0111, .0100, .0088, .0088, .0087, .0080, .0072, .0071,
+ .0069, .0067, .0064, .0064, .0063
+ };
+
+ /* WV2 Coastal Blue of wv2_spectral_response */
+ static const float sr2[301] = {
+ .0019, .0033, .0033, .0028, .0017, .0033, .0036, .0044,
+ .0029, .0062, .0054, .0050, .0074, .0135, .0454, .1731,
+ .6347, 3.4150, 27.4284, 132.9030, 355.9880, 592.5800, 700.7190, 739.6250,
+ 765.3070, 787.8420, 817.0880, 838.6870, 861.7800, 883.5130, 905.0550, 917.0720,
+ 927.2080, 947.6580, 965.0880, 979.3040, 985.9210, 989.0940, 997.2360, 974.6130,
+ 853.9400, 588.0320, 281.5770, 80.5215, 8.9461, 1.3331, .3609, .1454,
+ .0712, .0380, .0115, .0096, .0051, .0112, .0110, .0108,
+ .0091, .0101, .0117, .0064, .0013, .0014, .0009, .0006,
+ .0007, .0009, .0009, .0011, .0010, .0007, .0009, .0012,
+ .0036, .0013, .0004, .0005, .0003, .0005, .0004, .0126,
+ .1417, .0024, .0003, .0003, .0005, .0005, .0003, .0003,
+ .0001, .0000, .0002, .0016, .0017, .0004, .0001, .0001,
+ .0005, .0029, .0045, .0028, .0010, .0017, .0013, .0014,
+ .0023, .0031, .0061, .0116, .0101, .0056, .0039, .0032,
+ .0027, .0031, .0025, .0026, .0027, .0027, .0025, .0021,
+ .0022, .0018, .0017, .0018, .0018, .0021, .0024, .0030,
+ .0044, .0093, .0172, .0163, .0078, .0042, .0044, .0042,
+ .0036, .0042, .0066, .0185, .0264, .0124, .0081, .0076,
+ .0085, .0096, .0122, .0292, .0976, .0936, .0333, .0238,
+ .0298, .0442, .0669, .1526, .4227, .2563, .0653, .0414,
+ .0578, .2646, .7112, .4411, .0894, .0305, .0131, .0081,
+ .0060, .0059, .0070, .0112, .0193, .0331, .0553, .1062,
+ .2462, .2458, .1162, .0691, .1216, .1248, .1605, .1959,
+ .1637, .1168, .0928, .0797, .0730, .0625, .0716, .0692,
+ .0699, .0721, .0593, .0474, .0512, .0388, .0287, .0282,
+ .0423, .0284, .0276, .0314, .0321, .0255, .0155, .0168,
+ .0152, .0173, .0183, .0163, .0163, .0211, .0168, .0132,
+ .0099, .0096, .0092, .0160, .0189, .0195, .0168, .0153,
+ .0145, .0112, .0095, .0074, .0062, .0047, .0040, .0040,
+ .0030, .0033, .0025, .0030, .0030, .0034, .0036, .0042,
+ .0041, .0050, .0054, .0060, .0054, .0064, .0054, .0049,
+ .0044, .0039, .0037, .0041, .0039, .0040, .0046, .0053,
+ .0049, .0046, .0042, .0035, .0032, .0026, .0024, .0023,
+ .0024, .0023, .0026, .0030, .0031, .0037, .0037, .0037,
+ .0038, .0034, .0031, .0027, .0025, .0021, .0019, .0016,
+ .0015, .0015, .0015, .0017, .0019, .0025, .0029, .0034,
+ .0041, .0043, .0046, .0048, .0047, .0050, .0050, .0056,
+ .0058, .0063, .0068, .0078, .0081
+ };
+
+ /* WV2 Blue of wv2_spectral_response */
+ static const float sr3[301] = {
+ .0008, .0004, .0003, .0002, .0003, .0001, .0002, .0003,
+ .0004, .0005, .0004, .0005, .0004, .0003, .0005, .0006,
+ .0007, .0005, .0006, .0007, .0028, .0024, .0017, .0010,
+ .0026, .0062, .0135, .0275, .0412, .0515, .0701, .1333,
+ .3374, .9579, 2.2771, 5.4329, 19.7821, 81.8229, 245.2000, 503.3090,
+ 700.9700, 757.6050, 778.2550, 788.6260, 800.0000, 801.7370, 809.8590, 821.0700,
+ 826.0450, 830.9250, 842.2620, 862.7060, 878.4820, 876.9430, 878.2670, 887.6130,
+ 907.5760, 930.5590, 950.1920, 976.8010, 1000.0000, 978.9400, 855.7790, 593.8730,
+ 297.6290, 125.6610, 50.3684, 18.1990, 5.7341, 2.9735, 1.6560, .9803,
+ .6049, .3915, .2592, .1681, .1089, .0763, .0514, .0520,
+ .0667, .0623, .0607, .0594, .0626, .0549, .0587, .0488,
+ .0494, .0415, .0310, .0297, .0174, .0175, .0143, .0109,
+ .0128, .0092, .0086, .0092, .0081, .0085, .0090, .0076,
+ .0081, .0091, .0074, .0072, .0080, .0061, .0055, .0061,
+ .0042, .0035, .0041, .0038, .0028, .0038, .0038, .0032,
+ .0042, .0054, .0057, .0057, .0100, .0162, .0175, .0215,
+ .0359, .0457, .0343, .0239, .0243, .0255, .0195, .0134,
+ .0126, .0141, .0120, .0086, .0076, .0088, .0101, .0090,
+ .0070, .0081, .0109, .0134, .0124, .0120, .0149, .0224,
+ .0310, .0326, .0310, .0340, .0454, .0611, .0653, .0523,
+ .0415, .0420, .0510, .0638, .0645, .0492, .0354, .0300,
+ .0320, .0400, .0444, .0393, .0299, .0248, .0245, .0294,
+ .0405, .0507, .0515, .0447, .0595, .0543, .0609, .0773,
+ .0848, .0927, .0950, .0805, .0570, .0509, .0510, .0429,
+ .0566, .0641, .0635, .0645, .0686, .0662, .0780, .0785,
+ .0748, .0557, .0449, .0383, .0324, .0264, .0202, .0219,
+ .0214, .0236, .0270, .0351, .0351, .0308, .0297, .0280,
+ .0215, .0221, .0192, .0175, .0185, .0174, .0181, .0187,
+ .0178, .0187, .0184, .0172, .0158, .0142, .0148, .0135,
+ .0130, .0131, .0118, .0109, .0106, .0099, .0088, .0079,
+ .0070, .0061, .0064, .0069, .0074, .0090, .0105, .0120,
+ .0136, .0146, .0152, .0146, .0128, .0114, .0094, .0078,
+ .0063, .0056, .0053, .0053, .0052, .0054, .0053, .0048,
+ .0038, .0032, .0027, .0022, .0020, .0021, .0022, .0024,
+ .0029, .0029, .0028, .0025, .0021, .0019, .0015, .0014,
+ .0014, .0018, .0022, .0027, .0030, .0032, .0030, .0027,
+ .0025, .0021, .0018, .0021, .0027, .0038, .0047, .0056,
+ .0063, .0059, .0051, .0043, .0033
+ };
+
+ /* WV2 Green of wv2_spectral_response */
+ static const float sr4[301] = {
+ .0004, .0003, .0001, .0002, .0002, .0001, .0002, .0002,
+ .0003, .0003, .0002, .0003, .0004, .0002, .0004, .0005,
+ .0004, .0004, .0004, .0005, .0004, .0005, .0005, .0005,
+ .0005, .0004, .0004, .0005, .0003, .0005, .0004, .0004,
+ .0003, .0004, .0005, .0003, .0002, .0003, .0005, .0004,
+ .0006, .0006, .0005, .0005, .0023, .0044, .0085, .0128,
+ .0141, .0159, .0198, .0212, .0226, .0266, .0356, .0435,
+ .0664, .1438, .3963, 1.1357, 3.0919, 11.1042, 40.5198, 133.7880,
+ 351.5100, 606.0390, 723.0070, 760.0260, 779.3890, 788.8110, 806.8500, 828.0350,
+ 840.7560, 842.0390, 844.3050, 846.8570, 850.3350, 859.7230, 863.5160, 869.1430,
+ 882.5710, 900.7200, 924.4690, 942.1680, 962.2850, 976.6010, 985.7260, 994.7640,
+ 1000.0000, 993.0530, 979.1210, 907.7450, 664.0400, 301.4360, 92.9241, 25.2385,
+ 5.5627, 2.4767, 1.1294, .5085, .2229, .1072, .0539, .0257,
+ .0069, .0035, .0017, .0003, .0018, .0017, .0062, .0086,
+ .0152, .0161, .0257, .0325, .0292, .0270, .0241, .0141,
+ .0002, .0001, .0002, .0002, .0003, .0005, .0007, .0008,
+ .0010, .0008, .0006, .0010, .0011, .0006, .0009, .0011,
+ .0012, .0011, .0009, .0008, .0011, .0011, .0010, .0009,
+ .0011, .0009, .0010, .0011, .0011, .0011, .0010, .0013,
+ .0009, .0011, .0008, .0008, .0010, .0012, .0008, .0010,
+ .0011, .0013, .0011, .0010, .0011, .0012, .0014, .0012,
+ .0017, .0035, .0040, .0027, .0014, .0010, .0008, .0007,
+ .0003, .0007, .0008, .0011, .0010, .0026, .0009, .0002,
+ .0000, .0000, .0000, .0000, .0000, .0000, .0000, .0006,
+ .0051, .0042, .0018, .0005, .0003, .0004, .0008, .0003,
+ .0001, .0023, .0086, .0047, .0017, .0002, .0001, .0017,
+ .0013, .0017, .0010, .0002, .0117, .0095, .0112, .0091,
+ .0090, .0085, .0077, .0067, .0077, .0070, .0060, .0055,
+ .0061, .0069, .0062, .0066, .0066, .0058, .0060, .0054,
+ .0054, .0049, .0040, .0036, .0035, .0035, .0029, .0026,
+ .0023, .0021, .0029, .0024, .0022, .0022, .0020, .0018,
+ .0018, .0017, .0015, .0015, .0012, .0014, .0014, .0013,
+ .0012, .0011, .0013, .0013, .0011, .0013, .0014, .0016,
+ .0016, .0020, .0019, .0018, .0019, .0019, .0017, .0016,
+ .0017, .0014, .0013, .0013, .0012, .0013, .0013, .0015,
+ .0017, .0019, .0023, .0030, .0038, .0052, .0072, .0097,
+ .0132, .0170, .0211, .0255, .0300, .0351, .0407, .0474,
+ .0551, .0653, .0811, .1055, .1401
+ };
+
+ /* WV2 Yellow of wv2_spectral_response */
+ static const float sr5[301] = {
+ .0003, .0001, .0001, .0001, .0000, .0000, .0001, .0001,
+ .0001, .0001, .0001, .0001, .0001, .0001, .0001, .0003,
+ .0006, .0211, .0273, .0005, .0000, .0001, .0000, .0001,
+ .0002, .0002, .0001, .0002, .0002, .0003, .0003, .0002,
+ .0003, .0004, .0004, .0004, .0010, .0050, .0032, .0012,
+ .0005, .0003, .0004, .0003, .0007, .0006, .0005, .0005,
+ .0004, .0007, .0007, .0007, .0007, .0007, .0007, .0006,
+ .0007, .0006, .0003, .0004, .0002, .0003, .0002, .0002,
+ .0002, .0002, .0001, .0003, .0001, .0002, .0004, .0003,
+ .0005, .0002, .0002, .0002, .0001, .0004, .0004, .0038,
+ .0070, .0062, .0044, .0049, .0038, .0111, .0267, .0575,
+ .1271, .3445, .8950, 2.2247, 5.8789, 26.5572, 134.6520, 389.2200,
+ 663.5500, 848.1980, 899.8060, 920.0230, 932.6340, 940.1810, 947.0260, 952.4410,
+ 966.4120, 981.4690, 989.7230, 992.7060, 1000.0000, 969.3680, 759.4330, 436.6510,
+ 134.3220, 30.8525, 7.3852, 2.2367, .6906, .2851, .1576, .0963,
+ .0443, .0231, .0129, .0075, .0050, .0033, .0022, .0014,
+ .0008, .0010, .0008, .0007, .0009, .0005, .0008, .0009,
+ .0006, .0009, .0005, .0007, .0010, .0005, .0009, .0008,
+ .0007, .0011, .0009, .0008, .0012, .0011, .0015, .0013,
+ .0012, .0011, .0013, .0013, .0010, .0009, .0011, .0011,
+ .0010, .0008, .0009, .0008, .0008, .0009, .0008, .0008,
+ .0006, .0005, .0005, .0006, .0007, .0002, .0004, .0006,
+ .0003, .0004, .0006, .0006, .0234, .0159, .0189, .0213,
+ .0113, .0140, .0189, .0200, .0194, .0099, .0183, .0115,
+ .0093, .0135, .0106, .0113, .0119, .0076, .0120, .0127,
+ .0171, .0114, .0067, .0086, .0089, .0068, .0044, .0064,
+ .0049, .0058, .0060, .0049, .0019, .0039, .0036, .0029,
+ .0033, .0030, .0031, .0047, .0039, .0043, .0039, .0038,
+ .0033, .0028, .0025, .0021, .0020, .0017, .0018, .0018,
+ .0010, .0014, .0013, .0013, .0007, .0008, .0009, .0009,
+ .0008, .0008, .0009, .0009, .0006, .0010, .0009, .0007,
+ .0009, .0007, .0007, .0008, .0009, .0008, .0010, .0014,
+ .0015, .0016, .0018, .0018, .0015, .0014, .0012, .0010,
+ .0005, .0004, .0005, .0004, .0004, .0005, .0004, .0003,
+ .0003, .0004, .0004, .0004, .0003, .0004, .0003, .0003,
+ .0002, .0002, .0002, .0001, .0001, .0001, .0001, .0001,
+ .0001, .0001, .0001, .0001, .0001, .0002, .0002, .0003,
+ .0003, .0004, .0005, .0005, .0006
+ };
+
+ /* WV2 Red of wv2_spectral_response */
+ static const float sr6[301] = {
+ .0003, .0001, .0001, .0000, .0001, .0000, .0001, .0001,
+ .0002, .0001, .0001, .0002, .0002, .0001, .0002, .0003,
+ .0004, .0002, .0003, .0004, .0003, .0003, .0003, .0004,
+ .0004, .0004, .0006, .0006, .0003, .0003, .0003, .0003,
+ .0003, .0003, .0002, .0002, .0003, .0002, .0004, .0002,
+ .0003, .0003, .0003, .0002, .0019, .0034, .0008, .0006,
+ .0012, .0024, .0010, .0009, .0006, .0013, .0013, .0014,
+ .0029, .0019, .0029, .0022, .0015, .0023, .0008, .0002,
+ .0003, .0002, .0002, .0002, .0002, .0002, .0001, .0000,
+ .0002, .0000, .0000, .0000, .0001, .0001, .0001, .0001,
+ .0001, .0000, .0001, .0002, .0001, .0001, .0001, .0001,
+ .0002, .0001, .0001, .0003, .0002, .0004, .0005, .0006,
+ .0008, .0009, .0013, .0091, .0126, .0268, .0410, .0704,
+ .1229, .2687, .6281, 1.6492, 4.8674, 22.7608, 95.5659, 294.3530,
+ 596.0710, 822.2890, 872.7760, 885.3350, 927.9280, 955.6950, 965.0420, 967.0950,
+ 965.5880, 957.7760, 955.5000, 952.8310, 955.8010, 965.2530, 970.3580, 976.4930,
+ 987.5260, 996.5750, 999.0850, 992.1070, 983.6940, 978.3110, 885.2800, 632.5950,
+ 291.8230, 83.2547, 20.4412, 5.6355, 1.9137, .8432, .4036, .2037,
+ .1018, .0569, .0272, .0162, .0142, .0168, .0133, .0144,
+ .0132, .0125, .0106, .0061, .0031, .0034, .0015, .0014,
+ .0012, .0004, .0006, .0012, .0030, .0050, .0095, .0073,
+ .0067, .0089, .0069, .0049, .0055, .0022, .0015, .0005,
+ .0022, .0007, .0006, .0009, .0138, .0140, .0134, .0163,
+ .0106, .0124, .0108, .0077, .0089, .0090, .0079, .0043,
+ .0108, .0045, .0070, .0065, .0062, .0064, .0084, .0069,
+ .0027, .0065, .0063, .0065, .0051, .0071, .0092, .0108,
+ .0067, .0079, .0041, .0043, .0086, .0062, .0072, .0061,
+ .0039, .0055, .0048, .0050, .0057, .0051, .0042, .0044,
+ .0040, .0035, .0035, .0040, .0027, .0031, .0032, .0024,
+ .0031, .0027, .0021, .0017, .0017, .0016, .0013, .0011,
+ .0012, .0010, .0013, .0010, .0011, .0009, .0008, .0007,
+ .0007, .0007, .0008, .0007, .0007, .0006, .0006, .0006,
+ .0005, .0005, .0005, .0006, .0005, .0006, .0005, .0005,
+ .0002, .0006, .0005, .0004, .0004, .0004, .0003, .0003,
+ .0004, .0005, .0005, .0006, .0006, .0008, .0007, .0006,
+ .0005, .0003, .0003, .0002, .0001, .0002, .0001, .0001,
+ .0002, .0002, .0002, .0002, .0002, .0002, .0002, .0002,
+ .0001, .0001, .0001, .0001, .0001
+ };
+
+ /* WV2 RedEdge of wv2_spectral_response */
+ static const float sr7[301] = {
+ .0001, .0002, .0003, .0002, .0002, .0001, .0001, .0002,
+ .0002, .0002, .0002, .0002, .0003, .0003, .0003, .0004,
+ .0008, .0023, .0013, .0013, .0020, .0011, .0016, .0010,
+ .0010, .0011, .0009, .0020, .0011, .0009, .0007, .0010,
+ .0097, .0509, .0025, .0003, .0008, .0239, .0026, .0002,
+ .0002, .0003, .0001, .0002, .0002, .0002, .0002, .0001,
+ .0001, .0005, .0008, .0017, .0009, .0058, .0138, .0079,
+ .0039, .0057, .0153, .0099, .0012, .0015, .0042, .0014,
+ .0002, .0002, .0001, .0001, .0002, .0001, .0001, .0001,
+ .0002, .0001, .0002, .0002, .0001, .0001, .0001, .0000,
+ .0000, .0001, .0002, .0001, .0004, .0020, .0021, .0008,
+ .0009, .0020, .0031, .0031, .0045, .0067, .0061, .0050,
+ .0071, .0113, .0138, .0161, .0240, .0344, .0375, .0398,
+ .0538, .0794, .0884, .0759, .0904, .1744, .1848, .0517,
+ .0088, .0045, .0027, .0015, .0011, .0007, .0014, .0028,
+ .0050, .0064, .0081, .0106, .0116, .0115, .0118, .0105,
+ .0113, .0084, .0082, .0089, .0097, .0153, .0328, .0787,
+ .2073, .7591, 3.1275, 18.8368, 99.6101, 346.8350, 622.9080, 853.7850,
+ 952.7920, 978.4220, 987.6340, 989.0260, 993.9010, 999.8580, 999.2800, 989.4170,
+ 986.8130, 980.9620, 977.1160, 944.1910, 846.3990, 615.8370, 359.7630, 138.8130,
+ 30.5442, 7.0917, 2.1585, .7300, .2699, .1188, .0553, .0240,
+ .0096, .0069, .0053, .0033, .0043, .0040, .0051, .0077,
+ .0083, .0094, .0064, .0050, .0001, .0003, .0003, .0003,
+ .0002, .0003, .0002, .0002, .0002, .0001, .0001, .0003,
+ .0002, .0002, .0002, .0001, .0003, .0003, .0002, .0004,
+ .0004, .0002, .0008, .0008, .0019, .0039, .0088, .0112,
+ .0114, .0077, .0047, .0043, .0104, .0084, .0076, .0074,
+ .0089, .0118, .0153, .0190, .0174, .0171, .0183, .0187,
+ .0180, .0190, .0157, .0145, .0127, .0102, .0081, .0062,
+ .0045, .0039, .0032, .0025, .0020, .0016, .0015, .0011,
+ .0010, .0010, .0008, .0007, .0008, .0006, .0007, .0005,
+ .0006, .0006, .0007, .0006, .0007, .0004, .0004, .0006,
+ .0004, .0005, .0005, .0005, .0005, .0004, .0004, .0004,
+ .0004, .0004, .0004, .0004, .0003, .0003, .0002, .0002,
+ .0002, .0002, .0002, .0002, .0002, .0001, .0001, .0001,
+ .0001, .0002, .0002, .0001, .0002, .0002, .0002, .0002,
+ .0002, .0001, .0001, .0001, .0001, .0001, .0001, .0000,
+ .0001, .0001, .0001, .0003, .0005
+ };
+
+ /* WV2 NIR1 of wv2_spectral_response */
+ static const float sr8[301] = {
+ .0003, .0000, .0000, .0001, .0001, .0000, .0000, .0001,
+ .0001, .0000, .0000, .0000, .0000, .0000, .0000, .0000,
+ .0001, .0000, .0000, .0001, .0002, .0000, .0001, .0001,
+ .0001, .0002, .0001, .0001, .0001, .0001, .0001, .0001,
+ .0001, .0002, .0001, .0001, .0016, .0061, .0004, .0001,
+ .0004, .0003, .0003, .0003, .0003, .0004, .0005, .0006,
+ .0004, .0004, .0007, .0014, .0006, .0009, .0016, .0006,
+ .0005, .0006, .0003, .0002, .0003, .0001, .0002, .0004,
+ .0002, .0003, .0003, .0004, .0003, .0004, .0002, .0001,
+ .0001, .0000, .0000, .0000, .0000, .0000, .0001, .0001,
+ .0000, .0001, .0001, .0002, .0001, .0000, .0001, .0001,
+ .0000, .0000, .0001, .0000, .0000, .0000, .0000, .0001,
+ .0001, .0000, .0000, .0000, .0002, .0000, .0000, .0002,
+ .0000, .0001, .0000, .0001, .0000, .0000, .0000, .0001,
+ .0000, .0000, .0000, .0001, .0000, .0001, .0001, .0004,
+ .0005, .0005, .0006, .0005, .0007, .0007, .0010, .0008,
+ .0011, .0008, .0009, .0010, .0010, .0009, .0009, .0012,
+ .0013, .0010, .0009, .0021, .0017, .0035, .0048, .0064,
+ .0052, .0043, .0039, .0044, .0050, .0060, .0066, .0111,
+ .0162, .0284, .0440, .0705, .1061, .1653, .2562, .4123,
+ .7130, 1.3994, 2.8857, 5.9533, 12.6868, 27.6938, 58.8599, 123.1170,
+ 260.2040, 506.7740, 759.9670, 940.5800, 995.8050, 997.6220, 988.9070, 983.0910,
+ 972.9340, 958.3120, 941.1390, 931.9070, 919.3820, 909.0800, 897.6000, 882.1200,
+ 871.1910, 863.0540, 844.2840, 836.4960, 838.0360, 841.1890, 835.6570, 833.8190,
+ 842.5480, 830.7770, 818.6040, 816.8370, 806.7110, 810.7600, 794.1610, 779.8840,
+ 767.3130, 749.6020, 739.2710, 738.7140, 734.1450, 711.8330, 697.1410, 680.4620,
+ 658.6350, 649.7810, 632.4710, 619.9080, 609.1200, 598.9920, 590.9140, 566.1070,
+ 507.1120, 402.7990, 275.1740, 157.6670, 73.8047, 32.7870, 13.8147, 5.3908,
+ 2.6246, 1.8086, 1.3063, 1.0328, .9172, .8912, .7983, .7457,
+ .7272, .7833, .7011, .6553, .6028, .5579, .2812, .2742,
+ .0044, .0032, .0029, .0022, .0020, .0015, .0011, .0010,
+ .0011, .0009, .0009, .0007, .0007, .0007, .0007, .0007,
+ .0004, .0006, .0007, .0006, .0003, .0005, .0005, .0005,
+ .0003, .0004, .0004, .0003, .0002, .0005, .0003, .0003,
+ .0003, .0004, .0003, .0003, .0002, .0002, .0002, .0002,
+ .0001, .0002, .0002, .0001, .0001, .0001, .0001, .0001,
+ .0001, .0001, .0001, .0001, .0001, .0001, .0001, .0001,
+ .0001, .0001, .0001, .0000, .0001
+ };
+
+ /* WV2 NIR2 of wv2_spectral_response */
+ static const float sr9[301] = {
+ .0003, .0070, .0199, .0874, .0748, .0052, .0005, .0006,
+ .0003, .0001, .0002, .0003, .0001, .0002, .0002, .0002,
+ .0002, .0002, .0002, .0002, .0002, .0001, .0002, .0002,
+ .0004, .0002, .0002, .0002, .0001, .0002, .0002, .0002,
+ .0001, .0002, .0001, .0008, .0012, .0001, .0002, .0019,
+ .0012, .0008, .0006, .0002, .0000, .0001, .0004, .0002,
+ .0000, .0009, .0037, .0012, .0002, .0001, .0007, .0009,
+ .0000, .0003, .0001, .0000, .0007, .0008, .0000, .0001,
+ .0002, .0004, .0008, .0009, .0004, .0002, .0002, .0027,
+ .0088, .0007, .0004, .0040, .0047, .0001, .0003, .0021,
+ .0010, .0001, .0002, .0001, .0001, .0000, .0000, .0000,
+ .0000, .0000, .0000, .0001, .0013, .0001, .0003, .0002,
+ .0002, .0005, .0006, .0002, .0006, .0005, .0005, .0006,
+ .0012, .0005, .0003, .0002, .0005, .0006, .0006, .0011,
+ .0011, .0003, .0004, .0005, .0001, .0006, .0007, .0008,
+ .0012, .0019, .0024, .0010, .0005, .0015, .0005, .0000,
+ .0003, .0002, .0003, .0005, .0008, .0002, .0002, .0005,
+ .0008, .0002, .0004, .0003, .0001, .0002, .0001, .0004,
+ .0005, .0007, .0007, .0009, .0009, .0006, .0010, .0009,
+ .0007, .0007, .0009, .0011, .0006, .0009, .0010, .0010,
+ .0012, .0009, .0008, .0005, .0008, .0007, .0009, .0006,
+ .0005, .0011, .0010, .0005, .0006, .0009, .0009, .0008,
+ .0012, .1141, .4534, .5047, .7796, 1.0461, .9763, 1.1133,
+ 1.0687, 1.0909, 1.0955, 1.1311, 1.0945, 1.0891, 1.0416, 1.1403,
+ 1.1270, 1.1706, 1.1509, 1.2061, 1.3547, 1.3002, 1.4918, 2.2310,
+ 4.3284, 10.5836, 30.5957, 107.8530, 313.7460, 571.8840, 789.2690, 951.5410,
+ 987.1440, 991.6770, 993.3630, 999.6910, 996.6910, 983.3270, 970.8560, 952.3600,
+ 933.0200, 922.3760, 910.9220, 899.7670, 892.1120, 878.5650, 864.6450, 850.5250,
+ 841.2980, 827.2570, 808.1800, 794.0050, 774.3770, 760.2820, 746.9060, 725.8480,
+ 708.9670, 689.1840, 661.7200, 640.6300, 620.9290, 596.4570, 574.6850, 551.8710,
+ 530.9050, 511.6300, 493.6670, 474.1180, 454.3110, 437.7660, 421.4490, 406.0470,
+ 389.7410, 376.6220, 363.5170, 349.8550, 336.6970, 326.9620, 317.0800, 305.8060,
+ 294.9200, 282.2030, 271.4390, 260.8070, 250.9120, 243.3730, 235.7340, 227.6580,
+ 217.5590, 208.7220, 198.5760, 188.1520, 178.7050, 168.4410, 159.0320, 148.1250,
+ 137.7700, 124.5570, 109.6120, 91.7406, 71.5068, 50.3125, 32.8064, 19.8817,
+ 9.7957, 4.7076, 2.1849, 1.0292, .5237, .2985, .2000, .1460,
+ .1143, .1020, .0801, .0766, .0801, .0645, .0701, .0646,
+ .0538, .0298, .0300, .0277, .0007
+ };
+
+ static const float wli[9] = {0.350, 0.350, 0.350, 0.350, 0.350, 0.350, 0.350, 0.350, 0.350};
+ static const float wls[9] = {1.100, 1.100, 1.100, 1.100, 1.100, 1.100, 1.100, 1.100, 1.100};
+
+ ffu.wlinf = (float)wli[iwa-1];
+ ffu.wlsup = (float)wls[iwa-1];
+
+ int i;
+ for(i = 0; i < 1501; i++) ffu.s[i] = 0;
+
+ switch(iwa)
+ {
+ case 1: for(i = 0; i < 301; i++) ffu.s[40+i] = sr1[i];
+ break;
+ case 2: for(i = 0; i < 301; i++) ffu.s[40+i] = sr2[i];
+ break;
+ case 3: for(i = 0; i < 301; i++) ffu.s[40+i] = sr3[i];
+ break;
+ case 4: for(i = 0; i < 301; i++) ffu.s[40+i] = sr4[i];
+ break;
+ case 5: for(i = 0; i < 301; i++) ffu.s[40+i] = sr5[i];
+ break;
+ case 6: for(i = 0; i < 301; i++) ffu.s[40+i] = sr6[i];
+ break;
+ case 7: for(i = 0; i < 301; i++) ffu.s[40+i] = sr7[i];
+ break;
+ case 8: for(i = 0; i < 301; i++) ffu.s[40+i] = sr8[i];
+ break;
+ case 9: for(i = 0; i < 301; i++) ffu.s[40+i] = sr9[i];
+ break;
+ }
+}
+
+void IWave::quickbird2(int iwa)
+{
+
+ /* QuickBird Pan of quickbird2 */
+ static const float sr1[65] = {
+ 300.0000, 312.5000, 325.0000, 337.5000, 350.0000, 362.5000, 375.0000, 387.5000,
+ 400.0000, 412.5000, 425.0000, 437.5000, 450.0000, 462.5000, 475.0000, 487.5000,
+ 500.0000, 512.5000, 525.0000, 537.5000, 550.0000, 562.5000, 575.0000, 587.5000,
+ 600.0000, 612.5000, 625.0000, 637.5000, 650.0000, 662.5000, 675.0000, 687.5000,
+ 700.0000, 712.5000, 725.0000, 737.5000, 750.0000, 762.5000, 775.0000, 787.5000,
+ 800.0000, 812.5000, 825.0000, 837.5000, 850.0000, 862.5000, 875.0000, 887.5000,
+ 900.0000, 912.5000, 925.0000, 937.5000, 950.0000, 962.5000, 975.0000, 987.5000,
+ 1000.0000, 1012.5000, 1025.0000, 1037.5000, 1050.0000, 1062.5000, 1075.0000, 1087.5000,
+ 1100.0000
+ };
+
+ /* QuickBird Blue of quickbird2 */
+ static const float sr2[65] = {
+ .0000, .0000, .0000, .0000, .0014, .0010, .0020, .0138,
+ .0362, .0758, .1219, .1789, .2198, .2854, .3364, .3579,
+ .3781, .4276, .4982, .5925, .7051, .8105, .8911, .9426,
+ .9598, .9922, .9876, .9573, .9183, .8831, .8893, .8848,
+ .8888, .8677, .8625, .8897, .9295, .9130, .9039, .8761,
+ .8457, .8582, .8339, .8526, .8394, .7850, .7342, .6788,
+ .6186, .5832, .4969, .4305, .3738, .3035, .2567, .2162,
+ .1776, .1421, .1085, .0773, .0548, .0050, .0000, .0000,
+ .0000
+ };
+
+ /* QuickBird Green of quickbird2 */
+ static const float sr3[65] = {
+ .0000, .0000, .0010, .0037, .0053, .0030, .0013, .0023,
+ .0025, .0053, .0284, .2164, .6299, .8176, .9178, .9801,
+ .9179, .4787, .1592, .0663, .0293, .0126, .0126, .0098,
+ .0098, .0091, .0036, .0025, .0028, .0030, .0089, .0256,
+ .0083, .0086, .0091, .0028, .0031, .0034, .0036, .0033,
+ .0030, .0035, .0040, .0042, .0048, .0057, .0052, .0052,
+ .0068, .0101, .0093, .0056, .0035, .0019, .0014, .0012,
+ .0011, .0012, .0015, .0015, .0012, .0000, .0000, .0000,
+ .0000
+ };
+
+ /* QuickBird Red of quickbird2 */
+ static const float sr4[65] = {
+ .0000, .0000, .0000, .0000, .0031, .0023, .0014, .0012,
+ .0012, .0013, .0023, .0046, .0178, .0356, .0982, .2739,
+ .5277, .8005, .8705, .9640, .9934, .9733, .9652, .7230,
+ .3124, .1139, .0365, .0268, .0242, .0140, .0132, .0076,
+ .0032, .0035, .0076, .0047, .0022, .0029, .0034, .0041,
+ .0038, .0031, .0031, .0035, .0051, .0084, .0090, .0078,
+ .0076, .0081, .0067, .0043, .0027, .0016, .0013, .0010,
+ .0008, .0009, .0013, .0010, .0009, .0000, .0000, .0000,
+ .0000
+ };
+
+ /* QuickBird NIR of quickbird2 */
+ static const float sr5[65] = {
+ .0000, .0000, .0000, .0000, .0037, .0018, .0011, .0009,
+ .0007, .0013, .0010, .0024, .0029, .0032, .0032, .0023,
+ .0031, .0036, .0053, .0065, .0078, .0110, .0177, .0399,
+ .0872, .2675, .6620, .8976, .9798, .9961, .8726, .5119,
+ .1651, .0417, .0201, .0205, .0095, .0048, .0045, .0063,
+ .0045, .0026, .0025, .0025, .0025, .0024, .0022, .0019,
+ .0021, .0028, .0015, .0010, .0010, .0008, .0007, .0006,
+ .0008, .0007, .0008, .0009, .0008, .0000, .0000, .0000,
+ .0000
+ };
+
+ static const float wli[5] = {0.001, 0.001, 0.001, 0.001, 0.001};
+ static const float wls[5] = {0.161, 0.161, 0.161, 0.161, 0.161};
+
+ ffu.wlinf = (float)wli[iwa-1];
+ ffu.wlsup = (float)wls[iwa-1];
+
+ int i;
+ for(i = 0; i < 1501; i++) ffu.s[i] = 0;
+
+ switch(iwa)
+ {
+ case 1: for(i = 0; i < 65; i++) ffu.s[-99+i] = sr1[i];
+ break;
+ case 2: for(i = 0; i < 65; i++) ffu.s[-99+i] = sr2[i];
+ break;
+ case 3: for(i = 0; i < 65; i++) ffu.s[-99+i] = sr3[i];
+ break;
+ case 4: for(i = 0; i < 65; i++) ffu.s[-99+i] = sr4[i];
+ break;
+ case 5: for(i = 0; i < 65; i++) ffu.s[-99+i] = sr5[i];
+ break;
+ }
+}
+
+void IWave::landsat_8(int iwa)
+{
+
+ /* Coastal Aerosol of landsat_8 */
+ static const float sr1[13] = {
+ .0001, .0025, .0248, .3860, .9087, .9806, .9867, .9966,
+ .9828, .8257, .2264, .0256, .0024
+ };
+
+ /* Blue of landsat_8 */
+ static const float sr2[37] = {
+ .0000, .0002, .0005, .0016, .0069, .0429, .2714, .7907,
+ .9030, .9047, .8897, .8792, .8797, .8898, .8485, .8363,
+ .8685, .9115, .9317, .9549, .9564, .9838, .9895, .9681,
+ .9887, .9611, .9661, .9821, .9631, .9982, .8449, .1195,
+ .0053, .0013, .0005, .0001, .0000
+ };
+
+ /* Green of landsat_8 */
+ static const float sr3[35] = {
+ .0000, .0003, .0009, .0022, .0049, .0133, .0415, .1676,
+ .5459, .8963, .9542, .9631, .9525, .9779, .9809, .9961,
+ .9838, .9612, .9479, .9721, .9534, .9743, .9810, .9733,
+ .9758, .9744, .9678, .9717, .9837, .9603, .8093, .4353,
+ .0878, .0100, .0010
+ };
+
+ /* Red of landsat_8 */
+ static const float sr4[23] = {
+ .0003, .0027, .0145, .1077, .5268, .9267, .9474, .9689,
+ .9836, .9783, .9556, .9550, 1.0000, .9831, .9730, .9945,
+ .9640, .9690, .9499, .4629, .0460, .0053, .0006
+ };
+
+ /* Pan of landsat_8 */
+ static const float sr5[82] = {
+ .0002, .0013, .0038, .0123, .0427, .1601, .4725, .7454,
+ .8319, .8553, .8596, .8577, .8585, .8583, .8502, .8582,
+ .8615, .8577, .8792, .8917, .9063, .9129, .9029, .9207,
+ .9130, .8857, .8794, .8742, .8754, .8917, .8741, .8869,
+ .9035, .9110, .9132, .9202, .9244, .9298, .9489, .9405,
+ .9457, .9394, .9467, .9340, .9408, .9580, .9682, .9665,
+ .9572, .9477, .9525, .9575, .9642, .9674, .9770, .9760,
+ .9696, .9728, .9658, .9667, .9721, .9793, .9711, .9534,
+ .9639, .9671, .9706, .9800, .9883, .9918, 1.0000, .9985,
+ .9926, .9858, .9139, .5244, .1673, .0462, .0152, .0067,
+ .0032, .0012
+ };
+
+ /* Nir of landsat_8 */
+ static const float sr6[27] = {
+ .0000, .0002, .0005, .0012, .0032, .0090, .0283, .1149,
+ .4035, .8177, .9868, .9884, .9898, .9740, .9512, .9523,
+ .9401, .9613, .9366, .7120, .2888, .0793, .0207, .0062,
+ .0019, .0006, .0001
+ };
+
+ /* Cirrus of landsat_8 */
+ static const float sr7[25] = {
+ .0001, .0004, .0009, .0016, .0030, .0063, .0170, .0560,
+ .1828, .5269, .8624, .9465, .9387, .9933, .9832, .9638,
+ .8727, .5295, .1910, .0538, .0162, .0056, .0018, .0007,
+ .0001
+ };
+
+ /* SWIR1 of landsat_8 */
+ static const float sr8[73] = {
+ .0001, .0003, .0006, .0010, .0016, .0023, .0033, .0046,
+ .0064, .0090, .0124, .0176, .0259, .0378, .0554, .0826,
+ .1202, .1755, .2529, .3528, .4736, .6052, .7213, .8047,
+ .8734, .9035, .9187, .9270, .9251, .9241, .9214, .9237,
+ .9346, .9451, .9464, .9489, .9513, .9548, .9615, .9591,
+ .9609, .9611, .9679, .9722, .9791, .9813, .9959, .9999,
+ .9966, .9826, .9551, .8983, .7965, .6654, .5099, .3684,
+ .2513, .1657, .1067, .0694, .0450, .0291, .0187, .0124,
+ .0082, .0054, .0036, .0024, .0015, .0009, .0005, .0003,
+ .0000
+ };
+
+ /* SWIR2 of landsat_8 */
+ static const float sr9[125] = {
+ .0000, .0002, .0003, .0005, .0007, .0010, .0014, .0019,
+ .0024, .0032, .0041, .0054, .0071, .0094, .0123, .0159,
+ .0210, .0274, .0354, .0482, .0633, .0841, .1128, .1534,
+ .2028, .2673, .3425, .4315, .5225, .6134, .6897, .7665,
+ .8137, .8500, .8836, .8907, .9097, .9221, .9322, .9420,
+ .9431, .9464, .9497, .9510, .9531, .9509, .9475, .9494,
+ .9533, .9494, .9515, .9437, .9434, .9426, .9381, .9468,
+ .9474, .9473, .9341, .9390, .9347, .9264, .9369, .9295,
+ .9358, .9364, .9566, .9543, .9644, .9630, .9637, .9600,
+ .9578, .9502, .9588, .9576, .9520, .9607, .9493, .9619,
+ .9643, .9694, .9809, .9844, .9915, .9954, .9927, .9996,
+ .9944, .9860, .9891, .9765, .9742, .9757, .9737, .9584,
+ .9551, .9419, .9071, .8695, .7849, .6751, .5526, .4283,
+ .3157, .2284, .1617, .1143, .0803, .0567, .0404, .0294,
+ .0213, .0156, .0114, .0085, .0063, .0047, .0034, .0025,
+ .0018, .0012, .0008, .0005, .0002
+ };
+
+ static const float wli[9] = {0.427, 0.436, 0.513, 0.626, 0.488, 0.830, 1.341, 1.516, 2.038};
+ static const float wls[9] = {0.459, 0.527, 0.600, 0.682, 0.692, 0.896, 1.402, 1.696, 2.350};
+
+ ffu.wlinf = (float)wli[iwa-1];
+ ffu.wlsup = (float)wls[iwa-1];
+
+ int i;
+ for(i = 0; i < 1501; i++) ffu.s[i] = 0;
+
+ switch(iwa)
+ {
+ case 1: for(i = 0; i < 13; i++) ffu.s[70+i] = sr1[i];
+ break;
+ case 2: for(i = 0; i < 37; i++) ffu.s[74+i] = sr2[i];
+ break;
+ case 3: for(i = 0; i < 35; i++) ffu.s[105+i] = sr3[i];
+ break;
+ case 4: for(i = 0; i < 23; i++) ffu.s[150+i] = sr4[i];
+ break;
+ case 5: for(i = 0; i < 82; i++) ffu.s[95+i] = sr5[i];
+ break;
+ case 6: for(i = 0; i < 27; i++) ffu.s[232+i] = sr6[i];
+ break;
+ case 7: for(i = 0; i < 25; i++) ffu.s[436+i] = sr7[i];
+ break;
+ case 8: for(i = 0; i < 73; i++) ffu.s[506+i] = sr8[i];
+ break;
+ case 9: for(i = 0; i < 125; i++) ffu.s[715+i] = sr9[i];
+ break;
+ }
+}
+
+
+
+float IWave::equivwl() const
+{
+ float seb = 0;
+ float wlwave = 0;
+
+ for(int i = iinf; i <= isup; i++)
+ {
+ float sbor = ffu.s[i];
+ if(i == iinf || i == isup) sbor *= 0.5;
+ float wl = (float)(0.25 + i * step);
+ float swl = solirr(wl);
+ float coef = sbor * step * swl;
+ seb += coef;
+ wlwave += wl * coef;
+ }
+
+ return wlwave/seb;
+}
+
+void IWave::parse()
+{
+ iinf = 0;
+ isup = 1500;
+
+ int i;
+ for(i = 0; i <= isup; i++) ffu.s[i] = 1;
+
+ cin >> iwave;
+ cin.ignore(numeric_limits<int>::max(),'\n');
+
+ if(iwave == 0 || iwave == -2)
+ {
+ cin >> ffu.wlinf;
+ cin >> ffu.wlsup;
+ cin.ignore(numeric_limits<int>::max(),'\n');
+ }
+ else if(iwave < 0) /* excludes -2 */
+ {
+ cin >> wl;
+ cin.ignore(numeric_limits<int>::max(),'\n');
+ ffu.wlinf = wl;
+ ffu.wlsup = wl;
+ }
+ else
+ {
+ /* da big switch */
+ if(iwave == 1)
+ {
+ cin >> ffu.wlinf;
+ cin >> ffu.wlsup;
+ cin.ignore(numeric_limits<int>::max(),'\n');
+ /* moved rest further on */
+ }
+ else if(iwave == 2) meteo();
+ else if(iwave == 3) goes_east();
+ else if(iwave == 4) goes_west();
+ else if(iwave <= 16) avhrr(iwave - 4);
+ else if(iwave <= 24) hrv(iwave - 16);
+ else if(iwave <= 30) tm(iwave - 24);
+ else if(iwave <= 34) mss(iwave - 30);
+ else if(iwave <= 41) mas(iwave - 34);
+ else if(iwave <= 48) modis(iwave - 41);
+ else if(iwave <= 52) avhrr(iwave - 36);
+ else if(iwave <= 60) polder(iwave - 52);
+ else if(iwave <= 67) etmplus(iwave - 60);
+ else if(iwave <= 71) irs_1c_liss(iwave - 67);
+ else if(iwave <= 80) aster(iwave - 71);
+ else if(iwave <= 84) avnir(iwave - 80);
+ else if(iwave <= 87) ikonos(iwave - 84);
+ else if(iwave <= 92) rapideye(iwave - 87);
+ else if(iwave <= 96) vgt1_spot4(iwave - 92);
+ else if(iwave <= 100) vgt2_spot5(iwave - 96);
+ else if(iwave <= 109) worldview2(iwave - 100);
+ else if(iwave <= 114) quickbird2(iwave - 109);
+ else if(iwave <= 123) landsat_8(iwave - 114);
+ else G_warning(_("Unsupported iwave value: %d"), iwave);
+ }
+
+ iinf = (int)((ffu.wlinf - 0.25f) / 0.0025f + 1.5f) - 1; /* remember indexing*/
+ isup = (int)((ffu.wlsup - 0.25f) / 0.0025f + 1.5f) - 1; /* "*/
+
+ if(iwave == 1) /* moved here to avoid unnecessery gotos */
+ {
+ for(int i = iinf; i <= isup; i++) cin >> ffu.s[i];
+ cin.ignore(numeric_limits<int>::max(),'\n');
+ }
+}
+
+/* --- spectral condition ---- */
+void IWave::print()
+{
+/* The compiler will deduce the dimension from the initializer list. */
+ static const string nsat[] = {
+ string(" constant "), string(" user s "),
+ string(" meteosat "), string(" goes east "), string(" goes west "),
+ string(" avhrr 1 (noaa6) "), string(" avhrr 2 (noaa6) "),
+ string(" avhrr 1 (noaa7) "), string(" avhrr 2 (noaa7) "),
+ string(" avhrr 1 (noaa8) "), string(" avhrr 2 (noaa8) "),
+ string(" avhrr 1 (noaa9) "), string(" avhrr 2 (noaa9) "),
+ string(" avhrr 1 (noaa10)"), string(" avhrr 2 (noaa10)"),
+ string(" avhrr 1 (noaa11)"), string(" avhrr 2 (noaa11)"),
+ string(" hrv1 1 "), string(" hrv1 2 "), string(" hrv1 3 "),
+ string(" hrv1 pan "),
+ string(" hrv2 1 "), string(" hrv2 2 "), string(" hrv2 3 "),
+ string(" hrv2 pan "),
+ string(" tm 1 "), string(" tm 2 "), string(" tm 3 "),
+ string(" tm 4 "), string(" tm 5 "), string(" tm 7 "),
+ string(" mss 4 "), string(" mss 5 "),
+ string(" mss 6 "), string(" mss 7 "),
+ string(" mas 1 "), string(" mas 2 "), string(" mas 3 "),
+ string(" mas 4 "), string(" mas 5 "), string(" mas 6 "),
+ string(" mas 7 "), string(" modis 1 "), string(" modis 2 "),
+ string(" modis 3 "), string(" modis 4 "), string(" modis 5 "),
+ string(" modis 6 "), string(" modis 7 "),
+ string(" avhrr 1 (noaa12)"), string(" avhrr 2 (noaa12)"),
+ string(" avhrr 1 (noaa14)"), string(" avhrr 2 (noaa14)"),
+ string(" polder 1 "), string(" polder 2 "),
+ string(" polder 3 "), string(" polder 4 "), string(" polder 6 "),
+ string(" polder 6 "), string(" polder 7 "), string(" polder 8 "),
+ string(" etm+ 1 "), string(" etm+ 2 "), string(" etm+ 3 "),
+ string(" etm+ 4 "), string(" etm+ 5 "), string(" etm+ 7 "),
+ string(" etm+ 8 "),
+ string(" liss 2 "), string(" liss 3 "), string(" liss 4 "),
+ string(" liss 5 "),
+ string(" aster 1 "), string(" aster 2 "), string(" aster 3N "),
+ string(" aster 4 "), string(" aster 5 "), string(" aster 6 "),
+ string(" aster 7 "), string(" aster 8 "), string(" aster 9 "),
+ string(" avnir 1 "), string(" avnir 2 "), string(" avnir 3 "),
+ string(" avnir 4 "),
+ string(" ikonos green "), string(" ikonos red "), string(" ikonos NIR "),
+ string(" rapideye blue "), string(" rapideye green "), string(" rapideye red "),
+ string(" rapideye rededge"), string(" rapideye NIR "),
+ string(" vgt1 spot4 0 "), string(" vgt1 spot4 2 "), string(" vgt1 spot4 3 "),
+ string(" vgt1 spot4 MIR "),
+ string(" vgt2 spot5 0 "), string(" vgt2 spot5 2 "), string(" vgt2 spot5 3 "),
+ string(" vgt2 spot5 MIR "), string(" worldview 2 pan "), string(" worldview 2 coastal blue"),
+ string(" worldview 2 blue "), string(" worldview 2 blue "), string(" worldview 2 green"),
+ string(" worldview 2 yellow"), string(" worldview 2 red"), string(" worldview 2 red edge"),
+ string(" worldview 2 nir1"), string(" worldview 2 nir2"), string(" quickbird 2 pan"),
+ string(" quickbird 2 blue"), string(" quickbird 2 green"), string(" quickbird 2 red"),
+ string(" quickbird 2 nir"), string(" Landsat 8 Coastal Aerosol"), string(" Landsat 8 Blue"),
+ string(" Landsat 8 Green"),string(" Landsat 8 Red"), string(" Landsat 8 Panchromatic"),
+ string(" Landsat 8 NIR"),string(" Landsat 8 Cirrus"),string(" Landsat 8 SWIR1"),
+ string(" Landsat 8 SWIR2")
+ };
+
+
+ Output::Begin();
+ Output::Repeat(22, ' ');
+ Output::Print(" spectral condition ");
+ Output::End();
+
+ Output::Begin();
+ Output::Repeat(22, ' ');
+ Output::Print(" ------------------ ");
+ Output::End();
+
+ if(iwave == -2)
+ {
+ Output::Begin();
+ Output::Repeat(10,' ');
+ Output::Print(nsat[0]);
+ Output::End();
+
+ Output::Begin();
+ Output::Repeat(15,' ');
+ Output::Print("value of filter function :");
+ Output::End();
+
+ Output::Begin();
+ Output::Repeat(15,' ');
+ ostringstream s;
+ s.setf(ios::fixed, ios::floatfield);
+ s << setprecision(3);
+ s << " wl inf=" << setw(9) << ffu.wlinf << " mic "
+ << " wl sup=" << setw(9) << ffu.wlsup << " mic" << ends;
+ Output::Print(s.str());
+ Output::End();
+ }
+ else if(iwave == -1)
+ {
+ Output::Begin();
+ Output::Repeat(12,' ');
+ ostringstream s;
+ s.setf(ios::fixed, ios::floatfield);
+ s << setprecision(3);
+ s << " monochromatic calculation at wl :" << setw(9) << ffu.wlsup << " micron" << ends;
+ Output::Print(s.str());
+ Output::End();
+ }
+ else if(iwave >= 0)
+ {
+ Output::Begin();
+ Output::Repeat(10,' ');
+ Output::Print(nsat[iwave]);
+ Output::End();
+
+ Output::Begin();
+ Output::Repeat(15,' ');
+ Output::Print("value of filter function :");
+ Output::End();
+
+ Output::Begin();
+ Output::Repeat(15,' ');
+ ostringstream s;
+ s.setf(ios::fixed, ios::floatfield);
+ s << setprecision(3);
+ s << " wl inf=" << setw(9) << ffu.wlinf << " mic "
+ << " wl sup=" << setw(9) << ffu.wlsup << " mic" << ends;
+ Output::Print(s.str());
+ Output::End();
+ }
+}
+
+IWave IWave::Parse()
+{
+ IWave iwave;
+ iwave.parse();
+ return iwave;
+}
Copied: grass/trunk/imagery/i.atcorr/iwave.h (from rev 60762, grass/trunk/imagery/i.atcorr/Iwave.h)
===================================================================
--- grass/trunk/imagery/i.atcorr/iwave.h (rev 0)
+++ grass/trunk/imagery/i.atcorr/iwave.h 2014-06-09 09:12:09 UTC (rev 60763)
@@ -0,0 +1,209 @@
+#ifndef IWAVE_H
+#define IWAVE_H
+
+
+/**********************************************************************c
+c iwave input of the spectral conditions c
+c -------------------------------- c
+c c
+c you choose to define your own spectral conditions: iwave=-1,0 or 1 c
+c (three user s conditions ) c
+c -2 enter wlinf, wlsup, the filter function will be equal to 1c
+c over the whole band (as iwave=0) but step by step output c
+c will be printed c
+c -1 enter wl (monochr. cond, gaseous absorption is included) c
+c c
+c 0 enter wlinf, wlsup. the filter function will be equal to 1c
+c over the whole band. c
+c c
+c 1 enter wlinf, wlsup and user's filter function s(lambda) c
+c ( by step of 0.0025 micrometer). c
+c c
+c c
+c or you select one of the following satellite spectral band c
+c with indication in brackets of the band limits used in the code : c
+c iwave=2 to 60 c
+c 2 vis band of meteosat ( 0.350-1.110 ) c
+c 3 vis band of goes east ( 0.490-0.900 ) c
+c 4 vis band of goes west ( 0.490-0.900 ) c
+c 5 1st band of avhrr(noaa6) ( 0.550-0.750 ) c
+c 6 2nd " ( 0.690-1.120 ) c
+c 7 1st band of avhrr(noaa7) ( 0.500-0.800 ) c
+c 8 2nd " ( 0.640-1.170 ) c
+c 9 1st band of avhrr(noaa8) ( 0.540-1.010 ) c
+c 10 2nd " ( 0.680-1.120 ) c
+c 11 1st band of avhrr(noaa9) ( 0.530-0.810 ) c
+c 12 2nd " ( 0.680-1.170 ) c
+c 13 1st band of avhrr(noaa10 ( 0.530-0.780 ) c
+c 14 2nd " ( 0.600-1.190 ) c
+c 15 1st band of avhrr(noaa11 ( 0.540-0.820 ) c
+c 16 2nd " ( 0.600-1.120 ) c
+c 17 1st band of hrv1(spot1) ( 0.470-0.650 ) c
+c 18 2nd " ( 0.600-0.720 ) c
+c 19 3rd " ( 0.730-0.930 ) c
+c 20 pan " ( 0.470-0.790 ) c
+c 21 1st band of hrv2(spot1) ( 0.470-0.650 ) c
+c 22 2nd " ( 0.590-0.730 ) c
+c 23 3rd " ( 0.740-0.940 ) c
+c 24 pan " ( 0.470-0.790 ) c
+c 25 1st band of tm(landsat5) ( 0.430-0.560 ) c
+c 26 2nd " ( 0.500-0.650 ) c
+c 27 3rd " ( 0.580-0.740 ) c
+c 28 4th " ( 0.730-0.950 ) c
+c 29 5th " ( 1.5025-1.890 ) c
+c 30 7th " ( 1.950-2.410 ) c
+c 31 1st band of mss(landsat5)( 0.475-0.640 ) c
+c 32 2nd " ( 0.580-0.750 ) c
+c 33 3rd " ( 0.655-0.855 ) c
+c 34 4th " ( 0.785-1.100 ) c
+c 35 1st band of MAS (ER2) ( 0.5025-0.5875) c
+c 36 2nd " ( 0.6075-0.7000) c
+c 37 3rd " ( 0.8300-0.9125) c
+c 38 4th " ( 0.9000-0.9975) c
+c 39 5th " ( 1.8200-1.9575) c
+c 40 6th " ( 2.0950-2.1925) c
+c 41 7th " ( 3.5800-3.8700) c
+c 42 MODIS band 1 ( 0.6100-0.6850) c
+c 43 MODIS band 2 ( 0.8200-0.9025) c
+c 44 MODIS band 3 ( 0.4500-0.4825) c
+c 45 MODIS band 4 ( 0.5400-0.5700) c
+c 46 MODIS band 5 ( 1.2150-1.2700) c
+c 47 MODIS band 6 ( 1.6000-1.6650) c
+c 48 MODIS band 7 ( 2.0575-2.1825) c
+c 49 1st band of avhrr(noaa12 ( 0.500-1.000 ) c
+c 50 2nd " ( 0.650-1.120 ) c
+c 51 1st band of avhrr(noaa14 ( 0.500-1.110 ) c
+c 52 2nd " ( 0.680-1.100 ) c
+c 53 POLDER band 1 ( 0.4125-0.4775) c
+c 54 POLDER band 2 (non polar( 0.4100-0.5225) c
+c 55 POLDER band 3 (non polar( 0.5325-0.5950) c
+c 56 POLDER band 4 P1 ( 0.6300-0.7025) c
+c 57 POLDER band 5 (non polar( 0.7450-0.7800) c
+c 58 POLDER band 6 (non polar( 0.7000-0.8300) c
+c 59 POLDER band 7 P1 ( 0.8100-0.9200) c
+c 60 POLDER band 8 (non polar( 0.8650-0.9400) c
+c 61 1st band of etm+(landsat7( 0.435-0.520 ) c
+c 62 2nd " ( 0.506-0.621 ) c
+c 63 3rd " ( 0.622-0.702 ) c
+c 64 4th " ( 0.751-0.911 ) c
+c 65 5th " ( 1.512-1.792 ) c
+c 66 7th " ( 2.020-2.380 ) c
+c 67 8th " ( 0.504-0.909 ) c
+c 68 2nd band of liss (IRC 1C)( 0.502-0.620 ) c
+c 69 3rd " ( 0.612-0.700 ) c
+c 70 4th " ( 0.752-0.880 ) c
+c 71 5th " ( 1.452-1.760 ) c
+c 72 1st band of aster ( 0.480-0.645 ) c
+c 73 2nd " ( 0.588-0.733 ) c
+c 74 3N " ( 0.723-0.913 ) c
+c 75 4th " ( 1.530-1.750 ) c
+c 76 5th " ( 2.103-2.285 ) c
+c 77 6th " ( 2.105-2.298 ) c
+c 78 7th " ( 2.200-2.393 ) c
+c 79 8th " ( 2.248-2.475 ) c
+c 80 9th " ( 2.295-2.538 ) c
+c 81 1st band of avnir ( 0.390-0.550 ) c
+c 82 2nd " ( 0.485-0.695 ) c
+c 83 3rd " ( 0.545-0.745 ) c
+c 84 4th " ( 0.700-0.925 ) c
+c 85 Green band of IKONOS ( 0.350-1.035 ) c
+c 86 Red " ( 0.350-1.035 ) c
+c 87 NIR " ( 0.350-1.035 ) c
+c 88 Blue band of RapidEye ( 0.438-0.513 ) c
+c 89 Green " ( 0.463-0.594 ) c
+c 90 Red " ( 0.624-0.690 ) c
+c 91 RedEdge " ( 0.500-0.737 ) c
+c 92 NIR " ( 0.520-0.862 ) c
+c 93 B0 band of VGT1 (SPOT4) ( 0.400-0.500 ) c
+c 94 B2 " ( 0.580-0.782 ) c
+c 95 B3 " ( 0.700-1.030 ) c
+c 96 MIR " ( 1.450-1.800 ) c
+c 97 B0 band of VGT2 (SPOT5) ( 0.400-0.550 ) c
+c 98 B2 " ( 0.580-0.780 ) c
+c 99 B3 " ( 0.700-1.000 ) c
+c 100 MIR " ( 1.450-1.800 ) c
+c 101 Pan band of Worldview 2 ( 0.450-0.800 ) c
+c 102 Coastal " ( 0.396-0.458 ) c
+c 103 Blue " ( 0.442-0.515 ) c
+c 104 Green " ( 0.506-0.586 ) c
+c 105 Yellow " ( 0.584-0.632 ) c
+c 106 Red " ( 0.624-0.694 ) c
+c 107 RedEdge " ( 0.699-0.749 ) c
+c 108 NIR1 " ( 0.765-0.901 ) c
+c 109 NIR2 " ( 0.856-1.043 ) c
+c 110 Pan band of QuickBird 2 ( 0.405-1.053 ) c
+c 111 Blue " ( 0.430-0.545 ) c
+c 112 Green " ( 0.466-0.620 ) c
+c 113 Red " ( 0.590-0.710 ) c
+c 114 NIR " ( 0.715-0.918 ) c
+c 115 Coastal Aerosol of LS8 ( 0.427-0.459 ) c
+c 116 Blue " ( 0.436-0.527 ) c
+c 117 Green " ( 0.512-0.610 ) c
+c 118 Red " ( 0.625-0.691 ) c
+c 119 Pan " ( 0.488-0.692 ) c
+c 120 NIR " ( 0.829-0.900 ) c
+c 121 Cirrus " ( 1.340-1.409 ) c
+c 122 SWIR1 " ( 1.515-1.697 ) c
+c 123 SWIR2 " ( 2.037-2.037 ) c
+c c
+c note: wl has to be in micrometer c
+c**********************************************************************/
+
+struct IWave
+{
+ int iwave;
+ int iinf;
+ int isup;
+
+ float wl;
+ float wlmoy;
+
+
+ struct FFu
+ {
+ float s[1501];
+ float wlinf;
+ float wlsup;
+ } ffu;
+
+private:
+ void parse();
+
+ void meteo();
+ void goes_east();
+ void goes_west();
+ void avhrr(int iwa);
+ void hrv(int iwa);
+ void tm(int iwa);
+ void mss(int iwa);
+ void mas(int iwa);
+ void modis(int iwa);
+ void polder(int iwa);
+ void etmplus(int iwa);
+ void irs_1c_liss(int iwa);
+ void aster(int iwa);
+ void avnir(int iwa);
+ void ikonos(int iwa);
+ void rapideye(int iwa);
+ void vgt1_spot4(int iwa);
+ void vgt2_spot5(int iwa);
+ void worldview2(int iwa);
+ void quickbird2(int iwa);
+ void landsat_8(int iwa);
+
+public:
+ /* To compute the equivalent wavelength needed for the calculation of the
+ downward radiation field used in the computation of the non lambertian
+ target contribution (main.f). */
+ float equivwl() const;
+
+ /* To read the solar irradiance (in Wm-2mm-1) from 250 nm to 4000 nm by
+ steps of 2.5 nm, The total solar irradiance is put equal to 1372 Wm-2.
+ Between 250 and 4000 nm we have 1358 Wm-2. */
+ float solirr(float wl) const;
+
+ void print();
+ static IWave Parse();
+};
+
+#endif /* IWAVE_H */
Modified: grass/trunk/imagery/i.atcorr/main.cpp
===================================================================
--- grass/trunk/imagery/i.atcorr/main.cpp 2014-06-09 08:51:29 UTC (rev 60762)
+++ grass/trunk/imagery/i.atcorr/main.cpp 2014-06-09 09:12:09 UTC (rev 60763)
@@ -46,7 +46,7 @@
#include <grass/rbtree.h>
}
-#include "Transform.h"
+#include "transform.h"
#include "6s.h"
/* TICache: create 1 meter bins for altitude in km */
Copied: grass/trunk/imagery/i.atcorr/makefile (from rev 60762, grass/trunk/imagery/i.atcorr/Makefile)
===================================================================
--- grass/trunk/imagery/i.atcorr/makefile (rev 0)
+++ grass/trunk/imagery/i.atcorr/makefile 2014-06-09 09:12:09 UTC (rev 60763)
@@ -0,0 +1,15 @@
+MODULE_TOPDIR = ../..
+
+PGM = i.atcorr
+
+include $(MODULE_TOPDIR)/include/Make/Module.make
+
+LIBES = $(RASTERLIB) $(GISLIB) $(MATHLIB) $(BTREE2LIB)
+DEPENDENCIES = $(RASTERDEP) $(GISDEP)
+
+LINK = $(CXX)
+
+ifneq ($(CXX),)
+default: cmd
+endif
+
Copied: grass/trunk/imagery/i.atcorr/output.cpp (from rev 60762, grass/trunk/imagery/i.atcorr/Output.cpp)
===================================================================
--- grass/trunk/imagery/i.atcorr/output.cpp (rev 0)
+++ grass/trunk/imagery/i.atcorr/output.cpp 2014-06-09 09:12:09 UTC (rev 60763)
@@ -0,0 +1,2 @@
+#include "output.h"
+unsigned int Output::pos = 0;
Copied: grass/trunk/imagery/i.atcorr/output.h (from rev 60762, grass/trunk/imagery/i.atcorr/Output.h)
===================================================================
--- grass/trunk/imagery/i.atcorr/output.h (rev 0)
+++ grass/trunk/imagery/i.atcorr/output.h 2014-06-09 09:12:09 UTC (rev 60763)
@@ -0,0 +1,70 @@
+#ifndef MY_OUTPUT_H
+#define MY_OUTPUT_H
+
+#include <cstdio>
+#include <iostream>
+#include <sstream>
+#include <string>
+
+class Output
+{
+ static unsigned int pos;
+
+public:
+ /* begin a line */
+ static void Begin()
+ {
+ pos += 2;
+ fprintf(stderr, "* ");
+ }
+
+ /* print a string */
+ static void Print(std::string x)
+ {
+ pos += x.length();
+ fprintf(stderr, "%s", x.c_str());
+ }
+
+ /* print c, cnt times */
+ static void Repeat(int cnt, char c)
+ {
+ pos += cnt;
+ for(int i = 0; i < cnt; i++) fprintf(stderr, "%c", c);
+ }
+
+ /* end the line */
+
+
+ static void End()
+ {
+ Position(79);
+ fprintf(stderr, " *\n");
+ pos = 0;
+ }
+
+ /* position the stream upto, but excluding p */
+ static void Position(unsigned int p)
+ {
+ if(p < pos) return;
+ for(unsigned int i = pos; i < p; i++) fprintf(stderr, " ");
+ pos = p - 1;
+ }
+
+ /* write a s after cnt spaces */
+ static void WriteLn(int cnt, std::string s)
+ {
+ Begin();
+ Repeat(cnt,' ');
+ Print(s);
+ End();
+ }
+
+ /* write a blank line */
+ static void Ln()
+ {
+ Begin();
+ End();
+ }
+};
+
+#endif /* MY_OUTPUT */
Copied: grass/trunk/imagery/i.atcorr/readme (from rev 60762, grass/trunk/imagery/i.atcorr/README)
===================================================================
--- grass/trunk/imagery/i.atcorr/readme (rev 0)
+++ grass/trunk/imagery/i.atcorr/readme 2014-06-09 09:12:09 UTC (rev 60763)
@@ -0,0 +1,53 @@
+Adding new band filters (see also Iwave.h):
+
+ Note: the spectral range is from 250 nm to 4000 nm (see Iwave.h) which is
+ 4000-250=3750nm. The step size is (4000-250)/1500=2.5 nm in the ffu.s array.
+
+ o bands are defined by their discrete filter function
+ o to compute a band position in the 1500 slots of ffu.s array, start
+ with 250nm using 2.5nm increments. The result is the starting index
+ for the spectral band.
+ o 1500 is the number of wavelength spectral description slots.
+ - a 'for' loop fills up the slots with 0
+ - then the ffu.s array is filled with each of the spectral band data
+ one after the other.
+ Example Lsat TM: (435-250) / 2.5 = 74
+
+ o add filter function to Iwave.cpp, before IWave::equivwl()
+ o add else-if in IWave::parse() in Iwave.cpp
+ o add print strings in Iwave.cpp
+
+ o add iwave values and signature in Iwave.h
+ o add to GeomCond.cpp and GeomCond.h
+ o add to i.atcorr.html
+
+
+Preparation of the Iwave.cpp file code:
+
+The helper script create_iwave.py can help to interpolate the filter functions
+to the correct step size of 2.5 nm (in case that the filter function data
+are delivered with a different step size).
+The output filter function in a format as needed in the Iwave.cpp file.
+
+The script create_iwave.py basically needs a .csv file with spectral
+response for each band in a column. The first column has to be the
+wavelength (nm). The first line (and only first) is a header with
+wavelength, followed by band names file name is used for sensor name.
+See for example ./sensors_csv/ikonos.csv.
+
+Usage
+ create_iwave.py <csv file>
+
+If generates the filter function as IWave.cpp template from csv file.
+
+Note: If the spectral response is null for a frequency, leave it empty
+in csv file. Ex.:
+
+ WL(nm),band 1,band 2,band 3,band 4
+ 455,0.93,,,
+ 485,0.94,0.00,,
+ 545,0.00,0.87,0.00,
+
+Program will interpolate filter function to 2.5 nm steps
+and output a CPP template file in the IWave format.
+
Copied: grass/trunk/imagery/i.atcorr/transform.cpp (from rev 60762, grass/trunk/imagery/i.atcorr/Transform.cpp)
===================================================================
--- grass/trunk/imagery/i.atcorr/transform.cpp (rev 0)
+++ grass/trunk/imagery/i.atcorr/transform.cpp 2014-06-09 09:12:09 UTC (rev 60763)
@@ -0,0 +1,189 @@
+#include <math.h>
+#include "transform.h"
+
+void EtmDN(int iwave, float asol, bool before, float &lmin, float &lmax)
+{
+ if (before) /* ETM+ digital numbers taken before July 1, 2000 */
+ {
+ switch(iwave)
+ {
+ case 61:
+ {
+ lmin = -6.2f;
+ lmax = 194.3f;
+ break;
+ }
+
+ case 62:
+ {
+ lmin = -6.0f;
+ lmax = 202.4f;
+ break;
+ }
+
+ case 63:
+ {
+ lmin = -4.5f;
+ lmax = 158.6f;
+ break;
+ }
+
+ case 64:
+ {
+ if (asol < 45.)
+ {
+ lmin = -4.5f;
+ lmax = 235.0f;
+ }
+ else
+ {
+ lmin = -4.5f;
+ lmax = 157.5f;
+ }
+ break;
+ }
+
+ case 65:
+ {
+ lmin = -1.0f;
+ lmax = 31.76f;
+ break;
+ }
+
+ case 66:
+ {
+ lmin = -0.35f;
+ lmax = 10.932f;
+ break;
+ }
+
+ case 67:
+ {
+ lmin = -5.0f;
+ lmax = 244.00f;
+ break;
+ }
+ }
+ }
+ else /* ETM+ digital numbers taken after July 1, 2000 */
+ {
+ switch(iwave)
+ {
+ case 61:
+ {
+ lmin = -6.2f;
+ lmax = 191.6f;
+ break;
+ }
+
+ case 62:
+ {
+ lmin = -6.4f;
+ lmax = 196.5f;
+ break;
+ }
+
+ case 63:
+ {
+ lmin = -5.0f;
+ lmax = 152.9f;
+ break;
+ }
+
+ case 64:
+ {
+ if (asol < 45.)
+ {
+ lmin = -5.1f;
+ lmax = 241.1f;
+ }
+ else
+ {
+ lmin = -5.1f;
+ lmax = 157.4f;
+ }
+ break;
+ }
+
+ case 65:
+ {
+ lmin = -1.0f;
+ lmax = 31.06f;
+ break;
+ }
+
+ case 66:
+ {
+ lmin = -0.35f;
+ lmax = 10.80f;
+ break;
+ }
+
+ case 67:
+ {
+ lmin = -4.7f;
+ lmax = 243.1f;
+ break;
+ }
+ }
+ }
+}
+
+/* Assuming input value between 0 and 1
+ if rad is true, idn should first be converted to a reflectance value
+ returns adjusted value also between 0 and 1 */
+float transform(const TransformInput ti, InputMask imask, float idn)
+{
+ /* convert from radiance to reflectance */
+ if((imask & ETM_BEFORE) || (imask & ETM_AFTER))
+ {
+ /* http://ltpwww.gsfc.nas */
+ float lmin, lmax;
+ EtmDN(ti.iwave, ti.asol, imask & ETM_BEFORE, lmin, lmax);
+
+ /* multiply idn by 255.f to correct precondition that idn lies in [0, 255] */
+ idn = (lmax - lmin) / 254.f * (idn * 255.f - 1.f) + lmin;
+ if (idn < 0.f) idn = 0.f;
+ idn /= 255.f;
+ }
+ if(imask & RADIANCE) idn += (float)M_PI * idn * 255.f * ti.sb / ti.xmus / ti.seb;
+
+ float rapp = idn;
+ float ainrpix = ti.ainr[0][0];
+ float xa = 0.0f;
+ float xb = 0.0f;
+ float xc = 0.0f;
+ float rog = rapp / ti.tgasm;
+ /* The if below was added to avoid ground reflectances lower than
+ zero when ainr(1,1) greater than rapp/tgasm
+ In such case either the choice of atmospheric model was not
+ adequate for that image or the calculated apparent reflectance
+ was too low. Run the model again for other conditions.
+ The lines below just decrease ainr(1,1)/tgasm to avoid too
+ bright pixels in the image. Check the output file to see if that
+ has happened. */
+
+ float decrfact = 1.0f;
+ if (rog < (ainrpix / ti.tgasm))
+ {
+ do
+ {
+ decrfact = decrfact - 0.1f;
+ ainrpix = decrfact * ainrpix;
+ }
+ while(rog < (ainrpix / ti.tgasm));
+ }
+
+ rog = (rog - ainrpix / ti.tgasm) / ti.sutott / ti.sdtott;
+ rog = rog / (1.f + rog * ti.sast);
+ xa = (float)M_PI * ti.sb / ti.xmus / ti.seb / ti.tgasm / ti.sutott / ti.sdtott;
+ xb = ti.srotot / ti.sutott / ti.sdtott / ti.tgasm;
+ xc = ti.sast;
+
+ if (rog > 1) rog = 1;
+ if (rog < 0) rog = 0;
+
+ return rog;
+}
+
+
Copied: grass/trunk/imagery/i.atcorr/transform.h (from rev 60762, grass/trunk/imagery/i.atcorr/Transform.h)
===================================================================
--- grass/trunk/imagery/i.atcorr/transform.h (rev 0)
+++ grass/trunk/imagery/i.atcorr/transform.h 2014-06-09 09:12:09 UTC (rev 60763)
@@ -0,0 +1,47 @@
+/***************************************************************************
+ Transform.h - do atmospheric correction on an input value
+ -------------------
+ begin : Fri Jan 10 2003
+ copyright : (C) 2003 by Christo Zietsman
+ email : 13422863 at sun.ac.za
+ ***************************************************************************/
+
+#ifndef TRANSFORM_H
+#define TRANSFORM_H
+
+/* Inputs needed to do transformation */
+struct TransformInput
+{
+ int iwave;
+ float asol;
+
+ float ainr[2][3];
+ float sb;
+ float seb;
+ float tgasm;
+ float sutott;
+ float sdtott;
+ float sast;
+ float srotot;
+ float xmus;
+};
+
+/* The following combinations of input values types exist */
+enum InputMask
+{
+ REFLECTANCE = 0,
+ RADIANCE = 1, /* the default */
+ ETM_BEFORE = 2, /* etm+ taken before July 1, 2000 */
+ REF_ETM_BEFORE = 2,
+ RAD_ETM_BEFORE = 3,
+ ETM_AFTER = 4, /* etm+ taken after July 1, 2000 */
+ REF_ETM_AFTER = 4,
+ RAD_ETM_AFTER = 5
+};
+
+/* Assuming input value between 0 and 1
+if rad is true, idn should first be converted to a reflectance value
+returns adjusted value also between 0 and 1 */
+extern float transform(const TransformInput ti, InputMask imask, float idn);
+
+#endif /* TRANSFORM_H */
More information about the grass-commit
mailing list