[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