continua.cc

Go to the documentation of this file.

/* Copyright (C) 2001-2012
   Thomas Kuhn    <tkuhn@uni-bremen.de>
   Stefan Buehler <sbuehler@ltu.se>
 
   This program is free software; you can redistribute it and/or modify it
   under the terms of the GNU General Public License as published by the
   Free Software Foundation; either version 2, or (at your option) any
   later version.
 
   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
   GNU General Public License for more details.
 
   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software
   Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
   USA. */
 
#include <cmath>
#include "arts.h"
#include "matpackI.h"
#include "array.h"
#include "absorption.h"
#include "continua.h"
#include "global_data.h"
 
 
// #################################################################################
 
// global constants as defined in constants.cc
 
extern const Numeric EULER_NUMBER;
extern const Numeric LOG10_EULER_NUMBER;
extern const Numeric NAT_LOG_TEN;
extern const Numeric PI;
extern const Numeric SPEED_OF_LIGHT;
 
// numerical constants specific defined for the file continua.cc
 
// conversion from neper to decibel:
//const Numeric Np_to_dB  = (10.000000 * LOG10_EULER_NUMBER); // [dB/Np]
// conversion from decibel to neper:
//const Numeric dB_to_Np  = (1.000000 / Np_to_dB);            // [Np/dB]
// conversion from GHz to Hz:
//const Numeric GHz_to_Hz = 1.000000e9;                       // [Hz/GHz]
// conversion from Hz to GHz:
const Numeric Hz_to_GHz = 1.000000e-9;                      // [GHz/Hz]
// conversion from kPa to Pa:
//const Numeric kPa_to_Pa = 1.000000e3;                       // [kPa/Pa]
// conversion from Pa to kPa:
const Numeric Pa_to_kPa = 1.000000e-3;                      // [Pa/kPa]
// conversion from hPa to Pa (hPa = mbar):
//const Numeric hPa_to_Pa = 1.000000e2;                       // [hPa/Pa]
// conversion from Pa to hPa (hPa = mbar):
const Numeric Pa_to_hPa = 1.000000e-2;                      // [Pa/hPa]
 
// MPM pre-factor for unit setting:
//const Numeric dB_m_Hz   = 0.1820427855916028e-06; // [dB/m/Hz]   (4 * pi / c) * 10 * log(e)
//const Numeric dB_km_GHz = 0.1820427855916028e+06; // [dB/km/GHz] (4 * pi / c) * 10 * log(e)
 
 
// absorption unit conversions
 
// conversion from dB/km to Np/km for absorption units:
//const Numeric dB_km_to_Np_km = dB_to_Np;
// conversion from dB/km to Np/m for absorption units:
//const Numeric dB_km_to_Np_m  = (1.00000e-3 / (10.0 * LOG10_EULER_NUMBER));
// conversion from dB/km to 1/m for absorption units:
const Numeric dB_km_to_1_m   = (1.00000e-3 / (10.0 * LOG10_EULER_NUMBER));
 
 
// lower limit for absorption calculation due to underflow error:
 
const Numeric VMRCalcLimit = 1.000e-25;
 
 
// arrays of the CKD H2O, CO2, N2, O2 absorption models
 
// additional array fields due to different numbering schemes of F77 and C/C++
const int addF77fields = 1;
 
 
// Continuum data constants
 
/*
      ---------------------------------------------------------------------
 
c     29 August 2002
c
c     This  version, ckd_2.4.2, is composed of the updates to all continua 
c     including water vapor (ckd_2.2).  This is to retain consistency between the 
c     continuum and the HITRAN line parameters.
c
 
      further information can be found under
      http://www.rtweb.aer.com/continuum_frame.html
 
      Transformation from original F77 code to C/C++ by 
      T. Kuhn, iup Bremen, October 2003 
 
      ---------------------------------------------------------------------
 */
// H2O self continuum parameters at T=296 K for the CKD versions 0 to 2.4.2
// date of last update: 06/28/82
// units of (CM**3/MOL)*1.E-20
const Numeric SL296_ckd_0_v1  =   -20.0;
const Numeric SL296_ckd_0_v2  = 20000.0;
const Numeric SL296_ckd_0_dv  =    10.0;
const int     SL296_ckd_0_npt =  2003;
const double  SL296_ckd_0[SL296_ckd_0_npt+addF77fields] = {
  0.0000e-00, 1.1109e-01, 1.0573e-01, 
  1.0162e-01, 1.0573e-01, 1.1109e-01, 1.2574e-01, 1.3499e-01,  // f02740
  1.4327e-01, 1.5065e-01, 1.5164e-01, 1.5022e-01, 1.3677e-01,  // f02750
  1.3115e-01, 1.2253e-01, 1.1271e-01, 1.0070e-01, 8.7495e-02,  // f02760
  8.0118e-02, 6.9940e-02, 6.2034e-02, 5.6051e-02, 4.7663e-02,  // f02770
  4.2450e-02, 3.6690e-02, 3.3441e-02, 3.0711e-02, 2.5205e-02,  // f02780
  2.2113e-02, 1.8880e-02, 1.6653e-02, 1.4626e-02, 1.2065e-02,  // f02790
  1.0709e-02, 9.1783e-03, 7.7274e-03, 6.7302e-03, 5.6164e-03,  // f02800
  4.9089e-03, 4.1497e-03, 3.5823e-03, 3.1124e-03, 2.6414e-03,  // f02810
  2.3167e-03, 2.0156e-03, 1.7829e-03, 1.5666e-03, 1.3928e-03,  // f02820
  1.2338e-03, 1.0932e-03, 9.7939e-04, 8.8241e-04, 7.9173e-04,  // f02830
  7.1296e-04, 6.4179e-04, 5.8031e-04, 5.2647e-04, 4.7762e-04,  // f02850
  4.3349e-04, 3.9355e-04, 3.5887e-04, 3.2723e-04, 2.9919e-04,  // f02860
  2.7363e-04, 2.5013e-04, 2.2876e-04, 2.0924e-04, 1.9193e-04,  // f02870
  1.7618e-04, 1.6188e-04, 1.4891e-04, 1.3717e-04, 1.2647e-04,  // f02880
  1.1671e-04, 1.0786e-04, 9.9785e-05, 9.2350e-05, 8.5539e-05,  // f02890
  7.9377e-05, 7.3781e-05, 6.8677e-05, 6.3993e-05, 5.9705e-05,  // f02900
  5.5788e-05, 5.2196e-05, 4.8899e-05, 4.5865e-05, 4.3079e-05,  // f02910
  4.0526e-05, 3.8182e-05, 3.6025e-05, 3.4038e-05, 3.2203e-05,  // f02920
  3.0511e-05, 2.8949e-05, 2.7505e-05, 2.6170e-05, 2.4933e-05,  // f02930
  2.3786e-05, 2.2722e-05, 2.1736e-05, 2.0819e-05, 1.9968e-05,  // f02940
  1.9178e-05, 1.8442e-05, 1.7760e-05, 1.7127e-05, 1.6541e-05,  // f02960
  1.5997e-05, 1.5495e-05, 1.5034e-05, 1.4614e-05, 1.4230e-05,  // f02970
  1.3883e-05, 1.3578e-05, 1.3304e-05, 1.3069e-05, 1.2876e-05,  // f02980
  1.2732e-05, 1.2626e-05, 1.2556e-05, 1.2544e-05, 1.2604e-05,  // f02990
  1.2719e-05, 1.2883e-05, 1.3164e-05, 1.3581e-05, 1.4187e-05,  // f03000
  1.4866e-05, 1.5669e-05, 1.6717e-05, 1.8148e-05, 2.0268e-05,  // f03010
  2.2456e-05, 2.5582e-05, 2.9183e-05, 3.3612e-05, 3.9996e-05,  // f03020
  4.6829e-05, 5.5055e-05, 6.5897e-05, 7.5360e-05, 8.7213e-05,  // f03030
  1.0046e-04, 1.1496e-04, 1.2943e-04, 1.5049e-04, 1.6973e-04,  // f03040
  1.8711e-04, 2.0286e-04, 2.2823e-04, 2.6780e-04, 2.8766e-04,  // f03050
  3.1164e-04, 3.3640e-04, 3.6884e-04, 3.9159e-04, 3.8712e-04,  // f03070
  3.7433e-04, 3.4503e-04, 3.1003e-04, 2.8027e-04, 2.5253e-04,  // f03080
  2.3408e-04, 2.2836e-04, 2.4442e-04, 2.7521e-04, 2.9048e-04,  // f03090
  3.0489e-04, 3.2646e-04, 3.3880e-04, 3.3492e-04, 3.0987e-04,  // f03100
  2.9482e-04, 2.8711e-04, 2.6068e-04, 2.2683e-04, 1.9996e-04,  // f03110
  1.7788e-04, 1.6101e-04, 1.3911e-04, 1.2013e-04, 1.0544e-04,  // f03120
  9.4224e-05, 8.1256e-05, 7.3667e-05, 6.2233e-05, 5.5906e-05,  // f03130
  5.1619e-05, 4.5140e-05, 4.0273e-05, 3.3268e-05, 3.0258e-05,  // f03140
  2.6440e-05, 2.3103e-05, 2.0749e-05, 1.8258e-05, 1.6459e-05,  // f03150
  1.4097e-05, 1.2052e-05, 1.0759e-05, 9.1400e-06, 8.1432e-06,  // f03160
  7.1460e-06, 6.4006e-06, 5.6995e-06, 4.9372e-06, 4.4455e-06,  // f03180
  3.9033e-06, 3.4740e-06, 3.1269e-06, 2.8059e-06, 2.5558e-06,  // f03190
  2.2919e-06, 2.0846e-06, 1.8983e-06, 1.7329e-06, 1.5929e-06,  // f03200
  1.4631e-06, 1.3513e-06, 1.2461e-06, 1.1519e-06, 1.0682e-06,  // f03210
  9.9256e-07, 9.2505e-07, 8.6367e-07, 8.0857e-07, 7.5674e-07,  // f03220
  7.0934e-07, 6.6580e-07, 6.2580e-07, 5.8853e-07, 5.5333e-07,  // f03230
  5.2143e-07, 4.9169e-07, 4.6431e-07, 4.3898e-07, 4.1564e-07,  // f03240
  3.9405e-07, 3.7403e-07, 3.5544e-07, 3.3819e-07, 3.2212e-07,  // f03250
  3.0714e-07, 2.9313e-07, 2.8003e-07, 2.6777e-07, 2.5628e-07,  // f03260
  2.4551e-07, 2.3540e-07, 2.2591e-07, 2.1701e-07, 2.0866e-07,  // f03270
  2.0082e-07, 1.9349e-07, 1.8665e-07, 1.8027e-07, 1.7439e-07,  // f03290
  1.6894e-07, 1.6400e-07, 1.5953e-07, 1.5557e-07, 1.5195e-07,  // f03300
  1.4888e-07, 1.4603e-07, 1.4337e-07, 1.4093e-07, 1.3828e-07,  // f03310
  1.3569e-07, 1.3270e-07, 1.2984e-07, 1.2714e-07, 1.2541e-07,  // f03320
  1.2399e-07, 1.2102e-07, 1.1878e-07, 1.1728e-07, 1.1644e-07,  // f03330
  1.1491e-07, 1.1305e-07, 1.1235e-07, 1.1228e-07, 1.1224e-07,  // f03340
  1.1191e-07, 1.1151e-07, 1.1098e-07, 1.1068e-07, 1.1109e-07,  // f03350
  1.1213e-07, 1.1431e-07, 1.1826e-07, 1.2322e-07, 1.3025e-07,  // f03360
  1.4066e-07, 1.5657e-07, 1.7214e-07, 1.9449e-07, 2.2662e-07,  // f03370
  2.6953e-07, 3.1723e-07, 3.7028e-07, 4.4482e-07, 5.3852e-07,  // f03380
  6.2639e-07, 7.2175e-07, 7.7626e-07, 8.7248e-07, 9.6759e-07,  // f03400
  1.0102e-06, 1.0620e-06, 1.1201e-06, 1.2107e-06, 1.2998e-06,  // f03410
  1.3130e-06, 1.2856e-06, 1.2350e-06, 1.1489e-06, 1.0819e-06,  // f03420
  1.0120e-06, 9.4795e-07, 9.2858e-07, 9.8060e-07, 1.0999e-06,  // f03430
  1.1967e-06, 1.2672e-06, 1.3418e-06, 1.3864e-06, 1.4330e-06,  // f03440
  1.4592e-06, 1.4598e-06, 1.4774e-06, 1.4726e-06, 1.4820e-06,  // f03450
  1.5050e-06, 1.4984e-06, 1.5181e-06, 1.5888e-06, 1.6850e-06,  // f03460
  1.7690e-06, 1.9277e-06, 2.1107e-06, 2.3068e-06, 2.5347e-06,  // f03470
  2.8069e-06, 3.1345e-06, 3.5822e-06, 3.9051e-06, 4.3422e-06,  // f03480
  4.8704e-06, 5.5351e-06, 6.3454e-06, 7.2690e-06, 8.2974e-06,  // f03490
  9.7609e-06, 1.1237e-05, 1.3187e-05, 1.5548e-05, 1.8784e-05,  // f03510
  2.1694e-05, 2.5487e-05, 3.0092e-05, 3.5385e-05, 4.2764e-05,  // f03520
  4.9313e-05, 5.5800e-05, 6.2968e-05, 7.1060e-05, 7.7699e-05,  // f03530
  8.7216e-05, 8.9335e-05, 9.2151e-05, 9.2779e-05, 9.4643e-05,  // f03540
  9.7978e-05, 1.0008e-04, 1.0702e-04, 1.1026e-04, 1.0828e-04,  // f03550
  1.0550e-04, 1.0432e-04, 1.0428e-04, 9.8980e-05, 9.4992e-05,  // f03560
  9.5159e-05, 1.0058e-04, 1.0738e-04, 1.1550e-04, 1.1229e-04,  // f03570
  1.0596e-04, 1.0062e-04, 9.1742e-05, 8.4492e-05, 6.8099e-05,  // f03580
  5.6295e-05, 4.6502e-05, 3.8071e-05, 3.0721e-05, 2.3297e-05,  // f03590
  1.8688e-05, 1.4830e-05, 1.2049e-05, 9.6754e-06, 7.9192e-06,  // f03600
  6.6673e-06, 5.6468e-06, 4.8904e-06, 4.2289e-06, 3.6880e-06,  // f03620
  3.2396e-06, 2.8525e-06, 2.5363e-06, 2.2431e-06, 1.9949e-06,  // f03630
  1.7931e-06, 1.6164e-06, 1.4431e-06, 1.2997e-06, 1.1559e-06,  // f03640
  1.0404e-06, 9.4300e-07, 8.4597e-07, 7.6133e-07, 6.8623e-07,  // f03650
  6.2137e-07, 5.6345e-07, 5.1076e-07, 4.6246e-07, 4.1906e-07,  // f03660
  3.8063e-07, 3.4610e-07, 3.1554e-07, 2.8795e-07, 2.6252e-07,  // f03670
  2.3967e-07, 2.1901e-07, 2.0052e-07, 1.8384e-07, 1.6847e-07,  // f03680
  1.5459e-07, 1.4204e-07, 1.3068e-07, 1.2036e-07, 1.1095e-07,  // f03690
  1.0237e-07, 9.4592e-08, 8.7530e-08, 8.1121e-08, 7.5282e-08,  // f03700
  6.9985e-08, 6.5189e-08, 6.0874e-08, 5.6989e-08, 5.3530e-08,  // f03710
  5.0418e-08, 4.7745e-08, 4.5367e-08, 4.3253e-08, 4.1309e-08,  // f03730
  3.9695e-08, 3.8094e-08, 3.6482e-08, 3.4897e-08, 3.3500e-08,  // f03740
  3.2302e-08, 3.0854e-08, 2.9698e-08, 2.8567e-08, 2.7600e-08,  // f03750
  2.6746e-08, 2.5982e-08, 2.5510e-08, 2.5121e-08, 2.4922e-08,  // f03760
  2.4909e-08, 2.5013e-08, 2.5216e-08, 2.5589e-08, 2.6049e-08,  // f03770
  2.6451e-08, 2.6978e-08, 2.7687e-08, 2.8600e-08, 2.9643e-08,  // f03780
  3.0701e-08, 3.2058e-08, 3.3695e-08, 3.5558e-08, 3.7634e-08,  // f03790
  3.9875e-08, 4.2458e-08, 4.5480e-08, 4.8858e-08, 5.2599e-08,  // f03800
  5.7030e-08, 6.2067e-08, 6.7911e-08, 7.4579e-08, 8.1902e-08,  // f03810
  8.9978e-08, 9.9870e-08, 1.1102e-07, 1.2343e-07, 1.3732e-07,  // f03820
  1.5394e-07, 1.7318e-07, 1.9383e-07, 2.1819e-07, 2.4666e-07,  // f03840
  2.8109e-07, 3.2236e-07, 3.7760e-07, 4.4417e-07, 5.2422e-07,  // f03850
  6.1941e-07, 7.4897e-07, 9.2041e-07, 1.1574e-06, 1.4126e-06,  // f03860
  1.7197e-06, 2.1399e-06, 2.6266e-06, 3.3424e-06, 3.8418e-06,  // f03870
  4.5140e-06, 5.0653e-06, 5.8485e-06, 6.5856e-06, 6.8937e-06,  // f03880
  6.9121e-06, 6.9005e-06, 6.9861e-06, 6.8200e-06, 6.6089e-06,  // f03890
  6.5809e-06, 7.3496e-06, 8.0311e-06, 8.3186e-06, 8.4260e-06,  // f03900
  9.0644e-06, 9.4965e-06, 9.4909e-06, 9.0160e-06, 9.1494e-06,  // f03910
  9.3629e-06, 9.5944e-06, 9.5459e-06, 8.9919e-06, 8.6040e-06,  // f03920
  7.8613e-06, 7.1567e-06, 6.2677e-06, 5.1899e-06, 4.4188e-06,  // f03930
  3.7167e-06, 3.0636e-06, 2.5573e-06, 2.0317e-06, 1.6371e-06,  // f03950
  1.3257e-06, 1.0928e-06, 8.9986e-07, 7.4653e-07, 6.1111e-07,  // f03960
  5.1395e-07, 4.3500e-07, 3.7584e-07, 3.2633e-07, 2.8413e-07,  // f03970
  2.4723e-07, 2.1709e-07, 1.9294e-07, 1.7258e-07, 1.5492e-07,  // f03980
  1.3820e-07, 1.2389e-07, 1.1189e-07, 1.0046e-07, 9.0832e-08,  // f03990
  8.2764e-08, 7.4191e-08, 6.7085e-08, 6.0708e-08, 5.4963e-08,  // f04000
  4.9851e-08, 4.5044e-08, 4.0916e-08, 3.7220e-08, 3.3678e-08,  // f04010
  3.0663e-08, 2.7979e-08, 2.5495e-08, 2.3286e-08, 2.1233e-08,  // f04020
  1.9409e-08, 1.7770e-08, 1.6260e-08, 1.4885e-08, 1.3674e-08,  // f04030
  1.2543e-08, 1.1551e-08, 1.0655e-08, 9.8585e-09, 9.1398e-09,  // f04040
  8.4806e-09, 7.8899e-09, 7.3547e-09, 6.8670e-09, 6.4131e-09,  // f04060
  5.9930e-09, 5.6096e-09, 5.2592e-09, 4.9352e-09, 4.6354e-09,  // f04070
  4.3722e-09, 4.1250e-09, 3.9081e-09, 3.7118e-09, 3.5372e-09,  // f04080
  3.3862e-09, 3.2499e-09, 3.1324e-09, 3.0313e-09, 2.9438e-09,  // f04090
  2.8686e-09, 2.8050e-09, 2.7545e-09, 2.7149e-09, 2.6907e-09,  // f04100
  2.6724e-09, 2.6649e-09, 2.6642e-09, 2.6725e-09, 2.6871e-09,  // f04110
  2.7056e-09, 2.7357e-09, 2.7781e-09, 2.8358e-09, 2.9067e-09,  // f04120
  2.9952e-09, 3.1020e-09, 3.2253e-09, 3.3647e-09, 3.5232e-09,  // f04130
  3.7037e-09, 3.9076e-09, 4.1385e-09, 4.3927e-09, 4.6861e-09,  // f04140
  5.0238e-09, 5.4027e-09, 5.8303e-09, 6.3208e-09, 6.8878e-09,  // f04150
  7.5419e-09, 8.3130e-09, 9.1952e-09, 1.0228e-08, 1.1386e-08,  // f04170
  1.2792e-08, 1.4521e-08, 1.6437e-08, 1.8674e-08, 2.1160e-08,  // f04180
  2.4506e-08, 2.8113e-08, 3.2636e-08, 3.7355e-08, 4.2234e-08,  // f04190
  4.9282e-08, 5.7358e-08, 6.6743e-08, 7.8821e-08, 9.4264e-08,  // f04200
  1.1542e-07, 1.3684e-07, 1.6337e-07, 2.0056e-07, 2.3252e-07,  // f04210
  2.6127e-07, 2.9211e-07, 3.3804e-07, 3.7397e-07, 3.8205e-07,  // f04220
  3.8810e-07, 3.9499e-07, 3.9508e-07, 3.7652e-07, 3.5859e-07,  // f04230
  3.6198e-07, 3.7871e-07, 4.0925e-07, 4.2717e-07, 4.8241e-07,  // f04240
  5.2008e-07, 5.6530e-07, 5.9531e-07, 6.1994e-07, 6.5080e-07,  // f04250
  6.6355e-07, 6.9193e-07, 6.9930e-07, 7.3058e-07, 7.4678e-07,  // f04260
  7.9193e-07, 8.3627e-07, 9.1267e-07, 1.0021e-06, 1.1218e-06,  // f04280
  1.2899e-06, 1.4447e-06, 1.7268e-06, 2.0025e-06, 2.3139e-06,  // f04290
  2.5599e-06, 2.8920e-06, 3.3059e-06, 3.5425e-06, 3.9522e-06,  // f04300
  4.0551e-06, 4.2818e-06, 4.2892e-06, 4.4210e-06, 4.5614e-06,  // f04310
  4.6739e-06, 4.9482e-06, 5.1118e-06, 5.0986e-06, 4.9417e-06,  // f04320
  4.9022e-06, 4.8449e-06, 4.8694e-06, 4.8111e-06, 4.9378e-06,  // f04330
  5.3231e-06, 5.7362e-06, 6.2350e-06, 6.0951e-06, 5.7281e-06,  // f04340
  5.4585e-06, 4.9032e-06, 4.3009e-06, 3.4776e-06, 2.8108e-06,  // f04350
  2.2993e-06, 1.7999e-06, 1.3870e-06, 1.0750e-06, 8.5191e-07,  // f04360
  6.7951e-07, 5.5336e-07, 4.6439e-07, 4.0243e-07, 3.5368e-07,  // f04370
  3.1427e-07, 2.7775e-07, 2.4486e-07, 2.1788e-07, 1.9249e-07,  // f04390
  1.7162e-07, 1.5115e-07, 1.3478e-07, 1.2236e-07, 1.1139e-07,  // f04400
  1.0092e-07, 9.0795e-08, 8.2214e-08, 7.4691e-08, 6.7486e-08,  // f04410
  6.0414e-08, 5.4584e-08, 4.8754e-08, 4.3501e-08, 3.8767e-08,  // f04420
  3.4363e-08, 3.0703e-08, 2.7562e-08, 2.4831e-08, 2.2241e-08,  // f04430
  1.9939e-08, 1.8049e-08, 1.6368e-08, 1.4863e-08, 1.3460e-08,  // f04440
  1.2212e-08, 1.1155e-08, 1.0185e-08, 9.3417e-09, 8.5671e-09,  // f04450
  7.8292e-09, 7.1749e-09, 6.5856e-09, 6.0588e-09, 5.5835e-09,  // f04460
  5.1350e-09, 4.7395e-09, 4.3771e-09, 4.0476e-09, 3.7560e-09,  // f04470
  3.4861e-09, 3.2427e-09, 3.0240e-09, 2.8278e-09, 2.6531e-09,  // f04480
  2.4937e-09, 2.3511e-09, 2.2245e-09, 2.1133e-09, 2.0159e-09,  // f04500
  1.9330e-09, 1.8669e-09, 1.8152e-09, 1.7852e-09, 1.7752e-09,  // f04510
  1.7823e-09, 1.8194e-09, 1.8866e-09, 1.9759e-09, 2.0736e-09,  // f04520
  2.2083e-09, 2.3587e-09, 2.4984e-09, 2.6333e-09, 2.8160e-09,  // f04530
  3.0759e-09, 3.3720e-09, 3.6457e-09, 4.0668e-09, 4.4541e-09,  // f04540
  4.7976e-09, 5.0908e-09, 5.4811e-09, 6.1394e-09, 6.3669e-09,  // f04550
  6.5714e-09, 6.8384e-09, 7.1918e-09, 7.3741e-09, 7.2079e-09,  // f04560
  7.2172e-09, 7.2572e-09, 7.3912e-09, 7.6188e-09, 8.3291e-09,  // f04570
  8.7885e-09, 9.2412e-09, 1.0021e-08, 1.0752e-08, 1.1546e-08,  // f04580
  1.1607e-08, 1.1949e-08, 1.2346e-08, 1.2516e-08, 1.2826e-08,  // f04590
  1.3053e-08, 1.3556e-08, 1.4221e-08, 1.5201e-08, 1.6661e-08,  // f04610
  1.8385e-08, 2.0585e-08, 2.3674e-08, 2.7928e-08, 3.3901e-08,  // f04620
  4.1017e-08, 4.9595e-08, 6.0432e-08, 7.6304e-08, 9.0764e-08,  // f04630
  1.0798e-07, 1.2442e-07, 1.4404e-07, 1.6331e-07, 1.8339e-07,  // f04640
  2.0445e-07, 2.2288e-07, 2.3083e-07, 2.3196e-07, 2.3919e-07,  // f04650
  2.3339e-07, 2.3502e-07, 2.3444e-07, 2.6395e-07, 2.9928e-07,  // f04660
  3.0025e-07, 3.0496e-07, 3.1777e-07, 3.4198e-07, 3.4739e-07,  // f04670
  3.2696e-07, 3.4100e-07, 3.5405e-07, 3.7774e-07, 3.8285e-07,  // f04680
  3.6797e-07, 3.5800e-07, 3.2283e-07, 2.9361e-07, 2.4881e-07,  // f04690
  2.0599e-07, 1.7121e-07, 1.3641e-07, 1.1111e-07, 8.9413e-08,  // f04700
  7.3455e-08, 6.2078e-08, 5.2538e-08, 4.5325e-08, 3.9005e-08,  // f04720
  3.4772e-08, 3.1203e-08, 2.8132e-08, 2.5250e-08, 2.2371e-08,  // f04730
  2.0131e-08, 1.7992e-08, 1.6076e-08, 1.4222e-08, 1.2490e-08,  // f04740
  1.1401e-08, 1.0249e-08, 9.2279e-09, 8.5654e-09, 7.6227e-09,  // f04750
  6.9648e-09, 6.2466e-09, 5.7252e-09, 5.3800e-09, 4.6960e-09,  // f04760
  4.2194e-09, 3.7746e-09, 3.3813e-09, 3.0656e-09, 2.6885e-09,  // f04770
  2.4311e-09, 2.1572e-09, 1.8892e-09, 1.7038e-09, 1.4914e-09,  // f04780
  1.3277e-09, 1.1694e-09, 1.0391e-09, 9.2779e-10, 8.3123e-10,  // f04790
  7.4968e-10, 6.8385e-10, 6.2915e-10, 5.7784e-10, 5.2838e-10,  // f04800
  4.8382e-10, 4.4543e-10, 4.1155e-10, 3.7158e-10, 3.3731e-10,  // f04810
  3.0969e-10, 2.8535e-10, 2.6416e-10, 2.4583e-10, 2.2878e-10,  // f04830
  2.1379e-10, 2.0073e-10, 1.8907e-10, 1.7866e-10, 1.6936e-10,  // f04840
  1.6119e-10, 1.5424e-10, 1.4847e-10, 1.4401e-10, 1.4068e-10,  // f04850
  1.3937e-10, 1.3943e-10, 1.4281e-10, 1.4766e-10, 1.5701e-10,  // f04860
  1.7079e-10, 1.8691e-10, 2.0081e-10, 2.1740e-10, 2.4847e-10,  // f04870
  2.6463e-10, 2.7087e-10, 2.7313e-10, 2.8352e-10, 2.9511e-10,  // f04880
  2.8058e-10, 2.7227e-10, 2.7356e-10, 2.8012e-10, 2.8034e-10,  // f04890
  2.9031e-10, 3.1030e-10, 3.3745e-10, 3.8152e-10, 4.0622e-10,  // f04900
  4.2673e-10, 4.3879e-10, 4.5488e-10, 4.7179e-10, 4.6140e-10,  // f04910
  4.6339e-10, 4.6716e-10, 4.7024e-10, 4.7931e-10, 4.8503e-10,  // f04920
  4.9589e-10, 4.9499e-10, 5.0363e-10, 5.3184e-10, 5.6451e-10,  // f04940
  6.0932e-10, 6.6469e-10, 7.4076e-10, 8.3605e-10, 9.4898e-10,  // f04950
  1.0935e-09, 1.2593e-09, 1.4913e-09, 1.8099e-09, 2.1842e-09,  // f04960
  2.7284e-09, 3.2159e-09, 3.7426e-09, 4.5226e-09, 5.3512e-09,  // f04970
  6.1787e-09, 6.8237e-09, 7.9421e-09, 9.0002e-09, 9.6841e-09,  // f04980
  9.9558e-09, 1.0232e-08, 1.0591e-08, 1.0657e-08, 1.0441e-08,  // f04990
  1.0719e-08, 1.1526e-08, 1.2962e-08, 1.4336e-08, 1.6150e-08,  // f05000
  1.8417e-08, 2.0725e-08, 2.3426e-08, 2.5619e-08, 2.7828e-08,  // f05010
  3.0563e-08, 3.3438e-08, 3.6317e-08, 4.0400e-08, 4.4556e-08,  // f05020
  5.0397e-08, 5.3315e-08, 5.9185e-08, 6.5311e-08, 6.9188e-08,  // f05030
  7.7728e-08, 7.9789e-08, 8.6598e-08, 8.7768e-08, 9.1773e-08,  // f05050
  9.7533e-08, 1.0007e-07, 1.0650e-07, 1.0992e-07, 1.0864e-07,  // f05060
  1.0494e-07, 1.0303e-07, 1.0031e-07, 1.0436e-07, 1.0537e-07,  // f05070
  1.1184e-07, 1.2364e-07, 1.3651e-07, 1.4881e-07, 1.4723e-07,  // f05080
  1.4118e-07, 1.3371e-07, 1.1902e-07, 1.0007e-07, 7.9628e-08,  // f05090
  6.4362e-08, 5.0243e-08, 3.8133e-08, 2.9400e-08, 2.3443e-08,  // f05100
  1.9319e-08, 1.6196e-08, 1.4221e-08, 1.2817e-08, 1.1863e-08,  // f05110
  1.1383e-08, 1.1221e-08, 1.1574e-08, 1.1661e-08, 1.2157e-08,  // f05120
  1.2883e-08, 1.3295e-08, 1.4243e-08, 1.4240e-08, 1.4614e-08,  // f05130
  1.4529e-08, 1.4685e-08, 1.4974e-08, 1.4790e-08, 1.4890e-08,  // f05140
  1.4704e-08, 1.4142e-08, 1.3374e-08, 1.2746e-08, 1.2172e-08,  // f05160
  1.2336e-08, 1.2546e-08, 1.3065e-08, 1.4090e-08, 1.5215e-08,  // f05170
  1.6540e-08, 1.6144e-08, 1.5282e-08, 1.4358e-08, 1.2849e-08,  // f05180
  1.0998e-08, 8.6956e-09, 7.0881e-09, 5.5767e-09, 4.2792e-09,  // f05190
  3.2233e-09, 2.5020e-09, 1.9985e-09, 1.5834e-09, 1.3015e-09,  // f05200
  1.0948e-09, 9.4141e-10, 8.1465e-10, 7.1517e-10, 6.2906e-10,  // f05210
  5.5756e-10, 4.9805e-10, 4.3961e-10, 3.9181e-10, 3.5227e-10,  // f05220
  3.1670e-10, 2.8667e-10, 2.5745e-10, 2.3212e-10, 2.0948e-10,  // f05230
  1.8970e-10, 1.7239e-10, 1.5659e-10, 1.4301e-10, 1.3104e-10,  // f05240
  1.2031e-10, 1.1095e-10, 1.0262e-10, 9.5130e-11, 8.8595e-11,  // f05250
  8.2842e-11, 7.7727e-11, 7.3199e-11, 6.9286e-11, 6.5994e-11,  // f05270
  6.3316e-11, 6.1244e-11, 5.9669e-11, 5.8843e-11, 5.8832e-11,  // f05280
  5.9547e-11, 6.1635e-11, 6.4926e-11, 7.0745e-11, 7.8802e-11,  // f05290
  8.6724e-11, 1.0052e-10, 1.1575e-10, 1.3626e-10, 1.5126e-10,  // f05300
  1.6751e-10, 1.9239e-10, 2.1748e-10, 2.2654e-10, 2.2902e-10,  // f05310
  2.3240e-10, 2.4081e-10, 2.3930e-10, 2.2378e-10, 2.2476e-10,  // f05320
  2.2791e-10, 2.4047e-10, 2.5305e-10, 2.8073e-10, 3.1741e-10,  // f05330
  3.6592e-10, 4.1495e-10, 4.6565e-10, 5.0990e-10, 5.5607e-10,  // f05340
  6.1928e-10, 6.6779e-10, 7.3350e-10, 8.1434e-10, 8.9635e-10,  // f05350
  9.9678e-10, 1.1256e-09, 1.2999e-09, 1.4888e-09, 1.7642e-09,  // f05360
  1.9606e-09, 2.2066e-09, 2.4601e-09, 2.7218e-09, 3.0375e-09,  // f05380
  3.1591e-09, 3.2852e-09, 3.2464e-09, 3.3046e-09, 3.2710e-09,  // f05390
  3.2601e-09, 3.3398e-09, 3.7446e-09, 4.0795e-09, 4.0284e-09,  // f05400
  4.0584e-09, 4.1677e-09, 4.5358e-09, 4.4097e-09, 4.2744e-09,  // f05410
  4.5449e-09, 4.8147e-09, 5.2656e-09, 5.2476e-09, 5.0275e-09,  // f05420
  4.7968e-09, 4.3654e-09, 3.9530e-09, 3.2447e-09, 2.6489e-09,  // f05430
  2.1795e-09, 1.7880e-09, 1.4309e-09, 1.1256e-09, 9.1903e-10,  // f05440
  7.6533e-10, 6.3989e-10, 5.5496e-10, 4.9581e-10, 4.5722e-10,  // f05450
  4.3898e-10, 4.3505e-10, 4.3671e-10, 4.5329e-10, 4.6827e-10,  // f05460
  4.9394e-10, 5.1122e-10, 5.1649e-10, 5.0965e-10, 4.9551e-10,  // f05470
  4.8928e-10, 4.7947e-10, 4.7989e-10, 4.9071e-10, 4.8867e-10,  // f05490
  4.7260e-10, 4.5756e-10, 4.5400e-10, 4.5993e-10, 4.4042e-10,  // f05500
  4.3309e-10, 4.4182e-10, 4.6735e-10, 5.0378e-10, 5.2204e-10,  // f05510
  5.0166e-10, 4.6799e-10, 4.3119e-10, 3.8803e-10, 3.3291e-10,  // f05520
  2.6289e-10, 2.1029e-10, 1.7011e-10, 1.3345e-10, 1.0224e-10,  // f05530
  7.8207e-11, 6.2451e-11, 5.0481e-11, 4.1507e-11, 3.5419e-11,  // f05540
  3.0582e-11, 2.6900e-11, 2.3778e-11, 2.1343e-11, 1.9182e-11,  // f05550
  1.7162e-11, 1.5391e-11, 1.3877e-11, 1.2619e-11, 1.1450e-11,  // f05560
  1.0461e-11, 9.6578e-12, 8.9579e-12, 8.3463e-12, 7.8127e-12,  // f05570
  7.3322e-12, 6.9414e-12, 6.6037e-12, 6.3285e-12, 6.1095e-12,  // f05580
  5.9387e-12, 5.8118e-12, 5.7260e-12, 5.6794e-12, 5.6711e-12,  // f05600
  5.7003e-12, 5.7670e-12, 5.8717e-12, 6.0151e-12, 6.1984e-12,  // f05610
  6.4232e-12, 6.6918e-12, 7.0065e-12, 7.3705e-12, 7.7873e-12,  // f05620
  8.2612e-12, 8.7972e-12, 9.4009e-12, 1.0079e-11, 1.0840e-11,  // f05630
  1.1692e-11, 1.2648e-11, 1.3723e-11, 1.4935e-11, 1.6313e-11,  // f05640
  1.7905e-11, 1.9740e-11, 2.1898e-11, 2.4419e-11, 2.7426e-11,  // f05650
  3.0869e-11, 3.4235e-11, 3.7841e-11, 4.1929e-11, 4.6776e-11,  // f05660
  5.2123e-11, 5.8497e-11, 6.5294e-11, 7.4038e-11, 8.4793e-11,  // f05670
  9.6453e-11, 1.1223e-10, 1.2786e-10, 1.4882e-10, 1.7799e-10,  // f05680
  2.0766e-10, 2.4523e-10, 2.8591e-10, 3.3386e-10, 4.0531e-10,  // f05690
  4.7663e-10, 5.4858e-10, 6.3377e-10, 7.1688e-10, 8.4184e-10,  // f05710
  9.5144e-10, 1.0481e-09, 1.1356e-09, 1.2339e-09, 1.3396e-09,  // f05720
  1.4375e-09, 1.5831e-09, 1.7323e-09, 1.9671e-09, 2.2976e-09,  // f05730
  2.6679e-09, 3.0777e-09, 3.4321e-09, 3.8192e-09, 4.2711e-09,  // f05740
  4.4903e-09, 4.8931e-09, 5.2253e-09, 5.4040e-09, 5.6387e-09,  // f05750
  5.6704e-09, 6.0345e-09, 6.1079e-09, 6.2576e-09, 6.4039e-09,  // f05760
  6.3776e-09, 6.1878e-09, 5.8616e-09, 5.7036e-09, 5.5840e-09,  // f05770
  5.6905e-09, 5.8931e-09, 6.2478e-09, 6.8291e-09, 7.4528e-09,  // f05780
  7.6078e-09, 7.3898e-09, 6.7573e-09, 5.9827e-09, 5.0927e-09,  // f05790
  4.0099e-09, 3.1933e-09, 2.4296e-09, 1.8485e-09, 1.4595e-09,  // f05800
  1.2017e-09, 1.0164e-09, 8.7433e-10, 7.7108e-10, 7.0049e-10,  // f05820
  6.5291e-10, 6.1477e-10, 5.9254e-10, 5.8150e-10, 5.7591e-10,  // f05830
  5.8490e-10, 5.8587e-10, 5.9636e-10, 6.2408e-10, 6.5479e-10,  // f05840
  7.0480e-10, 7.2313e-10, 7.5524e-10, 8.0863e-10, 8.3386e-10,  // f05850
  9.2342e-10, 9.6754e-10, 1.0293e-09, 1.0895e-09, 1.1330e-09,  // f05860
  1.2210e-09, 1.2413e-09, 1.2613e-09, 1.2671e-09, 1.2225e-09,  // f05870
  1.1609e-09, 1.0991e-09, 1.0600e-09, 1.0570e-09, 1.0818e-09,  // f05880
  1.1421e-09, 1.2270e-09, 1.3370e-09, 1.4742e-09, 1.4946e-09,  // f05890
  1.4322e-09, 1.3210e-09, 1.1749e-09, 1.0051e-09, 7.8387e-10,  // f05900
  6.1844e-10, 4.6288e-10, 3.4164e-10, 2.5412e-10, 1.9857e-10,  // f05910
  1.5876e-10, 1.2966e-10, 1.0920e-10, 9.4811e-11, 8.3733e-11,  // f05930
  7.3906e-11, 6.7259e-11, 6.1146e-11, 5.7119e-11, 5.3546e-11,  // f05940
  4.8625e-11, 4.4749e-11, 4.1089e-11, 3.7825e-11, 3.4465e-11,  // f05950
  3.1018e-11, 2.8109e-11, 2.5610e-11, 2.2859e-11, 2.0490e-11,  // f05960
  1.8133e-11, 1.5835e-11, 1.3949e-11, 1.2295e-11, 1.0799e-11,  // f05970
  9.6544e-12, 8.7597e-12, 7.9990e-12, 7.3973e-12, 6.9035e-12,  // f05980
  6.4935e-12, 6.1195e-12, 5.8235e-12, 5.5928e-12, 5.4191e-12,  // f05990
  5.2993e-12, 5.2338e-12, 5.2272e-12, 5.2923e-12, 5.4252e-12,  // f06000
  5.6523e-12, 5.9433e-12, 6.3197e-12, 6.9016e-12, 7.5016e-12,  // f06010
  8.2885e-12, 9.4050e-12, 1.0605e-11, 1.2257e-11, 1.3622e-11,  // f06020
  1.5353e-11, 1.7543e-11, 1.9809e-11, 2.2197e-11, 2.4065e-11,  // f06040
  2.6777e-11, 2.9751e-11, 3.2543e-11, 3.5536e-11, 3.9942e-11,  // f06050
  4.6283e-11, 5.4556e-11, 6.5490e-11, 7.6803e-11, 9.0053e-11,  // f06060
  1.0852e-10, 1.2946e-10, 1.4916e-10, 1.7748e-10, 2.0073e-10,  // f06070
  2.2485e-10, 2.5114e-10, 2.7715e-10, 3.1319e-10, 3.3305e-10,  // f06080
  3.5059e-10, 3.5746e-10, 3.6311e-10, 3.7344e-10, 3.6574e-10,  // f06090
  3.7539e-10, 3.9434e-10, 4.3510e-10, 4.3340e-10, 4.2588e-10,  // f06100
  4.3977e-10, 4.6062e-10, 4.7687e-10, 4.6457e-10, 4.8578e-10,  // f06110
  5.2344e-10, 5.6752e-10, 5.8702e-10, 5.6603e-10, 5.3784e-10,  // f06120
  4.9181e-10, 4.3272e-10, 3.5681e-10, 2.8814e-10, 2.3320e-10,  // f06130
  1.8631e-10, 1.4587e-10, 1.1782e-10, 9.8132e-11, 8.2528e-11,  // f06150
  6.9174e-11, 6.1056e-11, 5.3459e-11, 4.7116e-11, 4.1878e-11,  // f06160
  3.8125e-11, 3.6347e-11, 3.5071e-11, 3.3897e-11, 3.3541e-11,  // f06170
  3.3563e-11, 3.5469e-11, 3.8111e-11, 3.8675e-11, 4.1333e-11,  // f06180
  4.3475e-11, 4.6476e-11, 4.9761e-11, 5.1380e-11, 5.4135e-11,  // f06190
  5.3802e-11, 5.5158e-11, 5.6864e-11, 5.9311e-11, 6.3827e-11,  // f06200
  6.7893e-11, 6.8230e-11, 6.6694e-11, 6.6018e-11, 6.4863e-11,  // f06210
  6.5893e-11, 6.3813e-11, 6.4741e-11, 6.8630e-11, 7.0255e-11,  // f06220
  7.0667e-11, 6.8810e-11, 6.4104e-11, 5.8136e-11, 4.7242e-11,  // f06230
  3.7625e-11, 3.1742e-11, 2.5581e-11, 1.8824e-11, 1.3303e-11,  // f06240
  9.6919e-12, 7.5353e-12, 6.0986e-12, 5.0742e-12, 4.3094e-12,  // f06260
  3.7190e-12, 3.2520e-12, 2.8756e-12, 2.5680e-12, 2.3139e-12,  // f06270
  2.1025e-12, 1.9257e-12, 1.7777e-12, 1.6539e-12, 1.5508e-12,  // f06280
  1.4657e-12, 1.3966e-12, 1.3417e-12, 1.2998e-12, 1.2700e-12,  // f06290
  1.2514e-12, 1.2437e-12, 1.2463e-12, 1.2592e-12, 1.2823e-12,  // f06300
  1.3157e-12, 1.3596e-12, 1.4144e-12, 1.4806e-12, 1.5588e-12,  // f06310
  1.6497e-12, 1.7544e-12, 1.8738e-12, 2.0094e-12, 2.1626e-12,  // f06320
  2.3354e-12, 2.5297e-12, 2.7483e-12, 2.9941e-12, 3.2708e-12,  // f06330
  3.5833e-12, 3.9374e-12, 4.3415e-12, 4.8079e-12, 5.3602e-12,  // f06340
  5.9816e-12, 6.7436e-12, 7.6368e-12, 8.6812e-12, 9.8747e-12,  // f06350
  1.1350e-11, 1.3181e-11, 1.5406e-11, 1.7868e-11, 2.0651e-11,  // f06370
  2.4504e-11, 2.9184e-11, 3.4159e-11, 3.9979e-11, 4.8704e-11,  // f06380
  5.7856e-11, 6.7576e-11, 7.9103e-11, 9.4370e-11, 1.1224e-10,  // f06390
  1.3112e-10, 1.5674e-10, 1.8206e-10, 2.0576e-10, 2.3187e-10,  // f06400
  2.7005e-10, 3.0055e-10, 3.3423e-10, 3.6956e-10, 3.8737e-10,  // f06410
  4.2630e-10, 4.5154e-10, 4.8383e-10, 5.3582e-10, 5.8109e-10,  // f06420
  6.3741e-10, 6.3874e-10, 6.3870e-10, 6.5818e-10, 6.5056e-10,  // f06430
  6.5291e-10, 6.3159e-10, 6.3984e-10, 6.4549e-10, 6.5444e-10,  // f06440
  6.7035e-10, 6.7665e-10, 6.9124e-10, 6.8451e-10, 6.9255e-10,  // f06450
  6.9923e-10, 7.0396e-10, 6.7715e-10, 6.0371e-10, 5.3774e-10,  // f06460
  4.6043e-10, 3.7635e-10, 2.9484e-10, 2.2968e-10, 1.8185e-10,  // f06480
  1.4191e-10, 1.1471e-10, 9.4790e-11, 7.9613e-11, 6.7989e-11,  // f06490
  5.9391e-11, 5.2810e-11, 4.7136e-11, 4.2618e-11, 3.8313e-11,  // f06500
  3.4686e-11, 3.1669e-11, 2.9110e-11, 2.6871e-11, 2.5074e-11,  // f06510
  2.4368e-11, 2.3925e-11, 2.4067e-11, 2.4336e-11, 2.4704e-11,  // f06520
  2.5823e-11, 2.7177e-11, 2.9227e-11, 3.1593e-11, 3.5730e-11,  // f06530
  4.0221e-11, 4.3994e-11, 4.8448e-11, 5.3191e-11, 5.8552e-11,  // f06540
  6.3458e-11, 6.6335e-11, 7.2457e-11, 7.9091e-11, 8.2234e-11,  // f06550
  8.7668e-11, 8.7951e-11, 9.2952e-11, 9.6157e-11, 9.5926e-11,  // f06560
  1.0120e-10, 1.0115e-10, 9.9577e-11, 9.6633e-11, 9.2891e-11,  // f06570
  9.3315e-11, 9.5584e-11, 1.0064e-10, 1.0509e-10, 1.1455e-10,  // f06590
  1.2443e-10, 1.2963e-10, 1.2632e-10, 1.1308e-10, 1.0186e-10,  // f06600
  8.5880e-11, 6.7863e-11, 5.1521e-11, 3.7780e-11, 2.8842e-11,  // f06610
  2.2052e-11, 1.7402e-11, 1.4406e-11, 1.1934e-11, 1.0223e-11,  // f06620
  8.9544e-12, 7.9088e-12, 7.0675e-12, 6.2222e-12, 5.6051e-12,  // f06630
  5.0502e-12, 4.5578e-12, 4.2636e-12, 3.9461e-12, 3.7599e-12,  // f06640
  3.5215e-12, 3.2467e-12, 3.0018e-12, 2.6558e-12, 2.3928e-12,  // f06650
  2.0707e-12, 1.7575e-12, 1.5114e-12, 1.2941e-12, 1.1004e-12,  // f06660
  9.5175e-13, 8.2894e-13, 7.3253e-13, 6.5551e-13, 5.9098e-13,  // f06670
  5.3548e-13, 4.8697e-13, 4.4413e-13, 4.0600e-13, 3.7188e-13,  // f06680
  3.4121e-13, 3.1356e-13, 2.8856e-13, 2.6590e-13, 2.4533e-13,  // f06700
  2.2663e-13, 2.0960e-13, 1.9407e-13, 1.7990e-13, 1.6695e-13,  // f06710
  1.5512e-13, 1.4429e-13, 1.3437e-13, 1.2527e-13, 1.1693e-13,  // f06720
  1.0927e-13, 1.0224e-13, 9.5767e-14, 8.9816e-14, 8.4335e-14,  // f06730
  7.9285e-14, 7.4626e-14, 7.0325e-14, 6.6352e-14, 6.2676e-14,  // f06740
  5.9274e-14, 5.6121e-14, 5.3195e-14, 5.0479e-14, 4.7953e-14,  // f06750
  4.5602e-14, 4.3411e-14, 4.1367e-14, 3.9456e-14, 3.7670e-14,  // f06760
  3.5996e-14, 3.4427e-14, 3.2952e-14, 3.1566e-14, 3.0261e-14,  // f06770
  2.9030e-14, 2.7868e-14, 2.6770e-14, 2.5730e-14, 2.4745e-14,  // f06780
  2.3809e-14, 2.2921e-14, 2.2076e-14, 2.1271e-14, 2.0504e-14,  // f06790
  1.9772e-14, 1.9073e-14, 1.8404e-14, 1.7764e-14, 1.7151e-14,  // f06810
  1.6564e-14, 1.6000e-14, 1.5459e-14, 1.4939e-14, 1.4439e-14,  // f06820
  1.3958e-14, 1.3495e-14, 1.3049e-14, 1.2620e-14, 1.2206e-14,  // f06830
  1.1807e-14, 1.1422e-14, 1.1050e-14, 1.0691e-14, 1.0345e-14,  // f06840
  1.0010e-14, 9.6870e-15, 9.3747e-15, 9.0727e-15, 8.7808e-15,  // f06850
  8.4986e-15, 8.2257e-15, 7.9617e-15, 7.7064e-15, 7.4594e-15,  // f06860
  7.2204e-15, 6.9891e-15, 6.7653e-15, 6.5488e-15, 6.3392e-15,  // f06870
  6.1363e-15, 5.9399e-15, 5.7499e-15, 5.5659e-15, 5.3878e-15,  // f06880
  5.2153e-15, 5.0484e-15, 4.8868e-15, 4.7303e-15, 4.5788e-15,  // f06890
  4.4322e-15, 4.2902e-15, 4.1527e-15, 4.0196e-15, 3.8907e-15,  // f06900
  3.7659e-15, 3.6451e-15, 3.5281e-15, 3.4149e-15, 3.3052e-15,  // f06920
  3.1991e-15, 3.0963e-15, 2.9967e-15, 2.9004e-15, 2.8071e-15,  // f06930
  2.7167e-15, 2.6293e-15, 2.5446e-15, 2.4626e-15, 2.3833e-15,  // f06940
  2.3064e-15, 2.2320e-15, 2.1600e-15, 2.0903e-15, 2.0228e-15,  // f06950
  1.9574e-15, 1.8942e-15, 1.8329e-15, 1.7736e-15, 1.7163e-15,  // f06960
  1.6607e-15, 1.6069e-15, 1.5548e-15, 1.5044e-15, 1.4557e-15,  // f06970
  1.4084e-15, 1.3627e-15, 1.3185e-15, 1.2757e-15, 1.2342e-15,  // f06980
  1.1941e-15, 1.1552e-15, 1.1177e-15, 1.0813e-15, 1.0461e-15,  // f06990
  1.0120e-15, 9.7900e-16, 9.4707e-16, 9.1618e-16, 8.8628e-16,  // f07000
  8.5734e-16, 8.2933e-16, 8.0223e-16, 7.7600e-16, 7.5062e-16,  // f07010
  7.2606e-16, 7.0229e-16, 6.7929e-16, 6.5703e-16, 6.3550e-16,  // f07030
  6.1466e-16, 5.9449e-16, 5.7498e-16, 5.5610e-16, 5.3783e-16,  // f07040
  5.2015e-16, 5.0305e-16, 4.8650e-16, 4.7049e-16, 4.5500e-16,  // f07050
  4.4002e-16, 4.2552e-16, 4.1149e-16, 3.9792e-16, 3.8479e-16,  // f07060
  3.7209e-16, 3.5981e-16, 3.4792e-16, 3.3642e-16, 3.2530e-16,  // f07070
  3.1454e-16, 3.0413e-16, 2.9406e-16, 2.8432e-16, 2.7490e-16,  // f07080
  2.6579e-16, 2.5697e-16, 2.4845e-16, 2.4020e-16, 2.3223e-16,  // f07090
  2.2451e-16, 2.1705e-16, 2.0984e-16, 2.0286e-16, 1.9611e-16,  // f07100
  1.8958e-16, 1.8327e-16, 1.7716e-16, 1.7126e-16, 1.6555e-16,  // f07110
  1.6003e-16, 1.5469e-16, 1.4952e-16, 1.4453e-16, 1.3970e-16,  // f07120
  1.3503e-16};
 
 
 
// H2O foreign continuum parameters at T=296 K for the CKD versions 0 to 2.4.2
// date of last update: 06/28/82
// units of (CM**3/MOL)*1.E-20
const Numeric FH2O_ckd_0_v1  =   -20.0;
const Numeric FH2O_ckd_0_v2  = 20000.0;
const Numeric FH2O_ckd_0_dv  =    10.0;
const int     FH2O_ckd_0_npt =  2003;
const double  FH2O_ckd_0[FH2O_ckd_0_npt+addF77fields] = {
  0.0000e-00, 1.2859E-02, 1.1715E-02, 
  1.1038E-02, 1.1715E-02, 1.2859E-02, 1.5326E-02, 1.6999E-02,  // F12660
  1.8321E-02, 1.9402E-02, 1.9570E-02, 1.9432E-02, 1.7572E-02,  // F12670
  1.6760E-02, 1.5480E-02, 1.3984E-02, 1.2266E-02, 1.0467E-02,  // F12680
  9.4526E-03, 8.0485E-03, 6.9484E-03, 6.1416E-03, 5.0941E-03,  // F12690
  4.4836E-03, 3.8133E-03, 3.4608E-03, 3.1487E-03, 2.4555E-03,  // F12700
  2.0977E-03, 1.7266E-03, 1.4920E-03, 1.2709E-03, 9.8081E-04,  // F12710
  8.5063E-04, 6.8822E-04, 5.3809E-04, 4.4679E-04, 3.3774E-04,  // F12720
  2.7979E-04, 2.1047E-04, 1.6511E-04, 1.2993E-04, 9.3033E-05,  // F12730
  7.4360E-05, 5.6428E-05, 4.5442E-05, 3.4575E-05, 2.7903E-05,  // F12740
  2.1374E-05, 1.6075E-05, 1.3022E-05, 1.0962E-05, 8.5959E-06,  // F12750
  6.9125E-06, 5.3808E-06, 4.3586E-06, 3.6394E-06, 2.9552E-06,  // F12770
  2.3547E-06, 1.8463E-06, 1.6036E-06, 1.3483E-06, 1.1968E-06,  // F12780
  1.0333E-06, 8.4484E-07, 6.7195E-07, 5.0947E-07, 4.2343E-07,  // F12790
  3.4453E-07, 2.7830E-07, 2.3063E-07, 1.9951E-07, 1.7087E-07,  // F12800
  1.4393E-07, 1.2575E-07, 1.0750E-07, 8.2325E-08, 5.7524E-08,  // F12810
  4.4482E-08, 3.8106E-08, 3.4315E-08, 2.9422E-08, 2.5069E-08,  // F12820
  2.2402E-08, 1.9349E-08, 1.6152E-08, 1.2208E-08, 8.9660E-09,  // F12830
  7.1322E-09, 6.1028E-09, 5.2938E-09, 4.5350E-09, 3.4977E-09,  // F12840
  2.9511E-09, 2.4734E-09, 2.0508E-09, 1.8507E-09, 1.6373E-09,  // F12850
  1.5171E-09, 1.3071E-09, 1.2462E-09, 1.2148E-09, 1.2590E-09,  // F12860
  1.3153E-09, 1.3301E-09, 1.4483E-09, 1.6944E-09, 2.0559E-09,  // F12880
  2.2954E-09, 2.6221E-09, 3.2606E-09, 4.2392E-09, 5.2171E-09,  // F12890
  6.2553E-09, 8.2548E-09, 9.5842E-09, 1.1280E-08, 1.3628E-08,  // F12900
  1.7635E-08, 2.1576E-08, 2.4835E-08, 3.0014E-08, 3.8485E-08,  // F12910
  4.7440E-08, 5.5202E-08, 7.0897E-08, 9.6578E-08, 1.3976E-07,  // F12920
  1.8391E-07, 2.3207E-07, 2.9960E-07, 4.0408E-07, 5.9260E-07,  // F12930
  7.8487E-07, 1.0947E-06, 1.4676E-06, 1.9325E-06, 2.6587E-06,  // F12940
  3.4534E-06, 4.4376E-06, 5.8061E-06, 7.0141E-06, 8.4937E-06,  // F12950
  1.0186E-05, 1.2034E-05, 1.3837E-05, 1.6595E-05, 1.9259E-05,  // F12960
  2.1620E-05, 2.3681E-05, 2.7064E-05, 3.2510E-05, 3.5460E-05,  // F12970
  3.9109E-05, 4.2891E-05, 4.7757E-05, 5.0981E-05, 5.0527E-05,  // F12990
  4.8618E-05, 4.4001E-05, 3.7982E-05, 3.2667E-05, 2.7794E-05,  // F13000
  2.4910E-05, 2.4375E-05, 2.7316E-05, 3.2579E-05, 3.5499E-05,  // F13010
  3.8010E-05, 4.1353E-05, 4.3323E-05, 4.3004E-05, 3.9790E-05,  // F13020
  3.7718E-05, 3.6360E-05, 3.2386E-05, 2.7409E-05, 2.3626E-05,  // F13030
  2.0631E-05, 1.8371E-05, 1.5445E-05, 1.2989E-05, 1.1098E-05,  // F13040
  9.6552E-06, 8.0649E-06, 7.2365E-06, 5.9137E-06, 5.2759E-06,  // F13050
  4.8860E-06, 4.1321E-06, 3.5918E-06, 2.7640E-06, 2.4892E-06,  // F13060
  2.1018E-06, 1.7848E-06, 1.5855E-06, 1.3569E-06, 1.1986E-06,  // F13070
  9.4693E-07, 7.4097E-07, 6.3443E-07, 4.8131E-07, 4.0942E-07,  // F13080
  3.3316E-07, 2.8488E-07, 2.3461E-07, 1.7397E-07, 1.4684E-07,  // F13100
  1.0953E-07, 8.5396E-08, 6.9261E-08, 5.4001E-08, 4.5430E-08,  // F13110
  3.2791E-08, 2.5995E-08, 2.0225E-08, 1.5710E-08, 1.3027E-08,  // F13120
  1.0229E-08, 8.5277E-09, 6.5249E-09, 5.0117E-09, 3.9906E-09,  // F13130
  3.2332E-09, 2.7847E-09, 2.4570E-09, 2.3359E-09, 2.0599E-09,  // F13140
  1.8436E-09, 1.6559E-09, 1.4910E-09, 1.2794E-09, 9.8229E-10,  // F13150
  8.0054E-10, 6.0769E-10, 4.5646E-10, 3.3111E-10, 2.4428E-10,  // F13160
  1.8007E-10, 1.3291E-10, 9.7974E-11, 7.8271E-11, 6.3833E-11,  // F13170
  5.4425E-11, 4.6471E-11, 4.0209E-11, 3.5227E-11, 3.1212E-11,  // F13180
  2.8840E-11, 2.7762E-11, 2.7935E-11, 3.2012E-11, 3.9525E-11,  // F13190
  5.0303E-11, 6.8027E-11, 9.3954E-11, 1.2986E-10, 1.8478E-10,  // F13210
  2.5331E-10, 3.4827E-10, 4.6968E-10, 6.2380E-10, 7.9106E-10,  // F13220
  1.0026E-09, 1.2102E-09, 1.4146E-09, 1.6154E-09, 1.7510E-09,  // F13230
  1.8575E-09, 1.8742E-09, 1.8700E-09, 1.8582E-09, 1.9657E-09,  // F13240
  2.1204E-09, 2.0381E-09, 2.0122E-09, 2.0436E-09, 2.1213E-09,  // F13250
  2.0742E-09, 1.9870E-09, 2.0465E-09, 2.1556E-09, 2.2222E-09,  // F13260
  2.1977E-09, 2.1047E-09, 1.9334E-09, 1.7357E-09, 1.5754E-09,  // F13270
  1.4398E-09, 1.4018E-09, 1.5459E-09, 1.7576E-09, 2.1645E-09,  // F13280
  2.9480E-09, 4.4439E-09, 5.8341E-09, 8.0757E-09, 1.1658E-08,  // F13290
  1.6793E-08, 2.2694E-08, 2.9468E-08, 3.9278E-08, 5.2145E-08,  // F13300
  6.4378E-08, 7.7947E-08, 8.5321E-08, 9.7848E-08, 1.0999E-07,  // F13320
  1.1489E-07, 1.2082E-07, 1.2822E-07, 1.4053E-07, 1.5238E-07,  // F13330
  1.5454E-07, 1.5018E-07, 1.4048E-07, 1.2359E-07, 1.0858E-07,  // F13340
  9.3486E-08, 8.1638E-08, 7.7690E-08, 8.4625E-08, 1.0114E-07,  // F13350
  1.1430E-07, 1.2263E-07, 1.3084E-07, 1.3380E-07, 1.3573E-07,  // F13360
  1.3441E-07, 1.2962E-07, 1.2638E-07, 1.1934E-07, 1.1371E-07,  // F13370
  1.0871E-07, 9.8843E-08, 9.1877E-08, 9.1050E-08, 9.3213E-08,  // F13380
  9.2929E-08, 1.0155E-07, 1.1263E-07, 1.2370E-07, 1.3636E-07,  // F13390
  1.5400E-07, 1.7656E-07, 2.1329E-07, 2.3045E-07, 2.5811E-07,  // F13400
  2.9261E-07, 3.4259E-07, 4.0770E-07, 4.8771E-07, 5.8081E-07,  // F13410
  7.2895E-07, 8.7482E-07, 1.0795E-06, 1.3384E-06, 1.7208E-06,  // F13430
  2.0677E-06, 2.5294E-06, 3.1123E-06, 3.7900E-06, 4.7752E-06,  // F13440
  5.6891E-06, 6.6261E-06, 7.6246E-06, 8.7730E-06, 9.6672E-06,  // F13450
  1.0980E-05, 1.1287E-05, 1.1670E-05, 1.1635E-05, 1.1768E-05,  // F13460
  1.2039E-05, 1.2253E-05, 1.3294E-05, 1.4005E-05, 1.3854E-05,  // F13470
  1.3420E-05, 1.3003E-05, 1.2645E-05, 1.1715E-05, 1.1258E-05,  // F13480
  1.1516E-05, 1.2494E-05, 1.3655E-05, 1.4931E-05, 1.4649E-05,  // F13490
  1.3857E-05, 1.3120E-05, 1.1791E-05, 1.0637E-05, 8.2760E-06,  // F13500
  6.5821E-06, 5.1959E-06, 4.0158E-06, 3.0131E-06, 2.0462E-06,  // F13510
  1.4853E-06, 1.0365E-06, 7.3938E-07, 4.9752E-07, 3.4148E-07,  // F13520
  2.4992E-07, 1.8363E-07, 1.4591E-07, 1.1380E-07, 9.0588E-08,  // F13540
  7.3697E-08, 6.0252E-08, 5.1868E-08, 4.2660E-08, 3.6163E-08,  // F13550
  3.2512E-08, 2.9258E-08, 2.4238E-08, 2.1209E-08, 1.6362E-08,  // F13560
  1.3871E-08, 1.2355E-08, 9.6940E-09, 7.7735E-09, 6.2278E-09,  // F13570
  5.2282E-09, 4.3799E-09, 3.5545E-09, 2.7527E-09, 2.0950E-09,  // F13580
  1.6344E-09, 1.2689E-09, 1.0403E-09, 8.4880E-10, 6.3461E-10,  // F13590
  4.7657E-10, 3.5220E-10, 2.7879E-10, 2.3021E-10, 1.6167E-10,  // F13600
  1.1732E-10, 8.9206E-11, 7.0596E-11, 5.8310E-11, 4.4084E-11,  // F13610
  3.1534E-11, 2.5068E-11, 2.2088E-11, 2.2579E-11, 2.2637E-11,  // F13620
  2.5705E-11, 3.2415E-11, 4.6116E-11, 6.5346E-11, 9.4842E-11,  // F13630
  1.2809E-10, 1.8211E-10, 2.4052E-10, 3.0270E-10, 3.5531E-10,  // F13650
  4.2402E-10, 4.6730E-10, 4.7942E-10, 4.6813E-10, 4.5997E-10,  // F13660
  4.5788E-10, 4.0311E-10, 3.7367E-10, 3.3149E-10, 2.9281E-10,  // F13670
  2.5231E-10, 2.1152E-10, 1.9799E-10, 1.8636E-10, 1.9085E-10,  // F13680
  2.0786E-10, 2.2464E-10, 2.3785E-10, 2.5684E-10, 2.7499E-10,  // F13690
  2.6962E-10, 2.6378E-10, 2.6297E-10, 2.6903E-10, 2.7035E-10,  // F13700
  2.5394E-10, 2.5655E-10, 2.7184E-10, 2.9013E-10, 3.0585E-10,  // F13710
  3.0791E-10, 3.1667E-10, 3.4343E-10, 3.7365E-10, 4.0269E-10,  // F13720
  4.7260E-10, 5.6584E-10, 6.9791E-10, 8.6569E-10, 1.0393E-09,  // F13730
  1.2067E-09, 1.5047E-09, 1.8583E-09, 2.2357E-09, 2.6498E-09,  // F13740
  3.2483E-09, 3.9927E-09, 4.6618E-09, 5.5555E-09, 6.6609E-09,  // F13760
  8.2139E-09, 1.0285E-08, 1.3919E-08, 1.8786E-08, 2.5150E-08,  // F13770
  3.3130E-08, 4.5442E-08, 6.3370E-08, 9.0628E-08, 1.2118E-07,  // F13780
  1.5927E-07, 2.1358E-07, 2.7825E-07, 3.7671E-07, 4.4894E-07,  // F13790
  5.4442E-07, 6.2240E-07, 7.3004E-07, 8.3384E-07, 8.7933E-07,  // F13800
  8.8080E-07, 8.6939E-07, 8.6541E-07, 8.2055E-07, 7.7278E-07,  // F13810
  7.5989E-07, 8.6909E-07, 9.7945E-07, 1.0394E-06, 1.0646E-06,  // F13820
  1.1509E-06, 1.2017E-06, 1.1915E-06, 1.1259E-06, 1.1549E-06,  // F13830
  1.1938E-06, 1.2356E-06, 1.2404E-06, 1.1716E-06, 1.1149E-06,  // F13840
  1.0073E-06, 8.9845E-07, 7.6639E-07, 6.1517E-07, 5.0887E-07,  // F13850
  4.1269E-07, 3.2474E-07, 2.5698E-07, 1.8893E-07, 1.4009E-07,  // F13870
  1.0340E-07, 7.7724E-08, 5.7302E-08, 4.2178E-08, 2.9603E-08,  // F13880
  2.1945E-08, 1.6301E-08, 1.2806E-08, 1.0048E-08, 7.8970E-09,  // F13890
  6.1133E-09, 4.9054E-09, 4.1985E-09, 3.6944E-09, 3.2586E-09,  // F13900
  2.7362E-09, 2.3647E-09, 2.1249E-09, 1.8172E-09, 1.6224E-09,  // F13910
  1.5158E-09, 1.2361E-09, 1.0682E-09, 9.2312E-10, 7.9220E-10,  // F13920
  6.8174E-10, 5.6147E-10, 4.8268E-10, 4.1534E-10, 3.3106E-10,  // F13930
  2.8275E-10, 2.4584E-10, 2.0742E-10, 1.7840E-10, 1.4664E-10,  // F13940
  1.2390E-10, 1.0497E-10, 8.5038E-11, 6.7008E-11, 5.6355E-11,  // F13950
  4.3323E-11, 3.6914E-11, 3.2262E-11, 3.0749E-11, 3.0318E-11,  // F13960
  2.9447E-11, 2.9918E-11, 3.0668E-11, 3.1315E-11, 3.0329E-11,  // F13980
  2.8259E-11, 2.6065E-11, 2.3578E-11, 2.0469E-11, 1.6908E-11,  // F13990
  1.4912E-11, 1.1867E-11, 9.9730E-12, 8.1014E-12, 6.7528E-12,  // F14000
  6.3133E-12, 5.8599E-12, 6.0145E-12, 6.5105E-12, 7.0537E-12,  // F14010
  7.4973E-12, 7.8519E-12, 8.5039E-12, 9.1995E-12, 1.0694E-11,  // F14020
  1.1659E-11, 1.2685E-11, 1.3087E-11, 1.3222E-11, 1.2634E-11,  // F14030
  1.1077E-11, 9.6259E-12, 8.3202E-12, 7.4857E-12, 6.8069E-12,  // F14040
  6.7496E-12, 7.3116E-12, 8.0171E-12, 8.6394E-12, 9.2659E-12,  // F14050
  1.0048E-11, 1.0941E-11, 1.2226E-11, 1.3058E-11, 1.5193E-11,  // F14060
  1.8923E-11, 2.3334E-11, 2.8787E-11, 3.6693E-11, 4.8295E-11,  // F14070
  6.4260E-11, 8.8269E-11, 1.1865E-10, 1.5961E-10, 2.0605E-10,  // F14090
  2.7349E-10, 3.7193E-10, 4.8216E-10, 6.1966E-10, 7.7150E-10,  // F14100
  1.0195E-09, 1.2859E-09, 1.6535E-09, 2.0316E-09, 2.3913E-09,  // F14110
  3.0114E-09, 3.7495E-09, 4.6504E-09, 5.9145E-09, 7.6840E-09,  // F14120
  1.0304E-08, 1.3010E-08, 1.6441E-08, 2.1475E-08, 2.5892E-08,  // F14130
  2.9788E-08, 3.3820E-08, 4.0007E-08, 4.4888E-08, 4.5765E-08,  // F14140
  4.6131E-08, 4.6239E-08, 4.4849E-08, 4.0729E-08, 3.6856E-08,  // F14150
  3.6164E-08, 3.7606E-08, 4.1457E-08, 4.3750E-08, 5.1150E-08,  // F14160
  5.6054E-08, 6.1586E-08, 6.4521E-08, 6.6494E-08, 6.9024E-08,  // F14170
  6.8893E-08, 7.0901E-08, 6.9760E-08, 7.1485E-08, 7.0740E-08,  // F14180
  7.3764E-08, 7.6618E-08, 8.4182E-08, 9.3838E-08, 1.0761E-07,  // F14200
  1.2851E-07, 1.4748E-07, 1.8407E-07, 2.2109E-07, 2.6392E-07,  // F14210
  2.9887E-07, 3.4493E-07, 4.0336E-07, 4.3551E-07, 4.9231E-07,  // F14220
  5.0728E-07, 5.3781E-07, 5.3285E-07, 5.4496E-07, 5.5707E-07,  // F14230
  5.6944E-07, 6.1123E-07, 6.4317E-07, 6.4581E-07, 6.1999E-07,  // F14240
  6.0191E-07, 5.7762E-07, 5.7241E-07, 5.7013E-07, 6.0160E-07,  // F14250
  6.6905E-07, 7.4095E-07, 8.2121E-07, 8.0947E-07, 7.6145E-07,  // F14260
  7.2193E-07, 6.3722E-07, 5.4316E-07, 4.2186E-07, 3.2528E-07,  // F14270
  2.5207E-07, 1.8213E-07, 1.2658E-07, 8.6746E-08, 6.0216E-08,  // F14280
  4.1122E-08, 2.8899E-08, 2.1740E-08, 1.7990E-08, 1.5593E-08,  // F14290
  1.3970E-08, 1.2238E-08, 1.0539E-08, 9.2386E-09, 7.8481E-09,  // F14310
  6.8704E-09, 5.7615E-09, 5.0434E-09, 4.6886E-09, 4.3770E-09,  // F14320
  3.9768E-09, 3.5202E-09, 3.1854E-09, 2.9009E-09, 2.5763E-09,  // F14330
  2.2135E-09, 1.9455E-09, 1.6248E-09, 1.3368E-09, 1.0842E-09,  // F14340
  8.4254E-10, 6.7414E-10, 5.4667E-10, 4.5005E-10, 3.4932E-10,  // F14350
  2.6745E-10, 2.2053E-10, 1.8162E-10, 1.4935E-10, 1.1618E-10,  // F14360
  9.1888E-11, 8.0672E-11, 6.8746E-11, 6.2668E-11, 5.5715E-11,  // F14370
  4.5074E-11, 3.7669E-11, 3.2082E-11, 2.8085E-11, 2.4838E-11,  // F14380
  1.9791E-11, 1.6964E-11, 1.3887E-11, 1.1179E-11, 9.7499E-12,  // F14390
  7.8255E-12, 6.3698E-12, 5.3265E-12, 4.6588E-12, 4.4498E-12,  // F14400
  3.9984E-12, 3.7513E-12, 3.7176E-12, 3.9148E-12, 4.2702E-12,  // F14420
  5.0090E-12, 6.5801E-12, 8.7787E-12, 1.2718E-11, 1.8375E-11,  // F14430
  2.5304E-11, 3.5403E-11, 4.8842E-11, 6.4840E-11, 8.0911E-11,  // F14440
  1.0136E-10, 1.2311E-10, 1.4203E-10, 1.5869E-10, 1.8093E-10,  // F14450
  2.1370E-10, 2.5228E-10, 2.8816E-10, 3.4556E-10, 3.9860E-10,  // F14460
  4.4350E-10, 4.7760E-10, 5.2357E-10, 6.0827E-10, 6.3635E-10,  // F14470
  6.5886E-10, 6.8753E-10, 7.2349E-10, 7.2789E-10, 6.8232E-10,  // F14480
  6.6081E-10, 6.4232E-10, 6.3485E-10, 6.4311E-10, 7.2235E-10,  // F14490
  7.7263E-10, 8.1668E-10, 9.0324E-10, 9.7643E-10, 1.0535E-09,  // F14500
  1.0195E-09, 1.0194E-09, 1.0156E-09, 9.6792E-10, 9.2725E-10,  // F14510
  8.7347E-10, 8.4484E-10, 8.2647E-10, 8.4363E-10, 9.1261E-10,  // F14530
  1.0051E-09, 1.1511E-09, 1.4037E-09, 1.8066E-09, 2.4483E-09,  // F14540
  3.2739E-09, 4.3194E-09, 5.6902E-09, 7.7924E-09, 9.7376E-09,  // F14550
  1.2055E-08, 1.4303E-08, 1.6956E-08, 1.9542E-08, 2.2233E-08,  // F14560
  2.5186E-08, 2.7777E-08, 2.8943E-08, 2.8873E-08, 2.9417E-08,  // F14570
  2.7954E-08, 2.7524E-08, 2.7040E-08, 3.1254E-08, 3.6843E-08,  // F14580
  3.7797E-08, 3.8713E-08, 4.0135E-08, 4.2824E-08, 4.3004E-08,  // F14590
  4.0279E-08, 4.2781E-08, 4.5220E-08, 4.8948E-08, 5.0172E-08,  // F14600
  4.8499E-08, 4.7182E-08, 4.2204E-08, 3.7701E-08, 3.0972E-08,  // F14610
  2.4654E-08, 1.9543E-08, 1.4609E-08, 1.1171E-08, 8.3367E-09,  // F14620
  6.3791E-09, 5.0790E-09, 4.0655E-09, 3.3658E-09, 2.7882E-09,  // F14640
  2.4749E-09, 2.2287E-09, 2.0217E-09, 1.8191E-09, 1.5897E-09,  // F14650
  1.4191E-09, 1.2448E-09, 1.0884E-09, 9.3585E-10, 7.9429E-10,  // F14660
  7.3214E-10, 6.5008E-10, 5.7549E-10, 5.4300E-10, 4.7251E-10,  // F14670
  4.3451E-10, 3.8446E-10, 3.5589E-10, 3.4432E-10, 2.8209E-10,  // F14680
  2.4620E-10, 2.1278E-10, 1.8406E-10, 1.6314E-10, 1.3261E-10,  // F14690
  1.1696E-10, 9.6865E-11, 7.6814E-11, 6.6411E-11, 5.0903E-11,  // F14700
  4.0827E-11, 3.0476E-11, 2.3230E-11, 1.7707E-11, 1.3548E-11,  // F14710
  1.0719E-11, 9.3026E-12, 8.7967E-12, 8.3136E-12, 7.3918E-12,  // F14720
  6.5293E-12, 5.9243E-12, 5.3595E-12, 3.5266E-12, 2.2571E-12,  // F14730
  1.6150E-12, 1.1413E-12, 8.4998E-13, 7.0803E-13, 5.1747E-13,  // F14750
  4.0694E-13, 3.6528E-13, 3.3670E-13, 3.1341E-13, 2.9390E-13,  // F14760
  2.8680E-13, 3.1283E-13, 3.7294E-13, 5.0194E-13, 6.7919E-13,  // F14770
  1.0455E-12, 1.5230E-12, 2.3932E-12, 3.4231E-12, 5.0515E-12,  // F14780
  7.3193E-12, 9.9406E-12, 1.2193E-11, 1.4742E-11, 1.9269E-11,  // F14790
  2.1816E-11, 2.2750E-11, 2.2902E-11, 2.3888E-11, 2.4902E-11,  // F14800
  2.2160E-11, 2.0381E-11, 1.9903E-11, 2.0086E-11, 1.9304E-11,  // F14810
  2.0023E-11, 2.2244E-11, 2.5450E-11, 3.1228E-11, 3.4560E-11,  // F14820
  3.6923E-11, 3.7486E-11, 3.8124E-11, 3.8317E-11, 3.4737E-11,  // F14830
  3.3037E-11, 3.1724E-11, 2.9840E-11, 2.8301E-11, 2.5857E-11,  // F14840
  2.3708E-11, 1.9452E-11, 1.6232E-11, 1.5174E-11, 1.4206E-11,  // F14860
  1.4408E-11, 1.5483E-11, 1.8642E-11, 2.3664E-11, 3.0181E-11,  // F14870
  4.0160E-11, 5.2287E-11, 7.2754E-11, 1.0511E-10, 1.4531E-10,  // F14880
  2.0998E-10, 2.6883E-10, 3.3082E-10, 4.2638E-10, 5.3132E-10,  // F14890
  6.3617E-10, 7.1413E-10, 8.5953E-10, 9.9715E-10, 1.0796E-09,  // F14900
  1.0978E-09, 1.1052E-09, 1.1095E-09, 1.0641E-09, 9.7881E-10,  // F14910
  9.6590E-10, 1.0332E-09, 1.1974E-09, 1.3612E-09, 1.5829E-09,  // F14920
  1.8655E-09, 2.1465E-09, 2.4779E-09, 2.7370E-09, 2.9915E-09,  // F14930
  3.3037E-09, 3.6347E-09, 3.9587E-09, 4.4701E-09, 5.0122E-09,  // F14940
  5.8044E-09, 6.1916E-09, 6.9613E-09, 7.7863E-09, 8.2820E-09,  // F14950
  9.4359E-09, 9.7387E-09, 1.0656E-08, 1.0746E-08, 1.1210E-08,  // F14970
  1.1905E-08, 1.2194E-08, 1.3145E-08, 1.3738E-08, 1.3634E-08,  // F14980
  1.3011E-08, 1.2511E-08, 1.1805E-08, 1.2159E-08, 1.2390E-08,  // F14990
  1.3625E-08, 1.5678E-08, 1.7886E-08, 1.9933E-08, 1.9865E-08,  // F15000
  1.9000E-08, 1.7812E-08, 1.5521E-08, 1.2593E-08, 9.5635E-09,  // F15010
  7.2987E-09, 5.2489E-09, 3.5673E-09, 2.4206E-09, 1.6977E-09,  // F15020
  1.2456E-09, 9.3744E-10, 7.8379E-10, 6.9960E-10, 6.6451E-10,  // F15030
  6.8521E-10, 7.4234E-10, 8.6658E-10, 9.4972E-10, 1.0791E-09,  // F15040
  1.2359E-09, 1.3363E-09, 1.5025E-09, 1.5368E-09, 1.6152E-09,  // F15050
  1.6184E-09, 1.6557E-09, 1.7035E-09, 1.6916E-09, 1.7237E-09,  // F15060
  1.7175E-09, 1.6475E-09, 1.5335E-09, 1.4272E-09, 1.3282E-09,  // F15080
  1.3459E-09, 1.4028E-09, 1.5192E-09, 1.7068E-09, 1.9085E-09,  // F15090
  2.1318E-09, 2.1020E-09, 1.9942E-09, 1.8654E-09, 1.6391E-09,  // F15100
  1.3552E-09, 1.0186E-09, 7.8540E-10, 5.7022E-10, 3.9247E-10,  // F15110
  2.5441E-10, 1.6699E-10, 1.1132E-10, 6.8989E-11, 4.5255E-11,  // F15120
  3.1106E-11, 2.3161E-11, 1.7618E-11, 1.4380E-11, 1.1601E-11,  // F15130
  9.7148E-12, 8.4519E-12, 6.5392E-12, 5.4113E-12, 4.7624E-12,  // F15140
  4.0617E-12, 3.6173E-12, 2.8608E-12, 2.2724E-12, 1.7436E-12,  // F15150
  1.3424E-12, 1.0358E-12, 7.3064E-13, 5.4500E-13, 4.0551E-13,  // F15160
  2.8642E-13, 2.1831E-13, 1.6860E-13, 1.2086E-13, 1.0150E-13,  // F15170
  9.3550E-14, 8.4105E-14, 7.3051E-14, 6.9796E-14, 7.9949E-14,  // F15190
  1.0742E-13, 1.5639E-13, 2.1308E-13, 3.1226E-13, 4.6853E-13,  // F15200
  6.6917E-13, 1.0088E-12, 1.4824E-12, 2.2763E-12, 3.3917E-12,  // F15210
  4.4585E-12, 6.3187E-12, 8.4189E-12, 1.1302E-11, 1.3431E-11,  // F15220
  1.5679E-11, 1.9044E-11, 2.2463E-11, 2.3605E-11, 2.3619E-11,  // F15230
  2.3505E-11, 2.3805E-11, 2.2549E-11, 1.9304E-11, 1.8382E-11,  // F15240
  1.7795E-11, 1.8439E-11, 1.9146E-11, 2.1966E-11, 2.6109E-11,  // F15250
  3.1883E-11, 3.7872E-11, 4.3966E-11, 4.8789E-11, 5.3264E-11,  // F15260
  5.9705E-11, 6.3744E-11, 7.0163E-11, 7.9114E-11, 8.8287E-11,  // F15270
  9.9726E-11, 1.1498E-10, 1.3700E-10, 1.6145E-10, 1.9913E-10,  // F15280
  2.2778E-10, 2.6216E-10, 2.9770E-10, 3.3405E-10, 3.7821E-10,  // F15300
  3.9552E-10, 4.1322E-10, 4.0293E-10, 4.0259E-10, 3.8853E-10,  // F15310
  3.7842E-10, 3.8551E-10, 4.4618E-10, 5.0527E-10, 5.0695E-10,  // F15320
  5.1216E-10, 5.1930E-10, 5.5794E-10, 5.3320E-10, 5.2008E-10,  // F15330
  5.6888E-10, 6.1883E-10, 6.9006E-10, 6.9505E-10, 6.6768E-10,  // F15340
  6.3290E-10, 5.6753E-10, 5.0327E-10, 3.9830E-10, 3.1147E-10,  // F15350
  2.4416E-10, 1.8860E-10, 1.3908E-10, 9.9156E-11, 7.3779E-11,  // F15360
  5.6048E-11, 4.2457E-11, 3.4505E-11, 2.9881E-11, 2.7865E-11,  // F15370
  2.8471E-11, 3.1065E-11, 3.4204E-11, 3.9140E-11, 4.3606E-11,  // F15380
  4.9075E-11, 5.3069E-11, 5.5236E-11, 5.5309E-11, 5.3832E-11,  // F15390
  5.3183E-11, 5.1783E-11, 5.2042E-11, 5.4422E-11, 5.5656E-11,  // F15410
  5.4409E-11, 5.2659E-11, 5.1696E-11, 5.1726E-11, 4.9003E-11,  // F15420
  4.9050E-11, 5.1700E-11, 5.6818E-11, 6.3129E-11, 6.6542E-11,  // F15430
  6.4367E-11, 5.9908E-11, 5.4470E-11, 4.7903E-11, 3.9669E-11,  // F15440
  2.9651E-11, 2.2286E-11, 1.6742E-11, 1.1827E-11, 7.7739E-12,  // F15450
  4.8805E-12, 3.1747E-12, 2.0057E-12, 1.2550E-12, 8.7434E-13,  // F15460
  6.2755E-13, 4.9752E-13, 4.0047E-13, 3.5602E-13, 3.0930E-13,  // F15470
  2.4903E-13, 1.9316E-13, 1.4995E-13, 1.2059E-13, 8.7242E-14,  // F15480
  6.4511E-14, 5.3300E-14, 4.3741E-14, 3.4916E-14, 2.6560E-14,  // F15490
  1.6923E-14, 1.1816E-14, 6.7071E-15, 3.6474E-15, 2.0686E-15,  // F15500
  1.1925E-15, 6.8948E-16, 3.9661E-16, 2.2576E-16, 1.2669E-16,  // F15520
  6.9908E-17, 3.7896E-17, 2.0280E-17, 1.1016E-17, 6.7816E-18,  // F15530
  6.0958E-18, 8.9913E-18, 1.7201E-17, 3.4964E-17, 7.0722E-17,  // F15540
  1.4020E-16, 2.7167E-16, 5.1478E-16, 9.5500E-16, 1.7376E-15,  // F15550
  3.1074E-15, 5.4789E-15, 9.5640E-15, 1.6635E-14, 2.9145E-14,  // F15560
  5.2179E-14, 8.8554E-14, 1.4764E-13, 2.3331E-13, 3.5996E-13,  // F15570
  5.2132E-13, 6.3519E-13, 7.3174E-13, 8.3752E-13, 9.8916E-13,  // F15580
  1.1515E-12, 1.4034E-12, 1.6594E-12, 2.1021E-12, 2.7416E-12,  // F15590
  3.4135E-12, 4.5517E-12, 5.5832E-12, 7.2303E-12, 9.9484E-12,  // F15600
  1.2724E-11, 1.6478E-11, 2.0588E-11, 2.5543E-11, 3.3625E-11,  // F15610
  4.1788E-11, 5.0081E-11, 6.0144E-11, 6.9599E-11, 8.4408E-11,  // F15630
  9.7143E-11, 1.0805E-10, 1.1713E-10, 1.2711E-10, 1.3727E-10,  // F15640
  1.4539E-10, 1.6049E-10, 1.7680E-10, 2.0557E-10, 2.4967E-10,  // F15650
  3.0096E-10, 3.5816E-10, 4.0851E-10, 4.6111E-10, 5.2197E-10,  // F15660
  5.5043E-10, 6.0324E-10, 6.4983E-10, 6.7498E-10, 7.0545E-10,  // F15670
  7.0680E-10, 7.5218E-10, 7.5723E-10, 7.7840E-10, 8.0081E-10,  // F15680
  8.0223E-10, 7.7271E-10, 7.1676E-10, 6.7819E-10, 6.4753E-10,  // F15690
  6.5844E-10, 7.0163E-10, 7.7503E-10, 8.8152E-10, 9.9022E-10,  // F15700
  1.0229E-09, 9.9296E-10, 8.9911E-10, 7.7813E-10, 6.3785E-10,  // F15710
  4.7491E-10, 3.5280E-10, 2.4349E-10, 1.6502E-10, 1.1622E-10,  // F15720
  8.6715E-11, 6.7360E-11, 5.3910E-11, 4.5554E-11, 4.1300E-11,  // F15740
  3.9728E-11, 3.9000E-11, 3.9803E-11, 4.1514E-11, 4.3374E-11,  // F15750
  4.6831E-11, 4.8921E-11, 5.1995E-11, 5.7242E-11, 6.2759E-11,  // F15760
  7.0801E-11, 7.4555E-11, 7.9754E-11, 8.7616E-11, 9.1171E-11,  // F15770
  1.0349E-10, 1.1047E-10, 1.2024E-10, 1.2990E-10, 1.3725E-10,  // F15780
  1.5005E-10, 1.5268E-10, 1.5535E-10, 1.5623E-10, 1.5009E-10,  // F15790
  1.4034E-10, 1.3002E-10, 1.2225E-10, 1.1989E-10, 1.2411E-10,  // F15800
  1.3612E-10, 1.5225E-10, 1.7202E-10, 1.9471E-10, 1.9931E-10,  // F15810
  1.9079E-10, 1.7478E-10, 1.5259E-10, 1.2625E-10, 9.3332E-11,  // F15820
  6.8796E-11, 4.6466E-11, 2.9723E-11, 1.8508E-11, 1.2106E-11,  // F15830
  8.0142E-12, 5.4066E-12, 3.9329E-12, 3.1665E-12, 2.7420E-12,  // F15850
  2.3996E-12, 2.3804E-12, 2.3242E-12, 2.4476E-12, 2.5331E-12,  // F15860
  2.3595E-12, 2.2575E-12, 2.1298E-12, 2.0088E-12, 1.8263E-12,  // F15870
  1.6114E-12, 1.4422E-12, 1.2946E-12, 1.0837E-12, 9.1282E-13,  // F15880
  7.2359E-13, 5.3307E-13, 3.8837E-13, 2.6678E-13, 1.6769E-13,  // F15890
  1.0826E-13, 7.2364E-14, 4.5201E-14, 3.0808E-14, 2.2377E-14,  // F15900
  1.7040E-14, 9.2181E-15, 5.2934E-15, 3.5774E-15, 3.1431E-15,  // F15910
  3.7647E-15, 5.6428E-15, 9.5139E-15, 1.7322E-14, 2.8829E-14,  // F15920
  4.7708E-14, 6.9789E-14, 9.7267E-14, 1.4662E-13, 1.9429E-13,  // F15930
  2.5998E-13, 3.6636E-13, 4.7960E-13, 6.5129E-13, 7.7638E-13,  // F15940
  9.3774E-13, 1.1467E-12, 1.3547E-12, 1.5686E-12, 1.6893E-12,  // F15960
  1.9069E-12, 2.1352E-12, 2.3071E-12, 2.4759E-12, 2.8247E-12,  // F15970
  3.4365E-12, 4.3181E-12, 5.6107E-12, 7.0017E-12, 8.6408E-12,  // F15980
  1.0974E-11, 1.3742E-11, 1.6337E-11, 2.0157E-11, 2.3441E-11,  // F15990
  2.6733E-11, 3.0247E-11, 3.3737E-11, 3.8618E-11, 4.1343E-11,  // F16000
  4.3870E-11, 4.4685E-11, 4.4881E-11, 4.5526E-11, 4.3628E-11,  // F16010
  4.4268E-11, 4.6865E-11, 5.3426E-11, 5.4020E-11, 5.3218E-11,  // F16020
  5.4587E-11, 5.6360E-11, 5.7740E-11, 5.6426E-11, 6.0399E-11,  // F16030
  6.6981E-11, 7.4319E-11, 7.7977E-11, 7.5539E-11, 7.1610E-11,  // F16040
  6.4606E-11, 5.5498E-11, 4.3944E-11, 3.3769E-11, 2.5771E-11,  // F16050
  1.9162E-11, 1.3698E-11, 1.0173E-11, 7.8925E-12, 6.1938E-12,  // F16070
  4.7962E-12, 4.0811E-12, 3.3912E-12, 2.8625E-12, 2.4504E-12,  // F16080
  2.2188E-12, 2.2139E-12, 2.2499E-12, 2.2766E-12, 2.3985E-12,  // F16090
  2.5459E-12, 2.9295E-12, 3.4196E-12, 3.6155E-12, 4.0733E-12,  // F16100
  4.4610E-12, 4.9372E-12, 5.4372E-12, 5.7304E-12, 6.1640E-12,  // F16110
  6.1278E-12, 6.2940E-12, 6.4947E-12, 6.8174E-12, 7.5190E-12,  // F16120
  8.2608E-12, 8.4971E-12, 8.3484E-12, 8.1888E-12, 7.8552E-12,  // F16130
  7.8468E-12, 7.5943E-12, 7.9096E-12, 8.6869E-12, 9.1303E-12,  // F16140
  9.2547E-12, 8.9322E-12, 8.2177E-12, 7.3408E-12, 5.7956E-12,  // F16150
  4.4470E-12, 3.5881E-12, 2.6748E-12, 1.7074E-12, 9.6700E-13,  // F16160
  5.2645E-13, 2.9943E-13, 1.7316E-13, 1.0039E-13, 5.7859E-14,  // F16180
  3.2968E-14, 1.8499E-14, 1.0192E-14, 5.5015E-15, 2.9040E-15,  // F16190
  1.4968E-15, 7.5244E-16, 3.6852E-16, 1.7568E-16, 8.1464E-17,  // F16200
  3.6717E-17, 1.6076E-17, 6.8341E-18, 2.8195E-18, 1.1286E-18,  // F16210
   .0000E+00,  .0000E+00,  .0000E+00,  .0000E+00,  .0000E+00,  // F16220
   .0000E+00,  .0000E+00,  .0000E+00,  .0000E+00, 1.4070E-18,  // F16230
  3.0405E-18, 6.4059E-18, 1.3169E-17, 2.6443E-17, 5.1917E-17,  // F16240
  9.9785E-17, 1.8802E-16, 3.4788E-16, 6.3328E-16, 1.1370E-15,  // F16250
  2.0198E-15, 3.5665E-15, 6.3053E-15, 1.1309E-14, 2.1206E-14,  // F16260
  3.2858E-14, 5.5165E-14, 8.6231E-14, 1.2776E-13, 1.7780E-13,  // F16270
  2.5266E-13, 3.6254E-13, 5.1398E-13, 6.8289E-13, 8.7481E-13,  // F16290
  1.1914E-12, 1.6086E-12, 2.0469E-12, 2.5761E-12, 3.4964E-12,  // F16300
  4.4980E-12, 5.5356E-12, 6.7963E-12, 8.5720E-12, 1.0700E-11,  // F16310
  1.2983E-11, 1.6270E-11, 1.9609E-11, 2.2668E-11, 2.5963E-11,  // F16320
  3.0918E-11, 3.4930E-11, 3.9330E-11, 4.4208E-11, 4.6431E-11,  // F16330
  5.1141E-11, 5.4108E-11, 5.8077E-11, 6.5050E-11, 7.2126E-11,  // F16340
  8.1064E-11, 8.1973E-11, 8.1694E-11, 8.3081E-11, 8.0240E-11,  // F16350
  7.9225E-11, 7.6256E-11, 7.8468E-11, 8.0041E-11, 8.1585E-11,  // F16360
  8.3485E-11, 8.3774E-11, 8.5870E-11, 8.6104E-11, 8.8516E-11,  // F16370
  9.0814E-11, 9.2522E-11, 8.8913E-11, 7.8381E-11, 6.8568E-11,  // F16380
  5.6797E-11, 4.4163E-11, 3.2369E-11, 2.3259E-11, 1.6835E-11,  // F16400
  1.1733E-11, 8.5273E-12, 6.3805E-12, 4.8983E-12, 3.8831E-12,  // F16410
  3.2610E-12, 2.8577E-12, 2.5210E-12, 2.2913E-12, 2.0341E-12,  // F16420
  1.8167E-12, 1.6395E-12, 1.4890E-12, 1.3516E-12, 1.2542E-12,  // F16430
  1.2910E-12, 1.3471E-12, 1.4689E-12, 1.5889E-12, 1.6989E-12,  // F16440
  1.8843E-12, 2.0902E-12, 2.3874E-12, 2.7294E-12, 3.3353E-12,  // F16450
  4.0186E-12, 4.5868E-12, 5.2212E-12, 5.8856E-12, 6.5991E-12,  // F16460
  7.2505E-12, 7.6637E-12, 8.5113E-12, 9.4832E-12, 9.9678E-12,  // F16470
  1.0723E-11, 1.0749E-11, 1.1380E-11, 1.1774E-11, 1.1743E-11,  // F16480
  1.2493E-11, 1.2559E-11, 1.2332E-11, 1.1782E-11, 1.1086E-11,  // F16490
  1.0945E-11, 1.1178E-11, 1.2083E-11, 1.3037E-11, 1.4730E-11,  // F16510
  1.6450E-11, 1.7403E-11, 1.7004E-11, 1.5117E-11, 1.3339E-11,  // F16520
  1.0844E-11, 8.0915E-12, 5.6615E-12, 3.7196E-12, 2.5194E-12,  // F16530
  1.6569E-12, 1.1201E-12, 8.2335E-13, 6.0270E-13, 4.8205E-13,  // F16540
  4.1313E-13, 3.6243E-13, 3.2575E-13, 2.7730E-13, 2.5292E-13,  // F16550
  2.3062E-13, 2.1126E-13, 2.1556E-13, 2.1213E-13, 2.2103E-13,  // F16560
  2.1927E-13, 2.0794E-13, 1.9533E-13, 1.6592E-13, 1.4521E-13,  // F16570
  1.1393E-13, 8.3772E-14, 6.2077E-14, 4.3337E-14, 2.7165E-14,  // F16580
  1.6821E-14, 9.5407E-15, 5.3093E-15, 3.0320E-15, 1.7429E-15,  // F16590
  9.9828E-16, 5.6622E-16, 3.1672E-16, 1.7419E-16, 9.3985E-17,  // F16600
  4.9656E-17, 2.5652E-17, 1.2942E-17, 6.3695E-18, 3.0554E-18,  // F16620
  1.4273E-18, -0.       , -0.       , -0.       , -0.       ,  // F16630
  -0.       , 0.        , 0.        , 0.        , 0.        ,  // F16640
  0.        , 0.        , 0.        , 0.        , 0.        ,  // F16650
  0.        , 0.        , 0.        , 0.        , 0.        ,  // F16660
  0.        , 0.        , 0.        , 0.        , 0.        ,  // F16670
  0.        , 0.        , 0.        , 0.        , 0.        ,  // F16680
  0.        , 0.        , 0.        , 0.        , 0.        ,  // F16690
  0.        , 0.        , 0.        , 0.        , 0.        ,  // F16700
  0.        , 0.        , 0.        , 0.        , 0.        ,  // F16710
  0.        , 0.        , 0.        , 0.        , 0.        ,  // F16730
  0.        , 0.        , 0.        , 0.        , 0.        ,  // F16740
  0.        , 0.        , 0.        , 0.        , 0.        ,  // F16750
  0.        , 0.        , 0.        , 0.        , 0.        ,  // F16760
  0.        , 0.        , 0.        , 0.        , 0.        ,  // F16770
  0.        , 0.        , 0.        , 0.        , 0.        ,  // F16780
  0.        , 0.        , 0.        , 0.        , 0.        ,  // F16790
  0.        , 0.        , 0.        , 0.        , 0.        ,  // F16800
  0.        , 0.        , 0.        , 0.        , 0.        ,  // F16810
  0.        , 0.        , 0.        , 0.        , 0.        ,  // F16820
  0.        , 0.        , 0.        , 0.        , 0.        ,  // F16840
  0.        , 0.        , 0.        , 0.        , 0.        ,  // F16850
  0.        , 0.        , 0.        , 0.        , 0.        ,  // F16860
  0.        , 0.        , 0.        , 0.        , 0.        ,  // F16870
  0.        , 0.        , 0.        , 0.        , 0.        ,  // F16880
  0.        , 0.        , 0.        , 0.        , 0.        ,  // F16890
  0.        , 0.        , 0.        , 0.        , 0.        ,  // F16900
  0.        , 0.        , 0.        , 0.        , 0.        ,  // F16910
  0.        , 0.        , 0.        , 0.        , 0.        ,  // F16920
  0.        , 0.        , 0.        , 0.        , 0.        ,  // F16930
  0.        , 0.        , 0.        , 0.        , 0.        ,  // F16950
  0.        , 0.        , 0.        , 0.        , 0.        ,  // F16960
  0.        , 0.        , 0.        , 0.        , 0.        ,  // F16970
  0.        , 0.        , 0.        , 0.        , 0.        ,  // F16980
  0.        , 0.        , 0.        , 0.        , 0.        ,  // F16990
  0.        , 0.        , 0.        , 0.        , 0.        ,  // F17000
  0.        , 0.        , 0.        , 0.        , 0.        ,  // F17010
  0.        , 0.        , 0.        , 0.        , 0.        ,  // F17020
  0.        , 0.        , 0.        , 0.        , 0.        ,  // F17030
  0.        , 0.        , 0.        , 0.        , 0.        ,  // F17040
  0.};
 
 
 
 
 
 
// H2O self continuum parameters at T=260 K for the CKD versions 0 to 2.4.2
// date of last update: 06/28/82
// units of (CM**3/MOL)*1.E-20
const Numeric SL260_ckd_0_v1  =   -20.0;
const Numeric SL260_ckd_0_v2  = 20000.0;
const Numeric SL260_ckd_0_dv  =    10.0;
const int     SL260_ckd_0_npt =  2003;
const double  SL260_ckd_0[SL260_ckd_0_npt+addF77fields] = {
  0.0000e-00, 1.7750e-01, 1.7045e-01, 
  1.6457e-01, 1.7045e-01, 1.7750e-01, 2.0036e-01, 2.1347e-01,  // f07700
  2.2454e-01, 2.3428e-01, 2.3399e-01, 2.3022e-01, 2.0724e-01,  // f07710
  1.9712e-01, 1.8317e-01, 1.6724e-01, 1.4780e-01, 1.2757e-01,  // f07720
  1.1626e-01, 1.0098e-01, 8.9033e-02, 7.9770e-02, 6.7416e-02,  // f07730
  5.9588e-02, 5.1117e-02, 4.6218e-02, 4.2179e-02, 3.4372e-02,  // f07740
  2.9863e-02, 2.5252e-02, 2.2075e-02, 1.9209e-02, 1.5816e-02,  // f07750
  1.3932e-02, 1.1943e-02, 1.0079e-02, 8.7667e-03, 7.4094e-03,  // f07760
  6.4967e-03, 5.5711e-03, 4.8444e-03, 4.2552e-03, 3.6953e-03,  // f07770
  3.2824e-03, 2.9124e-03, 2.6102e-03, 2.3370e-03, 2.1100e-03,  // f07780
  1.9008e-03, 1.7145e-03, 1.5573e-03, 1.4206e-03, 1.2931e-03,  // f07790
  1.1803e-03, 1.0774e-03, 9.8616e-04, 9.0496e-04, 8.3071e-04,  // f07810
  7.6319e-04, 7.0149e-04, 6.4637e-04, 5.9566e-04, 5.4987e-04,  // f07820
  5.0768e-04, 4.6880e-04, 4.3317e-04, 4.0037e-04, 3.7064e-04,  // f07830
  3.4325e-04, 3.1809e-04, 2.9501e-04, 2.7382e-04, 2.5430e-04,  // f07840
  2.3630e-04, 2.1977e-04, 2.0452e-04, 1.9042e-04, 1.7740e-04,  // f07850
  1.6544e-04, 1.5442e-04, 1.4425e-04, 1.3486e-04, 1.2618e-04,  // f07860
  1.1817e-04, 1.1076e-04, 1.0391e-04, 9.7563e-05, 9.1696e-05,  // f07870
  8.6272e-05, 8.1253e-05, 7.6607e-05, 7.2302e-05, 6.8311e-05,  // f07880
  6.4613e-05, 6.1183e-05, 5.8001e-05, 5.5048e-05, 5.2307e-05,  // f07890
  4.9761e-05, 4.7395e-05, 4.5197e-05, 4.3155e-05, 4.1256e-05,  // f07900
  3.9491e-05, 3.7849e-05, 3.6324e-05, 3.4908e-05, 3.3594e-05,  // f07920
  3.2374e-05, 3.1244e-05, 3.0201e-05, 2.9240e-05, 2.8356e-05,  // f07930
  2.7547e-05, 2.6814e-05, 2.6147e-05, 2.5551e-05, 2.5029e-05,  // f07940
  2.4582e-05, 2.4203e-05, 2.3891e-05, 2.3663e-05, 2.3531e-05,  // f07950
  2.3483e-05, 2.3516e-05, 2.3694e-05, 2.4032e-05, 2.4579e-05,  // f07960
  2.5234e-05, 2.6032e-05, 2.7119e-05, 2.8631e-05, 3.0848e-05,  // f07970
  3.3262e-05, 3.6635e-05, 4.0732e-05, 4.5923e-05, 5.3373e-05,  // f07980
  6.1875e-05, 7.2031e-05, 8.5980e-05, 9.8642e-05, 1.1469e-04,  // f07990
  1.3327e-04, 1.5390e-04, 1.7513e-04, 2.0665e-04, 2.3609e-04,  // f08000
  2.6220e-04, 2.8677e-04, 3.2590e-04, 3.8624e-04, 4.1570e-04,  // f08010
  4.5207e-04, 4.9336e-04, 5.4500e-04, 5.8258e-04, 5.8086e-04,  // f08030
  5.6977e-04, 5.3085e-04, 4.8020e-04, 4.3915e-04, 4.0343e-04,  // f08040
  3.7853e-04, 3.7025e-04, 3.9637e-04, 4.4675e-04, 4.7072e-04,  // f08050
  4.9022e-04, 5.2076e-04, 5.3676e-04, 5.2755e-04, 4.8244e-04,  // f08060
  4.5473e-04, 4.3952e-04, 3.9614e-04, 3.4086e-04, 2.9733e-04,  // f08070
  2.6367e-04, 2.3767e-04, 2.0427e-04, 1.7595e-04, 1.5493e-04,  // f08080
  1.3851e-04, 1.1874e-04, 1.0735e-04, 9.0490e-05, 8.1149e-05,  // f08090
  7.4788e-05, 6.5438e-05, 5.8248e-05, 4.8076e-05, 4.3488e-05,  // f08100
  3.7856e-05, 3.3034e-05, 2.9592e-05, 2.6088e-05, 2.3497e-05,  // f08110
  2.0279e-05, 1.7526e-05, 1.5714e-05, 1.3553e-05, 1.2145e-05,  // f08120
  1.0802e-05, 9.7681e-06, 8.8196e-06, 7.8291e-06, 7.1335e-06,  // f08140
  6.4234e-06, 5.8391e-06, 5.3532e-06, 4.9079e-06, 4.5378e-06,  // f08150
  4.1716e-06, 3.8649e-06, 3.5893e-06, 3.3406e-06, 3.1199e-06,  // f08160
  2.9172e-06, 2.7348e-06, 2.5644e-06, 2.4086e-06, 2.2664e-06,  // f08170
  2.1359e-06, 2.0159e-06, 1.9051e-06, 1.8031e-06, 1.7074e-06,  // f08180
  1.6185e-06, 1.5356e-06, 1.4584e-06, 1.3861e-06, 1.3179e-06,  // f08190
  1.2545e-06, 1.1951e-06, 1.1395e-06, 1.0873e-06, 1.0384e-06,  // f08200
  9.9250e-07, 9.4935e-07, 9.0873e-07, 8.7050e-07, 8.3446e-07,  // f08210
  8.0046e-07, 7.6834e-07, 7.3800e-07, 7.0931e-07, 6.8217e-07,  // f08220
  6.5648e-07, 6.3214e-07, 6.0909e-07, 5.8725e-07, 5.6655e-07,  // f08230
  5.4693e-07, 5.2835e-07, 5.1077e-07, 4.9416e-07, 4.7853e-07,  // f08250
  4.6381e-07, 4.5007e-07, 4.3728e-07, 4.2550e-07, 4.1450e-07,  // f08260
  4.0459e-07, 3.9532e-07, 3.8662e-07, 3.7855e-07, 3.7041e-07,  // f08270
  3.6254e-07, 3.5420e-07, 3.4617e-07, 3.3838e-07, 3.3212e-07,  // f08280
  3.2655e-07, 3.1865e-07, 3.1203e-07, 3.0670e-07, 3.0252e-07,  // f08290
  2.9749e-07, 2.9184e-07, 2.8795e-07, 2.8501e-07, 2.8202e-07,  // f08300
  2.7856e-07, 2.7509e-07, 2.7152e-07, 2.6844e-07, 2.6642e-07,  // f08310
  2.6548e-07, 2.6617e-07, 2.6916e-07, 2.7372e-07, 2.8094e-07,  // f08320
  2.9236e-07, 3.1035e-07, 3.2854e-07, 3.5481e-07, 3.9377e-07,  // f08330
  4.4692e-07, 5.0761e-07, 5.7715e-07, 6.7725e-07, 8.0668e-07,  // f08340
  9.3716e-07, 1.0797e-06, 1.1689e-06, 1.3217e-06, 1.4814e-06,  // f08360
  1.5627e-06, 1.6519e-06, 1.7601e-06, 1.9060e-06, 2.0474e-06,  // f08370
  2.0716e-06, 2.0433e-06, 1.9752e-06, 1.8466e-06, 1.7526e-06,  // f08380
  1.6657e-06, 1.5870e-06, 1.5633e-06, 1.6520e-06, 1.8471e-06,  // f08390
  1.9953e-06, 2.0975e-06, 2.2016e-06, 2.2542e-06, 2.3081e-06,  // f08400
  2.3209e-06, 2.2998e-06, 2.3056e-06, 2.2757e-06, 2.2685e-06,  // f08410
  2.2779e-06, 2.2348e-06, 2.2445e-06, 2.3174e-06, 2.4284e-06,  // f08420
  2.5290e-06, 2.7340e-06, 2.9720e-06, 3.2332e-06, 3.5392e-06,  // f08430
  3.9013e-06, 4.3334e-06, 4.9088e-06, 5.3428e-06, 5.9142e-06,  // f08440
  6.6106e-06, 7.4709e-06, 8.5019e-06, 9.6835e-06, 1.0984e-05,  // f08450
  1.2831e-05, 1.4664e-05, 1.7080e-05, 2.0103e-05, 2.4148e-05,  // f08470
  2.7948e-05, 3.2855e-05, 3.9046e-05, 4.6429e-05, 5.6633e-05,  // f08480
  6.6305e-05, 7.6048e-05, 8.7398e-05, 1.0034e-04, 1.1169e-04,  // f08490
  1.2813e-04, 1.3354e-04, 1.3952e-04, 1.4204e-04, 1.4615e-04,  // f08500
  1.5144e-04, 1.5475e-04, 1.6561e-04, 1.7135e-04, 1.6831e-04,  // f08510
  1.6429e-04, 1.6353e-04, 1.6543e-04, 1.5944e-04, 1.5404e-04,  // f08520
  1.5458e-04, 1.6287e-04, 1.7277e-04, 1.8387e-04, 1.7622e-04,  // f08530
  1.6360e-04, 1.5273e-04, 1.3667e-04, 1.2364e-04, 9.7576e-05,  // f08540
  7.9140e-05, 6.4241e-05, 5.1826e-05, 4.1415e-05, 3.1347e-05,  // f08550
  2.5125e-05, 2.0027e-05, 1.6362e-05, 1.3364e-05, 1.1117e-05,  // f08560
  9.4992e-06, 8.1581e-06, 7.1512e-06, 6.2692e-06, 5.5285e-06,  // f08580
  4.9000e-06, 4.3447e-06, 3.8906e-06, 3.4679e-06, 3.1089e-06,  // f08590
  2.8115e-06, 2.5496e-06, 2.2982e-06, 2.0861e-06, 1.8763e-06,  // f08600
  1.7035e-06, 1.5548e-06, 1.4107e-06, 1.2839e-06, 1.1706e-06,  // f08610
  1.0709e-06, 9.8099e-07, 8.9901e-07, 8.2394e-07, 7.5567e-07,  // f08620
  6.9434e-07, 6.3867e-07, 5.8845e-07, 5.4263e-07, 5.0033e-07,  // f08630
  4.6181e-07, 4.2652e-07, 3.9437e-07, 3.6497e-07, 3.3781e-07,  // f08640
  3.1292e-07, 2.9011e-07, 2.6915e-07, 2.4989e-07, 2.3215e-07,  // f08650
  2.1582e-07, 2.0081e-07, 1.8700e-07, 1.7432e-07, 1.6264e-07,  // f08660
  1.5191e-07, 1.4207e-07, 1.3306e-07, 1.2484e-07, 1.1737e-07,  // f08670
  1.1056e-07, 1.0451e-07, 9.9060e-08, 9.4135e-08, 8.9608e-08,  // f08690
  8.5697e-08, 8.1945e-08, 7.8308e-08, 7.4808e-08, 7.1686e-08,  // f08700
  6.8923e-08, 6.5869e-08, 6.3308e-08, 6.0840e-08, 5.8676e-08,  // f08710
  5.6744e-08, 5.5016e-08, 5.3813e-08, 5.2792e-08, 5.2097e-08,  // f08720
  5.1737e-08, 5.1603e-08, 5.1656e-08, 5.1989e-08, 5.2467e-08,  // f08730
  5.2918e-08, 5.3589e-08, 5.4560e-08, 5.5869e-08, 5.7403e-08,  // f08740
  5.8968e-08, 6.0973e-08, 6.3432e-08, 6.6245e-08, 6.9353e-08,  // f08750
  7.2686e-08, 7.6541e-08, 8.0991e-08, 8.5950e-08, 9.1429e-08,  // f08760
  9.7851e-08, 1.0516e-07, 1.1349e-07, 1.2295e-07, 1.3335e-07,  // f08770
  1.4488e-07, 1.5864e-07, 1.7412e-07, 1.9140e-07, 2.1078e-07,  // f08780
  2.3369e-07, 2.5996e-07, 2.8848e-07, 3.2169e-07, 3.5991e-07,  // f08800
  4.0566e-07, 4.5969e-07, 5.3094e-07, 6.1458e-07, 7.1155e-07,  // f08810
  8.3045e-07, 9.9021e-07, 1.2042e-06, 1.4914e-06, 1.8145e-06,  // f08820
  2.2210e-06, 2.7831e-06, 3.4533e-06, 4.4446e-06, 5.1989e-06,  // f08830
  6.2289e-06, 7.1167e-06, 8.3949e-06, 9.6417e-06, 1.0313e-05,  // f08840
  1.0485e-05, 1.0641e-05, 1.0898e-05, 1.0763e-05, 1.0506e-05,  // f08850
  1.0497e-05, 1.1696e-05, 1.2654e-05, 1.3029e-05, 1.3175e-05,  // f08860
  1.4264e-05, 1.4985e-05, 1.4999e-05, 1.4317e-05, 1.4616e-05,  // f08870
  1.4963e-05, 1.5208e-05, 1.4942e-05, 1.3879e-05, 1.3087e-05,  // f08880
  1.1727e-05, 1.0515e-05, 9.0073e-06, 7.3133e-06, 6.1181e-06,  // f08890
  5.0623e-06, 4.1105e-06, 3.3915e-06, 2.6711e-06, 2.1464e-06,  // f08910
  1.7335e-06, 1.4302e-06, 1.1847e-06, 9.9434e-07, 8.2689e-07,  // f08920
  7.0589e-07, 6.0750e-07, 5.3176e-07, 4.6936e-07, 4.1541e-07,  // f08930
  3.6625e-07, 3.2509e-07, 2.9156e-07, 2.6308e-07, 2.3819e-07,  // f08940
  2.1421e-07, 1.9366e-07, 1.7626e-07, 1.5982e-07, 1.4567e-07,  // f08950
  1.3354e-07, 1.2097e-07, 1.1029e-07, 1.0063e-07, 9.2003e-08,  // f08960
  8.4245e-08, 7.7004e-08, 7.0636e-08, 6.4923e-08, 5.9503e-08,  // f08970
  5.4742e-08, 5.0450e-08, 4.6470e-08, 4.2881e-08, 3.9550e-08,  // f08980
  3.6541e-08, 3.3803e-08, 3.1279e-08, 2.8955e-08, 2.6858e-08,  // f08990
  2.4905e-08, 2.3146e-08, 2.1539e-08, 2.0079e-08, 1.8746e-08,  // f09000
  1.7517e-08, 1.6396e-08, 1.5369e-08, 1.4426e-08, 1.3543e-08,  // f09020
  1.2724e-08, 1.1965e-08, 1.1267e-08, 1.0617e-08, 1.0010e-08,  // f09030
  9.4662e-09, 8.9553e-09, 8.4988e-09, 8.0807e-09, 7.7043e-09,  // f09040
  7.3721e-09, 7.0707e-09, 6.8047e-09, 6.5702e-09, 6.3634e-09,  // f09050
  6.1817e-09, 6.0239e-09, 5.8922e-09, 5.7824e-09, 5.7019e-09,  // f09060
  5.6368e-09, 5.5940e-09, 5.5669e-09, 5.5583e-09, 5.5653e-09,  // f09070
  5.5837e-09, 5.6243e-09, 5.6883e-09, 5.7800e-09, 5.8964e-09,  // f09080
  6.0429e-09, 6.2211e-09, 6.4282e-09, 6.6634e-09, 6.9306e-09,  // f09090
  7.2336e-09, 7.5739e-09, 7.9562e-09, 8.3779e-09, 8.8575e-09,  // f09100
  9.3992e-09, 1.0004e-08, 1.0684e-08, 1.1450e-08, 1.2320e-08,  // f09110
  1.3311e-08, 1.4455e-08, 1.5758e-08, 1.7254e-08, 1.8927e-08,  // f09130
  2.0930e-08, 2.3348e-08, 2.6074e-08, 2.9221e-08, 3.2770e-08,  // f09140
  3.7485e-08, 4.2569e-08, 4.8981e-08, 5.5606e-08, 6.2393e-08,  // f09150
  7.1901e-08, 8.2921e-08, 9.5513e-08, 1.1111e-07, 1.3143e-07,  // f09160
  1.5971e-07, 1.8927e-07, 2.2643e-07, 2.7860e-07, 3.2591e-07,  // f09170
  3.7024e-07, 4.2059e-07, 4.9432e-07, 5.5543e-07, 5.7498e-07,  // f09180
  5.9210e-07, 6.1005e-07, 6.1577e-07, 5.9193e-07, 5.6602e-07,  // f09190
  5.7403e-07, 6.0050e-07, 6.4723e-07, 6.7073e-07, 7.5415e-07,  // f09200
  8.0982e-07, 8.7658e-07, 9.1430e-07, 9.4459e-07, 9.8347e-07,  // f09210
  9.8768e-07, 1.0153e-06, 1.0066e-06, 1.0353e-06, 1.0353e-06,  // f09220
  1.0722e-06, 1.1138e-06, 1.1923e-06, 1.2947e-06, 1.4431e-06,  // f09240
  1.6537e-06, 1.8662e-06, 2.2473e-06, 2.6464e-06, 3.1041e-06,  // f09250
  3.4858e-06, 4.0167e-06, 4.6675e-06, 5.0983e-06, 5.7997e-06,  // f09260
  6.0503e-06, 6.4687e-06, 6.5396e-06, 6.7986e-06, 7.0244e-06,  // f09270
  7.2305e-06, 7.6732e-06, 7.9783e-06, 7.9846e-06, 7.7617e-06,  // f09280
  7.7657e-06, 7.7411e-06, 7.8816e-06, 7.8136e-06, 8.0051e-06,  // f09290
  8.5799e-06, 9.1659e-06, 9.8646e-06, 9.4920e-06, 8.7670e-06,  // f09300
  8.2034e-06, 7.2297e-06, 6.2324e-06, 4.9315e-06, 3.9128e-06,  // f09310
  3.1517e-06, 2.4469e-06, 1.8815e-06, 1.4627e-06, 1.1698e-06,  // f09320
  9.4686e-07, 7.8486e-07, 6.6970e-07, 5.8811e-07, 5.2198e-07,  // f09330
  4.6809e-07, 4.1671e-07, 3.7006e-07, 3.3066e-07, 2.9387e-07,  // f09350
  2.6415e-07, 2.3409e-07, 2.0991e-07, 1.9132e-07, 1.7519e-07,  // f09360
  1.5939e-07, 1.4368e-07, 1.3050e-07, 1.1883e-07, 1.0772e-07,  // f09370
  9.6884e-08, 8.7888e-08, 7.8956e-08, 7.1024e-08, 6.3824e-08,  // f09380
  5.7256e-08, 5.1769e-08, 4.7037e-08, 4.2901e-08, 3.8970e-08,  // f09390
  3.5467e-08, 3.2502e-08, 2.9827e-08, 2.7389e-08, 2.5111e-08,  // f09400
  2.3056e-08, 2.1267e-08, 1.9610e-08, 1.8133e-08, 1.6775e-08,  // f09410
  1.5491e-08, 1.4329e-08, 1.3265e-08, 1.2300e-08, 1.1420e-08,  // f09420
  1.0593e-08, 9.8475e-09, 9.1585e-09, 8.5256e-09, 7.9525e-09,  // f09430
  7.4226e-09, 6.9379e-09, 6.4950e-09, 6.0911e-09, 5.7242e-09,  // f09440
  5.3877e-09, 5.0821e-09, 4.8051e-09, 4.5554e-09, 4.3315e-09,  // f09460
  4.1336e-09, 3.9632e-09, 3.8185e-09, 3.7080e-09, 3.6296e-09,  // f09470
  3.5804e-09, 3.5776e-09, 3.6253e-09, 3.7115e-09, 3.8151e-09,  // f09480
  3.9804e-09, 4.1742e-09, 4.3581e-09, 4.5306e-09, 4.7736e-09,  // f09490
  5.1297e-09, 5.5291e-09, 5.9125e-09, 6.4956e-09, 7.0362e-09,  // f09500
  7.5318e-09, 7.9947e-09, 8.6438e-09, 9.7227e-09, 1.0130e-08,  // f09510
  1.0549e-08, 1.1064e-08, 1.1702e-08, 1.2043e-08, 1.1781e-08,  // f09520
  1.1838e-08, 1.1917e-08, 1.2131e-08, 1.2476e-08, 1.3611e-08,  // f09530
  1.4360e-08, 1.5057e-08, 1.6247e-08, 1.7284e-08, 1.8420e-08,  // f09540
  1.8352e-08, 1.8722e-08, 1.9112e-08, 1.9092e-08, 1.9311e-08,  // f09550
  1.9411e-08, 1.9884e-08, 2.0508e-08, 2.1510e-08, 2.3143e-08,  // f09570
  2.5050e-08, 2.7596e-08, 3.1231e-08, 3.6260e-08, 4.3410e-08,  // f09580
  5.2240e-08, 6.3236e-08, 7.7522e-08, 9.8688e-08, 1.1859e-07,  // f09590
  1.4341e-07, 1.6798e-07, 1.9825e-07, 2.2898e-07, 2.6257e-07,  // f09600
  2.9884e-07, 3.3247e-07, 3.4936e-07, 3.5583e-07, 3.7150e-07,  // f09610
  3.6580e-07, 3.7124e-07, 3.7030e-07, 4.1536e-07, 4.6656e-07,  // f09620
  4.6677e-07, 4.7507e-07, 4.9653e-07, 5.3795e-07, 5.4957e-07,  // f09630
  5.2238e-07, 5.4690e-07, 5.6569e-07, 5.9844e-07, 5.9835e-07,  // f09640
  5.6522e-07, 5.4123e-07, 4.7904e-07, 4.2851e-07, 3.5603e-07,  // f09650
  2.8932e-07, 2.3655e-07, 1.8592e-07, 1.4943e-07, 1.1971e-07,  // f09660
  9.8482e-08, 8.3675e-08, 7.1270e-08, 6.2496e-08, 5.4999e-08,  // f09680
  4.9821e-08, 4.5387e-08, 4.1340e-08, 3.7453e-08, 3.3298e-08,  // f09690
  3.0120e-08, 2.7032e-08, 2.4236e-08, 2.1500e-08, 1.8988e-08,  // f09700
  1.7414e-08, 1.5706e-08, 1.4192e-08, 1.3204e-08, 1.1759e-08,  // f09710
  1.0737e-08, 9.6309e-09, 8.8179e-09, 8.2619e-09, 7.2264e-09,  // f09720
  6.4856e-09, 5.8037e-09, 5.2093e-09, 4.7205e-09, 4.1749e-09,  // f09730
  3.7852e-09, 3.3915e-09, 3.0089e-09, 2.7335e-09, 2.4398e-09,  // f09740
  2.2031e-09, 1.9786e-09, 1.7890e-09, 1.6266e-09, 1.4830e-09,  // f09750
  1.3576e-09, 1.2518e-09, 1.1587e-09, 1.0726e-09, 9.9106e-10,  // f09760
  9.1673e-10, 8.5084e-10, 7.9147e-10, 7.2882e-10, 6.7342e-10,  // f09770
  6.2593e-10, 5.8294e-10, 5.4435e-10, 5.0997e-10, 4.7806e-10,  // f09790
  4.4931e-10, 4.2357e-10, 4.0023e-10, 3.7909e-10, 3.5999e-10,  // f09800
  3.4285e-10, 3.2776e-10, 3.1468e-10, 3.0377e-10, 2.9479e-10,  // f09810
  2.8877e-10, 2.8512e-10, 2.8617e-10, 2.8976e-10, 3.0001e-10,  // f09820
  3.1718e-10, 3.3898e-10, 3.5857e-10, 3.8358e-10, 4.3131e-10,  // f09830
  4.5741e-10, 4.6948e-10, 4.7594e-10, 4.9529e-10, 5.1563e-10,  // f09840
  4.9475e-10, 4.8369e-10, 4.8829e-10, 5.0047e-10, 5.0203e-10,  // f09850
  5.1954e-10, 5.5352e-10, 5.9928e-10, 6.7148e-10, 7.1121e-10,  // f09860
  7.4317e-10, 7.6039e-10, 7.8313e-10, 8.0684e-10, 7.8553e-10,  // f09870
  7.8312e-10, 7.8537e-10, 7.8872e-10, 8.0185e-10, 8.1004e-10,  // f09880
  8.2608e-10, 8.2525e-10, 8.3857e-10, 8.7920e-10, 9.2451e-10,  // f09900
  9.8661e-10, 1.0629e-09, 1.1659e-09, 1.2922e-09, 1.4387e-09,  // f09910
  1.6254e-09, 1.8425e-09, 2.1428e-09, 2.5477e-09, 3.0379e-09,  // f09920
  3.7570e-09, 4.4354e-09, 5.1802e-09, 6.2769e-09, 7.4894e-09,  // f09930
  8.7474e-09, 9.8037e-09, 1.1582e-08, 1.3293e-08, 1.4471e-08,  // f09940
  1.5025e-08, 1.5580e-08, 1.6228e-08, 1.6413e-08, 1.6020e-08,  // f09950
  1.6393e-08, 1.7545e-08, 1.9590e-08, 2.1449e-08, 2.3856e-08,  // f09960
  2.7050e-08, 3.0214e-08, 3.3733e-08, 3.6487e-08, 3.9353e-08,  // f09970
  4.2660e-08, 4.6385e-08, 4.9955e-08, 5.5313e-08, 6.0923e-08,  // f09980
  6.8948e-08, 7.3649e-08, 8.2602e-08, 9.2212e-08, 9.9080e-08,  // f09990
  1.1319e-07, 1.1790e-07, 1.2941e-07, 1.3199e-07, 1.3914e-07,  // f10010
  1.4843e-07, 1.5300e-07, 1.6419e-07, 1.7095e-07, 1.6988e-07,  // f10020
  1.6494e-07, 1.6327e-07, 1.6067e-07, 1.6909e-07, 1.7118e-07,  // f10030
  1.8106e-07, 1.9857e-07, 2.1696e-07, 2.3385e-07, 2.2776e-07,  // f10040
  2.1402e-07, 1.9882e-07, 1.7362e-07, 1.4308e-07, 1.1158e-07,  // f10050
  8.8781e-08, 6.8689e-08, 5.2062e-08, 4.0427e-08, 3.2669e-08,  // f10060
  2.7354e-08, 2.3200e-08, 2.0580e-08, 1.8676e-08, 1.7329e-08,  // f10070
  1.6621e-08, 1.6433e-08, 1.6953e-08, 1.7134e-08, 1.7948e-08,  // f10080
  1.9107e-08, 1.9875e-08, 2.1416e-08, 2.1556e-08, 2.2265e-08,  // f10090
  2.2171e-08, 2.2534e-08, 2.3029e-08, 2.2828e-08, 2.3143e-08,  // f10100
  2.2965e-08, 2.2223e-08, 2.1108e-08, 2.0265e-08, 1.9516e-08,  // f10120
  1.9941e-08, 2.0312e-08, 2.1080e-08, 2.2611e-08, 2.4210e-08,  // f10130
  2.6069e-08, 2.5097e-08, 2.3318e-08, 2.1543e-08, 1.8942e-08,  // f10140
  1.5960e-08, 1.2386e-08, 9.9340e-09, 7.7502e-09, 5.9462e-09,  // f10150
  4.5113e-09, 3.5523e-09, 2.8844e-09, 2.3394e-09, 1.9584e-09,  // f10160
  1.6749e-09, 1.4624e-09, 1.2809e-09, 1.1359e-09, 1.0087e-09,  // f10170
  9.0166e-10, 8.1079e-10, 7.2219e-10, 6.4922e-10, 5.8803e-10,  // f10180
  5.3290e-10, 4.8590e-10, 4.4111e-10, 4.0184e-10, 3.6644e-10,  // f10190
  3.3529e-10, 3.0789e-10, 2.8286e-10, 2.6089e-10, 2.4125e-10,  // f10200
  2.2355e-10, 2.0783e-10, 1.9370e-10, 1.8088e-10, 1.6948e-10,  // f10210
  1.5929e-10, 1.5013e-10, 1.4193e-10, 1.3470e-10, 1.2841e-10,  // f10230
  1.2307e-10, 1.1865e-10, 1.1502e-10, 1.1243e-10, 1.1099e-10,  // f10240
  1.1066e-10, 1.1216e-10, 1.1529e-10, 1.2171e-10, 1.3128e-10,  // f10250
  1.4153e-10, 1.5962e-10, 1.8048e-10, 2.0936e-10, 2.3165e-10,  // f10260
  2.5746e-10, 2.9600e-10, 3.3707e-10, 3.5267e-10, 3.5953e-10,  // f10270
  3.6822e-10, 3.8363e-10, 3.8286e-10, 3.5883e-10, 3.6154e-10,  // f10280
  3.6653e-10, 3.8507e-10, 4.0250e-10, 4.4435e-10, 4.9889e-10,  // f10290
  5.6932e-10, 6.3599e-10, 7.0281e-10, 7.5777e-10, 8.1279e-10,  // f10300
  8.8910e-10, 9.3400e-10, 1.0076e-09, 1.0945e-09, 1.1898e-09,  // f10310
  1.3108e-09, 1.4725e-09, 1.7028e-09, 1.9619e-09, 2.3527e-09,  // f10320
  2.6488e-09, 3.0327e-09, 3.4396e-09, 3.8797e-09, 4.4115e-09,  // f10340
  4.6853e-09, 4.9553e-09, 4.9551e-09, 5.1062e-09, 5.0996e-09,  // f10350
  5.1119e-09, 5.2283e-09, 5.8297e-09, 6.3439e-09, 6.2675e-09,  // f10360
  6.3296e-09, 6.5173e-09, 7.1685e-09, 7.0528e-09, 6.8856e-09,  // f10370
  7.3182e-09, 7.6990e-09, 8.3461e-09, 8.1946e-09, 7.7153e-09,  // f10380
  7.2411e-09, 6.4511e-09, 5.7336e-09, 4.6105e-09, 3.6962e-09,  // f10390
  2.9944e-09, 2.4317e-09, 1.9399e-09, 1.5331e-09, 1.2633e-09,  // f10400
  1.0613e-09, 9.0136e-10, 7.9313e-10, 7.1543e-10, 6.6485e-10,  // f10410
  6.4225e-10, 6.3980e-10, 6.4598e-10, 6.7428e-10, 7.0270e-10,  // f10420
  7.4694e-10, 7.7946e-10, 7.9395e-10, 7.8716e-10, 7.6933e-10,  // f10430
  7.6220e-10, 7.4825e-10, 7.4805e-10, 7.6511e-10, 7.6492e-10,  // f10450
  7.4103e-10, 7.1979e-10, 7.1686e-10, 7.3403e-10, 7.1142e-10,  // f10460
  7.0212e-10, 7.1548e-10, 7.5253e-10, 8.0444e-10, 8.2378e-10,  // f10470
  7.8004e-10, 7.1712e-10, 6.4978e-10, 5.7573e-10, 4.8675e-10,  // f10480
  3.7945e-10, 3.0118e-10, 2.4241e-10, 1.9100e-10, 1.4816e-10,  // f10490
  1.1567e-10, 9.4183e-11, 7.7660e-11, 6.5270e-11, 5.6616e-11,  // f10500
  4.9576e-11, 4.4137e-11, 3.9459e-11, 3.5759e-11, 3.2478e-11,  // f10510
  2.9419e-11, 2.6703e-11, 2.4365e-11, 2.2412e-11, 2.0606e-11,  // f10520
  1.9067e-11, 1.7800e-11, 1.6695e-11, 1.5729e-11, 1.4887e-11,  // f10530
  1.4135e-11, 1.3519e-11, 1.2992e-11, 1.2563e-11, 1.2223e-11,  // f10540
  1.1962e-11, 1.1775e-11, 1.1657e-11, 1.1605e-11, 1.1619e-11,  // f10560
  1.1697e-11, 1.1839e-11, 1.2046e-11, 1.2319e-11, 1.2659e-11,  // f10570
  1.3070e-11, 1.3553e-11, 1.4113e-11, 1.4754e-11, 1.5480e-11,  // f10580
  1.6298e-11, 1.7214e-11, 1.8236e-11, 1.9372e-11, 2.0635e-11,  // f10590
  2.2036e-11, 2.3590e-11, 2.5317e-11, 2.7242e-11, 2.9400e-11,  // f10600
  3.1849e-11, 3.4654e-11, 3.7923e-11, 4.1695e-11, 4.6055e-11,  // f10610
  5.0940e-11, 5.5624e-11, 6.0667e-11, 6.6261e-11, 7.2692e-11,  // f10620
  7.9711e-11, 8.7976e-11, 9.6884e-11, 1.0775e-10, 1.2093e-10,  // f10630
  1.3531e-10, 1.5404e-10, 1.7315e-10, 1.9862e-10, 2.3341e-10,  // f10640
  2.7014e-10, 3.1716e-10, 3.6957e-10, 4.3233e-10, 5.2566e-10,  // f10650
  6.2251e-10, 7.2149e-10, 8.3958e-10, 9.5931e-10, 1.1388e-09,  // f10670
  1.2973e-09, 1.4442e-09, 1.5638e-09, 1.6974e-09, 1.8489e-09,  // f10680
  1.9830e-09, 2.1720e-09, 2.3662e-09, 2.6987e-09, 3.1697e-09,  // f10690
  3.6907e-09, 4.2625e-09, 4.7946e-09, 5.3848e-09, 6.0897e-09,  // f10700
  6.4730e-09, 7.1483e-09, 7.7432e-09, 8.0851e-09, 8.5013e-09,  // f10710
  8.5909e-09, 9.1890e-09, 9.3124e-09, 9.5936e-09, 9.8787e-09,  // f10720
  9.9036e-09, 9.6712e-09, 9.2036e-09, 9.0466e-09, 8.9380e-09,  // f10730
  9.1815e-09, 9.5092e-09, 1.0027e-08, 1.0876e-08, 1.1744e-08,  // f10740
  1.1853e-08, 1.1296e-08, 1.0134e-08, 8.8245e-09, 7.3930e-09,  // f10750
  5.7150e-09, 4.4884e-09, 3.4027e-09, 2.6054e-09, 2.0790e-09,  // f10760
  1.7267e-09, 1.4724e-09, 1.2722e-09, 1.1234e-09, 1.0186e-09,  // f10780
  9.4680e-10, 8.8854e-10, 8.5127e-10, 8.3157e-10, 8.2226e-10,  // f10790
  8.3395e-10, 8.3294e-10, 8.4725e-10, 8.8814e-10, 9.3697e-10,  // f10800
  1.0112e-09, 1.0412e-09, 1.0948e-09, 1.1810e-09, 1.2267e-09,  // f10810
  1.3690e-09, 1.4512e-09, 1.5568e-09, 1.6552e-09, 1.7321e-09,  // f10820
  1.8797e-09, 1.9210e-09, 1.9686e-09, 1.9917e-09, 1.9357e-09,  // f10830
  1.8486e-09, 1.7575e-09, 1.7113e-09, 1.7163e-09, 1.7623e-09,  // f10840
  1.8536e-09, 1.9765e-09, 2.1334e-09, 2.3237e-09, 2.3259e-09,  // f10850
  2.1833e-09, 1.9785e-09, 1.7308e-09, 1.4596e-09, 1.1198e-09,  // f10860
  8.7375e-10, 6.5381e-10, 4.8677e-10, 3.6756e-10, 2.9155e-10,  // f10870
  2.3735e-10, 1.9590e-10, 1.6638e-10, 1.4549e-10, 1.2947e-10,  // f10890
  1.1511e-10, 1.0548e-10, 9.6511e-11, 9.0469e-11, 8.5170e-11,  // f10900
  7.7804e-11, 7.1971e-11, 6.6213e-11, 6.1063e-11, 5.5881e-11,  // f10910
  5.0508e-11, 4.5932e-11, 4.1997e-11, 3.7672e-11, 3.3972e-11,  // f10920
  3.0318e-11, 2.6769e-11, 2.3874e-11, 2.1336e-11, 1.9073e-11,  // f10930
  1.7313e-11, 1.5904e-11, 1.4684e-11, 1.3698e-11, 1.2873e-11,  // f10940
  1.2175e-11, 1.1542e-11, 1.1024e-11, 1.0602e-11, 1.0267e-11,  // f10950
  1.0012e-11, 9.8379e-12, 9.7482e-12, 9.7564e-12, 9.8613e-12,  // f10960
  1.0092e-11, 1.0418e-11, 1.0868e-11, 1.1585e-11, 1.2351e-11,  // f10970
  1.3372e-11, 1.4841e-11, 1.6457e-11, 1.8681e-11, 2.0550e-11,  // f10980
  2.2912e-11, 2.5958e-11, 2.9137e-11, 3.2368e-11, 3.4848e-11,  // f11000
  3.8462e-11, 4.2190e-11, 4.5629e-11, 4.9022e-11, 5.4232e-11,  // f11010
  6.1900e-11, 7.1953e-11, 8.5368e-11, 9.9699e-11, 1.1734e-10,  // f11020
  1.4185e-10, 1.7017e-10, 1.9813e-10, 2.3859e-10, 2.7304e-10,  // f11030
  3.0971e-10, 3.5129e-10, 3.9405e-10, 4.5194e-10, 4.8932e-10,  // f11040
  5.2436e-10, 5.4098e-10, 5.5542e-10, 5.7794e-10, 5.6992e-10,  // f11050
  5.8790e-10, 6.1526e-10, 6.8034e-10, 6.7956e-10, 6.6864e-10,  // f11060
  6.9329e-10, 7.2971e-10, 7.6546e-10, 7.5078e-10, 7.8406e-10,  // f11070
  8.3896e-10, 9.0111e-10, 9.1994e-10, 8.7189e-10, 8.1426e-10,  // f11080
  7.3097e-10, 6.3357e-10, 5.1371e-10, 4.0936e-10, 3.2918e-10,  // f11090
  2.6255e-10, 2.0724e-10, 1.6879e-10, 1.4165e-10, 1.1989e-10,  // f11110
  1.0125e-10, 8.9629e-11, 7.8458e-11, 6.8826e-11, 6.0935e-11,  // f11120
  5.5208e-11, 5.2262e-11, 5.0260e-11, 4.8457e-11, 4.7888e-11,  // f11130
  4.8032e-11, 5.0838e-11, 5.4668e-11, 5.5790e-11, 6.0056e-11,  // f11140
  6.3811e-11, 6.8848e-11, 7.4590e-11, 7.8249e-11, 8.3371e-11,  // f11150
  8.3641e-11, 8.6591e-11, 8.9599e-11, 9.3487e-11, 1.0066e-10,  // f11160
  1.0765e-10, 1.0851e-10, 1.0619e-10, 1.0557e-10, 1.0460e-10,  // f11170
  1.0796e-10, 1.0523e-10, 1.0674e-10, 1.1261e-10, 1.1431e-10,  // f11180
  1.1408e-10, 1.0901e-10, 9.9105e-11, 8.8077e-11, 6.9928e-11,  // f11190
  5.4595e-11, 4.5401e-11, 3.6313e-11, 2.6986e-11, 1.9463e-11,  // f11200
  1.4577e-11, 1.1583e-11, 9.5492e-12, 8.0770e-12, 6.9642e-12,  // f11220
  6.0966e-12, 5.4046e-12, 4.8431e-12, 4.3815e-12, 3.9987e-12,  // f11230
  3.6790e-12, 3.4113e-12, 3.1868e-12, 2.9992e-12, 2.8434e-12,  // f11240
  2.7153e-12, 2.6120e-12, 2.5311e-12, 2.4705e-12, 2.4290e-12,  // f11250
  2.4053e-12, 2.3988e-12, 2.4087e-12, 2.4349e-12, 2.4771e-12,  // f11260
  2.5355e-12, 2.6103e-12, 2.7019e-12, 2.8110e-12, 2.9383e-12,  // f11270
  3.0848e-12, 3.2518e-12, 3.4405e-12, 3.6527e-12, 3.8902e-12,  // f11280
  4.1555e-12, 4.4510e-12, 4.7801e-12, 5.1462e-12, 5.5539e-12,  // f11290
  6.0086e-12, 6.5171e-12, 7.0884e-12, 7.7357e-12, 8.4831e-12,  // f11300
  9.3096e-12, 1.0282e-11, 1.1407e-11, 1.2690e-11, 1.4148e-11,  // f11310
  1.5888e-11, 1.7992e-11, 2.0523e-11, 2.3342e-11, 2.6578e-11,  // f11330
  3.0909e-11, 3.6228e-11, 4.2053e-11, 4.9059e-11, 5.9273e-11,  // f11340
  7.0166e-11, 8.2298e-11, 9.7071e-11, 1.1673e-10, 1.4010e-10,  // f11350
  1.6621e-10, 2.0127e-10, 2.3586e-10, 2.7050e-10, 3.0950e-10,  // f11360
  3.6584e-10, 4.1278e-10, 4.6591e-10, 5.2220e-10, 5.5246e-10,  // f11370
  6.1500e-10, 6.5878e-10, 7.1167e-10, 7.9372e-10, 8.6975e-10,  // f11380
  9.6459e-10, 9.7368e-10, 9.8142e-10, 1.0202e-09, 1.0200e-09,  // f11390
  1.0356e-09, 1.0092e-09, 1.0269e-09, 1.0366e-09, 1.0490e-09,  // f11400
  1.0717e-09, 1.0792e-09, 1.1016e-09, 1.0849e-09, 1.0929e-09,  // f11410
  1.0971e-09, 1.0969e-09, 1.0460e-09, 9.2026e-10, 8.1113e-10,  // f11420
  6.8635e-10, 5.5369e-10, 4.2908e-10, 3.3384e-10, 2.6480e-10,  // f11440
  2.0810e-10, 1.6915e-10, 1.4051e-10, 1.1867e-10, 1.0158e-10,  // f11450
  8.8990e-11, 7.9175e-11, 7.0440e-11, 6.3453e-11, 5.7009e-11,  // f11460
  5.1662e-11, 4.7219e-11, 4.3454e-11, 4.0229e-11, 3.7689e-11,  // f11470
  3.6567e-11, 3.5865e-11, 3.5955e-11, 3.5928e-11, 3.6298e-11,  // f11480
  3.7629e-11, 3.9300e-11, 4.1829e-11, 4.4806e-11, 5.0534e-11,  // f11490
  5.6672e-11, 6.2138e-11, 6.8678e-11, 7.6111e-11, 8.4591e-11,  // f11500
  9.2634e-11, 9.8085e-11, 1.0830e-10, 1.1949e-10, 1.2511e-10,  // f11510
  1.3394e-10, 1.3505e-10, 1.4342e-10, 1.4874e-10, 1.4920e-10,  // f11520
  1.5872e-10, 1.5972e-10, 1.5821e-10, 1.5425e-10, 1.4937e-10,  // f11530
  1.5089e-10, 1.5521e-10, 1.6325e-10, 1.6924e-10, 1.8265e-10,  // f11550
  1.9612e-10, 2.0176e-10, 1.9359e-10, 1.7085e-10, 1.5197e-10,  // f11560
  1.2646e-10, 9.8552e-11, 7.4530e-11, 5.5052e-11, 4.2315e-11,  // f11570
  3.2736e-11, 2.6171e-11, 2.1909e-11, 1.8286e-11, 1.5752e-11,  // f11580
  1.3859e-11, 1.2288e-11, 1.1002e-11, 9.7534e-12, 8.8412e-12,  // f11590
  8.0169e-12, 7.2855e-12, 6.8734e-12, 6.4121e-12, 6.1471e-12,  // f11600
  5.7780e-12, 5.3478e-12, 4.9652e-12, 4.4043e-12, 3.9862e-12,  // f11610
  3.4684e-12, 2.9681e-12, 2.5791e-12, 2.2339e-12, 1.9247e-12,  // f11620
  1.6849e-12, 1.4863e-12, 1.3291e-12, 1.2021e-12, 1.0947e-12,  // f11630
  1.0015e-12, 9.1935e-13, 8.4612e-13, 7.8036e-13, 7.2100e-13,  // f11640
  6.6718e-13, 6.1821e-13, 5.7353e-13, 5.3269e-13, 4.9526e-13,  // f11660
  4.6093e-13, 4.2937e-13, 4.0034e-13, 3.7361e-13, 3.4895e-13,  // f11670
  3.2621e-13, 3.0520e-13, 2.8578e-13, 2.6782e-13, 2.5120e-13,  // f11680
  2.3581e-13, 2.2154e-13, 2.0832e-13, 1.9605e-13, 1.8466e-13,  // f11690
  1.7408e-13, 1.6425e-13, 1.5511e-13, 1.4661e-13, 1.3869e-13,  // f11700
  1.3131e-13, 1.2444e-13, 1.1803e-13, 1.1205e-13, 1.0646e-13,  // f11710
  1.0124e-13, 9.6358e-14, 9.1789e-14, 8.7509e-14, 8.3498e-14,  // f11720
  7.9735e-14, 7.6202e-14, 7.2882e-14, 6.9760e-14, 6.6822e-14,  // f11730
  6.4053e-14, 6.1442e-14, 5.8978e-14, 5.6650e-14, 5.4448e-14,  // f11740
  5.2364e-14, 5.0389e-14, 4.8516e-14, 4.6738e-14, 4.5048e-14,  // f11750
  4.3441e-14, 4.1911e-14, 4.0453e-14, 3.9063e-14, 3.7735e-14,  // f11770
  3.6467e-14, 3.5254e-14, 3.4093e-14, 3.2980e-14, 3.1914e-14,  // f11780
  3.0891e-14, 2.9909e-14, 2.8965e-14, 2.8058e-14, 2.7185e-14,  // f11790
  2.6344e-14, 2.5535e-14, 2.4755e-14, 2.4002e-14, 2.3276e-14,  // f11800
  2.2576e-14, 2.1899e-14, 2.1245e-14, 2.0613e-14, 2.0002e-14,  // f11810
  1.9411e-14, 1.8839e-14, 1.8285e-14, 1.7749e-14, 1.7230e-14,  // f11820
  1.6727e-14, 1.6240e-14, 1.5768e-14, 1.5310e-14, 1.4867e-14,  // f11830
  1.4436e-14, 1.4019e-14, 1.3614e-14, 1.3221e-14, 1.2840e-14,  // f11840
  1.2471e-14, 1.2112e-14, 1.1764e-14, 1.1425e-14, 1.1097e-14,  // f11850
  1.0779e-14, 1.0469e-14, 1.0169e-14, 9.8775e-15, 9.5943e-15,  // f11860
  9.3193e-15, 9.0522e-15, 8.7928e-15, 8.5409e-15, 8.2962e-15,  // f11880
  8.0586e-15, 7.8278e-15, 7.6036e-15, 7.3858e-15, 7.1742e-15,  // f11890
  6.9687e-15, 6.7691e-15, 6.5752e-15, 6.3868e-15, 6.2038e-15,  // f11900
  6.0260e-15, 5.8533e-15, 5.6856e-15, 5.5226e-15, 5.3642e-15,  // f11910
  5.2104e-15, 5.0610e-15, 4.9158e-15, 4.7748e-15, 4.6378e-15,  // f11920
  4.5047e-15, 4.3753e-15, 4.2497e-15, 4.1277e-15, 4.0091e-15,  // f11930
  3.8939e-15, 3.7820e-15, 3.6733e-15, 3.5677e-15, 3.4651e-15,  // f11940
  3.3655e-15, 3.2686e-15, 3.1746e-15, 3.0832e-15, 2.9944e-15,  // f11950
  2.9082e-15, 2.8244e-15, 2.7431e-15, 2.6640e-15, 2.5872e-15,  // f11960
  2.5126e-15, 2.4401e-15, 2.3697e-15, 2.3014e-15, 2.2349e-15,  // f11970
  2.1704e-15, 2.1077e-15, 2.0468e-15, 1.9877e-15, 1.9302e-15,  // f11990
  1.8744e-15, 1.8202e-15, 1.7675e-15, 1.7164e-15, 1.6667e-15,  // f12000
  1.6184e-15, 1.5716e-15, 1.5260e-15, 1.4818e-15, 1.4389e-15,  // f12010
  1.3971e-15, 1.3566e-15, 1.3172e-15, 1.2790e-15, 1.2419e-15,  // f12020
  1.2058e-15, 1.1708e-15, 1.1368e-15, 1.1037e-15, 1.0716e-15,  // f12030
  1.0405e-15, 1.0102e-15, 9.8079e-16, 9.5224e-16, 9.2451e-16,  // f12040
  8.9758e-16, 8.7142e-16, 8.4602e-16, 8.2136e-16, 7.9740e-16,  // f12050
  7.7414e-16, 7.5154e-16, 7.2961e-16, 7.0830e-16, 6.8761e-16,  // f12060
  6.6752e-16, 6.4801e-16, 6.2906e-16, 6.1066e-16, 5.9280e-16,  // f12070
  5.7545e-16, 5.5860e-16, 5.4224e-16, 5.2636e-16, 5.1094e-16,  // f12080
  4.9596e-16};
 
 
 
 
 
 
 
/*
      --------------------------- CKD_MT_1.00 -------------------------
 
      11 February 2003
 
      Release Notes for MT_CKD_1.00
 
      Prepared by S. A. Clough,
                  AER Inc.,
                  131 Harwell Avenue
                  Lexington,  MA  02421
                  clough@aer.com
 
      This is the initial release of the MT_CKD water vapor continuum and
      represents the  first recomputation of the entire self and foreign
      broadened continuum since the original model was developed in the
      1980s.  This version of the continuum is implemented in the line-by-line
      model LBLRTM v7.01 and will be utilized in all related AER Radiative
      Transfer models.
 
      further information can be found under
      http://www.rtweb.aer.com/continuum_frame.html
 
      Transformation from original F77 code to C/C++ by 
      T. Kuhn, iup Bremen, August 2003 
 
      --------------------------- CKD_MT_1.00 -------------------------
 */
 
 
// H2O self continuum parameters at T=296 K
// date of last update: 11/18/02
// units of (CM**3/MOL)*1.E-20
const Numeric SL296_ckd_mt_100_v1  =   -20.0;
const Numeric SL296_ckd_mt_100_v2  = 20000.0;
const Numeric SL296_ckd_mt_100_dv  =    10.0;
const int     SL296_ckd_mt_100_npt =  2003;
const double  SL296_ckd_mt_100[SL296_ckd_mt_100_npt+addF77fields] = {
        0.000e0,    1.720e-01,  1.695e-01,
        1.700e-01,  1.695e-01,  1.720e-01,  1.680e-01,  1.687e-01,
        1.624e-01,  1.606e-01,  1.508e-01,  1.447e-01,  1.344e-01,
        1.214e-01,  1.133e-01,  1.009e-01,  9.217e-02,  8.297e-02,
        6.989e-02,  6.513e-02,  5.469e-02,  5.056e-02,  4.417e-02,
        3.779e-02,  3.484e-02,  2.994e-02,  2.720e-02,  2.325e-02,
        2.063e-02,  1.818e-02,  1.592e-02,  1.405e-02,  1.251e-02,
        1.080e-02,  9.647e-03,  8.424e-03,  7.519e-03,  6.555e-03,
        5.880e-03,  5.136e-03,  4.511e-03,  3.989e-03,  3.509e-03,
        3.114e-03,  2.740e-03,  2.446e-03,  2.144e-03,  1.895e-03,
        1.676e-03,  1.486e-03,  1.312e-03,  1.164e-03,  1.031e-03,
        9.129e-04,  8.106e-04,  7.213e-04,  6.400e-04,  5.687e-04,
        5.063e-04,  4.511e-04,  4.029e-04,  3.596e-04,  3.220e-04,
        2.889e-04,  2.597e-04,  2.337e-04,  2.108e-04,  1.907e-04,
        1.728e-04,  1.570e-04,  1.430e-04,  1.305e-04,  1.195e-04,
        1.097e-04,  1.009e-04,  9.307e-05,  8.604e-05,  7.971e-05,
        7.407e-05,  6.896e-05,  6.433e-05,  6.013e-05,  5.631e-05,
        5.283e-05,  4.963e-05,  4.669e-05,  4.398e-05,  4.148e-05,
        3.917e-05,  3.702e-05,  3.502e-05,  3.316e-05,  3.142e-05,
        2.978e-05,  2.825e-05,  2.681e-05,  2.546e-05,  2.419e-05,
        2.299e-05,  2.186e-05,  2.079e-05,  1.979e-05,  1.884e-05,
        1.795e-05,  1.711e-05,  1.633e-05,  1.559e-05,  1.490e-05,
        1.426e-05,  1.367e-05,  1.312e-05,  1.263e-05,  1.218e-05,
        1.178e-05,  1.143e-05,  1.112e-05,  1.088e-05,  1.070e-05,
        1.057e-05,  1.050e-05,  1.051e-05,  1.059e-05,  1.076e-05,
        1.100e-05,  1.133e-05,  1.180e-05,  1.237e-05,  1.308e-05,
        1.393e-05,  1.483e-05,  1.614e-05,  1.758e-05,  1.930e-05,
        2.123e-05,  2.346e-05,  2.647e-05,  2.930e-05,  3.279e-05,
        3.745e-05,  4.152e-05,  4.813e-05,  5.477e-05,  6.203e-05,
        7.331e-05,  8.056e-05,  9.882e-05,  1.050e-04,  1.210e-04,
        1.341e-04,  1.572e-04,  1.698e-04,  1.968e-04,  2.175e-04,
        2.431e-04,  2.735e-04,  2.867e-04,  3.190e-04,  3.371e-04,
        3.554e-04,  3.726e-04,  3.837e-04,  3.878e-04,  3.864e-04,
        3.858e-04,  3.841e-04,  3.852e-04,  3.815e-04,  3.762e-04,
        3.618e-04,  3.579e-04,  3.450e-04,  3.202e-04,  3.018e-04,
        2.785e-04,  2.602e-04,  2.416e-04,  2.097e-04,  1.939e-04,
        1.689e-04,  1.498e-04,  1.308e-04,  1.170e-04,  1.011e-04,
        9.237e-05,  7.909e-05,  7.006e-05,  6.112e-05,  5.401e-05,
        4.914e-05,  4.266e-05,  3.963e-05,  3.316e-05,  3.037e-05,
        2.598e-05,  2.294e-05,  2.066e-05,  1.813e-05,  1.583e-05,
        1.423e-05,  1.247e-05,  1.116e-05,  9.760e-06,  8.596e-06,
        7.720e-06,  6.825e-06,  6.108e-06,  5.366e-06,  4.733e-06,
        4.229e-06,  3.731e-06,  3.346e-06,  2.972e-06,  2.628e-06,
        2.356e-06,  2.102e-06,  1.878e-06,  1.678e-06,  1.507e-06,
        1.348e-06,  1.210e-06,  1.089e-06,  9.806e-07,  8.857e-07,
        8.004e-07,  7.261e-07,  6.599e-07,  6.005e-07,  5.479e-07,
        5.011e-07,  4.595e-07,  4.219e-07,  3.885e-07,  3.583e-07,
        3.314e-07,  3.071e-07,  2.852e-07,  2.654e-07,  2.474e-07,
        2.311e-07,  2.162e-07,  2.026e-07,  1.902e-07,  1.788e-07,
        1.683e-07,  1.587e-07,  1.497e-07,  1.415e-07,  1.338e-07,
        1.266e-07,  1.200e-07,  1.138e-07,  1.080e-07,  1.027e-07,
        9.764e-08,  9.296e-08,  8.862e-08,  8.458e-08,  8.087e-08,
        7.744e-08,  7.429e-08,  7.145e-08,  6.893e-08,  6.664e-08,
        6.468e-08,  6.322e-08,  6.162e-08,  6.070e-08,  5.992e-08,
        5.913e-08,  5.841e-08,  5.796e-08,  5.757e-08,  5.746e-08,
        5.731e-08,  5.679e-08,  5.577e-08,  5.671e-08,  5.656e-08,
        5.594e-08,  5.593e-08,  5.602e-08,  5.620e-08,  5.693e-08,
        5.725e-08,  5.858e-08,  6.037e-08,  6.249e-08,  6.535e-08,
        6.899e-08,  7.356e-08,  7.918e-08,  8.618e-08,  9.385e-08,
        1.039e-07,  1.158e-07,  1.290e-07,  1.437e-07,  1.650e-07,
        1.871e-07,  2.121e-07,  2.427e-07,  2.773e-07,  3.247e-07,
        3.677e-07,  4.037e-07,  4.776e-07,  5.101e-07,  6.214e-07,
        6.936e-07,  7.581e-07,  8.486e-07,  9.355e-07,  9.942e-07,
        1.063e-06,  1.123e-06,  1.191e-06,  1.215e-06,  1.247e-06,
        1.260e-06,  1.271e-06,  1.284e-06,  1.317e-06,  1.323e-06,
        1.349e-06,  1.353e-06,  1.362e-06,  1.344e-06,  1.329e-06,
        1.336e-06,  1.327e-06,  1.325e-06,  1.359e-06,  1.374e-06,
        1.415e-06,  1.462e-06,  1.526e-06,  1.619e-06,  1.735e-06,
        1.863e-06,  2.034e-06,  2.265e-06,  2.482e-06,  2.756e-06,
        3.103e-06,  3.466e-06,  3.832e-06,  4.378e-06,  4.913e-06,
        5.651e-06,  6.311e-06,  7.169e-06,  8.057e-06,  9.253e-06,
        1.047e-05,  1.212e-05,  1.360e-05,  1.569e-05,  1.776e-05,
        2.020e-05,  2.281e-05,  2.683e-05,  2.994e-05,  3.488e-05,
        3.896e-05,  4.499e-05,  5.175e-05,  6.035e-05,  6.340e-05,
        7.281e-05,  7.923e-05,  8.348e-05,  9.631e-05,  1.044e-04,
        1.102e-04,  1.176e-04,  1.244e-04,  1.283e-04,  1.326e-04,
        1.400e-04,  1.395e-04,  1.387e-04,  1.363e-04,  1.314e-04,
        1.241e-04,  1.228e-04,  1.148e-04,  1.086e-04,  1.018e-04,
        8.890e-05,  8.316e-05,  7.292e-05,  6.452e-05,  5.625e-05,
        5.045e-05,  4.380e-05,  3.762e-05,  3.290e-05,  2.836e-05,
        2.485e-05,  2.168e-05,  1.895e-05,  1.659e-05,  1.453e-05,
        1.282e-05,  1.132e-05,  1.001e-05,  8.836e-06,  7.804e-06,
        6.922e-06,  6.116e-06,  5.429e-06,  4.824e-06,  4.278e-06,
        3.788e-06,  3.371e-06,  2.985e-06,  2.649e-06,  2.357e-06,
        2.090e-06,  1.858e-06,  1.647e-06,  1.462e-06,  1.299e-06,
        1.155e-06,  1.028e-06,  9.142e-07,  8.132e-07,  7.246e-07,
        6.451e-07,  5.764e-07,  5.151e-07,  4.603e-07,  4.121e-07,
        3.694e-07,  3.318e-07,  2.985e-07,  2.690e-07,  2.428e-07,
        2.197e-07,  1.992e-07,  1.810e-07,  1.649e-07,  1.506e-07,
        1.378e-07,  1.265e-07,  1.163e-07,  1.073e-07,  9.918e-08,
        9.191e-08,  8.538e-08,  7.949e-08,  7.419e-08,  6.940e-08,
        6.508e-08,  6.114e-08,  5.761e-08,  5.437e-08,  5.146e-08,
        4.890e-08,  4.636e-08,  4.406e-08,  4.201e-08,  4.015e-08,
        3.840e-08,  3.661e-08,  3.510e-08,  3.377e-08,  3.242e-08,
        3.130e-08,  3.015e-08,  2.918e-08,  2.830e-08,  2.758e-08,
        2.707e-08,  2.656e-08,  2.619e-08,  2.609e-08,  2.615e-08,
        2.630e-08,  2.675e-08,  2.745e-08,  2.842e-08,  2.966e-08,
        3.125e-08,  3.318e-08,  3.565e-08,  3.850e-08,  4.191e-08,
        4.590e-08,  5.059e-08,  5.607e-08,  6.239e-08,  6.958e-08,
        7.796e-08,  8.773e-08,  9.880e-08,  1.114e-07,  1.258e-07,
        1.422e-07,  1.610e-07,  1.822e-07,  2.060e-07,  2.337e-07,
        2.645e-07,  2.996e-07,  3.393e-07,  3.843e-07,  4.363e-07,
        4.935e-07,  5.607e-07,  6.363e-07,  7.242e-07,  8.230e-07,
        9.411e-07,  1.071e-06,  1.232e-06,  1.402e-06,  1.600e-06,
        1.820e-06,  2.128e-06,  2.386e-06,  2.781e-06,  3.242e-06,
        3.653e-06,  4.323e-06,  4.747e-06,  5.321e-06,  5.919e-06,
        6.681e-06,  7.101e-06,  7.983e-06,  8.342e-06,  8.741e-06,
        9.431e-06,  9.952e-06,  1.026e-05,  1.055e-05,  1.095e-05,
        1.095e-05,  1.087e-05,  1.056e-05,  1.026e-05,  9.715e-06,
        9.252e-06,  8.452e-06,  7.958e-06,  7.268e-06,  6.295e-06,
        6.003e-06,  5.000e-06,  4.591e-06,  3.983e-06,  3.479e-06,
        3.058e-06,  2.667e-06,  2.293e-06,  1.995e-06,  1.747e-06,
        1.517e-06,  1.335e-06,  1.165e-06,  1.028e-06,  9.007e-07,
        7.956e-07,  7.015e-07,  6.192e-07,  5.491e-07,  4.859e-07,
        4.297e-07,  3.799e-07,  3.380e-07,  3.002e-07,  2.659e-07,
        2.366e-07,  2.103e-07,  1.861e-07,  1.655e-07,  1.469e-07,
        1.309e-07,  1.162e-07,  1.032e-07,  9.198e-08,  8.181e-08,
        7.294e-08,  6.516e-08,  5.787e-08,  5.163e-08,  4.612e-08,
        4.119e-08,  3.695e-08,  3.308e-08,  2.976e-08,  2.670e-08,
        2.407e-08,  2.171e-08,  1.965e-08,  1.780e-08,  1.617e-08,
        1.470e-08,  1.341e-08,  1.227e-08,  1.125e-08,  1.033e-08,
        9.524e-09,  8.797e-09,  8.162e-09,  7.565e-09,  7.040e-09,
        6.560e-09,  6.129e-09,  5.733e-09,  5.376e-09,  5.043e-09,
        4.750e-09,  4.466e-09,  4.211e-09,  3.977e-09,  3.759e-09,
        3.558e-09,  3.373e-09,  3.201e-09,  3.043e-09,  2.895e-09,
        2.760e-09,  2.635e-09,  2.518e-09,  2.411e-09,  2.314e-09,
        2.230e-09,  2.151e-09,  2.087e-09,  2.035e-09,  1.988e-09,
        1.946e-09,  1.927e-09,  1.916e-09,  1.916e-09,  1.933e-09,
        1.966e-09,  2.018e-09,  2.090e-09,  2.182e-09,  2.299e-09,
        2.442e-09,  2.623e-09,  2.832e-09,  3.079e-09,  3.368e-09,
        3.714e-09,  4.104e-09,  4.567e-09,  5.091e-09,  5.701e-09,
        6.398e-09,  7.194e-09,  8.127e-09,  9.141e-09,  1.035e-08,
        1.177e-08,  1.338e-08,  1.508e-08,  1.711e-08,  1.955e-08,
        2.216e-08,  2.534e-08,  2.871e-08,  3.291e-08,  3.711e-08,
        4.285e-08,  4.868e-08,  5.509e-08,  6.276e-08,  7.262e-08,
        8.252e-08,  9.400e-08,  1.064e-07,  1.247e-07,  1.411e-07,
        1.626e-07,  1.827e-07,  2.044e-07,  2.284e-07,  2.452e-07,
        2.854e-07,  3.026e-07,  3.278e-07,  3.474e-07,  3.693e-07,
        3.930e-07,  4.104e-07,  4.220e-07,  4.439e-07,  4.545e-07,
        4.778e-07,  4.812e-07,  5.018e-07,  4.899e-07,  5.075e-07,
        5.073e-07,  5.171e-07,  5.131e-07,  5.250e-07,  5.617e-07,
        5.846e-07,  6.239e-07,  6.696e-07,  7.398e-07,  8.073e-07,
        9.150e-07,  1.009e-06,  1.116e-06,  1.264e-06,  1.439e-06,
        1.644e-06,  1.856e-06,  2.147e-06,  2.317e-06,  2.713e-06,
        2.882e-06,  2.990e-06,  3.489e-06,  3.581e-06,  4.033e-06,
        4.260e-06,  4.543e-06,  4.840e-06,  4.826e-06,  5.013e-06,
        5.252e-06,  5.277e-06,  5.306e-06,  5.236e-06,  5.123e-06,
        5.171e-06,  4.843e-06,  4.615e-06,  4.385e-06,  3.970e-06,
        3.693e-06,  3.231e-06,  2.915e-06,  2.495e-06,  2.144e-06,
        1.910e-06,  1.639e-06,  1.417e-06,  1.226e-06,  1.065e-06,
        9.290e-07,  8.142e-07,  7.161e-07,  6.318e-07,  5.581e-07,
        4.943e-07,  4.376e-07,  3.884e-07,  3.449e-07,  3.060e-07,
        2.712e-07,  2.412e-07,  2.139e-07,  1.903e-07,  1.689e-07,
        1.499e-07,  1.331e-07,  1.183e-07,  1.050e-07,  9.362e-08,
        8.306e-08,  7.403e-08,  6.578e-08,  5.853e-08,  5.216e-08,
        4.632e-08,  4.127e-08,  3.678e-08,  3.279e-08,  2.923e-08,
        2.612e-08,  2.339e-08,  2.094e-08,  1.877e-08,  1.686e-08,
        1.516e-08,  1.366e-08,  1.234e-08,  1.114e-08,  1.012e-08,
        9.182e-09,  8.362e-09,  7.634e-09,  6.981e-09,  6.406e-09,
        5.888e-09,  5.428e-09,  5.021e-09,  4.650e-09,  4.326e-09,
        4.033e-09,  3.770e-09,  3.536e-09,  3.327e-09,  3.141e-09,
        2.974e-09,  2.825e-09,  2.697e-09,  2.584e-09,  2.488e-09,
        2.406e-09,  2.340e-09,  2.292e-09,  2.259e-09,  2.244e-09,
        2.243e-09,  2.272e-09,  2.310e-09,  2.378e-09,  2.454e-09,
        2.618e-09,  2.672e-09,  2.831e-09,  3.050e-09,  3.225e-09,
        3.425e-09,  3.677e-09,  3.968e-09,  4.221e-09,  4.639e-09,
        4.960e-09,  5.359e-09,  5.649e-09,  6.230e-09,  6.716e-09,
        7.218e-09,  7.746e-09,  7.988e-09,  8.627e-09,  8.999e-09,
        9.442e-09,  9.820e-09,  1.015e-08,  1.060e-08,  1.079e-08,
        1.109e-08,  1.137e-08,  1.186e-08,  1.180e-08,  1.187e-08,
        1.194e-08,  1.192e-08,  1.224e-08,  1.245e-08,  1.246e-08,
        1.318e-08,  1.377e-08,  1.471e-08,  1.582e-08,  1.713e-08,
        1.853e-08,  2.063e-08,  2.270e-08,  2.567e-08,  2.891e-08,
        3.264e-08,  3.744e-08,  4.286e-08,  4.915e-08,  5.623e-08,
        6.336e-08,  7.293e-08,  8.309e-08,  9.319e-08,  1.091e-07,
        1.243e-07,  1.348e-07,  1.449e-07,  1.620e-07,  1.846e-07,
        1.937e-07,  2.040e-07,  2.179e-07,  2.298e-07,  2.433e-07,
        2.439e-07,  2.464e-07,  2.611e-07,  2.617e-07,  2.582e-07,
        2.453e-07,  2.401e-07,  2.349e-07,  2.203e-07,  2.066e-07,
        1.939e-07,  1.780e-07,  1.558e-07,  1.391e-07,  1.203e-07,
        1.048e-07,  9.464e-08,  8.306e-08,  7.239e-08,  6.317e-08,
        5.520e-08,  4.847e-08,  4.282e-08,  3.796e-08,  3.377e-08,
        2.996e-08,  2.678e-08,  2.400e-08,  2.134e-08,  1.904e-08,
        1.705e-08,  1.523e-08,  1.350e-08,  1.204e-08,  1.070e-08,
        9.408e-09,  8.476e-09,  7.470e-09,  6.679e-09,  5.929e-09,
        5.267e-09,  4.711e-09,  4.172e-09,  3.761e-09,  3.288e-09,
        2.929e-09,  2.609e-09,  2.315e-09,  2.042e-09,  1.844e-09,
        1.640e-09,  1.470e-09,  1.310e-09,  1.176e-09,  1.049e-09,
        9.377e-10,  8.462e-10,  7.616e-10,  6.854e-10,  6.191e-10,
        5.596e-10,  5.078e-10,  4.611e-10,  4.197e-10,  3.830e-10,
        3.505e-10,  3.215e-10,  2.956e-10,  2.726e-10,  2.521e-10,
        2.338e-10,  2.173e-10,  2.026e-10,  1.895e-10,  1.777e-10,
        1.672e-10,  1.579e-10,  1.496e-10,  1.423e-10,  1.358e-10,
        1.302e-10,  1.254e-10,  1.216e-10,  1.187e-10,  1.163e-10,
        1.147e-10,  1.145e-10,  1.150e-10,  1.170e-10,  1.192e-10,
        1.250e-10,  1.298e-10,  1.345e-10,  1.405e-10,  1.538e-10,
        1.648e-10,  1.721e-10,  1.872e-10,  1.968e-10,  2.089e-10,
        2.172e-10,  2.317e-10,  2.389e-10,  2.503e-10,  2.585e-10,
        2.686e-10,  2.800e-10,  2.895e-10,  3.019e-10,  3.037e-10,
        3.076e-10,  3.146e-10,  3.198e-10,  3.332e-10,  3.397e-10,
        3.540e-10,  3.667e-10,  3.895e-10,  4.071e-10,  4.565e-10,
        4.983e-10,  5.439e-10,  5.968e-10,  6.676e-10,  7.456e-10,
        8.405e-10,  9.478e-10,  1.064e-09,  1.218e-09,  1.386e-09,
        1.581e-09,  1.787e-09,  2.032e-09,  2.347e-09,  2.677e-09,
        3.008e-09,  3.544e-09,  4.056e-09,  4.687e-09,  5.331e-09,
        6.227e-09,  6.854e-09,  8.139e-09,  8.945e-09,  9.865e-09,
        1.125e-08,  1.178e-08,  1.364e-08,  1.436e-08,  1.540e-08,
        1.672e-08,  1.793e-08,  1.906e-08,  2.036e-08,  2.144e-08,
        2.292e-08,  2.371e-08,  2.493e-08,  2.606e-08,  2.706e-08,
        2.866e-08,  3.036e-08,  3.136e-08,  3.405e-08,  3.665e-08,
        3.837e-08,  4.229e-08,  4.748e-08,  5.320e-08,  5.763e-08,
        6.677e-08,  7.216e-08,  7.716e-08,  8.958e-08,  9.419e-08,
        1.036e-07,  1.108e-07,  1.189e-07,  1.246e-07,  1.348e-07,
        1.310e-07,  1.361e-07,  1.364e-07,  1.363e-07,  1.343e-07,
        1.293e-07,  1.254e-07,  1.235e-07,  1.158e-07,  1.107e-07,
        9.961e-08,  9.011e-08,  7.910e-08,  6.916e-08,  6.338e-08,
        5.564e-08,  4.827e-08,  4.198e-08,  3.695e-08,  3.276e-08,
        2.929e-08,  2.633e-08,  2.391e-08,  2.192e-08,  2.021e-08,
        1.890e-08,  1.772e-08,  1.667e-08,  1.603e-08,  1.547e-08,
        1.537e-08,  1.492e-08,  1.515e-08,  1.479e-08,  1.450e-08,
        1.513e-08,  1.495e-08,  1.529e-08,  1.565e-08,  1.564e-08,
        1.553e-08,  1.569e-08,  1.584e-08,  1.570e-08,  1.538e-08,
        1.513e-08,  1.472e-08,  1.425e-08,  1.349e-08,  1.328e-08,
        1.249e-08,  1.170e-08,  1.077e-08,  9.514e-09,  8.614e-09,
        7.460e-09,  6.621e-09,  5.775e-09,  5.006e-09,  4.308e-09,
        3.747e-09,  3.240e-09,  2.840e-09,  2.481e-09,  2.184e-09,
        1.923e-09,  1.710e-09,  1.504e-09,  1.334e-09,  1.187e-09,
        1.053e-09,  9.367e-10,  8.306e-10,  7.419e-10,  6.630e-10,
        5.918e-10,  5.277e-10,  4.717e-10,  4.222e-10,  3.783e-10,
        3.390e-10,  3.036e-10,  2.729e-10,  2.455e-10,  2.211e-10,
        1.995e-10,  1.804e-10,  1.635e-10,  1.485e-10,  1.355e-10,
        1.240e-10,  1.139e-10,  1.051e-10,  9.757e-11,  9.114e-11,
        8.577e-11,  8.139e-11,  7.792e-11,  7.520e-11,  7.390e-11,
        7.311e-11,  7.277e-11,  7.482e-11,  7.698e-11,  8.162e-11,
        8.517e-11,  8.968e-11,  9.905e-11,  1.075e-10,  1.187e-10,
        1.291e-10,  1.426e-10,  1.573e-10,  1.734e-10,  1.905e-10,
        2.097e-10,  2.280e-10,  2.473e-10,  2.718e-10,  2.922e-10,
        3.128e-10,  3.361e-10,  3.641e-10,  3.910e-10,  4.196e-10,
        4.501e-10,  4.932e-10,  5.258e-10,  5.755e-10,  6.253e-10,
        6.664e-10,  7.344e-10,  7.985e-10,  8.877e-10,  1.005e-09,
        1.118e-09,  1.251e-09,  1.428e-09,  1.610e-09,  1.888e-09,
        2.077e-09,  2.331e-09,  2.751e-09,  3.061e-09,  3.522e-09,
        3.805e-09,  4.181e-09,  4.575e-09,  5.167e-09,  5.634e-09,
        6.007e-09,  6.501e-09,  6.829e-09,  7.211e-09,  7.262e-09,
        7.696e-09,  7.832e-09,  7.799e-09,  7.651e-09,  7.304e-09,
        7.150e-09,  6.977e-09,  6.603e-09,  6.209e-09,  5.690e-09,
        5.432e-09,  4.764e-09,  4.189e-09,  3.640e-09,  3.203e-09,
        2.848e-09,  2.510e-09,  2.194e-09,  1.946e-09,  1.750e-09,
        1.567e-09,  1.426e-09,  1.302e-09,  1.197e-09,  1.109e-09,
        1.035e-09,  9.719e-10,  9.207e-10,  8.957e-10,  8.578e-10,
        8.262e-10,  8.117e-10,  7.987e-10,  7.875e-10,  7.741e-10,
        7.762e-10,  7.537e-10,  7.424e-10,  7.474e-10,  7.294e-10,
        7.216e-10,  7.233e-10,  7.075e-10,  6.892e-10,  6.618e-10,
        6.314e-10,  6.208e-10,  5.689e-10,  5.550e-10,  4.984e-10,
        4.600e-10,  4.078e-10,  3.879e-10,  3.459e-10,  2.982e-10,
        2.626e-10,  2.329e-10,  1.988e-10,  1.735e-10,  1.487e-10,
        1.297e-10,  1.133e-10,  9.943e-11,  8.736e-11,  7.726e-11,
        6.836e-11,  6.053e-11,  5.384e-11,  4.789e-11,  4.267e-11,
        3.804e-11,  3.398e-11,  3.034e-11,  2.710e-11,  2.425e-11,
        2.173e-11,  1.950e-11,  1.752e-11,  1.574e-11,  1.418e-11,
        1.278e-11,  1.154e-11,  1.044e-11,  9.463e-12,  8.602e-12,
        7.841e-12,  7.171e-12,  6.584e-12,  6.073e-12,  5.631e-12,
        5.254e-12,  4.937e-12,  4.679e-12,  4.476e-12,  4.328e-12,
        4.233e-12,  4.194e-12,  4.211e-12,  4.286e-12,  4.424e-12,
        4.628e-12,  4.906e-12,  5.262e-12,  5.708e-12,  6.254e-12,
        6.914e-12,  7.714e-12,  8.677e-12,  9.747e-12,  1.101e-11,
        1.256e-11,  1.409e-11,  1.597e-11,  1.807e-11,  2.034e-11,
        2.316e-11,  2.622e-11,  2.962e-11,  3.369e-11,  3.819e-11,
        4.329e-11,  4.932e-11,  5.589e-11,  6.364e-11,  7.284e-11,
        8.236e-11,  9.447e-11,  1.078e-10,  1.229e-10,  1.417e-10,
        1.614e-10,  1.843e-10,  2.107e-10,  2.406e-10,  2.728e-10,
        3.195e-10,  3.595e-10,  4.153e-10,  4.736e-10,  5.410e-10,
        6.088e-10,  6.769e-10,  7.691e-10,  8.545e-10,  9.621e-10,
        1.047e-09,  1.161e-09,  1.296e-09,  1.424e-09,  1.576e-09,
        1.739e-09,  1.893e-09,  2.080e-09,  2.336e-09,  2.604e-09,
        2.760e-09,  3.001e-09,  3.365e-09,  3.550e-09,  3.895e-09,
        4.183e-09,  4.614e-09,  4.846e-09,  5.068e-09,  5.427e-09,
        5.541e-09,  5.864e-09,  5.997e-09,  5.997e-09,  6.061e-09,
        5.944e-09,  5.855e-09,  5.661e-09,  5.523e-09,  5.374e-09,
        4.940e-09,  4.688e-09,  4.170e-09,  3.913e-09,  3.423e-09,
        2.997e-09,  2.598e-09,  2.253e-09,  1.946e-09,  1.710e-09,
        1.507e-09,  1.336e-09,  1.190e-09,  1.068e-09,  9.623e-10,
        8.772e-10,  8.007e-10,  7.420e-10,  6.884e-10,  6.483e-10,
        6.162e-10,  5.922e-10,  5.688e-10,  5.654e-10,  5.637e-10,
        5.701e-10,  5.781e-10,  5.874e-10,  6.268e-10,  6.357e-10,
        6.525e-10,  7.137e-10,  7.441e-10,  8.024e-10,  8.485e-10,
        9.143e-10,  9.536e-10,  9.717e-10,  1.018e-09,  1.042e-09,
        1.054e-09,  1.092e-09,  1.079e-09,  1.064e-09,  1.043e-09,
        1.020e-09,  9.687e-10,  9.273e-10,  9.208e-10,  9.068e-10,
        7.687e-10,  7.385e-10,  6.595e-10,  5.870e-10,  5.144e-10,
        4.417e-10,  3.804e-10,  3.301e-10,  2.866e-10,  2.509e-10,
        2.202e-10,  1.947e-10,  1.719e-10,  1.525e-10,  1.361e-10,
        1.210e-10,  1.084e-10,  9.800e-11,  8.801e-11,  7.954e-11,
        7.124e-11,  6.335e-11,  5.760e-11,  5.132e-11,  4.601e-11,
        4.096e-11,  3.657e-11,  3.250e-11,  2.909e-11,  2.587e-11,
        2.297e-11,  2.050e-11,  1.828e-11,  1.632e-11,  1.462e-11,
        1.314e-11,  1.185e-11,  1.073e-11,  9.760e-12,  8.922e-12,
        8.206e-12,  7.602e-12,  7.100e-12,  6.694e-12,  6.378e-12,
        6.149e-12,  6.004e-12,  5.941e-12,  5.962e-12,  6.069e-12,
        6.265e-12,  6.551e-12,  6.935e-12,  7.457e-12,  8.074e-12,
        8.811e-12,  9.852e-12,  1.086e-11,  1.207e-11,  1.361e-11,
        1.553e-11,  1.737e-11,  1.930e-11,  2.175e-11,  2.410e-11,
        2.706e-11,  3.023e-11,  3.313e-11,  3.657e-11,  4.118e-11,
        4.569e-11,  5.025e-11,  5.660e-11,  6.231e-11,  6.881e-11,
        7.996e-11,  8.526e-11,  9.694e-11,  1.106e-10,  1.222e-10,
        1.355e-10,  1.525e-10,  1.775e-10,  1.924e-10,  2.181e-10,
        2.379e-10,  2.662e-10,  2.907e-10,  3.154e-10,  3.366e-10,
        3.579e-10,  3.858e-10,  4.046e-10,  4.196e-10,  4.166e-10,
        4.457e-10,  4.466e-10,  4.404e-10,  4.337e-10,  4.150e-10,
        4.083e-10,  3.910e-10,  3.723e-10,  3.514e-10,  3.303e-10,
        2.847e-10,  2.546e-10,  2.230e-10,  1.994e-10,  1.733e-10,
        1.488e-10,  1.297e-10,  1.144e-10,  1.004e-10,  8.741e-11,
        7.928e-11,  7.034e-11,  6.323e-11,  5.754e-11,  5.250e-11,
        4.850e-11,  4.502e-11,  4.286e-11,  4.028e-11,  3.899e-11,
        3.824e-11,  3.761e-11,  3.804e-11,  3.839e-11,  3.845e-11,
        4.244e-11,  4.382e-11,  4.582e-11,  4.847e-11,  5.209e-11,
        5.384e-11,  5.887e-11,  6.371e-11,  6.737e-11,  7.168e-11,
        7.415e-11,  7.827e-11,  8.037e-11,  8.120e-11,  8.071e-11,
        8.008e-11,  7.851e-11,  7.544e-11,  7.377e-11,  7.173e-11,
        6.801e-11,  6.267e-11,  5.727e-11,  5.288e-11,  4.853e-11,
        4.082e-11,  3.645e-11,  3.136e-11,  2.672e-11,  2.304e-11,
        1.986e-11,  1.725e-11,  1.503e-11,  1.315e-11,  1.153e-11,
        1.014e-11,  8.942e-12,  7.901e-12,  6.993e-12,  6.199e-12,
        5.502e-12,  4.890e-12,  4.351e-12,  3.878e-12,  3.461e-12,
        3.094e-12,  2.771e-12,  2.488e-12,  2.241e-12,  2.025e-12,
        1.838e-12,  1.677e-12,  1.541e-12,  1.427e-12,  1.335e-12,
        1.262e-12,  1.209e-12,  1.176e-12,  1.161e-12,  1.165e-12,
        1.189e-12,  1.234e-12,  1.300e-12,  1.389e-12,  1.503e-12,
        1.644e-12,  1.814e-12,  2.017e-12,  2.255e-12,  2.534e-12,
        2.858e-12,  3.231e-12,  3.661e-12,  4.153e-12,  4.717e-12,
        5.360e-12,  6.094e-12,  6.930e-12,  7.882e-12,  8.966e-12,
        1.020e-11,  1.162e-11,  1.324e-11,  1.510e-11,  1.720e-11,
        1.965e-11,  2.237e-11,  2.560e-11,  2.927e-11,  3.371e-11,
        3.842e-11,  4.429e-11,  5.139e-11,  5.798e-11,  6.697e-11,
        7.626e-11,  8.647e-11,  1.022e-10,  1.136e-10,  1.300e-10,
        1.481e-10,  1.672e-10,  1.871e-10,  2.126e-10,  2.357e-10,
        2.583e-10,  2.997e-10,  3.289e-10,  3.702e-10,  4.012e-10,
        4.319e-10,  4.527e-10,  5.001e-10,  5.448e-10,  5.611e-10,
        5.760e-10,  5.965e-10,  6.079e-10,  6.207e-10,  6.276e-10,
        6.222e-10,  6.137e-10,  6.000e-10,  5.814e-10,  5.393e-10,
        5.350e-10,  4.947e-10,  4.629e-10,  4.117e-10,  3.712e-10,
        3.372e-10,  2.923e-10,  2.550e-10,  2.232e-10,  1.929e-10,
        1.679e-10,  1.460e-10,  1.289e-10,  1.130e-10,  9.953e-11,
        8.763e-11,  7.760e-11,  6.900e-11,  6.160e-11,  5.525e-11,
        4.958e-11,  4.489e-11,  4.072e-11,  3.728e-11,  3.438e-11,
        3.205e-11,  3.006e-11,  2.848e-11,  2.766e-11,  2.688e-11,
        2.664e-11,  2.670e-11,  2.696e-11,  2.786e-11,  2.861e-11,
        3.009e-11,  3.178e-11,  3.389e-11,  3.587e-11,  3.819e-11,
        4.054e-11,  4.417e-11,  4.703e-11,  5.137e-11,  5.460e-11,
        6.055e-11,  6.333e-11,  6.773e-11,  7.219e-11,  7.717e-11,
        8.131e-11,  8.491e-11,  8.574e-11,  9.010e-11,  9.017e-11,
        8.999e-11,  8.959e-11,  8.838e-11,  8.579e-11,  8.162e-11,
        8.098e-11,  7.472e-11,  7.108e-11,  6.559e-11,  5.994e-11,
        5.172e-11,  4.424e-11,  3.951e-11,  3.340e-11,  2.902e-11,
        2.541e-11,  2.215e-11,  1.945e-11,  1.716e-11,  1.503e-11,
        1.339e-11,  1.185e-11,  1.050e-11,  9.336e-12,  8.307e-12,
        7.312e-12,  6.550e-12,  5.836e-12,  5.178e-12,  4.600e-12,
        4.086e-12,  3.639e-12,  3.247e-12,  2.904e-12,  2.604e-12,
        2.341e-12,  2.112e-12,  1.914e-12,  1.744e-12,  1.598e-12,
        1.476e-12,  1.374e-12,  1.293e-12,  1.230e-12,  1.185e-12,
        1.158e-12,  1.147e-12,  1.154e-12,  1.177e-12,  1.219e-12,
        1.280e-12,  1.360e-12,  1.463e-12,  1.591e-12,  1.750e-12,
        1.940e-12,  2.156e-12,  2.430e-12,  2.748e-12,  3.052e-12,
        3.533e-12,  3.967e-12,  4.471e-12,  5.041e-12,  5.860e-12,
        6.664e-12,  7.522e-12,  8.342e-12,  9.412e-12,  1.072e-11,
        1.213e-11,  1.343e-11,  1.496e-11,  1.664e-11,  1.822e-11,
        2.029e-11,  2.233e-11,  2.457e-11,  2.709e-11,  2.928e-11,
        3.115e-11,  3.356e-11,  3.592e-11,  3.818e-11,  3.936e-11,
        4.061e-11,  4.149e-11,  4.299e-11,  4.223e-11,  4.251e-11,
        4.287e-11,  4.177e-11,  4.094e-11,  3.942e-11,  3.772e-11,
        3.614e-11,  3.394e-11,  3.222e-11,  2.791e-11,  2.665e-11,
        2.309e-11,  2.032e-11,  1.740e-11,  1.535e-11,  1.323e-11,
        1.151e-11,  9.803e-12,  8.650e-12,  7.540e-12,  6.619e-12,
        5.832e-12,  5.113e-12,  4.503e-12,  3.975e-12,  3.520e-12,
        3.112e-12,  2.797e-12,  2.500e-12,  2.240e-12,  2.013e-12,
        1.819e-12,  1.653e-12,  1.513e-12,  1.395e-12,  1.299e-12,
        1.225e-12,  1.168e-12,  1.124e-12,  1.148e-12,  1.107e-12,
        1.128e-12,  1.169e-12,  1.233e-12,  1.307e-12,  1.359e-12,
        1.543e-12,  1.686e-12,  1.794e-12,  2.028e-12,  2.210e-12,
        2.441e-12,  2.653e-12,  2.828e-12,  3.093e-12,  3.280e-12,
        3.551e-12,  3.677e-12,  3.803e-12,  3.844e-12,  4.068e-12,
        4.093e-12,  4.002e-12,  3.904e-12,  3.624e-12,  3.633e-12,
        3.622e-12,  3.443e-12,  3.184e-12,  2.934e-12,  2.476e-12,
        2.212e-12,  1.867e-12,  1.594e-12,  1.370e-12,  1.192e-12,
        1.045e-12,  9.211e-13,  8.170e-13,  7.290e-13,  6.550e-13,
        5.929e-13,  5.415e-13,  4.995e-13,  4.661e-13,  4.406e-13,
        4.225e-13,  4.116e-13,  4.075e-13,  4.102e-13,  4.198e-13,
        4.365e-13,  4.606e-13,  4.925e-13,  5.326e-13,  5.818e-13,
        6.407e-13,  7.104e-13,  7.920e-13,  8.868e-13,  9.964e-13,
        1.123e-12,  1.268e-12,  1.434e-12,  1.626e-12,  1.848e-12,
        2.107e-12,  2.422e-12,  2.772e-12,  3.145e-12,  3.704e-12,
        4.270e-12,  4.721e-12,  5.361e-12,  6.083e-12,  7.095e-12,
        7.968e-12,  9.228e-12,  1.048e-11,  1.187e-11,  1.336e-11,
        1.577e-11,  1.772e-11,  2.017e-11,  2.250e-11,  2.630e-11,
        2.911e-11,  3.356e-11,  3.820e-11,  4.173e-11,  4.811e-11,
        5.254e-11,  5.839e-11,  6.187e-11,  6.805e-11,  7.118e-11,
        7.369e-11,  7.664e-11,  7.794e-11,  7.947e-11,  8.036e-11,
        7.954e-11,  7.849e-11,  7.518e-11,  7.462e-11,  6.926e-11,
        6.531e-11,  6.197e-11,  5.421e-11,  4.777e-11,  4.111e-11,
        3.679e-11,  3.166e-11,  2.786e-11,  2.436e-11,  2.144e-11,
        1.859e-11,  1.628e-11,  1.414e-11,  1.237e-11,  1.093e-11,
        9.558e-12 };
 
// H2O self continuum parameters at T=260 K
// date of last update: 11/18/02
// units of (CM**3/MOL)*1.E-20
const Numeric SL260_ckd_mt_100_v1  =   -20.0;
const Numeric SL260_ckd_mt_100_v2  = 20000.0;
const Numeric SL260_ckd_mt_100_dv  =    10.0;
const int     SL260_ckd_mt_100_npt =  2003;
const double  SL260_ckd_mt_100[SL260_ckd_mt_100_npt+addF77fields] = {
        0.000e0,    2.749e-01,  2.732e-01,
        2.752e-01,  2.732e-01,  2.749e-01,  2.676e-01,  2.667e-01,
        2.545e-01,  2.497e-01,  2.327e-01,  2.218e-01,  2.036e-01,
        1.825e-01,  1.694e-01,  1.497e-01,  1.353e-01,  1.210e-01,
        1.014e-01,  9.405e-02,  7.848e-02,  7.195e-02,  6.246e-02,
        5.306e-02,  4.853e-02,  4.138e-02,  3.735e-02,  3.171e-02,
        2.785e-02,  2.431e-02,  2.111e-02,  1.845e-02,  1.640e-02,
        1.405e-02,  1.255e-02,  1.098e-02,  9.797e-03,  8.646e-03,
        7.779e-03,  6.898e-03,  6.099e-03,  5.453e-03,  4.909e-03,
        4.413e-03,  3.959e-03,  3.581e-03,  3.199e-03,  2.871e-03,
        2.583e-03,  2.330e-03,  2.086e-03,  1.874e-03,  1.684e-03,
        1.512e-03,  1.361e-03,  1.225e-03,  1.100e-03,  9.890e-04,
        8.916e-04,  8.039e-04,  7.256e-04,  6.545e-04,  5.918e-04,
        5.359e-04,  4.867e-04,  4.426e-04,  4.033e-04,  3.682e-04,
        3.366e-04,  3.085e-04,  2.833e-04,  2.605e-04,  2.403e-04,
        2.221e-04,  2.055e-04,  1.908e-04,  1.774e-04,  1.653e-04,
        1.544e-04,  1.443e-04,  1.351e-04,  1.267e-04,  1.190e-04,
        1.119e-04,  1.053e-04,  9.922e-05,  9.355e-05,  8.831e-05,
        8.339e-05,  7.878e-05,  7.449e-05,  7.043e-05,  6.664e-05,
        6.307e-05,  5.969e-05,  5.654e-05,  5.357e-05,  5.075e-05,
        4.810e-05,  4.560e-05,  4.322e-05,  4.102e-05,  3.892e-05,
        3.696e-05,  3.511e-05,  3.339e-05,  3.177e-05,  3.026e-05,
        2.886e-05,  2.756e-05,  2.636e-05,  2.527e-05,  2.427e-05,
        2.337e-05,  2.257e-05,  2.185e-05,  2.127e-05,  2.080e-05,
        2.041e-05,  2.013e-05,  2.000e-05,  1.997e-05,  2.009e-05,
        2.031e-05,  2.068e-05,  2.124e-05,  2.189e-05,  2.267e-05,
        2.364e-05,  2.463e-05,  2.618e-05,  2.774e-05,  2.937e-05,
        3.144e-05,  3.359e-05,  3.695e-05,  4.002e-05,  4.374e-05,
        4.947e-05,  5.431e-05,  6.281e-05,  7.169e-05,  8.157e-05,
        9.728e-05,  1.079e-04,  1.337e-04,  1.442e-04,  1.683e-04,
        1.879e-04,  2.223e-04,  2.425e-04,  2.838e-04,  3.143e-04,
        3.527e-04,  4.012e-04,  4.237e-04,  4.747e-04,  5.057e-04,
        5.409e-04,  5.734e-04,  5.944e-04,  6.077e-04,  6.175e-04,
        6.238e-04,  6.226e-04,  6.248e-04,  6.192e-04,  6.098e-04,
        5.818e-04,  5.709e-04,  5.465e-04,  5.043e-04,  4.699e-04,
        4.294e-04,  3.984e-04,  3.672e-04,  3.152e-04,  2.883e-04,
        2.503e-04,  2.211e-04,  1.920e-04,  1.714e-04,  1.485e-04,
        1.358e-04,  1.156e-04,  1.021e-04,  8.887e-05,  7.842e-05,
        7.120e-05,  6.186e-05,  5.730e-05,  4.792e-05,  4.364e-05,
        3.720e-05,  3.280e-05,  2.946e-05,  2.591e-05,  2.261e-05,
        2.048e-05,  1.813e-05,  1.630e-05,  1.447e-05,  1.282e-05,
        1.167e-05,  1.041e-05,  9.449e-06,  8.510e-06,  7.596e-06,
        6.961e-06,  6.272e-06,  5.728e-06,  5.198e-06,  4.667e-06,
        4.288e-06,  3.897e-06,  3.551e-06,  3.235e-06,  2.952e-06,
        2.688e-06,  2.449e-06,  2.241e-06,  2.050e-06,  1.879e-06,
        1.722e-06,  1.582e-06,  1.456e-06,  1.339e-06,  1.236e-06,
        1.144e-06,  1.060e-06,  9.830e-07,  9.149e-07,  8.535e-07,
        7.973e-07,  7.466e-07,  6.999e-07,  6.574e-07,  6.180e-07,
        5.821e-07,  5.487e-07,  5.180e-07,  4.896e-07,  4.631e-07,
        4.386e-07,  4.160e-07,  3.945e-07,  3.748e-07,  3.562e-07,
        3.385e-07,  3.222e-07,  3.068e-07,  2.922e-07,  2.788e-07,
        2.659e-07,  2.539e-07,  2.425e-07,  2.318e-07,  2.219e-07,
        2.127e-07,  2.039e-07,  1.958e-07,  1.885e-07,  1.818e-07,
        1.758e-07,  1.711e-07,  1.662e-07,  1.630e-07,  1.605e-07,
        1.580e-07,  1.559e-07,  1.545e-07,  1.532e-07,  1.522e-07,
        1.510e-07,  1.495e-07,  1.465e-07,  1.483e-07,  1.469e-07,
        1.448e-07,  1.444e-07,  1.436e-07,  1.426e-07,  1.431e-07,
        1.425e-07,  1.445e-07,  1.477e-07,  1.515e-07,  1.567e-07,
        1.634e-07,  1.712e-07,  1.802e-07,  1.914e-07,  2.024e-07,
        2.159e-07,  2.295e-07,  2.461e-07,  2.621e-07,  2.868e-07,
        3.102e-07,  3.394e-07,  3.784e-07,  4.223e-07,  4.864e-07,
        5.501e-07,  6.039e-07,  7.193e-07,  7.728e-07,  9.514e-07,
        1.073e-06,  1.180e-06,  1.333e-06,  1.472e-06,  1.566e-06,
        1.677e-06,  1.784e-06,  1.904e-06,  1.953e-06,  2.020e-06,
        2.074e-06,  2.128e-06,  2.162e-06,  2.219e-06,  2.221e-06,
        2.249e-06,  2.239e-06,  2.235e-06,  2.185e-06,  2.141e-06,
        2.124e-06,  2.090e-06,  2.068e-06,  2.100e-06,  2.104e-06,
        2.142e-06,  2.181e-06,  2.257e-06,  2.362e-06,  2.500e-06,
        2.664e-06,  2.884e-06,  3.189e-06,  3.480e-06,  3.847e-06,
        4.313e-06,  4.790e-06,  5.250e-06,  5.989e-06,  6.692e-06,
        7.668e-06,  8.520e-06,  9.606e-06,  1.073e-05,  1.225e-05,
        1.377e-05,  1.582e-05,  1.761e-05,  2.029e-05,  2.284e-05,
        2.602e-05,  2.940e-05,  3.483e-05,  3.928e-05,  4.618e-05,
        5.240e-05,  6.132e-05,  7.183e-05,  8.521e-05,  9.111e-05,
        1.070e-04,  1.184e-04,  1.264e-04,  1.475e-04,  1.612e-04,
        1.704e-04,  1.818e-04,  1.924e-04,  1.994e-04,  2.061e-04,
        2.180e-04,  2.187e-04,  2.200e-04,  2.196e-04,  2.131e-04,
        2.015e-04,  1.988e-04,  1.847e-04,  1.729e-04,  1.597e-04,
        1.373e-04,  1.262e-04,  1.087e-04,  9.439e-05,  8.061e-05,
        7.093e-05,  6.049e-05,  5.120e-05,  4.435e-05,  3.817e-05,
        3.340e-05,  2.927e-05,  2.573e-05,  2.291e-05,  2.040e-05,
        1.827e-05,  1.636e-05,  1.463e-05,  1.309e-05,  1.170e-05,
        1.047e-05,  9.315e-06,  8.328e-06,  7.458e-06,  6.665e-06,
        5.940e-06,  5.316e-06,  4.752e-06,  4.252e-06,  3.825e-06,
        3.421e-06,  3.064e-06,  2.746e-06,  2.465e-06,  2.216e-06,
        1.990e-06,  1.790e-06,  1.609e-06,  1.449e-06,  1.306e-06,
        1.177e-06,  1.063e-06,  9.607e-07,  8.672e-07,  7.855e-07,
        7.118e-07,  6.460e-07,  5.871e-07,  5.340e-07,  4.868e-07,
        4.447e-07,  4.068e-07,  3.729e-07,  3.423e-07,  3.151e-07,
        2.905e-07,  2.686e-07,  2.484e-07,  2.306e-07,  2.142e-07,
        1.995e-07,  1.860e-07,  1.738e-07,  1.626e-07,  1.522e-07,
        1.427e-07,  1.338e-07,  1.258e-07,  1.183e-07,  1.116e-07,
        1.056e-07,  9.972e-08,  9.460e-08,  9.007e-08,  8.592e-08,
        8.195e-08,  7.816e-08,  7.483e-08,  7.193e-08,  6.892e-08,
        6.642e-08,  6.386e-08,  6.154e-08,  5.949e-08,  5.764e-08,
        5.622e-08,  5.479e-08,  5.364e-08,  5.301e-08,  5.267e-08,
        5.263e-08,  5.313e-08,  5.410e-08,  5.550e-08,  5.745e-08,
        6.003e-08,  6.311e-08,  6.713e-08,  7.173e-08,  7.724e-08,
        8.368e-08,  9.121e-08,  9.986e-08,  1.097e-07,  1.209e-07,
        1.338e-07,  1.486e-07,  1.651e-07,  1.837e-07,  2.048e-07,
        2.289e-07,  2.557e-07,  2.857e-07,  3.195e-07,  3.587e-07,
        4.015e-07,  4.497e-07,  5.049e-07,  5.665e-07,  6.366e-07,
        7.121e-07,  7.996e-07,  8.946e-07,  1.002e-06,  1.117e-06,
        1.262e-06,  1.416e-06,  1.611e-06,  1.807e-06,  2.056e-06,
        2.351e-06,  2.769e-06,  3.138e-06,  3.699e-06,  4.386e-06,
        5.041e-06,  6.074e-06,  6.812e-06,  7.790e-06,  8.855e-06,
        1.014e-05,  1.095e-05,  1.245e-05,  1.316e-05,  1.390e-05,
        1.504e-05,  1.583e-05,  1.617e-05,  1.652e-05,  1.713e-05,
        1.724e-05,  1.715e-05,  1.668e-05,  1.629e-05,  1.552e-05,
        1.478e-05,  1.340e-05,  1.245e-05,  1.121e-05,  9.575e-06,
        8.956e-06,  7.345e-06,  6.597e-06,  5.612e-06,  4.818e-06,
        4.165e-06,  3.579e-06,  3.041e-06,  2.623e-06,  2.290e-06,
        1.984e-06,  1.748e-06,  1.534e-06,  1.369e-06,  1.219e-06,
        1.092e-06,  9.800e-07,  8.762e-07,  7.896e-07,  7.104e-07,
        6.364e-07,  5.691e-07,  5.107e-07,  4.575e-07,  4.090e-07,
        3.667e-07,  3.287e-07,  2.931e-07,  2.633e-07,  2.356e-07,
        2.111e-07,  1.895e-07,  1.697e-07,  1.525e-07,  1.369e-07,
        1.233e-07,  1.114e-07,  9.988e-08,  9.004e-08,  8.149e-08,
        7.352e-08,  6.662e-08,  6.030e-08,  5.479e-08,  4.974e-08,
        4.532e-08,  4.129e-08,  3.781e-08,  3.462e-08,  3.176e-08,
        2.919e-08,  2.687e-08,  2.481e-08,  2.292e-08,  2.119e-08,
        1.967e-08,  1.828e-08,  1.706e-08,  1.589e-08,  1.487e-08,
        1.393e-08,  1.307e-08,  1.228e-08,  1.156e-08,  1.089e-08,
        1.028e-08,  9.696e-09,  9.159e-09,  8.658e-09,  8.187e-09,
        7.746e-09,  7.340e-09,  6.953e-09,  6.594e-09,  6.259e-09,
        5.948e-09,  5.660e-09,  5.386e-09,  5.135e-09,  4.903e-09,
        4.703e-09,  4.515e-09,  4.362e-09,  4.233e-09,  4.117e-09,
        4.017e-09,  3.962e-09,  3.924e-09,  3.905e-09,  3.922e-09,
        3.967e-09,  4.046e-09,  4.165e-09,  4.320e-09,  4.522e-09,
        4.769e-09,  5.083e-09,  5.443e-09,  5.872e-09,  6.366e-09,
        6.949e-09,  7.601e-09,  8.371e-09,  9.220e-09,  1.020e-08,
        1.129e-08,  1.251e-08,  1.393e-08,  1.542e-08,  1.720e-08,
        1.926e-08,  2.152e-08,  2.392e-08,  2.678e-08,  3.028e-08,
        3.390e-08,  3.836e-08,  4.309e-08,  4.900e-08,  5.481e-08,
        6.252e-08,  7.039e-08,  7.883e-08,  8.849e-08,  1.012e-07,
        1.142e-07,  1.300e-07,  1.475e-07,  1.732e-07,  1.978e-07,
        2.304e-07,  2.631e-07,  2.988e-07,  3.392e-07,  3.690e-07,
        4.355e-07,  4.672e-07,  5.110e-07,  5.461e-07,  5.828e-07,
        6.233e-07,  6.509e-07,  6.672e-07,  6.969e-07,  7.104e-07,
        7.439e-07,  7.463e-07,  7.708e-07,  7.466e-07,  7.668e-07,
        7.549e-07,  7.586e-07,  7.384e-07,  7.439e-07,  7.785e-07,
        7.915e-07,  8.310e-07,  8.745e-07,  9.558e-07,  1.038e-06,
        1.173e-06,  1.304e-06,  1.452e-06,  1.671e-06,  1.931e-06,
        2.239e-06,  2.578e-06,  3.032e-06,  3.334e-06,  3.980e-06,
        4.300e-06,  4.518e-06,  5.321e-06,  5.508e-06,  6.211e-06,
        6.590e-06,  7.046e-06,  7.555e-06,  7.558e-06,  7.875e-06,
        8.319e-06,  8.433e-06,  8.590e-06,  8.503e-06,  8.304e-06,
        8.336e-06,  7.739e-06,  7.301e-06,  6.827e-06,  6.078e-06,
        5.551e-06,  4.762e-06,  4.224e-06,  3.538e-06,  2.984e-06,
        2.619e-06,  2.227e-06,  1.923e-06,  1.669e-06,  1.462e-06,
        1.294e-06,  1.155e-06,  1.033e-06,  9.231e-07,  8.238e-07,
        7.360e-07,  6.564e-07,  5.869e-07,  5.236e-07,  4.673e-07,
        4.174e-07,  3.736e-07,  3.330e-07,  2.976e-07,  2.657e-07,
        2.367e-07,  2.106e-07,  1.877e-07,  1.671e-07,  1.494e-07,
        1.332e-07,  1.192e-07,  1.065e-07,  9.558e-08,  8.586e-08,
        7.717e-08,  6.958e-08,  6.278e-08,  5.666e-08,  5.121e-08,
        4.647e-08,  4.213e-08,  3.815e-08,  3.459e-08,  3.146e-08,
        2.862e-08,  2.604e-08,  2.375e-08,  2.162e-08,  1.981e-08,
        1.817e-08,  1.670e-08,  1.537e-08,  1.417e-08,  1.310e-08,
        1.215e-08,  1.128e-08,  1.050e-08,  9.793e-09,  9.158e-09,
        8.586e-09,  8.068e-09,  7.595e-09,  7.166e-09,  6.778e-09,
        6.427e-09,  6.108e-09,  5.826e-09,  5.571e-09,  5.347e-09,
        5.144e-09,  4.968e-09,  4.822e-09,  4.692e-09,  4.589e-09,
        4.506e-09,  4.467e-09,  4.440e-09,  4.466e-09,  4.515e-09,
        4.718e-09,  4.729e-09,  4.937e-09,  5.249e-09,  5.466e-09,
        5.713e-09,  6.030e-09,  6.436e-09,  6.741e-09,  7.330e-09,
        7.787e-09,  8.414e-09,  8.908e-09,  9.868e-09,  1.069e-08,
        1.158e-08,  1.253e-08,  1.300e-08,  1.409e-08,  1.470e-08,
        1.548e-08,  1.612e-08,  1.666e-08,  1.736e-08,  1.763e-08,
        1.812e-08,  1.852e-08,  1.923e-08,  1.897e-08,  1.893e-08,
        1.888e-08,  1.868e-08,  1.895e-08,  1.899e-08,  1.876e-08,
        1.960e-08,  2.020e-08,  2.121e-08,  2.239e-08,  2.379e-08,
        2.526e-08,  2.766e-08,  2.994e-08,  3.332e-08,  3.703e-08,
        4.158e-08,  4.774e-08,  5.499e-08,  6.355e-08,  7.349e-08,
        8.414e-08,  9.846e-08,  1.143e-07,  1.307e-07,  1.562e-07,
        1.817e-07,  2.011e-07,  2.192e-07,  2.485e-07,  2.867e-07,
        3.035e-07,  3.223e-07,  3.443e-07,  3.617e-07,  3.793e-07,
        3.793e-07,  3.839e-07,  4.081e-07,  4.117e-07,  4.085e-07,
        3.920e-07,  3.851e-07,  3.754e-07,  3.490e-07,  3.229e-07,
        2.978e-07,  2.691e-07,  2.312e-07,  2.029e-07,  1.721e-07,
        1.472e-07,  1.308e-07,  1.132e-07,  9.736e-08,  8.458e-08,
        7.402e-08,  6.534e-08,  5.811e-08,  5.235e-08,  4.762e-08,
        4.293e-08,  3.896e-08,  3.526e-08,  3.165e-08,  2.833e-08,
        2.551e-08,  2.288e-08,  2.036e-08,  1.820e-08,  1.626e-08,
        1.438e-08,  1.299e-08,  1.149e-08,  1.030e-08,  9.148e-09,
        8.122e-09,  7.264e-09,  6.425e-09,  5.777e-09,  5.060e-09,
        4.502e-09,  4.013e-09,  3.567e-09,  3.145e-09,  2.864e-09,
        2.553e-09,  2.311e-09,  2.087e-09,  1.886e-09,  1.716e-09,
        1.556e-09,  1.432e-09,  1.311e-09,  1.202e-09,  1.104e-09,
        1.013e-09,  9.293e-10,  8.493e-10,  7.790e-10,  7.185e-10,
        6.642e-10,  6.141e-10,  5.684e-10,  5.346e-10,  5.032e-10,
        4.725e-10,  4.439e-10,  4.176e-10,  3.930e-10,  3.714e-10,
        3.515e-10,  3.332e-10,  3.167e-10,  3.020e-10,  2.887e-10,
        2.769e-10,  2.665e-10,  2.578e-10,  2.503e-10,  2.436e-10,
        2.377e-10,  2.342e-10,  2.305e-10,  2.296e-10,  2.278e-10,
        2.321e-10,  2.355e-10,  2.402e-10,  2.478e-10,  2.670e-10,
        2.848e-10,  2.982e-10,  3.263e-10,  3.438e-10,  3.649e-10,
        3.829e-10,  4.115e-10,  4.264e-10,  4.473e-10,  4.630e-10,
        4.808e-10,  4.995e-10,  5.142e-10,  5.313e-10,  5.318e-10,
        5.358e-10,  5.452e-10,  5.507e-10,  5.698e-10,  5.782e-10,
        5.983e-10,  6.164e-10,  6.532e-10,  6.811e-10,  7.624e-10,
        8.302e-10,  9.067e-10,  9.937e-10,  1.104e-09,  1.221e-09,
        1.361e-09,  1.516e-09,  1.675e-09,  1.883e-09,  2.101e-09,
        2.349e-09,  2.614e-09,  2.920e-09,  3.305e-09,  3.724e-09,
        4.142e-09,  4.887e-09,  5.614e-09,  6.506e-09,  7.463e-09,
        8.817e-09,  9.849e-09,  1.187e-08,  1.321e-08,  1.474e-08,
        1.698e-08,  1.794e-08,  2.090e-08,  2.211e-08,  2.362e-08,
        2.556e-08,  2.729e-08,  2.880e-08,  3.046e-08,  3.167e-08,
        3.367e-08,  3.457e-08,  3.590e-08,  3.711e-08,  3.826e-08,
        4.001e-08,  4.211e-08,  4.315e-08,  4.661e-08,  5.010e-08,
        5.249e-08,  5.840e-08,  6.628e-08,  7.512e-08,  8.253e-08,
        9.722e-08,  1.067e-07,  1.153e-07,  1.347e-07,  1.428e-07,
        1.577e-07,  1.694e-07,  1.833e-07,  1.938e-07,  2.108e-07,
        2.059e-07,  2.157e-07,  2.185e-07,  2.208e-07,  2.182e-07,
        2.093e-07,  2.014e-07,  1.962e-07,  1.819e-07,  1.713e-07,
        1.510e-07,  1.340e-07,  1.154e-07,  9.890e-08,  8.880e-08,
        7.673e-08,  6.599e-08,  5.730e-08,  5.081e-08,  4.567e-08,
        4.147e-08,  3.773e-08,  3.460e-08,  3.194e-08,  2.953e-08,
        2.759e-08,  2.594e-08,  2.442e-08,  2.355e-08,  2.283e-08,
        2.279e-08,  2.231e-08,  2.279e-08,  2.239e-08,  2.210e-08,
        2.309e-08,  2.293e-08,  2.352e-08,  2.415e-08,  2.430e-08,
        2.426e-08,  2.465e-08,  2.500e-08,  2.496e-08,  2.465e-08,
        2.445e-08,  2.383e-08,  2.299e-08,  2.165e-08,  2.113e-08,
        1.968e-08,  1.819e-08,  1.644e-08,  1.427e-08,  1.270e-08,
        1.082e-08,  9.428e-09,  8.091e-09,  6.958e-09,  5.988e-09,
        5.246e-09,  4.601e-09,  4.098e-09,  3.664e-09,  3.287e-09,
        2.942e-09,  2.656e-09,  2.364e-09,  2.118e-09,  1.903e-09,
        1.703e-09,  1.525e-09,  1.365e-09,  1.229e-09,  1.107e-09,
        9.960e-10,  8.945e-10,  8.080e-10,  7.308e-10,  6.616e-10,
        5.994e-10,  5.422e-10,  4.929e-10,  4.478e-10,  4.070e-10,
        3.707e-10,  3.379e-10,  3.087e-10,  2.823e-10,  2.592e-10,
        2.385e-10,  2.201e-10,  2.038e-10,  1.897e-10,  1.774e-10,
        1.667e-10,  1.577e-10,  1.502e-10,  1.437e-10,  1.394e-10,
        1.358e-10,  1.324e-10,  1.329e-10,  1.324e-10,  1.360e-10,
        1.390e-10,  1.424e-10,  1.544e-10,  1.651e-10,  1.817e-10,
        1.984e-10,  2.195e-10,  2.438e-10,  2.700e-10,  2.991e-10,
        3.322e-10,  3.632e-10,  3.957e-10,  4.360e-10,  4.701e-10,
        5.030e-10,  5.381e-10,  5.793e-10,  6.190e-10,  6.596e-10,
        7.004e-10,  7.561e-10,  7.934e-10,  8.552e-10,  9.142e-10,
        9.570e-10,  1.027e-09,  1.097e-09,  1.193e-09,  1.334e-09,
        1.470e-09,  1.636e-09,  1.871e-09,  2.122e-09,  2.519e-09,
        2.806e-09,  3.203e-09,  3.846e-09,  4.362e-09,  5.114e-09,
        5.643e-09,  6.305e-09,  6.981e-09,  7.983e-09,  8.783e-09,
        9.419e-09,  1.017e-08,  1.063e-08,  1.121e-08,  1.130e-08,
        1.201e-08,  1.225e-08,  1.232e-08,  1.223e-08,  1.177e-08,
        1.151e-08,  1.116e-08,  1.047e-08,  9.698e-09,  8.734e-09,
        8.202e-09,  7.041e-09,  6.074e-09,  5.172e-09,  4.468e-09,
        3.913e-09,  3.414e-09,  2.975e-09,  2.650e-09,  2.406e-09,
        2.173e-09,  2.009e-09,  1.861e-09,  1.727e-09,  1.612e-09,
        1.514e-09,  1.430e-09,  1.362e-09,  1.333e-09,  1.288e-09,
        1.249e-09,  1.238e-09,  1.228e-09,  1.217e-09,  1.202e-09,
        1.209e-09,  1.177e-09,  1.157e-09,  1.165e-09,  1.142e-09,
        1.131e-09,  1.138e-09,  1.117e-09,  1.100e-09,  1.069e-09,
        1.023e-09,  1.005e-09,  9.159e-10,  8.863e-10,  7.865e-10,
        7.153e-10,  6.247e-10,  5.846e-10,  5.133e-10,  4.360e-10,
        3.789e-10,  3.335e-10,  2.833e-10,  2.483e-10,  2.155e-10,
        1.918e-10,  1.709e-10,  1.529e-10,  1.374e-10,  1.235e-10,
        1.108e-10,  9.933e-11,  8.932e-11,  8.022e-11,  7.224e-11,
        6.520e-11,  5.896e-11,  5.328e-11,  4.813e-11,  4.365e-11,
        3.961e-11,  3.594e-11,  3.266e-11,  2.967e-11,  2.701e-11,
        2.464e-11,  2.248e-11,  2.054e-11,  1.878e-11,  1.721e-11,
        1.579e-11,  1.453e-11,  1.341e-11,  1.241e-11,  1.154e-11,
        1.078e-11,  1.014e-11,  9.601e-12,  9.167e-12,  8.838e-12,
        8.614e-12,  8.493e-12,  8.481e-12,  8.581e-12,  8.795e-12,
        9.131e-12,  9.601e-12,  1.021e-11,  1.097e-11,  1.191e-11,
        1.303e-11,  1.439e-11,  1.601e-11,  1.778e-11,  1.984e-11,
        2.234e-11,  2.474e-11,  2.766e-11,  3.085e-11,  3.415e-11,
        3.821e-11,  4.261e-11,  4.748e-11,  5.323e-11,  5.935e-11,
        6.619e-11,  7.418e-11,  8.294e-11,  9.260e-11,  1.039e-10,
        1.156e-10,  1.297e-10,  1.460e-10,  1.641e-10,  1.858e-10,
        2.100e-10,  2.383e-10,  2.724e-10,  3.116e-10,  3.538e-10,
        4.173e-10,  4.727e-10,  5.503e-10,  6.337e-10,  7.320e-10,
        8.298e-10,  9.328e-10,  1.059e-09,  1.176e-09,  1.328e-09,
        1.445e-09,  1.593e-09,  1.770e-09,  1.954e-09,  2.175e-09,
        2.405e-09,  2.622e-09,  2.906e-09,  3.294e-09,  3.713e-09,
        3.980e-09,  4.384e-09,  4.987e-09,  5.311e-09,  5.874e-09,
        6.337e-09,  7.027e-09,  7.390e-09,  7.769e-09,  8.374e-09,
        8.605e-09,  9.165e-09,  9.415e-09,  9.511e-09,  9.704e-09,
        9.588e-09,  9.450e-09,  9.086e-09,  8.798e-09,  8.469e-09,
        7.697e-09,  7.168e-09,  6.255e-09,  5.772e-09,  4.970e-09,
        4.271e-09,  3.653e-09,  3.154e-09,  2.742e-09,  2.435e-09,
        2.166e-09,  1.936e-09,  1.731e-09,  1.556e-09,  1.399e-09,
        1.272e-09,  1.157e-09,  1.066e-09,  9.844e-10,  9.258e-10,
        8.787e-10,  8.421e-10,  8.083e-10,  8.046e-10,  8.067e-10,
        8.181e-10,  8.325e-10,  8.517e-10,  9.151e-10,  9.351e-10,
        9.677e-10,  1.071e-09,  1.126e-09,  1.219e-09,  1.297e-09,
        1.408e-09,  1.476e-09,  1.517e-09,  1.600e-09,  1.649e-09,
        1.678e-09,  1.746e-09,  1.742e-09,  1.728e-09,  1.699e-09,
        1.655e-09,  1.561e-09,  1.480e-09,  1.451e-09,  1.411e-09,
        1.171e-09,  1.106e-09,  9.714e-10,  8.523e-10,  7.346e-10,
        6.241e-10,  5.371e-10,  4.704e-10,  4.144e-10,  3.683e-10,
        3.292e-10,  2.942e-10,  2.620e-10,  2.341e-10,  2.104e-10,
        1.884e-10,  1.700e-10,  1.546e-10,  1.394e-10,  1.265e-10,
        1.140e-10,  1.019e-10,  9.279e-11,  8.283e-11,  7.458e-11,
        6.668e-11,  5.976e-11,  5.330e-11,  4.794e-11,  4.289e-11,
        3.841e-11,  3.467e-11,  3.130e-11,  2.832e-11,  2.582e-11,
        2.356e-11,  2.152e-11,  1.970e-11,  1.808e-11,  1.664e-11,
        1.539e-11,  1.434e-11,  1.344e-11,  1.269e-11,  1.209e-11,
        1.162e-11,  1.129e-11,  1.108e-11,  1.099e-11,  1.103e-11,
        1.119e-11,  1.148e-11,  1.193e-11,  1.252e-11,  1.329e-11,
        1.421e-11,  1.555e-11,  1.685e-11,  1.839e-11,  2.054e-11,
        2.317e-11,  2.571e-11,  2.839e-11,  3.171e-11,  3.490e-11,
        3.886e-11,  4.287e-11,  4.645e-11,  5.047e-11,  5.592e-11,
        6.109e-11,  6.628e-11,  7.381e-11,  8.088e-11,  8.966e-11,
        1.045e-10,  1.120e-10,  1.287e-10,  1.486e-10,  1.662e-10,
        1.866e-10,  2.133e-10,  2.524e-10,  2.776e-10,  3.204e-10,
        3.559e-10,  4.028e-10,  4.448e-10,  4.882e-10,  5.244e-10,
        5.605e-10,  6.018e-10,  6.328e-10,  6.579e-10,  6.541e-10,
        7.024e-10,  7.074e-10,  7.068e-10,  7.009e-10,  6.698e-10,
        6.545e-10,  6.209e-10,  5.834e-10,  5.412e-10,  5.001e-10,
        4.231e-10,  3.727e-10,  3.211e-10,  2.833e-10,  2.447e-10,
        2.097e-10,  1.843e-10,  1.639e-10,  1.449e-10,  1.270e-10,
        1.161e-10,  1.033e-10,  9.282e-11,  8.407e-11,  7.639e-11,
        7.023e-11,  6.474e-11,  6.142e-11,  5.760e-11,  5.568e-11,
        5.472e-11,  5.390e-11,  5.455e-11,  5.540e-11,  5.587e-11,
        6.230e-11,  6.490e-11,  6.868e-11,  7.382e-11,  8.022e-11,
        8.372e-11,  9.243e-11,  1.004e-10,  1.062e-10,  1.130e-10,
        1.176e-10,  1.244e-10,  1.279e-10,  1.298e-10,  1.302e-10,
        1.312e-10,  1.295e-10,  1.244e-10,  1.211e-10,  1.167e-10,
        1.098e-10,  9.927e-11,  8.854e-11,  8.011e-11,  7.182e-11,
        5.923e-11,  5.212e-11,  4.453e-11,  3.832e-11,  3.371e-11,
        2.987e-11,  2.651e-11,  2.354e-11,  2.093e-11,  1.863e-11,
        1.662e-11,  1.486e-11,  1.331e-11,  1.193e-11,  1.071e-11,
        9.628e-12,  8.660e-12,  7.801e-12,  7.031e-12,  6.347e-12,
        5.733e-12,  5.182e-12,  4.695e-12,  4.260e-12,  3.874e-12,
        3.533e-12,  3.235e-12,  2.979e-12,  2.760e-12,  2.579e-12,
        2.432e-12,  2.321e-12,  2.246e-12,  2.205e-12,  2.196e-12,
        2.223e-12,  2.288e-12,  2.387e-12,  2.525e-12,  2.704e-12,
        2.925e-12,  3.191e-12,  3.508e-12,  3.876e-12,  4.303e-12,
        4.793e-12,  5.347e-12,  5.978e-12,  6.682e-12,  7.467e-12,
        8.340e-12,  9.293e-12,  1.035e-11,  1.152e-11,  1.285e-11,
        1.428e-11,  1.586e-11,  1.764e-11,  1.972e-11,  2.214e-11,
        2.478e-11,  2.776e-11,  3.151e-11,  3.591e-11,  4.103e-11,
        4.660e-11,  5.395e-11,  6.306e-11,  7.172e-11,  8.358e-11,
        9.670e-11,  1.110e-10,  1.325e-10,  1.494e-10,  1.736e-10,
        2.007e-10,  2.296e-10,  2.608e-10,  3.004e-10,  3.361e-10,
        3.727e-10,  4.373e-10,  4.838e-10,  5.483e-10,  6.006e-10,
        6.535e-10,  6.899e-10,  7.687e-10,  8.444e-10,  8.798e-10,
        9.135e-10,  9.532e-10,  9.757e-10,  9.968e-10,  1.006e-09,
        9.949e-10,  9.789e-10,  9.564e-10,  9.215e-10,  8.510e-10,
        8.394e-10,  7.707e-10,  7.152e-10,  6.274e-10,  5.598e-10,
        5.028e-10,  4.300e-10,  3.710e-10,  3.245e-10,  2.809e-10,
        2.461e-10,  2.154e-10,  1.910e-10,  1.685e-10,  1.487e-10,
        1.313e-10,  1.163e-10,  1.031e-10,  9.172e-11,  8.221e-11,
        7.382e-11,  6.693e-11,  6.079e-11,  5.581e-11,  5.167e-11,
        4.811e-11,  4.506e-11,  4.255e-11,  4.083e-11,  3.949e-11,
        3.881e-11,  3.861e-11,  3.858e-11,  3.951e-11,  4.045e-11,
        4.240e-11,  4.487e-11,  4.806e-11,  5.133e-11,  5.518e-11,
        5.919e-11,  6.533e-11,  7.031e-11,  7.762e-11,  8.305e-11,
        9.252e-11,  9.727e-11,  1.045e-10,  1.117e-10,  1.200e-10,
        1.275e-10,  1.341e-10,  1.362e-10,  1.438e-10,  1.450e-10,
        1.455e-10,  1.455e-10,  1.434e-10,  1.381e-10,  1.301e-10,
        1.276e-10,  1.163e-10,  1.089e-10,  9.911e-11,  8.943e-11,
        7.618e-11,  6.424e-11,  5.717e-11,  4.866e-11,  4.257e-11,
        3.773e-11,  3.331e-11,  2.958e-11,  2.629e-11,  2.316e-11,
        2.073e-11,  1.841e-11,  1.635e-11,  1.464e-11,  1.310e-11,
        1.160e-11,  1.047e-11,  9.408e-12,  8.414e-12,  7.521e-12,
        6.705e-12,  5.993e-12,  5.371e-12,  4.815e-12,  4.338e-12,
        3.921e-12,  3.567e-12,  3.265e-12,  3.010e-12,  2.795e-12,
        2.613e-12,  2.464e-12,  2.346e-12,  2.256e-12,  2.195e-12,
        2.165e-12,  2.166e-12,  2.198e-12,  2.262e-12,  2.364e-12,
        2.502e-12,  2.682e-12,  2.908e-12,  3.187e-12,  3.533e-12,
        3.946e-12,  4.418e-12,  5.013e-12,  5.708e-12,  6.379e-12,
        7.430e-12,  8.390e-12,  9.510e-12,  1.078e-11,  1.259e-11,
        1.438e-11,  1.630e-11,  1.814e-11,  2.055e-11,  2.348e-11,
        2.664e-11,  2.956e-11,  3.300e-11,  3.677e-11,  4.032e-11,
        4.494e-11,  4.951e-11,  5.452e-11,  6.014e-11,  6.500e-11,
        6.915e-11,  7.450e-11,  7.971e-11,  8.468e-11,  8.726e-11,
        8.995e-11,  9.182e-11,  9.509e-11,  9.333e-11,  9.386e-11,
        9.457e-11,  9.210e-11,  9.019e-11,  8.680e-11,  8.298e-11,
        7.947e-11,  7.460e-11,  7.082e-11,  6.132e-11,  5.855e-11,
        5.073e-11,  4.464e-11,  3.825e-11,  3.375e-11,  2.911e-11,
        2.535e-11,  2.160e-11,  1.907e-11,  1.665e-11,  1.463e-11,
        1.291e-11,  1.133e-11,  9.997e-12,  8.836e-12,  7.839e-12,
        6.943e-12,  6.254e-12,  5.600e-12,  5.029e-12,  4.529e-12,
        4.102e-12,  3.737e-12,  3.428e-12,  3.169e-12,  2.959e-12,
        2.798e-12,  2.675e-12,  2.582e-12,  2.644e-12,  2.557e-12,
        2.614e-12,  2.717e-12,  2.874e-12,  3.056e-12,  3.187e-12,
        3.631e-12,  3.979e-12,  4.248e-12,  4.817e-12,  5.266e-12,
        5.836e-12,  6.365e-12,  6.807e-12,  7.470e-12,  7.951e-12,
        8.636e-12,  8.972e-12,  9.314e-12,  9.445e-12,  1.003e-11,
        1.013e-11,  9.937e-12,  9.729e-12,  9.064e-12,  9.119e-12,
        9.124e-12,  8.704e-12,  8.078e-12,  7.470e-12,  6.329e-12,
        5.674e-12,  4.808e-12,  4.119e-12,  3.554e-12,  3.103e-12,
        2.731e-12,  2.415e-12,  2.150e-12,  1.926e-12,  1.737e-12,
        1.578e-12,  1.447e-12,  1.340e-12,  1.255e-12,  1.191e-12,
        1.146e-12,  1.121e-12,  1.114e-12,  1.126e-12,  1.156e-12,
        1.207e-12,  1.278e-12,  1.372e-12,  1.490e-12,  1.633e-12,
        1.805e-12,  2.010e-12,  2.249e-12,  2.528e-12,  2.852e-12,
        3.228e-12,  3.658e-12,  4.153e-12,  4.728e-12,  5.394e-12,
        6.176e-12,  7.126e-12,  8.188e-12,  9.328e-12,  1.103e-11,
        1.276e-11,  1.417e-11,  1.615e-11,  1.840e-11,  2.155e-11,
        2.429e-11,  2.826e-11,  3.222e-11,  3.664e-11,  4.140e-11,
        4.906e-11,  5.536e-11,  6.327e-11,  7.088e-11,  8.316e-11,
        9.242e-11,  1.070e-10,  1.223e-10,  1.341e-10,  1.553e-10,
        1.703e-10,  1.900e-10,  2.022e-10,  2.233e-10,  2.345e-10,
        2.438e-10,  2.546e-10,  2.599e-10,  2.661e-10,  2.703e-10,
        2.686e-10,  2.662e-10,  2.560e-10,  2.552e-10,  2.378e-10,
        2.252e-10,  2.146e-10,  1.885e-10,  1.668e-10,  1.441e-10,
        1.295e-10,  1.119e-10,  9.893e-11,  8.687e-11,  7.678e-11,
        6.685e-11,  5.879e-11,  5.127e-11,  4.505e-11,  3.997e-11,
        3.511e-11};
 
 
// H2O foreign continuum parameters at all temperatures
// date of last update: 11/18/02
// units of (CM**3/MOL)*1.E-20
const Numeric FH2O_ckd_mt_100_v1  =   -20.0;
const Numeric FH2O_ckd_mt_100_v2  = 20000.0;
const Numeric FH2O_ckd_mt_100_dv  =    10.0;
const int     FH2O_ckd_mt_100_npt =  2003;
const double  FH2O_ckd_mt_100[FH2O_ckd_mt_100_npt+addF77fields] = {
        0.000e0,    1.205e-02,  1.126e-02,
        1.095e-02,  1.126e-02,  1.205e-02,  1.322e-02,  1.430e-02,
        1.506e-02,  1.548e-02,  1.534e-02,  1.486e-02,  1.373e-02,
        1.262e-02,  1.134e-02,  1.001e-02,  8.702e-03,  7.475e-03,
        6.481e-03,  5.480e-03,  4.600e-03,  3.833e-03,  3.110e-03,
        2.543e-03,  2.049e-03,  1.680e-03,  1.374e-03,  1.046e-03,
        8.193e-04,  6.267e-04,  4.968e-04,  3.924e-04,  2.983e-04,
        2.477e-04,  1.997e-04,  1.596e-04,  1.331e-04,  1.061e-04,
        8.942e-05,  7.168e-05,  5.887e-05,  4.848e-05,  3.817e-05,
        3.170e-05,  2.579e-05,  2.162e-05,  1.768e-05,  1.490e-05,
        1.231e-05,  1.013e-05,  8.555e-06,  7.328e-06,  6.148e-06,
        5.207e-06,  4.387e-06,  3.741e-06,  3.220e-06,  2.753e-06,
        2.346e-06,  1.985e-06,  1.716e-06,  1.475e-06,  1.286e-06,
        1.122e-06,  9.661e-07,  8.284e-07,  7.057e-07,  6.119e-07,
        5.290e-07,  4.571e-07,  3.948e-07,  3.432e-07,  2.983e-07,
        2.589e-07,  2.265e-07,  1.976e-07,  1.704e-07,  1.456e-07,
        1.260e-07,  1.101e-07,  9.648e-08,  8.415e-08,  7.340e-08,
        6.441e-08,  5.643e-08,  4.940e-08,  4.276e-08,  3.703e-08,
        3.227e-08,  2.825e-08,  2.478e-08,  2.174e-08,  1.898e-08,
        1.664e-08,  1.458e-08,  1.278e-08,  1.126e-08,  9.891e-09,
        8.709e-09,  7.652e-09,  6.759e-09,  5.975e-09,  5.310e-09,
        4.728e-09,  4.214e-09,  3.792e-09,  3.463e-09,  3.226e-09,
        2.992e-09,  2.813e-09,  2.749e-09,  2.809e-09,  2.913e-09,
        3.037e-09,  3.413e-09,  3.738e-09,  4.189e-09,  4.808e-09,
        5.978e-09,  7.088e-09,  8.071e-09,  9.610e-09,  1.210e-08,
        1.500e-08,  1.764e-08,  2.221e-08,  2.898e-08,  3.948e-08,
        5.068e-08,  6.227e-08,  7.898e-08,  1.033e-07,  1.437e-07,
        1.889e-07,  2.589e-07,  3.590e-07,  4.971e-07,  7.156e-07,
        9.983e-07,  1.381e-06,  1.929e-06,  2.591e-06,  3.453e-06,
        4.570e-06,  5.930e-06,  7.552e-06,  9.556e-06,  1.183e-05,
        1.425e-05,  1.681e-05,  1.978e-05,  2.335e-05,  2.668e-05,
        3.022e-05,  3.371e-05,  3.715e-05,  3.967e-05,  4.060e-05,
        4.010e-05,  3.809e-05,  3.491e-05,  3.155e-05,  2.848e-05,
        2.678e-05,  2.660e-05,  2.811e-05,  3.071e-05,  3.294e-05,
        3.459e-05,  3.569e-05,  3.560e-05,  3.434e-05,  3.186e-05,
        2.916e-05,  2.622e-05,  2.275e-05,  1.918e-05,  1.620e-05,
        1.373e-05,  1.182e-05,  1.006e-05,  8.556e-06,  7.260e-06,
        6.107e-06,  5.034e-06,  4.211e-06,  3.426e-06,  2.865e-06,
        2.446e-06,  1.998e-06,  1.628e-06,  1.242e-06,  1.005e-06,
        7.853e-07,  6.210e-07,  5.071e-07,  4.156e-07,  3.548e-07,
        2.825e-07,  2.261e-07,  1.916e-07,  1.510e-07,  1.279e-07,
        1.059e-07,  9.140e-08,  7.707e-08,  6.170e-08,  5.311e-08,
        4.263e-08,  3.518e-08,  2.961e-08,  2.457e-08,  2.119e-08,
        1.712e-08,  1.439e-08,  1.201e-08,  1.003e-08,  8.564e-09,
        7.199e-09,  6.184e-09,  5.206e-09,  4.376e-09,  3.708e-09,
        3.157e-09,  2.725e-09,  2.361e-09,  2.074e-09,  1.797e-09,
        1.562e-09,  1.364e-09,  1.196e-09,  1.042e-09,  8.862e-10,
        7.648e-10,  6.544e-10,  5.609e-10,  4.791e-10,  4.108e-10,
        3.531e-10,  3.038e-10,  2.618e-10,  2.268e-10,  1.969e-10,
        1.715e-10,  1.496e-10,  1.308e-10,  1.147e-10,  1.008e-10,
        8.894e-11,  7.885e-11,  7.031e-11,  6.355e-11,  5.854e-11,
        5.534e-11,  5.466e-11,  5.725e-11,  6.447e-11,  7.943e-11,
        1.038e-10,  1.437e-10,  2.040e-10,  2.901e-10,  4.051e-10,
        5.556e-10,  7.314e-10,  9.291e-10,  1.134e-09,  1.321e-09,
        1.482e-09,  1.596e-09,  1.669e-09,  1.715e-09,  1.762e-09,
        1.817e-09,  1.828e-09,  1.848e-09,  1.873e-09,  1.902e-09,
        1.894e-09,  1.864e-09,  1.841e-09,  1.797e-09,  1.704e-09,
        1.559e-09,  1.382e-09,  1.187e-09,  1.001e-09,  8.468e-10,
        7.265e-10,  6.521e-10,  6.381e-10,  6.660e-10,  7.637e-10,
        9.705e-10,  1.368e-09,  1.856e-09,  2.656e-09,  3.954e-09,
        5.960e-09,  8.720e-09,  1.247e-08,  1.781e-08,  2.491e-08,
        3.311e-08,  4.272e-08,  5.205e-08,  6.268e-08,  7.337e-08,
        8.277e-08,  9.185e-08,  1.004e-07,  1.091e-07,  1.159e-07,
        1.188e-07,  1.175e-07,  1.124e-07,  1.033e-07,  9.381e-08,
        8.501e-08,  7.956e-08,  7.894e-08,  8.331e-08,  9.102e-08,
        9.836e-08,  1.035e-07,  1.064e-07,  1.060e-07,  1.032e-07,
        9.808e-08,  9.139e-08,  8.442e-08,  7.641e-08,  6.881e-08,
        6.161e-08,  5.404e-08,  4.804e-08,  4.446e-08,  4.328e-08,
        4.259e-08,  4.421e-08,  4.673e-08,  4.985e-08,  5.335e-08,
        5.796e-08,  6.542e-08,  7.714e-08,  8.827e-08,  1.040e-07,
        1.238e-07,  1.499e-07,  1.829e-07,  2.222e-07,  2.689e-07,
        3.303e-07,  3.981e-07,  4.840e-07,  5.910e-07,  7.363e-07,
        9.087e-07,  1.139e-06,  1.455e-06,  1.866e-06,  2.440e-06,
        3.115e-06,  3.941e-06,  4.891e-06,  5.992e-06,  7.111e-06,
        8.296e-06,  9.210e-06,  9.987e-06,  1.044e-05,  1.073e-05,
        1.092e-05,  1.106e-05,  1.138e-05,  1.171e-05,  1.186e-05,
        1.186e-05,  1.179e-05,  1.166e-05,  1.151e-05,  1.160e-05,
        1.197e-05,  1.241e-05,  1.268e-05,  1.260e-05,  1.184e-05,
        1.063e-05,  9.204e-06,  7.584e-06,  6.053e-06,  4.482e-06,
        3.252e-06,  2.337e-06,  1.662e-06,  1.180e-06,  8.150e-07,
        5.950e-07,  4.354e-07,  3.302e-07,  2.494e-07,  1.930e-07,
        1.545e-07,  1.250e-07,  1.039e-07,  8.602e-08,  7.127e-08,
        5.897e-08,  4.838e-08,  4.018e-08,  3.280e-08,  2.720e-08,
        2.307e-08,  1.972e-08,  1.654e-08,  1.421e-08,  1.174e-08,
        1.004e-08,  8.739e-09,  7.358e-09,  6.242e-09,  5.303e-09,
        4.567e-09,  3.940e-09,  3.375e-09,  2.864e-09,  2.422e-09,
        2.057e-09,  1.750e-09,  1.505e-09,  1.294e-09,  1.101e-09,
        9.401e-10,  8.018e-10,  6.903e-10,  5.965e-10,  5.087e-10,
        4.364e-10,  3.759e-10,  3.247e-10,  2.809e-10,  2.438e-10,
        2.123e-10,  1.853e-10,  1.622e-10,  1.426e-10,  1.260e-10,
        1.125e-10,  1.022e-10,  9.582e-11,  9.388e-11,  9.801e-11,
        1.080e-10,  1.276e-10,  1.551e-10,  1.903e-10,  2.291e-10,
        2.724e-10,  3.117e-10,  3.400e-10,  3.562e-10,  3.625e-10,
        3.619e-10,  3.429e-10,  3.221e-10,  2.943e-10,  2.645e-10,
        2.338e-10,  2.062e-10,  1.901e-10,  1.814e-10,  1.827e-10,
        1.906e-10,  1.984e-10,  2.040e-10,  2.068e-10,  2.075e-10,
        2.018e-10,  1.959e-10,  1.897e-10,  1.852e-10,  1.791e-10,
        1.696e-10,  1.634e-10,  1.598e-10,  1.561e-10,  1.518e-10,
        1.443e-10,  1.377e-10,  1.346e-10,  1.342e-10,  1.375e-10,
        1.525e-10,  1.767e-10,  2.108e-10,  2.524e-10,  2.981e-10,
        3.477e-10,  4.262e-10,  5.326e-10,  6.646e-10,  8.321e-10,
        1.069e-09,  1.386e-09,  1.743e-09,  2.216e-09,  2.808e-09,
        3.585e-09,  4.552e-09,  5.907e-09,  7.611e-09,  9.774e-09,
        1.255e-08,  1.666e-08,  2.279e-08,  3.221e-08,  4.531e-08,
        6.400e-08,  9.187e-08,  1.295e-07,  1.825e-07,  2.431e-07,
        3.181e-07,  4.009e-07,  4.941e-07,  5.880e-07,  6.623e-07,
        7.155e-07,  7.451e-07,  7.594e-07,  7.541e-07,  7.467e-07,
        7.527e-07,  7.935e-07,  8.461e-07,  8.954e-07,  9.364e-07,
        9.843e-07,  1.024e-06,  1.050e-06,  1.059e-06,  1.074e-06,
        1.072e-06,  1.043e-06,  9.789e-07,  8.803e-07,  7.662e-07,
        6.378e-07,  5.133e-07,  3.958e-07,  2.914e-07,  2.144e-07,
        1.570e-07,  1.140e-07,  8.470e-08,  6.200e-08,  4.657e-08,
        3.559e-08,  2.813e-08,  2.222e-08,  1.769e-08,  1.391e-08,
        1.125e-08,  9.186e-09,  7.704e-09,  6.447e-09,  5.381e-09,
        4.442e-09,  3.669e-09,  3.057e-09,  2.564e-09,  2.153e-09,
        1.784e-09,  1.499e-09,  1.281e-09,  1.082e-09,  9.304e-10,
        8.169e-10,  6.856e-10,  5.866e-10,  5.043e-10,  4.336e-10,
        3.731e-10,  3.175e-10,  2.745e-10,  2.374e-10,  2.007e-10,
        1.737e-10,  1.508e-10,  1.302e-10,  1.130e-10,  9.672e-11,
        8.375e-11,  7.265e-11,  6.244e-11,  5.343e-11,  4.654e-11,
        3.975e-11,  3.488e-11,  3.097e-11,  2.834e-11,  2.649e-11,
        2.519e-11,  2.462e-11,  2.443e-11,  2.440e-11,  2.398e-11,
        2.306e-11,  2.183e-11,  2.021e-11,  1.821e-11,  1.599e-11,
        1.403e-11,  1.196e-11,  1.023e-11,  8.728e-12,  7.606e-12,
        6.941e-12,  6.545e-12,  6.484e-12,  6.600e-12,  6.718e-12,
        6.785e-12,  6.746e-12,  6.724e-12,  6.764e-12,  6.995e-12,
        7.144e-12,  7.320e-12,  7.330e-12,  7.208e-12,  6.789e-12,
        6.090e-12,  5.337e-12,  4.620e-12,  4.037e-12,  3.574e-12,
        3.311e-12,  3.346e-12,  3.566e-12,  3.836e-12,  4.076e-12,
        4.351e-12,  4.691e-12,  5.114e-12,  5.427e-12,  6.167e-12,
        7.436e-12,  8.842e-12,  1.038e-11,  1.249e-11,  1.540e-11,
        1.915e-11,  2.480e-11,  3.256e-11,  4.339e-11,  5.611e-11,
        7.519e-11,  1.037e-10,  1.409e-10,  1.883e-10,  2.503e-10,
        3.380e-10,  4.468e-10,  5.801e-10,  7.335e-10,  8.980e-10,
        1.110e-09,  1.363e-09,  1.677e-09,  2.104e-09,  2.681e-09,
        3.531e-09,  4.621e-09,  6.106e-09,  8.154e-09,  1.046e-08,
        1.312e-08,  1.607e-08,  1.948e-08,  2.266e-08,  2.495e-08,
        2.655e-08,  2.739e-08,  2.739e-08,  2.662e-08,  2.589e-08,
        2.590e-08,  2.664e-08,  2.833e-08,  3.023e-08,  3.305e-08,
        3.558e-08,  3.793e-08,  3.961e-08,  4.056e-08,  4.102e-08,
        4.025e-08,  3.917e-08,  3.706e-08,  3.493e-08,  3.249e-08,
        3.096e-08,  3.011e-08,  3.111e-08,  3.395e-08,  3.958e-08,
        4.875e-08,  6.066e-08,  7.915e-08,  1.011e-07,  1.300e-07,
        1.622e-07,  2.003e-07,  2.448e-07,  2.863e-07,  3.317e-07,
        3.655e-07,  3.960e-07,  4.098e-07,  4.168e-07,  4.198e-07,
        4.207e-07,  4.289e-07,  4.384e-07,  4.471e-07,  4.524e-07,
        4.574e-07,  4.633e-07,  4.785e-07,  5.028e-07,  5.371e-07,
        5.727e-07,  5.955e-07,  5.998e-07,  5.669e-07,  5.082e-07,
        4.397e-07,  3.596e-07,  2.814e-07,  2.074e-07,  1.486e-07,
        1.057e-07,  7.250e-08,  4.946e-08,  3.430e-08,  2.447e-08,
        1.793e-08,  1.375e-08,  1.096e-08,  9.091e-09,  7.709e-09,
        6.631e-09,  5.714e-09,  4.886e-09,  4.205e-09,  3.575e-09,
        3.070e-09,  2.631e-09,  2.284e-09,  2.002e-09,  1.745e-09,
        1.509e-09,  1.284e-09,  1.084e-09,  9.163e-10,  7.663e-10,
        6.346e-10,  5.283e-10,  4.354e-10,  3.590e-10,  2.982e-10,
        2.455e-10,  2.033e-10,  1.696e-10,  1.432e-10,  1.211e-10,
        1.020e-10,  8.702e-11,  7.380e-11,  6.293e-11,  5.343e-11,
        4.532e-11,  3.907e-11,  3.365e-11,  2.945e-11,  2.558e-11,
        2.192e-11,  1.895e-11,  1.636e-11,  1.420e-11,  1.228e-11,
        1.063e-11,  9.348e-12,  8.200e-12,  7.231e-12,  6.430e-12,
        5.702e-12,  5.052e-12,  4.469e-12,  4.000e-12,  3.679e-12,
        3.387e-12,  3.197e-12,  3.158e-12,  3.327e-12,  3.675e-12,
        4.292e-12,  5.437e-12,  7.197e-12,  1.008e-11,  1.437e-11,
        2.035e-11,  2.905e-11,  4.062e-11,  5.528e-11,  7.177e-11,
        9.064e-11,  1.109e-10,  1.297e-10,  1.473e-10,  1.652e-10,
        1.851e-10,  2.079e-10,  2.313e-10,  2.619e-10,  2.958e-10,
        3.352e-10,  3.796e-10,  4.295e-10,  4.923e-10,  5.490e-10,
        5.998e-10,  6.388e-10,  6.645e-10,  6.712e-10,  6.549e-10,
        6.380e-10,  6.255e-10,  6.253e-10,  6.459e-10,  6.977e-10,
        7.590e-10,  8.242e-10,  8.920e-10,  9.403e-10,  9.701e-10,
        9.483e-10,  9.135e-10,  8.617e-10,  7.921e-10,  7.168e-10,
        6.382e-10,  5.677e-10,  5.045e-10,  4.572e-10,  4.312e-10,
        4.145e-10,  4.192e-10,  4.541e-10,  5.368e-10,  6.771e-10,
        8.962e-10,  1.210e-09,  1.659e-09,  2.330e-09,  3.249e-09,
        4.495e-09,  5.923e-09,  7.642e-09,  9.607e-09,  1.178e-08,
        1.399e-08,  1.584e-08,  1.730e-08,  1.816e-08,  1.870e-08,
        1.868e-08,  1.870e-08,  1.884e-08,  1.990e-08,  2.150e-08,
        2.258e-08,  2.364e-08,  2.473e-08,  2.602e-08,  2.689e-08,
        2.731e-08,  2.816e-08,  2.859e-08,  2.839e-08,  2.703e-08,
        2.451e-08,  2.149e-08,  1.787e-08,  1.449e-08,  1.111e-08,
        8.282e-09,  6.121e-09,  4.494e-09,  3.367e-09,  2.487e-09,
        1.885e-09,  1.503e-09,  1.249e-09,  1.074e-09,  9.427e-10,
        8.439e-10,  7.563e-10,  6.772e-10,  6.002e-10,  5.254e-10,
        4.588e-10,  3.977e-10,  3.449e-10,  3.003e-10,  2.624e-10,
        2.335e-10,  2.040e-10,  1.771e-10,  1.534e-10,  1.296e-10,
        1.097e-10,  9.173e-11,  7.730e-11,  6.547e-11,  5.191e-11,
        4.198e-11,  3.361e-11,  2.732e-11,  2.244e-11,  1.791e-11,
        1.509e-11,  1.243e-11,  1.035e-11,  8.969e-12,  7.394e-12,
        6.323e-12,  5.282e-12,  4.543e-12,  3.752e-12,  3.140e-12,
        2.600e-12,  2.194e-12,  1.825e-12,  1.511e-12,  1.245e-12,
        1.024e-12,  8.539e-13,  7.227e-13,  6.102e-13,  5.189e-13,
        4.430e-13,  3.774e-13,  3.236e-13,  2.800e-13,  2.444e-13,
        2.156e-13,  1.932e-13,  1.775e-13,  1.695e-13,  1.672e-13,
        1.704e-13,  1.825e-13,  2.087e-13,  2.614e-13,  3.377e-13,
        4.817e-13,  6.989e-13,  1.062e-12,  1.562e-12,  2.288e-12,
        3.295e-12,  4.550e-12,  5.965e-12,  7.546e-12,  9.395e-12,
        1.103e-11,  1.228e-11,  1.318e-11,  1.380e-11,  1.421e-11,
        1.390e-11,  1.358e-11,  1.336e-11,  1.342e-11,  1.356e-11,
        1.424e-11,  1.552e-11,  1.730e-11,  1.951e-11,  2.128e-11,
        2.249e-11,  2.277e-11,  2.226e-11,  2.111e-11,  1.922e-11,
        1.775e-11,  1.661e-11,  1.547e-11,  1.446e-11,  1.323e-11,
        1.210e-11,  1.054e-11,  9.283e-12,  8.671e-12,  8.670e-12,
        9.429e-12,  1.062e-11,  1.255e-11,  1.506e-11,  1.818e-11,
        2.260e-11,  2.831e-11,  3.723e-11,  5.092e-11,  6.968e-11,
        9.826e-11,  1.349e-10,  1.870e-10,  2.580e-10,  3.430e-10,
        4.424e-10,  5.521e-10,  6.812e-10,  8.064e-10,  9.109e-10,
        9.839e-10,  1.028e-09,  1.044e-09,  1.029e-09,  1.005e-09,
        1.002e-09,  1.038e-09,  1.122e-09,  1.233e-09,  1.372e-09,
        1.524e-09,  1.665e-09,  1.804e-09,  1.908e-09,  2.015e-09,
        2.117e-09,  2.219e-09,  2.336e-09,  2.531e-09,  2.805e-09,
        3.189e-09,  3.617e-09,  4.208e-09,  4.911e-09,  5.619e-09,
        6.469e-09,  7.188e-09,  7.957e-09,  8.503e-09,  9.028e-09,
        9.571e-09,  9.990e-09,  1.055e-08,  1.102e-08,  1.132e-08,
        1.141e-08,  1.145e-08,  1.145e-08,  1.176e-08,  1.224e-08,
        1.304e-08,  1.388e-08,  1.445e-08,  1.453e-08,  1.368e-08,
        1.220e-08,  1.042e-08,  8.404e-09,  6.403e-09,  4.643e-09,
        3.325e-09,  2.335e-09,  1.638e-09,  1.190e-09,  9.161e-10,
        7.412e-10,  6.226e-10,  5.516e-10,  5.068e-10,  4.831e-10,
        4.856e-10,  5.162e-10,  5.785e-10,  6.539e-10,  7.485e-10,
        8.565e-10,  9.534e-10,  1.052e-09,  1.115e-09,  1.173e-09,
        1.203e-09,  1.224e-09,  1.243e-09,  1.248e-09,  1.261e-09,
        1.265e-09,  1.250e-09,  1.217e-09,  1.176e-09,  1.145e-09,
        1.153e-09,  1.199e-09,  1.278e-09,  1.366e-09,  1.426e-09,
        1.444e-09,  1.365e-09,  1.224e-09,  1.051e-09,  8.539e-10,
        6.564e-10,  4.751e-10,  3.404e-10,  2.377e-10,  1.631e-10,
        1.114e-10,  7.870e-11,  5.793e-11,  4.284e-11,  3.300e-11,
        2.620e-11,  2.152e-11,  1.777e-11,  1.496e-11,  1.242e-11,
        1.037e-11,  8.725e-12,  7.004e-12,  5.718e-12,  4.769e-12,
        3.952e-12,  3.336e-12,  2.712e-12,  2.213e-12,  1.803e-12,
        1.492e-12,  1.236e-12,  1.006e-12,  8.384e-13,  7.063e-13,
        5.879e-13,  4.930e-13,  4.171e-13,  3.569e-13,  3.083e-13,
        2.688e-13,  2.333e-13,  2.035e-13,  1.820e-13,  1.682e-13,
        1.635e-13,  1.674e-13,  1.769e-13,  2.022e-13,  2.485e-13,
        3.127e-13,  4.250e-13,  5.928e-13,  8.514e-13,  1.236e-12,
        1.701e-12,  2.392e-12,  3.231e-12,  4.350e-12,  5.559e-12,
        6.915e-12,  8.519e-12,  1.013e-11,  1.146e-11,  1.240e-11,
        1.305e-11,  1.333e-11,  1.318e-11,  1.263e-11,  1.238e-11,
        1.244e-11,  1.305e-11,  1.432e-11,  1.623e-11,  1.846e-11,
        2.090e-11,  2.328e-11,  2.526e-11,  2.637e-11,  2.702e-11,
        2.794e-11,  2.889e-11,  2.989e-11,  3.231e-11,  3.680e-11,
        4.375e-11,  5.504e-11,  7.159e-11,  9.502e-11,  1.279e-10,
        1.645e-10,  2.098e-10,  2.618e-10,  3.189e-10,  3.790e-10,
        4.303e-10,  4.753e-10,  5.027e-10,  5.221e-10,  5.293e-10,
        5.346e-10,  5.467e-10,  5.796e-10,  6.200e-10,  6.454e-10,
        6.705e-10,  6.925e-10,  7.233e-10,  7.350e-10,  7.538e-10,
        7.861e-10,  8.077e-10,  8.132e-10,  7.749e-10,  7.036e-10,
        6.143e-10,  5.093e-10,  4.089e-10,  3.092e-10,  2.299e-10,
        1.705e-10,  1.277e-10,  9.723e-11,  7.533e-11,  6.126e-11,
        5.154e-11,  4.428e-11,  3.913e-11,  3.521e-11,  3.297e-11,
        3.275e-11,  3.460e-11,  3.798e-11,  4.251e-11,  4.745e-11,
        5.232e-11,  5.606e-11,  5.820e-11,  5.880e-11,  5.790e-11,
        5.661e-11,  5.491e-11,  5.366e-11,  5.341e-11,  5.353e-11,
        5.336e-11,  5.293e-11,  5.248e-11,  5.235e-11,  5.208e-11,
        5.322e-11,  5.521e-11,  5.725e-11,  5.827e-11,  5.685e-11,
        5.245e-11,  4.612e-11,  3.884e-11,  3.129e-11,  2.404e-11,
        1.732e-11,  1.223e-11,  8.574e-12,  5.888e-12,  3.986e-12,
        2.732e-12,  1.948e-12,  1.414e-12,  1.061e-12,  8.298e-13,
        6.612e-13,  5.413e-13,  4.472e-13,  3.772e-13,  3.181e-13,
        2.645e-13,  2.171e-13,  1.778e-13,  1.464e-13,  1.183e-13,
        9.637e-14,  7.991e-14,  6.668e-14,  5.570e-14,  4.663e-14,
        3.848e-14,  3.233e-14,  2.706e-14,  2.284e-14,  1.944e-14,
        1.664e-14,  1.430e-14,  1.233e-14,  1.066e-14,  9.234e-15,
        8.023e-15,  6.993e-15,  6.119e-15,  5.384e-15,  4.774e-15,
        4.283e-15,  3.916e-15,  3.695e-15,  3.682e-15,  4.004e-15,
        4.912e-15,  6.853e-15,  1.056e-14,  1.712e-14,  2.804e-14,
        4.516e-14,  7.113e-14,  1.084e-13,  1.426e-13,  1.734e-13,
        1.978e-13,  2.194e-13,  2.388e-13,  2.489e-13,  2.626e-13,
        2.865e-13,  3.105e-13,  3.387e-13,  3.652e-13,  3.984e-13,
        4.398e-13,  4.906e-13,  5.550e-13,  6.517e-13,  7.813e-13,
        9.272e-13,  1.164e-12,  1.434e-12,  1.849e-12,  2.524e-12,
        3.328e-12,  4.523e-12,  6.108e-12,  8.207e-12,  1.122e-11,
        1.477e-11,  1.900e-11,  2.412e-11,  2.984e-11,  3.680e-11,
        4.353e-11,  4.963e-11,  5.478e-11,  5.903e-11,  6.233e-11,
        6.483e-11,  6.904e-11,  7.569e-11,  8.719e-11,  1.048e-10,
        1.278e-10,  1.557e-10,  1.869e-10,  2.218e-10,  2.610e-10,
        2.975e-10,  3.371e-10,  3.746e-10,  4.065e-10,  4.336e-10,
        4.503e-10,  4.701e-10,  4.800e-10,  4.917e-10,  5.038e-10,
        5.128e-10,  5.143e-10,  5.071e-10,  5.019e-10,  5.025e-10,
        5.183e-10,  5.496e-10,  5.877e-10,  6.235e-10,  6.420e-10,
        6.234e-10,  5.698e-10,  4.916e-10,  4.022e-10,  3.126e-10,
        2.282e-10,  1.639e-10,  1.142e-10,  7.919e-11,  5.690e-11,
        4.313e-11,  3.413e-11,  2.807e-11,  2.410e-11,  2.166e-11,
        2.024e-11,  1.946e-11,  1.929e-11,  1.963e-11,  2.035e-11,
        2.162e-11,  2.305e-11,  2.493e-11,  2.748e-11,  3.048e-11,
        3.413e-11,  3.754e-11,  4.155e-11,  4.635e-11,  5.110e-11,
        5.734e-11,  6.338e-11,  6.990e-11,  7.611e-11,  8.125e-11,
        8.654e-11,  8.951e-11,  9.182e-11,  9.310e-11,  9.273e-11,
        9.094e-11,  8.849e-11,  8.662e-11,  8.670e-11,  8.972e-11,
        9.566e-11,  1.025e-10,  1.083e-10,  1.111e-10,  1.074e-10,
        9.771e-11,  8.468e-11,  6.958e-11,  5.470e-11,  4.040e-11,
        2.940e-11,  2.075e-11,  1.442e-11,  1.010e-11,  7.281e-12,
        5.409e-12,  4.138e-12,  3.304e-12,  2.784e-12,  2.473e-12,
        2.273e-12,  2.186e-12,  2.118e-12,  2.066e-12,  1.958e-12,
        1.818e-12,  1.675e-12,  1.509e-12,  1.349e-12,  1.171e-12,
        9.838e-13,  8.213e-13,  6.765e-13,  5.378e-13,  4.161e-13,
        3.119e-13,  2.279e-13,  1.637e-13,  1.152e-13,  8.112e-14,
        5.919e-14,  4.470e-14,  3.492e-14,  2.811e-14,  2.319e-14,
        1.948e-14,  1.660e-14,  1.432e-14,  1.251e-14,  1.109e-14,
        1.006e-14,  9.450e-15,  9.384e-15,  1.012e-14,  1.216e-14,
        1.636e-14,  2.305e-14,  3.488e-14,  5.572e-14,  8.479e-14,
        1.265e-13,  1.905e-13,  2.730e-13,  3.809e-13,  4.955e-13,
        6.303e-13,  7.861e-13,  9.427e-13,  1.097e-12,  1.212e-12,
        1.328e-12,  1.415e-12,  1.463e-12,  1.495e-12,  1.571e-12,
        1.731e-12,  1.981e-12,  2.387e-12,  2.930e-12,  3.642e-12,
        4.584e-12,  5.822e-12,  7.278e-12,  9.193e-12,  1.135e-11,
        1.382e-11,  1.662e-11,  1.958e-11,  2.286e-11,  2.559e-11,
        2.805e-11,  2.988e-11,  3.106e-11,  3.182e-11,  3.200e-11,
        3.258e-11,  3.362e-11,  3.558e-11,  3.688e-11,  3.800e-11,
        3.929e-11,  4.062e-11,  4.186e-11,  4.293e-11,  4.480e-11,
        4.643e-11,  4.704e-11,  4.571e-11,  4.206e-11,  3.715e-11,
        3.131e-11,  2.541e-11,  1.978e-11,  1.508e-11,  1.146e-11,
        8.700e-12,  6.603e-12,  5.162e-12,  4.157e-12,  3.408e-12,
        2.829e-12,  2.405e-12,  2.071e-12,  1.826e-12,  1.648e-12,
        1.542e-12,  1.489e-12,  1.485e-12,  1.493e-12,  1.545e-12,
        1.637e-12,  1.814e-12,  2.061e-12,  2.312e-12,  2.651e-12,
        3.030e-12,  3.460e-12,  3.901e-12,  4.306e-12,  4.721e-12,
        5.008e-12,  5.281e-12,  5.541e-12,  5.791e-12,  6.115e-12,
        6.442e-12,  6.680e-12,  6.791e-12,  6.831e-12,  6.839e-12,
        6.946e-12,  7.128e-12,  7.537e-12,  8.036e-12,  8.392e-12,
        8.526e-12,  8.110e-12,  7.325e-12,  6.329e-12,  5.183e-12,
        4.081e-12,  2.985e-12,  2.141e-12,  1.492e-12,  1.015e-12,
        6.684e-13,  4.414e-13,  2.987e-13,  2.038e-13,  1.391e-13,
        9.860e-14,  7.240e-14,  5.493e-14,  4.288e-14,  3.427e-14,
        2.787e-14,  2.296e-14,  1.909e-14,  1.598e-14,  1.344e-14,
        1.135e-14,  9.616e-15,  8.169e-15,  6.957e-15,  5.938e-15,
        5.080e-15,  4.353e-15,  3.738e-15,  3.217e-15,  2.773e-15,
        2.397e-15,  2.077e-15,  1.805e-15,  1.575e-15,  1.382e-15,
        1.221e-15,  1.090e-15,  9.855e-16,  9.068e-16,  8.537e-16,
        8.270e-16,  8.290e-16,  8.634e-16,  9.359e-16,  1.055e-15,
        1.233e-15,  1.486e-15,  1.839e-15,  2.326e-15,  2.998e-15,
        3.934e-15,  5.256e-15,  7.164e-15,  9.984e-15,  1.427e-14,
        2.099e-14,  3.196e-14,  5.121e-14,  7.908e-14,  1.131e-13,
        1.602e-13,  2.239e-13,  3.075e-13,  4.134e-13,  5.749e-13,
        7.886e-13,  1.071e-12,  1.464e-12,  2.032e-12,  2.800e-12,
        3.732e-12,  4.996e-12,  6.483e-12,  8.143e-12,  1.006e-11,
        1.238e-11,  1.484e-11,  1.744e-11,  2.020e-11,  2.274e-11,
        2.562e-11,  2.848e-11,  3.191e-11,  3.617e-11,  4.081e-11,
        4.577e-11,  4.937e-11,  5.204e-11,  5.401e-11,  5.462e-11,
        5.507e-11,  5.510e-11,  5.605e-11,  5.686e-11,  5.739e-11,
        5.766e-11,  5.740e-11,  5.754e-11,  5.761e-11,  5.777e-11,
        5.712e-11,  5.510e-11,  5.088e-11,  4.438e-11,  3.728e-11,
        2.994e-11,  2.305e-11,  1.715e-11,  1.256e-11,  9.208e-12,
        6.745e-12,  5.014e-12,  3.785e-12,  2.900e-12,  2.239e-12,
        1.757e-12,  1.414e-12,  1.142e-12,  9.482e-13,  8.010e-13,
        6.961e-13,  6.253e-13,  5.735e-13,  5.433e-13,  5.352e-13,
        5.493e-13,  5.706e-13,  6.068e-13,  6.531e-13,  7.109e-13,
        7.767e-13,  8.590e-13,  9.792e-13,  1.142e-12,  1.371e-12,
        1.650e-12,  1.957e-12,  2.302e-12,  2.705e-12,  3.145e-12,
        3.608e-12,  4.071e-12,  4.602e-12,  5.133e-12,  5.572e-12,
        5.987e-12,  6.248e-12,  6.533e-12,  6.757e-12,  6.935e-12,
        7.224e-12,  7.422e-12,  7.538e-12,  7.547e-12,  7.495e-12,
        7.543e-12,  7.725e-12,  8.139e-12,  8.627e-12,  9.146e-12,
        9.443e-12,  9.318e-12,  8.649e-12,  7.512e-12,  6.261e-12,
        4.915e-12,  3.647e-12,  2.597e-12,  1.785e-12,  1.242e-12,
        8.660e-13,  6.207e-13,  4.610e-13,  3.444e-13,  2.634e-13,
        2.100e-13,  1.725e-13,  1.455e-13,  1.237e-13,  1.085e-13,
        9.513e-14,  7.978e-14,  6.603e-14,  5.288e-14,  4.084e-14,
        2.952e-14,  2.157e-14,  1.593e-14,  1.199e-14,  9.267e-15,
        7.365e-15,  6.004e-15,  4.995e-15,  4.218e-15,  3.601e-15,
        3.101e-15,  2.692e-15,  2.360e-15,  2.094e-15,  1.891e-15,
        1.755e-15,  1.699e-15,  1.755e-15,  1.987e-15,  2.506e-15,
        3.506e-15,  5.289e-15,  8.311e-15,  1.325e-14,  2.129e-14,
        3.237e-14,  4.595e-14,  6.441e-14,  8.433e-14,  1.074e-13,
        1.383e-13,  1.762e-13,  2.281e-13,  2.831e-13,  3.523e-13,
        4.380e-13,  5.304e-13,  6.290e-13,  7.142e-13,  8.032e-13,
        8.934e-13,  9.888e-13,  1.109e-12,  1.261e-12,  1.462e-12,
        1.740e-12,  2.099e-12,  2.535e-12,  3.008e-12,  3.462e-12,
        3.856e-12,  4.098e-12,  4.239e-12,  4.234e-12,  4.132e-12,
        3.986e-12,  3.866e-12,  3.829e-12,  3.742e-12,  3.705e-12,
        3.694e-12,  3.765e-12,  3.849e-12,  3.929e-12,  4.056e-12,
        4.092e-12,  4.047e-12,  3.792e-12,  3.407e-12,  2.953e-12,
        2.429e-12,  1.931e-12,  1.460e-12,  1.099e-12,  8.199e-13,
        6.077e-13,  4.449e-13,  3.359e-13,  2.524e-13,  1.881e-13,
        1.391e-13,  1.020e-13,  7.544e-14,  5.555e-14,  4.220e-14,
        3.321e-14,  2.686e-14,  2.212e-14,  1.780e-14,  1.369e-14,
        1.094e-14,  9.130e-15,  8.101e-15,  7.828e-15,  8.393e-15,
        1.012e-14,  1.259e-14,  1.538e-14,  1.961e-14,  2.619e-14,
        3.679e-14,  5.049e-14,  6.917e-14,  8.880e-14,  1.115e-13,
        1.373e-13,  1.619e-13,  1.878e-13,  2.111e-13,  2.330e-13,
        2.503e-13,  2.613e-13,  2.743e-13,  2.826e-13,  2.976e-13,
        3.162e-13,  3.360e-13,  3.491e-13,  3.541e-13,  3.595e-13,
        3.608e-13,  3.709e-13,  3.869e-13,  4.120e-13,  4.366e-13,
        4.504e-13,  4.379e-13,  3.955e-13,  3.385e-13,  2.741e-13,
        2.089e-13,  1.427e-13,  9.294e-14,  5.775e-14,  3.565e-14,
        2.210e-14,  1.398e-14,  9.194e-15,  6.363e-15,  4.644e-15,
        3.550e-15,  2.808e-15,  2.274e-15,  1.871e-15,  1.557e-15,
        1.308e-15,  1.108e-15,  9.488e-16,  8.222e-16,  7.238e-16,
        6.506e-16,  6.008e-16,  5.742e-16,  5.724e-16,  5.991e-16,
        6.625e-16,  7.775e-16,  9.734e-16,  1.306e-15,  1.880e-15,
        2.879e-15,  4.616e-15,  7.579e-15,  1.248e-14,  2.030e-14,
        3.244e-14,  5.171e-14,  7.394e-14,  9.676e-14,  1.199e-13,
        1.467e-13,  1.737e-13,  2.020e-13,  2.425e-13,  3.016e-13,
        3.700e-13,  4.617e-13,  5.949e-13,  7.473e-13,  9.378e-13,
        1.191e-12,  1.481e-12,  1.813e-12,  2.232e-12,  2.722e-12,
        3.254e-12,  3.845e-12,  4.458e-12,  5.048e-12,  5.511e-12,
        5.898e-12,  6.204e-12,  6.293e-12,  6.386e-12,  6.467e-12,
        6.507e-12,  6.466e-12,  6.443e-12,  6.598e-12,  6.873e-12,
        7.300e-12,  7.816e-12,  8.368e-12,  8.643e-12,  8.466e-12,
        7.871e-12,  6.853e-12,  5.714e-12,  4.482e-12,  3.392e-12,
        2.613e-12,  2.008e-12,  1.562e-12,  1.228e-12,  9.888e-13,
        7.646e-13,  5.769e-13,  4.368e-13,  3.324e-13,  2.508e-13,
        1.916e-13};
 
 
// CO2 continuum Ridgeway 1982, implementation of CKD_MT_1.00
// UNITS OF (CM**3/MOL)*1.E-20
const Numeric FCO2_ckd_mt_100_v1  =   -20.0;
const Numeric FCO2_ckd_mt_100_v2  = 10000.0;
const Numeric FCO2_ckd_mt_100_dv  =    10.0;
const int     FCO2_ckd_mt_100_npt =  1003;
const double  FCO2_ckd_mt_100[FCO2_ckd_mt_100_npt+addF77fields] = {
           0.000e0,    1.1110E-11, 1.0188E-11, 
           9.3516E-12, 1.0188E-11, 1.1110E-11, 1.2127E-11, 1.3251E-11,    // F17590
           1.4495E-11, 1.5872E-11, 1.7400E-11, 1.9097E-11, 2.0985E-11,    // F17600
           2.3087E-11, 2.5431E-11, 2.8051E-11, 3.0982E-11, 3.4268E-11,    // F17610
           3.7956E-11, 4.2105E-11, 4.6779E-11, 5.2056E-11, 5.8025E-11,    // F17620
           6.4791E-11, 7.2477E-11, 8.1226E-11, 9.1209E-11, 1.0263E-10,    // F17630
           1.1572E-10, 1.3078E-10, 1.4814E-10, 1.6821E-10, 1.9148E-10,    // F17640
           2.1857E-10, 2.5019E-10, 2.8723E-10, 3.3080E-10, 3.8223E-10,    // F17650
           4.4321E-10, 5.1583E-10, 6.0274E-10, 7.0725E-10, 8.3363E-10,    // F17660
           9.8735E-10, 1.1755E-09, 1.4074E-09, 1.6953E-09, 2.0557E-09,    // F17670
           2.5107E-09, 3.0909E-09, 3.8391E-09, 4.8165E-09, 6.1117E-09,    // F17680
           7.8550E-09, 1.0241E-08, 1.3593E-08, 1.8344E-08, 2.5408E-08,    // F17700
           3.6386E-08, 5.4251E-08, 8.4262E-08, 1.3273E-07, 2.1867E-07,    // F17710
           3.5007E-07, 6.0011E-07, 1.0797E-06, 1.8254E-06, 3.1621E-06,    // F17720
           4.0293E-06, 4.3683E-06, 4.4552E-06, 4.2684E-06, 3.9341E-06,    // F17730
           2.5972E-06, 1.5617E-06, 8.9063E-07, 5.0360E-07, 3.0616E-07,    // F17740
           1.9066E-07, 1.1904E-07, 7.6078E-08, 4.9304E-08, 3.3335E-08,    // F17750
           2.3494E-08, 1.7114E-08, 1.2742E-08, 9.6068E-09, 7.3706E-09,    // F17760
           5.7386E-09, 4.5302E-09, 3.6223E-09, 2.9309E-09, 2.4001E-09,    // F17770
           1.9927E-09, 1.6877E-09, 1.4602E-09, 1.2764E-09, 1.1317E-09,    // F17780
           1.0273E-09, 9.1943E-10, 8.0353E-10, 6.8746E-10, 5.9354E-10,    // F17790
           5.1722E-10, 4.4975E-10, 4.2350E-10, 4.2282E-10, 4.2610E-10,    // F17810
           4.5465E-10, 4.6166E-10, 4.3149E-10, 3.7615E-10, 3.1576E-10,    // F17820
           2.6490E-10, 1.9143E-10, 1.2885E-10, 9.4954E-11, 7.6499E-11,    // F17830
           6.4581E-11, 5.5923E-11, 4.9200E-11, 4.3813E-11, 3.9533E-11,    // F17840
           3.6338E-11, 3.4320E-11, 3.3329E-11, 3.2400E-11, 3.1700E-11,    // F17850
           3.1267E-11, 2.9940E-11, 2.7628E-11, 2.4496E-11, 2.1764E-11,    // F17860
           1.9306E-11, 1.7352E-11, 1.7292E-11, 1.8733E-11, 2.0224E-11,    // F17870
           2.2396E-11, 2.4225E-11, 2.4890E-11, 2.3513E-11, 2.0824E-11,    // F17880
           1.8642E-11, 1.5676E-11, 1.2882E-11, 1.1054E-11, 1.0074E-11,    // F17890
           9.6324E-12, 9.4910E-12, 9.5134E-12, 9.6427E-12, 9.8552E-12,    // F17900
           1.0140E-11, 1.0494E-11, 1.0915E-11, 1.1405E-11, 1.1965E-11,    // F17920
           1.2601E-11, 1.3316E-11, 1.4116E-11, 1.5006E-11, 1.5997E-11,    // F17930
           1.7092E-11, 1.8305E-11, 1.9641E-11, 2.1121E-11, 2.2744E-11,    // F17940
           2.4503E-11, 2.6419E-11, 2.8221E-11, 3.0609E-11, 3.3260E-11,    // F17950
           3.6247E-11, 3.9581E-11, 4.3279E-11, 4.7376E-11, 5.1932E-11,    // F17960
           5.7001E-11, 6.2654E-11, 6.8973E-11, 7.6058E-11, 8.4037E-11,    // F17970
           9.3081E-11, 1.0344E-10, 1.1547E-10, 1.2970E-10, 1.4659E-10,    // F17980
           1.6724E-10, 1.9481E-10, 2.3520E-10, 2.9424E-10, 3.6319E-10,    // F17990
           4.2279E-10, 4.8494E-10, 5.2296E-10, 5.6111E-10, 5.8935E-10,    // F18000
           6.0807E-10, 6.4204E-10, 6.8457E-10, 7.6709E-10, 8.7664E-10,    // F18010
           1.0183E-09, 1.2116E-09, 1.4874E-09, 1.8596E-09, 2.2742E-09,    // F18030
           2.7577E-09, 3.1932E-09, 3.6381E-09, 4.1207E-09, 4.6458E-09,    // F18040
           5.3065E-09, 6.0741E-09, 7.1942E-09, 8.7103E-09, 1.0713E-08,    // F18050
           1.3344E-08, 1.6831E-08, 2.1524E-08, 2.7967E-08, 3.7047E-08,    // F18060
           5.0312E-08, 7.0566E-08, 1.0275E-07, 1.5419E-07, 2.3309E-07,    // F18070
           3.4843E-07, 5.3194E-07, 8.7207E-07, 1.5075E-06, 2.7077E-06,    // F18080
           4.7125E-06, 7.1734E-06, 9.2381E-06, 1.1507E-05, 1.3737E-05,    // F18090
           1.4004E-05, 1.2679E-05, 1.0478E-05, 8.5684E-06, 6.1472E-06,    // F18100
           3.2424E-06, 1.5291E-06, 8.0390E-07, 4.6767E-07, 2.9170E-07,    // F18110
           1.9148E-07, 1.3076E-07, 9.2156E-08, 6.6652E-08, 4.9265E-08,    // F18120
           3.7094E-08, 2.8380E-08, 2.2019E-08, 1.7297E-08, 1.3738E-08,    // F18140
           1.1019E-08, 8.9178E-09, 7.2762E-09, 5.9810E-09, 4.9500E-09,    // F18150
           4.1226E-09, 3.4534E-09, 2.9082E-09, 2.4611E-09, 2.0922E-09,    // F18160
           1.7864E-09, 1.5313E-09, 1.3176E-09, 1.1379E-09, 9.8612E-10,    // F18170
           8.5741E-10, 7.4782E-10, 6.5416E-10, 5.7384E-10, 5.0471E-10,    // F18180
           4.4503E-10, 3.9334E-10, 3.4841E-10, 3.0927E-10, 2.7510E-10,    // F18190
           2.4519E-10, 2.1893E-10, 1.9587E-10, 1.7555E-10, 1.5762E-10,    // F18200
           1.4178E-10, 1.2772E-10, 1.1524E-10, 1.0414E-10, 9.4248E-11,    // F18210
           8.5421E-11, 7.7530E-11, 7.0466E-11, 6.4134E-11, 5.8450E-11,    // F18220
           5.3342E-11, 4.8746E-11, 4.4607E-11, 4.0874E-11, 3.7507E-11,    // F18230
           3.4466E-11, 3.1719E-11, 2.9237E-11, 2.6993E-11, 2.4968E-11,    // F18250
           2.3139E-11, 2.1494E-11, 2.0022E-11, 1.8709E-11, 1.7541E-11,    // F18260
           1.6533E-11, 1.5690E-11, 1.5027E-11, 1.4560E-11, 1.4169E-11,    // F18270
           1.3796E-11, 1.3553E-11, 1.3526E-11, 1.3567E-11, 1.3399E-11,    // F18280
           1.3149E-11, 1.3049E-11, 1.3078E-11, 1.3093E-11, 1.3168E-11,    // F18290
           1.3572E-11, 1.4383E-11, 1.5698E-11, 1.7658E-11, 2.0197E-11,    // F18300
           2.2845E-11, 2.5944E-11, 3.0250E-11, 3.5900E-11, 4.1482E-11,    // F18310
           4.6602E-11, 5.2453E-11, 5.9754E-11, 6.9308E-11, 8.0696E-11,    // F18320
           9.5737E-11, 1.1733E-10, 1.4793E-10, 1.9119E-10, 2.5355E-10,    // F18330
           3.4588E-10, 4.8343E-10, 6.9378E-10, 1.0212E-09, 1.4858E-09,    // F18340
           2.0906E-09, 3.0576E-09, 4.6318E-09, 7.1585E-09, 1.1259E-08,    // F18360
           1.7954E-08, 2.9760E-08, 4.6693E-08, 6.2035E-08, 7.4399E-08,    // F18370
           9.1705E-08, 9.9448E-08, 9.5181E-08, 8.3050E-08, 7.1756E-08,    // F18380
           6.6261E-08, 6.0357E-08, 6.6988E-08, 8.3419E-08, 9.8834E-08,    // F18390
           1.2385E-07, 1.3962E-07, 1.3651E-07, 1.1963E-07, 9.7731E-08,    // F18400
           8.0083E-08, 5.1660E-08, 2.5778E-08, 1.2600E-08, 6.8779E-09,    // F18410
           4.1161E-09, 2.6276E-09, 1.7595E-09, 1.2225E-09, 8.7493E-10,    // F18420
           6.4179E-10, 4.7987E-10, 3.6491E-10, 2.8191E-10, 2.2084E-10,    // F18430
           1.7507E-10, 1.4025E-10, 1.1344E-10, 9.2580E-11, 7.6170E-11,    // F18440
           6.3142E-11, 5.2694E-11, 4.4260E-11, 3.7421E-11, 3.1847E-11,    // F18450
           2.7263E-11, 2.3352E-11, 2.0081E-11, 1.7332E-11, 1.5000E-11,    // F18470
           1.2978E-11, 1.1204E-11, 9.7513E-12, 8.5300E-12, 7.4888E-12,    // F18480
           6.5947E-12, 5.8231E-12, 5.1548E-12, 4.5739E-12, 4.0675E-12,    // F18490
           3.6250E-12, 3.2371E-12, 2.8963E-12, 2.5964E-12, 2.3316E-12,    // F18500
           2.0975E-12, 1.8902E-12, 1.7061E-12, 1.5425E-12, 1.3967E-12,    // F18510
           1.2665E-12, 1.1503E-12, 1.0463E-12, 9.5319E-13, 8.6963E-13,    // F18520
           7.9461E-13, 7.2718E-13, 6.6654E-13, 6.1201E-13, 5.6296E-13,    // F18530
           5.1894E-13, 4.7969E-13, 4.4494E-13, 4.1320E-13, 3.8529E-13,    // F18540
           3.6202E-13, 3.4320E-13, 3.2546E-13, 3.0741E-13, 2.9156E-13,    // F18550
           2.7819E-13, 2.6576E-13, 2.5327E-13, 2.4319E-13, 2.3770E-13,    // F18560
           2.3645E-13, 2.3967E-13, 2.4960E-13, 2.6858E-13, 2.9679E-13,    // F18580
           3.3247E-13, 3.8487E-13, 4.7576E-13, 6.1833E-13, 8.0740E-13,    // F18590
           1.0267E-12, 1.2291E-12, 1.4710E-12, 1.7211E-12, 1.8251E-12,    // F18600
           1.8982E-12, 1.9768E-12, 2.1877E-12, 2.5008E-12, 3.0545E-12,    // F18610
           4.1513E-12, 5.7469E-12, 7.7913E-12, 1.0873E-11, 1.5538E-11,    // F18620
           2.2838E-11, 3.4153E-11, 4.9751E-11, 7.0591E-11, 1.0794E-10,    // F18630
           1.7287E-10, 2.6554E-10, 3.5250E-10, 4.1952E-10, 5.1979E-10,    // F18640
           5.7649E-10, 5.6168E-10, 5.0014E-10, 4.3670E-10, 4.0057E-10,    // F18650
           3.5169E-10, 3.7578E-10, 5.5054E-10, 8.8962E-10, 1.2940E-09,    // F18660
           1.6293E-09, 2.0553E-09, 2.3945E-09, 2.3926E-09, 2.1385E-09,    // F18670
           1.7637E-09, 1.4623E-09, 1.0150E-09, 5.5612E-10, 3.5162E-10,    // F18690
           3.4009E-10, 4.1744E-10, 5.0009E-10, 6.0748E-10, 7.3258E-10,    // F18700
           7.6553E-10, 7.2066E-10, 6.1317E-10, 5.1585E-10, 3.9136E-10,    // F18710
           2.2991E-10, 1.2590E-10, 6.9549E-11, 3.8699E-11, 2.2976E-11,    // F18720
           1.4702E-11, 9.9989E-12, 7.1233E-12, 5.2612E-12, 4.0298E-12,    // F18730
           3.2395E-12, 2.7932E-12, 2.6331E-12, 2.7835E-12, 3.3167E-12,    // F18740
           3.3581E-12, 3.3404E-12, 3.1243E-12, 2.8459E-12, 2.4092E-12,    // F18750
           1.5349E-12, 9.7039E-13, 5.8611E-13, 3.9686E-13, 2.9332E-13,    // F18760
           2.2795E-13, 1.8432E-13, 1.5287E-13, 1.2898E-13, 1.1019E-13,    // F18770
           9.5041E-14, 8.2617E-14, 7.2310E-14, 6.3711E-14, 5.6561E-14,    // F18780
           5.0763E-14, 4.6525E-14, 4.4418E-14, 4.4681E-14, 4.7199E-14,    // F18800
           5.0389E-14, 5.3620E-14, 6.0817E-14, 6.0192E-14, 5.5878E-14,    // F18810
           4.9874E-14, 4.3955E-14, 3.9854E-14, 3.1697E-14, 3.1135E-14,    // F18820
           3.4683E-14, 3.8789E-14, 4.6932E-14, 5.0213E-14, 4.7156E-14,    // F18830
           4.2130E-14, 3.5554E-14, 3.0465E-14, 1.9216E-14, 1.1378E-14,    // F18840
           8.2878E-15, 6.8260E-15, 6.0960E-15, 5.8135E-15, 5.9618E-15,    // F18850
           6.8295E-15, 9.2943E-15, 1.2572E-14, 1.4837E-14, 1.8595E-14,    // F18860
           2.1533E-14, 2.2008E-14, 2.1305E-14, 1.9743E-14, 2.0413E-14,    // F18870
           2.1131E-14, 2.5346E-14, 3.3709E-14, 4.3995E-14, 5.8911E-14,    // F18880
           7.8451E-14, 1.0537E-13, 1.4559E-13, 2.0405E-13, 2.6734E-13,    // F18890
           3.5029E-13, 4.9788E-13, 7.3207E-13, 1.0979E-12, 1.4960E-12,    // F18910
           1.7906E-12, 2.2171E-12, 2.5369E-12, 2.5873E-12, 2.3871E-12,    // F18920
           2.0730E-12, 1.9095E-12, 1.6227E-12, 1.3981E-12, 1.5228E-12,    // F18930
           2.0956E-12, 3.2493E-12, 5.2740E-12, 8.6666E-12, 1.2672E-11,    // F18940
           1.5725E-11, 1.9496E-11, 2.2858E-11, 2.2939E-11, 2.0597E-11,    // F18950
           1.7021E-11, 1.4456E-11, 1.0794E-11, 7.1327E-12, 6.5438E-12,    // F18960
           8.8057E-12, 1.2311E-11, 1.5284E-11, 1.9273E-11, 2.2796E-11,    // F18970
           2.3156E-11, 2.0914E-11, 1.7298E-11, 1.4424E-11, 1.0127E-11,    // F18980
           5.2952E-12, 2.5759E-12, 1.4304E-12, 9.4758E-13, 7.9895E-13,    // F18990
           9.1124E-13, 1.2297E-12, 1.5898E-12, 1.9056E-12, 2.3905E-12,    // F19000
           2.6695E-12, 2.6297E-12, 2.3467E-12, 2.0058E-12, 1.6773E-12,    // F19020
           1.1327E-12, 6.7331E-13, 4.0954E-13, 2.5152E-13, 1.4491E-13,    // F19030
           9.0916E-14, 6.6510E-14, 5.9022E-14, 6.4403E-14, 8.3126E-14,    // F19040
           1.2409E-13, 1.5153E-13, 1.6909E-13, 1.7938E-13, 1.9169E-13,    // F19050
           2.1173E-13, 2.1941E-13, 2.6360E-13, 3.5956E-13, 4.8369E-13,    // F19060
           5.9657E-13, 7.4062E-13, 8.9452E-13, 8.7899E-13, 8.2012E-13,    // F19070
           7.4109E-13, 6.9845E-13, 6.3130E-13, 5.6538E-13, 6.9516E-13,    // F19080
           9.9486E-13, 1.5226E-12, 2.4155E-12, 3.9119E-12, 6.3541E-12,    // F19090
           1.0075E-11, 1.5903E-11, 2.5091E-11, 3.6282E-11, 4.6076E-11,    // F19100
           5.6240E-11, 7.1126E-11, 7.0230E-11, 6.3642E-11, 5.3722E-11,    // F19110
           4.4651E-11, 3.4409E-11, 1.5287E-11, 7.2479E-12, 3.9218E-12,    // F19130
           2.3172E-12, 1.4585E-12, 9.6297E-13, 6.6017E-13, 4.6655E-13,    // F19140
           3.3814E-13, 2.5034E-13, 1.8874E-13, 1.4457E-13, 1.1228E-13,    // F19150
           8.8284E-14, 7.0188E-14, 5.6365E-14, 4.5685E-14, 3.7357E-14,    // F19160
           3.0817E-14, 2.5674E-14, 2.1679E-14, 1.8780E-14, 1.7243E-14,    // F19170
           1.6273E-14, 1.5201E-14, 1.5091E-14, 1.4725E-14, 1.3668E-14,    // F19180
           1.1940E-14, 1.0097E-14, 8.8905E-15, 7.1475E-15, 5.8080E-15,    // F19190
           5.5216E-15, 5.9338E-15, 7.1932E-15, 9.9780E-15, 1.6167E-14,    // F19200
           2.9100E-14, 5.2355E-14, 8.4889E-14, 1.1311E-13, 1.4192E-13,    // F19210
           1.7648E-13, 1.8657E-13, 1.7498E-13, 1.4877E-13, 1.2578E-13,    // F19220
           1.0051E-13, 6.7213E-14, 5.4750E-14, 7.0454E-14, 1.1351E-13,    // F19240
           1.8015E-13, 2.4825E-13, 3.0875E-13, 3.9200E-13, 4.2550E-13,    // F19250
           4.0067E-13, 3.4438E-13, 2.8204E-13, 2.2432E-13, 1.3172E-13,    // F19260
           6.2820E-14, 3.6474E-14, 2.9409E-14, 3.4164E-14, 4.8300E-14,    // F19270
           6.4140E-14, 7.7284E-14, 9.7973E-14, 1.0969E-13, 1.0580E-13,    // F19280
           9.2070E-14, 7.5008E-14, 6.1722E-14, 3.8874E-14, 1.9007E-14,    // F19290
           9.6765E-15, 5.5169E-15, 3.5254E-15, 2.5012E-15, 2.0013E-15,    // F19300
           1.8810E-15, 2.2143E-15, 3.5332E-15, 5.7552E-15, 7.3359E-15,    // F19310
           8.3292E-15, 9.9174E-15, 1.0930E-14, 1.1185E-14, 1.0884E-14,    // F19320
           1.0577E-14, 1.1048E-14, 1.1611E-14, 1.1128E-14, 1.0729E-14,    // F19330
           1.0248E-14, 1.0630E-14, 1.1793E-14, 1.3977E-14, 1.9857E-14,    // F19350
           2.9182E-14, 4.2229E-14, 6.2710E-14, 9.0717E-14, 1.2561E-13,    // F19360
           1.6951E-13, 2.2520E-13, 3.2470E-13, 4.5178E-13, 6.3104E-13,    // F19370
           8.7521E-13, 1.1073E-12, 1.3534E-12, 1.6954E-12, 1.7005E-12,    // F19380
           1.5993E-12, 1.4416E-12, 1.3280E-12, 1.2760E-12, 1.1076E-12,    // F19390
           1.2850E-12, 1.6208E-12, 1.9527E-12, 2.4941E-12, 2.5077E-12,    // F19400
           2.3156E-12, 2.0069E-12, 1.6301E-12, 1.2885E-12, 5.9863E-13,    // F19410
           2.8012E-13, 1.5065E-13, 8.8802E-14, 5.5888E-14, 3.6951E-14,    // F19420
           2.5393E-14, 1.8001E-14, 1.3093E-14, 9.7308E-15, 7.3665E-15,    // F19430
           5.6662E-15, 4.4194E-15, 3.4897E-15, 2.7857E-15, 2.2457E-15,    // F19440
           1.8264E-15, 1.4973E-15, 1.2365E-15, 1.0280E-15, 8.5996E-16,    // F19460
           7.2345E-16, 6.1182E-16, 5.1994E-16, 4.4388E-16, 3.8055E-16,    // F19470
           3.2756E-16, 2.8300E-16, 2.4537E-16, 2.1347E-16, 1.8630E-16,    // F19480
           1.6307E-16, 1.4314E-16, 1.2599E-16, 1.1117E-16, 9.8344E-17,    // F19490
           8.7197E-17, 7.7487E-17, 6.9004E-17, 6.1577E-17, 5.5060E-17,    // F19500
           4.9325E-17, 4.4271E-17, 3.9810E-17, 3.5861E-17, 3.2361E-17,    // F19510
           2.9252E-17, 2.6487E-17, 2.4023E-17, 2.1826E-17, 1.9862E-17,    // F19520
           1.8107E-17, 1.6536E-17, 1.5129E-17, 1.3869E-17, 1.2739E-17,    // F19530
           1.1726E-17, 1.0820E-17, 1.0009E-17, 9.2846E-18, 8.6398E-18,    // F19540
           8.0682E-18, 7.5641E-18, 7.1229E-18, 6.7411E-18, 6.4161E-18,    // F19550
           6.1455E-18, 5.9290E-18, 5.7662E-18, 5.6574E-18, 5.6049E-18,    // F19570
           5.6112E-18, 5.6811E-18, 5.8200E-18, 6.0364E-18, 6.3405E-18,    // F19580
           6.7450E-18, 7.2674E-18, 7.9298E-18, 8.7613E-18, 9.8010E-18,    // F19590
           1.1086E-17, 1.2686E-17, 1.4679E-17, 1.7177E-17, 2.0335E-17,    // F19600
           2.4384E-17, 2.9538E-17, 3.6416E-17, 4.5520E-17, 5.7788E-17,    // F19610
           7.4676E-17, 9.8513E-17, 1.3323E-16, 1.8570E-16, 2.6897E-16,    // F19620
           4.0958E-16, 6.6785E-16, 1.2064E-15, 2.4023E-15, 4.3240E-15,    // F19630
           6.6353E-15, 8.6393E-15, 1.1433E-14, 1.3946E-14, 1.3611E-14,    // F19640
           1.2557E-14, 1.0934E-14, 1.0039E-14, 8.5099E-15, 7.9557E-15,    // F19650
           1.1346E-14, 1.8512E-14, 2.9285E-14, 4.1585E-14, 5.2809E-14,    // F19660
           7.0377E-14, 7.8094E-14, 7.3735E-14, 6.5845E-14, 5.5023E-14,    // F19680
           4.6866E-14, 2.7430E-14, 1.5975E-14, 1.4522E-14, 1.7075E-14,    // F19690
           2.0408E-14, 2.5119E-14, 3.1194E-14, 3.0280E-14, 2.7676E-14,    // F19700
           2.3344E-14, 1.9466E-14, 1.4140E-14, 6.2087E-15, 3.0307E-15,    // F19710
           1.6815E-15, 1.0169E-15, 6.5448E-16, 4.4162E-16, 3.0928E-16,    // F19720
           2.2320E-16, 1.6511E-16, 1.2471E-16, 9.5881E-17, 7.4850E-17,    // F19730
           5.9216E-17, 4.7400E-17, 3.8338E-17, 3.1298E-17, 2.5765E-17,    // F19740
           2.1371E-17, 1.7848E-17, 1.5000E-17, 1.2679E-17, 1.0774E-17,    // F19750
           9.2002E-18, 7.8922E-18, 6.7987E-18, 5.8800E-18, 5.1042E-18,    // F19760
           4.4461E-18, 3.8855E-18, 3.4060E-18, 2.9944E-18, 2.6397E-18,    // F19770
           2.3331E-18};
 
// CO2 continuum Ridgeway 1982, implementation of CKD_MT_2.50
//Hartmann line coupling: isotopes 1 and 2
// UNITS OF (CM**3/MOL)*1.E-20
const Numeric FCO2_ckd_mt_250_v1  =   -4.0;
const Numeric FCO2_ckd_mt_250_v2  = 10000.0;
const Numeric FCO2_ckd_mt_250_dv  =    2.0;
const int     FCO2_ckd_mt_250_npt =  5003;
const double  FCO2_ckd_mt_250[FCO2_ckd_mt_250_npt+addF77fields] = {     
       8.391e-13,  8.359e-13,  
       8.345e-13,  8.359e-13,  8.391e-13,  8.439e-13,  8.500e-13,
       8.573e-13,  8.655e-13,  8.750e-13,  8.859e-13,  8.981e-13,
       9.119e-13,  9.273e-13,  9.442e-13,  9.626e-13,  9.825e-13,
       1.004e-12,  1.027e-12,  1.052e-12,  1.078e-12,  1.106e-12,
       1.135e-12,  1.166e-12,  1.199e-12,  1.233e-12,  1.270e-12,
       1.308e-12,  1.347e-12,  1.389e-12,  1.432e-12,  1.478e-12,
       1.525e-12,  1.574e-12,  1.625e-12,  1.678e-12,  1.734e-12,
       1.791e-12,  1.850e-12,  1.912e-12,  1.976e-12,  2.042e-12,
       2.110e-12,  2.181e-12,  2.254e-12,  2.329e-12,  2.408e-12,
       2.488e-12,  2.572e-12,  2.658e-12,  2.746e-12,  2.838e-12,
       2.933e-12,  3.030e-12,  3.130e-12,  3.234e-12,  3.341e-12,
       3.451e-12,  3.564e-12,  3.681e-12,  3.801e-12,  3.925e-12,
       4.053e-12,  4.184e-12,  4.320e-12,  4.459e-12,  4.603e-12,
       4.750e-12,  4.902e-12,  5.059e-12,  5.220e-12,  5.386e-12,
       5.556e-12,  5.732e-12,  5.912e-12,  6.098e-12,  6.290e-12,
       6.487e-12,  6.689e-12,  6.897e-12,  7.112e-12,  7.333e-12,
       7.560e-12,  7.793e-12,  8.034e-12,  8.281e-12,  8.535e-12,
       8.797e-12,  9.067e-12,  9.344e-12,  9.629e-12,  9.923e-12,
       1.023e-11,  1.054e-11,  1.086e-11,  1.119e-11,  1.152e-11,
       1.187e-11,  1.223e-11,  1.260e-11,  1.298e-11,  1.338e-11,
       1.378e-11,  1.419e-11,  1.462e-11,  1.506e-11,  1.552e-11,
       1.598e-11,  1.646e-11,  1.696e-11,  1.747e-11,  1.799e-11,
       1.854e-11,  1.909e-11,  1.967e-11,  2.026e-11,  2.087e-11,
       2.150e-11,  2.214e-11,  2.281e-11,  2.350e-11,  2.421e-11,
       2.494e-11,  2.569e-11,  2.647e-11,  2.727e-11,  2.810e-11,
       2.895e-11,  2.983e-11,  3.073e-11,  3.167e-11,  3.263e-11,
       3.363e-11,  3.466e-11,  3.572e-11,  3.681e-11,  3.794e-11,
       3.910e-11,  4.031e-11,  4.155e-11,  4.283e-11,  4.416e-11,
       4.552e-11,  4.694e-11,  4.840e-11,  4.991e-11,  5.147e-11,
       5.308e-11,  5.474e-11,  5.646e-11,  5.824e-11,  6.008e-11,
       6.199e-11,  6.395e-11,  6.599e-11,  6.809e-11,  7.027e-11,
       7.253e-11,  7.486e-11,  7.728e-11,  7.978e-11,  8.237e-11,
       8.505e-11,  8.782e-11,  9.070e-11,  9.368e-11,  9.677e-11,
       9.997e-11,  1.033e-10,  1.067e-10,  1.103e-10,  1.140e-10,
       1.178e-10,  1.218e-10,  1.259e-10,  1.302e-10,  1.347e-10,
       1.393e-10,  1.441e-10,  1.491e-10,  1.542e-10,  1.596e-10,
       1.652e-10,  1.710e-10,  1.770e-10,  1.833e-10,  1.899e-10,
       1.966e-10,  2.037e-10,  2.111e-10,  2.187e-10,  2.267e-10,
       2.350e-10,  2.437e-10,  2.527e-10,  2.621e-10,  2.719e-10,
       2.821e-10,  2.928e-10,  3.039e-10,  3.155e-10,  3.276e-10,
       3.403e-10,  3.535e-10,  3.674e-10,  3.818e-10,  3.969e-10,
       4.127e-10,  4.293e-10,  4.466e-10,  4.647e-10,  4.837e-10,
       5.036e-10,  5.245e-10,  5.464e-10,  5.695e-10,  5.937e-10,
       6.191e-10,  6.459e-10,  6.742e-10,  7.039e-10,  7.353e-10,
       7.683e-10,  8.032e-10,  8.400e-10,  8.785e-10,  9.213e-10,
       9.661e-10,  1.013e-09,  1.062e-09,  1.114e-09,  1.169e-09,
       1.226e-09,  1.286e-09,  1.350e-09,  1.417e-09,  1.488e-09,
       1.564e-09,  1.643e-09,  1.728e-09,  1.818e-09,  1.914e-09,
       2.016e-09,  2.126e-09,  2.244e-09,  2.378e-09,  2.522e-09,
       2.677e-09,  2.843e-09,  3.024e-09,  3.220e-09,  3.437e-09,
       3.676e-09,  3.941e-09,  4.236e-09,  4.565e-09,  4.931e-09,
       5.336e-09,  5.784e-09,  6.276e-09,  6.817e-09,  7.410e-09,
       8.108e-09,  9.238e-09,  1.044e-08,  1.167e-08,  1.292e-08,
       1.419e-08,  1.548e-08,  1.679e-08,  1.816e-08,  1.956e-08,
       2.103e-08,  2.258e-08,  2.425e-08,  2.609e-08,  2.815e-08,
       3.051e-08,  3.326e-08,  3.653e-08,  4.040e-08,  4.546e-08,
       5.160e-08,  5.909e-08,  6.836e-08,  7.995e-08,  9.457e-08,
       1.130e-07,  1.366e-07,  1.731e-07,  2.156e-07,  2.655e-07,
       3.241e-07,  3.927e-07,  4.723e-07,  5.639e-07,  6.685e-07,
       7.872e-07,  9.510e-07,  1.199e-06,  1.528e-06,  1.847e-06,
       2.155e-06,  2.453e-06,  2.742e-06,  3.026e-06,  3.308e-06,
       3.594e-06,  3.895e-06,  4.227e-06,  4.609e-06,  5.073e-06,
       5.660e-06,  6.406e-06,  7.410e-06,  8.801e-06,  1.052e-05,
       1.261e-05,  1.512e-05,  1.808e-05,  2.149e-05,  2.535e-05,
       2.970e-05,  3.413e-05,  4.573e-05,  6.122e-05,  7.642e-05,
       9.099e-05,  1.048e-04,  1.176e-04,  1.294e-04,  1.398e-04,
       1.488e-04,  1.561e-04,  1.616e-04,  1.653e-04,  1.670e-04,
       1.666e-04,  1.642e-04,  1.599e-04,  1.538e-04,  1.460e-04,
       1.365e-04,  1.256e-04,  1.132e-04,  9.969e-05,  8.499e-05,
       6.925e-05,  5.260e-05,  4.198e-05,  3.475e-05,  2.933e-05,
       2.457e-05,  2.043e-05,  1.690e-05,  1.394e-05,  1.151e-05,
       9.559e-06,  8.021e-06,  6.826e-06,  5.920e-06,  5.232e-06,
       4.703e-06,  4.285e-06,  3.941e-06,  3.643e-06,  3.368e-06,
       3.106e-06,  2.847e-06,  2.585e-06,  2.316e-06,  2.040e-06,
       1.755e-06,  1.463e-06,  1.165e-06,  9.093e-07,  8.070e-07,
       6.991e-07,  6.009e-07,  5.118e-07,  4.319e-07,  3.612e-07,
       2.996e-07,  2.465e-07,  2.012e-07,  1.633e-07,  1.370e-07,
       1.172e-07,  1.015e-07,  8.892e-08,  7.876e-08,  7.053e-08,
       6.378e-08,  5.817e-08,  5.367e-08,  4.988e-08,  4.660e-08,
       4.372e-08,  4.113e-08,  3.874e-08,  3.651e-08,  3.439e-08,
       3.234e-08,  3.033e-08,  2.836e-08,  2.641e-08,  2.448e-08,
       2.255e-08,  2.062e-08,  1.869e-08,  1.677e-08,  1.532e-08,
       1.417e-08,  1.317e-08,  1.226e-08,  1.143e-08,  1.068e-08,
       1.001e-08,  9.396e-09,  8.846e-09,  8.350e-09,  7.902e-09,
       7.496e-09,  7.125e-09,  6.784e-09,  6.467e-09,  6.171e-09,
       5.892e-09,  5.629e-09,  5.379e-09,  5.161e-09,  4.952e-09,
       4.756e-09,  4.571e-09,  4.396e-09,  4.232e-09,  4.077e-09,
       3.930e-09,  3.792e-09,  3.662e-09,  3.541e-09,  3.426e-09,
       3.320e-09,  3.221e-09,  3.129e-09,  3.045e-09,  2.967e-09,
       2.898e-09,  2.839e-09,  2.788e-09,  2.743e-09,  2.706e-09,
       2.676e-09,  2.653e-09,  2.638e-09,  2.633e-09,  2.640e-09,
       2.661e-09,  2.700e-09,  2.760e-09,  2.844e-09,  2.953e-09,
       3.092e-09,  3.260e-09,  3.459e-09,  3.685e-09,  3.936e-09,
       4.205e-09,  4.482e-09,  4.756e-09,  5.015e-09,  5.255e-09,
       5.479e-09,  5.696e-09,  5.915e-09,  6.139e-09,  6.369e-09,
       6.596e-09,  6.811e-09,  6.999e-09,  7.148e-09,  7.244e-09,
       7.280e-09,  7.252e-09,  7.159e-09,  7.007e-09,  6.799e-09,
       6.547e-09,  6.260e-09,  5.948e-09,  5.618e-09,  5.279e-09,
       4.935e-09,  4.584e-09,  4.224e-09,  3.849e-09,  3.457e-09,
       3.055e-09,  2.658e-09,  2.285e-09,  1.948e-09,  1.661e-09,
       1.429e-09,  1.254e-09,  1.133e-09,  1.060e-09,  1.031e-09,
       1.038e-09,  1.079e-09,  1.151e-09,  1.254e-09,  1.391e-09,
       1.564e-09,  1.777e-09,  2.033e-09,  2.335e-09,  2.682e-09,
       3.072e-09,  3.497e-09,  3.947e-09,  4.407e-09,  4.859e-09,
       5.293e-09,  5.707e-09,  6.108e-09,  6.510e-09,  6.919e-09,
       7.337e-09,  7.762e-09,  8.178e-09,  8.573e-09,  8.923e-09,
       9.211e-09,  9.419e-09,  9.536e-09,  9.554e-09,  9.473e-09,
       9.300e-09,  9.043e-09,  8.715e-09,  8.330e-09,  7.904e-09,
       7.447e-09,  6.968e-09,  6.471e-09,  5.955e-09,  5.414e-09,
       4.843e-09,  4.246e-09,  3.644e-09,  3.054e-09,  2.504e-09,
       2.010e-09,  1.584e-09,  1.234e-09,  9.578e-10,  7.490e-10,
       5.962e-10,  4.887e-10,  4.149e-10,  3.652e-10,  3.309e-10,
       3.067e-10,  2.892e-10,  2.758e-10,  2.650e-10,  2.560e-10,
       2.482e-10,  2.413e-10,  2.351e-10,  2.295e-10,  2.244e-10,
       2.197e-10,  2.154e-10,  2.113e-10,  2.075e-10,  2.039e-10,
       2.005e-10,  1.973e-10,  1.942e-10,  1.912e-10,  1.884e-10,
       1.857e-10,  1.831e-10,  1.805e-10,  1.781e-10,  1.757e-10,
       1.734e-10,  1.712e-10,  1.691e-10,  1.670e-10,  1.649e-10,
       1.629e-10,  1.610e-10,  1.591e-10,  1.573e-10,  1.555e-10,
       1.537e-10,  1.520e-10,  1.503e-10,  1.487e-10,  1.471e-10,
       1.455e-10,  1.440e-10,  1.425e-10,  1.410e-10,  1.396e-10,
       1.381e-10,  1.368e-10,  1.354e-10,  1.341e-10,  1.328e-10,
       1.315e-10,  1.303e-10,  1.290e-10,  1.278e-10,  1.267e-10,
       1.255e-10,  1.244e-10,  1.233e-10,  1.222e-10,  1.211e-10,
       1.201e-10,  1.190e-10,  1.180e-10,  1.170e-10,  1.161e-10,
       1.151e-10,  1.142e-10,  1.133e-10,  1.124e-10,  1.115e-10,
       1.106e-10,  1.098e-10,  1.089e-10,  1.081e-10,  1.073e-10,
       1.065e-10,  1.058e-10,  1.050e-10,  1.043e-10,  1.036e-10,
       1.028e-10,  1.022e-10,  1.015e-10,  1.008e-10,  1.001e-10,
       9.950e-11,  9.887e-11,  9.825e-11,  9.765e-11,  9.705e-11,
       9.647e-11,  9.591e-11,  9.535e-11,  9.480e-11,  9.427e-11,
       9.375e-11,  9.324e-11,  9.274e-11,  9.225e-11,  9.177e-11,
       9.131e-11,  9.085e-11,  9.040e-11,  8.997e-11,  8.954e-11,
       8.913e-11,  8.872e-11,  8.833e-11,  8.794e-11,  8.757e-11,
       8.720e-11,  8.684e-11,  8.650e-11,  8.616e-11,  8.583e-11,
       8.551e-11,  8.520e-11,  8.490e-11,  8.461e-11,  8.432e-11,
       8.405e-11,  8.378e-11,  8.352e-11,  8.327e-11,  8.303e-11,
       8.280e-11,  8.257e-11,  8.236e-11,  8.215e-11,  8.195e-11,
       8.176e-11,  8.158e-11,  8.140e-11,  8.123e-11,  8.107e-11,
       8.092e-11,  8.078e-11,  8.064e-11,  8.051e-11,  8.039e-11,
       8.028e-11,  8.018e-11,  8.008e-11,  7.999e-11,  7.991e-11,
       7.983e-11,  7.976e-11,  7.971e-11,  7.965e-11,  7.961e-11,
       7.957e-11,  7.954e-11,  7.952e-11,  7.951e-11,  7.950e-11,
       7.950e-11,  7.951e-11,  7.952e-11,  7.955e-11,  7.958e-11,
       7.961e-11,  7.966e-11,  7.971e-11,  7.977e-11,  7.984e-11,
       7.991e-11,  8.000e-11,  8.009e-11,  8.018e-11,  8.029e-11,
       8.040e-11,  8.052e-11,  8.065e-11,  8.079e-11,  8.093e-11,
       8.108e-11,  8.124e-11,  8.141e-11,  8.158e-11,  8.176e-11,
       8.195e-11,  8.215e-11,  8.235e-11,  8.257e-11,  8.279e-11,
       8.302e-11,  8.326e-11,  8.350e-11,  8.376e-11,  8.402e-11,
       8.429e-11,  8.457e-11,  8.486e-11,  8.515e-11,  8.546e-11,
       8.577e-11,  8.609e-11,  8.642e-11,  8.676e-11,  8.711e-11,
       8.747e-11,  8.783e-11,  8.821e-11,  8.859e-11,  8.898e-11,
       8.939e-11,  8.980e-11,  9.022e-11,  9.065e-11,  9.109e-11,
       9.155e-11,  9.201e-11,  9.248e-11,  9.296e-11,  9.345e-11,
       9.395e-11,  9.446e-11,  9.499e-11,  9.552e-11,  9.606e-11,
       9.662e-11,  9.719e-11,  9.776e-11,  9.835e-11,  9.895e-11,
       9.956e-11,  1.002e-10,  1.008e-10,  1.015e-10,  1.021e-10,
       1.028e-10,  1.035e-10,  1.042e-10,  1.049e-10,  1.056e-10,
       1.063e-10,  1.071e-10,  1.079e-10,  1.086e-10,  1.094e-10,
       1.102e-10,  1.111e-10,  1.119e-10,  1.127e-10,  1.136e-10,
       1.145e-10,  1.154e-10,  1.163e-10,  1.172e-10,  1.181e-10,
       1.191e-10,  1.201e-10,  1.211e-10,  1.221e-10,  1.231e-10,
       1.241e-10,  1.252e-10,  1.263e-10,  1.274e-10,  1.285e-10,
       1.296e-10,  1.308e-10,  1.319e-10,  1.331e-10,  1.344e-10,
       1.356e-10,  1.368e-10,  1.381e-10,  1.394e-10,  1.407e-10,
       1.421e-10,  1.435e-10,  1.448e-10,  1.463e-10,  1.477e-10,
       1.492e-10,  1.506e-10,  1.522e-10,  1.537e-10,  1.553e-10,
       1.568e-10,  1.585e-10,  1.601e-10,  1.618e-10,  1.635e-10,
       1.652e-10,  1.670e-10,  1.688e-10,  1.706e-10,  1.725e-10,
       1.744e-10,  1.763e-10,  1.782e-10,  1.802e-10,  1.823e-10,
       1.843e-10,  1.864e-10,  1.886e-10,  1.907e-10,  1.929e-10,
       1.952e-10,  1.975e-10,  1.998e-10,  2.022e-10,  2.046e-10,
       2.071e-10,  2.096e-10,  2.122e-10,  2.148e-10,  2.174e-10,
       2.202e-10,  2.229e-10,  2.257e-10,  2.286e-10,  2.315e-10,
       2.345e-10,  2.375e-10,  2.406e-10,  2.438e-10,  2.470e-10,
       2.503e-10,  2.536e-10,  2.570e-10,  2.605e-10,  2.641e-10,
       2.677e-10,  2.714e-10,  2.752e-10,  2.791e-10,  2.831e-10,
       2.871e-10,  2.913e-10,  2.955e-10,  2.999e-10,  3.043e-10,
       3.089e-10,  3.136e-10,  3.184e-10,  3.234e-10,  3.285e-10,
       3.337e-10,  3.391e-10,  3.447e-10,  3.505e-10,  3.564e-10,
       3.626e-10,  3.689e-10,  3.754e-10,  3.822e-10,  3.892e-10,
       3.965e-10,  4.041e-10,  4.120e-10,  4.203e-10,  4.290e-10,
       4.381e-10,  4.478e-10,  4.581e-10,  4.691e-10,  4.807e-10,
       4.931e-10,  5.062e-10,  5.200e-10,  5.346e-10,  5.499e-10,
       5.659e-10,  5.826e-10,  6.002e-10,  6.189e-10,  6.392e-10,
       6.606e-10,  6.834e-10,  7.080e-10,  7.348e-10,  7.643e-10,
       7.974e-10,  8.351e-10,  8.791e-10,  9.301e-10,  9.894e-10,
       1.059e-09,  1.140e-09,  1.235e-09,  1.346e-09,  1.472e-09,
       1.616e-09,  1.777e-09,  1.954e-09,  2.147e-09,  2.347e-09,
       2.549e-09,  2.747e-09,  2.941e-09,  3.126e-09,  3.309e-09,
       3.589e-09,  3.848e-09,  4.066e-09,  4.238e-09,  4.365e-09,
       4.445e-09,  4.481e-09,  4.474e-09,  4.426e-09,  4.341e-09,
       4.223e-09,  4.076e-09,  3.905e-09,  3.717e-09,  3.516e-09,
       3.308e-09,  3.100e-09,  2.897e-09,  2.701e-09,  2.514e-09,
       2.332e-09,  2.156e-09,  1.985e-09,  1.819e-09,  1.659e-09,
       1.635e-09,  1.630e-09,  1.634e-09,  1.642e-09,  1.654e-09,
       1.668e-09,  1.685e-09,  1.705e-09,  1.728e-09,  1.754e-09,
       1.785e-09,  1.819e-09,  1.859e-09,  1.903e-09,  1.952e-09,
       2.007e-09,  2.068e-09,  2.134e-09,  2.207e-09,  2.287e-09,
       2.374e-09,  2.469e-09,  2.573e-09,  2.686e-09,  2.810e-09,
       2.947e-09,  3.098e-09,  3.285e-09,  3.494e-09,  3.729e-09,
       3.999e-09,  4.311e-09,  4.677e-09,  5.110e-09,  5.628e-09,
       6.239e-09,  6.963e-09,  7.806e-09,  8.772e-09,  9.860e-09,
       1.106e-08,  1.236e-08,  1.375e-08,  1.519e-08,  1.666e-08,
       1.817e-08,  1.962e-08,  2.240e-08,  2.516e-08,  2.762e-08,
       2.977e-08,  3.157e-08,  3.303e-08,  3.411e-08,  3.479e-08,
       3.524e-08,  3.533e-08,  3.506e-08,  3.445e-08,  3.353e-08,
       3.236e-08,  3.096e-08,  2.939e-08,  2.769e-08,  2.589e-08,
       2.404e-08,  2.215e-08,  2.024e-08,  1.832e-08,  1.640e-08,
       1.449e-08,  1.261e-08,  1.203e-08,  1.188e-08,  1.185e-08,
       1.188e-08,  1.195e-08,  1.205e-08,  1.216e-08,  1.228e-08,
       1.250e-08,  1.278e-08,  1.307e-08,  1.337e-08,  1.369e-08,
       1.402e-08,  1.436e-08,  1.474e-08,  1.513e-08,  1.556e-08,
       1.601e-08,  1.651e-08,  1.703e-08,  1.760e-08,  1.821e-08,
       1.886e-08,  1.957e-08,  2.032e-08,  2.119e-08,  2.213e-08,
       2.313e-08,  2.420e-08,  2.534e-08,  2.656e-08,  2.785e-08,
       2.923e-08,  3.070e-08,  3.228e-08,  3.396e-08,  3.577e-08,
       3.772e-08,  3.981e-08,  4.207e-08,  4.451e-08,  4.715e-08,
       5.001e-08,  5.313e-08,  5.654e-08,  6.027e-08,  6.438e-08,
       6.891e-08,  7.395e-08,  7.959e-08,  8.594e-08,  9.315e-08,
       1.014e-07,  1.109e-07,  1.220e-07,  1.351e-07,  1.506e-07,
       1.691e-07,  1.914e-07,  2.184e-07,  2.511e-07,  2.910e-07,
       3.396e-07,  3.986e-07,  4.703e-07,  5.565e-07,  6.598e-07,
       7.824e-07,  9.260e-07,  1.092e-06,  1.282e-06,  1.495e-06,
       1.730e-06,  1.984e-06,  2.254e-06,  2.533e-06,  2.816e-06,
       3.100e-06,  3.386e-06,  3.683e-06,  3.999e-06,  4.343e-06,
       4.721e-06,  5.140e-06,  5.603e-06,  6.119e-06,  6.699e-06,
       7.361e-06,  8.132e-06,  9.049e-06,  1.017e-05,  1.155e-05,
       1.329e-05,  1.549e-05,  1.827e-05,  2.178e-05,  2.619e-05,
       3.169e-05,  3.845e-05,  4.668e-05,  5.656e-05,  6.822e-05,
       8.175e-05,  9.719e-05,  1.145e-04,  1.334e-04,  1.537e-04,
       1.748e-04,  1.960e-04,  2.167e-04,  2.363e-04,  2.549e-04,
       2.731e-04,  2.911e-04,  3.094e-04,  3.277e-04,  3.458e-04,
       3.629e-04,  3.782e-04,  3.910e-04,  4.003e-04,  4.058e-04,
       4.069e-04,  4.038e-04,  3.964e-04,  3.853e-04,  3.709e-04,
       3.538e-04,  3.348e-04,  3.143e-04,  2.928e-04,  2.707e-04,
       2.481e-04,  2.250e-04,  2.010e-04,  1.760e-04,  1.504e-04,
       1.250e-04,  1.010e-04,  7.907e-05,  6.005e-05,  4.430e-05,
       3.180e-05,  2.231e-05,  1.544e-05,  1.069e-05,  7.481e-06,
       5.397e-06,  4.055e-06,  3.178e-06,  2.581e-06,  2.153e-06,
       1.827e-06,  1.568e-06,  1.357e-06,  1.182e-06,  1.035e-06,
       9.114e-07,  8.059e-07,  7.156e-07,  6.378e-07,  5.706e-07,
       5.122e-07,  4.612e-07,  4.165e-07,  3.771e-07,  3.424e-07,
       3.116e-07,  2.843e-07,  2.599e-07,  2.381e-07,  2.186e-07,
       2.010e-07,  1.852e-07,  1.709e-07,  1.580e-07,  1.463e-07,
       1.356e-07,  1.259e-07,  1.171e-07,  1.090e-07,  1.017e-07,
       9.489e-08,  8.868e-08,  8.297e-08,  7.772e-08,  7.288e-08,
       6.841e-08,  6.428e-08,  6.045e-08,  5.691e-08,  5.362e-08,
       5.057e-08,  4.773e-08,  4.508e-08,  4.262e-08,  4.032e-08,
       3.818e-08,  3.617e-08,  3.430e-08,  3.255e-08,  3.090e-08,
       2.936e-08,  2.791e-08,  2.655e-08,  2.527e-08,  2.407e-08,
       2.294e-08,  2.187e-08,  2.087e-08,  1.992e-08,  1.902e-08,
       1.818e-08,  1.738e-08,  1.662e-08,  1.590e-08,  1.522e-08,
       1.458e-08,  1.397e-08,  1.339e-08,  1.284e-08,  1.232e-08,
       1.183e-08,  1.136e-08,  1.091e-08,  1.048e-08,  1.008e-08,
       9.691e-09,  9.322e-09,  8.971e-09,  8.636e-09,  8.316e-09,
       8.011e-09,  7.720e-09,  7.441e-09,  7.175e-09,  6.921e-09,
       6.677e-09,  6.444e-09,  6.221e-09,  6.008e-09,  5.803e-09,
       5.607e-09,  5.419e-09,  5.239e-09,  5.066e-09,  4.900e-09,
       4.740e-09,  4.587e-09,  4.440e-09,  4.299e-09,  4.163e-09,
       4.033e-09,  3.907e-09,  3.787e-09,  3.671e-09,  3.559e-09,
       3.451e-09,  3.347e-09,  3.247e-09,  3.151e-09,  3.058e-09,
       2.969e-09,  2.883e-09,  2.799e-09,  2.719e-09,  2.642e-09,
       2.567e-09,  2.495e-09,  2.425e-09,  2.357e-09,  2.292e-09,
       2.229e-09,  2.169e-09,  2.110e-09,  2.053e-09,  1.998e-09,
       1.945e-09,  1.893e-09,  1.843e-09,  1.795e-09,  1.748e-09,
       1.703e-09,  1.659e-09,  1.617e-09,  1.576e-09,  1.536e-09,
       1.497e-09,  1.460e-09,  1.424e-09,  1.388e-09,  1.354e-09,
       1.321e-09,  1.289e-09,  1.258e-09,  1.227e-09,  1.198e-09,
       1.169e-09,  1.142e-09,  1.115e-09,  1.088e-09,  1.063e-09,
       1.038e-09,  1.014e-09,  9.908e-10,  9.681e-10,  9.460e-10,
       9.246e-10,  9.037e-10,  8.834e-10,  8.636e-10,  8.444e-10,
       8.257e-10,  8.074e-10,  7.897e-10,  7.724e-10,  7.556e-10,
       7.393e-10,  7.233e-10,  7.078e-10,  6.927e-10,  6.779e-10,
       6.636e-10,  6.496e-10,  6.359e-10,  6.226e-10,  6.097e-10,
       5.970e-10,  5.847e-10,  5.727e-10,  5.610e-10,  5.495e-10,
       5.384e-10,  5.275e-10,  5.169e-10,  5.065e-10,  4.964e-10,
       4.865e-10,  4.769e-10,  4.675e-10,  4.583e-10,  4.493e-10,
       4.406e-10,  4.320e-10,  4.236e-10,  4.155e-10,  4.075e-10,
       3.997e-10,  3.921e-10,  3.846e-10,  3.774e-10,  3.703e-10,
       3.633e-10,  3.565e-10,  3.499e-10,  3.434e-10,  3.370e-10,
       3.308e-10,  3.248e-10,  3.188e-10,  3.130e-10,  3.073e-10,
       3.018e-10,  2.963e-10,  2.910e-10,  2.858e-10,  2.807e-10,
       2.757e-10,  2.708e-10,  2.660e-10,  2.613e-10,  2.567e-10,
       2.523e-10,  2.479e-10,  2.436e-10,  2.393e-10,  2.352e-10,
       2.312e-10,  2.272e-10,  2.233e-10,  2.195e-10,  2.158e-10,
       2.121e-10,  2.086e-10,  2.051e-10,  2.016e-10,  1.983e-10,
       1.950e-10,  1.917e-10,  1.886e-10,  1.855e-10,  1.824e-10,
       1.794e-10,  1.765e-10,  1.736e-10,  1.708e-10,  1.680e-10,
       1.653e-10,  1.627e-10,  1.601e-10,  1.575e-10,  1.550e-10,
       1.525e-10,  1.501e-10,  1.478e-10,  1.454e-10,  1.431e-10,
       1.409e-10,  1.387e-10,  1.366e-10,  1.344e-10,  1.324e-10,
       1.303e-10,  1.283e-10,  1.264e-10,  1.244e-10,  1.225e-10,
       1.207e-10,  1.189e-10,  1.171e-10,  1.153e-10,  1.136e-10,
       1.119e-10,  1.102e-10,  1.086e-10,  1.070e-10,  1.054e-10,
       1.039e-10,  1.023e-10,  1.008e-10,  9.937e-11,  9.793e-11,
       9.651e-11,  9.512e-11,  9.375e-11,  9.241e-11,  9.109e-11,
       8.979e-11,  8.852e-11,  8.726e-11,  8.603e-11,  8.483e-11,
       8.364e-11,  8.247e-11,  8.132e-11,  8.020e-11,  7.909e-11,
       7.800e-11,  7.693e-11,  7.588e-11,  7.485e-11,  7.384e-11,
       7.284e-11,  7.186e-11,  7.090e-11,  6.995e-11,  6.902e-11,
       6.811e-11,  6.721e-11,  6.633e-11,  6.546e-11,  6.461e-11,
       6.377e-11,  6.295e-11,  6.214e-11,  6.135e-11,  6.057e-11,
       5.980e-11,  5.905e-11,  5.831e-11,  5.758e-11,  5.687e-11,
       5.617e-11,  5.548e-11,  5.481e-11,  5.415e-11,  5.350e-11,
       5.286e-11,  5.224e-11,  5.163e-11,  5.103e-11,  5.045e-11,
       4.989e-11,  4.934e-11,  4.881e-11,  4.830e-11,  4.781e-11,
       4.734e-11,  4.689e-11,  4.646e-11,  4.605e-11,  4.565e-11,
       4.527e-11,  4.489e-11,  4.453e-11,  4.417e-11,  4.381e-11,
       4.346e-11,  4.312e-11,  4.279e-11,  4.247e-11,  4.216e-11,
       4.187e-11,  4.160e-11,  4.136e-11,  4.114e-11,  4.097e-11,
       4.084e-11,  4.075e-11,  4.073e-11,  4.077e-11,  4.089e-11,
       4.110e-11,  4.142e-11,  4.185e-11,  4.238e-11,  4.301e-11,
       4.372e-11,  4.448e-11,  4.527e-11,  4.604e-11,  4.677e-11,
       4.742e-11,  4.798e-11,  4.844e-11,  4.879e-11,  4.905e-11,
       4.924e-11,  4.936e-11,  4.940e-11,  4.939e-11,  4.937e-11,
       4.935e-11,  4.938e-11,  4.946e-11,  4.963e-11,  4.987e-11,
       5.018e-11,  5.057e-11,  5.100e-11,  5.147e-11,  5.195e-11,
       5.242e-11,  5.285e-11,  5.321e-11,  5.346e-11,  5.358e-11,
       5.352e-11,  5.327e-11,  5.283e-11,  5.217e-11,  5.133e-11,
       5.034e-11,  4.918e-11,  4.786e-11,  4.643e-11,  4.492e-11,
       4.338e-11,  4.186e-11,  4.042e-11,  3.908e-11,  3.789e-11,
       3.685e-11,  3.598e-11,  3.527e-11,  3.472e-11,  3.430e-11,
       3.402e-11,  3.385e-11,  3.379e-11,  3.382e-11,  3.395e-11,
       3.420e-11,  3.466e-11,  3.519e-11,  3.579e-11,  3.645e-11,
       3.718e-11,  3.798e-11,  3.886e-11,  3.982e-11,  4.088e-11,
       4.204e-11,  4.331e-11,  4.471e-11,  4.626e-11,  4.800e-11,
       4.996e-11,  5.219e-11,  5.475e-11,  5.769e-11,  6.108e-11,
       6.494e-11,  6.930e-11,  7.414e-11,  7.941e-11,  8.501e-11,
       9.086e-11,  9.693e-11,  1.029e-10,  1.087e-10,  1.142e-10,
       1.193e-10,  1.240e-10,  1.282e-10,  1.342e-10,  1.412e-10,
       1.485e-10,  1.559e-10,  1.639e-10,  1.725e-10,  1.821e-10,
       1.928e-10,  2.047e-10,  2.175e-10,  2.312e-10,  2.454e-10,
       2.596e-10,  2.735e-10,  2.867e-10,  2.988e-10,  3.094e-10,
       3.182e-10,  3.248e-10,  3.291e-10,  3.308e-10,  3.298e-10,
       3.260e-10,  3.195e-10,  3.101e-10,  3.000e-10,  2.891e-10,
       2.769e-10,  2.635e-10,  2.493e-10,  2.347e-10,  2.204e-10,
       2.068e-10,  1.944e-10,  1.836e-10,  1.746e-10,  1.675e-10,
       1.622e-10,  1.586e-10,  1.565e-10,  1.559e-10,  1.564e-10,
       1.579e-10,  1.604e-10,  1.636e-10,  1.675e-10,  1.721e-10,
       1.774e-10,  1.833e-10,  1.899e-10,  1.973e-10,  2.055e-10,
       2.146e-10,  2.247e-10,  2.360e-10,  2.486e-10,  2.626e-10,
       2.784e-10,  2.960e-10,  3.158e-10,  3.380e-10,  3.630e-10,
       3.913e-10,  4.234e-10,  4.599e-10,  5.020e-10,  5.507e-10,
       6.075e-10,  6.737e-10,  7.509e-10,  8.409e-10,  9.452e-10,
       1.066e-09,  1.203e-09,  1.360e-09,  1.535e-09,  1.730e-09,
       1.945e-09,  2.179e-09,  2.436e-09,  2.721e-09,  3.044e-09,
       3.417e-09,  3.853e-09,  4.362e-09,  4.955e-09,  5.639e-09,
       6.417e-09,  7.287e-09,  8.241e-09,  9.269e-09,  1.035e-08,
       1.145e-08,  1.256e-08,  1.365e-08,  1.475e-08,  1.589e-08,
       1.710e-08,  1.842e-08,  1.988e-08,  2.149e-08,  2.326e-08,
       2.520e-08,  2.731e-08,  2.962e-08,  3.215e-08,  3.498e-08,
       3.823e-08,  4.199e-08,  4.646e-08,  5.180e-08,  5.819e-08,
       6.582e-08,  7.484e-08,  8.539e-08,  9.756e-08,  1.114e-07,
       1.270e-07,  1.443e-07,  1.635e-07,  1.848e-07,  2.090e-07,
       2.371e-07,  2.706e-07,  3.111e-07,  3.601e-07,  4.190e-07,
       4.892e-07,  5.717e-07,  6.668e-07,  7.748e-07,  8.947e-07,
       1.025e-06,  1.162e-06,  1.301e-06,  1.439e-06,  1.570e-06,
       1.692e-06,  1.808e-06,  1.920e-06,  2.034e-06,  2.150e-06,
       2.269e-06,  2.386e-06,  2.499e-06,  2.600e-06,  2.684e-06,
       2.746e-06,  2.781e-06,  2.788e-06,  2.768e-06,  2.720e-06,
       2.648e-06,  2.556e-06,  2.448e-06,  2.328e-06,  2.198e-06,
       2.063e-06,  1.923e-06,  1.779e-06,  1.628e-06,  1.469e-06,
       1.300e-06,  1.126e-06,  9.526e-07,  7.885e-07,  6.394e-07,
       5.112e-07,  4.064e-07,  3.262e-07,  2.698e-07,  2.352e-07,
       2.206e-07,  2.235e-07,  2.429e-07,  2.784e-07,  3.302e-07,
       3.995e-07,  4.880e-07,  5.968e-07,  7.277e-07,  8.811e-07,
       1.056e-06,  1.251e-06,  1.461e-06,  1.680e-06,  1.901e-06,
       2.116e-06,  2.321e-06,  2.519e-06,  2.715e-06,  2.913e-06,
       3.115e-06,  3.321e-06,  3.526e-06,  3.724e-06,  3.905e-06,
       4.059e-06,  4.181e-06,  4.261e-06,  4.295e-06,  4.283e-06,
       4.225e-06,  4.126e-06,  3.991e-06,  3.826e-06,  3.637e-06,
       3.432e-06,  3.215e-06,  2.989e-06,  2.755e-06,  2.511e-06,
       2.254e-06,  1.985e-06,  1.706e-06,  1.429e-06,  1.166e-06,
       9.250e-07,  7.135e-07,  5.356e-07,  3.921e-07,  2.814e-07,
       1.988e-07,  1.398e-07,  9.915e-08,  7.137e-08,  5.280e-08,
       4.038e-08,  3.192e-08,  2.601e-08,  2.164e-08,  1.836e-08,
       1.578e-08,  1.371e-08,  1.199e-08,  1.056e-08,  9.353e-09,
       8.321e-09,  7.436e-09,  6.672e-09,  6.010e-09,  5.433e-09,
       4.929e-09,  4.487e-09,  4.098e-09,  3.754e-09,  3.448e-09,
       3.174e-09,  2.929e-09,  2.708e-09,  2.507e-09,  2.325e-09,
       2.159e-09,  2.006e-09,  1.866e-09,  1.738e-09,  1.619e-09,
       1.510e-09,  1.409e-09,  1.316e-09,  1.230e-09,  1.149e-09,
       1.074e-09,  1.003e-09,  9.372e-10,  8.757e-10,  8.186e-10,
       7.661e-10,  7.179e-10,  6.740e-10,  6.339e-10,  5.974e-10,
       5.641e-10,  5.335e-10,  5.053e-10,  4.791e-10,  4.548e-10,
       4.321e-10,  4.109e-10,  3.909e-10,  3.722e-10,  3.546e-10,
       3.380e-10,  3.224e-10,  3.076e-10,  2.936e-10,  2.804e-10,
       2.680e-10,  2.562e-10,  2.451e-10,  2.346e-10,  2.246e-10,
       2.153e-10,  2.064e-10,  1.981e-10,  1.901e-10,  1.826e-10,
       1.755e-10,  1.687e-10,  1.623e-10,  1.562e-10,  1.503e-10,
       1.448e-10,  1.395e-10,  1.344e-10,  1.296e-10,  1.250e-10,
       1.206e-10,  1.165e-10,  1.125e-10,  1.087e-10,  1.050e-10,
       1.015e-10,  9.822e-11,  9.506e-11,  9.203e-11,  8.915e-11,
       8.640e-11,  8.377e-11,  8.127e-11,  7.888e-11,  7.660e-11,
       7.442e-11,  7.234e-11,  7.035e-11,  6.844e-11,  6.661e-11,
       6.486e-11,  6.316e-11,  6.154e-11,  5.998e-11,  5.850e-11,
       5.710e-11,  5.582e-11,  5.460e-11,  5.344e-11,  5.234e-11,
       5.132e-11,  5.040e-11,  4.961e-11,  4.896e-11,  4.845e-11,
       4.806e-11,  4.774e-11,  4.742e-11,  4.702e-11,  4.652e-11,
       4.594e-11,  4.527e-11,  4.451e-11,  4.366e-11,  4.274e-11,
       4.172e-11,  4.063e-11,  3.946e-11,  3.822e-11,  3.693e-11,
       3.560e-11,  3.428e-11,  3.293e-11,  3.155e-11,  3.014e-11,
       2.872e-11,  2.734e-11,  2.603e-11,  2.482e-11,  2.376e-11,
       2.286e-11,  2.211e-11,  2.146e-11,  2.088e-11,  2.032e-11,
       1.980e-11,  1.930e-11,  1.882e-11,  1.836e-11,  1.792e-11,
       1.749e-11,  1.708e-11,  1.669e-11,  1.630e-11,  1.593e-11,
       1.557e-11,  1.522e-11,  1.488e-11,  1.456e-11,  1.424e-11,
       1.392e-11,  1.362e-11,  1.333e-11,  1.304e-11,  1.276e-11,
       1.249e-11,  1.223e-11,  1.197e-11,  1.172e-11,  1.147e-11,
       1.124e-11,  1.100e-11,  1.078e-11,  1.056e-11,  1.034e-11,
       1.013e-11,  9.924e-12,  9.723e-12,  9.528e-12,  9.336e-12,
       9.149e-12,  8.967e-12,  8.789e-12,  8.615e-12,  8.445e-12,
       8.278e-12,  8.116e-12,  7.957e-12,  7.802e-12,  7.650e-12,
       7.502e-12,  7.357e-12,  7.215e-12,  7.076e-12,  6.940e-12,
       6.807e-12,  6.677e-12,  6.550e-12,  6.426e-12,  6.304e-12,
       6.185e-12,  6.068e-12,  5.954e-12,  5.842e-12,  5.732e-12,
       5.625e-12,  5.520e-12,  5.417e-12,  5.316e-12,  5.217e-12,
       5.121e-12,  5.026e-12,  4.933e-12,  4.842e-12,  4.753e-12,
       4.665e-12,  4.580e-12,  4.496e-12,  4.414e-12,  4.333e-12,
       4.254e-12,  4.176e-12,  4.100e-12,  4.025e-12,  3.952e-12,
       3.880e-12,  3.810e-12,  3.741e-12,  3.673e-12,  3.607e-12,
       3.542e-12,  3.478e-12,  3.415e-12,  3.353e-12,  3.293e-12,
       3.233e-12,  3.175e-12,  3.118e-12,  3.062e-12,  3.007e-12,
       2.953e-12,  2.899e-12,  2.847e-12,  2.796e-12,  2.746e-12,
       2.696e-12,  2.648e-12,  2.600e-12,  2.554e-12,  2.508e-12,
       2.463e-12,  2.418e-12,  2.375e-12,  2.332e-12,  2.290e-12,
       2.249e-12,  2.208e-12,  2.168e-12,  2.129e-12,  2.090e-12,
       2.053e-12,  2.015e-12,  1.979e-12,  1.943e-12,  1.908e-12,
       1.873e-12,  1.839e-12,  1.805e-12,  1.772e-12,  1.740e-12,
       1.708e-12,  1.677e-12,  1.646e-12,  1.616e-12,  1.586e-12,
       1.557e-12,  1.528e-12,  1.500e-12,  1.472e-12,  1.445e-12,
       1.418e-12,  1.391e-12,  1.365e-12,  1.340e-12,  1.314e-12,
       1.290e-12,  1.265e-12,  1.241e-12,  1.218e-12,  1.195e-12,
       1.172e-12,  1.150e-12,  1.128e-12,  1.106e-12,  1.085e-12,
       1.064e-12,  1.043e-12,  1.023e-12,  1.003e-12,  9.835e-13,
       9.643e-13,  9.453e-13,  9.267e-13,  9.084e-13,  8.904e-13,
       8.727e-13,  8.553e-13,  8.382e-13,  8.213e-13,  8.048e-13,
       7.885e-13,  7.725e-13,  7.568e-13,  7.414e-13,  7.262e-13,
       7.113e-13,  6.966e-13,  6.822e-13,  6.680e-13,  6.541e-13,
       6.404e-13,  6.270e-13,  6.138e-13,  6.009e-13,  5.882e-13,
       5.757e-13,  5.634e-13,  5.514e-13,  5.396e-13,  5.280e-13,
       5.167e-13,  5.055e-13,  4.946e-13,  4.839e-13,  4.734e-13,
       4.631e-13,  4.531e-13,  4.432e-13,  4.336e-13,  4.241e-13,
       4.149e-13,  4.059e-13,  3.971e-13,  3.885e-13,  3.801e-13,
       3.720e-13,  3.640e-13,  3.562e-13,  3.487e-13,  3.414e-13,
       3.342e-13,  3.274e-13,  3.207e-13,  3.142e-13,  3.080e-13,
       3.020e-13,  2.963e-13,  2.908e-13,  2.856e-13,  2.806e-13,
       2.759e-13,  2.715e-13,  2.673e-13,  2.635e-13,  2.600e-13,
       2.569e-13,  2.542e-13,  2.519e-13,  2.500e-13,  2.487e-13,
       2.479e-13,  2.477e-13,  2.483e-13,  2.498e-13,  2.524e-13,
       2.562e-13,  2.614e-13,  2.684e-13,  2.776e-13,  2.894e-13,
       3.045e-13,  3.235e-13,  3.472e-13,  3.765e-13,  4.123e-13,
       4.554e-13,  5.064e-13,  5.654e-13,  6.321e-13,  7.055e-13,
       7.844e-13,  8.666e-13,  9.498e-13,  1.032e-12,  1.111e-12,
       1.186e-12,  1.257e-12,  1.322e-12,  1.377e-12,  1.473e-12,
       1.580e-12,  1.690e-12,  1.806e-12,  1.930e-12,  2.066e-12,
       2.217e-12,  2.386e-12,  2.572e-12,  2.771e-12,  2.983e-12,
       3.199e-12,  3.414e-12,  3.619e-12,  3.810e-12,  3.980e-12,
       4.123e-12,  4.235e-12,  4.311e-12,  4.348e-12,  4.343e-12,
       4.296e-12,  4.204e-12,  4.069e-12,  3.891e-12,  3.711e-12,
       3.520e-12,  3.310e-12,  3.085e-12,  2.854e-12,  2.622e-12,
       2.400e-12,  2.198e-12,  2.022e-12,  1.879e-12,  1.772e-12,
       1.703e-12,  1.673e-12,  1.680e-12,  1.723e-12,  1.799e-12,
       1.911e-12,  2.055e-12,  2.231e-12,  2.440e-12,  2.683e-12,
       2.960e-12,  3.271e-12,  3.620e-12,  4.012e-12,  4.456e-12,
       4.958e-12,  5.520e-12,  6.142e-12,  6.818e-12,  7.538e-12,
       8.289e-12,  9.052e-12,  9.821e-12,  1.060e-11,  1.140e-11,
       1.226e-11,  1.320e-11,  1.426e-11,  1.547e-11,  1.686e-11,
       1.846e-11,  2.030e-11,  2.243e-11,  2.487e-11,  2.767e-11,
       3.089e-11,  3.452e-11,  3.858e-11,  4.305e-11,  4.791e-11,
       5.309e-11,  5.851e-11,  6.412e-11,  6.995e-11,  7.609e-11,
       8.271e-11,  8.987e-11,  9.758e-11,  1.058e-10,  1.146e-10,
       1.237e-10,  1.331e-10,  1.428e-10,  1.530e-10,  1.638e-10,
       1.755e-10,  1.886e-10,  2.036e-10,  2.212e-10,  2.418e-10,
       2.662e-10,  2.949e-10,  3.287e-10,  3.677e-10,  4.130e-10,
       4.648e-10,  5.232e-10,  5.877e-10,  6.574e-10,  7.307e-10,
       8.058e-10,  8.802e-10,  9.540e-10,  1.027e-09,  1.102e-09,
       1.181e-09,  1.268e-09,  1.365e-09,  1.476e-09,  1.601e-09,
       1.744e-09,  1.908e-09,  2.099e-09,  2.323e-09,  2.589e-09,
       2.904e-09,  3.278e-09,  3.721e-09,  4.237e-09,  4.828e-09,
       5.491e-09,  6.214e-09,  6.977e-09,  7.752e-09,  8.508e-09,
       9.225e-09,  9.899e-09,  1.055e-08,  1.120e-08,  1.187e-08,
       1.256e-08,  1.325e-08,  1.395e-08,  1.461e-08,  1.520e-08,
       1.569e-08,  1.605e-08,  1.626e-08,  1.631e-08,  1.620e-08,
       1.594e-08,  1.553e-08,  1.501e-08,  1.439e-08,  1.370e-08,
       1.296e-08,  1.219e-08,  1.139e-08,  1.055e-08,  9.668e-09,
       8.719e-09,  7.720e-09,  6.699e-09,  5.699e-09,  4.763e-09,
       3.920e-09,  3.193e-09,  2.592e-09,  2.116e-09,  1.754e-09,
       1.496e-09,  1.322e-09,  1.222e-09,  1.179e-09,  1.188e-09,
       1.242e-09,  1.341e-09,  1.488e-09,  1.691e-09,  1.963e-09,
       2.320e-09,  2.783e-09,  3.375e-09,  4.124e-09,  5.059e-09,
       6.212e-09,  7.615e-09,  9.297e-09,  1.128e-08,  1.359e-08,
       1.623e-08,  1.920e-08,  2.246e-08,  2.598e-08,  2.967e-08,
       3.341e-08,  3.709e-08,  4.060e-08,  4.393e-08,  4.715e-08,
       5.035e-08,  5.359e-08,  5.689e-08,  6.020e-08,  6.340e-08,
       6.637e-08,  6.892e-08,  7.091e-08,  7.222e-08,  7.275e-08,
       7.249e-08,  7.146e-08,  6.970e-08,  6.732e-08,  6.443e-08,
       6.112e-08,  5.751e-08,  5.370e-08,  4.974e-08,  4.570e-08,
       4.155e-08,  3.726e-08,  3.279e-08,  2.817e-08,  2.355e-08,
       1.910e-08,  1.501e-08,  1.141e-08,  8.412e-09,  6.023e-09,
       4.215e-09,  2.923e-09,  2.033e-09,  1.455e-09,  1.093e-09,
       8.740e-10,  7.431e-10,  6.659e-10,  6.264e-10,  6.148e-10,
       6.290e-10,  6.704e-10,  7.425e-10,  8.507e-10,  1.003e-09,
       1.207e-09,  1.473e-09,  1.814e-09,  2.240e-09,  2.764e-09,
       3.393e-09,  4.135e-09,  4.986e-09,  5.942e-09,  6.983e-09,
       8.082e-09,  9.200e-09,  1.030e-08,  1.135e-08,  1.236e-08,
       1.334e-08,  1.434e-08,  1.536e-08,  1.642e-08,  1.749e-08,
       1.854e-08,  1.954e-08,  2.042e-08,  2.114e-08,  2.167e-08,
       2.198e-08,  2.205e-08,  2.189e-08,  2.153e-08,  2.099e-08,
       2.030e-08,  1.949e-08,  1.859e-08,  1.763e-08,  1.662e-08,
       1.556e-08,  1.445e-08,  1.325e-08,  1.197e-08,  1.060e-08,
       9.205e-09,  7.832e-09,  6.544e-09,  5.383e-09,  4.378e-09,
       3.539e-09,  2.863e-09,  2.326e-09,  1.907e-09,  1.578e-09,
       1.311e-09,  1.088e-09,  8.975e-10,  7.318e-10,  5.895e-10,
       4.686e-10,  3.686e-10,  2.875e-10,  2.242e-10,  1.750e-10,
       1.380e-10,  1.104e-10,  8.948e-11,  7.378e-11,  6.180e-11,
       5.251e-11,  4.520e-11,  3.940e-11,  3.475e-11,  3.099e-11,
       2.792e-11,  2.537e-11,  2.323e-11,  2.141e-11,  1.985e-11,
       1.850e-11,  1.734e-11,  1.633e-11,  1.545e-11,  1.468e-11,
       1.399e-11,  1.338e-11,  1.281e-11,  1.228e-11,  1.179e-11,
       1.133e-11,  1.091e-11,  1.055e-11,  1.019e-11,  9.838e-12,
       9.494e-12,  9.161e-12,  8.845e-12,  8.544e-12,  8.258e-12,
       7.982e-12,  7.708e-12,  7.428e-12,  7.141e-12,  6.853e-12,
       6.574e-12,  6.319e-12,  6.101e-12,  5.933e-12,  5.825e-12,
       5.790e-12,  5.845e-12,  6.018e-12,  6.355e-12,  6.862e-12,
       7.521e-12,  8.372e-12,  9.455e-12,  1.076e-11,  1.231e-11,
       1.415e-11,  1.635e-11,  1.900e-11,  2.233e-11,  2.688e-11,
       3.335e-11,  4.316e-11,  5.277e-11,  6.203e-11,  7.088e-11,
       7.925e-11,  8.706e-11,  9.420e-11,  1.005e-10,  1.059e-10,
       1.101e-10,  1.130e-10,  1.145e-10,  1.146e-10,  1.132e-10,
       1.104e-10,  1.063e-10,  1.008e-10,  9.418e-11,  8.642e-11,
       7.766e-11,  6.805e-11,  5.779e-11,  4.724e-11,  3.706e-11,
       2.875e-11,  2.362e-11,  1.918e-11,  1.520e-11,  1.168e-11,
       8.671e-12,  6.195e-12,  4.263e-12,  2.844e-12,  1.873e-12,
       1.259e-12,  8.916e-13,  6.808e-13,  5.494e-13,  4.535e-13,
       3.758e-13,  3.113e-13,  2.571e-13,  2.110e-13,  1.714e-13,
       1.372e-13,  1.074e-13,  8.140e-14,  5.888e-14,  3.992e-14,
       2.574e-14,  2.098e-14,  1.985e-14,  1.894e-14,  1.804e-14,
       1.721e-14,  1.645e-14,  1.570e-14,  1.509e-14,  1.449e-14,
       1.389e-14,  1.336e-14,  1.291e-14,  1.238e-14,  1.200e-14,
       1.155e-14,  1.117e-14,  1.079e-14,  1.042e-14,  1.004e-14,
       9.736e-15,  9.434e-15,  9.132e-15,  8.830e-15,  8.604e-15,
       8.302e-15,  8.075e-15,  7.849e-15,  7.623e-15,  7.381e-15,
       7.170e-15,  6.974e-15,  6.777e-15,  6.589e-15,  6.408e-15,
       6.234e-15,  6.068e-15,  5.909e-15,  5.751e-15,  5.600e-15,
       5.457e-15,  5.321e-15,  5.185e-15,  5.057e-15,  4.928e-15,
       4.808e-15,  4.694e-15,  4.581e-15,  4.475e-15,  4.370e-15,
       4.272e-15,  4.174e-15,  4.083e-15,  3.992e-15,  3.909e-15,
       3.834e-15,  3.758e-15,  3.691e-15,  3.623e-15,  3.562e-15,
       3.509e-15,  3.464e-15,  3.426e-15,  3.396e-15,  3.374e-15,
       3.351e-15,  3.343e-15,  3.336e-15,  3.343e-15,  3.358e-15,
       3.374e-15,  3.396e-15,  3.434e-15,  3.472e-15,  3.517e-15,
       3.562e-15,  3.608e-15,  3.653e-15,  3.706e-15,  3.751e-15,
       3.437e-14,  7.989e-14,  1.282e-13,  1.776e-13,  2.263e-13,
       2.729e-13,  3.172e-13,  3.605e-13,  4.054e-13,  4.547e-13,
       5.102e-13,  5.724e-13,  6.399e-13,  7.079e-13,  7.639e-13,
       8.028e-13,  8.255e-13,  8.329e-13,  8.264e-13,  8.071e-13,
       7.764e-13,  7.358e-13,  6.868e-13,  6.310e-13,  5.700e-13,
       5.051e-13,  4.376e-13,  3.681e-13,  2.968e-13,  2.234e-13,
       1.473e-13,  6.888e-14,  3.200e-15,  3.147e-15,  3.087e-15,
       3.011e-15,  2.898e-15,  2.755e-15,  2.611e-15,  2.483e-15,
       2.392e-15,  2.340e-15,  2.317e-15,  2.317e-15,  2.332e-15,
       2.347e-15,  2.385e-15,  2.430e-15,  2.491e-15,  2.558e-15,
       2.619e-15,  3.956e-14,  8.813e-14,  1.397e-13,  1.926e-13,
       2.457e-13,  2.970e-13,  3.453e-13,  3.918e-13,  4.390e-13,
       4.899e-13,  5.472e-13,  6.123e-13,  6.845e-13,  7.615e-13,
       8.299e-13,  8.795e-13,  9.111e-13,  9.260e-13,  9.252e-13,
       9.099e-13,  8.817e-13,  8.421e-13,  7.925e-13,  7.350e-13,
       6.711e-13,  6.022e-13,  5.297e-13,  4.544e-13,  3.767e-13,
       2.965e-13,  2.132e-13,  1.265e-13,  3.808e-14,  2.408e-15,
       2.302e-15,  2.158e-15,  1.985e-15,  1.796e-15,  1.615e-15,
       1.449e-15,  1.313e-15,  1.177e-15,  1.057e-15,  9.509e-16,
       8.604e-16,  7.849e-16,  7.336e-16,  6.928e-16,  6.589e-16,
       6.257e-16,  5.947e-16,  5.698e-16,  5.494e-16,  5.321e-16,
       5.155e-16,  5.004e-16,  4.875e-16,  4.770e-16,  4.679e-16,
       4.604e-16,  4.528e-16,  4.475e-16,  4.430e-16,  4.408e-16,
       4.385e-16,  4.377e-16,  4.385e-16,  4.400e-16,  4.438e-16,
       4.498e-16,  4.574e-16,  4.664e-16,  4.777e-16,  4.936e-16,
       5.155e-16,  5.442e-16,  5.781e-16,  6.166e-16,  6.581e-16,
       7.011e-16,  7.479e-16,  8.000e-16,  8.528e-16,  9.057e-16,
       9.509e-16,  9.887e-16,  1.019e-15,  1.049e-15,  1.079e-15,
       1.117e-15,  1.170e-15,  1.230e-15,  1.291e-15,  1.351e-15,
       1.404e-15,  1.457e-15,  1.509e-15,  1.555e-15,  1.592e-15,
       1.623e-15,  1.645e-15,  1.660e-15,  1.660e-15,  1.660e-15,
       1.660e-15,  1.660e-15,  1.653e-15,  1.638e-15,  1.623e-15,
       1.608e-15,  1.585e-15,  1.555e-15,  1.532e-15,  1.502e-15,
       1.487e-15,  1.487e-15,  1.502e-15,  1.509e-15,  1.525e-15,
       1.540e-15,  1.547e-15,  1.547e-15,  1.555e-15,  1.570e-15,
       1.592e-15,  1.638e-15,  1.691e-15,  1.751e-15,  1.826e-15,
       1.917e-15,  2.015e-15,  2.136e-15,  2.264e-15,  2.408e-15,
       2.543e-15,  2.687e-15,  2.830e-15,  2.981e-15,  3.140e-15,
       3.321e-15,  3.517e-15,  1.344e-14,  5.071e-14,  9.298e-14,
       1.386e-13,  1.864e-13,  2.353e-13,  2.838e-13,  3.317e-13,
       3.798e-13,  4.276e-13,  4.770e-13,  5.299e-13,  5.879e-13,
       6.531e-13,  7.277e-13,  8.135e-13,  9.128e-13,  1.028e-12,
       1.163e-12,  1.320e-12,  1.506e-12,  1.723e-12,  1.983e-12,
       2.292e-12,  2.657e-12,  3.080e-12,  3.560e-12,  4.093e-12,
       4.664e-12,  5.252e-12,  5.837e-12,  6.395e-12,  6.924e-12,
       7.424e-12,  7.909e-12,  8.394e-12,  8.890e-12,  9.398e-12,
       9.911e-12,  1.042e-11,  1.092e-11,  1.140e-11,  1.184e-11,
       1.226e-11,  1.268e-11,  1.311e-11,  1.360e-11,  1.420e-11,
       1.499e-11,  1.603e-11,  1.740e-11,  1.916e-11,  2.136e-11,
       2.401e-11,  2.709e-11,  3.051e-11,  3.419e-11,  3.796e-11,
       4.166e-11,  4.519e-11,  4.858e-11,  5.189e-11,  5.528e-11,
       5.883e-11,  6.257e-11,  6.644e-11,  7.032e-11,  7.407e-11,
       7.751e-11,  8.044e-11,  8.273e-11,  8.424e-11,  8.491e-11,
       8.472e-11,  8.371e-11,  8.193e-11,  7.954e-11,  7.660e-11,
       7.327e-11,  6.964e-11,  6.579e-11,  6.175e-11,  5.748e-11,
       5.295e-11,  4.807e-11,  4.289e-11,  3.757e-11,  3.230e-11,
       2.731e-11,  2.278e-11,  1.881e-11,  1.546e-11,  1.273e-11,
       1.058e-11,  8.955e-12,  7.746e-12,  6.902e-12,  6.331e-12,
       5.989e-12,  5.820e-12,  5.808e-12,  5.927e-12,  6.175e-12,
       6.552e-12,  7.059e-12,  7.708e-12,  8.512e-12,  9.506e-12,
       1.072e-11,  1.220e-11,  1.402e-11,  1.623e-11,  1.889e-11,
       2.204e-11,  2.573e-11,  2.996e-11,  3.477e-11,  4.016e-11,
       4.617e-11,  5.289e-11,  6.051e-11,  6.933e-11,  7.972e-11,
       9.209e-11,  1.068e-10,  1.243e-10,  1.447e-10,  1.684e-10,
       1.953e-10,  2.254e-10,  2.582e-10,  2.933e-10,  3.297e-10,
       3.662e-10,  4.014e-10,  4.345e-10,  4.655e-10,  4.951e-10,
       5.248e-10,  5.554e-10,  5.872e-10,  6.200e-10,  6.526e-10,
       6.838e-10,  7.115e-10,  7.342e-10,  7.503e-10,  7.590e-10,
       7.597e-10,  7.526e-10,  7.380e-10,  7.170e-10,  6.905e-10,
       6.597e-10,  6.255e-10,  5.889e-10,  5.506e-10,  5.107e-10,
       4.691e-10,  4.252e-10,  3.786e-10,  3.296e-10,  2.797e-10,
       2.307e-10,  1.848e-10,  1.440e-10,  1.091e-10,  8.078e-11,
       5.881e-11,  4.268e-11,  3.141e-11,  2.402e-11,  1.953e-11,
       1.711e-11,  1.615e-11,  1.625e-11,  1.722e-11,  1.901e-11,
       2.170e-11,  2.541e-11,  3.033e-11,  3.670e-11,  4.480e-11,
       5.496e-11,  6.753e-11,  8.287e-11,  1.013e-10,  1.232e-10,
       1.486e-10,  1.776e-10,  2.100e-10,  2.453e-10,  2.826e-10,
       3.207e-10,  3.585e-10,  3.947e-10,  4.295e-10,  4.634e-10,
       4.975e-10,  5.327e-10,  5.691e-10,  6.066e-10,  6.440e-10,
       6.801e-10,  7.130e-10,  7.410e-10,  7.624e-10,  7.761e-10,
       7.814e-10,  7.782e-10,  7.670e-10,  7.483e-10,  7.233e-10,
       6.931e-10,  6.588e-10,  6.215e-10,  5.819e-10,  5.402e-10,
       4.966e-10,  4.506e-10,  4.017e-10,  3.503e-10,  2.981e-10,
       2.468e-10,  1.987e-10,  1.552e-10,  1.179e-10,  8.705e-11,
       6.278e-11,  4.457e-11,  3.136e-11,  2.219e-11,  1.601e-11,
       1.191e-11,  9.181e-12,  7.312e-12,  6.003e-12,  5.040e-12,
       4.304e-12,  3.722e-12,  3.250e-12,  2.861e-12,  2.533e-12,
       2.254e-12,  2.016e-12,  1.812e-12,  1.637e-12,  1.491e-12,
       1.370e-12,  1.275e-12,  1.205e-12,  1.164e-12,  1.153e-12,
       1.179e-12,  1.248e-12,  1.370e-12,  1.561e-12,  1.839e-12,
       2.232e-12,  2.761e-12,  3.467e-12,  4.391e-12,  5.580e-12,
       7.078e-12,  8.932e-12,  1.117e-11,  1.382e-11,  1.688e-11,
       2.031e-11,  2.403e-11,  2.792e-11,  3.188e-11,  3.573e-11,
       3.941e-11,  4.294e-11,  4.645e-11,  5.000e-11,  5.367e-11,
       5.743e-11,  6.123e-11,  6.491e-11,  6.837e-11,  7.141e-11,
       7.392e-11,  7.576e-11,  7.687e-11,  7.720e-11,  7.678e-11,
       7.567e-11,  7.396e-11,  7.187e-11,  6.938e-11,  6.665e-11,
       6.373e-11,  6.070e-11,  5.757e-11,  5.426e-11,  5.070e-11,
       4.683e-11,  4.269e-11,  3.841e-11,  3.420e-11,  3.020e-11,
       2.654e-11,  2.330e-11,  2.050e-11,  1.812e-11,  1.611e-11,
       1.439e-11,  1.291e-11,  1.158e-11,  1.037e-11,  9.206e-12,
       8.084e-12,  7.010e-12,  6.045e-12,  5.105e-12,  4.203e-12,
       3.363e-12,  2.610e-12,  1.964e-12,  1.429e-12,  1.009e-12,
       6.869e-13,  4.567e-13,  2.909e-13,  1.790e-13,  1.033e-13,
       5.183e-14,  1.809e-14,  8.906e-15,  8.151e-15,  7.472e-15,
       6.860e-15,  6.332e-15,  5.902e-15,  5.555e-15,  5.268e-15,
       5.019e-15,  4.808e-15,  4.657e-15,  4.551e-15,  4.483e-15,
       4.453e-15,  4.460e-15,  4.498e-15,  4.581e-15,  4.702e-15,
       4.860e-15,  5.049e-15,  5.275e-15,  5.540e-15,  5.864e-15,
       6.272e-15,  3.285e-14,  8.652e-14,  1.564e-13,  2.476e-13,
       3.706e-13,  5.518e-13,  8.262e-13,  1.265e-12,  1.708e-12,
       2.148e-12,  2.584e-12,  3.012e-12,  3.432e-12,  3.836e-12,
       4.219e-12,  4.571e-12,  4.879e-12,  5.133e-12,  5.322e-12,
       5.439e-12,  5.482e-12,  5.452e-12,  5.352e-12,  5.185e-12,
       4.955e-12,  4.666e-12,  4.323e-12,  3.935e-12,  3.511e-12,
       3.069e-12,  2.641e-12,  2.302e-12,  2.118e-12,  1.978e-12,
       1.874e-12,  1.809e-12,  1.787e-12,  1.812e-12,  1.888e-12,
       2.015e-12,  2.195e-12,  2.429e-12,  2.721e-12,  3.074e-12,
       3.495e-12,  3.990e-12,  4.564e-12,  5.216e-12,  5.943e-12,
       6.726e-12,  7.566e-12,  8.462e-12,  9.412e-12,  1.040e-11,
       1.142e-11,  1.244e-11,  1.342e-11,  1.433e-11,  1.519e-11,
       1.602e-11,  1.688e-11,  1.782e-11,  1.890e-11,  2.010e-11,
       2.139e-11,  2.268e-11,  2.375e-11,  2.445e-11,  2.481e-11,
       2.486e-11,  2.464e-11,  2.417e-11,  2.349e-11,  2.262e-11,
       2.157e-11,  2.038e-11,  1.908e-11,  1.770e-11,  1.626e-11,
       1.477e-11,  1.323e-11,  1.165e-11,  9.999e-12,  8.290e-12,
       6.576e-12,  4.935e-12,  3.475e-12,  2.280e-12,  1.419e-12,
       9.163e-13,  7.470e-13,  7.556e-13,  7.834e-13,  8.307e-13,
       8.969e-13,  9.822e-13,  1.088e-12,  1.215e-12,  1.367e-12,
       1.546e-12,  1.755e-12,  1.999e-12,  2.283e-12,  2.614e-12,
       2.998e-12,  3.446e-12,  3.968e-12,  4.576e-12,  5.280e-12,
       6.095e-12,  7.031e-12,  8.103e-12,  9.320e-12,  1.070e-11,
       1.225e-11,  1.400e-11,  1.600e-11,  1.825e-11,  2.082e-11,
       2.377e-11,  2.719e-11,  3.115e-11,  3.576e-11,  4.110e-11,
       4.725e-11,  5.425e-11,  6.219e-11,  7.118e-11,  8.133e-11,
       9.264e-11,  1.052e-10,  1.190e-10,  1.341e-10,  1.506e-10,
       1.684e-10,  1.879e-10,  2.094e-10,  2.339e-10,  2.624e-10,
       2.956e-10,  3.345e-10,  3.795e-10,  4.309e-10,  4.883e-10,
       5.499e-10,  6.166e-10,  6.887e-10,  7.664e-10,  8.495e-10,
       9.372e-10,  1.028e-09,  1.119e-09,  1.209e-09,  1.293e-09,
       1.372e-09,  1.448e-09,  1.526e-09,  1.612e-09,  1.711e-09,
       1.822e-09,  1.944e-09,  2.070e-09,  2.175e-09,  2.246e-09,
       2.287e-09,  2.298e-09,  2.285e-09,  2.248e-09,  2.190e-09,
       2.111e-09,  2.016e-09,  1.906e-09,  1.785e-09,  1.657e-09,
       1.521e-09,  1.382e-09,  1.238e-09,  1.089e-09,  9.341e-10,
       7.733e-10,  6.100e-10,  4.528e-10,  3.101e-10,  1.906e-10,
       1.028e-10,  4.896e-11,  2.904e-11,  2.392e-11,  1.984e-11,
       1.661e-11,  1.403e-11,  1.193e-11,  1.023e-11,  8.815e-12,
       7.641e-12,  6.658e-12,  5.828e-12,  5.123e-12,  4.521e-12,
       4.004e-12,  3.558e-12,  3.171e-12,  2.834e-12,  2.539e-12,
       2.280e-12,  2.052e-12,  1.850e-12,  1.671e-12,  1.512e-12,
       1.370e-12,  1.243e-12,  1.129e-12,  1.026e-12,  9.339e-13,
       8.504e-13,  7.748e-13,  7.063e-13,  6.440e-13,  5.872e-13,
       5.354e-13,  4.881e-13,  4.448e-13,  4.051e-13,  3.686e-13,
       3.351e-13,  3.042e-13,  2.757e-13,  2.494e-13,  2.252e-13,
       2.027e-13,  1.818e-13,  1.625e-13,  1.446e-13,  1.280e-13,
       1.125e-13,  9.815e-14,  8.481e-14,  7.242e-14,  6.095e-14,
       5.034e-14,  4.060e-14,  3.174e-14,  2.390e-14,  1.717e-14,
       1.206e-14,  1.034e-14,  9.811e-15,  9.358e-15,  8.906e-15,
       8.453e-15,  8.075e-15,  7.698e-15,  7.328e-15,  6.989e-15,
       6.664e-15,  6.355e-15,  6.068e-15,  5.796e-15,  5.540e-15,
       5.298e-15,  5.064e-15,  4.845e-15,  4.642e-15,  4.445e-15,
       4.257e-15,  4.075e-15,  3.909e-15,  3.743e-15,  3.592e-15,
       3.449e-15,  3.306e-15,  3.177e-15,  3.057e-15,  2.936e-15,
       2.823e-15,  2.709e-15,  2.611e-15,  2.513e-15,  2.415e-15,
       2.325e-15,  2.242e-15,  2.158e-15,  2.083e-15,  2.008e-15,
       1.940e-15,  1.872e-15,  1.804e-15,  1.743e-15,  1.691e-15,
       1.638e-15,  1.585e-15,  1.540e-15,  1.494e-15,  1.457e-15,
       1.419e-15,  1.389e-15,  1.358e-15,  1.343e-15,  1.321e-15,
       1.298e-15,  1.283e-15,  1.268e-15,  1.253e-15,  1.245e-15,
       5.862e-15,  3.288e-14,  6.265e-14,  9.326e-14,  1.234e-13,
       1.522e-13,  1.796e-13,  2.058e-13,  2.317e-13,  2.575e-13,
       2.833e-13,  3.087e-13,  3.328e-13,  3.550e-13,  3.742e-13,
       3.895e-13,  4.003e-13,  4.058e-13,  4.058e-13,  4.003e-13,
       3.895e-13,  3.742e-13,  3.548e-13,  3.324e-13,  3.077e-13,
       2.818e-13,  2.549e-13,  2.274e-13,  1.990e-13,  1.691e-13,
       1.374e-13,  1.040e-13,  6.996e-14,  3.648e-14,  5.560e-15,
       6.709e-16,  6.468e-16,  6.196e-16,  5.917e-16,  5.645e-16,
       5.396e-16,  5.162e-16,  4.928e-16,  4.717e-16,  4.528e-16,
       4.385e-16,  4.279e-16,  4.211e-16,  4.181e-16,  4.166e-16,
       4.166e-16,  4.189e-16,  4.226e-16,  4.279e-16,  4.370e-16,
       4.475e-16,  4.611e-16,  4.755e-16,  4.936e-16,  5.155e-16,
       5.426e-16,  5.736e-16,  6.060e-16,  6.453e-16,  6.928e-16,
       2.296e-14,  5.327e-14,  8.601e-14,  1.202e-13,  1.548e-13,
       1.892e-13,  2.235e-13,  2.581e-13,  2.945e-13,  3.339e-13,
       3.774e-13,  4.261e-13,  4.803e-13,  5.411e-13,  6.089e-13,
       6.851e-13,  7.711e-13,  8.691e-13,  9.818e-13,  1.112e-12,
       1.263e-12,  1.436e-12,  1.634e-12,  1.856e-12,  2.099e-12,
       2.358e-12,  2.625e-12,  2.889e-12,  3.139e-12,  3.373e-12,
       3.595e-12,  3.811e-12,  4.032e-12,  4.260e-12,  4.497e-12,
       4.736e-12,  4.970e-12,  5.185e-12,  5.369e-12,  5.511e-12,
       5.600e-12,  5.630e-12,  5.600e-12,  5.512e-12,  5.369e-12,
       5.181e-12,  4.955e-12,  4.699e-12,  4.424e-12,  4.134e-12,
       3.833e-12,  3.520e-12,  3.193e-12,  2.847e-12,  2.481e-12,
       2.103e-12,  1.730e-12,  1.375e-12,  1.053e-12,  7.751e-13,
       5.442e-13,  3.613e-13,  2.236e-13,  1.239e-13,  5.619e-14,
       1.470e-14,  4.747e-15,  4.483e-15,  4.279e-15,  4.158e-15,
       4.136e-15,  4.204e-15,  4.355e-15,  1.840e-14,  4.496e-14,
       8.112e-14,  1.284e-13,  1.892e-13,  2.667e-13,  3.638e-13,
       4.862e-13,  6.386e-13,  8.266e-13,  1.056e-12,  1.334e-12,
       1.665e-12,  2.055e-12,  2.506e-12,  3.021e-12,  3.595e-12,
       4.225e-12,  4.900e-12,  5.605e-12,  6.318e-12,  7.018e-12,
       7.688e-12,  8.326e-12,  8.949e-12,  9.578e-12,  1.023e-11,
       1.089e-11,  1.157e-11,  1.224e-11,  1.286e-11,  1.339e-11,
       1.380e-11,  1.407e-11,  1.418e-11,  1.412e-11,  1.390e-11,
       1.354e-11,  1.306e-11,  1.247e-11,  1.181e-11,  1.108e-11,
       1.032e-11,  9.520e-12,  8.700e-12,  7.857e-12,  6.985e-12,
       6.077e-12,  5.144e-12,  4.213e-12,  3.324e-12,  2.518e-12,
       1.820e-12,  1.251e-12,  8.129e-13,  4.967e-13,  2.819e-13,
       1.460e-13,  6.531e-14,  1.977e-14,  6.506e-15,  5.547e-15,
       4.740e-15,  4.113e-15,  3.645e-15,  3.291e-15,  3.004e-15,
       2.755e-15,  2.536e-15,  2.392e-15,  2.302e-15,  2.249e-15,
       2.219e-15,  2.226e-15,  2.264e-15,  2.340e-15,  2.445e-15,
       2.581e-15,  8.149e-15,  4.005e-14,  8.285e-14,  1.376e-13,
       2.056e-13,  2.892e-13,  3.902e-13,  5.099e-13,  6.488e-13,
       8.062e-13,  9.798e-13,  1.166e-12,  1.358e-12,  1.551e-12,
       1.737e-12,  1.915e-12,  2.088e-12,  2.261e-12,  2.440e-12,
       2.626e-12,  2.818e-12,  3.010e-12,  3.195e-12,  3.365e-12,
       3.508e-12,  3.618e-12,  3.689e-12,  3.718e-12,  3.705e-12,
       3.652e-12,  3.564e-12,  3.447e-12,  3.305e-12,  3.146e-12,
       2.973e-12,  2.790e-12,  2.600e-12,  2.400e-12,  2.189e-12,
       1.963e-12,  1.722e-12,  1.473e-12,  1.226e-12,  9.909e-13,
       7.778e-13,  5.938e-13,  4.407e-13,  3.182e-13,  2.235e-13,
       1.522e-13,  9.812e-14,  5.676e-14,  2.415e-14,  1.683e-15,
       1.434e-15,  1.238e-15,  1.079e-15,  9.434e-16,  8.302e-16,
       7.306e-16,  6.400e-16,  5.691e-16,  5.117e-16,  4.626e-16,
       4.166e-16,  3.743e-16,  3.411e-16,  3.132e-16,  2.891e-16,
       2.664e-16,  2.453e-16,  2.279e-16,  2.136e-16,  2.008e-16,
       1.887e-16,  1.781e-16,  1.698e-16,  1.623e-16,  1.562e-16,
       1.509e-16,  1.472e-16,  1.434e-16,  1.419e-16,  1.411e-16,
       1.419e-16,  1.434e-16,  1.457e-16,  1.502e-16,  1.570e-16,
       1.668e-16,  1.811e-16,  1.985e-16,  2.181e-16,  2.415e-16,
       2.664e-16,  2.966e-16,  3.313e-16,  3.675e-16,  4.030e-16,
       4.347e-16,  4.619e-16,  4.875e-16,  5.117e-16,  5.336e-16,
       5.540e-16,  5.706e-16,  5.849e-16,  5.977e-16,  6.113e-16,
       1.061e-14,  2.170e-14,  3.323e-14,  4.525e-14,  5.762e-14,
       7.011e-14,  8.221e-14,  9.352e-14,  1.034e-13,  1.115e-13,
       1.176e-13,  1.216e-13,  1.234e-13,  1.229e-13,  1.206e-13,
       1.170e-13,  1.127e-13,  1.081e-13,  1.038e-13,  1.002e-13,
       9.738e-14,  9.552e-14,  9.443e-14,  9.389e-14,  9.366e-14,
       9.377e-14,  9.433e-14,  9.567e-14,  9.768e-14,  1.005e-13,
       1.046e-13,  1.106e-13,  1.191e-13,  1.304e-13,  1.446e-13,
       1.611e-13,  1.789e-13,  1.960e-13,  2.106e-13,  2.203e-13,
       2.255e-13,  2.263e-13,  2.231e-13,  2.165e-13,  2.068e-13,
       1.945e-13,  1.800e-13,  1.637e-13,  1.462e-13,  1.278e-13,
       1.088e-13,  8.916e-14,  6.893e-14,  4.796e-14,  2.634e-14,
       4.974e-15,  8.151e-16,  8.302e-16,  8.453e-16,  8.679e-16,
       8.906e-16,  9.132e-16,  9.358e-16,  9.660e-16,  1.004e-15,
       1.057e-15,  1.125e-15,  1.200e-15,  1.291e-15,  1.389e-15,
       6.595e-15,  2.605e-14,  4.954e-14,  7.688e-14,  1.083e-13,
       1.441e-13,  1.841e-13,  2.286e-13,  2.772e-13,  3.294e-13,
       3.845e-13,  4.415e-13,  4.993e-13,  5.575e-13,  6.175e-13,
       6.813e-13,  7.524e-13,  8.335e-13,  9.256e-13,  1.029e-12,
       1.141e-12,  1.253e-12,  1.358e-12,  1.460e-12,  1.561e-12,
       1.663e-12,  1.770e-12,  1.884e-12,  2.005e-12,  2.136e-12,
       2.276e-12,  2.426e-12,  2.585e-12,  2.750e-12,  2.918e-12,
       3.082e-12,  3.243e-12,  3.398e-12,  3.558e-12,  3.735e-12,
       3.947e-12,  4.208e-12,  4.525e-12,  4.897e-12,  5.316e-12,
       5.752e-12,  6.174e-12,  6.589e-12,  7.013e-12,  7.462e-12,
       7.957e-12,  8.518e-12,  9.167e-12,  9.929e-12,  1.082e-11,
       1.187e-11,  1.309e-11,  1.449e-11,  1.607e-11,  1.782e-11,
       1.972e-11,  2.172e-11,  2.376e-11,  2.578e-11,  2.771e-11,
       2.956e-11,  3.140e-11,  3.336e-11,  3.556e-11,  3.809e-11,
       4.093e-11,  4.398e-11,  4.703e-11,  4.986e-11,  5.188e-11,
       5.313e-11,  5.366e-11,  5.352e-11,  5.277e-11,  5.147e-11,
       4.970e-11,  4.753e-11,  4.503e-11,  4.228e-11,  3.936e-11,
       3.631e-11,  3.316e-11,  2.993e-11,  2.661e-11,  2.317e-11,
       1.961e-11,  1.604e-11,  1.264e-11,  9.610e-12,  7.158e-12,
       5.460e-12,  4.584e-12,  4.502e-12,  5.024e-12,  5.734e-12,
       6.605e-12,  7.649e-12,  8.877e-12,  1.031e-11,  1.195e-11,
       1.382e-11,  1.593e-11,  1.828e-11,  2.090e-11,  2.377e-11,
       2.691e-11,  3.027e-11,  3.380e-11,  3.740e-11,  4.095e-11,
       4.430e-11,  4.743e-11,  5.043e-11,  5.352e-11,  5.687e-11,
       6.059e-11,  6.473e-11,  6.903e-11,  7.342e-11,  7.661e-11,
       7.866e-11,  7.963e-11,  7.959e-11,  7.862e-11,  7.683e-11,
       7.428e-11,  7.108e-11,  6.733e-11,  6.313e-11,  5.862e-11,
       5.389e-11,  4.904e-11,  4.412e-11,  3.915e-11,  3.410e-11,
       2.889e-11,  2.350e-11,  1.814e-11,  1.303e-11,  8.549e-12,
       4.950e-12,  2.450e-12,  1.118e-12,  8.048e-13,  6.484e-13,
       5.257e-13,  4.281e-13,  3.496e-13,  2.858e-13,  2.334e-13,
       1.900e-13,  1.538e-13,  1.235e-13,  9.783e-14,  7.609e-14,
       5.762e-14,  4.193e-14,  2.872e-14,  1.785e-14,  9.478e-15,
       6.702e-15,  6.045e-15,  5.502e-15,  5.034e-15,  4.611e-15,
       4.219e-15,  3.857e-15,  3.547e-15,  3.268e-15,  3.019e-15,
       2.792e-15,  2.574e-15,  2.385e-15,  2.219e-15,  2.060e-15,
       1.917e-15,  1.781e-15,  1.660e-15,  1.555e-15,  1.457e-15,
       1.358e-15,  1.268e-15,  1.192e-15,  1.117e-15,  1.049e-15,
       9.887e-16,  9.283e-16,  8.755e-16,  8.226e-16,  7.774e-16,
       7.343e-16,  6.928e-16,  6.551e-16,  6.204e-16,  5.872e-16,
       5.562e-16,  5.268e-16,  4.996e-16,  4.740e-16,  4.506e-16,
       4.279e-16,  4.060e-16,  3.864e-16,  3.675e-16,  3.502e-16,
       3.336e-16,  3.177e-16,  3.026e-16,  2.891e-16,  2.762e-16,
       2.634e-16,  2.513e-16,  2.400e-16,  2.302e-16,  2.196e-16,
       2.106e-16,  2.015e-16,  1.925e-16,  1.849e-16,  1.766e-16,
       1.698e-16,  1.623e-16,  1.562e-16,  1.494e-16,  1.434e-16,
       1.381e-16,  1.321e-16,  1.275e-16,  1.223e-16,  1.177e-16,
       1.132e-16,  1.087e-16,  1.049e-16,  1.004e-16,  9.660e-17,
       9.358e-17,  8.981e-17,  8.679e-17,  8.377e-17,  8.075e-17,
       7.774e-17,  7.479e-17,  7.215e-17,  6.966e-17,  6.725e-17,
       6.491e-17,  6.264e-17,  6.053e-17,  5.849e-17,  5.653e-17,
       5.457e-17,  5.275e-17,  5.102e-17,  4.936e-17,  4.777e-17,
       4.619e-17,  4.468e-17,  4.325e-17,  4.189e-17,  4.053e-17,
       3.925e-17,  3.804e-17,  3.683e-17,  3.570e-17,  3.457e-17,
       3.351e-17,  3.245e-17,  3.147e-17,  3.057e-17,  2.958e-17,
       2.875e-17,  2.785e-17,  2.702e-17,  2.626e-17,  2.551e-17,
       2.475e-17,  2.400e-17,  2.332e-17,  2.264e-17,  2.196e-17,
       2.136e-17,  2.075e-17,  2.015e-17,  1.962e-17,  1.902e-17,
       1.849e-17,  1.804e-17,  1.751e-17,  1.706e-17,  1.660e-17,
       1.615e-17,  1.570e-17,  1.525e-17,  1.487e-17,  1.442e-17,
       1.404e-17,  1.366e-17,  1.336e-17,  1.298e-17,  1.260e-17,
       1.230e-17,  1.200e-17,  1.170e-17,  1.140e-17,  1.109e-17,
       1.079e-17,  1.057e-17,  1.026e-17,  1.004e-17,  9.736e-18,
       9.509e-18,  9.283e-18,  9.057e-18,  8.830e-18,  8.604e-18,
       8.377e-18,  8.226e-18,  8.000e-18,  7.774e-18,  7.623e-18,
       7.419e-18,  7.245e-18,  7.072e-18,  6.906e-18,  6.740e-18,
       6.581e-18,  6.423e-18,  6.279e-18,  6.128e-18,  5.985e-18,
       5.849e-18,  5.713e-18,  5.585e-18,  5.457e-18,  5.328e-18,
       5.208e-18,  5.087e-18,  4.974e-18,  4.860e-18,  4.755e-18,
       4.649e-18,  4.543e-18,  4.445e-18,  4.347e-18,  4.249e-18,
       4.158e-18,  4.068e-18,  3.977e-18,  3.887e-18,  3.804e-18,
       3.721e-18,  3.645e-18,  3.562e-18,  3.487e-18,  3.411e-18,
       3.343e-18,  3.268e-18,  3.200e-18,  3.132e-18,  3.072e-18,
       3.004e-18,  2.943e-18,  2.883e-18,  2.823e-18,  2.762e-18,
       2.709e-18,  2.649e-18,  2.596e-18,  2.543e-18,  2.491e-18,
       2.445e-18,  2.392e-18,  2.347e-18,  2.302e-18,  2.257e-18,
       2.211e-18,  2.166e-18,  2.121e-18,  2.083e-18,  2.038e-18,
       2.000e-18,  1.962e-18,  1.925e-18,  1.887e-18,  1.849e-18,
       1.811e-18,  1.781e-18,  1.743e-18,  1.713e-18,  1.683e-18,
       1.645e-18,  1.615e-18,  1.585e-18,  1.555e-18,  1.525e-18,
       1.502e-18,  1.472e-18,  1.442e-18,  1.419e-18,  1.389e-18,
       1.366e-18,  1.343e-18,  1.321e-18,  1.291e-18,  1.268e-18,
       1.245e-18,  1.223e-18,  1.208e-18,  1.185e-18,  1.162e-18,
       1.140e-18,  1.125e-18,  1.102e-18,  1.087e-18,  1.064e-18,
       1.049e-18,  1.026e-18,  1.011e-18,  9.962e-19,  9.811e-19,
       9.585e-19,  9.434e-19,  9.283e-19,  9.132e-19,  8.981e-19,
       8.830e-19,  8.679e-19,  8.604e-19,  8.453e-19,  8.302e-19,
       8.151e-19,  8.075e-19,  7.925e-19,  7.774e-19,  7.698e-19,
       7.547e-19,  7.442e-19,  7.328e-19,  7.215e-19,  7.109e-19,
       7.011e-19,  6.906e-19,  6.808e-19,  6.709e-19,  6.611e-19,
       6.521e-19,  6.430e-19,  6.340e-19,  6.257e-19,  6.174e-19,
       6.091e-19,  6.008e-19,  5.932e-19,  5.857e-19,  5.781e-19,
       5.706e-19,  5.638e-19,  5.570e-19,  5.502e-19,  5.442e-19,
       5.374e-19,  5.313e-19,  5.253e-19,  5.200e-19,  5.140e-19,
       5.087e-19,  5.034e-19,  4.981e-19,  4.936e-19,  4.891e-19,
       4.845e-19,  4.800e-19,  4.755e-19,  4.717e-19,  4.679e-19,
       4.642e-19,  4.604e-19,  4.566e-19,  4.536e-19,  4.506e-19,
       4.475e-19,  4.445e-19,  4.423e-19,  4.400e-19,  4.370e-19,
       4.355e-19,  4.332e-19,  4.317e-19,  4.294e-19,  4.287e-19,
       4.272e-19,  4.257e-19,  4.249e-19,  4.242e-19,  4.234e-19,
       4.234e-19,  4.226e-19,  4.226e-19,  4.226e-19,  4.234e-19,
       4.234e-19,  4.242e-19,  4.249e-19,  4.264e-19,  4.272e-19,
       4.287e-19,  4.302e-19,  4.325e-19,  4.347e-19,  4.370e-19,
       4.392e-19,  4.423e-19,  4.453e-19,  4.483e-19,  4.521e-19,
       4.558e-19,  4.596e-19,  4.642e-19,  4.687e-19,  4.732e-19,
       4.785e-19,  4.838e-19,  4.898e-19,  4.958e-19,  5.026e-19,
       5.094e-19,  5.162e-19,  5.238e-19,  5.313e-19,  5.396e-19,
       5.487e-19,  5.577e-19,  5.668e-19,  5.774e-19,  5.872e-19,
       5.985e-19,  6.098e-19,  6.219e-19,  6.347e-19,  6.475e-19,
       6.611e-19,  6.755e-19,  6.906e-19,  7.064e-19,  7.223e-19,
       7.396e-19,  7.547e-19,  7.774e-19,  7.925e-19,  8.151e-19,
       8.377e-19,  8.604e-19,  8.830e-19,  9.057e-19,  9.283e-19,
       9.585e-19,  9.887e-19,  1.011e-18,  1.042e-18,  1.072e-18,
       1.109e-18,  1.140e-18,  1.177e-18,  1.215e-18,  1.253e-18,
       1.298e-18,  1.343e-18,  1.389e-18,  1.434e-18,  1.479e-18,
       1.532e-18,  1.592e-18,  1.645e-18,  1.706e-18,  1.774e-18,
       1.842e-18,  1.909e-18,  1.985e-18,  2.060e-18,  2.143e-18,
       2.226e-18,  2.325e-18,  2.423e-18,  2.521e-18,  2.634e-18,
       2.747e-18,  2.868e-18,  3.004e-18,  3.132e-18,  3.283e-18,
       3.434e-18,  3.600e-18,  3.774e-18,  3.955e-18,  4.151e-18,
       4.362e-18,  4.589e-18,  4.823e-18,  5.072e-18,  5.343e-18,
       5.638e-18,  5.947e-18,  6.279e-18,  6.634e-18,  7.011e-18,
       7.434e-18,  7.925e-18,  8.377e-18,  8.906e-18,  9.434e-18,
       1.004e-17,  1.072e-17,  1.147e-17,  1.223e-17,  1.306e-17,
       1.404e-17,  1.509e-17,  1.615e-17,  1.736e-17,  1.872e-17,
       2.030e-17,  2.204e-17,  2.377e-17,  2.581e-17,  2.815e-17,
       3.094e-17,  3.389e-17,  3.706e-17,  4.068e-17,  4.498e-17,
       5.042e-17,  5.638e-17,  6.279e-17,  7.019e-17,  7.925e-17,
       9.132e-17,  1.049e-16,  1.208e-16,  1.389e-16,  1.592e-16,
       1.811e-16,  2.060e-16,  2.340e-16,  2.634e-16,  2.943e-16,
       3.260e-16,  3.600e-16,  3.955e-16,  4.309e-16,  1.103e-14,
       2.506e-14,  4.104e-14,  5.874e-14,  7.793e-14,  9.821e-14,
       1.190e-13,  1.397e-13,  1.596e-13,  1.784e-13,  1.965e-13,
       2.147e-13,  2.340e-13,  2.551e-13,  2.783e-13,  3.032e-13,
       3.282e-13,  3.517e-13,  3.712e-13,  3.839e-13,  3.902e-13,
       3.907e-13,  3.857e-13,  3.758e-13,  3.617e-13,  3.440e-13,
       3.234e-13,  3.005e-13,  2.758e-13,  2.500e-13,  2.232e-13,
       1.957e-13,  1.672e-13,  1.376e-13,  1.068e-13,  7.534e-14,
       4.448e-14,  1.646e-14,  7.117e-16,  6.853e-16,  6.611e-16,
       6.423e-16,  6.242e-16,  6.060e-16,  5.925e-16,  5.887e-16,
       6.008e-16,  6.279e-16,  6.679e-16,  7.192e-16,  7.849e-16,
       8.604e-16,  9.434e-16,  1.237e-14,  2.704e-14,  4.486e-14,
       6.621e-14,  9.162e-14,  1.215e-13,  1.567e-13,  1.979e-13,
       2.458e-13,  3.012e-13,  3.647e-13,  4.369e-13,  5.184e-13,
       6.090e-13,  7.084e-13,  8.155e-13,  9.281e-13,  1.044e-12,
       1.160e-12,  1.272e-12,  1.377e-12,  1.480e-12,  1.584e-12,
       1.698e-12,  1.828e-12,  1.975e-12,  2.140e-12,  2.312e-12,
       2.455e-12,  2.557e-12,  2.620e-12,  2.647e-12,  2.640e-12,
       2.602e-12,  2.536e-12,  2.446e-12,  2.334e-12,  2.206e-12,
       2.063e-12,  1.911e-12,  1.750e-12,  1.584e-12,  1.413e-12,
       1.237e-12,  1.054e-12,  8.642e-13,  6.704e-13,  4.821e-13,
       3.093e-13,  1.651e-13,  5.853e-14,  2.657e-15,  2.340e-15,
       2.068e-15,  1.849e-15,  1.645e-15,  1.472e-15,  1.321e-15,
       1.208e-15,  1.132e-15,  1.094e-15,  1.079e-15,  4.198e-15,
       1.473e-14,  2.792e-14,  4.378e-14,  6.256e-14,  8.443e-14,
       1.096e-13,  1.382e-13,  1.702e-13,  2.055e-13,  2.437e-13,
       2.843e-13,  3.262e-13,  3.682e-13,  4.090e-13,  4.477e-13,
       4.847e-13,  5.220e-13,  5.617e-13,  6.059e-13,  6.555e-13,
       7.100e-13,  7.681e-13,  8.206e-13,  8.615e-13,  8.884e-13,
       9.020e-13,  9.031e-13,  8.928e-13,  8.720e-13,  8.425e-13,
       8.051e-13,  7.613e-13,  7.123e-13,  6.594e-13,  6.037e-13,
       5.458e-13,  4.862e-13,  4.248e-13,  3.610e-13,  2.945e-13,
       2.263e-13,  1.588e-13,  9.623e-14,  4.206e-14,  1.162e-15,
       1.064e-15,  9.509e-16,  8.226e-16,  6.913e-16,  5.683e-16,
       4.687e-16,  3.955e-16,  3.404e-16,  2.974e-16,  2.619e-16,
       2.287e-16,  1.985e-16,  1.758e-16,  1.570e-16,  1.419e-16,
       1.268e-16,  1.132e-16,  1.019e-16,  9.283e-17,  8.453e-17,
       7.698e-17,  6.966e-17,  6.362e-17,  5.842e-17,  5.381e-17,
       4.943e-17,  4.536e-17,  4.189e-17,  3.879e-17,  3.600e-17,
       3.336e-17,  3.087e-17,  2.875e-17,  2.679e-17,  2.506e-17,
       2.332e-17,  2.181e-17,  2.038e-17,  1.909e-17,  1.796e-17,
       1.683e-17,  1.585e-17,  1.487e-17,  1.404e-17,  1.321e-17,
       1.245e-17,  1.177e-17,  1.109e-17,  1.049e-17,  9.962e-18,
       9.434e-18,  8.906e-18,  8.453e-18,  8.000e-18,  7.623e-18,
       7.238e-18,  6.875e-18,  6.543e-18,  6.226e-18,  5.932e-18,
       5.653e-18,  5.381e-18,  5.132e-18,  4.898e-18,  4.679e-18,
       4.468e-18,  4.272e-18,  4.083e-18,  3.902e-18,  3.736e-18,
       3.577e-18,  3.426e-18,  3.283e-18,  3.147e-18,  3.019e-18,
       2.891e-18,  2.777e-18,  2.664e-18,  2.558e-18,  2.460e-18,
       2.362e-18,  2.272e-18,  2.181e-18,  2.098e-18,  2.023e-18,
       1.947e-18,  1.872e-18,  1.804e-18,  1.736e-18,  1.675e-18,
       1.615e-18,  1.555e-18,  1.502e-18,  1.449e-18,  1.396e-18,
       1.351e-18,  1.298e-18,  1.253e-18,  1.215e-18,  1.170e-18,
       1.132e-18,  1.094e-18,  1.057e-18,  1.026e-18,  9.887e-19,
       9.585e-19,  9.283e-19,  8.981e-19,  8.679e-19,  8.377e-19,
       8.151e-19,  7.849e-19,  7.623e-19,  7.396e-19,  7.162e-19,
       6.943e-19,  6.732e-19,  6.528e-19,  6.332e-19,  6.143e-19,
       5.955e-19,  5.781e-19,  5.608e-19,  5.442e-19,  5.283e-19,
       5.132e-19,  4.981e-19,  4.838e-19,  4.702e-19,  4.566e-19,
       4.438e-19,  4.309e-19,  4.189e-19,  4.075e-19,  3.962e-19,
       3.849e-19,  3.743e-19,  3.645e-19,  3.547e-19,  3.449e-19,
       3.358e-19,  3.268e-19,  3.177e-19,  3.094e-19,  3.011e-19,
       2.936e-19,  2.853e-19,  2.785e-19,  2.709e-19,  2.642e-19,
       2.574e-19,  2.506e-19,  2.438e-19,  2.377e-19,  2.317e-19,
       2.257e-19,  2.204e-19,  2.151e-19,  2.098e-19,  2.045e-19,
       1.992e-19,  1.970e-19,  1.970e-19,  1.962e-19,  1.902e-19,
       1.887e-19};
 
// CKD_MT 1.00 implementation of N2-N2 model of 
// Borysow, A, and L. Frommhold, 
//  "Collision-induced rototranslational absorption spectra of N2-N2
//  pairs for temperatures from 50 to 300 K", The
//  Astrophysical Journal, 311, 1043-1057, 1986.
// absorption coefficient in units of [cm^-1 Amagat^-2] 
// these data are for T=296K
const Numeric N2N2_CT296_ckd_mt_100_v1  = -10.0;
const Numeric N2N2_CT296_ckd_mt_100_v2  = 350.0;
const Numeric N2N2_CT296_ckd_mt_100_dv  =   5.0;
const int     N2N2_CT296_ckd_mt_100_npt =  73;
const double  N2N2_CT296_ckd_mt_100[N2N2_CT296_ckd_mt_100_npt+addF77fields] = {
           0.0000e0, 
           0.4303E-06, 0.4850E-06, 0.4979E-06, 0.4850E-06, 0.4303E-06,
           0.3715E-06, 0.3292E-06, 0.3086E-06, 0.2920E-06, 0.2813E-06,
           0.2804E-06, 0.2738E-06, 0.2726E-06, 0.2724E-06, 0.2635E-06,
           0.2621E-06, 0.2547E-06, 0.2428E-06, 0.2371E-06, 0.2228E-06,
           0.2100E-06, 0.1991E-06, 0.1822E-06, 0.1697E-06, 0.1555E-06,
           0.1398E-06, 0.1281E-06, 0.1138E-06, 0.1012E-06, 0.9078E-07,
           0.7879E-07, 0.6944E-07, 0.6084E-07, 0.5207E-07, 0.4540E-07,
           0.3897E-07, 0.3313E-07, 0.2852E-07, 0.2413E-07, 0.2045E-07,
           0.1737E-07, 0.1458E-07, 0.1231E-07, 0.1031E-07, 0.8586E-08,
           0.7162E-08, 0.5963E-08, 0.4999E-08, 0.4226E-08, 0.3607E-08,
           0.3090E-08, 0.2669E-08, 0.2325E-08, 0.2024E-08, 0.1783E-08,
           0.1574E-08, 0.1387E-08, 0.1236E-08, 0.1098E-08, 0.9777E-09,
           0.8765E-09, 0.7833E-09, 0.7022E-09, 0.6317E-09, 0.5650E-09,
           0.5100E-09, 0.4572E-09, 0.4115E-09, 0.3721E-09, 0.3339E-09,
           0.3005E-09, 0.2715E-09, 0.2428E-09};
 
const double  N2N2_sf_296_ckd_mt_100[N2N2_CT296_ckd_mt_100_npt+addF77fields] = { 
          0.0e0, 
          1.3534,     1.3517,     1.3508,     1.3517,     1.3534,
          1.3558,     1.3584,     1.3607,     1.3623,     1.3632,
          1.3634,     1.3632,     1.3627,     1.3620,     1.3612,
          1.3605,     1.3597,     1.3590,     1.3585,     1.3582,
          1.3579,     1.3577,     1.3577,     1.3580,     1.3586,
          1.3594,     1.3604,     1.3617,     1.3633,     1.3653,
          1.3677,     1.3706,     1.3742,     1.3780,     1.3822,
          1.3868,     1.3923,     1.3989,     1.4062,     1.4138,
          1.4216,     1.4298,     1.4388,     1.4491,     1.4604,
          1.4718,     1.4829,     1.4930,     1.5028,     1.5138,
          1.5265,     1.5392,     1.5499,     1.5577,     1.5639,
          1.5714,     1.5816,     1.5920,     1.6003,     1.6051,
          1.6072,     1.6097,     1.6157,     1.6157,     1.6157,
          1.6157,     1.6157,     1.6157,     1.6157,     1.6157,
          1.6157,     1.6157,     1.6157};
 
// CKD_MT 1.00 implementation of N2-N2 model of 
// Borysow, A, and L. Frommhold, 
//  "Collision-induced rototranslational absorption spectra of N2-N2
//  pairs for temperatures from 50 to 300 K", The
//  Astrophysical Journal, 311, 1043-1057, 1986.
// absorption coefficient in units of [cm^-1 Amagat^-2] 
// these data are for T=220K
const Numeric N2N2_CT220_ckd_mt_100_v1  = -10.0;
const Numeric N2N2_CT220_ckd_mt_100_v2  = 350.0;
const Numeric N2N2_CT220_ckd_mt_100_dv  =   5.0;
const int     N2N2_CT220_ckd_mt_100_npt =  73;
const double  N2N2_CT220_ckd_mt_100[N2N2_CT220_ckd_mt_100_npt+addF77fields] = {
           0.0000e0,
           0.4946E-06, 0.5756E-06, 0.5964E-06, 0.5756E-06, 0.4946E-06,
           0.4145E-06, 0.3641E-06, 0.3482E-06, 0.3340E-06, 0.3252E-06,
           0.3299E-06, 0.3206E-06, 0.3184E-06, 0.3167E-06, 0.2994E-06,
           0.2943E-06, 0.2794E-06, 0.2582E-06, 0.2468E-06, 0.2237E-06,
           0.2038E-06, 0.1873E-06, 0.1641E-06, 0.1474E-06, 0.1297E-06,
           0.1114E-06, 0.9813E-07, 0.8309E-07, 0.7059E-07, 0.6068E-07,
           0.5008E-07, 0.4221E-07, 0.3537E-07, 0.2885E-07, 0.2407E-07,
           0.1977E-07, 0.1605E-07, 0.1313E-07, 0.1057E-07, 0.8482E-08,
           0.6844E-08, 0.5595E-08, 0.4616E-08, 0.3854E-08, 0.3257E-08,
           0.2757E-08, 0.2372E-08, 0.2039E-08, 0.1767E-08, 0.1548E-08,
           0.1346E-08, 0.1181E-08, 0.1043E-08, 0.9110E-09, 0.8103E-09,
           0.7189E-09, 0.6314E-09, 0.5635E-09, 0.4976E-09, 0.4401E-09,
           0.3926E-09, 0.3477E-09, 0.3085E-09, 0.2745E-09, 0.2416E-09,
           0.2155E-09, 0.1895E-09, 0.1678E-09, 0.1493E-09, 0.1310E-09,
           0.1154E-09, 0.1019E-09, 0.8855E-10};
 
const double  N2N2_sf_220_ckd_mt_100[N2N2_CT220_ckd_mt_100_npt+addF77fields] = {
         0.0e0,
         1.3536,     1.3515,     1.3502,     1.3515,     1.3536,
         1.3565,     1.3592,     1.3612,     1.3623,     1.3626,
         1.3623,     1.3616,     1.3609,     1.3600,     1.3591,
         1.3583,     1.3576,     1.3571,     1.3571,     1.3572,
         1.3574,     1.3578,     1.3585,     1.3597,     1.3616,
         1.3640,     1.3666,     1.3698,     1.3734,     1.3776,
         1.3828,     1.3894,     1.3969,     1.4049,     1.4127,
         1.4204,     1.4302,     1.4427,     1.4562,     1.4687,
         1.4798,     1.4894,     1.5000,     1.5142,     1.5299,
         1.5441,     1.5555,     1.5615,     1.5645,     1.5730,
         1.5880,     1.6028,     1.6121,     1.6133,     1.6094,
         1.6117,     1.6244,     1.6389,     1.6485,     1.6513,
         1.6468,     1.6438,     1.6523,     1.6523,     1.6523,
         1.6523,     1.6523,     1.6523,     1.6523,     1.6523,
         1.6523,     1.6523,     1.6523};
 
// CKD_MT 1.00 implementation of N2-N2 model of 
// Lafferty, W.J., A.M. Solodov,A. Weber, W.B. Olson and J._M. Hartmann,
// Infrared collision-induced absorption by N2 near 4.3 microns for
// atmospheric applications: measurements and emprirical modeling, 
// Appl. Optics, 35, 5911-5917, (1996).
const Numeric N2N2_N2F_ckd_mt_100_v1  = 2085.000;
const Numeric N2N2_N2F_ckd_mt_100_v2  = 2670.000;
const Numeric N2N2_N2F_ckd_mt_100_dv  =    5.000;
const int     N2N2_N2F_ckd_mt_100_npt =  118;
const double  N2N2_N2F_ckd_mt_100[N2N2_N2F_ckd_mt_100_npt+addF77fields] = {
            0.000E+00, 
            0.000E+00,  2.000E-10,  5.200E-09,  1.020E-08,  1.520E-08,  
            2.020E-08,  2.520E-08,  3.020E-08,  4.450E-08,  5.220E-08,  
            6.460E-08,  7.750E-08,  9.030E-08,  1.060E-07,  1.210E-07,  
            1.370E-07,  1.570E-07,  1.750E-07,  2.010E-07,  2.300E-07,  
            2.590E-07,  2.950E-07,  3.260E-07,  3.660E-07,  4.050E-07,  
            4.470E-07,  4.920E-07,  5.340E-07,  5.840E-07,  6.240E-07,  
            6.670E-07,  7.140E-07,  7.260E-07,  7.540E-07,  7.840E-07,  
            8.090E-07,  8.420E-07,  8.620E-07,  8.870E-07,  9.110E-07,  
            9.360E-07,  9.760E-07,  1.030E-06,  1.110E-06,  1.230E-06,  
            1.390E-06,  1.610E-06,  1.760E-06,  1.940E-06,  1.970E-06,  
            1.870E-06,  1.750E-06,  1.560E-06,  1.420E-06,  1.350E-06,  
            1.320E-06,  1.290E-06,  1.290E-06,  1.290E-06,  1.300E-06,  
            1.320E-06,  1.330E-06,  1.340E-06,  1.350E-06,  1.330E-06,  
            1.310E-06,  1.290E-06,  1.240E-06,  1.200E-06,  1.160E-06,  
            1.100E-06,  1.040E-06,  9.960E-07,  9.380E-07,  8.630E-07,  
            7.980E-07,  7.260E-07,  6.550E-07,  5.940E-07,  5.350E-07,  
            4.740E-07,  4.240E-07,  3.770E-07,  3.330E-07,  2.960E-07,  
            2.630E-07,  2.340E-07,  2.080E-07,  1.850E-07,  1.670E-07,  
            1.470E-07,  1.320E-07,  1.200E-07,  1.090E-07,  9.850E-08,  
            9.080E-08,  8.180E-08,  7.560E-08,  6.850E-08,  6.140E-08,  
            5.830E-08,  5.770E-08,  5.000E-08,  4.320E-08,  3.140E-08,  
            2.890E-08,  2.640E-08,  2.390E-08,  2.140E-08,  1.890E-08,  
            1.640E-08,  1.390E-08,  1.140E-08,  8.900E-09,  6.400E-09,  
            3.900E-09,  1.400E-09,  0.000E+00};
 
//     temperature coefficients:
const double  N2N2_N2Ft_ckd_mt_100[N2N2_N2F_ckd_mt_100_npt+addF77fields] = {
            0.000E+00, 
            1.040E+03,  1.010E+03,  9.800E+02,  9.500E+02,  9.200E+02,  
            8.900E+02,  8.600E+02,  8.300E+02,  8.020E+02,  7.610E+02,  
            7.220E+02,  6.790E+02,  6.460E+02,  6.090E+02,  5.620E+02,  
            5.110E+02,  4.720E+02,  4.360E+02,  4.060E+02,  3.770E+02,  
            3.550E+02,  3.380E+02,  3.190E+02,  2.990E+02,  2.780E+02,  
            2.550E+02,  2.330E+02,  2.080E+02,  1.840E+02,  1.490E+02,  
            1.070E+02,  6.600E+01,  2.500E+01, -1.300E+01, -4.900E+01,  
           -8.200E+01, -1.040E+02, -1.190E+02, -1.300E+02, -1.390E+02,  
           -1.440E+02, -1.460E+02, -1.460E+02, -1.470E+02, -1.480E+02,  
           -1.500E+02, -1.530E+02, -1.600E+02, -1.690E+02, -1.810E+02,  
           -1.890E+02, -1.950E+02, -2.000E+02, -2.050E+02, -2.090E+02,  
           -2.110E+02, -2.100E+02, -2.100E+02, -2.090E+02, -2.050E+02,  
           -1.990E+02, -1.900E+02, -1.800E+02, -1.680E+02, -1.570E+02,  
           -1.430E+02, -1.260E+02, -1.080E+02, -8.900E+01, -6.300E+01,  
           -3.200E+01,  1.000E+00,  3.500E+01,  6.500E+01,  9.500E+01,  
            1.210E+02,  1.410E+02,  1.520E+02,  1.610E+02,  1.640E+02,  
            1.640E+02,  1.610E+02,  1.550E+02,  1.480E+02,  1.430E+02,  
            1.370E+02,  1.330E+02,  1.310E+02,  1.330E+02,  1.390E+02,  
            1.500E+02,  1.650E+02,  1.870E+02,  2.130E+02,  2.480E+02,  
            2.840E+02,  3.210E+02,  3.720E+02,  4.490E+02,  5.140E+02,  
            5.690E+02,  6.090E+02,  6.420E+02,  6.730E+02,  7.000E+02,  
            7.300E+02,  7.600E+02,  7.900E+02,  8.200E+02,  8.500E+02,  
            8.800E+02,  9.100E+02,  9.400E+02,  9.700E+02,  1.000E+03,  
            1.030E+03,  1.060E+03,  1.090E+03};
 
// CKD_MT 2.50 implementation of N2-N2 model of 
// Lafferty, W.J., A.M. Solodov,A. Weber, W.B. Olson and J._M. Hartmann,
// Infrared collision-induced absorption by N2 near 4.3 microns for
// atmospheric applications: measurements and emprirical modeling, 
// Appl. Optics, 35, 5911-5917, (1996).
const Numeric N2N2_N2F_ckd_mt_250_v1  = 2001.766357;
const Numeric N2N2_N2F_ckd_mt_250_v2  = 2710.466309;
const Numeric N2N2_N2F_ckd_mt_250_dv  = 3.981461525;
const int     N2N2_N2F_ckd_mt_250_npt =  179;
const double  N2N2_N2F_ckd_mt_250[N2N2_N2F_ckd_mt_250_npt+addF77fields] = {
           0.000E+00,  0.000E+00,  0.000E+00,  0.000E+00,  0.000E+00,
           0.000E+00,  0.000E+00,  0.000E+00,  0.000E+00,  0.000E+00,
           0.000E+00,  0.000E+00,  0.000E+00,  0.000E+00,  9.280E-11,
           3.660E-10,  8.130E-10,  1.430E-09,  2.230E-09,  3.210E-09,
           4.370E-09,  5.750E-09,  7.340E-09,  9.190E-09,  1.130E-08,
           1.370E-08,  1.650E-08,  1.960E-08,  2.310E-08,  2.710E-08,
           3.160E-08,  3.660E-08,  4.230E-08,  4.860E-08,  5.570E-08,
           6.350E-08,  7.230E-08,  8.200E-08,  9.270E-08,  1.050E-07,
           1.180E-07,  1.320E-07,  1.480E-07,  1.650E-07,  1.840E-07,
           2.040E-07,  2.270E-07,  2.510E-07,  2.770E-07,  3.060E-07,
           3.360E-07,  3.670E-07,  4.010E-07,  4.330E-07,  4.710E-07,
           5.050E-07,  5.450E-07,  5.790E-07,  6.200E-07,  6.540E-07,
           6.940E-07,  7.240E-07,  7.610E-07,  7.880E-07,  8.220E-07,
           8.440E-07,  8.720E-07,  8.930E-07,  9.190E-07,  9.370E-07,
           9.620E-07,  9.870E-07,  1.020E-06,  1.060E-06,  1.110E-06,
           1.180E-06,  1.280E-06,  1.400E-06,  1.570E-06,  1.750E-06,
           1.880E-06,  2.020E-06,  2.080E-06,  2.060E-06,  1.960E-06,
           1.860E-06,  1.710E-06,  1.570E-06,  1.490E-06,  1.440E-06,
           1.410E-06,  1.390E-06,  1.380E-06,  1.380E-06,  1.390E-06,
           1.390E-06,  1.410E-06,  1.420E-06,  1.430E-06,  1.420E-06,
           1.430E-06,  1.410E-06,  1.400E-06,  1.370E-06,  1.350E-06,
           1.310E-06,  1.270E-06,  1.220E-06,  1.170E-06,  1.120E-06,
           1.060E-06,  1.010E-06,  9.470E-07,  8.910E-07,  8.290E-07,
           7.740E-07,  7.160E-07,  6.620E-07,  6.090E-07,  5.600E-07,
           5.130E-07,  4.680E-07,  4.290E-07,  3.900E-07,  3.560E-07,
           3.240E-07,  2.950E-07,  2.680E-07,  2.440E-07,  2.230E-07,
           2.030E-07,  1.850E-07,  1.690E-07,  1.540E-07,  1.410E-07,
           1.290E-07,  1.180E-07,  1.080E-07,  9.950E-08,  9.100E-08,
           8.380E-08,  7.700E-08,  7.100E-08,  6.510E-08,  6.010E-08,
           5.550E-08,  5.110E-08,  4.710E-08,  4.340E-08,  3.980E-08,
           3.660E-08,  3.380E-08,  3.110E-08,  2.840E-08,  2.610E-08,
           2.390E-08,  2.210E-08,  2.010E-08,  1.830E-08,  1.710E-08,
           1.550E-08,  1.450E-08,  1.320E-08,  1.250E-08,  1.140E-08,
           1.070E-08,  1.000E-08,  8.100E-09,  6.400E-09,  4.900E-09,
           3.600E-09,  2.500E-09,  1.600E-09,  9.000E-10,  4.000E-10,
           1.000E-10,  0.000E+00,  0.000E+00,  0.000E+00};
 
//     temperature coefficients:
const double  N2N2_N2Ft_ckd_mt_250[N2N2_N2F_ckd_mt_250_npt+addF77fields] = {
           0.000E+00,  0.000E+00,  0.000E+00,  0.000E+00,  0.000E+00,
           0.000E+00,  0.000E+00,  0.000E+00,  0.000E+00,  0.000E+00,
           0.000E+00,  0.000E+00,  0.000E+00,  0.000E+00,  1.880E-10,
           7.160E-10,  1.530E-09,  2.580E-09,  3.840E-09,  5.270E-09,
           6.850E-09,  8.550E-09,  1.040E-08,  1.230E-08,  1.440E-08,
           1.650E-08,  1.880E-08,  2.130E-08,  2.400E-08,  2.690E-08,
           3.010E-08,  3.360E-08,  3.750E-08,  4.180E-08,  4.670E-08,
           5.210E-08,  5.830E-08,  6.520E-08,  7.290E-08,  8.170E-08,
           9.150E-08,  1.030E-07,  1.150E-07,  1.290E-07,  1.440E-07,
           1.610E-07,  1.800E-07,  2.020E-07,  2.250E-07,  2.510E-07,
           2.790E-07,  3.090E-07,  3.430E-07,  3.770E-07,  4.160E-07,
           4.540E-07,  4.990E-07,  5.370E-07,  5.850E-07,  6.250E-07,
           6.750E-07,  7.130E-07,  7.610E-07,  7.970E-07,  8.410E-07,
           8.720E-07,  9.100E-07,  9.380E-07,  9.720E-07,  9.940E-07,
           1.020E-06,  1.050E-06,  1.080E-06,  1.120E-06,  1.170E-06,
           1.240E-06,  1.340E-06,  1.470E-06,  1.660E-06,  1.870E-06,
           2.040E-06,  2.220E-06,  2.300E-06,  2.290E-06,  2.160E-06,
           2.050E-06,  1.870E-06,  1.710E-06,  1.620E-06,  1.580E-06,
           1.550E-06,  1.540E-06,  1.540E-06,  1.550E-06,  1.560E-06,
           1.570E-06,  1.590E-06,  1.590E-06,  1.600E-06,  1.580E-06,
           1.570E-06,  1.540E-06,  1.510E-06,  1.470E-06,  1.430E-06,
           1.370E-06,  1.310E-06,  1.250E-06,  1.180E-06,  1.110E-06,
           1.040E-06,  9.740E-07,  9.020E-07,  8.360E-07,  7.650E-07,
           7.050E-07,  6.430E-07,  5.860E-07,  5.320E-07,  4.820E-07,
           4.370E-07,  3.950E-07,  3.570E-07,  3.220E-07,  2.910E-07,
           2.630E-07,  2.390E-07,  2.160E-07,  1.960E-07,  1.780E-07,
           1.620E-07,  1.480E-07,  1.330E-07,  1.220E-07,  1.120E-07,
           1.020E-07,  9.280E-08,  8.420E-08,  7.700E-08,  6.990E-08,
           6.390E-08,  5.880E-08,  5.380E-08,  4.840E-08,  4.380E-08,
           4.020E-08,  3.690E-08,  3.290E-08,  3.050E-08,  2.720E-08,
           2.490E-08,  2.260E-08,  2.020E-08,  1.810E-08,  1.620E-08,
           1.500E-08,  1.310E-08,  1.100E-08,  1.020E-08,  8.730E-09,
           8.190E-09,  6.630E-09,  5.960E-09,  5.110E-09,  4.500E-09,
           3.810E-09,  2.680E-09,  3.050E-09,  2.480E-09,  1.370E-09,
           1.550E-09,  4.690E-10,  5.120E-10,  0.000E+00,  0.000E+00,
           0.000E+00,  0.000E+00,  0.000E+00,  0.000E+00};
 
 
// CKD_MT 1.00 implementation of oxygen collision induced fundamental model of 
// F. Thibault, V. Menoux, R. Le Doucen, L. Rosenman, 
// J.-M. Hartmann, Ch. Boulet, 
// "Infrared collision-induced absorption by O2 near 6.4 microns for
// atmospheric applications: measurements and emprirical modeling", 
// Appl. Optics, 35, 5911-5917, (1996).
const Numeric O2O2_O2F_ckd_mt_100_v1  = 1340.000;
const Numeric O2O2_O2F_ckd_mt_100_v2  = 1850.000;
const Numeric O2O2_O2F_ckd_mt_100_dv  =    5.000;
const int     O2O2_O2F_ckd_mt_100_npt =  103;
const double  O2O2_O2Fo_ckd_mt_100[O2O2_O2F_ckd_mt_100_npt+addF77fields] = {
            0.000E+00, 
            0.000E+00,  9.744E-09,  2.256E-08,  3.538E-08,  4.820E-08,  
            6.100E-08,  7.400E-08,  8.400E-08,  9.600E-08,  1.200E-07,  
            1.620E-07,  2.080E-07,  2.460E-07,  2.850E-07,  3.140E-07,  
            3.800E-07,  4.440E-07,  5.000E-07,  5.710E-07,  6.730E-07,  
            7.680E-07,  8.530E-07,  9.660E-07,  1.100E-06,  1.210E-06,  
            1.330E-06,  1.470E-06,  1.590E-06,  1.690E-06,  1.800E-06,  
            1.920E-06,  2.040E-06,  2.150E-06,  2.260E-06,  2.370E-06,  
            2.510E-06,  2.670E-06,  2.850E-06,  3.070E-06,  3.420E-06,  
            3.830E-06,  4.200E-06,  4.450E-06,  4.600E-06,  4.530E-06,  
            4.280E-06,  3.960E-06,  3.680E-06,  3.480E-06,  3.350E-06,  
            3.290E-06,  3.250E-06,  3.230E-06,  3.230E-06,  3.210E-06,  
            3.190E-06,  3.110E-06,  3.030E-06,  2.910E-06,  2.800E-06,  
            2.650E-06,  2.510E-06,  2.320E-06,  2.130E-06,  1.930E-06,  
            1.760E-06,  1.590E-06,  1.420E-06,  1.250E-06,  1.110E-06,  
            9.900E-07,  8.880E-07,  7.910E-07,  6.780E-07,  5.870E-07,  
            5.240E-07,  4.640E-07,  4.030E-07,  3.570E-07,  3.200E-07,  
            2.900E-07,  2.670E-07,  2.420E-07,  2.150E-07,  1.820E-07,  
            1.600E-07,  1.460E-07,  1.280E-07,  1.030E-07,  8.700E-08,  
            8.100E-08,  7.100E-08,  6.400E-08,  5.807E-08,  5.139E-08,  
            4.496E-08,  3.854E-08,  3.212E-08,  2.569E-08,  1.927E-08,  
            1.285E-08,  6.423E-09,  0.000E+00};
                          
const double  O2O2_O2Ft_ckd_mt_100[O2O2_O2F_ckd_mt_100_npt+addF77fields] = {
            0.000E+00, 
            4.000E+02,  4.000E+02,  4.000E+02,  4.000E+02,  4.000E+02,  
            4.670E+02,  4.000E+02,  3.150E+02,  3.790E+02,  3.680E+02,  
            4.750E+02,  5.210E+02,  5.310E+02,  5.120E+02,  4.420E+02,  
            4.440E+02,  4.300E+02,  3.810E+02,  3.350E+02,  3.240E+02,  
            2.960E+02,  2.480E+02,  2.150E+02,  1.930E+02,  1.580E+02,  
            1.270E+02,  1.010E+02,  7.100E+01,  3.100E+01, -6.000E+00,  
           -2.600E+01, -4.700E+01, -6.300E+01, -7.900E+01, -8.800E+01,  
           -8.800E+01, -8.700E+01, -9.000E+01, -9.800E+01, -9.900E+01,  
           -1.090E+02, -1.340E+02, -1.600E+02, -1.670E+02, -1.640E+02,  
           -1.580E+02, -1.530E+02, -1.510E+02, -1.560E+02, -1.660E+02,  
           -1.680E+02, -1.730E+02, -1.700E+02, -1.610E+02, -1.450E+02,  
           -1.260E+02, -1.080E+02, -8.400E+01, -5.900E+01, -2.900E+01,  
            4.000E+00,  4.100E+01,  7.300E+01,  9.700E+01,  1.230E+02,  
            1.590E+02,  1.980E+02,  2.200E+02,  2.420E+02,  2.560E+02,  
            2.810E+02,  3.110E+02,  3.340E+02,  3.190E+02,  3.130E+02,  
            3.210E+02,  3.230E+02,  3.100E+02,  3.150E+02,  3.200E+02,  
            3.350E+02,  3.610E+02,  3.780E+02,  3.730E+02,  3.380E+02,  
            3.190E+02,  3.460E+02,  3.220E+02,  2.910E+02,  2.900E+02,  
            3.500E+02,  3.710E+02,  5.040E+02,  4.000E+02,  4.000E+02,  
            4.000E+02,  4.000E+02,  4.000E+02,  4.000E+02,  4.000E+02,  
            4.000E+02,  4.000E+02,  4.000E+02};
 
 
 
// CKD_MT 1.00 implementation of oxygen v0<-v0 band model of 
//   Mate et al. over the spectral region 7550-8486 cm-1: 
//   B. Mate, C. Lugez, G.T. Fraser, W.J. Lafferty,
//   "Absolute Intensities for the O2 1.27 micron
//   continuum absorption",  
//   J. Geophys. Res., 104, 30,585-30,590, 1999. 
//
// The units of these continua coefficients are  1 / (amagat_O2*amagat_air)
//
// Also, refer to the paper "Observed  Atmospheric
// Collision Induced Absorption in Near Infrared Oxygen Bands",
// Mlawer, Clough, Brown, Stephen, Landry, Goldman, & Murcray,
// Journal of Geophysical Research (1998).
//
// (comment: v0<--v0 band around 7536 to 8500 cm-1 (1.27mu))
const Numeric O2_00_ckd_mt_100_v1  = 7536.000e0;
const Numeric O2_00_ckd_mt_100_v2  = 8500.000e0;
const Numeric O2_00_ckd_mt_100_dv  =    2.000e0;
const int     O2_00_ckd_mt_100_npt =  483;
const double  O2_00_ckd_mt_100[O2_00_ckd_mt_100_npt+addF77fields] = {
            0.000E+00, 
            0.000E+00,  4.355E-11,  8.709E-11,  1.742E-10,  3.484E-10,  
            6.968E-10,  1.394E-09,  2.787E-09,  3.561E-09,  3.314E-09,  
            3.368E-09,  3.435E-09,  2.855E-09,  3.244E-09,  3.447E-09,  
            3.891E-09,  4.355E-09,  3.709E-09,  4.265E-09,  4.772E-09,  
            4.541E-09,  4.557E-09,  4.915E-09,  4.688E-09,  5.282E-09,  
            5.755E-09,  5.096E-09,  5.027E-09,  4.860E-09,  4.724E-09,  
            5.048E-09,  5.248E-09,  5.473E-09,  4.852E-09,  5.362E-09,  
            6.157E-09,  6.150E-09,  6.347E-09,  6.388E-09,  6.213E-09,  
            6.521E-09,  8.470E-09,  8.236E-09,  8.269E-09,  8.776E-09,  
            9.122E-09,  9.189E-09,  9.778E-09,  8.433E-09,  9.964E-09,  
            9.827E-09,  1.064E-08,  1.063E-08,  1.031E-08,  1.098E-08,  
            1.156E-08,  1.295E-08,  1.326E-08,  1.467E-08,  1.427E-08,  
            1.452E-08,  1.456E-08,  1.554E-08,  1.605E-08,  1.659E-08,  
            1.754E-08,  1.757E-08,  1.876E-08,  1.903E-08,  1.876E-08,  
            1.869E-08,  2.036E-08,  2.203E-08,  2.221E-08,  2.284E-08,  
            2.288E-08,  2.394E-08,  2.509E-08,  2.663E-08,  2.720E-08,  
            2.839E-08,  2.923E-08,  2.893E-08,  2.949E-08,  2.962E-08,  
            3.057E-08,  3.056E-08,  3.364E-08,  3.563E-08,  3.743E-08,  
            3.813E-08,  3.946E-08,  4.082E-08,  4.201E-08,  4.297E-08,  
            4.528E-08,  4.587E-08,  4.704E-08,  4.962E-08,  5.115E-08,  
            5.341E-08,  5.365E-08,  5.557E-08,  5.891E-08,  6.084E-08,  
            6.270E-08,  6.448E-08,  6.622E-08,  6.939E-08,  7.233E-08,  
            7.498E-08,  7.749E-08,  8.027E-08,  8.387E-08,  8.605E-08,  
            8.888E-08,  9.277E-08,  9.523E-08,  9.880E-08,  1.037E-07,  
            1.076E-07,  1.114E-07,  1.151E-07,  1.203E-07,  1.246E-07,  
            1.285E-07,  1.345E-07,  1.408E-07,  1.465E-07,  1.519E-07,  
            1.578E-07,  1.628E-07,  1.685E-07,  1.760E-07,  1.847E-07,  
            1.929E-07,  2.002E-07,  2.070E-07,  2.177E-07,  2.262E-07,  
            2.365E-07,  2.482E-07,  2.587E-07,  2.655E-07,  2.789E-07,  
            2.925E-07,  3.023E-07,  3.153E-07,  3.296E-07,  3.409E-07,  
            3.532E-07,  3.680E-07,  3.859E-07,  3.951E-07,  4.074E-07,  
            4.210E-07,  4.381E-07,  4.588E-07,  4.792E-07,  4.958E-07,  
            5.104E-07,  5.271E-07,  5.501E-07,  5.674E-07,  5.913E-07,  
            6.243E-07,  6.471E-07,  6.622E-07,  6.831E-07,  6.987E-07,  
            7.159E-07,  7.412E-07,  7.698E-07,  7.599E-07,  7.600E-07,  
            7.918E-07,  8.026E-07,  8.051E-07,  8.049E-07,  7.914E-07,  
            7.968E-07,  7.945E-07,  7.861E-07,  7.864E-07,  7.741E-07,  
            7.675E-07,  7.592E-07,  7.400E-07,  7.362E-07,  7.285E-07,  
            7.173E-07,  6.966E-07,  6.744E-07,  6.597E-07,  6.413E-07,  
            6.265E-07,  6.110E-07,  5.929E-07,  5.717E-07,  5.592E-07,  
            5.411E-07,  5.235E-07,  5.061E-07,  4.845E-07,  4.732E-07,  
            4.593E-07,  4.467E-07,  4.328E-07,  4.161E-07,  4.035E-07,  
            3.922E-07,  3.820E-07,  3.707E-07,  3.585E-07,  3.475E-07,  
            3.407E-07,  3.317E-07,  3.226E-07,  3.134E-07,  3.016E-07,  
            2.969E-07,  2.894E-07,  2.814E-07,  2.749E-07,  2.657E-07,  
            2.610E-07,  2.536E-07,  2.467E-07,  2.394E-07,  2.337E-07,  
            2.302E-07,  2.241E-07,  2.191E-07,  2.140E-07,  2.093E-07,  
            2.052E-07,  1.998E-07,  1.963E-07,  1.920E-07,  1.862E-07,  
            1.834E-07,  1.795E-07,  1.745E-07,  1.723E-07,  1.686E-07,  
            1.658E-07,  1.629E-07,  1.595E-07,  1.558E-07,  1.523E-07,  
            1.498E-07,  1.466E-07,  1.452E-07,  1.431E-07,  1.408E-07,  
            1.381E-07,  1.362E-07,  1.320E-07,  1.298E-07,  1.262E-07,  
            1.247E-07,  1.234E-07,  1.221E-07,  1.197E-07,  1.176E-07,  
            1.142E-07,  1.121E-07,  1.099E-07,  1.081E-07,  1.073E-07,  
            1.061E-07,  1.041E-07,  1.019E-07,  9.969E-08,  9.727E-08,  
            9.642E-08,  9.487E-08,  9.318E-08,  9.116E-08,  9.046E-08,  
            8.827E-08,  8.689E-08,  8.433E-08,  8.324E-08,  8.204E-08,  
            8.036E-08,  7.951E-08,  7.804E-08,  7.524E-08,  7.392E-08,  
            7.227E-08,  7.176E-08,  6.975E-08,  6.914E-08,  6.859E-08,  
            6.664E-08,  6.506E-08,  6.368E-08,  6.262E-08,  6.026E-08,  
            6.002E-08,  5.866E-08,  5.867E-08,  5.641E-08,  5.589E-08,  
            5.499E-08,  5.309E-08,  5.188E-08,  5.139E-08,  4.991E-08,  
            4.951E-08,  4.833E-08,  4.640E-08,  4.524E-08,  4.479E-08,  
            4.304E-08,  4.228E-08,  4.251E-08,  4.130E-08,  3.984E-08,  
            3.894E-08,  3.815E-08,  3.732E-08,  3.664E-08,  3.512E-08,  
            3.463E-08,  3.503E-08,  3.218E-08,  3.253E-08,  3.107E-08,  
            2.964E-08,  2.920E-08,  2.888E-08,  2.981E-08,  2.830E-08,  
            2.750E-08,  2.580E-08,  2.528E-08,  2.444E-08,  2.378E-08,  
            2.413E-08,  2.234E-08,  2.316E-08,  2.199E-08,  2.088E-08,  
            1.998E-08,  1.920E-08,  1.942E-08,  1.859E-08,  1.954E-08,  
            1.955E-08,  1.749E-08,  1.720E-08,  1.702E-08,  1.521E-08,  
            1.589E-08,  1.469E-08,  1.471E-08,  1.543E-08,  1.433E-08,  
            1.298E-08,  1.274E-08,  1.226E-08,  1.204E-08,  1.201E-08,  
            1.298E-08,  1.220E-08,  1.220E-08,  1.096E-08,  1.080E-08,  
            9.868E-09,  9.701E-09,  1.130E-08,  9.874E-09,  9.754E-09,  
            9.651E-09,  9.725E-09,  8.413E-09,  7.705E-09,  7.846E-09,  
            8.037E-09,  9.163E-09,  8.098E-09,  8.160E-09,  7.511E-09,  
            7.011E-09,  6.281E-09,  6.502E-09,  7.323E-09,  7.569E-09,  
            5.941E-09,  5.867E-09,  5.676E-09,  4.840E-09,  5.063E-09,  
            5.207E-09,  4.917E-09,  5.033E-09,  5.356E-09,  3.795E-09,  
            4.983E-09,  4.600E-09,  3.635E-09,  3.099E-09,  2.502E-09,  
            3.823E-09,  3.464E-09,  4.332E-09,  3.612E-09,  3.682E-09,  
            3.709E-09,  3.043E-09,  3.593E-09,  3.995E-09,  4.460E-09,  
            3.583E-09,  3.290E-09,  3.132E-09,  2.812E-09,  3.109E-09,  
            3.874E-09,  3.802E-09,  4.024E-09,  3.901E-09,  2.370E-09,  
            1.821E-09,  2.519E-09,  4.701E-09,  3.855E-09,  4.685E-09,  
            5.170E-09,  4.387E-09,  4.148E-09,  4.043E-09,  3.545E-09,  
            3.392E-09,  3.609E-09,  4.635E-09,  3.467E-09,  2.558E-09,  
            3.389E-09,  2.672E-09,  2.468E-09,  1.989E-09,  2.816E-09,  
            4.023E-09,  2.664E-09,  2.219E-09,  3.169E-09,  1.654E-09,  
            3.189E-09,  2.535E-09,  2.618E-09,  3.265E-09,  2.138E-09,  
            1.822E-09,  2.920E-09,  2.002E-09,  1.300E-09,  3.764E-09,  
            3.212E-09,  3.222E-09,  2.961E-09,  2.108E-09,  1.708E-09,  
            2.636E-09,  2.937E-09,  2.939E-09,  2.732E-09,  2.218E-09,  
            1.046E-09,  6.419E-10,  1.842E-09,  1.112E-09,  1.265E-09,  
            4.087E-09,  2.044E-09,  1.022E-09,  5.109E-10,  2.554E-10,  
            1.277E-10,  6.386E-11,  0.000E+00};
 
// CKD_MT 1.00 implementation of oxygen v0<-v0 band model of 
//   Mate et al. over the spectral region 7550-8486 cm-1: 
//   B. Mate, C. Lugez, G.T. Fraser, W.J. Lafferty,
//   "Absolute Intensities for the O2 1.27 micron
//   continuum absorption",  
//   J. Geophys. Res., 104, 30,585-30,590, 1999. 
//
// The units of these continua coefficients are  1 / (amagat_O2*amagat_air)
//
// Also, refer to the paper "Observed  Atmospheric
// Collision Induced Absorption in Near Infrared Oxygen Bands",
// Mlawer, Clough, Brown, Stephen, Landry, Goldman, & Murcray,
// Journal of Geophysical Research (1998).
//
// (comment: v1<--v0 band around 9100 to 11000 cm-1 (1mu))
const Numeric O2_10_ckd_mt_100_v1  =  9100.000e0;
const Numeric O2_10_ckd_mt_100_v2  = 11000.000e0;
const Numeric O2_10_ckd_mt_100_dv  =     2.000e0;
 
const Numeric O2_vis_ckd_mt_250_v1  = 15000.000e0;
const Numeric O2_vis_ckd_mt_250_v2  = 29870.000e0;
const Numeric O2_vis_ckd_mt_250_dv  =    10.000e0;
const int     O2_vis_ckd_mt_250_npt =  1488;
const double  O2_vis_ckd_mt_250[O2_vis_ckd_mt_250_npt+addF77fields] = {
           0.00E+00,   0.00E+00,   0.00E+00,   0.00E+00,   0.00E+00,
           0.00E+00,   0.00E+00,   0.00E+00,   0.00E+00,   0.00E+00,
           0.00E+00,   0.00E+00,   0.00E+00,   0.00E+00,   0.00E+00,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   0.00E+00,
           0.00E+00,   0.00E+00,   6.06E-04,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           2.00E-03,   2.00E-03,   2.00E-03,   2.00E-03,   2.00E-03,
           2.49E-03,   3.00E-03,   3.00E-03,   3.00E-03,   4.00E-03,
           4.00E-03,   5.00E-03,   5.00E-03,   6.00E-03,   7.00E-03,
           8.00E-03,   9.00E-03,   1.00E-02,   1.10E-02,   1.25E-02,
           1.46E-02,   1.60E-02,   1.80E-02,   2.00E-02,   2.23E-02,
           2.50E-02,   2.69E-02,   3.00E-02,   3.30E-02,   3.63E-02,
           4.01E-02,   4.42E-02,   4.67E-02,   5.14E-02,   5.55E-02,
           5.96E-02,   6.43E-02,   6.94E-02,   7.37E-02,   7.88E-02,
           8.38E-02,   8.86E-02,   9.37E-02,   9.89E-02,   1.03E-01,
           1.07E-01,   1.10E-01,   1.14E-01,   1.16E-01,   1.18E-01,
           1.19E-01,   1.20E-01,   1.21E-01,   1.20E-01,   1.20E-01,
           1.19E-01,   1.17E-01,   1.16E-01,   1.13E-01,   1.10E-01,
           1.07E-01,   1.03E-01,   9.97E-02,   9.58E-02,   9.15E-02,
           8.80E-02,   8.41E-02,   7.94E-02,   7.53E-02,   7.17E-02,
           6.83E-02,   6.43E-02,   6.08E-02,   5.69E-02,   5.31E-02,
           5.02E-02,   4.77E-02,   4.40E-02,   4.23E-02,   3.94E-02,
           3.70E-02,   3.51E-02,   3.30E-02,   3.10E-02,   2.90E-02,
           2.79E-02,   2.60E-02,   2.50E-02,   2.32E-02,   2.20E-02,
           2.10E-02,   2.00E-02,   1.90E-02,   1.80E-02,   1.70E-02,
           1.65E-02,   1.50E-02,   1.40E-02,   1.30E-02,   1.30E-02,
           1.20E-02,   1.10E-02,   1.10E-02,   1.00E-02,   1.00E-02,
           9.00E-03,   9.00E-03,   9.00E-03,   8.00E-03,   8.00E-03,
           7.01E-03,   7.00E-03,   7.00E-03,   6.98E-03,   6.00E-03,
           5.80E-03,   5.00E-03,   5.00E-03,   5.00E-03,   4.00E-03,
           4.00E-03,   4.00E-03,   4.00E-03,   4.00E-03,   4.00E-03,
           4.00E-03,   4.00E-03,   4.00E-03,   4.00E-03,   3.00E-03,
           3.00E-03,   3.00E-03,   3.00E-03,   3.00E-03,   3.00E-03,
           3.00E-03,   3.00E-03,   3.00E-03,   3.00E-03,   3.00E-03,
           3.00E-03,   3.00E-03,   3.00E-03,   3.00E-03,   3.00E-03,
           3.00E-03,   3.00E-03,   3.00E-03,   3.00E-03,   3.00E-03,
           4.00E-03,   4.00E-03,   4.00E-03,   4.00E-03,   5.00E-03,
           5.00E-03,   6.00E-03,   6.00E-03,   7.00E-03,   7.41E-03,
           8.15E-03,   9.00E-03,   1.01E-02,   1.10E-02,   1.20E-02,
           1.40E-02,   1.50E-02,   1.70E-02,   1.85E-02,   1.97E-02,
           2.24E-02,   2.47E-02,   2.74E-02,   3.06E-02,   3.36E-02,
           3.70E-02,   4.05E-02,   4.49E-02,   4.93E-02,   5.47E-02,
           6.01E-02,   6.52E-02,   7.23E-02,   7.89E-02,   8.80E-02,
           9.61E-02,   1.05E-01,   1.17E-01,   1.26E-01,   1.39E-01,
           1.49E-01,   1.60E-01,   1.68E-01,   1.74E-01,   1.79E-01,
           1.82E-01,   1.84E-01,   1.85E-01,   1.84E-01,   1.83E-01,
           1.81E-01,   1.80E-01,   1.77E-01,   1.74E-01,   1.71E-01,
           1.68E-01,   1.64E-01,   1.60E-01,   1.55E-01,   1.51E-01,
           1.46E-01,   1.40E-01,   1.36E-01,   1.30E-01,   1.25E-01,
           1.20E-01,   1.14E-01,   1.09E-01,   1.05E-01,   9.93E-02,
           9.30E-02,   8.88E-02,   8.38E-02,   7.94E-02,   7.51E-02,
           7.08E-02,   6.66E-02,   6.32E-02,   6.01E-02,   5.55E-02,
           5.24E-02,   4.93E-02,   4.63E-02,   4.41E-02,   4.15E-02,
           3.90E-02,   3.63E-02,   3.50E-02,   3.26E-02,   3.05E-02,
           2.94E-02,   2.73E-02,   2.62E-02,   2.46E-02,   2.36E-02,
           2.25E-02,   2.10E-02,   2.00E-02,   1.90E-02,   1.80E-02,
           1.76E-02,   1.70E-02,   1.60E-02,   1.50E-02,   1.49E-02,
           1.40E-02,   1.30E-02,   1.30E-02,   1.22E-02,   1.20E-02,
           1.20E-02,   1.10E-02,   1.10E-02,   1.10E-02,   1.00E-02,
           1.00E-02,   1.00E-02,   1.00E-02,   9.16E-03,   9.00E-03,
           9.00E-03,   9.00E-03,   9.00E-03,   8.49E-03,   8.00E-03,
           8.00E-03,   8.00E-03,   8.00E-03,   8.00E-03,   8.00E-03,
           8.00E-03,   7.00E-03,   8.00E-03,   7.00E-03,   7.00E-03,
           7.00E-03,   7.00E-03,   7.00E-03,   7.00E-03,   7.00E-03,
           7.00E-03,   7.00E-03,   7.00E-03,   7.00E-03,   7.00E-03,
           7.00E-03,   7.00E-03,   7.00E-03,   7.00E-03,   7.00E-03,
           7.00E-03,   7.00E-03,   7.00E-03,   7.00E-03,   7.00E-03,
           7.00E-03,   7.00E-03,   7.00E-03,   7.00E-03,   7.00E-03,
           7.00E-03,   7.00E-03,   8.00E-03,   8.00E-03,   8.00E-03,
           8.00E-03,   8.00E-03,   8.00E-03,   9.00E-03,   9.00E-03,
           9.00E-03,   9.07E-03,   1.00E-02,   1.00E-02,   1.00E-02,
           1.10E-02,   1.10E-02,   1.20E-02,   1.22E-02,   1.30E-02,
           1.31E-02,   1.40E-02,   1.50E-02,   1.60E-02,   1.70E-02,
           1.82E-02,   2.00E-02,   2.01E-02,   2.10E-02,   2.20E-02,
           2.28E-02,   2.30E-02,   2.30E-02,   2.30E-02,   2.30E-02,
           2.30E-02,   2.30E-02,   2.30E-02,   2.20E-02,   2.20E-02,
           2.20E-02,   2.10E-02,   2.10E-02,   2.00E-02,   2.00E-02,
           1.90E-02,   1.90E-02,   1.82E-02,   1.80E-02,   1.74E-02,
           1.70E-02,   1.63E-02,   1.60E-02,   1.50E-02,   1.49E-02,
           1.40E-02,   1.37E-02,   1.30E-02,   1.30E-02,   1.21E-02,
           1.20E-02,   1.13E-02,   1.09E-02,   1.00E-02,   9.34E-03,
           9.00E-03,   8.43E-03,   8.00E-03,   7.39E-03,   7.00E-03,
           6.00E-03,   6.00E-03,   5.74E-03,   5.00E-03,   5.00E-03,
           5.00E-03,   4.00E-03,   4.00E-03,   4.00E-03,   4.00E-03,
           4.00E-03,   4.00E-03,   4.00E-03,   4.00E-03,   4.00E-03,
           3.17E-03,   3.00E-03,   3.00E-03,   3.00E-03,   3.00E-03,
           3.00E-03,   3.00E-03,   3.00E-03,   3.00E-03,   3.00E-03,
           3.00E-03,   3.00E-03,   3.00E-03,   2.00E-03,   2.00E-03,
           2.00E-03,   2.00E-03,   2.00E-03,   2.00E-03,   2.00E-03,
           2.00E-03,   2.00E-03,   2.00E-03,   2.00E-03,   2.00E-03,
           2.00E-03,   2.00E-03,   2.00E-03,   2.00E-03,   2.00E-03,
           1.04E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.41E-03,   2.00E-03,   2.00E-03,
           2.00E-03,   2.00E-03,   2.00E-03,   2.00E-03,   2.00E-03,
           2.00E-03,   2.00E-03,   2.00E-03,   2.00E-03,   2.00E-03,
           2.00E-03,   2.00E-03,   2.00E-03,   1.98E-03,   1.46E-03,
           1.05E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.71E-03,   2.00E-03,   2.00E-03,
           2.00E-03,   2.00E-03,   2.00E-03,   3.00E-03,   3.00E-03,
           3.82E-03,   4.00E-03,   4.17E-03,   5.00E-03,   6.00E-03,
           7.00E-03,   7.73E-03,   8.07E-03,   9.70E-03,   1.17E-02,
           1.31E-02,   1.47E-02,   1.64E-02,   1.81E-02,   2.07E-02,
           2.37E-02,   2.70E-02,   2.97E-02,   3.27E-02,   3.70E-02,
           4.13E-02,   4.49E-02,   4.89E-02,   5.38E-02,   5.98E-02,
           6.45E-02,   6.94E-02,   7.41E-02,   8.01E-02,   8.51E-02,
           9.00E-02,   9.49E-02,   9.88E-02,   1.01E-01,   1.04E-01,
           1.07E-01,   1.07E-01,   1.06E-01,   1.03E-01,   1.00E-01,
           9.66E-02,   8.93E-02,   8.35E-02,   7.92E-02,   7.33E-02,
           6.84E-02,   6.40E-02,   5.91E-02,   5.57E-02,   5.26E-02,
           5.03E-02,   4.75E-02,   4.48E-02,   4.26E-02,   4.07E-02,
           3.83E-02,   3.69E-02,   3.47E-02,   3.24E-02,   3.11E-02,
           2.85E-02,   2.69E-02,   2.55E-02,   2.42E-02,   2.21E-02,
           2.09E-02,   1.93E-02,   1.77E-02,   1.62E-02,   1.60E-02,
           1.44E-02,   1.36E-02,   1.30E-02,   1.16E-02,   1.10E-02,
           1.00E-02,   1.00E-02,   9.00E-03,   8.27E-03,   8.00E-03,
           7.45E-03,   7.00E-03,   7.00E-03,   6.18E-03,   6.00E-03,
           6.00E-03,   5.00E-03,   5.00E-03,   5.00E-03,   5.00E-03,
           4.00E-03,   4.00E-03,   4.00E-03,   4.00E-03,   4.00E-03,
           4.00E-03,   3.00E-03,   3.00E-03,   3.00E-03,   3.00E-03,
           3.00E-03,   3.00E-03,   3.00E-03,   3.00E-03,   2.07E-03,
           2.00E-03,   2.00E-03,   2.00E-03,   2.00E-03,   2.00E-03,
           2.00E-03,   2.00E-03,   2.00E-03,   2.00E-03,   2.00E-03,
           2.00E-03,   2.00E-03,   2.00E-03,   2.00E-03,   2.00E-03,
           2.00E-03,   2.00E-03,   2.00E-03,   2.00E-03,   2.00E-03,
           2.00E-03,   1.28E-03,   2.00E-03,   2.00E-03,   2.00E-03,
           2.00E-03,   2.00E-03,   2.00E-03,   2.00E-03,   2.00E-03,
           2.00E-03,   2.00E-03,   2.00E-03,   2.00E-03,   2.00E-03,
           2.00E-03,   2.00E-03,   2.00E-03,   2.00E-03,   2.00E-03,
           2.00E-03,   2.00E-03,   2.00E-03,   2.00E-03,   2.00E-03,
           2.00E-03,   2.00E-03,   2.00E-03,   2.00E-03,   2.00E-03,
           3.00E-03,   3.00E-03,   3.00E-03,   3.00E-03,   3.00E-03,
           4.00E-03,   4.00E-03,   4.00E-03,   4.57E-03,   5.00E-03,
           5.00E-03,   5.64E-03,   6.00E-03,   6.67E-03,   7.00E-03,
           7.35E-03,   8.00E-03,   8.36E-03,   9.00E-03,   9.00E-03,
           1.00E-02,   1.00E-02,   1.00E-02,   1.00E-02,   1.00E-02,
           1.00E-02,   1.00E-02,   9.65E-03,   9.00E-03,   9.00E-03,
           8.00E-03,   8.00E-03,   7.69E-03,   7.00E-03,   7.00E-03,
           6.44E-03,   6.00E-03,   6.00E-03,   6.00E-03,   5.00E-03,
           5.00E-03,   5.00E-03,   5.00E-03,   5.00E-03,   4.00E-03,
           4.00E-03,   4.00E-03,   4.00E-03,   4.00E-03,   3.98E-03,
           3.01E-03,   3.00E-03,   3.00E-03,   3.00E-03,   3.00E-03,
           3.00E-03,   3.00E-03,   3.00E-03,   3.00E-03,   2.54E-03,
           2.00E-03,   2.00E-03,   2.00E-03,   2.00E-03,   2.00E-03,
           2.00E-03,   2.00E-03,   2.00E-03,   2.00E-03,   2.00E-03,
           2.00E-03,   2.00E-03,   2.00E-03,   2.00E-03,   2.00E-03,
           2.00E-03,   2.00E-03,   2.00E-03,   2.00E-03,   2.00E-03,
           2.00E-03,   2.00E-03,   2.00E-03,   2.00E-03,   2.00E-03,
           2.00E-03,   2.00E-03,   2.00E-03,   2.00E-03,   2.00E-03,
           2.00E-03,   2.00E-03,   2.00E-03,   2.00E-03,   2.00E-03,
           2.00E-03,   2.00E-03,   2.00E-03,   2.00E-03,   2.00E-03,
           1.33E-03,   1.89E-03,   1.07E-03,   1.06E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   5.50E-04,
           0.00E+00,   0.00E+00,   1.00E-03,   1.00E-03,   7.51E-04,
           0.00E+00,   0.00E+00,   0.00E+00,   0.00E+00,   0.00E+00,
           0.00E+00,   0.00E+00,   0.00E+00,   0.00E+00,   0.00E+00,
           0.00E+00,   0.00E+00,   0.00E+00,   0.00E+00,   0.00E+00,
           0.00E+00,   0.00E+00,   0.00E+00,   0.00E+00,   0.00E+00,
           0.00E+00,   0.00E+00,   0.00E+00,   0.00E+00,   0.00E+00,
           0.00E+00,   0.00E+00,   0.00E+00,   0.00E+00,   0.00E+00,
           0.00E+00,   0.00E+00,   0.00E+00,   0.00E+00,   0.00E+00,
           0.00E+00,   0.00E+00,   0.00E+00,   0.00E+00,   0.00E+00,
           0.00E+00,   0.00E+00,   0.00E+00,   1.34E-04,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   7.65E-05,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.20E-04,   0.00E+00,   0.00E+00,   0.00E+00,
           0.00E+00,   0.00E+00,   0.00E+00,   0.00E+00,   0.00E+00,
           0.00E+00,   0.00E+00,   0.00E+00,   0.00E+00,   0.00E+00,
           0.00E+00,   0.00E+00,   0.00E+00,   0.00E+00,   0.00E+00,
           0.00E+00,   0.00E+00,   0.00E+00,   0.00E+00,   0.00E+00,
           0.00E+00,   0.00E+00,   0.00E+00,   0.00E+00,   0.00E+00,
           0.00E+00,   0.00E+00,   0.00E+00,   0.00E+00,   0.00E+00,
           0.00E+00,   0.00E+00,   0.00E+00,   0.00E+00,   0.00E+00,
           0.00E+00,   0.00E+00,   0.00E+00,   0.00E+00,   0.00E+00,
           0.00E+00,   0.00E+00,   0.00E+00,   0.00E+00,   0.00E+00,
           0.00E+00,   0.00E+00,   0.00E+00,   0.00E+00,   0.00E+00,
           0.00E+00,   6.09E-04,   3.47E-04,   6.97E-04,   2.60E-04,
           7.81E-04,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.68E-03,   2.00E-03,   2.00E-03,   2.00E-03,
           2.00E-03,   2.76E-03,   3.00E-03,   3.00E-03,   3.00E-03,
           3.80E-03,   4.00E-03,   4.82E-03,   5.00E-03,   5.84E-03,
           6.00E-03,   6.85E-03,   7.85E-03,   8.86E-03,   9.86E-03,
           1.09E-02,   1.19E-02,   1.29E-02,   1.47E-02,   1.59E-02,
           1.77E-02,   1.97E-02,   2.09E-02,   2.27E-02,   2.47E-02,
           2.67E-02,   2.87E-02,   3.07E-02,   3.26E-02,   3.38E-02,
           3.56E-02,   3.68E-02,   3.86E-02,   3.90E-02,   3.98E-02,
           4.07E-02,   4.10E-02,   4.10E-02,   4.03E-02,   3.93E-02,
           3.83E-02,   3.73E-02,   3.64E-02,   3.48E-02,   3.34E-02,
           3.18E-02,   2.99E-02,   2.85E-02,   2.70E-02,   2.50E-02,
           2.31E-02,   2.11E-02,   1.92E-02,   1.76E-02,   1.63E-02,
           1.47E-02,   1.34E-02,   1.17E-02,   1.07E-02,   9.78E-03,
           8.81E-03,   7.84E-03,   6.88E-03,   6.00E-03,   5.94E-03,
           5.00E-03,   5.00E-03,   4.05E-03,   4.00E-03,   3.13E-03,
           3.00E-03,   3.00E-03,   2.24E-03,   2.00E-03,   2.00E-03,
           2.00E-03,   2.00E-03,   2.00E-03,   2.00E-03,   1.54E-03,
           1.41E-03,   1.64E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,   1.00E-03,
           1.00E-03,   1.15E-03,   2.00E-03,   2.00E-03,   2.00E-03,
           2.00E-03,   2.00E-03,   2.00E-03,   2.56E-03,   3.00E-03,
           3.00E-03,   3.30E-03,   4.00E-03,   4.00E-03,   4.04E-03,
           4.95E-03,   5.85E-03,   6.00E-03,   6.67E-03,   7.58E-03,
           8.48E-03,   9.39E-03,   1.03E-02,   1.14E-02,   1.31E-02,
           1.40E-02,   1.58E-02,   1.76E-02,   1.94E-02,   2.12E-02,
           2.30E-02,   2.56E-02,   2.89E-02,   3.16E-02,   3.44E-02,
           3.80E-02,   4.16E-02,   4.52E-02,   4.87E-02,   5.23E-02,
           5.59E-02,   5.91E-02,   6.20E-02,   6.53E-02,   6.71E-02,
           6.89E-02,   6.98E-02,   7.07E-02,   7.10E-02,   7.10E-02,
           7.06E-02,   6.97E-02,   6.89E-02,   6.80E-02,   6.71E-02,
           6.54E-02,   6.43E-02,   6.29E-02,   6.11E-02,   5.94E-02,
           5.74E-02,   5.48E-02,   5.31E-02,   5.05E-02,   4.86E-02,
           4.62E-02,   4.41E-02,   4.23E-02,   4.03E-02,   3.78E-02,
           3.61E-02,   3.43E-02,   3.26E-02,   3.08E-02,   2.91E-02,
           2.73E-02,   2.58E-02,   2.49E-02,   2.31E-02,   2.22E-02,
           2.07E-02,   1.95E-02,   1.86E-02,   1.77E-02,   1.69E-02,
           1.60E-02,   1.51E-02,   1.43E-02,   1.40E-02,   1.35E-02,
           1.27E-02,   1.18E-02,   1.10E-02,   1.10E-02,   1.02E-02,
           1.00E-02,   1.00E-02,   9.67E-03,   8.81E-03,   8.05E-03,
           8.90E-03,   8.24E-03,   8.00E-03,   7.53E-03,   7.00E-03,
           7.00E-03,   7.00E-03,   7.00E-03,   7.00E-03,   6.42E-03,
           6.00E-03,   6.00E-03,   6.00E-03,   6.00E-03,   5.18E-03,
           5.00E-03,   5.00E-03,   5.00E-03,   4.80E-03,   4.04E-03,
           4.89E-03,   4.27E-03,   4.00E-03,   4.00E-03,   4.00E-03,
           4.00E-03,   4.00E-03,   4.00E-03,   4.00E-03,   4.00E-03,
           4.00E-03,   4.00E-03,   4.00E-03,   3.20E-03,   3.00E-03,
           3.00E-03,   3.00E-03,   3.00E-03,   3.00E-03,   3.00E-03,
           3.00E-03,   3.00E-03,   3.00E-03,   3.00E-03,   3.00E-03,
           3.00E-03,   3.00E-03,   3.00E-03,   3.00E-03,   3.00E-03,
           3.00E-03,   3.75E-03,   4.00E-03,   4.00E-03,   4.00E-03,
           4.00E-03,   4.00E-03,   4.69E-03,   5.00E-03,   5.00E-03,
           5.15E-03,   5.97E-03,   6.00E-03,   6.61E-03,   7.43E-03,
           8.00E-03,   8.06E-03,   8.88E-03,   9.70E-03,   1.05E-02,
           1.13E-02,   1.21E-02,   1.30E-02,   1.38E-02,   1.52E-02,
           1.64E-02,   1.72E-02,   1.80E-02,   1.88E-02,   1.96E-02,
           2.04E-02,   2.10E-02,   2.10E-02,   2.10E-02,   2.10E-02,
           2.10E-02,   2.10E-02,   2.10E-02,   2.10E-02,   2.10E-02,
           2.05E-02,   2.00E-02,   1.99E-02,   1.91E-02,   1.90E-02,
           1.85E-02,   1.80E-02,   1.79E-02,   1.71E-02,   1.63E-02,
           1.55E-02,   1.47E-02,   1.40E-02,   1.40E-02,   1.33E-02,
           1.25E-02,   1.20E-02,   1.19E-02,   1.11E-02,   1.03E-02,
           1.00E-02,   9.75E-03,   9.00E-03,   9.00E-03,   8.37E-03,
           8.00E-03,   8.00E-03,   8.00E-03,   7.22E-03,   7.00E-03,
           7.00E-03,   6.86E-03,   6.07E-03,   6.00E-03,   6.00E-03,
           6.00E-03,   5.93E-03,   5.15E-03,   5.00E-03,   5.00E-03,
           5.00E-03,   5.00E-03,   5.00E-03,   5.00E-03,   5.00E-03,
           5.00E-03,   5.00E-03,   5.00E-03,   5.00E-03,   5.00E-03,
           5.00E-03,   5.00E-03,   5.00E-03,   4.68E-03,   4.00E-03,
           4.00E-03,   4.00E-03,   4.00E-03,   4.00E-03,   4.00E-03,
           4.00E-03,   4.00E-03,   4.00E-03,   4.00E-03,   4.00E-03,
           4.00E-03,   4.00E-03,   4.00E-03,   4.00E-03,   4.00E-03,
           1.00E-03,   2.00E-04,   0.};
 
// #################################################################################
// ############################## WATER VAPOR MODELS ###############################
// #################################################################################
 
void MPM87H2OAbsModel (MatrixView        pxsec,
                       const Numeric   CCin,       // continuum scale factor
                       const Numeric   CLin,       // line strength scale factor
                       const Numeric   CWin,       // line broadening scale factor
                       const String&     model,
                       ConstVectorView   f_grid,
                       ConstVectorView   abs_p,
                       ConstVectorView   abs_t,
                       ConstVectorView   vmr,
                       const Verbosity& verbosity)
{
  CREATE_OUT3;
  
  //
  // Coefficients are from Liebe, Radio Science, 20(5), 1985, 1069
  //         0           1        2       3
  //         f0          b1       b2      b3
  //        [GHz]     [kHz/kPa]   [1]   [GHz/kPa]
  const Numeric mpm87[30][4] = {
    {    22.235080,    0.1090,  2.143,   27.84e-3},
    {    67.813960,    0.0011,  8.730,   27.60e-3},
    {   119.995940,    0.0007,  8.347,   27.00e-3},
    {   183.310117,    2.3000,  0.653,   31.64e-3},
    {   321.225644,    0.0464,  6.156,   21.40e-3},
    {   325.152919,    1.5400,  1.515,   29.70e-3},
    {   336.187000,    0.0010,  9.802,   26.50e-3},
    {   380.197372,   11.9000,  1.018,   30.36e-3},
    {   390.134508,    0.0044,  7.318,   19.00e-3},
    {   437.346667,    0.0637,  5.015,   13.70e-3},
    {   439.150812,    0.9210,  3.561,   16.40e-3},
    {   443.018295,    0.1940,  5.015,   14.40e-3},
    {   448.001075,   10.6000,  1.370,   23.80e-3},
    {   470.888947,    0.3300,  3.561,   18.20e-3},
    {   474.689127,    1.2800,  2.342,   19.80e-3},
    {   488.491133,    0.2530,  2.814,   24.90e-3},
    {   503.568532,    0.0374,  6.693,   11.50e-3},
    {   504.482692,    0.0125,  6.693,   11.90e-3},
    {   556.936002,  510.0000,  0.114,   30.00e-3},
    {   620.700807,    5.0900,  2.150,   22.30e-3},
    {   658.006500,    0.2740,  7.767,   30.00e-3},
    {   752.033227,  250.0000,  0.336,   28.60e-3},
    {   841.073593,    0.0130,  8.113,   14.10e-3},
    {   859.865000,    0.1330,  7.989,   28.60e-3},
    {   899.407000,    0.0550,  7.845,   28.60e-3},
    {   902.555000,    0.0380,  8.360,   26.40e-3},
    {   906.205524,    0.1830,  5.039,   23.40e-3},
    {   916.171582,    8.5600,  1.369,   25.30e-3},
    {   970.315022,    9.1600,  1.842,   24.00e-3},
    {   987.926764,  138.0000,  0.178,   28.60e-3}};
 
  // --------- STANDARD MODEL PARAMETERS ---------------------------------------------------
  // standard values for the MPM87 model (Radio Science, 20(5), 1985, 1069):
  const Numeric CC_MPM87 = 1.00000;
  const Numeric CL_MPM87 = 1.00000;
  const Numeric CW_MPM87 = 1.00000;
  // ---------------------------------------------------------------------------------------
 
 
  // select the parameter set (!!model dominates values!!):
  Numeric CC, CL, CW;
  if ( model == "MPM87" )
    {
      CC = CC_MPM87;
      CL = CL_MPM87;
      CW = CW_MPM87;
    }
  else if ( model == "MPM87Lines" )
    {
      CC = 0.000;
      CL = CL_MPM87;
      CW = CW_MPM87;
    }
  else if ( model == "MPM87Continuum" )
    {
      CC = CC_MPM87;
      CL = 0.000;
      CW = 0.000;
    }
  else if ( model == "user" )
    {
      CC = CCin;
      CL = CLin;
      CW = CWin;
    }
  else
    {
      ostringstream os;
      os << "H2O-MPM87: ERROR! Wrong model values given.\n"
   << "Valid models are: 'MPM87', 'MPM87Lines', 'MPM87Continuum', and 'user'" << '\n';
      throw runtime_error(os.str());
    }
  out3  << "H2O-MPM87: (model=" << model << ") parameter values in use:\n"
  << " CC = " << CC << "\n"
  << " CL = " << CL << "\n"
  << " CW = " << CW << "\n";
 
 
  // number of lines of liebe line catalog (30 lines)
  const Index i_first = 0;
  const Index i_last  = 29;
 
  const Index n_p = abs_p.nelem();  // Number of pressure levels
  const Index n_f = f_grid.nelem();  // Number of frequencies
 
  // Check that dimensions of abs_p, abs_t, and vmr agree:
  assert ( n_p==abs_t.nelem() );
  assert ( n_p==vmr.nelem()   );
 
  // Check that dimensions of pxsec are consistent with n_f
  // and n_p. It should be [n_f,n_p]:
  assert ( n_f==pxsec.nrows() );
  assert ( n_p==pxsec.ncols() );
 
  // Loop pressure/temperature (pressure in [hPa] therefore the factor 0.01)
  for ( Index i=0; i<n_p; ++i )
    {
      // here the total pressure is not multiplied by the H2O vmr for the
      // P_H2O calculation because we calculate pxsec and not abs: abs = vmr * pxsec
      Numeric pwv_dummy = Pa_to_kPa * abs_p[i];
      // relative inverse temperature [1]
      Numeric theta = (300.0 / abs_t[i]);
      // H2O partial pressure [kPa]
      Numeric pwv   = Pa_to_kPa * abs_p[i] * vmr[i];
      // dry air partial pressure [kPa]
      Numeric pda   = (Pa_to_kPa * abs_p[i]) - pwv;
      // H2O continuum absorption [dB/km/GHz2] like in the original MPM87
      Numeric Nppc  = CC * pwv_dummy * pow(theta, (Numeric)3.0) * 1.000e-5
        * ( (0.113 * pda) + (3.57 * pwv * pow(theta, (Numeric)7.8)) );
 
      // Loop over input frequency
      for ( Index s=0; s<n_f; ++s )
  {
    // input frequency in [GHz]
    Numeric ff   = f_grid[s] * Hz_to_GHz;
    // H2O line contribution at position f
    Numeric Nppl = 0.000;
 
    // Loop over MPM89 H2O spectral lines
    for ( Index l = i_first; l <= i_last; ++l )
      {
        // line strength [kHz]
        Numeric strength = CL * pwv_dummy * mpm87[l][1]
                * pow(theta,(Numeric)3.5) * exp(mpm87[l][2]*(1.000-theta));
        // line broadening parameter [GHz]
        Numeric gam      = CW * mpm87[l][3] *
                ( (4.80 * pwv * pow(theta, (Numeric)1.1)) +
                  (       pda * pow(theta, (Numeric)0.6)) );
        // effective line width with Doppler broadening [GHz]
        // gam              = sqrt(gam*gam + (2.14e-12 * mpm87[l][0] * mpm87[l][0] / theta));
        // H2O line absorption [dB/km/GHz] like in the original MPM87
        Nppl            += strength * MPMLineShapeFunction(gam, mpm87[l][0], ff);
      }
    // pxsec = abs/vmr [1/m] but MPM87 is in [dB/km] --> conversion necessary
    pxsec(s,i)  += dB_km_to_1_m * 0.1820 * ff * ( Nppl + (Nppc * ff) );
  }
    }
  return;
}
//
// #################################################################################
 
void MPM89H2OAbsModel (MatrixView        pxsec,
                       const Numeric   CCin,       // continuum scale factor
                       const Numeric   CLin,       // line strength scale factor
                       const Numeric   CWin,       // line broadening scale factor
                       const String&     model,     // model
                       ConstVectorView   f_grid,
                       ConstVectorView   abs_p,
                       ConstVectorView   abs_t,
                       ConstVectorView   vmr,
                       const Verbosity& verbosity)
{
  CREATE_OUT3;
  
  //
  // Coefficients are from Liebe, Int. J. Infrared and Millimeter Waves, 10(6), 1989, 631
  //         0           1        2       3        4      5      6
  //         f0          b1       b2      b3       b4     b5     b6
  //        [GHz]     [kHz/kPa]   [1]   [MHz/kPa]  [1]    [1]    [1]
  const Numeric mpm89[30][7] = {
    {    22.235080,    0.1090,  2.143,   28.11,   0.69,  4.80,  1.00},
    {    67.813960,    0.0011,  8.735,   28.58,   0.69,  4.93,  0.82},
    {   119.995940,    0.0007,  8.356,   29.48,   0.70,  4.78,  0.79},
    {   183.310074,    2.3000,  0.668,   28.13,   0.64,  5.30,  0.85},
    {   321.225644,    0.0464,  6.181,   23.03,   0.67,  4.69,  0.54},
    {   325.152919,    1.5400,  1.540,   27.83,   0.68,  4.85,  0.74},
    {   336.187000,    0.0010,  9.829,   26.93,   0.69,  4.74,  0.61},
    {   380.197372,   11.9000,  1.048,   28.73,   0.69,  5.38,  0.84},
    {   390.134508,    0.0044,  7.350,   21.52,   0.63,  4.81,  0.55},
    {   437.346667,    0.0637,  5.050,   18.45,   0.60,  4.23,  0.48},
    {   439.150812,    0.9210,  3.596,   21.00,   0.63,  4.29,  0.52},
    {   443.018295,    0.1940,  5.050,   18.60,   0.60,  4.23,  0.50},
    {   448.001075,   10.6000,  1.405,   26.32,   0.66,  4.84,  0.67},
    {   470.888947,    0.3300,  3.599,   21.52,   0.66,  4.57,  0.65},
    {   474.689127,    1.2800,  2.381,   23.55,   0.65,  4.65,  0.64},
    {   488.491133,    0.2530,  2.853,   26.02,   0.69,  5.04,  0.72},
    {   503.568532,    0.0374,  6.733,   16.12,   0.61,  3.98,  0.43},
    {   504.482692,    0.0125,  6.733,   16.12,   0.61,  4.01,  0.45},
    {   556.936002,  510.0000,  0.159,   32.10,   0.69,  4.11,  1.00},
    {   620.700807,    5.0900,  2.200,   24.38,   0.71,  4.68,  0.68},
    {   658.006500,    0.2740,  7.820,   32.10,   0.69,  4.14,  1.00},
    {   752.033227,  250.0000,  0.396,   30.60,   0.68,  4.09,  0.84},
    {   841.073593,    0.0130,  8.180,   15.90,   0.33,  5.76,  0.45},
    {   859.865000,    0.1330,  7.989,   30.60,   0.68,  4.09,  0.84},
    {   899.407000,    0.0550,  7.917,   29.85,   0.68,  4.53,  0.90},
    {   902.555000,    0.0380,  8.432,   28.65,   0.70,  5.10,  0.95},
    {   906.205524,    0.1830,  5.111,   24.08,   0.70,  4.70,  0.53},
    {   916.171582,    8.5600,  1.442,   26.70,   0.70,  4.78,  0.78},
    {   970.315022,    9.1600,  1.920,   25.50,   0.64,  4.94,  0.67},
    {   987.926764,  138.0000,  0.258,   29.85,   0.68,  4.55,  0.90}};
 
  // --------- STANDARD MODEL PARAMETERS ---------------------------------------------------
  // standard values for the MPM89 model
  // (Liebe, Int. J. Infrared and Millimeter Waves, 10(6), 1989, 631):
  const Numeric CC_MPM89 = 1.00000;
  const Numeric CL_MPM89 = 1.00000;
  const Numeric CW_MPM89 = 1.00000;
  // ---------------------------------------------------------------------------------------
 
 
  // select the parameter set (!!model goes for values!!):
  Numeric CC, CL, CW;
  if ( model == "MPM89" )
    {
      CC = CC_MPM89;
      CL = CL_MPM89;
      CW = CW_MPM89;
    }
  else if ( model == "MPM89Lines" )
    {
      CC = 0.000;
      CL = CL_MPM89;
      CW = CW_MPM89;
    }
  else if ( model == "MPM89Continuum" )
    {
      CC = CC_MPM89;
      CL = 0.000;
      CW = 0.000;
    }
  else if ( model == "user" )
    {
      CC = CCin;
      CL = CLin;
      CW = CWin;
    }
  else
    {
      ostringstream os;
      os << "H2O-MPM89: ERROR! Wrong model values given.\n"
   << "Valid models are: 'MPM89', 'MPM89Lines', 'MPM89Continuum', and 'user'" << '\n';
      throw runtime_error(os.str());
    }
  out3  << "H2O-MPM89: (model=" << model << ") parameter values in use:\n"
  << " CC = " << CC << "\n"
  << " CL = " << CL << "\n"
  << " CW = " << CW << "\n";
 
 
  // number of lines of Liebe line catalog (30 lines)
  const Index i_first = 0;
  const Index i_last  = 29;
 
  const Index n_p = abs_p.nelem();  // Number of pressure levels
  const Index n_f = f_grid.nelem();  // Number of frequencies
 
  // Check that dimensions of abs_p, abs_t, and vmr agree:
  assert ( n_p==abs_t.nelem() );
  assert ( n_p==vmr.nelem()   );
 
  // Check that dimensions of pxsec are consistent with n_f
  // and n_p. It should be [n_f,n_p]:
  assert ( n_f==pxsec.nrows() );
  assert ( n_p==pxsec.ncols() );
 
  // Loop pressure/temperature (pressure in [hPa] therefore the factor 0.01)
  for ( Index i=0; i<n_p; ++i )
    {
      // here the total pressure is not multiplied by the H2O vmr for the
      // P_H2O calculation because we calculate pxsec and not abs: abs = vmr * pxsec
      Numeric pwv_dummy = Pa_to_kPa * abs_p[i];
      // relative inverse temperature [1]
      Numeric theta     = (300.0 / abs_t[i]);
      // H2O partial pressure [kPa]
      Numeric pwv       = Pa_to_kPa * abs_p[i] * vmr[i];
      // dry air partial pressure [kPa]
      Numeric pda       = (Pa_to_kPa * abs_p[i]) - pwv;
      // H2O continuum absorption [dB/km/GHz^2] like in the original MPM89
      Numeric Nppc      = CC * pwv_dummy * pow(theta, (Numeric)3.0) * 1.000e-5
        * ( (0.113 * pda) + (3.57 * pwv * pow(theta, (Numeric)7.5)) );
 
      // Loop over input frequency
      for ( Index s=0; s<n_f; ++s )
  {
    // input frequency in [GHz]
    Numeric ff    = f_grid[s] * Hz_to_GHz;
    // H2O line contribution at position f
    Numeric Nppl  = 0.000;
 
    // Loop over MPM89 spectral lines:
    for ( Index l = i_first; l <= i_last; ++l )
      {
        // line strength [kHz]
        Numeric strength = CL * pwv_dummy * mpm89[l][1]
                * pow(theta, (Numeric)3.5) * exp(mpm89[l][2]*(1.000-theta));
        // line broadening parameter [GHz]
        Numeric gam      = CW * mpm89[l][3] * 0.001
                * ( mpm89[l][5] * pwv * pow(theta, mpm89[l][6]) +
                          pda * pow(theta, mpm89[l][4]) );
        // Doppler line width [GHz]
        // Numeric gamd     = 1.46e-6 * mpm89[l][0] / sqrt(theta);
        // effective line width [GHz]
        // gam              = 0.535 * gam + sqrt(0.217*gam*gam + gamd*gamd);
        // H2O line absorption [dB/km/GHz] like in the original MPM89
        Nppl            += strength * MPMLineShapeFunction(gam, mpm89[l][0], ff);
      }
    // pxsec = abs/vmr [1/m] but MPM89 is in [dB/km] --> conversion necessary
    pxsec(s,i) += dB_km_to_1_m * 0.1820 * ff * ( Nppl + (Nppc * ff) );
  }
    }
  return;
}
//
// #################################################################################
 
void MPM02H2OAbsModel (MatrixView        pxsec,
                       const Numeric   CCin,       // continuum scale factor
                       const Numeric   CLin,       // line strength scale factor
                       const Numeric   CWin,       // line broadening scale factor
                       const String&     model,
                       ConstVectorView   f_grid,
                       ConstVectorView   abs_p,
                       ConstVectorView   abs_t,
                       ConstVectorView   vmr,
                       const Verbosity& verbosity)
{
  CREATE_OUT3;
  
  //
  /*
CTKS  OTHER DATA USED IF NOT FROM THEORETICAL CALC. IN A. BAUER ET AL. 41(1989)49-54:
CTKS  --------------------------------------------------------------------------------------------------------------
CTKS           | T=300 K       | T=300 K      |   T=300 K        |
CTKS  F     ISO|GWVHZO   NWVHZO| GWVNZ    NWVNZ|   GWVAIR   NWVAIR| REFERENCE
CTKS  GHZ   1  |MHZ/TORR 1     | MHZ/TORR 1    |   MHZ/TORR 1     |
CTKS  --------------------------------------------------------------------------------------------------------------
CTKS   22.2 1   18.00(18) -      4.10     --       3.77     --       LIEBE ET AL., J.CHEM.PHYS., 50(1969)727
CTKS  183.3 1   19.88    0.85    4.07(7)  0.63(10) 3.75(6)  0.64(10) A. BAUER ET AL. JQSRT 41(1989)49-54
CTKS  183.3 1    -        -      4.19(17) 0.74(3)  3.89(14) 0.76(3)  T. M. GOYETTE ET AL. J. MOLEC. SPEC, 143(1990)346
CTKS  203.4 2   --       --      4.214    0.93     3.833    0.89     J.-M. COLMONT ET AL. J. MOLEC. SPEC. 193(1999)233-243
CTKS  225.9 4   --       --      4.21     0.70     3.798    0.75     J.-M. COLMONT ET AL. J. MOLEC. SPEC. 193(1999)233-243
CTKS  241.6 4   --       --      4.45     0.77     4.08     0.80     J.-M. COLMONT ET AL. J. MOLEC. SPEC. 193(1999)233-243
CTKS  241.9 4   --       --      3.47     0.67     3.07     0.70     J.-M. COLMONT ET AL. J. MOLEC. SPEC. 193(1999)233-243
CTKS  325.1 1   --       --      4.011    0.63     3.633    0.64     J.-M. COLMONT ET AL. J. MOLEC. SPEC. 193(1999)233-243
CTKS  380.2 1   20.61(7) 0.89(1) 4.24(7)  0.52(14) 3.83(6)  0.54(14) A. BAUER ET AL. JQSRT 41(1987) 531
CTKS  380.2 1    -        -      4.16(4)  0.70(3)  3.80     0.72     T. M. GOYETTE ET AL. JQSRT 41(1993)485
CTKS  439.2 1   12.95(25)0.62(9)  --      --       --       --       V. N. MARKOV, J. MOLEC. SPEC, 164(1994)233
CTKS  752.0 1                    4.16(18) --       3.75     --       S. S. D. GASSTER ET AL. JOSA, 5(1988)593
CTKS  987.9 1                    4.42(23) --       4.01     --       S. S. D. GASSTER ET AL. JOSA, 5(1988)593
*/
  // Coefficients are from Liebe et al., AGARD CP-May93, Paper 3/1-10
  //         0             1        2       3        4       5      6
  //         f0            b1       b2      b3       b4      b5     b6
  //        [MHz]       [kHz/kPa]   [1]       [MHz/hPa]     [1]    [1]
  //                                        air      self   air    self
  const Numeric mpm02[35][7] = {
    {    22235.0800,    0.10947,  2.1678,   2.811,   4.80,  0.69,  0.61},
    {    67803.9600,    0.00111,  8.7518,   2.858,   4.93,  0.69,  0.82},
    {   119995.9400,    0.00072,  8.3688,   2.948,   4.78,  0.70,  0.79},
    {   183310.1170,    2.30351,  0.6794,   3.050,   5.30,  0.76,  0.85},
    {   321225.6400,    0.04646,  6.1792,   2.303,   4.69,  0.67,  0.54},
    {   325152.9190,    1.53869,  1.5408,   2.783,   4.85,  0.68,  0.74},
    {   336227.6200,    0.00099,  9.8233,   2.693,   4.74,  0.64,  0.61},
    {   380197.3720,    11.9079,  1.0439,   2.873,   5.38,  0.72,  0.89},
    {   390134.5080,    0.00437,  7.3408,   2.152,   4.81,  0.63,  0.55},
    {   437346.6670,    0.06378,  5.0384,   1.845,   4.23,  0.60,  0.48},
    {   439150.8120,    0.92144,  3.5853,   2.100,   4.29,  0.63,  0.62},
    {   443018.2950,    0.19384,  5.0384,   1.860,   4.23,  0.60,  0.50},
    {   448001.0750,    10.6190,  1.3952,   2.632,   4.84,  0.66,  0.67},
    {   470888.9470,    0.33005,  3.5853,   2.152,   4.57,  0.66,  0.65},
    {   474689.1270,    1.27660,  2.3674,   2.355,   4.65,  0.65,  0.64},
    {   488491.1330,    0.25312,  2.8391,   2.602,   5.04,  0.69,  0.72},
    {   503568.5320,    0.03746,  6.7158,   1.612,   3.98,  0.61,  0.43},
    {   504482.6920,    0.01250,  6.7158,   1.612,   4.01,  0.61,  0.45},
    {   547676.4400,    1.01467,  0.1427,   2.600,   4.50,  0.69,  1.00}, // *
    {   552020.9600,    0.18668,  0.1452,   2.600,   4.50,  0.69,  1.00}, // *
    {   556936.0020,  510.51086,  0.1405,   3.210,   4.11,  0.69,  1.00},
    {   620700.8070,    5.10539,  2.3673,   2.438,   4.68,  0.71,  0.68},
    {   645905.6200,    0.00667,  8.6065,   1.800,   4.00,  0.60,  0.43},
    {   658006.5500,    0.27451,  7.7889,   3.210,   4.14,  0.69,  1.00},
    {   752033.2270,  249.68466,  0.3625,   3.060,   4.09,  0.68,  0.84},
    {   841051.1620,    0.01308,  8.1347,   1.590,   5.76,  0.33,  0.45},
    {   859965.6490,    0.13326,  8.0114,   3.060,   4.09,  0.68,  0.84},
    {   899302.1710,    0.05492,  7.8676,   2.985,   4.53,  0.68,  0.90},
    {   902609.4360,    0.03854,  8.3823,   2.865,   5.10,  0.70,  0.95},
    {   906206.1180,    0.18323,  5.0628,   2.408,   4.70,  0.70,  0.53},
    {   916171.5820,    8.56444,  1.3943,   2.670,   4.78,  0.70,  0.78},
    {   923113.1900,    0.00784, 10.2441,   2.900,   5.00,  0.66,  0.67},
    {   970315.0220,    9.16280,  1.8673,   2.550,   4.94,  0.64,  0.67},
    {   987926.7640,  138.28461,  0.2045,   2.985,   4.55,  0.68,  0.90},
  //--------------------------------------------------------------------
    {  1780.000000, 2230.00000,  0.952,  17.620,  30.50,  2.00,  5.00}}; // pseudo continuum line
 
  // --------- STANDARD MODEL PARAMETERS ---------------------------------------------------
  // standard values for the MPM93 model (J. Liebe and G. A. Hufford and M. G. Cotton,
  // "Propagation modeling of moist air and suspended water/ice
  // particles at frequencies below 1000 GHz",
  // AGARD 52nd Specialists Meeting of the Electromagnetic Wave
  // Propagation Panel, Palma de Mallorca, Spain, 1993, May 17-21)
  const Numeric CC_MPM02 = 1.00000;
  const Numeric CL_MPM02 = 1.00000;
  const Numeric CW_MPM02 = 1.00000;
  // ---------------------------------------------------------------------------------------
 
 
  // select the parameter set (!!model dominates values!!):
  Numeric CC, CL, CW;
  // number of lines of Liebe line catalog (0-33 lines, 34 cont. pseudo line)
  Index i_first = 0;
  Index i_last  = 34;
  if ( model == "MPM02" )
    {
      CC      = CC_MPM02;
      CL      = CL_MPM02;
      CW      = CW_MPM02;
      i_first = 0;
      i_last  = 34;
    }
  else if ( model == "MPM02Lines" )
    {
      CC      = 0.000;
      CL      = CL_MPM02;
      CW      = CW_MPM02;
      i_first = 0;
      i_last  = 33;
    }
  else if ( model == "MPM02Continuum" )
    {
      CC      = CC_MPM02;
      CL      = 0.000;
      CW      = 0.000;
      i_first = 34;
      i_last  = 34;
    }
  else if ( model == "user" )
    {
      CC      = CCin;
      CL      = CLin;
      CW      = CWin;
      i_first = 0;
      i_last  = 34;
 
    }
  else
    {
      ostringstream os;
      os << "H2O-MPM02: ERROR! Wrong model values given.\n"
   << "Valid models are: 'MPM02', 'MPM02Lines', 'MPM02Continuum', and 'user'" << '\n';
      throw runtime_error(os.str());
    }
  out3  << "H2O-MPM02: (model=" << model << ") parameter values in use:\n"
  << " CC = " << CC << "\n"
  << " CL = " << CL << "\n"
  << " CW = " << CW << "\n";
 
 
  const Index n_p = abs_p.nelem();  // Number of pressure levels
  const Index n_f = f_grid.nelem();  // Number of frequencies
 
  // Check that dimensions of abs_p, abs_t, and vmr agree:
  assert ( n_p==abs_t.nelem() );
  assert ( n_p==vmr.nelem()   );
 
  // Check that dimensions of pxsec are consistent with n_f
  // and n_p. It should be [n_f,n_p]:
  assert ( n_f==pxsec.nrows() );
  assert ( n_p==pxsec.ncols() );
 
  // Loop pressure/temperature (pressure in hPa therefore the factor 0.01)
  for ( Index i=0; i<n_p; ++i )
    {
      // here the total pressure is not multiplied by the H2O vmr for the
      // P_H2O calculation because we calculate pxsec and not abs: abs = vmr * pxsec
      Numeric pwv_dummy = Pa_to_hPa * abs_p[i];
      // relative inverse temperature [1]
      Numeric theta    = (300.0 / abs_t[i]);
      // H2O partial pressure [hPa]
      Numeric pwv      = Pa_to_hPa * abs_p[i] * vmr[i];
      // dry air partial pressure [hPa]
      Numeric pda      = (Pa_to_hPa * abs_p[i]) - pwv;
      // Loop over MPM02 spectral lines:
 
      // Loop over input frequency
      for ( Index s=0; s<n_f; ++s )
  {
    // input frequency in [GHz]
    Numeric ff = f_grid[s] * Hz_to_GHz;
 
    for ( Index l = i_first; l <= i_last; ++l )
      {
        // line strength [ppm]. The missing vmr of H2O will be multiplied
        // at the stage of absorption calculation: abs / vmr * pxsec.
        Numeric strength = 0.00;
        Numeric gam = 0.00;
        if ( (l >= 0) && (l <= 33) ) // ---- just the lines ------------------
    {
      strength = CL * pwv_dummy * mpm02[l][1] *
                pow(theta, (Numeric)3.5)  * exp(mpm02[l][2]*(1.0-theta));
      // line broadening parameter [GHz]
      gam      = CW * mpm02[l][3] * 0.001 *
                      ( (mpm02[l][4] * pwv * pow(theta, mpm02[l][6])) +
                      (                pda * pow(theta, mpm02[l][5])) );
    }
        else if ( l == 34 ) // ----- just the continuum pseudo-line ----------
    {
      strength = CC * pwv_dummy * mpm02[l][1] *
                      pow(theta, (Numeric)3.5)  * exp(mpm02[l][2]*(1.0-theta));
      // line broadening parameter [GHz]
      gam      = mpm02[l][3] * 0.001 *
                       ( (mpm02[l][4] * pwv * pow(theta, mpm02[l][6])) +
                       (                pda * pow(theta, mpm02[l][5])) );
    }
        else // ----- if something strange happens ---------------------------
    {
      ostringstream os;
      os << "H2O-MPM02: wrong line number detected l=" << l << " (0-34)\n";
      throw runtime_error(os.str());
      return;
    } // ---------------------------------------------------------------
        // Doppler line width [GHz]
        // Numeric gamd     = 1.46e-6 * mpm02[l][0] / sqrt(theta);
        // effective line width [GHz]
        //gam              = 0.535 * gam + sqrt(0.217*gam*gam + gamd*gamd);
        // absorption [dB/km] like in the original MPM02
        Numeric Npp = strength * MPMLineShapeFunction(gam, mpm02[l][0], ff);
        // pxsec = abs/vmr [1/m] but MPM89 is in [dB/km] --> conversion necessary
        pxsec(s,i)   += dB_km_to_1_m * 0.1820 * ff * Npp;
      }
  }
    }
  return;
}
//
//
// #################################################################################
 
void MPM93H2OAbsModel (MatrixView        pxsec,
                       const Numeric     CCin,       // continuum scale factor
                       const Numeric     CLin,       // line strength scale factor
                       const Numeric     CWin,       // line broadening scale factor
                       const String&     model,
                       ConstVectorView   f_grid,
                       ConstVectorView   abs_p,
                       ConstVectorView   abs_t,
                       ConstVectorView   vmr,
                       const Verbosity& verbosity)
{
  CREATE_OUT3;
  
  //
  // Coefficients are from Liebe et al., AGARD CP-May93, Paper 3/1-10
  //         0           1        2       3        4      5      6
  //         f0          b1       b2      b3       b4     b5     b6
  //        [GHz]     [kHz/hPa]   [1]   [MHz/hPa]  [1]    [1]    [1]
  const Numeric mpm93[35][7] = {
    {    22.235080,    0.01130,  2.143,   2.811,   4.80,  0.69,  1.00},
    {    67.803960,    0.00012,  8.735,   2.858,   4.93,  0.69,  0.82},
    {   119.995940,    0.00008,  8.356,   2.948,   4.78,  0.70,  0.79},
    {   183.310091,    0.24200,  0.668,   3.050,   5.30,  0.64,  0.85},
    {   321.225644,    0.00483,  6.181,   2.303,   4.69,  0.67,  0.54},
    {   325.152919,    0.14990,  1.540,   2.783,   4.85,  0.68,  0.74},
    {   336.222601,    0.00011,  9.829,   2.693,   4.74,  0.69,  0.61},
    {   380.197372,    1.15200,  1.048,   2.873,   5.38,  0.54,  0.89},
    {   390.134508,    0.00046,  7.350,   2.152,   4.81,  0.63,  0.55},
    {   437.346667,    0.00650,  5.050,   1.845,   4.23,  0.60,  0.48},
    {   439.150812,    0.09218,  3.596,   2.100,   4.29,  0.63,  0.52},
    {   443.018295,    0.01976,  5.050,   1.860,   4.23,  0.60,  0.50},
    {   448.001075,    1.03200,  1.405,   2.632,   4.84,  0.66,  0.67},
    {   470.888947,    0.03297,  3.599,   2.152,   4.57,  0.66,  0.65},
    {   474.689127,    0.12620,  2.381,   2.355,   4.65,  0.65,  0.64},
    {   488.491133,    0.02520,  2.853,   2.602,   5.04,  0.69,  0.72},
    {   503.568532,    0.00390,  6.733,   1.612,   3.98,  0.61,  0.43},
    {   504.482692,    0.00130,  6.733,   1.612,   4.01,  0.61,  0.45},
//    {   547.676440,    0.97010,  0.114,   2.600,   4.50,  0.70,  1.00},
//    {   552.020960,    1.47700,  0.114,   2.600,   4.50,  0.70,  1.00},
    {   547.676440,    0.97010*0.00199983,  0.114,   2.600,   4.50,  0.70,  1.00}, // isotopologue ratio multiplied
    {   552.020960,    1.47700*0.00037200,  0.114,   2.600,   4.50,  0.70,  1.00}, // isotopologue ratio multiplied
    {   556.936002,   48.74000,  0.159,   3.210,   4.11,  0.69,  1.00},
    {   620.700807,    0.50120,  2.200,   2.438,   4.68,  0.71,  0.68},
    {   645.866155,    0.00713,  8.580,   1.800,   4.00,  0.60,  0.50}, // ?? JPL tag 18003 (H2O) f_o = 645.7660100GHz
    {   658.005280,    0.03022,  7.820,   3.210,   4.14,  0.69,  1.00},
    {   752.033227,   23.96000,  0.396,   3.060,   4.09,  0.68,  0.84},
    {   841.053973,    0.00140,  8.180,   1.590,   5.76,  0.33,  0.45},
    {   859.962313,    0.01472,  7.989,   3.060,   4.09,  0.68,  0.84},
    {   899.306675,    0.00605,  7.917,   2.985,   4.53,  0.68,  0.90},
    {   902.616173,    0.00426,  8.432,   2.865,   5.10,  0.70,  0.95},
    {   906.207325,    0.01876,  5.111,   2.408,   4.70,  0.70,  0.53},
    {   916.171582,    0.83400,  1.442,   2.670,   4.78,  0.70,  0.78},
    {   923.118427,    0.00869, 10.220,   2.900,   5.00,  0.70,  0.80},
    {   970.315022,    0.89720,  1.920,   2.550,   4.94,  0.64,  0.67},
    {   987.926764,   13.21000,  0.258,   2.985,   4.55,  0.68,  0.90},
  //--------------------------------------------------------------------
    {  1780.000000, 2230.00000,  0.952,  17.620,  30.50,  2.00,  5.00}}; // pseudo continuum line
 
  // --------- STANDARD MODEL PARAMETERS ---------------------------------------------------
  // standard values for the MPM93 model (J. Liebe and G. A. Hufford and M. G. Cotton,
  // "Propagation modeling of moist air and suspended water/ice
  // particles at frequencies below 1000 GHz",
  // AGARD 52nd Specialists Meeting of the Electromagnetic Wave
  // Propagation Panel, Palma de Mallorca, Spain, 1993, May 17-21)
  const Numeric CC_MPM93 = 1.00000;
  const Numeric CL_MPM93 = 1.00000;
  const Numeric CW_MPM93 = 1.00000;
  // ---------------------------------------------------------------------------------------
 
 
  // select the parameter set (!!model dominates values!!):
  Numeric CC, CL, CW;
  // number of lines of Liebe line catalog (0-33 lines, 34 cont. pseudo line)
  Index i_first = 0;
  Index i_last  = 34;
  if ( model == "MPM93" )
    {
      CC      = CC_MPM93;
      CL      = CL_MPM93;
      CW      = CW_MPM93;
      i_first = 0;
      i_last  = 34;
    }
  else if ( model == "MPM93Lines" )
    {
      CC      = 0.000;
      CL      = CL_MPM93;
      CW      = CW_MPM93;
      i_first = 0;
      i_last  = 33;
    }
  else if ( model == "MPM93Continuum" )
    {
      CC      = CC_MPM93;
      CL      = 0.000;
      CW      = 0.000;
      i_first = 34;
      i_last  = 34;
    }
  else if ( model == "user" )
    {
      CC      = CCin;
      CL      = CLin;
      CW      = CWin;
      i_first = 0;
      i_last  = 34;
 
    }
  else
    {
      ostringstream os;
      os << "H2O-MPM93: ERROR! Wrong model values given.\n"
   << "Valid models are: 'MPM93', 'MPM93Lines', 'MPM93Continuum', and 'user'" << '\n';
      throw runtime_error(os.str());
    }
  out3  << "H2O-MPM93: (model=" << model << ") parameter values in use:\n"
  << " CC = " << CC << "\n"
  << " CL = " << CL << "\n"
  << " CW = " << CW << "\n";
 
 
  const Index n_p = abs_p.nelem();  // Number of pressure levels
  const Index n_f = f_grid.nelem();  // Number of frequencies
 
  // Check that dimensions of abs_p, abs_t, and vmr agree:
  assert ( n_p==abs_t.nelem() );
  assert ( n_p==vmr.nelem()   );
 
  // Check that dimensions of pxsec are consistent with n_f
  // and n_p. It should be [n_f,n_p]:
  assert ( n_f==pxsec.nrows() );
  assert ( n_p==pxsec.ncols() );
 
  // Loop pressure/temperature (pressure in hPa therefore the factor 0.01)
  for ( Index i=0; i<n_p; ++i )
    {
      // here the total pressure is not multiplied by the H2O vmr for the
      // P_H2O calculation because we calculate pxsec and not abs: abs = vmr * pxsec
      Numeric pwv_dummy = Pa_to_hPa * abs_p[i];
      // relative inverse temperature [1]
      Numeric theta    = (300.0 / abs_t[i]);
      // H2O partial pressure [hPa]
      Numeric pwv      = Pa_to_hPa * abs_p[i] * vmr[i];
      // dry air partial pressure [hPa]
      Numeric pda      = (Pa_to_hPa * abs_p[i]) - pwv;
      // Loop over MPM93 spectral lines:
 
      // Loop over input frequency
      for ( Index s=0; s<n_f; ++s )
  {
    // input frequency in [GHz]
    Numeric ff = f_grid[s] * Hz_to_GHz;
 
    for ( Index l = i_first; l <= i_last; ++l )
      {
        // line strength [ppm]. The missing vmr of H2O will be multiplied
        // at the stage of absorption calculation: abs / vmr * pxsec.
        Numeric strength = 0.00;
        Numeric gam = 0.00;
        if ( (l >= 0) && (l <= 33) ) // ---- just the lines ------------------
    {
      strength = CL * pwv_dummy * mpm93[l][1]
                    * pow(theta, (Numeric)3.5)  * exp(mpm93[l][2]*(1.0-theta));
      // line broadening parameter [GHz]
      gam      = CW * mpm93[l][3] * 0.001 *
                      ( (mpm93[l][4] * pwv * pow(theta, mpm93[l][6])) +
                      (                pda * pow(theta, mpm93[l][5])) );
    }
        else if ( l == 34 ) // ----- just the continuum pseudo-line ----------
    {
      strength = CC * pwv_dummy * mpm93[l][1]
                    * pow(theta, (Numeric)3.5)  * exp(mpm93[l][2]*(1.0-theta));
      // line broadening parameter [GHz]
      gam      = mpm93[l][3] * 0.001 *
                       ( (mpm93[l][4] * pwv * pow(theta, mpm93[l][6])) +
                       (                pda * pow(theta, mpm93[l][5])) );
    }
        else // ----- if something strange happens ---------------------------
    {
      ostringstream os;
      os << "H2O-MPM93: wrong line number detected l=" << l << " (0-34)\n";
      throw runtime_error(os.str());
      return;
    } // ---------------------------------------------------------------
        // Doppler line width [GHz]
        // Numeric gamd     = 1.46e-6 * mpm93[l][0] / sqrt(theta);
        // effective line width [GHz]
        //gam              = 0.535 * gam + sqrt(0.217*gam*gam + gamd*gamd);
        // absorption [dB/km] like in the original MPM93
        Numeric Npp = strength * MPMLineShapeFunction(gam, mpm93[l][0], ff);
        // pxsec = abs/vmr [1/m] but MPM89 is in [dB/km] --> conversion necessary
        pxsec(s,i)   += dB_km_to_1_m * 0.1820 * ff * Npp;
      }
  }
    }
  return;
}
//
// #################################################################################
 
void PWR98H2OAbsModel (MatrixView       pxsec,
                      const Numeric     CCin,       // continuum scale factor
                      const Numeric     CLin,       // line strength scale factor
                      const Numeric     CWin,       // line broadening scale factor
                      const String&     model,
                      ConstVectorView   f_grid,
                      ConstVectorView   abs_p,
                      ConstVectorView   abs_t,
                      ConstVectorView   vmr,
                      const Verbosity& verbosity)
{
  CREATE_OUT3;
  
  //   REFERENCES:
  //   LINE INTENSITIES FROM HITRAN92 (SELECTION THRESHOLD=
  //     HALF OF CONTINUUM ABSORPTION AT 1000 MB).
  //   WIDTHS MEASURED AT 22,183,380 GHZ, OTHERS CALCULATED:
  //     H.J.LIEBE AND T.A.DILLON, J.CHEM.PHYS. V.50, PP.727-732 (1969) &
  //     H.J.LIEBE ET AL., JQSRT V.9, PP. 31-47 (1969)  (22GHz);
  //     A.BAUER ET AL., JQSRT V.37, PP.531-539 (1987) &
  //     ASA WORKSHOP (SEPT. 1989) (380GHz);
  //     AND A.BAUER ET AL., JQSRT V.41, PP.49-54 (1989) (OTHER LINES).
  //   AIR-BROADENED CONTINUUM BASED ON LIEBE & LAYTON, NTIA
  //     REPORT 87-224 (1987); SELF-BROADENED CONTINUUM BASED ON
  //     LIEBE ET AL, AGARD CONF. PROC. 542 (MAY 1993),
  //     BUT READJUSTED FOR LINE SHAPE OF
  //     CLOUGH et al, ATMOS. RESEARCH V.23, PP.229-241 (1989).
  //
  // Coefficients are from P. W. Rosenkranz., Radio Science, 33(4), 919, 1998
  // line frequencies [GHz]
  const Numeric PWRfl[15] = {  22.2350800, 183.3101170, 321.2256400, 325.1529190, 380.1973720,
                              439.1508120, 443.0182950, 448.0010750, 470.8889470,  474.6891270,
                              488.4911330, 556.9360020,  620.7008070, 752.0332270, 916.1715820 };
  // line intensities at 300K [Hz * cm2] (see Janssen Appendix to Chap.2 for this)
  const Numeric PWRs1[15] = { 1.31e-14,  2.273e-12, 8.036e-14, 2.694e-12, 2.438e-11,
                              2.179e-12, 4.624e-13, 2.562e-11, 8.369e-13, 3.263e-12,
                              6.659e-13, 1.531e-9,  1.707e-11, 1.011e-9,  4.227e-11 };
  // T coeff. of intensities [1]
  const Numeric PWRb2[15] = { 2.144, 0.668, 6.179, 1.541, 1.048,
                              3.595, 5.048, 1.405, 3.597, 2.379,
                              2.852, 0.159, 2.391, 0.396, 1.441 };
  // air-broadened width parameters at 300K [GHz/hPa]
  const Numeric PWRw3[15] = { 0.00281, 0.00281, 0.00230, 0.00278, 0.00287,
                              0.00210, 0.00186, 0.00263, 0.00215, 0.00236,
                              0.00260, 0.00321, 0.00244, 0.00306, 0.00267 };
  // T-exponent of air-broadening [1]
  const Numeric PWRx[15]  = { 0.69, 0.64, 0.67, 0.68, 0.54,
                              0.63, 0.60, 0.66, 0.66, 0.65,
                  0.69, 0.69, 0.71, 0.68, 0.70 };
  // self-broadened width parameters at 300K [GHz/hPa]
  const Numeric PWRws[15] = { 0.01349, 0.01491, 0.01080, 0.01350, 0.01541,
                              0.00900, 0.00788, 0.01275, 0.00983, 0.01095,
                              0.01313, 0.01320, 0.01140, 0.01253, 0.01275 };
 
  // T-exponent of self-broadening [1]
  const Numeric PWRxs[15] = { 0.61, 0.85, 0.54, 0.74, 0.89,
            0.52, 0.50, 0.67, 0.65, 0.64,
            0.72, 1.00, 0.68, 0.84, 0.78 };
 
   // --------- STANDARD MODEL PARAMETERS ---------------------------------------------------
  // standard values for the MPM87 model (P. W. Rosenkranz., Radio Science, 33(4), 919, 1998):
  const Numeric CC_PWR98 = 1.00000;
  const Numeric CL_PWR98 = 1.00000;
  const Numeric CW_PWR98 = 1.00000;
  // ---------------------------------------------------------------------------------------
 
 
  // select the parameter set (!!model dominates values!!):
  Numeric CC, CL, CW;
  if ( model == "Rosenkranz" )
    {
      CC = CC_PWR98;
      CL = CL_PWR98;
      CW = CW_PWR98;
    }
  else if ( model == "RosenkranzLines" )
    {
      CC = 0.000;
      CL = CL_PWR98;
      CW = CW_PWR98;
    }
  else if ( model == "RosenkranzContinuum" )
    {
      CC = CC_PWR98;
      CL = 0.000;
      CW = 0.000;
    }
  else if ( model == "user" )
    {
      CC = CCin;
      CL = CLin;
      CW = CWin;
    }
  else
    {
      ostringstream os;
      os << "H2O-PWR98: ERROR! Wrong model values given.\n"
   << "Valid models are: 'Rosenkranz', 'RosenkranzLines', 'RosenkranzContinuum', and 'user'" << '\n';
      throw runtime_error(os.str());
    }
  out3  << "H2O-PWR98: (model=" << model << ") parameter values in use:\n"
  << " CC = " << CC << "\n"
  << " CL = " << CL << "\n"
  << " CW = " << CW << "\n";
 
 
  const Index n_p = abs_p.nelem();  // Number of pressure levels
  const Index n_f = f_grid.nelem();  // Number of frequencies
 
  // Check that dimensions of abs_p, abs_t, and vmr agree:
  assert ( n_p==abs_t.nelem() );
  assert ( n_p==vmr.nelem()   );
 
  // Check that dimensions of pxsec are consistent with n_f
  // and n_p. It should be [n_f,n_p]:
  assert ( n_f==pxsec.nrows() );
  assert ( n_p==pxsec.ncols() );
 
  // Loop pressure/temperature:
#pragma omp parallel for      \
  if (!arts_omp_in_parallel()  \
      && n_p >= arts_omp_get_max_threads())
  for ( Index i=0; i<n_p; ++i )
    {
      // here the total pressure is not multiplied by the H2O vmr for the
      // P_H2O calculation because we calculate pxsec and not abs: abs = vmr * pxsec
      Numeric pvap_dummy = Pa_to_hPa * abs_p[i];
      // water vapor partial pressure [hPa]
      Numeric pvap       = Pa_to_hPa * abs_p[i] * vmr[i];
      // dry air partial pressure [hPa]
      Numeric pda        = (Pa_to_hPa * abs_p[i]) - pvap;
      // Rosenkranz number density  (Rosenkranz H2O mass density in [g/m³])
      // [g/m³]    =  [g*K / Pa*m³]  *  [Pa/K]
      // rho       =   (M_H2O / R)   *  (P_H2O / T)
      // rho       =      2.1667     *  abs_p * vmr / abs_t
      // den       = 3.335e16 * rho
      // FIXME Numeric den        = 3.335e16 * (2.1667 * abs_p[i] * vmr[i] / abs_t[i]);
      Numeric den_dummy  = 3.335e16 * (2.1667 * abs_p[i] / abs_t[i]);
      // inverse relative temperature [1]
      Numeric ti         = (300.0 / abs_t[i]);
      Numeric ti2        = pow(ti, (Numeric)2.5);
 
      // continuum term [Np/km/GHz2]
      Numeric con = CC * pvap_dummy * pow(ti, (Numeric)3.0) * 1.000e-9
        * ( (0.543 * pda) + (17.96 * pvap * pow(ti, (Numeric)4.5)) );
 
      // Loop over input frequency
      for ( Index s=0; s<n_f; ++s )
  {
    // input frequency in [GHz]
    Numeric ff  = f_grid[s] * Hz_to_GHz;
    // line contribution at position f
    Numeric sum = 0.000;
 
    // Loop over spectral lines
    for (Index l = 0; l < 15; l++)
      {
        Numeric width    = ( CW * PWRw3[l] * pda  * pow(ti, PWRx[l]) ) +
         (      PWRws[l] * pvap * pow(ti, PWRxs[l]));
        //        Numeric width    = CW * ( PWRw3[l] * pda  * pow(ti, PWRx[l]) +
        //          PWRws[l] * pvap * pow(ti, PWRxs[l]) );
        Numeric wsq      = width * width;
        Numeric strength = CL * PWRs1[l] * ti2 * exp(PWRb2[l]*(1.0 - ti));
        // frequency differences
        Numeric df0      = ff - PWRfl[l];
        Numeric df1      = ff + PWRfl[l];
        // use Clough's definition of local line contribution
        Numeric base     = width / (wsq + 562500.000);
        // positive and negative resonances
        Numeric res      = 0.000;
        if (fabs(df0) < 750.0) res += width / (df0*df0 + wsq) - base;
        if (fabs(df1) < 750.0) res += width / (df1*df1 + wsq) - base;
        sum             += strength * res * pow( (ff/PWRfl[l]),
                                                       (Numeric)2.0 );
      }
    // line term [Np/km]
    Numeric absl = 0.3183e-4 * den_dummy * sum;
    // pxsec = abs/vmr [1/m] (Rosenkranz model in [Np/km])
    // 4.1907e-5 = 0.230259 * 0.1820 * 1.0e-3    (1/(10*log(e)) = 0.230259)
    pxsec(s,i)  += 1.000e-3 * ( absl + (con * ff * ff) );
  }
    }
  return;
}
//
// #################################################################################
//
 
void CP98H2OAbsModel (MatrixView        pxsec,
                      const Numeric     CCin,       // continuum scale factor
                      const Numeric     CLin,       // line strength scale factor
                      const Numeric     CWin,       // line broadening scale factor
                      const String&     model,
                      ConstVectorView   f_grid,
                      ConstVectorView   abs_p,
                      ConstVectorView   abs_t,
                      ConstVectorView   vmr,
                      const Verbosity& verbosity)
{
  CREATE_OUT3;
 
  // --------- STANDARD MODEL PARAMETERS ---------------------------------------------------
  // standard values for the CP98 model (S. L. Cruz-Pol et al., Radio Science, 33(5), 1319, 1998):
  const Numeric CC_CP98 = 1.2369; // +/- 0.155  !LARGE!
  const Numeric CL_CP98 = 1.0639; // +/- 0.016
  const Numeric CW_CP98 = 1.0658; // +/- 0.0096
  // ---------------------------------------------------------------------------------------
 
  // select the parameter set (!!model dominates values!!):
  Numeric CC, CL, CW;
  if ( model == "CruzPol" )
    {
      CC = CC_CP98;
      CL = CL_CP98;
      CW = CW_CP98;
    }
  else if ( model == "CruzPolLine" )
    {
      CC = 0.000;
      CL = CL_CP98;
      CW = CW_CP98;
    }
  else if ( model == "CruzPolContinuum" )
    {
      CC = CC_CP98;
      CL = 0.000;
      CW = 0.000;
    }
  else if ( model == "user" )
    {
      CC = CCin;
      CL = CLin;
      CW = CWin;
    }
  else
    {
      ostringstream os;
      os << "H2O-CP98: ERROR! Wrong model values given.\n"
   << "Valid models are: 'CruzPol', 'CruzPolLine', 'CruzPolContinuum', and 'user'" << "\n";
      throw runtime_error(os.str());
    }
  out3  << "H2O-CP98: (model=" << model << ") parameter values in use:\n"
  << " CC = " << CC << "\n"
  << " CL = " << CL << "\n"
  << " CW = " << CW << "\n";
 
  const Index n_p = abs_p.nelem();  // Number of pressure levels
  const Index n_f = f_grid.nelem();  // Number of frequencies
 
  // Check that dimensions of abs_p, abs_t, and vmr agree:
  assert ( n_p==abs_t.nelem() );
  assert ( n_p==vmr.nelem()   );
 
  // Check that dimensions of pxsec are consistent with n_f
  // and n_p. It should be [n_f,n_p]:
  assert ( n_f==pxsec.nrows() );
  assert ( n_p==pxsec.ncols() );
 
  // Loop pressure/temperature (pressure in [hPa] therefore the factor 0.01)
  for ( Index i=0; i<n_p; ++i )
    {
      // calculate pxsec only if VMR(H2O) > VMRCalcLimit
      if (vmr[i] > VMRCalcLimit)
  {
    // relative inverse temperature [1]
    Numeric theta = (300.0 / abs_t[i]);
    // H2O partial pressure [hPa]
    Numeric pwv   = Pa_to_hPa * abs_p[i] * vmr[i];
    // dry air partial pressure [hPa]
    Numeric pda   = (Pa_to_hPa * abs_p[i]) - pwv;
    // line strength
    Numeric TL    = CL * 0.0109 * pwv * pow(theta,(Numeric)3.5)
            * exp(2.143*(1.0-theta));
    // line broadening parameter [GHz]
    Numeric gam   = CW * 0.002784 *
                    ( (pda * pow(theta,(Numeric)0.6))
                            + (4.80 * pwv * pow(theta,(Numeric)1.1)) );
    // continuum term
    Numeric TC    = CC * pwv * pow(theta, (Numeric)3.0) * 1.000e-7
            * ( (0.113 * pda) + (3.57 * pwv * pow(theta,(Numeric)7.5)) );
 
    // Loop over input frequency
    for ( Index s=0; s<n_f; ++s )
      {
        // input frequency in [GHz]
        Numeric ff  = f_grid[s] * Hz_to_GHz;
        Numeric TSf = MPMLineShapeFunction(gam, 22.235080, ff);
        // pxsec = abs/vmr [1/m] (Cruz-Pol model in [Np/km])
        pxsec(s,i) += 4.1907e-5 * ff * ( (TL * TSf) + (ff * TC) ) / vmr[i];
      }
  }
    }
  return;
}
//
// #################################################################################
 
void Standard_H2O_self_continuum (MatrixView        pxsec,
                                  const Numeric     Cin,
                                  const Numeric     xin,
                                  const String&     model,
                                  ConstVectorView   f_grid,
                                  ConstVectorView   abs_p,
                                  ConstVectorView   abs_t,
                                  ConstVectorView   vmr,
                                  const Verbosity& verbosity)
{
  CREATE_OUT3;
 
  // --------- STANDARD MODEL PARAMETERS ---------------------------------------------------
  // standard values for the Rosenkranz model (Radio Science, 33(4), 919, 1998):
  const Numeric Cs_PWR   = 1.796e-33;  //  [1/m / (Hz²*Pa²)]
  const Numeric xs_PWR   = 4.5;        //  [1]
  // standard values for the Cruz-Pol model (Radio Science, 33(5), 1319, 1998):
  const Numeric Cs_CP    = 1.851e-33;  //  [1/m / (Hz²*Pa²)]
  const Numeric xs_CP    = 7.5;        //  [1]
  // standard values for the MPM89 model (Int. J. Inf. and Millim. Waves, 10(6), 1989, 631):
  const Numeric Cs_MPM89 = 1.500e-33;  //  [1/m / (Hz²*Pa²)]
  const Numeric xs_MPM89 = 7.5;        //  [1]
  // standard values for the MPM87 model (Radio Science, 20(5), 1985, 1069):
  const Numeric Cs_MPM87 = 1.500e-33;  //  [1/m / (Hz²*Pa²)]
  const Numeric xs_MPM87 = 7.5;        //  [1]
  // ---------------------------------------------------------------------------------------
 
  // select the parameter set (!!model goes for values!!):
  Numeric C, x;
   if ( model == "Rosenkranz" )
     {
       C = Cs_PWR;
       x = xs_PWR;
     }
   else if ( model == "CruzPol" )
     {
       C = Cs_CP;
       x = xs_CP;
     }
   else if ( model == "MPM89" )
     {
       C = Cs_MPM89;
       x = xs_MPM89;
     }
   else if ( model == "MPM87" )
     {
       C = Cs_MPM87;
       x = xs_MPM87;
     }
   else if ( model == "user" )
     {
       C = Cin;
       x = xin;
     }
   else
     {
       ostringstream os;
       os << "H2O-SelfContStandardType: ERROR! Wrong model values given.\n"
    << "allowed models are: 'Rosenkranz', 'CruzPol', 'MPM89', 'MPM87', 'user'" << '\n';
       throw runtime_error(os.str());
     }
   out3  << "H2O-SelfContStandardType: (model=" << model << ") parameter values in use:\n"
         << " C_s = " << C << "\n"
         << " x_s = " << x << "\n";
 
 
 
  const Index n_p = abs_p.nelem();  // Number of pressure levels
  const Index n_f = f_grid.nelem();  // Number of frequencies
 
  // Check that dimensions of abs_p, abs_t, and vmr agree:
  assert ( n_p==abs_t.nelem() );
  assert ( n_p==vmr.nelem()   );
 
  // Check that dimensions of pxsec are consistent with n_f
  // and n_p. It should be [n_f,n_p]:
  assert ( n_f==pxsec.nrows() );
  assert ( n_p==pxsec.ncols() );
 
  // Loop over pressure/temperature grid:
  for ( Index i=0; i<n_p; ++i )
    {
      // Dummy scalar holds everything except the quadratic frequency dependence.
      // The second vmr of H2O will be multiplied at the stage of absorption
      // calculation: abs = vmr * pxsec.
      Numeric dummy =
  C * pow( (Numeric)300./abs_t[i], x+(Numeric)3. )
        * pow( abs_p[i], (Numeric)2. ) * vmr[i];
 
      // Loop over frequency grid:
      for ( Index s=0; s<n_f; ++s )
  {
    pxsec(s,i) += dummy * pow( f_grid[s], (Numeric)2. );
    //    cout << "pxsec(" << s << "," << i << "): " << pxsec(s,i) << "\n";
  }
    }
}
//
// #################################################################################
 
void Standard_H2O_foreign_continuum (MatrixView        pxsec,
                                     const Numeric     Cin,
                                     const Numeric     xin,
                                     const String&     model,
                                     ConstVectorView   f_grid,
                                     ConstVectorView   abs_p,
                                     ConstVectorView   abs_t,
                                     ConstVectorView   vmr,
                                     const Verbosity& verbosity)
{
  CREATE_OUT3;
 
  // --------- STANDARD MODEL PARAMETERS ---------------------------------------------------
  // standard values for the Rosenkranz model (Radio Science, 33(4), 919, 1998):
  const Numeric Cf_PWR   = 5.43e-35 ;  //  [1/m / (Hz²*Pa²)]
  const Numeric xf_PWR   = 0.0;        //  [1]
  // standard values for the Cruz-Pol model (Radio Science, 33(5), 1319, 1998):
  const Numeric Cf_CP    = 5.85e-35;  //  [1/m / (Hz²*Pa²)]
  const Numeric xf_CP    = 0.0;        //  [1]
  // standard values for the MPM89 model (Int. J. Inf. and Millim. Waves, 10(6), 1989, 631):
  const Numeric Cf_MPM89 = 4.74e-35;  //  [1/m / (Hz²*Pa²)]
  const Numeric xf_MPM89 = 0.0;        //  [1]
  // standard values for the MPM87 model (Radio Science, 20(5), 1985, 1069):
  const Numeric Cf_MPM87 = 4.74e-35;  //  [1/m / (Hz²*Pa²)]
  const Numeric xf_MPM87 = 0.0;        //  [1]
  // ---------------------------------------------------------------------------------------
 
 
  // select the parameter set (!!model goes for values!!):
  Numeric C, x;
   if ( model == "Rosenkranz" )
     {
       C = Cf_PWR;
       x = xf_PWR;
     }
   else if ( model == "CruzPol" )
     {
       C = Cf_CP;
       x = xf_CP;
     }
   else if ( model == "MPM89" )
     {
       C = Cf_MPM89;
       x = xf_MPM89;
     }
   else if ( model == "MPM87" )
     {
       C = Cf_MPM87;
       x = xf_MPM87;
     }
   else if ( model == "user" )
     {
       C = Cin;
       x = xin;
     }
   else
     {
       ostringstream os;
       os << "H2O-ForeignContStandardType: ERROR! Wrong model values given.\n"
    << "allowed models are: 'Rosenkranz', 'CruzPol', 'MPM89', 'MPM87', 'user'" << '\n';
       throw runtime_error(os.str());
     }
   out3  << "H2O-ForeignContStandardType: (model=" << model << ") parameter values in use:\n"
         << " C_s = " << C << "\n"
         << " x_s = " << x << "\n";
 
  const Index n_p = abs_p.nelem();  // Number of pressure levels
  const Index n_f = f_grid.nelem();  // Number of frequencies
 
  // Check that dimensions of abs_p, abs_t, and vmr agree:
  assert ( n_p==abs_t.nelem() );
  assert ( n_p==vmr.nelem()   );
 
  // Check that dimensions of pxsec are consistent with n_f
  // and n_p. It should be [n_f,n_p]:
  assert ( n_f==pxsec.nrows() );
  assert ( n_p==pxsec.ncols() );
 
  // Loop pressure/temperature:
  for ( Index i=0; i<n_p; ++i )
    {
      // Dry air partial pressure: p_dry := p_tot - p_h2o.
      Numeric pdry  = abs_p[i] * (1.000e0-vmr[i]);
      // Dummy scalar holds everything except the quadratic frequency dependence.
      // The vmr of H2O will be multiplied at the stage of absorption
      // calculation: abs = vmr * pxsec.
      Numeric dummy = C * pow( (Numeric)300./abs_t[i], x+(Numeric)3. )
        * abs_p[i] * pdry;
 
      // Loop frequency:
      for ( Index s=0; s<n_f; ++s )
  {
    pxsec(s,i) += dummy * pow( f_grid[s], (Numeric)2. );
    //    cout << "pxsec(" << s << "," << i << "): " << pxsec(s,i) << "\n";
  }
    }
}
//
//
// #################################################################################
 
void MaTipping_H2O_foreign_continuum (MatrixView        pxsec,
                                      const Numeric     Cin,
                                      const Numeric     xin,
                                      const String&     model,
                                      ConstVectorView   f_grid,
                                      ConstVectorView   abs_p,
                                      ConstVectorView   abs_t,
                                      ConstVectorView   vmr,
                                      const Verbosity& verbosity)
{
  CREATE_OUT3;
 
  // --------- STANDARD MODEL PARAMETERS ---------------------------------------------------
  // standard values for Q. Ma and R. H. Tipping, J. Chem. Phys., 117(23), 10581, 2002:
  // the Cf value is originally given in dB/km/kPa^2/GHz^2.0389. the conversion factor is
  // then 1.0283E-28 to get arts units. Additionally the Cf value is divided by 1.08 to
  // get the Cf for air.
  const Numeric Cf_MaTipping = 1.8590e-35;   //  [1/m / (Hz²*Pa²)]
  const Numeric xf_MaTipping = 4.6019;       //  [1]
  // ---------------------------------------------------------------------------------------
 
 
  // select the parameter set (!!model goes for values!!):
  Numeric C, x;
   if ( model == "MaTipping" )
     {
       C = Cf_MaTipping;
       x = xf_MaTipping;
     }
   else if ( model == "user" )
     {
       C = Cin;
       x = xin;
     }
   else
     {
       ostringstream os;
       os << "H2O-MaTipping_H2O_foreign_continuum: ERROR! Wrong model values given.\n"
    << "allowed models are: 'MaTipping', 'user'" << '\n';
       throw runtime_error(os.str());
     }
   out3  << "H2O-MaTipping_H2O_foreign_continuum: (model=" << model << ") parameter values in use:\n"
         << " C_s = " << C << "\n"
         << " x_s = " << x << "\n";
 
  const Index n_p = abs_p.nelem();  // Number of pressure levels
  const Index n_f = f_grid.nelem();  // Number of frequencies
 
  // Check that dimensions of abs_p, abs_t, and vmr agree:
  assert ( n_p==abs_t.nelem() );
  assert ( n_p==vmr.nelem()   );
 
  // Check that dimensions of pxsec are consistent with n_f
  // and n_p. It should be [n_f,n_p]:
  assert ( n_f==pxsec.nrows() );
  assert ( n_p==pxsec.ncols() );
 
  // Loop pressure/temperature:
  for ( Index i=0; i<n_p; ++i )
    {
      // Dry air partial pressure: p_dry := p_tot - p_h2o.
      Numeric pdry  = abs_p[i] * (1.000e0-vmr[i]);
      // Dummy scalar holds everything except the quadratic frequency dependence.
      // The vmr of H2O will be multiplied at the stage of absorption
      // calculation: abs = vmr * pxsec.
      Numeric dummy = C * pow( (Numeric)300./abs_t[i], x )
        * abs_p[i] * pdry;
 
      // Loop frequency:
      for ( Index s=0; s<n_f; ++s )
  {
    pxsec(s,i) += dummy * pow( f_grid[s], (Numeric)2.0389 );
    //    cout << "pxsec(" << s << "," << i << "): " << pxsec(s,i) << "\n";
  }
    }
}
//
// #################################################################################
 
 
 
// =================================================================================
 
 
Numeric XINT_FUN( const Numeric V1A,
                  const Numeric /* V2A */,
                  const Numeric DVA,
                  ConstVectorView A,
                  const Numeric VI)
{
 
// ----------------------------------------------------------------------
  //     THIS SUBROUTINE INTERPOLATES THE A ARRAY STORED
  //     FROM V1A TO V2A IN INCREMENTS OF DVA INTO XINT
// ----------------------------------------------------------------------
 
  const Numeric ONEPL  = 1.001;     // original value given in F77 code
  // FIXME const Numeric ONEMI  = 0.999;     // original value given in F77 code
 
  //const Numeric ONEPL  = 0.001;  // modified value for C/C++ code
 
  Numeric RECDVA = 1.00e0/DVA;
 
  int J      = (int) ((VI-V1A)*RECDVA + ONEPL) ;
  Numeric VJ = V1A + DVA * (Numeric)(J-1);
  Numeric P  = RECDVA * (VI-VJ);
  Numeric C  = (3.00e0-2.00e0*P) * P * P;
  Numeric B  = 0.500e0 * P * (1.00e0-P);
  Numeric B1 = B * (1.00e0-P);
  Numeric B2 = B * P;
 
  Numeric xint = -A[J-1] * B1             +
                  A[J]   * (1.00e0-C+B2)  +
                  A[J+1] * (C+B1)         -
                  A[J+2] * B2;
 
  /*
  cout << (J-1) << " <-> " << (J+2)
       << ",  V=" << VI << ", VJ=" << VJ << "\n";
  cout << "xint=" << xint  << " " << A[J-1] << " " << A[J] << " " << A[J+1] << " " << A[J+2] << "\n";
  */
 
  return xint;
}
 
Numeric XINT_FUN( const Numeric V1A,
                  const Numeric /* V2A */,
                  const Numeric DVA,
                  const Numeric A[],
                  const Numeric VI)
{
 
// ----------------------------------------------------------------------
  //     THIS SUBROUTINE INTERPOLATES THE A ARRAY STORED
  //     FROM V1A TO V2A IN INCREMENTS OF DVA INTO XINT
// ----------------------------------------------------------------------
 
  const Numeric ONEPL  = 1.001;     // original value given in F77 code
  // FIXME const Numeric ONEMI  = 0.999;     // original value given in F77 code
 
  //const Numeric ONEPL  = 0.001;  // modified value for C/C++ code
 
  Numeric RECDVA = 1.00e0/DVA;
 
  int J      = (int) ((VI-V1A)*RECDVA + ONEPL) ;
  Numeric VJ = V1A + DVA * (Numeric)(J-1);
  Numeric P  = RECDVA * (VI-VJ);
  Numeric C  = (3.00e0-2.00e0*P) * P * P;
  Numeric B  = 0.500e0 * P * (1.00e0-P);
  Numeric B1 = B * (1.00e0-P);
  Numeric B2 = B * P;
 
  Numeric xint = -A[J-1] * B1             +
                  A[J]   * (1.00e0-C+B2)  +
                  A[J+1] * (C+B1)         -
                  A[J+2] * B2;
 
  /*
  cout << (J-1) << " <-> " << (J+2)
       << ",  V=" << VI << ", VJ=" << VJ << "\n";
  cout << "xint=" << xint  << " " << A[J-1] << " " << A[J] << " " << A[J+1] << " " << A[J+2] << "\n";
  */
 
  return xint;
}
 
// =================================================================================
 
Numeric RADFN_FUN (const Numeric VI,
       const Numeric XKT)
{
// ---------------------------------------------------------------------- B18060
//              LAST MODIFICATION:    12 AUGUST 1991                      B17940
//                                                                        B17950
//                 IMPLEMENTATION:    R.D. WORSHAM                        B17960
//                                                                        B17970
//            ALGORITHM REVISIONS:    S.A. CLOUGH                         B17980
//                                    R.D. WORSHAM                        B17990
//                                    J.L. MONCET                         B18000
//                                                                        B18010
//                                                                        B18020
//                    ATMOSPHERIC AND ENVIRONMENTAL RESEARCH INC.         B18030
//                    840 MEMORIAL DRIVE,  CAMBRIDGE, MA   02139          B18040
//                                                                        B18050
//                                                                        B18070
//              WORK SUPPORTED BY:    THE ARM PROGRAM                     B18080
//                                    OFFICE OF ENERGY RESEARCH           B18090
//                                    DEPARTMENT OF ENERGY                B18100
//                                                                        B18110
//                                                                        B18120
//     SOURCE OF ORIGINAL ROUTINE:    AFGL LINE-BY-LINE MODEL             B18130
//                                                                        B18140
//                                            FASCOD3                     B18150
//                                                                        B18160
// ---------------------------------------------------------------------- B18060
//                                                                        B18170
//  IN THE SMALL XVIOKT REGION 0.5 IS REQUIRED
 
  Numeric XVI   = VI;
  Numeric RADFN = 0.00e0;
 
  if (XKT > 0.0)
    {
      Numeric XVIOKT = XVI/XKT;
 
      if (XVIOKT <= 0.01e0)
  {
    RADFN = 0.500e0 * XVIOKT * XVI;
  }
      else if (XVIOKT <= 10.0e0)
  {
    Numeric EXPVKT = exp(-XVIOKT);
    RADFN = XVI * (1.00e0-EXPVKT) / (1.00e0+EXPVKT);
  }
      else
  {
    RADFN = XVI;
  }
    }
  else
    {
      RADFN = XVI;
    }
 
  return RADFN;
}
 
// =================================================================================
 
 
void CKD_222_self_h2o (MatrixView          pxsec,
                       const Numeric       Cin,
                       const String&       model,
                       ConstVectorView     f_grid,
                       ConstVectorView     abs_p,
                       ConstVectorView     abs_t,
                       ConstVectorView     vmr,
                       const Verbosity& verbosity)
{
  CREATE_OUT3;
 
  // check the model name about consistency
  if ((model != "user") &&  (model != "CKD222"))
    {
      ostringstream os;
      os << "!!ERROR!!\n"
   << "CKDv2.2.2 H2O self continuum:\n"
   << "INPUT model name is: " << model << ".\n"
   << "VALID model names are user and CKD222\n";
      throw runtime_error(os.str());
    }
 
 
  // scaling factor of the self H2O cont. absorption
  Numeric  ScalingFac = 1.0000e0;
  if ( model == "user" )
    {
      ScalingFac = Cin; // input scaling factor of calculated absorption
    }
 
 
  const Index n_p = abs_p.nelem();  // Number of pressure levels
  const Index n_f = f_grid.nelem();  // Number of frequencies
 
 
  // Check that dimensions of abs_p, abs_t, and vmr agree:
  assert ( n_p==abs_t.nelem() );
  assert ( n_p==vmr.nelem()   );
 
  // Check that dimensions of pxsec are consistent with n_f
  // and n_p. It should be [n_f,n_p]:
  assert ( n_f==pxsec.nrows() );
  assert ( n_p==pxsec.ncols() );
 
 
  // ************************** CKD stuff ************************************
 
  const Numeric xLosmt   = 2.686763e19; // [molecules/cm^3]
  // FIXME const Numeric T1       =  273.0e0;
  const Numeric TO       =  296.0e0;
  const Numeric PO       = 1013.0e0;
 
  // CKD2.2.2 specific self continuum correction function parameters
  const Numeric ALPHA2 = 200.000 * 200.000;
  const Numeric ALPHS2 = 120.000 * 120.000;
  const Numeric BETAS  = 5.000e-06;
  const Numeric V0S    = 1310.000;
  const Numeric FACTRS = 0.150;
 
  // These are self-continuum modification factors from 700-1200 cm-1
  const Numeric XFAC[51] = {
    1.00000,1.01792,1.03767,1.05749,1.07730,1.09708,
    1.10489,1.11268,1.12047,1.12822,1.13597,1.14367,
    1.15135,1.15904,1.16669,1.17431,1.18786,1.20134,
    1.21479,1.22821,1.24158,1.26580,1.28991,1.28295,
    1.27600,1.26896,1.25550,1.24213,1.22879,1.21560,
    1.20230,1.18162,1.16112,1.14063,1.12016,1.10195,
    1.09207,1.08622,1.08105,1.07765,1.07398,1.06620,
    1.05791,1.04905,1.03976,1.02981,1.00985,1.00000,
    1.00000,1.00000,1.00000};
 
  // wavenumber range where CKD H2O self continuum is valid
  const Numeric VABS_min = SL260_ckd_0_v1; // [cm^-1]
  const Numeric VABS_max = SL260_ckd_0_v2; // [cm^-1]
 
 
  // It is assumed here that f_grid is monotonically increasing with index!
  // In future change this return into a change of the loop over
  // the frequency f_grid. n_f_new < n_f
  Numeric V1ABS = f_grid[0]     / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
  Numeric V2ABS = f_grid[n_f-1] / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
  if ( (V1ABS < VABS_min) || (V1ABS > VABS_max) ||
       (V2ABS < VABS_min) || (V2ABS > VABS_max) )
    {
      out3  << "WARNING:\n"
            << "  CKD2.2.2 H2O self continuum:\n"
      << "  input frequency vector exceeds range of model validity\n"
      << "  " << SL296_ckd_0_v1 << "<->" << SL296_ckd_0_v2 << "cm^-1\n";
    }
 
 
  // ------------------- subroutine SL296/SL260 ----------------------------
 
  if (SL296_ckd_0_v1 != SL260_ckd_0_v1)
    {
      ostringstream os;
      os << "!!ERROR!!\n"
   << "CKD2.2.2 H2O self continuum:\n"
   << "parameter V1 not the same for different ref. temperatures.\n";
      throw runtime_error(os.str());
    }
  if (SL296_ckd_0_v2 != SL260_ckd_0_v2)
    {
      ostringstream os;
      os << "!!ERROR!!\n"
   << "CKD2.2.2 H2O self continuum:\n"
   << "parameter V2 not the same for different ref. temperatures.\n";
  throw runtime_error(os.str());
    }
  if (SL296_ckd_0_dv != SL260_ckd_0_dv)
    {
      ostringstream os;
      os << "!!ERROR!!\n"
   << "CKD2.2.2 H2O self continuum:\n"
   << "parameter DV not the same for different ref. temperatures.\n";
      throw runtime_error(os.str());
    }
  if (SL296_ckd_0_npt != SL260_ckd_0_npt)
    {
      ostringstream os;
      os << "!!ERROR!!\n"
   << "CKD2.2.2 H2O self continuum:\n"
   << "parameter NPT not the same for different ref. temperatures.\n";
      throw runtime_error(os.str());
    }
 
  // retrieve the appropriate array sequence of the self continuum
  // arrays of the CKD model.
  Numeric DVC = SL296_ckd_0_dv;
  Numeric V1C = V1ABS - DVC;
  Numeric V2C = V2ABS + DVC;
 
  int I1 = (int) ((V1C-SL296_ckd_0_v1) / SL296_ckd_0_dv);
  if (V1C < SL296_ckd_0_v1) I1 = -1;
  V1C = SL296_ckd_0_v1 + (SL296_ckd_0_dv * (Numeric)I1);
 
  int I2 = (int) ((V2C-SL296_ckd_0_v1) / SL296_ckd_0_dv);
 
  int NPTC = I2-I1+3;
  if (NPTC > SL296_ckd_0_npt) NPTC = SL296_ckd_0_npt+1;
 
  V2C = V1C + SL296_ckd_0_dv * (Numeric)(NPTC-1);
 
  if (NPTC < 1)
    {
      out3 << "WARNING:\n"
     << "  CKD2.2.2 H2O self continuum:\n"
     << "  no elements of internal continuum coefficients could be found for the\n"
     << "  input frequency range.\n"
     << "  Leave the function without calculating the absorption.";
      return;
    }
 
  Numeric SH2OT0[NPTC+addF77fields]; // [cm^3/molecules]
  Numeric SH2OT1[NPTC+addF77fields]; // [cm^3/molecules]
 
  for (Index J = 1 ; J <= NPTC ; ++J)
    {
      Index I = I1+J;
      if ( (I < 1) || (I > SL296_ckd_0_npt) )
  {
    SH2OT0[J] = 0.0e0;   // at T=296 K
    SH2OT1[J] = 0.0e0;   // at T=260 K
  }
      else
  {
    SH2OT0[J] = SL296_ckd_0[I];    // at T=296 K
    SH2OT1[J] = SL260_ckd_0[I];    // at T=260 K
  }
    }
 
  // ------------------- subroutine SL296/SL260 ----------------------------
 
  Numeric SFAC = 1.00e0;
  Numeric VS2  = 0.00e0;
  // FIXME Numeric VS4  = 0.00e0;
 
  // Loop pressure/temperature:
  for ( Index i = 0 ; i < n_p ; ++i )
    {
 
      // atmospheric state parameters
      Numeric Tave   = abs_t[i];                                     // [K]
      Numeric Pave   = (abs_p[i]*1.000e-2);                          // [hPa]
      Numeric Patm   = Pave/PO;                                      // [1]
      Numeric vmrh2o = vmr[i];                                       // [1]
      // FIXME Numeric Ph2o   = Patm * vmrh2o;                                // [1]
      // second vmr in abs_coefCalc multiplied
      Numeric Rh2o   = Patm * (TO/Tave);                             // [1]
      Numeric Tfac   = (Tave-TO)/(260.0-TO);                         // [1]
      Numeric WTOT   = xLosmt * (Pave/1.013000e3) * (2.7300e2/Tave); // [molecules/cm^2]
      Numeric W1     = vmrh2o * WTOT;                                // [molecules/cm^2]
      Numeric XKT    = Tave / 1.4387752e0;                           // = (T*k_B)/(h*c)
 
      // Molecular cross section calculated by CKD.
      // The cross sectionis calculated on the predefined
      // CKD wavenumber grid.
      Numeric k[NPTC+addF77fields]; // [1/cm]
      k[0] = 0.00e0; // not used array field
      for (Index J = 1 ; J <= NPTC ; ++J)
  {
    Numeric VJ   = V1C + (DVC * (Numeric)(J-1));
    Numeric SH2O = 0.0e0;
    if (SH2OT0[J] > 0.0e0)
      {
        SH2O = SH2OT0[J] * pow( (SH2OT1[J]/SH2OT0[J]), Tfac );
        SFAC = 1.00e0;
 
        if ( (VJ >= 700.0e0) && (VJ <= 1200.0e0) )
    {
      int JFAC = (int)((VJ - 700.0e0)/10.0e0 + 0.00001e0);
      if ( (JFAC >= 0) && (JFAC <= 50) )
        SFAC = XFAC[JFAC];
    }
 
        // ---------------------------------------------------------
        // Correction to self continuum (1 SEPT 85); factor of
        // 0.78 at 1000 and  .......
 
        VS2  = (VJ-V0S) * (VJ-V0S);
 
        SFAC = SFAC *
    ( 1.000e0 + 0.3000e0 * (1.000e4 / ((VJ*VJ)                         + 1.000e4))  ) *
    ( 1.000e0 - 0.2333e0 * (ALPHA2  / ((VJ-1050.000e0)*(VJ-1050.000e0) + ALPHA2))   ) *
    ( 1.000e0 - FACTRS   * (ALPHS2  / (VS2+(BETAS*VS2*VS2)+ALPHS2))                 );
 
        SH2O = SFAC * SH2O;
      }
 
    // CKD cross section with radiative field [1/cm]
    // the VMRH2O will be multiplied in abs_coefCalc, hence Rh2o does not contain
    // VMRH2O as multiplicative term
    k[J] = W1 * Rh2o * (SH2O*1.000e-20) * RADFN_FUN(VJ,XKT); // [1]
 
  }
 
 
      // Loop input frequency array. The previously calculated cross section
      // has therefore to be interpolated on the input frequencies.
      for ( Index s = 0 ; s < n_f ; ++s )
  {
    // calculate the associated wave number (= 1/wavelength)
    Numeric V = f_grid[s] / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
    if ( (V >= 0.000e0) && (V < SL296_ckd_0_v2) )
      {
        // arts cross section [1/m]
        // interpolate the k vector on the f_grid grid
        // The factor 100 comes from the conversion from 1/cm to 1/m for
        // the absorption coefficient
        pxsec(s,i) +=  ScalingFac * 1.000e2 * XINT_FUN(V1C,V2C,DVC,k,V);
      }
  }
    }
 
}
 
 
 
// =================================================================================
 
 
void CKD_222_foreign_h2o (MatrixView          pxsec,
                          const Numeric       Cin,
                          const String&       model,
                          ConstVectorView     f_grid,
                          ConstVectorView     abs_p,
                          ConstVectorView     abs_t,
                          ConstVectorView     vmr,
                          const Verbosity& verbosity)
{
  CREATE_OUT3;
 
  // check the model name about consistency
  if ((model != "user") &&  (model != "CKD222"))
    {
      ostringstream os;
      os << "!!ERROR!!\n"
   << "CKDv2.2.2 H2O foreign continuum:\n"
   << "INPUT model name is: " << model << ".\n"
   << "VALID model names are user and CKD222\n";
      throw runtime_error(os.str());
    }
 
 
  // scaling factor of the foreign H2O cont. absorption
  Numeric  ScalingFac = 1.0000e0;
  if ( model == "user" )
    {
      ScalingFac = Cin; // input scaling factor of calculated absorption
    }
 
 
  const Index n_p = abs_p.nelem();  // Number of pressure levels
  const Index n_f = f_grid.nelem();  // Number of frequencies
 
 
  // Check that dimensions of abs_p, abs_t, and vmr agree:
  assert ( n_p==abs_t.nelem() );
  assert ( n_p==vmr.nelem()   );
 
  // Check that dimensions of pxsec are consistent with n_f
  // and n_p. It should be [n_f,n_p]:
  assert ( n_f==pxsec.nrows() );
  assert ( n_p==pxsec.ncols() );
 
 
  // ************************** CKD stuff ************************************
 
  const Numeric xLosmt = 2.686763e19; // [molecules/cm^3]
  const Numeric T1     =  273.000e0;
  const Numeric TO     =  296.000e0;
  const Numeric PO     = 1013.000e0;
 
  // CKD2.2.2 foreign H2O continuum correction function parameters
  const Numeric HWSQF  = 330.000e0 * 330.000e0;
  const Numeric BETAF  = 8.000e-11;
  const Numeric V0F    = 1130.000e0;
  const Numeric FACTRF = 0.970e0;
 
  const Numeric V0F2   = 1900.000e0;
  const Numeric HWSQF2 = 150.000e0 * 150.000e0;
  const Numeric BETA2  = 3.000e-6;
 
  // wavenumber range where CKD H2O foreign continuum is valid
  const Numeric VABS_min = FH2O_ckd_0_v1; // [cm^-1]
  const Numeric VABS_max = FH2O_ckd_0_v2; // [cm^-1]
 
  // It is assumed here that f_grid is monotonically increasing with index!
  // In future change this return into a change of the loop over
  // the frequency f_grid. n_f_new < n_f
  Numeric V1ABS = f_grid[0]     / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
  Numeric V2ABS = f_grid[n_f-1] / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
  if ( (V1ABS < VABS_min) || (V1ABS > VABS_max) ||
       (V2ABS < VABS_min) || (V2ABS > VABS_max) )
    {
      out3  << "WARNING:\n"
            << "  CKD2.2.2 H2O foreign continuum:\n"
      << "  input frequency vector exceeds range of model validity\n"
      << "  " << FH2O_ckd_0_v1 << "<->" << FH2O_ckd_0_v2 << "cm^-1\n";
    }
 
 
  // ---------------------- subroutine FRN296 ------------------------------
 
  // retrieve the appropriate array sequence of the foreign continuum
  // arrays of the CKD model.
  Numeric DVC = FH2O_ckd_0_dv;
  Numeric V1C = V1ABS - DVC;
  Numeric V2C = V2ABS + DVC;
 
  int I1 = (int) ((V1C-FH2O_ckd_0_v1) / FH2O_ckd_0_dv);
  if (V1C < FH2O_ckd_0_v1) I1 = -1;
  V1C = FH2O_ckd_0_v1 + (FH2O_ckd_0_dv * (Numeric)I1);
 
  int I2 = (int) ((V2C-FH2O_ckd_0_v1) / FH2O_ckd_0_dv);
 
  int NPTC = I2-I1+3;
  if (NPTC > FH2O_ckd_0_npt) NPTC = FH2O_ckd_0_npt+1;
 
  V2C = V1C + FH2O_ckd_0_dv * (Numeric)(NPTC-1);
 
  if (NPTC < 1)
    {
      out3 << "WARNING:\n"
     << "  CKD2.2.2 H2O foreign continuum:\n"
     << "  no elements of internal continuum coefficients could be found for the\n"
     << "  input frequency range.\n"
     << "  Leave the function without calculating the absorption.";
      return;
    }
 
  Numeric FH2OT0[NPTC+addF77fields]; // [cm^3/molecules]
 
  for (Index J = 1 ; J <= NPTC ; ++J)
    {
      Index I = I1+J;
      if ( (I < 1) || (I > FH2O_ckd_0_npt) )
  {
    FH2OT0[J] = 0.0e0;
  }
      else
  {
    FH2OT0[J] = FH2O_ckd_0[I];
  }
    }
 
  // ---------------------- subroutine FRN296 ------------------------------
 
  Numeric VF2   = 0.000e0;
  Numeric VF4   = 0.000e0;
  Numeric VF6   = 0.000e0;
  Numeric FSCAL = 0.000e0;
  Numeric FH2O  = 0.000e0;
 
  // Loop pressure/temperature:
  for ( Index i = 0 ; i < n_p ; ++i )
    {
 
      // atmospheric state parameters
      Numeric Tave   = abs_t[i];                               // [K]
      Numeric Pave   = (abs_p[i]*1.000e-2);                    // [hPa]
      Numeric vmrh2o = vmr[i];                                 // [1]
      // FIXME Numeric ph2o   = vmrh2o * Pave;                          // [hPa]
      Numeric PFRGN  = (Pave/PO) * (1.00000e0 - vmrh2o);       // dry air pressure [hPa]
      Numeric RFRGN  = PFRGN  * (TO/Tave);                     // [hPa]
      Numeric WTOT   = xLosmt * (Pave/PO) * (T1/Tave);         // [molecules/cm^2]
      // FIXME Numeric W1     = vmrh2o * WTOT;                          // [molecules/cm^2]
      Numeric XKT    = Tave   / 1.4387752;                     // = (T*k_B) / (h*c)
 
      // Molecular cross section calculated by CKD.
      // The cross sectionis calculated on the predefined
      // CKD wavenumber grid.
      Numeric k[NPTC+addF77fields]; // [1/cm]
      k[0] = 0.00e0; // not used array field
      for (Index J = 1 ; J <= NPTC ; ++J)
  {
    Numeric VJ = V1C + (DVC * (Numeric)(J-1));
 
    // CORRECTION TO FOREIGN CONTINUUM
    VF2   = (VJ-V0F)  * (VJ-V0F);
    VF6   = VF2 * VF2 * VF2;
    FSCAL = (1.000e0 - FACTRF*(HWSQF/(VF2+(BETAF*VF6)+HWSQF)));
 
    VF2   = (VJ-V0F2) * (VJ-V0F2);
    VF4   = VF2 * VF2;
    FSCAL = FSCAL * (1.000e0 - 0.600e0*(HWSQF2/(VF2 + BETA2*VF4 + HWSQF2)));
 
    FH2O  = FH2OT0[J] * FSCAL;
 
    // CKD cross section with radiative field [1/cm]
    // The VMRH2O will be multiplied in abs_coefCalc, hence WTOT and not W1
    // as multiplicative term
    k[J] = WTOT * RFRGN * (FH2O*1.000e-20) * RADFN_FUN(VJ,XKT);
 
  }
 
 
      // Loop input frequency array. The previously calculated cross section
      // has therefore to be interpolated on the input frequencies.
      for ( Index s = 0 ; s < n_f ; ++s )
  {
    // calculate the associated wave number (= 1/wavelength)
    Numeric V = f_grid[s] / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
    if ( (V > 0.000e0) && (V < VABS_max) )
      {
        // arts CKD2.2.2 foreign H2O continuum cross section [1/m]
        // interpolate the k vector on the f_grid grid
        // The factor 100 comes from the conversion from (1/cm) to (1/m)
        // of the abs. coeff.
        pxsec(s,i) +=  ScalingFac * 1.000e2 * XINT_FUN(V1C,V2C,DVC,k,V);
      }
  }
    }
 
}
 
 
// =================================================================================
 
 
void CKD_242_self_h2o (MatrixView          pxsec,
                       const Numeric       Cin,
                       const String&       model,
                       ConstVectorView     f_grid,
                       ConstVectorView     abs_p,
                       ConstVectorView     abs_t,
                       ConstVectorView     vmr,
                       const Verbosity& verbosity)
{
  CREATE_OUT3;
 
  // check the model name about consistency
  if ((model != "user") &&  (model != "CKD242"))
    {
      ostringstream os;
      os << "!!ERROR!!\n"
   << "CKDv2.4.2 H2O self continuum:\n"
   << "INPUT model name is: " << model << ".\n"
   << "VALID model names are user and CKD242\n";
      throw runtime_error(os.str());
    }
 
 
  // scaling factor of the self H2O cont. absorption
  Numeric  ScalingFac = 1.0000e0;
  if ( model == "user" )
    {
      ScalingFac = Cin; // input scaling factor of calculated absorption
    }
 
 
  const Index n_p = abs_p.nelem();  // Number of pressure levels
  const Index n_f = f_grid.nelem();  // Number of frequencies
 
 
  // Check that dimensions of abs_p, abs_t, and vmr agree:
  assert ( n_p==abs_t.nelem() );
  assert ( n_p==vmr.nelem()   );
 
  // Check that dimensions of pxsec are consistent with n_f
  // and n_p. It should be [n_f,n_p]:
  assert ( n_f==pxsec.nrows() );
  assert ( n_p==pxsec.ncols() );
 
 
  // ************************** CKD stuff ************************************
 
  const Numeric xLosmt   = 2.686763e19; // [molecules/cm^3]
  // FIXME const Numeric T1       =  273.0e0;
  const Numeric TO       =  296.0e0;
  const Numeric PO       = 1013.0e0;
 
  // CKD2.4.2 specific correction functions
  const Numeric V0S1     = 0.000e+00;
  const Numeric HWSQ1    = (1.000e+02 * 1.000e+02);
  const Numeric BETAS1   = 1.000e-04;
  const Numeric FACTRS1  = 0.688e+00;
 
  const Numeric V0S2     = 1.050e+03;
  const Numeric HWSQ2    = (2.000e+02 * 2.000e+02);
  const Numeric FACTRS2  = -0.2333e+00;
 
  const Numeric V0S3     = 1.310e+03;
  const Numeric HWSQ3    = (1.200e+02 * 1.200e+02);
  const Numeric BETAS3   = 5.000e-06;
  const Numeric FACTRS3  = -0.150e+00;
 
  const Numeric XFAC[51] = {
    1.00000,1.01792,1.03767,1.05749,1.07730,1.09708,
    1.10489,1.11268,1.12047,1.12822,1.13597,1.14367,
    1.15135,1.15904,1.16669,1.17431,1.18786,1.20134,
    1.21479,1.22821,1.24158,1.26580,1.28991,1.28295,
    1.27600,1.26896,1.25550,1.24213,1.22879,1.21560,
    1.20230,1.18162,1.16112,1.14063,1.12016,1.10195,
    1.09207,1.08622,1.08105,1.07765,1.07398,1.06620,
    1.05791,1.04905,1.03976,1.02981,1.00985,1.00000,
    1.00000,1.00000,1.00000};
 
  // wavenumber range where CKD H2O self continuum is valid
  const Numeric VABS_min = SL260_ckd_0_v1; // [cm^-1]
  const Numeric VABS_max = SL260_ckd_0_v2; // [cm^-1]
 
 
  // It is assumed here that f_grid is monotonically increasing with index!
  // In future change this return into a change of the loop over
  // the frequency f_grid. n_f_new < n_f
  Numeric V1ABS = f_grid[0]     / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
  Numeric V2ABS = f_grid[n_f-1] / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
  if ( (V1ABS < VABS_min) || (V1ABS > VABS_max) ||
       (V2ABS < VABS_min) || (V2ABS > VABS_max) )
    {
      out3  << "WARNING:\n"
            << "  CKD2.4.2 H2O self continuum:\n"
      << "  input frequency vector exceeds range of model validity\n"
      << "  " << SL296_ckd_0_v1 << "<->" << SL296_ckd_0_v2 << "cm^-1\n";
    }
 
 
  // ------------------- subroutine SL296/SL260 ----------------------------
 
  if (SL296_ckd_0_v1 != SL260_ckd_0_v1)
    {
      ostringstream os;
      os << "!!ERROR!!\n"
   << "CKD2.4.2 H2O self continuum:\n"
   << "parameter V1 not the same for different ref. temperatures.\n";
      throw runtime_error(os.str());
    }
  if (SL296_ckd_0_v2 != SL260_ckd_0_v2)
    {
      ostringstream os;
      os << "!!ERROR!!\n"
   << "CKD2.4.2 H2O self continuum:\n"
   << "parameter V2 not the same for different ref. temperatures.\n";
  throw runtime_error(os.str());
    }
  if (SL296_ckd_0_dv != SL260_ckd_0_dv)
    {
      ostringstream os;
      os << "!!ERROR!!\n"
   << "CKD2.4.2 H2O self continuum:\n"
   << "parameter DV not the same for different ref. temperatures.\n";
      throw runtime_error(os.str());
    }
  if (SL296_ckd_0_npt != SL260_ckd_0_npt)
    {
      ostringstream os;
      os << "!!ERROR!!\n"
   << "CKD2.4.2 H2O self continuum:\n"
   << "parameter NPT not the same for different ref. temperatures.\n";
      throw runtime_error(os.str());
    }
 
  // retrieve the appropriate array sequence of the self continuum
  // arrays of the CKD model.
  Numeric DVC = SL296_ckd_0_dv;
  Numeric V1C = V1ABS - DVC;
  Numeric V2C = V2ABS + DVC;
 
  int I1 = (int) ((V1C-SL296_ckd_0_v1) / SL296_ckd_0_dv);
  if (V1C < SL296_ckd_0_v1) I1 = -1;
  V1C = SL296_ckd_0_v1 + (SL296_ckd_0_dv * (Numeric)I1);
 
  int I2 = (int) ((V2C-SL296_ckd_0_v1) / SL296_ckd_0_dv);
 
  int NPTC = I2-I1+3;
  if (NPTC > SL296_ckd_0_npt) NPTC = SL296_ckd_0_npt+1;
 
  V2C = V1C + SL296_ckd_0_dv * (Numeric)(NPTC-1);
 
  if (NPTC < 1)
    {
      out3 << "WARNING:\n"
     << "  CKDv2.4.2 H2O self continuum:\n"
     << "  no elements of internal continuum coefficients could be found for the\n"
     << "  input frequency range.\n"
     << "  Leave the function without calculating the absorption.";
      return;
    }
 
  Numeric SH2OT0[NPTC+addF77fields]; // [cm^3/molecules]
  Numeric SH2OT1[NPTC+addF77fields]; // [cm^3/molecules]
 
  for (Index J = 1 ; J <= NPTC ; ++J)
    {
      Index I = I1+J;
      if ( (I < 1) || (I > SL296_ckd_0_npt) )
  {
    SH2OT0[J] = 0.0e0;   // at T=296 K
    SH2OT1[J] = 0.0e0;   // at T=260 K
  }
      else
  {
    SH2OT0[J] = SL296_ckd_0[I];    // at T=296 K
    SH2OT1[J] = SL260_ckd_0[I];    // at T=260 K
  }
    }
 
  // ------------------- subroutine SL296/SL260 ----------------------------
 
  Numeric SFAC = 1.00e0;
  Numeric VS2  = 0.00e0;
  Numeric VS4  = 0.00e0;
 
  // Loop pressure/temperature:
  for ( Index i = 0 ; i < n_p ; ++i )
    {
 
      // atmospheric state parameters
      Numeric Tave   = abs_t[i];                                     // [K]
      Numeric Pave   = (abs_p[i]*1.000e-2);                          // [hPa]
      Numeric Patm   = Pave/PO;                                      // [1]
      Numeric vmrh2o = vmr[i];                                       // [1]
      // FIXME Numeric Ph2o   = Patm * vmrh2o;                                // [1]
      // second vmr in abs_coefCalc multiplied
      Numeric Rh2o   = Patm * (TO/Tave);                             // [1]
      Numeric Tfac   = (Tave-TO)/(260.0-TO);                         // [1]
      Numeric WTOT   = xLosmt * (Pave/1.013000e3) * (2.7300e2/Tave); // [molecules/cm^2]
      Numeric W1     = vmrh2o * WTOT;                                // [molecules/cm^2]
      Numeric XKT    = Tave / 1.4387752e0;                           // = (T*k_B)/(h*c)
 
      // Molecular cross section calculated by CKD.
      // The cross sectionis calculated on the predefined
      // CKD wavenumber grid.
      Numeric k[NPTC+addF77fields]; // [1/cm]
      k[0] = 0.00e0; // not used array field
      for (Index J = 1 ; J <= NPTC ; ++J)
  {
    Numeric VJ   = V1C + (DVC * (Numeric)(J-1));
    Numeric SH2O = 0.0e0;
    if (SH2OT0[J] > 0.0e0)
      {
        SH2O = SH2OT0[J] * pow( (SH2OT1[J]/SH2OT0[J]), Tfac );
        SFAC = 1.00e0;
 
        if ( (VJ >= 700.0e0) && (VJ <= 1200.0e0) )
    {
      int JFAC = (int)((VJ - 700.0e0)/10.0e0 + 0.00001e0);
      if ( (JFAC >= 0) && (JFAC <= 50) )
        SFAC = XFAC[JFAC];
    }
 
        // ---------------------------------------------------------
        // Correction to self continuum (1 SEPT 85); factor of
        // 0.78 at 1000 and  .......
 
        VS2  = (VJ-V0S1) * (VJ-V0S1);
        VS4  = VS2*VS2;
        SFAC = SFAC *
    (1.000e0 + FACTRS1*(HWSQ1/((VJ*VJ)+(BETAS1*VS4)+HWSQ1)));
 
        VS2  = (VJ-V0S2) * (VJ-V0S2);
        SFAC = SFAC *
    (1.000e0 + FACTRS2*(HWSQ2/(VS2+HWSQ2)));
 
        VS2  = (VJ-V0S3) * (VJ-V0S3);
        VS4  = VS2*VS2;
        SFAC = SFAC *
    (1.000e0 + FACTRS3*(HWSQ3/(VS2+(BETAS3*VS4)+HWSQ3)));
 
        SH2O = SFAC * SH2O;
      }
 
    // CKD cross section with radiative field [1/cm]
    // The VMRH2O will be multiplied in abs_coefCalc, hence Rh2o does not contain
    // VMRH2O as multiplicative term
    k[J] = W1 * Rh2o * (SH2O*1.000e-20) * RADFN_FUN(VJ,XKT);
 
  }
 
 
      // Loop input frequency array. The previously calculated cross section
      // has therefore to be interpolated on the input frequencies.
      for ( Index s = 0 ; s < n_f ; ++s )
  {
    // calculate the associated wave number (= 1/wavelength)
    Numeric V = f_grid[s] / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
    if ( (V >= 0.000e0) && (V < SL296_ckd_0_v2) )
      {
        // arts cross section [1/m]
        // interpolate the k vector on the f_grid grid
        // The factor 100 comes from the conversion from 1/cm to 1/m for
        // the absorption coefficient
        pxsec(s,i) +=  ScalingFac * 1.000e2 * XINT_FUN(V1C,V2C,DVC,k,V);
      }
  }
    }
 
}
 
 
// =================================================================================
 
 
void CKD_242_foreign_h2o (MatrixView          pxsec,
                          const Numeric       Cin,
                          const String&       model,
                          ConstVectorView     f_grid,
                          ConstVectorView     abs_p,
                          ConstVectorView     abs_t,
                          ConstVectorView     vmr,
                          const Verbosity& verbosity)
{
  CREATE_OUT3;
 
  // check the model name about consistency
  if ((model != "user") &&  (model != "CKD242"))
    {
      ostringstream os;
      os << "!!ERROR!!\n"
   << "CKDv2.4.2 H2O foreign continuum:\n"
   << "INPUT model name is: " << model << ".\n"
   << "VALID model names are user and CKD242\n";
      throw runtime_error(os.str());
    }
 
 
  // scaling factor of the foreign H2O cont. absorption
  Numeric  ScalingFac = 1.0000e0;
  if ( model == "user" )
    {
      ScalingFac = Cin; // input scaling factor of calculated absorption
    }
 
 
  const Index n_p = abs_p.nelem();  // Number of pressure levels
  const Index n_f = f_grid.nelem();  // Number of frequencies
 
  // Check that dimensions of abs_p, abs_t, and vmr agree:
  assert ( n_p==abs_t.nelem() );
  assert ( n_p==vmr.nelem()   );
 
  // Check that dimensions of pxsec are consistent with n_f
  // and n_p. It should be [n_f,n_p]:
  assert ( n_f==pxsec.nrows() );
  assert ( n_p==pxsec.ncols() );
 
 
  // ************************** CKD stuff ************************************
 
  const Numeric xLosmt = 2.686763e19; // [molecules/cm^3]
  const Numeric T1     =  273.0e0;
  const Numeric TO     =  296.0e0;
  const Numeric PO     = 1013.0e0;
 
  // CKD2.4.2 foreign H2O continuum correction function parameters
  const Numeric V0F1     = 350.000e0;
  const Numeric HWSQF1   = 200.000e0 * 200.000e0;
  const Numeric BETAF1   = 5.000e-9 ;
  const Numeric FACTRF1  = -0.700e0;
 
  const Numeric V0F1a    = 630.000e0;
  const Numeric HWSQF1a  = 65.000e0*65.000e0;
  const Numeric BETAF1a  = 2.000e-08 ;
  const Numeric FACTRF1a = 0.750e0;
 
  const Numeric V0F2     = 1130.000e0;
  const Numeric HWSQF2   = 330.000e0 * 330.000e0;
  const Numeric BETAF2   = 8.000e-11;
  const Numeric FACTRF2  = -0.970e0;
 
  const Numeric V0F3     = 1975.000e0;
  const Numeric HWSQF3   = 250.000e0 * 250.000e0;
  const Numeric BETAF3   = 5.000e-06;
  const Numeric FACTRF3  = -0.650e0;
 
  // wavenumber range where CKD H2O foreign continuum is valid
  const Numeric VABS_min = FH2O_ckd_0_v1; // [cm^-1]
  const Numeric VABS_max = FH2O_ckd_0_v2; // [cm^-1]
 
 
  // It is assumed here that f_grid is monotonically increasing with index!
  // In future change this return into a change of the loop over
  // the frequency f_grid. n_f_new < n_f
  Numeric V1ABS = f_grid[0]     / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
  Numeric V2ABS = f_grid[n_f-1] / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
  if ( (V1ABS < VABS_min) || (V1ABS > VABS_max) ||
       (V2ABS < VABS_min) || (V2ABS > VABS_max) )
    {
      out3  << "WARNING:\n"
            << "  CKDv2.4.2 H2O foreign continuum:\n"
      << "  input frequency vector exceeds range of model validity\n"
      << "  " << FH2O_ckd_0_v1 << "<->" << FH2O_ckd_0_v2 << "cm^-1\n";
    }
 
 
  // ---------------------- subroutine FRN296 ------------------------------
 
  // retrieve the appropriate array sequence of the foreign continuum
  // arrays of the CKD model.
  Numeric DVC = FH2O_ckd_0_dv;
  Numeric V1C = V1ABS - DVC;
  Numeric V2C = V2ABS + DVC;
 
  int I1 = (int) ((V1C-FH2O_ckd_0_v1) / FH2O_ckd_0_dv);
  if (V1C < FH2O_ckd_0_v1) I1 = -1;
  V1C = FH2O_ckd_0_v1 + (FH2O_ckd_0_dv * (Numeric)I1);
 
  int I2 = (int) ((V2C-FH2O_ckd_0_v1) / FH2O_ckd_0_dv);
 
  int NPTC = I2-I1+3;
  if (NPTC > FH2O_ckd_0_npt) NPTC = FH2O_ckd_0_npt+1;
 
  V2C = V1C + FH2O_ckd_0_dv * (Numeric)(NPTC-1);
 
  if (NPTC < 1)
    {
      out3 << "WARNING:\n"
     << "  CKDv2.4.2 H2O foreign continuum:\n"
     << "  no elements of internal continuum coefficients could be found for the\n"
     << "  input frequency range.\n"
     << "  Leave the function without calculating the absorption.";
      return;
    }
 
  Numeric FH2OT0[NPTC+addF77fields]; // [cm^3/molecules]
 
  for (Index J = 1 ; J <= NPTC ; ++J)
    {
      Index I = I1+J;
      if ( (I < 1) || (I > FH2O_ckd_0_npt) )
  {
    FH2OT0[J] = 0.0e0;
  }
      else
  {
    FH2OT0[J] = FH2O_ckd_0[I];
  }
    }
 
  // ---------------------- subroutine FRN296 ------------------------------
 
  Numeric VF2   = 0.000e0;
  Numeric VF4   = 0.000e0;
  Numeric VF6   = 0.000e0;
  Numeric FSCAL = 0.000e0;
  Numeric FH2O  = 0.000e0;
 
  // Loop pressure/temperature:
  for ( Index i = 0 ; i < n_p ; ++i )
    {
 
      // atmospheric state parameters
      Numeric Tave   = abs_t[i];                               // [K]
      Numeric Pave   = (abs_p[i]*1.000e-2);                    // [hPa]
      Numeric vmrh2o = vmr[i];                                 // [1]
      // FIXME Numeric ph2o   = vmrh2o * Pave;                          // [hPa]
      Numeric PFRGN  = (Pave/PO) * (1.00000e0 - vmrh2o);       // dry air pressure [hPa]
      Numeric RFRGN  = PFRGN  * (TO/Tave);                     // [hPa]
      Numeric WTOT   = xLosmt * (Pave/PO) * (T1/Tave);         // [molecules/cm^2]
      // FIXME Numeric W1     = vmrh2o * WTOT;                          // [molecules/cm^2]
      Numeric XKT    = Tave   / 1.4387752;                     // = (T*k_B) / (h*c)
 
      // Molecular cross section calculated by CKD.
      // The cross sectionis calculated on the predefined
      // CKD wavenumber grid.
      Numeric k[NPTC+addF77fields]; // [1/cm]
      k[0] = 0.00e0; // not used array field
      for (Index J = 1 ; J <= NPTC ; ++J)
  {
    Numeric VJ = V1C + (DVC * (Numeric)(J-1));
 
    // CORRECTION TO FOREIGN CONTINUUM
    VF2   = (VJ-V0F1) * (VJ-V0F1);
    VF6   = VF2 * VF2 * VF2;
    FSCAL = (1.000e0 + FACTRF1*(HWSQF1/(VF2+(BETAF1*VF6)+HWSQF1)));
 
    VF2   = (VJ-V0F1a) * (VJ-V0F1a);
    VF6   = VF2 * VF2  * VF2;
    FSCAL = FSCAL *
            (1.000e0 + FACTRF1a*(HWSQF1a/(VF2+(BETAF1a*VF6)+HWSQF1a)));
 
    VF2   = (VJ-V0F2) * (VJ-V0F2);
    VF6   = VF2 * VF2 * VF2;
    FSCAL = FSCAL *
            (1.000e0 + FACTRF2*(HWSQF2/(VF2+(BETAF2*VF6)+HWSQF2)));
 
    VF2   = (VJ-V0F3) * (VJ-V0F3);
    VF4   = VF2 * VF2;
    FSCAL = FSCAL *
      (1.000e0 + FACTRF3*(HWSQF3/(VF2+BETAF3*VF4+HWSQF3)));
 
    FH2O  = FH2OT0[J] * FSCAL;
 
    // CKD cross section without radiative field
    // The VMRH2O will be multiplied in abs_coefCalc, hence WTOT and not W1
    // as multiplicative term
    k[J] = WTOT * RFRGN * (FH2O*1.000e-20) * RADFN_FUN(VJ,XKT);
 
  }
 
 
      // Loop input frequency array. The previously calculated cross section
      // has therefore to be interpolated on the input frequencies.
      for ( Index s = 0 ; s < n_f ; ++s )
  {
    // calculate the associated wave number (= 1/wavelength)
    Numeric V = f_grid[s] / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
    if ( (V >= 0.000e0) && (V < VABS_max) )
      {
        // arts CKD2.4.2 foreign H2O continuum cross section [1/m]
        // interpolate the k vector on the f_grid grid
        pxsec(s,i) +=  ScalingFac * 1.000e2 * XINT_FUN(V1C,V2C,DVC,k,V);
      }
  }
    }
 
}
 
// =================================================================================
 
 
void CKD_mt_100_self_h2o (MatrixView          pxsec,
                          const Numeric       Cin,
                          const String&       model,
                          ConstVectorView     f_grid,
                          ConstVectorView     abs_p,
                          ConstVectorView     abs_t,
                          ConstVectorView     vmr,
                          const Verbosity& verbosity)
{
  CREATE_OUT3;
 
  // check the model name about consistency
  if ((model != "user") &&  (model != "CKDMT100"))
    {
      ostringstream os;
      os << "!!ERROR!!\n"
   << "CKD_MT1.00 H2O self continuum:\n"
   << "INPUT model name is: " << model << ".\n"
   << "VALID model names are user and CKDMT100\n";
      throw runtime_error(os.str());
    }
 
 
  // scaling factor of the self H2O cont. absorption
  Numeric  ScalingFac = 1.0000e0;
  if ( model == "user" )
    {
      ScalingFac = Cin; // input scaling factor of calculated absorption
    }
 
 
  const Index n_p = abs_p.nelem();  // Number of pressure levels
  const Index n_f = f_grid.nelem();  // Number of frequencies
 
 
  // Check that dimensions of abs_p, abs_t, and vmr agree:
  assert ( n_p==abs_t.nelem() );
  assert ( n_p==vmr.nelem()   );
 
  // Check that dimensions of pxsec are consistent with n_f
  // and n_p. It should be [n_f,n_p]:
  assert ( n_f==pxsec.nrows() );
  assert ( n_p==pxsec.ncols() );
 
 
  // ************************** CKD stuff ************************************
 
  const Numeric xLosmt =    2.68675e19; // [molecules/cm^3]
  // FIXME const Numeric T1     =  273.000e0;    // [K]
  const Numeric TO     =  296.000e0;    // [K]
  const Numeric PO     = 1013.000e0;    // [hPa]
 
  const Numeric XFACREV[15] =
    {1.003, 1.009, 1.015, 1.023, 1.029,1.033,
     1.037, 1.039, 1.040, 1.046, 1.036,1.027,
     1.01,  1.002, 1.00};
 
  // wavenumber range where CKD H2O self continuum is valid
  const Numeric VABS_min = -2.000e1; // [cm^-1]
  const Numeric VABS_max =  2.000e4; // [cm^-1]
 
 
  // It is assumed here that f_grid is monotonically increasing with index!
  // In future change this return into a change of the loop over
  // the frequency f_grid. n_f_new < n_f
  Numeric V1ABS = f_grid[0]     / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
  Numeric V2ABS = f_grid[n_f-1] / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
  if ( (V1ABS < VABS_min) || (V1ABS > VABS_max) ||
       (V2ABS < VABS_min) || (V2ABS > VABS_max) )
    {
      out3  << "WARNING:\n"
            << "  CKD_MT 1.00 H2O self continuum:\n"
      << "  input frequency vector exceeds range of model validity\n"
      << "  " << SL296_ckd_mt_100_v1 << "<->" << SL296_ckd_mt_100_v2 << "cm^-1\n";
    }
 
 
  // ------------------- subroutine SL296/SL260 ----------------------------
 
  if (SL296_ckd_mt_100_v1 != SL260_ckd_mt_100_v1)
    {
      ostringstream os;
      os << "!!ERROR!!\n"
   << "CKD_MT 1.00 H2O self continuum:\n"
   << "parameter V1 not the same for different ref. temperatures.\n";
      throw runtime_error(os.str());
    }
  if (SL296_ckd_mt_100_v2 != SL260_ckd_mt_100_v2)
    {
      ostringstream os;
      os << "!!ERROR!!\n"
   << "CKD_MT 1.00 H2O self continuum:\n"
   << "parameter V2 not the same for different ref. temperatures.\n";
  throw runtime_error(os.str());
    }
  if (SL296_ckd_mt_100_dv != SL260_ckd_mt_100_dv)
    {
      ostringstream os;
      os << "!!ERROR!!\n"
   << "CKD_MT 1.00 H2O self continuum:\n"
   << "parameter DV not the same for different ref. temperatures.\n";
      throw runtime_error(os.str());
    }
  if (SL296_ckd_mt_100_npt != SL260_ckd_mt_100_npt)
    {
      ostringstream os;
      os << "!!ERROR!!\n"
   << "CKD_MT 1.00 H2O self continuum:\n"
   << "parameter NPT not the same for different ref. temperatures.\n";
      throw runtime_error(os.str());
    }
 
  // retrieve the appropriate array sequence of the self continuum
  // arrays of the CKD model.
  Numeric DVC = SL296_ckd_mt_100_dv;
  Numeric V1C = V1ABS - DVC;
  Numeric V2C = V2ABS + DVC;
 
  int I1 = (int) ((V1C-SL296_ckd_mt_100_v1) / SL296_ckd_mt_100_dv);
  if (V1C < SL296_ckd_mt_100_v1) I1 = -1;
  V1C = SL296_ckd_mt_100_v1 + (SL296_ckd_mt_100_dv * (Numeric)I1);
 
  int I2 = (int) ((V2C-SL296_ckd_mt_100_v1) / SL296_ckd_mt_100_dv);
 
  int NPTC = I2-I1+3;
  if (NPTC > SL296_ckd_mt_100_npt) NPTC = SL296_ckd_mt_100_npt+1;
 
  V2C = V1C + SL296_ckd_mt_100_dv * (Numeric)(NPTC-1);
 
  if (NPTC < 1)
    {
      out3 << "WARNING:\n"
     << "  CKD_MT 1.00 H2O self continuum:\n"
     << "  no elements of internal continuum coefficients could be found for the\n"
     << "  input frequency range.\n"
     << "  Leave the function without calculating the absorption.";
      return;
    }
 
  Vector SH2OT0(NPTC+addF77fields, 0.); // [cm^3/molecules]
  Vector SH2OT1(NPTC+addF77fields, 0.); // [cm^3/molecules]
 
  for (Index J = 1 ; J <= NPTC ; ++J)
    {
      Index I = I1+J;
      if ( (I > 0) && (I <= SL296_ckd_mt_100_npt) )
  {
    SH2OT0[J] = SL296_ckd_mt_100[I];    // at T=296 K
    SH2OT1[J] = SL260_ckd_mt_100[I];    // at T=260 K
  }
    }
 
  // ------------------- subroutine SL296/SL260 ----------------------------
 
  Numeric SFAC = 1.00e0;
 
  // Loop pressure/temperature:
  for ( Index i = 0 ; i < n_p ; ++i )
    {
 
      // atmospheric state parameters
      Numeric Tave   = abs_t[i];                                     // [K]
      Numeric Pave   = (abs_p[i]*1.000e-2);                          // [hPa]
      Numeric Patm   = Pave/PO;                                      // [1]
      Numeric vmrh2o = vmr[i];                                       // [1]
      // FIXME Numeric Ph2o   = Patm * vmrh2o;                                // [1]
      // second vmr in abs_coefCalc multiplied
      Numeric Rh2o   = Patm * (TO/Tave);                             // [1]
      Numeric Tfac   = (Tave-TO)/(260.0-TO);                         // [1]
      Numeric WTOT   = xLosmt * (Pave/1.013000e3) * (2.7300e2/Tave); // [molecules/cm^2]
      Numeric W1     = vmrh2o * WTOT;                                // [molecules/cm^2]
      Numeric XKT    = Tave / 1.4387752e0;                           // = (T*k_B)/(h*c)
 
      // Molecular cross section calculated by CKD.
      // The cross sectionis calculated on the predefined
      // CKD wavenumber grid.
      Vector k(NPTC+addF77fields, 0.); // [1/cm]
      for (Index J = 1 ; J <= NPTC ; ++J)
  {
    Numeric VJ   = V1C + (DVC * (Numeric)(J-1));
    Numeric SH2O = 0.0e0;
    if (SH2OT0[J] > 0.0e0)
      {
        SH2O = SH2OT0[J] * pow( (SH2OT1[J]/SH2OT0[J]), Tfac );
        SFAC = 1.00e0;
 
        if ( (VJ >= 820.0e0) && (VJ <= 960.0e0) )
    {
      int JFAC = (int)((VJ - 820.0e0)/10.0e0 + 0.00001e0);
      if ( (JFAC >= 0) && (JFAC <=14) )
        SFAC = XFACREV[JFAC];
    }
 
        SH2O = SFAC * SH2O;
      }
 
    // CKD cross section with radiative field [1/cm]
    // The VMRH2O will be multiplied in abs_coefCalc, hence Rh2o does not contain
    // VMRH2O as multiplicative term
    k[J] = W1 * Rh2o * (SH2O*1.000e-20) * RADFN_FUN(VJ,XKT);
 
  }
 
 
      // Loop input frequency array. The previously calculated cross section
      // has therefore to be interpolated on the input frequencies.
      for ( Index s = 0 ; s < n_f ; ++s )
  {
    // calculate the associated wave number (= 1/wavelength)
    Numeric V = f_grid[s] / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
    if ( (V > 0.000e0) && (V < SL296_ckd_mt_100_v2) )
      {
        // arts cross section [1/m]
        // interpolate the k vector on the f_grid grid
        // The factor 100 comes from the conversion from 1/cm to 1/m for
        // the absorption coefficient
        pxsec(s,i) +=  ScalingFac * 1.000e2 * XINT_FUN(V1C,V2C,DVC,k,V);
      }
  }
    }
 
}
 
// =================================================================================
 
 
void CKD_mt_100_foreign_h2o (MatrixView          pxsec,
                             const Numeric       Cin,
                             const String&       model,
                             ConstVectorView     f_grid,
                             ConstVectorView     abs_p,
                             ConstVectorView     abs_t,
                             ConstVectorView     vmr,
                             const Verbosity& verbosity)
{
  CREATE_OUT3;
 
  // check the model name about consistency
  if ((model != "user") &&  (model != "CKDMT100"))
    {
      ostringstream os;
      os << "!!ERROR!!\n"
   << "CKD_MT1.00 H2O foreign continuum:\n"
   << "INPUT model name is: " << model << ".\n"
   << "VALID model names are user and CKDMT100\n";
      throw runtime_error(os.str());
    }
 
 
  // scaling factor of the foreign H2O cont. absorption
  Numeric  ScalingFac = 1.0000e0;
  if ( model == "user" )
    {
      ScalingFac = Cin; // input scaling factor of calculated absorption
    }
 
 
  const Index n_p = abs_p.nelem();  // Number of pressure levels
  const Index n_f = f_grid.nelem();  // Number of frequencies
 
 
  // Check that dimensions of abs_p, abs_t, and vmr agree:
  assert ( n_p==abs_t.nelem() );
  assert ( n_p==vmr.nelem()   );
 
  // Check that dimensions of pxsec are consistent with n_f
  // and n_p. It should be [n_f,n_p]:
  assert ( n_f==pxsec.nrows() );
  assert ( n_p==pxsec.ncols() );
 
 
  // ************************** CKD stuff ************************************
 
  const Numeric xLosmt = 2.68675e19; // [molecules/cm^3]
  const Numeric T1     =  273.000e0;
  const Numeric TO     =  296.000e0;
  const Numeric PO     = 1013.000e0;
 
  // wavenumber range where CKD H2O self continuum is valid
  const Numeric VABS_min = -2.000e1; // [cm^-1]
  const Numeric VABS_max =  2.000e4; // [cm^-1]
 
 
  // It is assumed here that f_grid is monotonically increasing with index!
  // In future change this return into a change of the loop over
  // the frequency f_grid. n_f_new < n_f
  Numeric V1ABS = f_grid[0]     / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
  Numeric V2ABS = f_grid[n_f-1] / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
  if ( (V1ABS < VABS_min) || (V1ABS > VABS_max) ||
       (V2ABS < VABS_min) || (V2ABS > VABS_max) )
    {
      out3  << "WARNING:\n"
            << "  CKD_MT 1.00 H2O foreign continuum:\n"
      << "  input frequency vector exceeds range of model validity\n"
      << "  " << FH2O_ckd_mt_100_v1 << "<->" << FH2O_ckd_mt_100_v2 << "cm^-1\n";
    }
 
 
  // ---------------------- subroutine FRN296 ------------------------------
 
  // retrieve the appropriate array sequence of the foreign continuum
  // arrays of the CKD model.
  Numeric DVC = FH2O_ckd_mt_100_dv;
  Numeric V1C = V1ABS - DVC;
  Numeric V2C = V2ABS + DVC;
 
  int I1 = (int) ((V1C-FH2O_ckd_mt_100_v1) / FH2O_ckd_mt_100_dv);
  if (V1C < FH2O_ckd_mt_100_v1) I1 = -1;
  V1C = FH2O_ckd_mt_100_v1 + (FH2O_ckd_mt_100_dv * (Numeric)I1);
 
  int I2 = (int) ((V2C-FH2O_ckd_mt_100_v1) / FH2O_ckd_mt_100_dv);
 
  int NPTC = I2-I1+3;
  if (NPTC > FH2O_ckd_mt_100_npt) NPTC = FH2O_ckd_mt_100_npt+1;
 
  V2C = V1C + FH2O_ckd_mt_100_dv * (Numeric)(NPTC-1);
 
  if (NPTC < 1)
    {
      out3 << "WARNING:\n"
     << "  CKD_MT 1.00 H2O foreign continuum:\n"
     << "  no elements of internal continuum coefficients could be found for the\n"
     << "  input frequency range.\n"
     << "  Leave the function without calculating the absorption.";
      return;
    }
 
  Vector FH2OT0(NPTC+addF77fields, 0.); // [cm^3/molecules]
 
  for (Index J = 1 ; J <= NPTC ; ++J)
    {
      Index I = I1+J;
      if ( (I > 0) && (I <= FH2O_ckd_mt_100_npt) )
  {
    FH2OT0[J] = FH2O_ckd_mt_100[I];
  }
    }
 
  // ---------------------- subroutine FRN296 ------------------------------
 
 
 
 
  // Loop pressure/temperature:
  for ( Index i = 0 ; i < n_p ; ++i )
    {
      // atmospheric state parameters
      Numeric Tave   = abs_t[i];                               // [K]
      Numeric Pave   = (abs_p[i]*1.000e-2);                    // [hPa]
      Numeric vmrh2o = vmr[i];                                 // [1]
      // FIXME Numeric ph2o   = vmrh2o * Pave;                          // [hPa]
      Numeric PFRGN  = (Pave/PO) * (1.00000e0 - vmrh2o);       // dry air pressure [hPa]
      Numeric RFRGN  = PFRGN  * (TO/Tave);                     // [hPa]
      Numeric WTOT   = xLosmt * (Pave/PO) * (T1/Tave);         // [molecules/cm^2]
      // FIXME Numeric W1     = vmrh2o * WTOT;                          // [molecules/cm^2]
      Numeric XKT    = Tave   / 1.4387752;                     // = (T*k_B) / (h*c)
 
      // Molecular cross section calculated by CKD.
      // The cross sectionis calculated on the predefined
      // CKD wavenumber grid.
      Vector k(NPTC+addF77fields, 0.); // [1/cm]
      for (Index J = 1 ; J <= NPTC ; ++J)
  {
    Numeric VJ   = V1C + (DVC * (Numeric)(J-1));
    Numeric FH2O = FH2OT0[J];
 
    // CKD cross section with radiative field [1/cm]
    // The VMRH2O will be multiplied in abs_coefCalc, hence WTOT and not W1
    // as multiplicative term
    k[J] = WTOT * RFRGN * (FH2O*1.000e-20) * RADFN_FUN(VJ,XKT);
 
  }
 
      // Loop input frequency array. The previously calculated cross section
      // has therefore to be interpolated on the input frequencies.
      for ( Index s = 0 ; s < n_f ; ++s )
  {
    // calculate the associated wave number (= 1/wavelength)
    Numeric V = f_grid[s] / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
    if ( (V >= 0.000e0) && (V < VABS_max) )
      {
        // arts CKD_MT.100 cross section [1/m]
        // interpolate the k vector on the f_grid grid
        // The factor 100 comes from the conversion from (1/cm) to (1/m)
        // of the abs. coeff.
        pxsec(s,i) +=  ScalingFac * 1.000e2 * XINT_FUN(V1C,V2C,DVC,k,V);
      }
  }
    }
 
}
 
//
// =================================================================================
 
 
void CKD_mt_250_self_h2o (MatrixView          pxsec,
                          const Numeric       Cin,
                          const String&       model,
                          ConstVectorView     f_grid,
                          ConstVectorView     abs_p,
                          ConstVectorView     abs_t,
                          ConstVectorView     vmr,
                          const Verbosity& verbosity)
{
  CREATE_OUT3;
 
  // check the model name about consistency
  if ((model != "user") &&  (model != "CKDMT250"))
    {
      ostringstream os;
      os << "!!ERROR!!\n"
   << "CKD_MT2.50 H2O self continuum:\n"
   << "INPUT model name is: " << model << ".\n"
   << "VALID model names are user and CKDMT250\n";
      throw runtime_error(os.str());
    }
 
 
  // scaling factor of the self H2O cont. absorption
  Numeric  ScalingFac = 1.0000e0;
  if ( model == "user" )
    {
      ScalingFac = Cin; // input scaling factor of calculated absorption
    }
 
 
  const Index n_p = abs_p.nelem();  // Number of pressure levels
  const Index n_f = f_grid.nelem();  // Number of frequencies
 
 
  // Check that dimensions of abs_p, abs_t, and vmr agree:
  assert ( n_p==abs_t.nelem() );
  assert ( n_p==vmr.nelem()   );
 
  // Check that dimensions of pxsec are consistent with n_f
  // and n_p. It should be [n_f,n_p]:
  assert ( n_f==pxsec.nrows() );
  assert ( n_p==pxsec.ncols() );
 
 
  // ************************** CKD stuff ************************************
 
  const Numeric xLosmt =    2.68675e19; // [molecules/cm^3]
  // FIXME const Numeric T1     =  273.000e0;    // [K]
  const Numeric TO     =  296.000e0;    // [K]
  const Numeric PO     = 1013.000e0;    // [hPa]
 
  const Numeric XFACREV[15] =
    {1.003, 1.009, 1.015, 1.023, 1.029,1.033,
     1.037, 1.039, 1.040, 1.046, 1.036,1.027,
     1.01,  1.002, 1.00};
 
  const Numeric XFACREV1[120] =
    {1.000, 1.040, 1.080, 1.120, 1.160,
     1.200, 1.240, 1.280, 1.318, 1.357,
     1.404, 1.453, 1.499, 1.553, 1.608,
     1.674, 1.746, 1.818, 1.899, 1.984,
     2.078, 2.174, 2.276, 2.385, 2.502,
     2.624, 2.747, 2.883, 3.018, 3.170,
     3.321, 3.473, 3.635, 3.803, 3.974,
     4.144, 4.327, 4.500, 4.703, 4.887,
     5.102, 5.286, 5.498, 5.701, 5.935,
     6.155, 6.405, 6.633, 6.892, 7.115,
     7.397, 7.650, 7.917, 8.177, 8.437,
     8.704, 8.953, 9.192, 9.428, 9.644,
     9.821, 9.954, 10.11, 10.17, 10.21,
     10.26, 10.29, 10.28, 10.26, 10.20,
     10.15, 10.16, 10.25, 10.02, 9.965,
     10.01, 9.934, 9.847, 9.744, 9.566,
     9.436, 9.181, 8.872, 8.547, 8.155,
     7.730, 7.261, 6.777, 6.271, 5.807,
     5.313, 4.845, 4.444, 4.074, 3.677,
     3.362, 3.087, 2.826, 2.615, 2.385,
     2.238, 2.148, 1.979, 1.939, 1.773,
     1.696, 1.642, 1.569, 1.510, 1.474,
     1.425, 1.375, 1.322, 1.272, 1.230,
     1.180, 1.130, 1.080, 1.040, 1.000};
 
  // wavenumber range where CKD H2O self continuum is valid
  const Numeric VABS_min = -2.000e1; // [cm^-1]
  const Numeric VABS_max =  2.000e4; // [cm^-1]
 
 
  // It is assumed here that f_grid is monotonically increasing with index!
  // In future change this return into a change of the loop over
  // the frequency f_grid. n_f_new < n_f
  Numeric V1ABS = f_grid[0]     / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
  Numeric V2ABS = f_grid[n_f-1] / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
  if ( (V1ABS < VABS_min) || (V1ABS > VABS_max) ||
       (V2ABS < VABS_min) || (V2ABS > VABS_max) )
    {
      out3  << "WARNING:\n"
            << "  CKD_MT 1.00 H2O self continuum:\n"
      << "  input frequency vector exceeds range of model validity\n"
      << "  " << SL296_ckd_mt_100_v1 << "<->" << SL296_ckd_mt_100_v2 << "cm^-1\n";
    }
 
 
  // ------------------- subroutine SL296/SL260 ----------------------------
 
  if (SL296_ckd_mt_100_v1 != SL260_ckd_mt_100_v1)
    {
      ostringstream os;
      os << "!!ERROR!!\n"
   << "CKD_MT 1.00 H2O self continuum:\n"
   << "parameter V1 not the same for different ref. temperatures.\n";
      throw runtime_error(os.str());
    }
  if (SL296_ckd_mt_100_v2 != SL260_ckd_mt_100_v2)
    {
      ostringstream os;
      os << "!!ERROR!!\n"
   << "CKD_MT 1.00 H2O self continuum:\n"
   << "parameter V2 not the same for different ref. temperatures.\n";
  throw runtime_error(os.str());
    }
  if (SL296_ckd_mt_100_dv != SL260_ckd_mt_100_dv)
    {
      ostringstream os;
      os << "!!ERROR!!\n"
   << "CKD_MT 1.00 H2O self continuum:\n"
   << "parameter DV not the same for different ref. temperatures.\n";
      throw runtime_error(os.str());
    }
  if (SL296_ckd_mt_100_npt != SL260_ckd_mt_100_npt)
    {
      ostringstream os;
      os << "!!ERROR!!\n"
   << "CKD_MT 1.00 H2O self continuum:\n"
   << "parameter NPT not the same for different ref. temperatures.\n";
      throw runtime_error(os.str());
    }
 
  // retrieve the appropriate array sequence of the self continuum
  // arrays of the CKD model.
  Numeric DVC = SL296_ckd_mt_100_dv;
  Numeric V1C = V1ABS - DVC;
  Numeric V2C = V2ABS + DVC;
 
  int I1 = (int) ((V1C-SL296_ckd_mt_100_v1) / SL296_ckd_mt_100_dv);
  if (V1C < SL296_ckd_mt_100_v1) I1 = -1;
  V1C = SL296_ckd_mt_100_v1 + (SL296_ckd_mt_100_dv * (Numeric)I1);
 
  int I2 = (int) ((V2C-SL296_ckd_mt_100_v1) / SL296_ckd_mt_100_dv);
 
  int NPTC = I2-I1+3;
  if (NPTC > SL296_ckd_mt_100_npt) NPTC = SL296_ckd_mt_100_npt+1;
 
  V2C = V1C + SL296_ckd_mt_100_dv * (Numeric)(NPTC-1);
 
  if (NPTC < 1)
    {
      out3 << "WARNING:\n"
     << "  CKD_MT 1.00 H2O self continuum:\n"
     << "  no elements of internal continuum coefficients could be found for the\n"
     << "  input frequency range.\n"
     << "  Leave the function without calculating the absorption.";
      return;
    }
 
  Vector SH2OT0(NPTC+addF77fields, 0.); // [cm^3/molecules]
  Vector SH2OT1(NPTC+addF77fields, 0.); // [cm^3/molecules]
 
  for (Index J = 1 ; J <= NPTC ; ++J)
    {
      Index I = I1+J;
      if ( (I > 0) && (I <= SL296_ckd_mt_100_npt) )
  {
    SH2OT0[J] = SL296_ckd_mt_100[I];    // at T=296 K
    SH2OT1[J] = SL260_ckd_mt_100[I];    // at T=260 K
  }
    }
 
  // ------------------- subroutine SL296/SL260 ----------------------------
 
  Numeric SFAC = 1.00e0;
 
  // Loop pressure/temperature:
  for ( Index i = 0 ; i < n_p ; ++i )
    {
 
      // atmospheric state parameters
      Numeric Tave   = abs_t[i];                                     // [K]
      Numeric Pave   = (abs_p[i]*1.000e-2);                          // [hPa]
      Numeric Patm   = Pave/PO;                                      // [1]
      Numeric vmrh2o = vmr[i];                                       // [1]
      // FIXME Numeric Ph2o   = Patm * vmrh2o;                                // [1]
      // second vmr in abs_coefCalc multiplied
      Numeric Rh2o   = Patm * (TO/Tave);                             // [1]
      Numeric Tfac   = (Tave-TO)/(260.0-TO);                         // [1]
      Numeric WTOT   = xLosmt * (Pave/1.013000e3) * (2.7300e2/Tave); // [molecules/cm^2]
      Numeric W1     = vmrh2o * WTOT;                                // [molecules/cm^2]
      Numeric XKT    = Tave / 1.4387752e0;                           // = (T*k_B)/(h*c)
 
      // Molecular cross section calculated by CKD.
      // The cross sectionis calculated on the predefined
      // CKD wavenumber grid.
      Vector k(NPTC+addF77fields, 0.); // [1/cm]
      for (Index J = 1 ; J <= NPTC ; ++J)
  {
    Numeric VJ   = V1C + (DVC * (Numeric)(J-1));
    Numeric SH2O = 0.0e0;
    if (SH2OT0[J] > 0.0e0)
      {
        SH2O = SH2OT0[J] * pow( (SH2OT1[J]/SH2OT0[J]), Tfac );
        SFAC = 1.00e0;
 
        if ( (VJ >= 820.0e0) && (VJ <= 960.0e0) )
    {
      int JFAC = (int)((VJ - 820.0e0)/10.0e0 + 0.00001e0);
      if ( (JFAC >= 0) && (JFAC <=14) )
        SFAC = XFACREV[JFAC];
    }
        
    // CKD MT 2.5 correction to the self continuum (IASI data, fit to near-IR results of   Bicknell et al., 2006 and Fulghum and Tilleman,  1991
 
        if ( (VJ >= 2000.0e0) && (VJ <= 3190.0e0) )
    {
      int JFAC = (int)((VJ - 1990.0e0)/10.0e0 + 0.00001e0);
      if ( (JFAC >= 1) && (JFAC <=120) )
        SFAC = XFACREV1[JFAC];
    }
        SFAC = SFAC * ( 1.000e0 + ( 0.25e0/( 1.000e0 + pow( (VJ/350.0), 6.0))));   // CKD MT 2.4 (microwave and IR ARM data 0-600 cm-1)
  
        SH2O = SFAC * SH2O;
      }
 
 
    // CKD cross section with radiative field [1/cm]
    // The VMRH2O will be multiplied in abs_coefCalc, hence Rh2o does not contain
    // VMRH2O as multiplicative term
    k[J] = W1 * Rh2o * (SH2O*1.000e-20) * RADFN_FUN(VJ,XKT);
 
  }
 
 
      // Loop input frequency array. The previously calculated cross section
      // has therefore to be interpolated on the input frequencies.
      for ( Index s = 0 ; s < n_f ; ++s )
  {
    // calculate the associated wave number (= 1/wavelength)
    Numeric V = f_grid[s] / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
    if ( (V > 0.000e0) && (V < SL296_ckd_mt_100_v2) )
      {
        // arts cross section [1/m]
        // interpolate the k vector on the f_grid grid
        // The factor 100 comes from the conversion from 1/cm to 1/m for
        // the absorption coefficient
        pxsec(s,i) +=  ScalingFac * 1.000e2 * XINT_FUN(V1C,V2C,DVC,k,V);
      }
  }
    }
 
}
 
// =================================================================================
 
 
void CKD_mt_250_foreign_h2o (MatrixView          pxsec,
                             const Numeric       Cin,
                             const String&       model,
                             ConstVectorView     f_grid,
                             ConstVectorView     abs_p,
                             ConstVectorView     abs_t,
                             ConstVectorView     vmr,
                             const Verbosity& verbosity)
{
  CREATE_OUT3;
 
  // check the model name about consistency
  if ((model != "user") &&  (model != "CKDMT250"))
    {
      ostringstream os;
      os << "!!ERROR!!\n"
   << "CKD_MT2.50 H2O foreign continuum:\n"
   << "INPUT model name is: " << model << ".\n"
   << "VALID model names are user and CKDMT250\n";
      throw runtime_error(os.str());
    }
 
 
  // scaling factor of the foreign H2O cont. absorption
  Numeric  ScalingFac = 1.0000e0;
  if ( model == "user" )
    {
      ScalingFac = Cin; // input scaling factor of calculated absorption
    }
 
 
  const Index n_p = abs_p.nelem();  // Number of pressure levels
  const Index n_f = f_grid.nelem();  // Number of frequencies
 
 
  // Check that dimensions of abs_p, abs_t, and vmr agree:
  assert ( n_p==abs_t.nelem() );
  assert ( n_p==vmr.nelem()   );
 
  // Check that dimensions of pxsec are consistent with n_f
  // and n_p. It should be [n_f,n_p]:
  assert ( n_f==pxsec.nrows() );
  assert ( n_p==pxsec.ncols() );
 
 
  // ************************** CKD stuff ************************************
 
  const Numeric xLosmt = 2.68675e19; // [molecules/cm^3]
  const Numeric T1     =  273.000e0;
  const Numeric TO     =  296.000e0;
  const Numeric PO     = 1013.000e0;
 
  // wavenumber range where CKD H2O self continuum is valid
  const Numeric VABS_min = -2.000e1; // [cm^-1]
  const Numeric VABS_max =  2.000e4; // [cm^-1]
 
 
  // It is assumed here that f_grid is monotonically increasing with index!
  // In future change this return into a change of the loop over
  // the frequency f_grid. n_f_new < n_f
  Numeric V1ABS = f_grid[0]     / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
  Numeric V2ABS = f_grid[n_f-1] / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
  if ( (V1ABS < VABS_min) || (V1ABS > VABS_max) ||
       (V2ABS < VABS_min) || (V2ABS > VABS_max) )
    {
      out3  << "WARNING:\n"
            << "  CKD_MT 2.50 H2O foreign continuum:\n"
      << "  input frequency vector exceeds range of model validity\n"
      << "  " << FH2O_ckd_mt_100_v1 << "<->" << FH2O_ckd_mt_100_v2 << "cm^-1\n";
    }
 
 
  // ---------------------- subroutine FRN296 ------------------------------
 
  // retrieve the appropriate array sequence of the foreign continuum
  // arrays of the CKD model.
  Numeric DVC = FH2O_ckd_mt_100_dv;
  Numeric V1C = V1ABS - DVC;
  Numeric V2C = V2ABS + DVC;
 
  int I1 = (int) ((V1C-FH2O_ckd_mt_100_v1) / FH2O_ckd_mt_100_dv);
  if (V1C < FH2O_ckd_mt_100_v1) I1 = -1;
  V1C = FH2O_ckd_mt_100_v1 + (FH2O_ckd_mt_100_dv * (Numeric)I1);
 
  int I2 = (int) ((V2C-FH2O_ckd_mt_100_v1) / FH2O_ckd_mt_100_dv);
 
  int NPTC = I2-I1+3;
  if (NPTC > FH2O_ckd_mt_100_npt) NPTC = FH2O_ckd_mt_100_npt+1;
 
  V2C = V1C + FH2O_ckd_mt_100_dv * (Numeric)(NPTC-1);
 
  if (NPTC < 1)
    {
      out3 << "WARNING:\n"
     << "  CKD_MT 2.50 H2O foreign continuum:\n"
     << "  no elements of internal continuum coefficients could be found for the\n"
     << "  input frequency range.\n"
     << "  Leave the function without calculating the absorption.";
      return;
    }
 
  Vector FH2OT0(NPTC+addF77fields, 0.); // [cm^3/molecules]
 
  for (Index J = 1 ; J <= NPTC ; ++J)
    {
      Index I = I1+J;
      if ( (I > 0) && (I <= FH2O_ckd_mt_100_npt) )
  {
    FH2OT0[J] = FH2O_ckd_mt_100[I];
  }
    }
 
  // ---------------------- subroutine FRN296 ------------------------------
 
 
 
 
  // Loop pressure/temperature:
  for ( Index i = 0 ; i < n_p ; ++i )
    {
      // atmospheric state parameters
      Numeric Tave   = abs_t[i];                               // [K]
      Numeric Pave   = (abs_p[i]*1.000e-2);                    // [hPa]
      Numeric vmrh2o = vmr[i];                                 // [1]
      // FIXME Numeric ph2o   = vmrh2o * Pave;                          // [hPa]
      Numeric PFRGN  = (Pave/PO) * (1.00000e0 - vmrh2o);       // dry air pressure [hPa]
      Numeric RFRGN  = PFRGN  * (TO/Tave);                     // [hPa]
      Numeric WTOT   = xLosmt * (Pave/PO) * (T1/Tave);         // [molecules/cm^2]
      // FIXME Numeric W1     = vmrh2o * WTOT;                          // [molecules/cm^2]
      Numeric XKT    = Tave   / 1.4387752;                     // = (T*k_B) / (h*c)
 
      // Molecular cross section calculated by CKD.
      // The cross sectionis calculated on the predefined
      // CKD wavenumber grid.
      Vector k(NPTC+addF77fields, 0.); // [1/cm]
      for (Index J = 1 ; J <= NPTC ; ++J)
  {
    Numeric VJ   = V1C + (DVC * (Numeric)(J-1));
    Numeric VDELSQ1 = pow( (VJ - 255.67e0), 2e0 );
    Numeric VDELmSQ1 = pow( (VJ + 255.67e0), 2e0 );
    Numeric VF1 = pow( ((VJ-255.67e0)/57.83e0), 8e0);
    Numeric VmF1 = pow( ((VJ+255.67e0)/57.83e0), 8e0);
    Numeric VF2 = pow( ((VJ)/57.83e0), 8e0);
 
    Numeric FSCAL = 1.000e0 + (0.06e0 + (-0.42e0)*( (57600e0/(VDELSQ1+57600e0+VF1)) + (57600e0/(VDELmSQ1+57600e0+VmF1)) ) )/(1.000e0 + 0.3e0 * VF2);
 
    Numeric FH2O = FH2OT0[J] * FSCAL;    //CKD MT 2.4
    
 
 
    // CKD cross section with radiative field [1/cm]
    // The VMRH2O will be multiplied in abs_coefCalc, hence WTOT and not W1
    // as multiplicative term
    k[J] = WTOT * RFRGN * (FH2O*1.000e-20) * RADFN_FUN(VJ,XKT);
 
  }
 
      // Loop input frequency array. The previously calculated cross section
      // has therefore to be interpolated on the input frequencies.
      for ( Index s = 0 ; s < n_f ; ++s )
  {
    // calculate the associated wave number (= 1/wavelength)
    Numeric V = f_grid[s] / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
    if ( (V >= 0.000e0) && (V < VABS_max) )
      {
        // arts CKD_MT.100 cross section [1/m]
        // interpolate the k vector on the f_grid grid
        // The factor 100 comes from the conversion from (1/cm) to (1/m)
        // of the abs. coeff.
        pxsec(s,i) +=  ScalingFac * 1.000e2 * XINT_FUN(V1C,V2C,DVC,k,V);
      }
  }
    }
 
}
 
//
 
// =================================================================================
 
 
void CKD_241_co2 (MatrixView         pxsec,
                  const Numeric       Cin,
                  const String&       model,
                  ConstVectorView     f_grid,
                  ConstVectorView     abs_p,
                  ConstVectorView     abs_t _U_,
                  ConstVectorView     vmr _U_,
                  const Verbosity& verbosity)
{
  CREATE_OUT3;
 
  // check the model name about consistency
  if ((model != "user") &&  (model != "CKD241"))
    {
      ostringstream os;
      os << "!!ERROR!!\n"
   << "CKDv2.4.1 CO2 continuum:\n"
   << "INPUT model name is: " << model << ".\n"
   << "VALID model names are user and CKD241\n";
      throw runtime_error(os.str());
    }
 
 
  // scaling factor of the CO2 absorption
  Numeric  ScalingFac = 0.0000e0;
  if ( model == "user" )
    {
      ScalingFac = Cin; // input scaling factor of calculated absorption
    }
  else
    {
      ScalingFac = 1.0000e0;
    }
 
  const Index n_p = abs_p.nelem();  // Number of pressure levels
  const Index n_f = f_grid.nelem();  // Number of frequencies
 
 
  // Check that dimensions of abs_p, abs_t, and vmr agree:
  assert ( n_p==abs_t.nelem() );
  assert ( n_p==vmr.nelem()   );
 
  // Check that dimensions of pxsec are consistent with n_f
  // and n_p. It should be [n_f,n_p]:
  assert ( n_f==pxsec.nrows() );
  assert ( n_p==pxsec.ncols() );
 
 
  // ************************** CKD stuff ************************************
 
  const Numeric xLosmt = 2.686763e19; // [molecules/cm^3]
  const Numeric T1     =  273.0e0;
  const Numeric TO     =  296.0e0;
  const Numeric PO     = 1013.0e0;
 
  // wavenumber range where CKD CO2 continuum is valid
  const Numeric VABS_min = -2.000e1; // [cm^-1]
  const Numeric VABS_max =  1.000e4; // [cm^-1]
 
 
  // It is assumed here that f_grid is monotonically increasing with index!
  // In future change this return into a change of the loop over
  // the frequency f_grid. n_f_new < n_f
  Numeric V1ABS = f_grid[0]     / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
  Numeric V2ABS = f_grid[n_f-1] / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
  if ( (V1ABS < VABS_min) || (V1ABS > VABS_max) ||
       (V2ABS < VABS_min) || (V2ABS > VABS_max) )
    {
      out3  << "WARNING:\n"
            << "  CKDv2.4.1 CO2 continuum:\n"
      << "  input frequency vector exceeds range of model validity\n"
      << "  " << FCO2_ckd_mt_100_v1 << "<->" << FCO2_ckd_mt_100_v2 << "cm^-1\n";
    }
 
 
  // ---------------------- subroutine FRNCO2 ------------------------------
 
  // retrieve the appropriate array sequence of the CO2 continuum
  // arrays of the CKD model.
  Numeric DVC = FCO2_ckd_mt_100_dv;
  Numeric V1C = V1ABS - DVC;
  Numeric V2C = V2ABS + DVC;
 
  int I1 = (int) ((V1C-FCO2_ckd_mt_100_v1) / FCO2_ckd_mt_100_dv);
  if (V1C < FCO2_ckd_mt_100_v1) I1 = -1;
  V1C = FCO2_ckd_mt_100_v1 + (FCO2_ckd_mt_100_dv * (Numeric)I1);
 
  int I2 = (int) ((V2C-FCO2_ckd_mt_100_v1) / FCO2_ckd_mt_100_dv);
 
  int NPTC = I2-I1+3;
  if (NPTC > FCO2_ckd_mt_100_npt) NPTC = FCO2_ckd_mt_100_npt+1;
 
  V2C = V1C + FCO2_ckd_mt_100_dv * (Numeric)(NPTC-1);
 
  if (NPTC < 1)
    {
      out3 << "WARNING:\n"
     << "  CKDv2.4.1 CO2 continuum:\n"
     << "  no elements of internal continuum coefficients could be found for the\n"
     << "  input frequency range.\n"
     << "  Leave the function without calculating the absorption.";
      return;
    }
 
  Numeric FCO2T0[NPTC+addF77fields]; // [cm^3/molecules]
 
  for (Index J = 1 ; J <= NPTC ; ++J)
    {
      Index I = I1+J;
      if ( (I < 1) || (I > FCO2_ckd_mt_100_npt) )
  {
    FCO2T0[J] = 0.0e0;
  }
      else
  {
    FCO2T0[J] = FCO2_ckd_mt_100[I];
  }
    }
 
  // ---------------------- subroutine FRNCO2 ------------------------------
 
 
 
 
  // Loop pressure/temperature:
  for ( Index i = 0 ; i < n_p ; ++i )
    {
      Numeric Tave   = abs_t[i];                               // [K]
      Numeric Pave   = (abs_p[i]*1.000e-2);                    // [hPa]
      // FIXME Numeric vmrco2 = vmr[i];                                 // [1]
      Numeric Rhoave = (Pave/PO) * (TO/Tave);                  // [hPa]
      Numeric WTOT   = xLosmt * (Pave/PO) * (T1/Tave);         // [molecules/cm^2]
      Numeric XKT    = Tave / 1.4387752;                       // = (T*k_B) / (h*c)
 
 
      // Molecular cross section calculated by CKD.
      // The cross sectionis calculated on the predefined
      // CKD wavenumber grid.
      Numeric k[NPTC+addF77fields]; // [1/cm]
      k[0] = 0.00e0; // not used array field
      for (Index J = 1 ; J <= NPTC ; ++J)
  {
    Numeric VJ   = V1C + (DVC * (Numeric)(J-1));
    Numeric FCO2 = FCO2T0[J];
 
    // CKD cross section times number density with radiative field [1]
    // the VMRCO2 will be multiplied in abs_coefCalc
    k[J] = ((WTOT * Rhoave) * (FCO2*1.000e-20) * RADFN_FUN(VJ,XKT));
 
  }
 
 
      // Loop input frequency array. The previously calculated cross section
      // has therefore to be interpolated on the input frequencies.
      for ( Index s = 0 ; s < n_f ; ++s )
  {
    // calculate the associated wave number (= 1/wavelength)
    Numeric V = f_grid[s] / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
    if ( (V > 0.000e0) && (V < FCO2_ckd_mt_100_v2) )
      {
        // arts cross section [1/m]
        // interpolate the k vector on the f_grid grid
        pxsec(s,i) +=  ScalingFac * 1.000e2 * XINT_FUN(V1C,V2C,DVC,k,V);
      }
  }
    }
 
}
 
// =================================================================================
 
 
 
void CKD_mt_co2 (MatrixView          pxsec,
                 const Numeric       Cin,
                 const String&       model,
                 ConstVectorView     f_grid,
                 ConstVectorView     abs_p,
                 ConstVectorView     abs_t,
                 ConstVectorView     vmr _U_,
                 const Verbosity& verbosity)
{
  CREATE_OUT3;
 
  // check the model name about consistency
  if ((model != "user") &&  (model != "CKDMT100"))
    {
      ostringstream os;
      os << "!!ERROR!!\n"
   << "CKD_MT.1.00 CO2 continuum:\n"
   << "INPUT model name is: " << model << ".\n"
   << "VALID model names are user and CKDMT100\n";
      throw runtime_error(os.str());
    }
 
 
  // scaling factor of the CO2 absorption
  Numeric  ScalingFac = 0.0000e0;
  if ( model == "user" )
    {
      ScalingFac = Cin; // input scaling factor of calculated absorption
    }
  else
    {
      ScalingFac = 1.0000e0;
    }
 
  const Index n_p = abs_p.nelem();  // Number of pressure levels
  const Index n_f = f_grid.nelem();  // Number of frequencies
 
 
  // Check that dimensions of abs_p, abs_t, and vmr agree:
  assert ( n_p==abs_t.nelem() );
  assert ( n_p==vmr.nelem()   );
 
  // Check that dimensions of pxsec are consistent with n_f
  // and n_p. It should be [n_f,n_p]:
  assert ( n_f==pxsec.nrows() );
  assert ( n_p==pxsec.ncols() );
 
 
  // ************************** CKD stuff ************************************
 
  const Numeric xLosmt = 2.686763e19; // [molecules/cm^3]
  const Numeric T1     =  273.0e0;
  const Numeric TO     =  296.0e0;
  const Numeric PO     = 1013.0e0;
 
  // wavenumber range where CKD CO2 continuum is valid
  const Numeric VABS_min = FCO2_ckd_mt_100_v1; // [cm^-1]
  const Numeric VABS_max = FCO2_ckd_mt_100_v2; // [cm^-1]
 
 
  // It is assumed here that f_grid is monotonically increasing with index!
  // In future change this return into a change of the loop over
  // the frequency f_grid. n_f_new < n_f
  Numeric V1ABS = f_grid[0]     / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
  Numeric V2ABS = f_grid[n_f-1] / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
  if ( (V1ABS < VABS_min) || (V1ABS > VABS_max) ||
       (V2ABS < VABS_min) || (V2ABS > VABS_max) )
    {
      out3  << "WARNING:\n"
            << "  CKD_MT 1.00 CO2 continuum:\n"
      << "  input frequency vector exceeds range of model validity\n"
      << "  " << FCO2_ckd_mt_100_v1 << "<->" << FCO2_ckd_mt_100_v2 << "cm^-1\n";
    }
 
 
  // ---------------------- subroutine FRNCO2 ------------------------------
 
  // retrieve the appropriate array sequence of the CO2 continuum
  // arrays of the CKD model.
  Numeric DVC = FCO2_ckd_mt_100_dv;
  Numeric V1C = V1ABS - DVC;
  Numeric V2C = V2ABS + DVC;
 
  int I1 = (int) ((V1C-FCO2_ckd_mt_100_v1) / FCO2_ckd_mt_100_dv);
  if (V1C < FCO2_ckd_mt_100_v1) I1 = -1;
  V1C = FCO2_ckd_mt_100_v1 + (FCO2_ckd_mt_100_dv * (Numeric)I1);
 
  int I2 = (int) ((V2C-FCO2_ckd_mt_100_v1) / FCO2_ckd_mt_100_dv);
 
  int NPTC = I2-I1+3;
  if (NPTC > FCO2_ckd_mt_100_npt) NPTC = FCO2_ckd_mt_100_npt+1;
 
  V2C = V1C + FCO2_ckd_mt_100_dv * (Numeric)(NPTC-1);
 
  if (NPTC < 1)
    {
      out3 << "WARNING:\n"
     << "  CKD_MT 1.00 CO2 continuum:\n"
     << "  no elements of internal continuum coefficients could be found for the\n"
     << "  input frequency range.\n"
     << "  Leave the function without calculating the absorption.";
      return;
    }
 
  Vector FCO2T0(NPTC+addF77fields, 0.); // [cm^3/molecules]
 
  for (Index J = 1 ; J <= NPTC ; ++J)
    {
      Index I = I1+J;
      if ( (I > 0) && (I <= FCO2_ckd_mt_100_npt) )
  {
    FCO2T0[J] = FCO2_ckd_mt_100[I];
  }
    }
 
  // ---------------------- subroutine FRNCO2 ------------------------------
 
 
 
 
  // Loop pressure/temperature:
  for ( Index i = 0 ; i < n_p ; ++i )
    {
      Numeric Tave   = abs_t[i];                               // [K]
      Numeric Pave   = (abs_p[i]*1.000e-2);                    // [hPa]
      // FIXME Numeric vmrco2 = vmr[i];                                 // [1]
      Numeric Rhoave = (Pave/PO) * (TO/Tave);                  // [hPa]
      Numeric WTOT   = xLosmt * (Pave/PO) * (T1/Tave);         // [molecules/cm^2]
      Numeric XKT    = Tave / 1.4387752;                       // = (T*k_B) / (h*c)
 
 
      // Molecular cross section calculated by CKD.
      // The cross sectionis calculated on the predefined
      // CKD wavenumber grid.
      Vector k(NPTC+addF77fields, 0.); // [1/cm]
      for (Index J = 1 ; J <= NPTC ; ++J)
  {
    Numeric VJ   = V1C + (DVC * (Numeric)(J-1));
    Numeric FCO2 = FCO2T0[J];
 
    // continuum has been increased in the nu2 band by a factor of 7
    if ( (VJ > 500.0e0) && (VJ < 900.0e0) )
      {
        FCO2 = 7.000e0 * FCO2;
      }
 
    // CKD cross section times number density with radiative field [1]
    // the VMRCO2 will be multiplied in abs_coefCalc
    k[J] = ((WTOT * Rhoave) * (FCO2*1.000e-20) * RADFN_FUN(VJ,XKT));
 
  }
 
 
      // Loop input frequency array. The previously calculated cross section
      // has therefore to be interpolated on the input frequencies.
      for ( Index s = 0 ; s < n_f ; ++s )
  {
    // calculate the associated wave number (= 1/wavelength)
    Numeric V = f_grid[s] / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
    if ( (V > 0.000e0) && (V < FCO2_ckd_mt_100_v2) )
      {
        // arts cross section [1/m]
        // interpolate the k vector on the f_grid grid
        pxsec(s,i) +=  ScalingFac * 1.000e2 * XINT_FUN(V1C,V2C,DVC,k,V);
      }
  }
    }
 
}
// =================================================================================
 
 
 
void CKD_mt_250_co2 (MatrixView          pxsec,
                 const Numeric       Cin,
                 const String&       model,
                 ConstVectorView     f_grid,
                 ConstVectorView     abs_p,
                 ConstVectorView     abs_t,
                 ConstVectorView     vmr _U_,
                 const Verbosity& verbosity)
{
  CREATE_OUT3;
 
  // check the model name about consistency
  if ((model != "user") &&  (model != "CKDMT250"))
    {
      ostringstream os;
      os << "!!ERROR!!\n"
   << "CKD_MT.2.50 CO2 continuum:\n"
   << "INPUT model name is: " << model << ".\n"
   << "VALID model names are user and CKDMT250\n";
      throw runtime_error(os.str());
    }
 
 
  // scaling factor of the CO2 absorption
  Numeric  ScalingFac = 0.0000e0;
  if ( model == "user" )
    {
      ScalingFac = Cin; // input scaling factor of calculated absorption
    }
  else
    {
      ScalingFac = 1.0000e0;
    }
 
  const Index n_p = abs_p.nelem();  // Number of pressure levels
  const Index n_f = f_grid.nelem();  // Number of frequencies
 
 
  // Check that dimensions of abs_p, abs_t, and vmr agree:
  assert ( n_p==abs_t.nelem() );
  assert ( n_p==vmr.nelem()   );
 
  // Check that dimensions of pxsec are consistent with n_f
  // and n_p. It should be [n_f,n_p]:
  assert ( n_f==pxsec.nrows() );
  assert ( n_p==pxsec.ncols() );
 
 
  // ************************** CKD stuff ************************************
 
  const Numeric xLosmt = 2.686763e19; // [molecules/cm^3]
  const Numeric T1     =  273.0e0;
  const Numeric TO     =  296.0e0;
  const Numeric PO     = 1013.0e0;
//     Temparature dependence coefficients for wavenumbers between 2386
//     and 2434. Computed based on (line-coupled) continuum coefficients
//     at 250K and 296K, set to unity at T_eff (determined by invariance
//     of calculations in this region for IASI low PWV cases).
  const Numeric tdep_bandhead[25] = {
    1.44e-01,3.61e-01,5.71e-01,7.63e-01,8.95e-01,
    9.33e-01,8.75e-01,7.30e-01,5.47e-01,3.79e-01,
    2.55e-01,1.78e-01,1.34e-01,1.07e-01,9.06e-02,
    7.83e-02,6.83e-02,6.00e-02,5.30e-02,4.72e-02,
    4.24e-02,3.83e-02,3.50e-02,3.23e-02,3.01e-02};
//     Correction factors for CO2 from 2000-3000 cm-1 (mt_ckd_2.5)
//     (stored every 2 cm-1 - same as CO2 continuum).
  const Numeric XfacCO2[500] = {     
         1.0000,0.9998,0.9997,0.9996,0.9995,0.9994,0.9992,0.9991,
         0.9991,0.9990,0.9990,0.9989,0.9988,0.9988,0.9987,0.9986,
         0.9985,0.9984,0.9983,0.9982,0.9981,0.9980,0.9979,0.9978,
         0.9976,
         0.9975,0.9973,0.9972,0.9970,0.9969,0.9967,0.9965,0.9963,
         0.9961,0.9958,0.9956,0.9954,0.9951,0.9948,0.9946,0.9943,
         0.9940,0.9936,0.9933,0.9929,0.9926,0.9922,0.9918,0.9913,
         0.9909,
         0.9904,0.9899,0.9894,0.9889,0.9884,0.9878,0.9872,0.9866,
         0.9859,0.9853,0.9846,0.9838,0.9831,0.9823,0.9815,0.9806,
         0.9798,0.9789,0.9779,0.9770,0.9759,0.9749,0.9738,0.9727,
         0.9716,
         0.9704,0.9691,0.9679,0.9666,0.9652,0.9638,0.9624,0.9609,
         0.9594,0.9578,0.9562,0.9546,0.9529,0.9511,0.9493,0.9475,
         0.9456,0.9436,0.9417,0.9396,0.9375,0.9354,0.9332,0.9310,
         0.9287,
         0.9264,0.9240,0.9216,0.9191,0.9166,0.9140,0.9114,0.9087,
         0.9060,0.9032,0.9004,0.8976,0.8947,0.8917,0.8887,0.8857,
         0.8827,0.8796,0.8764,0.8732,0.8700,0.8668,0.8635,0.8602,
         0.8568,
         0.8534,0.8500,0.8466,0.8432,0.8397,0.8362,0.8327,0.8292,
         0.8257,0.8221,0.8186,0.8151,0.8115,0.8080,0.8044,0.8009,
         0.7973,0.7938,0.7903,0.7868,0.7833,0.7799,0.7764,0.7730,
         0.7697,
         0.7663,0.7630,0.7597,0.7565,0.7533,0.7502,0.7471,0.7441,
         0.7411,0.7382,0.7354,0.7326,0.7298,0.7272,0.7246,0.7221,
         0.7197,0.7173,0.7150,0.7129,0.7108,0.7088,0.7068,0.7050,
         0.7033,
         0.7016,0.7001,0.6986,0.6973,0.6961,0.6949,0.6939,0.6930,
         0.6921,0.6914,0.6908,0.6903,0.6899,0.6897,0.6895,0.6895,
         0.6895,0.6895,0.6895,0.6895,0.6908,0.7014,0.7121,0.7227,
         0.7552,
         0.8071,0.8400,0.9012,0.9542,1.0044,1.0330,1.0554,1.0766,
         1.0967,1.1160,1.1346,1.1525,1.1700,1.1869,1.2035,1.2196,
         1.2354,1.2509,1.2662,1.2811,1.2958,1.3103,1.3245,1.3386,
         1.3525,
         1.3661,1.3796,1.3930,1.4062,1.4193,1.4322,1.4449,1.4576,
         1.4701,1.4825,1.4949,1.5070,1.5191,1.5311,1.5430,1.5548,
         1.5550,1.5550,1.5550,1.5550,1.5550,1.5550,1.5550,1.5550,
         1.5550,
         1.5550,1.5550,1.5550,1.5550,1.5550,1.5550,1.5550,1.5550,
         1.5550,1.5550,1.5550,1.5549,1.5547,1.5543,1.5539,1.5532,
         1.5525,1.5516,1.5506,1.5494,1.5481,1.5467,1.5452,1.5435,
         1.5417,
         1.5397,1.5377,1.5355,1.5332,1.5308,1.5282,1.5255,1.5228,
         1.5199,1.5169,1.5137,1.5105,1.5072,1.5037,1.5002,1.4966,
         1.4929,1.4890,1.4851,1.4811,1.4771,1.4729,1.4686,1.4643,
         1.4599,
         1.4555,1.4509,1.4463,1.4417,1.4370,1.4322,1.4274,1.4225,
         1.4176,1.4126,1.4076,1.4025,1.3974,1.3923,1.3872,1.3820,
         1.3768,1.3716,1.3663,1.3611,1.3558,1.3505,1.3452,1.3400,
         1.3347,
         1.3294,1.3241,1.3188,1.3135,1.3083,1.3030,1.2978,1.2926,
         1.2874,1.2822,1.2771,1.2720,1.2669,1.2618,1.2568,1.2518,
         1.2468,1.2419,1.2370,1.2322,1.2274,1.2227,1.2180,1.2133,
         1.2087,
         1.2041,1.1996,1.1952,1.1907,1.1864,1.1821,1.1778,1.1737,
         1.1695,1.1654,1.1614,1.1575,1.1536,1.1497,1.1460,1.1422,
         1.1386,1.1350,1.1314,1.1280,1.1246,1.1212,1.1179,1.1147,
         1.1115,
         1.1084,1.1053,1.1024,1.0994,1.0966,1.0938,1.0910,1.0883,
         1.0857,1.0831,1.0806,1.0781,1.0757,1.0734,1.0711,1.0688,
         1.0667,1.0645,1.0624,1.0604,1.0584,1.0565,1.0546,1.0528,
         1.0510,
         1.0493,1.0476,1.0460,1.0444,1.0429,1.0414,1.0399,1.0385,
         1.0371,1.0358,1.0345,1.0332,1.0320,1.0308,1.0296,1.0285,
         1.0275,1.0264,1.0254,1.0244,1.0235,1.0226,1.0217,1.0208,
         1.0200,
         1.0192,1.0184,1.0177,1.0170,1.0163,1.0156,1.0150,1.0143,
         1.0137,1.0132,1.0126,1.0121,1.0116,1.0111,1.0106,1.0101,
         1.0097,1.0092,1.0088,1.0084,1.0081,1.0077,1.0074,1.0070,
         1.0067,
         1.0064,1.0061,1.0058,1.0055,1.0053,1.0050,1.0048,1.0046,
         1.0043,1.0041,1.0039,1.0037,1.0036,1.0034,1.0032,1.0030,
         1.0029,1.0027,1.0026,1.0025,1.0023,1.0022,1.0021,1.0020,
         1.0019,
         1.0018,1.0017,1.0016,1.0015,1.0014,1.0014,1.0013,1.0012,
         1.0011,1.0011,1.0010,1.0010,1.0009,1.0009,1.0008,1.0007,
         1.0006,1.0005,1.0004,1.0003,1.0002,1.0001,1.0000,1.0000,
         1.0000};
 
 // wavenumber range where CKD CO2 continuum is valid
  const Numeric VABS_min = FCO2_ckd_mt_250_v1; // [cm^-1]
  const Numeric VABS_max = FCO2_ckd_mt_250_v2; // [cm^-1]
 
 
  // It is assumed here that f_grid is monotonically increasing with index!
  // In future change this return into a change of the loop over
  // the frequency f_grid. n_f_new < n_f
  Numeric V1ABS = f_grid[0]     / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
  Numeric V2ABS = f_grid[n_f-1] / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
  if ( (V1ABS < VABS_min) || (V1ABS > VABS_max) ||
       (V2ABS < VABS_min) || (V2ABS > VABS_max) )
    {
      out3  << "WARNING:\n"
            << "  CKD_MT 2.50 CO2 continuum:\n"
      << "  input frequency vector exceeds range of model validity\n"
      << "  " << FCO2_ckd_mt_250_v1 << "<->" << FCO2_ckd_mt_250_v2 << "cm^-1\n";
    }
 
 
  // ---------------------- subroutine FRNCO2 ------------------------------
 
  // retrieve the appropriate array sequence of the CO2 continuum
  // arrays of the CKD model.
  Numeric DVC = FCO2_ckd_mt_250_dv;
  Numeric V1C = V1ABS - DVC;
  Numeric V2C = V2ABS + DVC;
 
  int I1 = (int) ((V1C-FCO2_ckd_mt_250_v1) / FCO2_ckd_mt_250_dv);
  if (V1C < FCO2_ckd_mt_250_v1) I1 = -1;
  V1C = FCO2_ckd_mt_250_v1 + (FCO2_ckd_mt_250_dv * (Numeric)I1);
 
  int I2 = (int) ((V2C-FCO2_ckd_mt_250_v1) / FCO2_ckd_mt_250_dv);
 
  int NPTC = I2-I1+3;
  if (NPTC > FCO2_ckd_mt_250_npt) NPTC = FCO2_ckd_mt_250_npt+1;
 
  V2C = V1C + FCO2_ckd_mt_250_dv * (Numeric)(NPTC-1);
 
  if (NPTC < 1)
    {
      out3 << "WARNING:\n"
     << "  CKD_MT 2.50 CO2 continuum:\n"
     << "  no elements of internal continuum coefficients could be found for the\n"
     << "  input frequency range.\n"
     << "  Leave the function without calculating the absorption.";
      return;
    }
 
  Vector FCO2T0(NPTC+addF77fields, 0.); // [cm^3/molecules]
 
  for (Index J = 1 ; J <= NPTC ; ++J)
    {
      Index I = I1+J;
      if ( (I > 0) && (I <= FCO2_ckd_mt_250_npt) )
  {
    FCO2T0[J] = FCO2_ckd_mt_250[I];
  }
    }
 
  // ---------------------- subroutine FRNCO2 ------------------------------
 
 
 
 
  // Loop pressure/temperature:
  for ( Index i = 0 ; i < n_p ; ++i )
    {
      Numeric Tave   = abs_t[i];                               // [K]
      Numeric Pave   = (abs_p[i]*1.000e-2);                    // [hPa]
      // FIXME Numeric vmrco2 = vmr[i];                                 // [1]
      Numeric Rhoave = (Pave/PO) * (TO/Tave);                  // [hPa]
      Numeric WTOT   = xLosmt * (Pave/PO) * (T1/Tave);         // [molecules/cm^2]
      Numeric XKT    = Tave / 1.4387752;                       // = (T*k_B) / (h*c)
 
 
      // Molecular cross section calculated by CKD.
      // The cross sectionis calculated on the predefined
      // CKD wavenumber grid.
      Vector k(NPTC+addF77fields, 0.); // [1/cm]
      for (Index J = 1 ; J <= NPTC ; ++J)
  {
    Numeric VJ   = V1C + (DVC * (Numeric)(J-1));
    Numeric FCO2 = FCO2T0[J];
    const Index I1J = I1 + J-1;
 
//  CKD MT 2.0 This continuum differs from mt_ck_1.3 in that an entirely
//  new co2 continuum has been developed based on the line coupling parameters from 
// Hartmann's group as distributed with hitran.  This continuum must be used with lblrtm_v11
// and spectral line parameters including Hartmann's line parameters for co2. 
// Based on recent validation studies, a scaling of the continuum for v3 is required to achieve an acceptable result
// at 2385 cm-1, the 'bandhead' of v3. Clough et al., presentation at EGU 2007
 
  
    if ( (I1J >= 1196.0e0) && (I1J <= 1220.0e0) )
      {
        FCO2 = pow( (Tave/246.0e0), tdep_bandhead[I1J-1196] ) * FCO2;
      }
//  CKD MT 2.5 Adjustment to the original scaling made (temperature dependece added)
    if ( (VJ > 2000.0e0) && (VJ < 2998.0e0) )
      {
        int JFAC = int( (VJ - 1998.00e0)/2.00e0 + 0.00001e0) ;
        FCO2 = XfacCO2[JFAC] * FCO2;
      }
 
 
    // CKD cross section times number density with radiative field [1]
    // the VMRCO2 will be multiplied in abs_coefCalc
    k[J] = ((WTOT * Rhoave) * (FCO2*1.000e-20) * RADFN_FUN(VJ,XKT));
 
  }
 
 
      // Loop input frequency array. The previously calculated cross section
      // has therefore to be interpolated on the input frequencies.
      for ( Index s = 0 ; s < n_f ; ++s )
  {
    // calculate the associated wave number (= 1/wavelength)
    Numeric V = f_grid[s] / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
    if ( (V > 0.000e0) && (V < FCO2_ckd_mt_250_v2) )
      {
        // arts cross section [1/m]
        // interpolate the k vector on the f_grid grid
        pxsec(s,i) +=  ScalingFac * 1.000e2 * XINT_FUN(V1C,V2C,DVC,k,V);
      }
  }
    }
 
}
 
// =================================================================================
 
void CKD_mt_CIArot_n2 (MatrixView         pxsec,
                       const Numeric       Cin,
                       const String&       model,
                       ConstVectorView     f_grid,
                       ConstVectorView     abs_p,
                       ConstVectorView     abs_t,
                       ConstVectorView     vmr,
                       const Verbosity& verbosity)
{
  CREATE_OUT3;
 
  // check the model name about consistency
  if ((model != "user") &&  (model != "CKDMT100"))
    {
      ostringstream os;
      os << "!!ERROR!!\n"
   << "CKD_MT1.00 N2 CIA rotational band:\n"
   << "INPUT model name is: " << model << ".\n"
   << "VALID model names are user and CKDMT100\n";
      throw runtime_error(os.str());
    }
 
 
  // scaling factor of the N2-N2 CIA rot. band absorption
  Numeric  ScalingFac = 0.0000e0;
  if ( model == "user" )
    {
      ScalingFac = Cin; // input scaling factor of calculated absorption
    }
  else
    {
      ScalingFac = 1.0000e0;
    }
 
  const Index n_p = abs_p.nelem();  // Number of pressure levels
  const Index n_f = f_grid.nelem();  // Number of frequencies
 
 
  // Check that dimensions of abs_p, abs_t, and vmr agree:
  assert ( n_p==abs_t.nelem() );
  assert ( n_p==vmr.nelem()   );
 
  // Check that dimensions of pxsec are consistent with n_f
  // and n_p. It should be [n_f,n_p]:
  assert ( n_f==pxsec.nrows() );
  assert ( n_p==pxsec.ncols() );
 
 
  // ************************** CKD stuff ************************************
 
  // FIXME const Numeric xLosmt = 2.686763e19; // Loschmidt Number [molecules/cm^3]
  const Numeric T1     =  273.0e0;
  const Numeric TO     =  296.0e0;
  const Numeric PO     = 1013.0e0;
 
 
  // wavenumber range where CKD H2O self continuum is valid
  const Numeric VABS_min = -1.000e1; // [cm^-1]
  const Numeric VABS_max =  3.500e2; // [cm^-1]
 
 
  // It is assumed here that f_grid is monotonically increasing with index!
  // In future change this return into a change of the loop over
  // the frequency f_grid. n_f_new < n_f
  Numeric V1ABS = f_grid[0]     / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
  Numeric V2ABS = f_grid[n_f-1] / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
  if ( (V1ABS < VABS_min) || (V1ABS > VABS_max) ||
       (V2ABS < VABS_min) || (V2ABS > VABS_max) )
    {
      out3  << "WARNING:\n"
            << "  CKD_MT 1.00 N2-N2 CIA rotational band:\n"
      << "  input frequency vector exceeds range of model validity\n"
      << "  " << N2N2_CT296_ckd_mt_100_v1 << "<->" << N2N2_CT220_ckd_mt_100_v2 << "cm^-1\n";
    }
 
 
  // ------------------- subroutine N2R296/N2R220 ----------------------------
 
  if (N2N2_CT296_ckd_mt_100_v1 != N2N2_CT220_ckd_mt_100_v1)
    {
      ostringstream os;
      os << "!!ERROR!!\n"
   << "CKD_MT 1.00 N2-N2 CIA rotational band:\n"
   << "parameter V1 not the same for different ref. temperatures.\n";
      throw runtime_error(os.str());
    }
  if (N2N2_CT296_ckd_mt_100_v2 != N2N2_CT220_ckd_mt_100_v2)
    {
      ostringstream os;
      os << "!!ERROR!!\n"
   << "CKD_MT 1.00 N2-N2 CIA rotational band:\n"
   << "parameter V2 not the same for different ref. temperatures.\n";
  throw runtime_error(os.str());
    }
  if (N2N2_CT296_ckd_mt_100_dv != N2N2_CT220_ckd_mt_100_dv)
    {
      ostringstream os;
      os << "!!ERROR!!\n"
   << "CKD_MT 1.00 N2-N2 CIA rotational band:\n"
   << "parameter DV not the same for different ref. temperatures.\n";
      throw runtime_error(os.str());
    }
  if (N2N2_CT296_ckd_mt_100_npt != N2N2_CT220_ckd_mt_100_npt)
    {
      ostringstream os;
      os << "!!ERROR!!\n"
   << "CKD_MT 1.00 N2-N2 CIA rotational band:\n"
   << "parameter NPT not the same for different ref. temperatures.\n";
      throw runtime_error(os.str());
    }
 
  // retrieve the appropriate array sequence of the self continuum
  // arrays of the CKD model.
  Numeric DVC = N2N2_CT296_ckd_mt_100_dv;
  Numeric V1C = V1ABS - DVC;
  Numeric V2C = V2ABS + DVC;
 
  int I1 = (int) ((V1C-N2N2_CT296_ckd_mt_100_v1) / N2N2_CT296_ckd_mt_100_dv);
  if (V1C < N2N2_CT296_ckd_mt_100_v1) I1 = -1;
  V1C    = N2N2_CT296_ckd_mt_100_v1 + (N2N2_CT296_ckd_mt_100_dv * (Numeric)I1);
 
  int I2 = (int) ((V2C-N2N2_CT296_ckd_mt_100_v1) / N2N2_CT296_ckd_mt_100_dv);
 
  int NPTC = I2-I1+3;
  if (NPTC > N2N2_CT296_ckd_mt_100_npt) NPTC = N2N2_CT296_ckd_mt_100_npt+1;
 
  V2C    = V1C + N2N2_CT296_ckd_mt_100_dv * (Numeric)(NPTC-1);
 
  if (NPTC < 1)
    {
      out3 << "WARNING:\n"
     << "  CKD_MT 1.00 N2-N2 CIA rotational band:\n"
     << "  no elements of internal continuum coefficients could be found for the\n"
     << "  input frequency range.\n"
     << "  Leave the function without calculating the absorption.\n";
      return;
    }
 
  Vector C0(NPTC+addF77fields, 0.); // [cm^3/molecules]
  Vector C1(NPTC+addF77fields, 0.); // [cm^3/molecules]
 
  for (Index J = 1 ; J <= NPTC ; ++J)
    {
      Index I = I1+J;
      if ( (I > 0) && (I <= N2N2_CT296_ckd_mt_100_npt) )
  {
    C0[J] = N2N2_CT296_ckd_mt_100[I];    // at T=296 K
    C1[J] = N2N2_CT220_ckd_mt_100[I];    // at T=260 K
  }
    }
 
  // ------------------- subroutine N2R296/N2R220 ----------------------------
 
 
 
 
  // Loop pressure/temperature:
  for ( Index i = 0 ; i < n_p ; ++i )
    {
      Numeric Tave   = abs_t[i];                               // [K]
      Numeric Pave   = (abs_p[i]*1.000e-2);                    // [hPa]
      Numeric vmrn2  = vmr[i];                                 // [1]
      Numeric facfac = vmrn2 * (Pave/PO) * (Pave/PO) *
                               (T1/Tave) * (T1/Tave);
 
      Numeric XKT    = Tave / 1.4387752;                       // = (T*k_B) / (h*c)
      Numeric Tfac   = (Tave - TO) / (220.0e0 - TO);
 
      // Molecular cross section calculated by CKD.
      // The cross sectionis calculated on the predefined
      // CKD wavenumber grid.
      Vector k(NPTC+addF77fields, 0.); // [1/cm]
      for (Index J = 1 ; J <= NPTC ; ++J)
  {
    Numeric VJ  = V1C + (DVC * (Numeric)(J-1));
    Numeric SN2 = 0.000e0;
    if ( (C0[J] > 0.000e0) && (C1[J] > 0.000e0) )
      {
        SN2 = facfac* C0[J] * pow( (C1[J]/C0[J]), Tfac );
      }
 
    // CKD cross section with radiative field
    k[J] = SN2 * RADFN_FUN(VJ,XKT); // [1]
  }
 
 
      // Loop input frequency array. The previously calculated cross section
      // has therefore to be interpolated on the input frequencies.
      for ( Index s = 0 ; s < n_f ; ++s )
  {
    // calculate the associated wave number (= 1/wavelength)
    Numeric V = f_grid[s] / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
    if ( (V > 0.000e0) && (V < N2N2_CT220_ckd_mt_100_v2) )
      {
        // arts cross section [1/m]
        // interpolate the k vector on the f_grid grid
        pxsec(s,i) +=  ScalingFac * 1.000e2 * XINT_FUN(V1C,V2C,DVC,k,V);
      }
  }
    }
 
}
 
// =================================================================================
 
 
void CKD_mt_CIAfun_n2 (MatrixView          pxsec,
                       const Numeric       Cin,
                       const String&       model,
                       ConstVectorView     f_grid,
                       ConstVectorView     abs_p,
                       ConstVectorView     abs_t,
                       ConstVectorView     vmr,
                       const Verbosity& verbosity)
{
  CREATE_OUT3;
 
  // check the model name about consistency
  if ((model != "user") &&  (model != "CKDMT100"))
    {
      ostringstream os;
      os << "!!ERROR!!\n"
   << "CKD_MT1.00 N2 CIA fundamental band:\n"
   << "INPUT model name is: " << model << ".\n"
   << "VALID model names are user and CKDMT100\n";
      throw runtime_error(os.str());
    }
 
 
  // scaling factor of the N2-N2 CIA fundamental band absorption
  Numeric  ScalingFac = 1.0000e0;
  if ( model == "user" )
    {
      ScalingFac = Cin; // input scaling factor of calculated absorption
    }
 
 
  const Index n_p = abs_p.nelem();  // Number of pressure levels
  const Index n_f = f_grid.nelem();  // Number of frequencies
 
 
  // Check that dimensions of abs_p, abs_t, and vmr agree:
  assert ( n_p==abs_t.nelem() );
  assert ( n_p==vmr.nelem()   );
 
  // Check that dimensions of pxsec are consistent with n_f
  // and n_p. It should be [n_f,n_p]:
  assert ( n_f==pxsec.nrows() );
  assert ( n_p==pxsec.ncols() );
 
 
  // ************************** CKD stuff ************************************
 
  const Numeric xLosmt = 2.686763e19; // Loschmidt Number [molecules/cm^3]
  const Numeric T1     =  273.0e0;
  const Numeric TO     =  296.0e0;
  const Numeric PO     = 1013.0e0;
  const Numeric a1     = 0.8387e0;
  const Numeric a2     = 0.0754e0;
 
 
  // It is assumed here that f_grid is monotonically increasing with index!
  // In future change this return into a change of the loop over
  // the frequency f_grid. n_f_new < n_f
  Numeric V1ABS = f_grid[0]     / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
  Numeric V2ABS = f_grid[n_f-1] / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
  if ( (V1ABS < N2N2_N2F_ckd_mt_100_v1) || (V1ABS > N2N2_N2F_ckd_mt_100_v2) ||
       (V2ABS < N2N2_N2F_ckd_mt_100_v1) || (V2ABS > N2N2_N2F_ckd_mt_100_v2) )
    {
      out3  << "WARNING:\n"
            << "   CKD_MT 1.00 N2-N2 CIA fundamental band:\n"
      << "   input frequency vector exceeds range of model validity\n"
      << "  " << N2N2_N2F_ckd_mt_100_v1 << "<->" << N2N2_N2F_ckd_mt_100_v2 << "cm^-1\n";
    }
 
 
  // ------------------- subroutine N2_VER_1 ----------------------------
 
  // retrieve the appropriate array sequence of the self continuum
  // arrays of the CKD model.
  Numeric DVC = N2N2_N2F_ckd_mt_100_dv;
  Numeric V1C = V1ABS - DVC;
  Numeric V2C = V2ABS + DVC;
 
  int I1 = (int) ((V1C-N2N2_N2F_ckd_mt_100_v1) / N2N2_N2F_ckd_mt_100_dv);
  if (V1C < N2N2_N2F_ckd_mt_100_v1) I1 = -1;
  V1C    = N2N2_N2F_ckd_mt_100_v1 + (N2N2_N2F_ckd_mt_100_dv * (Numeric)I1);
 
  int I2 = (int) ((V2C-N2N2_N2F_ckd_mt_100_v1) / N2N2_N2F_ckd_mt_100_dv);
 
  int NPTC = I2-I1+3;
  if (NPTC > N2N2_N2F_ckd_mt_100_npt) NPTC = N2N2_N2F_ckd_mt_100_npt+1;
 
  V2C    = V1C + N2N2_N2F_ckd_mt_100_dv * (Numeric)(NPTC-1);
 
  if (NPTC < 1)
    {
      out3 << "WARNING:\n"
     << "  CKD_MT 1.00 N2-N2 CIA fundamental band:\n"
     << "  no elements of internal continuum coefficients could be found for the\n"
     << "  input frequency range.\n";
      return;
    }
 
  Vector xn2(NPTC+addF77fields, 0.);
  Vector xn2t(NPTC+addF77fields, 0.);
 
  for (Index J = 1 ; J <= NPTC ; ++J)
    {
      Index I = I1+J;
      if ( (I > 0) && (I <= N2N2_N2F_ckd_mt_100_npt) )
  {
    xn2[J]  = N2N2_N2F_ckd_mt_100[I];
    xn2t[J] = N2N2_N2Ft_ckd_mt_100[I];
  }
    }
 
  // ------------------- subroutine N2_VER_1 ----------------------------
 
 
 
 
  // Loop pressure/temperature:
  for ( Index i = 0 ; i < n_p ; ++i )
    {
      Numeric Tave   = abs_t[i];                               // [K]
      Numeric Pave   = (abs_p[i]*1.000e-2);                    // [hPa]
      Numeric vmrn2  = vmr[i];                                 // [1]
      Numeric WTOT   = xLosmt * (Pave/PO) * (T1/Tave);         // [molecules/cm^2]
      Numeric tau_fac= WTOT   * (Pave/PO) * (T1/Tave);
 
      Numeric XKT    = Tave / 1.4387752e0;                     // = (T*k_B) / (h*c)
 
      // FIXME Numeric Tfac   = (Tave - TO) / (220.0e0 - TO);           // [1]
      Numeric xktfac = (1.000e0/TO) - (1.000e0/Tave);          // [1/K]
      Numeric factor = 0.000e0;
      if (vmrn2 > VMRCalcLimit)
  {
    factor = (1.000e0 / xLosmt) * (1.000e0/vmrn2) * (a1 - a2*(Tave/TO));
  }
 
      // Molecular cross section calculated by CKD.
      // The cross sectionis calculated on the predefined
      // CKD wavenumber grid.
      Vector k(NPTC+addF77fields+1, 0.); // [1/cm]
      for (Index J = 1 ; J <= NPTC ; ++J)
  {
    Numeric VJ  = V1C + (DVC * (Numeric)(J-1));
    Numeric SN2 = 0.000e0;
    if (xn2[J] > 0.000e0)
      {
        Numeric C0 = factor * xn2[J] * exp(xn2t[J]*xktfac) / VJ;
        SN2 = tau_fac * C0;
      }
 
    // CKD cross section with radiative field
    k[J] = SN2 * RADFN_FUN(VJ,XKT); // [1/cm]
  }
 
 
      // Loop input frequency array. The previously calculated cross section
      // has therefore to be interpolated on the input frequencies.
      for ( Index s = 0 ; s < n_f ; ++s )
  {
    // calculate the associated wave number (= 1/wavelength)
    Numeric V = f_grid[s] / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
    if ( (V > N2N2_N2F_ckd_mt_100_v1) && (V < N2N2_N2F_ckd_mt_100_v2) )
      {
        // arts cross section [1/m]
        // interpolate the k vector on the f_grid grid
        pxsec(s,i) +=  ScalingFac * 1.000e2 * XINT_FUN(V1C,V2C,DVC,k,V);
      }
  }
    }
 
}
// =================================================================================
 
void CKD_mt_250_CIArot_n2 (MatrixView         pxsec,
                       const Numeric       Cin,
                       const String&       model,
                       ConstVectorView     f_grid,
                       ConstVectorView     abs_p,
                       ConstVectorView     abs_t,
                       ConstVectorView     vmr,
                       ConstVectorView     abs_h2o,
                       ConstVectorView     abs_o2,
                       const Verbosity& verbosity)
{
  CREATE_OUT3;
 
  // check the model name about consistency
  if ((model != "user") &&  (model != "CKDMT250"))
    {
      ostringstream os;
      os << "!!ERROR!!\n"
   << "CKD_MT2.50 N2 CIA rotational band:\n"
   << "INPUT model name is: " << model << ".\n"
   << "VALID model names are user and CKDMT250\n";
      throw runtime_error(os.str());
    }
 
 
  // scaling factor of the N2-N2 CIA rot. band absorption
  Numeric  ScalingFac = 0.0000e0;
  if ( model == "user" )
    {
      ScalingFac = Cin; // input scaling factor of calculated absorption
    }
  else
    {
      ScalingFac = 1.0000e0;
    }
 
  const Index n_p = abs_p.nelem();  // Number of pressure levels
  const Index n_f = f_grid.nelem();  // Number of frequencies
 
 
  // Check that dimensions of abs_p, abs_t, and vmr agree:
  assert ( n_p==abs_t.nelem() );
  assert ( n_p==vmr.nelem()   );
 
  // Check that dimensions of pxsec are consistent with n_f
  // and n_p. It should be [n_f,n_p]:
  assert ( n_f==pxsec.nrows() );
  assert ( n_p==pxsec.ncols() );
 
 
  // ************************** CKD stuff ************************************
 
  // FIXME const Numeric xLosmt = 2.686763e19; // Loschmidt Number [molecules/cm^3]
  const Numeric T1     =  273.0e0;
  const Numeric TO     =  296.0e0;
  const Numeric PO     = 1013.0e0;
 
 
  // wavenumber range where CKD H2O self continuum is valid
  const Numeric VABS_min = -1.000e1; // [cm^-1]
  const Numeric VABS_max =  3.500e2; // [cm^-1]
 
 
  // It is assumed here that f_grid is monotonically increasing with index!
  // In future change this return into a change of the loop over
  // the frequency f_grid. n_f_new < n_f
  Numeric V1ABS = f_grid[0]     / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
  Numeric V2ABS = f_grid[n_f-1] / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
  if ( (V1ABS < VABS_min) || (V1ABS > VABS_max) ||
       (V2ABS < VABS_min) || (V2ABS > VABS_max) )
    {
      out3  << "WARNING:\n"
            << "  CKD_MT 2.50 N2-N2 CIA rotational band:\n"
      << "  input frequency vector exceeds range of model validity\n"
      << "  " << N2N2_CT296_ckd_mt_100_v1 << "<->" << N2N2_CT220_ckd_mt_100_v2 << "cm^-1\n";
    }
 
 
  // ------------------- subroutine N2R296/N2R220 ----------------------------
 
  if (N2N2_CT296_ckd_mt_100_v1 != N2N2_CT220_ckd_mt_100_v1)
    {
      ostringstream os;
      os << "!!ERROR!!\n"
   << "CKD_MT 2.50 N2-N2 CIA rotational band:\n"
   << "parameter V1 not the same for different ref. temperatures.\n";
      throw runtime_error(os.str());
    }
  if (N2N2_CT296_ckd_mt_100_v2 != N2N2_CT220_ckd_mt_100_v2)
    {
      ostringstream os;
      os << "!!ERROR!!\n"
   << "CKD_MT 2.50 N2-N2 CIA rotational band:\n"
   << "parameter V2 not the same for different ref. temperatures.\n";
  throw runtime_error(os.str());
    }
  if (N2N2_CT296_ckd_mt_100_dv != N2N2_CT220_ckd_mt_100_dv)
    {
      ostringstream os;
      os << "!!ERROR!!\n"
   << "CKD_MT 2.50 N2-N2 CIA rotational band:\n"
   << "parameter DV not the same for different ref. temperatures.\n";
      throw runtime_error(os.str());
    }
  if (N2N2_CT296_ckd_mt_100_npt != N2N2_CT220_ckd_mt_100_npt)
    {
      ostringstream os;
      os << "!!ERROR!!\n"
   << "CKD_MT 2.50 N2-N2 CIA rotational band:\n"
   << "parameter NPT not the same for different ref. temperatures.\n";
      throw runtime_error(os.str());
    }
 
  // retrieve the appropriate array sequence of the self continuum
  // arrays of the CKD model.
  Numeric DVC = N2N2_CT296_ckd_mt_100_dv;
  Numeric V1C = V1ABS - DVC;
  Numeric V2C = V2ABS + DVC;
 
  int I1 = (int) ((V1C-N2N2_CT296_ckd_mt_100_v1) / N2N2_CT296_ckd_mt_100_dv);
  if (V1C < N2N2_CT296_ckd_mt_100_v1) I1 = -1;
  V1C    = N2N2_CT296_ckd_mt_100_v1 + (N2N2_CT296_ckd_mt_100_dv * (Numeric)I1);
 
  int I2 = (int) ((V2C-N2N2_CT296_ckd_mt_100_v1) / N2N2_CT296_ckd_mt_100_dv);
 
  int NPTC = I2-I1+3;
  if (NPTC > N2N2_CT296_ckd_mt_100_npt) NPTC = N2N2_CT296_ckd_mt_100_npt+1;
 
  V2C    = V1C + N2N2_CT296_ckd_mt_100_dv * (Numeric)(NPTC-1);
 
  if (NPTC < 1)
    {
      out3 << "WARNING:\n"
     << "  CKD_MT 2.50 N2-N2 CIA rotational band:\n"
     << "  no elements of internal continuum coefficients could be found for the\n"
     << "  input frequency range.\n"
     << "  Leave the function without calculating the absorption.\n";
      return;
    }
 
  Vector C0(NPTC+addF77fields, 0.); // [cm^3/molecules]
  Vector C1(NPTC+addF77fields, 0.); // [cm^3/molecules]
  Vector sf_T0(NPTC+addF77fields, 0.);
  Vector sf_T1(NPTC+addF77fields, 0.);
  for (Index J = 1 ; J <= NPTC ; ++J)
    {
      Index I = I1+J;
      if ( (I > 0) && (I <= N2N2_CT296_ckd_mt_100_npt) )
  {
    C0[J] = N2N2_CT296_ckd_mt_100[I];    // at T=296 K
    sf_T0[J] = N2N2_sf_296_ckd_mt_100[I];
    C1[J] = N2N2_CT220_ckd_mt_100[I];    // at T=260 K
    sf_T1[J] = N2N2_sf_220_ckd_mt_100[I];
  }
    }
 
  // ------------------- subroutine N2R296/N2R220 ----------------------------
 
 
 
 
  // Loop pressure/temperature:
  for ( Index i = 0 ; i < n_p ; ++i )
    {
      Numeric Tave   = abs_t[i];                               // [K]
      Numeric Pave   = (abs_p[i]*1.000e-2);                    // [hPa]
      Numeric vmrn2  = vmr[i];                                 // [1]
      Numeric vmro2  = abs_o2[i];
      Numeric vmrh2o  = abs_h2o[i];
      Numeric facfac = vmrn2 * (Pave/PO) * (Pave/PO) *
                               (T1/Tave) * (T1/Tave);
 
      Numeric XKT    = Tave / 1.4387752;                       // = (T*k_B) / (h*c)
      Numeric Tfac   = (Tave - TO) / (220.0e0 - TO);
 
      // Molecular cross section calculated by CKD.
      // The cross sectionis calculated on the predefined
      // CKD wavenumber grid.
      Vector k(NPTC+addF77fields, 0.); // [1/cm]
      Numeric C = 0.000e0;
      Numeric sf = 0.000e0;
      for (Index J = 1 ; J <= NPTC ; ++J)
  {
    Numeric VJ  = V1C + (DVC * (Numeric)(J-1));
    Numeric SN2 = 0.000e0;
    if ( (C0[J] > 0.000e0) && (C1[J] > 0.000e0) )
      {
        C =  C0[J] * pow( (C1[J]/C0[J]), Tfac );
        sf =  ((sf_T0[J] * pow( (sf_T1[J]/sf_T0[J]), Tfac ))-1.000e0)*(0.79/0.21);
        SN2 = facfac * C * (vmrn2 + sf * vmro2  + vmrh2o);
      }
//           sf is  ~ the ratio of alpha(n2-o2)/alpha(n2-n2)
//           Eq's 7 and 8 in the Boissoles paper.
//    if ( (C0[J] > 0.000e0) && (C1[J] > 0.000e0) )
//      {
//        SN2 = facfac* C0[J] * pow( (C1[J]/C0[J]), Tfac );
//      }
 
    // CKD cross section with radiative field
    k[J] = SN2 * RADFN_FUN(VJ,XKT); // [1]
  }
 
 
      // Loop input frequency array. The previously calculated cross section
      // has therefore to be interpolated on the input frequencies.
      for ( Index s = 0 ; s < n_f ; ++s )
  {
    // calculate the associated wave number (= 1/wavelength)
    Numeric V = f_grid[s] / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
    if ( (V > 0.000e0) && (V < N2N2_CT220_ckd_mt_100_v2) )
      {
        // arts cross section [1/m]
        // interpolate the k vector on the f_grid grid
        pxsec(s,i) +=  ScalingFac * 1.000e2 * XINT_FUN(V1C,V2C,DVC,k,V);
      }
  }
    }
 
}
 
// =================================================================================
 
 
void CKD_mt_250_CIAfun_n2 (MatrixView          pxsec,
                       const Numeric       Cin,
                       const String&       model,
                       ConstVectorView     f_grid,
                       ConstVectorView     abs_p,
                       ConstVectorView     abs_t,
                       ConstVectorView     vmr,
                       ConstVectorView     abs_h2o,
                       ConstVectorView     abs_o2,
                       const Verbosity& verbosity)
{
  CREATE_OUT3;
 
  // check the model name about consistency
  if ((model != "user") &&  (model != "CKDMT250"))
    {
      ostringstream os;
      os << "!!ERROR!!\n"
   << "CKD_MT2.50 N2 CIA fundamental band:\n"
   << "INPUT model name is: " << model << ".\n"
   << "VALID model names are user and CKDMT250\n";
      throw runtime_error(os.str());
    }
 
 
  // scaling factor of the N2-N2 CIA fundamental band absorption
  Numeric  ScalingFac = 1.0000e0;
  if ( model == "user" )
    {
      ScalingFac = Cin; // input scaling factor of calculated absorption
    }
 
 
  const Index n_p = abs_p.nelem();  // Number of pressure levels
  const Index n_f = f_grid.nelem();  // Number of frequencies
 
 
  // Check that dimensions of abs_p, abs_t, and vmr agree:
  assert ( n_p==abs_t.nelem() );
  assert ( n_p==vmr.nelem()   );
 
  // Check that dimensions of pxsec are consistent with n_f
  // and n_p. It should be [n_f,n_p]:
  assert ( n_f==pxsec.nrows() );
  assert ( n_p==pxsec.ncols() );
 
 
  // ************************** CKD stuff ************************************
 
  const Numeric xLosmt = 2.686763e19; // Loschmidt Number [molecules/cm^3]
  const Numeric T1     =  273.0e0;
 // const Numeric TO     =  296.0e0;
  const Numeric PO     = 1013.0e0;
 
  // It is assumed here that f_grid is monotonically increasing with index!
  // In future change this return into a change of the loop over
  // the frequency f_grid. n_f_new < n_f
  Numeric V1ABS = f_grid[0]     / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
  Numeric V2ABS = f_grid[n_f-1] / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
  if ( (V1ABS < N2N2_N2F_ckd_mt_250_v1) || (V1ABS > N2N2_N2F_ckd_mt_250_v2) ||
       (V2ABS < N2N2_N2F_ckd_mt_250_v1) || (V2ABS > N2N2_N2F_ckd_mt_250_v2) )
    {
      out3  << "WARNING:\n"
            << "   CKD_MT 2.50 N2-N2 CIA fundamental band:\n"
      << "   input frequency vector exceeds range of model validity\n"
      << "  " << N2N2_N2F_ckd_mt_250_v1 << "<->" << N2N2_N2F_ckd_mt_250_v2 << "cm^-1\n";
    }
 
 
  // ------------------- subroutine N2_VER_1 ----------------------------
 
  // retrieve the appropriate array sequence of the self continuum
  // arrays of the CKD model.
  Numeric DVC = N2N2_N2F_ckd_mt_250_dv;
  Numeric V1C = V1ABS - DVC;
  Numeric V2C = V2ABS + DVC;
 
  int I1 = (int) ((V1C-N2N2_N2F_ckd_mt_250_v1) / N2N2_N2F_ckd_mt_250_dv);
  if (V1C < N2N2_N2F_ckd_mt_250_v1) I1 = -1;
  V1C    = N2N2_N2F_ckd_mt_250_v1 + (N2N2_N2F_ckd_mt_250_dv * (Numeric)I1);
 
  int I2 = (int) ((V2C-N2N2_N2F_ckd_mt_250_v1) / N2N2_N2F_ckd_mt_250_dv);
 
  int NPTC = I2-I1+3;
  if (NPTC > N2N2_N2F_ckd_mt_250_npt) NPTC = N2N2_N2F_ckd_mt_250_npt+1;
 
  V2C    = V1C + N2N2_N2F_ckd_mt_250_dv * (Numeric)(NPTC-1);
 
  if (NPTC < 1)
    {
      out3 << "WARNING:\n"
     << "  CKD_MT 2.50 N2-N2 CIA fundamental band:\n"
     << "  no elements of internal continuum coefficients could be found for the\n"
     << "  input frequency range.\n";
      return;
    }
 
  Vector xn2(NPTC+addF77fields, 0.);
  Vector xn2t(NPTC+addF77fields, 0.);
 
  for (Index J = 1 ; J <= NPTC ; ++J)
    {
      Index I = I1+J;
      if ( (I > 0) && (I <= N2N2_N2F_ckd_mt_250_npt) )
  {
    xn2[J]  = N2N2_N2F_ckd_mt_250[I];
    xn2t[J] = N2N2_N2Ft_ckd_mt_250[I];
  }
    }
 
  // ------------------- subroutine N2_VER_1 ----------------------------
 
 
 
 
  // Loop pressure/temperature:
  for ( Index i = 0 ; i < n_p ; ++i )
    {
      Numeric Tave   = abs_t[i];                               // [K]
      Numeric Pave   = (abs_p[i]*1.000e-2);                    // [hPa]
      Numeric vmrn2  = vmr[i];                                 // [1]
      Numeric vmro2  = abs_o2[i];                                 // [1]
      Numeric vmrh2o  = abs_h2o[i];                                 // [1]
      Numeric WTOT   = xLosmt * (Pave/PO) * (T1/Tave);         // [molecules/cm^2]
      Numeric tau_fac= WTOT   * (Pave/PO) * (T1/Tave);
      Numeric a_o2 = 1.294 - 0.4545*Tave/296.00e0;
      Numeric a_h2o = 1.00e0;
      Numeric XKT    = Tave / 1.4387752e0;                     // = (T*k_B) / (h*c)
 
      // FIXME Numeric Tfac   = (Tave - TO) / (220.0e0 - TO);           // [1]
      Numeric xktfac = ((1.000e0/Tave)-(1.000e0/272))/((1.000e0/228)-(1.000e0/272));          // [1/K]
      Numeric xt_lin = (Tave-272)/(228-272);          // [K]
      Numeric factor = 0.000e0;
      if (vmrn2 > VMRCalcLimit)
  {
    factor = (1.000e0 / xLosmt) * (vmrn2+a_o2*vmro2+a_h2o*vmrh2o);
  }
 
      // Molecular cross section calculated by CKD.
      // The cross sectionis calculated on the predefined
      // CKD wavenumber grid.
      Vector k(NPTC+addF77fields+1, 0.); // [1/cm]
      Vector C0(NPTC+addF77fields+1, 0.); 
      for (Index J = 1 ; J <= NPTC ; ++J)
  {
    Numeric VJ  = V1C + (DVC * (Numeric)(J-1));
    Numeric SN2 = 0.000e0;
    if ( (xn2[J] > 0.000e0) && (xn2t[J] > 0.000e0))
      {
        C0[J] = factor * xn2[J] * pow((xn2t[J]/xn2[J]), xktfac) / VJ;
        SN2 = tau_fac * C0[J];
      }
    else
    {
        C0[J] = factor * (xn2[J] + (xn2t[J]-xn2[J])*xt_lin) / VJ;
        SN2 = tau_fac * C0[J];
    }
    // CKD cross section with radiative field
    k[J] = SN2 * RADFN_FUN(VJ,XKT); // [1/cm]
  }
 
 
      // Loop input frequency array. The previously calculated cross section
      // has therefore to be interpolated on the input frequencies.
      for ( Index s = 0 ; s < n_f ; ++s )
  {
    // calculate the associated wave number (= 1/wavelength)
    Numeric V = f_grid[s] / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
    if ( (V > N2N2_N2F_ckd_mt_250_v1) && (V < N2N2_N2F_ckd_mt_250_v2) )
      {
        // arts cross section [1/m]
        // interpolate the k vector on the f_grid grid
        pxsec(s,i) +=  ScalingFac * 1.000e2 * XINT_FUN(V1C,V2C,DVC,k,V);
      }
  }
    }
 
}
// =================================================================================
 
 
void CKD_mt_CIAfun_o2 (MatrixView         pxsec,
                       const Numeric       Cin,
                       const String&       model,
                       ConstVectorView     f_grid,
                       ConstVectorView     abs_p,
                       ConstVectorView     abs_t,
                       ConstVectorView     vmr _U_,
                       const Verbosity& verbosity)
{
  CREATE_OUT3;
 
  // check the model name about consistency
  if ((model != "user") &&  (model != "CKDMT100"))
    {
      ostringstream os;
      os << "!!ERROR!!\n"
   << "CKD_MT1.00 O2 CIA fundamental band:\n"
   << "INPUT model name is: " << model << ".\n"
   << "VALID model names are user and CKDMT100\n";
      throw runtime_error(os.str());
    }
 
 
  // scaling factor of the O2-O2 CIA fundamental band absorption
  Numeric  ScalingFac = 1.0000e0;
  if ( model == "user" )
    {
      ScalingFac = Cin; // input scaling factor of calculated absorption
    }
 
 
  const Index n_p = abs_p.nelem();  // Number of pressure levels
  const Index n_f = f_grid.nelem();  // Number of frequencies
 
 
  // Check that dimensions of abs_p, abs_t, and vmr agree:
  assert ( n_p==abs_t.nelem() );
  assert ( n_p==vmr.nelem()   );
 
  // Check that dimensions of pxsec are consistent with n_f
  // and n_p. It should be [n_f,n_p]:
  assert ( n_f==pxsec.nrows() );
  assert ( n_p==pxsec.ncols() );
 
 
  // ************************** CKD stuff ************************************
 
  const Numeric xLosmt = 2.686763e19; // Loschmidt Number [molecules/cm^3]
  const Numeric T1     =  273.0e0;
  const Numeric TO     =  296.0e0;
  const Numeric PO     = 1013.0e0;
 
 
  // It is assumed here that f_grid is monotonically increasing with index!
  // In future change this return into a change of the loop over
  // the frequency f_grid. n_f_new < n_f
  Numeric V1ABS = f_grid[0]     / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
  Numeric V2ABS = f_grid[n_f-1] / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
  if ( (V1ABS < O2O2_O2F_ckd_mt_100_v1) || (V1ABS > O2O2_O2F_ckd_mt_100_v2) ||
       (V2ABS < O2O2_O2F_ckd_mt_100_v1) || (V2ABS > O2O2_O2F_ckd_mt_100_v2) )
    {
      out3  << "WARNING:\n"
            << "  CKD_MT 1.00 O2-O2 CIA fundamental band:\n"
      << "  input frequency vector exceeds range of model validity\n"
      << "  " << O2O2_O2F_ckd_mt_100_v1 << "<->" << O2O2_O2F_ckd_mt_100_v2 << "cm^-1\n";
    }
 
 
  // ------------------- subroutine O2_VER_1 ----------------------------
 
  // retrieve the appropriate array sequence of the CKD model array.
  Numeric DVC = O2O2_O2F_ckd_mt_100_dv;
  Numeric V1C = V1ABS - DVC;
  Numeric V2C = V2ABS + DVC;
 
  int I1 = (int) ((V1C-O2O2_O2F_ckd_mt_100_v1) / O2O2_O2F_ckd_mt_100_dv);
  if (V1C < O2O2_O2F_ckd_mt_100_v1) I1 = -1;
  V1C    = O2O2_O2F_ckd_mt_100_v1 + (O2O2_O2F_ckd_mt_100_dv * (Numeric)I1);
 
  int I2 = (int) ((V2C-O2O2_O2F_ckd_mt_100_v1) / O2O2_O2F_ckd_mt_100_dv);
 
  int NPTC = I2-I1+3;
  if (NPTC > O2O2_O2F_ckd_mt_100_npt) NPTC = O2O2_O2F_ckd_mt_100_npt+1;
 
  V2C    = V1C + O2O2_O2F_ckd_mt_100_dv * (Numeric)(NPTC-1);
 
  if (NPTC < 1)
    {
      out3 << "WARNING:\n"
     << "  CKD_MT 1.00 O2 CIA fundamental band:\n"
     << "  no elements of internal continuum coefficients could be found for the\n"
     << "  input frequency range.\n"
     << "  Leave the function without calculating the absorption.\n";
      return;
    }
 
  Vector xo2(NPTC+addF77fields, 0.);
  Vector xo2t(NPTC+addF77fields, 0.);
 
  for (Index J = 1 ; J <= NPTC ; ++J)
    {
      Index I = I1+J;
      if ( (I > 0) && (I <= O2O2_O2F_ckd_mt_100_npt) )
  {
    xo2[J]  = O2O2_O2Fo_ckd_mt_100[I];
    xo2t[J] = O2O2_O2Ft_ckd_mt_100[I];
  }
    }
 
  // ------------------- subroutine O2_VER_1 ----------------------------
 
 
 
 
  // Loop pressure/temperature:
  for ( Index i = 0 ; i < n_p ; ++i )
    {
      Numeric Tave   = abs_t[i];                               // [K]
      Numeric Pave   = (abs_p[i]*1.000e-2);                    // [hPa]
      // FIXME Numeric vmro2  = vmr[i];                                 // [1]
      Numeric WTOT   = xLosmt * (Pave/PO) * (T1/Tave);         // [molecules/cm^2]
      Numeric tau_fac= WTOT * (Pave/PO) * (T1/Tave);
 
      Numeric XKT    = Tave / 1.4387752;                       // = (T*k_B) / (h*c)
 
      Numeric xktfac = (1.000e0/TO) - (1.000e0/Tave);          // [1/K]
      Numeric factor = (1.000e0 / xLosmt);
 
      // Molecular cross section calculated by CKD.
      // The cross sectionis calculated on the predefined
      // CKD wavenumber grid.
      Vector k(NPTC+addF77fields+1, 0.); // [1/cm]
      for (Index J = 1 ; J <= NPTC ; ++J)
  {
    Numeric VJ  = V1C + (DVC * (Numeric)(J-1));
    Numeric SO2 = 0.0e0;
    if (xo2[J] > 0.0e0)
      {
        Numeric C0 = factor * xo2[J] * exp(xo2t[J]*xktfac) / VJ;
        SO2 = tau_fac * C0;
      }
 
    // CKD cross section without radiative field
    k[J] = SO2 * RADFN_FUN(VJ,XKT); // [1]
  }
 
 
      // Loop input frequency array. The previously calculated cross section
      // has therefore to be interpolated on the input frequencies.
      for ( Index s = 0 ; s < n_f ; ++s )
  {
    // calculate the associated wave number (= 1/wavelength)
    Numeric V = f_grid[s] / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
    if ( (V > O2O2_O2F_ckd_mt_100_v1) && (V < O2O2_O2F_ckd_mt_100_v2) )
      {
        // arts cross section [1/m]
        // interpolate the k vector on the f_grid grid
        pxsec(s,i) +=  ScalingFac * 1.000e2 * XINT_FUN(V1C,V2C,DVC,k,V);
      }
  }
    }
 
}
 
// =================================================================================
 
 
void CKD_mt_v0v0_o2 (MatrixView          pxsec,
                     const Numeric       Cin,
                     const String&       model,
                     ConstVectorView     f_grid,
                     ConstVectorView     abs_p,
                     ConstVectorView     abs_t,
                     ConstVectorView     vmr,
                     ConstVectorView     abs_n2,
                     const Verbosity& verbosity)
{
  CREATE_OUT3;
 
  // check the model name about consistency
  if ((model != "user") &&  (model != "CKDMT100"))
    {
      ostringstream os;
      os << "!!ERROR!!\n"
   << "CKD_MT1.00 O2 band at 1.27 micrometer:\n"
   << "INPUT model name is: " << model << ".\n"
   << "VALID model names are user and CKDMT100\n";
      throw runtime_error(os.str());
    }
 
 
  // scaling factor of the O2 v0<-v0 band absorption
  Numeric  ScalingFac = 1.0000e0;
  if ( model == "user" )
    {
      ScalingFac = Cin; // input scaling factor of calculated absorption
    };
 
  const Index n_p = abs_p.nelem();  // Number of pressure levels
  const Index n_f = f_grid.nelem();  // Number of frequencies
 
 
  // Check that dimensions of abs_p, abs_t, and vmr agree:
  assert ( n_p==abs_t.nelem() );
  assert ( n_p==vmr.nelem()   );
 
  // Check that dimensions of pxsec are consistent with n_f
  // and n_p. It should be [n_f,n_p]:
  assert ( n_f==pxsec.nrows() );
  assert ( n_p==pxsec.ncols() );
 
 
  // ************************** CKD stuff ************************************
 
  // FIXME const Numeric xLosmt    = 2.686763e19; // Loschmidt Number [molecules/cm^3]
  const Numeric T1        =  273.0e0;
  // FIXME const Numeric TO        =  296.0e0;
  const Numeric PO        = 1013.0e0;
 
  // It is assumed here that f_grid is monotonically increasing with index!
  // In future change this return into a change of the loop over
  // the frequency f_grid. n_f_new < n_f
  Numeric V1ABS = f_grid[0]     / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
  Numeric V2ABS = f_grid[n_f-1] / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
  if ( (V1ABS < O2_00_ckd_mt_100_v1) || (V1ABS > O2_00_ckd_mt_100_v2) ||
       (V2ABS < O2_00_ckd_mt_100_v1) || (V2ABS > O2_00_ckd_mt_100_v2) )
    {
      out3  << "WARNING:\n"
            << "   CKD_MT 1.00 O2 v0<-v0 band:\n"
      << "   input frequency vector exceeds range of model validity\n"
      << "  " << O2_00_ckd_mt_100_v1 << "<->" << O2_00_ckd_mt_100_v2 << "cm^-1\n";
    }
 
 
  // ------------------- subroutine O2INF1 ----------------------------
 
  // retrieve the appropriate array sequence of the CKD model array.
  Numeric DVC = O2_00_ckd_mt_100_dv;
  Numeric V1C = V1ABS - DVC;
  Numeric V2C = V2ABS + DVC;
 
  int I1 = (int) ((V1C-O2_00_ckd_mt_100_v1) / O2_00_ckd_mt_100_dv);
  if (V1C < O2_00_ckd_mt_100_v1) I1 = I1-1;
  V1C    = O2_00_ckd_mt_100_v1 + (O2_00_ckd_mt_100_dv * (Numeric)I1);
 
  int I2 = (int) ((V2C-O2_00_ckd_mt_100_v1) / O2_00_ckd_mt_100_dv);
 
  int NPTC = I2-I1+3;
 
  V2C    = V1C + O2_00_ckd_mt_100_dv * (Numeric)(NPTC-1);
 
  if (NPTC < 1)
    {
      out3 << "WARNING:\n"
     << "  CKD_MT 1.00 O2 v0<-v0 band:\n"
     << "  no elements of internal continuum coefficients could be found for the\n"
     << "  input frequency range.\n"
     << "  Leave the function without calculating the absorption.\n";
      return;
    }
 
  Numeric CO[(int)(NPTC+addF77fields)];
 
 
  for (Index J = 1 ; J <= NPTC ; ++J)
    {
      CO[J]  = 0.000e0;
      Index I = I1+J;
      if ( (I > 0) && (I <= O2_00_ckd_mt_100_npt) )
  {
    Numeric VJ  = V1C + (DVC * (Numeric)(J-1));
    CO[J]  = O2_00_ckd_mt_100[I] / VJ;
  }
    }
 
  // ------------------- subroutine O2INF1 ----------------------------
 
 
 
 
  // Loop pressure/temperature:
  for ( Index i = 0 ; i < n_p ; ++i )
    {
      Numeric Tave   = abs_t[i];                               // [K]
      Numeric Pave   = (abs_p[i]*1.000e-2);                    // [hPa]
      Numeric vmro2  = vmr[i];                                 // [1]
      Numeric vmrn2  = abs_n2[i];                              // [1]
      Numeric ADJWO2 = (vmro2 + 0.300e0*vmrn2) / 0.446e0 *
                       (Pave/PO) * (Pave/PO) * (T1/Tave) * (T1/Tave);
      Numeric XKT    = Tave / 1.4387752e0;                     // = (T*k_B) / (h*c)
 
      // Molecular cross section calculated by CKD.
      // The cross sectionis calculated on the predefined
      // CKD wavenumber grid. The abs. coeff. is then the
      // cross section times the number density.
      Numeric k[NPTC+addF77fields]; // [1/cm]
      k[0] = 0.00e0; // not used array field
      for (Index J = 1 ; J <= NPTC ; ++J)
  {
    Numeric VJ  = V1C + (DVC * (Numeric)(J-1));
    Numeric SO2 = 0.0e0;
    if (CO[J] > 0.0e0)
      {
        SO2 = ADJWO2 * CO[J];
      }
 
    // CKD (cross section * number density) with radiative field
    k[J] = SO2 * RADFN_FUN(VJ,XKT); // [1/cm]
  }
 
 
      // Loop input frequency array. The previously calculated cross section
      // has therefore to be interpolated on the input frequencies.
      for ( Index s = 0 ; s < n_f ; ++s )
  {
    // calculate the associated wave number (= 1/wavelength)
    Numeric V = f_grid[s] / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
    if ( (V > O2_00_ckd_mt_100_v1) && (V < O2_00_ckd_mt_100_v2) )
      {
        // arts cross section [1/m]
        // interpolate the k vector on the f_grid grid
        pxsec(s,i) +=  ScalingFac * 1.000e2 * XINT_FUN(V1C,V2C,DVC,k,V);
      }
  }
    }
 
}
 
// =================================================================================
 
 
void CKD_mt_v1v0_o2 (MatrixView          pxsec,
                     const Numeric       Cin,
                     const String&       model,
                     ConstVectorView     f_grid,
                     ConstVectorView     abs_p,
                     ConstVectorView     abs_t,
                     ConstVectorView     vmr,
                     const Verbosity& verbosity)
{
  CREATE_OUT3;
 
  // check the model name about consistency
  if ((model != "user") &&  (model != "CKDMT100"))
    {
      ostringstream os;
      os << "!!ERROR!!\n"
   << "CKD_MT1.00 O2 band at 1.06 micrometer:\n"
   << "INPUT model name is: " << model << ".\n"
   << "VALID model names are user and CKDMT100\n";
      throw runtime_error(os.str());
    }
 
 
  // scaling factor of the O2 v1<-v0 band absorption
  Numeric  ScalingFac = 1.0000e0;
  if ( model == "user" )
    {
      ScalingFac = Cin; // input scaling factor of calculated absorption
    };
 
  const Index n_p = abs_p.nelem();  // Number of pressure levels
  const Index n_f = f_grid.nelem();  // Number of frequencies
 
 
  // Check that dimensions of abs_p, abs_t, and vmr agree:
  assert ( n_p==abs_t.nelem() );
  assert ( n_p==vmr.nelem()   );
 
  // Check that dimensions of pxsec are consistent with n_f
  // and n_p. It should be [n_f,n_p]:
  assert ( n_f==pxsec.nrows() );
  assert ( n_p==pxsec.ncols() );
 
 
  // ************************** CKD stuff ************************************
 
  const Numeric xLosmt    = 2.686763e19; // Loschmidt Number [molecules/cm^3]
  const Numeric T1        =  273.0e0;
  const Numeric TO        =  296.0e0;
  const Numeric PO        = 1013.0e0;
  // FIXME const Numeric vmr_argon = 9.000e-3;    // VMR of argon is assumed to be const.
 
 
  // CKD_MT 1.00 implementation of oxygen v1<-v0 band model of
  // Mlawer, Clough, Brown, Stephen, Landry, Goldman, Murcray,
  // "Observed  Atmospheric Collision Induced Absorption in Near Infrared Oxygen Bands",
  // Journal of Geophysical Research, vol 103, no. D4, pp. 3859-3863, 1998.
  const Numeric V1S    = O2_10_ckd_mt_100_v1;
  const Numeric V2S    = O2_10_ckd_mt_100_v2;
  const Numeric DVS    = O2_10_ckd_mt_100_dv;
  const Numeric V1_osc =  9375.000e0;
  const Numeric HW1    =    58.960e0;
  const Numeric V2_osc =  9439.000e0;
  const Numeric HW2    =    45.040e0;
  const Numeric S1     =     1.166e-4;
  const Numeric S2     =     3.086e-5;
 
 
  // It is assumed here that f_grid is monotonically increasing with index!
  // In future change this return into a change of the loop over
  // the frequency f_grid. n_f_new < n_f
  Numeric V1ABS = f_grid[0]     / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
  Numeric V2ABS = f_grid[n_f-1] / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
  if ( (V1ABS < O2_10_ckd_mt_100_v1) || (V1ABS > O2_10_ckd_mt_100_v2) ||
       (V2ABS < O2_10_ckd_mt_100_v1) || (V2ABS > O2_10_ckd_mt_100_v2) )
    {
      out3  << "WARNING:\n"
            << "   CKD_MT 1.00 O2 v1<-v0 band:\n"
      << "   input frequency vector exceeds range of model validity\n"
      << "  " << O2_10_ckd_mt_100_v1 << "<->" << O2_10_ckd_mt_100_v2 << "cm^-1\n";
    }
 
 
  // ------------------- subroutine O2INF2 ----------------------------
 
  // retrieve the appropriate array sequence of the CKD model array.
  Numeric DVC = DVS;
  Numeric V1C = V1ABS - DVC;
  Numeric V2C = V2ABS + DVC;
 
  int NPTC = (int)( ((V2C-V1C)/DVC) + 3 );
 
  V2C = V1C + ( DVC * (Numeric)(NPTC-1) );
 
  if (NPTC < 1)
    {
      out3 << "WARNING:\n"
     << "  CKD_MT 1.00 O2 v1<-v0 band:\n"
     << "  no elements of internal continuum coefficients could be found for the\n"
     << "  input frequency range.\n"
     << "  Leave the function without calculating the absorption.\n";
      return;
    }
 
  Numeric C[NPTC+addF77fields];
  C[0] = 0.000e0; // not used field of array
 
  for (Index J = 1 ; J <= NPTC ; ++J)
    {
      C[J]  = 0.000e0;
      Numeric VJ  = V1C + (DVC * (Numeric)(J-1));
 
      if ( (VJ > V1S) && (VJ < V2S) )
        {
    Numeric DV1 = VJ - V1_osc;
    Numeric DV2 = VJ - V2_osc;
 
    Numeric DAMP1 = 1.00e0;
    Numeric DAMP2 = 1.00e0;
 
    if ( DV1 < 0.00e0 )
      {
        DAMP1 = exp(DV1 / 176.100e0);
      }
 
    if ( DV2 < 0.00e0 )
      {
        DAMP2 = exp(DV2 / 176.100e0);
      }
 
    Numeric O2INF = 0.31831e0 *
                 ( ((S1 * DAMP1 / HW1)/(1.000e0 + pow((DV1/HW1),(Numeric)2.0e0) )) +
       ((S2 * DAMP2 / HW2)/(1.000e0 + pow((DV2/HW2),(Numeric)2.0e0) )) ) * 1.054e0;
    C[J] = O2INF / VJ;
  }
    }
 
 
  // ------------------- subroutine O2INF2 ----------------------------
 
 
  // Loop pressure/temperature:
  for ( Index i = 0 ; i < n_p ; ++i )
    {
      Numeric Tave   = abs_t[i];                               // [K]
      Numeric Pave   = (abs_p[i]*1.000e-2);                    // [hPa]
      Numeric vmro2  = vmr[i];                                 // [1]
      Numeric WTOT   = 1.000e-20 * xLosmt * (Pave/PO) * (T1/Tave); // [molecules/cm^2]
      Numeric ADJWO2 = (vmro2 / 0.209e0) * WTOT * (Pave/PO) * (TO/Tave);
      Numeric XKT    = Tave / 1.4387752;                       // = (T*k_B) / (h*c)
 
      // Molecular cross section calculated by CKD.
      // The cross sectionis calculated on the predefined
      // CKD wavenumber grid.
      Numeric k[NPTC+addF77fields]; // [1/cm]
      k[0] = 0.00e0; // not used array field
      for (Index J = 1 ; J <= NPTC ; ++J)
  {
    Numeric VJ  = V1C + (DVC * (Numeric)(J-1));
    Numeric SO2 = 0.0e0;
    if (C[J] > 0.0e0)
      {
        SO2 = ADJWO2 * C[J];
      }
 
    // CKD cross section without radiative field
    k[J] = SO2 * RADFN_FUN(VJ,XKT); // [1]
  }
 
 
      // Loop input frequency array. The previously calculated cross section
      // has therefore to be interpolated on the input frequencies.
      for ( Index s = 0 ; s < n_f ; ++s )
  {
    // calculate the associated wave number (= 1/wavelength)
    Numeric V = f_grid[s] / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
    if ( (V > V1S) && (V < V2S) )
      {
        // arts cross section [1/m]
        // interpolate the k vector on the f_grid grid
        pxsec(s,i) +=  ScalingFac * 1.000e2 * XINT_FUN(V1C,V2C,DVC,k,V);
      }
  }
    }
 
}
// =================================================================================
 
 
void CKD_mt_250_o2_vis (MatrixView          pxsec,
                     const Numeric       Cin,
                     const String&       model,
                     ConstVectorView     f_grid,
                     ConstVectorView     abs_p,
                     ConstVectorView     abs_t,
                     ConstVectorView     vmr,
                     const Verbosity& verbosity)
{
  CREATE_OUT3;
 
  // check the model name about consistency
  if ((model != "user") &&  (model != "CKDMT250"))
    {
      ostringstream os;
      os << "!!ERROR!!\n"
   << "CKD_MT2.50 O2 band at 1.06 micrometer:\n"
   << "INPUT model name is: " << model << ".\n"
   << "VALID model names are user and CKDMT250\n";
      throw runtime_error(os.str());
    }
 
 
  // scaling factor of the O2 v1<-v0 band absorption
  Numeric  ScalingFac = 1.0000e0;
  if ( model == "user" )
    {
      ScalingFac = Cin; // input scaling factor of calculated absorption
    };
 
  const Index n_p = abs_p.nelem();  // Number of pressure levels
  const Index n_f = f_grid.nelem();  // Number of frequencies
 
 
  // Check that dimensions of abs_p, abs_t, and vmr agree:
  assert ( n_p==abs_t.nelem() );
  assert ( n_p==vmr.nelem()   );
 
  // Check that dimensions of pxsec are consistent with n_f
  // and n_p. It should be [n_f,n_p]:
  assert ( n_f==pxsec.nrows() );
  assert ( n_p==pxsec.ncols() );
 
 
  // ************************** CKD stuff ************************************
 
  const Numeric xLosmt    = 2.686763e19; // Loschmidt Number [molecules/cm^3]
  const Numeric T1        =  273.0e0;
 // const Numeric TO        =  296.0e0;
  const Numeric PO        = 1013.0e0;
  // FIXME const Numeric vmr_argon = 9.000e-3;    // VMR of argon is assumed to be const.
 
 
  // "Observed  Atmospheric Collision Induced Absorption in Near Infrared Oxygen Bands",
  // Journal of Geophysical Research, vol 103, no. D4, pp. 3859-3863, 1998.
  const Numeric V1S    = O2_vis_ckd_mt_250_v1;
  const Numeric V2S    = O2_vis_ckd_mt_250_v2;
  const Numeric DVS    = O2_vis_ckd_mt_250_dv;
  
  // It is assumed here that f_grid is monotonically increasing with index!
  // In future change this return into a change of the loop over
  // the frequency f_grid. n_f_new < n_f
  Numeric V1ABS = f_grid[0]     / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
  Numeric V2ABS = f_grid[n_f-1] / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
  if ( (V1ABS < O2_vis_ckd_mt_250_v1) || (V1ABS > O2_vis_ckd_mt_250_v2) ||
       (V2ABS < O2_vis_ckd_mt_250_v1) || (V2ABS > O2_vis_ckd_mt_250_v2) )
    {
      out3  << "WARNING:\n"
            << "   CKD_MT 2.50 O2 vis band:\n"
      << "   input frequency vector exceeds range of model validity\n"
      << "  " << O2_vis_ckd_mt_250_v1 << "<->" << O2_vis_ckd_mt_250_v2 << "cm^-1\n";
    }
 
 
  // ------------------- subroutine O2INF2 ----------------------------
 
  // retrieve the appropriate array sequence of the CKD model array.
  Numeric DVC = DVS;
  Numeric V1C = V1ABS - DVC;
  Numeric V2C = V2ABS + DVC;
 
  int I1 = (int) ((V1C-O2_vis_ckd_mt_250_v1) / O2_vis_ckd_mt_250_dv);
  if (V1C < O2_vis_ckd_mt_250_v1) I1 = I1-1;
  V1C    = O2_vis_ckd_mt_250_v1 + (O2_vis_ckd_mt_250_dv * (Numeric)I1);
 
  int I2 = (int) ((V2C-O2_vis_ckd_mt_250_v1) / O2_vis_ckd_mt_250_dv);
 
  int NPTC = I2-I1+3;
 
  V2C    = V1C + O2_vis_ckd_mt_250_dv * (Numeric)(NPTC-1);
 
  if (NPTC < 1)
    {
      out3 << "WARNING:\n"
     << "  CKD_MT 2.50 O2 vis band:\n"
     << "  no elements of internal continuum coefficients could be found for the\n"
     << "  input frequency range.\n"
     << "  Leave the function without calculating the absorption.\n";
      return;
    }
 
  Numeric CO[(int)(NPTC+addF77fields)];
 
 
  for (Index J = 1 ; J <= NPTC ; ++J)
    {
      CO[J]  = 0.000e0;
      Index I = I1+J;
      if ( (I > 0) && (I <= O2_vis_ckd_mt_250_npt) )
  {
    Numeric VJ  = V1C + (DVC * (Numeric)(J-1));
    CO[J]  = O2_vis_ckd_mt_250[I] / VJ;
  }
    }
 
 
  // ------------------- subroutine O2_vis ----------------------------
 
 
  // Loop pressure/temperature:
  for ( Index i = 0 ; i < n_p ; ++i )
    {
      Numeric Tave   = abs_t[i];                               // [K]
      Numeric Pave   = (abs_p[i]*1.000e-2);                    // [hPa]
   //   Numeric vmro2  = vmr[i];                                 // [1]
      Numeric WTOT   = 1.000e-20 * xLosmt * (Pave/PO) * (T1/Tave); // [molecules/cm^2]
      Numeric XKT    = Tave / 1.4387752;                       // = (T*k_B) / (h*c)
      Numeric tau_fac= WTOT * (Pave/PO) * (T1/Tave);
 
//    these are the conditions reported in the paper by Greenblatt et al. for 
//    the spectrum of Fig. 1.
 
//    conditions:  55 atm.; 296 K; 89.5 cm path
 
      Numeric factor = 1.000e0/(xLosmt*1.e-20*pow( (55.e0*273.0e0/296.0e0), 2)*89.5);
 
      // Molecular cross section calculated by CKD.
      // The cross sectionis calculated on the predefined
      // CKD wavenumber grid.
      Numeric k[NPTC+addF77fields]; // [1/cm]
      k[0] = 0.00e0; // not used array field
      for (Index J = 1 ; J <= NPTC ; ++J)
  {
    Numeric VJ  = V1C + (DVC * (Numeric)(J-1));
    Numeric SO2 = 0.0e0;
      
      SO2 = CO[J] * factor * tau_fac;
 
    // CKD cross section without radiative field
    k[J] = SO2 * RADFN_FUN(VJ,XKT); // [1]
  }
 
 
      // Loop input frequency array. The previously calculated cross section
      // has therefore to be interpolated on the input frequencies.
      for ( Index s = 0 ; s < n_f ; ++s )
  {
    // calculate the associated wave number (= 1/wavelength)
    Numeric V = f_grid[s] / (SPEED_OF_LIGHT * 1.00e2); // [cm^-1]
    if ( (V > V1S) && (V < V2S) )
      {
        // arts cross section [1/m]
        // interpolate the k vector on the f_grid grid
        pxsec(s,i) +=  ScalingFac * 1.000e2 * XINT_FUN(V1C,V2C,DVC,k,V);
      }
  }
    }
 
}
 
// #################################################################################
 
 
void CKD24_H20 (MatrixView          pxsec,
                int                 isf,
                const Numeric       Cin,
                const String&       model,
                ConstVectorView     f_grid,
                ConstVectorView     abs_p,
                ConstVectorView     abs_t,
                ConstVectorView     vmr,
                ConstVectorView     abs_n2,
                const Verbosity& verbosity)
{
  CREATE_OUT3;
  
  //
  //
  // external function to call (original F77 code translated with f2c)
  /* INPUT PARAMETERS:                           */
  /*  P          [hPa]  TOTAL PRESSURE           */
  /*  T          [K]    TEMPERATURE              */
  /*  VMRH2O     [1]    H2O VOLUME MIXING RATIO  */
  /*  VMRN2      [1]    N2  VOLUME MIXING RATIO  */
  /*  VMRO2      [1]    O2  VOLUME MIXING RATIO  */
  /*  FREQ       [Hz]   FREQUENCY OF CALCULATION */
  extern double artsckd_(double p, double t,
       double vmrh2o, double vmrn2, double vmro2,
       double freq, int ivc);
  //
  // --------- STANDARD MODEL PARAMETERS ---------------------------------------------------
  Numeric  XFAC  =  1.0000;             // scaling factor
  // ---------------------------------------------------------------------------------------
 
 
  // check the model name about consistency
  if ((model != "user") &&  (model != "CKD24"))
    {
      ostringstream os;
      os << "!!ERROR!!\n"
   << "CKDv2.4.2 H2O self/foreign continuum:\n"
   << "INPUT model name is: " << model << ".\n"
   << "VALID model names are user and CKD24\n";
      throw runtime_error(os.str());
    }
 
 
  // select the parameter set (!!model dominates values!!):
  if ( model == "CKD24" )
    {
      XFAC =  1.0000;
    }
  else if ( model == "user" )
    {
      XFAC =  Cin;
    }
  else
    {
      if (isf == 0) {
  ostringstream os;
  os << "H2O-SelfContCKD24: ERROR! Wrong model values given.\n"
     << "allowed models are: 'CKD24', 'user'" << '\n';
  throw runtime_error(os.str());
      }
      if (isf == 1) {
  ostringstream os;
  os << "H2O-ForeignContCKD: ERROR! Wrong model values given.\n"
     << "allowed models are: 'CKD24', 'user'" << '\n';
  throw runtime_error(os.str());
      }
    }
 
  if (isf == 0) {
    out3  << "H2O-SelfContCKD24: (model=" << model << ") parameter values in use:\n"
    << " XFAC = " << XFAC << "\n";
  }
  if (isf == 1) {
    out3  << "H2O-ForeignContCKD: (model=" << model << ") parameter values in use:\n"
    << " XFAC = " << XFAC << "\n";
  }
 
 
  const Index n_p = abs_p.nelem();  // Number of pressure levels
  const Index n_f = f_grid.nelem();  // Number of frequencies
 
 
  // Check that dimensions of abs_p, abs_t, and vmr agree:
  assert ( n_p==abs_t.nelem() );
  assert ( n_p==vmr.nelem()   );
 
  // Check that dimensions of pxsec are consistent with n_f
  // and n_p. It should be [n_f,n_p]:
  assert ( n_f==pxsec.nrows() );
  assert ( n_p==pxsec.ncols() );
 
  //  ivc = 1     : N2-N2 CKD version of Borysow-Fromhold model
  //  ivc = 21    : H2O CKD2.4  self cont part
  //  ivc = 22    : H2O CKD2.4  foreign cont part
  //  ivc = 31    : MPMf87/s93  self cont part
  //  ivc = 32    : MPMf87/s93  foreign cont part
  int ivc = 55;
  if (isf == 0) {
    ivc = 21; // CKD2.4  self continuum
    // ivc = 31; // MPMf87/s93  self continuum
  }
  if (isf == 1) {
    ivc = 22; // CKD2.4  foreign continuum
    //ivc = 32; // MPMf87/s93  foreign continuum
  }
  if ((ivc != 1) && (ivc != 21) && (ivc != 22) && (ivc != 31) && (ivc != 32)) {
    ostringstream os;
    os << "!!ERROR: CKD24 H2O model: wrong input parameter isf (=0,1) given!\n"
       << "retrun without calculation!" << "\n"
       << "actual value of isf is " << isf << "\n";
    throw runtime_error(os.str());
    return;
  }
  // ivc = 1;
 
  // Loop pressure/temperature:
  for ( Index i=0; i<n_p; ++i )
    {
      double T      = (double) abs_t[i];            // [K]
      double p      = (double) (abs_p[i]*1.000e-2); // [hPa]
      double vmrh2o = (double) vmr[i];              // [1]
      double vmrn2  = (double) abs_n2[i];           // [1]
      double vmro2  = 0.0e0;                        // [1]
 
      //cout << "------------------------------------------------\n";
      //cout << "CKD2.4 H2O: ivc   =" << ivc << "\n";
      //cout << "CKD2.4 H2O: T     =" << T << " K\n";
      //cout << "CKD2.4 H2O: p     =" << p << " hPa\n";
      //cout << "CKD2.4 H2O: vmrh2o=" << vmrh2o << "\n";
      //cout << "CKD2.4 H2O: vmrn2 =" << vmrn2 << "\n";
      //cout << "CKD2.4 H2O: vmro2 =" << vmro2 << "\n";
      // Loop frequency:
      for ( Index s=0; s<n_f; ++s )
  {
    // the second vmr of N2 will be multiplied at the stage of
    // absorption calculation: abs =  vmr * pxsec.
    double f = (double) f_grid[s];            // [Hz]
    if (ivc == 1) { // ---------- N2 -----------------
      if (abs_n2[i] > 0.0e0) {
        //cout << "CKD2.4 N2: f   =" << f << " Hz\n";
        double cont = artsckd_(p, T, vmrh2o, vmrn2, vmro2, f, ivc);
        pxsec(s,i) +=  (Numeric) (cont / vmr[i]);
        //cout << "CKD2.4 N2: abs =" << cont << " 1/m\n";
      }
    } else { // ---------------- H2O -----------------
      if (vmr[i] > 0.0e0) {
        //cout << "CKD2.4 H2O: f   =" << f << " Hz\n";
        double cont = artsckd_(p, T, vmrh2o, vmrn2, vmro2, f, ivc);
        pxsec(s,i) +=  (Numeric) (cont / vmr[i]);
        //cout << "CKD2.4 H2O: abs =" << cont << " 1/m\n";
      }
    }
  }
    }
  return;
}
//
// #################################################################################
 
void Pardo_ATM_H2O_ForeignContinuum (MatrixView          pxsec,
                                     const Numeric       Cin,
                                     const String&       model,
                                     ConstVectorView     f_grid,
                                     ConstVectorView     abs_p,
                                     ConstVectorView     abs_t,
                                     ConstVectorView     vmr,
                                     const Verbosity& verbosity)
{
  CREATE_OUT3;
  
  // --------- STANDARD MODEL PARAMETERS ---------------------------------------------------
  // standard values for the Pardo et al. model (IEEE, Trans. Ant. Prop.,
  // Vol 49, No 12, pp. 1683-1694, 2001)
  const Numeric  C_ATM = 0.0315; // [1/m]
  // ---------------------------------------------------------------------------------------
 
  // select the parameter set (!!model dominates parameters!!):
  Numeric C;
   if ( model == "ATM" )
     {
       C = C_ATM;
     }
   else if ( model == "user" )
     {
       C = Cin;
     }
   else
     {
       ostringstream os;
       os << "H2O-ForeignContATM01: ERROR! Wrong model values given.\n"
    << "allowed models are: 'ATM', 'user'" << '\n';
       throw runtime_error(os.str());
     }
   out3  << "H2O-ForeignContATM01: (model=" << model << ") parameter values in use:\n"
         << " C_f = " << C << "\n";
 
   const Index n_p = abs_p.nelem();  // Number of pressure levels
   const Index n_f = f_grid.nelem();  // Number of frequencies
 
   // Check that dimensions of abs_p, abs_t, and vmr agree:
   assert ( n_p==abs_t.nelem() );
   assert ( n_p==vmr.nelem()   );
 
  // Check that dimensions of pxsec are consistent with n_f
  // and n_p. It should be [n_f,n_p]:
  assert ( n_f==pxsec.nrows() );
  assert ( n_p==pxsec.ncols() );
 
  // Loop over pressure/temperature grid:
  for ( Index i=0; i<n_p; ++i )
    {
      // since this is an effective "dry air" continuum, it is not really
      // it is not specifically attributed to N2, so we need the total
      // dry air part in total which is equal to the total minus the
      // water vapor pressure:
      Numeric  pd = abs_p[i] * ( 1.00000e0 - vmr[i] ); // [Pa]
      // since the H2O VMR will be multiplied in abs_coefCalc, we omit it here
      Numeric  pwdummy = abs_p[i]                    ; // [Pa]
      // Loop over frequency grid:
      for ( Index s=0; s<n_f; ++s )
  {
    // Becaue this is an effective "dry air" continuum, it is not really
    // specific N2 but mainly caused by N2. Therefore the N2 vmr must be
    // canceled out here which is later in abs_coefCalc multiplied
    // (calculation: abs = vmr * pxsec):
    pxsec(s,i) += C *                  // strength [1/(m*Hz²Pa²)]
      pow( (f_grid[s]/(Numeric)2.25e11), (Numeric)2. ) * // quadratic f dependence [1]
      pow( ((Numeric)300.0/abs_t[i]), (Numeric)3. ) * // free T dependence      [1]
      (pd/1.01300e5)                * // p_dry dependence       [1]
      (pwdummy/1.01300e5);            // p_H2O dependence       [1]
  }
    }
}
//
// #################################################################################
//
 
void MPM93_H2O_continuum (MatrixView          pxsec,
                          const Numeric       fcenter,
                          const Numeric       b1,
                          const Numeric       b2,
                          const Numeric       b3,
                          const Numeric       b4,
                          const Numeric       b5,
                          const Numeric       b6,
                          const String&       model,
                          ConstVectorView     f_grid,
                          ConstVectorView     abs_p,
                          ConstVectorView     abs_t,
                          ConstVectorView     vmr,
                          const Verbosity& verbosity)
{
  CREATE_OUT3;
 
  // --------- STANDARD MODEL PARAMETERS ---------------------------------------------------
  // standard values for the MPM93 H2O continuum model
  // (AGARD 52nd Specialists Meeting of the Electromagnetic Wave
  // Propagation Panel, Palma de Mallorca, Spain, 1993, May 17-21):
  const Numeric  MPM93fo_orig =  1780.000e9;  // [Hz]
  const Numeric  MPM93b1_orig = 22300.000;    // [Hz/Pa]
  const Numeric  MPM93b2_orig =     0.952;    // [1]
  const Numeric  MPM93b3_orig =    17.600e4;  // [Hz/Pa]
  const Numeric  MPM93b4_orig =    30.500;    // [1]
  const Numeric  MPM93b5_orig =     2.000;    // [1]
  const Numeric  MPM93b6_orig =     5.000;    // [1]
  // ---------------------------------------------------------------------------------------
 
 
  // select the parameter set (!!model goes for values!!):
  Numeric MPM93fopcl, MPM93b1pcl, MPM93b2pcl,
          MPM93b3pcl, MPM93b4pcl, MPM93b5pcl,
          MPM93b6pcl;
  if ( model == "MPM93" )
    {
      MPM93fopcl =  MPM93fo_orig;
      MPM93b1pcl =  MPM93b1_orig;
      MPM93b2pcl =  MPM93b2_orig;
      MPM93b3pcl =  MPM93b3_orig;
      MPM93b4pcl =  MPM93b4_orig;
      MPM93b5pcl =  MPM93b5_orig;
      MPM93b6pcl =  MPM93b6_orig;
    }
  else if ( model == "user" )
     {
      MPM93fopcl =  fcenter;
      MPM93b1pcl =  b1;
      MPM93b2pcl =  b2;
      MPM93b3pcl =  b3;
      MPM93b4pcl =  b4;
      MPM93b5pcl =  b5;
      MPM93b6pcl =  b6;
    }
   else
     {
       ostringstream os;
       os << "H2O-ContMPM93: ERROR! Wrong model values given.\n"
    << "allowed models are: 'MPM93', 'user'" << '\n';
       throw runtime_error(os.str());
     }
   out3  << "H2O-ContMPM93: (model=" << model << ") parameter values in use:\n"
         << " fo = " << MPM93fopcl << "\n"
         << " b1 = " << MPM93b1pcl << "\n"
         << " b2 = " << MPM93b2pcl << "\n"
         << " b3 = " << MPM93b3pcl << "\n"
         << " b4 = " << MPM93b4pcl << "\n"
         << " b5 = " << MPM93b5pcl << "\n"
         << " b6 = " << MPM93b6pcl << "\n";
 
  const Index n_p = abs_p.nelem();  // Number of pressure levels
  const Index n_f = f_grid.nelem();  // Number of frequencies
 
  // Check that dimensions of abs_p, abs_t, and vmr agree:
  assert ( n_p==abs_t.nelem() );
  assert ( n_p==vmr.nelem()   );
 
  // Check that dimensions of pxsec are consistent with n_f
  // and n_p. It should be [n_f,n_p]:
  assert ( n_f==pxsec.nrows() );
  assert ( n_p==pxsec.ncols() );
 
 
  // Loop pressure/temperature:
  for ( Index i=0; i<n_p; ++i )
    {
      Numeric th = 300.0 / abs_t[i];
      // the vmr of H2O will be multiplied at the stage of absorption calculation:
      // abs / vmr * pxsec.
      Numeric strength =  MPM93b1pcl * abs_p[i] * pow( th, (Numeric)3.5 )
        * exp(MPM93b2pcl * (1 - th));
      Numeric gam      =  MPM93b3pcl * 0.001 *
                    ( MPM93b4pcl * abs_p[i] * vmr[i]       * pow( th, MPM93b6pcl ) +
                                   abs_p[i]*(1.000-vmr[i]) * pow( th, MPM93b5pcl ) );
      // Loop frequency:
      for ( Index s=0; s<n_f; ++s )
  {
    // pxsec = abs/vmr [1/m] but MPM89 is in [dB/km] --> conversion necessary
    pxsec(s,i) += dB_km_to_1_m * 0.1820 *
                 f_grid[s] * strength *
                 MPMLineShapeFunction(gam, MPM93fopcl, f_grid[s]);
  }
    }
  return;
}
//
// #################################################################################
// ################################# OXYGEN MODELS #################################
// #################################################################################
 
void MPM85O2AbsModel (MatrixView          pxsec,
                      const Numeric       CCin,       // continuum scale factor
                      const Numeric       CLin,       // line strength scale factor
                      const Numeric       CWin,       // line broadening scale factor
                      const Numeric       COin,       // line coupling scale factor
                      const String&       model,
                      ConstVectorView     f_grid,
                      ConstVectorView     abs_p,
                      ConstVectorView     abs_t,
                      ConstVectorView     abs_h2o,
                      ConstVectorView     vmr,
                      const Verbosity& verbosity)
{
  CREATE_OUT3;
  
  //
  // Coefficients are from Liebe et al., AGARD CP-May93, Paper 3/1-10
  //      0             1           2         3          4      5         6
  //      f0           a1          a2        a3         a4     a5        a6
  //    [GHz]      [kHz/hPa]      [1]     [MHz/hPa]    [1]   [1/kPa]     [1]
  const Numeric mpm85[48][7] = {
   { 49.452379 ,       0.12 ,    11.830 ,    8.40 ,    0.0 ,  5.600 ,   1.700 },
   { 49.962257 ,       0.34 ,    10.720 ,    8.50 ,    0.0 ,  5.600 ,   1.700 },
   { 50.474238 ,       0.94 ,     9.690 ,    8.60 ,    0.0 ,  5.600 ,   1.700 },
   { 50.987748 ,       2.46 ,     8.690 ,    8.70 ,    0.0 ,  5.500 ,   1.700 },
   { 51.503350 ,       6.08 ,     7.740 ,    8.90 ,    0.0 ,  5.600 ,   1.800 },
   { 52.021409 ,      14.14 ,     6.840 ,    9.20 ,    0.0 ,  5.500 ,   1.800 },
   { 52.542393 ,      31.02 ,     6.000 ,    9.40 ,    0.0 ,  5.700 ,   1.800 },
   { 53.066906 ,      64.10 ,     5.220 ,    9.70 ,    0.0 ,  5.300 ,   1.900 },
   { 53.595748 ,     124.70 ,     4.480 ,   10.00 ,    0.0 ,  5.400 ,   1.800 },
   { 54.129999 ,     228.00 ,     3.810 ,   10.20 ,    0.0 ,  4.800 ,   2.000 },
   { 54.671157 ,     391.80 ,     3.190 ,   10.50 ,    0.0 ,  4.800 ,   1.900 },
   { 55.221365 ,     631.60 ,     2.620 ,   10.79 ,    0.0 ,  4.170 ,   2.100 },
   { 55.783800 ,     953.50 ,     2.115 ,   11.10 ,    0.0 ,  3.750 ,   2.100 },
   { 56.264777 ,     548.90 ,     0.010 ,   16.46 ,    0.0 ,  7.740 ,   0.900 },
   { 56.363387 ,    1344.00 ,     1.655 ,   11.44 ,    0.0 ,  2.970 ,   2.300 },
   { 56.968180 ,    1763.00 ,     1.255 ,   11.81 ,    0.0 ,  2.120 ,   2.500 },
   { 57.612481 ,    2141.00 ,     0.910 ,   12.21 ,    0.0 ,  0.940 ,   3.700 },
   { 58.323874 ,    2386.00 ,     0.621 ,   12.66 ,    0.0 , -0.550 ,  -3.100 },
   { 58.446589 ,    1457.00 ,     0.079 ,   14.49 ,    0.0 ,  5.970 ,   0.800 },
   { 59.164204 ,    2404.00 ,     0.386 ,   13.19 ,    0.0 , -2.440 ,   0.100 },
   { 59.590982 ,    2112.00 ,     0.207 ,   13.60 ,    0.0 ,  3.440 ,   0.500 },
   { 60.306057 ,    2124.00 ,     0.207 ,   13.82 ,    0.0 , -4.130 ,   0.700 },
   { 60.434775 ,    2461.00 ,     0.386 ,   12.97 ,    0.0 ,  1.320 ,  -1.000 },
   { 61.150558 ,    2504.00 ,     0.621 ,   12.48 ,    0.0 , -0.360 ,   5.800 },
   { 61.800152 ,    2298.00 ,     0.910 ,   12.07 ,    0.0 , -1.590 ,   2.900 },
   { 62.411212 ,    1933.00 ,     1.255 ,   11.71 ,    0.0 , -2.660 ,   2.300 },
   { 62.486253 ,    1517.00 ,     0.078 ,   14.68 ,    0.0 , -4.770 ,   0.900 },
   { 62.997974 ,    1503.00 ,     1.660 ,   11.39 ,    0.0 , -3.340 ,   2.200 },
   { 63.568515 ,    1087.00 ,     2.110 ,   11.08 ,    0.0 , -4.170 ,   2.000 },
   { 64.127764 ,     733.50 ,     2.620 ,   10.78 ,    0.0 , -4.480 ,   2.000 },
   { 64.678900 ,     463.50 ,     3.190 ,   10.50 ,    0.0 , -5.100 ,   1.800 },
   { 65.224067 ,     274.80 ,     3.810 ,   10.20 ,    0.0 , -5.100 ,   1.900 },
   { 65.764769 ,     153.00 ,     4.480 ,   10.00 ,    0.0 , -5.700 ,   1.800 },
   { 66.302088 ,      80.09 ,     5.220 ,    9.70 ,    0.0 , -5.500 ,   1.800 },
   { 66.836827 ,      39.46 ,     6.000 ,    9.40 ,    0.0 , -5.900 ,   1.700 },
   { 67.369595 ,      18.32 ,     6.840 ,    9.20 ,    0.0 , -5.600 ,   1.800 },
   { 67.900862 ,       8.01 ,     7.740 ,    8.90 ,    0.0 , -5.800 ,   1.700 },
   { 68.431001 ,       3.30 ,     8.690 ,    8.70 ,    0.0 , -5.700 ,   1.700 },
   { 68.960306 ,       1.28 ,     9.690 ,    8.60 ,    0.0 , -5.600 ,   1.700 },
   { 69.489021 ,       0.47 ,    10.720 ,    8.50 ,    0.0 , -5.600 ,   1.700 },
   { 70.017342 ,       0.16 ,    11.830 ,    8.40 ,    0.0 , -5.600 ,   1.700 },
  { 118.750341 ,     945.00 ,     0.000 ,   15.92 ,    0.0 , -0.440 ,   0.900 },
  { 368.498350 ,      67.90 ,     0.020 ,   19.20 ,    0.6 ,  0.000 ,   0.000 },
  { 424.763120 ,     638.00 ,     0.011 ,   19.16 ,    0.6 ,  0.000 ,   0.000 },
  { 487.249370 ,     235.00 ,     0.011 ,   19.20 ,    0.6 ,  0.000 ,   0.000 },
  { 715.393150 ,      99.60 ,     0.089 ,   18.10 ,    0.6 ,  0.000 ,   0.000 },
  { 773.838730 ,     671.00 ,     0.079 ,   18.10 ,    0.6 ,  0.000 ,   0.000 },
  { 834.145330 ,     180.00 ,     0.079 ,   18.10 ,    0.6 ,  0.000 ,   0.000 },
};
 
  // number of lines of Liebe O2-line catalog (0-47 lines)
  const Index i_first = 0;
  const Index i_last  = 47; // all the spec. lines up to 1THz
  // const Index i_last  = 40; // only the 60GHz complex + 118GHz line
 
 
  // --------- STANDARD MODEL PARAMETERS ---------------------------------------------------
  // standard values for the MPM85 model (Liebe, Radio Science, 20, 1069-1089, 1985):
  const Numeric CC_MPM85 = 1.00000;
  const Numeric CL_MPM85 = 1.00000;
  const Numeric CW_MPM85 = 1.00000;
  const Numeric CO_MPM85 = 1.00000;
  int   AppCutoff = 0;
  // ---------------------------------------------------------------------------------------
 
 
  // select the parameter set (!!model dominates values!!):
  Numeric CC, CL, CW, CO;
  if ( model == "MPM85" )
    {
      CC = CC_MPM85;
      CL = CL_MPM85;
      CW = CW_MPM85;
      CO = CO_MPM85;
    }
  else if ( model == "MPM85Lines" )
    {
      CC = 0.000;
      CL = CL_MPM85;
      CW = CW_MPM85;
      CO = CO_MPM85;
    }
  else if ( model == "MPM85Continuum" )
    {
      CC = CC_MPM85;
      CL = 0.000;
      CW = 0.000;
      CO = 0.000;
    }
  else if ( model == "MPM85NoCoupling" )
    {
      CC = CC_MPM85;
      CL = CL_MPM85;
      CW = CW_MPM85;
      CO = 0.000;
    }
  else if ( model == "MPM85NoCutoff" )
    {
      CC = CC_MPM85;
      CL = CL_MPM85;
      CW = CW_MPM85;
      CO = CO_MPM85;
      AppCutoff = 1;
    }
  else if ( model == "user" )
    {
      CC = CCin;
      CL = CLin;
      CW = CWin;
      CO = COin;
    }
  else
    {
      ostringstream os;
      os << "O2-MPM85: ERROR! Wrong model values given.\n"
   << "Valid models are: 'MPM85' 'MPM85Lines' 'MPM85Continuum' 'MPM85NoCoupling' 'MPM85NoCutoff'"
         << "and 'user'" << '\n';
      throw runtime_error(os.str());
    }
  out3  << "O2-MPM85: (model=" << model << ") parameter values in use:\n"
  << " CC = " << CC << "\n"
  << " CL = " << CL << "\n"
  << " CW = " << CW << "\n"
  << " CO = " << CO << "\n";
 
 
  // O2 continuum parameters of MPM92:
  const Numeric  S0 =  6.140e-4; // line strength                        [ppm]
  const Numeric G0 =  5.600e-3;  // line width                           [GHz/kPa]
  const Numeric  X0 =  0.800;    // temperature dependence of line width [1]
 
  const Index n_p = abs_p.nelem();  // Number of pressure levels
  const Index n_f = f_grid.nelem();  // Number of frequencies
 
  // const = VMR * ISORATIO = 0.20946 * 0.99519
  // this constant is already incorporated into the line strength, so we
  // have top devide the line strength by this value since arts multiplies pxsec
  // by these variables later in abs_coefCalc.
  const Numeric  VMRISO = 0.2085;
 
  // Check that dimensions of abs_p, abs_t, and vmr agree:
  assert ( n_p==abs_t.nelem() );
  assert ( n_p==vmr.nelem()   );
 
  // Check that dimensions of pxsec are consistent with n_f
  // and n_p. It should be [n_f,n_p]:
  assert ( n_f==pxsec.nrows() );
  assert ( n_p==pxsec.ncols() );
 
  // Loop pressure/temperature (pressure in hPa therefore the factor 0.01)
  for ( Index i=0; i<n_p; ++i )
    {
      // check if O2-VMR is exactly zero (caused by zeropadding), then return 0.
      if (vmr[i] == 0.)
      {
          pxsec(joker, i) = 0.;
          continue;
      }
 
      // check if O2-VMR will cause an underflow due to division by zero:
      if (vmr[i] < VMRCalcLimit)
  {
    ostringstream os;
    os << "ERROR: MPM87 O2 full absorption model has detected a O2 volume mixing ratio of "
       << vmr[i] << " which is below the threshold of " << VMRCalcLimit << ".\n"
       << "Therefore no calculation is performed.\n";
    throw runtime_error(os.str());
    return;
  }
 
      // relative inverse temperature [1]
      Numeric theta     = (300.0 / abs_t[i]);
      // H2O partial pressure [kPa]
      Numeric pwv       = Pa_to_kPa * abs_p[i] * abs_h2o[i];
      // dry air partial pressure [kPa]
      Numeric pda       = (Pa_to_kPa * abs_p[i]) - pwv;
      // here the total pressure is devided by the O2 vmr for the
      // P_dry calculation because we calculate pxsec and not abs: abs = vmr * pxsec
      Numeric pda_dummy = pda;
      // O2 continuum strength [ppm]
      Numeric strength_cont =  S0 * pda_dummy * pow( theta, (Numeric)2. );
      // O2 continuum pseudo line broadening [GHz]
      Numeric gam_cont      =  G0 * ( pda + 1.10*pwv ) *  pow( theta, X0 ); // GHz
 
      // Loop over input frequency
      for ( Index s=0; s<n_f; ++s )
  {
    // input frequency in [GHz]
    Numeric ff = f_grid[s] * Hz_to_GHz;
    // O2 continuum absorption [1/m]
    // cross section: pxsec = absorption / var
    // the vmr of O2 will be multiplied at the stage of absorption calculation:
    // here the rolloff parameter FAC is implemented!
    // Numeric FAC =  1.000 / ( pow( ff, 2) + pow( 60.000, 2) );
    // if we let the non-proofen rollofff away as in further version:
    Numeric FAC =  1.000 ;
    Numeric Nppc =  CC * strength_cont * FAC * ff * gam_cont /
                    ( pow( ff, (Numeric)2.)
                            + pow( gam_cont, (Numeric)2.) );
 
    // Loop over MPM85 O2 spectral lines:
    Numeric Nppl  = 0.0;
    for ( Index l = i_first; l <= i_last; ++l )
      {
        // line strength [ppm]   S=A(1,I)*P*V**3*EXP(A(2,I)*(1.-V))*1.E-6
        Numeric strength = CL * mpm85[l][1] * 1.000e-6  * pda_dummy *
                          pow(theta, (Numeric)3.) * exp(mpm85[l][2]*(1.000-theta)) /
                          mpm85[l][0];
        // line broadening parameter [GHz]
        Numeric gam      = CW * ( mpm85[l][3] * 1.000e-3 *
                                ( (       pda * pow(theta, ((Numeric)0.80-mpm85[l][4]))) +
                                        (1.10 * pwv * theta) ) );
        // line mixing parameter [1]
        Numeric delta    = CO * mpm85[l][5] * 1.000e-3 *
                    pda * pow(theta, mpm85[l][6]);
        // absorption [dB/km] like in the original MPM92
        Nppl            += strength * MPMLineShapeO2Function(gam, mpm85[l][0], ff, delta);
      }
    // in MPM85 there is a cutoff for O2 line absorption if abs_l < 0
    // absorption cannot be less than 0 according to MPM87 philosophy.
    // since this cutoff is only 'detectable' in the source code and not in the
          // publications we assume this cutoff also for MPM85 since it is also
          // implemented in MPM87.
    if (AppCutoff == 0)
      {
        if (Nppl < 0.000)  Nppl = 0.0000;
      }
    //
    // O2 line absorption [1/m]
    // cross section: pxsec = absorption / var
    // the vmr of O2 will be multiplied at the stage of absorption calculation:
    pxsec(s,i) += dB_km_to_1_m * 0.1820 * ff * (Nppl+Nppc) / VMRISO;
  }
    }
  return;
}
//
// #################################################################################
 
void MPM87O2AbsModel (MatrixView          pxsec,
                      const Numeric       CCin,       // continuum scale factor
                      const Numeric       CLin,       // line strength scale factor
                      const Numeric       CWin,       // line broadening scale factor
                      const Numeric       COin,       // line coupling scale factor
                      const String&       model,
                      ConstVectorView     f_grid,
                      ConstVectorView     abs_p,
                      ConstVectorView     abs_t,
                      ConstVectorView     abs_h2o,
                      ConstVectorView     vmr,
                      const Verbosity& verbosity)
{
  CREATE_OUT3;
  
  //
  // Coefficients are from Liebe et al., AGARD CP-May93, Paper 3/1-10
  //         0            1           2        3          4        5        6
  //         f0           a1          a2       a3         a4      a5        a6
  //        [GHz]      [kHz/hPa]     [1]    [MHz/hPa]    [1]         [1/kPa]
  const Numeric mpm87[48][7] = {
    { 49.452379 ,       0.12 ,    11.830 ,    8.40 ,    0.0 ,  6.600 ,   1.700}, // 0
    { 49.962257 ,       0.34 ,    10.720 ,    8.50 ,    0.0 ,  6.600 ,   1.700}, // 1
    { 50.474238 ,       0.94 ,     9.690 ,    8.60 ,    0.0 ,  6.600 ,   1.700}, // 2
    { 50.987748 ,       2.46 ,     8.690 ,    8.70 ,    0.0 ,  6.500 ,   1.700}, // 3
    { 51.503350 ,       6.08 ,     7.740 ,    8.90 ,    0.0 ,  6.627 ,   1.800}, // 4
    { 52.021409 ,      14.14 ,     6.840 ,    9.20 ,    0.0 ,  6.347 ,   1.800}, // 5
    { 52.542393 ,      31.02 ,     6.000 ,    9.40 ,    0.0 ,  6.046 ,   1.800}, // 6
    { 53.066906 ,      64.10 ,     5.220 ,    9.70 ,    0.0 ,  5.719 ,   1.900}, // 7
    { 53.595748 ,     124.70 ,     4.480 ,   10.00 ,    0.0 ,  5.400 ,   1.800}, // 8
    { 54.129999 ,     228.00 ,     3.810 ,   10.20 ,    0.0 ,  5.157 ,   2.000}, // 9
    { 54.671157 ,     391.80 ,     3.190 ,   10.50 ,    0.0 ,  4.783 ,   1.900}, // 10
    { 55.221365 ,     631.60 ,     2.620 ,   10.79 ,    0.0 ,  4.339 ,   2.100}, // 11
    { 55.783800 ,     953.50 ,     2.115 ,   11.10 ,    0.0 ,  4.011 ,   2.100}, // 12
    { 56.264777 ,     548.90 ,     0.010 ,   16.46 ,    0.0 ,  2.772 ,   0.900}, // 13
    { 56.363387 ,    1344.00 ,     1.655 ,   11.44 ,    0.0 ,  3.922 ,   2.300}, // 14
    { 56.968180 ,    1763.00 ,     1.255 ,   11.81 ,    0.0 ,  3.398 ,   2.500}, // 15
    { 57.612481 ,    2141.00 ,     0.910 ,   12.21 ,    0.0 ,  1.145 ,   3.200}, // 16
    { 58.323874 ,    2386.00 ,     0.621 ,   12.66 ,    0.0 , -0.317 ,  -2.500}, // 17
    { 58.446589 ,    1457.00 ,     0.079 ,   14.49 ,    0.0 ,  6.270 ,   0.800}, // 18
    { 59.164204 ,    2404.00 ,     0.386 ,   13.19 ,    0.0 , -4.119 ,   0.100}, // 19
    { 59.590982 ,    2112.00 ,     0.207 ,   13.60 ,    0.0 ,  6.766 ,   0.500}, // 20
    { 60.306057 ,    2124.00 ,     0.207 ,   13.82 ,    0.0 , -6.183 ,   0.700}, // 21
    { 60.434775 ,    2461.00 ,     0.386 ,   12.97 ,    0.0 ,  3.290 ,  -0.400}, // 22
    { 61.150558 ,    2504.00 ,     0.621 ,   12.48 ,    0.0 , -1.591 ,   3.500}, // 23
    { 61.800152 ,    2298.00 ,     0.910 ,   12.07 ,    0.0 , -2.068 ,   2.900}, // 24
    { 62.411212 ,    1933.00 ,     1.255 ,   11.71 ,    0.0 , -4.158 ,   2.300}, // 25
    { 62.486253 ,    1517.00 ,     0.078 ,   14.68 ,    0.0 , -4.068 ,   0.900}, // 26
    { 62.997974 ,    1503.00 ,     1.660 ,   11.39 ,    0.0 , -4.482 ,   2.200}, // 27
    { 63.568515 ,    1087.00 ,     2.110 ,   11.08 ,    0.0 , -4.442 ,   2.000}, // 28
    { 64.127764 ,     733.50 ,     2.620 ,   10.78 ,    0.0 , -4.687 ,   2.000}, // 29
    { 64.678900 ,     463.50 ,     3.190 ,   10.50 ,    0.0 , -5.074 ,   1.800}, // 30
    { 65.224067 ,     274.80 ,     3.810 ,   10.20 ,    0.0 , -5.403 ,   1.900}, // 31
    { 65.764769 ,     153.00 ,     4.480 ,   10.00 ,    0.0 , -5.610 ,   1.800}, // 32
    { 66.302088 ,      80.09 ,     5.220 ,    9.70 ,    0.0 , -5.896 ,   1.800}, // 33
    { 66.836827 ,      39.46 ,     6.000 ,    9.40 ,    0.0 , -6.194 ,   1.700}, // 34
    { 67.369595 ,      18.32 ,     6.840 ,    9.20 ,    0.0 , -6.468 ,   1.800}, // 35
    { 67.900862 ,       8.01 ,     7.740 ,    8.90 ,    0.0 , -6.718 ,   1.700}, // 36
    { 68.431001 ,       3.30 ,     8.690 ,    8.70 ,    0.0 , -6.700 ,   1.700}, // 37
    { 68.960306 ,       1.28 ,     9.690 ,    8.60 ,    0.0 , -6.600 ,   1.700}, // 38
    { 69.489021 ,       0.47 ,    10.720 ,    8.50 ,    0.0 , -6.600 ,   1.700}, // 39
    { 70.017342 ,       0.16 ,    11.830 ,    8.40 ,    0.0 , -6.600 ,   1.700}, // 40
   { 118.750341 ,     945.00 ,     0.000 ,   16.30 ,    0.0 , -0.134 ,   0.800}, // 41
  {  368.498350 ,      67.90 ,     0.020 ,   19.20 ,    0.6 ,  0.000 ,   0.000}, // 42
  {  424.763120 ,     638.00 ,     0.011 ,   19.16 ,    0.6 ,  0.000 ,   0.000}, // 43
  {  487.249370 ,     235.00 ,     0.011 ,   19.20 ,    0.6 ,  0.000 ,   0.000}, // 44
  {  715.393150 ,      99.60 ,     0.089 ,   18.10 ,    0.6 ,  0.000 ,   0.000}, // 45
  {  773.838730 ,     671.00 ,     0.079 ,   18.10 ,    0.6 ,  0.000 ,   0.000}, // 46
  {  834.145330 ,     180.00 ,     0.079 ,   18.10 ,    0.6 ,  0.000 ,   0.000}  // 47
  };
 
  // number of lines of Liebe O2-line catalog (0-47 lines)
  const Index i_first = 0;
  const Index i_last  = 47; // all the spec. lines up to 1THz
  // const Index i_last  = 40; // only the 60GHz complex + 118GHz line
 
 
  // --------- STANDARD MODEL PARAMETERS ---------------------------------------------------
  // standard values for the MPM87 model (NITA Report 87-224):
  const Numeric CC_MPM87 = 1.00000;
  const Numeric CL_MPM87 = 1.00000;
  const Numeric CW_MPM87 = 1.00000;
  const Numeric CO_MPM87 = 1.00000;
  int   AppCutoff = 0;
  // ---------------------------------------------------------------------------------------
 
 
  // select the parameter set (!!model dominates values!!):
  Numeric CC, CL, CW, CO;
  if ( model == "MPM87" )
    {
      CC = CC_MPM87;
      CL = CL_MPM87;
      CW = CW_MPM87;
      CO = CO_MPM87;
    }
  else if ( model == "MPM87Lines" )
    {
      CC = 0.000;
      CL = CL_MPM87;
      CW = CW_MPM87;
      CO = CO_MPM87;
    }
  else if ( model == "MPM87Continuum" )
    {
      CC = CC_MPM87;
      CL = 0.000;
      CW = 0.000;
      CO = 0.000;
    }
  else if ( model == "MPM87NoCoupling" )
    {
      CC = CC_MPM87;
      CL = CL_MPM87;
      CW = CW_MPM87;
      CO = 0.000;
    }
  else if ( model == "MPM87NoCutoff" )
    {
      // !!ATTENTION!!
      // In the window regions the total absorption can get negative values.
      // So be carefull with this selection!
      CC = CC_MPM87;
      CL = CL_MPM87;
      CW = CW_MPM87;
      CO = CO_MPM87;
      AppCutoff = 1;
    }
  else if ( model == "user" )
    {
      CC = CCin;
      CL = CLin;
      CW = CWin;
      CO = COin;
    }
  else
    {
      ostringstream os;
      os << "O2-MPM87: ERROR! Wrong model values given.\n"
   << "Valid models are: 'MPM87' 'MPM87Lines' 'MPM87Continuum' 'MPM87NoCoupling' 'MPM87NoCutoff'"
         << "and 'user'" << '\n';
      throw runtime_error(os.str());
    }
  out3  << "O2-MPM87: (model=" << model << ") parameter values in use:\n"
  << " CC = " << CC << "\n"
  << " CL = " << CL << "\n"
  << " CW = " << CW << "\n"
  << " CO = " << CO << "\n";
 
 
  // O2 continuum parameters of MPM92:
  const Numeric  S0 =  6.140e-4; // line strength                        [ppm]
  const Numeric G0 =  4.800e-3;  // line width [GHz/kPa] !! 14% lower than in all the other versions !!
  const Numeric  X0 =  0.800;    // temperature dependence of line width [1]
 
  const Index n_p = abs_p.nelem();  // Number of pressure levels
  const Index n_f = f_grid.nelem();  // Number of frequencies
 
  // const = VMR * ISORATIO = 0.20946 * 0.99519
  // this constant is already incorporated into the line strength, so we
  // have top devide the line strength by this value since arts multiplies pxsec
  // by these variables later in abs_coefCalc.
  const Numeric  VMRISO = 0.2085;
 
  // Check that dimensions of abs_p, abs_t, and vmr agree:
  assert ( n_p==abs_t.nelem() );
  assert ( n_p==vmr.nelem()   );
 
  // Check that dimensions of pxsec are consistent with n_f
  // and n_p. It should be [n_f,n_p]:
  assert ( n_f==pxsec.nrows() );
  assert ( n_p==pxsec.ncols() );
 
  // Loop pressure/temperature (pressure in hPa therefore the factor 0.01)
  for ( Index i=0; i<n_p; ++i )
    {
      // check if O2-VMR is exactly zero (caused by zeropadding), then return 0.
      if (vmr[i] == 0.)
      {
          pxsec(joker, i) = 0.;
          continue;
      }
 
      // check if O2-VMR will cause an underflow due to division by zero:
      if (vmr[i] < VMRCalcLimit)
  {
    ostringstream os;
    os << "ERROR: MPM87 O2 full absorption model has detected a O2 volume mixing ratio of "
       << vmr[i] << " which is below the threshold of " << VMRCalcLimit << ".\n"
       << "Therefore no calculation is performed.\n";
    throw runtime_error(os.str());
    return;
  }
 
      // relative inverse temperature [1]
      Numeric theta     = (300.0 / abs_t[i]);
      // H2O partial pressure [kPa]
      Numeric pwv       = Pa_to_kPa * abs_p[i] * abs_h2o[i];
      // dry air partial pressure [kPa]
      Numeric pda       = (Pa_to_kPa * abs_p[i]) - pwv;
      // here the total pressure is devided by the O2 vmr for the
      // P_dry calculation because we calculate pxsec and not abs: abs = vmr * pxsec
      Numeric pda_dummy = pda;
      // O2 continuum strength [ppm]
      Numeric strength_cont =  S0 * pda_dummy * pow( theta, (Numeric)2. );
      // O2 continuum pseudo line broadening [GHz]
      Numeric gam_cont      =  G0 * ( pda + 1.10*pwv ) *  pow( theta, X0 ); // GHz
 
      // Loop over input frequency
      for ( Index s=0; s<n_f; ++s )
  {
    // input frequency in [GHz]
    Numeric ff = f_grid[s] * Hz_to_GHz;
    // O2 continuum absorption [1/m]
    // cross section: pxsec = absorption / var
    // the vmr of O2 will be multiplied at the stage of absorption calculation:
    Numeric Nppc =  CC * strength_cont * ff * gam_cont /
                    ( pow( ff, (Numeric)2.) + pow( gam_cont, (Numeric)2.) );
 
    // Loop over MPM87 O2 spectral lines:
    Numeric Nppl  = 0.0;
    for ( Index l = i_first; l <= i_last; ++l )
      {
        // line strength [ppm]   S=A(1,I)*P*V**3*EXP(A(2,I)*(1.-V))*1.E-6
        Numeric strength = CL * mpm87[l][1] * 1.000e-6  * pda_dummy *
                          pow(theta, (Numeric)3.) * exp(mpm87[l][2]*(1.000-theta)) /
                          mpm87[l][0];
        // line broadening parameter [GHz]
        Numeric gam      = CW * ( mpm87[l][3] * 1.000e-3 *
                                ( (       pda * pow(theta, ((Numeric)0.80-mpm87[l][4]))) +
                                        (1.10 * pwv * theta) ) );
        // line mixing parameter [1]
        Numeric delta    = CO * mpm87[l][5] * 1.000e-3 *
                    pda * pow(theta, mpm87[l][6]);
        // absorption [dB/km] like in the original MPM92
        Nppl            += strength * MPMLineShapeO2Function(gam, mpm87[l][0], ff, delta);
      }
    // in MPM87 there is a cutoff for O2 line absorption if abs_l < 0
    // absorption cannot be less than 0 according to MPM87 source code.
    if (AppCutoff == 0)
      {
        if (Nppl < 0.000)  Nppl = 0.0000;
      }
    //
    // O2 line absorption [1/m]
    // cross section: pxsec = absorption / var
    // the vmr of O2 will be multiplied at the stage of absorption calculation:
    pxsec(s,i) += dB_km_to_1_m * 0.1820 * ff * (Nppl+Nppc) / VMRISO;
  }
    }
  return;
}
//
// #################################################################################
 
void MPM89O2AbsModel (MatrixView          pxsec,
                      const Numeric       CCin,       // continuum scale factor
                      const Numeric       CLin,       // line strength scale factor
                      const Numeric       CWin,       // line broadening scale factor
                      const Numeric       COin,       // line coupling scale factor
                      const String&       model,
                      ConstVectorView     f_grid,
                      ConstVectorView     abs_p,
                      ConstVectorView     abs_t,
                      ConstVectorView     abs_h2o,
                      ConstVectorView     vmr,
                      const Verbosity& verbosity)
{
  CREATE_OUT3;
  
  //
  // Coefficients are from Liebe et al., AGARD CP-May93, Paper 3/1-10
  //         0            1           2        3          4        5        6
  //         f0           a1          a2       a3         a4      a5        a6
  //        [GHz]      [kHz/hPa]     [1]    [MHz/hPa]    [1]         [1/kPa]
  const Numeric mpm89[44][7] = {
    {   50.474238,        0.94 ,    9.694 ,    8.60 ,    0.0 ,  1.600 ,   5.520 }, // 0
    {   50.987749,        2.46 ,    8.694 ,    8.70 ,    0.0 ,  1.400 ,   5.520 }, // 1
    {   51.503350,        6.08 ,    7.744 ,    8.90 ,    0.0 ,  1.165 ,   5.520 }, // 2
    {   52.021410,       14.14 ,    6.844 ,    9.20 ,    0.0 ,  0.883 ,   5.520 }, // 3
    {   52.542394,       31.02 ,    6.004 ,    9.40 ,    0.0 ,  0.579 ,   5.520 }, // 4
    {   53.066907,       64.10 ,    5.224 ,    9.70 ,    0.0 ,  0.252 ,   5.520 }, // 5
    {   53.595749,      124.70 ,    4.484 ,   10.00 ,    0.0 , -0.066 ,   5.520 }, // 6
    {   54.130000,      228.00 ,    3.814 ,   10.20 ,    0.0 , -0.314 ,   5.520 }, // 7
    {   54.671159,      391.80 ,    3.194 ,   10.50 ,    0.0 , -0.706 ,   5.520 }, // 8
    {   55.221367,      631.60 ,    2.624 ,   10.79 ,    0.0 , -1.151 ,   5.514 }, // 9
    {   55.783802,      953.50 ,    2.119 ,   11.10 ,    0.0 , -0.920 ,   5.025 }, // 10
    {   56.264775,      548.90 ,    0.015 ,   16.46 ,    0.0 ,  2.881 ,  -0.069 }, // 11
    {   56.363389,     1344.00 ,    1.660 ,   11.44 ,    0.0 , -0.596 ,   4.750 }, // 12
    {   56.968206,     1763.00 ,    1.260 ,   11.81 ,    0.0 , -0.556 ,   4.104 }, // 13
    {   57.612484,     2141.00 ,    0.915 ,   12.21 ,    0.0 , -2.414 ,   3.536 }, // 14
    {   58.323877,     2386.00 ,    0.626 ,   12.66 ,    0.0 , -2.635 ,   2.686 }, // 15
    {   58.446590,     1457.00 ,    0.084 ,   14.49 ,    0.0 ,  6.848 ,  -0.647 }, // 16
    {   59.164207,     2404.00 ,    0.391 ,   13.19 ,    0.0 , -6.032 ,   1.858 }, // 17
    {   59.590983,     2112.00 ,    0.212 ,   13.60 ,    0.0 ,  8.266 ,  -1.413 }, // 18
    {   60.306061,     2124.00 ,    0.212 ,   13.82 ,    0.0 , -7.170 ,   0.916 }, // 19
    {   60.434776,     2461.00 ,    0.391 ,   12.97 ,    0.0 ,  5.664 ,  -2.323 }, // 20
    {   61.150560,     2504.00 ,    0.626 ,   12.48 ,    0.0 ,  1.731 ,  -3.039 }, // 21
    {   61.800154,     2298.00 ,    0.915 ,   12.07 ,    0.0 ,  1.738 ,  -3.797 }, // 22
    {   62.411215,     1933.00 ,    1.260 ,   11.71 ,    0.0 , -0.048 ,  -4.277 }, // 23
    {   62.486260,     1517.00 ,    0.083 ,   14.68 ,    0.0 , -4.290 ,   0.238 }, // 24
    {   62.997977,     1503.00 ,    1.665 ,   11.39 ,    0.0 ,  0.134 ,  -4.860 }, // 25
    {   63.568518,     1087.00 ,    2.115 ,   11.08 ,    0.0 ,  0.541 ,  -5.079 }, // 26
    {   64.127767,      733.50 ,    2.620 ,   10.78 ,    0.0 ,  0.814 ,  -5.525 }, // 27
    {   64.678903,      463.50 ,    3.195 ,   10.50 ,    0.0 ,  0.415 ,  -5.520 }, // 28
    {   65.224071,      274.80 ,    3.815 ,   10.20 ,    0.0 ,  0.069 ,  -5.520 }, // 29
    {   65.764772,      153.00 ,    4.485 ,   10.00 ,    0.0 , -0.143 ,  -5.520 }, // 30
    {   66.302091,       80.09 ,    5.225 ,    9.70 ,    0.0 , -0.428 ,  -5.520 }, // 31
    {   66.836830,       39.46 ,    6.005 ,    9.40 ,    0.0 , -0.726 ,  -5.520 }, // 32
    {   67.369598,       18.32 ,    6.845 ,    9.20 ,    0.0 , -1.002 ,  -5.520 }, // 33
    {   67.900867,        8.01 ,    7.745 ,    8.90 ,    0.0 , -1.255 ,  -5.520 }, // 34
    {   68.431005,        3.30 ,    8.695 ,    8.70 ,    0.0 , -1.500 ,  -5.520 }, // 35
    {   68.960311,        1.28 ,    9.695 ,    8.60 ,    0.0 , -1.700 ,  -5.520 }, // 36
    {  118.750343,      945.00 ,    0.009 ,   16.30 ,    0.0 , -0.247 ,   0.003 }, // 37
    {  368.498350,       67.90 ,    0.049 ,   19.20 ,    0.6 ,  0.000 ,   0.000 }, // 38
    {  424.763124,      638.00 ,    0.044 ,   19.16 ,    0.6 ,  0.000 ,   0.000 }, // 39
    {  487.249370,      235.00 ,    0.049 ,   19.20 ,    0.6 ,  0.000 ,   0.000 }, // 40
    {  715.393150,       99.60 ,    0.145 ,   18.10 ,    0.6 ,  0.000 ,   0.000 }, // 41
    {  773.839675,      671.00 ,    0.130 ,   18.10 ,    0.6 ,  0.000 ,   0.000 }, // 42
    {  834.145330,      180.00 ,    0.147 ,   18.10 ,    0.6 ,  0.000 ,   0.000 }  // 43
  };
 
  // number of lines of Liebe O2-line catalog (0-43 lines)
  const Index i_first = 0;
  const Index i_last  = 43; // all the spec. lines up to 1THz
  // const Index i_last  = 37; // only the 60GHz complex + 118GHz line
 
 
  // --------- STANDARD MODEL PARAMETERS ---------------------------------------------------
  // standard values for the MPM89 model (IJIMW, Vol 10, pp. 631-650, 1989):
  const Numeric CC_MPM89 = 1.00000;
  const Numeric CL_MPM89 = 1.00000;
  const Numeric CW_MPM89 = 1.00000;
  const Numeric CO_MPM89 = 1.00000;
  int   AppCutoff = 0;
  // ---------------------------------------------------------------------------------------
 
 
  // select the parameter set (!!model dominates values!!):
  Numeric CC, CL, CW, CO;
  if ( model == "MPM89" )
    {
      CC = CC_MPM89;
      CL = CL_MPM89;
      CW = CW_MPM89;
      CO = CO_MPM89;
    }
  else if ( model == "MPM89Lines" )
    {
      CC = 0.000;
      CL = CL_MPM89;
      CW = CW_MPM89;
      CO = CO_MPM89;
    }
  else if ( model == "MPM89Continuum" )
    {
      CC = CC_MPM89;
      CL = 0.000;
      CW = 0.000;
      CO = 0.000;
    }
  else if ( model == "MPM89NoCoupling" )
    {
      CC = CC_MPM89;
      CL = CL_MPM89;
      CW = CW_MPM89;
      CO = 0.000;
    }
  else if ( model == "MPM89NoCutoff" )
    {
      CC = CC_MPM89;
      CL = CL_MPM89;
      CW = CW_MPM89;
      CO = CO_MPM89;
      AppCutoff = 1;
    }
  else if ( model == "user" )
    {
      CC = CCin;
      CL = CLin;
      CW = CWin;
      CO = COin;
    }
  else
    {
      ostringstream os;
      os << "O2-MPM89: ERROR! Wrong model values given.\n"
   << "Valid models are: 'MPM89' 'MPM89Lines' 'MPM89Continuum' 'MPM89NoCoupling' 'MPM89NoCutoff'"
         << "and 'user'" << '\n';
      throw runtime_error(os.str());
    }
  out3  << "O2-MPM89: (model=" << model << ") parameter values in use:\n"
  << " CC = " << CC << "\n"
  << " CL = " << CL << "\n"
  << " CW = " << CW << "\n"
  << " CO = " << CO << "\n";
 
 
  // O2 continuum parameters of MPM92:
  const Numeric  S0 =  6.140e-4; // line strength                        [ppm]
  const Numeric G0 =  5.60e-3;  // line width                           [GHz/kPa]
  const Numeric  X0 =  0.800;    // temperature dependence of line width [1]
 
  const Index n_p = abs_p.nelem();  // Number of pressure levels
  const Index n_f = f_grid.nelem();  // Number of frequencies
 
  // const = VMR * ISORATIO = 0.20946 * 0.99519
  // this constant is already incorporated into the line strength, so we
  // have top devide the line strength by this value since arts multiplies pxsec
  // by these variables later in abs_coefCalc.
  const Numeric  VMRISO = 0.2085;
 
  // Check that dimensions of abs_p, abs_t, and vmr agree:
  assert ( n_p==abs_t.nelem() );
  assert ( n_p==vmr.nelem()   );
 
  // Check that dimensions of pxsec are consistent with n_f
  // and n_p. It should be [n_f,n_p]:
  assert ( n_f==pxsec.nrows() );
  assert ( n_p==pxsec.ncols() );
 
  // Loop pressure/temperature (pressure in hPa therefore the factor 0.01)
  for ( Index i=0; i<n_p; ++i )
    {
      // check if O2-VMR is exactly zero (caused by zeropadding), then return 0.
      if (vmr[i] == 0.)
      {
          pxsec(joker, i) = 0.;
          continue;
      }
 
      // check if O2-VMR will cause an underflow due to division by zero:
      if (vmr[i] < VMRCalcLimit)
  {
    ostringstream os;
    os << "ERROR: MPM89 O2 full absorption model has detected a O2 volume mixing ratio of "
       << vmr[i] << " which is below the threshold of " << VMRCalcLimit << ".\n"
       << "Therefore no calculation is performed.\n";
    throw runtime_error(os.str());
    return;
  }
 
      // relative inverse temperature [1]
      Numeric theta     = (300.0 / abs_t[i]);
      // H2O partial pressure [kPa]
      Numeric pwv       = Pa_to_kPa * abs_p[i] * abs_h2o[i];
      // dry air partial pressure [kPa]
      Numeric pda       = (Pa_to_kPa * abs_p[i]) - pwv;
      // here the total pressure is devided by the O2 vmr for the
      // P_dry calculation because we calculate pxsec and not abs: abs = vmr * pxsec
      Numeric pda_dummy = pda;
      // O2 continuum strength [ppm]
      Numeric strength_cont =  S0 * pda_dummy * pow( theta, (Numeric)2. );
      // O2 continuum pseudo line broadening [GHz]
      Numeric gam_cont      =  G0 * (pwv+pda) *  pow( theta, X0 ); // GHz
 
      // Loop over input frequency
      for ( Index s=0; s<n_f; ++s )
  {
    // input frequency in [GHz]
    Numeric ff = f_grid[s] * Hz_to_GHz;
    // O2 continuum absorption [1/m]
    // cross section: pxsec = absorption / var
    // the vmr of O2 will be multiplied at the stage of absorption calculation:
    Numeric Nppc =  CC * strength_cont * ff * gam_cont /
                    ( pow( ff, (Numeric)2.) + pow( gam_cont, (Numeric)2.) );
 
    // Loop over MPM89 O2 spectral lines:
    Numeric Nppl  = 0.0;
    for ( Index l = i_first; l <= i_last; ++l )
      {
        // line strength [ppm]   S=A(1,I)*P*V**3*EXP(A(2,I)*(1.-V))*1.E-6
        Numeric strength = CL * mpm89[l][1] * 1.000e-6  * pda_dummy *
                          pow(theta, (Numeric)3.) * exp(mpm89[l][2]*(1.000-theta)) /
                          mpm89[l][0];
        // line broadening parameter [GHz]
        Numeric gam      = CW * ( mpm89[l][3] * 1.000e-3 *
                                ( (       pda * pow(theta, ((Numeric)0.80-mpm89[l][4]))) +
                                        (1.10 * pwv * theta) ) );
        // line mixing parameter [1]
        Numeric delta    = CO * ( (mpm89[l][5] + mpm89[l][6] * theta) * 1.000e-3 *
                      pda * pow(theta, (Numeric)0.8) );
        // absorption [dB/km] like in the original MPM92
        Nppl            += strength * MPMLineShapeO2Function(gam, mpm89[l][0], ff, delta);
      }
    // in MPM89 we adopt the cutoff for O2 line absorption if abs_l < 0
    // absorption cannot be less than 0 according to MPM87 source code.
    if (AppCutoff == 0)
      {
        if (Nppl < 0.000)  Nppl = 0.0000;
      }
    //
    // O2 line absorption [1/m]
    // cross section: pxsec = absorption / var
    // the vmr of O2 will be multiplied at the stage of absorption calculation:
    pxsec(s,i) += dB_km_to_1_m * 0.1820 * ff * (Nppl+Nppc) / VMRISO;
  }
    }
  return;
}
//
// #################################################################################
//
 
void MPM92O2AbsModel (MatrixView          pxsec,
                      const Numeric       CCin,       // continuum scale factor
                      const Numeric       CLin,       // line strength scale factor
                      const Numeric       CWin,       // line broadening scale factor
                      const Numeric       COin,       // line coupling scale factor
                      const String&       model,
                      ConstVectorView     f_grid,
                      ConstVectorView     abs_p,
                      ConstVectorView     abs_t,
                      ConstVectorView     abs_h2o,
                      ConstVectorView     vmr,
                      const Verbosity& verbosity)
{
  CREATE_OUT3;
  
  //
  // Coefficients are from Liebe et al., AGARD CP-May93, Paper 3/1-10
  //         0           1            2       3        4      5      6
  //         f0          a1           a2      a3       a4     a5     a6
  //        [GHz]     [kHz/hPa]      [1]   [MHz/hPa]  [1]    [10³/hPa]
  const Numeric mpm92[44][7] = {
    {   50.474238,       0.094,      9.694,    0.850,     0.0,   0.210,    0.685}, // 0
    {   50.987749,       0.246,      8.694,    0.870,     0.0,   0.190,    0.680}, // 1
    {   51.503350,       0.608,      7.744,    0.890,     0.0,   0.171,    0.673}, // 2
    {   52.021410,       1.414,      6.844,    0.920,     0.0,   0.144,    0.664}, // 3
    {   52.542394,       3.102,      6.004,    0.940,     0.0,   0.118,    0.653}, // 4
    {   53.066907,       6.410,      5.224,    0.970,     0.0,   0.114,    0.621}, // 5
    {   53.595749,      12.470,      4.484,    1.000,     0.0,   0.200,    0.508}, // 6
    {   54.130000,      22.800,      3.814,    1.020,     0.0,   0.291,    0.375}, // 7
    {   54.671159,      39.180,      3.194,    1.050,     0.0,   0.325,    0.265}, // 8
    {   55.221367,      63.160,      2.624,    1.080,     0.0,   0.224,    0.295}, // 9
    {   55.783802,      95.350,      2.119,    1.110,     0.0,  -0.144,    0.613}, // 0
    {   56.264775,      54.890,      0.015,    1.646,     0.0,   0.339,   -0.098}, // 11
    {   56.363389,     134.400,      1.660,    1.144,     0.0,  -0.258,    0.655}, // 12
    {   56.968206,     176.300,      1.260,    1.181,     0.0,  -0.362,    0.645}, // 13
    {   57.612484,     214.100,      0.915,    1.221,     0.0,  -0.533,    0.606}, // 14
    {   58.323877,     238.600,      0.626,    1.266,     0.0,  -0.178,    0.044}, // 15
    {   58.446590,     145.700,      0.084,    1.449,     0.0,   0.650,   -0.127}, // 16
    {   59.164207,     240.400,      0.391,    1.319,     0.0,  -0.628,    0.231}, // 17
    {   59.590983,     211.200,      0.212,    1.360,     0.0,   0.665,   -0.078}, // 18
    {   60.306061,     212.400,      0.212,    1.382,     0.0,  -0.613,    0.070}, // 19
    {   60.434776,     246.100,      0.391,    1.297,     0.0,   0.606,   -0.282}, // 20
    {   61.150560,     250.400,      0.626,    1.248,     0.0,   0.090,   -0.058}, // 21
    {   61.800154,     229.800,      0.915,    1.207,     0.0,   0.496,   -0.662}, // 22
    {   62.411215,     193.300,      1.260,    1.171,     0.0,   0.313,   -0.676}, // 23
    {   62.486260,     151.700,      0.083,    1.468,     0.0,  -0.433,    0.084}, // 24
    {   62.997977,     150.300,      1.665,    1.139,     0.0,   0.208,   -0.668}, // 25
    {   63.568518,     108.700,      2.115,    1.110,     0.0,   0.094,   -0.614}, // 26
    {   64.127767,      73.350,      2.620,    1.080,     0.0,  -0.270,   -0.289}, // 27
    {   64.678903,      46.350,      3.195,    1.050,     0.0,  -0.366,   -0.259}, // 28
    {   65.224071,      27.480,      3.815,    1.020,     0.0,  -0.326,   -0.368}, // 29
    {   65.764772,      15.300,      4.485,    1.000,     0.0,  -0.232,   -0.500}, // 30
    {   66.302091,       8.009,      5.225,    0.970,     0.0,  -0.146,   -0.609}, // 31
    {   66.836830,       3.946,      6.005,    0.940,     0.0,  -0.147,   -0.639}, // 32
    {   67.369598,       1.832,      6.845,    0.920,     0.0,  -0.174,   -0.647}, // 33
    {   67.900867,       0.801,      7.745,    0.890,     0.0,  -0.198,   -0.655}, // 34
    {   68.431005,       0.330,      8.695,    0.870,     0.0,  -0.210,   -0.660}, // 35
    {   68.960311,       0.128,      9.695,    0.850,     0.0,  -0.220,   -0.665}, // 36
    {  118.750343,      94.500,      0.009,    1.630,     0.0,  -0.031,    0.008}, // 37
    {  368.498350,       6.790,      0.049,    1.920,     0.6,   0.000,    0.000}, // 38
    {  424.763124,      63.800,      0.044,    1.926,     0.6,   0.000,    0.000}, // 39
    {  487.249370,      23.500,      0.049,    1.920,     0.6,   0.000,    0.000}, // 40
    {  715.393150,       9.960,      0.145,    1.810,     0.6,   0.000,    0.000}, // 41
    {  773.839675,      67.100,      0.130,    1.810,     0.6,   0.000,    0.000}, // 42
    {  834.145330,      18.000,      0.147,    1.810,     0.6,   0.000,    0.000}}; // 43
 
  // number of lines of Liebe O2-line catalog (0-43 lines)
  const Index i_first = 0;
  const Index i_last  = 43; // all the spec. lines up to 1THz
  // const Index i_last  = 37; // only the 60GHz complex + 118GHz line
 
 
  // --------- STANDARD MODEL PARAMETERS ---------------------------------------------------
  // standard values for the MPM92 model (JQSRT, Vol 48, pp. 629-643, 1992):
  const Numeric CC_MPM92 = 1.00000;
  const Numeric CL_MPM92 = 1.00000;
  const Numeric CW_MPM92 = 1.00000;
  const Numeric CO_MPM92 = 1.00000;
  int AppCutoff = 0;
  // ---------------------------------------------------------------------------------------
 
 
  // select the parameter set (!!model dominates values!!):
  Numeric CC, CL, CW, CO;
  if ( model == "MPM92" )
    {
      CC = CC_MPM92;
      CL = CL_MPM92;
      CW = CW_MPM92;
      CO = CO_MPM92;
    }
  else if ( model == "MPM92Lines" )
    {
      CC = 0.000;
      CL = CL_MPM92;
      CW = CW_MPM92;
      CO = CO_MPM92;
    }
  else if ( model == "MPM92Continuum" )
    {
      CC = CC_MPM92;
      CL = 0.000;
      CW = 0.000;
      CO = 0.000;
    }
  else if ( model == "MPM92NoCoupling" )
    {
      CC = CC_MPM92;
      CL = CL_MPM92;
      CW = CW_MPM92;
      CO = 0.000;
    }
  else if ( model == "MPM92NoCutoff" )
    {
      CC = CC_MPM92;
      CL = CL_MPM92;
      CW = CW_MPM92;
      CO = CO_MPM92;
      AppCutoff = 1;
    }
  else if ( model == "user" )
    {
      CC = CCin;
      CL = CLin;
      CW = CWin;
      CO = COin;
    }
  else
    {
      ostringstream os;
      os << "O2-MPM92: ERROR! Wrong model values given.\n"
   << "Valid models are: 'MPM92' 'MPM92Lines' 'MPM92Continuum' 'MPM92NoCoupling' 'MPM92NoCutoff'"
         << "and 'user'" << '\n';
      throw runtime_error(os.str());
    }
  out3  << "O2-MPM92: (model=" << model << ") parameter values in use:\n"
  << " CC = " << CC << "\n"
  << " CL = " << CL << "\n"
  << " CW = " << CW << "\n"
  << " CO = " << CO << "\n";
 
 
  // const = VMR * ISORATIO = 0.20946 * 0.99519
  // this constant is already incorporated into the line strength, so we
  // have top devide the line strength by this value since arts multiplies pxsec
  // by these variables later in abs_coefCalc.
  const Numeric  VMRISO = 0.2085;
 
  // O2 continuum parameters of MPM92:
  const Numeric  S0 =  6.140e-5; // line strength                        [ppm]
  const Numeric G0 =  0.560e-3; // line width                           [GHz/hPa]
  const Numeric  X0 =  0.800;    // temperature dependence of line width [1]
 
  const Index n_p = abs_p.nelem();  // Number of pressure levels
  const Index n_f = f_grid.nelem();  // Number of frequencies
 
  // Check that dimensions of abs_p, abs_t, and vmr agree:
  assert ( n_p==abs_t.nelem() );
  assert ( n_p==vmr.nelem()   );
 
  // Check that dimensions of pxsec are consistent with n_f
  // and n_p. It should be [n_f,n_p]:
  assert ( n_f==pxsec.nrows() );
  assert ( n_p==pxsec.ncols() );
 
  // Loop pressure/temperature (pressure in hPa therefore the factor 0.01)
  for ( Index i=0; i<n_p; ++i )
    {
      // check if O2-VMR is exactly zero (caused by zeropadding), then return 0.
      if (vmr[i] == 0.)
      {
          pxsec(joker, i) = 0.;
          continue;
      }
 
      // check if O2-VMR will cause an underflow due to division by zero:
      if (vmr[i] < VMRCalcLimit)
  {
    ostringstream os;
    os << "ERROR: MPM92 O2 full absorption model has detected a O2 volume mixing ratio of "
       << vmr[i] << " which is below the threshold of " << VMRCalcLimit << ".\n"
       << "Therefore no calculation is performed.\n";
    throw runtime_error(os.str());
    return;
  }
 
      // relative inverse temperature [1]
      Numeric theta     = (300.0 / abs_t[i]);
      // H2O partial pressure [hPa]
      Numeric pwv       = Pa_to_hPa * abs_p[i] * abs_h2o[i];
      // dry air partial pressure [hPa]
      Numeric pda       = (Pa_to_hPa * abs_p[i]) - pwv;
      // here the total pressure is devided by the O2 vmr for the
      // P_dry calculation because we calculate pxsec and not abs: abs = vmr * pxsec
      Numeric pda_dummy = pda;
      // O2 continuum strength [ppm]
      Numeric strength_cont =  S0 * pda_dummy * pow( theta, (Numeric)2. );
      // O2 continuum pseudo line broadening [GHz]
      Numeric gam_cont      =  G0 * (pwv+pda) *  pow( theta, X0 ); // GHz
 
      // Loop over input frequency
      for ( Index s=0; s<n_f; ++s )
  {
    // input frequency in [GHz]
    Numeric ff = f_grid[s] * Hz_to_GHz;
    // O2 continuum absorption [1/m]
    // cross section: pxsec = absorption / var
    // the vmr of O2 will be multiplied at the stage of absorption calculation:
    Numeric Nppc =  CC * strength_cont * ff * gam_cont /
                    ( pow( ff, (Numeric)2.) + pow( gam_cont, (Numeric)2.) );
 
    // Loop over MPM92 O2 spectral lines:
    Numeric Nppl  = 0.0;
    for ( Index l = i_first; l <= i_last; ++l )
      {
        // line strength [ppm]   S=A(1,I)*P*V**3*EXP(A(2,I)*(1.-V))*1.E-6
        Numeric strength = CL * 1.000e-6  * pda_dummy * mpm92[l][1] / mpm92[l][0] *
                          pow(theta, (Numeric)3.) * exp(mpm92[l][2]*(1.0-theta));
        // line broadening parameter [GHz]
        Numeric gam      = CW * ( mpm92[l][3] * 0.001 *
                                ( (       pda * pow(theta, ((Numeric)0.8-mpm92[l][4]))) +
                                        (1.10 * pwv * theta) ) );
        // line mixing parameter [1]
        //      if (l < 11) CD = 1.1000;
        Numeric delta    = CO * ( (mpm92[l][5] + mpm92[l][6] * theta) *
                    (pda+pwv) * 0.001 * pow(theta, (Numeric)0.8) );
        // absorption [dB/km] like in the original MPM92
        Nppl            += strength * MPMLineShapeO2Function(gam, mpm92[l][0], ff, delta);
      }
    // in MPM92 we adopt the cutoff for O2 line absorption if abs_l < 0
    // absorption cannot be less than 0 according to MPM87 and MPM93 source code.
    if (AppCutoff == 0)
      {
        if (Nppl < 0.000)  Nppl = 0.0000;
      }
    //
    // O2 line absorption [1/m]
    // cross section: pxsec = absorption / var
    // the vmr of O2 will be multiplied at the stage of absorption calculation:
    pxsec(s,i) += dB_km_to_1_m * 0.1820 * ff * (Nppl+Nppc) / VMRISO;
  }
    }
  return;
}
//
// #################################################################################
 
void TRE05O2AbsModel (MatrixView          pxsec,
                      const Numeric       CCin,       // continuum scale factor
                      const Numeric       CLin,       // line strength scale factor
                      const Numeric       CWin,       // line broadening scale factor
                      const Numeric       COin,       // line coupling scale factor
                      const String&       model,
                      ConstVectorView     f_grid,
                      ConstVectorView     abs_p,
                      ConstVectorView     abs_t,
                      ConstVectorView     abs_h2o,    // VMR 0f H2O
                      ConstVectorView     vmr,        // VMR of O2
                      const Verbosity& verbosity)
{
    CREATE_OUT3;
    
    //
    // Coefficients are from Liebe et al., AGARD CP-May93, Paper 3/1-10
    //         0             1           2         3         4      5        6
    //         f0           a1           a2       a3        a4      a5       a6
    //        [GHz]      [kHz/hPa]      [1]    [MHz/hPa]    [1]       [10³/hPa]
    const Numeric tre05[44][7] = {
        {   50.474214,       0.975/10,      9.651,    0.669,     0.0,   0.2566,   0.685}, // 37-
        {   50.987745,       2.529/10,      8.653,    0.717,     0.0,   0.2246,   0.680}, // 35-
        {   51.503360,       6.193/10,      7.709,    0.764,     0.0,   0.1947,  0.6729}, // 33-
        {   52.021429,       14.32/10,      6.819,    0.811,     0.0,   0.1667,  0.6640}, // 31-
        {   52.542418,       31.24/10,      5.983,    0.858,     0.0,   0.1388,  0.6526}, // 29-
        {   53.066934,       64.29/10,      5.201,    0.906,     0.0,   0.1349,  0.6206}, // 27-
        {   53.595775,       124.6/10,      4.474,    0.955,     0.0,   0.2227,  0.5085}, // 25-
        {   54.130025,       227.3/10,      3.800,    0.996,     0.0,   0.3170,  0.3750}, // 23-
        {   54.671180,       389.7/10,      3.182,    1.037,     0.0,   0.3558,  0.2654}, // 21-
        {   55.221384,       627.1/10,      2.618,    1.089,     0.0,   0.2560,  0.2952}, // 19-
        {   55.783815,       945.3/10,      2.109,    1.134,     0.0,  -0.1172,  0.6135}, // 17-
        {   56.264774,       543.4/10,      0.014,    1.703,     0.0,   0.3525, -0.0978}, //  1+
        {   56.363399,      1331.8/10,      1.654,    1.189,     0.0,  -0.2378,  0.6547}, // 15-
        {   56.968211,      1746.6/10,      1.255,    1.223,     0.0,  -0.3545,  0.6451}, // 13-
        {   57.612486,      2120.1/10,      0.910,    1.262,     0.0,  -0.5416,  0.6056}, // 11-
        {   58.323877,      2363.7/10,      0.621,    1.295,     0.0,  -0.1932,  0.0436}, //  9-
        {   58.446588,      1442.1/10,      0.083,    1.491,     0.0,   0.6768, -0.1273}, //  3+
        {   59.164204,      2379.9/10,      0.387,    1.353,     0.0,  -0.6561,  0.2309}, //  7-
        {   59.590983,      2090.7/10,      0.207,    1.408,     0.0,   0.6957, -0.0776}, //  5+
        {   60.306056,      2103.4/10,      0.207,    1.415,     0.0,  -0.6395,  0.0699}, //  5-
        {   60.434778,      2438.0/10,      0.386,    1.339,     0.0,   0.6342, -0.2825}, //  7+
        {   61.150562,      2479.5/10,      0.621,    1.292,     0.0,   0.1014, -0.0584}, //  9+
        {   61.800158,      2275.9/10,      0.910,    1.263,     0.0,   0.5014, -0.6619}, // 11+
        {   62.411220,      1915.4/10,      1.255,    1.217,     0.0,   0.3029, -0.6759}, // 13+
        {   62.486253,      1503.0/10,      0.083,    1.513,     0.0,  -0.4499,  0.0844}, //  3-
        {   62.997984,      1490.2/10,      1.654,    1.174,     0.0,   0.1856, -0.6675}, // 15+
        {   63.568526,      1078.0/10,      2.108,    1.134,     0.0,   0.0658, -0.6139}, // 17+
        {   64.127775,       728.7/10,      2.617,    1.088,     0.0,  -0.3036, -0.2895}, // 19+
        {   64.678910,       461.3/10,      3.181,    1.038,     0.0,  -0.3968, -0.2590}, // 21+
        {   65.224078,       274.0/10,      3.800,    0.996,     0.0,  -0.3528, -0.3680}, // 23+
        {   65.764779,       153.0/10,      4.473,    0.955,     0.0,  -0.2548, -0.5002}, // 25+
        {   66.302096,       80.40/10,      5.200,    0.906,     0.0,  -0.1660, -0.6091}, // 27+
        {   66.836834,       39.80/10,      5.982,    0.858,     0.0,  -0.1680, -0.6393}, // 29+
        {   67.369601,       18.56/10,      6.818,    0.811,     0.0,  -0.1956, -0.6475}, // 31+
        {   67.900868,       8.172/10,      7.708,    0.764,     0.0,  -0.2216, -0.6545}, // 33+
        {   68.431006,       3.397/10,      8.652,    0.717,     0.0,  -0.2492,  -0.660}, // 35+
        {   68.960312,       1.334/10,      9.650,    0.669,     0.0,  -0.2773,  -0.665}, // 37+
        {  118.750334,       940.3/10,      0.010,    1.664,     0.0,  -0.0439,  0.0079}, //  1-
        {  368.498246,        67.4/10,      0.048,     1.64,     0.6,      0.0,     0.0}, // QN1
        {  424.763020,       637.7/10,      0.044,     1.64,     0.6,      0.0,     0.0}, // QN2
        {  487.249273,       237.4/10,      0.049,     1.60,     0.6,      0.0,     0.0}, // QN3
        {  715.392902,        98.1/10,      0.145,     1.60,     0.6,      0.0,     0.0}, // QN4
        {  773.839490,       572.3/10,      0.141,     1.62,     0.6,      0.0,     0.0}, // QN5
        {  834.145546,       183.1/10,      0.145,     1.47,     0.6,      0.0,     0.0}};// QN6
        // number of lines of Liebe O2-line catalog (0-43 lines)
        const Index i_first = 0;
        const Index i_last  = 43; // all the spec. lines up to 1THz
        // const Index i_last  = 37; // only the 60GHz complex + 118GHz line
        
        
        // --------- STANDARD MODEL PARAMETERS ---------------------------------------------------
        // standard values for the MPM87 model (Radio Science, 20(5), 1985, 1069):
        const Numeric CC_TRE05 = 1.00000;
        const Numeric CL_TRE05 = 1.00000;
        const Numeric CW_TRE05 = 1.00000;
        const Numeric CO_TRE05 = 1.00000;
        int   AppCutoff = 0;
        // ---------------------------------------------------------------------------------------
        
        
        // select the parameter set (!!model dominates values!!):
        Numeric CC, CL, CW, CO;
        if ( model == "TRE05" )
        {
            CC = CC_TRE05;
            CL = CL_TRE05;
            CW = CW_TRE05;
            CO = CO_TRE05;
        }
        else if ( model == "TRE05Lines" )
        {
            CC = 0.000;
            CL = CL_TRE05;
            CW = CW_TRE05;
            CO = CO_TRE05;
        }
        else if ( model == "TRE05Continuum" )
        {
            CC = CC_TRE05;
            CL = 0.000;
            CW = 0.000;
            CO = 0.000;
        }
        else if ( model == "TRE05NoCoupling" )
        {
            CC = CC_TRE05;
            CL = CL_TRE05;
            CW = CW_TRE05;
            CO = 0.000;
        }
        else if ( model == "TRE05NoCutoff" )
        {
            // !!ATTENTION!!
            // In the window regions the total absorption can get negative values.
            // So be carefull with this selection!
            CC = CC_TRE05;
            CL = CL_TRE05;
            CW = CW_TRE05;
            CO = CO_TRE05;
            AppCutoff = 1;
        }
        else if ( model == "user" )
        {
            CC = CCin;
            CL = CLin;
            CW = CWin;
            CO = COin;
        }
        else
        {
            ostringstream os;
            os << "O2-TRE05: ERROR! Wrong model values given.\n"
            << "Valid models are: 'TRE05' 'TRE05Lines' 'TRE05Continuum' 'TRE05NoCoupling' 'TRE05NoCutoff'"
            << "and 'user'" << '\n';
            throw runtime_error(os.str());
        }
        out3  << "O2-TRE05: (model=" << model << ") parameter values in use:\n"
        << " CC = " << CC << "\n"
        << " CL = " << CL << "\n"
        << " CW = " << CW << "\n"
        << " CO = " << CO << "\n";
        
        
        // const = VMR * ISORATIO = 0.20946 * 0.99519
        // this constant is already incorporated into the line strength, so we
        // have top devide the line strength by this value since arts multiplies pxsec
        // by these variables later in abs_coefCalc.
        const Numeric  VMRISO = 0.2085;
        
        // O2 continuum parameters of TRE05:
        const Numeric  S0 =  6.140e-5; // line strength                        [ppm]
        const Numeric G0 =  0.560e-3; // line width                           [GHz/hPa]
        const Numeric  X0 =  0.800;    // temperature dependence of line width [1]
        
        const Index n_p = abs_p.nelem();  // Number of pressure levels
        const Index n_f = f_grid.nelem();  // Number of frequencies
        
        // Check that dimensions of abs_p, abs_t, and vmr agree:
        assert ( n_p==abs_t.nelem() );
        assert ( n_p==vmr.nelem()   );
        
        // Check that dimensions of pxsec are consistent with n_f
        // and n_p. It should be [n_f,n_p]:
        assert ( n_f==pxsec.nrows() );
        assert ( n_p==pxsec.ncols() );
        
        // Loop pressure/temperature (pressure in hPa therefore the factor 0.01)
        for ( Index i=0; i<n_p; ++i )
        {
            // check if O2-VMR is exactly zero (caused by zeropadding), then return 0.
            if (vmr[i] == 0.)
            {
                pxsec(joker, i) = 0.;
                continue;
            }
            
            // check if O2-VMR will cause an underflow due to division by zero:
            if (vmr[i] < VMRCalcLimit)
            {
                ostringstream os;
                os << "ERROR: TRE05 O2 full absorption model has detected a O2 volume mixing ratio of "
                << vmr[i] << " which is below the threshold of " << VMRCalcLimit << ".\n"
                << "Therefore no calculation is performed.\n";
                throw runtime_error(os.str());
                return;
            }
            
            // relative inverse temperature [1]
            Numeric theta     = (300.0 / abs_t[i]);
            // H2O partial pressure [hPa]
            Numeric pwv       = Pa_to_hPa * abs_p[i] * abs_h2o[i];
            // dry air partial pressure [hPa]
            Numeric pda       = (Pa_to_hPa * abs_p[i]) - pwv;
            // here the total pressure is devided by the O2 vmr for the
            // P_dry calculation because we calculate pxsec and not abs: abs = vmr * pxsec
            // old version without VMRISO: Numeric pda_dummy = pda / vmr[i];
            Numeric pda_dummy = pda;
            // O2 continuum strength [ppm]
            Numeric strength_cont =  S0 * pda_dummy * pow( theta, (Numeric)2. );
            // O2 continuum pseudo line broadening [GHz]
            Numeric gam_cont      =  G0 * (pwv+pda) *  pow( theta, X0 ); // GHz
            
            // Loop over input frequency
            for ( Index s=0; s<n_f; ++s )
            {
                // input frequency in [GHz]
                Numeric ff = f_grid[s] * Hz_to_GHz;
                // O2 continuum absorption [1/m]
                // cross section: pxsec = absorption / var
                // the vmr of O2 will be multiplied at the stage of absorption calculation:
                Numeric Nppc =  CC * strength_cont * ff * gam_cont /
                ( pow( ff, (Numeric)2.)
                + pow( gam_cont, (Numeric)2.) );
                
                // Loop over TRE05 O2 spectral lines:
                Numeric Nppl  = 0.0;
                for ( Index l = i_first; l <= i_last; ++l )
                {
                    // line strength [ppm]   S=A(1,I)*P*V**3*EXP(A(2,I)*(1.-V))*1.E-6
                    Numeric strength = CL * 1.000e-6  * pda_dummy *
                    tre05[l][1] / tre05[l][0] *
                    pow(theta, (Numeric)3.) * exp(tre05[l][2]*(1.0-theta));
                    // line broadening parameter [GHz]
                    Numeric gam      = CW * ( tre05[l][3] * 0.001 *
                    ( (       pda * pow(theta, ((Numeric)0.8-tre05[l][4]))) +
                    (1.10 * pwv * theta) ) );
                    // line mixing parameter [1]
                    //      if (l < 11) CD = 1.1000;
                    Numeric delta    = CO * ( (tre05[l][5] + tre05[l][6] * theta) *
                    (pda+pwv) * pow(theta, (Numeric)0.8)
                    * (Numeric)0.001 );
                    // absorption [dB/km] like in the original TRE05
                    Nppl            += strength * MPMLineShapeO2Function(gam, tre05[l][0], ff, delta);
                }
                // in TRE05 there is a cutoff for O2 line absorption if abs_l < 0
                // absorption cannot be less than 0 according to TRE05 philosophy.
                if (AppCutoff == 0)
                {
                    if (Nppl < 0.000)  Nppl = 0.0000;// <---!!IMPORTANT FEATURE!!
                }
                //
                // O2 line absorption [1/m]
                // cross section: pxsec = absorption / var
                // the vmr of O2 will be multiplied at the stage of absorption calculation:
                pxsec(s,i) += dB_km_to_1_m * 0.1820 * ff * (Nppl+Nppc) / VMRISO;
            }
        }
        return;
        }
//
// #################################################################################
 
void MPM93O2AbsModel (MatrixView          pxsec,
                      const Numeric       CCin,       // continuum scale factor
                      const Numeric       CLin,       // line strength scale factor
                      const Numeric       CWin,       // line broadening scale factor
                      const Numeric       COin,       // line coupling scale factor
                      const String&       model,
                      ConstVectorView     f_grid,
                      ConstVectorView     abs_p,
                      ConstVectorView     abs_t,
                      ConstVectorView     abs_h2o,    // VMR 0f H2O
                      ConstVectorView     vmr,        // VMR of O2
                      const Verbosity& verbosity)
{
  CREATE_OUT3;
  
  //
  // Coefficients are from Liebe et al., AGARD CP-May93, Paper 3/1-10
  //         0             1           2         3         4      5        6
  //         f0           a1           a2       a3        a4      a5       a6
  //        [GHz]      [kHz/hPa]      [1]    [MHz/hPa]    [1]       [10³/hPa]
  const Numeric mpm93[44][7] = {
    {   50.474238,       0.094,      9.694,    0.890,     0.0,   0.240,    0.790}, // 0
    {   50.987749,       0.246,      8.694,    0.910,     0.0,   0.220,    0.780}, // 1
    {   51.503350,       0.608,      7.744,    0.940,     0.0,   0.197,    0.774}, // 2
    {   52.021410,       1.414,      6.844,    0.970,     0.0,   0.166,    0.764}, // 3
    {   52.542394,       3.102,      6.004,    0.990,     0.0,   0.136,    0.751}, // 4
    {   53.066907,       6.410,      5.224,    1.020,     0.0,   0.131,    0.714}, // 5
    {   53.595749,      12.470,      4.484,    1.050,     0.0,   0.230,    0.584}, // 6
    {   54.130000,      22.800,      3.814,    1.070,     0.0,   0.335,    0.431}, // 7
    {   54.671159,      39.180,      3.194,    1.100,     0.0,   0.374,    0.305}, // 8
    {   55.221367,      63.160,      2.624,    1.130,     0.0,   0.258,    0.339}, // 9
    {   55.783802,      95.350,      2.119,    1.170,     0.0,  -0.166,    0.705}, // 10
    {   56.264775,      54.890,      0.015,    1.730,     0.0,   0.390,   -0.113}, // 11
    {   56.363389,     134.400,      1.660,    1.200,     0.0,  -0.297,    0.753}, // 12
    {   56.968206,     176.300,      1.260,    1.240,     0.0,  -0.416,    0.742}, // 13
    {   57.612484,     214.100,      0.915,    1.280,     0.0,  -0.613,    0.697}, // 14
    {   58.323877,     238.600,      0.626,    1.330,     0.0,  -0.205,    0.051}, // 15
    {   58.446590,     145.700,      0.084,    1.520,     0.0,   0.748,   -0.146}, // 16
    {   59.164207,     240.400,      0.391,    1.390,     0.0,  -0.722,    0.266}, // 17
    {   59.590983,     211.200,      0.212,    1.430,     0.0,   0.765,   -0.090}, // 18
    {   60.306061,     212.400,      0.212,    1.450,     0.0,  -0.705,    0.081}, // 19
    {   60.434776,     246.100,      0.391,    1.360,     0.0,   0.697,   -0.324}, // 20
    {   61.150560,     250.400,      0.626,    1.310,     0.0,   0.104,   -0.067}, // 21
    {   61.800154,     229.800,      0.915,    1.270,     0.0,   0.570,   -0.761}, // 22
    {   62.411215,     193.300,      1.260,    1.230,     0.0,   0.360,   -0.777}, // 23
    {   62.486260,     151.700,      0.083,    1.540,     0.0,  -0.498,    0.097}, // 24
    {   62.997977,     150.300,      1.665,    1.200,     0.0,   0.239,   -0.768}, // 25
    {   63.568518,     108.700,      2.115,    1.170,     0.0,   0.108,   -0.706}, // 26
    {   64.127767,      73.350,      2.620,    1.130,     0.0,  -0.311,   -0.332}, // 27
    {   64.678903,      46.350,      3.195,    1.100,     0.0,  -0.421,   -0.298}, // 28
    {   65.224071,      27.480,      3.815,    1.070,     0.0,  -0.375,   -0.423}, // 29
    {   65.764772,      15.300,      4.485,    1.050,     0.0,  -0.267,   -0.575}, // 30
    {   66.302091,       8.009,      5.225,    1.020,     0.0,  -0.168,   -0.700}, // 31
    {   66.836830,       3.946,      6.005,    0.990,     0.0,  -0.169,   -0.735}, // 32
    {   67.369598,       1.832,      6.845,    0.970,     0.0,  -0.200,   -0.744}, // 33
    {   67.900867,       0.801,      7.745,    0.940,     0.0,  -0.228,   -0.753}, // 34
    {   68.431005,       0.330,      8.695,    0.920,     0.0,  -0.240,   -0.760}, // 35
    {   68.960311,       0.128,      9.695,    0.900,     0.0,  -0.250,   -0.765}, // 36
    {  118.750343,      94.500,      0.009,    1.630,     0.0,  -0.036,    0.009}, // 37
    {  368.498350,       6.790,      0.049,    1.920,     0.6,   0.000,    0.000}, // 38
    {  424.763124,      63.800,      0.044,    1.930,     0.6,   0.000,    0.000}, // 39
    {  487.249370,      23.500,      0.049,    1.920,     0.6,   0.000,    0.000}, // 40
    {  715.393150,       9.960,      0.145,    1.810,     0.6,   0.000,    0.000}, // 41
    {  773.839675,      67.100,      0.130,    1.820,     0.6,   0.000,    0.000}, // 42
    {  834.145330,      18.000,      0.147,    1.810 ,    0.6,   0.000,    0.000}}; // 43
  // number of lines of Liebe O2-line catalog (0-43 lines)
  const Index i_first = 0;
  const Index i_last  = 43; // all the spec. lines up to 1THz
  // const Index i_last  = 37; // only the 60GHz complex + 118GHz line
 
 
  // --------- STANDARD MODEL PARAMETERS ---------------------------------------------------
  // standard values for the MPM87 model (Radio Science, 20(5), 1985, 1069):
  const Numeric CC_MPM93 = 1.00000;
  const Numeric CL_MPM93 = 1.00000;
  const Numeric CW_MPM93 = 1.00000;
  const Numeric CO_MPM93 = 1.00000;
  int   AppCutoff = 0;
  // ---------------------------------------------------------------------------------------
 
 
  // select the parameter set (!!model dominates values!!):
  Numeric CC, CL, CW, CO;
  if ( model == "MPM93" )
    {
      CC = CC_MPM93;
      CL = CL_MPM93;
      CW = CW_MPM93;
      CO = CO_MPM93;
    }
  else if ( model == "MPM93Lines" )
    {
      CC = 0.000;
      CL = CL_MPM93;
      CW = CW_MPM93;
      CO = CO_MPM93;
    }
  else if ( model == "MPM93Continuum" )
    {
      CC = CC_MPM93;
      CL = 0.000;
      CW = 0.000;
      CO = 0.000;
    }
  else if ( model == "MPM93NoCoupling" )
    {
      CC = CC_MPM93;
      CL = CL_MPM93;
      CW = CW_MPM93;
      CO = 0.000;
    }
  else if ( model == "MPM93NoCutoff" )
    {
      // !!ATTENTION!!
      // In the window regions the total absorption can get negative values.
      // So be carefull with this selection!
      CC = CC_MPM93;
      CL = CL_MPM93;
      CW = CW_MPM93;
      CO = CO_MPM93;
      AppCutoff = 1;
    }
  else if ( model == "user" )
    {
      CC = CCin;
      CL = CLin;
      CW = CWin;
      CO = COin;
    }
  else
    {
      ostringstream os;
      os << "O2-MPM93: ERROR! Wrong model values given.\n"
   << "Valid models are: 'MPM93' 'MPM93Lines' 'MPM93Continuum' 'MPM93NoCoupling' 'MPM93NoCutoff'"
         << "and 'user'" << '\n';
      throw runtime_error(os.str());
    }
  out3  << "O2-MPM93: (model=" << model << ") parameter values in use:\n"
  << " CC = " << CC << "\n"
  << " CL = " << CL << "\n"
  << " CW = " << CW << "\n"
  << " CO = " << CO << "\n";
 
 
  // const = VMR * ISORATIO = 0.20946 * 0.99519
  // this constant is already incorporated into the line strength, so we
  // have top devide the line strength by this value since arts multiplies pxsec
  // by these variables later in abs_coefCalc.
  const Numeric  VMRISO = 0.2085;
 
  // O2 continuum parameters of MPM93:
  const Numeric  S0 =  6.140e-5; // line strength                        [ppm]
  const Numeric G0 =  0.560e-3; // line width                           [GHz/hPa]
  const Numeric  X0 =  0.800;    // temperature dependence of line width [1]
 
  const Index n_p = abs_p.nelem();  // Number of pressure levels
  const Index n_f = f_grid.nelem();  // Number of frequencies
 
  // Check that dimensions of abs_p, abs_t, and vmr agree:
  assert ( n_p==abs_t.nelem() );
  assert ( n_p==vmr.nelem()   );
 
  // Check that dimensions of pxsec are consistent with n_f
  // and n_p. It should be [n_f,n_p]:
  assert ( n_f==pxsec.nrows() );
  assert ( n_p==pxsec.ncols() );
 
  // Loop pressure/temperature (pressure in hPa therefore the factor 0.01)
  for ( Index i=0; i<n_p; ++i )
    {
      // check if O2-VMR is exactly zero (caused by zeropadding), then return 0.
      if (vmr[i] == 0.)
      {
          pxsec(joker, i) = 0.;
          continue;
      }
 
      // check if O2-VMR will cause an underflow due to division by zero:
      if (vmr[i] < VMRCalcLimit)
  {
    ostringstream os;
    os << "ERROR: MPM93 O2 full absorption model has detected a O2 volume mixing ratio of "
       << vmr[i] << " which is below the threshold of " << VMRCalcLimit << ".\n"
       << "Therefore no calculation is performed.\n";
    throw runtime_error(os.str());
    return;
  }
 
      // relative inverse temperature [1]
      Numeric theta     = (300.0 / abs_t[i]);
      // H2O partial pressure [hPa]
      Numeric pwv       = Pa_to_hPa * abs_p[i] * abs_h2o[i];
      // dry air partial pressure [hPa]
      Numeric pda       = (Pa_to_hPa * abs_p[i]) - pwv;
      // here the total pressure is devided by the O2 vmr for the
      // P_dry calculation because we calculate pxsec and not abs: abs = vmr * pxsec
      // old version without VMRISO: Numeric pda_dummy = pda / vmr[i];
      Numeric pda_dummy = pda;
      // O2 continuum strength [ppm]
      Numeric strength_cont =  S0 * pda_dummy * pow( theta, (Numeric)2. );
      // O2 continuum pseudo line broadening [GHz]
      Numeric gam_cont      =  G0 * (pwv+pda) *  pow( theta, X0 ); // GHz
 
      // Loop over input frequency
      for ( Index s=0; s<n_f; ++s )
  {
    // input frequency in [GHz]
    Numeric ff = f_grid[s] * Hz_to_GHz;
    // O2 continuum absorption [1/m]
    // cross section: pxsec = absorption / var
    // the vmr of O2 will be multiplied at the stage of absorption calculation:
    Numeric Nppc =  CC * strength_cont * ff * gam_cont /
                    ( pow( ff, (Numeric)2.)
                            + pow( gam_cont, (Numeric)2.) );
 
    // Loop over MPM93 O2 spectral lines:
    Numeric Nppl  = 0.0;
    for ( Index l = i_first; l <= i_last; ++l )
      {
        // line strength [ppm]   S=A(1,I)*P*V**3*EXP(A(2,I)*(1.-V))*1.E-6
        Numeric strength = CL * 1.000e-6  * pda_dummy *
                          mpm93[l][1] / mpm93[l][0] *
                          pow(theta, (Numeric)3.) * exp(mpm93[l][2]*(1.0-theta));
        // line broadening parameter [GHz]
        Numeric gam      = CW * ( mpm93[l][3] * 0.001 *
                                      ( (       pda * pow(theta, ((Numeric)0.8-mpm93[l][4]))) +
                                        (1.10 * pwv * theta) ) );
        // line mixing parameter [1]
        //      if (l < 11) CD = 1.1000;
        Numeric delta    = CO * ( (mpm93[l][5] + mpm93[l][6] * theta) *
                    (pda+pwv) * pow(theta, (Numeric)0.8)
                                        * (Numeric)0.001 );
        // absorption [dB/km] like in the original MPM93
        Nppl            += strength * MPMLineShapeO2Function(gam, mpm93[l][0], ff, delta);
      }
    // in MPM93 there is a cutoff for O2 line absorption if abs_l < 0
    // absorption cannot be less than 0 according to MPM93 philosophy.
    if (AppCutoff == 0)
      {
        if (Nppl < 0.000)  Nppl = 0.0000;// <---!!IMPORTANT FEATURE!!
      }
    //
    // O2 line absorption [1/m]
    // cross section: pxsec = absorption / var
    // the vmr of O2 will be multiplied at the stage of absorption calculation:
    pxsec(s,i) += dB_km_to_1_m * 0.1820 * ff * (Nppl+Nppc) / VMRISO;
  }
    }
  return;
}
//
// #################################################################################
//
 
void PWR93O2AbsModel (MatrixView        pxsec,
                      const Numeric     CCin,      // model parameter
                      const Numeric     CLin,      // model parameter
                      const Numeric     CWin,      // model parameter
                      const Numeric     COin,      // model parameter
                      const String&     model,     // model selection string
                      const String&     version,   // PWR98, PWR93 or PWR88
                      ConstVectorView   f_grid,
                      ConstVectorView   abs_p,
                      ConstVectorView   abs_t,
                      ConstVectorView   vmrh2o,
                      ConstVectorView   vmr,
                      const Verbosity& verbosity)
{
  CREATE_OUT3;
  
  const Index n_lines = 40; // all O2 lines in this model (range: 50-850 GHz)
  //
  // lines are arranged 1-,1+,3-,3+,etc. in spin-rotation spectrum
  // line center frequency in [GHz]
  const Numeric F93[n_lines] = { 118.7503,  56.2648,  62.4863,  58.4466,   // 00-03
                60.3061,  59.5910,  59.1642,  60.4348,   // 04-07
                  58.3239,  61.1506,  57.6125,  61.8002,   // 08-11
                56.9682,  62.4112,  56.3634,  62.9980,   // 12-15
                55.7838,  63.5685,  55.2214,  64.1278,   // 16-19
                54.6712,  64.6789,  54.1300,  65.2241,   // 20-23
                53.5957,  65.7648,  53.0669,  66.3021,   // 24-27
                52.5424,  66.8368,  52.0214,  67.3696,   // 28-31
                51.5034,  67.9009, 368.4984, 424.7631,   // 32-35
               487.2494, 715.3932, 773.8397, 834.1453};  // 36-39
 
  // intensities in the submm range are updated according to HITRAN96
  const Numeric F98[n_lines] = { 118.7503,  56.2648,  62.4863,  58.4466,  60.3061,  59.5910,
          59.1642,  60.4348,  58.3239,  61.1506,  57.6125,  61.8002,
          56.9682,  62.4112,  56.3634,  62.9980,  55.7838,  63.5685,
                55.2214,  64.1278,  54.6712,  64.6789,  54.1300,  65.2241,
                53.5957,  65.7648,  53.0669,  66.3021,  52.5424,  66.8368,
                52.0214,  67.3696,  51.5034,  67.9009, 368.4984, 424.7632,
         487.2494, 715.3931, 773.8397, 834.1458};
 
 
  // line strength at T=300K in [cm² * Hz]
  const Numeric S93[n_lines] = { 0.2936E-14, 0.8079E-15, 0.2480E-14, 0.2228E-14,
                     0.3351E-14, 0.3292E-14, 0.3721E-14, 0.3891E-14,
               0.3640E-14, 0.4005E-14, 0.3227E-14, 0.3715E-14,
                     0.2627E-14, 0.3156E-14, 0.1982E-14, 0.2477E-14,
                     0.1391E-14, 0.1808E-14, 0.9124E-15, 0.1230E-14,
                     0.5603E-15, 0.7842E-15, 0.3228E-15, 0.4689E-15,
                     0.1748E-15, 0.2632E-15, 0.8898E-16, 0.1389E-15,
                     0.4264E-16, 0.6899E-16, 0.1924E-16, 0.3229E-16,
                     0.8191E-17, 0.1423E-16, 0.6460E-15, 0.7047E-14,
                     0.3011E-14, 0.1826E-14, 0.1152E-13, 0.3971E-14};
 
  // intensities in the submm range are updated according to HITRAN96
  const Numeric S98[n_lines] = { 0.2936E-14, 0.8079E-15, 0.2480E-14, 0.2228E-14,
         0.3351E-14, 0.3292E-14, 0.3721E-14, 0.3891E-14,
               0.3640E-14, 0.4005E-14, 0.3227E-14, 0.3715E-14,
               0.2627E-14, 0.3156E-14, 0.1982E-14, 0.2477E-14,
               0.1391E-14, 0.1808E-14, 0.9124E-15, 0.1230E-14,
               0.5603E-15, 0.7842E-15, 0.3228E-15, 0.4689E-15,
               0.1748E-15, 0.2632E-15, 0.8898E-16, 0.1389E-15,
               0.4264E-16, 0.6899E-16, 0.1924E-16, 0.3229E-16,
               0.8191E-17, 0.1423E-16, 0.6494E-15, 0.7083E-14,
                                 0.3025E-14, 0.1835E-14, 0.1158E-13, 0.3993E-14};
 
  // temperature exponent of the line strength in [1]
  const Numeric BE[n_lines] = { 0.009,   0.015,   0.083,   0.084,
        0.212,   0.212,   0.391,   0.391,
              0.626,   0.626,   0.915,   0.915,
        1.260,   1.260,   1.660,   1.665,
                                2.119,   2.115,   2.624,   2.625,
                                3.194,   3.194,   3.814,   3.814,
                                4.484,   4.484,   5.224,   5.224,
                                6.004,   6.004,   6.844,   6.844,
                                7.744,   7.744,   0.048,   0.044,
                    0.049,   0.145,   0.141,   0.145};
 
  // widths in MHz/mbar for the O2 continuum
  const Numeric WB300 = 0.56; // [MHz/mbar]=[MHz/hPa]
  const Numeric X     = 0.80; // [1]
 
  // line width parameter [GHz/bar]
  const Numeric W300[n_lines] = {   1.630, 1.646, 1.468, 1.449,
            1.382, 1.360, 1.319, 1.297,
            1.266, 1.248, 1.221, 1.207,
            1.181, 1.171, 1.144, 1.139,
            1.110, 1.108, 1.079, 1.078,
            1.050, 1.050, 1.020, 1.020,
            1.000, 1.000, 0.970, 0.970,
            0.940, 0.940, 0.920, 0.920,
            0.890, 0.890, 1.920, 1.920,
            1.920, 1.810, 1.810, 1.810};
 
  // y parameter for the calculation of Y [1/bar]
  const Numeric Y93[n_lines] = { -0.0233,  0.2408, -0.3486,  0.5227,
               -0.5430,  0.5877, -0.3970,  0.3237,
                                 -0.1348,  0.0311,  0.0725, -0.1663,
                                  0.2832, -0.3629,  0.3970, -0.4599,
                                  0.4695, -0.5199,  0.5187, -0.5597,
                                  0.5903, -0.6246,  0.6656, -0.6942,
                                  0.7086, -0.7325,  0.7348, -0.7546,
                                  0.7702, -0.7864,  0.8083, -0.8210,
                                  0.8439, -0.8529,  0.0000,  0.0000,
                                  0.0000,  0.0000,  0.0000,  0.0000};
 
  // y parameter for the calculation of Y [1/bar].
  // These values are from P. W. Rosenkranz, Interference coefficients for the
  // overlapping oxygen lines in air, JQSRT, 1988, Volume 39, 287-297.
  const Numeric Y88[n_lines] = { -0.0244,  0.2772, -0.4068,  0.6270,
                                 -0.6183,  0.6766, -0.4119,  0.3290,
                                  0.0317, -0.1591,  0.1145, -0.2068,
                                  0.3398, -0.4158,  0.3922, -0.4482,
                                  0.4011, -0.4442,  0.4339, -0.4687,
                                  0.4783, -0.5074,  0.5157, -0.5403,
                                  0.5400, -0.5610,  0.5719, -0.5896,
                                  0.6046, -0.6194,  0.6347, -0.6468,
                                  0.6627, -0.6718,  0.0000,  0.0000,
                                  0.0000,  0.0000,  0.0000,  0.0000};
 
  // v parameter for the calculation of Y [1/bar]
  const Numeric V[n_lines] ={    0.0079, -0.0978,  0.0844, -0.1273,
         0.0699, -0.0776,  0.2309, -0.2825,
         0.0436, -0.0584,  0.6056, -0.6619,
         0.6451, -0.6759,  0.6547, -0.6675,
         0.6135, -0.6139,  0.2952, -0.2895,
         0.2654, -0.2590,  0.3750, -0.3680,
         0.5085, -0.5002,  0.6206, -0.6091,
         0.6526, -0.6393,  0.6640, -0.6475,
         0.6729, -0.6545,  0.0000,  0.0000,
         0.0000,  0.0000,  0.0000,  0.0000};
  // range of lines to take into account for the line absorption part
  const Index first_line = 0;  // first line for calculation
  const Index last_line  = 39; // last line for calculation
 
  // --------- STANDARD MODEL PARAMETERS ---------------------------------------------------
  // standard values for the Rosenkranz model
  // (P. W. Rosenkranz, Chapter 2, pp 74, in M. A. Janssen,
  // "Atmospheric Remote Sensing by Microwave Radiometry", John Wiley & Sons, Inc., 1993):
  const Numeric CC_PWR93 = 1.00000;
  const Numeric CL_PWR93 = 1.00000;
  const Numeric CW_PWR93 = 1.00000;
  const Numeric CO_PWR93 = 1.00000;
  // ---------------------------------------------------------------------------------------
 
 
  // select the parameter set (!!model dominates values!!):
  Numeric CC, CL, CW, CO, Y300[n_lines], S300[n_lines], F[n_lines];
  // FIXME int oldnewflag = 0;
 
  if ( model == "Rosenkranz" )
    {
      CC = CC_PWR93;
      CL = CL_PWR93;
      CW = CW_PWR93;
      CO = CO_PWR93;
    }
  else if ( model == "RosenkranzLines" )
    {
      CC = 0.000;
      CL = CL_PWR93;
      CW = CW_PWR93;
      CO = CO_PWR93;
    }
  else if ( model == "RosenkranzContinuum" )
    {
      CC = CC_PWR93;
      CL = 0.000;
      CW = 0.000;
      CO = 0.000;
    }
  else if ( model == "RosenkranzNoCoupling" )
    {
      CC = CC_PWR93;
      CL = CL_PWR93;
      CW = CW_PWR93;
      CO = 0.000;
    }
  else if ( model == "user" )
    {
      CC = CCin;
      CL = CLin;
      CW = CWin;
      CO = COin;
    }
  else
    {
      ostringstream os;
      os << "O2-PWR93: ERROR! Wrong model values given.\n"
   << "Valid models are: 'Rosenkranz', 'RosenkranzLines', RosenkranzContinuum, "
         << "'RosenkranzNoCoupling', and 'user'" << '\n';
      throw runtime_error(os.str());
    }
  out3  << "O2-PWR93: (model=" << model << ") parameter values in use:\n"
  << " CC = " << CC << "\n"
  << " CL = " << CL << "\n"
  << " CW = " << CW << "\n"
  << " CO = " << CO << "\n";
 
 
  // select version dependent parameters
  if ( version == "PWR88" ) {
    for ( Index i=0; i<n_lines; ++i )
      {
  F[i]    = F93[i];
  S300[i] = S93[i];
        Y300[i] = Y88[i];
      };
  }
  else if ( version == "PWR93" ) {
    for ( Index i=0; i<n_lines; ++i )
      {
  F[i]    = F93[i];
        S300[i] = S93[i];
        Y300[i] = Y93[i];
      };
  }
  else if ( version == "PWR98" ) {
    for ( Index i=0; i<n_lines; ++i )
      {
  F[i]    = F98[i];
  S300[i] = S98[i];
        Y300[i] = Y93[i];
      };
  }
  else
  {
      ostringstream os;
      os << "O2-PWR93/PWR88: ERROR! Wrong version is selected.\n"
      << "Valid versions are:\n"
      << "  'PWR98'  updates of F and S to HISTRAN96 and M.J.Schwartz, MIT, 1997\n"
      << "           suggestions implemented.\n"
      << "  'PWR93'  for the oxygen absorption model described in  \n"
      << "           P. W. Rosenkranz, Chapter 2, in M. A. Janssen,\n"
      << "           Atmospheric Remote Sensing by Microwave Radiometry,\n"
      << "           John Wiley & Sons, Inc., 1993.\n"
      << "  'PWR88'  for the oxygen absorption model described in \n"
      << "           P. W. Rosenkranz, Interference coefficients for the \n"
      << "           overlapping oxygen lines in air, \n"
      << "           JQSRT, 1988, Volume 39, 287-297.\n";
      throw runtime_error(os.str());
  }
 
 
  const Index n_p = abs_p.nelem();  // Number of pressure levels
  const Index n_f = f_grid.nelem();  // Number of frequencies
 
  // Check that dimensions of abs_p, abs_t, and vmr agree:
  assert ( n_p==abs_t.nelem() );
  assert ( n_p==vmr.nelem()   );
 
  // Check that dimensions of pxsec are consistent with n_f
  // and n_p. It should be [n_f,n_p]:
  assert ( n_f==pxsec.nrows() );
  assert ( n_p==pxsec.ncols() );
 
  String fail_msg;
  bool failed = false;
 
  // Loop pressure/temperature:
#pragma omp parallel for      \
  if (!arts_omp_in_parallel()  \
      && n_p >= arts_omp_get_max_threads())
  for ( Index i=0; i<n_p; ++i )
    {
      // check if O2-VMR is exactly zero (caused by zeropadding), then return 0.
      if (vmr[i] == 0.)
      {
          pxsec(joker, i) = 0.;
          continue;
      }
 
      // check if O2-VMR will cause an underflow due to division by zero:
      if (vmr[i] < VMRCalcLimit)
      {
          ostringstream os;
          os << "ERROR: PWR93 O2 full absorption model has detected a O2 volume mixing ratio of "
          << vmr[i] << " which is below the threshold of " << VMRCalcLimit << ".\n"
          << "Therefore no calculation is performed.\n";
#pragma omp critical (PWR93O2AbsModel_error)
          {
              fail_msg = os.str();
              failed = true;
          }
          continue;
      }
      // relative inverse temperature [1]
      Numeric TH     = 3.0000e2 / abs_t[i];
      Numeric TH1    = (TH-1.000e0);
      Numeric B      = pow(TH, X);
      // partial pressure of H2O and dry air [hPa]
      Numeric PRESWV = Pa_to_hPa * (abs_p[i] * vmrh2o[i]);
      Numeric PRESDA = Pa_to_hPa * (abs_p[i] * (1.000e0 - vmrh2o[i]));
      Numeric DEN    = 0.001*(PRESDA*B + 1.1*PRESWV*TH); // [hPa]
      Numeric DENS   = 0.001*(PRESDA   + 1.1*PRESWV)*TH; // [hPa]
      Numeric DFNR   = WB300*DEN; // [GHz]
 
      // continuum absorption [1/m/GHz]
      Numeric CCONT  = CC * 1.23e-10 * pow( TH, (Numeric)2. ) * abs_p[i];
 
      // Loop over input frequency
      for ( Index s=0; s<n_f; ++s )
  {
    // initial O2 line absorption at position ff
    // Numeric O2ABS  = 0.000e0;cd safff
 
    // input frequency in [GHz]
    Numeric ff   = Hz_to_GHz * f_grid[s];
 
    // continuum absorption [Neper/km]
    Numeric CONT = CCONT * (ff * ff * DFNR / (ff*ff + DFNR*DFNR));
 
    // Loop over Rosnekranz '93 spectral line frequency:
    Numeric SUM  = 0.000e0;
    for ( Index l=first_line; l<=last_line; ++l )
      {
        Numeric DF = CW * W300[l] * DEN; // [hPa]
        // 118 line update according to M. J. Schwartz, MIT, 1997
        if ( (version == "PWR98") && (fabs((F[l]-118.75)) < 0.10) )
    {
      DF = CW * W300[l] * DENS; // [hPa]
    }
        Numeric Y    = CO * 0.001 * 0.01 * abs_p[i] * B * ( Y300[l] + V[l]*TH1 );
        Numeric STR  = CL * S300[l] * exp(-BE[l] * TH1);
        Numeric SF1  = ( DF + (ff-F[l])*Y ) / ( (ff-F[l])*(ff-F[l]) + DF*DF );
        Numeric SF2  = ( DF - (ff+F[l])*Y ) / ( (ff+F[l])*(ff+F[l]) + DF*DF );
        SUM         += STR * (SF1+SF2) * (ff/F[l]) * (ff/F[l]);
      }
    // O2 absorption [Neper/km]
    // Rosenkranz uses the factor 0.5034e12 in the calculation of the abs coeff.
    // This factor is the product of several terms:
          // 0.5034e12 = ISORATIO *   VMR   * (Hz/GHz) * (k_B*300K)^-1
          //           = 0.995262 * 0.20946 *   10^-9  * 2.414322e21(hPa*cm^2*km)^-1
    //             |---- 0.2085 ----|   |---- 2.414322e12(hPa*cm^2*km)^-1 ---|
    //             |---- 0.2085 ----|   |---- 2.414322e10( Pa*cm^2*km)^-1 ---|
    // O2ABS = 2.4143e12 * SUM * PRESDA * pow(TH, 3.0) / PI;
    // O2ABS = CONT + (2.414322e10 * SUM * abs_p[i] * pow(TH, 3.0) / PI);
    // unit conversion x Nepers/km = y 1/m  --->  y = x * 1.000e-3
    // therefore 2.414322e10 --> 2.414322e7
    // pxsec [1/m]
    pxsec(s,i) += CONT + (2.414322e7 * SUM * abs_p[i] * pow(TH, (Numeric)3.) / PI);
  }
    }
 
  if (failed) throw runtime_error(fail_msg);
 
  return;
}
//
// #################################################################################
//
 
void MPM93_O2_continuum (MatrixView          pxsec,
                         const Numeric       S0in,         // model parameter
                         const Numeric       G0in,         // model parameter
                         const Numeric       XS0in,        // model parameter
                         const Numeric       XG0in,        // model parameter
                         const String&       model,
                         ConstVectorView     f_grid,
                         ConstVectorView     abs_p,
                         ConstVectorView     abs_t,
                         ConstVectorView     abs_h2o,
                         ConstVectorView     vmr,
                         const Verbosity& verbosity)
{
  CREATE_OUT3;
 
  // --------- STANDARD MODEL PARAMETERS ---------------------------------------------------
  // standard values for the MPM93 model (J. Liebe and G. A. Hufford and M. G. Cotton,
  // "Propagation modeling of moist air and suspended water/ice
  // particles at frequencies below 1000 GHz",
  // AGARD 52nd Specialists Meeting of the Electromagnetic Wave
  // Propagation Panel, Palma de Mallorca, Spain, 1993, May 17-21):
  // const Numeric  S0_MPM93  =  6.140e-13/0.20946; // line strength/VMR-O2 [1/Pa]
  const Numeric  S0_MPM93  =  6.140e-13;         // line strength [1/Pa]
  const Numeric G0_MPM93  =  0.560e4;           // line width [Hz/Pa]
  const Numeric  XS0_MPM93 =  2.000;             // temperature dependence of line strength
  const Numeric  XG0_MPM93 =  0.800;             // temperature dependence of line width
  // ---------------------------------------------------------------------------------------
 
 
  // select the parameter set (!!model dominates parameters!!):
  Numeric S0, G0, XS0, XG0;
  if ( model == "MPM93" )
    {
      S0  = S0_MPM93;
      G0  = G0_MPM93;
      XS0 = XS0_MPM93;
      XG0 = XG0_MPM93;
    }
  else if ( model == "user" )
    {
      S0  = S0in;
      G0  = G0in;
      XS0 = XS0in;
      XG0 = XG0in;
    }
  else
    {
      ostringstream os;
      os << "O2-SelfContMPM93: ERROR! Wrong model values given.\n"
   << "Valid models are: 'MPM93' and 'user'" << '\n';
      throw runtime_error(os.str());
    }
  out3  << "O2-SelfContMPM93: (model=" << model << ") parameter values in use:\n"
  << " S0  = " << S0 <<  "\n"
  << " G0  = " << G0 <<  "\n"
  << " XS0 = " << XS0 << "\n"
  << " XG0 = " << XG0 << "\n";
 
 
  const Index n_p = abs_p.nelem();  // Number of pressure levels
  const Index n_f = f_grid.nelem();  // Number of frequencies
 
  // Check that dimensions of abs_p, abs_t, and vmr agree:
  assert ( n_p==abs_t.nelem() );
  assert ( n_p==vmr.nelem()   );
 
  // Check that dimensions of pxsec are consistent with n_f
  // and n_p. It should be [n_f,n_p]:
  assert ( n_f==pxsec.nrows() );
  assert ( n_p==pxsec.ncols() );
 
  // const = VMR * ISORATIO = 0.20946 * 0.99519
  // this constant is already incorporated into the line strength, so we
  // have top devide the line strength by this value since arts multiplies pxsec
  // by these variables later in abs_coefCalc.
  const Numeric  VMRISO = 0.2085;
 
 
  // Loop pressure/temperature:
  for ( Index i=0; i<n_p; ++i )
    {
      // check if O2-VMR is exactly zero (caused by zeropadding), then return 0.
      if (vmr[i] == 0.)
      {
          pxsec(joker, i) = 0.;
          continue;
      }
 
      if (vmr[i] < VMRCalcLimit) // make sure that division by zero is excluded
  {
    ostringstream os;
    os << "ERROR: MPM93 O2 continuum absorption model has detected a O2 volume mixing ratio of "
       << vmr[i] << " which is below the threshold of " << VMRCalcLimit << ".\n"
       << "Therefore no calculation is performed.\n";
    throw runtime_error(os.str());
    return;
  }
      Numeric th       = 300.0 / abs_t[i]; // Theta
      // continuum strength
      Numeric strength =  S0 * abs_p[i] * (1.0000 - abs_h2o[i]) * pow( th, XS0 );
      // G0 from the input has to be converted to unit GHz/hPa --> * 1.0e-7
      Numeric gamma    =  G0 * abs_p[i] * pow( th, XG0 ); // Hz
 
      // Loop frequency:
      for ( Index s=0; s<n_f; ++s )
  {
    // the vmr of O2 will be multiplied at the stage of absorption calculation:
    // abs / vmr * pxsec.
    pxsec(s,i) +=  (4.0 * PI / SPEED_OF_LIGHT)  *              // unit factor [1/(m*Hz)]
                  (strength / VMRISO)          *              // strength    [1]
                  ( pow( f_grid[s], (Numeric)2.) * gamma /              // line shape  [Hz]
                    ( pow( f_grid[s], (Numeric)2.) + pow( gamma, (Numeric)2.) ) );
  }
    }
  return;
}
//
// #################################################################################
//
 
void Rosenkranz_O2_continuum (MatrixView        pxsec,
                              const Numeric     S0in,         // model parameter
                              const Numeric     G0in,         // model parameter
                              const Numeric     XS0in,        // model parameter
                              const Numeric     XG0in,        // model parameter
                              const String&     model,
                              ConstVectorView   f_grid,
                              ConstVectorView   abs_p,        // total pressure [Pa]
                              ConstVectorView   abs_t,
                              ConstVectorView   abs_h2o,      // H2O VMR
                              ConstVectorView   vmr _U_,      // O2 VMR
                              const Verbosity& verbosity)
{
  CREATE_OUT3;
 
  // --------- STANDARD MODEL PARAMETERS ---------------------------------------------------
  // P. W. Rosenkranz, Chapter 2, in M. A. Janssen,
  // Atmospheric Remote Sensing by Microwave Radiometry, John Wiley & Sons, Inc., 1993
  // ftp://mesa.mit.edu/phil/lbl_rt
  const Numeric  S0_PWR93   =  1.11e-14; // [K²/(Hz*Pa*m)] line strength
  const Numeric G0_PWR93  =  5600.000;  // line width [Hz/Pa]
  const Numeric  XS0_PWR93 =  2.000;    // temperature dependence of line strength
  const Numeric  XG0_PWR93 =  0.800;    // temperature dependence of line width
  // ---------------------------------------------------------------------------------------
 
  // select the parameter set (!!model dominates values!!):
  Numeric S0, G0, XS0, XG0;
  if ( model == "Rosenkranz" )
    {
      S0  = S0_PWR93;
      G0  = G0_PWR93;
      XS0 = XS0_PWR93;
      XG0 = XG0_PWR93;
    }
  else if ( model == "user" )
    {
      S0  = S0in;
      G0  = G0in;
      XS0 = XS0in;
      XG0 = XG0in;
    }
  else
    {
      ostringstream os;
      os << "O2-SelfContPWR93: ERROR! Wrong model values given.\n"
   << "Valid models are: 'Rosenkranz' and 'user'" << '\n';
      throw runtime_error(os.str());
    }
  out3  << "O2-SelfContPWR93: (model=" << model << ") parameter values in use:\n"
  << " S0  = " << S0 <<  "\n"
  << " G0  = " << G0 <<  "\n"
  << " XS0 = " << XS0 << "\n"
  << " XG0 = " << XG0 << "\n";
 
 
  const Index n_p = abs_p.nelem();  // Number of pressure levels
  const Index n_f = f_grid.nelem();  // Number of frequencies
 
  // Check that dimensions of abs_p, abs_t, and vmr agree:
  assert ( n_p==abs_t.nelem() );
  assert ( n_p==vmr.nelem()   );
 
  // Check that dimensions of pxsec are consistent with n_f
  // and n_p. It should be [n_f,n_p]:
  assert ( n_f==pxsec.nrows() );
  assert ( n_p==pxsec.ncols() );
 
  // loop over all pressure levels:
  for ( Index i=0; i<n_p; ++i )
    {
      Numeric TH = 300.00 / abs_t[i];         // relative temperature  [1]
 
      Numeric ph2o  = abs_p[i] * abs_h2o[i];  // water vapor partial pressure [Pa]
      Numeric pdry  = abs_p[i] - ph2o;        // dry air partial pressure     [Pa]
 
 
      // pseudo broadening term [Hz]
      Numeric gamma = G0 * (pdry * pow( TH, XG0 ) + 1.100 * ph2o * TH);
 
      // Loop over frequency grid:
      for ( Index s=0; s<n_f; ++s )
  {
    // division by vmr of O2 is necessary because of the absorption calculation
          // abs = vmr * pxsec.
    pxsec(s,i) += S0 * abs_p[i] / pow( abs_t[i], XS0 ) *
                        ( pow( f_grid[s], (Numeric)2. )
                          * gamma / ( pow( f_grid[s], 2 )
                                      + pow( gamma, (Numeric)2. ) ) ) ;
  }
    }
}
//
//
// #################################################################################
 
void Standard_O2_continuum (MatrixView        pxsec,        // cross section
                            const Numeric     Cin,          // model parameter
                            const Numeric     G0in,         // model parameter
                            const Numeric     G0Ain,        // model parameter
                            const Numeric     G0Bin,        // model parameter
                            const Numeric     XG0din,       // model parameter
                            const Numeric     XG0win,       // model parameter
                            const String&     model,        // model parameter
                            ConstVectorView   f_grid,       // frequency grid
                            ConstVectorView   abs_p,        // P_tot grid
                            ConstVectorView   abs_t,        // T grid
                            ConstVectorView   abs_h2o,      // VMR H2O profile
                            ConstVectorView   vmr _U_,      // VMR O2  profile
                            const Verbosity& verbosity)
{
  CREATE_OUT3;
 
  // --------- STANDARD MODEL PARAMETERS ---------------------------------------------------
  // P. W. Rosenkranz, Chapter 2, in M. A. Janssen,
  // Atmospheric Remote Sensing by Microwave Radiometry, John Wiley & Sons, Inc., 1993
  // ftp://mesa.mit.edu/phil/lbl_rt
  const Numeric  C_PWR93    = (1.108e-14/pow((Numeric)3.0e2,(Numeric)2.)); // [1/(Hz*Pa*m)] line strength
  const Numeric G0_PWR93   = 5600.000;  // line width [Hz/Pa]
  const Numeric G0A_PWR93  =    1.000;  // line width [1]
  const Numeric G0B_PWR93  =    1.100;  // line width [1]
  const Numeric  XG0d_PWR93 =    0.800;  // temperature dependence of line width [1]
  const Numeric  XG0w_PWR93 =    1.000;  // temperature dependence of line width [1]
  //
  // standard values for the MPM93 model (J. Liebe and G. A. Hufford and M. G. Cotton,
  // "Propagation modeling of moist air and suspended water/ice
  // particles at frequencies below 1000 GHz",
  // AGARD 52nd Specialists Meeting of the Electromagnetic Wave
  // Propagation Panel, Palma de Mallorca, Spain, 1993, May 17-21):
  // const Numeric  C_MPM93    = 1.23e-19; // line strength/VMR [1/m*1/Hz*1/Pa]
  const Numeric  C_MPM93    = 6.14e-13*(4.0*PI/SPEED_OF_LIGHT)/0.2085; // line strength [1/m*1/Hz*1/Pa]
  // 0.2085 = VMR * ISORATIO = 0.20946 * 0.99519
  const Numeric G0_MPM93   = 5600.000; // line width [Hz/Pa]
  const Numeric G0A_MPM93  =    1.000; // line width [1]
  const Numeric G0B_MPM93  =    1.000; // line width [1]
  const Numeric  XG0d_MPM93 =    0.800; // temperature dependence of line strength [1]
  const Numeric  XG0w_MPM93 =    0.800; // temperature dependence of line width    [1]
  // ---------------------------------------------------------------------------------------
 
  // select the parameter set (!!model dominates values!!):
  Numeric C, G0, G0A, G0B, XG0d, XG0w;
  if ( model == "Rosenkranz" )
    {
      C    = C_PWR93;
      G0   = G0_PWR93;
      G0A  = G0A_PWR93;
      G0B  = G0B_PWR93;
      XG0d = XG0d_PWR93;
      XG0w = XG0w_PWR93;
    }
  else if ( model == "MPM93" )
    {
      C    = C_MPM93;
      G0   = G0_MPM93;
      G0A  = G0A_MPM93;
      G0B  = G0B_MPM93;
      XG0d = XG0d_MPM93;
      XG0w = XG0w_MPM93;
    }
  else if ( model == "user" )
    {
      C    = Cin;
      G0   = G0in;
      G0A  = G0Ain;
      G0B  = G0Bin;
      XG0d = XG0din;
      XG0w = XG0win;
    }
  else
    {
      ostringstream os;
      os << "O2-GenerealCont: ERROR! Wrong model values given.\n"
   << "Valid models are: 'Rosenkranz', 'MPM93' and 'user'" << '\n';
      throw runtime_error(os.str());
    }
  out3  << "O2-GeneralCont: (model=" << model << ") parameter values in use:\n"
  << " C    = " << C <<  "\n"
  << " G0   = " << G0 <<  "\n"
  << " G0A  = " << G0A <<  "\n"
  << " G0B  = " << G0B <<  "\n"
  << " XG0d = " << XG0d << "\n"
  << " XG0w = " << XG0w << "\n";
 
 
  const Index n_p = abs_p.nelem();  // Number of pressure levels
  const Index n_f = f_grid.nelem();  // Number of frequencies
 
  // Check that dimensions of abs_p, abs_t, and vmr agree:
  assert ( n_p==abs_t.nelem() );
  assert ( n_p==vmr.nelem()   );
 
  // Check that dimensions of pxsec are consistent with n_f
  // and n_p. It should be [n_f,n_p]:
  assert ( n_f==pxsec.nrows() );
  assert ( n_p==pxsec.ncols() );
 
  // const = VMR * ISORATIO = 0.20946 * 0.99519
  // this constant is already incorporated into the line strength, so we
  // have top devide the line strength by this value since arts multiplies pxsec
  // by these variables later in abs_coefCalc.
  // FIXME const Numeric  VMRISO = 0.2085;
 
  // loop over all pressure levels:
  for ( Index i=0; i<n_p; ++i )
    {
      Numeric TH = 3.0e2 / abs_t[i];         // relative temperature  [1]
 
      Numeric ph2o = abs_p[i] * abs_h2o[i];  // water vapor partial pressure [Pa]
      Numeric pdry = abs_p[i] - ph2o;        // dry air partial pressure     [Pa]
 
 
      // pseudo broadening term [Hz]
      Numeric gamma = G0 * (G0A * pdry * pow( TH, XG0d ) + G0B * ph2o * pow( TH, XG0w ));
 
      // Loop over frequency grid:
      for ( Index s=0; s<n_f; ++s )
  {
    // division by vmr of O2 is necessary because of the absorption calculation
          // abs = vmr * pxsec.
    pxsec(s,i) += C * abs_p[i] * pow( TH, (Numeric)2. ) *
                       ( gamma * pow( f_grid[s], (Numeric)2. ) /
                         ( pow( f_grid[s], 2 ) + pow( gamma, (Numeric)2. ) ) );
  }
    }
}
//
// #################################################################################
// ################################ NITROGEN MODELS ################################
// #################################################################################
//
 
void BF86_CIA_N2 (MatrixView          pxsec,
                  const Numeric       Cin,
                  const String&       model,
                  ConstVectorView     f_grid,
                  ConstVectorView     abs_p,
                  ConstVectorView     abs_t,
                  ConstVectorView     vmr,
                  const Verbosity& verbosity)
{
  CREATE_OUT3;
  
  //
  //
  // external function to call (original F77 code translated with f2c)
  extern Numeric n2n2tks_(double t, double f);
  //
  // --------- STANDARD MODEL PARAMETERS ---------------------------------------------------
  // standard values for the MPM93 H2O continuum model
  // (AGARD 52nd Specialists Meeting of the Electromagnetic Wave
  // Propagation Panel, Palma de Mallorca, Spain, 1993, May 17-21):
  Numeric  XFAC  =  1.0000;             // scaling factor
  // ---------------------------------------------------------------------------------------
 
  // select the parameter set (!!model dominates values!!):
  if ( model == "BF86" )
    {
      XFAC =  1.0000;
    }
  else if ( model == "user" )
    {
      XFAC =  Cin;
    }
  else
    {
      ostringstream os;
      os << "N2-SelfContBorysow: ERROR! Wrong model values given.\n"
   << "allowed models are: 'BF86', 'user'" << '\n';
      throw runtime_error(os.str());
    }
 
  out3  << "N2-SelfContBorysow: (model=" << model << ") parameter values in use:\n"
  << " XFAC = " << XFAC << "\n";
 
  const Index n_p = abs_p.nelem();  // Number of pressure levels
  const Index n_f = f_grid.nelem();  // Number of frequencies
 
 
  const Numeric AMAG2DEN = 44.53807; // inverse of N2 mol volume at std p/T
  const Numeric RIDGAS =  8.314510;  // ideal gas constant
 
  // Check that dimensions of abs_p, abs_t, and vmr agree:
  assert ( n_p==abs_t.nelem() );
  assert ( n_p==vmr.nelem()   );
 
  // Check that dimensions of pxsec are consistent with n_f
  // and n_p. It should be [n_f,n_p]:
  assert ( n_f==pxsec.nrows() );
  assert ( n_p==pxsec.ncols() );
 
  // Loop pressure/temperature:
  for ( Index i=0; i<n_p; ++i )
    {
      //cout << "------------------------------------------------\n";
      double T = (double) abs_t[i];
      //cout << "N2-N2 BF86: T     =" << T << " K\n";
      //cout << "N2-N2 BF86: p     =" << abs_p[i] << " Pa\n";
      //cout << "N2-N2 BF86: VMR   =" << vmr[i] << "\n";
      Numeric XAMA  = (abs_p[i]) / ( AMAG2DEN * RIDGAS * abs_t[i] );
      Numeric XAMA2 = pow(XAMA,(Numeric)2.);
      //cout << "N2-N2 BF86: XAMA  =" << XAMA << "\n";
 
      // Loop frequency:
      for ( Index s=0; s<n_f; ++s )
  {
    // the second vmr of N2 will be multiplied at the stage of
    // absorption calculation: abs =  vmr * pxsec.
    double f = (double) f_grid[s];
    //cout << "N2-N2 BF86: f     =" << f << " Hz\n";
    double cont = n2n2tks_(T, f);
    pxsec(s,i) += (Numeric) (cont * 1.000e2 * vmr[i] * XAMA2);
    //cout << "N2-N2 BF86: cont  =" << cont << " cm-1 * amagat-2\n";
    //cout << "N2-N2 BF86: abs   =" << (vmr[i] * pxsec(s,i)) << " m-1\n";
  }
    }
  return;
}
//
// #################################################################################
//
 
void MPM93_N2_continuum (MatrixView          pxsec,
                         const Numeric       Cin,
                         const Numeric       Gin,
                         const Numeric       xTin,
                         const Numeric       xfin,
                         const String&       model,
                         ConstVectorView     f_grid,
                         ConstVectorView     abs_p,
                         ConstVectorView     abs_t,
                         ConstVectorView     abs_h2o,
                         ConstVectorView     vmr,
                         const Verbosity& verbosity)
{
  CREATE_OUT3;
 
  // --------- STANDARD MODEL PARAMETERS ---------------------------------------------------
  // standard values for the MPM93 H2O continuum model
  // (AGARD 52nd Specialists Meeting of the Electromagnetic Wave
  // Propagation Panel, Palma de Mallorca, Spain, 1993, May 17-21):
  const Numeric  xT_MPM93  =  3.500;             // temperature exponent [1]
  const Numeric  xf_MPM93  =  1.500;             // frequency exponent [1]
  const Numeric  gxf_MPM93 =  9.000*xf_MPM93;    // needed for the unit conversion of G_MPM93
  const Numeric  S_MPM93   =  2.296e-31;         // line strength  [1/Pa² * 1/Hz]
  const Numeric G_MPM93   =  1.930e-5*pow((Numeric)10.000, -gxf_MPM93); // frequency factor [1/Hz^xf]
  // ---------------------------------------------------------------------------------------
 
  // select the parameter set (!!model dominates values!!):
  Numeric S0, G0, xf, xT;
  //Numeric gxf;
  if ( model == "MPM93" )
    {
      S0  = S_MPM93;
      G0  = G_MPM93;
      xT  = xT_MPM93;
      xf  = xf_MPM93;
      //gxf = gxf_MPM93;
    }
  else if ( model == "MPM93Scale" )
    {
      S0  = Cin * S_MPM93;
      G0  = G_MPM93;
      xT  = xT_MPM93;
      xf  = xf_MPM93;
      //gxf = gxf_MPM93;
    }
  else if ( model == "user" )
    {
      S0  = Cin;
      G0  = Gin;
      xT  = xTin;
      xf  = xfin;
      //gxf = 9.000*xf;
    }
  else
    {
      ostringstream os;
      os << "N2-SelfContMPM93 : ERROR! Wrong model values given.\n"
   << "allowed models are: 'MPM93', 'MPM93Scale' or 'user'" << '\n';
      throw runtime_error(os.str());
    }
 
  out3  << "N2-SelfContMPM93: (model=" << model << ") parameter values in use:\n"
  << " S0 = " << S0 << "\n"
  << " G0 = " << G0 << "\n"
  << " xT = " << xT << "\n"
  << " xf = " << xf << "\n";
 
  // unit conversion internally:
  //const Numeric S0unitconv = 1.000e+13;  // x [1/(hPa²*GHz)] => y [1/(pa²*Hz)]
  //const Numeric G0unitconv = pow(10.000, gxf);
 
  const Index n_p = abs_p.nelem();  // Number of pressure levels
  const Index n_f = f_grid.nelem();  // Number of frequencies
 
  // Check that dimensions of abs_p, abs_t, and vmr agree:
  assert ( n_p==abs_t.nelem() );
  assert ( n_p==vmr.nelem()   );
 
  // Check that dimensions of pxsec are consistent with n_f
  // and n_p. It should be [n_f,n_p]:
  assert ( n_f==pxsec.nrows() );
  assert ( n_p==pxsec.ncols() );
 
  Numeric fac = 4.0 * PI / SPEED_OF_LIGHT;  //  = 4 * pi / c
  // Loop pressure/temperature:
  for ( Index i=0; i<n_p; ++i )
    {
      Numeric th = 300.0 / abs_t[i];
      Numeric strength =  S0 *
                          pow( (abs_p[i] * ((Numeric)1.0000 - abs_h2o[i])),
                               (Numeric)2. )
                          * pow( th, xT );
 
      // Loop frequency:
      for ( Index s=0; s<n_f; ++s )
  {
    // FIXME Numeric f = f_grid[s] * Hz_to_GHz; // frequency in GHz
    // the vmr of N2 will be multiplied at the stage of absorption calculation:
    // abs / vmr * pxsec.
    pxsec(s,i) += fac * strength *                              // strength
                       pow(f_grid[s], (Numeric)2.) /                      // frequency dependence
                 ( 1.000 + G0 * pow( f_grid[s], xf) ) *
                  vmr[i];                                // N2 vmr
  }
    }
  return;
}
//
// #################################################################################
 
void Pardo_ATM_N2_dry_continuum (MatrixView          pxsec,
                                 const Numeric       Cin,
                                 const String&       model,
                                 ConstVectorView     f_grid,
                                 ConstVectorView     abs_p,
                                 ConstVectorView     abs_t,
                                 ConstVectorView     vmr,
                                 ConstVectorView     h2ovmr,
                                 const Verbosity& verbosity)
{
  CREATE_OUT3;
  
  // --------- STANDARD MODEL PARAMETERS ---------------------------------------------------
  // standard values for the Pardo et al. model (IEEE, Trans. Ant. Prop.,
  // Vol 49, No 12, pp. 1683-1694, 2001)
  const Numeric  C_ATM = 2.612e-6; // [1/m]
  // ---------------------------------------------------------------------------------------
 
  // select the parameter set (!!model dominates parameters!!):
  Numeric C;
   if ( model == "ATM" )
     {
       C = C_ATM;
     }
   else if ( model == "user" )
     {
       C = Cin;
     }
   else
     {
       ostringstream os;
       os << "N2-DryContATM01: ERROR! Wrong model values given.\n"
    << "allowed models are: 'ATM', 'user'" << '\n';
       throw runtime_error(os.str());
     }
   out3  << "N2-DryContATM01: (model=" << model << ") parameter values in use:\n"
         << " C_s = " << C << "\n";
 
   const Index n_p = abs_p.nelem();  // Number of pressure levels
   const Index n_f = f_grid.nelem();  // Number of frequencies
 
   // Check that dimensions of abs_p, abs_t, and vmr agree:
   assert ( n_p==abs_t.nelem() );
   assert ( n_p==vmr.nelem()   );
 
  // Check that dimensions of pxsec are consistent with n_f
  // and n_p. It should be [n_f,n_p]:
  assert ( n_f==pxsec.nrows() );
  assert ( n_p==pxsec.ncols() );
 
  // Loop over pressure/temperature grid:
  for ( Index i=0; i<n_p; ++i )
    {
      // since this is an effective "dry air" continuum, it is not really
      // it is not specifically attributed to N2, so we need the total
      // dry air part in total which is equal to the total minus the
      // water vapor pressure:
      Numeric  pd = abs_p[i] * ( 1.00000e0 - h2ovmr[i] ); // [Pa]
      // Loop over frequency grid:
      if (vmr[i] > VMRCalcLimit )
  {
    for ( Index s=0; s<n_f; ++s )
      {
        // Becaue this is an effective "dry air" continuum, it is not really
        // specific N2 but mainly caused by N2. Therefore the N2 vmr must be
        // canceled out here which is later in abs_coefCalc multiplied
        // (calculation: abs = vmr * pxsec):
        pxsec(s,i) += C *                    // strength [1/(m*Hz²Pa²)]
    pow( (f_grid[s]/(Numeric)2.25e11), (Numeric)2. ) * // quadratic f dependence [Hz²]
    pow( ((Numeric)300.0/abs_t[i]), (Numeric)3.5 )   * // free T dependence      [1]
    pow( (pd/(Numeric)1.01300e5), (Numeric)2. )      / // quadratic p dependence [Pa²]
    vmr[i];                                            // cancel the vmr dependency
      }
  }
    }
}
//
// #################################################################################
 
void Rosenkranz_N2_self_continuum (MatrixView          pxsec,
                                   const Numeric       Cin,
                                   const Numeric       xin,
                                   const String&       model,
                                   ConstVectorView     f_grid,
                                   ConstVectorView     abs_p,
                                   ConstVectorView     abs_t,
                                   ConstVectorView     vmr,
                                   const Verbosity& verbosity)
{
  CREATE_OUT3;
  
  // --------- STANDARD MODEL PARAMETERS ---------------------------------------------------
  // standard values for the Rosenkranz model (Chapter 2, pp 74, in M. A. Janssen,
  // "Atmospheric Remote Sensing by Microwave Radiometry", John Wiley & Sons, Inc., 1993
  const Numeric  C_PWR = 1.05e-38; // [1/(Pa²*Hz²*m)]
  const Numeric  x_PWR = 3.55;     // [1]
  // ---------------------------------------------------------------------------------------
 
  // select the parameter set (!!model dominates parameters!!):
  Numeric C, x;
   if ( model == "Rosenkranz" )
     {
       C = C_PWR;
       x = x_PWR;
     }
   else if ( model == "user" )
     {
       C = Cin;
       x = xin;
     }
   else
     {
       ostringstream os;
       os << "N2-SelfContPWR93: ERROR! Wrong model values given.\n"
    << "allowed models are: 'Rosenkranz', 'user'" << '\n';
       throw runtime_error(os.str());
     }
   out3  << "N2-SelfContPWR93: (model=" << model << ") parameter values in use:\n"
         << " C_s = " << C << "\n"
         << " x_s = " << x << "\n";
 
   const Index n_p = abs_p.nelem();  // Number of pressure levels
   const Index n_f = f_grid.nelem();  // Number of frequencies
 
   // Check that dimensions of abs_p, abs_t, and vmr agree:
   assert ( n_p==abs_t.nelem() );
   assert ( n_p==vmr.nelem()   );
 
  // Check that dimensions of pxsec are consistent with n_f
  // and n_p. It should be [n_f,n_p]:
  assert ( n_f==pxsec.nrows() );
  assert ( n_p==pxsec.ncols() );
 
  // Loop over pressure/temperature grid:
  for ( Index i=0; i<n_p; ++i )
    {
      // Loop over frequency grid:
      for ( Index s=0; s<n_f; ++s )
  {
    // The second vmr of N2 will be multiplied at the stage of absorption
    // calculation: abs = vmr * pxsec.
    pxsec(s,i) += C *                        // strength [1/(m*Hz²Pa²)]
                 pow( f_grid[s], (Numeric)2. ) *      // quadratic f dependence [Hz²]
                 pow( (Numeric)300.0/abs_t[i], x ) * // free T dependence      [1]
                       pow( abs_p[i], (Numeric)2. ) *       // quadratic p dependence [Pa²]
                       vmr[i];                    // second N2-VMR at the stage
                                            // of absorption calculation
  }
    }
}
//
// #################################################################################
//
 
void Standard_N2_self_continuum (MatrixView          pxsec,
                                 const Numeric       Cin,
                                 const Numeric       xfin,
                                 const Numeric       xtin,
                                 const Numeric       xpin,
                                 const String&       model,
                                 ConstVectorView     f_grid,
                                 ConstVectorView     abs_p,
                                 ConstVectorView     abs_t,
                                 ConstVectorView     vmr,
                                 const Verbosity& verbosity)
{
  CREATE_OUT3;
 
  // --------- STANDARD MODEL PARAMETERS ---------------------------------------------------
  // standard values for the Rosenkranz model, Chapter 2, pp 74, in M. A. Janssen,
  // "Atmospheric Remote Sensing by Microwave Radiometry", John Wiley & Sons, Inc., 1993
  const Numeric  C_GM  = 1.05e-38; // [1/(Pa²*Hz²*m)]
  const Numeric  xf_GM = 2.00;     // [1]
  const Numeric  xt_GM = 3.55;     // [1]
  const Numeric  xp_GM = 2.00;     // [1]
  // ---------------------------------------------------------------------------------------
 
  // select the parameter set (!!model dominates over values!!):
  Numeric C, xt, xf, xp;
   if ( model == "Rosenkranz" )
     {
       C  = C_GM;
       xt = xt_GM;
       xf = xf_GM;
       xp = xp_GM;
     }
   else if ( model == "user" )
     {
       C  = Cin;
       xt = xtin;
       xf = xfin;
       xp = xpin;
     }
   else
     {
       ostringstream os;
       os << "N2-SelfContStandardType: ERROR! Wrong model values given.\n"
    << "allowed models are: 'Rosenkranz', 'user'" << '\n';
       throw runtime_error(os.str());
     }
   out3  << "N2-SelfContStandardType: (model=" << model << ") parameter values in use:\n"
         << " C  = " << C  << "\n"
         << " xt = " << xt << "\n"
         << " xf = " << xf << "\n"
         << " xp = " << xp << "\n";
 
 
  const Index n_p = abs_p.nelem();  // Number of pressure levels
  const Index n_f = f_grid.nelem();  // Number of frequencies
 
  // Check that dimensions of abs_p, abs_t, and vmr agree:
  assert ( n_p==abs_t.nelem() );
  assert ( n_p==vmr.nelem()   );
 
  // Check that dimensions of pxsec are consistent with n_f
  // and n_p. It should be [n_f,n_p]:
  assert ( n_f==pxsec.nrows() );
  assert ( n_p==pxsec.ncols() );
 
  // Loop over pressure/temperature grid:
  for ( Index i=0; i<n_p; ++i )
    {
      //cout << "vmr[" << i << "]= " << vmr[i] << "\n";
      // Loop over frequency grid:
      for ( Index s=0; s<n_f; ++s )
  {
    // The second N2-VMR will be multiplied at the stage of absorption
    // calculation: abs = vmr * pxsec.
    pxsec(s,i) += C                            * // strength [1/(m*Hz²Pa²)]
                       pow( ((Numeric)300.00/abs_t[i]), xt ) * // T dependence        [1]
                       pow( f_grid[s], xf )         * // f dependence    [Hz^xt]
                       pow( abs_p[i], xp )          * // p dependence    [Pa^xp]
                       pow( vmr[i], (xp-(Numeric)1.) );         // last N2-VMR at the stage
                                                // of absorption calculation
  }
    }
}
 
 
 
 
 
// ############################################################################
// ############################## CARBON DIOXIDE MODELS #######################
// ############################################################################
 
// ############################################################################
 
void Rosenkranz_CO2_self_continuum (MatrixView          pxsec,
                                    const Numeric       Cin,
                                    const Numeric       xin,
                                    const String&       model,
                                    ConstVectorView     f_grid,
                                    ConstVectorView     abs_p,
                                    ConstVectorView     abs_t,
                                    ConstVectorView     vmr,
                                    const Verbosity& verbosity)
{
  CREATE_OUT3;
  
  // --------- STANDARD MODEL PARAMETERS ---------------------------------------------------
  // P. W. Rosenkranz Chapter 2, pp 74, in M. A. Janssen,
  // "Atmospheric Remote Sensing by Microwave Radiometry", John Wiley & Sons, Inc., 1993
  const Numeric  C_PWR = 7.43e-37; // [ 1/(Pa²*Hz²*m) ]
  const Numeric  x_PWR = 5.08;     // [ 1 ]
  // ---------------------------------------------------------------------------------------
 
  // select the parameter set (!!model dominates values!!):
  Numeric C, x;
  if ( model == "Rosenkranz" )
    {
      C = C_PWR;
      x = x_PWR;
    }
  else if ( model == "user" )
    {
      C = Cin;
      x = xin;
    }
  else
    {
      ostringstream os;
      os << "CO2-SelfContPWR93 : ERROR! Wrong model values given.\n"
   << "allowed models are: 'Rosenkranz', 'user'" << "\n";
      throw runtime_error(os.str());
    }
 
  out3  << "CO2-SelfContPWR93: (model=" << model << ") parameter values in use:\n"
  << " C = " << C << "\n"
  << " x = " << x << "\n";
 
  const Index n_p = abs_p.nelem();  // Number of pressure levels
  const Index n_f = f_grid.nelem();  // Number of frequencies
 
  // Check that dimensions of abs_p, abs_t, and vmr agree:
  assert ( n_p==abs_t.nelem() );
  assert ( n_p==vmr.nelem()   );
 
  // Check that dimensions of pxsec are consistent with n_f
  // and n_p. It should be [n_f,n_p]:
  assert ( n_f==pxsec.nrows() );
  assert ( n_p==pxsec.ncols() );
 
  // Loop over pressure/temperature grid:
  for ( Index i=0; i<n_p; ++i )
    {
      // Dummy scalar holds everything except the quadratic frequency dependence.
      // The second vmr of CO2 will be multiplied at the stage of absorption
      // calculation: abs = vmr * pxsec.
      Numeric dummy =
  C * pow( (Numeric)300./abs_t[i], x ) * pow( abs_p[i], (Numeric)2. ) * vmr[i];
 
      // Loop over frequency grid:
      for ( Index s=0; s<n_f; ++s )
  {
    pxsec(s,i) += dummy * pow( f_grid[s], (Numeric)2. );
  }
    }
}
 
// ############################################################################
 
void Rosenkranz_CO2_foreign_continuum (MatrixView          pxsec,
                                       const Numeric       Cin,
                                       const Numeric       xin,
                                       const String&       model,
                                       ConstVectorView     f_grid,
                                       ConstVectorView     abs_p,
                                       ConstVectorView     abs_t,
                                       ConstVectorView     abs_n2,
                                       ConstVectorView     vmr _U_,
                                       const Verbosity& verbosity)
{
  CREATE_OUT3;
 
  // --------- STANDARD MODEL PARAMETERS ---------------------------------------------------
  // "Atmospheric Remote Sensing by Microwave Radiometry", John Wiley & Sons, Inc., 1993
  const Numeric C_PWR = 2.71e-37; // default: 2.71*10^-37 1/(Pa²*Hz²*m)
  const Numeric x_PWR = 4.7;      // default: 4.7
  // ---------------------------------------------------------------------------------------
 
  // select the parameter set (!!model dominates values!!):
  Numeric C, x;
  if ( model == "Rosenkranz" )
    {
      C = C_PWR;
      x = x_PWR;
    }
  else if ( model == "user" )
    {
      C = Cin;
      x = xin;
    }
  else
    {
      ostringstream os;
      os << "CO2-ForeignContPWR93: ERROR! Wrong model values given.\n"
   << "allowed models are: 'Rosenkranz', 'user'" << "\n";
      throw runtime_error(os.str());
    }
 
  out3  << "CO2-ForeignContPWR93: (model=" << model << ") parameter values in use:\n"
  << " C = " << C << "\n"
  << " x = " << x << "\n";
 
  const Index n_p = abs_p.nelem();  // Number of pressure levels
  const Index n_f = f_grid.nelem();  // Number of frequencies
 
  // Check that dimensions of abs_p, abs_t, and vmr agree:
  assert ( n_p==abs_t.nelem() );
  assert ( n_p==vmr.nelem()   );
 
  // Check that dimensions of pxsec are consistent with n_f
  // and n_p. It should be [n_f,n_p]:
  assert ( n_f==pxsec.nrows() );
  assert ( n_p==pxsec.ncols() );
 
  // Loop pressure/temperature:
  for ( Index i=0; i<n_p; ++i )
    {
      // Dummy scalar holds everything except the quadratic frequency dependence.
      // The vmr of CO2 will be multiplied at the stage of absorption
      // calculation: abs = vmr * pxsec.
      Numeric dummy = C * pow( (Numeric)300./abs_t[i], x ) * abs_p[i] * abs_p[i] * abs_n2[i];
 
      // Loop frequency:
      for ( Index s=0; s<n_f; ++s )
  {
    pxsec(s,i) += dummy * pow( f_grid[s], (Numeric)2. );
  }
    }
}
 
// ############################################################################
 
void Ho66_CO2_self_continuum (MatrixView          pxsec,
                              const Numeric       Cin,
                              const Numeric       xin,
                              const String&       model,
                              ConstVectorView     f_grid,
                              ConstVectorView     abs_p,
                              ConstVectorView     abs_t,
                              ConstVectorView     vmr,
                              const Verbosity& verbosity)
{
  CREATE_OUT3;
  
  // --------- STANDARD MODEL PARAMETERS --------------------------------------
  // Values (after conversion for C) from abstract of Ho66:
  const Numeric  C_Ho66 = 1.70e-36; // [ 1/(Pa²*Hz²*m) ]
  const Numeric  x_Ho66 = 5;        // [ 1 ]
  // --------------------------------------------------------------------------
 
  // select the parameter set (!!model dominates values!!):
  Numeric C, x;
  if ( model == "Ho66" )
    {
      C = C_Ho66;
      x = x_Ho66;
    }
  else if ( model == "user" )
    {
      C = Cin;
      x = xin;
    }
  else
    {
      ostringstream os;
      os << "CO2-SelfContHo66 : ERROR! Wrong model values given.\n"
   << "allowed models are: 'Ho66', 'user'" << "\n";
      throw runtime_error(os.str());
    }
 
  out3  << "CO2-SelfContHo66: (model=" << model 
        << ") parameter values in use:\n" << " C = " << C << "\n"
        << " x = " << x << "\n";
 
  const Index n_p = abs_p.nelem();   // Number of pressure levels
  const Index n_f = f_grid.nelem();  // Number of frequencies
 
  // Check that dimensions of abs_p, abs_t, and vmr agree:
  assert ( n_p==abs_t.nelem() );
  assert ( n_p==vmr.nelem()   );
 
  // Check that dimensions of pxsec are consistent with n_f
  // and n_p. It should be [n_f,n_p]:
  assert ( n_f==pxsec.nrows() );
  assert ( n_p==pxsec.ncols() );
 
  // Loop over pressure/temperature grid:
  for ( Index i=0; i<n_p; ++i )
    {
      // Dummy scalar holds everything except the quadratic frequency
      // dependence. The second vmr of CO2 will be multiplied at the stage of
      // absorption calculation: abs = vmr * pxsec.
 
      Numeric dummy = C * pow( (Numeric)273./abs_t[i], x ) * 
                                         pow( abs_p[i], (Numeric)2. ) * vmr[i];
 
      // Loop over frequency grid:
      for ( Index s=0; s<n_f; ++s )
        { pxsec(s,i) += dummy * pow( f_grid[s], (Numeric)2. ); }
    }
}
 
// ############################################################################
 
void Ho66_CO2_foreign_continuum (MatrixView          pxsec,
                                 const Numeric       Cin,
                                 const Numeric       xin,
                                 const String&       model,
                                 ConstVectorView     f_grid,
                                 ConstVectorView     abs_p,
                                 ConstVectorView     abs_t,
                                 ConstVectorView     abs_n2,
                                 ConstVectorView     vmr _U_,
                                 const Verbosity&    verbosity)
{
  CREATE_OUT3;
 
  // --------- STANDARD MODEL PARAMETERS --------------------------------------
  // Values (after conversion for C) from abstract of Ho66:
  const Numeric  C_Ho66 = 4.23e-37; // [ 1/(Pa²*Hz²*m) ]
  const Numeric  x_Ho66 = 5;        // [ 1 ]
  // --------------------------------------------------------------------------
 
  // select the parameter set (!!model dominates values!!):
  Numeric C, x;
  if ( model == "Ho66" )
    {
      C = C_Ho66;
      x = x_Ho66;
    }
  else if ( model == "user" )
    {
      C = Cin;
      x = xin;
    }
  else
    {
      ostringstream os;
      os << "CO2-ForeignContHo66: ERROR! Wrong model values given.\n"
   << "allowed models are: 'Ho66', 'user'" << "\n";
      throw runtime_error(os.str());
    }
 
  out3  << "CO2-ForeignContHo66: (model=" << model 
        << ") parameter values in use:\n" << " C = " << C << "\n"
        << " x = " << x << "\n";
 
  const Index n_p = abs_p.nelem();   // Number of pressure levels
  const Index n_f = f_grid.nelem();  // Number of frequencies
 
  // Check that dimensions of abs_p, abs_t, and vmr agree:
  assert ( n_p==abs_t.nelem() );
  assert ( n_p==vmr.nelem()   );
 
  // Check that dimensions of pxsec are consistent with n_f
  // and n_p. It should be [n_f,n_p]:
  assert ( n_f==pxsec.nrows() );
  assert ( n_p==pxsec.ncols() );
 
  // Loop pressure/temperature:
  for ( Index i=0; i<n_p; ++i )
    {
      // Dummy scalar holds everything except the quadratic frequency
      // dependence The vmr of CO2 will be multiplied at the stage of
      // absorption calculation: abs = vmr * pxsec.
      Numeric dummy = C * pow( (Numeric)273./abs_t[i], x ) * 
                                  abs_p[i] * abs_p[i] * abs_n2[i];
 
      // Loop frequency:
      for ( Index s=0; s<n_f; ++s )
        { pxsec(s,i) += dummy * pow( f_grid[s], (Numeric)2. ); }
    }
}
 
 
 
 
 
 
// ############################################################################
// ################################### CLOUD AND RAIN MODELS ##################
// ############################################################################
 
void MPM93WaterDropletAbs (MatrixView         pxsec,
                           const Numeric      CCin,   // input parameter
                           const Numeric      CGin,   // input parameter
                           const Numeric      CEin,   // input parameter
                           const String&      model,  // model
                           ConstVectorView    f_grid, // frequency vector
                           ConstVectorView    abs_p,  // pressure vector
                           ConstVectorView    abs_t,  // temperature vector
                           ConstVectorView    vmr,    // suspended water droplet density vector
                           const Verbosity& verbosity)
{
  CREATE_OUT3;
 
  // --------- STANDARD MODEL PARAMETERS ---------------------------------------------------
  // standard values for the MPM93 model (J. Liebe and G. A. Hufford and M. G. Cotton,
  // "Propagation modeling of moist air and suspended water/ice
  // particles at frequencies below 1000 GHz",
  // AGARD 52nd Specialists Meeting of the Electromagnetic Wave
  // Propagation Panel, Palma de Mallorca, Spain, 1993, May 17-21)
  const Numeric CC_MPM93 = 1.00000;
  const Numeric CG_MPM93 = 1.00000;
  const Numeric CE_MPM93 = 1.00000;
  // ---------------------------------------------------------------------------------------
 
 
  // select the parameter set (!!model dominates values!!):
  Numeric CC, CG, CE;
  if ( model == "MPM93" )
    {
      CC = CC_MPM93;
      CG = CG_MPM93;
      CE = CE_MPM93;
    }
  else if ( model == "user" )
    {
      CC = CCin;
      CG = CGin;
      CE = CEin;
    }
  else
    {
      ostringstream os;
      os << "liquidcloud-MPM93: ERROR! Wrong model values given.\n"
   << "Valid models are: 'MPM93' and 'user'" << '\n';
      throw runtime_error(os.str());
    }
  out3  << "liquidcloud-MPM93: (model=" << model << ") parameter values in use:\n"
  << " CC = " << CC << "\n"
  << " CG = " << CG << "\n"
  << " CE = " << CE << "\n";
 
 
  const Numeric m = 1.00e3; // specific weight of the droplet,  fixed value:  1.00e3 kg/m3
  const Numeric low_lim_den  =  0.000;   // lower limit of suspended droplet particle density vector [kg/m3]
  const Numeric high_lim_den = 10.00e-3; // upper limit of suspended droplet particle density vector [kg/m3]
 
  const Index n_p = abs_p.nelem();  // Number of pressure levels
  const Index n_f = f_grid.nelem();  // Number of frequencies
 
  // Check that dimensions of abs_p, abs_t, and vmr agree:
  assert ( n_p==abs_t.nelem() );
  assert ( n_p==vmr.nelem()   );
 
  // Check that dimensions of pxsec are consistent with n_f
  // and n_p. It should be [n_f,n_p]:
  assert ( n_f==pxsec.nrows() );
  assert ( n_p==pxsec.ncols() );
 
  // Loop pressure/temperature:
  for ( Index i=0; i<n_p; ++i )
    {
      // water vapor saturation pressure over liquid water [Pa]
      // Numeric es       = WVSatPressureLiquidWater(abs_t[i]);
      // water vapor partial pressure [Pa]
      // Numeric e        = abs_p[i] * vmr[i];
      // relative humidity [1]
      // Numeric RH       = e / es;
 
      // Check limits of suspended water droplet density ("vmr") [kg/m³]
      if ( (vmr[i] >= low_lim_den) && (vmr[i] <= high_lim_den) )
  {
    // relative inverse temperature [1]
    Numeric theta    = 300.000 / abs_t[i];
    // relaxation frequencies [GHz]
    Numeric gamma1   = CG * 20.20 - 146.40*(theta-1.000) + 316.00*(theta-1.000)*(theta-1.000);
    // Numeric gamma1  = 20.1 * exp( 7.88 * theta ); // see Liebe et al. IJIMW, 1992, p667, Eq. (2b)
    Numeric gamma2   = 39.80 * gamma1;
    // static and high-frequency permittivities
    Numeric epsilon0 = CE * 103.30 * (theta-1.000) + 77.66;
    Numeric epsilon1 = 0.0671 * epsilon0;
    Numeric epsilon2 = 3.52;
 
    // Loop frequency:
    for ( Index s=0; s<n_f; ++s )
      {
        // real part of the complex permittivity of water (double-debye model)
        Numeric Reepsilon  = epsilon0 -
    pow((f_grid[s]*Hz_to_GHz),(Numeric)2.) *
    ( ((epsilon0-epsilon1)/
       (pow((f_grid[s]*Hz_to_GHz),(Numeric)2.)
                    + pow(gamma1,(Numeric)2.))) +
      ((epsilon1-epsilon2)/
       (pow((f_grid[s]*Hz_to_GHz),(Numeric)2.)
                    + pow(gamma2,(Numeric)2.))) );
        // imaginary part of the complex permittivity of water (double-debye model)
        Numeric Imepsilon  = (f_grid[s]*Hz_to_GHz) *
    ( (gamma1*(epsilon0-epsilon1)/
       (pow((f_grid[s]*Hz_to_GHz),(Numeric)2.)
                    + pow(gamma1,(Numeric)2.))) +
      (gamma2*(epsilon1-epsilon2)/
       (pow((f_grid[s]*Hz_to_GHz),(Numeric)2.)
                    + pow(gamma2,(Numeric)2.))) );
        // the imaginary part of the complex refractivity of suspended liquid water particle [ppm]
        // In MPM93 w is in g/m³ and m is in g/cm³. Because of the units used in arts,
        // a factor of 1.000e6 must be multiplied with the ratio (w/m):
        // MPM93: (w/m)_MPM93  in   (g/m³)/(g/cm³)
        // arts:  (w/m)_arts   in  (kg/m³)/(kg/m³)
        // =====> (w/m)_MPM93   =   1.0e6 * (w/m)_arts
        // the factor of 1.0e6 is included below in pxsec calculation.
        Numeric ImNw = 1.500 / m *
    ( 3.000 * Imepsilon
                  / ( pow((Reepsilon+(Numeric)2.000),(Numeric)2.)
                      + pow(Imepsilon,(Numeric)2.) ) );
        // liquid water particle absorption cross section [1/m]
        // The vmr of H2O will be multiplied at the stage of absorption
        // calculation: abs = vmr * pxsec.
        // pxsec = abs/vmr [1/m] but MPM93 is in [dB/km] --> conversion necessary
        pxsec(s,i) += CC * 1.000e6 * dB_km_to_1_m * 0.1820 * (f_grid[s]*Hz_to_GHz) * ImNw;
      }
  } else
    {
      if ( (vmr[i] < low_lim_den) || (vmr[i] > high_lim_den) )
        {
    ostringstream os;
    os << "ERROR in MPM93WaterDropletAbs:\n"
       << " suspended water droplet density (valid range 0.00-10.00e-3 kg/m3):" << vmr[i] << "\n"
       << " ==> no calculation performed!\n";
    throw runtime_error(os.str());
        }
    }
    }
 
}
//
// #################################################################################
 
void MPM93IceCrystalAbs (MatrixView        pxsec,
                         const Numeric     CCin,   // input parameter
                         const Numeric     CAin,   // input parameter
                         const Numeric     CBin,   // input parameter
                         const String&     model,  // model
                         ConstVectorView   f_grid, // frequency vector
                         ConstVectorView   abs_p,  // pressure vector
                         ConstVectorView   abs_t,  // temperature vector
                         ConstVectorView   vmr,    // suspended ice particle density vector,
                                                   // valid range: 0-10.0e-3 kg/m³
                         const Verbosity& verbosity)
{
  CREATE_OUT3;
 
  // --------- STANDARD MODEL PARAMETERS ---------------------------------------------------
  // standard values for the MPM93 model (J. Liebe and G. A. Hufford and M. G. Cotton,
  // "Propagation modeling of moist air and suspended water/ice
  // particles at frequencies below 1000 GHz",
  // AGARD 52nd Specialists Meeting of the Electromagnetic Wave
  // Propagation Panel, Palma de Mallorca, Spain, 1993, May 17-21)
  const Numeric CC_MPM93 = 1.00000;
  const Numeric CA_MPM93 = 1.00000;
  const Numeric CB_MPM93 = 1.00000;
  // ---------------------------------------------------------------------------------------
 
 
  // select the parameter set (!!model dominates values!!):
  Numeric CC, CA, CB;
  if ( model == "MPM93" )
    {
      CC = CC_MPM93;
      CA = CA_MPM93;
      CB = CB_MPM93;
    }
  else if ( model == "user" )
    {
      CC = CCin;
      CA = CAin;
      CB = CBin;
    }
  else
    {
      ostringstream os;
      os << "icecloud-MPM93: ERROR! Wrong model values given.\n"
   << "Valid models are: 'MPM93' and 'user'" << '\n';
      throw runtime_error(os.str());
    }
  out3  << "icecloud-MPM93: (model=" << model << ") parameter values in use:\n"
  << " CC = " << CC << "\n"
  << " CA = " << CA << "\n"
  << " CB = " << CB << "\n";
 
 
  const Numeric m = 0.916e3;  // specific weight of ice particles,  fixed value:   0.916e3 kg/m³
  const Numeric low_lim_den  =  0.000;   // lower limit of suspended ice particle density vector [kg/m³]
  const Numeric high_lim_den = 10.00e-3; // lower limit of suspended ice particle density vector [kg/m³]
 
  const Index n_p = abs_p.nelem();  // Number of pressure levels
  const Index n_f = f_grid.nelem();  // Number of frequencies
 
  // Check that dimensions of abs_p, abs_t, and vmr agree:
  assert ( n_p==abs_t.nelem() );
  assert ( n_p==vmr.nelem()   );
 
  // Check that dimensions of pxsec are consistent with n_f
  // and n_p. It should be [n_f,n_p]:
  assert ( n_f==pxsec.nrows() );
  assert ( n_p==pxsec.ncols() );
 
 
 
  // Loop pressure/temperature:
  for ( Index i=0; i<n_p; ++i )
    {
      // water vapor saturation pressure over ice [Pa]
      // Numeric es = WVSatPressureIce(abs_t[i]);
      // water vapor partial pressure [Pa]
      // Numeric e  = abs_p[i] * vmr[i];
      // relative humidity [1]
      // Numeric RH = e / es;
 
      // Check limits of suspended water ice crystal density ("vmr") [kg/m³]
      if ( (vmr[i] >= low_lim_den) && (vmr[i] <= high_lim_den) )
  {
    // relative inverse temperature [1]
    Numeric theta = 300.000 / abs_t[i];
    // inverse frequency T-dependency function [Hz]
    Numeric ai = CA * (62.000 * theta - 11.600) * exp(-22.100 * (theta-1.000)) * 1.000e-4;
    // linear frequency T-dependency function [1/Hz]
    Numeric bi = CB * 0.542e-6 *
           ( -24.17 + (116.79/theta)
                         + pow((theta/(theta-(Numeric)0.9927)),(Numeric)2.) );
 
    // Loop frequency:
    for ( Index s=0; s<n_f; ++s )
      {
        // real part of the complex permittivity of ice
        Numeric Reepsilon  = 3.15;
        // imaginary part of the complex permittivity of water
        Numeric Imepsilon  = ( ( ai/(f_grid[s]*Hz_to_GHz) ) +
             ( bi*(f_grid[s]*Hz_to_GHz) ) );
        // the imaginary part of the complex refractivity of suspended ice particles.
        // In MPM93 w is in g/m³ and m is in g/cm³. Because of the units used in arts,
        // a factor of 1.000e6 must be multiplied with the ratio (w/m):
        // MPM93: (w/m)_MPM93  in   (g/m³)/(g/cm³)
        // arts:  (w/m)_arts   in  (kg/m³)/(kg/m³)
        // =====> (w/m)_MPM93   =   1.0e6 * (w/m)_arts
        // the factor of 1.0e6 is included below in pxsec calculation.
        Numeric ImNw = 1.500 / m *
        ( 3.000 * Imepsilon
                      / ( pow((Reepsilon+(Numeric)2.000),(Numeric)2.)
                          + pow(Imepsilon,(Numeric)2.) ) );
        // ice particle absorption cross section [1/m]
        // The vmr of H2O will be multiplied at the stage of absorption
        // calculation: abs = vmr * pxsec.
        // pxsec = abs/vmr [1/m] but MPM93 is in [dB/km] --> conversion necessary
        pxsec(s,i) += CC * 1.000e6 * dB_km_to_1_m * 0.1820 * (f_grid[s]*Hz_to_GHz) * ImNw;
      }
  } else
    {
      if ( (vmr[i] < low_lim_den) || (vmr[i] > high_lim_den) )
        {
    ostringstream os;
    os << "ERROR in MPM93IceCrystalAbs:\n"
       << " suspended ice particle density (valid range: 0-10.0e-3 kg/m3):" << vmr[i] << "\n"
       << " ==> no calculation performed!\n";
    throw runtime_error(os.str());
        }
    }
    }
  return;
}
//
// #################################################################################
 
void MPM93RainExt (MatrixView         pxsec,
                   const Numeric      CEin,   // input parameter
                   const Numeric      CAin,   // input parameter
                   const Numeric      CBin,   // input parameter
                   const String&      model,  // model
                   ConstVectorView    f_grid, // frequency vector
                   ConstVectorView    abs_p,  // pressure vector
                   ConstVectorView    abs_t _U_,  // temperature vector
                   ConstVectorView    vmr,    // rain rate profile [mm/h]
                   const Verbosity& verbosity)
{
  CREATE_OUT3;
 
  // --------- STANDARD MODEL PARAMETERS ---------------------------------------------------
  // standard values for the MPM93 model based on Olsen, R.L.,
  // D.V. Rogers, and D. B. Hodge, "The aR^b relation in the
  // calculation of rain attenuation", IEEE Trans. Antennas Propagat.,
  // vol. AP-26, pp. 318-329, 1978,
  const Numeric CE_MPM93 = 1.00000;
  const Numeric CA_MPM93 = 1.00000;
  const Numeric CB_MPM93 = 1.00000;
  // ---------------------------------------------------------------------------------------
 
 
  // select the parameter set (!!model dominates values!!):
  Numeric CE, CA, CB;
  if ( model == "MPM93" )
    {
      CE = CE_MPM93;
      CA = CA_MPM93;
      CB = CB_MPM93;
    }
  else if ( model == "user" )
    {
      CE = CEin;
      CA = CAin;
      CB = CBin;
    }
  else
    {
      ostringstream os;
      os << "rain-MPM93: ERROR! Wrong model values given.\n"
   << "Valid models are: 'MPM93' and 'user'" << '\n';
      throw runtime_error(os.str());
    }
  out3  << "rain-MPM93: (model=" << model << ") parameter values in use:\n"
  << " CE = " << CE << "\n"
  << " CA = " << CA << "\n"
  << " CB = " << CB << "\n";
 
 
  const Numeric low_lim_rr  =  0.000;   // lower limit of allowed rain rate  [mm/h]
  const Numeric high_lim_rr = 150.000;  // upper limit of allowed rain rate  [mm/h]
 
  const Index n_p = abs_p.nelem();  // Number of pressure levels
  const Index n_f = f_grid.nelem();  // Number of frequencies
 
  // Check that dimensions of abs_p, abs_t, and vmr agree:
  assert ( n_p==abs_t.nelem() );
  assert ( n_p==vmr.nelem()   );
 
  // Check that dimensions of pxsec are consistent with n_f
  // and n_p. It should be [n_f,n_p]:
  assert ( n_f==pxsec.nrows() );
  assert ( n_p==pxsec.ncols() );
 
  // Loop pressure/temperature:
  for ( Index i=0; i<n_p; ++i )
    {
      // Extinction by rain is parameterized as:
      //  ext_rain = a_rain * rr ^ b_rain
      // a_rain and b_rain each depend on frequency by  power laws:
      //  a_rain = Ga * freq ^ Ea
      //  b_rain = Gb * freq ^ Eb
      Numeric Ga = 0.;
      Numeric Ea = 0.;
      Numeric Gb = 0.;
      Numeric Eb = 0.;
      // FIXME Numeric a_rain;
      // FIXME Numeric b_rain;
      // FIXME Numeric ext_rain;
 
      // Check limits of rain rate ("vmr") [mm/h]
      if ( vmr[i]==0. )
          pxsec(joker,i) += 0.;
 
      else if ( (vmr[i] >= low_lim_rr) && (vmr[i] < high_lim_rr) )
  {
    // Loop frequency:
    for ( Index s=0; s<n_f; ++s )
      {
        // for rain rate < 25 mm/h, take parameters from Olsen et al.'s
        // own power law fit to their Laws-Parsons-Low data;
        // for rain rate > 25 mm/h, take C. Melsheimer's power law fit
        // to Olsen et al.'s Laws-Parson-High data
        if ( vmr[i] <= 25 )
    {
      // power law coeff. Ga and exponent Ea for a, piecewise:
      if ( f_grid[s] <= 2.9e9 )
        {
          Ga = 6.39e-5;
          Ea = 2.03;
        }
      else if ( f_grid[s] <= 54.0e9 )
        {
          Ga = 4.21e-5;
          Ea = 2.42;
        }
      else if ( f_grid[s] <= 180e9 )
        {
          Ga = 4.09e-2;
          Ea = 0.699;
        }
      else if ( f_grid[s] <= 1000e9 )
        {
          Ga = 3.38;
          Ea = -0.151;
        }
      else
        {
          ostringstream os;
          os << "ERROR in MPM93RainExt:\n"
       << " frequency (valid range 0-1000 GHz):" << f_grid[s]*Hz_to_GHz << "\n"
       << " ==> no calculation performed!\n";
          throw runtime_error(os.str());
        }
      // power law coeff. Gb and exponent Eb for b, piecewise:
      if ( f_grid[s] <= 8.5e9 )
        {
          Gb = 0.851;
          Eb = 0.158;
        }
      else if ( f_grid[s] <= 25.0e9 )
        {
          Gb = 1.41;
          Eb = -0.0779;
        }
      else if ( f_grid[s] <= 164.0e9 )
        {
          Gb = 2.63;
          Eb = -0.272;
        }
      else if ( f_grid[s] <= 1000e9 )
        {
          Gb = 0.616;
          Eb = 0.0126;
        }
      else
        {
          ostringstream os;
          os << "ERROR in MPM93RainExt:\n"
       << " frequency (valid range 0-1000 GHz):" << f_grid[s]*Hz_to_GHz << "\n"
       << " ==> no calculation performed!\n";
          throw runtime_error(os.str());
        }
 
    }
        else if (vmr[i] > 25)
    {
      // power law coeff. Ga and exponent Ea for a, piecewise:
      if ( f_grid[s] <= 4.9e9 )
        {
          Ga = 5.30e-5;
          Ea = 1.87;
        }
      else if ( f_grid[s] <= 10.7e9 )
        {
          Ga = 5.03e-6;
          Ea = 3.35;
        }
      else if ( f_grid[s] <= 40.1e9 )
        {
          Ga = 2.53e-5;
          Ea = 2.67;
        }
      else if ( f_grid[s] <= 59.1e9 )
        {
          Ga = 3.58e-3;
          Ea = 1.33;
        }
      else if ( f_grid[s] <= 100e9 )
        {
          Ga = 0.143;
          Ea = 0.422;
        }
      else
        {
          ostringstream os;
          os << "ERROR in MPM93RainExt:\n"
       << " frequency (valid range for rain rate > 25mm/h: 0-100 GHz):" << f_grid[s]*Hz_to_GHz << "\n"
       << " ==> no calculation performed!\n";
          throw runtime_error(os.str());
        }
      // power law coeff. Gb and exponent Eb for b, piecewise:
      if ( f_grid[s] <= 6.2e9 )
        {
          Gb = 0.911;
          Eb = 0.190;
        }
      else if ( f_grid[s] <= 23.8e9 )
        {
          Gb = 1.71;
          Eb = -0.156;
        }
      else if ( f_grid[s] <= 48.4e9 )
        {
          Gb = 3.08;
          Eb = -0.342;
        }
      else if ( f_grid[s] <= 68.2e9 )
        {
          Gb = 1.28;
          Eb = -0.116;
        }
      else if ( f_grid[s] <= 100e9 )
        {
          Gb =  0.932;
          Eb =  -0.0408;
        }
      else
        {
          ostringstream os;
          os << "ERROR in MPM93RainExt:\n"
       << " frequency (valid range for rain rate > 25mm/h: 0-100 GHz):" << f_grid[s]*Hz_to_GHz << "\n"
       << " ==> no calculation performed!\n";
          throw runtime_error(os.str());
        }
    }
        //Factor a_rain
        Numeric a_rain = Ga * pow((f_grid[s]*Hz_to_GHz),Ea);
        //Factor b_rain
        Numeric b_rain = Gb * pow((f_grid[s]*Hz_to_GHz),Eb);
        // Extinction coefficient [dB/km], with scaling
        // parameters CA and CB
        Numeric ext_rain = CA * a_rain * pow(vmr[i],(CB*b_rain));
        // rain extinction cross section [1/m]
        // The vmr will be multiplied at the stage of extinction
        // calculation: ext = vmr * pxsec.
        // pxsec = ext/vmr [1/m] but MPM93 is in [dB/km] --> conversion necessary
        pxsec(s,i) += CE * dB_km_to_1_m * ext_rain / vmr[i];
      }
  } else
    {
      if ( (vmr[i] < low_lim_rr) || (vmr[i] > high_lim_rr) )
        {
    ostringstream os;
    os << "ERROR in MPM93RainExt:\n"
       << " rain rate (valid range 0.00-150.00 mm/h):" << vmr[i] << "\n"
       << " ==> no calculation performed!\n";
    throw runtime_error(os.str());
        }
    }
    }
 
}
//
// #################################################################################
// ################################# HELP FUNCTIONS ################################
// #################################################################################
//
Numeric MPMLineShapeFunction( const Numeric gamma,
            const Numeric fl,
            const Numeric f)
{
  /*
    this routine calculates the line shape function of Van Vleck and Weisskopf
    with the factor (f/f_o)¹. for the MPM pseudo continuum line.
 
    creation  TKS, 4.11.00
 
    input:   gamma   [Hz]    line width of line L
             fl      [Hz]    central frequency of line L
             f       [Hz]    frequency position of calculation
 
    output:  value   [1/Hz]  line shape function value at f for the line parameters
                              of line L
 
   */
 
  double f_minus, f_plus ;           /* internal variables */
  double value;                      /* return value       */
 
  // line at fl
  f_minus = 1.000 / ((f-fl)*(f-fl) + gamma*gamma);
 
  // mirror line at -fl
  f_plus  = 1.000 / ((f+fl)*(f+fl) + gamma*gamma);
 
  // VVW line shape function value
  value = fabs(f/fl) * gamma * (f_minus + f_plus);
 
  return value;
}
//
// #################################################################################
//
Numeric MPMLineShapeO2Function( const Numeric gamma,
        const Numeric fl,
        const Numeric f,
                                const Numeric delta)
{
  /*
    this routine calculates the line shape function of Van Vleck and Weisskopf
    for O2 with line mixing.
 
    creation  TKS, 14.07.01
 
    input:   gamma   [GHz]    line width of line L
             fl      [GHz]    central frequency of line L
             f       [GHz]    frequency position of calculation
             delta   [1]     line mixing parameter
 
    output:  value   [1]     line shape function value at f for the line parameters
                             of line L
 
   */
 
  double f_minus, f_plus ;           /* internal variables */
  double value;                      /* return value       */
 
  // line at fl
  f_minus = (gamma - delta * (fl-f)) / ((fl-f)*(fl-f) + gamma*gamma);
 
  // mirror line at -fl
  f_plus  = (gamma - delta * (fl+f)) / ((fl+f)*(fl+f) + gamma*gamma);
 
  // VVW line shape function value
  value = f * (f_minus + f_plus);
 
  return value;
}
//
// #################################################################################
//
Numeric WVSatPressureLiquidWater(const Numeric t)
{
 
  // check of temperature range
  if (t < 0.000)
    {
      ostringstream os;
      os << "In WVSatPressureLiquidWater:\n"
   << "temperature negative: T=" << t <<"K \n";
      throw runtime_error(os.str());
    }
 
  //  COMPUTES SATURATION H2O VAPOR PRESSURE (OVER LIQUID)
  //  USING LIEBE'S APPROXIMATION (CORRECTED)
  //  input  : T in Kelvin
  //  output : es in Pa
  //  PWR 4/8/92
  /*
  Numeric TH       = 300.0 / t;
  Numeric es_PWR98 = 100.00 * 35.3 * exp(22.64*(1.-TH)) * pow(TH,5.0);
  */
 
  // MPM93 calculation
  Numeric theta    = 373.16 / t;
  Numeric exponent = ( -7.90298 * (theta-1.000) +
            5.02808 * log10(theta) -
            1.3816e-7 * ( pow( (Numeric)10.00,
                                           ((Numeric)11.344*
                                            ((Numeric)1.00-((Numeric)1.00
                                                             /theta))) )
                                      - (Numeric)1.000 ) +
            8.1328e-3 * ( pow( (Numeric)10.00,
                                           ((Numeric)-3.49149
                                            *(theta-(Numeric)1.00)))
                                      - 1.000) +
            log10(1013.246) );
  Numeric es_MPM93 = 100.000 * pow((Numeric)10.00,exponent);
 
  return es_MPM93; // [Pa]
}
//
// #################################################################################
//
Numeric WVSatPressureIce(const Numeric t)
{
 
  // check of temperature range
  if (t < 0.000)
    {
      ostringstream os;
      os << "In WVSatPressureIce:\n"
   << "temperature negative: T=" << t <<"K \n";
      throw runtime_error(os.str());
    }
 
  // MPM93 calculation
  Numeric theta    = 273.16 / t;
  Numeric exponent = (-9.09718  * (theta-1.000) -
           3.56654  * log10(theta)  +
           0.876793 * (1.000-(1.000/theta)) +
           log10(6.1071) );
 
  Numeric es_MPM93 = 100.000 * pow((Numeric)10.00,exponent);
 
  return es_MPM93;
}
 
 
 
//
// ############################################################################
// #################### CONTROL OF ADDITIONAL ABSORPTION MODEL ################
// ############################################################################
//
//
void xsec_continuum_tag (MatrixView             xsec,
                         const String&          name,
                         ConstVectorView        parameters,
                         const String&          model,
                         ConstVectorView        f_grid,
                         ConstVectorView        abs_p,
                         ConstVectorView        abs_t,
                         ConstVectorView        abs_n2,
                         ConstVectorView        abs_h2o,
                         ConstVectorView        abs_o2,
                         ConstVectorView        vmr,
                         const Verbosity& verbosity)
{
  CREATE_OUT3;
  
  /* In the following all the possible tags are listed here and
     after a first consistency check about the input parameters the
     appropriate internal function is called,
 
     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     ATTENTION PLEASE UPDATE THIS COMMENT IF ANY CHANGES ARE MADE CONCERNING
     THE ASSOCIATED MODELS TO EACH TAG
     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
     ----------------------------------------------------------------------------------------------------
     TAG                      VALID MODELS
     ----------------------------------------------------------------------------------------------------
     *CONTAGMODINFO*   H2O-SelfContStandardType: Rosenkranz, user
     *CONTAGMODINFO*   H2O-ForeignContStandardType: Rosenkranz, user
     *CONTAGMODINFO*   H2O-ForeignContMaTippingType: MaTipping, user
     *CONTAGMODINFO*   H2O-ContMPM93:           MPM93, user
     *CONTAGMODINFO*   H2O-MPM87:               MPM87, MPM87Lines, MPM87Continuum, user
     *CONTAGMODINFO*   H2O-MPM89:               MPM89, MPM89Lines, MPM89Continuum, user
     *CONTAGMODINFO*   H2O-MPM93:               MPM93, MPM93Lines, MPM93Continuum, user
     *CONTAGMODINFO*   H2O-PWR98:               Rosenkranz, RosenkranzLines, RosenkranzContinuum, user
     *CONTAGMODINFO*   H2O-CP98:                CruzPol, CruzPolLine, CruzPolContinuum, user
     *CONTAGMODINFO*   H2O-CKD24:               CKD24, user
     *CONTAGMODINFO*   O2-MPM85:                MPM85, MPM85Lines, MPM85Continuum, MPM85NoCoupling, MPM85NoCutoff, user
     *CONTAGMODINFO*   O2-MPM87:                MPM87, MPM87Lines, MPM87Continuum, MPM87NoCoupling, MPM87NoCutoff, user
     *CONTAGMODINFO*   O2-MPM89:                MPM89, MPM89Lines, MPM89Continuum, MPM89NoCoupling, MPM89NoCutoff, user
     *CONTAGMODINFO*   O2-MPM92:                MPM92, MPM92Lines, MPM92Continuum, MPM92NoCoupling, MPM92NoCutoff, user
     *CONTAGMODINFO*   O2-MPM93:                MPM93, MPM93Lines, MPM93Continuum, MPM93NoCoupling, MPM92NoCutoff, user
     *CONTAGMODINFO*   O2-PWR93:                Rosenkranz, RosenkranzLines, RosenkranzContinuum, user
     *CONTAGMODINFO*   O2-PWR88:                Rosenkranz, RosenkranzLines, RosenkranzContinuum, user
     *CONTAGMODINFO*   O2-SelfContMPM93:        MPM93, user
     *CONTAGMODINFO*   O2-SelfContPWR93:        Rosenkranz, user
     *CONTAGMODINFO*   O2-GenerealCont:         Rosenkranz, MPM93, user
     *CONTAGMODINFO*   N2-BFCIA86:              BF86, user
     *CONTAGMODINFO*   N2-SelfContMPM93:        MPM93, user, MPM93Scale
     *CONTAGMODINFO*   N2-SelfContPWR93:        Rosenkranz, user
     *CONTAGMODINFO*   N2-SelfContStandardType: Rosenkranz, user
     *CONTAGMODINFO*   CO2-SelfContPWR93:       Rosenkranz, user
     *CONTAGMODINFO*   CO2-ForeignContPWR93:    Rosenkranz, user
     *CONTAGMODINFO*   liquidcloud-MPM93:       MPM93, user
     *CONTAGMODINFO*   icecloud-MPM93:          MPM93, user
     *CONTAGMODINFO*   rain-MPM93:              MPM93, user
     ----------------------------------------------------------------------------------------------------
  */
 
  // Set up a lokal variable pxsec for the pseudo cross sections, that
  // are used by the internal contiuum functions. It is important that
  // we also inititialize this to zero here, since the continuum
  // routines just add to this.
  // The dimensions of this are [n_frequencies,n_pressures].
  Matrix pxsec(xsec.nrows(),xsec.ncols(),0.0);
 
  // ============= H2O continuum ========================================================
  if ( "H2O-SelfContStandardType"==name )
    {
      //
      //  specific continuum parameters and units:
      //  OUTPUT
      //     pxsec          : [1/m],
      //  INPUT
      //     parameters[0] : continuum coefficient (C_s)  [1/m / (Hz²*Pa²)]
      //     parameters[1] : temperature exponent  (x_s)  [1]
      //     f_grid        : [Hz]
      //     abs_p         : [Pa]
      //     abs_t         : [K]
      //     vmr           : [1]
      //
      const int Nparam = 2;
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "Continuum model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          Standard_H2O_self_continuum( pxsec,
                                       parameters[0],
                                       parameters[1],
                                       model,
                                       f_grid,
                                       abs_p,
                                       abs_t,
                                       vmr,
                                       verbosity );
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "Continuum model " << name << " requires " << Nparam << " input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "Continuum model " << name << " running with \n"
               << "the parameters for model " << model << ".\n";
          Standard_H2O_self_continuum( pxsec,
                                       0.00,
                                       0.00,
                                       model,
                                       f_grid,
                                       abs_p,
                                       abs_t,
                                       vmr,
                                       verbosity );
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: Continuum model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the arts user guide chapter 3.\n";
          throw runtime_error(os.str());
        }
    }
  // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  else if ( "H2O-ForeignContStandardType"==name )
    {
      //
      // specific continuum parameters units:
      //  a) output
      //     pxsec          : [1/m],
      //  b) input
      //     parameters[0] : [1/m / (Hz²*Pa²)]
      //     parameters[1] : [1]
      //     f_grid        : [Hz]
      //     abs_p         : [Pa]
      //     abs_t         : [K]
      //     vmr           : [1]
      //
      const int Nparam = 2;
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "Continuum model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          Standard_H2O_foreign_continuum( pxsec,
                                          parameters[0],
                                          parameters[1],
                                          model,
                                          f_grid,
                                          abs_p,
                                          abs_t,
                                          vmr,
                                          verbosity );
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "Continuum model " << name << " requires " << Nparam << " input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "Continuum model " << name << " running with \n"
               << "the parameters for model " << model << ".\n";
          Standard_H2O_foreign_continuum( pxsec,
                                          0.00,
                                          0.00,
                                          model,
                                          f_grid,
                                          abs_p,
                                          abs_t,
                                          vmr,
                                          verbosity );
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: Continuum model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the arts user guide chapter 3.\n";
          throw runtime_error(os.str());
        }
    }
  // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  else if ( "H2O-ForeignContMaTippingType"==name )
    {
      //
      // specific continuum parameters units:
      //  a) output
      //     pxsec          : [1/m],
      //  b) input
      //     parameters[0] : [1/m / (Hz²*Pa²)]
      //     parameters[1] : [1]
      //     f_grid        : [Hz]
      //     abs_p         : [Pa]
      //     abs_t         : [K]
      //     vmr           : [1]
      //
      const int Nparam = 2;
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "Continuum model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          MaTipping_H2O_foreign_continuum( pxsec,
                                           parameters[0],
                                           parameters[1],
                                           model,
                                           f_grid,
                                           abs_p,
                                           abs_t,
                                           vmr,
                                           verbosity );
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "Continuum model " << name << " requires " << Nparam << " input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "Continuum model " << name << " running with \n"
               << "the parameters for model " << model << ".\n";
          MaTipping_H2O_foreign_continuum( pxsec,
                                           0.00,
                                           0.00,
                                           model,
                                           f_grid,
                                           abs_p,
                                           abs_t,
                                           vmr,
                                           verbosity );
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: Continuum model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the arts user guide chapter 3.\n";
          throw runtime_error(os.str());
        }
    }
  // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  else if ( "H2O-ContMPM93"==name )
    {
      // self and foreign continuum term are simultaneously calculated
      // since the parameterization can not be divided up in these two
      // terms because they are not additive terms.
      //
      // specific continuum parameters and units:
      //  OUTPUT
      //     pxsec          : [1/m],
      //  INPUT
      //     parameters[0] : pseudo continuum line frequency                      [Hz]
      //     parameters[1] : pseudo continuum line strength parameter             [Hz/Pa]
      //     parameters[2] : pseudo continuum line strength temperature parameter [1]
      //     parameters[3] : pseudo continuum line broadening parameter           [Hz/Pa]
      //     parameters[4] : pseudo continuum line broadening parameter           [1]
      //     parameters[5] : pseudo continuum line broadening parameter           [1]
      //     parameters[6] : pseudo continuum line broadening parameter           [1]
      //     f_grid        : [Hz]
      //     abs_p         : [Pa]
      //     abs_t         : [K]
      //     vmr           : [1]
      //
      const int Nparam = 7;
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "Continuum model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          MPM93_H2O_continuum( pxsec,
                               parameters[0],
                               parameters[1],
                               parameters[2],
                               parameters[3],
                               parameters[4],
                               parameters[5],
                               parameters[6],
                               model,
                               f_grid,
                               abs_p,
                               abs_t,
                               vmr,
                               verbosity );
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "Continuum model " << name << " requires " << Nparam << " input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "Continuum model " << name << " running with \n"
               << "the parameters for model " << model << ".\n";
          MPM93_H2O_continuum( pxsec,
                               0.00,
                               0.00,
                               0.00,
                               0.00,
                               0.00,
                               0.00,
                               0.00,
                               model,
                               f_grid,
                               abs_p,
                               abs_t,
                               vmr,
                               verbosity );
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: Continuum model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters. " << "\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the arts user guide chapter 3.\n";
          throw runtime_error(os.str());
        }
    }
  // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  else if ( "H2O-ForeignContATM01"==name )
    {
      // Foreign wet continuum term.
      //
      // Pardo et al., IEEE, Trans. Ant. Prop.,
      // Vol 49, No 12, pp. 1683-1694, 2001.
      //
      // specific continuum parameters and units:
      //  OUTPUT
      //     pxsec          : [1/m],
      //  INPUT
      //     parameters[0] : pseudo continuum line frequency                      [Hz]
      //     f_grid        : [Hz]
      //     abs_p         : [Pa]
      //     abs_t         : [K]
      //     vmr           : [1]
      //
      const int Nparam = 1;
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "Continuum model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          Pardo_ATM_H2O_ForeignContinuum( pxsec,
                                          parameters[0],
                                          model,
                                          f_grid,
                                          abs_p,
                                          abs_t,
                                          vmr,
                                          verbosity );
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "Continuum model " << name << " requires " << Nparam << " input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "Continuum model " << name << " running with \n"
               << "the parameters for model " << model << ".\n";
          Pardo_ATM_H2O_ForeignContinuum( pxsec,
                                          0.000,
                                          model,
                                          f_grid,
                                          abs_p,
                                          abs_t,
                                          vmr,
                                          verbosity );
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: Continuum model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters. " << "\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the arts user guide chapter 3.\n";
          throw runtime_error(os.str());
        }
    }
  // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  else if ( "H2O-SelfContCKD222"==name )
    {
      // OUTPUT:
      //   pxsec           cross section (absorption/volume mixing ratio) of
      //                  H2O self continuum according to CKD2.2.2    [1/m]
      // INPUT:
      //   parameters[0]  strength scaling factor              [1]
      //   model          allows user defined input parameter set
      //                  (Cin) or choice of
      //                  pre-defined parameters of specific models (see note below).
      //   f_grid         predefined frequency grid            [Hz]
      //   abs_p          predefined pressure grid             [Pa]
      //   abs_t          predefined temperature grid          [K]
      //   vmr            H2O volume mixing ratio profile      [1]
      //
      // WWW resource: ftp.aer.com/aer_contnm_ckd
      const int Nparam = 1;
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "Continuum model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          CKD_222_self_h2o( pxsec,
                            parameters[0],
                            model,
                            f_grid,
                            abs_p,
                            abs_t,
                            vmr,
                            verbosity );
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "Continuum model " << name << " requires " << Nparam << " input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "Continuum model " << name << " running with \n"
               << "the parameters for model " << model << ".\n";
          CKD_222_self_h2o( pxsec,
                            0.000,
                            model,
                            f_grid,
                            abs_p,
                            abs_t,
                            vmr,
                            verbosity );
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: continuum model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the arts user guide chapter 3.\n";
          throw runtime_error(os.str());
        }
    }
  // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  else if ( "H2O-ForeignContCKD222"==name )
    {
      // OUTPUT:
      //   pxsec           cross section (absorption/volume mixing ratio) of
      //                  H2O foreign continuum according to CKD2.2.2    [1/m]
      // INPUT:
      //   parameters[0]  strength scaling factor              [1]
      //   model          allows user defined input parameter set
      //                  (Cin) or choice of
      //                  pre-defined parameters of specific models (see note below).
      //   f_grid         predefined frequency grid            [Hz]
      //   abs_p          predefined pressure grid             [Pa]
      //   abs_t          predefined temperature grid          [K]
      //   vmr            H2O volume mixing ratio profile      [1]
      //
      // WWW resource: ftp.aer.com/aer_contnm_ckd
      const int Nparam = 1;
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "Continuum model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          CKD_222_foreign_h2o( pxsec,
                               parameters[0],
                               model,
                               f_grid,
                               abs_p,
                               abs_t,
                               vmr,
                               verbosity );
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "Continuum model " << name << " requires " << Nparam << " input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "Continuum model " << name << " running with \n"
               << "the parameters for model " << model << ".\n";
          CKD_222_foreign_h2o( pxsec,
                               0.000,
                               model,
                               f_grid,
                               abs_p,
                               abs_t,
                               vmr,
                               verbosity );
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: continuum model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the arts user guide chapter 3.\n";
          throw runtime_error(os.str());
        }
    }
  // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  else if ( "H2O-SelfContCKD242"==name )
    {
      // OUTPUT:
      //   pxsec           cross section (absorption/volume mixing ratio) of
      //                  H2O self continuum according to CKD2.4.2    [1/m]
      // INPUT:
      //   parameters[0]  strength scaling factor              [1]
      //   model          allows user defined input parameter set
      //                  (Cin) or choice of
      //                  pre-defined parameters of specific models (see note below).
      //   f_grid         predefined frequency grid            [Hz]
      //   abs_p          predefined pressure grid             [Pa]
      //   abs_t          predefined temperature grid          [K]
      //   vmr            H2O volume mixing ratio profile      [1]
      //
      // WWW resource: ftp.aer.com/aer_contnm_ckd
      const int Nparam = 1;
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "Continuum model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          CKD_242_self_h2o( pxsec,
                            parameters[0],
                            model,
                            f_grid,
                            abs_p,
                            abs_t,
                            vmr,
                            verbosity );
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "Continuum model " << name << " requires " << Nparam << " input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "Continuum model " << name << " running with \n"
               << "the parameters for model " << model << ".\n";
          CKD_242_self_h2o( pxsec,
                            0.000,
                            model,
                            f_grid,
                            abs_p,
                            abs_t,
                            vmr,
                            verbosity );
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: continuum model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the arts user guide chapter 3.\n";
          throw runtime_error(os.str());
        }
    }
  // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  else if ( "H2O-ForeignContCKD242"==name )
    {
      // OUTPUT:
      //   pxsec           cross section (absorption/volume mixing ratio) of
      //                  H2O foreign continuum according to CKD2.4.2    [1/m]
      // INPUT:
      //   parameters[0]  strength scaling factor              [1]
      //   model          allows user defined input parameter set
      //                  (Cin) or choice of
      //                  pre-defined parameters of specific models (see note below).
      //   f_grid         predefined frequency grid            [Hz]
      //   abs_p          predefined pressure grid             [Pa]
      //   abs_t          predefined temperature grid          [K]
      //   vmr            H2O volume mixing ratio profile      [1]
      //
      // WWW resource: ftp.aer.com/aer_contnm_ckd
      const int Nparam = 1;
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "Continuum model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          CKD_242_foreign_h2o( pxsec,
                               parameters[0],
                               model,
                               f_grid,
                               abs_p,
                               abs_t,
                               vmr,
                               verbosity );
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "Continuum model " << name << " requires " << Nparam << " input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "Continuum model " << name << " running with \n"
               << "the parameters for model " << model << ".\n";
          CKD_242_foreign_h2o( pxsec,
                               0.000,
                               model,
                               f_grid,
                               abs_p,
                               abs_t,
                               vmr,
                               verbosity );
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: continuum model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the arts user guide chapter 3.\n";
          throw runtime_error(os.str());
        }
    }
  // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  else if ( "H2O-SelfContCKDMT100"==name )
    {
      // OUTPUT:
      //   pxsec           cross section (absorption/volume mixing ratio) of
      //                  H2O self continuum according to CKD MT 1.00    [1/m]
      // INPUT:
      //   parameters[0]  strength scaling factor              [1]
      //   model          allows user defined input parameter set
      //                  (Cin) or choice of
      //                  pre-defined parameters of specific models (see note below).
      //   f_grid         predefined frequency grid            [Hz]
      //   abs_p          predefined pressure grid             [Pa]
      //   abs_t          predefined temperature grid          [K]
      //   vmr            H2O volume mixing ratio profile      [1]
      //
      // WWW resource: ftp.aer.com/aer_contnm_ckd
      const int Nparam = 1;
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "Continuum model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          CKD_mt_100_self_h2o( pxsec,
                               parameters[0],
                               model,
                               f_grid,
                               abs_p,
                               abs_t,
                               vmr,
                               verbosity );
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "Continuum model " << name << " requires " << Nparam << " input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "Continuum model " << name << " running with \n"
               << "the parameters for model " << model << ".\n";
          CKD_mt_100_self_h2o( pxsec,
                               0.000,
                               model,
                               f_grid,
                               abs_p,
                               abs_t,
                               vmr,
                               verbosity );
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: continuum model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the arts user guide chapter 3.\n";
          throw runtime_error(os.str());
        }
    }
  // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  else if ( "H2O-ForeignContCKDMT100"==name )
    {
      // OUTPUT:
      //   pxsec           cross section (absorption/volume mixing ratio) of
      //                  H2O foreign continuum according to CKD MT 1.00    [1/m]
      // INPUT:
      //   parameters[0]  strength scaling factor              [1]
      //   model          allows user defined input parameter set
      //                  (Cin) or choice of
      //                  pre-defined parameters of specific models (see note below).
      //   f_grid         predefined frequency grid            [Hz]
      //   abs_p          predefined pressure grid             [Pa]
      //   abs_t          predefined temperature grid          [K]
      //   vmr            H2O volume mixing ratio profile      [1]
      //
      // WWW resource: ftp.aer.com/aer_contnm_ckd
      const int Nparam = 1;
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "Continuum model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          CKD_mt_100_foreign_h2o( pxsec,
                                  parameters[0],
                                  model,
                                  f_grid,
                                  abs_p,
                                  abs_t,
                                  vmr,
                                  verbosity );
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "Continuum model " << name << " requires " << Nparam << " input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "Continuum model " << name << " running with \n"
               << "the parameters for model " << model << ".\n";
          CKD_mt_100_foreign_h2o( pxsec,
                                  0.000,
                                  model,
                                  f_grid,
                                  abs_p,
                                  abs_t,
                                  vmr,
                                  verbosity );
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: continuum model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the arts user guide chapter 3.\n";
          throw runtime_error(os.str());
        }
    }
  // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  else if ( "H2O-SelfContCKDMT250"==name )
    {
      // OUTPUT:
      //   pxsec           cross section (absorption/volume mixing ratio) of
      //                  H2O self continuum according to CKD MT 2.50    [1/m]
      // INPUT:
      //   parameters[0]  strength scaling factor              [1]
      //   model          allows user defined input parameter set
      //                  (Cin) or choice of
      //                  pre-defined parameters of specific models (see note below).
      //   f_grid         predefined frequency grid            [Hz]
      //   abs_p          predefined pressure grid             [Pa]
      //   abs_t          predefined temperature grid          [K]
      //   vmr            H2O volume mixing ratio profile      [1]
      //
      // WWW resource: ftp.aer.com/aer_contnm_ckd
      const int Nparam = 1;
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "Continuum model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          CKD_mt_250_self_h2o( pxsec,
                               parameters[0],
                               model,
                               f_grid,
                               abs_p,
                               abs_t,
                               vmr,
                               verbosity );
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "Continuum model " << name << " requires " << Nparam << " input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "Continuum model " << name << " running with \n"
               << "the parameters for model " << model << ".\n";
          CKD_mt_250_self_h2o( pxsec,
                               0.000,
                               model,
                               f_grid,
                               abs_p,
                               abs_t,
                               vmr,
                               verbosity );
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: continuum model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the arts user guide chapter 3.\n";
          throw runtime_error(os.str());
        }
    }
  // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  else if ( "H2O-ForeignContCKDMT250"==name )
    {
      // OUTPUT:
      //   pxsec           cross section (absorption/volume mixing ratio) of
      //                  H2O foreign continuum according to CKD MT 2.50    [1/m]
      // INPUT:
      //   parameters[0]  strength scaling factor              [1]
      //   model          allows user defined input parameter set
      //                  (Cin) or choice of
      //                  pre-defined parameters of specific models (see note below).
      //   f_grid         predefined frequency grid            [Hz]
      //   abs_p          predefined pressure grid             [Pa]
      //   abs_t          predefined temperature grid          [K]
      //   vmr            H2O volume mixing ratio profile      [1]
      //
      // WWW resource: ftp.aer.com/aer_contnm_ckd
      const int Nparam = 1;
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "Continuum model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          CKD_mt_250_foreign_h2o( pxsec,
                                  parameters[0],
                                  model,
                                  f_grid,
                                  abs_p,
                                  abs_t,
                                  vmr,
                                  verbosity );
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "Continuum model " << name << " requires " << Nparam << " input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "Continuum model " << name << " running with \n"
               << "the parameters for model " << model << ".\n";
          CKD_mt_250_foreign_h2o( pxsec,
                                  0.000,
                                  model,
                                  f_grid,
                                  abs_p,
                                  abs_t,
                                  vmr,
                                  verbosity );
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: continuum model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the arts user guide chapter 3.\n";
          throw runtime_error(os.str());
        }
    }
 
  // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  else if ( "H2O-SelfContCKD24"==name )
    {
      // OUTPUT:
      //   pxsec           cross section (absorption/volume mixing ratio) of
      //                  H2O continuum according to CKD2.4    [1/m]
      // INPUT:
      //   parameters[0]  strength scaling factor              [1]
      //   model          allows user defined input parameter set
      //                  (Cin) or choice of
      //                  pre-defined parameters of specific models (see note below).
      //   f_grid         predefined frequency grid            [Hz]
      //   abs_p          predefined pressure grid             [Pa]
      //   abs_t          predefined temperature grid          [K]
      //   abs_n2         N2 volume mixing ratio profile       [1]
      //   vmr            H2O volume mixing ratio profile      [1]
      //
      // WWW resource: ftp.aer.com/aer_contnm_ckd
 
      // abs_n2 needed here. check, whether this is valid.
      if( abs_n2.sum() < -1. )
        {
          ostringstream os;
          os << "Continuum/full model tag " << name
             << " requires N2-vmr, but no tag group contains N2!";
          throw runtime_error(os.str());
        }
 
      const int Nparam = 1;
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "Continuum model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          CKD24_H20( pxsec,
                     0,
                     parameters[0],
                     model,
                     f_grid,
                     abs_p,
                     abs_t,
                     vmr,
                     abs_n2,
                     verbosity );
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "Continuum model " << name << " requires " << Nparam << " input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "Continuum model " << name << " running with \n"
               << "the parameters for model " << model << ".\n";
          CKD24_H20( pxsec,
                     0,
                     0.000,
                     model,
                     f_grid,
                     abs_p,
                     abs_t,
                     vmr,
                     abs_n2,
                     verbosity );
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: continuum model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the arts user guide chapter 3.\n";
          throw runtime_error(os.str());
        }
    }
  // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  else if ( "H2O-ForeignContCKD24"==name )
    {
      // OUTPUT:
      //   pxsec             cross section (absorption/volume mixing ratio) of
      //                    H2O continuum according to CKD2.4    [1/m]
      // INPUT:
      //   Cin            strength scaling factor              [1]
      //   model          allows user defined input parameter set
      //                  (Cin) or choice of
      //                  pre-defined parameters of specific models (see note below).
      //   f_grid         predefined frequency grid            [Hz]
      //   abs_p          predefined pressure grid             [Pa]
      //   abs_t          predefined temperature grid          [K]
      //   vmr            H2O volume mixing ratio profile      [1]
      //   abs_n2         N2 volume mixing ratio profile       [1]
      //
      // WWW resource: ftp.aer.com/aer_contnm_ckd
 
      if( abs_n2.sum() < -1. )
        {
          ostringstream os;
          os << "Continuum/full model tag " << name
             << " requires N2-vmr, but no tag group contains N2!";
          throw runtime_error(os.str());
        }
 
      const int Nparam = 1;
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "Continuum model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          CKD24_H20( pxsec,
                     1,
                     parameters[0],
                     model,
                     f_grid,
                     abs_p,
                     abs_t,
                     vmr,
                     abs_n2,
                     verbosity );
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "Continuum model " << name << " requires " << Nparam << " input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "Continuum model " << name << " running with \n"
               << "the parameters for model " << model << ".\n";
          CKD24_H20( pxsec,
                     1,
                     0,
                     model,
                     f_grid,
                     abs_p,
                     abs_t,
                     vmr,
                     abs_n2,
                     verbosity );
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: continuum model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the arts user guide chapter 3.\n";
          throw runtime_error(os.str());
        }
    }
  // ============= H2O full models ======================================================
  else if ( "H2O-CP98"==name )
    {
      //
      // specific continuum parameters and units:
      //  OUTPUT
      //     pxsec          : [1/m],
      //  INPUT
      //     parameters[0] : continuum scale factor       (CC) [1]
      //     parameters[1] : line strength scale factor   (CL) [1]
      //     parameters[2] : line broadening scale factor (CW) [1]
      //     f_grid        : [Hz]
      //     abs_p         : [Pa]
      //     abs_t         : [K]
      //     vmr           : [1]
      //
      const int Nparam = 3;
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "Full model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          CP98H2OAbsModel( pxsec,
                           parameters[0],
                           parameters[1],
                           parameters[2],
                           model,
                           f_grid,
                           abs_p,
                           abs_t,
                           vmr,
                           verbosity );
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "Full model " << name << " requires " << Nparam << " input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "Full model " << name << " running with \n"
               << "the parameters for model " << model << ".\n";
          CP98H2OAbsModel( pxsec,
                           0.00,
                           0.00,
                           0.00,
                           model,
                           f_grid,
                           abs_p,
                           abs_t,
                           vmr,
                           verbosity );
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: Full model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the arts user guide chapter 3.\n";
          throw runtime_error(os.str());
        }
    }
  // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  else if ( "H2O-MPM87"==name )
    {
      //
      // specific continuum parameters and units:
      //  a) output
      //     pxsec          : [1/m],
      //  b) input
      //     parameters[0] : continuum scale factor (CC)       [1]
      //     parameters[1] : line strength scale factor   (CL) [1]
      //     parameters[2] : line broadening scale factor (CW) [1]
      //     f_grid        : [Hz]
      //     abs_p         : [Pa]
      //     abs_t         : [K]
      //     vmr           : [1]
      //
      const int Nparam = 3;
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "Full model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          MPM87H2OAbsModel( pxsec,
                            parameters[0],
                            parameters[1],
                            parameters[2],
                            model,
                            f_grid,
                            abs_p,
                            abs_t,
                            vmr,
                            verbosity );
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "Full model " << name << " requires " << Nparam << " input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "Full model " << name << " running with \n"
               << "the parameters for model " << model << ".\n";
          MPM87H2OAbsModel( pxsec,
                            0.00,
                            0.00,
                            0.00,
                            model,
                            f_grid,
                            abs_p,
                            abs_t,
                            vmr,
                            verbosity );
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: Full model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the arts user guide chapter 3.\n";
          throw runtime_error(os.str());
        }
    }
  // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  else if ( "H2O-MPM89"==name )
    {
      //
      // specific continuum parameters and units:
      //  a) output
      //     pxsec          : [1/m],
      //  b) input
      //     parameters[0] : continuum scale factor       (CC) [1]
      //     parameters[1] : line strength scale factor   (CL) [1]
      //     parameters[2] : line broadening scale factor (CW  [1]
      //     f_grid        : [Hz]
      //     abs_p         : [Pa]
      //     abs_t         : [K]
      //     vmr           : [1]
      //
      const int Nparam = 3;
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "Full model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          MPM89H2OAbsModel( pxsec,
                            parameters[0],
                            parameters[1],
                            parameters[2],
                            model,
                            f_grid,
                            abs_p,
                            abs_t,
                            vmr,
                            verbosity );
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "Full model " << name << " requires " << Nparam << " input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "Full model " << name << " running with \n"
               << "the parameters for model " << model << ".\n";
          MPM89H2OAbsModel( pxsec,
                            0.00,
                            0.00,
                            0.00,
                            model,
                            f_grid,
                            abs_p,
                            abs_t,
                            vmr,
                            verbosity );
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: Full model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the arts user guide chapter 3.\n";
          throw runtime_error(os.str());
        }
    }
  // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  else if ( "H2O-MPM93"==name )
    {
      //
      // specific continuum parameters and units:
      //  OUTPUT
      //     pxsec          : [1/m],
      //  INPUT
      //     parameters[0] : continuum scale factor       (CC) [1]
      //     parameters[1] : line strength scale factor   (CL) [1]
      //     parameters[2] : line broadening scale factor (CW) [1]
      //     f_grid        : [Hz]
      //     abs_p         : [Pa]
      //     abs_t         : [K]
      //     vmr           : [1]
      //
      const int Nparam = 3;
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "Full model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          MPM93H2OAbsModel( pxsec,
                            parameters[0],
                            parameters[1],
                            parameters[2],
                            model,
                            f_grid,
                            abs_p,
                            abs_t,
                            vmr,
                            verbosity );
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "Full model " << name << " requires " << Nparam << " input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "Full model " << name << " running with \n"
               << "the parameters for model " << model << ".\n";
          MPM93H2OAbsModel( pxsec,
                            0.00,
                            0.00,
                            0.00,
                            model,
                            f_grid,
                            abs_p,
                            abs_t,
                            vmr,
                            verbosity );
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: Full model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the arts user guide chapter 3.\n";
          throw runtime_error(os.str());
        }
    }
  // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  else if ( "H2O-PWR98"==name )
    {
      // specific continuum parameters and units:
      //  OUTPUT
      //     pxsec          : [1/m],
      //  INPUT
      //     parameters[0] : continuum scale factor       (CC) [1]
      //     parameters[1] : line strength scale factor   (CL) [1]
      //     parameters[2] : line broadening scale factor (CW) [1]
      //     f_grid        : [Hz]
      //     abs_p         : [Pa]
      //     abs_t         : [K]
      //     vmr           : [1]
      //
      const int Nparam = 3;
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "Full model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          PWR98H2OAbsModel( pxsec,
                            parameters[0],
                            parameters[1],
                            parameters[2],
                            model,
                            f_grid,
                            abs_p,
                            abs_t,
                            vmr,
                            verbosity );
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "Full model " << name << " requires " << Nparam << " input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "Full model " << name << " running with \n"
               << "the parameters for model " << model << ".\n";
          PWR98H2OAbsModel( pxsec,
                            0.00,
                            0.00,
                            0.00,
                            model,
                            f_grid,
                            abs_p,
                            abs_t,
                            vmr,
                            verbosity );
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: Full model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the arts user guide chapter 3.\n";
          throw runtime_error(os.str());
        }
    }
  // ============= O2 continuum =========================================================
  else if ( "O2-CIAfunCKDMT100"==name )
    {
      // Model reference:
      // F. Thibault, V. Menoux, R. Le Doucen, L. Rosenman,
      // J.-M. Hartmann, Ch. Boulet,
      // "Infrared collision-induced absorption by O2 near 6.4 microns for
      // atmospheric applications: measurements and emprirical modeling",
      // Appl. Optics, 35, 5911-5917, (1996).
      //
      //  specific continuum parameters and units:
      //  OUTPUT
      //     pxsec          : [1/m],
      //  INPUT
      //     parameters[0] : continuum scaling
      //     model         : model option ("CKD" or "user")
      //     f_grid        : [Hz]
      //     abs_p         : [Pa]
      //     abs_t         : [K]
      //     vmr           : [1]
      //
      const int Nparam = 1;
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "Continuum model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          CKD_mt_CIAfun_o2( pxsec,
                            parameters[0],
                            model,
                            f_grid,
                            abs_p,
                            abs_t,
                            vmr,
                            verbosity );
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "Continuum model " << name << " requires " << Nparam << " input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "Continuum model " << name << " running with \n"
               << "the parameters for model " << model << ".\n";
          CKD_mt_CIAfun_o2( pxsec,
                            0.00e0,
                            model,
                            f_grid,
                            abs_p,
                            abs_t,
                            vmr,
                            verbosity );
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: Continuum model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the arts user guide chapter 3.\n";
          throw runtime_error(os.str());
        }
    }
  // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  else if ( "O2-v0v0CKDMT100"==name )
    {
      // Model reference:
      //   B. Mate, C. Lugez, G.T. Fraser, W.J. Lafferty,
      //   "Absolute Intensities for the O2 1.27 micron
      //   continuum absorption",
      //   J. Geophys. Res., 104, 30,585-30,590, 1999.
      //
      //  specific continuum parameters and units:
      //  OUTPUT
      //     pxsec          : [1/m],
      //  INPUT
      //     parameters[0] : continuum scaling
      //     model         : model option ("CKD" or "user")
      //     f_grid        : [Hz]
      //     abs_p         : [Pa]
      //     abs_t         : [K]
      //     vmr           : [1]
      //     abs_n2        : [1]
      //
 
      if( abs_n2.sum() < -1. )
        {
          ostringstream os;
          os << "Continuum/full model tag " << name
             << " requires N2-vmr, but no tag group contains N2!";
          throw runtime_error(os.str());
        }
 
      const int Nparam = 1;
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "Continuum model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          CKD_mt_v0v0_o2( pxsec,
                          parameters[0],
                          model,
                          f_grid,
                          abs_p,
                          abs_t,
                          vmr,
                          abs_n2,
                          verbosity );
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "Continuum model " << name << " requires " << Nparam << " input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "Continuum model " << name << " running with \n"
               << "the parameters for model " << model << ".\n";
          CKD_mt_v0v0_o2( pxsec,
                          0.0e0,
                          model,
                          f_grid,
                          abs_p,
                          abs_t,
                          vmr,
                          abs_n2,
                          verbosity );
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: Continuum model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the arts user guide chapter 3.\n";
          throw runtime_error(os.str());
        }
    }
  // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  else if ( "O2-v1v0CKDMT100"==name )
    {
      // Model reference:
      //   Mlawer, Clough, Brown, Stephen, Landry, Goldman, Murcray,
      //   "Observed  Atmospheric Collision Induced Absorption in Near Infrared Oxygen Bands",
      //   Journal of Geophysical Research, vol 103, no. D4, pp. 3859-3863, 1998.
      //
      //  specific continuum parameters and units:
      //  OUTPUT
      //     pxsec          : [1/m],
      //  INPUT
      //     parameters[0] : continuum scaling
      //     model         : model option ("CKD" or "user")
      //     f_grid        : [Hz]
      //     abs_p         : [Pa]
      //     abs_t         : [K]
      //     vmr           : [1]
      //
      const int Nparam = 1;
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "Continuum model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          CKD_mt_v1v0_o2( pxsec,
                          parameters[0],
                          model,
                          f_grid,
                          abs_p,
                          abs_t,
                          vmr,
                          verbosity );
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "Continuum model " << name << " requires " << Nparam << " input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "Continuum model " << name << " running with \n"
               << "the parameters for model " << model << ".\n";
          CKD_mt_v1v0_o2( pxsec,
                          0.0e0,
                          model,
                          f_grid,
                          abs_p,
                          abs_t,
                          vmr,
                          verbosity );
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: Continuum model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the ARTS User Guide.\n";
          throw runtime_error(os.str());
        }
    }
 
  // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  else if ( "O2-visCKDMT250"==name )
    {
      // Model reference:
      //     O2 continuum formulated by Greenblatt et al. over the spectral region
      //     8797-29870 cm-1:  "Absorption Coefficients of Oxygen Between 
      //     330 and 1140 nm, G.D. Green blatt, J.J. Orlando, J.B. Burkholder,
      //     and A.R. Ravishabkara,  J. Geophys. Res., 95, 18577-18582, 1990. 
      //
      //  specific continuum parameters and units:
      //  OUTPUT
      //     pxsec          : [1/m],
      //  INPUT
      //     parameters[0] : continuum scaling
      //     model         : model option ("CKD" or "user")
      //     f_grid        : [Hz]
      //     abs_p         : [Pa]
      //     abs_t         : [K]
      //     vmr           : [1]
      //
      const int Nparam = 1;
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "Continuum model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          CKD_mt_250_o2_vis( pxsec,
                          parameters[0],
                          model,
                          f_grid,
                          abs_p,
                          abs_t,
                          vmr,
                          verbosity );
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "Continuum model " << name << " requires " << Nparam << " input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "Continuum model " << name << " running with \n"
               << "the parameters for model " << model << ".\n";
          CKD_mt_250_o2_vis( pxsec,
                          0.0e0,
                          model,
                          f_grid,
                          abs_p,
                          abs_t,
                          vmr,
                          verbosity );
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: Continuum model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the arts user guide chapter 3.\n";
          throw runtime_error(os.str());
        }
    }
 
  // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
  else if ( "O2-SelfContStandardType"==name )
    {
      // MPM93, Rosenkranz 1993 O2 continuum:
      // see publication side of National Telecommunications and Information Administration
      //   http://www.its.bldrdoc.gov/pub/all_pubs/all_pubs.html
      // and ftp side for downloading the MPM93 original source code:
      //   ftp://ftp.its.bldrdoc.gov/pub/mpm93/
      //
      // P. W. Rosenkranz Chapter 2, pp 74, in M. A. Janssen,
      // "Atmospheric Remote Sensing by Microwave Radiometry",
      // John Wiley & Sons, Inc., 1993, ISBN 0-471-62891-3
      // (see also JQSRT, Vol.48, No.5/6 pp.629-643, 1992)
      //
      //  specific continuum parameters and units:
      //  OUTPUT
      //     pxsec          : [1/m],
      //  INPUT
      //     parameters[0] : continuum coefficient (C)    [1/m*1/Hz*1/Pa]
      //     parameters[1] : frequency coefficient (G0)   [Hz/Pa]
      //     parameters[3] : line width parameter  (G0A)  [1]
      //     parameters[3] : line width parameter  (G0B)  [1]
      //     parameters[2] : temperature exponent  (XG0d) [1]
      //     parameters[2] : temperature exponent  (x_s)  [1]
      //     parameters[5] : continuum coefficient (XG0w) [1]
      //     model   : model option ("MPM93", "Rosenkranz", or "user")
      //     f_grid        : [Hz]
      //     abs_p         : [Pa]
      //     abs_t         : [K]
      //     abs_h2o       : [1]
      //     vmr           : [1]
      //
 
      if( abs_h2o.sum() < -1. )
        {
          ostringstream os;
          os << "Continuum/full model tag " << name
             << " requires H2O-vmr, but no tag group contains H2O!";
          throw runtime_error(os.str());
        }
 
      const int Nparam = 6;
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "Continuum model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          Standard_O2_continuum( pxsec,
                                 parameters[0],
                                 parameters[1],
                                 parameters[2],
                                 parameters[3],
                                 parameters[4],
                                 parameters[5],
                                 model,
                                 f_grid,
                                 abs_p,
                                 abs_t,
                                 abs_h2o,
                                 vmr,
                                 verbosity );
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "Continuum model " << name << " requires " << Nparam << " input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "Continuum model " << name << " running with \n"
               << "the parameters for model " << model << ".\n";
          Standard_O2_continuum( pxsec,
                                 0.00,
                                 0.00,
                                 0.00,
                                 0.00,
                                 0.00,
                                 0.00,
                                 model,
                                 f_grid,
                                 abs_p,
                                 abs_t,
                                 abs_h2o,
                                 vmr,
                                 verbosity );
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: Continuum model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the arts user guide chapter 3.\n";
          throw runtime_error(os.str());
        }
    }
  // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  else if ( "O2-SelfContMPM93"==name )
    {
      // MPM93 O2 continuum:
      // see publication side of National Telecommunications and Information Administration
      //   http://www.its.bldrdoc.gov/pub/all_pubs/all_pubs.html
      // and ftp side for downloading the MPM93 original source code:
      //   ftp://ftp.its.bldrdoc.gov/pub/mpm93/
 
      //
      //  specific continuum parameters and units:
      //  OUTPUT
      //     pxsec          : [1/m],
      //  INPUT
      //     parameters[0] : continuum coefficient (C)    [1/m / (Hz²*Pa²)]
      //     parameters[1] : temperature exponent  (x_s)  [1]
      //     f_grid        : [Hz]
      //     abs_p         : [Pa]
      //     abs_t         : [K]
      //     abs_h2o       : [1]
      //     vmr           : [1]
      //
 
      if( abs_h2o.sum() < -1. )
        {
          ostringstream os;
          os << "Continuum/full model tag " << name
             << " requires H2O-vmr, but no tag group contains H2O!";
          throw runtime_error(os.str());
        }
 
      const int Nparam = 4;
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "Continuum model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          MPM93_O2_continuum( pxsec,
                              parameters[0],
                              parameters[1],
                              parameters[2],
                              parameters[3],
                              model,
                              f_grid,
                              abs_p,
                              abs_t,
                              abs_h2o,
                              vmr,
                              verbosity );
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "Continuum model " << name << " requires " << Nparam << " input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "Continuum model " << name << " running with \n"
               << "the parameters for model " << model << ".\n";
          MPM93_O2_continuum( pxsec,
                              0.00,
                              0.00,
                              0.00,
                              0.00,
                              model,
                              f_grid,
                              abs_p,
                              abs_t,
                              abs_h2o,
                              vmr,
                              verbosity );
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: Continuum model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the arts user guide chapter 3.\n";
          throw runtime_error(os.str());
        }
    }
  // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  else if ( "O2-SelfContPWR93"==name )
    {
      // data information about this continuum:
      // P. W. Rosenkranz Chapter 2, pp 74, in M. A. Janssen,
      // "Atmospheric Remote Sensing by Microwave Radiometry",
      // John Wiley & Sons, Inc., 1993, ISBN 0-471-62891-3
      // (see also JQSRT, Vol.48, No.5/6 pp.629-643, 1992)
      //
      //  specific continuum parameters and units:
      //  OUTPUT
      //     pxsec          : [1/m],
      //  INPUT
      //     parameters[0] : continuum coefficient (C) [K²/(Hz*Pa*m)]
      //     parameters[1] : temperature exponent  (x) [1]
      //     f_grid        : [Hz]
      //     abs_p         : [Pa]
      //     abs_t         : [K]
      //     vmr           : [1]
      //
 
      if( abs_h2o.sum() < -1. )
        {
          ostringstream os;
          os << "Continuum/full model tag " << name
             << " requires H2O-vmr, but no tag group contains H2O!";
          throw runtime_error(os.str());
        }
 
      const int Nparam = 4;
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "Continuum model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          Rosenkranz_O2_continuum( pxsec,
                                   parameters[0],
                                   parameters[1],
                                   parameters[2],
                                   parameters[3],
                                   model,
                                   f_grid,
                                   abs_p,
                                   abs_t,
                                   abs_h2o,
                                   vmr,
                                   verbosity );
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "Continuum model " << name << " requires " << Nparam << " input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "Continuum model " << name << " running with \n"
               << "the parameters for model " << model << ".\n";
          Rosenkranz_O2_continuum( pxsec,
                                   0.00,
                                   0.00,
                                   0.00,
                                   0.00,
                                   model,
                                   f_grid,
                                   abs_p,
                                   abs_t,
                                   abs_h2o,
                                   vmr,
                                   verbosity );
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: Continuum model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the arts user guide chapter 3.\n";
          throw runtime_error(os.str());
        }
    }
  // ============= O2 full model ========================================================
  else if ( "O2-PWR88"==name )
    {
      //  REFERENCE FOR EQUATIONS AND COEFFICIENTS:
      //  P.W. ROSENKRANZ, CHAP. 2 AND APPENDIX, IN ATMOSPHERIC REMOTE SENSING
      //  BY MICROWAVE RADIOMETRY (M.A. JANSSEN, ED. 1993)
      //  AND
      //  H.J. LIEBE ET AL, JQSRT V.48, PP.629-643 (1992)
      //  (EXCEPT: SUBMILLIMETER LINE INTENSITIES FROM HITRAN92)
      //  AND
      //  P. W. ROSENKRANZ, INTERFERENCE COEFFICIENTS FOR THE
      //  OVERLAPPING OXYGEN LINES IN AIR, JQSRT, 1988, VOLUME 39, 287-297.
      //
      //  the only difference to the 1993 version is the line mixing
      //  parameter Y, which is taken from the above reference JQSRT, 1988.
      //
      //  specific continuum parameters and units:
      //  OUTPUT
      //     pxsec          : [1/m],
      //  INPUT
      //     parameters[0] : continuum term scale factor,   default CC = 1.000 [1]
      //     parameters[1] : line strength scale factor,    default CL = 1.000 [1]
      //     parameters[1] : line broadening scale factor,  default CW = 1.000 [1]
      //     parameters[1] : line coupling scale factor,    default CO = 1.000 [1]
      //     f_grid        : [Hz]
      //     abs_p         : [Pa]
      //     abs_t         : [K]
      //     abs_h2o,      : [1]
      //     vmr           : [1]
      //
 
      if( abs_h2o.sum() < -1. )
        {
          ostringstream os;
          os << "Continuum/full model tag " << name
             << " requires H2O-vmr, but no tag group contains H2O!";
          throw runtime_error(os.str());
        }
 
      const int Nparam = 4;
      const char *version="PWR88";
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "Full model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          PWR93O2AbsModel( pxsec,
                           parameters[0], // continuum term scale factor
                           parameters[1], // line strength scale factor
                           parameters[2], // line broadening scale factor
                           parameters[3], // line coupling scale factor
                           model,
                           version,
                           f_grid,
                           abs_p,
                           abs_t,
                           abs_h2o,
                           vmr,
                           verbosity );
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "Full model " << name << " requires " << Nparam << " input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "Full model " << name << " running with \n"
               << "the parameters for model " << model << ".\n";
          PWR93O2AbsModel( pxsec,
                           0.00,
                           0.00,
                           0.00,
                           0.00,
                           model,
                           version,
                           f_grid,
                           abs_p,
                           abs_t,
                           abs_h2o,
                           vmr,
                           verbosity );
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: Full model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the arts user guide chapter 3.\n";
          throw runtime_error(os.str());
        }
    }
  // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  else if ( "O2-PWR93"==name )
    {
      //  REFERENCE FOR EQUATIONS AND COEFFICIENTS:
      //  P.W. ROSENKRANZ, CHAP. 2 AND APPENDIX, IN ATMOSPHERIC REMOTE SENSING
      //  BY MICROWAVE RADIOMETRY (M.A. JANSSEN, ED. 1993)
      //  AND H.J. LIEBE ET AL, JQSRT V.48, PP.629-643 (1992)
      //  (EXCEPT: SUBMILLIMETER LINE INTENSITIES FROM HITRAN92)
      //
      //  specific continuum parameters and units:
      //  OUTPUT
      //     pxsec          : [1/m],
      //  INPUT
      //     parameters[0] : continuum term scale factor,   default CC = 1.000 [1]
      //     parameters[1] : line strength scale factor,    default CL = 1.000 [1]
      //     parameters[1] : line broadening scale factor,  default CW = 1.000 [1]
      //     parameters[1] : line coupling scale factor,    default CO = 1.000 [1]
      //     f_grid        : [Hz]
      //     abs_p         : [Pa]
      //     abs_t         : [K]
      //     abs_h2o,      : [1]
      //     vmr           : [1]
      //
 
      if( abs_h2o.sum() < -1. )
        {
          ostringstream os;
          os << "Continuum/full model tag " << name
             << " requires H2O-vmr, but no tag group contains H2O!";
          throw runtime_error(os.str());
        }
 
      const int Nparam = 4;
      const char *version="PWR93";
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "Full model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          PWR93O2AbsModel( pxsec,
                           parameters[0], // continuum term scale factor
                           parameters[1], // line strength scale factor
                           parameters[2], // line broadening scale factor
                           parameters[3], // line coupling scale factor
                           model,
                           version,
                           f_grid,
                           abs_p,
                           abs_t,
                           abs_h2o,
                           vmr,
                           verbosity );
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "Full model " << name << " requires " << Nparam << " input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "Full model " << name << " running with \n"
               << "the parameters for model " << model << ".\n";
          PWR93O2AbsModel( pxsec,
                           0.00,
                           0.00,
                           0.00,
                           0.00,
                           model,
                           version,
                           f_grid,
                           abs_p,
                           abs_t,
                           abs_h2o,
                           vmr,
                           verbosity );
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: Full model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the arts user guide chapter 3.\n";
          throw runtime_error(os.str());
        }
    }
  // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  else if ( "O2-PWR98"==name )
    {
      //  REFERENCES FOR EQUATIONS AND COEFFICIENTS:
      //    P.W. Rosenkranz, CHAP. 2 and appendix, in ATMOSPHERIC REMOTE SENSING
      //     BY MICROWAVE RADIOMETRY (M.A. Janssen, ed., 1993).
      //    H.J. Liebe et al, JQSRT V.48, PP.629-643 (1992).
      //    M.J. Schwartz, Ph.D. thesis, M.I.T. (1997).
      //    SUBMILLIMETER LINE INTENSITIES FROM HITRAN96.
      //    This version differs from Liebe's MPM92 in two significant respects:
      //    1. It uses the modification of the 1- line width temperature dependence
      //    recommended by Schwartz: (1/T).
      //    2. It uses the same temperature dependence (X) for submillimeter
      //    line widths as in the 60 GHz band: (1/T)**0.8
      //
      //  specific continuum parameters and units:
      //  OUTPUT
      //     pxsec          : [1/m],
      //  INPUT
      //     parameters[0] : continuum term scale factor,   default CC = 1.000 [1]
      //     parameters[1] : line strength scale factor,    default CL = 1.000 [1]
      //     parameters[1] : line broadening scale factor,  default CW = 1.000 [1]
      //     parameters[1] : line coupling scale factor,    default CO = 1.000 [1]
      //     f_grid        : [Hz]
      //     abs_p         : [Pa]
      //     abs_t         : [K]
      //     abs_h2o,      : [1]
      //     vmr           : [1]
      //
 
      // abs_h2o needed here. check, whether this is valid.
      if( abs_h2o.sum() < -1. )
        {
          ostringstream os;
          os << "Continuum/full model tag " << name << " requires H2O-vmr, but no tag group contains H2O!";
          throw runtime_error(os.str());
        }
 
      const int Nparam = 4;
      const char *version="PWR98";
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "Full model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          PWR93O2AbsModel( pxsec,
                           parameters[0], // continuum term scale factor
                           parameters[1], // line strength scale factor
                           parameters[2], // line broadening scale factor
                           parameters[3], // line coupling scale factor
                           model,
                           version,
                           f_grid,
                           abs_p,
                           abs_t,
                           abs_h2o,
                           vmr,
                           verbosity );
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "Full model " << name << " requires " << Nparam << " input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "Full model " << name << " running with \n"
               << "the parameters for model " << model << ".\n";
          PWR93O2AbsModel( pxsec,
                           0.00,
                           0.00,
                           0.00,
                           0.00,
                           model,
                           version,
                           f_grid,
                           abs_p,
                           abs_t,
                           abs_h2o,
                           vmr,
                           verbosity );
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: Full model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the arts user guide chapter 3.\n";
          throw runtime_error(os.str());
        }
    }
  // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  else if ( "O2-MPM93"==name )
    {
      //  H. J. Liebe and G. A. Hufford and M. G. Cotton,
      //  "Propagation modeling of moist air and suspended water/ice
      //   particles at frequencies below 1000 GHz",
      //  AGARD 52nd Specialists Meeting of the Electromagnetic Wave
      //  Propagation Panel, Palma de Mallorca, Spain, 1993, May 17-21
      //
      //  specific continuum parameters and units:
      //  OUTPUT
      //     pxsec          : [1/m],
      //  INPUT
      //     parameters[0] : continuum term scale factor,   default CC = 1.000 [1]
      //     parameters[1] : line strength scale factor,    default CL = 1.000 [1]
      //     parameters[2] : line broadening scale factor,  default CW = 1.000 [1]
      //     parameters[3] : line coupling scale factor,    default CO = 1.000 [1]
      //     f_grid        : [Hz]
      //     abs_p         : [Pa]
      //     abs_t         : [K]
      //     abs_h2o,      : [1]
      //     vmr           : [1]
      //
 
      if( abs_h2o.sum() < -1. )
        {
          ostringstream os;
          os << "Continuum/full model tag " << name
             << " requires H2O-vmr, but no tag group contains H2O!";
          throw runtime_error(os.str());
        }
 
      const int Nparam = 4;
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "Full model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          MPM93O2AbsModel( pxsec,
                           parameters[0], // continuum term scale factor
                           parameters[1], // line strength scale factor
                           parameters[2], // line broadening scale factor
                           parameters[3], // line coupling scale factor
                           model,
                           f_grid,
                           abs_p,
                           abs_t,
                           abs_h2o,
                           vmr,
                           verbosity );
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "Full model " << name << " requires " << Nparam << " input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "Full model " << name << " running with \n"
               << "the parameters for model " << model << ".\n";
          MPM93O2AbsModel( pxsec,
                           0.00,
                           0.00,
                           0.00,
                           0.00,
                           model,
                           f_grid,
                           abs_p,
                           abs_t,
                           abs_h2o,
                           vmr,
                           verbosity );
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: Full model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the arts user guide chapter 3.\n";
          throw runtime_error(os.str());
        }
    }
    // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    else if ( "O2-TRE05"==name )
    {
        //  H. J. Liebe and G. A. Hufford and M. G. Cotton,
        //  "Propagation modeling of moist air and suspended water/ice
        //   particles at frequencies below 1000 GHz",
        //  AGARD 52nd Specialists Meeting of the Electromagnetic Wave
        //  Propagation Panel, Palma de Mallorca, Spain, 1993, May 17-21
        //
        //  specific continuum parameters and units:
        //  OUTPUT
        //     pxsec          : [1/m],
        //  INPUT
        //     parameters[0] : continuum term scale factor,   default CC = 1.000 [1]
        //     parameters[1] : line strength scale factor,    default CL = 1.000 [1]
        //     parameters[2] : line broadening scale factor,  default CW = 1.000 [1]
        //     parameters[3] : line coupling scale factor,    default CO = 1.000 [1]
        //     f_grid        : [Hz]
        //     abs_p         : [Pa]
        //     abs_t         : [K]
        //     abs_h2o,      : [1]
        //     vmr           : [1]
        //
 
      if( abs_h2o.sum() < -1. )
        {
          ostringstream os;
          os << "Continuum/full model tag " << name
             << " requires H2O-vmr, but no tag group contains H2O!";
          throw runtime_error(os.str());
        }
 
        const int Nparam = 4;
        if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
            out3 << "Full model " << name << " is running with \n"
            << "user defined parameters according to model " << model << ".\n";
            TRE05O2AbsModel( pxsec,
                             parameters[0], // continuum term scale factor
                             parameters[1], // line strength scale factor
                             parameters[2], // line broadening scale factor
                             parameters[3], // line coupling scale factor
                             model,
                             f_grid,
                             abs_p,
                             abs_t,
                             abs_h2o,
                             vmr,
                             verbosity );
        }
        else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
            ostringstream os;
            os << "Full model " << name << " requires " << Nparam << " input\n"
            << "parameters for the model " << model << ",\n"
            << "but you specified " << parameters.nelem() << " parameters.\n";
            throw runtime_error(os.str());
        }
        else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
            out3 << "Full model " << name << " running with \n"
            << "the parameters for model " << model << ".\n";
            TRE05O2AbsModel( pxsec,
                             0.00,
                             0.00,
                             0.00,
                             0.00,
                             model,
                             f_grid,
                             abs_p,
                             abs_t,
                             abs_h2o,
                             vmr,
                             verbosity );
        }
        else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
            ostringstream os;
            os << "ERROR: Full model " << name << " requires NO input\n"
            << "parameters for the model " << model << ",\n"
            << "but you specified " << parameters.nelem() << " parameters.\n"
            << "This ambiguity can not be solved by arts.\n"
            << "Please see the arts user guide chapter 3.\n";
            throw runtime_error(os.str());
        }
    }
  // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  else if ( "O2-MPM92"==name )
    {
      //   H. J. Liebe, P. W. Rosenkranz and G. A. Hufford,
      //   Atmospheric 60-GHz Oxygen Spectrum: New Laboratory
      //   Measurements and Line Parameters
      //   JQSRT, Vol 48, pp. 629-643, 1992
      //
      //  specific continuum parameters and units:
      //  OUTPUT
      //     pxsec          : [1/m],
      //  INPUT
      //     parameters[0] : continuum term scale factor,   default CC = 1.000 [1]
      //     parameters[1] : line strength scale factor,    default CL = 1.000 [1]
      //     parameters[2] : line broadening scale factor,  default CW = 1.000 [1]
      //     parameters[3] : line coupling scale factor,    default CO = 1.000 [1]
      //     f_grid        : [Hz]
      //     abs_p         : [Pa]
      //     abs_t         : [K]
      //     abs_h2o,      : [1]
      //     vmr           : [1]
      //
 
      if( abs_h2o.sum() < -1. )
        {
          ostringstream os;
          os << "Continuum/full model tag " << name
             << " requires H2O-vmr, but no tag group contains H2O!";
          throw runtime_error(os.str());
        }
 
      const int Nparam = 4;
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "Full model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          MPM92O2AbsModel( pxsec,
                           parameters[0], // continuum term scale factor
                           parameters[1], // line strength scale factor
                           parameters[2], // line broadening scale factor
                           parameters[3], // line coupling scale factor
                           model,
                           f_grid,
                           abs_p,
                           abs_t,
                           abs_h2o,
                           vmr,
                           verbosity );
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "Full model " << name << " requires " << Nparam << " input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "Full model " << name << " running with \n"
               << "the parameters for model " << model << ".\n";
          MPM92O2AbsModel( pxsec,
                           0.00,
                           0.00,
                           0.00,
                           0.00,
                           model,
                           f_grid,
                           abs_p,
                           abs_t,
                           abs_h2o,
                           vmr,
                           verbosity );
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: Full model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the arts user guide chapter 3.\n";
          throw runtime_error(os.str());
        }
    }
  // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  else if ( "O2-MPM89"==name )
    {
      //   H. J. Liebe,
      //   MPM - an atmospheric millimeter-wave propagation model,
      //   Int. J. Infrared and Mill. Waves, Vol 10, pp. 631-650, 1989.
      //
      //  specific continuum parameters and units:
      //  OUTPUT
      //     pxsec          : [1/m],
      //  INPUT
      //     parameters[0] : continuum term scale factor,   default CC = 1.000 [1]
      //     parameters[1] : line strength scale factor,    default CL = 1.000 [1]
      //     parameters[2] : line broadening scale factor,  default CW = 1.000 [1]
      //     parameters[3] : line coupling scale factor,    default CO = 1.000 [1]
      //     f_grid        : [Hz]
      //     abs_p         : [Pa]
      //     abs_t         : [K]
      //     abs_h2o,      : [1]
      //     vmr           : [1]
      //
 
      if( abs_h2o.sum() < -1. )
        {
          ostringstream os;
          os << "Continuum/full model tag " << name
             << " requires H2O-vmr, but no tag group contains H2O!";
          throw runtime_error(os.str());
        }
 
      const int Nparam = 4;
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "Full model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          MPM89O2AbsModel( pxsec,
                           parameters[0], // continuum term scale factor
                           parameters[1], // line strength scale factor
                           parameters[2], // line broadening scale factor
                           parameters[3], // line coupling scale factor
                           model,
                           f_grid,
                           abs_p,
                           abs_t,
                           abs_h2o,
                           vmr,
                           verbosity );
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "Full model " << name << " requires " << Nparam << " input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "Full model " << name << " running with \n"
               << "the parameters for model " << model << ".\n";
          MPM89O2AbsModel( pxsec,
                           0.00,
                           0.00,
                           0.00,
                           0.00,
                           model,
                           f_grid,
                           abs_p,
                           abs_t,
                           abs_h2o,
                           vmr,
                           verbosity );
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: Full model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the arts user guide chapter 3.\n";
          throw runtime_error(os.str());
        }
    }
  // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  else if ( "O2-MPM87"==name )
    {
      //   H. J. Liebe and D. H. Layton,
      //   Millimeter-wave properties of the atmosphere:
      //   Laboratory studies and propagation modelling,
      //   NITA Report 87-224,
      //   U.S. Dept. of Commerce, National Telecommunications and Information
      //   Administration, Institute for Communication Sciences, rep. 87-224,
      //   325 Broadway, Boulder, CO 80303-3328
      //
      //  specific continuum parameters and units:
      //  OUTPUT
      //     pxsec          : [1/m],
      //  INPUT
      //     parameters[0] : continuum term scale factor,   default CC = 1.000 [1]
      //     parameters[1] : line strength scale factor,    default CL = 1.000 [1]
      //     parameters[2] : line broadening scale factor,  default CW = 1.000 [1]
      //     parameters[3] : line coupling scale factor,    default CO = 1.000 [1]
      //     f_grid        : [Hz]
      //     abs_p         : [Pa]
      //     abs_t         : [K]
      //     abs_h2o,      : [1]
      //     vmr           : [1]
      //
 
      if( abs_h2o.sum() < -1. )
        {
          ostringstream os;
          os << "Continuum/full model tag " << name
             << " requires H2O-vmr, but no tag group contains H2O!";
          throw runtime_error(os.str());
        }
 
      const int Nparam = 4;
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "Full model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          MPM87O2AbsModel( pxsec,
                           parameters[0], // continuum term scale factor
                           parameters[1], // line strength scale factor
                           parameters[2], // line broadening scale factor
                           parameters[3], // line coupling scale factor
                           model,
                           f_grid,
                           abs_p,
                           abs_t,
                           abs_h2o,
                           vmr,
                           verbosity );
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "Full model " << name << " requires " << Nparam << " input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "Full model " << name << " running with \n"
               << "the parameters for model " << model << ".\n";
          MPM87O2AbsModel( pxsec,
                           0.00,
                           0.00,
                           0.00,
                           0.00,
                           model,
                           f_grid,
                           abs_p,
                           abs_t,
                           abs_h2o,
                           vmr,
                           verbosity );
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: Full model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the arts user guide chapter 3.\n";
          throw runtime_error(os.str());
        }
    }
  // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  else if ( "O2-MPM85"==name )
    {
      //   H. J. Liebe and D. H. Layton,
      //   An updated model for millimeter wave propagation in moist air
      //   Radio Science, vol. 20, pp. 1069-1089, 1985
      //
      //  specific continuum parameters and units:
      //  OUTPUT
      //     pxsec          : [1/m],
      //  INPUT
      //     parameters[0] : continuum term scale factor,   default CC = 1.000 [1]
      //     parameters[1] : line strength scale factor,    default CL = 1.000 [1]
      //     parameters[2] : line broadening scale factor,  default CW = 1.000 [1]
      //     parameters[3] : line coupling scale factor,    default CO = 1.000 [1]
      //     f_grid        : [Hz]
      //     abs_p         : [Pa]
      //     abs_t         : [K]
      //     abs_h2o,      : [1]
      //     vmr           : [1]
      //
 
      if( abs_h2o.sum() < -1. )
        {
          ostringstream os;
          os << "Continuum/full model tag " << name
             << " requires H2O-vmr, but no tag group contains H2O!";
          throw runtime_error(os.str());
        }
 
      const int Nparam = 4;
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "Full model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          MPM85O2AbsModel( pxsec,
                           parameters[0], // continuum term scale factor
                           parameters[1], // line strength scale factor
                           parameters[2], // line broadening scale factor
                           parameters[3], // line coupling scale factor
                           model,
                           f_grid,
                           abs_p,
                           abs_t,
                           abs_h2o,
                           vmr,
                           verbosity );
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "Full model " << name << " requires " << Nparam << " input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "Full model " << name << " running with \n"
               << "the parameters for model " << model << ".\n";
          MPM85O2AbsModel( pxsec,
                           0.00,
                           0.00,
                           0.00,
                           0.00,
                           model,
                           f_grid,
                           abs_p,
                           abs_t,
                           abs_h2o,
                           vmr,
                           verbosity );
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: Full model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the arts user guide chapter 3.\n";
          throw runtime_error(os.str());
        }
    }
  // ============= N2 continuum =========================================================
  else if ( "N2-SelfContMPM93"==name )
    {
      // MPM93 N2 continuum:
      // see publication side of National Telecommunications and Information Administration
      //   http://www.its.bldrdoc.gov/pub/all_pubs/all_pubs.html
      // and ftp side for downloading the MPM93 original source code:
      //   ftp://ftp.its.bldrdoc.gov/pub/mpm93/
      //
      //  specific continuum parameters and units:
      //  OUTPUT
      //     pxsec          : [1/m],
      //  INPUT
      //     parameters[0] : strength parameter   [1/m * 1/(Hz²*Pa²)]
      //     parameters[1] : broadening parameter [1]
      //     parameters[2] : temperature exponent [1]
      //     parameters[3] : frequency exponent   [1]
      //     f_grid        : [Hz]
      //     abs_p         : [Pa]
      //     abs_t         : [K]
      //     abs_h2o       : [1]
      //     vmr           : [1]
      //
 
      if( abs_h2o.sum() < -1. )
        {
          ostringstream os;
          os << "Continuum/full model tag " << name
             << " requires H2O-vmr, but no tag group contains H2O!";
          throw runtime_error(os.str());
        }
 
      const int Nparam = 4;
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "Continuum model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          MPM93_N2_continuum( pxsec,
                              parameters[0],
                              parameters[1],
                              parameters[2],
                              parameters[3],
                              model,
                              f_grid,
                              abs_p,
                              abs_t,
                              abs_h2o,
                              vmr,
                              verbosity );
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "Continuum model " << name << " requires " << Nparam << " input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model == "MPM93Scale") && (parameters.nelem() == 1) ) // --------------------
        {
          out3 << "Continuum model " << name << " running with \n"
               << "the parameters for model " << model << ".\n";
          MPM93_N2_continuum( pxsec,
                              parameters[0],
                              0.00,
                              0.00,
                              0.00,
                              model,
                              f_grid,
                              abs_p,
                              abs_t,
                              abs_h2o,
                              vmr,
                              verbosity );
        }
      else if ( (model == "MPM93Scale") && (parameters.nelem() != 1) ) // --------------------
        {
          ostringstream os;
          os << "Continuum model " << name << " requires 1 scaling input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (model != "MPM93Scale") && (parameters.nelem() == 0) ) // --
        {
          out3 << "Continuum model " << name << " running with \n"
               << "the parameters for model " << model << ".\n";
          MPM93_N2_continuum( pxsec,
                              0.00,
                              0.00,
                              0.00,
                              0.00,
                              model,
                              f_grid,
                              abs_p,
                              abs_t,
                              abs_h2o,
                              vmr,
                              verbosity );
        }
      /* --------------------------------------------------------------------------
         else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
         {
         ostringstream os;
         os << "ERROR: Continuum model " << name << " requires NO input\n"
         << "parameters for the model " << model << ",\n"
         << "but you specified " << parameters.nelem() << " parameters.\n"
         << "This ambiguity can not be solved by arts.\n"
         << "Please see the arts user guide chapter 3.\n";
         throw runtime_error(os.str());
         }
         ----------------------------------------------------------------------*/
    }
  // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  else if ( "N2-DryContATM01"==name )
    {
      // data information about this continuum:
      // Pardo et al. model model (IEEE, Trans. Ant. Prop.,
      // Vol 49, No 12, pp. 1683-1694, 2001)
      //
      // specific continuum parameters and units:
      //  a) output
      //     pxsec          : [1/m],
      //  b) input
      //     parameters[0] : continuum strength coefficient  [1/m * 1/(Hz*Pa)²]
      //     f_grid        : [Hz]
      //     abs_p         : [Pa]
      //     abs_t         : [K]
      //     vmr           : [1]   N2 vmr
      //     abs_h2o       : [1]   H2O vmr
      //
 
      if( abs_h2o.sum() < -1. )
        {
          ostringstream os;
          os << "Continuum/full model tag " << name
             << " requires H2O-vmr, but no tag group contains H2O!";
          throw runtime_error(os.str());
        }
 
      const int Nparam = 1;
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "Continuum model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          Pardo_ATM_N2_dry_continuum( pxsec,
                                      parameters[0], // coefficient
                                      model,
                                      f_grid,
                                      abs_p,
                                      abs_t,
                                      vmr,
                                      abs_h2o,
                                      verbosity );
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "Continuum model " << name << " requires " << Nparam << " input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "Continuum model " << name << " running with \n"
               << "the parameters for model " << model << ".\n";
          Pardo_ATM_N2_dry_continuum( pxsec,
                                      0.000, // coefficient
                                      model,
                                      f_grid,
                                      abs_p,
                                      abs_t,
                                      vmr,
                                      abs_h2o,
                                      verbosity );
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: Continuum model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the arts user guide chapter 3.\n";
          throw runtime_error(os.str());
        }
    }
  // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  else if ( "N2-SelfContPWR93"==name )
    {
      // data information about this continuum:
      // P. W. Rosenkranz Chapter 2, pp 74, in M. A. Janssen,
      // "Atmospheric Remote Sensing by Microwave Radiometry",
      // John Wiley & Sons, Inc., 1993, ISBN 0-471-62891-3
      //
      // specific continuum parameters and units:
      //  a) output
      //     pxsec          : [1/m],
      //  b) input
      //     parameters[0] : continuum strength coefficient  [1/m * 1/(Hz*Pa)²]
      //     parameters[1] : continuum temperature exponent  [1]
      //     f_grid        : [Hz]
      //     abs_p         : [Pa]
      //     abs_t         : [K]
      //     vmr           : [1]
      //
      const int Nparam = 2;
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "Continuum model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          Rosenkranz_N2_self_continuum( pxsec,
                                        parameters[0], // coefficient
                                        parameters[1], // temp. exponent
                                        model,
                                        f_grid,
                                        abs_p,
                                        abs_t,
                                        vmr,
                                        verbosity );
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "Continuum model " << name << " requires " << Nparam << " input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "Continuum model " << name << " running with \n"
               << "the parameters for model " << model << ".\n";
          Rosenkranz_N2_self_continuum( pxsec,
                                        0.00,
                                        0.00,
                                        model,
                                        f_grid,
                                        abs_p,
                                        abs_t,
                                        vmr,
                                        verbosity );
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: Continuum model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the arts user guide chapter 3.\n";
          throw runtime_error(os.str());
        }
    }
  // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  else if ( "N2-SelfContStandardType"==name )
    {
      // data information about this continuum:
      // A completely general expression for the N2 continuum
      //
      // specific continuum parameters and units:
      // OUTPUT
      //     pxsec          : [1/m],
      // INPUT
      //     parameters[0] : continuum coefficient (C)  [1/m * 1/(Hz*Pa)²]
      //     parameters[1] : frequency exponent    (xf) [1]
      //     parameters[2] : temperature exponent  (xt) [1]
      //     parameters[3] : pressure exponent     (xp) [1]
      //     f_grid        : [Hz]
      //     abs_p         : [Pa]
      //     abs_t         : [K]
      //     vmr           : [1]
      const int Nparam = 4;
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "Continuum model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          Standard_N2_self_continuum( pxsec,
                                      parameters[0],
                                      parameters[1],
                                      parameters[2],
                                      parameters[3],
                                      model,
                                      f_grid,
                                      abs_p,
                                      abs_t,
                                      vmr,
                                      verbosity );
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "Continuum model " << name << " requires " << Nparam << " input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "Continuum model " << name << " running with \n"
               << "the parameters for model " << model << ".\n";
          Standard_N2_self_continuum( pxsec,
                                      0.000,
                                      0.000,
                                      0.000,
                                      0.000,
                                      model,
                                      f_grid,
                                      abs_p,
                                      abs_t,
                                      vmr,
                                      verbosity );
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: Continuum model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the arts user guide chapter 3.\n";
          throw runtime_error(os.str());
        }
    }
  // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  else if ( "N2-SelfContBorysow"==name )
    {
      // data information about this continuum:
      // A. Borysow and L. Frommhold, The Astrophysical Journal,
      // Vol. 311, pp.1043-1057, 1986
      const int Nparam = 1;
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "Continuum model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          BF86_CIA_N2( pxsec,
                       parameters[0], // scaling factor
                       model,
                       f_grid,
                       abs_p,
                       abs_t,
                       vmr,
                       verbosity );
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "Continuum model " << name << " requires " << Nparam << " input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "Continuum model " << name << " running with \n"
               << "the parameters for model " << model << ".\n";
          BF86_CIA_N2( pxsec,
                       0.0,
                       model,
                       f_grid,
                       abs_p,
                       abs_t,
                       vmr,
                       verbosity );
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: Continuum model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters. " << "\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the arts user guide chapter 3.\n";
          throw runtime_error(os.str());
        }
    }
  // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  else if ( "N2-CIArotCKDMT100"==name )
    {
      // data information about this continuum:
      // A. Borysow and L. Frommhold, The Astrophysical Journal,
      // Vol. 311, pp.1043-1057, 1986
      const int Nparam = 1;
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "Continuum model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          CKD_mt_CIArot_n2( pxsec,
                            parameters[0], // scaling factor
                            model,
                            f_grid,
                            abs_p,
                            abs_t,
                            vmr,
                            verbosity );
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "Continuum model " << name << " requires " << Nparam << " input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "Continuum model " << name << " running with \n"
               << "the parameters for model " << model << ".\n";
          CKD_mt_CIArot_n2( pxsec,
                            0.0,
                            model,
                            f_grid,
                            abs_p,
                            abs_t,
                            vmr,
                            verbosity );
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: Continuum model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters. " << "\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the arts user guide chapter 3.\n";
          throw runtime_error(os.str());
        }
    }
  // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  else if ( "N2-CIAfunCKDMT100"==name )
    {
      // data information about this continuum:
      // Lafferty, W.J., A.M. Solodov,A. Weber, W.B. Olson and J._M. Hartmann,
      // Infrared collision-induced absorption by
      // N2 near 4.3 microns for atmospheric applications:
      // Measurements and emprirical modeling,
      // Appl. Optics, 35, 5911-5917, (1996)
 
      const int Nparam = 1;
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "Continuum model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          CKD_mt_CIAfun_n2( pxsec,
                            parameters[0], // scaling factor
                            model,
                            f_grid,
                            abs_p,
                            abs_t,
                            vmr,
                            verbosity );
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "Continuum model " << name << " requires " << Nparam << " input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "Continuum model " << name << " running with \n"
               << "the parameters for model " << model << ".\n";
          CKD_mt_CIAfun_n2( pxsec,
                            0.0,
                            model,
                            f_grid,
                            abs_p,
                            abs_t,
                            vmr,
                            verbosity );
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: Continuum model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters. " << "\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the arts user guide chapter 3.\n";
          throw runtime_error(os.str());
        }
    }
  // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  else if ( "N2-CIArotCKDMT250"==name )
    {
      // data information about this continuum:
      // A. Borysow and L. Frommhold, The Astrophysical Journal,
      // Vol. 311, pp.1043-1057, 1986
 
      if( abs_o2.sum() < -1. )
        {
          ostringstream os;
          os << "Continuum/full model tag " << name
             << " requires O2-vmr, but no tag group contains O2!";
          throw runtime_error(os.str());
        }
 
      if( abs_h2o.sum() < -1. )
        {
          ostringstream os;
          os << "Continuum/full model tag " << name
             << " requires H2O-vmr, but no tag group contains H2O!";
          throw runtime_error(os.str());
        }
 
      const int Nparam = 1;
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "Continuum model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          CKD_mt_250_CIArot_n2( pxsec,
                            parameters[0], // scaling factor
                            model,
                            f_grid,
                            abs_p,
                            abs_t,
                            vmr,
                            abs_h2o,
                            abs_o2,
                            verbosity );
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "Continuum model " << name << " requires " << Nparam << " input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "Continuum model " << name << " running with \n"
               << "the parameters for model " << model << ".\n";
          CKD_mt_250_CIArot_n2( pxsec,
                            0.0,
                            model,
                            f_grid,
                            abs_p,
                            abs_t,
                            vmr,
                            abs_h2o,
                            abs_o2,
                            verbosity );
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: Continuum model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters. " << "\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the arts user guide chapter 3.\n";
          throw runtime_error(os.str());
        }
    }
  // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  else if ( "N2-CIAfunCKDMT250"==name )
    {
      // data information about this continuum:
      // Lafferty, W.J., A.M. Solodov,A. Weber, W.B. Olson and J._M. Hartmann,
      // Infrared collision-induced absorption by
      // N2 near 4.3 microns for atmospheric applications:
      // Measurements and emprirical modeling,
      // Appl. Optics, 35, 5911-5917, (1996)
 
      if( abs_o2.sum() < -1. )
        {
          ostringstream os;
          os << "Continuum/full model tag " << name
             << " requires O2-vmr, but no tag group contains O2!";
          throw runtime_error(os.str());
        }
 
      if( abs_h2o.sum() < -1. )
        {
          ostringstream os;
          os << "Continuum/full model tag " << name
             << " requires H2O-vmr, but no tag group contains H2O!";
          throw runtime_error(os.str());
        }
 
      const int Nparam = 1;
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "Continuum model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          CKD_mt_250_CIAfun_n2( pxsec,
                            parameters[0], // scaling factor
                            model,
                            f_grid,
                            abs_p,
                            abs_t,
                            vmr,
                            abs_h2o,
                            abs_o2,
                            verbosity );
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "Continuum model " << name << " requires " << Nparam << " input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "Continuum model " << name << " running with \n"
               << "the parameters for model " << model << ".\n";
          CKD_mt_250_CIAfun_n2( pxsec,
                            0.0,
                            model,
                            f_grid,
                            abs_p,
                            abs_t,
                            vmr,
                            abs_h2o,
                            abs_o2,
                            verbosity );
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: Continuum model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters. " << "\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the arts user guide chapter 3.\n";
          throw runtime_error(os.str());
        }
    }
 
  // ============= CO2 continuum ========================================================
  else if ( "CO2-CKD241"==name )
    {
      // data information about this continuum:
      // CKDv2.4.1 model at http://www.rtweb.aer.com/continuum_frame.html
      // This continuum accounts for the far wings of the many COS lines/bands since
      // the line is used with a cutoff in the line shape with +/- 25 cm^-1.
      //
      // specific continuum parameters and units:
      //  OUTPUT
      //     pxsec          : [1/m],
      //  INPUT
      //     parameters[0] : continuum strength coefficient [1/m * 1/(Hz*Pa)²]
      //     parameters[1] : continuum temperature exponent  [1]
      //     f_grid        : [Hz]
      //     abs_p         : [Pa]
      //     abs_t         : [K]
      //     vmr           : [1]
      //
      const int Nparam = 1;
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "Continuum model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          CKD_241_co2( pxsec,
                       parameters[0], // abs. scaling
                       model,
                       f_grid,
                       abs_p,
                       abs_t,
                       vmr,
                       verbosity );
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "Continuum model " << name << " requires " << Nparam << " input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "Continuum model " << name << " running with \n"
               << "the parameters for model " << model << ".\n";
          CKD_241_co2( pxsec,
                       0.00,
                       model,
                       f_grid,
                       abs_p,
                       abs_t,
                       vmr,
                       verbosity );
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: Continuum model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters. " << "\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the arts user guide chapter 3.\n";
          throw runtime_error(os.str());
        }
    }
  // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  else if ( "CO2-CKDMT100"==name )
    {
      // data information about this continuum:
      // CKD model at http://www.rtweb.aer.com/continuum_frame.html
      // This continuum accounts for the far wings of the many COS lines/bands since
      // the line is used with a cutoff in the line shape with +/- 25 cm^-1.
      //
      // specific continuum parameters and units:
      //  OUTPUT
      //     pxsec          : [1/m],
      //  INPUT
      //     parameters[0] : continuum strength coefficient [1/m * 1/(Hz*Pa)²]
      //     parameters[1] : continuum temperature exponent  [1]
      //     f_grid        : [Hz]
      //     abs_p         : [Pa]
      //     abs_t         : [K]
      //     vmr           : [1]
      //
      const int Nparam = 1;
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "Continuum model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          CKD_mt_co2( pxsec,
                      parameters[0], // abs. scaling
                      model,
                      f_grid,
                      abs_p,
                      abs_t,
                      vmr,
                      verbosity );
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "Continuum model " << name << " requires " << Nparam << " input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "Continuum model " << name << " running with \n"
               << "the parameters for model " << model << ".\n";
          CKD_mt_co2( pxsec,
                      0.00,
                      model,
                      f_grid,
                      abs_p,
                      abs_t,
                      vmr,
                      verbosity );
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: Continuum model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters. " << "\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the arts user guide chapter 3.\n";
          throw runtime_error(os.str());
        }
    }
  // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  else if ( "CO2-CKDMT250"==name )
    {
      // data information about this continuum:
      // CKD model at http://www.rtweb.aer.com/continuum_frame.html
      // This continuum accounts for the far wings of the many COS lines/bands since
      // the line is used with a cutoff in the line shape with +/- 25 cm^-1.
      //
      // specific continuum parameters and units:
      //  OUTPUT
      //     pxsec          : [1/m],
      //  INPUT
      //     parameters[0] : continuum strength coefficient [1/m * 1/(Hz*Pa)²]
      //     parameters[1] : continuum temperature exponent  [1]
      //     f_grid        : [Hz]
      //     abs_p         : [Pa]
      //     abs_t         : [K]
      //     vmr           : [1]
      //
      const int Nparam = 1;
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "Continuum model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          CKD_mt_250_co2( pxsec,
                      parameters[0], // abs. scaling
                      model,
                      f_grid,
                      abs_p,
                      abs_t,
                      vmr,
                      verbosity );
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "Continuum model " << name << " requires " << Nparam << " input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "Continuum model " << name << " running with \n"
               << "the parameters for model " << model << ".\n";
          CKD_mt_250_co2( pxsec,
                      0.00,
                      model,
                      f_grid,
                      abs_p,
                      abs_t,
                      vmr,
                      verbosity );
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: Continuum model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters. " << "\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the arts user guide chapter 3.\n";
          throw runtime_error(os.str());
        }
    }
 
  // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  else if ( "CO2-SelfContPWR93"==name )
    {
      // data information about this continuum:
      // P. W. Rosenkranz Chapter 2, pp 74, in M. A. Janssen,
      // "Atmospheric Remote Sensing by Microwave Radiometry",
      // John Wiley & Sons, Inc., 1993, ISBN 0-471-62891-3
      //
      // specific continuum parameters and units:
      //  OUTPUT
      //     pxsec          : [1/m],
      //  INPUT
      //     parameters[0] : continuum strength coefficient [1/m * 1/(Hz*Pa)²]
      //     parameters[1] : continuum temperature exponent  [1]
      //     f_grid        : [Hz]
      //     abs_p         : [Pa]
      //     abs_t         : [K]
      //     vmr           : [1]
      //
      const int Nparam = 2;
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "Continuum model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          Rosenkranz_CO2_self_continuum( pxsec,
                                         parameters[0], // coefficient
                                         parameters[1], // temp. exponent
                                         model,
                                         f_grid,
                                         abs_p,
                                         abs_t,
                                         vmr,
                                         verbosity );
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "Continuum model " << name << " requires " << Nparam << " input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "Continuum model " << name << " running with \n"
               << "the parameters for model " << model << ".\n";
          Rosenkranz_CO2_self_continuum( pxsec,
                                         0.00,
                                         0.00,
                                         model,
                                         f_grid,
                                         abs_p,
                                         abs_t,
                                         vmr,
                                         verbosity );
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: Continuum model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters. " << "\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the arts user guide chapter 3.\n";
          throw runtime_error(os.str());
        }
    }
  // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  else if ( "CO2-ForeignContPWR93"==name )
    {
      // data information about this continuum:
      // P. W. Rosenkranz Chapter 2, pp 74, in M. A. Janssen,
      // "Atmospheric Remote Sensing by Microwave Radiometry",
      // John Wiley & Sons, Inc., 1993, ISBN 0-471-62891-3
      //
      // specific continuum parameters and units:
      //  OUTPUT
      //     pxsec          : [1/m],
      //  INPUT
      //     parameters[0] : continuum strength coefficient [1/m * 1/(Hz*Pa)²]
      //     parameters[1] : continuum temperature exponent  [1]
      //     f_grid        : [Hz]
      //     abs_p         : [Pa]
      //     abs_t         : [K]
      //     abs_n2        : [1]
      //     vmr           : [1]
      //
 
      if( abs_n2.sum() < -1. )
        {
          ostringstream os;
          os << "Continuum/full model tag " << name
             << " requires N2-vmr, but no tag group contains N2!";
          throw runtime_error(os.str());
        }
 
      const int Nparam = 2;
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "Continuum model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          Rosenkranz_CO2_foreign_continuum( pxsec,
                                            parameters[0],
                                            parameters[1],
                                            model,
                                            f_grid,
                                            abs_p,
                                            abs_t,
                                            abs_n2,
                                            vmr,
                                            verbosity );
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "Continuum model " << name << " requires " << Nparam << " input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "Continuum model " << name << " running with \n"
               << "the parameters for model " << model << ".\n";
          Rosenkranz_CO2_foreign_continuum( pxsec,
                                            0.00,
                                            0.00,
                                            model,
                                            f_grid,
                                            abs_p,
                                            abs_t,
                                            abs_n2,
                                            vmr,
                                            verbosity );
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: Continuum model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters. " << "\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the arts user guide chapter 3.\n";
          throw runtime_error(os.str());
        }
    }
  // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  else if ( "CO2-SelfContHo66"==name )
    {
      // data information about this continuum:
      // Reference: Ho, Kaufman and Thaddeus, "Laboratory measurements of
      // microwave absorption in models of the atmosphere of Venus", JGR, 1966.
      //
      // specific continuum parameters and units:
      //  OUTPUT
      //     pxsec          : [1/m],
      //  INPUT
      //     parameters[0] : continuum strength coefficient [1/m * 1/(Hz*Pa)²]
      //     parameters[1] : continuum temperature exponent  [1]
      //     f_grid        : [Hz]
      //     abs_p         : [Pa]
      //     abs_t         : [K]
      //     vmr           : [1]
      //
      const int Nparam = 2;
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "Continuum model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          Ho66_CO2_self_continuum( pxsec,
                                   parameters[0], // coefficient
                                   parameters[1], // temp. exponent
                                   model,
                                   f_grid,
                                   abs_p,
                                   abs_t,
                                   vmr,
                                   verbosity );
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "Continuum model " << name << " requires " << Nparam << " input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "Continuum model " << name << " running with \n"
               << "the parameters for model " << model << ".\n";
          Ho66_CO2_self_continuum( pxsec,
                                   0.00,
                                   0.00,
                                   model,
                                   f_grid,
                                   abs_p,
                                   abs_t,
                                   vmr,
                                   verbosity );
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: Continuum model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters. " << "\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the arts user guide chapter 3.\n";
          throw runtime_error(os.str());
        }
    }
  // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  else if ( "CO2-ForeignContHo66"==name )
    {
      // data information about this continuum:
      // Reference: Ho, Kaufman and Thaddeus, "Laboratory measurements of
      // microwave absorption in models of the atmosphere of Venus", JGR, 1966.
      //
      // specific continuum parameters and units:
      //  OUTPUT
      //     pxsec          : [1/m],
      //  INPUT
      //     parameters[0] : continuum strength coefficient [1/m * 1/(Hz*Pa)²]
      //     parameters[1] : continuum temperature exponent  [1]
      //     f_grid        : [Hz]
      //     abs_p         : [Pa]
      //     abs_t         : [K]
      //     abs_n2        : [1]
      //     vmr           : [1]
      //
 
      if( abs_n2.sum() < -1. )
        {
          ostringstream os;
          os << "Continuum/full model tag " << name
             << " requires N2-vmr, but no tag group contains N2!";
          throw runtime_error(os.str());
        }
 
      const int Nparam = 2;
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "Continuum model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          Ho66_CO2_foreign_continuum( pxsec,
                                      parameters[0],
                                      parameters[1],
                                      model,
                                      f_grid,
                                      abs_p,
                                      abs_t,
                                      abs_n2,
                                      vmr,
                                      verbosity );
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "Continuum model " << name << " requires " << Nparam << " input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "Continuum model " << name << " running with \n"
               << "the parameters for model " << model << ".\n";
          Ho66_CO2_foreign_continuum( pxsec,
                                      0.00,
                                      0.00,
                                      model,
                                      f_grid,
                                      abs_p,
                                      abs_t,
                                      abs_n2,
                                      vmr,
                                      verbosity );
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: Continuum model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters. " << "\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the arts user guide chapter 3.\n";
          throw runtime_error(os.str());
        }
    }
    // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    // ============= cloud and fog absorption from MPM93 ==================================
  else if ( "liquidcloud-MPM93"==name )
    {
      // Suspended water droplet absorption parameterization from MPM93 model
      // H. J. Liebe and G. A. Hufford and M. G. Cotton,
      // "Propagation modeling of moist air and suspended water/ice
      //  particles at frequencies below 1000 GHz",
      // AGARD 52nd Specialists Meeting of the Electromagnetic Wave
      // Propagation Panel, Palma de Mallorca, Spain, 1993, May 17-21
      //
      // specific continuum parameters and units:
      //  OUTPUT
      //     pxsec          : [1/m],
      //  INPUT
      //     parameters[0] : [1]
      //     parameters[1] : [1]
      //     parameters[2] : [1]
      //     model        : [1]
      //     f_grid        : [Hz]
      //     abs_p         : [Pa]
      //     abs_t         : [K]
      //     vmr           : [1]
      //
      // liquid water droplet parameters:
      // suspended water droplet density   range: 0-10 g/m³
      // specific droplet weight           value:    1 g/cm³
      //
      // valid atmospheric condition:
      // temperature      : 233 to 323 K
      // relative humidity:   1 to 100 %
      //
      const int Nparam = 3;
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "MPM93 liquid water cloud absorption model " << name << " is running with \n"
          << "user defined parameters according to model " << model << ".\n";
          MPM93WaterDropletAbs(pxsec,
                               parameters[0],     // scaling factror
                               parameters[1],     // scaling factror
                               parameters[2],     // scaling factror
                               model,       // model option
                               f_grid,
                               abs_p,
                               abs_t,
                               vmr,
                               verbosity);
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "MPM93 liquid water cloud absorption model " << name << " requires\n"
          << Nparam << " input parameter for the model " << model << ",\n"
          << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "MPM93 liquid water cloud absorption model " << name << " running with \n"
          << "the parameter for model " << model << ".\n";
          MPM93WaterDropletAbs(pxsec,
                               0.000,        // scaling factror
                               0.000,        // scaling factror
                               0.000,        // scaling factror
                               model,  // model option
                               f_grid,
                               abs_p,
                               abs_t,
                               vmr,
                               verbosity);
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: MPM93 liquid water cloud absorption model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the arts user guide chapter 4.\n";
          throw runtime_error(os.str());
        }
    }
  // ============= ice particle absorption from MPM93 ===================================
  else if ( "icecloud-MPM93"==name )
    {
      // Ice particle absorption parameterization from MPM93 model
      // H. J. Liebe and G. A. Hufford and M. G. Cotton,
      // "Propagation modeling of moist air and suspended water/ice
      //  particles at frequencies below 1000 GHz",
      // AGARD 52nd Specialists Meeting of the Electromagnetic Wave
      // Propagation Panel, Palma de Mallorca, Spain, 1993, May 17-21
      //
      // specific continuum parameters and units:
      //  OUTPUT
      //     pxsec          : [1/m],
      //  INPUT
      //     parameters[0] : [1]
      //     parameters[1] : [1]
      //     parameters[2] : [1]
      //     model        : [1]
      //     f_grid        : [Hz]
      //     abs_p         : [Pa]
      //     abs_t         : [K]
      //     vmr           : [1]
      //
      // ice crystal parameters:
      // suspended water droplet density   range: 0-10 g/m³
      // specific droplet weight           value:    1 g/cm³
      //
      // valid atmospheric condition:
      // temperature      : 233 to 323 K
      // relative humidity:   1 to 100 %
      //
      const int Nparam = 3;
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "MPM93 ice water cloud absorption model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          MPM93IceCrystalAbs(pxsec,
                             parameters[0],     // scaling factror
                             parameters[1],     // scaling factror
                             parameters[2],     // scaling factror
                             model,       // model option
                             f_grid,
                             abs_p,
                             abs_t,
                             vmr,
                             verbosity);
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "MPM93 ice water cloud absorption model " << name << " requires \n"
             << Nparam << " input parameter for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "MPM93 ice water cloud absorption model " << name << " running with \n"
               << "the parameter for model " << model << ".\n";
          MPM93IceCrystalAbs(pxsec,
                             0.000,       // scaling factror
                             0.000,       // scaling factror
                             0.000,       // scaling factror
                             model, // model option
                             f_grid,
                             abs_p,
                             abs_t,
                             vmr,
                             verbosity);
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: MPM93 ice water cloud absorption model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the arts user guide chapter 4.\n";
          throw runtime_error(os.str());
        }
    }
  // ============= rain extinction from MPM93 ===========================================
  else if ( "rain-MPM93"==name )
    {
      // Rain extinction parameterization from MPM93 model, described in
      //  H. J. Liebe,
      //  "MPM - An Atmospheric Millimeter-Wave Propagation Model",
      //  Int. J. Infrared and Millimeter Waves, vol. 10(6),
      //  pp. 631-650, 1989
      // and based on
      //  Olsen, R.L., D.V. Rogers, and D. B. Hodge, "The aR^b relation in the
      //  calculation of rain attenuation", IEEE Trans. Antennas Propagat.,
      // vol. AP-26, pp. 318-329, 1978.
      //
      // specific continuum parameters and units:
      //  OUTPUT
      //     pxsec          : [1/m],
      //  INPUT
      //     parameters[0] : [1]
      //     parameters[1] : [1]
      //     parameters[2] : [1]
      //     model         : [1]
      //     f_grid        : [Hz]
      //     abs_p         : [Pa]
      //     abs_t         : [K]
      //     vmr           : [mm/h]
      //
      // rain parameters:
      // rain rate                         range: 0-150 mm/h
      //
      // valid atmospheric condition:
      // temperature      : (preferably above 273 K...)
      //
      const int Nparam = 3;
      if ( (model == "user") && (parameters.nelem() == Nparam) ) // -------------------------
        {
          out3 << "MPM93 rain extinction model " << name << " is running with \n"
               << "user defined parameters according to model " << model << ".\n";
          MPM93RainExt(pxsec,
                       parameters[0],     // scaling factror
                       parameters[1],     // scaling factror
                       parameters[2],     // scaling factror
                       model,             // model option
                       f_grid,
                       abs_p,
                       abs_t,
                       vmr,
                       verbosity);
        }
      else if ( (model == "user") && (parameters.nelem() != Nparam) ) // --------------------
        {
          ostringstream os;
          os << "MPM93 rain extinction model  " << name << " requires \n"
             << Nparam << " input parameter for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n";
          throw runtime_error(os.str());
        }
      else if ( (model != "user") && (parameters.nelem() == 0) ) // --------------------
        {
          out3 << "MPM93 rain extinction model " << name << " running with \n"
               << "the parameter for model " << model << ".\n";
          MPM93RainExt(pxsec,
                       0.000,       // scaling factror
                       0.000,       // scaling factror
                       0.000,       // scaling factror
                       model,       // model option
                       f_grid,
                       abs_p,
                       abs_t,
                       vmr,
                       verbosity);
        }
      else if ( (model != "user") && (parameters.nelem() != 0) ) // --------------------
        {
          ostringstream os;
          os << "ERROR: MPM93 rain extinction model " << name << " requires NO input\n"
             << "parameters for the model " << model << ",\n"
             << "but you specified " << parameters.nelem() << " parameters.\n"
             << "This ambiguity can not be solved by arts.\n"
             << "Please see the arts user guide chapter 4.\n";
          throw runtime_error(os.str());
        }
    }
  else // -----------------------------------------------------------------------
    {
      // none of the continuum or full model tags were selected -> error message.
      ostringstream os;
      os << "ERROR: Continuum/ full model tag `" << name << "' not yet implemented in arts!";
      throw runtime_error(os.str());
    }
 
  // We have to divide the result from the internal continuum model by
  // the number density n to convert it from pseudo cross section to a
  // true cross section.
 
  // Boltzmann constant
  extern const Numeric BOLTZMAN_CONST;
 
  // Loop all pressures:
  for ( Index i=0; i<abs_p.nelem(); ++i )
    {
      const Numeric p_i = abs_p[i];
      const Numeric t_i = abs_t[i];
 
      // Calculate total number density from pressure and temperature.
      // n = n0*T0/p0 * p/T or n = p/kB/t, ideal gas law
      const Numeric n = p_i / BOLTZMAN_CONST / t_i;
 
      // We add to the output variable xsec here, previous content is
      // not overwritten!
      pxsec(joker,i) /= n;
      xsec(joker,i)  += pxsec(joker,i);
    }
}
 
// #################################################################################
 
void check_continuum_model(const String& name)
{
  // The species lookup data:
  using global_data::species_data;
 
  // For the list of valid continuum models:
  ArrayOfString valid_models;
 
  bool found = false;
 
  // Loop all species:
  for ( Array<SpeciesRecord>::const_iterator i=species_data.begin();
  i<species_data.end();
  ++i )
    {
      String specnam = i->Name();
 
      // Loop all isotopologues:
      for ( Array<IsotopologueRecord>::const_iterator j=i->Isotopologue().begin();
      j<i->Isotopologue().end();
      ++j )
  {
    String isonam = j->Name();
 
    // The specified name consists of a species part and an
    // isotopologue part, e.g., H2O-ContStandardSelf. We need to
    // construct a similar String from the species lookup data
    // by concatenating species name and isotopologue name.
 
    String fullnam = specnam + "-" + isonam;
    //    cout << fullnam << "\n";
 
    // See if this is a continuum tag, so that we can add it to
    // the list:
    if (j->isContinuum())
      {
        valid_models.push_back(fullnam);
      }
 
    if ( name == fullnam )
      {
        found = true;
      }
  }
    }
 
  // ----------------------------------------------------------------------
  // Have we found it?
  if (!found)
    {
      ostringstream os;
      os << "The String `" << name << "' matches none of the known\n"
   << "continuum models. Known continuum models are:";
      for ( ArrayOfString::const_iterator i=valid_models.begin();
      i<valid_models.end();
      ++i )
  {
    os << "\n" << *i;
  }
      throw runtime_error(os.str());
    }
}
//
//
// #################################################################################
// ############################# f2c code implementation ###########################
// #################################################################################
//
//
// ------------------- begin of f2c.h file --------------------------------
//
/* f2c.h  --  Standard Fortran to C header file */
#ifndef F2C_INCLUDE
#define F2C_INCLUDE
 
typedef long int integer;
typedef unsigned long int uinteger;
typedef char *address;
typedef short int shortint;
typedef float real;
typedef double doublereal;
typedef struct { real r, i; } complex;
typedef struct { doublereal r, i; } doublecomplex;
typedef long int logical;
typedef short int shortlogical;
typedef char logical1;
typedef char integer1;
#ifdef INTEGER_STAR_8  /* Adjust for integer*8. */
typedef long long longint;    /* system-dependent */
typedef unsigned long long ulongint;  /* system-dependent */
#define qbit_clear(a,b)  ((a) & ~((ulongint)1 << (b)))
#define qbit_set(a,b)  ((a) |  ((ulongint)1 << (b)))
#endif
 
#define TRUE_ (1)
#define FALSE_ (0)
 
/* Extern is for use with -E */
#ifndef Extern
#define Extern extern
#endif
 
/* I/O stuff */
 
#ifdef f2c_i2
/* for -i2 */
typedef short flag;
typedef short ftnlen;
typedef short ftnint;
#else
typedef long int flag;
typedef long int ftnlen;
typedef long int ftnint;
#endif
 
/*external read, write*/
typedef struct
{  flag cierr;
  ftnint ciunit;
  flag ciend;
  char *cifmt;
  ftnint cirec;
} cilist;
 
/*internal read, write*/
typedef struct
{  flag icierr;
  char *iciunit;
  flag iciend;
  char *icifmt;
  ftnint icirlen;
  ftnint icirnum;
} icilist;
 
/*open*/
typedef struct
{  flag oerr;
  ftnint ounit;
  char *ofnm;
  ftnlen ofnmlen;
  char *osta;
  char *oacc;
  char *ofm;
  ftnint orl;
  char *oblnk;
} olist;
 
/*close*/
typedef struct
{  flag cerr;
  ftnint cunit;
  char *csta;
} cllist;
 
/*rewind, backspace, endfile*/
typedef struct
{  flag aerr;
  ftnint aunit;
} alist;
 
/* inquire */
typedef struct
{  flag inerr;
  ftnint inunit;
  char *infile;
  ftnlen infilen;
  ftnint  *inex;  /*parameters in standard's order*/
  ftnint  *inopen;
  ftnint  *innum;
  ftnint  *innamed;
  char  *inname;
  ftnlen  innamlen;
  char  *inacc;
  ftnlen  inacclen;
  char  *inseq;
  ftnlen  inseqlen;
  char   *indir;
  ftnlen  indirlen;
  char  *infmt;
  ftnlen  infmtlen;
  char  *inform;
  ftnint  informlen;
  char  *inunf;
  ftnlen  inunflen;
  ftnint  *inrecl;
  ftnint  *innrec;
  char  *inblank;
  ftnlen  inblanklen;
} inlist;
 
#define VOID void
 
union Multitype {  /* for multiple entry points */
  integer1 g;
  shortint h;
  integer i;
  /* longint j; */
  real r;
  doublereal d;
  complex c;
  doublecomplex z;
  };
 
typedef union Multitype Multitype;
 
/*typedef long int Long;*/  /* No longer used; formerly in Namelist */
 
struct Vardesc {  /* for Namelist */
  char *name;
  char *addr;
  ftnlen *dims;
  int  type;
  };
typedef struct Vardesc Vardesc;
 
struct Namelist {
  char *name;
  Vardesc **vars;
  int nvars;
  };
typedef struct Namelist Namelist;
 
#define abs(x) ((x) >= 0 ? (x) : -(x))
#define dabs(x) (doublereal)abs(x)
#define min(a,b) ((a) <= (b) ? (a) : (b))
#define max(a,b) ((a) >= (b) ? (a) : (b))
#define dmin(a,b) (doublereal)min(a,b)
#define dmax(a,b) (doublereal)max(a,b)
#define bit_test(a,b)  ((a) >> (b) & 1)
#define bit_clear(a,b)  ((a) & ~((uinteger)1 << (b)))
#define bit_set(a,b)  ((a) |  ((uinteger)1 << (b)))
 
/* procedure parameter types for -A and -C++ */
 
#define F2C_proc_par_types 1
#ifdef __cplusplus
typedef int /* Unknown procedure type */ (*U_fp)(...);
typedef shortint (*J_fp)(...);
typedef integer (*I_fp)(...);
typedef real (*R_fp)(...);
typedef doublereal (*D_fp)(...), (*E_fp)(...);
typedef /* Complex */ VOID (*C_fp)(...);
typedef /* Double Complex */ VOID (*Z_fp)(...);
typedef logical (*L_fp)(...);
typedef shortlogical (*K_fp)(...);
typedef /* Character */ VOID (*H_fp)(...);
typedef /* Subroutine */ int (*S_fp)(...);
#else
typedef int /* Unknown procedure type */ (*U_fp)();
typedef shortint (*J_fp)();
typedef integer (*I_fp)();
typedef real (*R_fp)();
typedef doublereal (*D_fp)(), (*E_fp)();
typedef /* Complex */ VOID (*C_fp)();
typedef /* Double Complex */ VOID (*Z_fp)();
typedef logical (*L_fp)();
typedef shortlogical (*K_fp)();
typedef /* Character */ VOID (*H_fp)();
typedef /* Subroutine */ int (*S_fp)();
#endif
/* E_fp is for real functions when -R is not specified */
typedef VOID C_f;  /* complex function */
typedef VOID H_f;  /* character function */
typedef VOID Z_f;  /* double complex function */
typedef doublereal E_f;  /* real function with -R not specified */
 
/* undef any lower-case symbols that your C compiler predefines, e.g.: */
 
#ifndef Skip_f2c_Undefs
#undef cray
#undef gcos
#undef mc68010
#undef mc68020
#undef mips
#undef pdp11
#undef sgi
#undef sparc
#undef sun
#undef sun2
#undef sun3
#undef sun4
#undef u370
#undef u3b
#undef u3b2
#undef u3b5
#undef unix
#undef vax
#endif
#endif
 
// ------------------- end of f2c.h file --------------------------------
 
 
// ------------------ begin of Borysow N2N2 F77 code --------------------
 
 
/* n2n2tks.f -- translated by f2c (version 20010821).
   You must link the resulting object file with the libraries:
  -lf2c -lm   (in that order)
*/
 
/* Common Block Declarations */
 
struct s_blockin_ {
    double temp, fnumin, fnumax, dnu;
} blockin_;
 
#define blockin_1 blockin_
 
struct s_app3a_ {
    double slit, dx, wnrmax3;
} app3a_;
 
#define app3a_1 app3a_
 
struct s_app3b_ {
    int nsri, ns, nsriup;
} app3b_;
 
#define app3b_1 app3b_
 
struct s_rsilo_ {
    double rsilo[201];
} rsilo_;
 
#define rsilo_1 rsilo_
 
struct s_bou43_ {
    int initb;
} bou43_;
 
#define bou43_1 bou43_
 
union u_bba_ {
    struct s_m_1 {
  double omeg[201], rsi[201], rsigg[201], alfa;
    } m_1;
    struct s_m_2 {
  double omeg[201], rsi[201], rsigg[201], beta;
    } m_2;
} bba_;
 
#define bba_1 (bba_.m_1)
#define bba_2 (bba_.m_2)
 
struct s_bbc_ {
    int nsol;
} bbc_;
 
#define bbc_1 bbc_
 
struct s_bf_ {
    double g0bf, delbf, om0;
} bf_;
 
#define bf_1 bf_
 
struct like_1_ {
    int like;
    char lgas[5];
};
 
#define like_1 (*(struct like_1_ *) &like_)
 
struct s_k1k0_ {
    int ik1k0;
} k1k0_;
 
#define k1k0_1 k1k0_
 
struct s_bbb_ {
    int ibound;
} bbb_;
 
#define bbb_1 bbb_
 
struct energ_1_ {
    double eb[246]  /* was [41][6] */;
    int niv[6];
};
 
#define energ_1 (*(struct energ_1_ *) &energ_)
 
struct s_dimer_ {
    int nlines;
} dimer_;
 
#define dimer_1 dimer_
 
struct n2part_1_ {
    double q1, wn2[2], b01, d01;
    int jrange2;
};
struct n2part_2_ {
    double q, wn2[2], b0, d0;
    int jrange1;
};
 
#define n2part_1 (*(struct n2part_1_ *) &n2part_)
#define n2part_2 (*(struct n2part_2_ *) &n2part_)
 
union u_bl3_ {
    struct s_m_1 {
  double rsi[401];
    } m_1;
    struct s_m_2 {
  double rsibb[401];
    } m_2;
} bl3_;
 
#define bl3_1 (bl3_.m_1)
#define bl3_2 (bl3_.m_2)
 
union u_bbbb_ {
    struct s_m_1 {
  int idelv, iv, ivp, idell, il, ilp;
    } m_1;
    struct s_m_2 {
  int ldelvi, ivi, ivip, ldelel, ll, llp;
    } m_2;
} bbbb_;
 
#define bbbb_1 (bbbb_.m_1)
#define bbbb_2 (bbbb_.m_2)
 
/* Initialized data */
 
struct s_energe_ {
    double e_1[246];
    int e_2[6];
    } energ_ = { {-54.99996, -54.86228, -54.58697, -54.17413, -53.62391,
      -52.93648, -52.11211, -51.15108, -50.05374, -48.82049, -47.45179,
      -45.94815, -44.31014, -42.53841, -40.63365, -38.59665, -36.42824,
      -34.12937, -31.70105, -29.14439, -26.46061, -23.65103, -20.71709,
      -17.66041, -14.48271, -11.18593, -7.77221, -4.24393, -.60374,
      3.14531, 6.99978, 10.95566, 15.00818, 19.15136, 23.37787,
      27.67681, 32.03237, 36.42278, 40.83668, 45.29436, 49.79246,
      -31.89437, -31.77215, -31.52779, -31.16143, -30.67334, -30.06382,
      -29.33328, -28.48222, -27.51123, -26.42099, -25.21229, -23.88603,
      -22.44322, -20.88502, -19.21272, -17.42777, -15.53182, -13.52669,
      -11.41446, -9.1975, -6.87848, -4.46049, -1.94714, .65736, 3.34788,
       6.11816, 8.95978, 11.8613, 14.80383, 17.75924, 20.71774,
      23.71589, 0., 0., 0., 0., 0., 0., 0., 0., 0., -16.05019, -15.9464,
       -15.73896, -15.42815, -15.0144, -14.4983, -13.88057, -13.16213,
      -12.34407, -11.42771, -10.41455, -9.30639, -8.10531, -6.81376,
      -5.43459, -3.97121, -2.42768, -.80899, .87859, 2.62689, 4.42334,
      6.24733, 8.06983, 9.90464, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
       0., 0., 0., 0., 0., 0., 0., -6.49343, -6.41131, -6.24732,
      -6.00202, -5.67623, -5.27111, -4.78813, -4.22919, -3.59665,
      -2.89345, -2.12325, -1.29074, -.40202, .5345, 1.50455, 2.48212,
      3.46665, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
      0., 0., 0., 0., 0., 0., 0., 0., 0., 0., -1.76583, -1.70887,
      -1.59552, -1.427, -1.20523, -.93302, -.61434, -.25504, .13641, 0.,
       0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
      0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
      -.17133, -.14341, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
      0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
      0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.}, {41, 32, 24, 17, 9, 2} }
      ;
 
struct s_n2part_ {
    double fill_1[1];
    double e_2[4];
    int fill_3[1];
    } n2part_ = { {0}, {2., 1., 1.98957, 5.8e-6}, {0} };
 
struct s_like_ {
    int fill_1[1];
    char e_2[5];
    } like_ = { {0}, "N2N2" };
 
 
/* Table of constant values */
 
// FIXME static integer c__9 = 9;
// FIXME static integer c__1 = 1;
// FIXME static integer c__5 = 5;
static int cs__1 = 1;
static int cs__0 = 0;
static double c_b24 = 2.9723;
static double c_b25 = -.99569;
static double c_b26 = .09464;
static double c_b27 = 1.2962e-12;
static double c_b28 = -.13048;
static double c_b29 = -.03128;
static double c_b30 = 3.7969e-14;
static double c_b31 = 1.03681;
static double c_b32 = -.14336;
static int cs__2 = 2;
static int cs__3 = 3;
static double c_b43 = .180926;
static double c_b44 = -1.69153;
static double c_b45 = .18605;
static double c_b46 = .3;
static double c_b47 = 0.;
static double c_b49 = 6.6017e-16;
static double c_b50 = 2.59982;
static double c_b51 = -.31831;
static double c_b52 = 1.2481e-12;
static double c_b53 = -.57028;
static double c_b54 = .05983;
static double c_b55 = 5.2681e-13;
static double c_b56 = -.24719;
static double c_b57 = .00519;
static double c_b58 = 2.7518e15;
static double c_b59 = -25.38969;
static double c_b60 = 2.46542;
static int cs__4 = 4;
static int cs__5 = 5;
// FIXME static integer c__2 = 2;
static double c_b78 = .0825299;
static double c_b79 = -1.25562;
static double c_b80 = .12981;
static double c_b84 = 3.6611e-15;
static double c_b85 = 1.47688;
static double c_b86 = -.16537;
static double c_b87 = 6.1264e-10;
static double c_b88 = -2.25011;
static double c_b89 = .15289;
static double c_b90 = 7.982e-10;
static double c_b91 = -2.76152;
static double c_b92 = .21847;
static double c_b93 = 5.2868e-22;
static double c_b94 = 7.66253;
static double c_b95 = -.77527;
static double c_b112 = 119.261;
static double c_b113 = -3.78587;
static double c_b114 = .34024;
static double c_b115 = 9.3777e-12;
static double c_b116 = -.66548;
static double c_b117 = .0033;
static double c_b118 = 3.0395e-13;
static double c_b119 = .24728;
static double c_b120 = -.06607;
static double c_b183 = 1e-6;
static double c_b186 = 1.5;
 
#define temp (blockin_1.temp)
#define fnumin (blockin_1.fnumin)
#define fnumax (blockin_1.fnumax)
#define dnu (blockin_1.dnu)
#define slit (app3a_1.slit)
#define dx (app3a_1.dx)
#define rsilo (rsilo_1.rsilo)
#define omeg (bba_1.omeg)
#define rsi (bba_1.rsi)
#define rsigg (bba_1.rsigg)
#define nsol (bbc_1.nsol)
#define like (like_1.like)
#define ik1k0 (k1k0_1.ik1k0)
#define ibound (bbb_1.ibound)
 
/* TKS ****** SUBROUTINE N2N2TKS(T, F) ***************************************/
Numeric n2n2tks_(double t, double f)
{
    /* System generated locals */
    int s__1;
    double ret_val;
 
    /* Local variables */
    //double hexa[10], quad[10];
    double freq[10], e;
    int i__;
    double s, x, t1, t2, t3, t4;
    int ij, nf, jj;
    double rslow1, si;
    int nr;
    double ss[1], tt[2];
    extern /* Subroutine */ int bound32_(double *, double *, int
      *), bound54_(double *, double *, int *);
    //double tksabs[5];
    extern /* Subroutine */ int spline_(int *, int *, int *,
      double *, double *, double *, double *,
      double *, double *, int *, double *);
    double abscoef[10];
    //double dtrans[10];
    extern /* Subroutine */ int addspec_(double *, double *,
      double *, double *, double *, double *,
      double *, int *, double *, double *, int *,
      int *, int *, int *, int *, int *);
    double eps, alfatot[10];
    extern /* Subroutine */ int partsum_(double *);
 
/*     ========================================= */
/*     Copyright (C) Aleksandra Borysow, 1987) */
/*     ==================================================================== */
/*     PROGRAM PREPARED BY ALEKSANDRA BORYSOW (APRIL'1987) */
/*     (UNIVERSITY OF TEXAS AT AUSTIN, PHYSICS DEPARTMENT) */
/*     ORIGINAL VERSION: WRITTEN ON CYBER */
 
/*     PROGRAM GENERATES N2-N2 COLLISION-INDUCED SPECTRA AT */
/*     TEMPERATURES BETWEEN 50 TO 300 K. */
/*     CIA SPECTRA MODELED AFTER PAPER (*) */
/*     ALEKSANDRA BORYSOW AND LOTHAR FROMMHOLD, */
/*     ASTROPHYSICAL JOURNAL, VOL. 311, PAGES 1043-1057, (1986) */
 
/*     REVISED BY GLENN ORTON (1989) - TO WORK ON SUN WORKSTATIONS */
/*     AND ON THE VAX MACHINES (FORTRAN-77) */
/*     PASSES STANDARD TEST ON SUN, AT 200K (JULY 1992) */
/*     ==================================================================== */
 
/*     ALSO IN REVISION: DOUBLE PRECISION FOR ALL F.P. VARIABLES */
 
/*     ==================================================================== */
 
/*     HISTORY: */
 
/*     2001-02-28 THOMAS KUHN: */
/*     CHANGE OF LINES */
/*       RSILO(I)=DLOG(RSI(I)*1.E80) */
/*     TO */
/*       RSILO(I)=(DLOG(RSI(I))+80.0D0*DLOG(10.0D0)) */
/*     BECAUSE OF OVERFLOW PROBLEMS. */
/*     COSMETICS FOR THE CODE TO BE FASTER READABLE. */
/*     CHANGE OF OUTPUT FILE NAME. */
/*     CHANGE OF OUTPUT FILE CONTENT */
 
/*     ==================================================================== */
 
/* TKS*      IMPLICIT REAL*8 (A-H,O-Z) */
 
/* TKS  INPUT/OUTPUT VARIABLES */
/*      REAL T, F */
 
    //ret_val = 0.;
 
/*     TEMP   = TEMPERATURE IN KELVIN, SHOULD BE BETWEEN 50. AND 300. */
/*     FNUMIN = LOWEST FREQUENCY IN CM-1, FOR LISTING OF ALPHA(FNU) */
/*     FNUMAX = HIGHEST FREQUENCY IN CM-1, FOR LISTING OF ALPHA(FNU) */
/*     LINE SHAPE MODELLING WILL BE MOST ACCURATE WITHIN RANGE OF */
/*     R-T SPECTRAL INTENSITIES AS 1:100. */
/*     DNU    = FREQUENCY INCREMENT IN CM-1. DNU SHOULD BE CHOSEN SO */
/*              THAT NOT MORE THAN 10 STEPS ARE NEEDED TO GO FROM */
/*              FNUMIN TO FNUMAX (ELSE ARRAY DIMENSIONS OF FREQ,ABSCOEF */
/*              MUST BE ADJUSTED IN ADDEM). */
 
 
/*        USER: */
/*       ----- */
/*   EDIT ONLY HERE: TEMP (K), MIN. FREQ. (CM^-1)= FNUMIN, */
/*   MAX. FREQ. =  FNUMAX, STEP = DNU, SLITWIDTH (CM^-1)=SLIT */
/*   (SLIT=4.3 IS EQUIVALENT TO THAT OF VOYAGER SPECTRA, ONLY BOUND BOUND */
/*   SPECTRA ARE CONVOLUTED WITH THIS SLITWIDTH, THE FREE FREE SPECTRA */
/*   ARE FAR TOO BROAD FOR THE SLITWIDTH FUNCTION TO MATTER, */
/*   LEAVE LIKE = 1 (FOR LIKE PAIRS,  AS N2-N2) */
/*   THE PROGRAM WILL ASSUME EQUILIBRIUM N2, */
/*   ALLOWED TEMPERATURE RANGE: 50-300K (DO NOT  EXTEND IT BEYOND THESE LIMITS!) */
/*   IF QUESTIONS: CONTACT ABORYSOW@NBI.DK */
/* TKS*      NF=INT((FNUMAX-FNUMIN)/DNU+0.5)+1 */
/* TKS*      IF (NF.GT.10) NF=10 */
/* TKS*      FNUMAX=FNUMIN+FLOAT(NF-1)*DNU */
 
/* TKS  INPUT TEMPERATURE (K) CHECK OF RANGE */
    if (t < 50. || t > 300.) {
      ostringstream os;
      os  << "out of T range ( 50<T<300)! return without calc.!" <<"\n";
      throw runtime_error(os.str());
      goto L999;
    }
    temp = t;
 
/*     *********************** INPUT DATA FROM USER *********************** */
/*     FNUMIN = MINIMUM FREQENCY [CM^-1] */
    fnumin = f / 29979245800.;
/*     FNUMAX = MAXIMUM FREQENCY [CM^-1] */
    fnumax = fnumin;
/*     ONLY ONE FREQUENCY PER CALL */
    nf = 1;
/*     DEFAULT VALUE OF FREQUENCY STEP [CM^-1] */
    dnu = 10.;
/*     DEFAULT VALUE */
    like = 1;
/*     SLIT = SLITWIDTH [CM^-1] */
/*     SLIT=4.3 IS EQUIVALENT TO THAT OF VOYAGER SPECTRA, ONLY BOUND BOUND */
/*     SPECTRA ARE CONVOLUTED WITH THIS SLITWIDTH, THE FREE FREE SPECTRA */
/*     ARE FAR TOO BROAD FOR THE SLITWIDTH FUNCTION TO MATTER. */
    slit = 4.3;
/*     ******************************************************************** */
 
/* TKS*      WRITE (6,14) LGAS,TEMP,FNUMIN,FNUMAX,DNU,NF-1 */
/* TKS*14    FORMAT(' ABSORPTION SPECTRA OF ',A5,' AT',F8.1,' K'/ */
/* TKS*     $   1X,43(1H=),/ */
/* TKS*     1' MIN.FREQ.=',F8.1,' CM-1',10X,'MAX.FREQ.=',F8.1,' CM-1',10X, */
/* TKS*     2'FREQ.INCREMENT=',F8.2,' CM-1',5X,'IN',I5,' STEPS'//) */
 
 
    partsum_(&temp);
 
 
/*     THE N2-N2 SPECTRA   FOR 50-300K */
/*     ================================ */
 
    x = log(temp);
    s__1 = nf;
    for (i__ = 1; i__ <= s__1; ++i__) {
/*         FREQ(I)=FNUMIN+FLOAT(I-1)*DNU */
  freq[i__ - 1] = fnumin;
  alfatot[i__ - 1] = 0.;
/* L10: */
  abscoef[i__ - 1] = 0.;
    }
 
 
/*    ==================================================================== */
 
 
    jj = 1;
L442:
/* L1023: */
    ++jj;
    if (jj == 42) {
  goto L444;
    }
    goto L442;
/*     EB(JJ,IV) JJ-ROTATIONAL LEVEL "L", IV- VIBRATIONAL LEVEL "V"; */
L444:
 
 
 
/*     ==================================================================== */
 
/*     QUADRUPOLAR INDUCTION: (50-300K) LAMBDA1,LAMBDA2,LAMBDA,L=2023&0223 */
/*     ------------------------------------------------------------------- */
 
    eps = 1e-5;
    tt[0] = 10.;
    bound32_(&temp, rsi, &nsol);
    ij = 0;
    rslow1 = 0.;
    s__1 = nsol;
    for (i__ = 1; i__ <= s__1; ++i__) {
  ++ij;
/*        MOD CAN BE ONLY 0 OR 1 OR 2 */
  if (ij % 3 == 0) {
      rslow1 = 1.5e-60;
  }
  if (ij % 3 == 1) {
      rslow1 = 1.7e-60;
  }
  if (ij % 3 == 2) {
      rslow1 = 1.6e-60;
  }
  if (rsi[i__ - 1] < 1e-60) {
      rsi[i__ - 1] = rslow1;
  }
/* TKS*      RSILO(I)=DLOG(RSI(I)*1.D80) */
  rsilo[i__ - 1] = log(rsi[i__ - 1]) + log(10.) * 80.;
  omeg[i__ - 1] = (double) (i__ - 1) * dx;
/* L88: */
    }
 
/* L9991: */
 
    spline_(&nsol, &cs__1, &cs__0, &eps, omeg, rsilo, tt, ss, &si, &nr, rsigg)
      ;
 
    ik1k0 = 1;
    ibound = 1;
/*       B-C LINESHAPE HERE */
/*       THESE VALUES (S,T1,T2) REPLACE VALUES GIVEN IN PAPER (*): */
/*       PUBLISHED IN AN ERRATUM, ASTROPHYSICAL JOURNAL, VOL.320, P.437 */
/*       (1987) */
    s = c_b24 * exp((c_b26 * x + c_b25) * x);
    t1 = c_b27 * exp((c_b29 * x + c_b28) * x);
    t2 = c_b30 * exp((c_b32 * x + c_b31) * x);
    e = 0.;
    t3 = 0.;
    t4 = 0.;
 
    addspec_(&s, &e, &t1, &t2, &t3, &t4, &temp, &nf, freq, abscoef, &cs__0, &
      like, &cs__2, &cs__0, &cs__2, &cs__3);
    s__1 = nf;
    for (i__ = 1; i__ <= s__1; ++i__) {
  //quad[i__ - 1] = abscoef[i__ - 1];
/* L20: */
  alfatot[i__ - 1] = abscoef[i__ - 1] + alfatot[i__ - 1];
    }
 
 
 
/*     ==================================================================== */
 
/*     HEXADECAPOLE COMPONENTS: LAMBDA1,LAMBDA2,LAMBDA,L=4045&0445 */
/*     ----------------------------------------------------------- */
 
    bound54_(&temp, rsi, &nsol);
    ij = 0;
    s__1 = nsol;
    for (i__ = 1; i__ <= s__1; ++i__) {
  ++ij;
/*     MOD CAN BE ONLY 0 OR 1 OR 2 */
  if (ij % 3 == 0) {
      rslow1 = 1.5e-60;
  }
  if (ij % 3 == 1) {
      rslow1 = 1.7e-60;
  }
  if (ij % 3 == 2) {
      rslow1 = 1.6e-60;
  }
  if (rsi[i__ - 1] < 1e-60) {
      rsi[i__ - 1] = rslow1;
  }
/* TKS         RSILO(I)=DLOG(RSI(I)*1.E80) */
  rsilo[i__ - 1] = log(rsi[i__ - 1]) + log(10.) * 80.;
/* L111: */
  omeg[i__ - 1] = (double) (i__ - 1) * dx;
    }
    spline_(&nsol, &cs__1, &cs__0, &eps, omeg, rsilo, tt, ss, &si, &nr, rsigg)
      ;
 
/*     --------------------------- */
/*       TEMPERATURES 50-140K */
/*     --------------------------- */
 
    if (temp >= 140.) {
  goto L333;
    }
 
    s = c_b43 * exp((c_b45 * x + c_b44) * x);
    e = c_b46 * exp((c_b47 * x + c_b47) * x);
    t1 = c_b49 * exp((c_b51 * x + c_b50) * x);
    t2 = c_b52 * exp((c_b54 * x + c_b53) * x);
    t3 = c_b55 * exp((c_b57 * x + c_b56) * x);
    t4 = c_b58 * exp((c_b60 * x + c_b59) * x);
 
    ik1k0 = 0;
    ibound = 1;
    addspec_(&s, &e, &t1, &t2, &t3, &t4, &temp, &nf, freq, abscoef, &cs__0, &
      like, &cs__4, &cs__0, &cs__4, &cs__5);
    s__1 = nf;
    for (i__ = 1; i__ <= s__1; ++i__) {
    //hexa[i__ - 1] = abscoef[i__ - 1];
  /*
    s_wsle(&io___25);
    do_lio(&c__9, &c__1, " T=50-140K: HEXA(", (ftnlen)17);
    do_lio(&c__2, &c__1, (char *)&i__, (ftnlen)sizeof(int));
    do_lio(&c__9, &c__1, ") =", (ftnlen)3);
    do_lio(&c__5, &c__1, (char *)&abscoef[i__ - 1], (ftnlen)sizeof(
    double));
    e_wsle();
  */
/* L50: */
  alfatot[i__ - 1] += abscoef[i__ - 1];
    }
    goto L334;
 
/*     --------------------------- */
/*       TEMPERATURES 140-300K */
/*     --------------------------- */
 
L333:
    ik1k0 = 0;
    ibound = 1;
    s = c_b78 * exp((c_b80 * x + c_b79) * x);
    e = c_b46 * exp((c_b47 * x + c_b47) * x);
    t1 = c_b84 * exp((c_b86 * x + c_b85) * x);
    t2 = c_b87 * exp((c_b89 * x + c_b88) * x);
    t3 = c_b90 * exp((c_b92 * x + c_b91) * x);
    t4 = c_b93 * exp((c_b95 * x + c_b94) * x);
 
    addspec_(&s, &e, &t1, &t2, &t3, &t4, &temp, &nf, freq, abscoef, &cs__0, &
      like, &cs__4, &cs__0, &cs__4, &cs__5);
    s__1 = nf;
    for (i__ = 1; i__ <= s__1; ++i__) {
  //hexa[i__ - 1] = abscoef[i__ - 1];
  /*
    s_wsle(&io___26);
    do_lio(&c__9, &c__1, " T=140-300K: HEXA(", (ftnlen)18);
    do_lio(&c__2, &c__1, (char *)&i__, (ftnlen)sizeof(int));
    do_lio(&c__9, &c__1, ") =", (ftnlen)3);
    do_lio(&c__5, &c__1, (char *)&abscoef[i__ - 1], (ftnlen)sizeof(
    double));
    e_wsle();
  */
/* L550: */
  alfatot[i__ - 1] += abscoef[i__ - 1];
    }
 
/*     ==================================================================== */
 
/*     DOUBLE TRANSITIONS: LAMBDA1,LAMBDA2,LAMBDA,L=2,2,3,3 */
/*     ---------------------------------------------------- */
 
/*     --------------------------- */
/*       TEMPERATURES 50-300K */
/*     --------------------------- */
 
L334:
    ik1k0 = 1;
    ibound = 0;
/* X        S=Y(X,1.19261D-58, -3.78587,0.34024) */
    s = c_b112 * exp((c_b114 * x + c_b113) * x);
    t1 = c_b115 * exp((c_b117 * x + c_b116) * x);
    t2 = c_b118 * exp((c_b120 * x + c_b119) * x);
    t3 = 0.;
    t4 = 0.;
    addspec_(&s, &e, &t1, &t2, &t3, &t4, &temp, &nf, freq, abscoef, &cs__0, &
      like, &cs__2, &cs__2, &cs__3, &cs__3);
    s__1 = nf;
    for (i__ = 1; i__ <= s__1; ++i__) {
  //dtrans[i__ - 1] = abscoef[i__ - 1];
/* L650: */
  alfatot[i__ - 1] += abscoef[i__ - 1];
    }
 
/*     ==================================================================== */
 
/*     ANISOTROPIC OVERLAP NEGLECTED (LAMBDA1,LAMBDA2,LAMBDA,L=0212) */
/*     SINCE THIS TERM IS EXTREMELY SMALL */
 
/*     ==================================================================== */
 
/* TKS*      PRINT 154, FREQ(1),FREQ(NF),FREQ(2)-FREQ(1),TEMP */
/* TKS*      PRINT 156, (ALFATOT(I),I=1,NF) */
/* TKS*154   FORMAT(///' ABSORPTION COEFFICIENT ALPHA(FNU), FROM ',F5.1, */
/* TKS*     $' CM-1 TO',F7.1,' CM-1, AT',F6.2,' CM-1 INCREMENTS, AT T=', */
/* TKS*     $F7.2,' K, IN UNITS OF CM-1 AMAGAT-2'/) */
/* TKS*156   FORMAT(' ',10D13.5) */
/* TKS*  OPEN(UNIT=10, FILE='OUT', STATUS='UNKNOWN') */
/* TKS*  WRITE(10, 2929) (FREQ(I), ALFATOT(I), I=1, NF) */
/* TKS*C  WRITE(10, 2929) (FREQ(I), QUAD(I), HEXA(I) ALFATOT(I), I=1, NF) */
/* TKS*2929  FORMAT(F10.3, E12.4) */
 
/* TKS*      STOP */
 
 
 
/* TKS FILL OUTPUT VARIABLE */
//    tksabs[0] = quad[0];
//    tksabs[1] = hexa[0];
//    tksabs[2] = dtrans[0];
//    tksabs[3] = alfatot[0];
    ret_val = alfatot[0];
/* TKS      print*,'QUAD(1),HEXA(1),DTRANS(1)=',QUAD(1),HEXA(1),DTRANS(1) */
L999:
    return ret_val;
} /* n2n2tks_ */
 
#undef temp
#undef fnumin
#undef fnumax
#undef dnu
#undef slit
#undef dx
#undef rsilo
#undef omeg
#undef rsi
#undef rsigg
#undef nsol
#undef like
#undef ik1k0
#undef ibound
 
#define wnrmax3 (app3a_1.wnrmax3)
#define rsilo (rsilo_1.rsilo)
#define omeg (bba_2.omeg)
#define rsigg (bba_2.rsigg)
#define beta (bba_2.beta)
#define nsol (bbc_1.nsol)
#define ibound (bbb_1.ibound)
#define q1 (n2part_1.q1)
#define wn2 (n2part_1.wn2)
#define b01 (n2part_1.b01)
#define d01 (n2part_1.d01)
#define jrange2 (n2part_1.jrange2)
 
 
 
/* ########################################################################## */
 
 
/* Subroutine */ int addspec_(double *g0, double *ep, double *
  tau1, double *tau2, double *tau5, double *tau6,
  double *temp, int *nf, double *freq, double *abscoef,
   int * /* mp */, int *like, int *lambda1, int *lambda2,
  int *lambda, int * /* lvalue */)
{
    /* Initialized data */
 
    static double closchm = 2.68675484e19;
    static double boltzwn = .6950304;
    static double hbar = 1.054588757e-27;
    static double pi = 3.1415926535898;
    static double clight = 2.997925e10;
 
    /* Format strings */
    /*
    static char fmt_20[] = "(/\002 LAMBDA1,LAMBDA2, LAMBDA,LVALUE=\002,2i3,2"
      "x,2i3,\002 COMPONENT.\002/15x,\002LINE SHAPE PARAMETERS:\002,6d1"
      "2.3,5x,\002G(0)=\002,d12.3/)";
    */
 
    /* System generated locals */
    int s__1, s__2, s__3, s__4, s__5, s__6;
    double d__1, d__2;
 
    /* Builtin functions */
    /*
    integer s_wsfe(cilist *), do_fio(integer *, char *, ftnlen), e_wsfe(void),
       s_wsle(cilist *), do_lio(integer *, integer *, char *, ftnlen),
      e_wsle(void);
    */
 
    /* Local variables */
    int list, jsum = 0;
    extern double bgama_(double *, double *, double *,
      double *, double *, double *, double *);
    int i__, j;
    double calib, p;
    int i1, j1, i2, j2;
    double p1, p2, omega1, omega2;
    int ip, jp, iq;
    double twopic;
    int jplusl, ip1, jp1, ip2, jp2;
    double fac, cgs, xbg, wkf, frq, wki;
    extern double specfct_(double *, double *, double *,
      double *, int *, double *), clebsqr_(int *,
      int *, int *);
    double cg1s, cg2s;
 
    /* Fortran I/O blocks */
    /*
    static cilist io___38 = { 0, 6, 0, fmt_20, 0 };
    static cilist io___40 = { 0, 6, 0, 0, 0 };
    */
 
 
/*     THIS PROGRAM GENERATES LISTING OF R-T CIA  ALFA(OMEGA) */
/*     IF EITHER LAMBDA1 OR LAMBDA2 EQUAL TO ZERO - SINGLE TRANSITIONS; */
/*     DOUBLE TRANSITIONS ARE ASSUMED OTHERWISE. */
/*     LIKE=1 FOR LIKE SYSTEMS (AS H2-H2), SET LIKE=0 ELSE. */
 
/*     COMMON/BB/OMEG(201),RSI(201),RSIGG(201),NSOL,BETA */
/*     COMMON/APP3/SLIT,DX,NSRI,WNRMAX3,NS,NSRIUP */
/*     DIMENSION ABSCOEF(NF),FREQ(NF) */
    /* Parameter adjustments */
    --abscoef;
    --freq;
 
    /* Function Body */
 
    twopic = 2. * pi * clight;
    if (*like != 1) {
  *like = 0;
    }
/*        TAKE CARE OF FACTOR OF 1.E-60 HERE. */
/* Computing 2nd power */
    d__1 = pi;
/* Computing 2nd power */
    d__2 = closchm * 1e-30;
    calib = twopic * (d__1 * d__1 * 4. / (hbar * 3. * clight)) * (d__2 * d__2)
      ;
    calib /= (double) (*like + 1);
    beta = 1. / (boltzwn * *temp);
    list = *nf;
    s__1 = list;
    for (i__ = 1; i__ <= s__1; ++i__) {
/* L88: */
  abscoef[i__] = 0.;
    }
 
/*     ROTATIONAL SPECTRUM FOR THE DETAILED LISTING   ******************* */
    /*
      s_wsfe(&io___38);
      do_fio(&c__1, (char *)&(*lambda1), (ftnlen)sizeof(int));
      do_fio(&c__1, (char *)&(*lambda2), (ftnlen)sizeof(int));
      do_fio(&c__1, (char *)&(*lambda), (ftnlen)sizeof(int));
      do_fio(&c__1, (char *)&(*lvalue), (ftnlen)sizeof(int));
      do_fio(&c__1, (char *)&(*g0), (ftnlen)sizeof(double));
      do_fio(&c__1, (char *)&(*ep), (ftnlen)sizeof(double));
      do_fio(&c__1, (char *)&(*tau1), (ftnlen)sizeof(double));
      do_fio(&c__1, (char *)&(*tau2), (ftnlen)sizeof(double));
      do_fio(&c__1, (char *)&(*tau5), (ftnlen)sizeof(double));
      do_fio(&c__1, (char *)&(*tau6), (ftnlen)sizeof(double));
      d__1 = *g0 * bgama_(&c_b47, tau1, tau2, ep, tau5, tau6, temp);
      do_fio(&c__1, (char *)&d__1, (ftnlen)sizeof(double));
      e_wsfe();
    */
    if (*lambda1 == 0 || *lambda2 == 0) {
  goto L152;
    }
    jplusl = jrange2 + max(*lambda1,*lambda2);
 
    /*
      s_wsle(&io___40);
      do_lio(&c__9, &c__1, "LAMBDA1,LAMBDA2,ABSCOEF(1)=", (ftnlen)27);
      do_lio(&c__2, &c__1, (char *)&(*lambda1), (ftnlen)sizeof(int));
      do_lio(&c__2, &c__1, (char *)&(*lambda2), (ftnlen)sizeof(int));
      do_lio(&c__5, &c__1, (char *)&abscoef[1], (ftnlen)sizeof(double));
      e_wsle();
    */
    jsum = 0;
    s__1 = jrange2;
    for (i1 = 1; i1 <= s__1; ++i1) {
  j1 = i1 - 1;
  s__2 = jplusl;
  for (ip1 = 1; ip1 <= s__2; ++ip1) {
      jp1 = ip1 - 1;
      cg1s = clebsqr_(&j1, lambda1, &jp1);
      if (cg1s <= 0.) {
    goto L150;
      } else {
    goto L130;
      }
L130:
      s__3 = j1 * (j1 + 1);
      p1 = (double) (2 * j1 + 1) * wn2[1 + j1 % 2 - 1] * exp(
        -1.4387859 / *temp * ((b01 - (double) s__3 * d01) * (
        double) s__3)) / q1;
      ++jsum;
      s__3 = jp1 * ip1;
      s__4 = j1 * i1;
      omega1 = (b01 - (double) s__3 * d01) * (double) s__3 - (
        b01 - (double) s__4 * d01) * (double) s__4;
      s__3 = jrange2;
      for (i2 = 1; i2 <= s__3; ++i2) {
    j2 = i2 - 1;
    s__4 = jplusl;
    for (ip2 = 1; ip2 <= s__4; ++ip2) {
        jp2 = ip2 - 1;
        cg2s = clebsqr_(&j2, lambda2, &jp2);
        if (cg2s <= 0.) {
      goto L148;
        } else {
      goto L132;
        }
L132:
        s__5 = j2 * (j2 + 1);
        p2 = (double) (2 * j2 + 1) * wn2[1 + j2 % 2 - 1] *
          exp(-1.4387859 / *temp * ((b01 - (double)
          s__5 * d01) * (double) s__5)) / q1;
        s__5 = jp2 * ip2;
        s__6 = j2 * i2;
        omega2 = (b01 - (double) s__5 * d01) * (double)
          s__5 - (b01 - (double) s__6 * d01) * (
          double) s__6;
        fac = calib * p1 * p2 * cg1s * cg2s;
        s__5 = list;
        for (i__ = 1; i__ <= s__5; ++i__) {
      frq = freq[i__] - omega1 - omega2;
      wki = freq[i__] * (1. - exp(-beta * freq[i__]));
      wkf = wki * fac;
      xbg = *g0 * bgama_(&frq, tau1, tau2, ep, tau5, tau6,
        temp);
      if (ibound == 0) {
          goto L555;
      }
      if (abs(frq) <= wnrmax3) {
          xbg += specfct_(&frq, omeg, rsilo, rsigg, &nsol, &
            beta);
      }
L555:
      abscoef[i__] += xbg * wkf;
/* L146: */
        }
L148:
        ;
    }
      }
L150:
      ;
  }
    }
    goto L2222;
/*     SINGLE TRANSITIONS AT NITROGEN'S ROTATIONAL FREQUENCIES */
/*     ======================================================= */
L152:
    jplusl = jrange2 + *lambda;
    s__2 = jrange2;
    for (i__ = 1; i__ <= s__2; ++i__) {
  j = i__ - 1;
  s__1 = jplusl;
  for (ip = 1; ip <= s__1; ++ip) {
      jp = ip - 1;
      cgs = clebsqr_(&j, lambda, &jp);
      if (cgs <= 0.) {
    goto L200;
      } else {
    goto L210;
      }
L210:
      s__4 = j * (j + 1);
      p = (double) (2 * j + 1) * wn2[1 + j % 2 - 1] * exp(
        -1.4387859 / *temp * ((b01 - (double) s__4 * d01) * (
        double) s__4)) / q1;
      ++jsum;
      s__4 = jp * ip;
      s__3 = j * i__;
      omega1 = (b01 - (double) s__4 * d01) * (double) s__4 - (
        b01 - (double) s__3 * d01) * (double) s__3;
      fac = calib * p * cgs;
      s__4 = list;
      for (iq = 1; iq <= s__4; ++iq) {
    frq = freq[iq] - omega1;
/*               XWKI=FREQ(IQ)*(1.-EXP(-BETA*FREQ(IQ))) */
    wki = freq[iq] * (1. - exp(-beta * freq[iq]));
    wkf = wki * fac;
    xbg = *g0 * bgama_(&frq, tau1, tau2, ep, tau5, tau6, temp);
    if (ibound == 0) {
        goto L444;
    }
    if (abs(frq) <= wnrmax3) {
        xbg += specfct_(&frq, omeg, rsilo, rsigg, &nsol, &beta);
    }
L444:
    abscoef[iq] += xbg * wkf;
/* L199: */
      }
L200:
      ;
  }
    }
 
L2222:
/* TKS 2222   PRINT 44,(ABSCOEF(I),I=1,LIST) */
/* L44: */
    return 0;
} /* addspec_ */
 
#undef wnrmax3
#undef rsilo
#undef omeg
#undef rsigg
#undef beta
#undef nsol
#undef ibound
#undef q1
#undef wn2
#undef b01
#undef d01
#undef jrange2
 
#define q (n2part_2.q)
#define wn2 (n2part_2.wn2)
#define b0 (n2part_2.b0)
#define d0 (n2part_2.d0)
#define jrange1 (n2part_2.jrange1)
 
/* Subroutine */ int partsum_(double *temp)
{
    /* System generated locals */
    int s__1;
 
    /* Local variables */
    int j;
    double dq;
 
/*     N2 ROTATIONAL PARTITION SUM Q = Q(T). */
 
 
 
/*     Q,B0,D0,WN2 - PARTITION FCT., ROT.CONSTANTS, WEIGHTS FOR N2 */
    q = 0.;
    j = 0;
L50:
    s__1 = j * (j + 1);
    dq = (double) (2 * j + 1) * wn2[1 + j % 2 - 1] * exp(-1.4387859 * ((
      b0 - (double) s__1 * d0) * (double) s__1) / *temp);
    q += dq;
    ++j;
    if (dq > q / 900.) {
  goto L50;
    }
    jrange1 = j;
/* TKS      PRINT 30, Q, JRANGE1 */
 
/* L30: */
    return 0;
} /* partsum_ */
 
#undef q
#undef wn2
#undef b0
#undef d0
#undef jrange1
 
#define slit (app3a_1.slit)
#define dx (app3a_1.dx)
#define wnrmax3 (app3a_1.wnrmax3)
#define nsri (app3b_1.nsri)
#define ns (app3b_1.ns)
#define nsriup (app3b_1.nsriup)
#define rsi (bl3_1.rsi)
 
/* Subroutine */ int profile_(double *x, double *y)
{
    /* System generated locals */
    int s__1;
 
    /* Local variables */
    int i__;
    double slope;
    int n1;
    double x0;
    int nc;
    double dr;
    int no;
    double xi;
    int nu;
 
/*     A TRIANGULAR SLIT FUNCTION IS USED. */
 
 
/*     COMMON/APP3/SLIT,DX,NSRI,WNRMAX3,NS,NSRIUP */
 
    if (*y < 0.) {
  goto L105;
    } else if (*y == 0) {
  goto L106;
    } else {
  goto L1;
    }
L1:
    x0 = nsri + 1. + *x / dx;
    nc = (int) x0;
    n1 = nc + 1;
    slope = *y / slit;
    nu = (int) (x0 - ns);
    if (nu < 1) {
  nu = 1;
    }
    if (nu > nsriup) {
  return 0;
    }
    no = (int) (x0 + ns);
    if (no > nsriup) {
  no = nsriup;
    }
    if (no < 1) {
  return 0;
    }
    if (nc > nsriup) {
  nc = nsriup;
    }
    if (nc <= 1) {
  goto L101;
    }
    s__1 = nc;
    for (i__ = nu; i__ <= s__1; ++i__) {
  xi = (i__ - 1.) * dx - wnrmax3;
  dr = slope * (xi - (*x - slit));
  if (dr <= 0.) {
      goto L100;
  }
  rsi[i__ - 1] += dr;
L100:
  ;
    }
L101:
 
    if (nc >= nsriup) {
  return 0;
    }
    if (n1 < 1) {
  n1 = 1;
    }
    s__1 = no;
    for (i__ = n1; i__ <= s__1; ++i__) {
  xi = (i__ - 1.) * dx - wnrmax3;
  dr = *y - slope * (xi - *x);
  if (dr <= 0.) {
      goto L102;
  }
  rsi[i__ - 1] += dr;
L102:
  ;
    }
    return 0;
L105:
/* TKS  105 PRINT 10,SLIT */
/* TKS   10 FORMAT(/' A TRIANGULAR SLIT FUNCTION OF',F6.3,' CM-1 HALFWIDTH IS */
/* TKS     ' USED'/) */
L106:
    return 0;
} /* profile_ */
 
#undef slit
#undef dx
#undef wnrmax3
#undef nsri
#undef ns
#undef nsriup
#undef rsi
 
 
/* X    FUNCTION SPECFCT(FREQ,OMEGA,PHI,PHI2,N,RTEMP) */
 
double specfct_(double *freq, double *omega, double *phi,
  double *phi2, int *n, double *rtemp)
{
    /* System generated locals */
    double ret_val;
 
    /* Local variables */
    double tfac, f, gp, si;
    int nr;
    extern /* Subroutine */ int ixpolat_(int *, int *, int *,
      double *, double *, double *, double *,
      double *, double *, int *, double *);
 
 
/*     THIS INTERPOLATES THE SPECTRAL FUNCTION PHI(FREQ) DEFINED AT */
/*     OMEGA(N) AS PHI(N). PHI2 IS THE SECOND DERIVATIVE AT OMEGA */
/*     WHICH MUST BE OBTAINED FIRST (USE SPLINE FOR THAT PURPOSE). */
/*     RTEMP IS THE RECIPROCAL TEMPERATURE IN CM-1 UNITS. */
/*     NOTE THAT WE INTERPOLATE 1.E80 TIMES THE LOGARITHM OF PHI(OMEGA) */
/*     NOTE THAT IN GSO'S REVISION, THIS FACTOR IS REMOVED. */
/*     (REVISION MODIFIED) */
 
 
 
/*      PRINT*,'FREQ =',FREQ */
/*      PRINT*,'OMEGA=',OMEGA */
/*      PRINT*,'RTEMP=',RTEMP */
/*      PRINT*,'PHI  =',PHI */
/*      PRINT*,'PHI2 =',PHI2 */
    /* Parameter adjustments */
    --phi2;
    --phi;
    --omega;
 
    /* Function Body */
    tfac = 0.;
    f = *freq;
    if (f >= 0.) {
  goto L20;
    } else {
  goto L10;
    }
L10:
    f = abs(f);
    tfac = -(*rtemp) * f;
L20:
    if (f <= omega[*n]) {
  goto L30;
    }
    ret_val = exp(-(phi[*n - 1] - phi[*n]) * (f - omega[*n]) / (omega[*n] -
      omega[*n - 1]) + phi[*n] + tfac) * 1e-80;
/*      print*,' (A) SPECFCT=',SPECFCT */
/* X    SPECFCT=DEXP(-(PHI(N-1)-PHI(N))*(F-OMEGA(N))/ */
/* X   $(OMEGA(N)-OMEGA(N-1))+PHI(N)+TFAC) */
    return ret_val;
/* 30   PRINT*,'SI,NR,PHI2=', */
/*     &        SI,NR,PHI2 */
/*      CALL IXPOLAT(N,1,0,1.D-6,OMEGA,PHI,F,GP,SI,NR,PHI2) */
L30:
    ixpolat_(n, &cs__1, &cs__0, &c_b183, &omega[1], &phi[1], &f, &gp, &si, &
      nr, &phi2[1]);
    ret_val = exp(tfac + gp) * 1e-80;
/* X    SPECFCT=DEXP(TFAC+GP) */
/*      print*,' (B) GP,SPECFCT=',GP,SPECFCT */
 
    return ret_val;
} /* specfct_ */
#define slit (app3a_1.slit)
#define dx (app3a_1.dx)
#define wnrmax3 (app3a_1.wnrmax3)
#define nsri (app3b_1.nsri)
#define ns (app3b_1.ns)
#define nsriup (app3b_1.nsriup)
#define eb (energ_1.eb)
#define niv (energ_1.niv)
#define nlines (dimer_1.nlines)
#define rsibb (bl3_2.rsibb)
#define ldelvi (bbbb_2.ldelvi)
#define ivi (bbbb_2.ivi)
#define ivip (bbbb_2.ivip)
#define ldelel (bbbb_2.ldelel)
#define ll (bbbb_2.ll)
#define llp (bbbb_2.llp)
 
/* Subroutine */ int bound32_(double *temp, double *rsi, int *
  nsol)
{
    /* Initialized data */
 
    static int ldelvis[63] = { 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,
      1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3,3,3,3,3,3,3,3,3,3,3,3,
      3,4,4,4,4,4,4,4,4 };
    static int ivis[63] = { 0,0,1,1,2,2,3,3,4,4,0,0,0,0,1,1,1,1,2,2,2,2,
      3,3,3,3,0,0,0,0,1,1,1,1,2,2,2,2,3,3,3,3,0,1,2,0,1,2,0,1,0,1,0,1,2,
      0,1,0,1,0,1,0,1 };
    static int ivips[63] = { 0,0,1,1,2,2,3,3,4,4,1,1,1,1,2,2,2,2,3,3,3,3,
      4,4,4,4,2,2,2,2,3,3,3,3,4,4,4,4,5,5,5,5,3,4,5,3,4,5,3,4,3,4,3,4,5,
      4,5,4,5,4,5,4,5 };
    static int ldelels[63] = { 1,3,1,3,1,3,1,3,1,3,-3,-1,1,3,-3,-1,1,3,
      -3,-1,1,3,3,1,-1,-3,-3,-1,1,3,-3,-1,1,3,-3,-1,1,3,-1,-3,1,3,1,1,1,
      -1,-1,-1,-3,-3,3,3,-3,-3,-3,-3,-3,3,3,1,1,-1,-1 };
    static double as[63] = { 4.4844e-40,4.4356e-40,2.9345e-40,2.885e-40,
      1.6441e-40,1.5899e-40,7.2882e-41,6.7748e-41,1.0378e-41,1.3041e-42,
      1.5006e-41,1.537e-41,1.6139e-41,1.7143e-41,1.9985e-41,2.0169e-41,
      2.0994e-41,2.2094e-41,1.636e-41,1.6281e-41,1.6714e-41,1.7326e-41,
      8.0425e-42,8.0862e-42,8.0093e-42,8.1366e-42,2.4471e-42,2.5406e-42,
      2.6629e-42,2.8064e-42,4.6227e-42,4.715e-42,4.8513e-42,5.0133e-42,
      3.9968e-42,3.984e-42,3.981e-42,3.9687e-42,1.1806e-42,1.3458e-42,
      3.8746e-42,3.9219e-42,7.3334e-43,1.339e-42,1.3041e-42,7.1401e-43,
      1.3461e-42,6.5776e-43,6.9847e-43,1.3517e-42,7.5545e-43,1.3268e-42,
      6.9847e-43,1.3517e-42,7.464e-43,2.1322e-43,2.6037e-43,2.0823e-43,
      2.0632e-43,2.1067e-43,2.0531e-43,2.1218e-43,2.3006e-43 };
    static double bs[63] = { 4.3e-4,4.6e-4,8.3e-4,8.9e-4,.0017,.00186,
      .0041,.00457,0.,0.,9.99e-4,5.23e-4,1.49e-4,-1.68e-4,.001837,
      .001153,6.6e-4,2.54e-4,.003603,.002677,.002101,.001738,.00595,
      .006843,0.,.007035,.001025,6.42e-4,2.54e-4,-1.64e-4,.002342,
      .001975,.00164,.001328,.004943,.004999,.005461,.006839,0.,.010993,
      0.,0.,.001367,.005262,0.,.001601,.00451,0.,.001828,.004175,.04816,
      .007033,.001828,.004175,.009338,.003733,.008508,.006979,0.,
      .005035,0.,.004169,0. };
    static double twopic = 1.88365183e11;
    static double pi = 3.141592654;
 
    /* System generated locals */
    int s__1;
    double d__1;
 
    /* Local variables */
    double alfa;
    int nnii;
    //int nsol2;
    double a, b;
    int i__, l, n;
    double stoke, stoki, am, pf;
    int lp;
    double rm;
    int nr, iv;
    double stokip;
    int ivp;
    extern double clebsqr_(int *, int *, int *);
    extern /* Subroutine */ int profile_(double *, double *);
 
 
#define eb_ref(a_1,a_2) eb[(a_2)*41 + a_1 - 42]
 
 
 
/*     COMMON/APP3/SLIT,DX,NSRI,WNRMAX3,NS,NSRIUP */
 
 
/*          STORED VALUES */
    /* Parameter adjustments */
    --rsi;
 
    /* Function Body */
 
 
/*     EB(I,K) - BOUND ENERGIES */
/*     AM =  (MTX.EL. (L,BETA,L') )**2 */
/*     M(L,L',V,V') OF PAPER (*) ARE TO BE CORRECTED: */
/*     M(L,L',V,V') = AM * (2L+1) * C(L,3,L')**2 */
/*     NSRI - HOW MANY POINTS FOR B-B SPECTRAL FUNCTION TO BE GIVEN */
/*     WNRMAX3 - THE FREQUENCY RANGE OF B-B CONTRIBUTION */
/*     SLIT- THE HALFWIDTH OF THE SPECTRAL PROFILE CONVOLUTED WITH */
/*     B-B SPECTRUM, IN [CM-1]. */
/*       A,B, COEFFICIENTS , EQ. 7, A.BORYSOW, L.FROMMHOLD, */
/*       AP. J. VOL.311, 1043-1057, (1986) */
 
    nsri = 190;
    wnrmax3 = 45.;
    nsriup = (nsri << 1) + 1;
    dx = wnrmax3 / (double) nsri;
    ns = (int) (slit / dx);
 
    for (i__ = 1; i__ <= 401; ++i__) {
/* L300: */
  rsibb[i__ - 1] = 0.;
    }
 
    alfa = 1. / (*temp * .69519);
    rm = 2.32498211e-23;
/*     RM - REDUCED MASS FOR N2-N2 */
 
    d__1 = rm * 1.380662e-16 * *temp * 2. * pi / 4.3906208382975998e-53;
    pf = pow(d__1, c_b186);
/*       SCALE DOWN BY 1.D60 */
    pf *= 1e-60;
 
    nr = 0;
L555:
    ++nr;
    ldelvi = ldelvis[nr - 1];
    ivi = ivis[nr - 1];
    ivip = ivips[nr - 1];
    ldelel = ldelels[nr - 1];
    a = as[nr - 1];
    b = bs[nr - 1];
/*     WRITE (6,334) LDELVI,IVI,IVIP, LDELEL,A,B */
/* L334: */
 
/*       LDELVI=DELTA(V)=V'-V */
/*       IVI = V; IVIP = V' */
/*       LDELEL = DELTA(L) = L'-L */
 
    iv = ivi + 1;
    ivp = ivip + 1;
/*       THESE ARE ENERGY COLUMNS (V, V') */
 
    nnii = niv[iv - 1];
 
    s__1 = nnii;
    for (l = 1; l <= s__1; ++l) {
/*       LOOP OVER INITIAL L-VALUES... */
 
  am = a * exp(-b * (double) ((l - 1) * l));
/*       L - NUMBER OF ROW, (L-1) - ROTATIONAL LEVEL */
  lp = l + ldelel;
  ll = l - 1;
  llp = lp - 1;
/*       LL,LLP ARE INITIAL L AND FINAL L' ANGULAR MOMENTUM QUANTUM NUMBERS */
 
  if (lp > niv[ivp - 1] || lp < 1) {
      goto L20;
  }
  if (eb_ref(lp, ivp) == 0.) {
      goto L20;
  }
  if (eb_ref(l, iv) == 0.) {
      goto L20;
  }
  stoke = eb_ref(lp, ivp) - eb_ref(l, iv);
 
  stoki = am * exp(-alfa * eb_ref(l, iv)) / pf * (double) ((ll << 1)
     + 1) * clebsqr_(&ll, &cs__3, &llp);
 
  profile_(&stoke, &stoki);
  if (stoki > 0.) {
      ++nlines;
  }
 
  stokip = am * exp(-alfa * eb_ref(lp, ivp)) / pf * (double) ((llp
    << 1) + 1) * clebsqr_(&llp, &cs__3, &ll);
 
  d__1 = -stoke;
  profile_(&d__1, &stokip);
  if (stokip > 0.) {
      ++nlines;
  }
 
L20:
  ;
    }
    if (nr == 63) {
  goto L56;
    }
    goto L555;
L56:
 
/*     32 ENTRIES FOR (3220)+(3202) IN TABLE 6, 63 IN ALL: */
/*     DATA EXPANDED AND INCLUDE NOW ALL POSSIBLE B-B TRANSITIONS */
 
    s__1 = nsriup;
    for (n = 1; n <= s__1; ++n) {
/* L90: */
  rsibb[n - 1] = rsibb[n - 1] / twopic / slit;
    }
 
    *nsol = nsri + 1;
    //nsol2 = *nsol + 1;
/*     RSI - CONTRIBUTION FOR POSITIVE FREQUENCY SHIFTS */
 
    s__1 = *nsol;
    for (i__ = 1; i__ <= s__1; ++i__) {
/* L22: */
  rsi[i__] = rsibb[*nsol - 1 + i__ - 1];
    }
 
/*        PRINT 999, (RSI(I),I=1,NSOL) */
/* L999: */
 
    return 0;
} /* bound32_ */
 
#undef slit
#undef dx
#undef wnrmax3
#undef nsri
#undef ns
#undef nsriup
#undef eb
#undef niv
#undef nlines
#undef rsibb
#undef ldelvi
#undef ivi
#undef ivip
#undef ldelel
#undef ll
#undef llp
 
 
#undef eb_ref
 
#define slit (app3a_1.slit)
#define dx (app3a_1.dx)
#define wnrmax3 (app3a_1.wnrmax3)
#define nsri (app3b_1.nsri)
#define ns (app3b_1.ns)
#define nsriup (app3b_1.nsriup)
#define eb (energ_1.eb)
#define niv (energ_1.niv)
#define nlines (dimer_1.nlines)
#define rsibb (bl3_2.rsibb)
 
/* Subroutine */ int bound54_(double *temp, double *rsi, int *
  nsol)
{
    /* Initialized data */
 
//    static int ldelvis[54] = { 0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,
//      1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
//      };
    static int ivis[54] = { 0,0,0,1,1,1,2,2,2,3,3,3,0,0,0,0,0,0,1,1,1,1,
      1,1,2,2,2,2,2,2,3,3,3,3,3,3,0,0,0,0,0,0,1,1,1,1,1,1,2,2,2,2,2,2 };
    static int ivips[54] = { 0,0,0,1,1,1,2,2,2,3,3,3,1,1,1,1,1,1,2,2,2,2,
      2,2,3,3,3,3,3,3,4,4,4,4,4,4,2,2,2,2,2,2,3,3,3,3,3,3,4,4,4,4,4,4 };
    static int ldelels[54] = { 1,3,5,1,3,5,1,3,5,1,3,5,-5,-3,-1,1,3,5,-5,
      -3,-1,1,3,5,-5,-3,-1,1,3,5,-5,-3,-1,1,3,5,-5,-3,-1,1,3,5,-5,-3,-1,
      1,3,5,-5,-3,-1,1,3,5 };
    static double as[54] = { 7.9332e-42,7.8207e-42,7.7235e-42,4.5815e-42,
      4.4834e-42,4.4059e-42,2.173e-42,2.0824e-42,2.025e-42,7.7222e-43,
      7.0351e-43,6.6815e-43,4.9611e-43,5.2232e-43,5.2979e-43,5.4652e-43,
      5.6827e-43,5.9277e-43,5.733e-43,6.062e-43,6.0862e-43,6.2104e-43,
      6.3809e-43,6.5698e-43,3.9501e-43,4.1599e-43,4.1033e-43,4.1097e-43,
      4.1339e-43,4.153e-43,1.5858e-43,1.5976e-43,1.5478e-43,1.5066e-43,
      1.4554e-43,1.3848e-43,9.9241e-44,1.0109e-43,1.0396e-43,1.0758e-43,
      1.1176e-43,1.1636e-43,1.646e-43,1.647e-43,1.6617e-43,1.6837e-43,
      1.7085e-43,1.7327e-43,1.1797e-43,1.1593e-43,1.1405e-43,1.1174e-43,
      1.0853e-43,1.0401e-43 };
    static double bs[54] = { 6.12e-4,6.35e-4,6.77e-4,.001137,.001201,
      .001341,.00229,.002449,.00287,.005426,.005876,.00745,.001,8.83e-4,
      6.09e-4,3.92e-4,2.07e-4,3.7e-5,.001625,.001624,.001305,.001084,
      9.27e-4,8.21e-4,.002978,.003273,.002994,.002954,.003153,.003668,
      .005799,.006423,.006733,.00796,.010937,.019179,.001229,9.93e-4,
      7.67e-4,5.43e-4,3.09e-4,5.1e-5,.002456,.0023,.00221,.002193,
      .002273,.002506,.004556,.004825,.005454,.006725,.009431,.016672 };
    static double twopic = 1.88365183e11;
    static double pi = 3.141592654;
 
    /* System generated locals */
    int s__1;
    double d__1;
 
    /* Local variables */
    double alfa;
    int nnii, ivip;
    //int nsol2;
    double a, b;
    int i__, l, n;
    double stoke, stoki, am, pf;
    int ll, lp;
    double rm;
    int nr, ldelel, iv;
    //int ldelvi;
    double stokip;
    int ivi, llp, ivp;
    extern double clebsqr_(int *, int *, int *);
    extern /* Subroutine */ int profile_(double *, double *);
 
 
#define eb_ref(a_1,a_2) eb[(a_2)*41 + a_1 - 42]
 
 
 
/*     COMMON/APP3/SLIT,DX,NSRI,WNRMAX3,NS,NSRIUP */
/*          STORED VALUES */
 
/* TKS     THIS DATA STRUCTURE HAS 55 ENTRIES AND NOT 54!! */
/* TKS      DATA LDELVIS /0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1, */
/* TKS     &              1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2, */
/* TKS     &              2,2,2,2,2,2,2,2,2,2,2,2,2,2,2/ */
/* TKS  WE HAVE SSKIPPED THE LAST "2" IN THIS DATA STATEMENT */
    /* Parameter adjustments */
    --rsi;
 
    /* Function Body */
 
 
 
 
 
 
 
 
    nsri = 190;
    wnrmax3 = 47.;
    nsriup = (nsri << 1) + 1;
    dx = wnrmax3 / (double) nsri;
    ns = (int) (slit / dx);
 
    for (i__ = 1; i__ <= 401; ++i__) {
/* L300: */
  rsibb[i__ - 1] = 0.;
    }
    alfa = 1. / (*temp * .69519);
    rm = 2.32498211e-23;
/*     RM - REDUCED MASS FOR N2-N2 */
 
    d__1 = rm * 1.380662e-16 * *temp * 2. * pi / 4.3906208382975998e-53;
    pf = pow(d__1, c_b186);
/*       SCALE DOWNWARD BY 1.D60 */
    pf *= 1e-60;
 
    nr = 0;
L555:
    ++nr;
    //ldelvi = ldelvis[nr - 1];
    ivi = ivis[nr - 1];
    ivip = ivips[nr - 1];
    ldelel = ldelels[nr - 1];
    a = as[nr - 1];
    b = bs[nr - 1];
/*       WRITE (6,334) LDELVI,IVI,IVIP, LDELEL,A,B */
/* L334: */
/*       LDELVI=DELTA(V)=V'-V */
/*       IVI = V */
/*       LDELEL = DELTA(L) = L'-L */
 
    iv = ivi + 1;
    ivp = ivip + 1;
    nnii = niv[iv - 1];
    s__1 = nnii;
    for (l = 1; l <= s__1; ++l) {
  am = a * exp(-b * (double) (l * (l + 1)));
  lp = l + ldelel;
  ll = l - 1;
  llp = lp - 1;
  if (lp > niv[ivp - 1] || lp < 1) {
      goto L20;
  }
  if (eb_ref(lp, ivp) == 0.) {
      goto L20;
  }
  if (eb_ref(l, iv) == 0.) {
      goto L20;
  }
 
  stoke = eb_ref(lp, ivp) - eb_ref(l, iv);
  stoki = am * exp(-alfa * eb_ref(l, iv)) / pf * (double) ((ll << 1)
     + 1) * clebsqr_(&ll, &cs__5, &llp);
  profile_(&stoke, &stoki);
  if (stoki > 0.) {
      ++nlines;
  }
  stokip = am * exp(-alfa * eb_ref(lp, ivp)) / pf * (double) ((llp
    << 1) + 1) * clebsqr_(&llp, &cs__5, &ll);
  d__1 = -stoke;
  profile_(&d__1, &stokip);
  if (stokip > 0.) {
      ++nlines;
  }
L20:
  ;
    }
    if (nr == 54) {
  goto L56;
    }
 
    goto L555;
L56:
/*       54 ENTRIES FOR (5440)=(5404) IN TABLE 6 */
 
    s__1 = nsriup;
    for (n = 1; n <= s__1; ++n) {
/* L90: */
  rsibb[n - 1] = rsibb[n - 1] / twopic / slit;
    }
 
    *nsol = nsri + 1;
    //nsol2 = *nsol + 1;
 
    s__1 = *nsol;
    for (i__ = 1; i__ <= s__1; ++i__) {
/* L22: */
  rsi[i__] = rsibb[*nsol - 1 + i__ - 1];
    }
 
/*     PRINT 999, (RSI(I),I=1,NSOL) */
/* L999: */
 
    return 0;
} /* bound54_ */
 
#undef slit
#undef dx
#undef wnrmax3
#undef nsri
#undef ns
#undef nsriup
#undef eb
#undef niv
#undef nlines
#undef rsibb
 
 
#undef eb_ref
 
 
double clebsqr_0_(int n__, int *l, int *lambda, int *lp)
{
    /* System generated locals */
    int s__1, s__2;
    double ret_val, d__1;
 
    /* Local variables */
    extern double fctl_(int *);
    double f;
    int i__;
    double p;
    int i0, i1;
    double fc;
 
/*     SQUARE OF CLEBSCH-GORDAN COEFFICIENT (L,LAMBDA,0,0;LP,0) */
/*     FOR INTEGER ARGUMENTS ONLY */
/*     NOTE THAT LAMBDA SHOULD BE SMALL, MAYBE @10 OR SO. */
 
 
    switch(n__) {
  case 1: goto L_threej2;
  }
 
    fc = (double) ((*lp << 1) + 1);
    goto L2;
 
 
L_threej2:
/*     THIS ENTRY RETURNS THE SQUARED 3-J SYMBOL   L LAMBDA LP */
/*                                                 0    0    0 */
/*     INSTEAD OF THE CLEBSCH-GORDAN COEFFICIENT */
/*     (LIMITATION TO INTEGER ARGUMENTS ONLY) */
 
/*     NOTE THAT THE THREE-J SYMBOLS ARE COMPLETELY SYMMETRIC IN THE */
/*     ARGUMENTS. IT WOULD BE ADVANTAGEOUS TO REORDER THE INPUT ARGUMENT */
/*     LIST SO THAT LAMBDA BECOMES THE SMALLEST OF THE 3 ARGUMENTS. */
    fc = 1.;
L2:
    ret_val = 0.;
    if (*l + *lambda < *lp || *lambda + *lp < *l || *l + *lp < *lambda) {
  return ret_val;
    }
    if ((*l + *lp + *lambda) % 2 != 0) {
  return ret_val;
    }
    if (*l < 0 || *lp < 0 || *lambda < 0) {
  return ret_val;
    }
    f = 1. / (double) (*l + *lp + 1 - *lambda);
    if (*lambda == 0) {
  goto L22;
    }
    i1 = (*l + *lp + *lambda) / 2;
    i0 = (*l + *lp - *lambda) / 2 + 1;
    s__1 = i1;
    for (i__ = i0; i__ <= s__1; ++i__) {
/* L20: */
  f = f * (double) i__ / (double) (((i__ << 1) + 1) << 1);
    }
L22:
    s__1 = *lambda + *l - *lp;
    s__2 = *lambda + *lp - *l;
    p = fc * f * fctl_(&s__1) * fctl_(&s__2);
    s__1 = (*lambda + *l - *lp) / 2;
    s__2 = (*lambda + *lp - *l) / 2;
/* Computing 2nd power */
    d__1 = fctl_(&s__1) * fctl_(&s__2);
    ret_val = p / (d__1 * d__1);
    return ret_val;
} /* clebsqr_ */
 
double clebsqr_(int *l, int *lambda, int *lp)
{
    return clebsqr_0_(0, l, lambda, lp);
    }
 
double fctl_(int *n)
{
    /* System generated locals */
    int s__1;
    double ret_val, d__1;
 
    /* Local variables */
    int i__, j;
    double z__;
 
 
 
    ret_val = 1.;
    if (*n <= 1) {
  return ret_val;
    }
    if (*n > 15) {
  goto L20;
    }
    j = 1;
    s__1 = *n;
    for (i__ = 2; i__ <= s__1; ++i__) {
/* L10: */
  j *= i__;
    }
    ret_val = (double) j;
    return ret_val;
L20:
    z__ = (double) (*n + 1);
    d__1 = z__ - .5;
    ret_val = exp(-z__) * pow(z__, d__1) * ((((-2.294720936e-4 / z__ -
      .00268132716) / z__ + .003472222222) / z__ + .08333333333) / z__
      + 1.) * 2.506628274631;
    return ret_val;
} /* fctl_ */
#define ik1k0 (k1k0_1.ik1k0)
 
double bgama_(double *fnu, double *t1, double *t2, double
  *eps, double *t3, double *t4, double *temp)
{
    /* Initialized data */
 
    static double pi = 3.1415926535898;
    static double clight = 29979245800.;
    static double hbar = 1.0545887e-27;
    static double boltz = 1.380662e-16;
 
    /* System generated locals */
    double ret_val, d__1, d__2, d__3, d__4;
 
    /* Local variables */
    double omega, z__, k0, t0, bgambc, zp, xk1;
 
/*     SPECTRAL FUNCTION "EBC", FOR REFERENCE: */
/*     SEE "PHENOMENA INDUCED BY INTERMOLECULAR INTERACTIONS", */
/*     ED. G. BIRNBAUM; J. BORYSOW AND L. FROMMHOLD, P.67, (1985) */
/*       ============================================ */
 
 
/*       IF IK1K0=1 ONLY B-C; EBC OTHERWISE */
 
    omega = 2. * pi * clight * *fnu;
    t0 = hbar / (boltz * 2. * *temp);
/* Computing 2nd power */
    d__1 = omega * *t1;
    z__ = sqrt((d__1 * d__1 + 1.) * (*t2 * *t2 + t0 * t0)) / *t1;
    if (z__ - 2. <= 0.) {
  goto L10;
    } else {
  goto L12;
    }
L10:
/* Computing 2nd power */
    d__2 = z__ / 3.75;
    d__1 = d__2 * d__2;
/* Computing 2nd power */
    d__4 = z__ / 2.;
    d__3 = d__4 * d__4;
    xk1 = z__ * z__ * log(z__ / 2.) * ((((((3.2411e-4 * d__1 + .00301532) *
      d__1 + .02658733) * d__1 + .15084934) * d__1 + .51498869) * d__1
      + .87890594) * d__1 + .5) + ((((((-4.686e-5 * d__3 - .00110404) *
      d__3 - .01919402) * d__3 - .18156897) * d__3 - .67278579) * d__3
      + .15443144) * d__3 + 1.);
    goto L20;
L12:
    d__1 = 2. / z__;
    xk1 = sqrt(z__) * exp(-z__) * ((((((-6.8245e-4 * d__1 + .00325614) * d__1
      - .00780353) * d__1 + .01504268) * d__1 - .0365562) * d__1 +
      .23498619) * d__1 + 1.25331414);
L20:
/* Computing 2nd power */
    d__1 = *t1 * omega;
    bgambc = *t1 / pi * exp(*t2 / *t1 + t0 * omega) * xk1 / (d__1 * d__1 + 1.)
      ;
    if (ik1k0 == 1) {
  goto L55;
    }
/* Computing 2nd power */
    d__1 = omega * *t4;
    zp = sqrt((d__1 * d__1 + 1.) * (*t3 * *t3 + t0 * t0)) / *t4;
    if (zp - 2. <= 0.) {
  goto L22;
    } else {
  goto L24;
    }
L22:
/* Computing 2nd power */
    d__2 = zp / 3.75;
    d__1 = d__2 * d__2;
/* Computing 2nd power */
    d__4 = zp / 2.;
    d__3 = d__4 * d__4;
    k0 = -log(zp / 2.) * ((((((.0045813 * d__1 + .0360768) * d__1 + .2659732)
      * d__1 + 1.2067492) * d__1 + 3.0899424) * d__1 + 3.5156229) *
      d__1 + 1.) + ((((((7.4e-6 * d__3 + 1.075e-4) * d__3 + .00262698) *
       d__3 + .0348859) * d__3 + .23069756) * d__3 + .4227842) * d__3 -
      .57721566);
    goto L30;
L24:
    d__1 = 2. / zp;
    k0 = exp(-zp) * ((((((5.3208e-4 * d__1 - .0025154) * d__1 + .00587872) *
      d__1 - .01062446) * d__1 + .02189568) * d__1 - .07832358) * d__1
      + 1.25331414) / sqrt(zp);
L30:
    ret_val = (bgambc + *eps * (*t3 / pi) * exp(*t3 / *t4 + t0 * omega) * k0)
      / (*eps + 1.);
    goto L66;
L55:
    ret_val = bgambc;
L66:
    return ret_val;
} /* bgama_ */
 
#undef ik1k0
 
 
/* Subroutine */ int spline_0_(int n__, int *l, int *m, int *k,
   double *eps, double *x, double *y, double *t,
  double *ss, double *si, int *nr, double *s2)
{
    /* System generated locals */
    int s__1, s__2;
    double d__1, d__2;
 
    /* Local variables */
    double epsi, prod, h__;
    int i__, j, n;
    double w, omega;
    int n1;
    double s3;
    int ic;
    double sm, delsqs, ht1, ht2, ss2, yp1, eta, ypn;
 
 
 
/*     SPLINE INTERPOLATION AND QUADRATURE, THIRD ORDER AFTER GREVILLE. */
/*     INPUT ARGUMENTS L...Y, OUTPUT SS...NR. */
/*     L DATA POINTS X(1), Y(1) ... X(L),Y(L) */
/*     EPS=ERROR CRITERION, TYPICALLY EPS=1.D-5 FOR 5 DECI. PLACES ACCURA */
/*     M ARGUMENTS T(1)..T(M) FOR WHICH FUNCTION VALUES SS(1)..SS(M), FOR */
/*     K=0; OR FIRST OR SECOND DERIVATIVE FOR K=1 OR -1, RESPECTIVELY. */
/*     NOTE THAT M HAS TO BE AT LEAST EQUAL TO 1. */
/*     SI=INTEGRAL (OVER WHOLE INTERVAL) FOR K=2 ONLY. */
/*     FOR 'NATURAL' SPLINE FUNCTIONS, S2(1)=S2(L)=0. MUST BE INPUT*NOTE* */
/*     N0 INDICATES THE NUMBER OF OUT-OF-RANGE CALLS. X(1)<T(I)<X(L) */
/*     EXTRAPOLATE WITH CAUTION. (ASSUMPTION D2Y/DX2 = 0.) */
/*     S2(I) IS THE 2ND DERIVATIVE AT X=X(I) AND IS COMPUTED INTERNALLY. */
/*     DIMENSION X(L),Y(L),T(M),SS(M),S2(L) */
 
    /* Parameter adjustments */
    --x;
    --y;
    --t;
    --ss;
    --s2;
 
    /* Function Body */
    switch(n__) {
  case 1: goto L_ixpolat;
  }
 
    n = *l;
    n1 = n - 1;
    *nr = 0;
/* L4: */
    s__1 = n1;
    for (i__ = 2; i__ <= s__1; ++i__) {
/* L52: */
  s__2 = i__ - 1;
  s2[i__] = 3. * ((y[i__ + 1] - y[i__]) / (x[i__ + 1] - x[i__]) - (y[
    s__2 + 1] - y[s__2]) / (x[s__2 + 1] - x[s__2])) / (x[i__ + 1]
    - x[i__ - 1]) / 1.5;
    }
    omega = 1.0717968;
    ic = 0;
/*     'NATURAL' SPLINE FUNCTIONS OF THIRD ORDER. */
    s2[1] = 0.;
    s2[n] = 0.;
L5:
    eta = 0.;
    ++ic;
    sm = abs(s2[1]);
    s__2 = n;
    for (i__ = 2; i__ <= s__2; ++i__) {
  if ((d__1 = s2[i__], abs(d__1)) > sm) {
      sm = (d__2 = s2[i__], abs(d__2));
  }
/* L25: */
    }
    epsi = *eps * sm;
/* L6: */
    s__2 = n1;
    for (i__ = 2; i__ <= s__2; ++i__) {
/* L7: */
  s__1 = i__ - 1;
  w = (3. * ((y[i__ + 1] - y[i__]) / (x[i__ + 1] - x[i__]) - (y[s__1 +
    1] - y[s__1]) / (x[s__1 + 1] - x[s__1])) / (x[i__ + 1] - x[
    i__ - 1]) - (x[i__] - x[i__ - 1]) * .5 / (x[i__ + 1] - x[i__
    - 1]) * s2[i__ - 1] - (.5 - (x[i__] - x[i__ - 1]) * .5 / (x[
    i__ + 1] - x[i__ - 1])) * s2[i__ + 1] - s2[i__]) * omega;
/* L8: */
  if (abs(w) - eta <= 0.) {
      goto L10;
  } else {
      goto L9;
  }
L9:
  eta = abs(w);
L10:
  s2[i__] += w;
    }
/* L13: */
    if (eta - epsi >= 0.) {
  goto L5;
    } else {
  goto L14;
    }
/*     ENTRY IXPOLAT */
 
L_ixpolat:
/*     THIS ENTRY USEFUL WHEN ITERATION PREVIOUSLY COMPLETED */
 
    n = *l;
    n1 = n - 1;
    *nr = 0;
    ic = -1;
L14:
    if (*k - 2 != 0) {
  goto L15;
    } else {
  goto L20;
    }
L15:
    s__2 = *m;
    for (j = 1; j <= s__2; ++j) {
/* L16: */
  i__ = 1;
/* L54: */
  if ((d__1 = t[j] - x[1]) < 0.) {
      goto L58;
  } else if (d__1 == 0) {
      goto L17;
  } else {
      goto L55;
  }
L55:
  if ((d__1 = t[j] - x[n]) < 0.) {
      goto L57;
  } else if (d__1 == 0) {
      goto L59;
  } else {
      goto L158;
  }
L56:
  if ((d__1 = t[j] - x[i__]) < 0.) {
      goto L60;
  } else if (d__1 == 0) {
      goto L17;
  } else {
      goto L57;
  }
L57:
  ++i__;
  goto L56;
 
L58:
  ++(*nr);
  ht1 = t[j] - x[1];
  //ht2 = t[j] - x[2];
  yp1 = (y[cs__1 + 1] - y[cs__1]) / (x[cs__1 + 1] - x[cs__1]) + (x[1] -
    x[2]) * (s2[1] * 2. + s2[2]) / 6.;
  if (*k < 0) {
      goto L72;
  } else if (*k == 0) {
      goto L70;
  } else {
      goto L71;
  }
L71:
  ss[j] = yp1 + ht1 * s2[1];
  goto L61;
L70:
  ss[j] = y[1] + yp1 * ht1 + s2[1] * ht1 * ht1 / 2.;
  goto L61;
L72:
  ss[j] = s2[i__];
  goto L61;
L158:
  ht2 = t[j] - x[n];
  //ht1 = t[j] - x[n1];
  ++(*nr);
  ypn = (y[n1 + 1] - y[n1]) / (x[n1 + 1] - x[n1]) + (x[n] - x[n1]) * (
    s2[n1] + s2[n] * 2.) / 6.;
  if (*k < 0) {
      goto L82;
  } else if (*k == 0) {
      goto L80;
  } else {
      goto L81;
  }
L81:
  ss[j] = ypn + ht2 * s2[n];
  goto L61;
L80:
  ss[j] = y[n] + ypn * ht2 + s2[n] * ht2 * ht2 / 2.;
  goto L61;
L82:
  ss[j] = s2[n];
  goto L61;
 
L59:
  i__ = n;
L60:
  --i__;
L17:
  ht1 = t[j] - x[i__];
  ht2 = t[j] - x[i__ + 1];
  prod = ht1 * ht2;
  s3 = (s2[i__ + 1] - s2[i__]) / (x[i__ + 1] - x[i__]);
  ss2 = s2[i__] + ht1 * s3;
  delsqs = (s2[i__] + s2[i__ + 1] + ss2) / 6.;
 
  if (*k < 0) {
      goto L43;
  } else if (*k == 0) {
      goto L41;
  } else {
      goto L42;
  }
L41:
  ss[j] = y[i__] + ht1 * ((y[i__ + 1] - y[i__]) / (x[i__ + 1] - x[i__]))
     + prod * delsqs;
  goto L61;
L42:
  ss[j] = (y[i__ + 1] - y[i__]) / (x[i__ + 1] - x[i__]) + (ht1 + ht2) *
    delsqs + prod * s3 / 6.;
  goto L61;
L43:
  ss[j] = ss2;
L61:
  ;
    }
L20:
    *si = 0.;
 
    s__2 = n1;
    for (i__ = 1; i__ <= s__2; ++i__) {
  h__ = x[i__ + 1] - x[i__];
/* L62: */
/* Computing 3rd power */
  d__1 = h__;
  *si = *si + h__ * .5 * (y[i__] + y[i__ + 1]) - d__1 * (d__1 * d__1) *
    (s2[i__] + s2[i__ + 1]) / 24.;
    }
 
    if (*k == 2) {
  *nr = ic;
    }
 
    return 0;
} /* spline_ */
 
/* Subroutine */ int spline_(int *l, int *m, int *k,
  double *eps, double *x, double *y, double *t,
  double *ss, double *si, int *nr, double *s2)
{
    return spline_0_(0, l, m, k, eps, x, y, t, ss, si, nr, s2);
    }
 
/* Subroutine */ int ixpolat_(int *l, int *m, int *k,
  double *eps, double *x, double *y, double *t,
  double *ss, double *si, int *nr, double *s2)
{
    return spline_0_(1, l, m, k, eps, x, y, t, ss, si, nr, s2);
    }
 
 
// ---------------------- end of Borysow N2N2 F77 code -------------------------
 
 
// ---------------------- begin of monortm CKD F77 code -------------------------
 
 
/* Common Block Declarations */
 
struct fh2oa_1_ {
    double fh2o[2003];
};
 
#define fh2oa_1 (*(struct fh2oa_1_ *) &fh2oa_)
 
struct fh2ob_1_ {
    double v1, v2, dv;
    int nptfh2o;
};
struct fh2ob_2_ {
    double v1, v2, dv;
    int npts;
};
 
#define fh2ob_1 (*(struct fh2ob_1_ *) &fh2ob_)
#define fh2ob_2 (*(struct fh2ob_2_ *) &fh2ob_)
 
struct sh2oa_1_ {
    double swv296[2003];
};
 
#define sh2oa_1 (*(struct sh2oa_1_ *) &sh2oa_)
 
struct sh2ob_1_ {
    double v1, v2, dv;
    int nptslfwv;
};
struct sh2ob_2_ {
    double v1, v2, dv;
    int npts;
};
 
#define sh2ob_1 (*(struct sh2ob_1_ *) &sh2ob_)
#define sh2ob_2 (*(struct sh2ob_2_ *) &sh2ob_)
 
struct s260a_1_ {
    double swv260[2003];
};
 
#define s260a_1 (*(struct s260a_1_ *) &s260a_)
 
struct s260b_1_ {
    double v1___, v2___, dv___;
    int nptslfwv___;
};
struct s260b_2_ {
    double v1, v2, dv;
    int npts;
};
 
#define s260b_1 (*(struct s260b_1_ *) &s260b_)
#define s260b_2 (*(struct s260b_2_ *) &s260b_)
 
struct consts_1_ {
    double pi, planck, boltz, clight, avogad, alosmt, gascon, radcn1,
      radcn2;
};
 
#define consts_1 (*(struct consts_1_ *) &consts_)
 
/* Initialized data */
 
struct s_fh2oa_ {
    double e_1[2003];
    } fh2oa_ = { {.012859, .011715, .011038, .011715, .012859, .015326,
      .016999, .018321, .019402, .01957, .019432, .017572, .01676,
      .01548, .013984, .012266, .010467, .0094526, .0080485, .0069484,
      .0061416, .0050941, .0044836, .0038133, .0034608, .0031487,
      .0024555, .0020977, .0017266, .001492, .0012709, 9.8081e-4,
      8.5063e-4, 6.8822e-4, 5.3809e-4, 4.4679e-4, 3.3774e-4, 2.7979e-4,
      2.1047e-4, 1.6511e-4, 1.2993e-4, 9.3033e-5, 7.436e-5, 5.6428e-5,
      4.5442e-5, 3.4575e-5, 2.7903e-5, 2.1374e-5, 1.6075e-5, 1.3022e-5,
      1.0962e-5, 8.5959e-6, 6.9125e-6, 5.3808e-6, 4.3586e-6, 3.6394e-6,
      2.9552e-6, 2.3547e-6, 1.8463e-6, 1.6036e-6, 1.3483e-6, 1.1968e-6,
      1.0333e-6, 8.4484e-7, 6.7195e-7, 5.0947e-7, 4.2343e-7, 3.4453e-7,
      2.783e-7, 2.3063e-7, 1.9951e-7, 1.7087e-7, 1.4393e-7, 1.2575e-7,
      1.075e-7, 8.2325e-8, 5.7524e-8, 4.4482e-8, 3.8106e-8, 3.4315e-8,
      2.9422e-8, 2.5069e-8, 2.2402e-8, 1.9349e-8, 1.6152e-8, 1.2208e-8,
      8.966e-9, 7.1322e-9, 6.1028e-9, 5.2938e-9, 4.535e-9, 3.4977e-9,
      2.9511e-9, 2.4734e-9, 2.0508e-9, 1.8507e-9, 1.6373e-9, 1.5171e-9,
      1.3071e-9, 1.2462e-9, 1.2148e-9, 1.259e-9, 1.3153e-9, 1.3301e-9,
      1.4483e-9, 1.6944e-9, 2.0559e-9, 2.2954e-9, 2.6221e-9, 3.2606e-9,
      4.2392e-9, 5.2171e-9, 6.2553e-9, 8.2548e-9, 9.5842e-9, 1.128e-8,
      1.3628e-8, 1.7635e-8, 2.1576e-8, 2.4835e-8, 3.0014e-8, 3.8485e-8,
      4.744e-8, 5.5202e-8, 7.0897e-8, 9.6578e-8, 1.3976e-7, 1.8391e-7,
      2.3207e-7, 2.996e-7, 4.0408e-7, 5.926e-7, 7.8487e-7, 1.0947e-6,
      1.4676e-6, 1.9325e-6, 2.6587e-6, 3.4534e-6, 4.4376e-6, 5.8061e-6,
      7.0141e-6, 8.4937e-6, 1.0186e-5, 1.2034e-5, 1.3837e-5, 1.6595e-5,
      1.9259e-5, 2.162e-5, 2.3681e-5, 2.7064e-5, 3.251e-5, 3.546e-5,
      3.9109e-5, 4.2891e-5, 4.7757e-5, 5.0981e-5, 5.0527e-5, 4.8618e-5,
      4.4001e-5, 3.7982e-5, 3.2667e-5, 2.7794e-5, 2.491e-5, 2.4375e-5,
      2.7316e-5, 3.2579e-5, 3.5499e-5, 3.801e-5, 4.1353e-5, 4.3323e-5,
      4.3004e-5, 3.979e-5, 3.7718e-5, 3.636e-5, 3.2386e-5, 2.7409e-5,
      2.3626e-5, 2.0631e-5, 1.8371e-5, 1.5445e-5, 1.2989e-5, 1.1098e-5,
      9.6552e-6, 8.0649e-6, 7.2365e-6, 5.9137e-6, 5.2759e-6, 4.886e-6,
      4.1321e-6, 3.5918e-6, 2.764e-6, 2.4892e-6, 2.1018e-6, 1.7848e-6,
      1.5855e-6, 1.3569e-6, 1.1986e-6, 9.4693e-7, 7.4097e-7, 6.3443e-7,
      4.8131e-7, 4.0942e-7, 3.3316e-7, 2.8488e-7, 2.3461e-7, 1.7397e-7,
      1.4684e-7, 1.0953e-7, 8.5396e-8, 6.9261e-8, 5.4001e-8, 4.543e-8,
      3.2791e-8, 2.5995e-8, 2.0225e-8, 1.571e-8, 1.3027e-8, 1.0229e-8,
      8.5277e-9, 6.5249e-9, 5.0117e-9, 3.9906e-9, 3.2332e-9, 2.7847e-9,
      2.457e-9, 2.3359e-9, 2.0599e-9, 1.8436e-9, 1.6559e-9, 1.491e-9,
      1.2794e-9, 9.8229e-10, 8.0054e-10, 6.0769e-10, 4.5646e-10,
      3.3111e-10, 2.4428e-10, 1.8007e-10, 1.3291e-10, 9.7974e-11,
      7.8271e-11, 6.3833e-11, 5.4425e-11, 4.6471e-11, 4.0209e-11,
      3.5227e-11, 3.1212e-11, 2.884e-11, 2.7762e-11, 2.7935e-11,
      3.2012e-11, 3.9525e-11, 5.0303e-11, 6.8027e-11, 9.3954e-11,
      1.2986e-10, 1.8478e-10, 2.5331e-10, 3.4827e-10, 4.6968e-10,
      6.238e-10, 7.9106e-10, 1.0026e-9, 1.2102e-9, 1.4146e-9, 1.6154e-9,
       1.751e-9, 1.8575e-9, 1.8742e-9, 1.87e-9, 1.8582e-9, 1.9657e-9,
      2.1204e-9, 2.0381e-9, 2.0122e-9, 2.0436e-9, 2.1213e-9, 2.0742e-9,
      1.987e-9, 2.0465e-9, 2.1556e-9, 2.2222e-9, 2.1977e-9, 2.1047e-9,
      1.9334e-9, 1.7357e-9, 1.5754e-9, 1.4398e-9, 1.4018e-9, 1.5459e-9,
      1.7576e-9, 2.1645e-9, 2.948e-9, 4.4439e-9, 5.8341e-9, 8.0757e-9,
      1.1658e-8, 1.6793e-8, 2.2694e-8, 2.9468e-8, 3.9278e-8, 5.2145e-8,
      6.4378e-8, 7.7947e-8, 8.5321e-8, 9.7848e-8, 1.0999e-7, 1.1489e-7,
      1.2082e-7, 1.2822e-7, 1.4053e-7, 1.5238e-7, 1.5454e-7, 1.5018e-7,
      1.4048e-7, 1.2359e-7, 1.0858e-7, 9.3486e-8, 8.1638e-8, 7.769e-8,
      8.4625e-8, 1.0114e-7, 1.143e-7, 1.2263e-7, 1.3084e-7, 1.338e-7,
      1.3573e-7, 1.3441e-7, 1.2962e-7, 1.2638e-7, 1.1934e-7, 1.1371e-7,
      1.0871e-7, 9.8843e-8, 9.1877e-8, 9.105e-8, 9.3213e-8, 9.2929e-8,
      1.0155e-7, 1.1263e-7, 1.237e-7, 1.3636e-7, 1.54e-7, 1.7656e-7,
      2.1329e-7, 2.3045e-7, 2.5811e-7, 2.9261e-7, 3.4259e-7, 4.077e-7,
      4.8771e-7, 5.8081e-7, 7.2895e-7, 8.7482e-7, 1.0795e-6, 1.3384e-6,
      1.7208e-6, 2.0677e-6, 2.5294e-6, 3.1123e-6, 3.79e-6, 4.7752e-6,
      5.6891e-6, 6.6261e-6, 7.6246e-6, 8.773e-6, 9.6672e-6, 1.098e-5,
      1.1287e-5, 1.167e-5, 1.1635e-5, 1.1768e-5, 1.2039e-5, 1.2253e-5,
      1.3294e-5, 1.4005e-5, 1.3854e-5, 1.342e-5, 1.3003e-5, 1.2645e-5,
      1.1715e-5, 1.1258e-5, 1.1516e-5, 1.2494e-5, 1.3655e-5, 1.4931e-5,
      1.4649e-5, 1.3857e-5, 1.312e-5, 1.1791e-5, 1.0637e-5, 8.276e-6,
      6.5821e-6, 5.1959e-6, 4.0158e-6, 3.0131e-6, 2.0462e-6, 1.4853e-6,
      1.0365e-6, 7.3938e-7, 4.9752e-7, 3.4148e-7, 2.4992e-7, 1.8363e-7,
      1.4591e-7, 1.138e-7, 9.0588e-8, 7.3697e-8, 6.0252e-8, 5.1868e-8,
      4.266e-8, 3.6163e-8, 3.2512e-8, 2.9258e-8, 2.4238e-8, 2.1209e-8,
      1.6362e-8, 1.3871e-8, 1.2355e-8, 9.694e-9, 7.7735e-9, 6.2278e-9,
      5.2282e-9, 4.3799e-9, 3.5545e-9, 2.7527e-9, 2.095e-9, 1.6344e-9,
      1.2689e-9, 1.0403e-9, 8.488e-10, 6.3461e-10, 4.7657e-10,
      3.522e-10, 2.7879e-10, 2.3021e-10, 1.6167e-10, 1.1732e-10,
      8.9206e-11, 7.0596e-11, 5.831e-11, 4.4084e-11, 3.1534e-11,
      2.5068e-11, 2.2088e-11, 2.2579e-11, 2.2637e-11, 2.5705e-11,
      3.2415e-11, 4.6116e-11, 6.5346e-11, 9.4842e-11, 1.2809e-10,
      1.8211e-10, 2.4052e-10, 3.027e-10, 3.5531e-10, 4.2402e-10,
      4.673e-10, 4.7942e-10, 4.6813e-10, 4.5997e-10, 4.5788e-10,
      4.0311e-10, 3.7367e-10, 3.3149e-10, 2.9281e-10, 2.5231e-10,
      2.1152e-10, 1.9799e-10, 1.8636e-10, 1.9085e-10, 2.0786e-10,
      2.2464e-10, 2.3785e-10, 2.5684e-10, 2.7499e-10, 2.6962e-10,
      2.6378e-10, 2.6297e-10, 2.6903e-10, 2.7035e-10, 2.5394e-10,
      2.5655e-10, 2.7184e-10, 2.9013e-10, 3.0585e-10, 3.0791e-10,
      3.1667e-10, 3.4343e-10, 3.7365e-10, 4.0269e-10, 4.726e-10,
      5.6584e-10, 6.9791e-10, 8.6569e-10, 1.0393e-9, 1.2067e-9,
      1.5047e-9, 1.8583e-9, 2.2357e-9, 2.6498e-9, 3.2483e-9, 3.9927e-9,
      4.6618e-9, 5.5555e-9, 6.6609e-9, 8.2139e-9, 1.0285e-8, 1.3919e-8,
      1.8786e-8, 2.515e-8, 3.313e-8, 4.5442e-8, 6.337e-8, 9.0628e-8,
      1.2118e-7, 1.5927e-7, 2.1358e-7, 2.7825e-7, 3.7671e-7, 4.4894e-7,
      5.4442e-7, 6.224e-7, 7.3004e-7, 8.3384e-7, 8.7933e-7, 8.808e-7,
      8.6939e-7, 8.6541e-7, 8.2055e-7, 7.7278e-7, 7.5989e-7, 8.6909e-7,
      9.7945e-7, 1.0394e-6, 1.0646e-6, 1.1509e-6, 1.2017e-6, 1.1915e-6,
      1.1259e-6, 1.1549e-6, 1.1938e-6, 1.2356e-6, 1.2404e-6, 1.1716e-6,
      1.1149e-6, 1.0073e-6, 8.9845e-7, 7.6639e-7, 6.1517e-7, 5.0887e-7,
      4.1269e-7, 3.2474e-7, 2.5698e-7, 1.8893e-7, 1.4009e-7, 1.034e-7,
      7.7724e-8, 5.7302e-8, 4.2178e-8, 2.9603e-8, 2.1945e-8, 1.6301e-8,
      1.2806e-8, 1.0048e-8, 7.897e-9, 6.1133e-9, 4.9054e-9, 4.1985e-9,
      3.6944e-9, 3.2586e-9, 2.7362e-9, 2.3647e-9, 2.1249e-9, 1.8172e-9,
      1.6224e-9, 1.5158e-9, 1.2361e-9, 1.0682e-9, 9.2312e-10, 7.922e-10,
       6.8174e-10, 5.6147e-10, 4.8268e-10, 4.1534e-10, 3.3106e-10,
      2.8275e-10, 2.4584e-10, 2.0742e-10, 1.784e-10, 1.4664e-10,
      1.239e-10, 1.0497e-10, 8.5038e-11, 6.7008e-11, 5.6355e-11,
      4.3323e-11, 3.6914e-11, 3.2262e-11, 3.0749e-11, 3.0318e-11,
      2.9447e-11, 2.9918e-11, 3.0668e-11, 3.1315e-11, 3.0329e-11,
      2.8259e-11, 2.6065e-11, 2.3578e-11, 2.0469e-11, 1.6908e-11,
      1.4912e-11, 1.1867e-11, 9.973e-12, 8.1014e-12, 6.7528e-12,
      6.3133e-12, 5.8599e-12, 6.0145e-12, 6.5105e-12, 7.0537e-12,
      7.4973e-12, 7.8519e-12, 8.5039e-12, 9.1995e-12, 1.0694e-11,
      1.1659e-11, 1.2685e-11, 1.3087e-11, 1.3222e-11, 1.2634e-11,
      1.1077e-11, 9.6259e-12, 8.3202e-12, 7.4857e-12, 6.8069e-12,
      6.7496e-12, 7.3116e-12, 8.0171e-12, 8.6394e-12, 9.2659e-12,
      1.0048e-11, 1.0941e-11, 1.2226e-11, 1.3058e-11, 1.5193e-11,
      1.8923e-11, 2.3334e-11, 2.8787e-11, 3.6693e-11, 4.8295e-11,
      6.426e-11, 8.8269e-11, 1.1865e-10, 1.5961e-10, 2.0605e-10,
      2.7349e-10, 3.7193e-10, 4.8216e-10, 6.1966e-10, 7.715e-10,
      1.0195e-9, 1.2859e-9, 1.6535e-9, 2.0316e-9, 2.3913e-9, 3.0114e-9,
      3.7495e-9, 4.6504e-9, 5.9145e-9, 7.684e-9, 1.0304e-8, 1.301e-8,
      1.6441e-8, 2.1475e-8, 2.5892e-8, 2.9788e-8, 3.382e-8, 4.0007e-8,
      4.4888e-8, 4.5765e-8, 4.6131e-8, 4.6239e-8, 4.4849e-8, 4.0729e-8,
      3.6856e-8, 3.6164e-8, 3.7606e-8, 4.1457e-8, 4.375e-8, 5.115e-8,
      5.6054e-8, 6.1586e-8, 6.4521e-8, 6.6494e-8, 6.9024e-8, 6.8893e-8,
      7.0901e-8, 6.976e-8, 7.1485e-8, 7.074e-8, 7.3764e-8, 7.6618e-8,
      8.4182e-8, 9.3838e-8, 1.0761e-7, 1.2851e-7, 1.4748e-7, 1.8407e-7,
      2.2109e-7, 2.6392e-7, 2.9887e-7, 3.4493e-7, 4.0336e-7, 4.3551e-7,
      4.9231e-7, 5.0728e-7, 5.3781e-7, 5.3285e-7, 5.4496e-7, 5.5707e-7,
      5.6944e-7, 6.1123e-7, 6.4317e-7, 6.4581e-7, 6.1999e-7, 6.0191e-7,
      5.7762e-7, 5.7241e-7, 5.7013e-7, 6.016e-7, 6.6905e-7, 7.4095e-7,
      8.2121e-7, 8.0947e-7, 7.6145e-7, 7.2193e-7, 6.3722e-7, 5.4316e-7,
      4.2186e-7, 3.2528e-7, 2.5207e-7, 1.8213e-7, 1.2658e-7, 8.6746e-8,
      6.0216e-8, 4.1122e-8, 2.8899e-8, 2.174e-8, 1.799e-8, 1.5593e-8,
      1.397e-8, 1.2238e-8, 1.0539e-8, 9.2386e-9, 7.8481e-9, 6.8704e-9,
      5.7615e-9, 5.0434e-9, 4.6886e-9, 4.377e-9, 3.9768e-9, 3.5202e-9,
      3.1854e-9, 2.9009e-9, 2.5763e-9, 2.2135e-9, 1.9455e-9, 1.6248e-9,
      1.3368e-9, 1.0842e-9, 8.4254e-10, 6.7414e-10, 5.4667e-10,
      4.5005e-10, 3.4932e-10, 2.6745e-10, 2.2053e-10, 1.8162e-10,
      1.4935e-10, 1.1618e-10, 9.1888e-11, 8.0672e-11, 6.8746e-11,
      6.2668e-11, 5.5715e-11, 4.5074e-11, 3.7669e-11, 3.2082e-11,
      2.8085e-11, 2.4838e-11, 1.9791e-11, 1.6964e-11, 1.3887e-11,
      1.1179e-11, 9.7499e-12, 7.8255e-12, 6.3698e-12, 5.3265e-12,
      4.6588e-12, 4.4498e-12, 3.9984e-12, 3.7513e-12, 3.7176e-12,
      3.9148e-12, 4.2702e-12, 5.009e-12, 6.5801e-12, 8.7787e-12,
      1.2718e-11, 1.8375e-11, 2.5304e-11, 3.5403e-11, 4.8842e-11,
      6.484e-11, 8.0911e-11, 1.0136e-10, 1.2311e-10, 1.4203e-10,
      1.5869e-10, 1.8093e-10, 2.137e-10, 2.5228e-10, 2.8816e-10,
      3.4556e-10, 3.986e-10, 4.435e-10, 4.776e-10, 5.2357e-10,
      6.0827e-10, 6.3635e-10, 6.5886e-10, 6.8753e-10, 7.2349e-10,
      7.2789e-10, 6.8232e-10, 6.6081e-10, 6.4232e-10, 6.3485e-10,
      6.4311e-10, 7.2235e-10, 7.7263e-10, 8.1668e-10, 9.0324e-10,
      9.7643e-10, 1.0535e-9, 1.0195e-9, 1.0194e-9, 1.0156e-9,
      9.6792e-10, 9.2725e-10, 8.7347e-10, 8.4484e-10, 8.2647e-10,
      8.4363e-10, 9.1261e-10, 1.0051e-9, 1.1511e-9, 1.4037e-9,
      1.8066e-9, 2.4483e-9, 3.2739e-9, 4.3194e-9, 5.6902e-9, 7.7924e-9,
      9.7376e-9, 1.2055e-8, 1.4303e-8, 1.6956e-8, 1.9542e-8, 2.2233e-8,
      2.5186e-8, 2.7777e-8, 2.8943e-8, 2.8873e-8, 2.9417e-8, 2.7954e-8,
      2.7524e-8, 2.704e-8, 3.1254e-8, 3.6843e-8, 3.7797e-8, 3.8713e-8,
      4.0135e-8, 4.2824e-8, 4.3004e-8, 4.0279e-8, 4.2781e-8, 4.522e-8,
      4.8948e-8, 5.0172e-8, 4.8499e-8, 4.7182e-8, 4.2204e-8, 3.7701e-8,
      3.0972e-8, 2.4654e-8, 1.9543e-8, 1.4609e-8, 1.1171e-8, 8.3367e-9,
      6.3791e-9, 5.079e-9, 4.0655e-9, 3.3658e-9, 2.7882e-9, 2.4749e-9,
      2.2287e-9, 2.0217e-9, 1.8191e-9, 1.5897e-9, 1.4191e-9, 1.2448e-9,
      1.0884e-9, 9.3585e-10, 7.9429e-10, 7.3214e-10, 6.5008e-10,
      5.7549e-10, 5.43e-10, 4.7251e-10, 4.3451e-10, 3.8446e-10,
      3.5589e-10, 3.4432e-10, 2.8209e-10, 2.462e-10, 2.1278e-10,
      1.8406e-10, 1.6314e-10, 1.3261e-10, 1.1696e-10, 9.6865e-11,
      7.6814e-11, 6.6411e-11, 5.0903e-11, 4.0827e-11, 3.0476e-11,
      2.323e-11, 1.7707e-11, 1.3548e-11, 1.0719e-11, 9.3026e-12,
      8.7967e-12, 8.3136e-12, 7.3918e-12, 6.5293e-12, 5.9243e-12,
      5.3595e-12, 3.5266e-12, 2.2571e-12, 1.615e-12, 1.1413e-12,
      8.4998e-13, 7.0803e-13, 5.1747e-13, 4.0694e-13, 3.6528e-13,
      3.367e-13, 3.1341e-13, 2.939e-13, 2.868e-13, 3.1283e-13,
      3.7294e-13, 5.0194e-13, 6.7919e-13, 1.0455e-12, 1.523e-12,
      2.3932e-12, 3.4231e-12, 5.0515e-12, 7.3193e-12, 9.9406e-12,
      1.2193e-11, 1.4742e-11, 1.9269e-11, 2.1816e-11, 2.275e-11,
      2.2902e-11, 2.3888e-11, 2.4902e-11, 2.216e-11, 2.0381e-11,
      1.9903e-11, 2.0086e-11, 1.9304e-11, 2.0023e-11, 2.2244e-11,
      2.545e-11, 3.1228e-11, 3.456e-11, 3.6923e-11, 3.7486e-11,
      3.8124e-11, 3.8317e-11, 3.4737e-11, 3.3037e-11, 3.1724e-11,
      2.984e-11, 2.8301e-11, 2.5857e-11, 2.3708e-11, 1.9452e-11,
      1.6232e-11, 1.5174e-11, 1.4206e-11, 1.4408e-11, 1.5483e-11,
      1.8642e-11, 2.3664e-11, 3.0181e-11, 4.016e-11, 5.2287e-11,
      7.2754e-11, 1.0511e-10, 1.4531e-10, 2.0998e-10, 2.6883e-10,
      3.3082e-10, 4.2638e-10, 5.3132e-10, 6.3617e-10, 7.1413e-10,
      8.5953e-10, 9.9715e-10, 1.0796e-9, 1.0978e-9, 1.1052e-9,
      1.1095e-9, 1.0641e-9, 9.7881e-10, 9.659e-10, 1.0332e-9, 1.1974e-9,
       1.3612e-9, 1.5829e-9, 1.8655e-9, 2.1465e-9, 2.4779e-9, 2.737e-9,
      2.9915e-9, 3.3037e-9, 3.6347e-9, 3.9587e-9, 4.4701e-9, 5.0122e-9,
      5.8044e-9, 6.1916e-9, 6.9613e-9, 7.7863e-9, 8.282e-9, 9.4359e-9,
      9.7387e-9, 1.0656e-8, 1.0746e-8, 1.121e-8, 1.1905e-8, 1.2194e-8,
      1.3145e-8, 1.3738e-8, 1.3634e-8, 1.3011e-8, 1.2511e-8, 1.1805e-8,
      1.2159e-8, 1.239e-8, 1.3625e-8, 1.5678e-8, 1.7886e-8, 1.9933e-8,
      1.9865e-8, 1.9e-8, 1.7812e-8, 1.5521e-8, 1.2593e-8, 9.5635e-9,
      7.2987e-9, 5.2489e-9, 3.5673e-9, 2.4206e-9, 1.6977e-9, 1.2456e-9,
      9.3744e-10, 7.8379e-10, 6.996e-10, 6.6451e-10, 6.8521e-10,
      7.4234e-10, 8.6658e-10, 9.4972e-10, 1.0791e-9, 1.2359e-9,
      1.3363e-9, 1.5025e-9, 1.5368e-9, 1.6152e-9, 1.6184e-9, 1.6557e-9,
      1.7035e-9, 1.6916e-9, 1.7237e-9, 1.7175e-9, 1.6475e-9, 1.5335e-9,
      1.4272e-9, 1.3282e-9, 1.3459e-9, 1.4028e-9, 1.5192e-9, 1.7068e-9,
      1.9085e-9, 2.1318e-9, 2.102e-9, 1.9942e-9, 1.8654e-9, 1.6391e-9,
      1.3552e-9, 1.0186e-9, 7.854e-10, 5.7022e-10, 3.9247e-10,
      2.5441e-10, 1.6699e-10, 1.1132e-10, 6.8989e-11, 4.5255e-11,
      3.1106e-11, 2.3161e-11, 1.7618e-11, 1.438e-11, 1.1601e-11,
      9.7148e-12, 8.4519e-12, 6.5392e-12, 5.4113e-12, 4.7624e-12,
      4.0617e-12, 3.6173e-12, 2.8608e-12, 2.2724e-12, 1.7436e-12,
      1.3424e-12, 1.0358e-12, 7.3064e-13, 5.45e-13, 4.0551e-13,
      2.8642e-13, 2.1831e-13, 1.686e-13, 1.2086e-13, 1.015e-13,
      9.355e-14, 8.4105e-14, 7.3051e-14, 6.9796e-14, 7.9949e-14,
      1.0742e-13, 1.5639e-13, 2.1308e-13, 3.1226e-13, 4.6853e-13,
      6.6917e-13, 1.0088e-12, 1.4824e-12, 2.2763e-12, 3.3917e-12,
      4.4585e-12, 6.3187e-12, 8.4189e-12, 1.1302e-11, 1.3431e-11,
      1.5679e-11, 1.9044e-11, 2.2463e-11, 2.3605e-11, 2.3619e-11,
      2.3505e-11, 2.3805e-11, 2.2549e-11, 1.9304e-11, 1.8382e-11,
      1.7795e-11, 1.8439e-11, 1.9146e-11, 2.1966e-11, 2.6109e-11,
      3.1883e-11, 3.7872e-11, 4.3966e-11, 4.8789e-11, 5.3264e-11,
      5.9705e-11, 6.3744e-11, 7.0163e-11, 7.9114e-11, 8.8287e-11,
      9.9726e-11, 1.1498e-10, 1.37e-10, 1.6145e-10, 1.9913e-10,
      2.2778e-10, 2.6216e-10, 2.977e-10, 3.3405e-10, 3.7821e-10,
      3.9552e-10, 4.1322e-10, 4.0293e-10, 4.0259e-10, 3.8853e-10,
      3.7842e-10, 3.8551e-10, 4.4618e-10, 5.0527e-10, 5.0695e-10,
      5.1216e-10, 5.193e-10, 5.5794e-10, 5.332e-10, 5.2008e-10,
      5.6888e-10, 6.1883e-10, 6.9006e-10, 6.9505e-10, 6.6768e-10,
      6.329e-10, 5.6753e-10, 5.0327e-10, 3.983e-10, 3.1147e-10,
      2.4416e-10, 1.886e-10, 1.3908e-10, 9.9156e-11, 7.3779e-11,
      5.6048e-11, 4.2457e-11, 3.4505e-11, 2.9881e-11, 2.7865e-11,
      2.8471e-11, 3.1065e-11, 3.4204e-11, 3.914e-11, 4.3606e-11,
      4.9075e-11, 5.3069e-11, 5.5236e-11, 5.5309e-11, 5.3832e-11,
      5.3183e-11, 5.1783e-11, 5.2042e-11, 5.4422e-11, 5.5656e-11,
      5.4409e-11, 5.2659e-11, 5.1696e-11, 5.1726e-11, 4.9003e-11,
      4.905e-11, 5.17e-11, 5.6818e-11, 6.3129e-11, 6.6542e-11,
      6.4367e-11, 5.9908e-11, 5.447e-11, 4.7903e-11, 3.9669e-11,
      2.9651e-11, 2.2286e-11, 1.6742e-11, 1.1827e-11, 7.7739e-12,
      4.8805e-12, 3.1747e-12, 2.0057e-12, 1.255e-12, 8.7434e-13,
      6.2755e-13, 4.9752e-13, 4.0047e-13, 3.5602e-13, 3.093e-13,
      2.4903e-13, 1.9316e-13, 1.4995e-13, 1.2059e-13, 8.7242e-14,
      6.4511e-14, 5.33e-14, 4.3741e-14, 3.4916e-14, 2.656e-14,
      1.6923e-14, 1.1816e-14, 6.7071e-15, 3.6474e-15, 2.0686e-15,
      1.1925e-15, 6.8948e-16, 3.9661e-16, 2.2576e-16, 1.2669e-16,
      6.9908e-17, 3.7896e-17, 2.028e-17, 1.1016e-17, 6.7816e-18,
      6.0958e-18, 8.9913e-18, 1.7201e-17, 3.4964e-17, 7.0722e-17,
      1.402e-16, 2.7167e-16, 5.1478e-16, 9.55e-16, 1.7376e-15,
      3.1074e-15, 5.4789e-15, 9.564e-15, 1.6635e-14, 2.9145e-14,
      5.2179e-14, 8.8554e-14, 1.4764e-13, 2.3331e-13, 3.5996e-13,
      5.2132e-13, 6.3519e-13, 7.3174e-13, 8.3752e-13, 9.8916e-13,
      1.1515e-12, 1.4034e-12, 1.6594e-12, 2.1021e-12, 2.7416e-12,
      3.4135e-12, 4.5517e-12, 5.5832e-12, 7.2303e-12, 9.9484e-12,
      1.2724e-11, 1.6478e-11, 2.0588e-11, 2.5543e-11, 3.3625e-11,
      4.1788e-11, 5.0081e-11, 6.0144e-11, 6.9599e-11, 8.4408e-11,
      9.7143e-11, 1.0805e-10, 1.1713e-10, 1.2711e-10, 1.3727e-10,
      1.4539e-10, 1.6049e-10, 1.768e-10, 2.0557e-10, 2.4967e-10,
      3.0096e-10, 3.5816e-10, 4.0851e-10, 4.6111e-10, 5.2197e-10,
      5.5043e-10, 6.0324e-10, 6.4983e-10, 6.7498e-10, 7.0545e-10,
      7.068e-10, 7.5218e-10, 7.5723e-10, 7.784e-10, 8.0081e-10,
      8.0223e-10, 7.7271e-10, 7.1676e-10, 6.7819e-10, 6.4753e-10,
      6.5844e-10, 7.0163e-10, 7.7503e-10, 8.8152e-10, 9.9022e-10,
      1.0229e-9, 9.9296e-10, 8.9911e-10, 7.7813e-10, 6.3785e-10,
      4.7491e-10, 3.528e-10, 2.4349e-10, 1.6502e-10, 1.1622e-10,
      8.6715e-11, 6.736e-11, 5.391e-11, 4.5554e-11, 4.13e-11,
      3.9728e-11, 3.9e-11, 3.9803e-11, 4.1514e-11, 4.3374e-11,
      4.6831e-11, 4.8921e-11, 5.1995e-11, 5.7242e-11, 6.2759e-11,
      7.0801e-11, 7.4555e-11, 7.9754e-11, 8.7616e-11, 9.1171e-11,
      1.0349e-10, 1.1047e-10, 1.2024e-10, 1.299e-10, 1.3725e-10,
      1.5005e-10, 1.5268e-10, 1.5535e-10, 1.5623e-10, 1.5009e-10,
      1.4034e-10, 1.3002e-10, 1.2225e-10, 1.1989e-10, 1.2411e-10,
      1.3612e-10, 1.5225e-10, 1.7202e-10, 1.9471e-10, 1.9931e-10,
      1.9079e-10, 1.7478e-10, 1.5259e-10, 1.2625e-10, 9.3332e-11,
      6.8796e-11, 4.6466e-11, 2.9723e-11, 1.8508e-11, 1.2106e-11,
      8.0142e-12, 5.4066e-12, 3.9329e-12, 3.1665e-12, 2.742e-12,
      2.3996e-12, 2.3804e-12, 2.3242e-12, 2.4476e-12, 2.5331e-12,
      2.3595e-12, 2.2575e-12, 2.1298e-12, 2.0088e-12, 1.8263e-12,
      1.6114e-12, 1.4422e-12, 1.2946e-12, 1.0837e-12, 9.1282e-13,
      7.2359e-13, 5.3307e-13, 3.8837e-13, 2.6678e-13, 1.6769e-13,
      1.0826e-13, 7.2364e-14, 4.5201e-14, 3.0808e-14, 2.2377e-14,
      1.704e-14, 9.2181e-15, 5.2934e-15, 3.5774e-15, 3.1431e-15,
      3.7647e-15, 5.6428e-15, 9.5139e-15, 1.7322e-14, 2.8829e-14,
      4.7708e-14, 6.9789e-14, 9.7267e-14, 1.4662e-13, 1.9429e-13,
      2.5998e-13, 3.6636e-13, 4.796e-13, 6.5129e-13, 7.7638e-13,
      9.3774e-13, 1.1467e-12, 1.3547e-12, 1.5686e-12, 1.6893e-12,
      1.9069e-12, 2.1352e-12, 2.3071e-12, 2.4759e-12, 2.8247e-12,
      3.4365e-12, 4.3181e-12, 5.6107e-12, 7.0017e-12, 8.6408e-12,
      1.0974e-11, 1.3742e-11, 1.6337e-11, 2.0157e-11, 2.3441e-11,
      2.6733e-11, 3.0247e-11, 3.3737e-11, 3.8618e-11, 4.1343e-11,
      4.387e-11, 4.4685e-11, 4.4881e-11, 4.5526e-11, 4.3628e-11,
      4.4268e-11, 4.6865e-11, 5.3426e-11, 5.402e-11, 5.3218e-11,
      5.4587e-11, 5.636e-11, 5.774e-11, 5.6426e-11, 6.0399e-11,
      6.6981e-11, 7.4319e-11, 7.7977e-11, 7.5539e-11, 7.161e-11,
      6.4606e-11, 5.5498e-11, 4.3944e-11, 3.3769e-11, 2.5771e-11,
      1.9162e-11, 1.3698e-11, 1.0173e-11, 7.8925e-12, 6.1938e-12,
      4.7962e-12, 4.0811e-12, 3.3912e-12, 2.8625e-12, 2.4504e-12,
      2.2188e-12, 2.2139e-12, 2.2499e-12, 2.2766e-12, 2.3985e-12,
      2.5459e-12, 2.9295e-12, 3.4196e-12, 3.6155e-12, 4.0733e-12,
      4.461e-12, 4.9372e-12, 5.4372e-12, 5.7304e-12, 6.164e-12,
      6.1278e-12, 6.294e-12, 6.4947e-12, 6.8174e-12, 7.519e-12,
      8.2608e-12, 8.4971e-12, 8.3484e-12, 8.1888e-12, 7.8552e-12,
      7.8468e-12, 7.5943e-12, 7.9096e-12, 8.6869e-12, 9.1303e-12,
      9.2547e-12, 8.9322e-12, 8.2177e-12, 7.3408e-12, 5.7956e-12,
      4.447e-12, 3.5881e-12, 2.6748e-12, 1.7074e-12, 9.67e-13,
      5.2645e-13, 2.9943e-13, 1.7316e-13, 1.0039e-13, 5.7859e-14,
      3.2968e-14, 1.8499e-14, 1.0192e-14, 5.5015e-15, 2.904e-15,
      1.4968e-15, 7.5244e-16, 3.6852e-16, 1.7568e-16, 8.1464e-17,
      3.6717e-17, 1.6076e-17, 6.8341e-18, 2.8195e-18, 1.1286e-18, 0.,
      0., 0., 0., 0., 0., 0., 0., 0., 1.407e-18, 3.0405e-18, 6.4059e-18,
       1.3169e-17, 2.6443e-17, 5.1917e-17, 9.9785e-17, 1.8802e-16,
      3.4788e-16, 6.3328e-16, 1.137e-15, 2.0198e-15, 3.5665e-15,
      6.3053e-15, 1.1309e-14, 2.1206e-14, 3.2858e-14, 5.5165e-14,
      8.6231e-14, 1.2776e-13, 1.778e-13, 2.5266e-13, 3.6254e-13,
      5.1398e-13, 6.8289e-13, 8.7481e-13, 1.1914e-12, 1.6086e-12,
      2.0469e-12, 2.5761e-12, 3.4964e-12, 4.498e-12, 5.5356e-12,
      6.7963e-12, 8.572e-12, 1.07e-11, 1.2983e-11, 1.627e-11,
      1.9609e-11, 2.2668e-11, 2.5963e-11, 3.0918e-11, 3.493e-11,
      3.933e-11, 4.4208e-11, 4.6431e-11, 5.1141e-11, 5.4108e-11,
      5.8077e-11, 6.505e-11, 7.2126e-11, 8.1064e-11, 8.1973e-11,
      8.1694e-11, 8.3081e-11, 8.024e-11, 7.9225e-11, 7.6256e-11,
      7.8468e-11, 8.0041e-11, 8.1585e-11, 8.3485e-11, 8.3774e-11,
      8.587e-11, 8.6104e-11, 8.8516e-11, 9.0814e-11, 9.2522e-11,
      8.8913e-11, 7.8381e-11, 6.8568e-11, 5.6797e-11, 4.4163e-11,
      3.2369e-11, 2.3259e-11, 1.6835e-11, 1.1733e-11, 8.5273e-12,
      6.3805e-12, 4.8983e-12, 3.8831e-12, 3.261e-12, 2.8577e-12,
      2.521e-12, 2.2913e-12, 2.0341e-12, 1.8167e-12, 1.6395e-12,
      1.489e-12, 1.3516e-12, 1.2542e-12, 1.291e-12, 1.3471e-12,
      1.4689e-12, 1.5889e-12, 1.6989e-12, 1.8843e-12, 2.0902e-12,
      2.3874e-12, 2.7294e-12, 3.3353e-12, 4.0186e-12, 4.5868e-12,
      5.2212e-12, 5.8856e-12, 6.5991e-12, 7.2505e-12, 7.6637e-12,
      8.5113e-12, 9.4832e-12, 9.9678e-12, 1.0723e-11, 1.0749e-11,
      1.138e-11, 1.1774e-11, 1.1743e-11, 1.2493e-11, 1.2559e-11,
      1.2332e-11, 1.1782e-11, 1.1086e-11, 1.0945e-11, 1.1178e-11,
      1.2083e-11, 1.3037e-11, 1.473e-11, 1.645e-11, 1.7403e-11,
      1.7004e-11, 1.5117e-11, 1.3339e-11, 1.0844e-11, 8.0915e-12,
      5.6615e-12, 3.7196e-12, 2.5194e-12, 1.6569e-12, 1.1201e-12,
      8.2335e-13, 6.027e-13, 4.8205e-13, 4.1313e-13, 3.6243e-13,
      3.2575e-13, 2.773e-13, 2.5292e-13, 2.3062e-13, 2.1126e-13,
      2.1556e-13, 2.1213e-13, 2.2103e-13, 2.1927e-13, 2.0794e-13,
      1.9533e-13, 1.6592e-13, 1.4521e-13, 1.1393e-13, 8.3772e-14,
      6.2077e-14, 4.3337e-14, 2.7165e-14, 1.6821e-14, 9.5407e-15,
      5.3093e-15, 3.032e-15, 1.7429e-15, 9.9828e-16, 5.6622e-16,
      3.1672e-16, 1.7419e-16, 9.3985e-17, 4.9656e-17, 2.5652e-17,
      1.2942e-17, 6.3695e-18, 3.0554e-18, 1.4273e-18, -0., -0., -0.,
      -0., -0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
      0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
      0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
      0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
      0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
      0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
      0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
      0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
      0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
      0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
      0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
      0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.} };
 
struct s_fh2ob_ {
    double e_1[3];
    int e_2;
    } fh2ob_ = { {-20., 2e4, 10.}, 2003 };
 
struct s_sh2oa_ {
    double e_1[2003];
    } sh2oa_ = { {.11109, .10573, .10162, .10573, .11109, .12574, .13499,
      .14327, .15065, .15164, .15022, .13677, .13115, .12253, .11271,
      .1007, .087495, .080118, .06994, .062034, .056051, .047663,
      .04245, .03669, .033441, .030711, .025205, .022113, .01888,
      .016653, .014626, .012065, .010709, .0091783, .0077274, .0067302,
      .0056164, .0049089, .0041497, .0035823, .0031124, .0026414,
      .0023167, .0020156, .0017829, .0015666, .0013928, .0012338,
      .0010932, 9.7939e-4, 8.8241e-4, 7.9173e-4, 7.1296e-4, 6.4179e-4,
      5.8031e-4, 5.2647e-4, 4.7762e-4, 4.3349e-4, 3.9355e-4, 3.5887e-4,
      3.2723e-4, 2.9919e-4, 2.7363e-4, 2.5013e-4, 2.2876e-4, 2.0924e-4,
      1.9193e-4, 1.7618e-4, 1.6188e-4, 1.4891e-4, 1.3717e-4, 1.2647e-4,
      1.1671e-4, 1.0786e-4, 9.9785e-5, 9.235e-5, 8.5539e-5, 7.9377e-5,
      7.3781e-5, 6.8677e-5, 6.3993e-5, 5.9705e-5, 5.5788e-5, 5.2196e-5,
      4.8899e-5, 4.5865e-5, 4.3079e-5, 4.0526e-5, 3.8182e-5, 3.6025e-5,
      3.4038e-5, 3.2203e-5, 3.0511e-5, 2.8949e-5, 2.7505e-5, 2.617e-5,
      2.4933e-5, 2.3786e-5, 2.2722e-5, 2.1736e-5, 2.0819e-5, 1.9968e-5,
      1.9178e-5, 1.8442e-5, 1.776e-5, 1.7127e-5, 1.6541e-5, 1.5997e-5,
      1.5495e-5, 1.5034e-5, 1.4614e-5, 1.423e-5, 1.3883e-5, 1.3578e-5,
      1.3304e-5, 1.3069e-5, 1.2876e-5, 1.2732e-5, 1.2626e-5, 1.2556e-5,
      1.2544e-5, 1.2604e-5, 1.2719e-5, 1.2883e-5, 1.3164e-5, 1.3581e-5,
      1.4187e-5, 1.4866e-5, 1.5669e-5, 1.6717e-5, 1.8148e-5, 2.0268e-5,
      2.2456e-5, 2.5582e-5, 2.9183e-5, 3.3612e-5, 3.9996e-5, 4.6829e-5,
      5.5055e-5, 6.5897e-5, 7.536e-5, 8.7213e-5, 1.0046e-4, 1.1496e-4,
      1.2943e-4, 1.5049e-4, 1.6973e-4, 1.8711e-4, 2.0286e-4, 2.2823e-4,
      2.678e-4, 2.8766e-4, 3.1164e-4, 3.364e-4, 3.6884e-4, 3.9159e-4,
      3.8712e-4, 3.7433e-4, 3.4503e-4, 3.1003e-4, 2.8027e-4, 2.5253e-4,
      2.3408e-4, 2.2836e-4, 2.4442e-4, 2.7521e-4, 2.9048e-4, 3.0489e-4,
      3.2646e-4, 3.388e-4, 3.3492e-4, 3.0987e-4, 2.9482e-4, 2.8711e-4,
      2.6068e-4, 2.2683e-4, 1.9996e-4, 1.7788e-4, 1.6101e-4, 1.3911e-4,
      1.2013e-4, 1.0544e-4, 9.4224e-5, 8.1256e-5, 7.3667e-5, 6.2233e-5,
      5.5906e-5, 5.1619e-5, 4.514e-5, 4.0273e-5, 3.3268e-5, 3.0258e-5,
      2.644e-5, 2.3103e-5, 2.0749e-5, 1.8258e-5, 1.6459e-5, 1.4097e-5,
      1.2052e-5, 1.0759e-5, 9.14e-6, 8.1432e-6, 7.146e-6, 6.4006e-6,
      5.6995e-6, 4.9372e-6, 4.4455e-6, 3.9033e-6, 3.474e-6, 3.1269e-6,
      2.8059e-6, 2.5558e-6, 2.2919e-6, 2.0846e-6, 1.8983e-6, 1.7329e-6,
      1.5929e-6, 1.4631e-6, 1.3513e-6, 1.2461e-6, 1.1519e-6, 1.0682e-6,
      9.9256e-7, 9.2505e-7, 8.6367e-7, 8.0857e-7, 7.5674e-7, 7.0934e-7,
      6.658e-7, 6.258e-7, 5.8853e-7, 5.5333e-7, 5.2143e-7, 4.9169e-7,
      4.6431e-7, 4.3898e-7, 4.1564e-7, 3.9405e-7, 3.7403e-7, 3.5544e-7,
      3.3819e-7, 3.2212e-7, 3.0714e-7, 2.9313e-7, 2.8003e-7, 2.6777e-7,
      2.5628e-7, 2.4551e-7, 2.354e-7, 2.2591e-7, 2.1701e-7, 2.0866e-7,
      2.0082e-7, 1.9349e-7, 1.8665e-7, 1.8027e-7, 1.7439e-7, 1.6894e-7,
      1.64e-7, 1.5953e-7, 1.5557e-7, 1.5195e-7, 1.4888e-7, 1.4603e-7,
      1.4337e-7, 1.4093e-7, 1.3828e-7, 1.3569e-7, 1.327e-7, 1.2984e-7,
      1.2714e-7, 1.2541e-7, 1.2399e-7, 1.2102e-7, 1.1878e-7, 1.1728e-7,
      1.1644e-7, 1.1491e-7, 1.1305e-7, 1.1235e-7, 1.1228e-7, 1.1224e-7,
      1.1191e-7, 1.1151e-7, 1.1098e-7, 1.1068e-7, 1.1109e-7, 1.1213e-7,
      1.1431e-7, 1.1826e-7, 1.2322e-7, 1.3025e-7, 1.4066e-7, 1.5657e-7,
      1.7214e-7, 1.9449e-7, 2.2662e-7, 2.6953e-7, 3.1723e-7, 3.7028e-7,
      4.4482e-7, 5.3852e-7, 6.2639e-7, 7.2175e-7, 7.7626e-7, 8.7248e-7,
      9.6759e-7, 1.0102e-6, 1.062e-6, 1.1201e-6, 1.2107e-6, 1.2998e-6,
      1.313e-6, 1.2856e-6, 1.235e-6, 1.1489e-6, 1.0819e-6, 1.012e-6,
      9.4795e-7, 9.2858e-7, 9.806e-7, 1.0999e-6, 1.1967e-6, 1.2672e-6,
      1.3418e-6, 1.3864e-6, 1.433e-6, 1.4592e-6, 1.4598e-6, 1.4774e-6,
      1.4726e-6, 1.482e-6, 1.505e-6, 1.4984e-6, 1.5181e-6, 1.5888e-6,
      1.685e-6, 1.769e-6, 1.9277e-6, 2.1107e-6, 2.3068e-6, 2.5347e-6,
      2.8069e-6, 3.1345e-6, 3.5822e-6, 3.9051e-6, 4.3422e-6, 4.8704e-6,
      5.5351e-6, 6.3454e-6, 7.269e-6, 8.2974e-6, 9.7609e-6, 1.1237e-5,
      1.3187e-5, 1.5548e-5, 1.8784e-5, 2.1694e-5, 2.5487e-5, 3.0092e-5,
      3.5385e-5, 4.2764e-5, 4.9313e-5, 5.58e-5, 6.2968e-5, 7.106e-5,
      7.7699e-5, 8.7216e-5, 8.9335e-5, 9.2151e-5, 9.2779e-5, 9.4643e-5,
      9.7978e-5, 1.0008e-4, 1.0702e-4, 1.1026e-4, 1.0828e-4, 1.055e-4,
      1.0432e-4, 1.0428e-4, 9.898e-5, 9.4992e-5, 9.5159e-5, 1.0058e-4,
      1.0738e-4, 1.155e-4, 1.1229e-4, 1.0596e-4, 1.0062e-4, 9.1742e-5,
      8.4492e-5, 6.8099e-5, 5.6295e-5, 4.6502e-5, 3.8071e-5, 3.0721e-5,
      2.3297e-5, 1.8688e-5, 1.483e-5, 1.2049e-5, 9.6754e-6, 7.9192e-6,
      6.6673e-6, 5.6468e-6, 4.8904e-6, 4.2289e-6, 3.688e-6, 3.2396e-6,
      2.8525e-6, 2.5363e-6, 2.2431e-6, 1.9949e-6, 1.7931e-6, 1.6164e-6,
      1.4431e-6, 1.2997e-6, 1.1559e-6, 1.0404e-6, 9.43e-7, 8.4597e-7,
      7.6133e-7, 6.8623e-7, 6.2137e-7, 5.6345e-7, 5.1076e-7, 4.6246e-7,
      4.1906e-7, 3.8063e-7, 3.461e-7, 3.1554e-7, 2.8795e-7, 2.6252e-7,
      2.3967e-7, 2.1901e-7, 2.0052e-7, 1.8384e-7, 1.6847e-7, 1.5459e-7,
      1.4204e-7, 1.3068e-7, 1.2036e-7, 1.1095e-7, 1.0237e-7, 9.4592e-8,
      8.753e-8, 8.1121e-8, 7.5282e-8, 6.9985e-8, 6.5189e-8, 6.0874e-8,
      5.6989e-8, 5.353e-8, 5.0418e-8, 4.7745e-8, 4.5367e-8, 4.3253e-8,
      4.1309e-8, 3.9695e-8, 3.8094e-8, 3.6482e-8, 3.4897e-8, 3.35e-8,
      3.2302e-8, 3.0854e-8, 2.9698e-8, 2.8567e-8, 2.76e-8, 2.6746e-8,
      2.5982e-8, 2.551e-8, 2.5121e-8, 2.4922e-8, 2.4909e-8, 2.5013e-8,
      2.5216e-8, 2.5589e-8, 2.6049e-8, 2.6451e-8, 2.6978e-8, 2.7687e-8,
      2.86e-8, 2.9643e-8, 3.0701e-8, 3.2058e-8, 3.3695e-8, 3.5558e-8,
      3.7634e-8, 3.9875e-8, 4.2458e-8, 4.548e-8, 4.8858e-8, 5.2599e-8,
      5.703e-8, 6.2067e-8, 6.7911e-8, 7.4579e-8, 8.1902e-8, 8.9978e-8,
      9.987e-8, 1.1102e-7, 1.2343e-7, 1.3732e-7, 1.5394e-7, 1.7318e-7,
      1.9383e-7, 2.1819e-7, 2.4666e-7, 2.8109e-7, 3.2236e-7, 3.776e-7,
      4.4417e-7, 5.2422e-7, 6.1941e-7, 7.4897e-7, 9.2041e-7, 1.1574e-6,
      1.4126e-6, 1.7197e-6, 2.1399e-6, 2.6266e-6, 3.3424e-6, 3.8418e-6,
      4.514e-6, 5.0653e-6, 5.8485e-6, 6.5856e-6, 6.8937e-6, 6.9121e-6,
      6.9005e-6, 6.9861e-6, 6.82e-6, 6.6089e-6, 6.5809e-6, 7.3496e-6,
      8.0311e-6, 8.3186e-6, 8.426e-6, 9.0644e-6, 9.4965e-6, 9.4909e-6,
      9.016e-6, 9.1494e-6, 9.3629e-6, 9.5944e-6, 9.5459e-6, 8.9919e-6,
      8.604e-6, 7.8613e-6, 7.1567e-6, 6.2677e-6, 5.1899e-6, 4.4188e-6,
      3.7167e-6, 3.0636e-6, 2.5573e-6, 2.0317e-6, 1.6371e-6, 1.3257e-6,
      1.0928e-6, 8.9986e-7, 7.4653e-7, 6.1111e-7, 5.1395e-7, 4.35e-7,
      3.7584e-7, 3.2633e-7, 2.8413e-7, 2.4723e-7, 2.1709e-7, 1.9294e-7,
      1.7258e-7, 1.5492e-7, 1.382e-7, 1.2389e-7, 1.1189e-7, 1.0046e-7,
      9.0832e-8, 8.2764e-8, 7.4191e-8, 6.7085e-8, 6.0708e-8, 5.4963e-8,
      4.9851e-8, 4.5044e-8, 4.0916e-8, 3.722e-8, 3.3678e-8, 3.0663e-8,
      2.7979e-8, 2.5495e-8, 2.3286e-8, 2.1233e-8, 1.9409e-8, 1.777e-8,
      1.626e-8, 1.4885e-8, 1.3674e-8, 1.2543e-8, 1.1551e-8, 1.0655e-8,
      9.8585e-9, 9.1398e-9, 8.4806e-9, 7.8899e-9, 7.3547e-9, 6.867e-9,
      6.4131e-9, 5.993e-9, 5.6096e-9, 5.2592e-9, 4.9352e-9, 4.6354e-9,
      4.3722e-9, 4.125e-9, 3.9081e-9, 3.7118e-9, 3.5372e-9, 3.3862e-9,
      3.2499e-9, 3.1324e-9, 3.0313e-9, 2.9438e-9, 2.8686e-9, 2.805e-9,
      2.7545e-9, 2.7149e-9, 2.6907e-9, 2.6724e-9, 2.6649e-9, 2.6642e-9,
      2.6725e-9, 2.6871e-9, 2.7056e-9, 2.7357e-9, 2.7781e-9, 2.8358e-9,
      2.9067e-9, 2.9952e-9, 3.102e-9, 3.2253e-9, 3.3647e-9, 3.5232e-9,
      3.7037e-9, 3.9076e-9, 4.1385e-9, 4.3927e-9, 4.6861e-9, 5.0238e-9,
      5.4027e-9, 5.8303e-9, 6.3208e-9, 6.8878e-9, 7.5419e-9, 8.313e-9,
      9.1952e-9, 1.0228e-8, 1.1386e-8, 1.2792e-8, 1.4521e-8, 1.6437e-8,
      1.8674e-8, 2.116e-8, 2.4506e-8, 2.8113e-8, 3.2636e-8, 3.7355e-8,
      4.2234e-8, 4.9282e-8, 5.7358e-8, 6.6743e-8, 7.8821e-8, 9.4264e-8,
      1.1542e-7, 1.3684e-7, 1.6337e-7, 2.0056e-7, 2.3252e-7, 2.6127e-7,
      2.9211e-7, 3.3804e-7, 3.7397e-7, 3.8205e-7, 3.881e-7, 3.9499e-7,
      3.9508e-7, 3.7652e-7, 3.5859e-7, 3.6198e-7, 3.7871e-7, 4.0925e-7,
      4.2717e-7, 4.8241e-7, 5.2008e-7, 5.653e-7, 5.9531e-7, 6.1994e-7,
      6.508e-7, 6.6355e-7, 6.9193e-7, 6.993e-7, 7.3058e-7, 7.4678e-7,
      7.9193e-7, 8.3627e-7, 9.1267e-7, 1.0021e-6, 1.1218e-6, 1.2899e-6,
      1.4447e-6, 1.7268e-6, 2.0025e-6, 2.3139e-6, 2.5599e-6, 2.892e-6,
      3.3059e-6, 3.5425e-6, 3.9522e-6, 4.0551e-6, 4.2818e-6, 4.2892e-6,
      4.421e-6, 4.5614e-6, 4.6739e-6, 4.9482e-6, 5.1118e-6, 5.0986e-6,
      4.9417e-6, 4.9022e-6, 4.8449e-6, 4.8694e-6, 4.8111e-6, 4.9378e-6,
      5.3231e-6, 5.7362e-6, 6.235e-6, 6.0951e-6, 5.7281e-6, 5.4585e-6,
      4.9032e-6, 4.3009e-6, 3.4776e-6, 2.8108e-6, 2.2993e-6, 1.7999e-6,
      1.387e-6, 1.075e-6, 8.5191e-7, 6.7951e-7, 5.5336e-7, 4.6439e-7,
      4.0243e-7, 3.5368e-7, 3.1427e-7, 2.7775e-7, 2.4486e-7, 2.1788e-7,
      1.9249e-7, 1.7162e-7, 1.5115e-7, 1.3478e-7, 1.2236e-7, 1.1139e-7,
      1.0092e-7, 9.0795e-8, 8.2214e-8, 7.4691e-8, 6.7486e-8, 6.0414e-8,
      5.4584e-8, 4.8754e-8, 4.3501e-8, 3.8767e-8, 3.4363e-8, 3.0703e-8,
      2.7562e-8, 2.4831e-8, 2.2241e-8, 1.9939e-8, 1.8049e-8, 1.6368e-8,
      1.4863e-8, 1.346e-8, 1.2212e-8, 1.1155e-8, 1.0185e-8, 9.3417e-9,
      8.5671e-9, 7.8292e-9, 7.1749e-9, 6.5856e-9, 6.0588e-9, 5.5835e-9,
      5.135e-9, 4.7395e-9, 4.3771e-9, 4.0476e-9, 3.756e-9, 3.4861e-9,
      3.2427e-9, 3.024e-9, 2.8278e-9, 2.6531e-9, 2.4937e-9, 2.3511e-9,
      2.2245e-9, 2.1133e-9, 2.0159e-9, 1.933e-9, 1.8669e-9, 1.8152e-9,
      1.7852e-9, 1.7752e-9, 1.7823e-9, 1.8194e-9, 1.8866e-9, 1.9759e-9,
      2.0736e-9, 2.2083e-9, 2.3587e-9, 2.4984e-9, 2.6333e-9, 2.816e-9,
      3.0759e-9, 3.372e-9, 3.6457e-9, 4.0668e-9, 4.4541e-9, 4.7976e-9,
      5.0908e-9, 5.4811e-9, 6.1394e-9, 6.3669e-9, 6.5714e-9, 6.8384e-9,
      7.1918e-9, 7.3741e-9, 7.2079e-9, 7.2172e-9, 7.2572e-9, 7.3912e-9,
      7.6188e-9, 8.3291e-9, 8.7885e-9, 9.2412e-9, 1.0021e-8, 1.0752e-8,
      1.1546e-8, 1.1607e-8, 1.1949e-8, 1.2346e-8, 1.2516e-8, 1.2826e-8,
      1.3053e-8, 1.3556e-8, 1.4221e-8, 1.5201e-8, 1.6661e-8, 1.8385e-8,
      2.0585e-8, 2.3674e-8, 2.7928e-8, 3.3901e-8, 4.1017e-8, 4.9595e-8,
      6.0432e-8, 7.6304e-8, 9.0764e-8, 1.0798e-7, 1.2442e-7, 1.4404e-7,
      1.6331e-7, 1.8339e-7, 2.0445e-7, 2.2288e-7, 2.3083e-7, 2.3196e-7,
      2.3919e-7, 2.3339e-7, 2.3502e-7, 2.3444e-7, 2.6395e-7, 2.9928e-7,
      3.0025e-7, 3.0496e-7, 3.1777e-7, 3.4198e-7, 3.4739e-7, 3.2696e-7,
      3.41e-7, 3.5405e-7, 3.7774e-7, 3.8285e-7, 3.6797e-7, 3.58e-7,
      3.2283e-7, 2.9361e-7, 2.4881e-7, 2.0599e-7, 1.7121e-7, 1.3641e-7,
      1.1111e-7, 8.9413e-8, 7.3455e-8, 6.2078e-8, 5.2538e-8, 4.5325e-8,
      3.9005e-8, 3.4772e-8, 3.1203e-8, 2.8132e-8, 2.525e-8, 2.2371e-8,
      2.0131e-8, 1.7992e-8, 1.6076e-8, 1.4222e-8, 1.249e-8, 1.1401e-8,
      1.0249e-8, 9.2279e-9, 8.5654e-9, 7.6227e-9, 6.9648e-9, 6.2466e-9,
      5.7252e-9, 5.38e-9, 4.696e-9, 4.2194e-9, 3.7746e-9, 3.3813e-9,
      3.0656e-9, 2.6885e-9, 2.4311e-9, 2.1572e-9, 1.8892e-9, 1.7038e-9,
      1.4914e-9, 1.3277e-9, 1.1694e-9, 1.0391e-9, 9.2779e-10,
      8.3123e-10, 7.4968e-10, 6.8385e-10, 6.2915e-10, 5.7784e-10,
      5.2838e-10, 4.8382e-10, 4.4543e-10, 4.1155e-10, 3.7158e-10,
      3.3731e-10, 3.0969e-10, 2.8535e-10, 2.6416e-10, 2.4583e-10,
      2.2878e-10, 2.1379e-10, 2.0073e-10, 1.8907e-10, 1.7866e-10,
      1.6936e-10, 1.6119e-10, 1.5424e-10, 1.4847e-10, 1.4401e-10,
      1.4068e-10, 1.3937e-10, 1.3943e-10, 1.4281e-10, 1.4766e-10,
      1.5701e-10, 1.7079e-10, 1.8691e-10, 2.0081e-10, 2.174e-10,
      2.4847e-10, 2.6463e-10, 2.7087e-10, 2.7313e-10, 2.8352e-10,
      2.9511e-10, 2.8058e-10, 2.7227e-10, 2.7356e-10, 2.8012e-10,
      2.8034e-10, 2.9031e-10, 3.103e-10, 3.3745e-10, 3.8152e-10,
      4.0622e-10, 4.2673e-10, 4.3879e-10, 4.5488e-10, 4.7179e-10,
      4.614e-10, 4.6339e-10, 4.6716e-10, 4.7024e-10, 4.7931e-10,
      4.8503e-10, 4.9589e-10, 4.9499e-10, 5.0363e-10, 5.3184e-10,
      5.6451e-10, 6.0932e-10, 6.6469e-10, 7.4076e-10, 8.3605e-10,
      9.4898e-10, 1.0935e-9, 1.2593e-9, 1.4913e-9, 1.8099e-9, 2.1842e-9,
       2.7284e-9, 3.2159e-9, 3.7426e-9, 4.5226e-9, 5.3512e-9, 6.1787e-9,
       6.8237e-9, 7.9421e-9, 9.0002e-9, 9.6841e-9, 9.9558e-9, 1.0232e-8,
       1.0591e-8, 1.0657e-8, 1.0441e-8, 1.0719e-8, 1.1526e-8, 1.2962e-8,
       1.4336e-8, 1.615e-8, 1.8417e-8, 2.0725e-8, 2.3426e-8, 2.5619e-8,
      2.7828e-8, 3.0563e-8, 3.3438e-8, 3.6317e-8, 4.04e-8, 4.4556e-8,
      5.0397e-8, 5.3315e-8, 5.9185e-8, 6.5311e-8, 6.9188e-8, 7.7728e-8,
      7.9789e-8, 8.6598e-8, 8.7768e-8, 9.1773e-8, 9.7533e-8, 1.0007e-7,
      1.065e-7, 1.0992e-7, 1.0864e-7, 1.0494e-7, 1.0303e-7, 1.0031e-7,
      1.0436e-7, 1.0537e-7, 1.1184e-7, 1.2364e-7, 1.3651e-7, 1.4881e-7,
      1.4723e-7, 1.4118e-7, 1.3371e-7, 1.1902e-7, 1.0007e-7, 7.9628e-8,
      6.4362e-8, 5.0243e-8, 3.8133e-8, 2.94e-8, 2.3443e-8, 1.9319e-8,
      1.6196e-8, 1.4221e-8, 1.2817e-8, 1.1863e-8, 1.1383e-8, 1.1221e-8,
      1.1574e-8, 1.1661e-8, 1.2157e-8, 1.2883e-8, 1.3295e-8, 1.4243e-8,
      1.424e-8, 1.4614e-8, 1.4529e-8, 1.4685e-8, 1.4974e-8, 1.479e-8,
      1.489e-8, 1.4704e-8, 1.4142e-8, 1.3374e-8, 1.2746e-8, 1.2172e-8,
      1.2336e-8, 1.2546e-8, 1.3065e-8, 1.409e-8, 1.5215e-8, 1.654e-8,
      1.6144e-8, 1.5282e-8, 1.4358e-8, 1.2849e-8, 1.0998e-8, 8.6956e-9,
      7.0881e-9, 5.5767e-9, 4.2792e-9, 3.2233e-9, 2.502e-9, 1.9985e-9,
      1.5834e-9, 1.3015e-9, 1.0948e-9, 9.4141e-10, 8.1465e-10,
      7.1517e-10, 6.2906e-10, 5.5756e-10, 4.9805e-10, 4.3961e-10,
      3.9181e-10, 3.5227e-10, 3.167e-10, 2.8667e-10, 2.5745e-10,
      2.3212e-10, 2.0948e-10, 1.897e-10, 1.7239e-10, 1.5659e-10,
      1.4301e-10, 1.3104e-10, 1.2031e-10, 1.1095e-10, 1.0262e-10,
      9.513e-11, 8.8595e-11, 8.2842e-11, 7.7727e-11, 7.3199e-11,
      6.9286e-11, 6.5994e-11, 6.3316e-11, 6.1244e-11, 5.9669e-11,
      5.8843e-11, 5.8832e-11, 5.9547e-11, 6.1635e-11, 6.4926e-11,
      7.0745e-11, 7.8802e-11, 8.6724e-11, 1.0052e-10, 1.1575e-10,
      1.3626e-10, 1.5126e-10, 1.6751e-10, 1.9239e-10, 2.1748e-10,
      2.2654e-10, 2.2902e-10, 2.324e-10, 2.4081e-10, 2.393e-10,
      2.2378e-10, 2.2476e-10, 2.2791e-10, 2.4047e-10, 2.5305e-10,
      2.8073e-10, 3.1741e-10, 3.6592e-10, 4.1495e-10, 4.6565e-10,
      5.099e-10, 5.5607e-10, 6.1928e-10, 6.6779e-10, 7.335e-10,
      8.1434e-10, 8.9635e-10, 9.9678e-10, 1.1256e-9, 1.2999e-9,
      1.4888e-9, 1.7642e-9, 1.9606e-9, 2.2066e-9, 2.4601e-9, 2.7218e-9,
      3.0375e-9, 3.1591e-9, 3.2852e-9, 3.2464e-9, 3.3046e-9, 3.271e-9,
      3.2601e-9, 3.3398e-9, 3.7446e-9, 4.0795e-9, 4.0284e-9, 4.0584e-9,
      4.1677e-9, 4.5358e-9, 4.4097e-9, 4.2744e-9, 4.5449e-9, 4.8147e-9,
      5.2656e-9, 5.2476e-9, 5.0275e-9, 4.7968e-9, 4.3654e-9, 3.953e-9,
      3.2447e-9, 2.6489e-9, 2.1795e-9, 1.788e-9, 1.4309e-9, 1.1256e-9,
      9.1903e-10, 7.6533e-10, 6.3989e-10, 5.5496e-10, 4.9581e-10,
      4.5722e-10, 4.3898e-10, 4.3505e-10, 4.3671e-10, 4.5329e-10,
      4.6827e-10, 4.9394e-10, 5.1122e-10, 5.1649e-10, 5.0965e-10,
      4.9551e-10, 4.8928e-10, 4.7947e-10, 4.7989e-10, 4.9071e-10,
      4.8867e-10, 4.726e-10, 4.5756e-10, 4.54e-10, 4.5993e-10,
      4.4042e-10, 4.3309e-10, 4.4182e-10, 4.6735e-10, 5.0378e-10,
      5.2204e-10, 5.0166e-10, 4.6799e-10, 4.3119e-10, 3.8803e-10,
      3.3291e-10, 2.6289e-10, 2.1029e-10, 1.7011e-10, 1.3345e-10,
      1.0224e-10, 7.8207e-11, 6.2451e-11, 5.0481e-11, 4.1507e-11,
      3.5419e-11, 3.0582e-11, 2.69e-11, 2.3778e-11, 2.1343e-11,
      1.9182e-11, 1.7162e-11, 1.5391e-11, 1.3877e-11, 1.2619e-11,
      1.145e-11, 1.0461e-11, 9.6578e-12, 8.9579e-12, 8.3463e-12,
      7.8127e-12, 7.3322e-12, 6.9414e-12, 6.6037e-12, 6.3285e-12,
      6.1095e-12, 5.9387e-12, 5.8118e-12, 5.726e-12, 5.6794e-12,
      5.6711e-12, 5.7003e-12, 5.767e-12, 5.8717e-12, 6.0151e-12,
      6.1984e-12, 6.4232e-12, 6.6918e-12, 7.0065e-12, 7.3705e-12,
      7.7873e-12, 8.2612e-12, 8.7972e-12, 9.4009e-12, 1.0079e-11,
      1.084e-11, 1.1692e-11, 1.2648e-11, 1.3723e-11, 1.4935e-11,
      1.6313e-11, 1.7905e-11, 1.974e-11, 2.1898e-11, 2.4419e-11,
      2.7426e-11, 3.0869e-11, 3.4235e-11, 3.7841e-11, 4.1929e-11,
      4.6776e-11, 5.2123e-11, 5.8497e-11, 6.5294e-11, 7.4038e-11,
      8.4793e-11, 9.6453e-11, 1.1223e-10, 1.2786e-10, 1.4882e-10,
      1.7799e-10, 2.0766e-10, 2.4523e-10, 2.8591e-10, 3.3386e-10,
      4.0531e-10, 4.7663e-10, 5.4858e-10, 6.3377e-10, 7.1688e-10,
      8.4184e-10, 9.5144e-10, 1.0481e-9, 1.1356e-9, 1.2339e-9,
      1.3396e-9, 1.4375e-9, 1.5831e-9, 1.7323e-9, 1.9671e-9, 2.2976e-9,
      2.6679e-9, 3.0777e-9, 3.4321e-9, 3.8192e-9, 4.2711e-9, 4.4903e-9,
      4.8931e-9, 5.2253e-9, 5.404e-9, 5.6387e-9, 5.6704e-9, 6.0345e-9,
      6.1079e-9, 6.2576e-9, 6.4039e-9, 6.3776e-9, 6.1878e-9, 5.8616e-9,
      5.7036e-9, 5.584e-9, 5.6905e-9, 5.8931e-9, 6.2478e-9, 6.8291e-9,
      7.4528e-9, 7.6078e-9, 7.3898e-9, 6.7573e-9, 5.9827e-9, 5.0927e-9,
      4.0099e-9, 3.1933e-9, 2.4296e-9, 1.8485e-9, 1.4595e-9, 1.2017e-9,
      1.0164e-9, 8.7433e-10, 7.7108e-10, 7.0049e-10, 6.5291e-10,
      6.1477e-10, 5.9254e-10, 5.815e-10, 5.7591e-10, 5.849e-10,
      5.8587e-10, 5.9636e-10, 6.2408e-10, 6.5479e-10, 7.048e-10,
      7.2313e-10, 7.5524e-10, 8.0863e-10, 8.3386e-10, 9.2342e-10,
      9.6754e-10, 1.0293e-9, 1.0895e-9, 1.133e-9, 1.221e-9, 1.2413e-9,
      1.2613e-9, 1.2671e-9, 1.2225e-9, 1.1609e-9, 1.0991e-9, 1.06e-9,
      1.057e-9, 1.0818e-9, 1.1421e-9, 1.227e-9, 1.337e-9, 1.4742e-9,
      1.4946e-9, 1.4322e-9, 1.321e-9, 1.1749e-9, 1.0051e-9, 7.8387e-10,
      6.1844e-10, 4.6288e-10, 3.4164e-10, 2.5412e-10, 1.9857e-10,
      1.5876e-10, 1.2966e-10, 1.092e-10, 9.4811e-11, 8.3733e-11,
      7.3906e-11, 6.7259e-11, 6.1146e-11, 5.7119e-11, 5.3546e-11,
      4.8625e-11, 4.4749e-11, 4.1089e-11, 3.7825e-11, 3.4465e-11,
      3.1018e-11, 2.8109e-11, 2.561e-11, 2.2859e-11, 2.049e-11,
      1.8133e-11, 1.5835e-11, 1.3949e-11, 1.2295e-11, 1.0799e-11,
      9.6544e-12, 8.7597e-12, 7.999e-12, 7.3973e-12, 6.9035e-12,
      6.4935e-12, 6.1195e-12, 5.8235e-12, 5.5928e-12, 5.4191e-12,
      5.2993e-12, 5.2338e-12, 5.2272e-12, 5.2923e-12, 5.4252e-12,
      5.6523e-12, 5.9433e-12, 6.3197e-12, 6.9016e-12, 7.5016e-12,
      8.2885e-12, 9.405e-12, 1.0605e-11, 1.2257e-11, 1.3622e-11,
      1.5353e-11, 1.7543e-11, 1.9809e-11, 2.2197e-11, 2.4065e-11,
      2.6777e-11, 2.9751e-11, 3.2543e-11, 3.5536e-11, 3.9942e-11,
      4.6283e-11, 5.4556e-11, 6.549e-11, 7.6803e-11, 9.0053e-11,
      1.0852e-10, 1.2946e-10, 1.4916e-10, 1.7748e-10, 2.0073e-10,
      2.2485e-10, 2.5114e-10, 2.7715e-10, 3.1319e-10, 3.3305e-10,
      3.5059e-10, 3.5746e-10, 3.6311e-10, 3.7344e-10, 3.6574e-10,
      3.7539e-10, 3.9434e-10, 4.351e-10, 4.334e-10, 4.2588e-10,
      4.3977e-10, 4.6062e-10, 4.7687e-10, 4.6457e-10, 4.8578e-10,
      5.2344e-10, 5.6752e-10, 5.8702e-10, 5.6603e-10, 5.3784e-10,
      4.9181e-10, 4.3272e-10, 3.5681e-10, 2.8814e-10, 2.332e-10,
      1.8631e-10, 1.4587e-10, 1.1782e-10, 9.8132e-11, 8.2528e-11,
      6.9174e-11, 6.1056e-11, 5.3459e-11, 4.7116e-11, 4.1878e-11,
      3.8125e-11, 3.6347e-11, 3.5071e-11, 3.3897e-11, 3.3541e-11,
      3.3563e-11, 3.5469e-11, 3.8111e-11, 3.8675e-11, 4.1333e-11,
      4.3475e-11, 4.6476e-11, 4.9761e-11, 5.138e-11, 5.4135e-11,
      5.3802e-11, 5.5158e-11, 5.6864e-11, 5.9311e-11, 6.3827e-11,
      6.7893e-11, 6.823e-11, 6.6694e-11, 6.6018e-11, 6.4863e-11,
      6.5893e-11, 6.3813e-11, 6.4741e-11, 6.863e-11, 7.0255e-11,
      7.0667e-11, 6.881e-11, 6.4104e-11, 5.8136e-11, 4.7242e-11,
      3.7625e-11, 3.1742e-11, 2.5581e-11, 1.8824e-11, 1.3303e-11,
      9.6919e-12, 7.5353e-12, 6.0986e-12, 5.0742e-12, 4.3094e-12,
      3.719e-12, 3.252e-12, 2.8756e-12, 2.568e-12, 2.3139e-12,
      2.1025e-12, 1.9257e-12, 1.7777e-12, 1.6539e-12, 1.5508e-12,
      1.4657e-12, 1.3966e-12, 1.3417e-12, 1.2998e-12, 1.27e-12,
      1.2514e-12, 1.2437e-12, 1.2463e-12, 1.2592e-12, 1.2823e-12,
      1.3157e-12, 1.3596e-12, 1.4144e-12, 1.4806e-12, 1.5588e-12,
      1.6497e-12, 1.7544e-12, 1.8738e-12, 2.0094e-12, 2.1626e-12,
      2.3354e-12, 2.5297e-12, 2.7483e-12, 2.9941e-12, 3.2708e-12,
      3.5833e-12, 3.9374e-12, 4.3415e-12, 4.8079e-12, 5.3602e-12,
      5.9816e-12, 6.7436e-12, 7.6368e-12, 8.6812e-12, 9.8747e-12,
      1.135e-11, 1.3181e-11, 1.5406e-11, 1.7868e-11, 2.0651e-11,
      2.4504e-11, 2.9184e-11, 3.4159e-11, 3.9979e-11, 4.8704e-11,
      5.7856e-11, 6.7576e-11, 7.9103e-11, 9.437e-11, 1.1224e-10,
      1.3112e-10, 1.5674e-10, 1.8206e-10, 2.0576e-10, 2.3187e-10,
      2.7005e-10, 3.0055e-10, 3.3423e-10, 3.6956e-10, 3.8737e-10,
      4.263e-10, 4.5154e-10, 4.8383e-10, 5.3582e-10, 5.8109e-10,
      6.3741e-10, 6.3874e-10, 6.387e-10, 6.5818e-10, 6.5056e-10,
      6.5291e-10, 6.3159e-10, 6.3984e-10, 6.4549e-10, 6.5444e-10,
      6.7035e-10, 6.7665e-10, 6.9124e-10, 6.8451e-10, 6.9255e-10,
      6.9923e-10, 7.0396e-10, 6.7715e-10, 6.0371e-10, 5.3774e-10,
      4.6043e-10, 3.7635e-10, 2.9484e-10, 2.2968e-10, 1.8185e-10,
      1.4191e-10, 1.1471e-10, 9.479e-11, 7.9613e-11, 6.7989e-11,
      5.9391e-11, 5.281e-11, 4.7136e-11, 4.2618e-11, 3.8313e-11,
      3.4686e-11, 3.1669e-11, 2.911e-11, 2.6871e-11, 2.5074e-11,
      2.4368e-11, 2.3925e-11, 2.4067e-11, 2.4336e-11, 2.4704e-11,
      2.5823e-11, 2.7177e-11, 2.9227e-11, 3.1593e-11, 3.573e-11,
      4.0221e-11, 4.3994e-11, 4.8448e-11, 5.3191e-11, 5.8552e-11,
      6.3458e-11, 6.6335e-11, 7.2457e-11, 7.9091e-11, 8.2234e-11,
      8.7668e-11, 8.7951e-11, 9.2952e-11, 9.6157e-11, 9.5926e-11,
      1.012e-10, 1.0115e-10, 9.9577e-11, 9.6633e-11, 9.2891e-11,
      9.3315e-11, 9.5584e-11, 1.0064e-10, 1.0509e-10, 1.1455e-10,
      1.2443e-10, 1.2963e-10, 1.2632e-10, 1.1308e-10, 1.0186e-10,
      8.588e-11, 6.7863e-11, 5.1521e-11, 3.778e-11, 2.8842e-11,
      2.2052e-11, 1.7402e-11, 1.4406e-11, 1.1934e-11, 1.0223e-11,
      8.9544e-12, 7.9088e-12, 7.0675e-12, 6.2222e-12, 5.6051e-12,
      5.0502e-12, 4.5578e-12, 4.2636e-12, 3.9461e-12, 3.7599e-12,
      3.5215e-12, 3.2467e-12, 3.0018e-12, 2.6558e-12, 2.3928e-12,
      2.0707e-12, 1.7575e-12, 1.5114e-12, 1.2941e-12, 1.1004e-12,
      9.5175e-13, 8.2894e-13, 7.3253e-13, 6.5551e-13, 5.9098e-13,
      5.3548e-13, 4.8697e-13, 4.4413e-13, 4.06e-13, 3.7188e-13,
      3.4121e-13, 3.1356e-13, 2.8856e-13, 2.659e-13, 2.4533e-13,
      2.2663e-13, 2.096e-13, 1.9407e-13, 1.799e-13, 1.6695e-13,
      1.5512e-13, 1.4429e-13, 1.3437e-13, 1.2527e-13, 1.1693e-13,
      1.0927e-13, 1.0224e-13, 9.5767e-14, 8.9816e-14, 8.4335e-14,
      7.9285e-14, 7.4626e-14, 7.0325e-14, 6.6352e-14, 6.2676e-14,
      5.9274e-14, 5.6121e-14, 5.3195e-14, 5.0479e-14, 4.7953e-14,
      4.5602e-14, 4.3411e-14, 4.1367e-14, 3.9456e-14, 3.767e-14,
      3.5996e-14, 3.4427e-14, 3.2952e-14, 3.1566e-14, 3.0261e-14,
      2.903e-14, 2.7868e-14, 2.677e-14, 2.573e-14, 2.4745e-14,
      2.3809e-14, 2.2921e-14, 2.2076e-14, 2.1271e-14, 2.0504e-14,
      1.9772e-14, 1.9073e-14, 1.8404e-14, 1.7764e-14, 1.7151e-14,
      1.6564e-14, 1.6e-14, 1.5459e-14, 1.4939e-14, 1.4439e-14,
      1.3958e-14, 1.3495e-14, 1.3049e-14, 1.262e-14, 1.2206e-14,
      1.1807e-14, 1.1422e-14, 1.105e-14, 1.0691e-14, 1.0345e-14,
      1.001e-14, 9.687e-15, 9.3747e-15, 9.0727e-15, 8.7808e-15,
      8.4986e-15, 8.2257e-15, 7.9617e-15, 7.7064e-15, 7.4594e-15,
      7.2204e-15, 6.9891e-15, 6.7653e-15, 6.5488e-15, 6.3392e-15,
      6.1363e-15, 5.9399e-15, 5.7499e-15, 5.5659e-15, 5.3878e-15,
      5.2153e-15, 5.0484e-15, 4.8868e-15, 4.7303e-15, 4.5788e-15,
      4.4322e-15, 4.2902e-15, 4.1527e-15, 4.0196e-15, 3.8907e-15,
      3.7659e-15, 3.6451e-15, 3.5281e-15, 3.4149e-15, 3.3052e-15,
      3.1991e-15, 3.0963e-15, 2.9967e-15, 2.9004e-15, 2.8071e-15,
      2.7167e-15, 2.6293e-15, 2.5446e-15, 2.4626e-15, 2.3833e-15,
      2.3064e-15, 2.232e-15, 2.16e-15, 2.0903e-15, 2.0228e-15,
      1.9574e-15, 1.8942e-15, 1.8329e-15, 1.7736e-15, 1.7163e-15,
      1.6607e-15, 1.6069e-15, 1.5548e-15, 1.5044e-15, 1.4557e-15,
      1.4084e-15, 1.3627e-15, 1.3185e-15, 1.2757e-15, 1.2342e-15,
      1.1941e-15, 1.1552e-15, 1.1177e-15, 1.0813e-15, 1.0461e-15,
      1.012e-15, 9.79e-16, 9.4707e-16, 9.1618e-16, 8.8628e-16,
      8.5734e-16, 8.2933e-16, 8.0223e-16, 7.76e-16, 7.5062e-16,
      7.2606e-16, 7.0229e-16, 6.7929e-16, 6.5703e-16, 6.355e-16,
      6.1466e-16, 5.9449e-16, 5.7498e-16, 5.561e-16, 5.3783e-16,
      5.2015e-16, 5.0305e-16, 4.865e-16, 4.7049e-16, 4.55e-16,
      4.4002e-16, 4.2552e-16, 4.1149e-16, 3.9792e-16, 3.8479e-16,
      3.7209e-16, 3.5981e-16, 3.4792e-16, 3.3642e-16, 3.253e-16,
      3.1454e-16, 3.0413e-16, 2.9406e-16, 2.8432e-16, 2.749e-16,
      2.6579e-16, 2.5697e-16, 2.4845e-16, 2.402e-16, 2.3223e-16,
      2.2451e-16, 2.1705e-16, 2.0984e-16, 2.0286e-16, 1.9611e-16,
      1.8958e-16, 1.8327e-16, 1.7716e-16, 1.7126e-16, 1.6555e-16,
      1.6003e-16, 1.5469e-16, 1.4952e-16, 1.4453e-16, 1.397e-16,
      1.3503e-16 } };
 
struct s_sh2ob_ {
    double e_1[3];
    int e_2;
    } sh2ob_ = { {-20., 2e4, 10.}, 2003 };
 
struct s_s260a_ {
    double e_1[2003];
    } s260a_ = { {.1775, .17045, .16457, .17045, .1775, .20036, .21347, .22454,
       .23428, .23399, .23022, .20724, .19712, .18317, .16724, .1478,
      .12757, .11626, .10098, .089033, .07977, .067416, .059588,
      .051117, .046218, .042179, .034372, .029863, .025252, .022075,
      .019209, .015816, .013932, .011943, .010079, .0087667, .0074094,
      .0064967, .0055711, .0048444, .0042552, .0036953, .0032824,
      .0029124, .0026102, .002337, .00211, .0019008, .0017145, .0015573,
       .0014206, .0012931, .0011803, .0010774, 9.8616e-4, 9.0496e-4,
      8.3071e-4, 7.6319e-4, 7.0149e-4, 6.4637e-4, 5.9566e-4, 5.4987e-4,
      5.0768e-4, 4.688e-4, 4.3317e-4, 4.0037e-4, 3.7064e-4, 3.4325e-4,
      3.1809e-4, 2.9501e-4, 2.7382e-4, 2.543e-4, 2.363e-4, 2.1977e-4,
      2.0452e-4, 1.9042e-4, 1.774e-4, 1.6544e-4, 1.5442e-4, 1.4425e-4,
      1.3486e-4, 1.2618e-4, 1.1817e-4, 1.1076e-4, 1.0391e-4, 9.7563e-5,
      9.1696e-5, 8.6272e-5, 8.1253e-5, 7.6607e-5, 7.2302e-5, 6.8311e-5,
      6.4613e-5, 6.1183e-5, 5.8001e-5, 5.5048e-5, 5.2307e-5, 4.9761e-5,
      4.7395e-5, 4.5197e-5, 4.3155e-5, 4.1256e-5, 3.9491e-5, 3.7849e-5,
      3.6324e-5, 3.4908e-5, 3.3594e-5, 3.2374e-5, 3.1244e-5, 3.0201e-5,
      2.924e-5, 2.8356e-5, 2.7547e-5, 2.6814e-5, 2.6147e-5, 2.5551e-5,
      2.5029e-5, 2.4582e-5, 2.4203e-5, 2.3891e-5, 2.3663e-5, 2.3531e-5,
      2.3483e-5, 2.3516e-5, 2.3694e-5, 2.4032e-5, 2.4579e-5, 2.5234e-5,
      2.6032e-5, 2.7119e-5, 2.8631e-5, 3.0848e-5, 3.3262e-5, 3.6635e-5,
      4.0732e-5, 4.5923e-5, 5.3373e-5, 6.1875e-5, 7.2031e-5, 8.598e-5,
      9.8642e-5, 1.1469e-4, 1.3327e-4, 1.539e-4, 1.7513e-4, 2.0665e-4,
      2.3609e-4, 2.622e-4, 2.8677e-4, 3.259e-4, 3.8624e-4, 4.157e-4,
      4.5207e-4, 4.9336e-4, 5.45e-4, 5.8258e-4, 5.8086e-4, 5.6977e-4,
      5.3085e-4, 4.802e-4, 4.3915e-4, 4.0343e-4, 3.7853e-4, 3.7025e-4,
      3.9637e-4, 4.4675e-4, 4.7072e-4, 4.9022e-4, 5.2076e-4, 5.3676e-4,
      5.2755e-4, 4.8244e-4, 4.5473e-4, 4.3952e-4, 3.9614e-4, 3.4086e-4,
      2.9733e-4, 2.6367e-4, 2.3767e-4, 2.0427e-4, 1.7595e-4, 1.5493e-4,
      1.3851e-4, 1.1874e-4, 1.0735e-4, 9.049e-5, 8.1149e-5, 7.4788e-5,
      6.5438e-5, 5.8248e-5, 4.8076e-5, 4.3488e-5, 3.7856e-5, 3.3034e-5,
      2.9592e-5, 2.6088e-5, 2.3497e-5, 2.0279e-5, 1.7526e-5, 1.5714e-5,
      1.3553e-5, 1.2145e-5, 1.0802e-5, 9.7681e-6, 8.8196e-6, 7.8291e-6,
      7.1335e-6, 6.4234e-6, 5.8391e-6, 5.3532e-6, 4.9079e-6, 4.5378e-6,
      4.1716e-6, 3.8649e-6, 3.5893e-6, 3.3406e-6, 3.1199e-6, 2.9172e-6,
      2.7348e-6, 2.5644e-6, 2.4086e-6, 2.2664e-6, 2.1359e-6, 2.0159e-6,
      1.9051e-6, 1.8031e-6, 1.7074e-6, 1.6185e-6, 1.5356e-6, 1.4584e-6,
      1.3861e-6, 1.3179e-6, 1.2545e-6, 1.1951e-6, 1.1395e-6, 1.0873e-6,
      1.0384e-6, 9.925e-7, 9.4935e-7, 9.0873e-7, 8.705e-7, 8.3446e-7,
      8.0046e-7, 7.6834e-7, 7.38e-7, 7.0931e-7, 6.8217e-7, 6.5648e-7,
      6.3214e-7, 6.0909e-7, 5.8725e-7, 5.6655e-7, 5.4693e-7, 5.2835e-7,
      5.1077e-7, 4.9416e-7, 4.7853e-7, 4.6381e-7, 4.5007e-7, 4.3728e-7,
      4.255e-7, 4.145e-7, 4.0459e-7, 3.9532e-7, 3.8662e-7, 3.7855e-7,
      3.7041e-7, 3.6254e-7, 3.542e-7, 3.4617e-7, 3.3838e-7, 3.3212e-7,
      3.2655e-7, 3.1865e-7, 3.1203e-7, 3.067e-7, 3.0252e-7, 2.9749e-7,
      2.9184e-7, 2.8795e-7, 2.8501e-7, 2.8202e-7, 2.7856e-7, 2.7509e-7,
      2.7152e-7, 2.6844e-7, 2.6642e-7, 2.6548e-7, 2.6617e-7, 2.6916e-7,
      2.7372e-7, 2.8094e-7, 2.9236e-7, 3.1035e-7, 3.2854e-7, 3.5481e-7,
      3.9377e-7, 4.4692e-7, 5.0761e-7, 5.7715e-7, 6.7725e-7, 8.0668e-7,
      9.3716e-7, 1.0797e-6, 1.1689e-6, 1.3217e-6, 1.4814e-6, 1.5627e-6,
      1.6519e-6, 1.7601e-6, 1.906e-6, 2.0474e-6, 2.0716e-6, 2.0433e-6,
      1.9752e-6, 1.8466e-6, 1.7526e-6, 1.6657e-6, 1.587e-6, 1.5633e-6,
      1.652e-6, 1.8471e-6, 1.9953e-6, 2.0975e-6, 2.2016e-6, 2.2542e-6,
      2.3081e-6, 2.3209e-6, 2.2998e-6, 2.3056e-6, 2.2757e-6, 2.2685e-6,
      2.2779e-6, 2.2348e-6, 2.2445e-6, 2.3174e-6, 2.4284e-6, 2.529e-6,
      2.734e-6, 2.972e-6, 3.2332e-6, 3.5392e-6, 3.9013e-6, 4.3334e-6,
      4.9088e-6, 5.3428e-6, 5.9142e-6, 6.6106e-6, 7.4709e-6, 8.5019e-6,
      9.6835e-6, 1.0984e-5, 1.2831e-5, 1.4664e-5, 1.708e-5, 2.0103e-5,
      2.4148e-5, 2.7948e-5, 3.2855e-5, 3.9046e-5, 4.6429e-5, 5.6633e-5,
      6.6305e-5, 7.6048e-5, 8.7398e-5, 1.0034e-4, 1.1169e-4, 1.2813e-4,
      1.3354e-4, 1.3952e-4, 1.4204e-4, 1.4615e-4, 1.5144e-4, 1.5475e-4,
      1.6561e-4, 1.7135e-4, 1.6831e-4, 1.6429e-4, 1.6353e-4, 1.6543e-4,
      1.5944e-4, 1.5404e-4, 1.5458e-4, 1.6287e-4, 1.7277e-4, 1.8387e-4,
      1.7622e-4, 1.636e-4, 1.5273e-4, 1.3667e-4, 1.2364e-4, 9.7576e-5,
      7.914e-5, 6.4241e-5, 5.1826e-5, 4.1415e-5, 3.1347e-5, 2.5125e-5,
      2.0027e-5, 1.6362e-5, 1.3364e-5, 1.1117e-5, 9.4992e-6, 8.1581e-6,
      7.1512e-6, 6.2692e-6, 5.5285e-6, 4.9e-6, 4.3447e-6, 3.8906e-6,
      3.4679e-6, 3.1089e-6, 2.8115e-6, 2.5496e-6, 2.2982e-6, 2.0861e-6,
      1.8763e-6, 1.7035e-6, 1.5548e-6, 1.4107e-6, 1.2839e-6, 1.1706e-6,
      1.0709e-6, 9.8099e-7, 8.9901e-7, 8.2394e-7, 7.5567e-7, 6.9434e-7,
      6.3867e-7, 5.8845e-7, 5.4263e-7, 5.0033e-7, 4.6181e-7, 4.2652e-7,
      3.9437e-7, 3.6497e-7, 3.3781e-7, 3.1292e-7, 2.9011e-7, 2.6915e-7,
      2.4989e-7, 2.3215e-7, 2.1582e-7, 2.0081e-7, 1.87e-7, 1.7432e-7,
      1.6264e-7, 1.5191e-7, 1.4207e-7, 1.3306e-7, 1.2484e-7, 1.1737e-7,
      1.1056e-7, 1.0451e-7, 9.906e-8, 9.4135e-8, 8.9608e-8, 8.5697e-8,
      8.1945e-8, 7.8308e-8, 7.4808e-8, 7.1686e-8, 6.8923e-8, 6.5869e-8,
      6.3308e-8, 6.084e-8, 5.8676e-8, 5.6744e-8, 5.5016e-8, 5.3813e-8,
      5.2792e-8, 5.2097e-8, 5.1737e-8, 5.1603e-8, 5.1656e-8, 5.1989e-8,
      5.2467e-8, 5.2918e-8, 5.3589e-8, 5.456e-8, 5.5869e-8, 5.7403e-8,
      5.8968e-8, 6.0973e-8, 6.3432e-8, 6.6245e-8, 6.9353e-8, 7.2686e-8,
      7.6541e-8, 8.0991e-8, 8.595e-8, 9.1429e-8, 9.7851e-8, 1.0516e-7,
      1.1349e-7, 1.2295e-7, 1.3335e-7, 1.4488e-7, 1.5864e-7, 1.7412e-7,
      1.914e-7, 2.1078e-7, 2.3369e-7, 2.5996e-7, 2.8848e-7, 3.2169e-7,
      3.5991e-7, 4.0566e-7, 4.5969e-7, 5.3094e-7, 6.1458e-7, 7.1155e-7,
      8.3045e-7, 9.9021e-7, 1.2042e-6, 1.4914e-6, 1.8145e-6, 2.221e-6,
      2.7831e-6, 3.4533e-6, 4.4446e-6, 5.1989e-6, 6.2289e-6, 7.1167e-6,
      8.3949e-6, 9.6417e-6, 1.0313e-5, 1.0485e-5, 1.0641e-5, 1.0898e-5,
      1.0763e-5, 1.0506e-5, 1.0497e-5, 1.1696e-5, 1.2654e-5, 1.3029e-5,
      1.3175e-5, 1.4264e-5, 1.4985e-5, 1.4999e-5, 1.4317e-5, 1.4616e-5,
      1.4963e-5, 1.5208e-5, 1.4942e-5, 1.3879e-5, 1.3087e-5, 1.1727e-5,
      1.0515e-5, 9.0073e-6, 7.3133e-6, 6.1181e-6, 5.0623e-6, 4.1105e-6,
      3.3915e-6, 2.6711e-6, 2.1464e-6, 1.7335e-6, 1.4302e-6, 1.1847e-6,
      9.9434e-7, 8.2689e-7, 7.0589e-7, 6.075e-7, 5.3176e-7, 4.6936e-7,
      4.1541e-7, 3.6625e-7, 3.2509e-7, 2.9156e-7, 2.6308e-7, 2.3819e-7,
      2.1421e-7, 1.9366e-7, 1.7626e-7, 1.5982e-7, 1.4567e-7, 1.3354e-7,
      1.2097e-7, 1.1029e-7, 1.0063e-7, 9.2003e-8, 8.4245e-8, 7.7004e-8,
      7.0636e-8, 6.4923e-8, 5.9503e-8, 5.4742e-8, 5.045e-8, 4.647e-8,
      4.2881e-8, 3.955e-8, 3.6541e-8, 3.3803e-8, 3.1279e-8, 2.8955e-8,
      2.6858e-8, 2.4905e-8, 2.3146e-8, 2.1539e-8, 2.0079e-8, 1.8746e-8,
      1.7517e-8, 1.6396e-8, 1.5369e-8, 1.4426e-8, 1.3543e-8, 1.2724e-8,
      1.1965e-8, 1.1267e-8, 1.0617e-8, 1.001e-8, 9.4662e-9, 8.9553e-9,
      8.4988e-9, 8.0807e-9, 7.7043e-9, 7.3721e-9, 7.0707e-9, 6.8047e-9,
      6.5702e-9, 6.3634e-9, 6.1817e-9, 6.0239e-9, 5.8922e-9, 5.7824e-9,
      5.7019e-9, 5.6368e-9, 5.594e-9, 5.5669e-9, 5.5583e-9, 5.5653e-9,
      5.5837e-9, 5.6243e-9, 5.6883e-9, 5.78e-9, 5.8964e-9, 6.0429e-9,
      6.2211e-9, 6.4282e-9, 6.6634e-9, 6.9306e-9, 7.2336e-9, 7.5739e-9,
      7.9562e-9, 8.3779e-9, 8.8575e-9, 9.3992e-9, 1.0004e-8, 1.0684e-8,
      1.145e-8, 1.232e-8, 1.3311e-8, 1.4455e-8, 1.5758e-8, 1.7254e-8,
      1.8927e-8, 2.093e-8, 2.3348e-8, 2.6074e-8, 2.9221e-8, 3.277e-8,
      3.7485e-8, 4.2569e-8, 4.8981e-8, 5.5606e-8, 6.2393e-8, 7.1901e-8,
      8.2921e-8, 9.5513e-8, 1.1111e-7, 1.3143e-7, 1.5971e-7, 1.8927e-7,
      2.2643e-7, 2.786e-7, 3.2591e-7, 3.7024e-7, 4.2059e-7, 4.9432e-7,
      5.5543e-7, 5.7498e-7, 5.921e-7, 6.1005e-7, 6.1577e-7, 5.9193e-7,
      5.6602e-7, 5.7403e-7, 6.005e-7, 6.4723e-7, 6.7073e-7, 7.5415e-7,
      8.0982e-7, 8.7658e-7, 9.143e-7, 9.4459e-7, 9.8347e-7, 9.8768e-7,
      1.0153e-6, 1.0066e-6, 1.0353e-6, 1.0353e-6, 1.0722e-6, 1.1138e-6,
      1.1923e-6, 1.2947e-6, 1.4431e-6, 1.6537e-6, 1.8662e-6, 2.2473e-6,
      2.6464e-6, 3.1041e-6, 3.4858e-6, 4.0167e-6, 4.6675e-6, 5.0983e-6,
      5.7997e-6, 6.0503e-6, 6.4687e-6, 6.5396e-6, 6.7986e-6, 7.0244e-6,
      7.2305e-6, 7.6732e-6, 7.9783e-6, 7.9846e-6, 7.7617e-6, 7.7657e-6,
      7.7411e-6, 7.8816e-6, 7.8136e-6, 8.0051e-6, 8.5799e-6, 9.1659e-6,
      9.8646e-6, 9.492e-6, 8.767e-6, 8.2034e-6, 7.2297e-6, 6.2324e-6,
      4.9315e-6, 3.9128e-6, 3.1517e-6, 2.4469e-6, 1.8815e-6, 1.4627e-6,
      1.1698e-6, 9.4686e-7, 7.8486e-7, 6.697e-7, 5.8811e-7, 5.2198e-7,
      4.6809e-7, 4.1671e-7, 3.7006e-7, 3.3066e-7, 2.9387e-7, 2.6415e-7,
      2.3409e-7, 2.0991e-7, 1.9132e-7, 1.7519e-7, 1.5939e-7, 1.4368e-7,
      1.305e-7, 1.1883e-7, 1.0772e-7, 9.6884e-8, 8.7888e-8, 7.8956e-8,
      7.1024e-8, 6.3824e-8, 5.7256e-8, 5.1769e-8, 4.7037e-8, 4.2901e-8,
      3.897e-8, 3.5467e-8, 3.2502e-8, 2.9827e-8, 2.7389e-8, 2.5111e-8,
      2.3056e-8, 2.1267e-8, 1.961e-8, 1.8133e-8, 1.6775e-8, 1.5491e-8,
      1.4329e-8, 1.3265e-8, 1.23e-8, 1.142e-8, 1.0593e-8, 9.8475e-9,
      9.1585e-9, 8.5256e-9, 7.9525e-9, 7.4226e-9, 6.9379e-9, 6.495e-9,
      6.0911e-9, 5.7242e-9, 5.3877e-9, 5.0821e-9, 4.8051e-9, 4.5554e-9,
      4.3315e-9, 4.1336e-9, 3.9632e-9, 3.8185e-9, 3.708e-9, 3.6296e-9,
      3.5804e-9, 3.5776e-9, 3.6253e-9, 3.7115e-9, 3.8151e-9, 3.9804e-9,
      4.1742e-9, 4.3581e-9, 4.5306e-9, 4.7736e-9, 5.1297e-9, 5.5291e-9,
      5.9125e-9, 6.4956e-9, 7.0362e-9, 7.5318e-9, 7.9947e-9, 8.6438e-9,
      9.7227e-9, 1.013e-8, 1.0549e-8, 1.1064e-8, 1.1702e-8, 1.2043e-8,
      1.1781e-8, 1.1838e-8, 1.1917e-8, 1.2131e-8, 1.2476e-8, 1.3611e-8,
      1.436e-8, 1.5057e-8, 1.6247e-8, 1.7284e-8, 1.842e-8, 1.8352e-8,
      1.8722e-8, 1.9112e-8, 1.9092e-8, 1.9311e-8, 1.9411e-8, 1.9884e-8,
      2.0508e-8, 2.151e-8, 2.3143e-8, 2.505e-8, 2.7596e-8, 3.1231e-8,
      3.626e-8, 4.341e-8, 5.224e-8, 6.3236e-8, 7.7522e-8, 9.8688e-8,
      1.1859e-7, 1.4341e-7, 1.6798e-7, 1.9825e-7, 2.2898e-7, 2.6257e-7,
      2.9884e-7, 3.3247e-7, 3.4936e-7, 3.5583e-7, 3.715e-7, 3.658e-7,
      3.7124e-7, 3.703e-7, 4.1536e-7, 4.6656e-7, 4.6677e-7, 4.7507e-7,
      4.9653e-7, 5.3795e-7, 5.4957e-7, 5.2238e-7, 5.469e-7, 5.6569e-7,
      5.9844e-7, 5.9835e-7, 5.6522e-7, 5.4123e-7, 4.7904e-7, 4.2851e-7,
      3.5603e-7, 2.8932e-7, 2.3655e-7, 1.8592e-7, 1.4943e-7, 1.1971e-7,
      9.8482e-8, 8.3675e-8, 7.127e-8, 6.2496e-8, 5.4999e-8, 4.9821e-8,
      4.5387e-8, 4.134e-8, 3.7453e-8, 3.3298e-8, 3.012e-8, 2.7032e-8,
      2.4236e-8, 2.15e-8, 1.8988e-8, 1.7414e-8, 1.5706e-8, 1.4192e-8,
      1.3204e-8, 1.1759e-8, 1.0737e-8, 9.6309e-9, 8.8179e-9, 8.2619e-9,
      7.2264e-9, 6.4856e-9, 5.8037e-9, 5.2093e-9, 4.7205e-9, 4.1749e-9,
      3.7852e-9, 3.3915e-9, 3.0089e-9, 2.7335e-9, 2.4398e-9, 2.2031e-9,
      1.9786e-9, 1.789e-9, 1.6266e-9, 1.483e-9, 1.3576e-9, 1.2518e-9,
      1.1587e-9, 1.0726e-9, 9.9106e-10, 9.1673e-10, 8.5084e-10,
      7.9147e-10, 7.2882e-10, 6.7342e-10, 6.2593e-10, 5.8294e-10,
      5.4435e-10, 5.0997e-10, 4.7806e-10, 4.4931e-10, 4.2357e-10,
      4.0023e-10, 3.7909e-10, 3.5999e-10, 3.4285e-10, 3.2776e-10,
      3.1468e-10, 3.0377e-10, 2.9479e-10, 2.8877e-10, 2.8512e-10,
      2.8617e-10, 2.8976e-10, 3.0001e-10, 3.1718e-10, 3.3898e-10,
      3.5857e-10, 3.8358e-10, 4.3131e-10, 4.5741e-10, 4.6948e-10,
      4.7594e-10, 4.9529e-10, 5.1563e-10, 4.9475e-10, 4.8369e-10,
      4.8829e-10, 5.0047e-10, 5.0203e-10, 5.1954e-10, 5.5352e-10,
      5.9928e-10, 6.7148e-10, 7.1121e-10, 7.4317e-10, 7.6039e-10,
      7.8313e-10, 8.0684e-10, 7.8553e-10, 7.8312e-10, 7.8537e-10,
      7.8872e-10, 8.0185e-10, 8.1004e-10, 8.2608e-10, 8.2525e-10,
      8.3857e-10, 8.792e-10, 9.2451e-10, 9.8661e-10, 1.0629e-9,
      1.1659e-9, 1.2922e-9, 1.4387e-9, 1.6254e-9, 1.8425e-9, 2.1428e-9,
      2.5477e-9, 3.0379e-9, 3.757e-9, 4.4354e-9, 5.1802e-9, 6.2769e-9,
      7.4894e-9, 8.7474e-9, 9.8037e-9, 1.1582e-8, 1.3293e-8, 1.4471e-8,
      1.5025e-8, 1.558e-8, 1.6228e-8, 1.6413e-8, 1.602e-8, 1.6393e-8,
      1.7545e-8, 1.959e-8, 2.1449e-8, 2.3856e-8, 2.705e-8, 3.0214e-8,
      3.3733e-8, 3.6487e-8, 3.9353e-8, 4.266e-8, 4.6385e-8, 4.9955e-8,
      5.5313e-8, 6.0923e-8, 6.8948e-8, 7.3649e-8, 8.2602e-8, 9.2212e-8,
      9.908e-8, 1.1319e-7, 1.179e-7, 1.2941e-7, 1.3199e-7, 1.3914e-7,
      1.4843e-7, 1.53e-7, 1.6419e-7, 1.7095e-7, 1.6988e-7, 1.6494e-7,
      1.6327e-7, 1.6067e-7, 1.6909e-7, 1.7118e-7, 1.8106e-7, 1.9857e-7,
      2.1696e-7, 2.3385e-7, 2.2776e-7, 2.1402e-7, 1.9882e-7, 1.7362e-7,
      1.4308e-7, 1.1158e-7, 8.8781e-8, 6.8689e-8, 5.2062e-8, 4.0427e-8,
      3.2669e-8, 2.7354e-8, 2.32e-8, 2.058e-8, 1.8676e-8, 1.7329e-8,
      1.6621e-8, 1.6433e-8, 1.6953e-8, 1.7134e-8, 1.7948e-8, 1.9107e-8,
      1.9875e-8, 2.1416e-8, 2.1556e-8, 2.2265e-8, 2.2171e-8, 2.2534e-8,
      2.3029e-8, 2.2828e-8, 2.3143e-8, 2.2965e-8, 2.2223e-8, 2.1108e-8,
      2.0265e-8, 1.9516e-8, 1.9941e-8, 2.0312e-8, 2.108e-8, 2.2611e-8,
      2.421e-8, 2.6069e-8, 2.5097e-8, 2.3318e-8, 2.1543e-8, 1.8942e-8,
      1.596e-8, 1.2386e-8, 9.934e-9, 7.7502e-9, 5.9462e-9, 4.5113e-9,
      3.5523e-9, 2.8844e-9, 2.3394e-9, 1.9584e-9, 1.6749e-9, 1.4624e-9,
      1.2809e-9, 1.1359e-9, 1.0087e-9, 9.0166e-10, 8.1079e-10,
      7.2219e-10, 6.4922e-10, 5.8803e-10, 5.329e-10, 4.859e-10,
      4.4111e-10, 4.0184e-10, 3.6644e-10, 3.3529e-10, 3.0789e-10,
      2.8286e-10, 2.6089e-10, 2.4125e-10, 2.2355e-10, 2.0783e-10,
      1.937e-10, 1.8088e-10, 1.6948e-10, 1.5929e-10, 1.5013e-10,
      1.4193e-10, 1.347e-10, 1.2841e-10, 1.2307e-10, 1.1865e-10,
      1.1502e-10, 1.1243e-10, 1.1099e-10, 1.1066e-10, 1.1216e-10,
      1.1529e-10, 1.2171e-10, 1.3128e-10, 1.4153e-10, 1.5962e-10,
      1.8048e-10, 2.0936e-10, 2.3165e-10, 2.5746e-10, 2.96e-10,
      3.3707e-10, 3.5267e-10, 3.5953e-10, 3.6822e-10, 3.8363e-10,
      3.8286e-10, 3.5883e-10, 3.6154e-10, 3.6653e-10, 3.8507e-10,
      4.025e-10, 4.4435e-10, 4.9889e-10, 5.6932e-10, 6.3599e-10,
      7.0281e-10, 7.5777e-10, 8.1279e-10, 8.891e-10, 9.34e-10,
      1.0076e-9, 1.0945e-9, 1.1898e-9, 1.3108e-9, 1.4725e-9, 1.7028e-9,
      1.9619e-9, 2.3527e-9, 2.6488e-9, 3.0327e-9, 3.4396e-9, 3.8797e-9,
      4.4115e-9, 4.6853e-9, 4.9553e-9, 4.9551e-9, 5.1062e-9, 5.0996e-9,
      5.1119e-9, 5.2283e-9, 5.8297e-9, 6.3439e-9, 6.2675e-9, 6.3296e-9,
      6.5173e-9, 7.1685e-9, 7.0528e-9, 6.8856e-9, 7.3182e-9, 7.699e-9,
      8.3461e-9, 8.1946e-9, 7.7153e-9, 7.2411e-9, 6.4511e-9, 5.7336e-9,
      4.6105e-9, 3.6962e-9, 2.9944e-9, 2.4317e-9, 1.9399e-9, 1.5331e-9,
      1.2633e-9, 1.0613e-9, 9.0136e-10, 7.9313e-10, 7.1543e-10,
      6.6485e-10, 6.4225e-10, 6.398e-10, 6.4598e-10, 6.7428e-10,
      7.027e-10, 7.4694e-10, 7.7946e-10, 7.9395e-10, 7.8716e-10,
      7.6933e-10, 7.622e-10, 7.4825e-10, 7.4805e-10, 7.6511e-10,
      7.6492e-10, 7.4103e-10, 7.1979e-10, 7.1686e-10, 7.3403e-10,
      7.1142e-10, 7.0212e-10, 7.1548e-10, 7.5253e-10, 8.0444e-10,
      8.2378e-10, 7.8004e-10, 7.1712e-10, 6.4978e-10, 5.7573e-10,
      4.8675e-10, 3.7945e-10, 3.0118e-10, 2.4241e-10, 1.91e-10,
      1.4816e-10, 1.1567e-10, 9.4183e-11, 7.766e-11, 6.527e-11,
      5.6616e-11, 4.9576e-11, 4.4137e-11, 3.9459e-11, 3.5759e-11,
      3.2478e-11, 2.9419e-11, 2.6703e-11, 2.4365e-11, 2.2412e-11,
      2.0606e-11, 1.9067e-11, 1.78e-11, 1.6695e-11, 1.5729e-11,
      1.4887e-11, 1.4135e-11, 1.3519e-11, 1.2992e-11, 1.2563e-11,
      1.2223e-11, 1.1962e-11, 1.1775e-11, 1.1657e-11, 1.1605e-11,
      1.1619e-11, 1.1697e-11, 1.1839e-11, 1.2046e-11, 1.2319e-11,
      1.2659e-11, 1.307e-11, 1.3553e-11, 1.4113e-11, 1.4754e-11,
      1.548e-11, 1.6298e-11, 1.7214e-11, 1.8236e-11, 1.9372e-11,
      2.0635e-11, 2.2036e-11, 2.359e-11, 2.5317e-11, 2.7242e-11,
      2.94e-11, 3.1849e-11, 3.4654e-11, 3.7923e-11, 4.1695e-11,
      4.6055e-11, 5.094e-11, 5.5624e-11, 6.0667e-11, 6.6261e-11,
      7.2692e-11, 7.9711e-11, 8.7976e-11, 9.6884e-11, 1.0775e-10,
      1.2093e-10, 1.3531e-10, 1.5404e-10, 1.7315e-10, 1.9862e-10,
      2.3341e-10, 2.7014e-10, 3.1716e-10, 3.6957e-10, 4.3233e-10,
      5.2566e-10, 6.2251e-10, 7.2149e-10, 8.3958e-10, 9.5931e-10,
      1.1388e-9, 1.2973e-9, 1.4442e-9, 1.5638e-9, 1.6974e-9, 1.8489e-9,
      1.983e-9, 2.172e-9, 2.3662e-9, 2.6987e-9, 3.1697e-9, 3.6907e-9,
      4.2625e-9, 4.7946e-9, 5.3848e-9, 6.0897e-9, 6.473e-9, 7.1483e-9,
      7.7432e-9, 8.0851e-9, 8.5013e-9, 8.5909e-9, 9.189e-9, 9.3124e-9,
      9.5936e-9, 9.8787e-9, 9.9036e-9, 9.6712e-9, 9.2036e-9, 9.0466e-9,
      8.938e-9, 9.1815e-9, 9.5092e-9, 1.0027e-8, 1.0876e-8, 1.1744e-8,
      1.1853e-8, 1.1296e-8, 1.0134e-8, 8.8245e-9, 7.393e-9, 5.715e-9,
      4.4884e-9, 3.4027e-9, 2.6054e-9, 2.079e-9, 1.7267e-9, 1.4724e-9,
      1.2722e-9, 1.1234e-9, 1.0186e-9, 9.468e-10, 8.8854e-10,
      8.5127e-10, 8.3157e-10, 8.2226e-10, 8.3395e-10, 8.3294e-10,
      8.4725e-10, 8.8814e-10, 9.3697e-10, 1.0112e-9, 1.0412e-9,
      1.0948e-9, 1.181e-9, 1.2267e-9, 1.369e-9, 1.4512e-9, 1.5568e-9,
      1.6552e-9, 1.7321e-9, 1.8797e-9, 1.921e-9, 1.9686e-9, 1.9917e-9,
      1.9357e-9, 1.8486e-9, 1.7575e-9, 1.7113e-9, 1.7163e-9, 1.7623e-9,
      1.8536e-9, 1.9765e-9, 2.1334e-9, 2.3237e-9, 2.3259e-9, 2.1833e-9,
      1.9785e-9, 1.7308e-9, 1.4596e-9, 1.1198e-9, 8.7375e-10,
      6.5381e-10, 4.8677e-10, 3.6756e-10, 2.9155e-10, 2.3735e-10,
      1.959e-10, 1.6638e-10, 1.4549e-10, 1.2947e-10, 1.1511e-10,
      1.0548e-10, 9.6511e-11, 9.0469e-11, 8.517e-11, 7.7804e-11,
      7.1971e-11, 6.6213e-11, 6.1063e-11, 5.5881e-11, 5.0508e-11,
      4.5932e-11, 4.1997e-11, 3.7672e-11, 3.3972e-11, 3.0318e-11,
      2.6769e-11, 2.3874e-11, 2.1336e-11, 1.9073e-11, 1.7313e-11,
      1.5904e-11, 1.4684e-11, 1.3698e-11, 1.2873e-11, 1.2175e-11,
      1.1542e-11, 1.1024e-11, 1.0602e-11, 1.0267e-11, 1.0012e-11,
      9.8379e-12, 9.7482e-12, 9.7564e-12, 9.8613e-12, 1.0092e-11,
      1.0418e-11, 1.0868e-11, 1.1585e-11, 1.2351e-11, 1.3372e-11,
      1.4841e-11, 1.6457e-11, 1.8681e-11, 2.055e-11, 2.2912e-11,
      2.5958e-11, 2.9137e-11, 3.2368e-11, 3.4848e-11, 3.8462e-11,
      4.219e-11, 4.5629e-11, 4.9022e-11, 5.4232e-11, 6.19e-11,
      7.1953e-11, 8.5368e-11, 9.9699e-11, 1.1734e-10, 1.4185e-10,
      1.7017e-10, 1.9813e-10, 2.3859e-10, 2.7304e-10, 3.0971e-10,
      3.5129e-10, 3.9405e-10, 4.5194e-10, 4.8932e-10, 5.2436e-10,
      5.4098e-10, 5.5542e-10, 5.7794e-10, 5.6992e-10, 5.879e-10,
      6.1526e-10, 6.8034e-10, 6.7956e-10, 6.6864e-10, 6.9329e-10,
      7.2971e-10, 7.6546e-10, 7.5078e-10, 7.8406e-10, 8.3896e-10,
      9.0111e-10, 9.1994e-10, 8.7189e-10, 8.1426e-10, 7.3097e-10,
      6.3357e-10, 5.1371e-10, 4.0936e-10, 3.2918e-10, 2.6255e-10,
      2.0724e-10, 1.6879e-10, 1.4165e-10, 1.1989e-10, 1.0125e-10,
      8.9629e-11, 7.8458e-11, 6.8826e-11, 6.0935e-11, 5.5208e-11,
      5.2262e-11, 5.026e-11, 4.8457e-11, 4.7888e-11, 4.8032e-11,
      5.0838e-11, 5.4668e-11, 5.579e-11, 6.0056e-11, 6.3811e-11,
      6.8848e-11, 7.459e-11, 7.8249e-11, 8.3371e-11, 8.3641e-11,
      8.6591e-11, 8.9599e-11, 9.3487e-11, 1.0066e-10, 1.0765e-10,
      1.0851e-10, 1.0619e-10, 1.0557e-10, 1.046e-10, 1.0796e-10,
      1.0523e-10, 1.0674e-10, 1.1261e-10, 1.1431e-10, 1.1408e-10,
      1.0901e-10, 9.9105e-11, 8.8077e-11, 6.9928e-11, 5.4595e-11,
      4.5401e-11, 3.6313e-11, 2.6986e-11, 1.9463e-11, 1.4577e-11,
      1.1583e-11, 9.5492e-12, 8.077e-12, 6.9642e-12, 6.0966e-12,
      5.4046e-12, 4.8431e-12, 4.3815e-12, 3.9987e-12, 3.679e-12,
      3.4113e-12, 3.1868e-12, 2.9992e-12, 2.8434e-12, 2.7153e-12,
      2.612e-12, 2.5311e-12, 2.4705e-12, 2.429e-12, 2.4053e-12,
      2.3988e-12, 2.4087e-12, 2.4349e-12, 2.4771e-12, 2.5355e-12,
      2.6103e-12, 2.7019e-12, 2.811e-12, 2.9383e-12, 3.0848e-12,
      3.2518e-12, 3.4405e-12, 3.6527e-12, 3.8902e-12, 4.1555e-12,
      4.451e-12, 4.7801e-12, 5.1462e-12, 5.5539e-12, 6.0086e-12,
      6.5171e-12, 7.0884e-12, 7.7357e-12, 8.4831e-12, 9.3096e-12,
      1.0282e-11, 1.1407e-11, 1.269e-11, 1.4148e-11, 1.5888e-11,
      1.7992e-11, 2.0523e-11, 2.3342e-11, 2.6578e-11, 3.0909e-11,
      3.6228e-11, 4.2053e-11, 4.9059e-11, 5.9273e-11, 7.0166e-11,
      8.2298e-11, 9.7071e-11, 1.1673e-10, 1.401e-10, 1.6621e-10,
      2.0127e-10, 2.3586e-10, 2.705e-10, 3.095e-10, 3.6584e-10,
      4.1278e-10, 4.6591e-10, 5.222e-10, 5.5246e-10, 6.15e-10,
      6.5878e-10, 7.1167e-10, 7.9372e-10, 8.6975e-10, 9.6459e-10,
      9.7368e-10, 9.8142e-10, 1.0202e-9, 1.02e-9, 1.0356e-9, 1.0092e-9,
      1.0269e-9, 1.0366e-9, 1.049e-9, 1.0717e-9, 1.0792e-9, 1.1016e-9,
      1.0849e-9, 1.0929e-9, 1.0971e-9, 1.0969e-9, 1.046e-9, 9.2026e-10,
      8.1113e-10, 6.8635e-10, 5.5369e-10, 4.2908e-10, 3.3384e-10,
      2.648e-10, 2.081e-10, 1.6915e-10, 1.4051e-10, 1.1867e-10,
      1.0158e-10, 8.899e-11, 7.9175e-11, 7.044e-11, 6.3453e-11,
      5.7009e-11, 5.1662e-11, 4.7219e-11, 4.3454e-11, 4.0229e-11,
      3.7689e-11, 3.6567e-11, 3.5865e-11, 3.5955e-11, 3.5928e-11,
      3.6298e-11, 3.7629e-11, 3.93e-11, 4.1829e-11, 4.4806e-11,
      5.0534e-11, 5.6672e-11, 6.2138e-11, 6.8678e-11, 7.6111e-11,
      8.4591e-11, 9.2634e-11, 9.8085e-11, 1.083e-10, 1.1949e-10,
      1.2511e-10, 1.3394e-10, 1.3505e-10, 1.4342e-10, 1.4874e-10,
      1.492e-10, 1.5872e-10, 1.5972e-10, 1.5821e-10, 1.5425e-10,
      1.4937e-10, 1.5089e-10, 1.5521e-10, 1.6325e-10, 1.6924e-10,
      1.8265e-10, 1.9612e-10, 2.0176e-10, 1.9359e-10, 1.7085e-10,
      1.5197e-10, 1.2646e-10, 9.8552e-11, 7.453e-11, 5.5052e-11,
      4.2315e-11, 3.2736e-11, 2.6171e-11, 2.1909e-11, 1.8286e-11,
      1.5752e-11, 1.3859e-11, 1.2288e-11, 1.1002e-11, 9.7534e-12,
      8.8412e-12, 8.0169e-12, 7.2855e-12, 6.8734e-12, 6.4121e-12,
      6.1471e-12, 5.778e-12, 5.3478e-12, 4.9652e-12, 4.4043e-12,
      3.9862e-12, 3.4684e-12, 2.9681e-12, 2.5791e-12, 2.2339e-12,
      1.9247e-12, 1.6849e-12, 1.4863e-12, 1.3291e-12, 1.2021e-12,
      1.0947e-12, 1.0015e-12, 9.1935e-13, 8.4612e-13, 7.8036e-13,
      7.21e-13, 6.6718e-13, 6.1821e-13, 5.7353e-13, 5.3269e-13,
      4.9526e-13, 4.6093e-13, 4.2937e-13, 4.0034e-13, 3.7361e-13,
      3.4895e-13, 3.2621e-13, 3.052e-13, 2.8578e-13, 2.6782e-13,
      2.512e-13, 2.3581e-13, 2.2154e-13, 2.0832e-13, 1.9605e-13,
      1.8466e-13, 1.7408e-13, 1.6425e-13, 1.5511e-13, 1.4661e-13,
      1.3869e-13, 1.3131e-13, 1.2444e-13, 1.1803e-13, 1.1205e-13,
      1.0646e-13, 1.0124e-13, 9.6358e-14, 9.1789e-14, 8.7509e-14,
      8.3498e-14, 7.9735e-14, 7.6202e-14, 7.2882e-14, 6.976e-14,
      6.6822e-14, 6.4053e-14, 6.1442e-14, 5.8978e-14, 5.665e-14,
      5.4448e-14, 5.2364e-14, 5.0389e-14, 4.8516e-14, 4.6738e-14,
      4.5048e-14, 4.3441e-14, 4.1911e-14, 4.0453e-14, 3.9063e-14,
      3.7735e-14, 3.6467e-14, 3.5254e-14, 3.4093e-14, 3.298e-14,
      3.1914e-14, 3.0891e-14, 2.9909e-14, 2.8965e-14, 2.8058e-14,
      2.7185e-14, 2.6344e-14, 2.5535e-14, 2.4755e-14, 2.4002e-14,
      2.3276e-14, 2.2576e-14, 2.1899e-14, 2.1245e-14, 2.0613e-14,
      2.0002e-14, 1.9411e-14, 1.8839e-14, 1.8285e-14, 1.7749e-14,
      1.723e-14, 1.6727e-14, 1.624e-14, 1.5768e-14, 1.531e-14,
      1.4867e-14, 1.4436e-14, 1.4019e-14, 1.3614e-14, 1.3221e-14,
      1.284e-14, 1.2471e-14, 1.2112e-14, 1.1764e-14, 1.1425e-14,
      1.1097e-14, 1.0779e-14, 1.0469e-14, 1.0169e-14, 9.8775e-15,
      9.5943e-15, 9.3193e-15, 9.0522e-15, 8.7928e-15, 8.5409e-15,
      8.2962e-15, 8.0586e-15, 7.8278e-15, 7.6036e-15, 7.3858e-15,
      7.1742e-15, 6.9687e-15, 6.7691e-15, 6.5752e-15, 6.3868e-15,
      6.2038e-15, 6.026e-15, 5.8533e-15, 5.6856e-15, 5.5226e-15,
      5.3642e-15, 5.2104e-15, 5.061e-15, 4.9158e-15, 4.7748e-15,
      4.6378e-15, 4.5047e-15, 4.3753e-15, 4.2497e-15, 4.1277e-15,
      4.0091e-15, 3.8939e-15, 3.782e-15, 3.6733e-15, 3.5677e-15,
      3.4651e-15, 3.3655e-15, 3.2686e-15, 3.1746e-15, 3.0832e-15,
      2.9944e-15, 2.9082e-15, 2.8244e-15, 2.7431e-15, 2.664e-15,
      2.5872e-15, 2.5126e-15, 2.4401e-15, 2.3697e-15, 2.3014e-15,
      2.2349e-15, 2.1704e-15, 2.1077e-15, 2.0468e-15, 1.9877e-15,
      1.9302e-15, 1.8744e-15, 1.8202e-15, 1.7675e-15, 1.7164e-15,
      1.6667e-15, 1.6184e-15, 1.5716e-15, 1.526e-15, 1.4818e-15,
      1.4389e-15, 1.3971e-15, 1.3566e-15, 1.3172e-15, 1.279e-15,
      1.2419e-15, 1.2058e-15, 1.1708e-15, 1.1368e-15, 1.1037e-15,
      1.0716e-15, 1.0405e-15, 1.0102e-15, 9.8079e-16, 9.5224e-16,
      9.2451e-16, 8.9758e-16, 8.7142e-16, 8.4602e-16, 8.2136e-16,
      7.974e-16, 7.7414e-16, 7.5154e-16, 7.2961e-16, 7.083e-16,
      6.8761e-16, 6.6752e-16, 6.4801e-16, 6.2906e-16, 6.1066e-16,
      5.928e-16, 5.7545e-16, 5.586e-16, 5.4224e-16, 5.2636e-16,
      5.1094e-16, 4.9596e-16} };
 
struct s_s260b_ {
    double e_1[3];
    int e_2;
    } s260b_ = { {-20., 2e4, 10.}, 2003 };
 
struct s_consts_ {
    double e_1[9];
    } consts_ = { {3.1415927410125732, 6.62606876e-27, 1.3806503e-16,
      29979245800., 6.02214199e23, 2.6867775e19, 83144720.,
      1.191042722e-12, 1.4387752} };
 
 
/* Table of constant values */
 
/*
static integer c__9 = 9;
static integer c__1 = 1;
static integer c__2 = 2;
static integer c__5 = 5;
static int cs__0 = 0;
*/
// FIXME static double c_b125 = 0.;
 
/* ############################################################################ */
/*     path:    $Source: /srv/svn/cvs/cvsroot/arts/src/continua.cc,v $ */
/*     author:    $Author $ */
/*     revision:          $Revision: 1.39 $ */
/*     created:          $Date: 2006/06/30 08:35:33 $ */
/* ############################################################################ */
 
/* CKD2.4 TEST */
/* TKS, 2002-02-28 */
/* CALL : g77 -c testckd.f ; g77 testckd.o -o testckd */
 
/* ############################################################################ */
/* ----------------------------------------------------------------------------- */
 
/* INPUT PARAMETERS: */
/*  P          [hPa]  TOTAL PRESSURE */
/*  T          [K]    TEMPERATURE */
/*  VMRH2O     [1]    H2O VOLUME MIXING RATIO */
/*  VMRN2      [1]    N2  VOLUME MIXING RATIO */
/*  VMRO2      [1]    O2  VOLUME MIXING RATIO */
/*  FREQ       [Hz]   FREQUENCY OF ABSORPTION CALCULATION */
 
 
/* OUTPUT PARAMETER: */
/*  artsckd_     [1/m]  ABSORPTION COEFFICIENT */
 
/* ----------------------------------------------------------------------------- */
 
double artsckd_(double p, double t, double vmrh2o,
  double vmrn2, double vmro2, double freq, int ivc)
{
    /* Initialized data */
 
    static double xslf = 1.;
    static double xfrg = 1.;
    static double xcn2 = 1.;
 
    /* System generated locals */
    double ret_val=0.0e0;
    // FIXME double d__1, d__2, d__3, d__4;
 
    /* Local variables */
    // FIXME int iosa;
    double w_wv__, oc_n2, radct;
    double w_other__, w_n2__, w_o2__;
    double of_wv, os_wv, p0, xn_wv__, t0, rhofac, wn, xn, xn0, tksvpt, rft;
 
    extern int initi_(double, double , double *,
          double *, double *, double *, double *,
          double *, double *, double *, double *,
          double *, double *);
    extern double fwv_(int , double , double *, double *,
           double *, double *, double *, double *);
    extern double swv_(int , double , double , double *, double *
           , double *, double *, double *, double *,
           double *);
    extern double conti_n2__(double , double , double *,
      double *, double *, double *, double *);
 
 
/*     PROGRAM:  MODM */
/*     ------- */
 
/*     AUTHOR: Sid-Ahmed Boukabara */
/*     ------ */
 
/*     AFFILIATION: ATMOSPHERIC AND ENVIRONMENTAL RESEARCH INC. */
/*     ----------- */
 
/*     DATE OF CREATION : October 1998 */
/*     ---------------- */
 
/*     AIM: This program is aimed at the calculation of the */
/*     ---  atmospheric optical depths. The spectral validity depends */
/*          only on the region covered by the file:"spectral_lines.dat" */
/*          The components treated here are the water vapor, the */
/*          oxygen, the ozone, the nitrogen and nitrogen dioxide. */
 
/*     - IVC      : Flag of contin. vers.: CKD2.4(if=2)  MPMf87/s93 (if=3) */
/*     - ICP      : Flag to take(if =1) or not (if=0) the line coupling */
/*     - NWN      : Number of wavenumbers to be treated */
/*     - WN       : Vector of NWN wavenumbers [in cm-1], one should note that */
/*                  this input could be a scalar (associated with NWN=1) */
/*     - NLAY     : Number of layers to be treated. */
/*     - P        : Vector of NLAY pressures (in mbar), one should note that */
/*                  this input could be a scalar (associated with NLAY=1) */
/*     - T        : Vector of NLAY temperatures [in Kelvin] */
/*     - W_WV     : Vector of NLAY water vapor column amounts [in molecules/cm2] */
/*     - W_O2     : Vector of NLAY oxygen column amounts [in molecules/cm2] */
/*     - W_N2     : Vector of NLAY nitrogen column amounts [in molecules/cm2] */
/*     - W_OTHER  : Vector of NLAY of other species column amounts [in molecules/cm2] */
/*     - CLW      : Vector of NLAY Cloud Liquid Water amounts [in kg/m2 or mm] */
/*                  When Cloud is present, the frequency must be consistent */
/*                  with Rayleigh absorption (no scattering performed in */
/*                  monortm). */
/*     - XSLF     : Scaling factor of the self WV continuum (usually XSLF=1) */
/*     - XFRG     : Scaling factor of the foreign WV continuum (usually XFRG=1) */
/*     - XCN2     : Scaling factor of the N2 continuum (usually XCN2=1) */
/*     - O        : An array of NWNxNLAY elts containing the total optical depths */
/*                  due to all the active species [in nepers] */
/*     - OS_WV    : An array of NWNxNLAY elts containing the water vapor optical */
/*                  depth (due to self continuum), [in Nepers] */
/*     - OF_WV    : An array of NWNxNLAY elts containing the water vapor optical */
/*                  depth (due to foreign continuum), [in Nepers] */
/*     - OC_N2    : An array of NWNxNLAY elts containing the nitrogen optical */
/*                  depth (due to continuum), [in Nepers] */
/*     - O_CLW    : An array of NWNxNLAY elts containing the CLW optical */
/*                  depth , [in Nepers] */
 
/*     History of the modifications: */
/*     ***************************** */
/*     - written in 1999 by Sid Ahmed Boukabara, Ross Hoffman */
/*   and Tony Clough. */
/*     - validated against ARM sondes in the */
/*   microwave spectrum (23.8 and 31.4 GHz). SAB, 2000. */
/*     - extended to more species by Sid Ahmed Boukabara in 03/2000. */
/*     - cleaned up and commented in 2001 for first public release. */
/*   Also put under CVS configuration management. SAB. */
/*     - Extended O2 lines to submillimeter. Extensive validation */
/*   by comparison to Rosenkranz model and MWR data. */
/*   Update of the LBLATM module (accepts inputs at pressure */
/*   grid, along with altitude grid). */
/*   Fixed the handling of N2 amount coming from LBLATM (which */
/*   depends on the number of molecules NMOL). */
/*   Adopted accurate constants values. */
/*   Sid Ahmed Boukabara. Dec 14th 2001. */
/*     - Updated on January 7th 2002. ARM option (INP=2) updated and */
/*       made more efficient after Jim's comments. (INP=3) option optimized. */
/*       WV line intensities modified in the microwave (see Tony's email). */
 
/*     Comments should be forwarded to Sid Ahmed Boukabara (sboukaba@aer.com) */
/*     or Tony Clough (clough@aer.com). */
 
/* ============================================================================ */
 
 
/* TKS functions: */
 
/*     scaling factor (SLF cont) */
/*     scaling factor (FRG cont) */
/*     scaling factor (N2 cont) */
 
 
    w_wv__ = 0.0e0;
    w_o2__ = 0.0e0;
    w_n2__ = 0.0e0;
    w_other__ = 0.0e0;
    ret_val = 0.0e0;
    rft = 0.0e0;
    //os_wv = 0.0e0;
    //of_wv = 0.0e0;
    //oc_n2 = 0.0e0;
 
/*      ---INPUTS & GENERAL CONTROL PARAMETERS */
 
    /*     set H2O, O2 and N2 number density to column amount [molec/cm2] */
    /*     TKSVPT = P[Pa] / T[K] */
    tksvpt    = (p * 100.0) / t;
    /*     7.242923e16 = k_B [J/K] * 1.0e-6 [m^3/cm^3] */
    w_wv__    = vmrh2o * 7.242923e16 * tksvpt;
    w_o2__    = vmro2  * 7.242923e16 * tksvpt;
    w_n2__    = vmrn2  * 7.242923e16 * tksvpt;
    w_other__ = (1.0000E0-vmrh2o-vmro2-vmrn2) * 7.242923e16 * tksvpt;
 
      /*     frequency [Hz] to wave number [cm-1] */
    wn = freq / 29979245800.0;
    //cout << "CKD2.4 H2O column amounts    [molec/cm2] =" << w_wv__ << "\n";
    //cout << "CKD2.4 O2 column amounts     [molec/cm2] =" << w_o2__ << "\n";
    //cout << "CKD2.4 H2O column amounts    [molec/cm2] =" << w_n2__ << "\n";
    //cout << "CKD2.4 others column amounts [molec/cm2] =" << w_other__ << "\n";
    //cout << "freq=" << freq << " Hz,   wave num=" << wn << " cm-1\n";
 
/* ---------------------------------------------------------------------------- */
 
/*     --- INITIALIZATION ----------------------------------------- */
    initi_(p, t, &radct, &t0, &p0, &w_wv__, &w_o2__, &w_n2__, &w_other__, &
      xn0, &xn, &xn_wv__, &rhofac);
    //cout << "CKD2.4 t0=" << t0 << "  p0=" << p0 << "\n";
    //cout << "radct   =" << radct << "\n";
    //cout << "xn0     =" << xn0 << "\n";
    //cout << "xn      =" << xn << "\n";
    //cout << "xn_wv__ =" << xn_wv__ << "\n";
    //cout << "rhofac  =" << rhofac << "\n";
 
    /*     --- RAD_FIELD_TERM ----------------------------------------- */
    rft = wn * tanh(radct * wn / (t * 2));
    //cout << "rft =" << rft << "\n";
 
    /*     --- H2O CONTINUUM TERM ------------------------------------- */
 
    if (ivc == 21) {
      /* CKD2.4  CONT_SELF_WV [Np/m] */
  os_wv = 1.0000e2 * swv_(2, wn, t, &t0, &w_wv__, &rft, &xn, &xn_wv__, &xn0, &xslf);
  //cout << "CKD2.4 ivc=21, H2O self cont  [in Np/m]   =" << os_wv << "\n";
  return os_wv;
    }
    if (ivc == 31) {
      /* MPMf87/s93  CONT_SELF_WV [Np/m] */
  os_wv = 1.0000e2 * swv_(3, wn, t, &t0, &w_wv__, &rft, &xn, &xn_wv__, &xn0, &xslf);
  //cout << "CKD2.4 ivc=31, H2O self cont  [in Np/m]   =" << os_wv << "\n";
  return os_wv;
    }
    if (ivc == 22) {
      /* CKD2.4  CONT_FRGN_WV [Np/m] */
  of_wv = 1.0000e2 * fwv_(2, wn, &w_wv__, &rft, &xn, &xn_wv__, &xn0, &xfrg);
  //cout << "CKD2.4 ivc=22, H2O foreign cont [in Np/m] =" << of_wv << "\n";
  return of_wv;
      }
    if (ivc == 32) {
      /* MPMf87/s93  CONT_FRGN_WV [Np/m] */
  of_wv = 1.0000e2 * fwv_(3, wn, &w_wv__, &rft, &xn, &xn_wv__, &xn0, &xfrg);
  //cout << "CKD2.4 ivc=32, H2O foreign cont [in Np/m] =" << of_wv << "\n";
  return of_wv ;
    }
 
    /* --- N2 CONTINUUM TERM [Np/m] ----------------------------------- */
    if (ivc == 1) {
  oc_n2 = 1.0000e2 * conti_n2__(wn, t, &t0, &w_n2__, &rft, &rhofac, &xcn2);
  //cout << "CKD2.4 ivc=1, N2 cont           [in Np/m] =" << oc_n2 << "\n";
  return oc_n2;
    }
 
    /* --- TOTAL ABSORPTION IN [in Np/m] --------------------------- */
    //    cout << "CKD2.4 H2O s+f cont         [in Np/m]         =" << ((os_wv+of_wv) * 1.0000e2) << "\n";
    //ret_val = ((os_wv + of_wv + oc_n2) * 1.0000e2);
 
// FIXME L999:
 
    return ret_val;  // [Np/m]
} /* artsckd_ */
 
 
/* ############################################################################ */
/*     foreign continuum functions -------------------------------------------- */
double fwv_(int ivc, double wn, double *w_wv__, double *rft,
      double *xn, double *xn_wv__, double *xn0, double *xfrg)
{
    /* System generated locals */
    double ret_val = 0.0e0;
 
    /* Local variables */
    extern double fwv24_(double , double *, double *,
      double *, double *, double *, double *),
      fwv_mpmf87s93__(double , double *, double *,
      double *, double *, double *, double *);
 
    ret_val = 0.0e0;
 
/*     --- CKD2.4 CONTINUUM ------------------------------------- */
    if (ivc == 2 && *w_wv__ > 0.) {
  ret_val = fwv24_(wn, w_wv__, rft, xn, xn_wv__, xn0, xfrg);
    }
 
 
/*     --- MPMf87s93 CONTINUUM ---------------------------------- */
    if (ivc == 3 && *w_wv__ > 0.) {
  ret_val = fwv_mpmf87s93__(wn, w_wv__, rft, xn, xn_wv__, xn0, xfrg);
    }
 
    return ret_val;
} /* fwv_ */
 
double fwv_mpmf87s93__(double wn, double *w_wv__, double *rft,
           double *xn, double *xn_wv__, double *xn0, double *xfrg)
{
    /* System generated locals */
    double ret_val=0.0e0;
 
    /* Local variables */
    extern double xlgr_(double *, double *);
    int i__, j;
    double x[4], fscal, xf;
 
    j = (int) ((wn - fh2ob_1.v1) / fh2ob_1.dv) + 1;
 
    for (i__ = 1; i__ <= 4; ++i__) {
  x[i__ - 1] = fh2oa_1.fh2o[j + i__ - 3];
    }
 
    xf = (wn - (fh2ob_1.v1 + fh2ob_1.dv * (double) (j - 1))) /
      fh2ob_1.dv;
    fscal = .8;
    ret_val = xlgr_(&xf, x) * 1e-20 * (*w_wv__ * *rft * ((*xn - *xn_wv__) / *
      xn0)) * fscal * *xfrg;
 
/* L999: */
    return ret_val;
} /* fwv_mpmf87s93__ */
 
double fwv24_(double wn, double *w_wv__, double *rft,
        double *xn, double *xn_wv__, double *xn0, double *
        xfrg)
{
    /* Initialized data */
 
  static double v0f1 = 350.;
  static double hwsqf1 = 4e4;
  static double betaf1 = 5e-9;
  static double factrf1 = -.7;
  static double v0f1a = 630.;
  static double hwsqf1a = 4225.;
  static double betaf1a = 2e-8;
  static double factrf1a = .75;
  static double v0f2 = 1130.;
  static double hwsqf2 = 108900.;
  static double betaf2 = 8e-11;
  static double factrf2 = -.97;
  static double v0f3 = 1975.;
  static double hwsqf3 = 62500.;
  static double betaf3 = 5e-6;
  static double factrf3 = -.65;
 
  /* System generated locals */
  double ret_val=0.0e0;
  double d__1;
 
  /* Local variables */
  extern double xlgr_(double *, double *);
  int i__, j;
  double x[4], fscal, xf, vf2, vf4, vf6;
 
  j = (int) ((wn - fh2ob_1.v1) / fh2ob_1.dv) + 1;
  for (i__ = 1; i__ <= 4; ++i__) {
    x[i__ - 1] = fh2oa_1.fh2o[j + i__ - 3];
  }
 
  xf = (wn - (fh2ob_1.v1 + fh2ob_1.dv * (double) (j - 1))) /
        fh2ob_1.dv;
 
/*     ---added correction to the forgn continuum */
/* Computing 2nd power */
    d__1  = wn - v0f1;
    vf2   = d__1 * d__1;
    vf6   = vf2 * vf2 * vf2;
    fscal = factrf1 * (hwsqf1 / (vf2 + betaf1 * vf6 + hwsqf1)) + 1.;
/* Computing 2nd power */
    d__1   = wn - v0f1a;
    vf2    = d__1 * d__1;
    vf6    = vf2 * vf2 * vf2;
    fscal *= factrf1a * (hwsqf1a / (vf2 + betaf1a * vf6 + hwsqf1a)) + 1.;
/* Computing 2nd power */
    d__1 = wn - v0f2;
    vf2 = d__1 * d__1;
    vf6 = vf2 * vf2 * vf2;
    fscal *= factrf2 * (hwsqf2 / (vf2 + betaf2 * vf6 + hwsqf2)) + 1.;
/* Computing 2nd power */
    d__1 = wn - v0f3;
    vf2 = d__1 * d__1;
    vf4 = vf2 * vf2;
    fscal *= factrf3 * (hwsqf3 / (vf2 + betaf3 * vf4 + hwsqf3)) + 1.;
    ret_val = xlgr_(&xf, x) * 1e-20 * (*w_wv__ * *rft * ((*xn - *xn_wv__) / *
      xn0)) * fscal * *xfrg;
 
/* L999: */
    return ret_val;
} /* fwv24_ */
 
 
 
/*     self continuum function ------------------------------------------------ */
double swv_(int ivc, double wn, double t, double *t0,
      double *w_wv__, double *rft, double *xn, double *
      xn_wv__, double *xn0, double *xslf)
{
  /* System generated locals */
  double ret_val;
 
    /* Local variables */
    extern double swv_mpmf87s93__(double , double , double *
          , double *, double *, double *, double *,
          double *, double *);
    extern double swv24_(double , double ,
       double *, double *, double *, double *,
       double *, double *, double *);
 
    ret_val = 0.;
 
/*     CKD2.4 CONTINUUM */
    if (ivc == 2 && *w_wv__ > 0.) {
/*     CNT_SLF_WV CKD2.4 */
  ret_val = swv24_(wn, t, t0, w_wv__, rft, xn, xn_wv__, xn0, xslf);
    }
 
    if (ivc == 3 && *w_wv__ > 0.) {
/*     MPMf87s93 CKD2.4 CONT. */
/*     CNT_SLF_WV */
  ret_val = swv_mpmf87s93__(wn, t, t0, w_wv__, rft, xn, xn_wv__, xn0,
    xslf);
    }
 
    return ret_val;
} /* swv_ */
 
 
 
double swv24_(double wn, double t, double *t0, double *
        w_wv__, double *rft, double * /* xn */, double *xn_wv__,
        double *xn0, double *xslf)
{
    /* Initialized data */
 
  static double v0s1 = 0.;
  static double hwsq1 = 1e4;
  static double betas1 = 1e-4;
  static double factrs1 = .688;
  static double v0s2 = 1050.;
  static double hwsq2 = 4e4;
  static double factrs2 = -.2333;
  static double v0s3 = 1310.;
  static double hwsq3 = 14400.;
  static double betas3 = 5e-6;
  static double factrs3 = -.15;
 
    /* System generated locals */
    double ret_val, d__1, d__2;
 
    /* Local variables */
    double sfac;
    extern double xlgr_(double *, double *);
    int j;
    double x[4], xf, vs2, vs4;
 
/*     ---UNITS(CM**3/MOL)*1.E-20 */
 
    j = (int) ((wn - sh2ob_1.v1) / sh2ob_1.dv) + 1;
    d__1 = s260a_1.swv260[j - 2] / sh2oa_1.swv296[j - 2];
    d__2 = (t - *t0) / (260. - *t0);
    x[0] = sh2oa_1.swv296[j - 2] * pow(d__1, d__2);
    d__1 = s260a_1.swv260[j - 1] / sh2oa_1.swv296[j - 1];
    d__2 = (t - *t0) / (260. - *t0);
    x[1] = sh2oa_1.swv296[j - 1] * pow(d__1, d__2);
    d__1 = s260a_1.swv260[j] / sh2oa_1.swv296[j];
    d__2 = (t - *t0) / (260. - *t0);
    x[2] = sh2oa_1.swv296[j] * pow(d__1, d__2);
    d__1 = s260a_1.swv260[j + 1] / sh2oa_1.swv296[j + 1];
    d__2 = (t - *t0) / (260. - *t0);
    x[3] = sh2oa_1.swv296[j + 1] * pow(d__1, d__2);
    xf = (wn - (sh2ob_1.v1 + sh2ob_1.dv * (double) (j - 1))) /
      sh2ob_1.dv;
    sfac = 1.;
/* Computing 2nd power */
    d__1 = wn - v0s1;
    vs2 = d__1 * d__1;
    vs4 = vs2 * vs2;
/* Computing 2nd power */
    d__1 = wn;
    sfac *= factrs1 * (hwsq1 / (d__1 * d__1 + betas1 * vs4 + hwsq1)) + 1.;
/* Computing 2nd power */
    d__1 = wn - v0s2;
    vs2 = d__1 * d__1;
    sfac *= factrs2 * (hwsq2 / (vs2 + hwsq2)) + 1.;
/* Computing 2nd power */
    d__1 = wn - v0s3;
    vs2 = d__1 * d__1;
    vs4 = vs2 * vs2;
    sfac *= factrs3 * (hwsq3 / (vs2 + betas3 * vs4 + hwsq3)) + 1.;
    ret_val = *w_wv__ * *rft * (*xn_wv__ / *xn0) * xlgr_(&xf, x) * 1e-20 *
      sfac * *xslf;
 
    return ret_val;
} /* swv24_ */
 
double swv_mpmf87s93__(double wn, double t, double *t0,
  double *w_wv__, double *rft, double * /* xn */, double *
  xn_wv__, double *xn0, double *xslf)
{
    /* System generated locals */
    double ret_val, d__1, d__2;
 
    /* Local variables */
    double sfac;
    extern double xlgr_(double *, double *);
    int j;
    double x[4], xf;
 
/*     ---UNITS(CM**3/MOL)*1.E-20 */
 
    j = (int) ((wn - sh2ob_1.v1) / sh2ob_1.dv) + 1;
    d__1 = s260a_1.swv260[j - 2] / sh2oa_1.swv296[j - 2];
    d__2 = (t - *t0) / (260. - *t0);
    x[0] = sh2oa_1.swv296[j - 2] * pow(d__1, d__2);
    d__1 = s260a_1.swv260[j - 1] / sh2oa_1.swv296[j - 1];
    d__2 = (t - *t0) / (260. - *t0);
    x[1] = sh2oa_1.swv296[j - 1] * pow(d__1, d__2);
    d__1 = s260a_1.swv260[j] / sh2oa_1.swv296[j];
    d__2 = (t - *t0) / (260. - *t0);
    x[2] = sh2oa_1.swv296[j] * pow(d__1, d__2);
    d__1 = s260a_1.swv260[j + 1] / sh2oa_1.swv296[j + 1];
    d__2 = (t - *t0) / (260. - *t0);
    x[3] = sh2oa_1.swv296[j + 1] * pow(d__1, d__2);
    xf = (wn - (sh2ob_1.v1 + sh2ob_1.dv * (double) (j - 1))) /
      sh2ob_1.dv;
    sfac = 3.;
    ret_val = *w_wv__ * *rft * (*xn_wv__ / *xn0) * xlgr_(&xf, x) * 1e-20 *
      sfac * *xslf;
 
/* L999: */
    return ret_val;
} /* swv_mpmf87s93__ */
 
/*     --- N2 continuum ------------------------------------------------------- */
double conti_n2__(double wn, double t, double *t0,
  double *w_n2__, double *rft, double *rhofac, double *
  xcn2)
{
    /* Initialized data */
 
    static double v1 = -10.;
    static double dv = 5.;
    static double ct296[73] = { 4.303e-7,4.85e-7,4.979e-7,4.85e-7,
      4.303e-7,3.715e-7,3.292e-7,3.086e-7,2.92e-7,2.813e-7,2.804e-7,
      2.738e-7,2.726e-7,2.724e-7,2.635e-7,2.621e-7,2.547e-7,2.428e-7,
      2.371e-7,2.228e-7,2.1e-7,1.991e-7,1.822e-7,1.697e-7,1.555e-7,
      1.398e-7,1.281e-7,1.138e-7,1.012e-7,9.078e-8,7.879e-8,6.944e-8,
      6.084e-8,5.207e-8,4.54e-8,3.897e-8,3.313e-8,2.852e-8,2.413e-8,
      2.045e-8,1.737e-8,1.458e-8,1.231e-8,1.031e-8,8.586e-9,7.162e-9,
      5.963e-9,4.999e-9,4.226e-9,3.607e-9,3.09e-9,2.669e-9,2.325e-9,
      2.024e-9,1.783e-9,1.574e-9,1.387e-9,1.236e-9,1.098e-9,9.777e-10,
      8.765e-10,7.833e-10,7.022e-10,6.317e-10,5.65e-10,5.1e-10,
      4.572e-10,4.115e-10,3.721e-10,3.339e-10,3.005e-10,2.715e-10,
      2.428e-10 };
    static double ct220[73] = { 4.946e-7,5.756e-7,5.964e-7,5.756e-7,
      4.946e-7,4.145e-7,3.641e-7,3.482e-7,3.34e-7,3.252e-7,3.299e-7,
      3.206e-7,3.184e-7,3.167e-7,2.994e-7,2.943e-7,2.794e-7,2.582e-7,
      2.468e-7,2.237e-7,2.038e-7,1.873e-7,1.641e-7,1.474e-7,1.297e-7,
      1.114e-7,9.813e-8,8.309e-8,7.059e-8,6.068e-8,5.008e-8,4.221e-8,
      3.537e-8,2.885e-8,2.407e-8,1.977e-8,1.605e-8,1.313e-8,1.057e-8,
      8.482e-9,6.844e-9,5.595e-9,4.616e-9,3.854e-9,3.257e-9,2.757e-9,
      2.372e-9,2.039e-9,1.767e-9,1.548e-9,1.346e-9,1.181e-9,1.043e-9,
      9.11e-10,8.103e-10,7.189e-10,6.314e-10,5.635e-10,4.976e-10,
      4.401e-10,3.926e-10,3.477e-10,3.085e-10,2.745e-10,2.416e-10,
      2.155e-10,1.895e-10,1.678e-10,1.493e-10,1.31e-10,1.154e-10,
      1.019e-10,8.855e-11 };
 
    /* System generated locals */
    double ret_val, d__1, d__2;
 
    /* Local variables */
    extern double xlgr_(double *, double *);
    int j;
    double x[4], xf;
 
/* TKS      INTEGER NPTCONTN2 */
/* TKS      INTEGER NPTCONTN2B */
/* TKS     &                 V1B,V2B,DVB */
/* TKS      DATA V2        / 350.0 / */
/* TKS      DATA NPTCONTN2 / 73    / */
/* TKS      DATA V1B, V2B, DVB, NPTCONTN2B / -10., 350., 5.0, 73 / */
 
 
 
/* TKS  -- begin implementation of TKS */
    if (wn <= 0.) {
  ret_val = 0.;
  return ret_val;
    }
    if (wn > 350.) {
  ret_val = 0.;
  return ret_val;
    }
/* TKS  -- end implementation of TKS */
 
    if (*w_n2__ == 0.) {
  ret_val = 0.;
  return ret_val;
    }
 
    j = (int) ((wn - v1) / dv) + 1;
    d__1 = ct296[j - 2] / ct220[j - 2];
    d__2 = (t - *t0) / (220. - *t0);
    x[0] = ct296[j - 2] * pow(d__1, d__2);
    d__1 = ct296[j - 1] / ct220[j - 1];
    d__2 = (t - *t0) / (220. - *t0);
    x[1] = ct296[j - 1] * pow(d__1, d__2);
    d__1 = ct296[j] / ct220[j];
    d__2 = (t - *t0) / (220. - *t0);
    x[2] = ct296[j] * pow(d__1, d__2);
    d__1 = ct296[j + 1] / ct220[j + 1];
    d__2 = (t - *t0) / (220. - *t0);
    x[3] = ct296[j + 1] * pow(d__1, d__2);
    xf = (wn - (v1 + dv * (double) (j - 1))) / dv;
    ret_val = xlgr_(&xf, x) * 1e-20 * (*w_n2__ / .26867775 * *rft * *rhofac) *
       *xcn2;
 
    return ret_val;
} /* conti_n2__ */
 
/*     --- 4 points Lagrange interpolation ----------------------------------- */
double xlgr_(double *xf, double *x)
{
    /* System generated locals */
    double ret_val;
 
    /* Local variables */
    double a[4], b;
 
 
 
 
/*     with continous derivatives */
    /* Parameter adjustments */
    --x;
 
    /* Function Body */
    b = *xf * .5 * (1. - *xf);
    a[0] = -b * (1. - *xf);
    a[1] = 1. - (3. - *xf * 2.) * *xf * *xf + b * *xf;
    a[2] = (3. - *xf * 2.) * *xf * *xf + b * (1. - *xf);
    a[3] = -(b * *xf);
    ret_val = a[0] * x[1] + a[1] * x[2] + a[2] * x[3] + a[3] * x[4];
 
/* L999: */
    return ret_val;
} /* xlgr_ */
 
/*     --- initializations ---------------------------------------------------- */
int initi_(double p, double t, double *radct,
  double *t0, double *p0, double *w_wv__, double *
  w_o2__, double *w_n2__, double *w_other__, double *xn0,
  double *xn, double *xn_wv__, double *rhofac)
{
    /* Initialized data */
 
    static double wvmolmass = 18.016;
    static double drymolmass = 28.97;
 
    double wdry, ratiomix, wvpress;
 
/*     [K] */
    *t0 = 296.;
/*     [hPa] */
    *p0 = 1013.25;
 
/*     [K/cm-1] */
    *radct   = consts_1.planck * consts_1.clight / consts_1.boltz;
    *xn0     = *p0 / (consts_1.boltz * *t0) * 1e3;
    *xn      = p / (consts_1.boltz * t) * 1e3;
    wdry     = *w_o2__ + *w_n2__ + *w_other__;
    ratiomix = *w_wv__ * wvmolmass / (wdry * drymolmass);
    wvpress  = ratiomix / (ratiomix + wvmolmass / drymolmass) * p;
    *xn_wv__ = wvpress / (consts_1.boltz * t) * 1e3;
    *rhofac  = *w_n2__ / (wdry + *w_wv__) * (p / *p0) * (273.15 / t);
 
/* L999: */
    return 0;
} /* initi_ */
 
/* ############################################################################ */
/* ---Block data to be consistent with LBLRTM/LBLATM */
/* Subroutine */ int phys_consts__(void)
{
    return 0;
} /* phys_consts__ */
 
 
/*     Pi was obtained from PI = 2.*ASIN(1.) */
/* --------------------------------------------- */
/*       Constants from NIST 01/11/2002 */
/* --------------------------------------------- */
/* --------------------------------------------- */
/*       units are generally cgs */
/*       The first and second radiation constants are taken from NIST. */
/*       They were previously obtained from the relations: */
/*       RADCN1 = 2.*PLANCK*CLIGHT*CLIGHT*1.E-07 */
/*       RADCN2 = PLANCK*CLIGHT/BOLTZ */
/* --------------------------------------------- */
 
/* ############################################################################ */
/* Subroutine */ int bsa296_(void)
{
    return 0;
} /* bsa296_ */
 
 
 
 
 
 
 
/* Subroutine */ int bsb296_(void)
{
    return 0;
} /* bsb296_ */
 
 
 
 
 
 
 
/* ---------------------------------------------------------------------------- */
 
 
/* Subroutine */ int bs260a_(void)
{
    return 0;
} /* bs260a_ */
 
 
 
 
 
 
 
 
/* Subroutine */ int bs260b_(void)
{
    return 0;
} /* bs260b_ */
 
 
 
 
 
 
 
/* ---------------------------------------------------------------------------- */
 
 
/* Subroutine */ int bfh2oa_(void)
{
    return 0;
} /* bfh2oa_ */
 
 
 
 
 
 
 
 
/* Subroutine */ int bfh2ob_(void)
{
    return 0;
} /* bfh2ob_ */
 
 
// ---------------------- end of monortm CKD F77  code --------------------------